home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64music / goblin (.txt) < prev    next >
Commodore BASIC  |  1988-11-30  |  10KB  |  356 lines
  1. 0 POKE808,225
  2. 1 PRINT"[147]":POKE54296,0:POKE53280,0:POKE53281,0:PRINT
  3. 2 PRINT"                                       [146]"
  4. 3 PRINT"  [158]   [223][146]   [169]  [223][146]     [223][146]                    [146]"
  5. 4 PRINT"  [158] [146]  [223][223][146] [169][146][169]  [223][223][146]  [146]  [223][223][146]  [146]                 [146]"
  6. 5 PRINT"  [158] [146]    [146]  [146]     [146]  [146]    [146]  [146] P R O G R A M[146] [158]  [146]"
  7. 6 PRINT"  [158] [146]  [169][146][169]  [146]     [146]  [146]    [146]  [146]                 [146]"
  8. 7 PRINT"  [158]   [146][169]        [146]  [146]    [146]  [146]    1 9 8 3[146]    [158]  [146]"
  9. 8 PRINT"  [158] [146]      [146]     [146]  [146]    [146]  [146]                 [146]"
  10. 9 PRINT"  [158] [146]      [146]     [146]  [146]  [169][146][169]                   [146]"
  11. 10 PRINT"  [158] [146]      [146]     [146]    [146][169]                    [146]"
  12. 11 PRINT"                                       [146]"
  13. 12 PRINT:PRINT
  14. 13 PRINT"   WELCOME TO A COLLECTION OF PAD[146]"
  15. 14 PRINT
  16. 15 PRINT"   PROGRAM[146] GAME PROGRAMS. PRESS M"
  17. 16 PRINT
  18. 17 PRINT"   TO ADVANCE TO THE GAME MENU.";
  19. 18 GET AN$:IF AN$=""THEN18
  20. 19 IF AN$="M"THEN600
  21. 20 IF AN$<>"M"THENGOSUB550:GOTO18
  22. 22 REM---------------------------------
  23. 23 REM---------------------------------
  24. 24 REM---------------------------------
  25. 25 PRINT"[147]":POKE53280,5:POKE53281,5:CLR
  26. 26 PRINT""
  27. 27 PRINT"[144]WELCOME TO [153]G O B L I N[146]"
  28. 28 PRINT"[144]A PAD PROGRAM ADDAPTATION.
  29. 29 [129]B[178]1[164]2000:[130]B:[153]
  30. 80 [151]53280,4:[151]53281,1
  31. 90 [153]"LOADPLEASE WAIT...DEFINING CHARACTERS";
  32. 100 [151]52,48:[151]56,48:[156]:W%[178]2:[151]56334,[194](56334)[175]254
  33. 105 [151]1,[194](1)[175]251
  34. 108 [129]N[178]0[164]2047:[151]N[170]12288,[194](N[170]53248):[130]N
  35. 109 [129]N[178]0[164]7:[151]N[170]12320,[194](N[170]54064):[130]N
  36. 110 [139]S[177]HS[167]HS[178]S
  37. 112 [140]:B[178]4:Z[178]1964:Z1[178]Z[170]54272:W[178]0:S[178]J:G[178]0
  38. 115 VS[178]54296:AD[178]54277:SR[178]54278:WF[178]54276:LB[178]54272:HB[178]54273
  39. 120 [129]X[178]0[164]31:[135]A:[151]X[170]12288,A:[130]
  40. 123 [151]1,[194](1)[176]4:[151]56334,[194](56334)[176]1
  41. 125 [151]53272,([194](53272)[175]240)[170]12
  42. 130 [153]"LOADG O B L I N"
  43. 140 [153]""[166]17)"HS="HS
  44. 145 [153]"STOPO=LEFT";[166]27);"P=RIGHT"
  45. 150 [129]I[178]1[164]118
  46. 160 X[178][181]([187](1)[172]680)[170]1144
  47. 170 [139][194](X)[178]B[167]160
  48. 180 [151]X,B:[151]X[170]54272,0:[130]I
  49. 190 [129]I[178]1[164]36
  50. 195 G1[178]0
  51. 200 X[178][181]([187](1)[172]680)[170]1144
  52. 210 [139][194](X)[178]B[176][194](X)[178]1[176][194](X)[178]3[167]200
  53. 220 [139][194](X[170]39)[178]B[175][194](X[170]40)[178]B[175][194](X[170]41)[178]B[167][151]X,3:[151]X[170]54272,0:G1[178]1
  54. 225 [139]G1[178]1[167]G[178]G[170]1:[137]240
  55. 230 [151]X,1:[151]X[170]54272,0
  56. 240 [130]I
  57. 250 [151]Z,32:Z[178]Z[171]40:Z1[178]Z1[171]40:[139]Z[179]1144[167]Z[178]Z[170]760:Z1[178]Z1[170]760
  58. 260 [161]A$:[139]A$[178]"O"[167]Z[178]Z[171]1:Z1[178]Z1[171]1
  59. 270 [139]A$[178]"P"[167]Z[178]Z[170]1:Z1[178]Z1[170]1
  60. 280 [139][194](Z)[178]B[167]410
  61. 290 [139][194](Z)[178]1[167][141]330
  62. 300 [151]Z,0:[151]Z1,0:[129]T[178]1[164]220:[130]
  63. 310 [139]W[178]36[171]G[167]J[178]S:[141]350:[137]110
  64. 320 [137]250
  65. 330 W[178]W[170]1:S[178]S[170]25:[153]""S:[151]VS,15:[151]AD,30:[151]SR,200:[151]WF,17
  66. 340 [151]HB,71:[151]LB,12:[129]T[178]1[164]90:[130]T:[151]VS,0:[151]HB,0:[151]LB,0:[142]
  67. 350 [153]"******ALL RIGHT!******"
  68. 352 [153]"        YOU NOW MOVE TO WAVE:WAIT";W%
  69. 353 W%[178]W%[170]1
  70. 355 [129]I[178]1[164]10:[161]C$:[130]I:[143] COLLECT GARBAGE
  71. 360 [151] VS,15:[151]AD,30:[151]SR,200:[151]WF,17:[129]I[178]1[164]17
  72. 370 H[178][181]([187](0)[172]10)[170]21:L[178][181]([187](0)[172]45)[170]210:[151]HB,H:[151]LB,L
  73. 380 [129]T[178]1[164]80:[130]T:[130]I:[151]VS,0:[151]HB,0:[151]LB,0
  74. 400 [142]
  75. 410 [151]Z,2:[151]VS,15:[151]AD,30:[151]SR,200:[151]WF,129:[151]HB,2:[151]LB,125
  76. 415 [129]I[178]1[164]400:[130]I:[151]VS,15:[151]HB,0:[151]LB,0
  77. 420 [129]X[178]1144[164]1823:[139][194](X)[179][177]1[167][130]X
  78. 430 [139][194](X)[178]1[167][151]X,3:[130]X
  79. 440 J[178]0
  80. 445 [129]I[178]1[164]10:[161]C$:[130]I
  81. 450 [153]"PLAY AGAIN? (Y/N)":[151]646,14
  82. 465 [161]C$:[139]C$[178]""[167]465
  83. 470 [139]C$[178]"Y"[167]110
  84. 490 [151] 53272,21:[151]53280,14:[151]53281,6:[151]52,50:[151]56,50:[153]"LOAD":[137]600
  85. 500 [131]126,219,219,255,165,90,90,165,60,66,165,129,153,165,66,60
  86. 510 [131]170,85,170,85,126,219,255,189,60,66,165,129,165,153,66,60
  87. 520 [131]0,0,0,0,0,0,0,0
  88. 521 [143]--------------------------------
  89. 522 [143]--------------------------------
  90. 523 [143]--------------------------------
  91. 524 [143]--------------------------------
  92. 525 [143]--------------------------------
  93. 550 [153]"WHAT'S THE TRIP BOZO?"
  94. 560 [153]"ARE YOU GOING TO BE ONE OF THOSE"
  95. 570 [153]"WHO INSIST ON TRYING TO FOOL OR "
  96. 580 [153]"TRICK THE COMPUTER?  LETS GO BACK"
  97. 590 [153]"AND TRY AGAIN, AND THIS TIME, "
  98. 595 [153]"GIVE IT WHAT IT ASKS FOR!!!!!!"
  99. 596 [129] A[178]1[164]1000:[130]A:[142]
  100. 597 [143]--------------------------------
  101. 598 [143]--------------------------------
  102. 599 [143]--------------------------------
  103. 600 [153]"LOAD":[151]53280,12:[151]53281,15:[156]:[153]"STOP
  104. 601 PRINT"                                        [146]":PRINT:PRINT
  105. 602 PRINT"                [175][175][175][175][175][175][175][175]"
  106. 603 PRINT"         [175][175][175][175][175][175][186][144]  MENU  [146][204][175][175][175][175][175][146]"
  107. 604 PRINT"        [170][144]SHALL WE PLAY A GAME?[180]"
  108. 605 PRINT"         [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]":PRINT:PRINT""
  109. 610 PRINT"            GOBLIN........1[146]"
  110. 611 PRINT"            ARGO..........2[146]"
  111. 612 PRINT"            ROAD RACE.....3[146]"
  112. 613 PRINT"            GUESSING GAME.4[146]"
  113. 614 PRINT"            EXIT PROGRAM..5[146]"
  114. 650 PRINT:PRINT:PRINT:PRINT"P L E A S E   M A K E   A   C H O I C E ":
  115. 660 INPUT"[144]CHOICE";A%
  116. 665 IF A%<1THENGOSUB550:GOTO660
  117. 670 IF A%=1 THEN25
  118. 671 IF A%=2 THEN700
  119. 672 IF A%=3 THEN7000
  120. 673 IF A%=4 THEN8000
  121. 674 IF A%=5 THEN9000
  122. 680 IF A%>5 THENGOSUB550:GOTO660
  123. 695 REM------------------------------
  124. 696 REM------------------------------
  125. 697 REM------------------------------
  126. 698 REM------------------------------
  127. 699 REM------------------------------
  128. 700 PRINT"[147]":POKE53280,0:POKE53281,0:PRINT"[158]
  129. 701 [153]"           WAIT      WAIT        WAIT      "
  130. 702 [153]"        WAIT    WAIT   WAIT   WAIT    WAIT      WAIT    "
  131. 703 [153]"        WAIT    WAIT   WAIT    WAIT   WAIT      WAIT    "
  132. 704 [153]"            WAIT   WAIT   WAIT    WAIT      WAIT    "
  133. 705 [153]"        WAIT    WAIT     WAIT     WAIT   WAIT   WAIT    "
  134. 706 [153]"        WAIT    WAIT   WAIT  WAIT     WAIT   WAIT   WAIT    "
  135. 707 [153]"        WAIT    WAIT   WAIT   WAIT       WAIT      "
  136. 708 [153]
  137. 709 [153]"    THE OBJECT OF SYSARGOWAIT IS TO SCORE":[153]
  138. 710 [153]"    AS MANY POINTS AS POSSIBLE BY":[153]
  139. 711 [153]"    CREATING WORDS FROM THE GIVEN":[153]
  140. 712 [153]"    LETTERS, IN THE ALOTTED TIME."
  141. 715 [129]A[178]1[164]7000:[130]A
  142. 720 R[178][187]([171]TI)
  143. 740 [156]:[153][199](147):N[178]13
  144. 750 [134]W$(7,6),A(N),E(N),V(5)
  145. 760 V(1)[178]65:V(2)[178]69:V(3)[178]73
  146. 765 V(4)[178]79:V(5)[178]85
  147. 770 D(3)[178]160:D(4)[178]164:D(5)[178]169
  148. 775 D(6)[178]175:D(7)[178]182
  149. 780 [141]6000
  150. 790 [141]1400:[153][199](147):C[178]0:M[178]5000
  151. 795 D[178]10:[137]5010
  152. 800 W$[178]""
  153. 810 [161]A$:C[178]C[170]1
  154. 815 [139]C[177]M[167]1310
  155. 820 NU[178]C:[141]1500:[139]A$[178]""[167]810
  156. 830 [139] [198](A$)[178]13[167]900
  157. 860 [139] [198](A$)[178]157[167]1700
  158. 870 [139]A$[179]"A"[176]A$[177]"Z"[167]810
  159. 880 W$[178]W$[170]A$:WO$[178]W$:WL[178]D:[141]1600
  160. 885 [139] [195](W$)[177]6[167]900
  161. 890 [137]810
  162. 900 L[178][195](W$)
  163. 910 [139]L[179]3[176]L[177]7[167]1000
  164. 920 [141]3010
  165. 930 [139]F[178]1[167]M$[178]"DUPLICATE":[137]1200
  166. 940 [141]4010:[139]F[178]1[167]1000
  167. 950 T(L)[178]T(L)[170]1
  168. 960 [139]T(L)[177]6[167]1100
  169. 970 W$(L,T(L))[178]W$
  170. 980 WO$[178]W$:WL[178]D(L):[141]1600
  171. 990 WO$[178]"        ":WL[178]D:[141]1600
  172. 995 D(L)[178]D(L)[170]40:[137]800
  173. 1000 M$[178]"ILLEGAL":[137]1200
  174. 1100 T(L)[178]T(L)[171]1:M$[178]"TOO MANY"
  175. 1110 [137]1200
  176. 1200 WO$[178]M$:WL[178]D[170]10:[141]1600
  177. 1210 [129]J[178]1[164]30:C[178]C[170]1
  178. 1220 [141]1500:[130]
  179. 1230 WO$[178]"           ":WL[178]D[170]10
  180. 1235 [141]800
  181. 1240 [137]800
  182. 1310 WO$[178]"TIME'S UP.  ":WL[178]1000:[141]1600
  183. 1320 SC[178]0:[129]J[178]3[164]7
  184. 1330 K[178]T(J):[139] K[177]5[167]K[178]5
  185. 1340 SC[178]SC[170]J[172]J[172]K:[130]
  186. 1350 [153]"SCORE =";SC:[153]:[153]
  187. 1355 [153]"DO YOU WANT TO PLAY AGAIN?";
  188. 1356 [161] AA$: [139] AA$[178]""[167] 1356
  189. 1357 [139] AA$[178]"Y"[167]720
  190. 1358 [139] AA$[179][177]"N"[167]1355
  191. 1359 [156]:[137]600
  192. 1400 [129]J[178]1[164]N:R[178][181]([187](1)[172]25)[170]65
  193. 1410 A(J)[178]R:[130]
  194. 1420 [129]J[178]1[164]2
  195. 1430 A(J)[178]V([181]([187](1)[172]5)):[130]
  196. 1440 [142]
  197. 1500 [153][199](19):[153] NU:[142]
  198. 1600 [153][199](19)
  199. 1605 XA[178][181](WL[173]40):YA[178][181](WL[171](XA[172]40))
  200. 1610 [139]YA[178]0[167]1630
  201. 1615 [129]AY[178]1[164]YA
  202. 1620 [153][199](29);:[130]
  203. 1630 [139]XA[178]0[167]1650
  204. 1640 [129]AX[178]1[164]XA
  205. 1645 [153][199](17);:[130]
  206. 1650 [153]WO$;
  207. 1660 [142]
  208. 1700 [139][195](W$)[179]2[167]1230
  209. 1710 W$[178][200](W$,[195](W$)[171]1)
  210. 1720 WO$[178]" ":WL[178]D:[141]1600
  211. 1730 WO$[178]W$:WL[178]D:[141]1600:[137]810
  212. 3010 F[178]0:[139]T(L)[178]0[167][142]
  213. 3020 [129]J[178]1[164]T(L)
  214. 3030 [139]W$(L,J)[178]W$[167]F[178]1
  215. 3040 [130]:[142]
  216. 4010 F[178]0:[129]J[178]1[164]N:E(J)[178]A(J)
  217. 4020 [130]:[129]J[178]1[164]L
  218. 4030 K[178][198]([202](W$,J,1))
  219. 4040 [129]X[178]1[164]N
  220. 4050 [139]E(X)[178]K[167]E(X)[178]0:[137]4070
  221. 4060 [130]:F[178]1
  222. 4070 [130]J:[142]
  223. 5010 [129]J[178]N[164]2[169][171]1:X[178]A(1):F[178]1
  224. 5020 [129]L[178]2[164]J:[139]A(L)[177]X[167]X[178]A(L):F[178]L
  225. 5030 [130]:A(F)[178]A(J):A(J)[178]X:[130]
  226. 5050 [129]J[178]1[164]N
  227. 5055 WO$[178][199](A(J)):WL[178]42[170]J[170]J:[141]1600
  228. 5100 [130]:[137]1230
  229. 6000 [153] [163]12);"A R G O"
  230. 6010 [153]:[153]"PRESS ANY KEY"
  231. 6020 J[178][181]([187](1)[172]1)[170]1:[161]A$
  232. 6030 [139]A$[178]""[167]6020
  233. 6040 [142]
  234. 7000 [143]-------------------------------
  235. 7001 [143]-------------------------------
  236. 7002 [143]-------------------------------
  237. 7003 [143]-------------------------------
  238. 7004 [143]-------------------------------
  239. 7005 [143]-------------------------------
  240. 7010 [156]:[153]"LOAD":[151]53280,8:[151]53281,2
  241. 7011 [153]"SYS WELCOM TO ROADRACE, A PAD PROGRAM"
  242. 7012 [153]" ADDAPTATION.":[153]:[153]
  243. 7013 [153]" THE CONTROL KEYS ARE....."
  244. 7014 [153]"                    Z=LEFT"
  245. 7015 [153]"                   ?=RIGHT"
  246. 7016 [129]B[178]1[164]5000:[130]B
  247. 7017 [156]:[153]"LOAD"
  248. 7120 Q[178]0:Q$[178]""
  249. 7125 OS[178]54272
  250. 7130 LC[178].4:RC[178]1[171]LC
  251. 7140 RS[178]167:LS[178]165:LT[178]206:RT[178]205
  252. 7150 L$[178]"Z":R$[178]"/"
  253. 7160 B[178]32:PC[178]102:EL[178]2:ER[178]37
  254. 7165 [151] 53280,8:[151]53281,2:[153] [199](5)
  255. 7170 [141] 7800
  256. 7200 [153]:[153]:T[178]0:N[178]0
  257. 7210 [133]"ROAD WIDTH (3-12)";W
  258. 7220 W[178][181](W):[139] W[179]3 [176] W[177]12 [167] 7210
  259. 7230 [153]:[153]"VISIBILITY CONDITIONS"
  260. 7240 [153]"  1 - TERRIBLE"
  261. 7250 [153]"  2 - BAD"
  262. 7260 [153]"  3 - FAIR"
  263. 7270 [153]"  4 - GOOD":[153]
  264. 7280 [133]"VISIBILITY (1-4)";V:V[178][181](V)
  265. 7290 [139] V[179]1 [176] V[177]4 [167] 7280
  266. 7295 [151]53280,8:[151]53281,2
  267. 7300 N[178]N[170]1:L[178]14:R[178]L[170]W[170]2:Z[178]2064[171]120[172]V
  268. 7310 C[178][181]((L[170]R)[173]2)[170]1
  269. 7320 [129] J[178]1[164]26:[161] Q$:[141]7600:[130]
  270. 7330 Q[178][187]([171]TI):[141]7700
  271. 7350 Q[178][187](1)
  272. 7355 [139] Q[177]RC [175] R[179]ER [167] [141] 7640:[137]7400
  273. 7360 [139] Q[179]LC [175] L[177]EL [167] [141] 7620:[137]7400
  274. 7370 [141] 7600
  275. 7400 A[178]PC:[161] Q$:[139] Q$[178]L$ [167] C[178]C[171]1
  276. 7410 ZC[178]Z[170]C:[139] Q$[178]R$ [167] C[178]C[170]1
  277. 7420 Q[178][194](ZC):[139] Q[179][177]B [167] A[178]170
  278. 7430 [151]ZC,A:[151]ZC[170]OS,1:[139] A[178]PC [167]7350
  279. 7440 H[178]TI[171]H:[139] H[179]0 [167] H[178]H[170]5184000
  280. 7450 M[178][181](H[173]10):T[178]T[170]M:[153]
  281. 7460 [153]"YOU WENT";M"MILES FOR A"
  282. 7470 [153]"TOTAL OF";T;"MILES IN";N;"DAY(S)":[153]
  283. 7480 [153]"HIT 'C' - CONTINUE RACE"
  284. 7490 [153]"HIT 'R' - RESTART RACE"
  285. 7500 [153]"HIT 'Q' - QUIT"
  286. 7510 [161] Q$:[139] Q$[178]"C" [167]7300
  287. 7520 [139] Q$[179][177]"R" [175] Q$[179][177]"Q" [167]7510
  288. 7530 [153]:[153]"AVERAGE MILES PER DAY=";T[173]N
  289. 7535 [129]A[178]1[164]900:[130]A
  290. 7540 [139] Q$[178]"R" [167]7200
  291. 7550 [156]:[137]600
  292. 7600 [153] [163]L);[199](RS);[199](RS);
  293. 7605 [153] [163]R);[199](LS);[199](LS)
  294. 7610 [142]
  295. 7620 [153] [163]L);[199](LT);[199](LT);
  296. 7625 [153] [163]R[171]1);[199](LT);[199](LT)
  297. 7630 L[178]L[171]1:R[178]R[171]1:[142]
  298. 7640 [153] [163]L[170]1);[199](RT);[199](RT);
  299. 7645 [153] [163]R);[199](RT);[199](RT)
  300. 7650 L[178]L[170]1:R[178]R[170]1:[142]
  301. 7700 [151] Z[170]C,PC:[151] Z[170]C[170]OS,1:P[178]Z[171]232
  302. 7710 [151]P,85:[151] P[170]OS,1:[151] P[170]1,64
  303. 7720 [151] P[170]1[170]OS,1:[151] P[170]2,73:[151] P[170]2[170]OS,1
  304. 7730 [129] J[178]1[164]5:[151] P[170]40[172]J,93:[151] P[170]40[172]J[170]OS,1
  305. 7740 [151] P[170]40[172]J[170]1,87:[151] P[170]40[172]J[170]1[170]OS,1
  306. 7750 [151] P[170]40[172]J[170]2,93:[151] P[170]40[172]J[170]2[170]OS,1
  307. 7760 [130]:[151] P[170]240,74:[151]P[170]240[170]OS,1
  308. 7770 [151] P[170]241,64:[151] P[170]241[170]OS,1:[151] P[170]242,75
  309. 7780 [151] P[170]242[170]OS,1:[129] J[178]1[164]900:[130]
  310. 7790 [129] J[178]1[164]5:[129] K[178]1[164]400:[130]
  311. 7795 [151] P[170]40[172]J[170]1,81:[130]:H[178]TI:[142]
  312. 7800 [134] D(9):L[178]14:R[178]22:[151]53281,1
  313. 7805 [153] [199](147);:[151]53281,2
  314. 7810 [129] J[178]1[164]9:[135] D(J):[130]
  315. 7820 [131] 18,15,1,4,18,1,3,5,42
  316. 7830 [129] J[178]1[164]2:[141] 7600:[130]
  317. 7840 [129] J[178]1[164]3:[141] 7640:[130]
  318. 7850 [129] J[178]1[164]5:[141] 7620:[130]
  319. 7860 [129] J[178]1[164]10:[141] 7640:[130]
  320. 7870 P[178]1042:[151] P,PC
  321. 7880 [129] J[178]1[164]500:[130]
  322. 7890 [129] J[178]1[164]2:P[178]P[170]40:[141] 7950:[130]
  323. 7900 [129] J[178]1[164]3:P[178]P[170]41:[141] 7950:[130]
  324. 7910 [129] J[178]1[164]4:P[178]P[170]39:[141] 7950:[130]
  325. 7920 P[178]P[170]40:[141]7950
  326. 7930 [129] J[178]1 [164] 9:P[178]P[170]41:[141] 7950
  327. 7940 [151] P,D(J):[130]:[153]:[142]
  328. 7950 [151] P,PC:[129] K[178]1[164]50:[130]:[142]
  329. 7951 [143]-------------------------------
  330. 7952 [143]-------------------------------
  331. 7953 [143]-------------------------------
  332. 7954 [143]-------------------------------
  333. 7955 [143]-------------------------------
  334. 8000 [156]:[151]53280,0:[151]53281,0:[153]"LOAD"
  335. 8001 [129]A[178]1[164]700:[130]A
  336. 8002 [153]" GUESSING GAME "
  337. 8003 [129]A[178]1[164]700:[130]A
  338. 8005 [133] "ENTER UPPER LIMIT FOR GUESS ";LI
  339. 8010 NM [178] [181](LI[172][187](1))[170]1
  340. 8015 CN [178] 0
  341. 8020 [153] "I'VE GOT THE NUMBER.":[153]
  342. 8030 [133] "WHAT'S YOUR GUESS"; GU
  343. 8035 CN[178]CN[170]1
  344. 8040 [139] GU[177]NM [167] [153] "MY NUMBER IS LOWER":[153]:[137]8030
  345. 8050 [139] GU[179]NM [167] [153]"MY NUMBER IS HIGHER":[153]:[137] 8030
  346. 8060 [153]"GREAT! YOU GOT MY NUMBER"
  347. 8065 [153]"IN ONLY "; CN ;"GUESSES.":[153]
  348. 8070 [153]"DO YOU WANT TO TRY ANOTHER (Y/N)"
  349. 8080 [161] AN$: [139] AN$[178]"" [167]8080
  350. 8090 [139] AN$[178]"Y"[167] 8002
  351. 8100 [139] AN$ [179][177] "N" [167] 8070
  352. 8110 [156]:[137]600
  353. 9000 [153]"LOAD":[151]808,237:[158]64759
  354. 9010 [153]"*********RETURN TO BASIC*********"
  355. 9020 [162]
  356.