MSXPen

10 REM Sanctuary Time Attack Checker

20 CLS

30 PRINT "Enter time (MM:SS, e.g., 3:45):"

40 INPUT T$

50 IF LEN(T$)<4 OR INSTR(T$,":")=0 THEN PRINT "Invalid format! Use MM:SS":GOTO 30

60 M=VAL(LEFT$(T$,INSTR(T$,":")-1))

70 S=VAL(RIGHT$(T$,2))

80 IF M<0 OR S<0 OR S>59 THEN PRINT "Invalid time!":GOTO 30

90 TS=M*60+S

100 PRINT "Your time: ";M;"min ";S;"sec"

110 IF TS<=180 THEN PRINT "Amazing! World-class!":GOTO 140

120 IF TS<=210 THEN PRINT "Great! Pro level!":GOTO 140

130 IF TS<=240 THEN PRINT "Good run!":GOTO 140 ELSE PRINT "Keep practicing!"

140 PRINT "Try again? (Y/N)"

150 K$=INKEY$:IF K$="" THEN 150

160 IF K$="Y" OR K$="y" THEN 20 ELSE END

170 run