home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh26a.d64 / vokabeltrainer (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  19KB  |  818 lines
  1. 1000 REM"[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][174]
  2. 1010 [143]"(null)   (null)OKABELTRAINER BY:   (null)
  3. 1020 REM"[221]    [193]LFRED [211]CHNABEL     [221]
  4. 1030 [143]"(null) ATNNTON-VON-(null)EHNER-(null)TR.5 (null)
  5. 1040 REM"[221] 8813 [211]CHILLINGSFUERST  [221]
  6. 1050 [143]"(null)   (null)EL. (09868) 1030    (null)
  7. 1060 REM"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
  8. 1070 :
  9. 1080 [151]53281,0:[151]53280,0:[151]646,0
  10. 1090 [153]"LOAD"
  11. 1100 [141]7370:[141]7520:[143]"TANTAN RIGHT$NIT TANTAN
  12. 1110 :
  13. 1120 POKE650,128:GOSUB4000
  14. 1130 :
  15. 1140 REM"[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][174]
  16. 1150 [143]"(null) (null)ROGRAMM  *** (null)PEEDER ***  (null)
  17. 1160 REM"[221]  [197]INZEILER AUS DER 64'ER   [221]
  18. 1170 :
  19. 1180 [160]1:[159]1,8,15,"M-W"[170][199](7)[170][199](28)[170][199](1)[170][199](15):[160]1
  20. 1190 :
  21. 1200 [143]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
  22. 1210 :
  23. 1220 REM"[192][192] [199]RUNDMASKE [192][192]
  24. 1230 :
  25. 1240 [151]53280,0:[151]646,1:[151]53265,32
  26. 1250 QQ[178]QQ[170]1
  27. 1260 [151]53281,1:[153]"LOAD";:[151]53281,6
  28. 1270 [129]I[178]1063[164]1983[169]40:[151]I,93:[151]I[170]1,93:[130]
  29. 1280 [151]1024,112:[151]1104,109:[151]1144,112:[151]1824,109
  30. 1290 [151]1864,112:[151]1984,109
  31. 1300 [151]1063,110:[151]1143,125:[151]1183,110:[151]1863,125
  32. 1310 [151]1903,110:[151]2023,125
  33. 1320 [129]I[178]1025[164]1062
  34. 1330 : [151]I,64:[151]I[170]80,64: [151]I[170]120,64:[151]I[170]800,64
  35. 1340 : [151]I[170]840,64:[151]I[170]960,64
  36. 1350 [130]
  37. 1360 [139]QQ[178]2[167]1390
  38. 1370 [141]7650:[143]"LEFT$ILF-(null)ASKE LADEN"
  39. 1380 [137]1250
  40. 1390 [151]53265,27
  41. 1400 :
  42. 1410 [143]"ORTANTANTANTANTANTANTANTANTAN^
  43. 1420 REM"[221]  [205]ENUE  [221]
  44. 1430 [143]"/TANTANTANTANTANTANTANTANTANEXP
  45. 1440 :
  46. 1450 T$="[205] E N U E"
  47. 1460 GOSUB3660:GOSUB3770:REM"[212]ITELB."
  48. 1470 PRINT"[198]1 = [206]EUE [214]OKABELDATEI EINRICHTEN"
  49. 1480 PRINT"[198]3 = [194]ESTEHENDE [214]OKABELDATEI AENDERN"
  50. 1490 PRINT"[198]5 = [214]OKABELN ABFRAGEN"
  51. 1500 PRINT"[198]7 = [196]RUCKEN"
  52. 1510 PRINT"[196]ISK-[205]ENUE:"
  53. 1520 PRINT"1 = [196]IRECTORY
  54. 1530 [153]"2 = ASCILENAMEN AENDERN"
  55. 1540 [153]"3 = ASCILES LOESCHEN"
  56. 1550 [153]"4 = ASCORMATIEREN"
  57. 1560 [153]"5 = (null)ALIDIEREN"
  58. 1570 [153]"6 = RIGHT$NITIALISIEREN"
  59. 1580 [153]"ASC8 = VALNDE"
  60. 1590 [151]211,1:[151]214,22:[158]58640
  61. 1600 [153]"PEEKITTE WAEHLEN (null)IE EINEN (null)ENUEPUNKT"
  62. 1610 [141]3890: [143]"GET"
  63. 1620 : [139] XX[178]133 [167] DN[178]1:[137]1880
  64. 1630 : [139] XX[178]134 [167]1720
  65. 1640 : [139] XX[178]135 [167]2260
  66. 1650 : [139] XX[178]136 [167]8800
  67. 1660 : [139] XX[178]140 [167]8760
  68. 1670 : XX[178][197](X$):[139] XX[178]0 [176] XX[177]6 [167] 1610
  69. 1680 : [145] XX [137]7920,7970,8260,8410,8600,8690
  70. 1690 :
  71. 1700 [143]"TANTAN (null)OKABELN EINGEBEN/AENDERN
  72. 1710 :
  73. 1720 T$="[214]OKABELN AENDERN":GOSUB3660
  74. 1730 GOSUB4820:REM"[196]ATEI LADEN"
  75. 1740 IF XE=140 THEN1410
  76. 1750 IF VN>99 THENI=VN:XE=133:GOTO1920
  77. 1760 IF FE<>62 THEN1900
  78. 1770 :
  79. 1780 : GOSUB3810:REM"[200]ILFZ"
  80. 1790 : CLOSE2
  81. 1800 : GOSUB3810:       REM"[200]ILFZEILE"
  82. 1810 : PRINT"[145][145][196]ATEI  "N$" [146] EXISTIERT NICHT."
  83. 1820 : PRINT"[211]OLL [196]ATEI EINGERICHTET WERDEN ? (J/N)"
  84. 1830 GOSUB3890:               REM"GET"
  85. 1840 :   IF X$="J" THENDN=1:FI$=N$:GOSUB3660:       GOTO1910
  86. 1850 :   IF X$="N" THEN1410
  87. 1860 GOTO1830
  88. 1870 :
  89. 1880 FI$="":T$="[206]EUE [214]OKABELDATEI"
  90. 1890 GOSUB3660
  91. 1900 IF DN=0 THEN1920
  92. 1910 I=1:VN=1
  93. 1920 X$="[215]OERTER BISHER EINGEGEBEN"
  94. 1930 GOSUB4460:REM"[214]OKABEL-[205]ASKE"
  95. 1940 GOSUB4530
  96. 1950 GOSUB5980
  97. 1960 IF I>99 THENI=VN:XE=134:GOTO6080
  98. 1970 IF XE=140 THEN2000
  99. 1980 :
  100. 1990 I=VN
  101. 2000 : GOSUB5720:REM"[214]OK. ERFASSEN"
  102. 2010 : IF XE<>140 THEN2060
  103. 2020 : IF D$(1)=". " THEN1410
  104. 2030 : GOSUB7280
  105. 2040 :   IF X$="J" THEN2210
  106. 2050 :   IF X$="N" THEN1410
  107. 2060 : IF XE=139 THEN2140
  108. 2070 : IF XE=133 OR XE=134 OR XE=137 OR XE=138 THEN6050
  109. 2080 : IFXE= 136THENXE=134:GOTO6090
  110. 2090 GOSUB4530:     REM"[214]OKABEL-[205]ASKE"
  111. 2100 I=I+1:VN=VN+1
  112. 2110 IF I<=99 THEN2000
  113. 2120 GOTO2170
  114. 2130 :
  115. 2140 IF D$(1)=". " THEN2000
  116. 2150 GOTO2210
  117. 2160 :
  118. 2170 GOSUB3810:REM"[200]ILFZEILE"
  119. 2180 PRINT"[145][145]"SPC(12)" [196]ATEI VOLL [146]"
  120. 2190 GOSUB3890:               REM"[199]ET"
  121. 2200 GOSUB5980:   REM"[200]ILFZEILE [197]ING."
  122. 2210 GOSUB7030:   REM"[196]ATEI SPEICHERN"
  123. 2220 IF XE=140 THENI=VN:GOTO1940
  124. 2230 CLR:GOSUB7370:          REM"[201]NIT"
  125. 2240 GOTO1410
  126. 2250 :
  127. 2260 REM"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  128. 2270 [143]"(null)  (null)OKABELN ABFRAGEN  (null)
  129. 2280 REM"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
  130. 2290 :
  131. 2300 T$[178]"(null)OKABELN ABFRAGEN"
  132. 2310 [141]3660:[141]3770:[143]"(null)ITELB."
  133. 2320 X$[178]"(null)OKABELN ABGEFRAGT"
  134. 2330 [141]4490:     [143]"(null)OKABEL-(null)ASKE"
  135. 2340 [141]4820:       [143]"STR$ATEI LADEN"
  136. 2350 : [139] XE[178]140 [167]1410
  137. 2360 : [139] FE[178]0 [167] 2400
  138. 2370 :   [153]"STR$ATEI EXISTIERT NICHT"
  139. 2380 :   [141]3890:           [143]"CHR$ET"
  140. 2390 :   [137]2340
  141. 2400 [141]3770:X$[178]"(null)OKABELN ABGEFRAGT":[141]4490
  142. 2410 [141]3810:         [143]"LEFT$ILFZEILE"
  143. 2420 [153]"ONON F WAIT (null)OKABELN FRISCH ABFRAGEN ODER"
  144. 2430 [153]"TAB(ATAB(WAIT SO WIE GESPEICHERT ?"
  145. 2440 [141]3890:               [143]"CHR$ET"
  146. 2450 : [139] X$[178]"F" [167]3530
  147. 2460 : [139] X$[178]"A" [167]2490
  148. 2470 [137]2440
  149. 2480 :
  150. 2490 [141]3810:         [143]"LEFT$ILFZEILE"
  151. 2500 [153]"ONON D WAIT = STR$EUTSCH  -> VALNGLISCH   !        WAIT"
  152. 2510 [153]"TAB(ETAB(WAIT = VALNGLISCH -> STR$EUTSCH    !MENUE   "
  153. 2520 [141]3890:               [143]"GET"
  154. 2530 : [139] X$[178]"E" [167] [153]"ONON";:[137]2570
  155. 2540 : [139] X$[178]"D" [167] [153]"ON"; :[137]2570
  156. 2550 : [139] X$[178]"RESTORE" [167]2260
  157. 2560 [137]2520
  158. 2570 [153]"(null)OMENT BITTE, ICH SORTIERE."
  159. 2580 A$[178]X$
  160. 2590 [141]4650:      [143]"(null)(null) (null)ORTIEREN"
  161. 2600 [141]3810:         [143]"LEFT$ILFZEILE"
  162. 2610 [153]"ONON'(null)VAL(null)(null)(null)(null)' NICHT GEWUSST"
  163. 2620 [153]"'ASC1' ATNBFRAGE BEENDEN"
  164. 2630 :
  165. 2640 I[178]1
  166. 2650 [151]211,2:[151]214,5:[158]58640
  167. 2660 :[153][201]([196](I),[195]([196](I))[171]1);:[139]I[179]10[167][153]" "
  168. 2670 :
  169. 2680 [143]"TANTAN (null)OKABEL AUSSUCHEN TANTANTANTANTANTANTANTANTAN
  170. 2690 IFNG=0THEN3330:   REM"[193]LLE GEWUSST
  171. 2700 K[178][181]([187](1)[172]NG)[170]1
  172. 2710 [139] A$[178]"D" [167]Y1[178]11:Y2[178]16:XD$[178]D$(K):XE$[178]E$(K)
  173. 2720 [139] A$[178]"E" [167]Y1[178]16:Y2[178]11:XD$[178]E$(K):XE$[178]D$(K)
  174. 2730 X[178][197]([202](XD$,2,1))
  175. 2740 XD$[178][201](XD$,[195](XD$)[171]2)
  176. 2750 XE$[178][201](XE$,[195](XE$)[171]2)
  177. 2760 [139] X[177][178]5 [167]X[178]X[171]1:[137]3190
  178. 2770 :
  179. 2780 [151]211,2:[151]214,Y1:[158]58640
  180. 2790 [153]XD$
  181. 2800 [151]211,2:[151]214,Y2:[158]58640
  182. 2810 EN[178]36:PO[178]P[170]Y2[172]40[170]2:[141]4240:[143]"VALING.
  183. 2820 IF XE=133 THEN 3610
  184. 2830 :
  185. 2840 REM"[192][192] [199]EWUSST ODER NICHT ? [192][192][192][192][192][192]
  186. 2850 [151]211,1:[151]214,Y2:[158]58640
  187. 2860 [153]""X3$"":[153]"ON";
  188. 2870 [153]XE$:[139]N$[178]""[167]3050
  189. 2880 X$[178]XE$
  190. 2890 J[178]1
  191. 2900 : [139] [202](X$,J,1)[178]"(" [167]2940
  192. 2910 J[178]J[170]1:[139] J[179][178][195](X$) [167]2900
  193. 2920 [137]2960
  194. 2930 :
  195. 2940 X$[178][200](X$,J[171]1)
  196. 2950 [139] [201](X$,1)[178]" " [167] X$[178][200](X$,[195](X$)[171]1):[137]2950
  197. 2960 J[178]1
  198. 2970 : [139] [202](X$,J,1)[178]";" [167]3000
  199. 2980 J[178]J[170]1:[139] J[177][195](X$) [167]3000
  200. 2990 [137]2970
  201. 3000 [139] N$[178][200](X$,J[171]1) [167]3160
  202. 3010 [139] J[177][195](X$) [167]3050
  203. 3020 X$[178][201](X$,[195](X$)[171]J)
  204. 3030 [137]2960
  205. 3040 :
  206. 3050 [143]"TANTAN (null)ICHT GEWUSST TANTAN
  207. 3060 :
  208. 3070 IF X>0 THEN X=X-1
  209. 3080 XD$="."+RIGHT$(STR$(X),1)+XD$
  210. 3090 IFA$="D"THEND$(K)=XD$
  211. 3100 IFA$="E"THENE$(K)=XD$
  212. 3110 POKE211,13:POKE214,Y1-2:SYS58640
  213. 3120 PRINT"[198]ALSCH "
  214. 3130 POKE198,0:WAIT198,1
  215. 3140 GOTO3270
  216. 3150 :
  217. 3160 REM"[192][192] [199]EWUSST [192][192]
  218. 3170 :
  219. 3180 X[178]X[170]1:[139] X[178]5 [167] X[178]8
  220. 3190 XD$[178]"="[170][201]([196](X),1)[170]XD$
  221. 3200 [139] A$[178]"D" [167]XE$[178]E$(K):D$(K)[178]D$(NG):E$(K)[178]E$(NG):D$(NG)[178]XD$:E$(NG)[178]XE$
  222. 3210 [139] A$[178]"E" [167]XE$[178]D$(K):D$(K)[178]D$(NG):E$(K)[178]E$(NG):D$(NG)[178]XE$:E$(NG)[178]XD$
  223. 3220 [151]211,13:[151]214,Y1[171]2:[158]58640
  224. 3230 [153]"(null)ICHTIG"
  225. 3240 NG[178]NG[171]1
  226. 3250 [151]198,0:[146]198,1
  227. 3260 :
  228. 3270 I[178]I[170]1
  229. 3280 [151]211,13:[151]214,Y1[171]2:[158]58640
  230. 3290 [153]"       "
  231. 3300 [141]4530:      [143]"(null)OKABELMASKE"
  232. 3310 [137]2650
  233. 3320 :
  234. 3330 [143]"TANTAN ATNLLE (null)OKABELN GEWUSST TANTAN
  235. 3340 :
  236. 3350 FOR K=1 TO VN-1
  237. 3360 : IF A$="D" THEND$(K)="."+RIGHT$(D$(K),LEN(D$(K))-1)
  238. 3370 : IF A$="E" THENE$(K)="."+RIGHT$(E$(K),LEN(E$(K))-1)
  239. 3380 NEXTK
  240. 3390 NG=VN-1
  241. 3400 IF A$="D" AND LEFT$(D$(1),2)=".8" THEN3440
  242. 3410 IF A$="E" AND LEFT$(E$(1),2)=".8" THEN3440
  243. 3420 GOTO2650
  244. 3430 :
  245. 3440 REM"[192][192] [193]LLE [214]OK. 5 MAL GEWUSST [192][192]
  246. 3450 :
  247. 3460 [141]3810:         [143]"LEFT$ILFZEILE"
  248. 3470 [153]"ONON(null)IE BEHERRSCHEN DIESE (null)EKTION. (null)OLLEN"
  249. 3480 [153]"(null)IE DAMIT WEITERARBEITEN ? (J/N)"
  250. 3490 [141]3890:               [143]"CHR$ET"
  251. 3500 : [139] X$[178]"J" [176] X$[178]"N" [167]3530
  252. 3510 [137]3490
  253. 3520 :
  254. 3530 [129]I[178]1[164]VN[171]1
  255. 3540 : D$(I)[178]". "[170][201](D$(I),[195](D$(I))[171]2)
  256. 3550 : E$(I)[178]". "[170][201](E$(I),[195](E$(I))[171]2)
  257. 3560 [130]I
  258. 3570 NG[178]VN[171]1
  259. 3580 [139] X$[178]"N" [167] 3610
  260. 3590 [137]2490
  261. 3600 :
  262. 3610 [143]"TANTAN STR$ATEI NEU SAVEN TANTAN
  263. 3620 :
  264. 3630 GOSUB7030:       REM"[196]ATEI SAVEN"
  265. 3640 GOTO1410
  266. 3650 :
  267. 3660 REM"[192][192] [213][208] [212]ITELBILD [192][192]
  268. 3670 :
  269. 3680 [151]211,0:[151]214,1:[158]58640
  270. 3690 [153]X1$
  271. 3700 [139] FI$[178]"" [167] X[178]20[171][195](T$)[173]2
  272. 3710 [139] FI$[177]"" [167] X[178]20[171]([195](FI$)[170]2)[173]2[171][195](T$)[173]2
  273. 3720 [151]211,X:[151]214,1:[158]58640
  274. 3730 [153]T$;
  275. 3740 [139] FI$[177]"" [167] [151]211,37[171][195](FI$):[151]214,1:[158]58640:[153]"["FI$"]WAIT"
  276. 3750 [142]
  277. 3760 :
  278. 3770 [151]211,0:[151]214,4:[158]58640
  279. 3780 [129] L[178]1 [164]15:[153]X1$:[130]
  280. 3790 [151]211,1:[151]214,19:[158]58640
  281. 3800 [153]"[_] = LEFT$ILFSFUNKTION                   WAIT"
  282. 3810 [151]211,0:[151]214,22:[158]58640
  283. 3820 [153]X1$:[153]X1$
  284. 3830 [142]
  285. 3840 :
  286. 3850 [151]211,0:[151]214,22:[158]58640
  287. 3860 [153]X4$:[153]X4$
  288. 3870 [142]
  289. 3880 :
  290. 3890 [143]"TANTAN (null)(null) GET X$ TANTANTAN
  291. 3900 :
  292. 3910 POKE 198,0:POKE53280,6
  293. 3920 GETX$:IFX$=""THEN3920
  294. 3930 : XX=ASC(X$)
  295. 3940 : IF X$="_" THENSYS49152:POKE198,0:WAIT198,1:SYS49152
  296. 3950 POKE53280,0
  297. 3960 RETURN
  298. 3970 :
  299. 3980 REM"[192][192] [213][208] [198]EHLERKANAL AUSLESEN [192][192]
  300. 3990 :
  301. 4000 [151]2,8:[158]49194
  302. 4010 : [139] [194](2)[178]0 [167]4080
  303. 4020 : [141]3810:      [143]"LEFT$ILFZEILE"
  304. 4030 : [153]"ONONPEEKITTE SCHALTEN (null)IE DIE ASCLOPPY EIN"
  305. 4040 : [153]"UND LEGEN (null)IE DIE STR$ATENDISKETTE EIN."
  306. 4050 : [151]198,0:[146]198,1
  307. 4060 [137]4000
  308. 4070 :
  309. 4080 [132]9,FE,F$,T,S
  310. 4090 : [139] FE[178]0 [176] FE[178]31 [167][142]
  311. 4100 : [141]3810:      [143]"LEFT$ILFZEILE"
  312. 4110 : [153]"ONON"FE"  "F$" WAIT "T;S
  313. 4120 : [139] FE[178]1 [167]4140
  314. 4130 : [153]"ASCEHLER BESEITIGEN UND (null)ASTE DRUECKEN."
  315. 4140 : [141]3890:            [143]"CHR$ET"
  316. 4150 [137]3980
  317. 4160 :
  318. 4170 [143]"TANTAN (null)(null) STR$ATEINAMEN EINGEBEN TANTAN
  319. 4180 :
  320. 4190 GOSUB3810:EN=14:  REM"[200]ILFZEILE"
  321. 4200 PRINT"[145][145][196]ATEINAME: "X5$"     !DIRECTOR[146]"
  322. 4210 PRINT S$ SPC(18)"!MENUE   "
  323. 4220 PRINT"[145][145]"SPC(12);
  324. 4230 QQ=1:PO=1916
  325. 4240 REM"[192][192] [213][208] [212]EXTEINGABE [192][192][192][192][192][192][192][192][192][192][192]
  326. 4250 [151]198,0
  327. 4260 Z[178]1:Z1[178]128:N$[178]""
  328. 4270 : [151]PO,[194](PO)[170]Z1
  329. 4280 : [161]X$:[139] X$[178]"" [167]4280
  330. 4290 : XE[178][198](X$)
  331. 4300 : [139]XE[178]95 [167][158]49152:[151]198,0:[146]198,1:[158]49152:[151]198,0:[137]4280
  332. 4310 : [139]XE[178]136 [175] QQ[178]1 [167] [141]5200:[137]4170
  333. 4320 : QQ[178]0
  334. 4330 : [139] XE[178]13 [176] (XE[177]132 [175] XE[179]141) [167] [151]PO,[194](PO)[171]128:[142]
  335. 4340 : [139] XE[179][177]20 [167]4390
  336. 4350 :   [139] Z[178]1 [167] [151]PO,[194](PO)[171]128:[137]4260
  337. 4360 :     Z[178]Z[171]1  :[151]PO,[194](PO)[171]Z1:PO[178]PO[171]1:[153]".CMDCMD";
  338. 4370 :     N$[178][200](N$,[195](N$)[171]1)
  339. 4380 : [137]4270
  340. 4390 : [139] XE[179]31 [176] (XE[177]127[175]XE[179]161) [167]4280
  341. 4400 : [139] XE[178]44 [167]X$[178]";"
  342. 4410 : N$[178]N$[170]X$:[153]X$;
  343. 4420 Z[178]Z[170]1:PO[178]PO[170]1:[139] Z[179][178]EN [167]4270
  344. 4430 Z[178]Z[171]1:PO[178]PO[171]1:[153]"CMD CMD";:[137]4370
  345. 4440 [142]
  346. 4450 :
  347. 4460 [143]"TANTAN (null)(null) (null)OKABELN-(null)ASKE TANTAN
  348. 4470 :
  349. 4480 GOSUB3770:        REM"[199]UNDMASKE"
  350. 4490 POKE211,0:POKE214,4:SYS58640
  351. 4500 PRINT"[176][192][192][192][192][174]"
  352. 4510 PRINT"[221]    [221] "X$
  353. 4520 PRINT"[173][192][192][192][192][189]"
  354. 4530 POKE211,0:POKE214,8:SYS58640
  355. 4540 POKE646,5
  356. 4550 PRINT"[176][192][192][192][192][192][192][192][192][174]":PRINT"[221][196]EUTSCH [221]"
  357. 4560 PRINT"[171][192][192][192][192][192][192][192][192][177]"LEFT$(X2$,27)"[174]"
  358. 4570 PRINT""X3$:PRINT"[173]"X2$"[189]"
  359. 4580 POKE211,0:POKE214,13:SYS58640:POKE646,5
  360. 4590 PRINT"[176][192][192][192][192][192][192][192][192][174]":PRINT"[221][197]NGLISCH[221]"
  361. 4600 PRINT"[171][192][192][192][192][192][192][192][192][177]"LEFT$(X2$,27)"[174]"
  362. 4610 PRINT""X3$:PRINT"[173]"X2$"[189]"
  363. 4620 POKE646,1
  364. 4630 RETURN
  365. 4640 :
  366. 4650 REM"[192][192] [213][208][160][211]ORTIEREN [192][192]
  367. 4660 :
  368. 4670 J[178]1:K[178]VN[171]1
  369. 4680 [139] A$[178]"E" [167]4710
  370. 4690 : [139] [200](D$(J),1)[178]"." [167]4770
  371. 4700 : [137]4720
  372. 4710 : [139] [200](E$(J),1)[178]"." [167]4770
  373. 4720 : X$[178]D$(K):D$(K)[178]D$(J):D$(J)[178]X$
  374. 4730 : X$[178]E$(K):E$(K)[178]E$(J):E$(J)[178]X$
  375. 4740 : K[178]K[171]1
  376. 4750 : [139] K[178]J [167]4800
  377. 4760 [137]4690
  378. 4770 J[178]J[170]1
  379. 4780 [139] J[178]K [167]4800
  380. 4790 [137]4690
  381. 4800 [142]
  382. 4810 :
  383. 4820 [143]"TANTAN (null)(null) STR$ATEI LADEN TANTAN
  384. 4830 :
  385. 4840 S$="[LADEN]    "
  386. 4850 GOSUB4170:  REM"[196]ATEINAME EING."
  387. 4860 IF XE=140 THENRETURN
  388. 4870 IF (XE= 13 AND N$="") OR XE<>13 THEN4840
  389. 4880 IF N$=FI$ THEN RETURN
  390. 4890 GOSUB3980:      REM"[198]EHLERKANAL"
  391. 4900 CLOSE2:OPEN2,8,2,"VO."+N$+",S,R"
  392. 4910 GOSUB4080:      REM"[198]EHLERKANAL"
  393. 4920 GOSUB3810:        REM"[200]ILFZEILE"
  394. 4930 PRINT"[145][145][204]OADING  "N$" [146]"
  395. 4940 IF FE>0 THEN RETURN
  396. 4950 DN=0
  397. 4960 VN=0
  398. 4970 FI$=N$
  399. 4980 INPUT#2,NG
  400. 4990 : VN=VN+1
  401. 5000 : INPUT#2,D$(VN)
  402. 5010 : INPUT#2,E$(VN)
  403. 5020 IF (ST AND 64)<>64 THEN4990
  404. 5030 CLOSE2
  405. 5040 VN=VN+1
  406. 5050 GOSUB3660:        REM"[212]ITELBILD"
  407. 5060 RETURN
  408. 5070 :
  409. 5080 REM"[192][192] [196]IRECTORY ANZEIGEN [192][192]
  410. 5090 :
  411. 5100 D$[178]"":S[178]0:XN$[178]""
  412. 5110 [141]3850:  [143]"LEFT$ILFZEILE"
  413. 5120 [153]"ONONGANZE STR$IR!NUR STR$ATEI"[166]11)XN$
  414. 5130 [153][166]31)"ZURUECK"
  415. 5140 [141]3890:              [143]"GET"
  416. 5150 : [139] XX[178]136 [167] [139] S[177]0 [167] [141]3770:[137]5210
  417. 5160 : [139] XX[178]133 [167] D$[178]"":[137]5210
  418. 5170 : [139] XX[178]134 [167]5200
  419. 5180 : [139] XX[178]140 [167][142]
  420. 5190 [137]5140
  421. 5200 D$[178]"VO."
  422. 5210 [141]3770:           [143]"(null)ITELB"
  423. 5220 Z[178]1:[139] XX[178]136 [167] [153]"":[137] 5620
  424. 5230 :
  425. 5240 FT$(0)[178]"..STR$EL..":FT$(1)[178]"(null)EQUENTIAL":FT$(2)[178]"(null)ROGRAM":FT$(3)[178]"(null)SER"
  426. 5250 FT$(5)[178]"(null)ELATIVE"
  427. 5260 [160]2:DN$[178]""
  428. 5270 [152]9,"I"
  429. 5280 [141]3980:      [143]"ASCEHLERKANAL"
  430. 5290 [141]3810:        [143]"LEFT$ILFZEILE"
  431. 5300 [159]2,8,2,"#"
  432. 5310 [152]9,"U1 2 0 18";S
  433. 5320 [152]9,"B-P 2 144"
  434. 5330 [129]I[178]0[164]15:[161]#2,X$:[139] X$[178]"CLOSE" [167] 5360
  435. 5340 : [143]"   ^='(null)HIFT'-'(null)PACE' !!"
  436. 5350 : DN$[178]DN$[170]X$
  437. 5360 [130]I
  438. 5370 [153]""X1$""DN$:[153]:[153]
  439. 5380 :
  440. 5390 S[178]1:BF[178]664
  441. 5400 [152]9,"U1 2 0 18";S
  442. 5410 [152]9,"B-P 2 0":BY[178]0
  443. 5420 [161]#2,X$:T[178][198](X$[170][199](0))
  444. 5430 [161]#2,X$:S[178][198](X$[170][199](0))
  445. 5440 DN$[178]""
  446. 5450 BY[178]BY[170]5:[152]9,"B-P 2";BY
  447. 5460 [129]I[178]0[164]15:[161]#2,X$:DN$[178]DN$[170]X$:[130]I
  448. 5470 [139] [195](DN$)[178]0 [167] 5670
  449. 5480 BY[178]BY[170]25:[152]9,"B-P 2";BY
  450. 5490 [161]#2,X$:X[178][198](X$[170][199](0))
  451. 5500 [161]#2,X$:X[178]X[170][198](X$[170][199](0))[172]256
  452. 5510 [139] X[179] 10 [167] DN$[178]DN$[170]" "
  453. 5520 [139] X[179]100 [167] DN$[178]DN$[170]" "
  454. 5530 DN$[178]DN$[170][196](X)[170]" PEEKL. "
  455. 5540 BF[178]BF[171]X:[139] BF[179]0 [167] BF[178]0
  456. 5550 BY[178]BY[171]28:[152]9,"B-P 2";BY
  457. 5560 [161]#2,X$
  458. 5570 DN$[178]DN$[170]FT$([198](X$[170][199](0))[175]3)
  459. 5580 [139] D$[178]"VO."[175] [200](DN$,3)[179][177]D$ [167]5620
  460. 5590 [153]""DN$
  461. 5600 Z[178]Z[170]1:[139] Z[179]16 [167]5620
  462. 5610 XN$[178]"WEITER":[137]5110
  463. 5620 BY[178]BY[170]30
  464. 5630 [139] BY[179]255 [167] 5440
  465. 5640 [139] T[178]0 [176] T[177]35 [167] 5670
  466. 5650 [137]5400
  467. 5660 :
  468. 5670 [160]2:XN$[178]"      "
  469. 5680 [153]""[166]26) BF"PEEKL. FREE"
  470. 5690 [139] QQ[178]1 [167][142]
  471. 5700 [137]5100
  472. 5710 :
  473. 5720 [143]"TANTAN (null)(null) (null)OKABELN ERFASSEN TANTAN
  474. 5730 :
  475. 5740 POKE211, 2:POKE214, 5:SYS58640
  476. 5750 : PRINTRIGHT$(STR$(I),LEN(STR$(I))-1);  : IF I<10 THENPRINT" "
  477. 5760 : POKE211,2:POKE214,11:SYS58640
  478. 5770 : EN=36:PO=1466:GOSUB4240:REM"[197]INGABE"
  479. 5780 : IF N$>"" THEN D$(I)=". "+N$
  480. 5790 : IF XE=139 OR XE=133 OR XE=134 OR XE=137 OR XE=138 OR XE=140 THENRETURN
  481. 5800 : IF XE=136 THEN5840
  482. 5810 IF XE=13 AND PO=1466 THEN GOTO6570
  483. 5820 : IF (XE=135 OR XE=13) AND N$="" THENGOTO5760
  484. 5830 : GOTO5870
  485. 5840 : IF N$="" THEN RETURN
  486. 5850 : GOSUB4530:GOTO5760
  487. 5860 :
  488. 5870 POKE211,2:POKE214,16:SYS58640
  489. 5880 : EN=36:PO=1666:GOSUB4240:REM"[197]INGABE"
  490. 5890 : E$(I)=". "+N$
  491. 5900 : IF XE=133 OR XE=134 OR XE=137 OR XE=138 THENRETURN
  492. 5910 : IF XE=136 THEN5950
  493. 5920 : IF (XE=13 OR XE=135 OR XE=139) AND N$="" THEN5870
  494. 5930 FI$=""
  495. 5940 : RETURN
  496. 5950 : IF N$="" THEN5850
  497. 5960 GOSUB4580:GOTO5870
  498. 5970 :
  499. 5980 REM"[192][192] [213][208] [200]ILFSZEILE [214]OK.EINGABE
  500. 5990 :
  501. 6000 [141]3850:[143]"LEFT$ILFSZEILE"
  502. 6010 [153]"ONON 1 VOR   ! 1 RUECK !AENDERN  !LOESCHENWAIT"
  503. 6020 [153]"10 VOR   !10 RUECK !SPEICHERN!MENUE   WAIT"
  504. 6030 [142]
  505. 6040 :
  506. 6050 [143]"TANTAN (null)(null) (null)OKABELN BLAETTERN TANTAN
  507. 6060 :
  508. 6070 IF XE=133 AND I=VN THEN2000
  509. 6080 IF XE=133 THENI=I+ 1:GOTO6120
  510. 6090 IF XE=134 THENI=I- 1:GOTO6160
  511. 6100 IF XE=137 THENI=I+10:GOTO6120
  512. 6110 IF XE=138 THENI=I-10:GOTO6160
  513. 6120 IF I> 99 THEN I=99
  514. 6130 IF I>=VN THEN1940
  515. 6140 GOTO6180
  516. 6150 :
  517. 6160 IF I<1 THENI=1:GOTO6130
  518. 6170 :
  519. 6180 POKE211, 2:POKE214, 5:SYS58640
  520. 6190 PRINTRIGHT$(STR$(I),LEN(STR$(I))-1);:   IF I<10 THEN PRINT" "
  521. 6200 GOSUB4530:     REM"[214]OKABELMASKE"
  522. 6210 POKE211,2:POKE214,11:SYS58640
  523. 6220 PRINTRIGHT$(D$(I),LEN(D$(I))-2)
  524. 6230 POKE211,2:POKE214,16:SYS58640
  525. 6240 PRINTRIGHT$(E$(I),LEN(E$(I))-2)
  526. 6250 GOSUB3890:              REM"GET"
  527. 6260 : XE=ASC(X$)
  528. 6270 : IF XE=135 THENFI$="":GOTO6360
  529. 6280 : IF XE=136 THENFI$="":GOTO6390
  530. 6290 : IF XE=140 THENGOSUB7280
  531. 6300 :   IF X$="J" THEN2210
  532. 6310 :   IF X$="N" THEN1410
  533. 6320 : IF XE=139 THEN2210
  534. 6330 : IF XE=133 OR XE=134 OR XE=137 OR XE=138 THEN6080
  535. 6340 GOTO6250
  536. 6350 :
  537. 6360 GOSUB5720:REM"[214]OKABELN ERFASSEN"
  538. 6370 GOTO6050
  539. 6380 :
  540. 6390 REM"[192][192] [214]OKABEL LOESCHEN [192][192][192][192][192][192][192][192][192]
  541. 6400 [139] I[178]1 [175] D$(I)[178]"" [167] 6180
  542. 6410 [141]3810:        [143]"HILFZEILE"
  543. 6420 [153]"ONON(null)IRKLICH LOESCHEN ? (J/N)
  544. 6430 GOSUB3890:              REM"GET"
  545. 6440 : IF X$="J" THEN6470
  546. 6450 : IF X$="N" THEN6550
  547. 6460 GOTO6430
  548. 6470 IF VN=100 THEN D$(99)="":E$(99)="":GOTO6520
  549. 6480 IF VN=2 THEN D$(1)="":E$(1)=""    :GOTO6520
  550. 6490 FOR J=I TOVN-1
  551. 6500 : D$(J)=D$(J+1):E$(J)=E$(J+1)
  552. 6510 NEXT
  553. 6520 : VN=VN-1:IF I=VN THEN1940
  554. 6530 : IF VN<=1 THEN VN=1:GOTO1940
  555. 6540 : IF  I<=1 THEN  I=1
  556. 6550 GOSUB5980
  557. 6560 GOTO6180
  558. 6570 :
  559. 6580 REM"[192][192] [211]UCHROUTINE [192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  560. 6590 :
  561. 6600 X$[178]"(null)UCHROUTINE":[141]4460
  562. 6610 Q9[178]I
  563. 6620 [151]211,2:[151]214,11:[158]58640
  564. 6630 EN[178]36:PO[178]1466:[141]4240
  565. 6640 X[178][195](N$)
  566. 6650 I[178]1
  567. 6660 :[139]N$[178]""[167]6900
  568. 6670 :[141]4530:D$[178][201](D$(I),[195](D$(I))[171]2):E$[178][201](E$(I),[195](E$(I))[171]2)
  569. 6680 :[151]211,2:[151]214,11:[158]58640
  570. 6690 :[153]D$
  571. 6700 :[151]211,2:[151]214,16:[158]58640
  572. 6710 :[153]E$
  573. 6720 :[151]211,2:[151]214,5:[158]58640:[153]I
  574. 6730 :[139]X[177][195](D$)[167]6760
  575. 6740 :X$[178]D$:[141]6950
  576. 6750 :[139]J[177]0[167]6800
  577. 6760 :[139]X[177][195](E$)[167]6870
  578. 6770 :X$[178]E$:[141]6950
  579. 6780 :[139]J[178]0[167]6870
  580. 6790 [143] GEWUSST
  581. 6800 :[151]211,2:[151]214,22:[158]58640
  582. 6810 :[153]"WEITERSUCHEN (J/N) ?"
  583. 6820 :[141]3890
  584. 6830 :[139]X$[178]"J"[167][141]3810:[137]6870
  585. 6840 :[139]X$[178]"N"[167]6920
  586. 6850 :[137]6820
  587. 6860 :
  588. 6870 I[178]I[170]1
  589. 6880 [139]I[178]100[167]6900
  590. 6890 [139]I[179]100[175]D$(I)[177]""[167]6670
  591. 6900 I[178]Q9:[137]6920
  592. 6910 :
  593. 6920 X$[178]"(null)OERTER BISHER EINGEGEBEN"
  594. 6930 [141]4460:[141]5980:[137]6120
  595. 6940 :
  596. 6950 J[178]1
  597. 6960 [139]N$[178][200](X$,[195](N$))[167][142]
  598. 6970 [139][202](X$,J,1)[178]";"[167]7000
  599. 6980 J[178]J[170]1:[139]J[177][195](X$)[167]7020
  600. 6990 [137]6970
  601. 7000 X$[178][201](X$,[195](X$)[171]J)
  602. 7010 [137]6960
  603. 7020 J[178]0:[142]
  604. 7030 [143]"TANTAN (null)(null) STR$ATEI SPEICHERN TANTAN
  605. 7040 :
  606. 7050 S$="[SPEICHERN]"
  607. 7060 GOSUB4170:  REM"[196]ATEINAME EING."
  608. 7070 IF XE=140 THENRETURN
  609. 7080 GOSUB3980:      REM"[198]EHLERKANAL"
  610. 7090 CLOSE2:OPEN2,8,2,"VO."+N$+",S,W"
  611. 7100 GOSUB4080:      REM"[198]EHLERKANAL"
  612. 7110 IF FE=0 THEN7200
  613. 7120 : GOSUB3810:PRINT"[145][145][196]ATEI EXISTIERT BEREITS !"
  614. 7130 : PRINT"[193]LTE [196]ATEI UEBERSCHREIBEN ? (J/N)
  615. 7140 [141]3890:              [143]"GET"
  616. 7150 [139]X$[178]"N"[167]7050
  617. 7160 [139]X$[178]"J"[167][152]9,"S:VO."[170]N$:[160]2:[159]2,8,2,"VO."[170]N$[170]",S,W":[137]7180
  618. 7170 [137]7140
  619. 7180 [141]3810:       [143]"LEFT$ILFSZEILE"
  620. 7190 [153]"ONON(null)AVING  "N$" WAIT"
  621. 7200 [152]2,VN[171]1
  622. 7210 [129]J[178]1[164]VN[171]1
  623. 7220 : [152]2,D$(J)
  624. 7230 : [152]2,E$(J)
  625. 7240 [130]J
  626. 7250 [160]2
  627. 7260 [142]
  628. 7270 :
  629. 7280 [143]"TANTAN (null)(null)CLOSESTR$ATEI NICHT GESPEICHERT
  630. 7290 :
  631. 7300 GOSUB3810:        REM"[200]ILFZEILE"
  632. 7310 PRINT"[145][145][196]ATEI IST NOCH NICHT GESPEICHERT !!"
  633. 7320 PRINT"[211]OLL [196]ATEI GESPEICHERT WERDEN ? (J/N)"
  634. 7330 GOSUB3890:              REM"GET"
  635. 7340 IF X$<>"J" AND X$<>"N" THEN7330
  636. 7350 RETURN
  637. 7360 :
  638. 7370 REM"[192][192] [213][208] [201]NIT [214]AR. + [205]ASCHPGE. [192][192]
  639. 7380 :
  640. 7390 [143]"TANTAN RIGHT$NIT (null)ARIABLEN TANTANTANTANTANTANTANTANTANTANTAN
  641. 7400 :
  642. 7410 DIMD$(99),E$(99)
  643. 7420 X1$="                                      "
  644. 7430 X2$="[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]"
  645. 7440 X3$="[221]................................... [221]"
  646. 7450 X4$="         !         !         !        [146]"
  647. 7460 X5$="............."
  648. 7470 P=1024
  649. 7480 PRINTCHR$(14)CHR$(8);
  650. 7490 CLOSE9:OPEN9,8,15
  651. 7500 RETURN
  652. 7510 :
  653. 7520 REM"[192][192] [201]NIT [205]ASCH.PROGRAMME [192][192][192][192][192]
  654. 7530 :
  655. 7540 [143]"BILDSCHIRMCHANGER"
  656. 7550 [131] 169,0,133,87,169,4,133,88,169,56,133,89,169,199,133,90,160,0,177,87
  657. 7560 [131]170,177,89,145,87,138,145,89,200,208,243,230,88,230,90,169,8,197,88
  658. 7570 [131] 208,231,96
  659. 7580 [129]I[178]49152[164]49193:[135]X:[151]I,X:[130]
  660. 7590 :
  661. 7600 [143]"FLOPPY AN/AUS"
  662. 7610 [131] 169,1,160,192,162,33,32,189,255,169,1,160,15,166,2,32,186,255,32
  663. 7620 [131] 192,255,176,2,169,0,133,2,169,1,32,195,255,96,32
  664. 7630 [129]I[178]49194[164]49227:[135]X:[151]I,X:[130]
  665. 7640 :
  666. 7650 [143]"TANTAN (null)(null) LEFT$ILFSANZEIGE TANTAN
  667. 7660 :
  668. 7670 PRINT""SPC(14)"[200]ILFS-[212]AFEL"
  669. 7680 PRINT"[[198]8] MENUE[146] FUEHRT IN DIE LETZTE [193]NWEN-
  670. 7690 [153]"DUNG ODER DAS LETZTE (null)ENUE ZURUECK."
  671. 7700 [153]"--------------------------------------"
  672. 7710 [153]"RIGHT$M STR$ISK-(null)ENUE IST JEWEILS DER VOLLE   "
  673. 7720 [153]"(null)ROGRAMMNAME ZU VERWENDEN. ATNNSONSTEN  "
  674. 7730 [153]"WIRD BEI (null)OKABELDATEIEN DIE (null)ENNUNG   "
  675. 7740 [153]" VO. WAIT NICHT MIT EINGEGEBEN !!         "
  676. 7750 [153]"--------------------------------------"
  677. 7760 [153]"(null)RITT EINE ASCEHLERMELDUNG DURCH DIE    "
  678. 7770 [153]"ASCLOPPY AUF UND WERDEN KEINE (null)ASSNAHMEN"
  679. 7780 [153]"ERKLAERT, VERFAHREN (null)IE BITTE NACH DEM"
  680. 7790 [153]"PEEKEDIENUNGSHANDBUCH ZUR ASCLOPPY 1541.   "
  681. 7800 [153]"--------------------------------------"
  682. 7810 [153]"[_] = ZURUECK INS (null)ROGRAMM            WAIT"
  683. 7820 [151]211,0:[151]214,22:[158]58640
  684. 7830 [153]"  [ASC1]   !  [ASC3]   !  [ASC5]   !  [ASC7]  WAIT"
  685. 7840 [153]"  [ASC2]   !  [ASC4]   !  [ASC6]   !  [ASC8]  WAIT"
  686. 7850 [158]49152
  687. 7860 [142]
  688. 7870 :
  689. 7880 [143]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
  690. 7890 REM"[221]  [196]ISKETTEN-[205]ENUE  [221]
  691. 7900 [143]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
  692. 7910 :
  693. 7920 REM"[192][192] [196]IRECTORY [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  694. 7930 :
  695. 7940 [141]5080: [143]"STR$IRECTORY"
  696. 7950 [137]1410
  697. 7960 :
  698. 7970 [143]"TANTAN ASCILENAMEN AENDERN TANTANTANTANTANTANTANTAN
  699. 7980 :
  700. 7990 QQ=1:GOSUB5080:QQ=0:   REM"[196]IR."
  701. 8000 GOSUB3810:        REM"[200]ILFZEILE"
  702. 8010 PRINT"[145][145][194]ISHERIGER [206]AME: "X5$"..."
  703. 8020 POKE211,18:POKE214,22:SYS58640
  704. 8030 EN=17:PO=1922:GOSUB4240:REM"[197]ING.
  705. 8040 [139] XE[178]140 [167]1410
  706. 8050 [139] XE[179][177]13 [167][153]:[137]8010
  707. 8060 [139] N$[178]"" [167]1410
  708. 8070 A$[178]N$
  709. 8080 [153]:[153]"(null)EUER (null)AME     : "X5$"..."
  710. 8090 [151]211,18:[151]214,23:[158]58640
  711. 8100 PO[178]1962:[141]4240:  [143]"VALINGABE"
  712. 8110 [139] XE[178]140 [167]1410
  713. 8120 [139] XE[179][177]13 [167][153]"ON";:[137]8080
  714. 8130 [141]3980:      [143]"ASCEHLERKANAL"
  715. 8140 [152]9,"R:"[170]N$[170]"="[170]A$
  716. 8150 [141]4080:      [143]"ASCEHLERKANAL"
  717. 8160 [139] FE[178]63 [167]X$[178]"BEREITS":[137]8190
  718. 8170 [139] FE[178]62 [167]X$[178]"NICHT":[137]8190
  719. 8180 [137]1410
  720. 8190 : [141]3810:      [143]"LEFT$ILFZEILE"
  721. 8200 : [153]"ONON ASCILE EXISTIERT "X$" !! WAIT"
  722. 8210 : [153]"[PEEKITTE (null)ASTE DRUECKEN]"
  723. 8220 : [141]3890:            [143]"CHR$ET"
  724. 8230 :
  725. 8240 [137]8000
  726. 8250 :
  727. 8260 [143]"TANTAN ASCILES LOESCHEN TANTANTANTANTANTANTANTANTANTANTAN
  728. 8270 :
  729. 8280 QQ=1:GOSUB5080:QQ=0:   REM"[196]IR."
  730. 8290 GOSUB3810:        REM"[200]ILFZEILE"
  731. 8300 PRINT"[145][145][204]OESCHFILE : "X5$"..."
  732. 8310 PRINT"[[215]ENN FERTIG, '[210][197][212][213][210][206]' DRUECKEN]."
  733. 8320 POKE211,14:POKE214,22:SYS58640
  734. 8330 EN=17:PO=1918:GOSUB4240:REM"[197]ING.
  735. 8340 [139] XE[178]140 [167]1410
  736. 8350 [139] N$[178]"" [167] 1410
  737. 8360 [141]3980:      [143]"ASCEHLERKANAL"
  738. 8370 [152]9,"S:"[170]N$
  739. 8380 [141]4080:      [143]"ASCEHLERKANAL"
  740. 8390 [137]8290
  741. 8400 :
  742. 8410 [143]"TANTAN ASCORMATIEREN TANTANTANTANTANTANTANTANTANTANTANTANTANTAN
  743. 8420 :
  744. 8430 GOSUB3810:        REM"[200]ILFZEILE"
  745. 8440 PRINT"[145][145][206]AME:"X5$"...  [201][196]:..  !       "
  746. 8450 PRINTSPC(31)"! MENUE [146]";
  747. 8460 POKE211,6:POKE214,22:SYS58640
  748. 8470 EN=17:PO=1910:GOSUB4240:REM"[197]ING.
  749. 8480 [139] XE[178]140 [167]1410
  750. 8490 [139] XE[179][177]13 [167][153]:[137]8430
  751. 8500 A$[178]N$
  752. 8510 [151]211,27:[151]214,22:[158]58640
  753. 8520 EN[178]3:PO[178]1931:[141]4240:[143]"VALING.
  754. 8530 IF XE=140 THEN1410
  755. 8540 IF XE<>13 THENPRINT:GOTO8510
  756. 8550 GOSUB3980:      REM"[198]EHLERKANAL"
  757. 8560 PRINT#9,"N:"+A$+","+N$
  758. 8570 GOSUB4080:      REM"[198]EHLERKANAL"
  759. 8580 GOTO1410
  760. 8590 :
  761. 8600 REM"[192][192] [214]ALIDIEREN [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  762. 8610 :
  763. 8620 [141]3980:      [143]"ASCEHLERKANAL"
  764. 8630 [141]3810:      [143]"LEFT$ILFZEILE  "
  765. 8640 [153]"ONON"[166]13)" (null)ALIDIEREN "
  766. 8650 [152]9,"V"
  767. 8660 [141]4080:      [143]"ASCEHLERKANAL"
  768. 8670 [137]1410
  769. 8680 :
  770. 8690 [143]"TANTAN RIGHT$NITIALISIEREN TANTANTANTANTANTANTANTANTANTANTAN
  771. 8700 :
  772. 8710 GOSUB3980:      REM"[198]EHLERKANAL"
  773. 8720 PRINT#9,"I"
  774. 8730 GOSUB4080:      REM"[198]EHLERKANAL"
  775. 8740 GOTO1410
  776. 8750 :
  777. 8760 PRINT"[147]"X2$"[192][192][192][192]       [208] R O G R A M M - [197] N D E        [146]"X2$"[192][192][192][192]"
  778. 8770 PRINT""
  779. 8780 POKE 53280,6:END
  780. 8790 :
  781. 8800 REM"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  782. 8810 [143]"(null) (null)OKABELN DRUCKEN (null)
  783. 8820 REM"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
  784. 8830 :
  785. 8840 D1[178]14:D2[178]15:SL[178]72:GA[178]4:SA[178]7
  786. 8850 T$[178]"STR$ R U C K E N"
  787. 8860 [141]3660:[141]3770
  788. 8870 [141]9140:[139] XE[178]140 [167]1410
  789. 8880 [141]3850:[153]"ONONSTR$RUCKEN"[166]23)"(null)ENUE"
  790. 8890 [141]3890
  791. 8900 : [139] XX[178]133 [167]8930
  792. 8910 : [139] XX[178]140 [167]1410
  793. 8920 [137]8890
  794. 8930 [141]3810:[153]"ONON"[166]6)"PEEKITTE STR$RUCKER VORBEREITEN "
  795. 8940 [153]"(null)ENN FERTIG:(null)ASTE DRUECKEN (ASC8=ZURUECK"
  796. 8950 [141]3890
  797. 8960 [139] XX[178]140 [167]1410
  798. 8970 [141]3850:[153]"ONON(null)AUSE"[166]25)"ATNBBRUCH"
  799. 8980 [151]2,4:[158]49194
  800. 8990 [139] [194](2)[177]0 [167]8930
  801. 9000 ZZ[178]2:[160]2:[159]2,GA,SA
  802. 9010 [152]2,[199](D1)"(null) O K A B E L D A T E I"[199](D2)[199](13)
  803. 9020 [129]I[178]1 [164] VN[171]1
  804. 9030 : [152]2,[201](D$(I),[195](D$(I))[171]2)" ";
  805. 9040 :[152]2,[202](X3$,2,40[171][195](D$(I)))" ";
  806. 9050 : [152]2,[201](E$(I),[195](E$(I))[171]2)
  807. 9060 : [161]X$:XX[178][198](X$[170][199](0)):[139]XX[178]133[167][151]198,0:[146]198,1
  808. 9070 :   [139] XX[178]136 [167]I[178]999:[130]I:[137]8800
  809. 9080 : ZZ[178]ZZ[170]1:[139] ZZ[178]SL[171]2 [167] [152]2,[199](13)[199](13):ZZ[178]1
  810. 9090 [130]I
  811. 9100 [152]2,[199](13)"*****"
  812. 9110 [160]2
  813. 9120 [137]8800
  814. 9130 :
  815. 9140 FE[178]0:XX[178]0:[141]4820
  816. 9150 [139] FE[177]0 [167]9140
  817. 9160 [142]
  818.