image of READY prompt

Wang2200.org

Listing of file='ASTEROID' on disk='vmedia/gamesall.wvd.zip'

# Sector 482, program filename = 'ASTEROID'
0001 REM "ASTEROID SPACE CHALLENGE" - FINAL VERSION COMPLETED 12/16/74 BY B. K
     ELLY CRUMP OF THE MEMPHIS WANG OFFICE
0002 DIM D$64
0003 PRINT HEX(030A);TAB(25);"SPACE CHALLENGE"
0004 PRINT
0005 PRINT TAB(18);"HIT ANY KEY TO START PROGRAM"
0006 PRINT
0007 KEYIN A$,9,9
0008 Z1=RND(9)
   : GOTO 7
0009 PRINT TAB(2);"OBJECT: TO PILOT YOUR SPACECRAFT THROUGH THE ASTEROID BELT"
0010 PRINT TAB(14);"CONTROLS FUNCTION AS FOLLOWS:"
0011 PRINT TAB(22);"1 = FORWARD"
0012 PRINT TAB(22);"2 = REVERSE"
0013 PRINT TAB(22);"3 = FAST FORWARD"
0014 PRINT TAB(22);"0 = STOP"
0015 PRINT "SPACECRAFT MAINTAINS CONSTANT VELOCITY UNTIL ALTERED BY CONTROLS"
0016 DIM C(160)
0017 FOR A=1TO 160
0018 C(A)=INT(RND(9)*60)
   : IF C(A)<5THEN 18
0019 NEXT A
0020 B$="PREPARING SHIP"
0021 PRINT
   : PRINT
0022 IF H$<>" "THEN 27
0023 PRINT TAB(22);"HIT ANY KEY TO CONTINUE"
0024 KEYIN Z$,25,25
   : GOTO 24
0025 A$="0"
   : D=1
0026 REM
0027 PRINT TAB(C(D));"*"
0028 IF D>15THEN 117
0029 FOR E1=1TO 10
   : NEXT E1
0030 PRINT HEX(0A)
0031 Z9=1
   : GOTO 37
0032 D=D+1
0033 IF D=160THEN 116
0034 GOTO 27
0035 Z9=2
   : GOTO 37
0036 GOTO 18
0037 IF B$<>"===>"THEN 118
0038 PRINT HEX(01);TAB(X);B$
0039 IF X>=59THEN 80
0040 IF D<14THEN 42
   : F=D-13
0041 GOTO 44
0042 F=160-(13-D)
0043 KEYIN A$,58,43
0044 IF C(F)=XTHEN 70
0045 IF C(F)=X+1THEN 70
0046 IF C(F)=X+2THEN 70
0047 IF C(F)=X+3THEN 70
0048 IF C(F)=X+4THEN 70
0049 GOSUB 56
0050 KEYIN A$,58,50
0051 IF A$="1"THEN 67
0052 IF A$="0"THEN 64
0053 IF A$="2"THEN 62
0054 IF A$="3"THEN 66
0055 IF Z9=1THEN 32
   : GOTO 36
0056 PRINT HEX(0A0A0A0A0A0A0A0A0A0A0A0A0A)
0057 RETURN
0058 IF A$="1"THEN 67
0059 IF A$="0"THEN 64
0060 IF A$="2"THEN 62
0061 IF A$="3"THEN 66
0062 X=X-1
   : IF X<0THEN 67
0063 GOTO 55
0064 X=X
0065 GOTO 55
0066 X=X+1
0067 X=X+1
0068 GOTO 55
0069 PRINT
0070 REM CRASH
0071 T2=T2+1
0072 PRINT HEX(0107);TAB(X);"BOOM"
0073 PRINT
   : PRINT
0074 A$="0"
   : X=0
0075 B$="REPAIRING SHIP"
0076 GOSUB 108
0077 IF T2=10THEN 89
0078 FOR Q=1TO 300
   : NEXT Q
   : GOTO 25
0079 REM MADE IT!
0080 PRINT HEX(01);TAB(20);"MISSION ACCOMPLISHED!!"
0081 PRINT
   : PRINT
0082 T2=T2+1
0083 T1=T1+1
0084 GOSUB 108
0085 IF T2=10THEN 89
0086 B$="COOLING REACTORS"
0087 X=0
   : A$="0"
   : FOR Q=1TO 300
   : NEXT Q
   : GOTO 25
0088 PRINT
0089 PRINT
   : PRINT TAB(15);
   : IF T1>=7THEN 95
0090 IF T1=6THEN 97
0091 IF T1>=4THEN 99
0092 IF T1>=2THEN 101
0093 IF T1=1THEN 103
0094 IF T1=0THEN 105
0095 PRINT "YOU CHEATED YOU BUM!!!"
0096 GOTO 106
0097 PRINT "YOU ARE A REGULAR NEIL ARMSTRONG!!!"
0098 GOTO 106
0099 PRINT "N.A.S.A. NEEDS YOU!!!"
0100 GOTO 106
0101 PRINT "HOW DOES IT FEEL TO BE MEDIOCRE?!!"
0102 GOTO 106
0103 PRINT "IT COULD HAVE BEEN WORSE!!!"
0104 GOTO 106
0105 PRINT "YOU ARE A REGULAR SPIRO AGNEW!!!"
0106 PRINT
   : PRINT TAB(15);"KEYIN 1 TO PLAY AGAIN OF 2 TO STOP"
0107 KEYIN H$,110,110
   : GOTO 107
0108 PRINT TAB(15);"THAT'S ";T1;"SUCCESSES FOR ";T2;"ATTEMPTS"
0109 RETURN
0110 IF H$="2"THEN 119
0111 T1,T2,X=0
0112 PRINT HEX(030A0A0A0A0A0A0A);TAB(20);"SETTING UP FOR NEXT RUN"
0113 A$="0"
0114 D=1
0115 GOTO 16
0116 D=1
0117 B$="===>"
   : GOTO 29
0118 X=0
   : A$="0"
   : GOTO 38
0119 END