home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh9x / sh91a.d64 / vokabelprogramm (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  11KB  |  423 lines
  1. 10 REM"**************************"
  2. 20 REM"***                    ***"
  3. 30 REM"*** VOKABEL PROGRAMM   ***"
  4. 40 REM"***                    ***"
  5. 50 REM"*** VON DIRK LANGHUBER ***"
  6. 60 REM"***                    ***"
  7. 70 REM"**************************"
  8. 80 :
  9. 90 POKE 53280,7:POKE 53281,5:PRINT"[144]"
  10. 100 PRINTCHR$(14)
  11. 110 GOSUB 3730
  12. 120 CLR:DIMC$(50,3):DIMA$(40),Z$(1,4):BG=49
  13. 130 CL$=CHR$(147)
  14. 140 CL$=CHR$(147):PRINTCL$
  15. 150 PRINTCL$:POKE204,1:POKE207,0:REM *** MENUE ***
  16. 160 PRINT"*****************"
  17. 170 PRINT"*               *"
  18. 180 PRINT"* [214]OKABEL MENUE *"
  19. 190 PRINT"*               *"
  20. 200 PRINT"*****************"
  21. 210 PRINT"[214]OKABELN EINGEBEN    (1)"
  22. 220 PRINT"[214]OKABELN ABFRAGEN    (2)"
  23. 230 PRINT"[214]OKABELN ABSPEICHERN (3)"
  24. 240 PRINT"[214]OKABELN EINLESEN    (4)"
  25. 250 PRINT"[214]OKABELN ANSCHAUEN   (5)"
  26. 260 PRINT"[214]OKABELN UEBERSETZEN (6)"
  27. 270 PRINT"[214]OKABELN DRUCKEN     (7)"
  28. 280 PRINT"[214]OKABELN AENDERN     (8)
  29. 290 [153]"VALNDE                 (9)
  30. 300 GET A$:IF A$=""THEN 300
  31. 310 ON VAL(A$)GOTO 350,610,1520,1670,1990,2190,2390,3080,330
  32. 320 GOTO 300
  33. 330 PRINT"[147][197]NDE":END
  34. 350 IF NA$=""THEN GOSUB 4150
  35. 360 PRINTCL$:IF B=0 THEN 430
  36. 370 PRINT"N[146]EUE [196]ATEI EINRICHTEN"
  37. 380 PRINT"A[146]LTE [196]ATEI ERGAENZEN"
  38. 390 GET A$:IF A$=""THEN 390
  39. 400 IF A$="N"THEN 120
  40. 410 IF A$="A"THEN 430
  41. 420 GOTO 390
  42. 430 PRINTCL$
  43. 440 IF PEEK(53272)<>31 THEN 480
  44. 450 PRINT""
  45. 460 PRINT"[176]=A [174]=S [172]=D [187]=F [180]=H [165]=G [181]=J [161]=K [182]=L [173]=Z [189]=X [166]=+ [220]=- [168]=\ @=[203]LAMMERAFFE"
  46. 470 PRINT""
  47. 480 B=B+1
  48. 490 IF B>BG THEN  GOTO 3600
  49. 500 PRINT"[214]OKABEL NR.";B
  50. 510 PRINT"";NA$;
  51. 520 INPUT C$(B,1)
  52. 530 IF C$(B,1)=""ORC$(B,1)=CHR$(13)THENB=B-1:GOTO 130
  53. 540 INPUT"[196]EUTSCH";C$(B,2)
  54. 550 PRINT"IN [207]RDNUNG(J/N)
  55. 560 [161] A$:[139] A$[178]""[167] 560
  56. 570 [139] A$[178]"J"[167] 430
  57. 580 [139] A$[178]"N"[167] B[178]B[171]1:[137] 430
  58. 590 [139] A$[178][199](13)[167] 140
  59. 600 [137] 560
  60. 610 [143] *** ABFRAGEN ***
  61. 620 Z[178]0:[139]B[178]0[167] 130
  62. 630 [153][199](147)
  63. 640 [129]X[178]0[164]B:C$(X,3)[178]"":[130]X
  64. 650 [153][199](147)
  65. 660 [153]"SCHRIFTLICH (1)"
  66. 670 [153]"MUENDLICH   (2)"
  67. 680 [161]SM$:[139]SM$[178]""[167] 680
  68. 690 [139] SM$[178][199](13)[167]130
  69. 700 [139] SM$[179][177]"1"[175]SM$[179][177]"2"[167] 680
  70. 710 [153][199](147)
  71. 720 [153]"STR$EUTSCH - "NA$" (1)
  72. 730 PRINT""NA$" - [196]EUTSCH (2)"
  73. 740 PRINT"[199]EMISCHT - [199]EMISCHT (3)"
  74. 750 GET DF$:IFDF$=""THEN750
  75. 760 IF DF$<>"1"ANDDF$<>"2"ANDDF$<>"3"THEN 750
  76. 770 IFSM$="1"THENPRINT"[211]OLLEN DIE [218]EICHEN <[211]PACE> / . ( )"
  77. 780 IFSM$="1"THENPRINT"SELBSTAENDIG ANGEZEIGT WERDEN (J/N)"
  78. 790 IFSM$="1"THENGET BZ$:IFBZ$=""THEN 790
  79. 800 IFSM$="1"THEN IF BZ$<>"J"ANDBZ$<>"N"THEN 790
  80. 810 EY=0:REM SCHRIFTLICH
  81. 820 IF DF$="3"THEN A=INT(2*RND(1)+1):IF A=1THEN D=2:GOTO840
  82. 830 D=1
  83. 840 IF DF$="1"THEN A=1:D=2
  84. 850 IF DF$="2"THEN A=2:D=1
  85. 860 C=INT(B*RND(1)+1)
  86. 870 IF C$(C,3)="1"THEN 860
  87. 880 Z=Z+1:IF Z=BTHEN130
  88. 890 PRINT"[147]";Z;" : ";B
  89. 900 IF PEEK(53272)<>31 THEN 930
  90. 910 PRINT""
  91. 920 PRINT"[176]=A [174]=S [172]=D [187]=F [180]=H [165]=G [181]=J [161]=K [182]=L [173]=Z [189]=X [166]=+ [220]=- [168]=\ @=[203]LAMMERAFFE"
  92. 930 ON A GOTO 940,970
  93. 940 PRINT"[196]EUTSCH      ";C$(C,2)
  94. 950 PRINT""NA$" ";
  95. 960 GOTO 990
  96. 970 PRINT""NA$" ";C$(C,1)
  97. 980 PRINT"[196]EUTSCH   ";
  98. 990 IF SM$="2"THEN 1400
  99. 1000 E$="":A$="":E=0
  100. 1010 B$=MID$(C$(C,A),E+1,1)
  101. 1020 IF B$=CHR$(32)THEN A$=B$
  102. 1030 IF B$=CHR$(40)THEN A$=B$
  103. 1040 IF B$=CHR$(41)THEN A$=B$
  104. 1050 IF B$=CHR$(47)THEN A$=B$
  105. 1060 IF B$=CHR$(46)THEN A$=B$
  106. 1070 IF A$<>""ANDBZ$="J"THEN 1140
  107. 1080 POKE204,0:GETA$:IFA$=""THEN 1080
  108. 1090 IF E<0THENE=0
  109. 1100 IF A$=CHR$(13)AND E=0THEN 130
  110. 1110 IF A$="?"AND E=0THENEY=2:PRINT"":POKE205,2:WAIT207,1,1:POKE204,1:GOTO1370
  111. 1120 IF A$=CHR$(13)THENPOKE205,2:WAIT207,1,1:POKE204,1:GOTO 1180
  112. 1130 IF A$=CHR$(19)ORA$=CHR$(17)ORA$=CHR$(29)ORA$=CHR$(147)ORA$=CHR$(145)THEN1080
  113. 1140 PRINTA$;:E=E+1
  114. 1150 IF A$=CHR$(20)THEN E=E-2:GOTO1080
  115. 1160 A$(E)=A$:A$=""
  116. 1170 GOTO1010
  117. 1180 FORX=1TOE:E$=E$+A$(X):NEXTX
  118. 1190 IFE$=C$(C,A)THENPRINT"[210]ICHTIG[146]   ":FORX=1TO2000:NEXT:C$(C,3)="1":GOTO 810
  119. 1200 ER=0:W=0:Y=0
  120. 1210 IF LEN(C$(C,A))<>LEN(E$)THEN 1270
  121. 1220 FOR X=1TOLEN(E$)
  122. 1230 IF MID$(C$(C,A),X,1)<>MID$(E$,X,1)THEN ER=ER+1
  123. 1240 IF ER=2 THEN 1360
  124. 1250 NEXTX
  125. 1260 GOTO 1350
  126. 1270 IF ABS(LEN(C$(C,A)))-LEN(E$)>1THEN 1360
  127. 1280 IF LEN(C$(C,A))>LEN(E$)THEN FORX=1TOLEN(C$(C,A)):EZ=1
  128. 1290 IF LEN(C$(C,A))<LEN(E$)THEN FORX=1TOLEN(E$):EZ=0
  129. 1300 IF MID$(C$(C,A),X+W,1)<>MID$(E$,X+Y,1)THEN ER=ER+1
  130. 1310 IF ER=2THEN 1360
  131. 1320 IF EZ=1ANDER=1THEN W=1
  132. 1330 IF EZ=0ANDER=1THEN Y=1
  133. 1340 NEXTX
  134. 1350 PRINT"FEHLERHAFTE [211]CHREIBWEISE[146]":FORX=1TO2000:NEXT:EY=2:GOTO1370
  135. 1360 PRINT"[198]ALSCH[146]   ":FORX=1TO2000:NEXTX
  136. 1370 EY=EY+1:IF EY=3THEN PRINT"";C$(C,A)
  137. 1380 IF EY=3THEN FOR X=1TO3000:NEXT:EY=0:Z=Z-1:GOTO810
  138. 1390 GOTO 890
  139. 1400 REM MUENDLICH
  140. 1410 PRINT:PRINT:PRINT:PRINT:PRINT"<[211][208][193][195][197]>=[215]EITER":PRINT:PRINT"<[197][206][212][197][210]>=[205]ENUE"
  141. 1420 GET A$:IF A$=CHR$(13)THEN 130
  142. 1430 IF A$=CHR$(32) THEN 1450
  143. 1440 GOTO 1420
  144. 1450 PRINT"";C$(C,A)
  145. 1460 PRINT:PRINT:PRINT:PRINT"<[202]>=[210]ICHTIG   ":PRINT:PRINT"<[206]>=[198]ALSCH     "
  146. 1470 PRINT: PRINT"<[197][206][212][197][210]>=[205]ENUE"
  147. 1480 GET A$:IF A$=CHR$(13)THEN 130
  148. 1490 IF A$="N"OR A$="[206]" THEN Z=Z-1:GOTO 810
  149. 1500 IF A$="J"OR A$="[202]" THEN C$(C,3)="1":GOTO 810
  150. 1510 GOTO 1480
  151. 1520 REM *** ABSPEICHERN ***
  152. 1530 PRINTCL$:PRINT"[193]BSPEICHERN
  153. 1540 [133]"(null)AME : ";D$
  154. 1550 [139] D$[178][199](13)[176] D$[178]""[167] 130
  155. 1560 [159] 2,8,2,"8:"[170]D$[170]",S,W"
  156. 1570 [139] ST[179][177]0[175]ST[179][177]64[167]3400
  157. 1580 B$[178][196](B):[153]B$:[136] I$(1,1)[178]B$:I$(1,2)[178]NA$
  158. 1590 [152]2,I$(1,1):[152]2,I$(1,2)
  159. 1600 [129] S[178]1 [164] B
  160. 1610 [139] ST[179][177]0[175]ST[179][177]64[167]3400
  161. 1620 [139] ST[178]64[167] [160]2:[137] 140
  162. 1630 [129] V[178]1 [164] 2
  163. 1640 [139] C$(S,V)[178]""[167] [136] C$(S,V)[178]" "
  164. 1650 [152]2,C$(S,V)
  165. 1660 [130]:[130]:[160] 2:[137] 140
  166. 1670 [143] *** EINLESEN ***
  167. 1680 [153]CL$:[153]"VALINLESEN"
  168. 1690 [139] B[178]0 [167] 1770
  169. 1700 [153]"(null)WAITOESCHEN"
  170. 1710 [153]"VALWAITRGENZEN"
  171. 1720 [161]A$:[139]A$[178]""[167] 1720
  172. 1730 [139] A$[178]"L"[167] B[178]1:[137]1770
  173. 1740 [139] A$[178]"E"[167] B[178]B[170]1:[137]1770
  174. 1750 [139] A$[178][199](13)[176] A$[178]""[167] 130
  175. 1760 [137]1720
  176. 1770 [153]"$=STR$IRECTORY"
  177. 1780 DD$[178][199](13):[133]"(null)AME : ";DD$
  178. 1790 [139] DD$[178][199](13)[176] DD$[178]""[167] 130
  179. 1800 [139] DD$[179][177]"$"[167] 1860
  180. 1810 [153]CL$:[159] 1,8,0,"$:*=SEQ":[161]#1,A$,A$
  181. 1820 [161]#1,A$,A$:[139]ST[178]64 [167] [160]1:[151]198,0:[146]198,1:[153]"LOAD":[137]1770
  182. 1830 [161]#1,A$,B$:[153][198](A$[170][199](0))[170]256[172][198](B$[170][199](0));
  183. 1840 [161]#1,A$:[153]A$;:[139]A$[179][177]""[167]1840
  184. 1850 [153]:[137]1820
  185. 1860 [159] 2,8,2,"8:"[170]DD$[170]",S,R"
  186. 1870 [139] ST[179][177] 0 [175] ST  [179][177]64 [167] 3400
  187. 1880 [132]2,C$(B,1),C$(B,2)
  188. 1890 NA$[178]C$(B,2)
  189. 1900 [139] ST [179][177] 0 [175] ST [179][177]64 [167] 3400
  190. 1910 B[178]B[171]1
  191. 1920 B[178]B[170]1:[139] B[177]BG [167] 1980
  192. 1930 [139] ST[178]64 [167] 1980
  193. 1940 [132]2,C$(B,1),C$(B,2):[137] 1920
  194. 1950 [139] ST[178]64 [167] 1980
  195. 1960 [139] ST[179][177]0  [175] ST[179][177]64[167] 3400
  196. 1970 [137] 1920
  197. 1980 [160] 2:C$(B,1)[178]"":C$(B,2)[178]"":B[178]B[171]1:[137] 140
  198. 1990 [153][199](147)
  199. 2000 [129] AS[178]1 [164] B :ZA[178]1
  200. 2010 [139] AS[177]1 [167] [153]"ONON":ZA[178]0
  201. 2020 [139] AS[173](7[170]ZA)[178][181](AS[173](7[170]ZA))[167] [161] WW$:[139]WW$[178]""[167] 2020
  202. 2030 [139] WW$[178][199](13)[167]WW$[178]"":[137]140
  203. 2040 [139] WW$[179][177]""[167] [153]"LOAD":WW$[178]""
  204. 2050 [139] [195](C$(AS,1))[177]16 [167] [137] 2080
  205. 2060 [153]AS" ";C$(AS,1);"ON"
  206. 2070 [137] 2110
  207. 2080 [153]AS;[200](C$(AS,1),16)
  208. 2090 [153]"   ";[201](C$(AS,1),[195](C$(AS,1))[171]16);"ONON"
  209. 2100 [137] 2110
  210. 2110 [139] [195](C$(AS,2))[177]16 [167] [137] 2160
  211. 2120 [153][163]22);C$(AS,2);""
  212. 2130 [153]"":[130] AS
  213. 2140 [139] AS[177]B [167] [161] WW$:[139] WW$[179][177]""[167]140
  214. 2150 [137] 2140
  215. 2160 [153][163]22);[200](C$(AS,2),16)
  216. 2170 [153][163]22);[201](C$(AS,2),[195](C$(AS,2))[171]16)
  217. 2180 [137] 2130
  218. 2190 [153]CL$
  219. 2200 [139] NA$[178]"VALNGLISCH"[167][153]"(null)OLL EIN VALWAITNGLICHES":[137] 2220
  220. 2210 [153]"(null)OLL EIN ASCRANZOESISCHEWAITS"
  221. 2220 [153]"ODER EIN STR$WAITEUTSCHES (null)ORT "
  222. 2230 [153]"UEBERSETZT WERDEN ?"
  223. 2240 [161] C$:[139] C$[178]""[167] 2240
  224. 2250 [139] C$[178][199](13)[167] 140
  225. 2260 [139] C$[178]"E"[167] W[178]1:WW[178]2:[137] 2290
  226. 2270 [139] C$[178]"D"[167] W[178]2:WW[178]1:[137] 2300
  227. 2280 [137] 2190
  228. 2290 [139] W[178]1 [167] [153]"LOADVALNGLISCHE (null)OKABEL":[137] 2310
  229. 2300 [153]"LOADSTR$EUTSCHE (null)OKABEL"
  230. 2310 [133]"";D$
  231. 2320 [139] [195](D$)[178]0[167] 140
  232. 2330 [129] Z[178]1[164]B
  233. 2340 [139] C$(Z,W)[178]D$ [167] [153]"LOAD"[163]5)""D$
  234. 2350 [139] C$(Z,W)[178]D$ [167] [153][163]5)""C$(Z,WW):[137] 2380
  235. 2360 [130]
  236. 2370 [153]"LOAD(null)OKABEL NICHT VORHANDEN"
  237. 2380 [129] Q[178]1[164] 3000:[130]Q:[137] 130
  238. 2390 [143] *** DRUCKEN ***
  239. 2400 [153]"LOADSTR$RUCKEN"
  240. 2410 [153]"(null)OLLEN ALLE (null)OKABELN GEDRUCKT"
  241. 2420 [153]"WERDEN (J/N)?"
  242. 2430 [161] A$:[139] A$[178]""[167] 2430
  243. 2440 [139] A$[178][199](13)[167] 140
  244. 2450 [139] A$[178]"J"[167] V[178]B:VV[178]1:[137] 2480
  245. 2460 [139] A$[178]"N"[167] [137] 3990
  246. 2470 [137] 2430
  247. 2480 [153]"VALWAITINZELBLATT      VALNWAITDLOSPAPIER"
  248. 2490 [161] A$:[139] A$[178]""[167] 2490
  249. 2500 [139] A$[178]"E"[167] Q[178]1:[137] 2530
  250. 2510 [139] A$[178]"N"[167] Q[178]2:[137] 2530
  251. 2520 [137] 2490
  252. 2530 :
  253. 2540 [133]"STR$ATEINAME:";D$
  254. 2550 [153]"RIGHT$ST DAS (null)APIER EINGELEGT (J/N)?"
  255. 2560 [161] A$:[139] A$[178]""[167] 2560
  256. 2570 [139] A$[178][199](13)[167] 140
  257. 2580 [139] A$[178]"J"[167] 2610
  258. 2590 [139] A$[178]"N"[167] [153]"ONPEEKITTE (null)APIER EINLEGEN !                    ONONONONON"
  259. 2600 [129] X[178]1 [164] 1000:[130]:[137] 2550
  260. 2610 [159] 1,4,7
  261. 2620 [159] 2,4,1
  262. 2630 [152]2,[199](27);[199](64);
  263. 2640 [152]2,[199](27);[199](81);[199](240);
  264. 2650 [152]2,[199](27);[199](108);[199](10);
  265. 2660 [152]2,[199](27);[199](112);[199](1)
  266. 2670 [152]1,D$
  267. 2680 [152]2,[199](27);[199](55)
  268. 2690 [152]1,NA$;
  269. 2700 [152]2,[199](27);[199](36);[199](205);[199](0);
  270. 2710 [152]1,"STR$EUTSCH"
  271. 2720 [152]1,"---------------------------------------------------------------";
  272. 2730 [152]1,"----------"
  273. 2740 Z[178]0
  274. 2750 [129] D[178]VV [164] V
  275. 2760 Z[178]Z[170]1
  276. 2770 [139] Z[178]54[167] [137] 4090
  277. 2780 :
  278. 2790 [129] A[178]1 [164] [195](C$(D,1))[170]1:[139] A[178][195](C$(D,1))[170]1[167] 2960
  279. 2800 B$[178][202](C$(D,1),A,1)
  280. 2810 [139] B$[178]"OR"[167] [152]2,[199](133);:[130]A
  281. 2820 [139] B$[178]"^"[167] [152]2,[199](138);:[130]A
  282. 2830 [139] B$[178]"*"[167] [152]2,[199](130);:[130]A
  283. 2840 [139] B$[178]"RND"[167] [152]2,[199](136);:[130]A
  284. 2850 [139] B$[178]"FN"[167] [152]2,[199](135);:[130]A
  285. 2860 [139] B$[178]"SGN"[167] [152]2,[199](163);:[130]A
  286. 2870 [139] B$[178]"INT"[167] [152]2,[199](147);:[130]A
  287. 2880 [139] B$[178]"GET"[167] [152]2,[199](128);:[130]A
  288. 2890 [139] B$[178]"/"[167] [152]2,[199](140);:[130]A
  289. 2900 [139] B$[178]"@"[167] [152]2,[199](225);:[130]A
  290. 2910 [139] B$[178]"SPC("[167] [152]2,[199](132);:[130]A
  291. 2920 [139] B$[178]"(null)"[167] [152]2,[199](148);:[130]A
  292. 2930 [139] B$[178]"NOT"[167] [152]2,[199](129);:[130]A
  293. 2940 [139] B$[178]"ABS"[167] [152]2,"SPC("      ;:[130]A
  294. 2950 [152]1,B$;:[130]A
  295. 2960 [152]2,[199](27);[199](36);[199](205);[199](0);
  296. 2970 [129] A[178]1 [164] [195](C$(D,2))[170]1:[139] A[178][195](C$(D,2))[170]1[167] 3040
  297. 2980 B$[178][202](C$(D,2),A,1)
  298. 2990 [139] B$[178]"@"[167] [152]2,[199](225);:[130] A
  299. 3000 [139] B$[178]"SPC("[167] [152]2,[199](132);:[130]A
  300. 3010 [139] B$[178]"(null)"[167] [152]2,[199](148);:[130]A
  301. 3020 [139] B$[178]"NOT"[167] [152]2,[199](129);:[130]A
  302. 3030 [152]1,B$;:[130]A
  303. 3040 [152]1
  304. 3050 [130] D
  305. 3060 [160]1:[160]2
  306. 3070 [137] 140
  307. 3080 [143] AENDERN
  308. 3090 [153]"LOADATNENDERN"
  309. 3100 VN[178]0:[133]"(null)OKABEL (null)R.";VN
  310. 3110 [139] VN[178]0 [167] 140
  311. 3120 [139] VN[177]B [167] 3090
  312. 3130 [153]"LOAD(null)OKABEL (null)R.";VN
  313. 3140 [153]""NA$" :"C$(VN,1)
  314. 3150 [153]"STR$EUTSCH :"C$(VN,2)
  315. 3160 [153]"";NA$;
  316. 3170 [133]C$(VN,1)
  317. 3180 [133]"STR$EUTSCH";C$(VN,2)
  318. 3190 [153]"(null)OLL NOCH EINE (null)OKABEL GEAENDERT        WERDEN (J/N)?
  319. 3200 GET AS$:IF AS$=""THEN 3200
  320. 3210 IFAS$="J"THEN 3090
  321. 3220 IFAS$="N"THEN 140
  322. 3230 GOTO 3200
  323. 3240 REM ANSCHAUEN MUENDLICH
  324. 3250 IF VAL(A$)=1THENW=1:WW=2:GOTO3290
  325. 3260 IF VAL(A$)=2THENW=2:WW=1:GOTO3290
  326. 3270 IF VAL(A$)=3THEN
  327. 3280 GOTO 63999
  328. 3290 VN=INT(B*RND(1)+1)
  329. 3300 IF C$(VN,3)<>""THEN Z=Z+1:IF Z<B+1THEN 3290
  330. 3310 IF Z>BTHEN140
  331. 3320 PRINT"[147][196]EUTSCH: ";C$(VN,WW)
  332. 3330 GET WW$:IF WW$=""THEN 3330
  333. 3340 IF WW$=CHR$(13)THEN 610
  334. 3350 IF WW$=CHR$(32)THEN PRINT"[197]NGLISCH: ";C$(VN,W):GOTO3370
  335. 3360 GOTO 3330
  336. 3370 C$(VN,3)="*"
  337. 3380 PRINT"[212][193][211][212][197]":GET TT$:IFTT$=""THEN3380
  338. 3390 PRINT"     ":GOTO 3290
  339. 3400 REM SPEICHERROUTINE
  340. 3410 OPEN 13,8,15
  341. 3420 INPUT#13,A1,A2$,A3,A4
  342. 3430 IFVAL(A$)=3ANDA1=63THENCLOSE2:CLOSE13:GOTO 3510
  343. 3440 PRINT"[197][210][210][207][210]:
  344. 3450 [153]"TAB(TAB(TAB(TAB(TAB("
  345. 3460 [153]"";A1;A2$;A3;A4
  346. 3470 [160]13
  347. 3480 [153]"(null)ASTE"
  348. 3490 [161] A$:[139] A$[178]""[167] 3490
  349. 3500 [160]1:[160]2:[160]13:[137] 140
  350. 3510 [153]"LOADSTR$ATEINAME BELEGT
  351. 3520 PRINT"U[146]EBERSCHREIBEN":PRINT"E[146]RGAENZEN":PRINT"N[146]EUER NAME"
  352. 3530 GET A$:IF A$=""THEN 3530
  353. 3540 IF A$="U"THEN OPEN 2,8,15,"S:"+D$:CLOSE2::GOTO 1560
  354. 3550 IFA$="E"THENOPEN2,8,2,"8:"+D$+",S,R":INPUT#2,T$(1,1):CLOSE2
  355. 3560 IF A$="E"THENIF VAL(T$(1,1))+B=>BGTHEN3600
  356. 3570 IF A$="E"THENCLOSE2:OPEN 2,8,2,"8:"+D$+",S,A":GOTO 1600
  357. 3580 IF A$="N"THEN 1520
  358. 3590 GOTO 3530
  359. 3600 REM PIEP
  360. 3610 FOR PI=1 TO 10
  361. 3620 PRINT"[147][206]ICHT GENUG [211]PEICHERPLATZ FREI !"
  362. 3630 POKE 54296,15
  363. 3640 POKE 54278,240
  364. 3650 POKE 214,4:POKE 211,A:SYS 58640
  365. 3660 POKE 54273,29
  366. 3670 POKE 54276,17
  367. 3680 FOR X=1 TO 100:NEXT
  368. 3690 POKE 54276,16
  369. 3700 FOR X=1 TO 100:NEXT
  370. 3710 NEXT PI
  371. 3720 GOTO 140
  372. 3730 PRINTCHR$(147)
  373. 3740 A$="[214]OKABELPROGRAMM [214]5.2"
  374. 3750 A=1
  375. 3760 FOR X=1 TO LEN(A$)
  376. 3770 A=A+2
  377. 3780 FOR Y=40 TO A STEP-2
  378. 3790 POKE 214,4:POKE211,Y:SYS 58640
  379. 3800 PRINT MID$(A$,X,1);"  "
  380. 3810 NEXTY
  381. 3820 POKE 54296,15
  382. 3830 POKE 54278,240
  383. 3840 POKE 54273,50
  384. 3850 POKE 54276,17
  385. 3860 FOR S=1 TO 10:NEXTS
  386. 3870 POKE 54276,16
  387. 3880 POKE 53280,X
  388. 3890 NEXTX
  389. 3900 POKE 53280,7
  390. 3910 PRINT"COPYRIGHT BY [196]IRK [204]ANGHUBER"
  391. 3920 PRINT"ALLE [205]ENUEPUNKTE MIT [210]ETURN[146] VERLASSEN"
  392. 3930 GET A$:IF A$=""THEN 3930
  393. 3940 IF A$=CHR$(13)THEN 120
  394. 3950 GOTO 3930
  395. 3960 GET A$:IF A$=""THEN 120
  396. 3970 RETURN
  397. 3980 IF A$=CHR$(13)THEN 120
  398. 3990 PRINT"[147][193]B WELCHER [214]OKABEL"
  399. 4000 PRINT"SOLL AUSGEDRUCKT WERDEN ?"
  400. 4010 INPUT"[214]OKABEL [206]R.";VV
  401. 4020 IFVV>B THEN 3990
  402. 4030 IFVV<1 THEN 3990
  403. 4040 PRINT"[147][194]IS ZU WELCHER [214]OKABEL"
  404. 4050 PRINT"SOLL AUSGEDRUCKT WERDEN ?"
  405. 4060 INPUT"[214]OKABEL [206]R.";V
  406. 4070 IF V>B OR V<VV THEN 4040
  407. 4080 GOTO 2480
  408. 4090 IF Q=1 THEN PRINT"[147][194]ITTE NEUES [208]APIER EINLEGEN !!!"
  409. 4100 IF Q=1 THEN PRINT#1,CHR$(27);CHR$(102);CHR$(1);CHR$(25):Z=0:GOTO 2670
  410. 4110 IF Q=2 THEN PRINT#1,CHR$(27);CHR$(102);CHR$(1);CHR$(25):Z=0:GOTO 2670
  411. 4120 GOTO 2780
  412. 4130 PRINT#1,CHR$(27);CHR$(103)
  413. 4140 GOTO 2780
  414. 4150 PRINTCHR$(147)
  415. 4160 PRINT"[198][146]RANZOESISCH"
  416. 4170 PRINT"[197][146]NGLISCH"
  417. 4180 PRINT"[193][146]NDERE"
  418. 4190 GET A$:IF A$=""THEN 4190
  419. 4200 IF A$="F"THEN LET NA$="[198]RANZOESISCH"
  420. 4210 IF A$="E"THEN LET NA$="[197]NGLISCH"
  421. 4220 IF A$="A"THEN PRINT"[206]AME:":INPUT"";NA$
  422. 4230 RETURN
  423.