home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / EPIDEMIC.DSK / EPI3.bas < prev    next >
BASIC Source File  |  2014-09-09  |  13KB  |  229 lines
  1. 1  REM  EPI3
  2. 2  POKE  -16304,0
  3. 4  &  RECALL "BTONE"
  4. 8  SCALE= 1: ROT= 1: HCOLOR= 3
  5. 20  GOTO 620
  6. 100  FOR II = 1 TO  LEN(T$): XDRAW  ASC( MID$ (T$,II,1)) -31 AT X0,Y0:X0 = X0 +8: NEXT : RETURN 
  7. 120  FOR II = 1 TO  LEN(T$): HCOLOR= 0: DRAW 64 AT X0,Y0: XDRAW  ASC( MID$ (T$,II,1)) -31 AT X0,Y0:X0 = X0 +8: NEXT : RETURN 
  8. 140  FOR II = 1 TO  LEN(T$): XDRAW  ASC( MID$ (T$,II,1)) -31 AT X0,Y0: XDRAW 64 AT X0,Y0:X0 = X0 +8: NEXT : RETURN 
  9. 200  GOTO 120
  10. 620  POKE  -16300,0: POKE  -16301,0: GOTO 4210
  11. 2000  IF R0 < >82  THEN  PRINT  CHR$(7);: GOTO 4339
  12. 2005  HOME 
  13. 2010  PRINT : PRINT : PRINT  TAB( 10)"REMOVE SAVE GAME DISK": PRINT : PRINT  TAB( 9)"INSERT GAME MASTER DISK": PRINT : PRINT : FLASH : HTAB 6: PRINT " AND PRESS <SPC> WHEN READY "
  14. 2015  NORMAL : GOSUB 4492
  15. 2020 EF = 4: &  RECALL "TYPE2"
  16. 2030  POKE 216,0
  17. 2040  POKE  -16297,0: POKE  -16304,0: GOTO 620
  18. 3000  GOSUB 10030
  19. 3005  FOR I1 = 1 TO (2 *(5 -A)): GOSUB 10060: NEXT 
  20. 3015 I = I1: GOSUB 10120
  21. 4210  HOME : VTAB 23
  22. 4220  VTAB 21: PRINT "<1> SAVE/END GAME";: HTAB 22: PRINT "<2> REGIONAL UPDATE"
  23. 4230  POKE 232,0: POKE 233,170
  24. 4235  POKE 230,64
  25. 4240  VTAB 22: PRINT "<3> LAUNCH MISSILE";: HTAB 22: PRINT "<4> DONE WITH TURN"
  26. 4245  VTAB 23: PRINT "<5> NUCLEAR DETONATION"
  27. 4247  POKE  -16368,0
  28. 4250  VTAB 24: HTAB 14: FLASH : PRINT " SELECT OPTION ";: VTAB 1: GET ANS$
  29. 4260  NORMAL 
  30. 4270  IF  ASC(ANS$) <49  OR  ASC(ANS$) >53  THEN  FLASH : PRINT  CHR$(7);: VTAB 24: HTAB 14: PRINT "   NOT VALID   ";: FOR J2 = 1 TO 1100: NEXT : GOTO 4247
  31. 4275  POKE  -16368,0
  32. 4280  ON  VAL(ANS$) GOTO 4300,4400,4700,5000,5010
  33. 4300 EF = 2: HOME : VTAB 22: INPUT "SAVE/END GAME OPTION (VERIFY Y/N) >> ";R1$
  34. 4310  IF  LEFT$(R1$,1) < >"Y"  THEN 4210
  35. 4312  &  RECALL "SSI.INIT"
  36. 4315  TEXT : HOME : PRINT : PRINT 
  37. 4317  POKE  -16368,0
  38. 4320  INPUT "DO YOU WISH TO SAVE GAME? ";R$
  39. 4330  IF  LEFT$(R$,1) < >"Y"  THEN  &  GOTO "ENDGAME"
  40. 4332  ONERR  GOTO 40000
  41. 4334  POKE  -16368,0:EF = 3
  42. 4335  TEXT : HOME : PRINT : PRINT  TAB( 8)"GAME MUST BE SAVED ON AN": PRINT  TAB( 8)"S.S.I. INITIALIZED  DISK": PRINT 
  43. 4336  PRINT : PRINT : PRINT : PRINT : PRINT : PRINT 
  44. 4337  PRINT : PRINT  TAB( 8)"<I>NITIALIZE A DISK": PRINT  TAB( 8)"<C>ATALOG": PRINT  TAB( 8)"<S>AVE THIS GAME": PRINT  TAB( 8)"<D>ELETE A GAME ON THE DISK": PRINT  TAB( 8)"<R>ESUME GAME IN PROGRESS"
  45. 4338  VTAB 8: HTAB 10: PRINT "<=> CHOOSE OPTION <=>": VTAB 8: HTAB 10: PRINT "<:> CHOOSE OPTION <:>"
  46. 4339  VTAB 19: IF  PEEK( -16384) <128  THEN 4338
  47. 4340 R0 =  PEEK( -16384) -128: POKE  -16368,0: IF R0 < >73  THEN 4350
  48. 4348  GOSUB 4490:EF = 1: CALL 2048
  49. 4349  GOTO 4335
  50. 4350  IF R0 < >67  THEN 4360
  51. 4355 EF = 2: GOSUB 4510
  52. 4357  CALL 2800
  53. 4358  GOSUB 4515: GOTO 4335
  54. 4360  IF R0 < >68  THEN 4370
  55. 4362  GOSUB 4510
  56. 4364  PRINT : PRINT : INPUT "ENTER NAME OF GAME TO DELETE >";R1$:EF = 3
  57. 4366  &  DEL R1$
  58. 4368  GOTO 4335
  59. 4370  IF R0 < >83  THEN 2000
  60. 4374  HOME : PRINT : PRINT  TAB( 15)"EPIDEMIC!": PRINT  TAB( 11)"SAVE GAME ROUTINE": PRINT : GOSUB 4510
  61. 4376  INPUT "SAVE GAME UNDER WHAT NAME >>> ";R$
  62. 4377  PRINT : PRINT : PRINT 
  63. 4378  IF  LEN(R$) <1  THEN  PRINT  CHR$(7): GOTO 4376
  64. 4380  IF  LEN(R$) >25  THEN R$ =  LEFT$(R$,25)
  65. 4390 EF = 3:D$ = R$ +".PTRS"
  66. 4392  &  STORE D$,105,8
  67. 4394 D$ = R$ +".DATA": &  STORE D$,33000,10519
  68. 4396 D$ = R$ +".MAPS": &  STORE D$,8192,8192
  69. 4398  GOTO 4335
  70. 4400  NORMAL : POKE  -16368,0: HOME : VTAB 23: INPUT "ENTER REGION NUMBER FOR UPDATE ---> ";R$
  71. 4402 R =  VAL(R$)
  72. 4405 R =  INT(R): IF R <1  OR R >14  THEN  PRINT  CHR$(7);: HTAB 15: FLASH : PRINT " INVALID ";: FOR J2 = 1 TO 500: NEXT : GOTO 4400
  73. 4410  POKE  -16302,0: POKE 230,64: &  RECALL "REGSTAT": POKE  -16299,0
  74. 4420  GOTO 6300
  75. 4490  PRINT : HTAB 2: FLASH : PRINT " INSERT BLANK DISK AND PRESS <SPC> ": NORMAL 
  76. 4492  POKE  -16368,0
  77. 4495  ON  PEEK(49152) < >160 GOTO 4495: POKE  -16368,0: RETURN 
  78. 4510  PRINT  TAB( 7)"INSERT SSI SAVE GAME DISK"
  79. 4515  PRINT : PRINT 
  80. 4520  HTAB 6: FLASH : PRINT " AND PRESS <SPC> WHEN READY"
  81. 4530  NORMAL : ON  PEEK(49152) < >160 GOTO 4530: POKE  -16368,0: RETURN 
  82. 4700  GOSUB 10030: FOR I1 = 1 TO 10 -(2 *A): IF B(I1,3) = 0  THEN  GOSUB 10060
  83. 4705  NEXT 
  84. 4710  FOR I1 = 1 TO 10 -(2 *A): IF B(I1,3) < >0  THEN 4990
  85. 4715  GOSUB 10120
  86. 4720 X0 = 8:Y0 = 182:T$ = "(Y) = LAUNCH / (N) = NEXT TGT >": GOSUB 120
  87. 4725  POKE  -16368,0
  88. 4730  GET ANS$: IF  ASC(ANS$) = 78  OR  ASC(ANS$) = 89  THEN 4750
  89. 4740  PRINT  CHR$(7): GOTO 4725
  90. 4750  IF  ASC(ANS$) = 78  THEN 4990
  91. 4760 B(I1,3) = 1:T$ = "      COUNTDOWN IN PROGRESS      ":X0 = 8: GOSUB 120
  92. 4770 V = V +1: IF V = U  THEN 5000
  93. 4780  GOTO 4995
  94. 4990  NEXT 
  95. 4995  GOTO 6800
  96. 4999  REM 
  97. 5000  REM 
  98. 5005  &  GOTO "EPI1"
  99. 5010  POKE  -16368,0: HOME : VTAB 22: INPUT "ENTER REGION #----------------> ";R1$
  100. 5012  POKE  -16368,0:R =  VAL(R1$)
  101. 5020  POKE 230,32
  102. 5025  IF R <1  OR R >14  OR R < > INT(R)  THEN  POKE 768,200: POKE 769,250: HOME : INVERSE : VTAB 22: HTAB 10: PRINT "  INVALID REGION #  ": CALL 770: CALL 770: NORMAL : GOTO 5010
  103. 5027  POKE  -16368,0
  104. 5030  VTAB 23: INPUT "ENTER CODEWORD FOR CLEARANCE --> ";R$
  105. 5035  IF  LEN(R$) <1  THEN  PRINT  CHR$(7);: GOTO 5027
  106. 5040  HOME : VTAB 21: PRINT "CODEWORD:";: HTAB 12: PRINT "CHECKING";: HTAB 22: PRINT "CLEARED";: HTAB 32: PRINT "DEFAULT"
  107. 5050  VTAB 22: PRINT "DEVICE:";: HTAB 12: PRINT "DISARMED";: HTAB 22: PRINT "ARMED";: HTAB 32: PRINT "DETONATED"
  108. 5060  INVERSE : VTAB 22: HTAB 12: PRINT "DISARMED": NORMAL 
  109. 5070  VTAB 21: HTAB 12: FLASH : PRINT "CHECKING": NORMAL 
  110. 5080 D$ = "REG" + STR$(R): &  RECALL D$
  111. 5090  VTAB 21: HTAB 12: PRINT "CHECKING"
  112. 5100  IF R$ = B$  THEN 5130
  113. 5105  INVERSE : VTAB 21: HTAB 32: PRINT "DEFAULT": NORMAL 
  114. 5110  POKE 768,255: POKE 769,200: CALL 770
  115. 5120  GOTO 5500
  116. 5130  INVERSE : VTAB 21: HTAB 22: PRINT "CLEARED": NORMAL 
  117. 5140  PRINT  CHR$(7);: VTAB 22: HTAB 12: PRINT "DISARMED";: FLASH : HTAB 22: PRINT "ARMED": PRINT  CHR$(7): NORMAL 
  118. 5150  VTAB 24: PRINT "HIT RETURN TO DETONATE/ESC FOR MENU";
  119. 5155  POKE  -16368,0
  120. 5160  GET ANS$: IF  ASC(ANS$) < >13  AND  ASC(ANS$) < >27  THEN  HTAB 1: GOTO 5150
  121. 5170  IF  ASC(ANS$) = 27  THEN 4210
  122. 5180  VTAB 22: HTAB 22: NORMAL : PRINT "ARMED";: INVERSE : HTAB 32: PRINT "DETONATED": NORMAL 
  123. 5185  POKE 232,0: POKE 233,170
  124. 5190  GOSUB 8000
  125. 5195  SCALE= 1: ROT= 0
  126. 5200  POKE 232,96: POKE 233,9: XDRAW 1 AT A(R,16),A(R,17): POKE 232,0: POKE 233,170: GOSUB 8000
  127. 5295  POKE 232,96: POKE 233,9
  128. 5300  SCALE= 1: ROT= 0: HCOLOR= 7: DRAW 1 AT A(R,16),A(R,17): DRAW 1 AT A(R,16) +1,A(R,17): POKE 232,0: POKE 233,170
  129. 5350 A(R,1) = A(R,1) +A(R,0):A(0,1) = A(0,1) +A(R,0):A(R,0) = 0:A(R,2) = 6:A(R,3) = 0:A(R,9) = 0:A(R,10) = 0:A(R,21) = 0
  130. 5500 V = V +1: IF V = U  THEN  POKE 230,64: GOTO 5000
  131. 5600  GOTO 4210
  132. 6300 X0 = 256:Y0 = 4:T$ =  STR$(D): GOSUB 100
  133. 6310 X0 = 172:Y0 = 16:T$ =  STR$(R): GOSUB 100
  134. 6320 X0 = 172:Y0 = 26:T$ = B$(R): GOSUB 100
  135. 6330 X0 = 172:Y0 = 36:E1 = 100 *A(R,2):T1$ =  STR$(E1):T$ =  LEFT$(T1$,1) +"." + MID$ (T1$,2,1): IF  INT(A(R,2)) = 0  THEN T$ = "0.0"
  136. 6340 T$ = T$ +"/": IF A(R,21) >0  THEN T$ = T$ +"PNEUMONIC": GOTO 6350
  137. 6345 T$ = T$ +A$( INT(A(R,2)))
  138. 6350  GOSUB 100: IF A(R,3) = 0  THEN 6370
  139. 6360 X0 = 172:Y0 = 46:T$ =  STR$(A(R,3)) +" DAYS": GOSUB 100
  140. 6370  IF A(R,21) = 0  THEN 6390
  141. 6380 X0 = 172:Y0 = 56:T$ =  STR$(A(R,21)) +" DAYS": GOSUB 100
  142. 6390 X0 = 172:Y0 = 66:G =  INT(A(R,0) +A(R,1)): GOSUB 7000
  143. 6400  GOSUB 100
  144. 6410 G =  INT(A(R,0)):X0 = 172:Y0 = 76: GOSUB 7000
  145. 6420  GOSUB 100
  146. 6430 G =  INT(A(R,1)):X0 = 172:Y0 = 86: GOSUB 7000
  147. 6440  GOSUB 100
  148. 6450  IF A(R,9) <1  OR A(R,10) = D( ABS(A(R,9)),0)  THEN 6480
  149. 6460 E = A(R,9): HCOLOR= 3:X0 = 99: HPLOT X0,149: FOR I2 = 1 TO D(E,0):X0 = X0 +16:Y0 =  INT(49 +(100 *D(E,I2))): HPLOT  TO X0,Y0: NEXT 
  150. 6470  HCOLOR= 2:X0 = 99: HPLOT X0,149: FOR I2 = 1 TO D(E,0) -A(R,10):X0 = X0 +16:Y0 =  INT(49 +(100 *A(R,I2 +3))): HPLOT  TO X0,Y0: NEXT 
  151. 6480 Y0 = 101: FOR I2 = 1 TO 8:Y0 = Y0 +10: IF I2 = A(R,9)  THEN X0 = 58: HCOLOR= 1: GOTO 6550
  152. 6485  IF A(R,10) < >0  OR A(R,21) < >0  THEN  HCOLOR= 5:X0 = 78: GOTO 6550
  153. 6490  IF A(R,3) < >0  AND A(R,3) <D(I2,0)  THEN X0 = 78: HCOLOR= 5: GOTO 6550
  154. 6495  IF  INT(A(R,2)) = 0  THEN X0 = 78: HCOLOR= 5: GOTO 6550
  155. 6497  IF  INT(A(R,2)) = 6  THEN X0 = 78: HCOLOR= 5: GOTO 6550
  156. 6500  IF A(R,9) < >0  THEN X0 = 78: HCOLOR= 5: GOTO 6550
  157. 6510 X0 = 58: HCOLOR= 1
  158. 6550  DRAW 64 AT X0,Y0: DRAW 64 AT X0 +8,Y0
  159. 6560  NEXT 
  160. 6570 Y0 = 101: FOR I2 = 1 TO 4:Y0 = Y0 +10: IF I2 * -1 = A(R,9)  THEN  HCOLOR= 1:X0 = 252: GOTO 6600
  161. 6580  IF A(R,21) < >0  AND A(R,2) < >6  AND A(R,9) = 0  THEN X0 = 252: HCOLOR= 1: GOTO 6600
  162. 6590 X0 = 265: HCOLOR= 5
  163. 6600  DRAW 64 AT X0,Y0: NEXT 
  164. 6610  GOSUB 7050
  165. 6615  GET ANS$: IF  ASC(ANS$) = 49  OR  ASC(ANS$) = 50  THEN 6630
  166. 6620 T$ = "    NOT VALID     ": POKE 768,230: POKE 769,80: CALL 770:X0 = 110:Y0 = 164: GOSUB 120: GOSUB 7040:X0 = 110
  167. 6625 T$ = " 2 ": GOSUB 140:T$ = "RETURN TO MENU": GOSUB 100:X0 = 110:Y0 = 174: GOTO 6615
  168. 6630  IF  ASC(ANS$) = 50  THEN 6800
  169. 6640  IF A(R,9) < >0  OR A(R,2) = 0  OR A(R,2) = 6  THEN  POKE 768,240: POKE 769,250:T$ = "NO REMEDIES AVAILABLE": CALL 770:X0 = 106:Y0 = 164: GOSUB 120: GOTO 6800
  170. 6650  GOSUB 7040: GOSUB 7070
  171. 6660  IF R0 = 4  THEN A(R,9) = R9 * -1: GOTO 6700
  172. 6670 A(R,9) = R9:A(R,10) = D(R9,0):A(R,4) = D(R9,1) +(.225 * RND(1)) -.1: IF A(R,4) >1  THEN A(R,4) = 1
  173. 6675  IF D(R9,0) = 1  THEN 6700
  174. 6680  FOR I3 = 2 TO D(R9,0):A(R,I3 +3) = A(R,I3 +2) +D(R9,I3 +4) +(.225 * RND(1)) -.1: IF A(R,I3 +3) >1  THEN A(R,I3 +3) = 1
  175. 6685  NEXT 
  176. 6700 V = V +1: IF V = U  THEN 5000
  177. 6800  FOR J4 = 1 TO 200: NEXT : POKE  -16300,0: POKE  -16301,0: GOTO 4210
  178. 7000  IF G = 0  THEN T$ = "            0": RETURN 
  179. 7010  IF G <1000  THEN 7030
  180. 7020 T1$ =  STR$(G):T$ =  LEFT$(T1$,1) +"," + MID$ (T1$,2,3) +",000,000": RETURN 
  181. 7030 T1$ = "000" + STR$(G):T$ = "  " + RIGHT$(T1$,3) +",000,000": RETURN 
  182. 7040 T$ = "                    ":Y0 = 164:X0 = 107: GOSUB 120: RETURN 
  183. 7050 X0 = 110:Y0 = 154:T$ = " 1 ": GOSUB 140:T$ = "INITIATE REMEDY": GOSUB 100:X0 = 110:Y0 = 164:T$ = " 2 ": GOSUB 140:T$ = "RETURN TO MENU": GOSUB 100:T$ = "ENTER YOUR CHOICE >":X0 = 110:Y0 = 1
  184. 7060 Y0 = 174: GOSUB 140: RETURN 
  185. 7070 F1 = 1:X0 = 110:Y0 = 154: IF A(R,3) >0  THEN 7100
  186. 7072  IF A(R,2) <2  AND A(R,21) = 0  THEN R0 = 8: GOTO 7108
  187. 7075  IF A(R,21) = 0  THEN 7100
  188. 7080 R0 = 4:T1$ = "B": GOTO 7110
  189. 7100  IF A(R,3) >4  THEN R0 = 8: GOTO 7108
  190. 7102  IF A(R,3) >3  THEN R0 = 5: GOTO 7108
  191. 7104 R0 = A(R,3)
  192. 7108 T1$ = "A"
  193. 7110 X0 = 110:Y0 = 154:T$ = " TYPE " +T1$ +" AVAILABLE ": GOSUB 120
  194. 7120 X0 = 110:Y0 = 174:T$ = "ENTER REM.# (1-" + STR$(R0) +") > ": GOSUB 120:X0 = X0 -8
  195. 7125  POKE  -16368,0
  196. 7130 X1 = X0:Y1 = Y0: GET ANS$: IF  ASC(ANS$) <48  OR  ASC(ANS$) >57  THEN  GOSUB 7500: GOTO 7120
  197. 7140  IF  VAL(ANS$) <1  OR  VAL(ANS$) >R0  THEN  GOSUB 7500: GOTO 7120
  198. 7150 R9 =  VAL(ANS$):T$ = ANS$: GOSUB 120: RETURN 
  199. 7500 T$ = "     INVALID     ":X0 = 125:Y0 = 164: POKE 768,230: POKE 769,100: GOSUB 140: CALL 770:X0 = 125: GOSUB 140:X0 = X1:Y0 = Y1: RETURN 
  200. 8000  POKE 768,255: FOR I4 = 1 TO 30: POKE 769,6: CALL 770: ROT= 0: SCALE= I4: XDRAW 61 AT C(R,1),C(R,2): POKE 769,8
  201. 8010  CALL 770: ROT= 8: XDRAW 61 AT C(R,1),C(R,2): POKE 769,6: CALL 770: NEXT 
  202. 8020  RETURN 
  203. 10030  &  RECALL "RMAP": HCOLOR= 3: POKE  -16302,0: POKE  -16299,0
  204. 10050 T$ =  STR$(D):X0 = 276 -( LEN(T$) *8):Y0 = 161: GOSUB 100
  205. 10055  RETURN 
  206. 10060  DRAW 60 AT B(I1,1),B(I1,2): XDRAW I1 +17 AT B(I1,1),B(I1,2): XDRAW 64 AT B(I1,1),B(I1,2): XDRAW 64 AT B(I1,1),B(I1,2): RETURN 
  207. 10110  POKE 768,16: POKE 769,10: CALL 770: POKE 768,40: POKE 769,16: CALL 770: RETURN 
  208. 10120  REM 
  209. 10130 X0 = 40:Y0 = 171:T$ =  STR$(I1): GOSUB 200
  210. 10140  XDRAW 64 AT B(I1,1),B(I1,2)
  211. 10150 X0 = 90:T1$ = "      " + STR$(B(I1,7)):T$ =  RIGHT$(T1$,6): XDRAW 64 AT B(I1,1),B(I1,2)
  212. 10160  GOSUB 200:X0 = 174:T$ =  STR$(B(I1,4)): XDRAW 64 AT B(I1,1),B(I1,2): GOSUB 200
  213. 10170 X0 = 237:T$ =  STR$(B(I1,5)) +C$(B(I1,6)): XDRAW 64 AT B(I1,1),B(I1,2): GOSUB 200: RETURN 
  214. 10190 Y0 = 171:X0 = 90: XDRAW 64 AT B(I1,1),B(I1,2):T1$ = "          " + STR$(B(I1,7)):T$ =  RIGHT$(T1$,6): XDRAW 64 AT B(I1,1),B(I1,2): GOSUB 200: RETURN 
  215. 40000  IF  PEEK(222) <9  THEN  HOME : GOTO 40002
  216. 40001  POKE 216,0: RESUME 
  217. 40002  IF EF = 1  OR EF = 2  THEN 40040
  218. 40003  IF EF = 3  THEN 50000
  219. 40004  IF EF = 4  THEN 50050
  220. 40020  POKE 216,0: RESUME 
  221. 40040  PRINT : PRINT  CHR$(7);"DISK READ OR WRITE ERROR. MAKE SURE": PRINT "CORRECT DISK IS LOADED AND TRY AGAIN...": PRINT : GOTO 60002
  222. 50000  IF  PEEK(222) = 6  OR  PEEK(222) = 8  THEN 40040
  223. 50010  IF  PEEK(222) = 1  THEN  PRINT : PRINT  CHR$(7);"UNABLE TO LOCATE GAME CALLED ";R1$: GOTO 60002
  224. 50020  IF  PEEK(222) = 3  THEN  PRINT : PRINT  CHR$(7);"FILE NAMED ";R$;"ALREADY EXISTS": GOTO 60002
  225. 50030  IF  PEEK(222) = 4  THEN  PRINT : PRINT  CHR$(7);"NO ROOM ON DISK TO STORE GAME": GOTO 60002
  226. 50050  PRINT : PRINT  CHR$(7);"DISK READ OR WRITE ERROR. MAKE SURE ": PRINT "CORRECT DISK IS LOADED AND TRY AGAIN...": PRINT : GOTO 62000
  227. 60002  POKE 216,0: ONERR  GOTO 40000: PRINT : PRINT : PRINT : PRINT : GOTO 4336
  228. 60010  GOTO 4336
  229. 62000  GOTO 2010