home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh3x / sh34c.d64 / lernkartei (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  11KB  |  288 lines
  1. 1 GOTO1991
  2. 21 IFX<2ORQ<>1ORI>XTHEN2110
  3. 22 IFX>ITHENB=1
  4. 23 KL=1:SYSIN:SYSW:IFI>0THEN60
  5. 40 T=B:I=I+1:H=I:IFH>XTHENI=X:H=0:J(B)=J(B)-1
  6. 50 SYSVE,R(T)-1,W(T):J(T)=J(T)+1:POKEW(T),H
  7. 60 H=PEEK(R(T)):IFH=0THEN40
  8. 65 IFSC=1THEN195
  9. 70 N1=INT(RND(TI)*14):N2=INT(RND(TI)*6):N3=INT(RND(TI)*6):N4=INT(RND(TI)*14)
  10. 80 SYSW:RECLOWN2,N1,27,12,4:WOUTN1+1,N2+1,N1+25,N2+10,F$(H):J=0
  11. 81 J=J+1:GETA$:IFJ=OTHEN90
  12. 82 IFA$=CHR$(135)THENWAIT203,64:GOTO90
  13. 83 GOTO81
  14. 90 FL=9:RECLOWN3+8,N4,27,12,4:WOUTN4+1,N3+9,N4+25,N3+18,A$(H)
  15. 100 KEY160,32,140,136,210,133,110,134
  16. 110 IFFL=9THENFL=8:RECLOWN2,N1,27,12,4:WOUTN1+1,N2+1,N1+25,N2+10,F$(H):GOTO100
  17. 120 GOTO90
  18. 140 J(T)=J(T)-1:IFJ(T)=0THENB=B+1:IFB=Z+1THEN190
  19. 150 T=B:GOTO50
  20. 160 J(T)=J(T)-1:T=T+1:IFT=Z+1THEN190
  21. 170 IFJ(B)<>0THEN50
  22. 180 B=B+1:GOTO50
  23. 190 G=G+1:IFJ(Z)<>0THEN40
  24. 191 I=0:G=0:KL=0:SYSW:RECLOW3,2,35,3,4
  25. 192 WOUT4,4,34,4,"[211]IE HABEN ALLE [203]ARTEN GELERNT !":GOSUB1030:GOTO2050
  26. 195 RECLOW0,1,27,12,4:WOUT2,1,26,10,F$(H):RECLOW13,12,27,12,4
  27. 196 WINP13,14,37,23,"",C$,1;H$:D$=H$:IFST=1THEN210
  28. 197 IFH$<>A$(H)THEN199
  29. 198 WOUT3,17,10,17,"[210]ICHTIG.":FORA=1TO500:NEXT:WOUT3,17,10,17,"":GOTO160
  30. 199 WOUT3,17,9,17,"[198]ALSCH.":FORA=1TO500:NEXT
  31. 200 WOUT1,17,9,17,"RICHTIG":WOUT1,19,6,19,"IST..."
  32. 201 WOUT13,14,37,23,A$(H)
  33. 202 KEY209,32,209,13,203,136,201,135,210,133
  34. 203 WOUT13,14,37,23,D$:GOTO202
  35. 209 WOUT1,17,9,19,"":GOTO140
  36. 210 GOSUB1056:PRINT"[147] [201]NFORMATIONEN":PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  37. 211 PRINT"[196]ER [203]ARTEIKASTEN."
  38. 220 K=0:S1=0:FORA=1TOZ*2STEP2:K=K+1:S1=S1+J(K)
  39. 230 S2=A+5:WOUT1,S2,10,S2,STR$(K)+". "+STR$(U(K)):WOUT10,S2,13,S2,STR$(J(K))
  40. 240 WLINEA+6,6,9,4:NEXT:RECLOW5,5,11,Z*2+1,4
  41. 250 WOUT22,6,32,6,"[211]UMME :"+STR$(X)
  42. 251 WOUT22,8,32,8,"IM [203]. :"+STR$(S1)
  43. 252 WOUT20,10,32,10,"GELERNT :"+STR$(G)
  44. 253 WOUT20,12,32,12,"[218]EITVOR :"+STR$(O/16)
  45. 254 WOUT22,14,32,14,"[197]BENE :"+STR$(T)
  46. 255 WOUT20,19,36,19,"F 3  WEITERLERNEN"
  47. 256 WOUT20,21,35,21,"F 5  [200]AUPTMENUE"
  48. 257 WOUT20,23,37,23,"F 7  [218]EITVORGABE"
  49. 260 KEY264,134,2050,135,261,136
  50. 261 WOUT20,23,37,23,"[218]EITVORGABE ? :  :":WINP35,23,36,23,"","[133] ",1;H$
  51. 262 D=VAL(H$):IFST=0ANDD<>0THENO=16*D
  52. 263 GOTO253
  53. 264 GOSUB1055:SYSW:GOTO65
  54. 280 PRINT"[147] [196]ATEN":PRINT"[163][163][163][163][163][163][163]":RECLOW0,12,27,12,4:RECLOW13,12,27,12,4
  55. 281 SYS49338:GOSUB1055:WOUT0,4,10,10,E$:WOUT0,14,11,22,F$
  56. 282 WOUT39,0,39,23,"[214]ORDERSEITE    [210]@CKSEITE"
  57. 285 IFY>255THENY=255:C=0
  58. 286 WOUT13,1,37,10,F$(Y):WOUT13,14,37,23,A$(Y)
  59. 287 WOUT2,2,10,2,"":PRINT"/";Y;"#";X
  60. 288 IFY<>X+1ANDC=0THEN300
  61. 290 A=0:WINP13,1,37,10,F$(Y),C$,8;H$:F$(Y)=H$:GOTO296
  62. 295 WINP13,14,37,23,A$(Y),C$,8;H$:A$(Y)=H$:A=1:C=0
  63. 296 IFF$(Y)<>""ANDA$(Y)<>""ANDY=X+1THENX=X+1
  64. 297 F=ST+1:ONFGOTO301,367,330,338,350,361,363,309,365
  65. 300 KEY301,13,367,F1,330,F3,338,F5,350,F7,361,F2,363,F4,309,F6,N,F8,P,69,304,78
  66. 301 IFF$(Y)=""THEN290
  67. 302 IFA$(Y)=""THEN295
  68. 303 Y=Y+1:C=0:GOTO285
  69. 304 Y=0:C=1
  70. 305 Y=Y+1:WOUT13,1,37,10,F$(Y):WOUT13,14,37,23,A$(Y):IFF$(Y)=""THEN285
  71. 306 GETA$:IFA$(Y)=""ORA$="/"THEN285
  72. 307 IFY<255THEN305
  73. 308 C=0:GOTO285
  74. 309 IFX=0ORY=X+1ORX=255THEN285
  75. 310 WOUT15,12,28,12,"AUFSCHIEBEN..."
  76. 311 FORA=XTOYSTEP-1:SYS(SW)F$(A+1),F$(A):SYS(SW)A$(A+1),A$(A):NEXT
  77. 315 F$(Y)="":A$(Y)="":X=X+1:C=1:WOUT15,12,28,12,"":GOTO285
  78. 330 IFY=X+1ORY=255THENY=1:C=0:GOTO285
  79. 335 Y=X+1:GOTO285
  80. 338 IFX=0ORY=X+1THEN285
  81. 339 WOUT15,12,24,12,"L:SCHEN..."
  82. 340 FORA=YTOX:SYS(SW)F$(A),F$(A+1):SYS(SW)A$(A),A$(A+1):NEXT:F$(A)="":A$(A)=""
  83. 345 X=X-1:C=0:WOUT15,12,24,12,"":GOTO285
  84. 350 IFY=1THEN288
  85. 360 Y=Y-1:C=0:GOTO285
  86. 361 IFY+9>XORY>245THENY=X:GOTO286
  87. 362 Y=Y+10:GOTO285
  88. 363 IFY<11THENY=1:GOTO286
  89. 364 Y=Y-10:GOTO285
  90. 365 IFA=1THEN290
  91. 366 GOTO295
  92. 367 GOSUB1056:PRINT"[147][204][146]OAD   [211][146]AVE  [198][146]REE"
  93. 368 PRINT"[212][146]AUSCH [197][146]RASE [205][146]ISCHEN":C=0
  94. 369 PRINT"[200][146]AUPTMENUE   [195][146]ANCEL"
  95. 370 RECLOW11,7,27,7,4:RECLOW10,8,25,9,4
  96. 371 GETA$:IFA$=""THEN377
  97. 376 IFA$="F"THENPRINT" FREE:";FRE(0)
  98. 377 IFA$="H"THEN2050
  99. 378 IFA$="C"THEN280
  100. 379 IFA$="L"THENF=5:SYSW:WOUT1,8,4,8,"[204]OAD":D$="":GOTO399
  101. 380 IFA$="S"ANDX>0THENF=7:SYSW:WOUT1,8,4,8,"[211]AVE":GOTO399
  102. 381 IFA$="T"ANDX>0THENSYSW:WOUT1,8,8,8,"[212]AUSCHEN":RECLOW7,0,10,3,4:GOTO385
  103. 382 IFA$="E"ANDX>0THENSYSW:WOUT1,8,5,8,"[197]RASE":RECLOW7,0,7,3,4:GOTO387
  104. 383 IFA$="M"ANDX>0THENSYSW:WOUT1,8,7,8,"[205]ISCHEN":RECLOW7,0,9,3,4:GOTO542
  105. 384 GOTO371
  106. 385 WOUT5,12,26,12,"[205]OMENT, ICH TAUSCHE..."
  107. 386 FORA=1TOX:SYS(SW)F$(A),A$(A):NEXT:WOUT1,12,26,12,"":GOSUB1030:GOTO280
  108. 387 RECLOW11,0,30,3,4:WOUT1,12,28,12,"LOESCHEN VON :   : BIS :   :"
  109. 388 WOUT13,15,19,15,"F1 UNDO"
  110. 389 WINP15,12,17,12,"","[133] ",1;H$:A=VAL(H$):IFST=1THEN280
  111. 390 IFA=0ORA>XTHEN389
  112. 391 WINP25,12,27,12,"","[133] ",1;H$:A2=VAL(H$):IFST=1THEN280
  113. 392 IFA2<AORA2>XTHEN391
  114. 393 WOUT0,11,29,13,"":WOUT13,15,19,15,"":WOUT6,12,27,12,"[205]OMENT, ICH LOESCHE..."
  115. 394 FORY=1TOX-A2:SYS(SW)F$(A+Y-1),F$(A2+Y):SYS(SW)A$(A+Y-1),A$(A2+Y):NEXT
  116. 395 A4=X-A2+A:FORY=A4TOX+1:F$(Y)="":A$(Y)="":NEXT:X=A4-1:Y=1:WOUT6,12,39,12,""
  117. 396 GOSUB1030:GOTO280
  118. 399 RECLOW11,0,28,3,4:RECLOW7,0,6,3,4:WOUT13,15,28,15,"F1 UNDO   F3 DIR"
  119. 405 WOUT1,12,26,12,"[196]ATEINAME ? :            :"
  120. 410 WINP14,12,25,12,"",J$,2;H$:D$=H$:IFST=2ANDD$=""THEND$="*"
  121. 425 IFST=1ORD$=""THEN280
  122. 426 IFST=2THENSYSW:SYS(CA)0,"$:DAT."+D$+"=SEQ",24:GOSUB1030:GOTO379
  123. 440 OPEN1,8,15:CLOSE1
  124. 441 IFST<>0THEN:WOUT1,12,26,12,"[196]EVICE NOT PRESENT ERROR":GOSUB1030:GOTO280
  125. 442 IFF=7THEN490
  126. 450 OPEN2,8,2,"0:DAT."+D$+",S,R":OPEN1,8,15:GOSUB1000:IFV<>0THEN470
  127. 455 WOUT1,12,26,12,"LOADING...":INPUT#2,D:IFX+D<256THEN457
  128. 456 WOUT1,12,39,12,"ZU VIELE [203]ARTEN...":CLOSE1:CLOSE2:GOSUB1030:GOTO280
  129. 457 PRINT"[156]CARDS TO LOAD FROM [159]";D:PRINT"[156][211]UMME:[159]";X+D
  130. 458 F$(X+1)="":A$(X+1)="":FORL=DTO1STEP-1
  131. 460 PRINT"[158]";L;"[157] ";:X=X+1:SYS(IP),2,F$(X):SYS(IP),2,A$(X):NEXT
  132. 465 PRINT"0 [159]":GOSUB1000
  133. 470 WOUT1,12,26,12,V$:CLOSE1:CLOSE2:GOSUB1030:GOTO280
  134. 490 WOUT1,12,26,12,"SAVING..."
  135. 500 OPEN1,8,15:OPEN2,8,2,"0:DAT."+D$+",S,R":INPUT#1,A:CLOSE2:CLOSE1
  136. 501 IFA<>0THEN520
  137. 505 WOUT5,18,31,18,"ALTE [196]ATEI LOESCHEN (J/N) ?"
  138. 506 KEY510,74,379,78
  139. 510 OPEN1,8,15,"S:DAT."+D$:CLOSE1:WOUT5,18,31,18,"":CLOSE1
  140. 520 OPEN1,8,15,"I0":OPEN2,8,2,"0:DAT."+D$+",S,W":GOSUB1000:IFV<>0THEN470
  141. 525 PRINT"[156]CARDS TO SAVE FROM [159]";X:PRINT#2,X
  142. 526 FORA=1TOX:IFF$(A)=""THENF$(A)="."
  143. 527 IFA$(A)=""THENA$(A)="."
  144. 530 PRINT"[158]";X+1-A;"[157] ";:PRINT#2,F$(A);CR$;A$(A);CR$;:NEXT
  145. 541 PRINT"0 [159]":GOSUB1000:GOTO470
  146. 542 WOUT5,12,24,12,"[205]OMENT, ICH MISCHE..."
  147. 543 FORA=1TOX:A1=INT(RND(0)*X)+1:SYS(SW)F$(A1),F$(A):SYS(SW)A$(A),A$(A1):NEXT
  148. 544 WOUT5,12,24,12,"":GOSUB1030:GOTO280
  149. 600 SYSIN:PRINT"[147] [203]ONFIGURATION":PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  150. 601 WOUT5,24,35,24,"F1 [206]EUEINGABE     F3 [200]AUPTMEN@"
  151. 610 PRINT"[215]IEVIELE [198];CHER ?        (MAX. - 9)":RECLOW3,20,3,3,4
  152. 620 WINP21,4,21,4,"","[133] ",2;H$:Z=VAL(H$):IFST=2THEN2050
  153. 621 IFST=1ORZ=0ORZ>9THEN620
  154. 622 A=0
  155. 630 FORL=0TOZ-1:RECLOW8,L*4,5,3,4:WOUTL*4+1,11,L*4+3,11,STR$(L+1)+".":NEXT:L=1
  156. 640 WINPL*4-3,9,L*4-1,9,"","[133] ",2;H$:U(L)=VAL(H$):IFST=1THEN600
  157. 641 IFST=2THEN2050
  158. 645 IFU(L)<2ORU(L)>255THEN640
  159. 650 A=A+U(L):IFA<1660THEN654
  160. 651 WOUT3,15,26,15,"LEIDER NICHT M:GLICH...":A=A-U(L):KEY652,32
  161. 652 WOUT3,15,26,15,"":GOTO640
  162. 654 IFL<ZTHENL=L+1:GOTO640
  163. 655 WOUT1,16,13,16,"[218]EITVORGABE ?":RECLOW15,16,4,3,4
  164. 660 WINP17,16,18,16,"","[133] ",2;H$:O=16*VAL(H$):IFST=1THEN600
  165. 670 IFST=2THEN2050
  166. 680 IFO=0THEN660
  167. 840 GOSUB1050:FORL=1TOZ:POKEU+L,U(L):J(L)=0:NEXT:G=0
  168. 850 SYS49267,U+24,R(Z)+2,0:I=0:GOTO2050
  169. 900 SYSIN:GOSUB1056:PRINT"[147][196]ISK [207]PERATIONS":PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  170. 950 WLINE5,0,27,4:WLINE18,0,27,4:WOUT1,20,8,20,"[211]TATUS :"
  171. 960 WOUT1,3,32,3,"F1 DIR    F3 [195]OMMAND    F5 [205]ENUE"
  172. 970 KEY971,133,984,134,2050,135
  173. 971 A=1:GOSUB993
  174. 972 WOUT0,6,22,16,"":WOUT23,6,26,16,""
  175. 973 PRINT"":DIR7,17:GOSUB1010:CLOSE1:GOTO970
  176. 984 A=0
  177. 993 OPEN1,8,15:CLOSE1:IFST=0THEN995
  178. 994 WOUT10,20,33,20,"[196]EVICE NOT PRESENT ERROR":GOTO970
  179. 995 OPEN1,8,15:WOUT10,20,38,20,"":IFA=1THENRETURN
  180. 996 WOUT1,23,6,23,"[195]OM. ?":RECLOW22,8,30,3,4:WINP9,23,36,23,"",C$,1;H$
  181. 997 IFH$=""ORST=1THEN999
  182. 998 PRINT#1,H$:GOSUB1010
  183. 999 CLOSE1:WOUT1,22,37,24,"":GOTO970
  184. 1000 INPUT#1,V,V1$:V$=STR$(V)+" "+V1$:RETURN
  185. 1010 GOSUB1000:WOUT10,20,38,20,V$:RETURN
  186. 1030 RECLOW22,11,17,3,4:WOUT13,23,25,23,"PRESS <SPACE>":KEY1031,32
  187. 1031 WOUT10,22,27,24,"":RETURN
  188. 1050 A=0:FORL=0TOZ-1:A=A+U(L):W(L+1)=A:R(L+1)=A+U(L+1)-1:NEXT:Q=1:RETURN
  189. 1055 POKEZS,(PEEK(ZS)AND240)OR14:RETURN
  190. 1056 POKEZS,(PEEK(ZS)AND240)OR6:RETURN
  191. 1060 SYS49853:GOSUB1055:RETURN
  192. 1070 SYS49784:READA:FORE=1TOA:READAN:FORBN=0TO7:READMN:POKEAN+BN,MN:NEXT:NEXT
  193. 1071 RESTORE:GOTO1060
  194. 1072 DATA7,14336,0,102,0,102,102,102,62,0
  195. 1073 DATA14552,195,60,102,102,102,102,60,0
  196. 1074 DATA14560,60,102,108,102,98,102,108,96
  197. 1075 DATA 14568,102,24,60,102,126,102,102,0
  198. 1076 DATA 14800,0,102,0,60,102,102,60,0
  199. 1077 DATA 14808,102,0,60,6,62,102,62,0
  200. 1078 DATA15312,102,0,102,102,102,102,60,0
  201. 1100 SYSIN:PRINT"[147][159][204]ERNKARTEI / [218]EICHENSATZ":PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  202. 1110 GOSUB1056:PRINT"F 1  [204]ERNKARTEI LADEN":CA$="LK."
  203. 1120 PRINT"F 3  [204]ERNKARTEI SPEICHERN"
  204. 1130 PRINT"F 5  [218]EICHENSATZ LADEN"
  205. 1135 PRINT"F 7  [200]AUPTMENUE":IFWE=1ANDFL=1THEN1155
  206. 1136 IFWE=1ANDFL=0THEN1156
  207. 1137 IFWE=1ANDFL=2THEN1145
  208. 1138 WOUT11,22,38,24,"":WOUT0,13,25,20,"":CA$="LK.":FL=0
  209. 1140 KEY1150,134,2050,136,1156,133,1145,135
  210. 1145 CA$="ZS.":FL=2:RECLOW13,0,11,3,4:WOUT1,14,9,14,"[218][211]. LADEN":GOTO1157
  211. 1150 IFQ<>1THEN1140
  212. 1155 FL=1:RECLOW13,0,15,3,4:WOUT1,14,13,14,"[204]K. SPEICHERN":GOTO1157
  213. 1156 RECLOW13,0,11,3,4:WOUT1,14,9,14,"[204]K. LADEN"
  214. 1157 RECLOW17,0,24,3,4:WE=0
  215. 1160 WOUT1,18,22,18,"[206]AME ? :             :":WOUT8,20,23,20,"F1 UNDO   F3 DIR"
  216. 1170 WINP9,18,21,18,"",J$,2;H$:D$=H$:IFST=2ANDD$=""THEND$="*"
  217. 1171 IFST=1ORD$=""THEN1138
  218. 1172 IFST=2THENSYSW:SYS(CA)0,"$:"+CA$+D$+"=PRG",24:GOSUB1030:WE=1:GOTO1100
  219. 1180 OPEN1,8,15:CLOSE1:POKEU+10,I:POKEU+11,O/16:A$="LK."+D$
  220. 1185 IFST<>0THEN:WOUT1,18,22,18,"[196]EV. NOT PRESENT ERROR":GOSUB1030:GOTO1138
  221. 1188 OPEN1,8,15:IFFL<>1THEN1220
  222. 1189 FORL=1TOZ:POKEU+11+L,J(L):NEXT:POKEU+21,T:POKEU+22,B:POKEU+23,G:POKEU,Z
  223. 1190 WOUT1,18,22,18,"SAVING...":OPEN2,8,2,A$:INPUT#1,A
  224. 1191 CLOSE2:IFA<>0THEN1209
  225. 1200 WOUT1,23,27,23,"ALTE [196]ATEI LOESCHEN (J/N) ?"
  226. 1201 KEY1208,74,1215,78
  227. 1208 PRINT#1,"S:"+A$
  228. 1209 WOUT1,23,27,23,"":SAVPRGA$,8,U,R(Z):GOSUB1000
  229. 1210 WOUT1,18,22,18,V$
  230. 1215 WOUT1,23,27,23,"":CLOSE1:GOSUB1030:IFFL<>2THEN1138
  231. 1216 GOTO1100
  232. 1220 WOUT1,18,22,18,"LOADING...":LODPRGCA$+D$,8:GOSUB1000:IFV<>0THEN1210
  233. 1221 IFFL<>2THEN1228
  234. 1222 GOSUB1060:GOTO1210
  235. 1228 Z=PEEK(U):FORL=1TOZ:U(L)=PEEK(U+L):J(L)=PEEK(U+11+L):NEXT:O=PEEK(U+11)*16
  236. 1229 I=PEEK(U+10):B=PEEK(U+22):T=PEEK(U+21):G=PEEK(U+23):GOSUB1050
  237. 1230 IFX>=IANDI>0THENKL=1
  238. 1240 GOSUB1030:SYSW:PRINT"[193]NZAHL [198]AECHER :";Z
  239. 1250 FORL=0TOZ-1:WOUTL*4+1,7,L*4+3,7,MID$(STR$(U(L+1)),2,3):RECLOW6,L*4,5,3,4
  240. 1260 WOUTL*4+1,9,L*4+3,9,STR$(L+1)+".":NEXT:PRINT:PRINT"[218]EITVORGABE :";O/16
  241. 1270 PRINT"[205]INDESTKARTENMENGE :";I:GOSUB1030:CLOSE1:GOTO1100
  242. 1300 WOUT4,22,32,22,"([195])ANCEL  ([207])RIG. [218][211]  ([205])ODUS":KEY1310,79,1320,67,1330,77
  243. 1310 WOUT4,22,32,22,"KOMMT SOFORT...":GOSUB1070
  244. 1320 WOUT4,22,32,22,"":GOTO2110
  245. 1330 IFSC=0THENSC=1:WOUT4,22,32,22,"[197]INGABE-[205]ODUS EINGESCHALTET.":GOTO1350
  246. 1340 SC=0:WOUT4,22,32,22,"[197]INGABE-[205]ODUS AUSGESCHALTET."
  247. 1350 FORA=1TO1500:NEXT:GOTO1320
  248. 1500 IFKL<>1THEN2110
  249. 1501 GOSUB1056:PRINT"[147] [193]USWAHL":PRINT"[163][163][163][163][163][163][163][163][163]":WOUT20,9,32,9,"F1 [200]AUPTMENUE"
  250. 1510 PRINT"[196]ATEN BEHALTEN VON [198]ACH 1 BIS : : ?":RECLOW5,1,37,3,4
  251. 1520 WINP33,6,33,6,"","[133] ",1;H$:R=VAL(H$):IFST=1THEN2050
  252. 1529 IFR=0ORR>ZORB>RTHEN1520
  253. 1530 IFI=XTHENA$="N":PRINT:GOTO1540
  254. 1531 PRINT:PRINT"NICHT GELERNTE [203]ARTEN BEHALTEN (J/N) ?"
  255. 1532 GETA$:IFA$=""THEN1532
  256. 1533 IFA$=CHR$(133)THEN2050
  257. 1534 IFA$<>"N"ANDA$<>"J"THEN1532
  258. 1540 PRINT"[205]OMENT, ICH RECHNE..."
  259. 1545 IFH<>PEEK(R(R))THENPOKE(R(R)),0
  260. 1550 L=0:FORA=1TOX:SYS49297,U(0),R(R)+1,A:IFPEEK(2)=0THENNEXT:GOTO1570
  261. 1560 L=L+1:SYS(SW)F$(L),F$(A):SYS(SW)A$(L),A$(A):NEXT
  262. 1570 IFA$="N"THEN1590
  263. 1580 FORA=I+1TOX:L=L+1:SYS(SW)F$(L),F$(A):SYS(SW)A$(L),A$(A):NEXT
  264. 1590 FORA=L+1TOX:F$(A)="":A$(A)="":NEXT:X=L:GOSUB1030:Y=1:GOTO840
  265. 1991 POKE53280,14:POKE53281,0:POKE46,64:POKE45,1:CLR:POKE650,128
  266. 1995 F1=133:F3=134:F5=135:F7=136:F2=137:F4=138:F6=139:F8=140:P=290:N=365
  267. 1996 POKE207,0:POKE204,1
  268. 1999 CR$=CHR$(13):U=51578:U(0)=U+24:VE=49152:IN=49771:IP=49930:CA=49495
  269. 2000 SYS50020:DIMF$(256),A$(256):Y=1:SW=49448:ZS=53272:W=58692
  270. 2010 C$="[133][134][135] [160]_!#$%&'()+-\^*@:;=/.,_[219][221][169][255][192][186]][?><[166][220][168][223][164][175][185][162][184][183][163][178][177][179][171][176][174][172][187][165][180][181][161][182][167][170][191][190][188][189][173]"
  271. 2020 E$="F1 [204]/[211]/ETC.           F3 [193]NF/[197]NDE           F5 L:SCHEN   "
  272. 2030 E$=E$+"         F7 ZUR@CK":F$="F2 10 VOR               F4 10 ZUR.     "
  273. 2040 F$=F$+"         F6 AUFSCH.              F8 [215]ECHSEL              (RET) (E)"
  274. 2041 J$="[133][134] +-_!#$%&'()\^@;:[]/.,<>?*"
  275. 2042 GOSUB1070
  276. 2050 PRINT"[159][147][156][205]ANFRED [211]CH;FER":PRINT"[205]AINZER [211]TR. 7":PRINT"6501 [211]AULHEIM"
  277. 2052 GOSUB1055:PRINT"[159][200]YPRA - [204]ERNKARTEI V 1.4"
  278. 2060 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  279. 2070 PRINT"F 1  [196]ATEN     F 2  [204][203]/[218][211]"
  280. 2080 PRINT"F 3  [203]ONF.     F 4  [218][211]/[205]OD."
  281. 2090 PRINT"F 5  LERNEN    F 6  [193]USWAHL"
  282. 2100 PRINT"F 7  [196]ISK      F 8  [210]ESET":SYS49338
  283. 2105 WLINE11,5,29,4:RECLOW7,4,31,15,4
  284. 2110 KEY280,F1,21,F5,600,F3,900,F7,2121,F8,1100,F2,1500,F6,1300,F4
  285. 2121 WOUT4,22,25,22,"[194]IST DU SICHER (J/N) ?":KEY2130,74,2125,78
  286. 2125 WOUT4,22,25,22,"":GOTO2110
  287. 2130 SYSIN:WOUT4,22,25,22,"ZUR@CK MIT GOTO 2050...":PRINT:PRINT
  288.