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"