home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh7x / sh79b.d64 / basic.tron (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  5KB  |  233 lines
  1. 10 POKE53280,6:POKE53281,6:POKE53269,1
  2. 20 SYS4096:POKE2040,11
  3. 30 LO$="DEMO":GOSUB740
  4. 40 PRINT"[147][144]";CHR$(14);TAB(9);:POKE53248,0
  5. 50 PRINT"[212]RON [195]ONSTRUCTION [211]ET"
  6. 60 IFCO=0THENPRINT"";
  7. 70 PRINT"[155]";TAB(13);
  8. 80 PRINT"[195]ONSTRUCTION"
  9. 90 IFCO=1THENPRINT"";
  10. 100 PRINT"";TAB(15);
  11. 110 PRINT"[211]PIELEN"
  12. 120 JO=PEEK(254)
  13. 130 IF(JOAND1)=0THENCO=0:GOTO60
  14. 140 IF(JOAND2)=0THENCO=1:GOTO60
  15. 150 IF(JOAND16)=0THEN170
  16. 160 GOTO60
  17. 170 JO=PEEK(254):IF(JOAND16)=0THEN170
  18. 180 IFCO=1THENGOTO1780
  19. 190 PRINT"[147]";TAB(31);"[144][212]RON"
  20. 200 PRINTTAB(27);"[195]ONSTRUCTION"
  21. 210 PRINTTAB(31);"[211]ET:
  22. 220 [153][163]27);"PEEKY (null).CHR$UENTER"
  23. 230 [153][163]28);"LISTVALDITOR"
  24. 240 [153][163]28);"STOP* LIST(null)OAD"
  25. 250 [153][163]28);"STOP* LIST(null)AVE"
  26. 260 [153][163]28);"STOP* LISTVALDIT"
  27. 270 [153][163]28);"STOP* LISTVALXIT"
  28. 280 [129]Q[178]0[164]24:[151]1049[170]Q[172]40,93:[151]55321[170]Q[172]40,0:[130]:PO[178]1
  29. 290 [153][163]25);"STOP-TANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
  30. 300 [158]4099
  31. 310 [151]1024[170]40[172][194](51826)[170][194](51825),177
  32. 320 [151]1024[170]40[172][194](51828)[170][194](51827),178
  33. 330 [151]1024[170]40[172][194](51830)[170][194](51829),193
  34. 340 [151]1024[170]40[172][194](51832)[170][194](51831),194
  35. 350 Y[178]7:R[178]4:[141]530:[139]E[178]1[167]350
  36. 360 [145]PO[137]380,430,480,40
  37. 370 [137]350
  38. 380 [153][163]28);"LISTASCILENAME ?"
  39. 390 R[178]1932:[141]610
  40. 400 LO$[178]NA$:[141]740
  41. 410 [141]690
  42. 420 [137]300
  43. 430 [153][163]28);"LISTASCILENAME ?"
  44. 440 R[178]1932:[141]610
  45. 450 SA$[178]NA$:[141]870
  46. 460 [141]690
  47. 470 [137]350
  48. 480 [153][163]28);"STOP* LIST(null)ETZEN"
  49. 490 [153][163]28);"STOP* LIST(null)OESCHEN"
  50. 500 [153][163]28);"STOP* LISTVALXIT"
  51. 510 [158]4099:[141]1210
  52. 520 [141]690:[137]350
  53. 530 JO[178][194](254):E[178]0
  54. 540 [139](JO[175]1)[178]0[175]PO[177]1[167]PO[178]PO[171]1:
  55. 550 [139](JO[175]2)[178]0[175]PO[179]R[167]PO[178]PO[170]1
  56. 560 [139](JO[175]4)[178]0[167]E[178]1:[142]
  57. 570 [151]53248,248:[151]53249,50[170](Y[170]2[172]PO)[172]8
  58. 580 [139](JO[175]16)[179][177]0[167]530
  59. 590 JO[178][194](254):[139](JO[175]16)[178]0[167]590
  60. 600 [151]53248,0:[142]
  61. 610 AN[178]0:NA$[178]""
  62. 620 [151]198,0:[146]198,1:[161]IN$
  63. 630 [139][198](IN$)[178]20[167][129]Q[178]0[164]AN:[151]R[170]Q,32:[130]:[137]610
  64. 640 [139][198](IN$)[178]13[175]AN[178]0[167][137]620
  65. 650 [139][198](IN$)[178]13[167][142]
  66. 660 [139]IN$[179]"A"[176]IN$[177]"Z"[167][137]620
  67. 670 NA$[178]NA$[170]IN$:[151]R[170]AN,[198](IN$):AN[178]AN[170]1:[139]AN[178]10[167]AN[178]9:NA$[178][200](NA$,9)[170]IN$
  68. 680 [137]620
  69. 690 [153]"":[129]Q[178]0[164]16:[153]:[130]
  70. 700 [129]Q[178]0[164]4
  71. 710 [153][163]28);"           "
  72. 720 [130]:[153]"ONONONONONON"
  73. 730 [142]
  74. 740 [159]15,8,15,"I0"
  75. 750 [159]1,8,2,"0:"[170]LO$[170]".TRON,S,R"
  76. 760 [132]15,A
  77. 770 [139]A[179][177]0[167][137]1150
  78. 780 [129]Q[178]0[164]632
  79. 790 [161]#1,A$:[151]51200[170]Q,[198](A$[170][199](0))
  80. 800 [130]:[160]1
  81. 810 [159]1,8,2,"0:"[170]LO$[170]".SCORE,S,R"
  82. 820 [132]15,A
  83. 830 [139]A[179][177]0[167][137]1150
  84. 840 [129]Q[178]0[164]4
  85. 850 [132]1,SC$(Q),SC(Q)
  86. 860 [130]:[160]1:[160]15:[142]
  87. 870 [159]15,8,15,"I0"
  88. 880 [159]1,8,2,"0:"[170]SA$[170]".TRON,S,W"
  89. 890 [132]15,A:[139]A[178]0[167][137]980
  90. 900 [139]A[179][177]63[167][137]1150
  91. 910 [141]690:[153][163]28);"STOPASCILE EXISTS"
  92. 920 [153][163]28);"* LIST(null)CRATCHEN"
  93. 930 [153][163]28);"STOP* LISTVALXIT"
  94. 940 Y[178]19:PO[178]1:R[178]2:[141]530:[139]E[178]1[167]940
  95. 950 [139]PO[178]2[167][160]1:[160]15:[142]
  96. 960 [152]15,"S0:"[170]SA$[170]".TRON"
  97. 970 [160]1:[137]880
  98. 980 [129]Q[178]0[164]3:A$[178]"":[129]W[178]0[164]158
  99. 990 A$[178]A$[170][199]([194](51200[170]Q[172]159[170]W)):
  100. 1000 [130]:[152]1,A$;:[130]:[160]1:LO$[178]SA$
  101. 1010 [159]1,8,2,"0:"[170]SA$[170]".SCORE,S,W"
  102. 1020 [132]15,A:[139]A[178]0[167]1110
  103. 1030 [139]A[179][177]63[167][137]1150
  104. 1040 [141]690:[153][163]28);"STOPLEFT$IGHSCORE :"
  105. 1050 [153][163]28);"* LIST(null)OESCHEN"
  106. 1060 [153][163]28);"STOP* LISTVALXIT"
  107. 1070 Y[178]19:PO[178]1:R[178]2:[141]530:[139]E[178]1[167]1070
  108. 1080 [139]PO[178]2[167][160]1:[160]15:[141]740:[142]
  109. 1090 [152]15,"S0:"[170]SA$[170]".SCORE"
  110. 1100 [160]1:[137]1010
  111. 1110 [129]Q[178]0[164]4
  112. 1120 [152]1,"---------":[152]1,0:SC$(Q)[178]"---------":SC(Q)[178]0
  113. 1130 [130]
  114. 1140 [160]1:[160]15:[142]
  115. 1150 [141]690:[153][163]28);"STOPSTR$ISKERRORLIST"
  116. 1160 [153][163]30);A
  117. 1170 [139]([194](254)[175]16)[179][177]0[137]1170
  118. 1180 [139]([194](254)[175]16)[178]0[137]1180
  119. 1190 [160]1:[160]15
  120. 1200 [142]
  121. 1210 Y[178]17:PO[178]1:R[178]3:[141]530
  122. 1220 [139]E[178]1[167][137]1260
  123. 1230 [139]PO[178]1[167]S[178]1:[137]1260
  124. 1240 [139]PO[178]2[167]S[178]0:[137]1260
  125. 1250 [137]1280
  126. 1260 [141]1530
  127. 1270 [137]1210
  128. 1280 [141]690
  129. 1290 [153][163]28);"STOP(null)LAYER 1 :"
  130. 1300 [153][163]28);"LIST(null)ETZEN"
  131. 1310 X1[178][194](51825):Y1[178][194](51826)
  132. 1320 S[178]177:[141]1650
  133. 1330 [151]51825,X1:[151]51826,Y1
  134. 1340 [141]690
  135. 1350 [153][163]28);"STOP(null)LAYER 2 :"
  136. 1360 [153][163]28);"LIST(null)ETZEN"
  137. 1370 X1[178][194](51827):Y1[178][194](51828)
  138. 1380 S[178]178:[141]1650
  139. 1390 [151]51827,X1:[151]51828,Y1
  140. 1400 [141]690
  141. 1410 [153][163]28);"STOPCHR$EGNER ATN :"
  142. 1420 [153][163]28);"LIST(null)ETZEN"
  143. 1430 X1[178][194](51829):Y1[178][194](51830)
  144. 1440 S[178]193:[141]1650
  145. 1450 [151]51829,X1:[151]51830,Y1
  146. 1460 [141]690
  147. 1470 [153][163]28);"STOPCHR$EGNER PEEK :"
  148. 1480 [153][163]28);"LIST(null)ETZEN"
  149. 1490 X1[178][194](51831):Y1[178][194](51832)
  150. 1500 S[178]194:[141]1650
  151. 1510 [151]51831,X1:[151]51832,Y1
  152. 1520 [142]
  153. 1530 JO[178][194](254)
  154. 1540 [139](JO[175]1)[178]0[175]Y1[177]0[167]Y1[178]Y1[171]1
  155. 1550 [139](JO[175]2)[178]0[175]Y1[179]24[167]Y1[178]Y1[170]1
  156. 1560 [139](JO[175]4)[178]0[175]X1[177]0[167]X1[178]X1[171]1
  157. 1570 [139](JO[175]8)[178]0[175]X1[178]24[167][142]
  158. 1580 [139](JO[175]8)[178]0[175]X1[179]24[167]X1[178]X1[170]1
  159. 1590 [151]53248,24[170]X1[172]8:[151]53249,50[170]Y1[172]8
  160. 1600 [139](JO[175]16)[178]0[167][137]1620
  161. 1610 [137]1530
  162. 1620 [151]51200[170]Y1[172]25[170]X1,S
  163. 1630 [158]4099
  164. 1640 [137]1530
  165. 1650 JO[178][194](254)
  166. 1660 [139](JO[175]1)[178]0[175]Y1[177]0[167]Y1[178]Y1[171]1
  167. 1670 [139](JO[175]2)[178]0[175]Y1[179]24[167]Y1[178]Y1[170]1
  168. 1680 [139](JO[175]4)[178]0[175]X1[177]0[167]X1[178]X1[171]1
  169. 1690 [139](JO[175]8)[178]0[175]X1[179]24[167]X1[178]X1[170]1
  170. 1700 [151]53248,24[170]X1[172]8:[151]53249,50[170]Y1[172]8
  171. 1710 [139](JO[175]16)[178]0[167][137]1730
  172. 1720 [137]1650
  173. 1730 PE[178][194](1024[170]Y1[172]40[170]X1)
  174. 1740 [139]PE[178]32[167][141]690:[153][163]28);"STOP(null)OCH !!!":[137]1650
  175. 1750 [139]PE[179][177]160[167][141]690:[153][163]28);"STOPPEEKESETZT !!!":[137]1650
  176. 1760 [151]1024[170]Y1[172]40[170]X1,S
  177. 1770 [142]
  178. 1780 [153]"LOADSTOP";[163]9);
  179. 1790 [153]"(null)RON LENONSTRUCTION (null)ET"
  180. 1800 [139]PL[178]0[167][153]"";
  181. 1810 [153]"LIST";[163]14);
  182. 1820 [153]"(null)NE (null)LAYER"
  183. 1830 [139]PL[178]1[167][153]"";
  184. 1840 [153]"";[163]14);
  185. 1850 [153]"(null)WO (null)LAYERS"
  186. 1860 JO[178][194](254):E[178]0
  187. 1870 [139](JO[175]1)[178]0[167]PL[178]0:[137]1800
  188. 1880 [139](JO[175]2)[178]0[167]PL[178]1:[137]1800
  189. 1890 [139](JO[175]16)[178]0[167]1910
  190. 1900 [137]1800
  191. 1910 JO[178][194](254):[139](JO[175]16)[178]0[167]1910
  192. 1920 [153]"LOAD";[163]14);"STOPLEFT$IGHSCORES :LIST"
  193. 1930 [129]Q[178]0[164]4
  194. 1940 [153][163]9);Q[170]1;"   ";
  195. 1950 [153][200](SC$(Q)[170]"         ",10);
  196. 1960 [153][201]("      "[170][196](SC(Q)),6);""
  197. 1970 [130]Q
  198. 1980 [139]([194](254)[175]16)[179][177]0[167][137]1980
  199. 1990 [158]4102,PL:[153][199](14):[139]PL[178]1[167][137]2240.
  200. 2000 SC[178][194](250)[170]256[172][194](251)
  201. 2010 [139]SC[179]SC(4)[167][137]2230
  202. 2020 [153]"LOAD";[163]14);"STOPCHR$AME (null)VER :LIST":X[178][171]1:Y[178]0
  203. 2030 [129]Q[178]0[164]4
  204. 2040 [153][163]9);Q[170]1;"   ";
  205. 2050 [139]SC(Q)[177]SC[176]Y[178]1[167][153][200](SC$(Q[171]Y)[170]"         ",10);:[137]2070
  206. 2060 [153]"          ";:X[178]Q:Y[178]1
  207. 2070 [139]Q[178]X[167][153][201]("      "[170][196](SC),6);"":[137]2090
  208. 2080 [153][201]("      "[170][196](SC(Q[171]Y)),6);""
  209. 2090 [130]Q
  210. 2100 R[178]1399[170]120[172]X:[141]610
  211. 2110 Y[178]1:[129]Q[178]4[164]0[169][171]1
  212. 2120 [139]Q[178]X[167]SC(Q)[178]SC:SC$(Q)[178]NA$:Y[178]0:[137]2140
  213. 2130 SC(Q)[178]SC(Q[171]Y):SC$(Q)[178]SC$(Q[171]Y)
  214. 2140 [130]
  215. 2150 [159]15,8,15,"I0"
  216. 2160 [152]15,"S0:"[170]LO$[170]".SCORE"
  217. 2170 [159]1,8,2,"0:"[170]LO$[170]".SCORE,S,W"
  218. 2180 [129]Q[178]0[164]4
  219. 2190 [152]1,SC$(Q):[152]1,SC(Q)
  220. 2200 [130]
  221. 2210 [160]1
  222. 2220 [160]15
  223. 2230 [151]53248,0:[151]53264,0:[151]53269,1:[151]53276,0:[151]2040,11:[137]40
  224. 2240 [153]"LOAD";[163]14);"STOPCHR$AME (null)VER :LIST"
  225. 2250 [153][163]12);"(null)LAYER 1 :";:S1[178][194](250)[170]256[172][194](251):[153]S1
  226. 2260 [153][163]12);"(null)LAYER 2 :";:S2[178][194](252)[170]256[172][194](253):[153]S2
  227. 2270 [139]S1[177]S2[167][153][163]12);"DEF(null)LAYER 1 WINS !":[137]2300
  228. 2280 [139]S1[179]S2[167][153][163]12);"CONT(null)LAYER 2 WINS !":[137]2300
  229. 2290 [153][163]12);"(null)O (null)INNERS !"
  230. 2300 [139]([194](254)[175]16)[179][177]0[167][137]2300
  231. 2310 [139]([194](254)[175]16)[178]0[167][137]2310
  232. 2320 [151]53248,0:[151]53264,0:[151]53269,1:[151]53276,0:[151]2040,11:[137]40
  233.