Use Z (left), . (right), and X (fire) to save the worlds.
PROG : 16509
D-FILE: 18447
VARS : 19240
E-LINE: 19241
STKBOT: 19241
STKEND: 19241
9999 means line number
PRINT means treat as KEYWORD P
10 REM **THYIME**SLR/1984*****
20 LET S=0
30 CLS
40 PRINT "*****************
** T H Y I M E **
***************** BY
STEVEN REID"
50 PRINT "CAN YOU STOP THE WOR
LDS TIME ANDTHEN RESTART IT AFTE
R THYIME HASBEEN MENDED? I DARE
YOU TO TRY*"
60 PRINT "
¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸
¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸
¸¸¸¸¸¸¸¸¸¸¸¸"
70 PRINT AT 21,0;"¹º¹º¹º¹º¹º¹º
¹º¹º¹º¹º¹º¹º¹º¹º¹º¹º"
75 PAUSE 300
80 LET A$=" öT¶ "
90 LET B$=" ´ ÷ "
100 LET O$="¹¹¹¹¹¹¹¹¹¹¹¹¹¹¹¹¹¹¹
¹¹¹¹¹¹¹¹¹¹¹¹¹"
110 LET X=0
120 LET Y=0
130 FOR A=10 TO 19
140 PRINT AT A,0;O$;AT 9,Y-(2
AND Y>0);B$;AT 9,Y-(Y>0);B$;AT
9,Y;B$
150 FOR B=1 TO 10-(S>100)-(S>20
0)-(S>300)-(S>400)-(S>500)-(S>60
0)-(S>500)
160 PRINT AT 20,X;A$
170 LET X=X-(INKEY$="Z" AND X>0
)+(INKEY$="." AND X<26)
180 IF INKEY$="X" THEN GOSUB 30
0
190 NEXT B
200 LET Y=Y+2.8
210 PRINT AT A,0;"
"
220 NEXT A
230 PRINT AT A,0;O$;AT 9,Y-(2
AND Y>0);B$;AT 9,Y-(Y>0);B$;AT
9,Y;B$
240 PRINT AT 9,0;"YOU LOST IT**
****";AT 12,0;"SCORE IS:";S;AT 2
0,0;O$
250 PAUSE 4E4
260 RUN
300 FOR R=19 TO 10 STEP -1
310 PRINT AT R,X+2;
320 LET P=PEEK (PEEK 16398+256*
PEEK 16399)
330 IF P=CODE "¹" THEN LET O$(X
+3)="ó"
340 IF P=CODE "ó" THEN LET O$(X
+3)=" "
350 PRINT "*";AT R+1,X+2;" "
AND R<19
360 PRINT AT A,0;O$
370 IF P<>0 THEN GOTO 550
380 NEXT R
390 PRINT AT 9,X+2;
400 LET P=PEEK (PEEK 16398+256*
PEEK 16399)
410 IF P=CODE " " OR P=CODE "´"
OR P=CODE "÷" THEN GOTO 430
420 GOTO 500
430 LET S=S+100
440 PRINT AT A,0;"
";AT 10,0;"YO
U DID IT, YOU FIXED THE THYIMEAN
D RESTORED ORDER** BONUS PTS**"
450 PRINT AT 14,0;"SCORE:";S
460 PRINT AT 21,0;"PRESS ENTER
TO CONTINUE GAME****"
470 PAUSE 4E4
480 GOTO 30
500 PRINT AT R+1,X+2;" ";AT A,0
;O$
510 LET S=S+2
520 RETURN
550 PRINT AT R,X+2;" ";AT A,0;O
$
560 LET S=S+10
570 RETURN
600 SAVE "THYIME"
610 RUN