ZX81 Listing for pc.p


ZX81 program listing for PRINTER CAR

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17699
VARS  : 18492
E-LINE: 18493
STKBOT: 18493
STKEND: 18493

LEGEND

9999 is a line number
PRINT is keyword P


PROGRAM LISTING

  10 REM PRINTER CAR
  20 REM BY:STEVEN REID
  25 LET LP=0
  30 LET S=0
  40 LET X=10
  50 LET Y=8
  60 FOR A=1 TO 100
  65 IF LP=0 THEN GOTO 260
  70 LPRINT TAB Y;("!" AND X>Y);
TAB X;"H";TAB Y+6;("!" AND X<Y+6
)
  75 LPRINT
  80 IF X<=Y OR X>=Y+6 THEN
GOTO 150
  90 GOSUB 190
 100 NEXT A
 105 IF LP=0 THEN GOTO 500
 110 LPRINT YOU MADEITYOU MADE
ITYOU MADEIT¸"
 120 LPRINT "YOUR SCORE IS:";S
 130 LPRINT "GAME OVER---"
 140 GOTO 400
 150 IF LP=0 THEN GOTO 600
 155 LPRINT CRASHCRASHCRASHCRA
SHCRASHCRASH¸"
 160 LPRINT "YOUR SCORE IS:";S
 170 LPRINT "GAME OVER---"
 180 GOTO 400
 190 LET L$=INKEY$
 200 LET X=X-(L$="5" AND X>0)+(L
$="8" AND X<31)
 210 LET F=INT (RND*2)
 220 LET Y=Y-(F=0 AND Y>0)+(F
AND Y+6<31)
 230 LET S=S+1
 240 RETURN
 250 REM END
 260 SCROLL
 270 PRINT TAB Y;("!" AND X>Y);
AT 21,X;"H";AT 21,Y+6;("!" AND X
<Y+6)
 280 SCROLL
 290 GOTO 80
 300 SAVE "PC"
 310 PRINT AT 15,0;"DO YOU HAVE 
A PRINTER? (Y/N)";
 320 LET X$=INKEY$
 330 LET LP=-1+(1 AND X$="N")+(2
AND X$="Y")
 340 IF LP<0 THEN GOTO 320
 350 PRINT X$
 400 SCROLL
 410 PRINT "PRESS A KEY TO START
..."
 420 PAUSE 4E4
 430 CLS
 440 GOTO 30
 500 SCROLL
 510 PRINT YOU MADEITYOU MADEI
TYOU MADEIT¸"
 520 SCROLL
 530 PRINT "YOUR SCORE IS:";S
 540 SCROLL
 550 PRINT "GAME OVER---"
 560 GOTO 400
 600 SCROLL
 610 PRINT CRASHCRASHCRASHCRAS
HCRASHCRASH¸"
 620 GOTO 520