READER
COMMENTS
COMMENTS
The following lines were accidentally deleted from the end of Listing 2 of Issue 63's Train Crazy. Sorry about that.
blue indicates reverse video
JI 4007 FOR T=2 TO 17:V=V+128:FOR O=0 TO
8: NEXT O:SOUND 1,V,8,6:POSITION T,1:?
#6;" OVer":NEXT T:POSITION 17,1
JX 4008 ? #6;" ":POSITION 14,0:? #6;"
OVer"
NB 4010 POKE 559,42:POSITION 7,0:? #6;"GA
me OVer ":? #6"":S0UND 1,0,0,0
AN 4030 ? #6;" scORe ";SC+215:? #6;"
"
FK 4040 ? #6;" PreSS StArt":? #6;""
OW 4045 ? #6;" fOR a New GamE":? #6;"
"POKE 559,42:GOSUB 4050
ZX 4047 FOR YY=1 TO 15:POSITION 6,4;? #6;
" ":FOR T=1 TO 30:IF PEEK(53
279)=6 THEN RUN
PL 4048 NEXT T:POSITION 6,4:? #6;"PreSS S
TArt":FOR T=1 TO 30:IF PEEK(53279)=6 T
HEN RUN
RY 4049 NEXT T:NEXT YY:RUN
GZ 4050 IF SC>15000 THEN POSITION 4,8:? #
6;"EXCELLENT SCORE":RETURN
JW 4051 IF SC>10000 THEN POSITION 6,8:? #
6;"GREAT SCORE":RETURN
GT 4052 IF SC>4000 THEN POSITION 7,8:? #6
;"good score":RETURN
PR 4053 IF SC<4000 THEN POSITION 7,8:? #6
;"try again":RETURN
LQ 5000 PM$(P1+Y,P1+Y+19)=P$(I,I+19)
XK 5001 I=58:X=X-2.4:S=STICK(0)
PG 5002 IF PEEK(53253)>0 THEN 10000
XT 5003 IF S=14 OR S=13 THEN 422
JF 5004 IF STRIG(0)=0 THEN X=X+1:GOT0 455
FS 5010 POKE 53249,X:IF X<53 THEN GOTO 30
00
OT 5030 GOTO 5000
KG 9000 IF PEEK(53253)=2 THEN SC=SC+200:G
OTO 9002
OF 9001 GOTO 620
WW 9002 RESTORE 9004+LP:READ O:POKE DM+25
6*1+O,0:SOUND 1,50,10,8:IF LP=4 THEN C
X=-8:BA=6
RT 9003 IF LP=5 THEN CX=-8:BA=6
GT 9004 DATA 20
LW 9005 DATA 58
NG 9006 DATA 97
HR 9007 DATA 133
LS 9008 DATA 168
IN 9009 DATA 206
YF 9010 POSITION CX+LP+LP,BA:? "Z"
DM 9011 I=3:V=120:ZX=ZK+3:POSITION 30-TT+
ZX,2:? "rrr":O=0:FOR Z=Y TO 37 STEP 2:
V=V+10:SOUND 1,V,10,5
YY 9020 PM$(P1+Z,P1+Z+19)=P$(I,I+19):NEXT
Z:I=58
ON 9025 PM$(P1+34,P1+53)=P$(I,I+19):Y=34:
GOTO 421
ZZ 10000 IF PEEK(53253)=8 AND LP=5 THEN 9
00
GC 10001 IF PEEK(53253)>0 THEN 9000
ZY 20000 Q=Q+37:POKE DM+256*3+Q+2,0:POKE
DM+256*3+Q+1,0:LP=LP+1:O=0:GOTO 421
GL 30000 RUN