home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 34 / Commodore_Disc_34_19xx_-_de.d64 / tapemaster (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  13.3 KB  |  476 lines
  1. 100 rem"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  2. 110 [143]"(NULL)(NULL)atn(NULL)val(NULL)atn(NULL)(NULL)val(NULL) 2.0  (NULL)
  3. 120 rem"[221]                [221]
  4. 130 [143]"(NULL)(NULL)ritten by      (NULL)
  5. 140 rem"[221][199]unnar [200]abitz   [221]
  6. 150 [143]"(NULL)08/1989         (NULL)
  7. 160 rem"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
  8. 170 :
  9. 180 [151]808,225:[151]788,52:[151]792,193
  10. 190 [151]53269,0:[151]53264,0:[151]53280,0:[151]53281,0:[151]650,128
  11. 200 [153]"loadlist";:dd[178]4:da[178]4:ds[178]7:ys[178]15:[160]5:[159]5,8,15
  12. 210 cc$[178]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
  13. 220 cs$[178]"                                       "
  14. 230 cx$[178]""
  15. 240 cy$[178]"-tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan<"
  16. 250 ty$[178]"lenounter  (NULL)itel                    right$nterpret                 (NULL)eit  "
  17. 260 c$[178]"":o$[178]"":q$[178]""
  18. 270 [134]a$(15),d$(13),f$(17),h$(12),n$(13),t(17)
  19. 280 [134]t$(14,1),i$(14,1),c$(14,1),z$(14,1)
  20. 290 [129]i[178]1[164]13:[135]n$(i):[130]
  21. 300 [129]i[178]1[164]12:[135]h$(i):[130]
  22. 310 [129]i[178]0[164]15:[135]a$(i):[130]
  23. 320 [129]i[178]0[164]17:[135]t(i):[130]
  24. 330 [129]i[178]832[164]1022:[135]a:[151]i,a:[130]
  25. 340 [129]i[178]53100[164]53165:[135]a:[151]i,a:[130]
  26. 350 [151]2041,13:[151]2042,14:[151]2043,15:[151]53271,14:[151]53277,14:[151]53250,191
  27. 360 [151]53251,127:[151]53252,239:[151]53253,127:[151]53254,31:[151]53255,127
  28. 370 [151]53288,15:[151]53289,15:[151]53290,15:[151]53264,8
  29. 380 [137]1700
  30. 390 :
  31. 400 [143]"ortantantantantan^
  32. 410 rem"[221][196]atas[221]
  33. 420 [143]"/tantantantantanexp
  34. 430 :
  35. 440 data"[212]itel [193]","[201]nterpret [193]","[212]itel [194]","[201]nterpret [194]","[206]ummer","[205]arke/[212]yp"
  36. 450 data"[204]aenge","[206]oise [210]ed.","[193]ufnahme","[194]andsorte","[196]atum","[209]uelle","[206]ame"
  37. 460 data"e","f","g","h","","","-1","-0","s0","t","3","3$"
  38. 470 data"[211]chwarz","[215]eiss","[210]ot","[212]uerkis","[214]iolett","[199]ruen","[194]lau"
  39. 480 data"[199]elb","[207]range","[194]raun","[200]ellrot","[196]unkelgrau","[205]ittelgrau"
  40. 490 data"[200]ellgruen","[200]ellblau","[200]ellgrau"
  41. 500 data0,17,16,17,16,4,12,3,7
  42. 510 data6,6,10,6,16,23,22,4,5
  43. 520 data255,255,255,128,0,0,128,48,0
  44. 530 data128,63,131,128,48,6,128,48,6
  45. 540 data128,48,6,128,31,131,128,0,0
  46. 550 data128,0,0,184,112,96,156,224,32
  47. 560 data151,96,112,146,96,152,144,97,252
  48. 570 data144,98,6,184,247,15,128,0,0
  49. 580 data255,255,255,0,0,0,0,0,0,0
  50. 590 data255,255,255,0,0,0,0,0,0
  51. 600 data248,127,3,24,97,134,24,97,134
  52. 610 data24,97,134,216,111,3,0,96,0
  53. 620 data0,0,0,62,191,247,97,163,19
  54. 630 data96,3,3,63,3,3,1,131,3
  55. 640 data97,131,3,95,7,135,0,0,0
  56. 650 data255,255,255,0,0,0,0,0,0,0
  57. 660 data255,254,0,0,2,0,0,2,0
  58. 670 data248,2,0,48,2,0,96,2,0
  59. 680 data0,2,0,248,2,0,0,2,0
  60. 690 data0,2,0,251,242,0,9,154,0
  61. 700 data33,154,0,225,242,0,33,226,0
  62. 710 data9,178,0,251,218,0,0,2,0
  63. 720 data255,254,0,0,0,0,0,0,0
  64. 730 data174,134,2,165,34,72,165,35,72
  65. 740 data169,0,133,34,169,216,133,35,138
  66. 750 data160,0,145,34,200,192,255,144,249
  67. 760 data145,34,230,35,165,35,201,220,144
  68. 770 data236,104,133,35,104,133,34,96,162
  69. 780 data3,32,198,255,32,207,255,32,210
  70. 790 data255,208,248,169,13,32,210,255,76
  71. 800 data204,255,0
  72. 810 :
  73. 820 rem"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  74. 830 [143]"(NULL)(NULL)nterroutinen(NULL)
  75. 840 rem"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
  76. 850 :
  77. 860 [151]54296,15:[151]54277,0:[151]54278,168:[151]54273,8:[151]54272,180
  78. 870 [151]54276,33:[129]t[178]1[164]150:[130]
  79. 880 [151]54276,0:[151]54277,0:[151]54278,0:[142]
  80. 890 :
  81. 900 [151]211,x:[151]214,y:[158]58640:x[178]0:[142]
  82. 910 :
  83. 920 [160]4:[159]4,da,0:[160]4:[139]st[178]0[167]df[178]0:[142]
  84. 930 y[178]24:[141]900:[153]"str$rucker ausgeschaltetwait";:[141]960
  85. 940 y[178]24:[141]900:[153]"wait"[200](cs$,22)"";:df[178]1:[142]
  86. 950 :
  87. 960 [161]a$:[139]a$[178]""[167]960
  88. 970 [139]a$[178]""[167][151]204,1:[151]207,0:[142]
  89. 980 [142]
  90. 990 :
  91. 1000 y[178]24:[141]900:[153]"(NULL)atn(NULL)(NULL)valwait"
  92. 1010 [161]a$:[139]a$[178]""[167]1010
  93. 1020 y[178]24:[141]900:[153]"wait      "
  94. 1030 [142]
  95. 1040 :
  96. 1050 [143]"ortantantantantantantantantantantantan^
  97. 1060 rem"[221][198]loppyfehler[221]
  98. 1070 [143]"/tantantantantantantantantantantantanexp
  99. 1080 :
  100. 1090 input#5,fa,fb$:iffa<2thenfa=0:return
  101. 1100 gosub860:iffa>19andfa<25orfa=27thenfb$="[204]esefehler"
  102. 1110 iffa=25orfa=28thenfb$="[211]chreibfehler"
  103. 1120 iffa=26thenfb$="[196]ie [196]iskette ist geschuetzt"
  104. 1130 iffa>29andfa<35thenfb$="[194]efehl wird nicht erkannt"
  105. 1140 iffa=62orfa=39thenfb$="[198]ile existiert nicht auf [196]iskette"
  106. 1150 iffa=63thenfb$="[198]ile existiert bereits auf [196]iskette"
  107. 1160 iffa=72thenfb$="[199]esamte [196]iskette ist belegt"
  108. 1170 iffa=73thenfb$="[196]iskette hat falsches [198]ormat"
  109. 1180 iffa=74thenfb$="[203]eine [196]iskette im [204]aufwerk"
  110. 1190 y=24:gosub900:print""+fb$+"[146]":gosub960:y=24:gosub900
  111. 1200 print"[146]"left$(cs$,37)"";:return
  112. 1210 :
  113. 1220 rem"[176][192][192][192][192][192][192][192][192][192][192][192][174]
  114. 1230 [143]"(NULL)(NULL)exteingabe(NULL)
  115. 1240 rem"[173][192][192][192][192][192][192][192][192][192][192][192][189]
  116. 1250 :
  117. 1260 tx$[178]""
  118. 1270 [151]204,0:b$[178]""
  119. 1280 [161]b$:[139]b$[178]""[167]1280
  120. 1290 [139][195](tx$)[178]34[175]b$[178][199](20)[167][153]"cmd  cmdcmd":[153]"oncmdcmdcmdcmd";
  121. 1300 [139][195](tx$)[178]34[175]b$[178][199](20)[167]tx$[178][200](tx$,[195](tx$)[171]1):[137]1280
  122. 1310 [139]b$[178][199](20)[175]tx$[178]""[167]1280
  123. 1320 [139]b$[178][199](20)[167]tx$[178][200](tx$,[195](tx$)[171]1):[153]"cmd  cmdcmd";:[137]1280
  124. 1330 [139]b$[178][199](13)[176]b$[178]""[167][151]204,1:[151]207,0:[153]" ":[142]
  125. 1340 [139]de[177]0[175]b$[178]"^"[167][151]204,1:[151]207,0:[153]" ":[142]
  126. 1350 [139](de[177]0[175]b$[178]"")[167][151]204,1:[151]207,0:[153]" ":[142]
  127. 1360 [139]de[179]2[167]1390
  128. 1370 [139](de[178]2[175]b$[178]"")[176](de[178]2[175]b$[178]"")[167][151]204,1:[151]207,0:[153]" ":[142]
  129. 1380 [139](de[178]2[175]b$[178]"")[176](de[178]2[175]b$[178]"")[167][151]204,1:[151]207,0:[153]" ":[142]
  130. 1390 [139][195](tx$)[178]tl[167]1280
  131. 1400 [139][195](tx$)[178]33[167][153]"wait ":[153]"";
  132. 1410 [139]b$[178][199](34)[167]b$[178]"'"
  133. 1420 [139]b$[177][199](127)[175]b$[179][199](160)[176]b$[179][199](32)[167]1280
  134. 1430 tx$[178]tx$[170]b$:[153]b$;:[137]1280
  135. 1440 :
  136. 1450 [143]"ortantantantantantantan^
  137. 1460 rem"[221][193]uswahl[221]
  138. 1470 [143]"/tantantantantantantanexp
  139. 1480 :
  140. 1490 geta$:ifa$=""then1490
  141. 1500 ifa$=""then1550
  142. 1510 ifa$="[145]"then1600
  143. 1520 if(a$=""ora$="^")anddi=0thenreturn
  144. 1530 ifa$=chr$(13)thenreturn
  145. 1540 goto1490
  146. 1550 ifrx=rgthen1490
  147. 1560 print"[145]"c$f$(rx):rx=rx+1
  148. 1570 ifrm=2andrx<17thenprint""c$f$(rx)"[146]":poke646,rx-1:sys53100:goto1490
  149. 1580 ifrm>0thenprint""c$f$(rx)"[146]":goto1490
  150. 1590 print""c$f$(rx)"[146]":goto1490
  151. 1600 ifrx=1then1490
  152. 1610 print"[145]"c$f$(rx):rx=rx-1
  153. 1620 ifrm=2thenprint"[145][145]"c$f$(rx)"[146]":poke646,rx-1:sys53100:goto1490
  154. 1630 ifrm>0thenprint"[145][145]"c$f$(rx)"[146]":goto1490
  155. 1640 print"[145][145][145]"c$f$(rx)"[146]":goto1490
  156. 1650 :
  157. 1660 rem"[176][192][192][192][192][192][192][192][192][192][192][174]
  158. 1670 [143]"(NULL)left$auptmenue(NULL)
  159. 1680 rem"[173][192][192][192][192][192][192][192][192][192][192][189]
  160. 1690 :
  161. 1700 bl$[178]" left$atn(NULL)(NULL)(NULL)(NULL)val(NULL)(NULL)val ":[141]4560
  162. 1710 [151]53269,14
  163. 1720 [141]4640
  164. 1730 f$(1)[178]"str$esign"
  165. 1740 f$(2)[178]"str$irectory"
  166. 1750 f$(3)[178]"lenommand"
  167. 1760 f$(4)[178]"ascarben"
  168. 1770 f$(5)[178]"valditor"
  169. 1780 f$(6)[178]"valxit"
  170. 1790 y[178]9:[141]900:[153],""[170]f$(1):[129]i[178]2[164]6:[153],f$(i):[130]
  171. 1800 y[178]10:[141]900:rg[178]6:rx[178]1:rm[178]1:di[178]1:[141]1490:di[178]0
  172. 1810 [145]rx[137]1870,2900,3130,3300,3580,3230
  173. 1820 :
  174. 1830 [143]"ortantantantantantantantantantantantantantantan^
  175. 1840 rem"[221][195]assetten-[196]aten[221]
  176. 1850 [143]"/tantantantantantantantantantantantantantantanexp
  177. 1860 :
  178. 1870 de=1:gosub4740
  179. 1880 bl$=" [195][193][211][211][197][212][212][197][206]-[196][193][212][197][206] ":gosub4560:poke53269,0
  180. 1890 fori=1to13:y=i+3:gosub900:print""n$(i):x=15:gosub900:printd$(i):next
  181. 1900 gosub4690:i=0:ifde=3thende=1:goto1990
  182. 1910 i=i+1:y=i+3:x=15+len(d$(i)):gosub900:tx$=d$(i):tl=t(i):gosub1270
  183. 1920 d$(i)=tx$
  184. 1930 ifb$=""then1990
  185. 1940 ifb$="^"andi=1thend$(1)=tx$:de=0:goto1700
  186. 1950 ifb$="^"andi>0theni=i-2
  187. 1960 ifb$=""thende=0:goto1700
  188. 1970 ifi=13then1990
  189. 1980 goto1910
  190. 1990 x=15:y=19:gosub900:poke204,0
  191. 2000 geta$:ifa$=""then2000
  192. 2010 ifa$="^"ora$=""ora$=""ora$=chr$(13)thenpoke204,1:poke207,0:print" "
  193. 2020 ifa$=""then1700
  194. 2030 ifa$=""then2830
  195. 2040 ifa$="^"theni=12:goto1910
  196. 2050 ifa$=chr$(13)thende=0:goto2120
  197. 2060 goto2000
  198. 2070 :
  199. 2080 rem"[176][192][192][192][192][192][192][192][192][192][192][192][192][174]
  200. 2090 [143]"(NULL)(NULL)iteleingabe(NULL)
  201. 2100 rem"[173][192][192][192][192][192][192][192][192][192][192][192][192][189]
  202. 2110 :
  203. 2120 de[178]2
  204. 2130 bl$[178]" (NULL)right$(NULL)val(NULL)valright$(NULL)chr$atnpeekval ":[141]4560
  205. 2140 x[178]3:y[178]4:[141]900:[153]"lenassette "[201]("    "[170]d$(5),4)" von "d$(13)
  206. 2150 [153][200](cx$,12)"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  207. 2160 [153]""d$(2):[153]"on",,d$(1):[153]""d$(4):[153]"on",,d$(3)
  208. 2170 x[178]3:y[178]9:[141]900:[153]"(NULL)itel 1  (NULL)eite atn":[153]"(NULL)itel":j[178]0:k[178]0
  209. 2180 [153]"right$nterpret":[153]"(NULL)aehlwerk":[153]"(NULL)eit":[141]4690:i[178]1
  210. 2190 [139]de[178]3[167]i[178]14:j[178]0:k[178]1
  211. 2200 x[178]13:y[178]12:[141]900:[153][200](t$(i,k)[170]cs$,23)
  212. 2210 [153],""[200](i$(i,k)[170]cs$,22):[153],""[200](c$(i,k)[170]cs$,4)
  213. 2220 [153],""[200](z$(i,k)[170]cs$,5)
  214. 2230 j[178]j[170]1:x[178]8:y[178]9:[141]900:[153]""i:[139]i[179]10[167]x[178]10:[141]900:[153]" "
  215. 2240 [139]de[178]3[167]de[178]2:[137]2530
  216. 2250 [139]j[178]1[167]tx$[178]t$(i,k)
  217. 2260 [139]j[178]2[167]tx$[178]i$(i,k)
  218. 2270 [139]j[178]3[167]tx$[178]c$(i,k)
  219. 2280 [139]j[178]4[167]tx$[178]z$(i,k)
  220. 2290 y[178]j[170]11:x[178]13[170][195](tx$):[141]900:tl[178]t(j[170]13):[141]1270
  221. 2300 [139]b$[178]""[167]i[178]1:j[178]0:k[178]0:x[178]18:y[178]9:[141]900:[153]"atn":[137]2200
  222. 2310 [139]b$[178]""[167]i[178]1:j[178]0:k[178]1:x[178]18:y[178]9:[141]900:[153]"peek":[137]2200
  223. 2320 [139]b$[178]""[167]2530
  224. 2330 [139]b$[178]""[175]i[178]14[175]k[178]0[167]x[178]18:y[178]9:[141]900:[153]"peek"
  225. 2340 [139]b$[178]""[175]i[178]14[175]k[178]0[167]i[178]1:j[178]0:k[178]1:[137]2200
  226. 2350 [139]b$[178]""[175]i[178]14[175]k[178]1[167]2530
  227. 2360 [139]b$[178]""[167]i[178]i[170]1:j[178]0:[137]2200
  228. 2370 [139]b$[178]""[167]2840
  229. 2380 [139]j[178]1[167]t$(i,k)[178]tx$
  230. 2390 [139]j[178]2[167]i$(i,k)[178]tx$
  231. 2400 [139]j[178]3[167]c$(i,k)[178]tx$
  232. 2410 [139]j[178]4[167]z$(i,k)[178]tx$
  233. 2420 [139]j[178]4[175]i[178]14[175]k[178]0[167]i[178]0:k[178]1:x[178]18:y[178]9:[141]900:[153]"peek"
  234. 2430 [139]j[178]4[175]i[178]14[175]k[178]1[167]2530
  235. 2440 [139]j[178]4[175]b$[178]"^"[167]j[178]j[171]2:[137]2230
  236. 2450 [139]j[178]4[167]i[178]i[170]1:j[178]0:[137]2200
  237. 2460 [139]b$[178]"^"[175]i[178]1[175]j[178]1[175]k[178]0[167]2840
  238. 2470 [139]b$[178]"^"[175]i[178]1[175]j[178]1[175]k[178]1[167]x[178]18:y[178]9:[141]900:[153]"atn"
  239. 2480 [139]b$[178]"^"[175]i[178]1[175]j[178]1[175]k[178]1[167]i[178]14:j[178]0:k[178]0:[137]2200
  240. 2490 [139]b$[178]""[167]de[178]0:[137]1700
  241. 2500 [139]b$[178]"^"[175]j[178]1[167]j[178]0:i[178]i[171]1:[137]2200
  242. 2510 [139]b$[178]"^"[175]j[177]0[167]j[178]j[171]2
  243. 2520 [137]2230
  244. 2530 x[178]9:y[178]9:[141]900:[153]"14":x[178]18:[141]900:[153]"peek"
  245. 2540 x[178]13:y[178]12:[141]900:[153][200](t$(14,1)[170]cs$,23)
  246. 2550 [153],""[200](i$(14,1)[170]cs$,22):[153],""[200](c$(14,1)[170]cs$,4)
  247. 2560 [153],""[200](z$(14,1)[170]cs$,5)
  248. 2570 x[178]13:y[178]19:[141]900:[151]204,0
  249. 2580 [161]a$:[139]a$[178]""[167]2580
  250. 2590 [139]a$[178]"^"[176]a$[178][199](13)[167][151]204,1:[151]207,0:[153]" "
  251. 2600 [139]a$[178]""[176]a$[178]""[176]a$[178]""[167][151]204,1:[151]207,0:[153]" "
  252. 2610 [139]a$[178]""[167]1700
  253. 2620 [139]a$[178]""[167]2840
  254. 2630 [139]a$[178]"^"[167]i[178]14:j[178]0:k[178]1:[137]2200
  255. 2640 [139]a$[178][199](13)[176]a$[178]""[167]de[178]0:[137]2710
  256. 2650 [137]2580
  257. 2660 :
  258. 2670 [143]"ortantantantantantantantantantan^
  259. 2680 rem"[221][196]ruckmenue[221]
  260. 2690 [143]"/tantantantantantantantantantanexp
  261. 2700 :
  262. 2710 bl$=" [196][210][213][195][203][205][197][206][213][197] ":gosub4560:poke53269,14:de=0:gosub4640
  263. 2720 f$(1)="[196]rucken"
  264. 2730 f$(2)="[205]ulti"
  265. 2740 f$(3)="[196]esign"
  266. 2750 f$(4)="[218]urueck"
  267. 2760 f$(5)="[196]rucker"
  268. 2770 f$(6)="[200]auptmenue"
  269. 2780 y=9:gosub900:print,""+f$(1):fori=2to6:print,f$(i):next
  270. 2790 y=10:gosub900:rg=6:rx=1:rm=1:gosub1490:ifa$=""then1700
  271. 2800 ifa$="^"then2830
  272. 2810 onrxgoto3840,3830,1870,2830,3410,1700
  273. 2820 :
  274. 2830 de=3:poke53269,0:goto2130
  275. 2840 de=3:poke53269,0:goto1880
  276. 2850 :
  277. 2860 rem"[176][192][192][192][192][192][192][192][192][192][174]
  278. 2870 [143]"(NULL)str$irectory(NULL)
  279. 2880 rem"[173][192][192][192][192][192][192][192][192][192][189]
  280. 2890 :
  281. 2900 [160]3:[159]3,8,0,"$":[141]1090:zz[178]0:zf[178]0:[139]fa[167]1790
  282. 2910 [161]#3,a$,a$:[151]53269,0:bl$[178]" str$right$(NULL)vallen(NULL)(NULL)(NULL)(NULL) 0  ascright$(NULL)val(NULL) ":[141]4560:[153]""
  283. 2920 [161]#3,ya$,ya$,yl$,yh$
  284. 2930 [139]ya$[178]""[167][160]3:[137]3060
  285. 2940 zz[178]zz[170]1:zf[178]zf[170]1:[153]""256[172][198](yh$[170][199](0))[170][198](yl$[170][199](0))"wait";
  286. 2950 [158]53144
  287. 2960 [139]zz[178]20[167]3030
  288. 2970 [161]a$:[139]a$[178]""[176]a$[178]"^"[167]3070
  289. 2980 [139]a$[179][177]""[167]3000
  290. 2990 [137]2920
  291. 3000 [161]a$:[139]a$[178]""[167]3000
  292. 3010 [139]a$[178]""[176]a$[178]"^"[167]3070
  293. 3020 [137]2920
  294. 3030 zz[178]0:x[178]20:y[178]1:[141]900:[153]zf[171]1:[141]1000:[139]a$[178]""[176]a$[178]"^"[167]3070
  295. 3040 bl$[178]" str$right$(NULL)vallen(NULL)(NULL)(NULL)(NULL)"[170][200]([196](zf[171]1)[170]"    ",4)[170]"ascright$(NULL)val(NULL) "
  296. 3050 [141]4560:[153]"":[137]2920
  297. 3060 x[178]20:y[178]1:[141]900:[153]zf[171]2:[141]1000
  298. 3070 [160]3:[137]1700
  299. 3080 :
  300. 3090 [143]"ortantantantantantantan^
  301. 3100 rem"[221][195]ommand[221]
  302. 3110 [143]"/tantantantantantantanexp
  303. 3120 :
  304. 3130 gosub4830:print"=>";:tl=30:de=1:gosub1260:de=0
  305. 3140 ifb$=""then1700
  306. 3150 gosub4780:ifa$=""ora$="n"ora$="^"thenprint"n":gosub4640:goto1790
  307. 3160 print"j":gosub4830:printtx$:print#5,tx$:gosub1090
  308. 3170 gosub4640:goto1790
  309. 3180 :
  310. 3190 rem"[176][192][192][192][192][174]
  311. 3200 [143]"(NULL)valnde(NULL)
  312. 3210 rem"[173][192][192][192][192][189]
  313. 3220 :
  314. 3230 [141]4780:[139]a$[178]""[176]a$[178]"n"[176]a$[178]"^"[167][153]"n":[141]4640:[137]1790
  315. 3240 [153]"j":[158]64738
  316. 3250 :
  317. 3260 [143]"ortantantantantantan^
  318. 3270 rem"[221][198]arben[221]
  319. 3280 [143]"/tantantantantantanexp
  320. 3290 :
  321. 3300 bl$=" [198][193][210][194][197][206] ":poke53269,0:gosub4560
  322. 3310 fori=1to16:f$(i)=a$(i-1):next:f$(17)="[200]auptmenue"
  323. 3320 y=4:gosub900:fori=1to17:print,""f$(i):next:c$=o$
  324. 3330 y=ys+4:gosub900:print,""+f$(ys+1):rm=2:rg=17:rx=ys+1:gosub1490
  325. 3340 ifa$="^"ora$=""orrx=17thenpoke646,ys:c$="":goto1700
  326. 3350 ys=rx-1:poke53288,ys:poke53289,ys:poke53290,ys:c$="":goto1700
  327. 3360 :
  328. 3370 rem"[176][192][192][192][192][192][192][192][174]
  329. 3380 [143]"(NULL)str$rucker(NULL)
  330. 3390 rem"[173][192][192][192][192][192][192][192][189]
  331. 3400 :
  332. 3410 bl$[178]" str$(NULL)(NULL)len(NULL)val(NULL) ":[141]4560:[141]4640
  333. 3420 f$(1)[178]"(NULL)(NULL)(NULL) 801"
  334. 3430 f$(2)[178]"(NULL)(NULL)(NULL) 802"
  335. 3440 f$(3)[178]"len(NULL)atn 80(NULL)"
  336. 3450 f$(4)[178]"valpson"
  337. 3460 f$(5)[178]"lenitizen"
  338. 3470 f$(6)[178]"str$ruckmenue"
  339. 3480 y[178]9:[141]900:[129]i[178]1[164]6:[153],f$(i):[130]
  340. 3490 y[178]8[170]dd:[141]900:[153],""[170]f$(dd):rg[178]6:rx[178]dd:rm[178]1:[141]1490
  341. 3500 [139]a$[178]"^"[167]2710
  342. 3510 [139]a$[178]""[167]1700
  343. 3520 [145]rx[137]4360,4380,4400,4440,4480,2710
  344. 3530 :
  345. 3540 [143]"ortantantantantantan^
  346. 3550 rem"[221][197]ditor[221]
  347. 3560 [143]"/tantantantantantanexp
  348. 3570 :
  349. 3580 bl$=" [197][196][201][212][207][210] ":gosub4560:poke53269,0:gosub4640
  350. 3590 y=5:gosub900:printcy$:print""left$(ty$,33):print""right$(ty$,33)
  351. 3600 printcy$:print""cy$:print""left$(ty$,33):print""right$(ty$,33)
  352. 3610 printcy$:print"[145][157][157][157][157]";:de=1:tl=66:tx$=ty$:gosub1270
  353. 3620 ifb$=""orb$="^"then1700
  354. 3630 ty$=left$(tx$+cs$+cs$,66):goto1700
  355. 3640 :
  356. 3650 rem"[176][192][192][192][192][192][174]
  357. 3660 [143]"(NULL)(NULL)ulti(NULL)
  358. 3670 rem"[173][192][192][192][192][192][189]
  359. 3680 :
  360. 3690 [152]4,h$(2)h$(9)h$(11);
  361. 3700 x$(0)[178]"(NULL)"[170]h$(5)[170][200](ty$[170]cs$[170]cs$,66)[170]h$(6)[170]"+"
  362. 3710 x$(1)[178]"-"[170]cc$[170]"<":[129]i[178]0[164]1:[152]4,q$x$(i)
  363. 3720 [129]j[178]1[164]14:[152]4,q$"(NULL)"[200](c$(j,i)[170]"    ",4)h$(5)"  ";
  364. 3730 [152]4,[200](t$(j,i)[170]"                       ",23)"  ";
  365. 3740 [152]4,[200](i$(j,i)[170]"                      ",22)"  "h$(6);
  366. 3750 [152]4,[201]("     "[170]z$(j,i),5)"(NULL)":[130]j,i
  367. 3760 [152]4,q$"/"cc$"exp"h$(10)h$(12)h$(4)
  368. 3770 [160]4:[141]4640:[137]2780
  369. 3780 :
  370. 3790 [143]"ortantantantantantantan^
  371. 3800 rem"[221][196]rucken[221]
  372. 3810 [143]"/tantantantantantantanexp
  373. 3820 :
  374. 3830 mu=1
  375. 3840 gosub4830:print"[208]rinting..."
  376. 3850 close4:open4,da,ds:close4:gosub920:ifdfthengosub4640:goto2780
  377. 3860 open4,da,ds:print#4:ifmuthenprint#4,h$(3);
  378. 3870 print#4,q$"[176]"cc$"[174]"
  379. 3880 print#4,q$"[221]"h$(3)left$(d$(11)+"          ",10)" ";
  380. 3890 print#4,left$(d$(12)+"      ",6)" "left$(d$(13)+"                ",16);
  381. 3900 print#4," "right$("    "+d$(5),4)"[221]":ifmu=0thenprint#4,h$(4);
  382. 3910 print#4,q$"[221]"cs$"[221]"
  383. 3920 print#4,q$"[221]"h$(3)left$(d$(6)+"            ",12)" ";
  384. 3930 print#4,right$("   "+d$(7),3)"  "left$(d$(8)+"       ",7)" ";
  385. 3940 print#4,left$(d$(9)+"      ",6)" "right$("      "+d$(10),6)"[221]"
  386. 3950 ifmu=0thenprint#4,h$(4);
  387. 3960 print#4,q$"[171]"cc$"[179]":ifmuthenprint#4,h$(3);
  388. 3970 print#4,q$"[221]"h$(1)left$(d$(2)+"                ",16)" ";
  389. 3980 print#4,left$(d$(1)+"                 ",17)" "right$("    "+d$(5),4);
  390. 3990 print#4,h$(2)"[221]"
  391. 4000 print#4,q$"[221]"h$(1)left$(d$(4)+"                ",16)" ";
  392. 4010 print#4,left$(d$(3)+"                 ",17)"     "h$(2)"[221]"
  393. 4020 ifmuthenprint#4,h$(3);
  394. 4030 print#4,q$"[171]"cc$"[179]"
  395. 4040 ifdd<3then4190
  396. 4050 ifmuthenmu=0:goto3690
  397. 4060 print#4,q$"[221]"h$(7)h$(5)left$(ty$+cs$+cs$,67)h$(6)h$(8)"[180]"
  398. 4070 fori=1to14
  399. 4080 print#4,q$"[221]"left$(c$(i,0)+"    ",4)h$(5)"  ";
  400. 4090 print#4,left$(t$(i,0)+"                       ",23)"  ";
  401. 4100 print#4,left$(i$(i,0)+"                      ",22)"  "h$(6);
  402. 4110 print#4,right$("     "+z$(i,0),5)"[221]":next
  403. 4120 print#4,q$"[171]"cc$"[179]":fori=1to14
  404. 4130 print#4,q$"[221]"left$(c$(i,1)+"    ",4)h$(5)"  ";
  405. 4140 print#4,left$(t$(i,1)+"                       ",23)"  ";
  406. 4150 print#4,left$(i$(i,1)+"                      ",22)"  "h$(6);
  407. 4160 print#4,right$("     "+z$(i,1),5)"[221]":next
  408. 4170 goto4290
  409. 4180 :
  410. 4190 print#4,q$"[221][195]nt  [212]itel         [201]nterpret       [218]eit[221]":fori=1to14
  411. 4200 print#4,q$"[221]"left$(c$(i,0)+"    ",4)" ";
  412. 4210 print#4,left$(t$(i,0)+"              ",14)" ";
  413. 4220 print#4,left$(i$(i,0)+"             ",13)" ";
  414. 4230 print#4,right$("     "+z$(i,0),5)"[221]":next
  415. 4240 print#4,q$"[171]"cc$"[179]":fori=1to14
  416. 4250 print#4,q$"[221]"left$(c$(i,1)+"    ",4)" ";
  417. 4260 print#4,left$(t$(i,1)+"              ",14)" ";
  418. 4270 print#4,left$(i$(i,1)+"             ",13)" ";
  419. 4280 print#4,right$("     "+z$(i,1),5)"[221]":next
  420. 4290 print#4,q$"[173]"cc$"[189]"
  421. 4300 close4:gosub4640:goto2780
  422. 4310 :
  423. 4320 rem"[176][192][192][192][192][192][192][192][192][192][192][192][192][174]
  424. 4330 [143]"(NULL)str$ruckercodes(NULL)
  425. 4340 rem"[173][192][192][192][192][192][192][192][192][192][192][192][192][189]
  426. 4350 :
  427. 4360 [129]i[178]1[164]12:h$(i)[178]"":[130]:dd[178]1:da[178]4:ds[178]7:[137]2710
  428. 4370 :
  429. 4380 [129]i[178]1[164]12:h$(i)[178]"":[130]:dd[178]2:da[178]4:ds[178]7:[137]2710
  430. 4390 :
  431. 4400 h$(1)[178]"e":h$(2)[178]"f":h$(3)[178]"g":h$(4)[178]"h":h$(5)[178]"":h$(6)[178][199](146)
  432. 4410 h$(7)[178]"-1":h$(8)[178]"-0":h$(9)[178]"s0":h$(10)[178]"t":h$(11)[178]"3":h$(12)[178]"3$"
  433. 4420 dd[178]3:da[178]4:ds[178]7:[137]2710
  434. 4430 :
  435. 4440 h$(1)[178]"e":h$(2)[178]"f":h$(3)[178]"g":h$(4)[178]"h":h$(5)[178]"":h$(6)[178]""
  436. 4450 h$(7)[178]"-1":h$(8)[178]"-0":h$(9)[178]"s0":h$(10)[178]"t":h$(11)[178]"3":h$(12)[178]"3$"
  437. 4460 dd[178]4:da[178]4:ds[178]7:[137]2710
  438. 4470 :
  439. 4480 h$(1)[178]"e":h$(2)[178]"f":h$(3)[178]"g":h$(4)[178]"h":h$(5)[178]"":h$(6)[178]""
  440. 4490 h$(7)[178]"-1":h$(8)[178]"-0":h$(9)[178]"s0":h$(10)[178]"t":h$(11)[178]"3":h$(12)[178]"3$"
  441. 4500 dd[178]5:da[178]4:ds[178]7:[137]2710
  442. 4510 :
  443. 4520 [143]"ortantantantantantantantantantantantantan^
  444. 4530 rem"[221][213]nterroutinen[221]
  445. 4540 [143]"/tantantantantantantantantantantantantanexp
  446. 4550 :
  447. 4560 print"[176]"left$(cc$,37)"[174]":b=len(bl$)
  448. 4570 print""left$(cs$,19-b/2)"[176]"left$(cc$,b)"[174]"left$(cs$,18-b/2)
  449. 4580 printleft$(cx$,19-b/2)"[179]"bl$"[171]"
  450. 4590 print"[221]"left$(cs$,18-b/2)"[173]"left$(cc$,b)"[189]"left$(cs$,18-b/2)
  451. 4600 print"[157][157][221]":fori=1to20:print"[221]                                     [221]":next
  452. 4610 print"[173]"left$(cc$,37)"[189]"
  453. 4620 return
  454. 4630 :
  455. 4640 y=17:gosub900:print"[176]"left$(cc$,33)"[174]"
  456. 4650 print"[221] [212][193][208][197][205][193][211][212][197][210] by [199]unnar [200]abitz '89 [221]"
  457. 4660 print"[173]"left$(cc$,33)"[189]"
  458. 4670 return
  459. 4680 :
  460. 4690 y=18:gosub900:print"[176]"left$(cc$,33)"[174]"
  461. 4700 print"[221] [215]eiter                          [221]"
  462. 4710 print"[173]"left$(cc$,33)"[189]"
  463. 4720 return
  464. 4730 :
  465. 4740 fori=1to14:forj=0to1:t$(i,j)="":i$(i,j)="":c$(i,j)="":z$(i,j)="":nextj,i
  466. 4750 fori=1to13:d$(i)="":next
  467. 4760 return
  468. 4770 :
  469. 4780 gosub4830:print"[215]irklich [j/n] ?[157]";:poke204,0
  470. 4790 geta$:ifa$=""then4790
  471. 4800 ifa$=""ora$="j"ora$="n"ora$="^"thenpoke204,1:poke207,0:return
  472. 4810 goto4790
  473. 4820 :
  474. 4830 x=3:y=18:gosub900:printleft$(cs$,33):x=3:gosub900
  475. 4840 return
  476.