home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 79 / 64er_Magazin_Sonderheft_79_19xx_Markt__Technik_de_Side_B.d64 / basic.tron (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.