home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 6 / Commodore_Disc_06_19xx_-_de.d64 / comtape.64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  8KB  |  313 lines
  1. 100 rem"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  2. 110 [143]"(NULL)len(NULL)(NULL)(NULL)atn(NULL)val 1.0         (NULL)
  3. 120 rem"[221]                    [221]
  4. 130 [143]"(NULL)<len> by commodore(NULL)val(NULL)(NULL)(NULL)
  5. 140 rem"[221]                    [221]
  6. 150 [143]"(NULL)(NULL)ritten by          (NULL)
  7. 160 rem"[221][199]unnar [200]abitz       [221]
  8. 170 [143]"(NULL)left$eidlerchenstr.2    (NULL)
  9. 180 rem"[221]2820 [194]remen 71      [221]
  10. 190 [143]"(NULL)                    (NULL)
  11. 200 rem"[221]04/1987             [221]
  12. 210 [143]"/tantantantantantantantantantantantantantantantantantantantanexp
  13. 220 :
  14. 230 poke808,225:poke788,52:poke792,193
  15. 240 print"[147][152]";:poke53280,0:poke53281,0:poke650,128:poke53269,0
  16. 250 re$="                                        "
  17. 260 ll$="                                       "
  18. 270 close5:open5,8,15:poke198,0:dimt$(14,2),i$(14,2),c$(14,2),z$(14,2):goto570
  19. 280 :
  20. 290 rem"[176][192][192][192][192][192][192][174]
  21. 300 [143]"(NULL)ascehler(NULL)
  22. 310 rem"[173][192][192][192][192][192][192][189]
  23. 320 :
  24. 330 [153],"on(NULL)eine lenassette im (NULL)peicher"
  25. 340 [161]a$:[139]a$[178]""[167]340
  26. 350 [137]620
  27. 360 :
  28. 370 [143]"ortantantantantantantantantantantantan^
  29. 380 rem"[221][198]loppyfehler[221]
  30. 390 [143]"/tantantantantantantantantantantantanexp
  31. 400 :
  32. 410 input#5,fa,fb$,fc,fd:iffa<2thenreturn
  33. 420 print"[145][198]ehler :"fa"[157] "fb$" "fc"[157] "fd"[146]         "
  34. 430 geta$:ifa$=""then430
  35. 440 goto570
  36. 450 :
  37. 460 rem"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  38. 470 [143]"(NULL)str$aten loeschen(NULL)
  39. 480 rem"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
  40. 490 :
  41. 500 [129]i[178]0[164]14
  42. 510 t$(i,1)[178]"":i$(i,1)[178]"":c$(i,1)[178]"":z$(i,1)[178]""
  43. 520 t$(i,2)[178]"":i$(i,2)[178]"":c$(i,2)[178]"":z$(i,2)[178]""
  44. 530 [130]i
  45. 540 tt$[178]"":tp$[178]"":tn$[178]"":ta$[178]"":tr$[178]"":th$[178]"":ty$[178]"":tl$[178]"":tb$[178]""
  46. 550 [142]
  47. 560 :
  48. 570 [143]"ortantantantantantantantantantan^
  49. 580 rem"[221][200]auptmenue[221]
  50. 590 [143]"/tantantantantantantantantantanexp
  51. 600 :
  52. 610 print"[147]";
  53. 620 print""re$" [195][207][205][212][193][208][197]                [195]assettenlayout [146]"re$
  54. 630 print,"[200][193][213][208][212][205][197][206][213][197]"
  55. 640 print,"[198]1 - [195]assette eingeben"
  56. 650 print,"[198]2 - [195]assette editieren"
  57. 660 print,"[198]3 - [195]assette laden"
  58. 670 print,"[198]4 - [195]assette speichern"
  59. 680 print,"[198]5 - [195]assette drucken"
  60. 690 print,"[198]7 - [208]rogrammende"
  61. 700 print"          [194]itte waehlen [211]ie !          "
  62. 710 geta$:ifa$=""then710
  63. 720 ifa$="[133]"then890
  64. 730 ifa$="[137]"then1160
  65. 740 ifa$="[134]"then1960
  66. 750 ifa$="[138]"then2250
  67. 760 ifa$="[135]"then2620
  68. 770 ifa$="[136]"then840
  69. 780 goto710
  70. 790 :
  71. 800 rem"[176][192][192][192][192][174]
  72. 810 [143]"(NULL)valnde(NULL)
  73. 820 rem"[173][192][192][192][192][189]
  74. 830 :
  75. 840 [153],"on(NULL)ind (NULL)ie sicher [j/n] ?cmd";:[151]204,0
  76. 850 [161]a$:[139]a$[178]""[167]850
  77. 860 [151]204,1:[151]207,0:[139]a$[178]"j"[167][153]"j":[158]64738
  78. 870 [137]620
  79. 880 :
  80. 890 [143]"ortantantantantantantan^
  81. 900 rem"[221][197]ingabe[221]
  82. 910 [143]"/tantantantantantantanexp
  83. 920 :
  84. 930 gosub500:gosub940:goto950
  85. 940 print"[147]"re$" [195][207][205][212][193][208][197]              [195]assette eingeben [146]"re$:return
  86. 950 print
  87. 960 print"[212]itel    :[146] ";:ml=16:gosub3080:tt$=tx$
  88. 970 print"[201]nterpret:[146] ";:ml=16:gosub3080:tp$=tx$
  89. 980 print"[206]ummer   :[146] ";:ml=4:gosub3080:tn$=tx$
  90. 990 print"[193]ufnahme :[146] ";:ml=6:gosub3080:ta$=tx$
  91. 1000 print"[206]oise [210]. :[146] ";:ml=7:gosub3080:tr$=tx$
  92. 1010 print"[200]erst.   :[146] ";:ml=8:gosub3080:th$=tx$
  93. 1020 print"[212]yp      :[146] ";:ml=8:gosub3080:ty$=tx$
  94. 1030 print"[204]aenge   :[146] ";:ml=3:gosub3080:tl$=tx$
  95. 1040 print"[194]andsorte:[146] ";:ml=4:gosub3080:tb$=tx$
  96. 1050 forj=1to2:gosub940
  97. 1060 print"[211]eite"j:print"[192][192][192][192][192][192][192]"
  98. 1070 fori=1to14
  99. 1080 print"[212]itel"i:ml=14:gosub3080:t$(i,j)=tx$
  100. 1090 print"[145][201]nt. "i:ml=14:gosub3080:i$(i,j)=tx$
  101. 1100 print"[145][195]ount"i"[146]";:ml=4:gosub3080:c$(i,j)=tx$
  102. 1110 print,,"[145][145][218]eit "i"[146]";:ml=5:gosub3080:z$(i,j)=tx$
  103. 1120 ifi=3ori=6ori=9ori=12thengosub940:print"[211]eite"j:print"[192][192][192][192][192][192][192]"
  104. 1130 nexti:nextj
  105. 1140 goto570
  106. 1150 :
  107. 1160 rem"[176][192][192][192][192][192][192][192][192][192][174]
  108. 1170 [143]"(NULL)valditieren(NULL)
  109. 1180 rem"[173][192][192][192][192][192][192][192][192][192][189]
  110. 1190 :
  111. 1200 [139]t$(1,1)[178]""[167]290
  112. 1210 [141]1220:[137]1240
  113. 1220 [153]"load";
  114. 1230 [153]""re$" len(NULL)(NULL)(NULL)atn(NULL)val             lenassette editieren wait"re$:[142]
  115. 1240 [153]"1.(NULL)itel   :wait ";tt$:[153]
  116. 1250 [153]"2.right$nterpr.:wait ";tp$:[153]
  117. 1260 [153]"3.(NULL)ummer  :wait ";tn$:[153]
  118. 1270 [153]"4.atnufnahme:wait ";ta$:[153]
  119. 1280 [153]"5.(NULL)oise (NULL).:wait ";tr$:[153]
  120. 1290 [153]"6.left$erst.  :wait ";th$:[153]
  121. 1300 [153]"7.(NULL)yp     :wait ";ty$:[153]
  122. 1310 [153]"8.(NULL)aenge  :wait ";tl$:[153]
  123. 1320 [153]"9.peekands.  :wait ";tb$:[153]
  124. 1330 [151]211,0:[151]214,22:[158]58640:[153]"atnendern [j/n] ?          cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";
  125. 1340 [151]204,0
  126. 1350 [161]a$:[139]a$[178]""[167]1350
  127. 1360 [139]a$[178]"n"[176]a$[178]"j"[176]a$[178]"_"[167][151]204,1:[151]207,0:[153]" ":[137]1380
  128. 1370 [137]1350
  129. 1380 [139]a$[178]"n"[167]1660
  130. 1390 [139]a$[178]"_"[167]570
  131. 1400 [153]"on(NULL)elche (NULL)ummer [1-9] ?cmd";
  132. 1410 [151]204,0
  133. 1420 [161]a$:[139]a$[178]""[167]1420
  134. 1430 e1[178][182]([181]([197](a$))):[139]e1[178]0[175]a$[179][177]"_"[167]1420
  135. 1440 [151]204,1:[151]207,0:[153]a$
  136. 1450 [139]a$[178]"_"[167]570
  137. 1460 [139]e1[178]1[167][151]214,4:ml[178]16
  138. 1470 [139]e1[178]2[167][151]214,6:ml[178]16
  139. 1480 [139]e1[178]3[167][151]214,8:ml[178]4
  140. 1490 [139]e1[178]4[167][151]214,10:ml[178]6
  141. 1500 [139]e1[178]5[167][151]214,12:ml[178]7
  142. 1510 [139]e1[178]6[167][151]214,14:ml[178]8
  143. 1520 [139]e1[178]7[167][151]214,16:ml[178]8
  144. 1530 [139]e1[178]8[167][151]214,18:ml[178]3
  145. 1540 [139]e1[178]9[167][151]214,20:ml[178]4
  146. 1550 [151]211,12:[158]58640:[141]3080
  147. 1560 [139]e1[178]1[167]tt$[178]tx$
  148. 1570 [139]e1[178]2[167]tp$[178]tx$
  149. 1580 [139]e1[178]3[167]tn$[178]tx$
  150. 1590 [139]e1[178]4[167]ta$[178]tx$
  151. 1600 [139]e1[178]5[167]tr$[178]tx$
  152. 1610 [139]e1[178]6[167]th$[178]tx$
  153. 1620 [139]e1[178]7[167]ty$[178]tx$
  154. 1630 [139]e1[178]8[167]tl$[178]tx$
  155. 1640 [139]e1[178]9[167]tb$[178]tx$
  156. 1650 [137]1330
  157. 1660 [153]"load";:[129]j[178]1[164]2:[129]i[178]1[164]14
  158. 1670 [141]1230:[153]"(NULL)eite"j"cmd (NULL)itel wait cmdcmdcmd"i:[153]""
  159. 1680 [153]"1.(NULL)itel":[153]ll$:[153]"on"t$(i,j)
  160. 1690 [153]"2.right$nterpret":[153]ll$:[153]"on"i$(i,j)
  161. 1700 [153]"3.lenounter":[153]ll$:[153]"on"c$(i,j):[151]211,20:[151]214,13
  162. 1710 [158]58640:[153]"4.(NULL)eit":[153],,"      ":[153],,"on"z$(i,j)
  163. 1720 [151]211,0:[151]214,16:[158]58640
  164. 1730 [153]"atnendern [j/n] ?           cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";:[151]204,0
  165. 1740 [161]a$:[139]a$[178]""[167]1740
  166. 1750 [139]a$[178]"j"[176]a$[178]"n"[176]a$[178]"_"[167][151]204,1:[151]207,0:[153]"?":[137]1770
  167. 1760 [137]1740
  168. 1770 [139]a$[178]"n"[167]1930
  169. 1780 [139]a$[178]"_"[167]570
  170. 1790 [153]"on(NULL)elche (NULL)ummer [1-4] ?cmd";:[151]204,0
  171. 1800 [161]a$:[139]a$[178]""[167]1800
  172. 1810 e1[178][181]([197](a$)):[139](e1[179]1[176]e1[177]4)[175]a$[179][177]"_"[167]1800
  173. 1820 [151]204,1:[151]207,0:[153]a$:[139]a$[178]"_"[167]570
  174. 1830 [139]e1[178]1[167][151]214,8:ml[178]14
  175. 1840 [139]e1[178]2[167][151]214,11:ml[178]14
  176. 1850 [139]e1[178]3[167][151]214,14:ml[178]4
  177. 1860 [139]e1[178]4[167][151]211,20:ml[178]5:[151]214,14
  178. 1870 [158]58640:[141]3080
  179. 1880 [139]e1[178]1[167]t$(i,j)[178]tx$
  180. 1890 [139]e1[178]2[167]i$(i,j)[178]tx$
  181. 1900 [139]e1[178]3[167]c$(i,j)[178]tx$
  182. 1910 [139]e1[178]4[167]z$(i,j)[178]tx$
  183. 1920 [137]1720
  184. 1930 [130]i:[130]j
  185. 1940 [137]570
  186. 1950 :
  187. 1960 [143]"ortantantantantan^
  188. 1970 rem"[221][204]aden[221]
  189. 1980 [143]"/tantantantantanexp
  190. 1990 :
  191. 2000 print"[147]"re$" [195][207][205][212][193][208][197]                 [195]assette laden [146]"re$
  192. 2010 print"[215]elche [195]assette laden ? ";:ml=16:gosub3080
  193. 2020 n$=left$(tx$,16):print
  194. 2030 print"[145][196]ie [195]assette wird geladen."
  195. 2040 close2:open2,8,2,n$+",s,r":gosub410
  196. 2050 gosub500
  197. 2060 input#2,tt$:input#2,tp$:input#2,tn$:input#2,ta$:input#2,tr$:input#2,th$
  198. 2070 input#2,ty$:input#2,tl$:input#2,tb$
  199. 2080 fori=1to14
  200. 2090 input#2,t$(i,1):input#2,t$(i,2)
  201. 2100 input#2,i$(i,1):input#2,i$(i,2)
  202. 2110 input#2,c$(i,1):input#2,c$(i,2)
  203. 2120 input#2,z$(i,1):input#2,z$(i,2)
  204. 2130 ift$(i,1)="*"thent$(i,1)=""
  205. 2140 ift$(i,2)="*"thent$(i,2)=""
  206. 2150 ifi$(i,1)="*"theni$(i,1)=""
  207. 2160 ifi$(i,2)="*"theni$(i,2)=""
  208. 2170 ifc$(i,1)="*"thenc$(i,1)=""
  209. 2180 ifc$(i,2)="*"thenc$(i,2)=""
  210. 2190 ifz$(i,1)="*"thenz$(i,1)=""
  211. 2200 ifz$(i,2)="*"thenz$(i,2)=""
  212. 2210 nexti:close2
  213. 2220 gosub410
  214. 2230 goto570
  215. 2240 :
  216. 2250 rem"[176][192][192][192][192][192][192][192][192][192][174]
  217. 2260 [143]"(NULL)(NULL)peichern(NULL)
  218. 2270 rem"[173][192][192][192][192][192][192][192][192][192][189]
  219. 2280 :
  220. 2290 [139]t$(1,1)[178]""[167]290
  221. 2300 [153]"load"re$" len(NULL)(NULL)(NULL)atn(NULL)val             lenassette speichern wait"re$
  222. 2310 [153]"(NULL)peichern als ? ";:ml[178]16:[141]3080
  223. 2320 n$[178][200](tx$,16):[153]
  224. 2330 [153]"onstr$ie lenassette wird gespeichert."
  225. 2340 [160]2:[159]2,8,2,"@:"[170]n$[170]",s,w":[141]410
  226. 2350 [152]2,tt$:[152]2,tp$:[152]2,tn$:[152]2,ta$:[152]2,tr$:[152]2,th$
  227. 2360 [152]2,ty$:[152]2,tl$:[152]2,tb$
  228. 2370 [129]i[178]1[164]14
  229. 2380 [139]t$(i,1)[178]""[167]t$(i,1)[178]"*"
  230. 2390 [139]t$(i,2)[178]""[167]t$(i,2)[178]"*"
  231. 2400 [139]i$(i,1)[178]""[167]i$(i,1)[178]"*"
  232. 2410 [139]i$(i,2)[178]""[167]i$(i,2)[178]"*"
  233. 2420 [139]c$(i,1)[178]""[167]c$(i,1)[178]"*"
  234. 2430 [139]c$(i,2)[178]""[167]c$(i,2)[178]"*"
  235. 2440 [139]z$(i,1)[178]""[167]z$(i,1)[178]"*"
  236. 2450 [139]z$(i,2)[178]""[167]z$(i,2)[178]"*"
  237. 2460 [152]2,t$(i,1):[152]2,t$(i,2)
  238. 2470 [152]2,i$(i,1):[152]2,i$(i,2)
  239. 2480 [152]2,c$(i,1):[152]2,c$(i,2)
  240. 2490 [152]2,z$(i,1):[152]2,z$(i,2)
  241. 2500 [139]t$(i,1)[178]"*"[167]t$(i,1)[178]""
  242. 2510 [139]t$(i,2)[178]"*"[167]t$(i,2)[178]""
  243. 2520 [139]i$(i,1)[178]"*"[167]i$(i,1)[178]""
  244. 2530 [139]i$(i,2)[178]"*"[167]i$(i,2)[178]""
  245. 2540 [139]c$(i,1)[178]"*"[167]c$(i,1)[178]""
  246. 2550 [139]c$(i,2)[178]"*"[167]c$(i,2)[178]""
  247. 2560 [139]z$(i,1)[178]"*"[167]z$(i,1)[178]""
  248. 2570 [139]z$(i,2)[178]"*"[167]z$(i,2)[178]""
  249. 2580 [130]i:[160]2
  250. 2590 [141]410
  251. 2600 [137]570
  252. 2610 :
  253. 2620 [143]"ortantantantantantantan^
  254. 2630 rem"[221][196]rucken[221]
  255. 2640 [143]"/tantantantantantantanexp
  256. 2650 :
  257. 2660 ift$(1,1)=""then290
  258. 2670 gosub2680:goto2690
  259. 2680 print"[147]"re$" [195][207][205][212][193][208][197]               [195]assette drucken [146]"re$:return
  260. 2690 close4:open4,4,0:close4
  261. 2700 ifst=0then2750
  262. 2710 poke211,0:poke214,24:sys58640:print"[196]rucker ausgeschaltet"
  263. 2720 geta$:ifa$=""then2720
  264. 2730 ifa$="_"then570
  265. 2740 goto2690
  266. 2750 poke211,0:poke214,24:sys58640:print"                       "
  267. 2760 close4:open4,4,0:print"[196]ie [195]assette wird gedruckt."
  268. 2770 print#4,"[176][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][192][192][192][174]
  269. 2780 [152]4,"(NULL)"[170][200](tp$[170]"                ",16)[170]" ";
  270. 2790 [152]4,""[170][200](tt$[170]"                ",16)[170]" ";
  271. 2800 [152]4,""[170]" "[170][200](tn$[170]"    ",4)[170]"(NULL)"
  272. 2810 [152]4,"(NULL)                                       (NULL)"
  273. 2820 [152]4,"(NULL)"[170][200](ta$[170]"      ",6)[170]" "[170][200](tr$[170]"       ",7);
  274. 2830 [152]4," "[170][200](th$[170]"        ",8)[170][200](ty$[170]"        ",8);
  275. 2840 [152]4,""[170][200](tb$[170]"    ",4)[170]" "[170][200](tl$[170]"   ",3)[170]"(NULL)"
  276. 2850 [152]4,"-tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan<"
  277. 2860 [152]4,"(NULL)"[170][200](tp$[170]"                ",16)[170]" ";
  278. 2870 [152]4,""[170][200](tt$[170]"                ",16)[170]" ";
  279. 2880 [152]4," "[170][200](tn$[170]"    ",4)[170]"(NULL)"
  280. 2890 [152]4,"(NULL)                                       (NULL)"
  281. 2900 [152]4,"-tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan<"
  282. 2910 [152]4,"(NULL)"[170][200](ta$[170]"      ",6)[170]" "[170][200](tr$[170]"       ",7);
  283. 2920 [152]4," "[170][200](th$[170]"        ",8)[170][200](ty$[170]"        ",8);
  284. 2930 [152]4,""[170][200](tb$[170]"    ",4)[170]" "[170][200](tl$[170]"   ",3)[170]"(NULL)"
  285. 2940 [129]i[178]1[164]14
  286. 2950 [152]4,"(NULL)"[170][200](c$(i,1)[170]"    ",4)[170]" ";
  287. 2960 [152]4,""[170][200](t$(i,1)[170]"              ",14)[170]" ";
  288. 2970 [152]4,""[170][200](i$(i,1)[170]"              ",14);
  289. 2980 [152]4,""[170][200](z$(i,1)[170]"     ",5)[170]"(NULL)"
  290. 2990 [130]i:[152]4,"-tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan<"
  291. 3000 [129]i[178]1[164]14
  292. 3010 [152]4,"(NULL)"[170][200](c$(i,2)[170]"    ",4)[170]" ";
  293. 3020 [152]4,""[170][200](t$(i,2)[170]"              ",14)[170]" ";
  294. 3030 [152]4,""[170][200](i$(i,2)[170]"              ",14);
  295. 3040 [152]4,""[170][200](z$(i,2)[170]"     ",5)[170]"(NULL)"
  296. 3050 [130]i:[152]4,"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  297. 3060 [137]570
  298. 3070 :
  299. 3080 [143]"ortantantantantantantantantantantan^
  300. 3090 rem"[221][212]exteingabe[221]
  301. 3100 [143]"/tantantantantantantantantantantanexp
  302. 3110 :
  303. 3120 tx$="":poke204,0
  304. 3130 b$=""
  305. 3140 getb$:ifb$=""then3140
  306. 3150 ifb$=chr$(20)andtx$=""then3140
  307. 3160 ifb$=chr$(20)thentx$=left$(tx$,len(tx$)-1):print"[157]  [157][157]";:goto3140
  308. 3170 ifb$=chr$(13)thenpoke204,1:poke207,0:print"[146] ":print:return
  309. 3180 iflen(tx$)=mlthen3140
  310. 3190 ifb$="_"thenpoke204,1:poke207,0:print"[146] ":goto570
  311. 3200 ifb$>chr$(127)andb$<chr$(160)orb$<chr$(32)then3140
  312. 3210 tx$=tx$+b$:printb$;:goto3130
  313.