home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 91 / 64er_Magazin_Sonderheft_91_19xx_Markt__Technik_de_Side_A.d64 / vokabelprogramm (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.