Dodge the walls in this printer game. You can chose to play a regular game at start. Use 5 to move left and 8 to move right.
PROG : 16509
D-FILE: 17699
VARS : 18492
E-LINE: 18493
STKBOT: 18493
STKEND: 18493
9999 means line number
PRINT means treat as KEYWORD P
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