home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_93-11_1993_-_de_Side_B.d64 / kassettenbuttler (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  17KB  |  581 lines
  1. 5 clr
  2. 10 rem cassettenbutler v1.0
  3. 20 rem animal networks 7/93
  4. 30 rem robert gast
  5. 40 dimname$(570)
  6. 50 dimb$(420),c$(420),d$(420),e$(420),f$(420),g$(420),h$(420),i$(420)
  7. 60 dimj$(420),k$(420),l$(420):pl$="keine im speicher"
  8. 90 rem
  9. 100 poke53280,0:poke53281,0:print"[147][151]":poke650,128:printchr$(142):u=1
  10. 110 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  11. 120 fori=1to22:print"[194]                                     [194]":next
  12. 130 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  13. 140 print"kassettenbutler v1.0"
  14. 150 print"robert gast  juli 1993"
  15. 160 print"a n i m a l  n e t w o r k s[151]"
  16. 170 print"[171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179][150]":zu=1
  17. 180 print"  bearbeiten  [151]"
  18. 190 print"  suchen      "
  19. 200 print"  drucken     "
  20. 210 print"  directory   "
  21. 220 print"  loaden      "
  22. 230 print"  saven       ":
  23. 240 geta$:ifa$=""then240
  24. 250 ifa$=""thenzu=zu+1:goto290
  25. 260 ifa$="[145]"thenzu=zu-1:goto290
  26. 270 ifa$=chr$(13)then450
  27. 280 goto 240
  28. 290 ifzu<1thenzu=1:goto240
  29. 300 ifzu>6thenzu=6:goto240
  30. 310 print"[151]"
  31. 320 print"  bearbeiten  "
  32. 330 print"  suchen      "
  33. 340 print"  drucken     "
  34. 350 print"  directory   "
  35. 360 print"  loaden      "
  36. 370 print"  saven       "
  37. 380 print"[150]":onzugoto390,400,410,420,430,440,445
  38. 390 print"  bearbeiten  ":goto240
  39. 400 print:print:print"  suchen      ":goto240
  40. 410 print:print:print:print:print"  drucken     ":goto240
  41. 420 print:print:print:print:print:print:print"  directory   ":goto240
  42. 430 print:print:print:print:print:print:print:print:print"  loaden      ":goto240
  43. 440 print"":print"  saven       ":goto240
  44. 450 onzugoto460,1780,2930,4250,4350,5140
  45. 460 print"[151]"
  46. 470 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  47. 480 fori=1to17:print"[194]                                 [194]":next
  48. 490 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  49. 500 print"ende mit  f1 [146] ![151]"
  50. 510 print"[171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]":zu=u
  51. 520 print"nr.:"zu
  52. 530 print"name:[151]"name$(zu)
  53. 540 print"[171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179][155]"
  54. 550 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  55. 560 fori=1to5:print"[194]                 [194]":next
  56. 570 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  57. 580 print""
  58. 590 print"mit +[146]/-[146] auswahl"
  59. 600 print"return[146] bearbeiten"
  60. 610 print"f1[146] ende !"
  61. 620 geta$:ifa$=""then620
  62. 630 ifa$="+"thenzu=zu+2:goto680
  63. 640 ifa$="-"thenzu=zu-2:goto680
  64. 650 ifa$=chr$(13)thenu=zu:goto720
  65. 660 ifa$="[133]"then100
  66. 670 goto 620
  67. 680 ifzu<1thenzu=1:goto620
  68. 690 ifzu>15thenzu=15:goto620
  69. 700 print""zu"[157]  ":sp$=""
  70. 705 print"                          "
  71. 710 print"[145]"name$(zu):goto620
  72. 720 print""
  73. 730 fori=1to12:print"                              ":next:print""
  74. 731 print""b$(u):print""c$(u):print""d$(u):print""e$(u):print""f$(u)
  75. 732 print""g$(u):print""h$(u):print""i$(u):print""j$(u):print""k$(u)
  76. 733 print""l$(u)
  77. 734 z$="":print"":printz$+b$(u+1):printz$+c$(u+1)
  78. 735 printz$+d$(u+1):printz$+e$(u+1):printz$+f$(u+1):printz$+g$(u+1):printz$+h$(u+1):printz$+i$(u+1)
  79. 736 printz$+j$(u+1):printz$+k$(u+1):printz$+l$(u+1)
  80. 740 print"[151]"
  81. 750 print"[178]"
  82. 760 print"[151]"
  83. 770 fori=1to12:print"[194]":next
  84. 780 print"[177]"
  85. 790 print"[150]"
  86. 800 fori=1to11:print""chr$(i+64)""chr$(i+64):next
  87. 810 print"[155]":
  88. 820 print"[145][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  89. 830 print"[194]bitte waehlen sie aus !![155]         [194]"
  90. 840 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  91. 850 print"_":zu=1:sp=1
  92. 860 geta$:ifa$=""then860
  93. 865 ifzu=0anda$=""then983
  94. 870 ifa$=""thenzu=zu+1:goto940
  95. 880 ifa$="[145]"thenzu=zu-1:goto940
  96. 890 ifa$=""thensp=sp+1:goto940
  97. 900 ifa$="[157]"thensp=sp-1:goto940
  98. 910 ifa$="[133]"then100
  99. 920 ifa$=chr$(13)then1110
  100. 925 ifa$="+"ora$="-"then460
  101. 930 goto 860
  102. 940 ifzu<0thenzu=0:goto860
  103. 941 ifzu=0then981
  104. 950 ifzu>11thenzu=11:goto860
  105. 960 ifsp<1thensp=1:goto860
  106. 970 ifsp>2thensp=2:goto860
  107. 975 ifa$=""ora$="[157]"then1060
  108. 980 on sp goto 990,1020
  109. 981 print""name$(u)+"_"
  110. 982 print"  ":goto860
  111. 983 print""name$(u)+"  "
  112. 985 print"_":sp=1:zu=1:goto860
  113. 990 print""
  114. 1000 fori=1to11:print" ":next
  115. 1010 print"":fori=1tozu:print:next:print"_":goto860
  116. 1020 print""
  117. 1030 fori=1to11:print" ":next
  118. 1040 print""
  119. 1050 fori=1tozu:print:next:print"_":goto860
  120. 1060 ifa$="[157]"then1090
  121. 1070 print""
  122. 1080 fori=1to11:print" ":next:zu=1:goto980
  123. 1090 print""
  124. 1100 fori=1to11:print" ":next:zu=1:goto980
  125. 1110 ifzu=0then1450
  126. 1115 print""
  127. 1120 print"eingabetext :[164]               ":v=1:bu$="":ifa$<>""anda$<>chr$(13)then1140
  128. 1130 geta$:ifa$=""then1130
  129. 1140 ifa$="[147]"ora$=""ora$=""ora$="[145]"ora$="[157]"ora$=""then1130
  130. 1145 ifa$="[133]"thenbu$=left$(bu$,14):goto1220
  131. 1150 ifa$=chr$(13)thenbu$=left$(bu$,14):goto1220
  132. 1160 ifv<=0anda$=chr$(20)then1130
  133. 1170 ifa$=chr$(20)then1200
  134. 1180 ifv>14then1130
  135. 1190 bu$=bu$+a$:v=v+1:goto1210
  136. 1200 bu$=left$(bu$,v-1):v=v-1
  137. 1210 print""bu$+"[164]  ":goto1130
  138. 1220 ifbu$="[133]"then100
  139. 1221 ifbu$=""then1560
  140. 1222 ifzu=0then1450
  141. 1225 ifsp=1thend=0
  142. 1230 ifsp=2thend=1
  143. 1240 onzugoto1250,1260,1270,1280,1290,1300,1310,1320,1330,1340,1345
  144. 1250 b$(u+d)=bu$:goto1390
  145. 1260 c$(u+d)=bu$:goto1390
  146. 1270 d$(u+d)=bu$:goto1390
  147. 1280 e$(u+d)=bu$:goto1390
  148. 1290 f$(u+d)=bu$:goto1390
  149. 1300 g$(u+d)=bu$:goto1390
  150. 1310 h$(u+d)=bu$:goto1390
  151. 1320 i$(u+d)=bu$:goto1390
  152. 1330 j$(u+d)=bu$:goto1390
  153. 1340 k$(u+d)=bu$:goto1390
  154. 1345 l$(u+d)=bu$:goto1390
  155. 1390 onspgoto1400,1420
  156. 1400 print"":fori=1tozu:print:next
  157. 1410 print""bu$:goto1440
  158. 1420 print"":fori=1tozu:print:next
  159. 1430 print""bu$
  160. 1440 ifa$="[133]"then100
  161. 1445 goto1560
  162. 1450 print"[164]                        ":bu$="":v=1
  163. 1455 geta$:ifa$=""then1455
  164. 1460 ifa$="[147]"ora$=""ora$=""ora$="[145]"ora$=""ora$="[157]"then1455
  165. 1470 ifa$=chr$(13)then1540
  166. 1480 ifv<=0anda$=chr$(20)then1455
  167. 1490 ifa$=chr$(20)then1520
  168. 1500 ifv>20then1455
  169. 1510 bu$=bu$+a$:v=v+1:goto1530
  170. 1520 bu$=left$(bu$,v-1):v=v-1
  171. 1530 print""bu$+"[164]  ":goto1455
  172. 1540 print""bu$+"  "
  173. 1550 name$(u)=bu$:sp=1:zu=1:goto1060
  174. 1560 zu=zu+1:ifzu>11then1730
  175. 1570 goto1610
  176. 1580 zu=1:onspgoto1590,1600
  177. 1590 sp=2:goto1610
  178. 1600 sp=1:goto1610
  179. 1610 print"":onspgoto1620,1640
  180. 1620 fori=1to11:print" ":next
  181. 1630 print"":fori=1tozu:print:next:print"_":goto5450
  182. 1640 print""
  183. 1650 fori=1to11:print" ":next
  184. 1660 print""
  185. 1670 fori=1tozu:print:next:print"_":goto5450
  186. 1690 print""
  187. 1700 fori=1to11:print" ":next:zu=1:goto980
  188. 1710 print""
  189. 1720 fori=1to11:print" ":next:zu=1:goto980
  190. 1730 onspgoto1740,1760
  191. 1740 print""
  192. 1750 fori=1to11:print" ":next:zu=1:goto1580
  193. 1760 print""
  194. 1770 fori=1to11:print" ":next:zu=1:goto1580
  195. 1780 print"[151]"
  196. 1790 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  197. 1800 fori=1to6:print"[194]                  [194]":next
  198. 1810 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  199. 1820 print"[150]"
  200. 1830 print"suchen nach ...[146]"
  201. 1840 print"kassettenname .. 1"
  202. 1850 print"liedtitel ...... 2"
  203. 1860 print"ende ........... 3[151]"
  204. 1870 geta$:ifa$=""then1870
  205. 1880 onval(a$)goto1900,1905,0100
  206. 1890 goto 1870
  207. 1900 fl=1:print"[147]":goto1910
  208. 1905 fl=2:print"[147]"
  209. 1910 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  210. 1920 fori=1to6:print"[194]                                 [194]":next
  211. 1930 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  212. 1940 print""
  213. 1950 print"bitte geben sie das zu suchende"
  214. 1960 print"stichwort ein !!"
  215. 1970 print"[164]"
  216. 1980 print" f1 [146] ende !":bu$="":v=1:
  217. 1990 geta$:ifa$=""then1990
  218. 1995 ifa$=""ora$="[147]"ora$=""ora$="[145]"ora$=""ora$="[157]"then1990
  219. 2000 ifa$="[133]"then100
  220. 2010 ifv=0anda$=chr$(20)then1990
  221. 2020 ifa$=chr$(20)then2060
  222. 2030 ifa$=chr$(13)then2080
  223. 2040 ifv>=23thenv=23:goto1990
  224. 2050 bu$=bu$+a$:v=v+1:goto2070
  225. 2060 bu$=left$(bu$,v-1):v=v-1
  226. 2070 print""bu$+"[164]   ":goto1990
  227. 2080 print"[151]"
  228. 2090 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  229. 2100 fori=1to10:print"[194]                               [194]":next
  230. 2110 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  231. 2120 print""
  232. 2130 print"moment bitte ... "
  233. 2140 onflgoto2150,2750
  234. 2150 fori=1to30:
  235. 2160 ifbu$=name$(i)then2220
  236. 2170 next
  237. 2180 print"ich habe nichts finden koennen!"
  238. 2190 print"[150]taste druecken !"
  239. 2200 geta$:ifa$=""then2200
  240. 2210 goto 100
  241. 2220 print"[151]"
  242. 2230 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  243. 2240 forx=1to22:print"[194]                                  [194]":next
  244. 2250 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  245. 2260 print""
  246. 2270 print"kassettennummer :"i
  247. 2280 print"kassettenname :"name$(i)""
  248. 2290 print""b$(i)
  249. 2300 print"[145]"b$(i+1)
  250. 2310 print""c$(i)
  251. 2320 print"[145]"c$(i+1)
  252. 2330 print""d$(i)
  253. 2340 print"[145]"d$(i+1)
  254. 2350 print""e$(i)
  255. 2360 print"[145]"e$(i+1)
  256. 2370 print""f$(i)
  257. 2380 print"[145]"f$(i+1)
  258. 2390 print""g$(i)
  259. 2400 print"[145]"g$(i+1)
  260. 2410 print""h$(i)
  261. 2420 print"[145]"h$(i+1)
  262. 2430 print""i$(i)
  263. 2440 print"[145]"i$(i+1)
  264. 2450 print""j$(i)
  265. 2460 print"[145]"j$(i+1)
  266. 2470 print""k$(i)
  267. 2480 print"[145]"k$(i+1)
  268. 2490 print""l$(i)
  269. 2500 print"[145]"l$(i+1)
  270. 2570 print"[151][171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]"
  271. 2580 print"zu bearbeiten[146] ... 1"
  272. 2590 print"ausdrucken ...... 2"
  273. 2600 print"ende ............ 3"
  274. 2610 geta$:ifa$=""then2610
  275. 2620 onval(a$)goto2640,3450,100
  276. 2630 goto2610
  277. 2640 u=i:
  278. 2650 print"[151]"
  279. 2660 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  280. 2670 fori=1to19:print"[194]                                 [194]":next
  281. 2680 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  282. 2690 print"ende mit  f1 [146] ![151]"
  283. 2700 print"[171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]":
  284. 2710 print"nr.:"u
  285. 2720 print"name:[151]"name$(u)
  286. 2730 print"[171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179][155]"
  287. 2740 goto 720
  288. 2750 i=0
  289. 2760 i=i+1:
  290. 2770 ifbu$=b$(i)orbu$=b$(i+1)then2920
  291. 2780 ifbu$=c$(i)orbu$=c$(i+1)then2920
  292. 2790 ifbu$=d$(i)orbu$=d$(i+1)then2920
  293. 2800 ifbu$=e$(i)orbu$=e$(i+1)then2920
  294. 2810 ifbu$=f$(i)orbu$=f$(i+1)then2920
  295. 2820 ifbu$=g$(i)orbu$=g$(i+1)then2920
  296. 2830 ifbu$=h$(i)orbu$=h$(i+1)then2920
  297. 2840 ifbu$=i$(i)orbu$=i$(i+1)then2920
  298. 2850 ifbu$=j$(i)orbu$=j$(i+1)then2920
  299. 2860 ifbu$=k$(i)orbu$=k$(i+1)then2920
  300. 2870 ifbu$=l$(i)orbu$=l$(i+1)then2920
  301. 2905 ifi>30then2180
  302. 2910 goto 2760
  303. 2920 goto 2220
  304. 2930 print"[151]"
  305. 2940 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  306. 2950 fori=1to10:print"[194]                        [194]":next
  307. 2960 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  308. 2970 print""
  309. 2980 print"moechten sie sie ... "
  310. 2990 print"... eine einzelne seite"
  311. 3000 print"    ausdrucken ...... 1"
  312. 3010 print"... alle datensaetze"
  313. 3020 print"    ausdrucken ...... 2"
  314. 3030 print"ende ................ 3"
  315. 3040 geta$:ifa$=""then3040
  316. 3050 onval(a$)goto3070,3830,100
  317. 3060 goto3040
  318. 3070 fl=0
  319. 3080 print"[151][145]"
  320. 3090 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  321. 3100 fori=1to22:print"[194]                                    [194]":next
  322. 3110 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][145]"
  323. 3120 print""
  324. 3130 print"mit +[146]/-[146] und return[146] auswaehlen !"
  325. 3135 print" f1 [146] - ende !![151]"
  326. 3140 print"[171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]":zu=1
  327. 3150 print"kassettennummer:"zu
  328. 3160 print"kassettenname :"name$(zu)"[151]"
  329. 3170 print"[171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]":z$=""
  330. 3180 print""
  331. 3190 print""b$(zu):print"[145]"z$+b$(zu+1)
  332. 3200 print""c$(zu):print"[145]"z$+c$(zu+1)
  333. 3210 print""d$(zu):print"[145]"z$+d$(zu+1)
  334. 3220 print""e$(zu):print"[145]"z$+e$(zu+1)
  335. 3230 print""f$(zu):print"[145]"z$+f$(zu+1)
  336. 3240 print""g$(zu):print"[145]"z$+g$(zu+1)
  337. 3250 print""h$(zu):print"[145]"z$+h$(zu+1)
  338. 3260 print""i$(zu):print"[145]"z$+i$(zu+1)
  339. 3270 print""j$(zu):print"[145]"z$+j$(zu+1)
  340. 3280 print""k$(zu):print"[145]"z$+k$(zu+1)
  341. 3290 print""l$(zu):print"[145]"z$+l$(zu+1)
  342. 3330 geta$:ifa$=""then3330
  343. 3340 ifa$="[133]"then100
  344. 3350 ifa$="+"thenzu=zu+2:goto3390
  345. 3360 ifa$="-"thenzu=zu-2:goto3390
  346. 3370 ifa$=chr$(13)then3450
  347. 3380 goto 3330
  348. 3390 ifzu<1thenzu=1:goto 3330
  349. 3400 ifzu>15thenzu=15:goto3330
  350. 3410 print""
  351. 3420 print"kassettennummer:"zu"[157]  "
  352. 3430 print"kassettenname :                     "
  353. 3435 print"[145]kassettenname :"name$(zu)"[151]"
  354. 3440 goto3180
  355. 3450 print"[151]"
  356. 3460 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  357. 3470 print"[194]ich drucke ...[151] [194]"
  358. 3480 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  359. 3490 goto3790
  360. 3495 sp$="":open4,4
  361. 3500 x=len(b$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
  362. 3510 print#4,b$(zu)+sp$+b$(zu+1):sp$=""
  363. 3520 x=len(c$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
  364. 3530 print#4,c$(zu)+sp$+c$(zu+1):sp$=""
  365. 3540 x=len(d$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
  366. 3550 print#4,d$(zu)+sp$+d$(zu+1):sp$=""
  367. 3560 x=len(e$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
  368. 3570 print#4,e$(zu)+sp$+e$(zu+1):sp$=""
  369. 3580 x=len(f$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
  370. 3590 print#4,f$(zu)+sp$+f$(zu+1):sp$=""
  371. 3600 x=len(g$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
  372. 3610 print#4,g$(zu)+sp$+g$(zu+1):sp$=""
  373. 3620 x=len(h$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
  374. 3630 print#4,h$(zu)+sp$+h$(zu+1):sp$=""
  375. 3640 x=len(i$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
  376. 3650 print#4,i$(zu)+sp$+i$(zu+1):sp$=""
  377. 3660 x=len(j$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
  378. 3670 print#4,j$(zu)+sp$+j$(zu+1):sp$=""
  379. 3680 x=len(k$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
  380. 3690 print#4,k$(zu)+sp$+k$(zu+1):sp$=""
  381. 3692 x=len(k$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
  382. 3695 print#4,l$(zu)+sp$+l$(zu+1):sp$=""
  383. 3700 print#4:print#4,"---------------------------------------"
  384. 3780 close 4:goto100
  385. 3790 open4,4:print#4,"---------------------------------------"
  386. 3795 print#4
  387. 3800 print#4,"kassettenname :"name$(zu)
  388. 3810 print#4,"---------------------------------------"
  389. 3820 close 4:goto3495
  390. 3830 print"[151]"
  391. 3840 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  392. 3850 fori=1to5:print"[194]                 [194]":next
  393. 3860 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  394. 3870 print""
  395. 3880 print"ich drucke ..."
  396. 3890 print"abbruch mit space[146]"
  397. 3900 zu=-1:open4,4
  398. 3910 zu=zu+2
  399. 3920 geta$:ifa$=" "then100
  400. 3921 print#4,"---------------------------------------"
  401. 3922 print#4,
  402. 3923 print#4,"kassettenname :"name$(zu)
  403. 3924 print#4,"---------------------------------------"
  404. 3930 x=len(b$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
  405. 3940 print#4,b$(zu)+sp$+b$(zu+1):sp$=""
  406. 3950 x=len(c$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
  407. 3960 print#4,c$(zu)+sp$+c$(zu+1):sp$=""
  408. 3970 x=len(d$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
  409. 3980 print#4,d$(zu)+sp$+d$(zu+1):sp$=""
  410. 3990 x=len(e$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
  411. 4000 print#4,e$(zu)+sp$+e$(zu+1):sp$=""
  412. 4010 x=len(f$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
  413. 4020 print#4,f$(zu)+sp$+f$(zu+1):sp$=""
  414. 4030 x=len(g$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
  415. 4040 print#4,g$(zu)+sp$+g$(zu+1):sp$=""
  416. 4050 x=len(h$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
  417. 4060 print#4,h$(zu)+sp$+h$(zu+1):sp$=""
  418. 4070 x=len(i$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
  419. 4080 print#4,i$(zu)+sp$+i$(zu+1):sp$=""
  420. 4090 x=len(j$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
  421. 4100 print#4,j$(zu)+sp$+j$(zu+1):sp$=""
  422. 4110 x=len(k$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
  423. 4120 print#4,k$(zu)+sp$+k$(zu+1):sp$=""
  424. 4125 x=len(k$(zu)):x=25-x:fori=1tox:sp$=sp$+" ":next
  425. 4126 print#4,l$(zu)+sp$+l$(zu+1):sp$=""
  426. 4130 print#4:print#4,"---------------------------------------"
  427. 4210 ifzu=15thenclose4:goto100
  428. 4220 geta$:ifa$=" "thenclose4:goto100
  429. 4230 goto3910
  430. 4240 close4:goto100
  431. 4250 print"[147]"
  432. 4260 open1,8,0,"$":poke781,1:sys65478:geta$,a$:e$=chr$(0)
  433. 4270 geta$,a$,h$,l$:ifstthensys65484:close1:goto4320
  434. 4280 printasc(h$+e$)+256*asc(l$+e$);
  435. 4290 geta$,b$:ifa$thenprinta$b$;:goto4290
  436. 4300 printa$:goto 4270
  437. 4310 close 1
  438. 4320 print"[150] taste druecken ! "
  439. 4330 geta$:ifa$=""then4330
  440. 4340 goto 100
  441. 4350 print"[151]"
  442. 4360 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  443. 4370 fori=1to10:print"[194]                                 [194]":next
  444. 4380 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  445. 4390 print""
  446. 4400 print"geladende datei:"pl$"[151]"
  447. 4410 print"[171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]"
  448. 4420 print" f1 [146] aktuelle datei im speicher"
  449. 4430 print"     loeschen "
  450. 4450 print" f3 [146] neue datei laden"
  451. 4460 print" f5 [146] ende "
  452. 4470 geta$:ifa$=""then4470
  453. 4480 ifa$="[133]"then4530
  454. 4500 ifa$="[134]"then4800
  455. 4510 ifa$="[135]"then100
  456. 4520 goto 4470
  457. 4530 print"[151]"
  458. 4540 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  459. 4550 print"[194]sicher ?(j/n)[151][194]"
  460. 4560 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  461. 4570 geta$:ifa$=""then4570
  462. 4580 ifa$="j"then4610
  463. 4590 ifa$="n"then4350
  464. 4600 goto 4570
  465. 4610 clr:pl$="keine im speicher":goto40
  466. 4670 open2,8,2,pl$+",s,r"
  467. 4680 fori=1to30
  468. 4690 input#2,b$(i):input#2,c$(i)
  469. 4700 input#2,d$(i):input#2,e$(i)
  470. 4710 input#2,f$(i):input#2,g$(i)
  471. 4720 input#2,h$(i):input#2,i$(i)
  472. 4730 input#2,j$(i):input#2,k$(i)
  473. 4740 input#2,l$(i)
  474. 4770 next:close2
  475. 4775 open2,8,2,"^"+pl$+",s,r"
  476. 4776 fori=1to15:input#2,name$(i):next
  477. 4777 close 2
  478. 4790 goto 4350
  479. 4800 goto 4900
  480. 4805 geta$:ifa$=""then4805
  481. 4810 ifa$="[147]"ora$=""ora$=""ora$="[157]"ora$=""ora$="[145]"then4805
  482. 4820 ifa$="[133]"then4350
  483. 4830 ifa$=chr$(13)thenpl$=bu$::goto5010
  484. 4840 ifa$=chr$(20)andv<=0then4805
  485. 4850 ifa$=chr$(20)then4880
  486. 4860 ifv=>17thenv=17:goto 4805
  487. 4870 bu$=bu$+a$:v=v+1:goto4890
  488. 4880 bu$=left$(bu$,v-1):v=v-1
  489. 4890 print""bu$+"[164]  ":goto4805
  490. 4900 print"[151]"
  491. 4910 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  492. 4920 fori=1to10:print"[194]                          [194]":next
  493. 4930 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  494. 4940 print""
  495. 4950 print"bitte geben sie den namen"
  496. 4960 print"der datei ein !!"
  497. 4970 print"[164]"
  498. 4980 print"[151][171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]"
  499. 4990 print" f1 [146] ende ":v=1:bu$=""
  500. 5000 goto 4805
  501. 5010 open2,8,2,pl$+",s,r":close2
  502. 5020 open15,8,15:input#15,nr,ft$,tr,sk
  503. 5030 close 15
  504. 5040 ifnr<>00then5060
  505. 5050 goto4670
  506. 5060 print"[151]"
  507. 5070 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  508. 5080 fori=1to10:print"[194]                  [194]":next
  509. 5090 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  510. 5100 print"[150]"
  511. 5110 print"fehleingabe !!!"
  512. 5120 geta$:ifa$=""then5120
  513. 5130 goto 4350
  514. 5140 print"[151]"
  515. 5150 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  516. 5160 fori=1to8:print"[194]                     [194]":next
  517. 5170 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  518. 5180 print""
  519. 5190 print"bitte geben sie den"
  520. 5200 print"namen der zu savenden"
  521. 5210 print"datei ein !"
  522. 5220 print"[164]":bu$="":v=1
  523. 5225 print"[151][171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]"
  524. 5226 print" f1 [146] ende"
  525. 5230 geta$:ifa$=""then5230
  526. 5240 ifa$="[147]"ora$=""ora$=""ora$="[145]"ora$="[157]"ora$="[157]"then5230
  527. 5250 ifa$="[133]"then100
  528. 5260 ifa$=chr$(20)andv=0then5230
  529. 5270 ifa$=chr$(13)thenpl$=bu$:goto5670
  530. 5275 ifa$=chr$(20)then5300
  531. 5280 ifv=>17thenv=17:goto5230
  532. 5290 bu$=bu$+a$:v=v+1:goto5310
  533. 5300 bu$=left$(bu$,v-1):v=v-1
  534. 5310 print""bu$+"[164] ":goto5230
  535. 5320 open15,8,15,"s:"+pl$:print#15,"s:^"+pl$:close15
  536. 5330 open2,8,2,pl$+",s,w"
  537. 5335 fori=1to30
  538. 5340 print#2,b$(i):print#2,c$(i)
  539. 5350 print#2,d$(i):print#2,e$(i)
  540. 5360 print#2,f$(i):print#2,g$(i)
  541. 5370 print#2,h$(i):print#2,i$(i)
  542. 5380 print#2,j$(i):print#2,k$(i)
  543. 5390 print#2,l$(i)
  544. 5420 next:
  545. 5430 close 2:open2,8,2,"^"+pl$+",s,w"
  546. 5431 fori=1to15:print#2,name$(i):next
  547. 5432 close 2:goto100
  548. 5450 geta$:ifa$=""then5450
  549. 5455 ifa$=""thenzu=zu+1:goto5510
  550. 5460 ifa$="[145]"thenzu=zu-1:goto5510
  551. 5470 ifa$=""thensp=sp+1:goto5510
  552. 5480 ifa$="[157]"thensp=sp-1:goto5510
  553. 5490 ifa$=chr$(13)then5510
  554. 5491 ifa$="+"ora$="-"then460
  555. 5495 ifa$="[133]"then100
  556. 5500 goto 1115
  557. 5510 ifzu=0thenprint"":print"  ":goto1450
  558. 5515 ifzu>11thenzu=11:goto5450
  559. 5520 ifzu<1thenzu=1:goto5450
  560. 5530 ifsp>2thensp=2:goto5450
  561. 5540 ifsp<1thensp=1:goto5450
  562. 5545 ifa$=""ora$="[157]"then5620
  563. 5550 print"":onspgoto5560,5580
  564. 5560 fori=1to11:print" ":next
  565. 5570 print"":fori=1tozu:print:next:print"_":goto5450
  566. 5580 print""
  567. 5590 fori=1to11:print" ":next
  568. 5600 print""
  569. 5610 fori=1tozu:print:next:print"_":goto5450
  570. 5620 onspgoto5650,5630
  571. 5630 print""
  572. 5640 fori=1to11:print" ":next:zu=1:goto5550
  573. 5650 print""
  574. 5660 fori=1to11:print" ":next:zu=1:goto5550
  575. 5670 fori=1to30:print""i:
  576. 5680 b$(i)=b$(i)+" "+chr$(13):c$(i)=c$(i)+" "+chr$(13):d$(i)=d$(i)+" "+chr$(13)
  577. 5690 e$(i)=e$(i)+" "+chr$(13):f$(i)=f$(i)+" "+chr$(13):g$(i)=g$(i)+" "+chr$(13)
  578. 5700 h$(i)=h$(i)+" "+chr$(13):i$(i)=i$(i)+" "+chr$(13):j$(i)=j$(i)+" "+chr$(13)
  579. 5710 k$(i)=k$(i)+" "+chr$(13):l$(i)=l$(i)+" "+chr$(13):next
  580. 5720 fori=1to15:name$(i)=name$(i)+" "+chr$(13):next:goto5320
  581.