image of READY prompt

Wang2200.org

Listing of file='SPACE' on disk='vmedia/games_vol_3.wvd.zip'

# Sector 252, program filename = 'SPACE'
0010 REM "SPACE" AUTHOR UNKNOWN
   : DIM D$80
0020 PRINT HEX(030A0A0A0A0A0A0A);TAB(25);"SPACE CHALLENGE"
0030 DIM C(160)
0040 FOR A=1TO 160
0050 B=INT(RND(9)*79)
   : IF B<5THEN 50
0060 C(A)=B
0070 NEXT A
0080 PRINT
   : PRINT
   : PRINT
   : PRINT
   : PRINT
   : PRINT
   : PRINT
   : PRINT
0085 PRINT "THE OBJECT OF THE GAME IS TO MOVE THE SPACECRAFT FROM THE LAUNCH P
     AD SAFELY"
0086 PRINT "THROUGH THE ASTEROID BELT"
0090 PRINT "THIS IS DONE BY USING THE NUMERIC KEYS-"
   : PRINT "'1'=REVERSE,  '2'=FORWARD,  '3'=FAST FORWARD,  '0'=STOP"
0100 PRINT "YOU HAVE 10 TRIES, GOOD LUCK!"
   : FOR Q5=1TO 20000
   : NEXT Q5
0110 FOR I=1TO 1500
   : NEXT I
0120 FOR D=1TO 160
   : FOR Q5=1TO 500
   : NEXT Q5
   : PRINT TAB(C(D));"*"
0130 FOR E1=1TO 23
   : NEXT E1
0140 PRINT HEX(0A)
0150 GOSUB 190
   : NEXT D
0160 GOTO 120
0170 GOSUB 190
0180 GOTO 50
0190 PRINT HEX(01);TAB(X);"===>"
0200 IF X>=79THEN 570
0210 IF D<22THEN 230
   : F=D-21
0220 GOTO 250
0230 F=160-(21-D)
0240 KEYIN A$,380,480
0250 IF C(F)=XTHEN 490
0260 IF C(F)=X+1THEN 490
0270 IF C(F)=X+2THEN 490
0280 IF C(F)=X+3THEN 490
0290 IF C(F)=X+4THEN 490
0300 GOSUB 360
0310 KEYIN A$,380,480
0320 IF A$="1"THEN 410
0330 IF A$="2"THEN 460
0340 IF A$="3"THEN 450
0350 RETURN
0360 PRINT HEX(0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A)
0370 RETURN
0380 IF A$="2"THEN 460
0390 IF A$="0"THEN 430
0400 IF A$="3"THEN 450
0410 X=X-1
0420 GOTO 350
0430 X=X
0440 GOTO 350
0450 X=X+1
0460 X=X+1
0470 GOTO 350
0480 PRINT
0490 READ D$
0500 PRINT HEX(07)
   : PRINT HEX(01);TAB(X);"BOOM!  ",D$
   : X=0
   : A$="0"
   : FOR Q5=1TO 1500
   : NEXT Q5
0510 T=T+1
0520 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"
0530 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"
0540 DATA "THAT'S TEN ATTEMPTS, TRY 'OLD MAID'"
0550 IF D$="THAT'S TEN ATTEMPTS, TRY 'OLD MAID'"THEN 610
0560 FOR Q=1TO 300
   : NEXT Q
   : GOTO 120
0570 PRINT HEX(01);TAB(30);"MISSION ACCOMPLISHED!!"
0580 T=T+1
   : T1=T1+1
0590 PRINT "YEA TEAM!  THAT'S ";T1;" SUCCESSES FOR ";T;" TRIES! !"
0600 X=0
   : A$="0"
   : FOR Q=1TO 5000
   : NEXT Q
   : GOTO 120
0610 RESTORE 1
   : STOP