ZX81 Listing for thyime.p


ZX81 program listing for **THYIME**SLR/1984*****

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 18447
VARS  : 19240
E-LINE: 19241
STKBOT: 19241
STKEND: 19241


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  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