home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / ROBOT-MULTIPLY (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  9.3 KB  |  239 lines
  1. 10 :::::: :::::: (null) TO 22 :::::: ::::::    """[184]""[184]""[184]""[184]""[184][184]""[184][184]""[184]""[184]""[184]""[184]"""
  2. 11 "[184]""  THIS IS AN OLD COMMODORE  ""[184]"    "[184]""                            ""[184]"
  3. 12 "[184]""  EDUCATIONAL PROGRAM THAT  ""[184]"    "[184]""                            ""[184]"
  4. 13 "[184]""  WAS MADE TO RUN ON MANY   ""[184]"    "[184]""                            ""[184]"
  5. 14 "[184]""   TYPES OF C= COMPUTERS.   ""[184]"    "[184]""                            ""[184]"
  6. 15 "[184]""  EVERYTHING NOT NEEDED FOR ""[184]"    "[184]""                            ""[184]"
  7. 16 "[184]""    THE C-64 WAS REMOVED.   ""[184]"    "[184]""                            ""[184]"
  8. 17 "[184]""  ADDITIONAL GRAPHICS,SOUND ""[184]"    "[184]""                            ""[184]"
  9. 18 "[184]""    AND COLOR WAS ADDED.    ""[184]"    "[184]""                            ""[184]"
  10. 19 "[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]"    "[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]".
  11. 20 <<<< * REVISION- BY JIM GREEN * >>>>    <<<< MUCH WORK FOR SMALL REWARD >>>>.
  12. 22 A=828:FORT=ATO843:READD:POKET,D:NEXT
  13. 25 DATA32,155,183,138,72,32,155,183,104,170,164,101,24,76,240,255
  14. 30 PRINT"[147][142][150]";:POKE53280,7:POKE53281,7:S=54272:W=RND(-TI):SYSA,6,0:GOSUB655
  15. 35 PRINT"      CAN YOU OUTSMART THE ROBOT!":FORD=1TO3E3:NEXT
  16. 40 U=1024:H=10:LP=1:LD=1:K=50
  17. 45 PRINT"[147][151]":POKE53280,15:POKE53281,15:PRINT"                [205][197][206][213]"
  18. 50 PRINT" --------------------------------------"
  19. 55 PRINT"       1.   [194]EGIN [210][207][194][207][212] [205]ULTIPLY"
  20. 60 PRINT"       2.   [201]NSTRUCTIONS":PRINT"       3.   [195]HANGE [204]EVEL"
  21. 65 PRINT"       4.   [209]UIT"
  22. 70 PRINT" --------------------------------------"
  23. 75 PRINT"       [208]RESS A NUMBER KEY (1-4) ";
  24. 80 GETG$:IFG$<"1"ORG$>"4"THEN80
  25. 85 ONVAL(G$)GOSUB245,95,190,90:GOTO45
  26. 90 GOTO1145
  27. 95 PRINT"[147][142]":SYSA,4,0:GOSUB655:SYSA,15,12:PRINT"[150]SAVE YOUR LIFE"
  28. 100 PRINT"A GAME OF SPEED AND SKILL"
  29. 105 POKE198,0:SYSA,23,6:PRINT" PRESS <SPACE> TO CONTINUE [146][151]"
  30. 110 GETG$:IFG$<>" "THEN110
  31. 115 PRINT"[147] [210]OBOT [205]ULTIPLIER          [201]NSTRUCTIONS"
  32. 120 PRINT" --------------------------------------"
  33. 125 PRINT"   [217]OU ARE A VICTIM OF A BRUTAL ATTACK"
  34. 130 PRINT" BY A VICIOUS ROBOT.  [212]HE ONLY WAY TO"
  35. 135 PRINT" GET AWAY FROM THE BEAST IS TO BUILD A"
  36. 140 PRINT" WALL AT LEAST 10 BRICKS HIGH WHICH"
  37. 145 PRINT" THE CREATURE WILL NOT BE ABLE TO KNOCK"
  38. 150 PRINT" DOWN. [212]HUS, YOU MAY ESCAPE. [211]HOULD"
  39. 155 PRINT" YOUR WALL NOT BE 10 HIGH AT THE"
  40. 160 PRINT" ARRIVAL OF THE ROBOT, HE WILL BREAK"
  41. 165 PRINT" DOWN THE WALL AND YOU LOSE.  [212]RY YOUR"
  42. 170 PRINT" LUCK AND TEST YOUR SKILL.":GOSUB230
  43. 175 PRINT"[147][151] [215]HEN EACH PROBLEM APPEARS TYPE THE"
  44. 180 PRINT" ANSWER AND THEN HIT THE [210][197][212][213][210][206] KEY."
  45. 185 PRINT"           [215]ELL...[199]OOD [204]UCK!":GOSUB230:RETURN:GOSUB230
  46. 190 PRINT"[147]  [199][197][212] [204][197][214][197][204][211] [192]":PRINT"  [201]N THIS PROGRAM THERE ARE 5 LEVELS"
  47. 195 PRINT"  OF PLAY. 1 IS FAIRLY SLOW AND 5 IS":PRINT"  QUITE FAST."
  48. 200 PRINT"  [204]AST LEVEL:";LD:PRINT"[215]HAT LEVEL (1-5) ";
  49. 205 GETG$:IFG$<"1"ORG$>"5"THEN205
  50. 210 LD=VAL(G$):PRINTLD:PRINT"  [204]AST: HIGH:";H;"LOW:";LP
  51. 215 INPUT"  [215]HAT IS THE HIGHEST NUMBER ";H
  52. 220 PRINT"  [215]HAT IS THE LOWEST NUMBER "
  53. 225 INPUT"  [196]O NOT USE ZERO -          ";LP:GOSUB230:RETURN
  54. 230 POKE198,0:SYSA,23,6:PRINT" [208]RESS <[211][208][193][195][197]> TO CONTINUE [146][152]"
  55. 235 GETG$:IFG$<>" "THEN235
  56. 240 RETURN
  57. 245 PRINT"[147][142][129]";:GOSUB655
  58. 250 SYSA,1,35:PRINT"[215][157][157][150][215][158][209][150][215][157][157][157][157][215][158][209][150][215][158][209][215][157][157][157][157][150][215][158][209][150][215][157][157][215]"
  59. 255 IFH=0ORLP=0THENH=12:LP=1
  60. 260 IFLD=0THENLD=1
  61. 265 C=0:B=0:L=0:Y=0:A$="":N=0:Z=0:Q=0:E=0:IFLD=5THENV$="000000"
  62. 270 IFLD=4THENV$="000001"
  63. 275 IFLD=3THENV$="000002"
  64. 280 IFLD=2THENV$="000003"
  65. 285 IFLD=1THENV$="000004"
  66. 290 R=1:F=1:B=1:N=U+783
  67. 295 SYSA,19,0:PRINT"[151][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187][146]";
  68. 300 FORT=1TO3:PRINT"[161]"SPC(38)"[161][146]";:NEXT
  69. 305 PRINT"[188][146][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][190][146]";
  70. 310 SYSA,20,1:PRINT"[150][209][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][209]";
  71. 315 PRINTSPC(5)"MULTIPLY -                       ";
  72. 320 PRINT"[150][209][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][209]";
  73. 325 FORI=1TO3:IFI=1THENGOSUB495
  74. 330 IFI=2THENGOSUB500
  75. 335 IFI=3THENGOSUB505
  76. 340 B=B+1:SYSA,16,0:PRINTTAB(B)A$;:GOSUB685:FORD=1TO50:NEXT:IFB=30THEN350
  77. 345 NEXT:PRINT:GOTO325
  78. 350 FORQ=0TO4STEP4:FORZ=U+591+QTOU+751+QSTEP40:FORY=1TO3:POKEZ+Y,228
  79. 355 POKEZ+Y+S,2:NEXTY,Z:NEXT:R=1
  80. 360 A$="[157][150][209][157][157][182]:[146][150][181][157][157][157][167][163][165][154]":SYSA,16,31:PRINTA$
  81. 365 A$="[157][150][209][157][157]<:[146][150]>[157][157][157][167][163][165][154]":FORD=1TO1E3:NEXT:SYSA,16,31:PRINTA$:GOSUB510
  82. 370 WW=INT((H-LP)*RND(1))+LP+1:J=INT((H-LP)*RND(1))+LP+1:X=18
  83. 375 IFWW>9ORJ>9THENX=17
  84. 380 IFWW>9ANDJ>9THENX=16
  85. 385 IFN=U+383THENGOSUB605
  86. 390 IFN=U+383THENGOTO485
  87. 395 SYSA,21,15:PRINT"                ":SYSA,21,X:PRINT"[152]"WW"X"J"= ":BB$=""
  88. 400 GETAN$:IFF<22ANDTI$>=V$THENGOSUB510
  89. 405 IFF=22THENGOSUB580
  90. 410 IFAN$=""THEN400
  91. 415 V=ASC(AN$):IFV>47ANDV<58ANDLEN(BB$)<6THEN445
  92. 420 IFV=20THEN435
  93. 425 IFV=13THEN460
  94. 430 GOTO455
  95. 435 IFBB$=""THEN455
  96. 440 BB$=LEFT$(BB$,LEN(BB$)-1):SYSA,21,27:PRINTBB$"   ":GOTO455
  97. 445 SYSA,21,26:R=1+LEN(BB$):FORT=1TOR:PRINT"";:NEXT:PRINT"[152]"AN$:R=R+1
  98. 450 BB$=BB$+AN$
  99. 455 GOTO400
  100. 460 IFVAL(BB$)=WW*JTHENGOSUB525:GOTO480
  101. 465 A$="[157][172][150][215][187][157][157][157][150][200]:[146][150][199][157][157][157][167][163][165]":FORD=1TO200:NEXT:SYSA,16,30:PRINTA$
  102. 470 GOSUB705
  103. 475 A$="[157][150] [209] [157][157][157]<:[146][150]>[157][157][157][167][163][165]":FORD=1TO200:NEXT:SYSA,16,30:PRINTA$:GOTO370
  104. 480 GOSUB680:GOTO370
  105. 485 IFN=U+383THENFORD=1TO2E3:NEXT:GOTO1010
  106. 490 FORD=1TO1000:NEXT:RETURN
  107. 495 A$="[157] [150][209][157][157][157] [182]:[146][150][181][157][157][157][157] [167][163][165]":RETURN
  108. 500 A$="[157] [150][215][157][157][157] [206]:[146][150][205][157][157][157][157] [206][163][205]":RETURN
  109. 505 A$="[157] [150][209] [157][157][157][157] [183]:[146][150][183] [157][157][157][157][157] [167][163][165]":RETURN
  110. 510 B$=" '[146][153][187][157][157][157][152] [161][157][157] =[146][184][190][157][157][157][157] :[146][157][157][157] [151][175][152]=[223][146][151][164][157][157][157][157][157] [151][215][185][185][146][215][154]"
  111. 515 SYSA,13,0:PRINTSPC(F)B$:GOSUB700:IFF<17THENGOSUB710
  112. 520 F=F+1:TI$="000000":RETURN
  113. 525 C=C+1:GOSUB690:FORL=1TO3:IFC=1THENPOKEU+591+L,32
  114. 530 IFC=2THENPOKEU+631+L,32
  115. 535 IFC=3THENPOKEU+671+L,32
  116. 540 IFC=4THENPOKEU+711+L,32
  117. 545 IFC=5THENPOKEU+751+L,32
  118. 550 IFC=6THENPOKEU+595+L,32
  119. 555 IFC=7THENPOKEU+635+L,32
  120. 560 IFC=8THENPOKEU+675+L,32
  121. 565 IFC=9THENPOKEU+715+L,32
  122. 570 IFC=10THENPOKEU+755+L,32
  123. 575 POKEN-40+L,228:POKEN-40+L+S,2:NEXT:N=N-40:RETURN
  124. 580 SYSA,14,F+2:PRINT" <[158]<[150]<[154][153]-[157][157][157][157][157]<[150]<<[154]-[150]-[159]-[157][157][157][157][157][157] <[158]<[150]<[153]-":K=5
  125. 585 POKES+24,15:POKES+6,140:POKES+4,17:FORT=1TO4:FORG=1TO255STEPK
  126. 590 POKES+1,G:NEXT:NEXT:POKES+4,32:POKES+6,0:FORD=1TO300:NEXT
  127. 595 PRINT"[147]";:SYSA,19,0:PRINT"[151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";
  128. 600 SYSA,11,16:GOSUB755:GOTO720
  129. 605 FORD=1TO1E3:NEXT:B=30
  130. 610 FORP=1TO3:IFP=1THENGOSUB495
  131. 615 IFP=2THENGOSUB500
  132. 620 IFP=3THENGOSUB505
  133. 625 B=B+1:IFB=35THENGOSUB950
  134. 630 SYSA,16,0:PRINTTAB(B)A$;:GOSUB685:FORD=1TO50:NEXT
  135. 635 IFB=38THENB=28:SYSA,16,38:PRINT"[157]  [157][157][157]    [157][157][157][157]    ":GOSUB1005
  136. 640 IFE=12THEN650
  137. 645 NEXT:E=E+1:GOTO610
  138. 650 RETURN
  139. 655 PRINT"  [146][208]  [146][208]  [146][208]  [146][208] [207] [146][208]":PRINT"  [146][186]  [146][167]  [146][186]  [146][167]   [146]"
  140. 660 PRINT"  [146][205]  [146][186]  [146][186]  [146][186]   [146]"
  141. 665 PRINT"[188] [146][208][208]  [146][167]  [146]  [207] [146][208]  [146]  [146][208]  [146]   [146][167]"
  142. 670 PRINT"  [146][167][167]  [146][167]  [146]    [146]   [146]  [146][186]  [146]   [146][186]"
  143. 675 PRINT"  [146][167][167]  [146][186]  [146][186]   [146]   [146]  [146]   [146][186] [161][146][161][152]":RETURN
  144. 680 SYSA,16,29:PRINT"[150][205][215][157][157] ";:GOSUB900:PRINT"[157]<[145][157] [209]":RETURN
  145. 685 POKE54296,0:POKE54296,8:RETURN
  146. 690 S=54272:POKES+24,15:POKES+5,51:POKES+6,211:POKES+4,33:POKES+1,63:POKES,75
  147. 695 POKES+4,32
  148. 700 FORT=15TO1STEP-1:POKE54296,T:POKE54296,0:NEXT:RETURN
  149. 705 FORT=30TO1STEP-1:POKE54296,T:POKE54296,T+8:POKE54296,0:NEXT:RETURN
  150. 710 SYSA,15,F+4:PRINT"[150]([158]([153]([159]-[145][145][157][157][157][157][157][157][157][150]([146]":GOSUB940:FORD=1TO20:NEXT
  151. 715 SYSA,15,F+4:PRINT"    [145][145][157][157][157][157][157][157][157]'[146]":RETURN
  152. 720 SYSA,12,16:PRINT"[151]           [219]      [176][192][192][192][174]"
  153. 725 PRINTTAB(16)"           [221]      [151][221]RIP[151][221]"
  154. 730 PRINTTAB(16)"[151]           [221]      [173][192][192][192][189]"
  155. 735 PRINTTAB(16)"      [175][175][175][204][175][175][175][204][175][175][175][146]      "
  156. 740 PRINTTAB(16)"    [175][175][175][204][175][175][204][175][175][175][204][175][175][186][175][175][146]  "
  157. 745 PRINTTAB(16)"     [165] [205] [146][172][175][183][183][146][150][209][181][206]  [165] [167][223]"
  158. 750 PRINTTAB(16)" [152]  [163] [163] [163] [163] [163] [163] [163] [163] [163] [163] [146]  ":GOTO795
  159. 755 SYSA,13,10:PRINTB$:GOSUB880:SYSA,12,16:PRINT"[158].  [215] [205]    *    [206] [215]  ."
  160. 760 SYSA,12,16:PRINTTAB(16)"[150] . [150][215] [158][205]   [146] [150]* [169][146]  [158][206] [150][215] ."
  161. 765 PRINTTAB(16)"    [146] [158][164]  [150][205]   [206]  [158][164]  [175][146]  "
  162. 770 PRINTTAB(16)"[158][215]   [146]  [150][205] [158][205] [150]! [158][206] [150][206]  [158][206]  [215]"
  163. 775 PRINTTAB(16)"  [150][164]  [150][205] [158][205] [150]* * [183][146] [158][206]  [175][175][146]  "
  164. 780 PRINTTAB(16)"[150]   [205] [158][205][183][183][146]  [158]!  [164][146] [158][206] [150][206]"
  165. 785 PRINTTAB(16)"[158]  [150][205] [158][205]  [150][205] [205] [206] [150][206]  [158][206] [150][206] [158][206]"
  166. 790 PRINTTAB(16)"[162] [146] [163][163][146] [183][183][183][146] [163][163][163][146] [162]  [146][162] [163][184][163][154]":FORD=1TO2E3:NEXT:RETURN
  167. 795 SYSA,1,4:PRINT"[176][178][174][178] [178][176][192][174]":PRINT"     [221] [171][192][179][171][192]":PRINT"     [177] [177] [177][173][192][189]"
  168. 800 PRINT"      [167][183][208][167][183][208][167][183][205][167][183][208][167][208][208]":PRINT"      [167][175][186][167] [167][167][175][186][167] [167] [167]"
  169. 805 PRINT"      [167] [205][167][175][186][167][175][186][167][175][186] [167]":PRINT"[150]                     [175]"
  170. 810 PRINT"           [178] [178][176][192][174][178][192][174][160][221]":PRINT"           [221][221][221][221] [221][221] [221] [221]"
  171. 815 PRINT"           [173][177][189][173][192][189][177] [177] [221]"
  172. 820 PRINTTAB(21)"[215]":FORZ=1TO4:GOSUB920:NEXT
  173. 825 SYSA,21,12:PRINT"PLAY AGAIN  [158]Y/N"
  174. 830 GETG$:IFG$<>"Y"ANDG$<>"N"THEN830
  175. 835 IFG$="Y"THEN40
  176. 840 GOTO1145
  177. 845 SYSA,12,16:PRINTTAB(16)"[150] . [150][215] [158][205]   [146] [150]* [169][146]  [158][206] [150][215] ."
  178. 850 PRINTTAB(16)"    [146] [158][164]  [150][205]   [206]  [158][164]  [175][146]  "
  179. 855 PRINTTAB(16)"[158][215]   [146]  [150][205] [158][205] [150]! [158][206] [150][206]  [158][206]  [215]"
  180. 860 PRINTTAB(16)"  [150][164]  [150][205] [158][205] [150]* * [183][146] [158][206]  [175][175][146]  "
  181. 865 PRINTTAB(16)"[150]   [205] [158][205][183][183][146]  [158]!  [164][146] [158][206] [150][206]"
  182. 870 PRINTTAB(16)"[158]  [150][205] [158][205]  [150][205] [205] [206] [150][206]  [158][206] [150][206] [158][206]"
  183. 875 PRINTTAB(16)"[162] [146] [163][163][146] [183][183][183][146] [163][163][163][146] [162]  [146][162] [163][184][163][154]"
  184. 880 S=54272:POKES+24,15:POKES+5,24:POKES+6,237:POKES+12,24:POKES+13,237
  185. 885 POKES+4,129:POKES+11,129:POKES,INT(RND(1)*50):POKES+1,INT(RND(1)*4)+1
  186. 890 POKES+7,INT(RND(1)*50)+50:POKES+8,INT(RND(1)*4)+5:POKES+4,128:POKES+11,128
  187. 895 RETURN
  188. 900 S=54272:FORT=STOS+23:POKET,0:NEXT
  189. 905 POKES+24,15:POKES+5,9:POKES+4,17:FORT=80TO140STEP4:POKES+1,J:NEXT
  190. 910 POKES+4,0:POKES+5,74:FORD=1TO120:NEXT:POKES+4,17:FORT=100TO120:POKES+1,T
  191. 915 NEXT:FORT=120TO60STEP-0.4:POKES+1,T:NEXT:POKES+4,0:RETURN
  192. 920 FORT=30TO0STEP-1:POKE54296,T:POKE54296,T+6:NEXT:RETURN
  193. 925 FORT=60TO0STEP-1:POKE54296,T:POKE54296,0:NEXT:RETURN
  194. 930 IFF=22THENSYSA,14,F+2:PRINT" <[158]<[150]<[154][153]-[157][157][157][157][157]<[150]<<[154]-[150]-[159]-[157][157][157][157][157][157] <[158]<[150]<[153]-"
  195. 935 RETURN:SYSA,14,F+2:PRINT" <[158]<[150]<[154][153]-[157][157][157][157][157]<[150]<<[154]-[150]-[159]-[157][157][157][157][157][157] <[158]<[150]<[153]-":K=5
  196. 940 POKES+24,15:POKES+6,140:POKES+4,17:FORT=1TO4:FORG=1TO255STEPK
  197. 945 POKES+1,G:NEXT:NEXT:POKES+4,32:POKES+6,0:RETURN
  198. 950 W=INT(RND(1)*8)+1:SYSA,11,27
  199. 955 ONWGOTO960,965,970,975,980,985,990,995
  200. 960 PRINT" WHIZ KID!! ":GOTO1000
  201. 965 PRINT" SUPERBOY!! ":GOTO1000
  202. 970 PRINT"[153] I'M GOOD!! ":GOTO1000
  203. 975 PRINT"[156] WHIZZEROO! ":GOTO1000
  204. 980 PRINT"[150] MATH WIZARD":GOTO1000
  205. 985 PRINT" EINSTEIN!! ":GOTO1000
  206. 990 PRINT"[158] GENIUS PLUS":GOTO1000
  207. 995 PRINT"[154] KNOWITALL! ":GOTO1000
  208. 1000 RETURN
  209. 1005 SYSA,11,27:PRINT"            ":RETURN
  210. 1010 PRINT"[147][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
  211. 1015 PRINT"[165] [150]    [146] [167] [167]    [146][188]   [146][183][208][188]   [146][183][208]    [146][183][208]    [146][183][208] [167]";
  212. 1020 PRINT"[165] [158]    [146] [150][167] [167] [158]   [146]    [146] [150][167] [158]   [146] [150][167] [158]   [146][150][192]  [158]   [146][150][175][186] [167]";
  213. 1025 PRINT"[165] [150]    [146][175][186][175][186]    [146]    [146] [167]    [146] [167]    [146][175][186]    [146] [205] [167]";
  214. 1030 PRINT"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
  215. 1035 SYSA,19,0:PRINT"[151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";
  216. 1040 SYSA,9,0:PRINT"    [154][209]         [209]           [158][209]          [156][209]"
  217. 1045 PRINT"  [209] [152][221]  [158][209]   [154][209]  [152][221]  [209]    [156][209]  [154][209][152][221]     [158][209]    [152][221][150][209]"
  218. 1050 PRINT"  [152][221] [203]  [221]   [221]  [202][209] [152][221]    [221]  [221][202] [156][209]   [152][221]   [154][209][152][203][221]"
  219. 1055 PRINT"  [202] [150][209]    [209] [152][203] [129][209] [152][221]   [154][209]  [152][202] [150][209]  [150][209][152][221]     [154][209] [152][221]  "
  220. 1060 PRINT" [153][209]  [152][221] [158][209]  [152][221][154][209]  [152][221]  [209]  [152][221] [158][209]  [152][221][209] [152][221][202]  [158][209]  [152][221]  [154][209]"
  221. 1065 PRINT" [152][221][209] [152][202] [221]   [221] [209][152][202]  [221]    [221]   [221]  [150][209]  [152][221]  [203]  [221] "
  222. 1070 PRINT" [203][221]       [202] [221]   [203]        [202]  [221]        [203] ":PRINT"            [203]"
  223. 1075 FORB=15TO25:FORP=1TO3:IFP=1THENGOSUB495
  224. 1080 IFP=2THENGOSUB500
  225. 1085 IFP=3THENGOSUB505
  226. 1090 SYSA,16,0:PRINTTAB(B)A$;:GOSUB685:FORD=1TO70:NEXT:NEXT:NEXT
  227. 1095 FORB=25TO15STEP-1:FORP=1TO3
  228. 1100 IFP=1THENGOSUB495
  229. 1105 IFP=2THENGOSUB500
  230. 1110 IFP=3THENGOSUB1150
  231. 1115 SYSA,16,0:PRINTTAB(B)A$;:GOSUB685:FORD=1TO70:NEXT:NEXT:NEXT
  232. 1120 SYSA,16,13:PRINT"[150][205][215][157][157] ":FORD=1TO150:NEXT:SYSA,14,12:PRINT" [157][209][157][152][221][150][205][157][157][152]
  233. 1125 [158]A,15,12:[153]" CMD(null) CMDCMDPRINT#(null)DEFUSR>CMDCMDCMDCMDPRINT#(null)"
  234. 1130 [158]A,22,12:[153]"PLAY AGAIN   SYSY/N"
  235. 1135 [161]G$:[139]G$[179][177]"Y"[175]G$[179][177]"N"[167]1135
  236. 1140 [139]G$[178]"Y"[167]40
  237. 1145 [151]53280,14:[151]53281,6:[153]"LOADCONT":[128]
  238. 1150 A$[178]"CMDCMD DEF(null) CMDCMDCMDCMD USR:WAITDEFUSR CMDCMDCMDCMDCMD THENTAB(FN ":[142]
  239.