Listing of file='SPACE' on disk='vmedia/games.wvd.zip'
# Sector 442, program filename = 'SPACE'
0010 DIM D$64
0015 REM "SPACE"
0020 PRINT HEX(030A0A0A0A0A0A0A);TAB(25);"SPACE CHALLENGE"
0030 DIM C(160)
0040 FOR A=1TO 160
0050 B=INT(RND(9)*63)
: IF B<5THEN 50
0060 C(A)=B
0070 NEXT A
0073 SELECT P3
0075 PRINT
: PRINT
: PRINT
: PRINT
: PRINT
: PRINT
: PRINT
: PRINT
: PRINT "THE OBJECT OF THE GAME IS TO MOVE THE SPACECRAFT FROM THE LAUNCH P
AD SAFELY THROUGH THE ASTEROID BELT"
0076 PRINT "THIS IS DONE BY USING KEYBOARD INPUTS- '1'=FORWARD, '2'=REVERSE,
'3'=FAST FORWARD, '0'=STOP"
0077 PRINT "YOU HAVE 10 TRIES, GOOD LUCK!"
0078 FOR I=1TO 1500
: NEXT I
0079 SELECT P
0080 FOR D=1TO 160
: PRINT TAB(C(D));"*"
0084 FOR E1=1TO 15
: NEXT E1
0085 PRINT HEX(0A)
0100 GOSUB 140
: NEXT D
0110 GOTO 80
0120 GOSUB 140
0130 GOTO 50
0140 PRINT HEX(01);TAB(X);"===>"
0150 IF X>=63THEN 460
0160 IF D<14THEN 180
: F=D-13
0170 GOTO 190
0180 F=160-(13-D)
0185 KEYIN A$,300,380
0190 IF C(F)=XTHEN 390
0200 IF C(F)=X+1THEN 390
0210 IF C(F)=X+2THEN 390
0220 IF C(F)=X+3THEN 390
0225 IF C(F)=X+4THEN 390
0230 GOSUB 280
0240 KEYIN A$,300,380
0250 IF A$="1"THEN 360
0260 IF A$="2"THEN 320
0265 IF A$="3"THEN 355
0270 RETURN
0280 PRINT HEX(0A0A0A0A0A0A0A0A0A0A0A0A0A)
0290 RETURN
0300 IF A$="1"THEN 360
0310 IF A$="0"THEN 340
0315 IF A$="3"THEN 355
0320 X=X-1
0330 GOTO 270
0340 X=X
0350 GOTO 270
0355 X=X+1
0360 X=X+1
0370 GOTO 270
0380 PRINT
0390 READ D$
0400 PRINT HEX(01);TAB(X);"BOOM",D$
: X=0
: A$="0"
0405 T=T+1
0410 DATA "TRY AGAIN BUD","COME ON, YOU'RE NOT TRYING","THE THIRD TIME'S THE C
HARM","ARE YOU WORKING FOR THE RUSSIANS?","I CAN'T BELIEVE YOU'RE ALWAYS
THIS SPASTIC"
0420 DATA "THIS CAN BE DONE YOU KNOW!!","WHAT'S THE HANGUP?!!","YOU'RE WHAT TH
EY CALL A NASA NIGHTMARE!!","I'M ONLY GIVING YOU ONE MORE CHANCE"
0430 DATA "THAT'S TEN ATTEMPTS, TRY 'OLD MAID'"
0440 IF D$="THAT'S TEN ATTEMPTS, TRY 'OLD MAID'"THEN 710
0450 FOR Q=1TO 300
: NEXT Q
: GOTO 80
0460 PRINT HEX(01);TAB(30);"MISSION ACCOMPLISHED!!"
0463 T=T+1
: T1=T1+1
0464 PRINT "YEA TEAM! THAT'S ";T1;" SUCCESSES FOR ";T;" TRIES! !"
0465 X=0
: A$="0"
: FOR Q=1TO 300
: NEXT Q
: GOTO 80
0710 RESTORE 1
: END
0999 DEFFN'14
: LOAD DC R"MENU"