home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_92-03_1992_-_de_Side_B.d64 / vokabelkingm (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  16KB  |  433 lines
  1. 0 open1,8,15,"m-w"+chr$(7)+chr$(28)+chr$(1)+chr$(15):close1
  2. 1 l$="========================================"
  3. 2 a(1)=0:a(2)=11:a(3)=12:a(4)=15:a(5)=1:a(6)=15:a(7)=12:a(7)=11:a(8)=0
  4. 3 yu$(1)="[174][146]remdwort ":yu$(2)="[167][146]eutsches [184][146]ort ":yu$(3)=yu$(2):fq=53265
  5. 7 dim fr$(500),d1$(500),d2$(500),so(500),ko(500):poke768,145
  6. 10 print"[147]";:poke53280,0:poke53281,0:rempoke788,52:poke808,225:poke657,128
  7. 20 pokefq,11:printchr$(142)"[147][155]d**************************************c";
  8. 30 print"**b[146]                                  a[146]**";
  9. 40 print"*b[146]    qr[146]      [176][191][188][172][177][187][165][188][180][162][181][146][155]       qr[146]    a[146]*";
  10. 45 print"*c[146]    st[146]     von [167][146]irk [178][146]hner     st[146]    d[146]*";
  11. 50 print"**c[146]                                  d[146]**";
  12. 60 print"a**************************************b[146] "
  13. 70 print"==============[178][146]uswahlmen@===============";
  14. 80 print
  15. 90 print"  [161][146]okabeln eingeben .............. *1[146]*  "
  16. 100 print"  [161][146]okabeln abfragen .............. *2[146]*  "
  17. 110 print"  [161][146]okabeln @berpr@fen ............ *3[146]*  "
  18. 120 print"  [182][146]ernerfolg ..................... *4[146]*  "
  19. 130 print"  [161][146]okabeln [182][146]aden, [163][146]peichern ...... *5[146]*  "
  20. 140 print"  [167][146]rucken ........................ *6[146]*  "
  21. 150 print"  [170][146]rogramm beenden, [185][146]ilfe ........ *7[146]* ":printl$;
  22. 160 print"          + a*([195])*[205][193][199][201][195]*[196][201][211][195]*b[146] +   ";:pokefq,27
  23. 180 geta$:ifa$=""then180
  24. 190 on val(a$) goto 1000,2000,6000,7000,4500,11000,3500
  25. 200 goto 180
  26. 1000 pokefq,11
  27. 1020 print"[147]=========[179][146]eue [161][146]okabeln eingeben========="
  28. 1050 print"  [179][146]eue [161][146]okabeln ................... *1[146]*"
  29. 1060 print"  [178][146]lte [167][146]atei vervollst;ndigen ..... *2[146]*"
  30. 1070 print"  [189][146]eine [182][146]ust mehr, dann ........... *3[146]* ";l$:pokefq,27
  31. 1080 geta$:ifa$=""then1080
  32. 1090 ifval(a$)>3orval(a$)<1then1080
  33. 1095 ifa$="1"thenifqp=0thenqp=1:goto1120
  34. 1097 ifa$="1"andso>0thenfori=1toz:so(i)=0:next
  35. 1100 ifa$="1"thenz=0:qw$="":so=0:sg=0:gu=0:se=0:ni=0
  36. 1110 ifa$="3"then20
  37. 1120 z=z+1:ifz>500then20
  38. 1130 print"[147]============[161][146]okabeln eingeben===========":vy=0
  39. 1135 print"[179][146]r. "z"[157]*":printtab(4)"[145]*"
  40. 1140 fori=1to3:x=0:poke198,0:print:printyu$(i):print
  41. 1150 poke204,0:geta$:ifa$=""then1150
  42. 1154 a=asc(a$):ifa=58ora=44ora=192ora=42then1150
  43. 1155 ifa=13thenprint" ";:poke204,1:goto1186
  44. 1157 ifa=32ora=186then1175
  45. 1158 ifa=20then1900
  46. 1165 ifa>93anda<191then1150
  47. 1167 ifa<39then1150
  48. 1175 x=x+1:ifx>37thenx=37:goto1150
  49. 1180 printa$;:qw$=qw$+a$:goto1150
  50. 1186 ifright$(qw$,1)=" "thengosub1800
  51. 1187 ifqw$=""thenqw$="[144]n[155]"
  52. 1188 if jl=1thenjl=0:fg$=qw$:return
  53. 1190 ifi=1thenfr$(z)=qw$:ifqw$="[144]n[155]"thenz=z-1:goto20
  54. 1192 ifi=2thend1$(z)=qw$
  55. 1193 ifi=3thend2$(z)=qw$
  56. 1195 ifi=3thenifqw$="[144]n[155]"thend2$(z)="^"
  57. 1197 qw$="":next:ni=ni+1:ko(z)=1
  58. 1198 ifvy=1then6200
  59. 1199 print:print"      fghi[146]-[184][146]eiter l[146]-[179][146]ochmal o[146]-[190][146]en@"
  60. 1200 print"        *1[146]*-[163][146]ondervokabelspeicher"
  61. 1210 geta$:ifa$=""then1210
  62. 1220 ifa$="n"thenz=z-1:ni=ni-1:goto1120
  63. 1230 ifa$="1"thenifso(z)<1thenso(z)=1:so=1:printtab(17)"[189][146]lar!":goto1210
  64. 1235 ifa$="m"then20
  65. 1240 goto1120
  66. 1800 rem
  67. 1810 j=0
  68. 1820 ifright$(qw$,1)=" "thenqw$=left$(qw$,len(qw$)-1):j=j-1
  69. 1830 j=j+1:ifj>len(qw$)then1850
  70. 1840 goto1820
  71. 1850 return
  72. 1900 ifqw$=""thengoto1150
  73. 1910 poke204,1:print"[157]  [157][157]";:qw$=left$(qw$,len(qw$)-1):x=x-1:goto1150
  74. 2000 ifz>0then2010
  75. 2001 print"[147]======[189][146]eine [161][146]okabeln im [163][146]peicher!======="
  76. 2002 fori=1to1300:next:goto20
  77. 2010 pokefq,11:print"[147]============[161][146]okabeln abfragen===========":kl=0
  78. 2020 print" [174][146]remdwort - [167][146]eutsch .............. *1[146]*"
  79. 2030 print" [167][146]eutsch - [174][146]remdwort .............. *2[146]*"
  80. 2035 print" [170][146]er [171][146]ufall gemischt .............. *4[146]*"
  81. 2040 print" [171][146]ur@ck zum [185][146]auptmen@ ............. *5[146]* ";l$
  82. 2045 sy=0:gosub2400:pokefq,27
  83. 2050 geta$:ifa$=""then2050
  84. 2060 ifa$="1"thenfr=1:goto8000
  85. 2070 ifa$="2"thenfr=0:goto8000
  86. 2072 ifa$="4"thenzf=1:goto8000
  87. 2073 ifa$="3"thenhj=hj+1:gosub2400
  88. 2080 ifa$="5"then20
  89. 2085 goto2050
  90. 2090 print"[147]============[161][146]okabeln abfragen===========":ifkl=1then2101
  91. 2100 zu=int(rnd(1)*z)+1:ifzu>zthen2100
  92. 2101 ifzf=1thenzg=int(rnd(1)*2):ifzg=1then2150
  93. 2110 iffr=1thengoto2150
  94. 2130 print"[167][146]eutsches [184][146]ort"
  95. 2140 printd1$(zu):print
  96. 2145 ifd2$(zu)<>"^"andleft$(d2$(zu),1)<>"("thenprintd2$(zu):print
  97. 2147 print"[174][146]remdwort":jl=1:x=0:qw$="":gosub1150
  98. 2148 iffg$<>fr$(zu)thengoto2350
  99. 2149 goto2210
  100. 2150 print"[174][146]remdwort":printfr$(zu)
  101. 2160 print"[167][146]eutsch":print:jl=1:x=0:qw$="":gosub1150
  102. 2170 iffg$=d1$(zu)orfg$=d2$(zu)thengw=1:goto2200
  103. 2190 goto2350
  104. 2200 ifhj=1thenifd2$(zu)<>"^"andleft$(d2$(zu),1)<>"("thengoto2250
  105. 2210 print:print"=================[166][146]ichtig!==============="
  106. 2215 fori=1to8:poke53280,a(i):forj=1to22:nextj,i:za=-1:gosub2500
  107. 2220 printfr$(zu)
  108. 2230 print""d1$(zu)"[155]"
  109. 2235 ifd2$(zu)<>"^"thenprint""d2$(zu)"[155]"
  110. 2240 goto2310
  111. 2250 print:print"[145][145][145][166][146]ichtig! "
  112. 2260 print"2.[146] [174][146]orm":jl=1:x=0:qw$="":gosub1150
  113. 2270 iffg$=d1$(zu)orfg$=d2$(zu)then2300
  114. 2280 print:print"[174][146]ast richtig!":print""d1$(zu)
  115. 2285 print""d2$(zu)"[155]":goto2310
  116. 2300 print:print"=======[179][146]ochmal richtig! [163][146]ehr gut!=======":goto2215
  117. 2310 print"    fghi[146]-[184][146]eiter o[146]-[190][146]en@ k[146]-[178][146]usdrucken"
  118. 2320 geta$:ifa$=""then2320
  119. 2325 ifkl=1anda$=chr$(32)thenkl=0:return
  120. 2330 ifa$="a"thenj=2:a=zu:e=a:goto15010
  121. 2335 ifa$="m"thenprint:goto20
  122. 2340 goto2090
  123. 2350 fori=1to3:forj=0to15:poke53270,j:nextj,i:poke53270,8
  124. 2355 print:print"[170][146]ardon, das ist nicht richtig!":za=1:gosub2500
  125. 2360 goto2220
  126. 2400 ifhj>2thenhj=1
  127. 2405 ifhj=2then2420
  128. 2410 ifhj=1then2430
  129. 2420 print" [178][146]lle dt. [174][146]ormen ...... (ja) (lmnl[146]) *3[146]*":return
  130. 2430 print" [178][146]lle dt. [174][146]ormen ...... (jk[146]) (nein) *3[146]*":return
  131. 2500 ki=ko(zu):ko(zu)=ko(zu)-za:ifko(zu)<1orko(zu)>4thenko(zu)=ki:return
  132. 2510 ifki>ko(zu)then2530
  133. 2520 ifko(zu)>kithen2600
  134. 2530 ifki=4thensg=sg-1:gu=gu+1
  135. 2540 ifki=3thengu=gu-1:se=se+1
  136. 2550 ifki=2thense=se-1:ni=ni+1
  137. 2560 return
  138. 2600 ifki=1thenni=ni-1:se=se+1
  139. 2610 ifki=2thense=se-1:gu=gu+1
  140. 2620 ifki=3thengu=gu-1:sg=sg+1
  141. 2630 return
  142. 3500 print"[145]fghi[146]-[185][146]ilfe  k[146]-[178][146]ufh/ren  o[146]-[190][146]en@";
  143. 3510 geta$:ifa$=""then3510
  144. 3520 ifa$="a"then4000
  145. 3530 ifa$="m"thenprint"[145]";:goto160
  146. 3600 pokefq,11:print"[147]============[175][146]astaturbelegung============"
  147. 3605 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  148. 3610 print"   1 2 3 4 5 6 7 8 9 0 + - \    ohne"
  149. 3620 print"    q w e r t y u i o p @"
  150. 3630 print"    a s d f g h j k l   ;       [163][146]hift"
  151. 3640 print"     z x c v b n m , . /"
  152. 3645 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  153. 3650 print"               ' ( )"
  154. 3660 print"    [209] [215] [197] [210] [212] [217] [213] [201] [207] [208] [186]        mit"
  155. 3670 print"    [193] [211] [196] [198] [199] [200] [202] [203] [204]   ]"
  156. 3680 print"     [218] [216] [195] [214] [194] [206] [205] < > ?        [163][146]hift"
  157. 3685 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  158. 3690 print"  *1*2*3*4*5*6*7*8*9*0*+*-*\*[146]    [171][146]um"
  159. 3700 print"  [152]*[155]*[209]*[215]*[197]*[210]*[212]*[217]*[213]*[201]*[207]*[208]*@***[152]*[146][155] [161][146]ergleich"
  160. 3710 print"  *[193]*[211]*[196]*[198]*[199]*[200]*[202]*[203]*[204]***;*[152]****[146][155]  einfache"
  161. 3720 print"  [152]**[155]*[218]*[216]*[195]*[214]*[194]*[206]*[205]*,*.*/*[152]****[146][155]  [175][146]astatur"
  162. 3730 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":pokefq,27
  163. 3800 get a$:ifa$=""then3800
  164. 3810 goto20
  165. 4000 print"[147]   [175][146]sch@ss bis zum n;chsten mal !"
  166. 4010 fori=1to1500:next:sys64738
  167. 4500 pokefq,11:print"[147]======[161][146]okabeln speichern und laden======"
  168. 4510 print" [178][146]bspeichern ...................... *1[146]* "
  169. 4520 print" [182][146]aden ............................ *2[146]* "
  170. 4525 print" [179][146]achladen (max.500[146] [161][146]ok.) ......... *3[146]* "
  171. 4530 print" [167][146]irectory ........................ *4[146]* "
  172. 4540 print" [171][146]ur@ck zum [190][146]en@ .................. *5[146]* ";l$:pokefq,27
  173. 4550 geta$
  174. 4560 ifa$="5"thenprint:goto20
  175. 4570 a=val(a$)
  176. 4575 onagoto5000,5090,5200,10000
  177. 4600 goto4550
  178. 5000 ifz=0then2001
  179. 5001 i=1:gosub13000
  180. 5005 ifi=5then20
  181. 5010 open2,8,2,"@0:"+na$+",s,w"
  182. 5020 print#2,z
  183. 5031 print#2,so
  184. 5032 print#2,sg
  185. 5033 print#2,gu
  186. 5034 print#2,se
  187. 5035 print#2,ni
  188. 5036 fori=1toz
  189. 5040 print#2,fr$(i)
  190. 5041 print#2,ko(i)
  191. 5042 print#2,d1$(i)
  192. 5043 print#2,so(i)
  193. 5044 print#2,d2$(i):next
  194. 5070 close2:goto20
  195. 5090 i=2:gosub13000
  196. 5095 ifi=5then20
  197. 5097 open2,8,2,"0:"+na$+",s,r"
  198. 5100 input#2,z
  199. 5101 input#2,so
  200. 5102 input#2,sg
  201. 5103 input#2,gu
  202. 5104 input#2,se
  203. 5105 input#2,ni
  204. 5110 fori=1toz
  205. 5120 input#2,fr$(i)
  206. 5121 input#2,ko(i)
  207. 5122 input#2,d1$(i)
  208. 5123 input#2,so(i)
  209. 5124 input#2,d2$(i):next
  210. 5150 close2:goto20
  211. 5200 i=3:gosub13000
  212. 5205 ifi=5then20
  213. 5210 open2,8,2,"0:"+na$+",s,r"
  214. 5220 input#2,q:ifz+q>500thenclose2:goto20
  215. 5221 input#2,a:ifa=1thenso=1
  216. 5222 input#2,b:sg=sg+b
  217. 5223 input#2,c:gu=gu+c
  218. 5224 input#2,d:se=se+d
  219. 5225 input#2,e:ni=ni+e
  220. 5230 fori=(z+1)to(z+1)+q
  221. 5240 input#2,fr$(i)
  222. 5250 input#2,ko(i)
  223. 5260 input#2,d1$(i)
  224. 5265 input#2,so(i)
  225. 5270 input#2,d2$(i):next
  226. 5280 close2:z=z+q:goto20
  227. 6000 ifz=0then2001
  228. 6005 pokefq,11:print"[147]============[161][146]okabeln ansehen============"
  229. 6010 print" [161][146]okabeln ansehen ................ *1*[146]  "
  230. 6020 print" [161][146]okabel suchen .................. *2*[146]  "
  231. 6030 print" [171][146]ur@ck zum [190][146]en@ ................. *3*[146]  ";l$:pokefq,27
  232. 6050 geta$:ifa$=""then6050
  233. 6060 a=val(a$):ifa>0ora<4then6080
  234. 6070 goto6050
  235. 6080 onagoto6090,6300,20
  236. 6090 i=0
  237. 6100 i=i+1:ifi>ztheni=1
  238. 6105 goto 6200
  239. 6110 print"[147]==========[161][146]okabel korrigieren==========="
  240. 6115 h=i:forj=1to3:jl=1:print:printyu$(j):print
  241. 6116 ifj=1thenprintfr$(h);:x=len(fr$(h)):qw$=fr$(h)
  242. 6117 ifj=2thenprintd1$(h);:x=len(d1$(h)):qw$=d1$(h)
  243. 6118 ifj=3andd2$(h)<>"^"thenprintd2$(h);:x=len(d2$(h)):qw$=d2$(h)
  244. 6119 gosub1150
  245. 6120 ifj=1thenfr$(h)=qw$
  246. 6125 ifj=2thend1$(h)=qw$:qw$=""
  247. 6127 ifj=3thend2$(h)=qw$:ifd2$(h)="[144]n[155]"thend2$(h)="^"
  248. 6128 next:so(h)=0
  249. 6170 print:print"  fghi[146]-[184][146]eiter *1*[146]-[163][146]ondervokabelspeicher"
  250. 6180 geta$:ifa$=""then6180
  251. 6185 ifa$="1"thenso(h)=1:i=h:goto6200
  252. 6190 i=h
  253. 6200 pokefq,11:print"[147]===========[161][146]okabeln ansehen============="
  254. 6205 print" [161][146]okabel [179][146]ummer "i"[146][157]*":print"[145]"tab(16)"*"
  255. 6207 ifso(i)=0thenprint" [189][146]ein [163][146]ondervokabel":goto6220
  256. 6210 print" [163][146]ondervokabel!"
  257. 6220 print" ";fr$(i)
  258. 6230 print" ";d1$(i)
  259. 6240 print" ";:wy=0:ifd2$(i)="^"thenprint"[151][179][146]ichts[155]":wy=1
  260. 6241 if wy<>1thenprintd2$(i)
  261. 6242 onko(i)goto6243,6244,6245,6246
  262. 6243 print"[151] [161][146]okabel nicht gelernt.":goto6247
  263. 6244 print"[152] [161][146]okabel schlecht gelernt.":goto6247
  264. 6245 print"[155] [161][146]okabel gut gelernt!":goto6247
  265. 6246 print" [161][146]okabel super gelernt!"
  266. 6247 print"    [155]fghi[146]-[184][146]eiter p[146]-[189][146]orrektur o[146]-[190][146]en@"
  267. 6248 print"   y[146]-[184][146]eiter im [184]er [163][146]chritt x[146]-[182][146]/schen":pokefq,27
  268. 6249 printtab(13)"k[146]-[178][146]usdrucken":pokefq,27
  269. 6250 geta$:ifa$=""then6250
  270. 6260 ifa$="k"thenx=i:goto6110
  271. 6270 ifa$="5"theni=i+5:goto6280
  272. 6271 ifa$="a"thena=i:e=i:j=3:zu=i:goto15010
  273. 6275 ifa$="m"then20
  274. 6276 ifa$="l"thengosub8600
  275. 6277 i=i+1
  276. 6280 ifi>ztheni=1
  277. 6285 goto6200
  278. 6290 goto6100
  279. 6300 print"[147]=============[161][146]okabeln suchen============"
  280. 6310 print" [220][146]itte geben sie das zu suchende "
  281. 6320 print" [184][146]ort ein "
  282. 6330 open1,0:print" ";:input#1,su$:close1
  283. 6340 sy=0:fori=1toz
  284. 6350 ifsu$=fr$(i)orsu$=d1$(i)orsu$=d2$(i)thensy=i
  285. 6360 next
  286. 6370 ifsy>0theni=sy:goto6200
  287. 6380 print:print" [168][146]ch habe nichts gefunden!":forj=1to1600:next:goto6000
  288. 7000 ifz=0then2001
  289. 7005 pokefq,11:print"[147]==============[182][146]ernerfolg================ "
  290. 7010 print"[183][146]elernt  [165]";tab(31)"[165] [178][146]nzahl"
  291. 7015 li$="         [165]                     [165]"
  292. 7020 print"[164][164][164][164][164][164][164][164][164][165]                     [173][164][164][164][164][164][164][164]":printli$:printli$
  293. 7030 print"sehr gut [165]"tab(31)"[165] "sg"[157][146]*[145]":print tab(33)"*":printli$:printli$
  294. 7040 print"     gut [165]"tab(31)"[165] "gu"[157][146]*[145]":print tab(33)"*":printli$:printli$
  295. 7050 print"schlecht [165]"tab(31)"[165] "se"[157][146]*[145]":print tab(33)"*":printli$:printli$
  296. 7060 print"   nicht [165]"tab(31)"[165] "ni"[157][146]*[145]":print tab(33)"*":printli$:printli$
  297. 7070 print"[163][163][163][163][163][163][163][163][163][176][174][176][174][176][174][176][174][176][174][176][174][176][174][176][174][176][174][176][174][176][163][189][163][163][163][163][163][163][163]"
  298. 7080 print" [170][146]rozent [188][190]  [179][191]   [172][190]   [170][191]  [187][178]  [165] "z"[157][146]*[145]":printtab(33)"*"
  299. 7090 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][173][164][164][164][164][164][164][164]"
  300. 7100 print""
  301. 7110 printtab(9);:za=int((sg/z)*20):ifza>0thenfori=1toza:print"[171]";:next
  302. 7115 print""
  303. 7120 printtab(9);:za=int((gu/z)*20):ifza>0thenfori=1toza:print"[155][171]";:next
  304. 7125 print""
  305. 7130 printtab(9);:za=int((se/z)*20):ifza>0thenfori=1toza:print"[152][171]";:next
  306. 7135 print""
  307. 7140 printtab(9);:za=int((ni/z)*20):ifza>0thenfori=1toza:print"[151][171]";:next
  308. 7145 print"[155]      fghi[146]-[190][146]en@  *w[146]*-[161][146]okabelreset"
  309. 7150 pokefq,27
  310. 7160 geta$:ifa$=""then7160
  311. 7170 ifa$="r"thensg=0:gu=0:se=0:ni=z:fori=1toz:ko(i)=1:next:print"[147]":goto20
  312. 7180 print"[147]":goto20
  313. 8000 pokefq,11:print"[147]";l$
  314. 8005 print" [178][146]lle [161][146]okabeln .................... *1[146]*"
  315. 8010 print" [178][146]lle ab den gut gelernten ........ *2[146]*"
  316. 8020 print" [178][146]lle ab schlecht gelernten ....... *3[146]*"
  317. 8030 print" [178][146]lle ab nicht gelernten .......... *4[146]*"
  318. 8110 print" [163][146]ondervokabelabfrage ............. *5[146]*"
  319. 8120 print" [179][146]ach [166][146]eihenfolge abfragen ........ *6[146]* ";l$:pokefq,27
  320. 8130 wait198,1:geta$
  321. 8140 ifa$="1"then2090
  322. 8150 ifa$="2"thenifgu+se+ni>0then8210
  323. 8160 ifa$="3"thenifse+ni>0then8300
  324. 8170 ifa$="4"thenifni>0then8400
  325. 8180 ifa$="5"thenifso=1then8700
  326. 8190 ifa$="6"then8500
  327. 8200 goto8130
  328. 8210 ifgu+se+ni<9then8260
  329. 8220 zu=int(rnd(1)*z)+1:ifzu>zthen8220
  330. 8230 ifko(zu)<4thenkl=1:gosub2090
  331. 8240 ifgu+se+ni>0then8210
  332. 8250 goto20
  333. 8260 zu=zu+1:ifzu>zthenzu=1
  334. 8270 goto8230
  335. 8300 ifse+ni<8then8350
  336. 8310 zu=int(rnd(1)*z)+1:ifzu>zthen8310
  337. 8320 ifko(zu)<3thenkl=1:gosub2090
  338. 8330 ifse+ni>0then8300
  339. 8340 goto20
  340. 8350 zu=zu+1:ifzu>zthenzu=1
  341. 8360 goto8320
  342. 8400 ifni<7then8450
  343. 8410 zu=int(rnd(1)*z)+1:ifzu>zthen8410
  344. 8420 ifko(zu)=1thenkl=1:gosub2090
  345. 8430 ifni>0then8400
  346. 8440 goto20
  347. 8450 zu=zu+1:ifzu>zthenzu=1
  348. 8460 goto8420
  349. 8500 zu=0
  350. 8510 zu=zu+1:ifzu>zthenzu=1
  351. 8520 kl=1:gosub2090:goto8510
  352. 8600 ifz=1thenz=0:return
  353. 8605 fr$(i)=fr$(z):d1$(i)=d1$(z):d2$(i)=d2$(z):z=z-1
  354. 8610 ifko(i)=1thenni=ni-1
  355. 8620 ifko(i)=2thense=se-1
  356. 8630 ifko(i)=3thengu=gu-1
  357. 8640 ifko(i)=4thensg=sg-1
  358. 8650 return
  359. 8700 zu=zu+1:ifzu>zthenzu=1
  360. 8710 ifso(zu)=1thenkl=1:gosub2090
  361. 8720 goto8700
  362. 10000 printchr$(14):print"[147][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][196]irectory[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  363. 10020 print"      0";:open1,8,0,"$":poke781,1:sys65478:geta$,a$,a$,a$:x$=chr$(0)
  364. 10030 fori=1to 7:geta$,b$,c$,d$:printtab(5)a$b$c$d$;:next:print:geta$,a$,a$,b$
  365. 10040 ifstthensys65484:close1:goto10060
  366. 10050 printtab(5)asc(a$+x$)+256*asc(b$+x$);:goto10030
  367. 10060 print"                <[211][208][193][195][197]> [146]"
  368. 10070 geta$:ifa$=""then10070
  369. 10080 goto20
  370. 11000 ifz=0then2001
  371. 11005 pokefq,11:print"[147]=============[167][146]ruckerausgabe============="
  372. 11010 print" [173][146]bungsblatt drucken .............. *1[146]*"
  373. 11020 print" [161][146]okabeln drucken ................. *2[146]*"
  374. 11030 print" [171][146]ur@ck zum [190][146]en@ .................. *3[146]*":printl$:pokefq,27
  375. 11040 geta$:ifa$=""then11040
  376. 11050 ifval(a$)<1orval(a$)>3then11040
  377. 11060 onval(a$)goto11070,15000,20
  378. 11070 print" [167][146]eutsch-[174][146]remdwort - *1*[146]"
  379. 11080 print" [174][146]remdwort-[167][146]eutsch - *2*[146]"
  380. 11090 geta$:ifa$=""then11090
  381. 11100 ifa$="1"then11150
  382. 11120 i=0:gosub13000
  383. 11125 ifa<1ora>zore<1ore>zthen20
  384. 11130 gosub11220:fori=atoe:print#4,chr$(17)fr$(i);" :"
  385. 11133 print#4,"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  386. 11134 print#4,chr$(17)"  [165] ";d1$(i);:ifd2$(i)<>"^"thenprint#4,", ";d2$(i);
  387. 11139 print#4,:nexti
  388. 11140 close4:goto20
  389. 11150 i=0:gosub13000
  390. 11155 ifa<1ora>zore<1ore>zthen20
  391. 11160 gosub11220:fori=atoe:print#4,chr$(17)d1$(i);:ll=0
  392. 11163 ifd2$(i)<>"^"andleft$(d2$(i),1)<>"("thenprint#4,chr$(17)", "d2$(i):ll=1
  393. 11164 ifll=0thenprint#4,
  394. 11165 print#4,"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  395. 11166 print#4,chr$(17)"  [165] ";fr$(i)
  396. 11167 next:close4:goto20
  397. 11170 close4:goto20
  398. 11220 open4,4:print#4,chr$(17)" *** [213]ebungsblatt ***  (bei [180]falten!)"
  399. 11225 print#4,:print#4,
  400. 11230 return
  401. 13000 printchr$(14):print"[147][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  402. 13010 ifi=1thenb=1:print"[211]peichern[192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  403. 13011 ifi=2thenb=1:print"[204]aden[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  404. 13012 ifi=3thenb=1:print"[206]achladen[192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  405. 13013 ifi=0thenb=2:b$(1)="[214]on [215]ort [206]r.":b$(2)="[194]is [215]ort [206]r."
  406. 13014 ifi=0thenprint"[196]rucken[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  407. 13015 ifi>0thenb$(1)="[206]ame der [196]atei:"
  408. 13020 forj=1tob
  409. 13030 printb$(j):c$=""
  410. 13040 geta$:ifa$=""then13040
  411. 13050 ifasc(a$)>44andasc(a$)<58then13080
  412. 13060 ifi>0andasc(a$)>64andasc(a$)<91then13080
  413. 13070 ifasc(a$)=13then13100
  414. 13072 ifasc(a$)=32then13080
  415. 13075 ifasc(a$)=20andc$<>""thenc$="":print:print"[145]                 [145]":goto13040
  416. 13078 goto13040
  417. 13080 c$=c$+a$:printa$;:iflen(c$)>15then13100
  418. 13090 goto13040
  419. 13100 print:ifi>0theni=0:goto13200
  420. 13110 ifi=0andj=1thena=val(c$):next
  421. 13120 e=val(c$):return
  422. 13200 ifc$=""thenpokefq,11:printchr$(142):i=5:return
  423. 13210 na$=c$:return
  424. 14000 return
  425. 15000 i=0:gosub 13000
  426. 15005 ifa<1ora>zore<1ore>zthen20
  427. 15010 open4,4:fori=atoe:print#4,chr$(17)fr$(i)" .... : ";d1$(i);
  428. 15020 ifd2$(i)<>"^"thenprint#4,chr$(17)", ";d2$(i):goto15040
  429. 15030 print#4,
  430. 15040 next:ifj=2thenj=0:close4:goto2320
  431. 15050 ifj=3thenclose4:i=zu:goto6250
  432. 15060 close4:goto20
  433.