home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
s85xx
/
s8507c.d64
/
dbii
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
33KB
|
861 lines
0 REM-DBII / (C)1985 MARTIN HECHT,STGT-
1 DIM MF%(3),LB(3),HB(3),ME$(2,17),AP%(5,4),KS$(145),F1%(5),F2%(5),F3%(5),AF%(5)
2 DIM FC%(68),BA(2),P1(4),P2(7),PH(2),HP%(2,4),BR%(3),NP(3),PO(3),OP(3)
3 DIM DD$(15),SN%(15),DS%(15)
4 DIM FO%(20),FO$(20),RO%(15),FD(50,2),VZ%(50),FA%(50),F(50)
8 GOTO79
11 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
12 RETURN
13 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
14 RETURN
15 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
16 RETURN
17 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
18 RETURN
19 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
20 RETURN
21 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
22 RETURN
23 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
24 RETURN
25 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
26 RETURN
27 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
28 RETURN
29 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
30 RETURN
31 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
32 RETURN
33 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
34 RETURN
35 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
36 RETURN
37 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
38 RETURN
39 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
40 RETURN
79 GOSUB4510:LB(1)=61:HB(1)=154:QX$="MP-P-3":GOSUB11860
80 LB(1)=232:HB(1)=199:QX$="MP-P-4":GOSUB11860
81 LB(1)=200:HB(1)=192:QX$="MP-P-5":GOSUB11860
89 POKE55,60:POKE56,154:POKE51,60:POKE52,154
92 GOSUB4810
165 GOSUB11022:PRINTCHR$(142)CHR$(8):FF=MF%(3):GOSUB11235:POKE781,1:SYSPT
180 ME=1:GOSUB405:GOSUB11027:EG$=""
182 IF XX=1 THEN ZE=21:SP=10:GOSUB11050:PRINT"AUSGABE AUF DRUCKER![146]"
190 GOSUB11455
207 IFEG=13THENGOSUB310:GOTO190
210 IFEG=8THENHP=1:GOSUB9500:GOTO165
215 IF EG=80 THEN XX=1:ZE=21:SP=10:GOSUB11050:PRINT"AUSGABE AUF DRUCKER![146]"
216 IF EG=79 THEN XX=0:ZE=21:SP=10:GOSUB11050:PRINT" "
220 IFEG=136ANDME=2THEN9002
221 IFEG=140ANDME=2THEN1965
224 IFEG=144THENFF=MF%(1):GOSUB11170:MF%(1)=FF:GOTO190
226 IFEG=5THENFF=MF%(2):GOSUB11200:MF%(2)=FF:GOTO190
227 IFEG=28THENFF=MF%(3):GOSUB11230:MF%(3)=FF:GOTO190
229 IFEG<133OREG>140THEN190
234 IFME=2THEN260
240 ONEG-132GOSUB1015,2007,2213,3010,2657:IFUGTHENUG=0:DC=0:GOTO165
242 GOTO190
260 ONEG-132GOSUB7010,7500,6807:IFUGTHENUG=0:GOTO165
270 GOTO190
310 IFME=1THENME=2:K=49:GOTO330
320 ME=1:K=50
330 FORS1=20TO5STEP-1:ZE=S1:SP=5:GOSUB11050:PRINTKS$(110):NEXTS1:GOSUB405:POKE2004,K:RETURN
405 ZE=1:SP=23:GOSUB11050:PRINTME$(ME,1):FORS1=2TO17
410 ZE=S1+3:SP=5:GOSUB11050:PRINTME$(ME,S1):NEXTS1:RETURN
1015 GOSUB1915
1052 GOSUB11455:IFEG=141THENGOSUB1940:RETURN
1053 IFEG=8THENHP=1:GOSUB9500:GOSUB1915:GOTO1052
1055 FORS1=19TO26:IFFC%(S1)<>EGTHENNEXTS1:GOTO1052
1060 ONS1-18GOSUB1287,1410,1510,1217,1240,1610,1630,1650:GOTO1052
1217 AG$=KS$(108)+"DAT-DIR":ZE=23:GOSUB11585
1220 GOSUB5815:IFFE<>0THEN ZE=23:SP=2:GOSUB11050:PRINTKS$(1)C$C$:POKE2,2:SYS51833
1225 GOSUB9782:IFFE=0THENNN=1:GOSUB1240
1227 RETURN
1240 FORS2=4TO20STEP2:ZE=S2:SP=1:GOSUB11050:PRINTKS$(5):ZE=S2:SP=19:GOSUB11050:PRINTKS$(8)
1241 ZE=S2:SP=30:GOSUB11050:PRINTKS$(9):NEXTS2
1243 S2=4:FORS1=NNTONN+8:IFS1>ADTHENS1=NN+9:NEXTS1:NN=1:RETURN
1245 RV$="":IFS1=SITHENRV$=CHR$(18)
1250 ZE=S2:SP=1:GOSUB11050:PRINTRV$DD$(S1)CHR$(146)
1253 IFSN%(S1)=10THENAG$=RIGHT$(STR$(SN%(S1)),2):GOTO1260
1255 AG$="0"+RIGHT$(STR$(SN%(S1)),1)
1260 ZE=S2:SP=19:GOSUB11050:PRINTAG$:AG$=STR$(DS%(S1)):AG$=RIGHT$(AG$,LEN(AG$)-1)
1267 IFLEN(AG$)<3THENAG$="0"+AG$:GOTO1267
1270 ZE=S2:SP=30:GOSUB11050:PRINTAG$:S2=S2+2:NEXTS1:NN=S1:RETURN
1287 E=0:ZE=0:SP=0:GOSUB11050:PRINTKS$(12):ZE=0:SP=25:P=1:GZ=14:RV=1:GOSUB11303
1288 IFEG=141THEN ZE=0:SP=0:GOSUB11050:PRINTKS$(15):RETURN
1290 FORS4=1TOAD:IFDD$(S4)=EG$THEN1294
1292 NEXTS4:IFE=0THENE=1:GOSUB5815:DD=1:GOTO1290
1293 ZE=0:SP=0:GOSUB11050:PRINTKS$(13):POKE2,1:SYS51833:GOTO1287
1294 ZW$=EG$:IFSI=0THEN1297
1295 ZE=23:SP=7:GOSUB11050:PRINTKS$(99)+DD$(SI)+"[160]!"C$C$:GOSUB 2670:GOSUB9782
1297 SI=S4:ZE=23:AG$=KS$(108)+ZW$:GOSUB11585:I$=ZW$:GOSUB5838
1300 GOSUB9782:AG$=KS$(14):GOSUB11585:POKE2,1:SYS51833:GOSUB9782
1310 ZE=0:SP=0:GOSUB11050:PRINTKS$(15):NN=1:GOSUB1240:RETURN
1410 E=0:ZE=0:SP=0:GOSUB11050:PRINTKS$(19):ZE=0:SP=23:P=1:GZ=14:RV=1:GOSUB11303
1415 IFEG=141THEN ZE=0:SP=0:GOSUB11050:PRINTKS$(15):RETURN
1420 FORS1=1TOAD:IFDD$(S1)=EG$THENK=S1:GOTO1430
1425 NEXTS1:IFE=0THENE=1:GOSUB5815:DD=1:GOTO1420
1427 ZE=0:SP=0:GOSUB11050:PRINTKS$(13):POKE2,1:SYS51833:GOTO1410
1430 ZE=23:SP=7:GOSUB11050:PRINTKS$(20);:GOSUB11445:GOSUB9782:IFEG=78THEN1410
1437 H$=EG$:ZE=23:SP=6:GOSUB11050:PRINTKS$(22)H$C$C$:I$=H$+".D":GOSUB1480:I$=H$+".E"
1438 GOSUB1480:I$=H$+".I":GOSUB1480:I$=H$+".R":GOSUB1480:I$=H$+".Z":GOSUB1480
1445 FORS1=KTOAD:DD$(S1)=DD$(S1+1):SN%(S1)=SN%(S1+1):DS%(S1)=DS%(S1+1):NEXTS1
1450 AD=AD-1:GOSUB5830:GOSUB9782:ZE=23:AG$=KS$(24):GOSUB11585:POKE2,1:SYS51833
1455 GOSUB9782:ZE=0:SP=0:GOSUB11050:PRINTKS$(15):IFK<SITHENSI=SI-1:GOTO1457
1456 IFK=SITHENSI=0
1457 NN=1:GOSUB1240:RETURN
1480 PRINT#15,"S:"+I$:RETURN
1510 E=0:ZE=0:SP=0:GOSUB11050:PRINTKS$(21):ZE=0:SP=10:P=1:GZ=29:RV=1:GOSUB11303
1515 IFEG=141THEN ZE=0:SP=0:GOSUB11050:PRINTKS$(15):RETURN
1517 H1$=LEFT$(EG$,14):H2$=RIGHT$(EG$,14)
1520 FORS1=1TOAD:IFDD$(S1)=H2$THENK=S1:GOTO1537
1525 NEXTS1:IFE=0THENE=1:GOSUB5815:DD=1:GOTO1520
1527 ZE=0:SP=0:GOSUB11050:PRINTKS$(13):POKE2,1:SYS51833:GOTO1510
1537 ZE=23:AG$=KS$(23)+H2$:GOSUB11585:I$=H1$+".D="+H2$+".D":GOSUB1580
1538 I$=H1$+".E="+H2$+".E":GOSUB1580
1539 I$=H1$+".I="+H2$+".I":GOSUB1580:I$=H1$+".R="+H2$+".R":GOSUB1580
1540 I$=H1$+".Z="+H2$+".Z":GOSUB1580
1545 DD$(K)=H1$:GOSUB5830:GOSUB9782:ZE=23:AG$=KS$(25):GOSUB11585:POKE2,1:SYS51833
1550 GOSUB9782:ZE=0:SP=0:GOSUB11050:PRINTKS$(15):NN=1:GOSUB1240:RETURN
1580 PRINT#15,"R:"+I$:RETURN
1610 FF=DF%(1):GOSUB11170:DF%(1)=FF:RETURN
1630 FF=DF%(2):GOSUB11200:DF%(2)=FF:RETURN
1650 FF=DF%(3):GOSUB11230:DF%(3)=FF:RETURN
1915 GOSUB11022:PRINTCHR$(DR)CHR$(9):FF=DF%(3):GOSUB11235
1920 POKE53280,DF%(1):POKE53281,DF%(2):POKE781,7:SYSPT:GOSUB11028
1925 NN=1:IFDD=0THENDD=1:GOSUB1217:RETURN
1927 GOSUB1243:RETURN
1940 IFPEEK(53272)=21THENDR=142:GOTO1950
1945 DR=14
1950 UG=1:RETURN
1965 IFSI<>0THENGOSUB11022:ZE=15:SP=0:GOSUB11050:PRINTKS$(54)KS$(55):GOSUB2659
1967 GOTO7750
2007 GOSUB11022:PRINTCHR$(14):ZE=0:SP=0:GOSUB11050:PRINTKS$(18)KS$(3):GOSUB11485
2010 ZE=19:SP=0:GOSUB11050:PRINTKS$(79)CHR$(17)KS$(79):GOSUB11027
2015 E=0:ZE=5:SP=3:GOSUB11050:PRINTKS$(16)
2020 SP=22:ZE=5:GZ=14:RV=0:P=1:GOSUB11303:IFEG=141THENUG=1:RETURN
2025 FORS4=1TOAD:IFDD$(S4)=EG$THEN2038
2030 NEXTS4:IFE=0THENE=1:GOSUB5815:DD=1:GOTO2025
2035 ZE=20:AG$=KS$(17):GOSUB11585:POKE2,1:SYS51833:ZE=20:SP=0:GOSUB11050:PRINTL$C$C$:GOTO2015
2038 ZW$=EG$:IFSI=0THEN2041
2039 ZE=20:SP=7:GOSUB11050:PRINTKS$(99)+DD$(SI)+"[160]!"C$C$:GOSUB2670
2040 ZE=20:SP=0:GOSUB11050:PRINTL$C$C$
2041 SI=S4
2042 ZE=20:AG$=KS$(108)+ZW$:GOSUB11585:I$=ZW$:GOSUB5838:ZE=20:SP=0:GOSUB11050:PRINTL$C$C$
2045 AG$=KS$(14):GOSUB11585:POKE2,1:SYS51833:ZE=20:SP=0:GOSUB11050:PRINTL$C$C$:UG=1:RETURN
2213 IFSI=0THENPRINTCHR$(147):ZE=10:SP=0:GOSUB11050:PRINTKS$(39):POKE2,1:SYS51833:UG=1:RETURN
2214 IFAT=MTTHENPRINTCHR$(147):ZE=8:SP=0:GOSUB11050:PRINTKS$(40)KS$(41)KS$(42):UG=1:RETURN
2216 A3=27:DM=4:DC=0:GOSUB6775
2225 IFUG=1OR(DC>1ANDDC<4)THENRETURN
2226 GOSUB6027:FORS1=27TO40:IFFC%(S1)<>EGTHENNEXTS1:GOTO2226
2227 IFS1>36THENS1=S1-10:GOTO2235
2230 ONS1-26GOSUB2256,2334,2353,2366,2398,2424,2444,2464,2472,2480:GOTO2225
2235 ONS1-26GOSUB2487,2533,2380,2642:GOTO2225
2256 IFFA%(NF)=5THENGOSUB2500:GOSUB2515:GOTO2264
2258 S1=NF:GOSUB6160
2260 IFFA%(NF)=14THENGOSUB2515
2262 IFFA%(NF)=4THENGOSUB2287
2264 IFNF=AFTHENGOSUB11243:GOTO2275
2266 NF=NF+1:LL=LL+1:IFLL>AF%(PG)THENGOSUB6115:LL=1
2268 RETURN
2275 ZE=23:SP=5:GOSUB11050:PRINTKS$(35);:GOSUB11445:GOSUB9782:IFEG=78THENRETURN
2280 GOSUB2533:RETURN
2287 H$=LEFT$(EG$,10)
2290 IFMID$(H$,3,1)<>"."ORMID$(H$,6,1)<>"."THENH5=7:GOTO2314
2292 H1=VAL(LEFT$(H$,2)):IFH1=0ORH1>31THENH5=7:GOTO2314
2294 H2=VAL(MID$(H$,4,2)):IFH2=0ORH2>12THENH5=7:GOTO2314
2296 H3=VAL(RIGHT$(H$,4)):IFH3=0THENH5=7:GOTO2314
2300 IFH2-3>=0THENH2=H2+1:GOTO2310
2305 H2=H2+13:H3=H3-1
2310 H4=INT(365.25*H3)+INT(30.6*H2)+H1-INT(H3/100)+INT(H3/400)-429
2312 H5=H4-INT(H4/7)*7
2314 EG$=H$+"/"+KS$(100+H5):GOSUB2529:RETURN
2334 IFDC=1THENDC=3:RETURN
2335 GOSUB9782:ZE=23:SP=8:GOSUB11050:PRINTKS$(20);:GOSUB11445
2336 IFEG=78THEN2342
2338 GR=142:IFPEEK(53272)=27THENGR=14
2339 GOSUB2432:IFDC<>4THENGOSUB11022:BR%(1)=21:BR%(2)=3:BR%(3)=4:GOSUB11260:UG=1
2340 DC=2:RETURN
2342 GOSUB9782:RETURN
2353 IFPG=SETHENRETURN
2354 GOSUB11243:EN=EN+AF%(PG):NF=EN:PG=PG+1:GOSUB6010:LL=1:RETURN
2366 IFPG=1THENRETURN
2368 GOSUB11243:PG=PG-1:GOSUB6010:EN=EN-AF%(PG):NF=EN:LL=1:RETURN
2380 ZE=0:SP=0:GOSUB11050:PRINTKS$(6):GOSUB11050:PRINTKS$(32):P=2:RV=1:GZ=2
2383 SP=36:ZE=0:GOSUB11303:H=VAL(EG$):IF(H<1ORH>SE)ORH=PGTHEN2390
2387 IFH>PGTHENFORS1=PGTOH-1:EN=EN+AF%(S1):NEXTS1:NF=EN:GOTO2389
2388 FORS1=HTOPG-1:EN=EN-AF%(S1):NEXTS1:NF=EN
2389 LL=1:GOSUB11243:PG=H:GOSUB6010
2390 ZE=0:SP=0:GOSUB11050:PRINTKS$(27):ZE=0:SP=9:GOSUB11050:PRINTCHR$(18)DD$(SI)CHR$(146):RETURN
2398 GOSUB11243:PG=ES:NF=1:LL=1:EN=1:GOSUB6010:RETURN
2424 GOSUB2432:PG=ES:NF=1:LL=1:EN=1:GOSUB6010:RETURN
2432 PG=ES:GOSUB6010:S1=0
2433 FORNF=1TOAF:S1=S1+1:IFS1<=AF%(PG)THEN2438
2435 GOSUB11243
2436 PG=PG+1:IFAF%(PG)=0THEN2436
2437 S1=1:GOSUB6010
2438 GOSUB2444:NEXTNF:GOSUB11243:RETURN
2444 IFFD(NF,2)=1THENPOKEFD(NF,1),102:RETURN
2445 H1=INT(FD(NF,1)/256):H2=FD(NF,1)-H1*256
2447 H5=FD(NF,1)+FD(NF,2)-1:H3=INT(H5/256):H4=H5-H3*256
2448 LB(1)=H2:HB(1)=H1:LB(2)=H4:HB(2)=H3:AW=102:GOSUB11710:RETURN
2464 FF=F1%(PG):GOSUB11170:F1%(PG)=FF:RETURN
2472 FF=F2%(PG):GOSUB11200:F2%(PG)=FF:RETURN
2480 FF=F3%(PG):GOSUB11230:F3%(PG)=FF:RETURN
2487 GOSUB11243:S7=0:ZP=PG:GOSUB6140:S2=0:S4=0:ZF=NF:PG=ES:GOSUB6010
2488 FORS1=1TOAF:S7=S7+1:IFS7>AF%(PG)THENGOSUB11243:GOSUB2496
2489 IFFA%(S1)=5THENS2=S2+1:GOSUB2504:NF=S1:S4=S4+1:GOSUB2517
2490 IFFA%(S1)=14THENS4=S4+1:NF=S1:GOSUB2517
2492 NEXTS1:GOSUB11243:NF=ZF:PG=ZP:GOSUB6010:RETURN
2496 PG=PG+1:IFAF%(PG)=0THEN2496
2497 S7=1:GOSUB6010:RETURN
2500 FORS2=1TOS5:IFRO%(S2)<>NFTHENNEXTS2
2504 ONS2GOSUB11,13,15,17,19,21,23,25,27,29,31,33,35,37,39
2506 EG$=STR$(R):RETURN
2515 FORS4=1TOS3:IFFO%(S4)<>NFTHENNEXTS4
2517 H$=STR$(VAL(EG$))
2520 FORS6=1TOLEN(H$):IFMID$(H$,S6,1)<>"." THENNEXTS6
2521 H1=VAL(LEFT$(FO$(S4),2)):H2=VAL(RIGHT$(FO$(S4),2))
2522 H3=H1:IFH1>S6-1THENH3=S6-1
2524 H1$=MID$(H$,S6-H3,H3):H2$=MID$(H$,S6+1,H2)
2527 EG$=LEFT$(L$,H1-LEN(H1$))+H1$+"."+H2$+LEFT$(KS$(33),H2-LEN(H2$))
2528 IFH2=0THENEG$=LEFT$(EG$,LEN(EG$)-1)
2529 H1=FD(NF,1)-50176:ZE=INT(H1/40):SP=H1-40*ZE:GOSUB11050:PRINTEG$:RETURN
2533 GOSUB11243:GOSUB9782:ZP=PG:PG=ES:GOSUB6010:ZE=23:SP=5:GOSUB11050:PRINTKS$(38)C$C$
2534 AG$="":S2=0:OPEN1,8,2,DD$(SI)+".R,L,"+CHR$(254)
2536 IFGF>0THENGOSUB2587:P1=0:GOTO2538
2537 P1=1:FORS1=1TO3:PO(S1)=NP(S1):NEXTS1
2538 FORS1=1TO3:OP(S1)=PO(S1):NEXTS1
2539 IFPO(3)=1THENE=0:GOTO2543
2540 E=1:PRINT#15,"P"+CHR$(2)+CHR$(PO(1))+CHR$(PO(2))+CHR$(1)
2541 POKE2,PO(3)-1:POKE69,82:POKE70,177:SYS52453
2543 PRINT#15,"P"+CHR$(2)+CHR$(PO(1))+CHR$(PO(2))+CHR$(1)
2545 FORS1=1TOAF:H1=INT(FD(S1,1)/256):H2=FD(S1,1)-H1*256
2546 G1=INT(FD(S1,2)/255):G2=FD(S1,2)-G1*255
2548 S2=S2+1:IFS2<=AF%(PG)THEN2552
2549 PG=PG+1:IFAF%(PG)=0THEN2549
2550 S2=1:GOSUB6010
2552 FORS6=1TOG1+1:IFS6<>G1+1THENH4=255:GOTO2554
2553 H4=G2
2554 POKE253,H2:POKE254,H1:POKE2,H4:POKE69,69:POKE70,199:SYS52493
2555 IFS6<>G1+1THENH3=H1*256+H2+255:H1=INT(H3/256):H2=H3-H1*256
2556 IFS1=NSANDS6=1THENI$=LEFT$(EG$,AS)
2560 L1=255-PO(3)
2564 IFL1>H4THENAG$=AG$+EG$:PO(3)=PO(3)+H4:NEXTS6:NEXTS1:GOTO2571
2566 IFL1=H4THENAG$=AG$+EG$:GOSUB2582:NEXTS6:NEXTS1:GOTO2574
2568 AG$=AG$+LEFT$(EG$,L1):GOSUB2582:H=H4-L1:AG$=RIGHT$(EG$,H)
2569 IFH=254THENGOSUB2582:NEXTS6:NEXTS1:GOTO2574
2570 PO(3)=PO(3)+H:NEXTS6:NEXTS1
2571 PRINT#15,"P"+CHR$(2)+CHR$(PO(1))+CHR$(PO(2))+CHR$(PO(3))
2572 POKE2,255-PO(3):POKE69,82:POKE70,178:SYS52453
2573 PRINT#15,"P"+CHR$(2)+CHR$(PO(1))+CHR$(PO(2))+CHR$(1):PRINT#1,R1$+AG$+R2$;
2574 GOSUB11322:CLOSE1:IFP1=1THENFORS1=1TO3:NP(S1)=PO(S1):NEXTS1
2575 FORS1=1TO3:PO(S1)=OP(S1):NEXT:GOSUB6215:GOSUB9782:ZE=23:SP=5:GOSUB11050:PRINTKS$(37)C$C$
2576 POKE2,1:SYS51833:GOSUB9782:AG$="":R1$="":R2$="":IFDC=1THENDC=2:RETURN
2577 ZE=23:SP=7:GOSUB11050:PRINTKS$(36);:GOSUB11445:GOSUB9782
2578 IFEG=78THENPG=ZP:GOSUB6010:RETURN
2579 GOSUB2424:RETURN
2582 IFE=1THENE=0:PRINT#1,R1$+AG$;:R1$="":GOTO2584
2583 PRINT#1,AG$;
2584 PO(3)=1:PO(1)=PO(1)+1:IFPO(1)=256THENPO(1)=0:PO(2)=PO(2)+1
2585 PRINT#15,"P"+CHR$(2)+CHR$(PO(1))+CHR$(PO(2))+CHR$(PO(3)):AG$="":RETURN
2587 GF=GF-1:H1=I2+GF*3:HB(1)=INT(H1/256):LB(1)=H1-256*HB(1):H1=H1+1
2588 HB(2)=INT(H1/256):LB(2)=H1-256*HB(2)
2590 LB(3)=37:HB(3)=194:AW=1:GOSUB11760
2595 FORS1=1TO3:PO(S1)=PEEK(49700+S1):NEXTS1:RETURN
2642 ZE=0:SP=0:GOSUB11050:PRINTKS$(6):GOSUB11050:PRINTKS$(2):P=2:RV=1:GZ=3:SP=37:GOSUB11303
2643 ZE=0:SP=0:GOSUB11050:PRINTKS$(A3):ZE=0:SP=9:GOSUB11050:PRINTCHR$(18)DD$(SI)CHR$(146)
2644 H=VAL(EG$):IFH<25ORH>100THENRETURN
2645 POKE56325,H:RETURN
2657 IFSI=0THENPRINTCHR$(147):ZE=10:SP=0:GOSUB11050:PRINTKS$(39):POKE2,1:SYS51833:UG=1:RETURN
2658 GOSUB11022
2659 PRINTCHR$(14)CHR$(8):ZE=9:SP=0:GOSUB11050:PRINTKS$(44)
2660 ZE=0:SP=0:GOSUB11050:PRINTKS$(43)KS$(3):ZE=5:SP=7:GOSUB11050:PRINTKS$(145);:GOSUB11027
2665 GOSUB11445:IFEG=78THENUG=1:RETURN
2668 PRINTCHR$(74)
2670 I$=DD$(SI)+".I":PRINT#15,"S:"+I$
2672 OPEN1,8,2,I$+",S,W":PRINT#1,AT,R$,MT,R$,EA,R$,GF
2675 PRINT#1,NP(1),R$,NP(2),R$,NP(3):CLOSE1:H1=INT(EA/256):H2=EA-256*H1
2677 LB(1)=154:HB(1)=246:LB(2)=H2:HB(2)=H1:LB(3)=0:HB(3)=160:AW=1:GOSUB11760
2678 H3=40960+EA-I1:H1=INT(H3/256)
2680 H2=H3-256*H1:I$=DD$(SI)+".S":PRINT#15,"S:"+I$:SI=0
2682 LB(1)=0:HB(1)=160:LB(2)=H2:HB(2)=H1:QX$=I$:GOSUB11810:I$=DD$(SI)+".R":GOSUB5830
2684 FORS1=11TO39STEP2:QX$=KS$(45)+KS$(45):LB(1)=S1:GOSUB6960:NEXT S1:POKE601,15
2686 GOSUB5758:LB(1)=154:HB(1)=246:LB(2)=255:HB(2)=255:AW=32:GOSUB11710:UG=1:RETURN
3010 IFSI=0THENPRINTCHR$(147):ZE=10:SP=0:GOSUB11050:PRINTKS$(39):POKE2,1:SYS51833:UG=1:RETURN
3012 IFAT=0THENPRINTCHR$(147):ZE=10:SP=0:GOSUB11050:PRINTKS$(34):POKE2,1:SYS51833:UG=1:RETURN
3015 SL=-1:A3=28:DM=5:GOSUB6775
3016 IF XX=1 THEN ZE=0:SP==SGNSQRGOSUB>>050:PRINT"P[146]";
3025 IFUG=1THENDC=0:RETURN
3026 GOSUB11455:IFEG=8THENGOSUB6131:GOTO3030
3029 IF EG=80 THEN XX=1:ZE=0:SP=24:GOSUB11050:PRINT"P[146]";
3030 IF EG=79 THEN XX=0:ZE=0:SP=24:GOSUB11050:PRINT"/[146]";
3031 IF EG=67 THEN GOSUB 3500
3032 FORS1=41TO56:IFFC%(S1)<>EGTHENNEXTS1:GOTO3026
3035 IFS1>50THENS1=S1-10:GOTO3045
3040 ONS1-40GOSUB2334,3065,3080,3092,2464,2472,2480,3130,3181,3337:GOTO3025
3045 ONS1-40GOSUB3341,3345,3355,3370,3392,3425:GOTO3025
3065 IFPG=SETHENRETURN
3070 PG=PG+1:GOSUB6010:RETURN
3080 IFPG=1THENRETURN
3082 PG=PG-1:GOSUB6010:RETURN
3092 ZE=0:SP=0:GOSUB11050:PRINTKS$(6):ZE=0:SP=0:GOSUB11050:PRINTKS$(32):P=2:RV=1:GZ=2
3095 SP=36:ZE=0:GOSUB11303:H=VAL(EG$):IF(H<1ORH>SE)ORH=PGTHEN3115
3100 PG=H:GOSUB6010
3115 ZE=0:SP=0:GOSUB11050:PRINTKS$(28):ZE=0:SP=9:GOSUB11050:PRINTCHR$(18)DD$(SI)CHR$(146):RETURN
3130 IFSL=-1THEN3134
3131 GOSUB9782:ZE=23:SP=2:GOSUB11050:PRINTKS$(50);:GOSUB11445:IFEG=78THENSL=0:GOTO3134
3132 T3=SL:GOSUB3171:GOTO3157
3134 GOSUB9782:GOSUB2432:PG=SF:GOSUB6010
3135 H1=FD(NS,1)-50176:C1=INT(H1/40):C2=H1-40*C1
3137 H3=INT(FD(NS,1)/256):H4=FD(NS,1)-H3*256
3140 G1=INT(FD(NS,2)/256):G2=FD(NS,2)-G1*256
3142 ZE=23:SP=7:GOSUB11050:PRINTKS$(46)C$C$
3145 ZE=C1:SP=C2:GOSUB11050:PRINT;:LB(1)=0:LB(2)=1:GOSUB6920:EG=PEEK(2)
3147 IFEG=141THENGOSUB9782:PG=ES:GOSUB6010:RETURN
3150 POKE253,H4:POKE254,H3:POKE2,AS:POKE69,73:POKE70,128:SYS52493:GOSUB6305
3152 IFE<>0THENZE=23:SP=6:GOSUB11050:PRINTKS$(48)C$C$:POKE2,1:SYS51833:GOSUB9782:GOTO3142
3155 GOSUB3171:SH=T3:SL=T3
3157 IFSL<=SHTHENSL=SL-1:GOSUB3176:IFE<>0THENSL=SH:GOTO3163
3160 IFSL<=SHTHEN3165
3163 SL=SL+1:GOSUB3176:IFE<>0THENSL=-1:RETURN
3165 ZE=23:SP=5:GOSUB11050:PRINTKS$(51)C$C$:RETURN
3171 GOSUB6330:GOSUB6355:RETURN
3176 T4=I3+SL*(AS+3):H1=INT(T4/256):H2=T4-256*H1
3177 LB(1)=1:GOSUB6935:E=PEEK(2):RETURN
3181 T3=-1:IFCD=-1THEN3185
3182 GOSUB9782:ZE=23:SP=1:GOSUB11050:PRINTKS$(26);:GOSUB11445:GOSUB9782:IFEG=78THENCD=-1:GOTO3184
3183 T3=CD:GOTO3282
3184 FORS1=1TOAF:VZ%(S1)=0:NEXTS1
3185 GOSUB2424:GOSUB9782:ZE=23:SP=4:GOSUB11050:PRINTKS$(97)C$C$:PG=ES:NF=1:LL=1:EN=1
3186 GOSUB6010:A4=98:UD=0
3190 IFUD=1THENUD=0:RETURN
3195 GOSUB6027:FORS1=57TO67:IFFC%(S1)<>EGTHENNEXTS1:GOTO3195
3205 ONS1-56GOSUB3225,2353,2366,2380,3211,2398,2424,2444,2487,3240,3269,2642:GOTO3190
3211 IFFA%(NF)=5THENGOSUB2500:GOSUB2515:GOTO3215
3212 S1=NF:GOSUB6160
3213 IFFA%(NF)=14THENGOSUB2515
3214 IFFA%(NF)=4THENGOSUB2287
3215 IFNF=AFTHENGOSUB11243:GOTO3218
3216 NF=NF+1:LL=LL+1:IFLL>AF%(PG)THENGOSUB6115:LL=1
3217 RETURN
3218 GOSUB9782:ZE=23:SP=6:GOSUB11050:PRINTKS$(47);:GOSUB11445:GOSUB9782:IFEG=78THENRETURN
3219 GOSUB3269:RETURN
3225 GOSUB9782:ZE=23:SP=8:GOSUB11050(null)PRINTKS$(20);:GOSUB11445
3227 IFEG=78THENZE=23:SP=4:GOSUB11050:PRINTKS$(97)C$C$:RETURN
3230 PG=ES:GOSUB6010:S1=0:FORNF=1TOAF:S1=S1+1:IFS1<=AF%(PG)THEN3234
3231 GOSUB11243
3232 PG=PG+1:IFAF%(PG)=0THEN3232
3233 S1=1:GOSUB6010
3234 POKEFD(NF,1)-1,60:POKEFD(NF,1)+FD(NF,2),62:GOSUB2444
3235 NEXTNF:GOSUB11243:GOSUB9782:T3=0:UD=1:RETURN
3240 P1=FD(NF,1)-1:H1=P1-50176:ZE=INT(H1/40):SP=H1-ZE*40:GOSUB11050:PRINT;
3242 SYS51682:EG=PEEK(2):IF EG=13 THEN RETURN
3243 IFEG=76THENPOKEP1,60:POKEP1+FD(NF,2)+1,62:VZ%(NF)=0:GOTO3242
3245 IFEG=133THENPOKEP1,188:GOTO3260
3247 IFEG=134THENPOKEP1,190:GOTO3260
3250 IFEG=135THENPOKEP1,162:GOTO3260
3251 IFEG=136THENPOKEP1,142:GOTO3260
3252 IFEG=137THENPOKEP1,139:GOTO3260
3255 IFEG=138THENPOKEP1,135:GOTO3260
3257 IFEG=139THENPOKEP1+FD(NF,2)+1,143:VZ%(NF)=VZ%(NF)OR128:GOTO3242
3258 GOTO3242
3260 VZ%(NF)=(VZ%(NF)AND128)OR(EG-130):GOTO3242
3269 GOSUB11243:PG=ES:GOSUB6010:I4=45160:S2=0:FORS1=1TOAF:S2=S2+1:IFS2<=AF%(PG)THEN3273
3270 GOSUB11243
3271 PG=PG+1:IFAF%(PG)=0THEN3271
3272 S2=1:GOSUB6010
3273 IFPEEK(FD(S1,1))=42THENVZ%(S1)=1:GOTO3280
3274 IF(VZ%(S1)AND127)=5THEN3280
3275 IFFD(S1,2)=1THENPOKEI4,PEEK(FD(S1,1)):I4=I4+1:GOTO3280
3276 HB(1)=INT(FD(S1,1)/256):LB(1)=FD(S1,1)-HB(1)*256
3277 H1=FD(S1,1)+FD(S1,2)-1:HB(2)=INT(H1/256):LB(2)=H1-HB(2)*256
3278 HB(3)=INT(I4/256):LB(3)=I4-256*HB(3)
3279 AW=1:GOSUB11760:I4=I4+FD(S1,2)
3280 P1=FD(S1,1)-1:POKEP1,60:POKEP1+FD(S1,2)+1,62:NF=S1:GOSUB2444:NEXTS1:GOSUB11243
3281 I4=I4+1:H1=INT(I4/256):H2=I4-256*H1:GOSUB6950
3282 GOSUB9782:ZE=23:SP=11:GOSUB11050:PRINTKS$(109)C$C$:OPEN1,8,2,DD$(SI)+".R,L,"+CHR$(254)
3283 IFT3=AT-1THENCLOSE1:ZE=23:AG$=KS$(53):GOSUB11585:CD=-1:UD=1:RETURN
3284 T3=T3+1:GOSUB6330:PRINT#15,"P"+CHR$(2)+CHR$(PO(1))+CHR$(PO(2))+CHR$(PO(3))
3285 I4=45160
3286 A4=0:L2=0:FORS1=1TOAF:S6=0:IFVZ%(S1)=1THENGOSUB3328:NEXTS1:GOTO3325
3287 G1=INT(FD(S1,2)/255):G2=FD(S1,2)-G1*255
3288 FORS6=1TOG1+1:L1=255-PO(3):IFS6<>G1+1THENH4=255:GOTO3290
3289 H4=G2
3290 IFZ=1THENZ=0:PRINT#15,"P"+CHR$(2)+CHR$(PO(1))+CHR$(PO(2))+CHR$(PO(3))
3292 IFL1>H4THENQX=H4:GOSUB6905:PO(3)=PO(3)+H4:GOTO3303
3295 IFL1=H4THENQX=H4:GOSUB6905:GOSUB6396:GOTO3303
3297 POKE2,L1:POKE69,90:POKE70,215:SYS52453:GOSUB6396:QX=H4-L1:GOSUB6905:EG$=ZW$+EG$
3300 IFH4-L1=254THENGOSUB6396:GOTO3303
3301 PO(3)=PO(3)+H4-L1
3303 P1=VZ%(S1)AND127:P2=VZ%(S1)AND128
3304 IFP1=5ANDP3=0THENP3=1:I4=I4-FD(S1-1,2)
3305 IFP1=5THEN3307
3306 IFVZ%(S1-1)=5THENP3=0:I4=I4+FD(S1-1,2)
3307 H1=INT(I4/256):H2=I4-256*H1
3308 POKE251,H2:POKE252,H1:POKE69,69:POKE70,199:SYS49704:E=PEEK(2)
3309 IFP2=128THENA4=1
3313 IFP1=3ANDE=2THEN3322
3314 IFP1=7AND(E=2ORE=0)THEN3322
3315 IFP1=4ANDE=1THEN3322
3316 IFP1=8AND(E=1ORE=0)THEN3322
3317 IFP1=5ANDE=0THEN3322
3318 IFP1=6ANDE<>0THEN3322
3319 IFP1<>6ANDE=0THEN3322
3320 IFP2=128THENGOSUB3333:S6=G1+1:NEXTS6:NEXTS1:GOTO3325
3321 S6=G1+1:NEXTS6:S1=AF:NEXTS1:GOTO3283
3322 IFP2=128THENL2=1
3323 IFP1<>5THENI4=I4+H4
3324 NEXTS6:NEXTS1
3325 IFA4=1ANDL2<>1THEN3283
3326 CLOSE1:CD=T3:GOSUB6330:GOSUB6355:UD=1:RETURN
3328 IFS6=G1+1THENRETURN
3329 Z=1:H1=FD(S1,2)-S6*255:H2=255-PO(3)
3330 IFH2>H1THENPO(3)=PO(3)+H1:RETURN
3331 PO(3)=1:PO(1)=PO(1)+1:IFPO(1)=256THENPO(1)=0:PO(2)=PO(2)+1
3332 H1=H1-H2:H2=254:GOTO3330
3333 GOSUB3328:IFP1<>5THENI4=I4+FD(S1,2)-(S6-1)*255
3334 RETURN
3337 IFT3=AT-1THENGOSUB9782:ZE=23:AG$=KS$(53):GOSUB11585:POKE2,1:SYS51833:GOSUB9782:RETURN
3338 T3=T3+1:GOSUB3171:RETURN
3341 IFT3=0ORT3=-1THENGOSUB9782:ZE=23:AG$=KS$(52):GOSUB11585:POKE2,1:SYS51833:GOSUB9782:RETURN
3342 T3=T3-1:GOSUB3171:RETURN
3345 IFT3=-1THENGOSUB9782:ZE=23:AG$=KS$(96):GOSUB11585:POKE2,1:SYS51833:GOSUB9782:RETURN
3347 T3=0:GOSUB3171:RETURN
3355 IFT3=-1THENGOSUB9782:ZE=23:AG$=KS$(96):GOSUB11585:POKE2,1:SYS51833:GOSUB9782:RETURN
3357 T3=AT-1:GOSUB3171:RETURN
3370 IFDC=0THENZE=23:SP=6:GOSUB11050:PRINTKS$(59)C$C$:POKE2,1:SYS51833:GOSUB9782:RETURN
3375 ZE=23:SP=8:GOSUB11050:PRINTKS$(20);:GOSUB11445:GOSUB9782:IFEG=78THENRETURN
3380 ZE=23:SP=7:GOSUB11050:PRINTKS$(10)C$C$:GOSUB6255:GOSUB2432:PG=ES:GOSUB6010:DC=0:T3=0
3382 GOSUB9782:ZE=23:SP=8:GOSUB11050:PRINTKS$(80)C$C$:POKE2,1:SYS51833:GOSUB9782:RETURN
3392 IFDC=0THENZE=23:SP=6:GOSUB11050:PRINTKS$(59)C$C$:POKE2,1:SYS51833:GOSUB9782:RETURN
3400 ZE=23:SP=8:GOSUB11050:PRINTKS$(20);:GOSUB11445:GOSUB9782:IFEG=78THENRETURN
3405 ZE=23:SP=6:GOSUB11050:PRINTKS$(81)C$C$:GOSUB6255
3407 PG=ES:NF=1:LL=1:EN=1:GOSUB6010:A4=35:GOSUB2226:GOSUB9782:IFDC=2THENRETURN
3410 AT=AT+1:DS%(SI)=AT:GOSUB2533:GOSUB9782:RETURN
3425 IFAT=MTTHENPRINTCHR$(147):ZE=8:SP=0:GOSUB11050:PRINTKS$(40)KS$(41)KS$(42):UG=1:RETURN
3428 GOSUB9782:ZE=23:SP=9:GOSUB11050:PRINTKS$(95)C$C$
3430 PG=ES:NF=1:LL=1:EN=1:GOSUB6010:A4=35:DC=4:GOSUB2226:DC=0:GOSUB9782:RETURN
3500 IFT3=-1THENGOSUB9782:ZE=23:AG$=KS$(52):GOSUB11585:POKE2,1:SYS51833:GOSUB9782:RETURN
3501 GOSUB 3171:RETURN
4510 PRINTCHR$(147)CHR$(142)CHR$(8):POKE53280,0:POKE53281,0:POKE211,8:POKE214,11
4530 SYS58640:PRINTCHR$(30)" EINEN MOMENT BITTE !!! [146]":RETURN
4810 BA(1)=1024:BA(2)=50176:DR=142:RS=0:HP=0:PT=39491:SI=0:I1=63130:I2=I1+2
4815 I3=I1+152:MF%(1)=0:MF%(2)=0:MF%(3)=5:DF%(1)=0:DF%(2)=0:DF%(3)=5:A3=0:A4=0
4820 FF=0:ME=0:UG=0:ZE=0:SP=0:FE=0:NN=0:AD=0:RV=0:GZ=0:P=0:DD=0:DM=0:NF=0:LL=0
4825 EN=0:PG=0:FM=0:FE$="":HZ=0:C1=0:C2=0:C3=0:C4=0:HR=0:EA=0:GF=0:NS=0:SL=-1
4840 E=0:EG$="":EG=0:K=0:S1=0:AG$="":S2=0:RV$="":I$="":H$="":H1$="":H2$="":H=0
4842 H1=0:H2=0:H3=0:H4=0:H5=0:S6=0:S4=0:H3$="":ZP=0:G1=0:G2=0:ZW$="":S7=0:ZF=0
4844 SZ=0:SC=0:A1=0:Z$="":Z=0:L1=0:L2=0:CP=0:P3=0:P2=0:P1=0:CB=0:S=0:SH=0
4846 A2=0:T5=0:T1=0:T2=0:T3=0:T4=0:T1$="":I4=0:CD=-1:R1$="":R2$="":UD=0
4848 AF=0:GR=0:SE=0:ES=0:S5=0:AT=0:MT=0:S3=0:DL=0:SF=0:LF=0:ZG$="":AS=0:DC=0
4860 POKE 56325,51:POKE 650,128:OPEN15,8,15:TI$="000000"
4861 L$=" ":C$=CHR$(145):R$=CHR$(13)
5005 LB(1)=0:HB(1)=240:LB(2)=153:HB(2)=246:AW=32:GOSUB11710
5015 LB(1)=154:HB(1)=246:LB(2)=255:HB(2)=255:AW=32:GOSUB11710
5027 GOSUB5758
5110 READSZ
5115 FORS1=1TOSZ:READSC:FORS2=1TOSC:README$(S1,S2):NEXTS2:NEXTS1
5131 FORS1=1TO5:FORS2=1TO4:READAP%(S1,S2):NEXTS2:NEXTS1
5135 FORS1=1TO2:FORS2=1TO4:READHP%(S1,S2):NEXTS2:NEXTS1:PH(1)=52566:PH(2)=52570
5139 READSZ:FORS1=1TOSZ:READKS$(S1):NEXTS1
5144 READFM:FORS1=1TOFM:READFC%(S1):NEXTS1
5146 RETURN
5150 DATA2
5156 DATA16," DATENPFLEGE"
5158 DATA"[164][164][164][164]","[165]F1[167] : --- DATEI-DIRECTORY ---","[163][163][163][163]"
5160 DATA"[164][164][164][164]","[165]F3[167] : --- DATEI EINLADEN ---","[163][163][163][163]"
5162 DATA"[164][164][164][164]","[165]F5[167] : --- DATEN EINGEBEN ---","[163][163][163][163]"
5164 DATA"[164][164][164][164]","[165]F7[167] : --- DATEN AUSGEBEN ---","[163][163][163][163]"
5168 DATA"[164][164][164][164]","[165]F2[167] : --- DATEI SPEICHERN ---","[163][163][163][163]"
5190 DATA17,"SONDERFUNKTIONEN"
5192 DATA"[164][164][164][164]","[165]F1[167] : -- DIRECTORY AUSGEBEN --","[163][163][163][163]"
5194 DATA"[164][164][164][164]","[165]F3[167] : -- DISK-KOMMANDO SENDEN --","[163][163][163][163]"
5196 DATA"[164][164][164][164]","[165]F5[167] : -- ZEICHENSATZ EINLADEN --","[163][163][163][163]"
5200 DATA"---------------------------------"
5202 DATA"[164][164][164][164]","[165]F7[167] : -- LADEMENUE AUFRUFEN --","[163][163][163][163]"
5204 DATA"[164][164][164][164]","[165]F8[167] : -- PROGRAMM BEENDEN --","[163][163][163][163]"
5250 DATA0,160,71,163,72,163,143,166,144,166,215,169,216,169,31,173
5252 DATA32,173,103,176
5277 DATA0,240,71,243,82,243,153,246
5351 DATA145
5352 DATA"KEIN DATEI-DIRECTORY AUF DISKETTE !!"
5354 DATA"100<-LANGSAMER[221]SCHNELLER->25+'RETURN'[146]"
5356 DATA"[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][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
5358 DATA"[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]"
5360 DATA".............."
5362 DATA" [146]"
5364 DATA"[213]NTER WELCHEM [206]AMEN WURDE DER [218]EICHENG. "
5368 DATA".."
5370 DATA"..."
5372 DATA"DATENSATZ WIRD GELOESCHT !"
5374 DATA " >>>> [200]AUPTMENUE: '[211]HIFT'+'[210]ETURN' <<<<"
5376 DATA"DT-LADEN/NAME D. DATEI? > <[146]"
5378 DATA" DIESE DATEI EXISTIERT NICHT !! [146]"
5380 DATA"DATEI IST EINGELADEN !"
5382 DATA"-DATABASE 64------------DATEI-DIRECTORY-[146]"
5384 DATA"[206]AME DER [196]ATEI ?: > <"
5386 DATA"[196]IESE [196]ATEI EXISTIERT NICHT !!"
5388 DATA" [196]ATABASE 64 [196]ATEI EINLADEN "
5390 DATA" DT-LOESCHEN/NAME ?: > < [146]"
5392 DATA"SIND SIE SICHER ? (J/N)"
5394 DATA"DT-UMBEN/> = <[146]"
5396 DATA"SCRATCHING : "
5398 DATA"RENAMING : "
5400 DATA"DATEI IST GELOESCHT !"
5402 DATA"DATEI IST UMBENANNT !"
5404 DATA"MIT ALTER MASKE WEITERSUCHEN ? (J/N)"
5406 DATA"-DATEI: > <-/DATEN-EINGABE-[146]"
5408 DATA"-DATEI: > <-/DATEN-AUSGABE-[146]"
5410 DATA"-DATEI: > <-/LISTENAUSGABE-[146]"
5412 DATA" [196]ATABASE 64 [218]EICHENSATZ LADEN "
5414 DATA" F1 "
5416 DATA"--SEITENNUMMER (1-5) ? + 'RETURN' :> <-[146]"
5418 DATA"000000000000000"
5420 DATA" KEINE DATENSAETZE VORHANDEN! [146]"
5422 DATA"DATENSATZ ABSPEICHERN ? (J/N) "
5424 DATA"EINGABE LOESCHEN ? (J/N) "
5426 DATA"DATENSATZ IST ABGESPEICHERT !"
5428 DATA"DATENSATZ WIRD ABGESPEICHERT !"
5430 DATA" KEINE DATEI IM RECHNER !!! [146]"
5432 DATA" --- DIE DATEI IST BELEGT !! --- "
5434 DATA" ES KOENNEN KEINE WEITEREN DATEN "
5436 DATA" EINGEGEBEN WERDEN !"
5438 DATA" [196]ATABASE 64 [196]ATEI SPEICHERN "
5440 DATA" ([196]IE [196]ATEI IM [210]ECHNER WIRD GELOESCHT!) "
5442 DATA":::::::::::::::::::::::::::::::::::::::"
5444 DATA"BITTE SCHLUESSEL EINGEBEN!"
5446 DATA"MIT SUCHE BEGINNEN ? (J/N) "
5448 DATA"SCHLUESSEL EXISTIERT NICHT !"
5450 DATA"DATENSATZ WIRD EINGELADEN!"
5452 DATA"NAECHSTEN DATENSATZ AUSGEBEN ?(J/N)"
5454 DATA"WEITERE DATENSAETZE VORHANDEN!"
5456 DATA"ANFANG DER DATEI ERREICHT!"
5458 DATA"ENDE DER DATEI ERREICHT!"
5460 DATA" [214]OR [194]EENDUNG DES [208]ROGRAMMS MUSS [146]"
5462 DATA" DIE [196]ATEI ABGESPEICHERT WERDEN! [146]"
5464 DATA
5466 DATA
5468 DATA
5470 DATA"KEIN DATENSATZ IM RECHNER !!"
5472 DATA" [196]ATABASE 64 [196]IRECTORY "
5474 DATA" [146]"
5476 DATA" "
5478 DATA" [215]EITER MIT '[211]PACE' [146]"
5480 DATA" "
5482 DATA" [196]ATABASE 64 [196]ISK-[203]OMMANDOS "
5484 DATA" [211]AEMTLICHE [196]ISK-[203]OMMANDOS KOENNEN IN "
5486 DATA" FOLGENDER,ABGEKUERZTER [198]ORM EINGEGE- "
5488 DATA" BEN WERDEN:"
5490 DATA" K:...................._([196]ATEINAME, "
5492 DATA" ^ USW.) "
5494 DATA" ([203]OMMANDO)"
5496 DATA" Z.[194].: [196]ATEI UMBENENNEN: "
5498 DATA" >R:NEUNAME=ALTNAME< "
5500 DATA" [196]ATEI LOESCHEN: "
5502 DATA" >S:DATEINAME< "
5504 DATA"------------------------------------ "
5506 DATA" [201]HR [203]OMMANDO? : [146] > :"
5508 DATA"< + '[210]ETURN' "
5510 DATA" [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] "
5512 DATA"DATENSATZ IST GELOESCHT!"
5514 DATA"BITTE AENDERUNGEN EINGEBEN !"
5516 DATA"[211]IND [211]IE SICHER ? (J/N) "
5518 DATA"[203]OMMANDOEINGABE LOESCHEN ? (J/N) "
5520 DATA"[211]IE HABEN MIT DEM [208]ROGRAMM"
5522 DATA" [196]ATABASE 64 [208]ROGRAMM BEENDEN "
5524 DATA"[211]IND [211]IE SICHER,DASS [211]IE"
5526 DATA"DAS [208]ROGRAMM BEENDEN"
5528 DATA"WOLLEN ? (J/N) "
5530 DATA"GEARBEITET !"
5532 DATA" [211]TUNDE "
5534 DATA" [205]INUTE "
5536 DATA" [211]EKUNDE "
5538 DATA"UND "
5540 DATA"[157]N "
5542 DATA"BITTE DATEN EINGEBEN !"
5544 DATA"KEINE DATENSAETZE VORHANDEN!"
5546 DATA"BITTE SELEKTIONSMASKE EINGEBEN !"
5548 DATA"MIT SELEKTION BEGINNEN ? (J/N)"
5550 DATA"SAVING : "
5552 DATA"MO"
5554 DATA"DI"
5556 DATA"MI"
5558 DATA"DO"
5560 DATA"FR"
5562 DATA"SA"
5564 DATA"SO"
5566 DATA"F!"
5568 DATA"LOADING : "
5570 DATA"SELEKTION BEGINNT!"
5572 DATA" "
5574 DATA
5576 DATA
5578 DATA" ABGESPEICHERT ? : > <"
5580 DATA
5582 DATA "-DATABASE 64---------------HELPSCREEN"
5584 DATA"-HS SPEICHERN/NAME ?: > < -[146]"
5586 DATA"-HS LADEN / NAME ?: > < -[146]"
5588 DATA"HELPSCREENS VERTAUSCHEN (J/N) ? "
5590 DATA,,,,,,,,,,,,,,,,,,,,,,,,
5640 DATA" [196]ATABASE 64 [204]ADEMENUE AUFRUFEN "
5642 DATA"[211]IND [211]IE SICHER ? (J/N) "
5670 DATA67
5674 DATA19,18,146,20,148,144,5,28,134,133,147,137,138,13,135,136,139,3
5716 DATA133,134,135,137,136,144,5,28
5735 DATA13,141,135,136,19,147,76,144,5,28,86,83,140,3
5745 DATA141,135,136,140,144,5,28,73,70,78,86,69,76,68,82,65
5755 DATA141,135,136,140,13,19,147,76,86,77,75,3
5758 LB(1)=0:HB(1)=208:LB(2)=255:HB(2)=223:LB(3)=0:HB(3)=224:AW=3:GOSUB11760
5759 P1(1)=58160:P1(3)=59184:P1(2)=60208:P1(4)=61232
5760 FORS2=1TO2:P1=P1(S2):FORS1=P1TOP1+6:POKES1,0:NEXTS1:POKEP1+7,24:NEXTS2
5762 FORS2=3TO4:P1=P1(S2):FORS1=P1TOP1+6:POKES1,255:NEXTS1:POKEP1+7,231:NEXTS2
5765 RETURN
5815 OPEN1,8,2,"DAT-DIR,S,R":GOSUB11322:IFFE<>0THEN5825
5820 SI=0:INPUT#1,AD:FORS1=1TOAD:INPUT#1,DD$(S1),SN%(S1),DS%(S1):NEXTS1
5825 CLOSE1:RETURN
5830 I$="DAT-DIR":PRINT#15,"S:"+I$:OPEN1,8,2,"DAT-DIR,S,W"
5832 PRINT#1,AD:FORS1=1TOAD:PRINT#1,DD$(S1)R$SN%(S1)R$DS%(S1):NEXTS1
5833 CLOSE1:RETURN
5838 OPEN1,8,2,I$+".D,S,R"
5840 INPUT#1,CB,DL,SF,NS,ES,AF:POKE56325,CB
5842 FORS1=1TOAF:FORS2=1TO2:INPUT#1,FD(S1,S2):NEXTS2:NEXTS1
5845 INPUT#1,LF:FORS1=1TOAF:INPUT#1,FA%(S1):NEXTS1
5850 INPUT#1,SE:FORS1=1TOSE:INPUT#1,AF%(S1):NEXTS1
5855 INPUT#1,S3:IFS3=0THEN5861
5860 FOR S1=1TOS3:INPUT#1,FO%(S1),FO$(S1):NEXTS1
5861 INPUT#1,S5:IFS5=0THEN5878
5867 S2=11:FORS1=1TOS5:INPUT#1,RO%(S1),EG$
5870 QX$="R="+EG$:LB(1)=S2:GOSUB6960
5872 S2=S2+2:NEXTS1:POKE601,15
5878 INPUT#1,ZG$,AS,GR:FORS1=1TOSE:INPUT#1,F1%(S1),F2%(S1),F3%(S1):NEXTS1
5880 CLOSE1
5895 LB(1)=0:HB(1)=160:QX$=I$+".E":GOSUB11860
5900 IFZG$="K"THEN5940
5905 LB(1)=0:HB(1)=224:QX$=ZG$+".Z":GOSUB11860
5940 OPEN1,8,2,I$+".I,S,R":INPUT#1,AT,MT:IFAT=0THENCLOSE1:GOTO5950
5942 INPUT#1,EA,GF,NP(1),NP(2),NP(3):CLOSE1:LB(1)=154:HB(1)=246:QX$=I$+".S"
5943 GOSUB11860:RETURN
5950 GF=0:NP(1)=1:NP(2)=0:NP(3)=1:EA=I3:RETURN
5985 IFPG=SETHENRETURN
5987 GOSUB11243:PG=PG+1:GOTO5994
5990 IFPG=1THENRETURN
5992 GOSUB11243:PG=PG-1
5994 GOSUB6010:RETURN
5998 ZE=0:SP=0:GOSUB11050:PRINTKS$(6):GOSUB11050:PRINTKS$(32)
6000 P=2:RV=1:GZ=2:SP=34:ZE=0:GOSUB11303:H=VAL(EG$):IFH<1ORH>SETHEN6004
6002 GOSUB11243:PG=H:GOSUB6010
6004 ZE=0:SP=0:GOSUB11050:PRINTKS$(A1):RETURN
6010 FF=F3%(PG):GOSUB11235:GOSUB11239
6011 POKE53280,F1%(PG):POKE53281,F2%(PG):RETURN
6013 GOSUB11243:GR=142:IFPEEK(53272)=27THENGR=14
6014 RETURN
6027 IFAF%(PG)=0THENS=0:GOTO6066
6030 S=1:H1=FD(NF,1)-50176:C1=INT(H1/40):C2=H1-40*C1
6032 H3=INT(FD(NF,1)/256):H4=FD(NF,1)-H3*256
6035 G1=INT(FD(NF,2)/256):G2=FD(NF,2)-G1*256
6040 ZE=C1:SP=C2:GOSUB11050:PRINT;:LB(1)=8:LB(2)=0:GOSUB6920:EG=PEEK(2)
6047 IFEG=8THENGOSUB6131:GOTO6030
6050 IF(EG=157OREG=145)ANDNF>1THENNF=NF-1:LL=LL-1:GOTO6073
6055 IF(EG=29OREG=17)ANDNF<AFTHENNF=NF+1:LL=LL+1:GOTO6073
6060 IFEG=13OREG=141THENRETURN
6062 IFEG<>133THEN6030
6066 ZE=22:SP=36:GOSUB11050:PRINTCHR$(18)KS$(31)C$C$CHR$(146):GETEG$:IFEG$<>""THEN6069
6067 FORS1=1TO75:NEXTS1:ZE=22:SP=36:GOSUB11050:PRINTKS$(31)C$C$:FORS1=1TO75:NEXTS1:GOTO6066
6069 EG=ASC(EG$):IFEG=141ANDS=1THEN6040
6070 RETURN
6073 IFLL=0THENGOSUB6100:LL=AF%(PG):GOTO6030
6075 IFLL>AF%(PG)THENGOSUB6115:LL=1:GOTO6030
6080 GOTO6030
6100 GOSUB11243
6102 PG=PG-1:IFAF%(PG)=0THEN6102
6105 EN=EN-AF%(PG):GOSUB6010:RETURN
6115 GOSUB11243:EN=EN+AF%(PG)
6120 PG=PG+1:IFAF%(PG)=0THEN6120
6125 GOSUB6010:RETURN
6131 GOSUB11243:HP=2:GOSUB 9500:GOSUB 11022:PRINTCHR$(GR):POKE781,DM:SYSPT
6132 GOSUB6010:ZE=0:SP=9:GOSUB11050:PRINTCHR$(18)DD$(SI)CHR$(146):GOSUB11028:RETURN
6140 PG=ES:GOSUB6010:S2=0:FORS1=1TOAF:GOSUB6160:S2=S2+1:IFS2<=AF%(PG)THEN6148
6144 PG=PG+1:IFAF%(PG)=0THEN6144
6146 S2=1:GOSUB6010
6148 NEXTS1:RETURN
6160 H1=INT(FD(S1,1)/256):H2=FD(S1,1)-H1*256
6165 G1=INT(FD(S1,2)/255):G2=FD(S1,2)-G1*255
6175 IFG1<>0THENG2=255
6177 POKE253,H2:POKE254,H1:POKE2,G2:POKE69,69:POKE70,199:SYS52493:F(S1)=VAL(EG$):RETURN
6215 IFAT<>0THEN6230
6220 POKE I1,51:POKE I1+1,247:H2=50:H1=247:LB(1)=2:GOSUB6935:EA=EA+AS+3
6225 H1=INT(EA/256):H2=EA-256*H1:POKEI1,H2:POKEI1+1,H1
6226 FORS1=1TO3:POKEI3+AS-1+S1,PO(S1):NEXTS1:AT=AT+1:DS%(SI)=AT:RETURN
6230 GOSUB6305:IFE=1THEN6235
6232 T3=T3+1
6235 H3=I3+T3*(AS+3):H1=INT(H3/256):H2=H3-256*H1:LB(1)=2:GOSUB6935
6237 FORS1=1TO3:POKEH3+AS-1+S1,PO(S1):NEXTS1:AT=AT+1:DS%(SI)=AT:EA=EA+AS+3
6238 RETURN
6255 GOSUB6330:H1=I2+GF*3-1:FORS1=1TO3:POKEH1+S1,PEEK(49700+S1):NEXTS1
6257 GF=GF+1:HB(2)=INT(EA/256):LB(2)=EA-256*HB(2):T4=T4+1:HB(1)=INT(T4/256)
6260 LB(1)=T4-256*HB(1):T4=T4-(AS+3):HB(3)=INT(T4/256)
6262 LB(3)=T4-256*HB(3):AW=1:GOSUB11760
6265 AT=AT-1:DS%(SI)=AT:EA=EA-(AS+3)
6267 HB(1)=INT(EA/256):LB(1)=EA-256*HB(1):POKEI1,LB(1):POKEI1+1,HB(1):RETURN
6305 T1=0:T2=AT:T5=INT(LOG(AT)/LOG(2)+1)
6310 T3=INT((T1+T2)/2):T4=I3+T3*(AS+3):H1=INT(T4/256):H2=T4-256*H1
6315 LB(1)=1:GOSUB6935:E=PEEK(2):IF E=0 THEN RETURN
6320 T5=T5-1:IFT5=0THENRETURN
6325 IFE=1THENT2=T3:GOTO6310
6327 T1=T3:GOTO6310
6330 T4=I3+T3*(AS+3)+AS
6332 H1=INT(T4/256):H2=T4-256*H1:T4=T4+2:H3=INT(T4/256):H4=T4-256*H3
6333 LB(1)=H2:HB(1)=H1:LB(2)=H4:HB(2)=H3:LB(3)=37:HB(3)=194:AW=1:GOSUB11760
6335 FORS1=1TO3:PO(S1)=PEEK(49700+S1):NEXTS1
6340 RETURN
6355 GOSUB 9782:PG=ES:GOSUB6010:ZE=23:SP=7:GOSUB11050:PRINTKS$(49)C$C$:S2=0
6356 OPEN1,8,2,DD$(SI)+".R,L,"+CHR$(254)
6357 PRINT#15,"P"+CHR$(2)+CHR$(PO(1))+CHR$(PO(2))+CHR$(PO(3))
6365 FORS1=1TOAF:G1=INT(FD(S1,2)/255):G2=FD(S1,2)-G1*255
6367 FORS6=1TOG1+1:L1=255-PO(3):IFS6<>G1+1THENH4=255:GOTO6375
6370 H4=G2
6375 IFL1>H4THENQX=H4:GOSUB6905:GOSUB6415:PO(3)=PO(3)+H4:NEXTS6:NEXTS1:GOTO6390
6380 IFL1=H4THENQX=H4:GOSUB6905:GOSUB6415:GOSUB6396:NEXTS6:NEXTS1:GOTO6390
6382 POKE2,L1:POKE69,90:POKE70,215:SYS52453:GOSUB6396:QX=H4-L1:GOSUB6905:EG$=ZW$+EG$:GOSUB6415
6385 IFH4-L1=254THENGOSUB6396:NEXTS6:NEXTS1:GOTO6390
6387 PO(3)=PO(3)+H4-L1:NEXTS6:NEXTS1
6390 CLOSE1:GOSUB9782:DC=1
6391 IF XX=1 THEN OPEN4,4:PRINT#4:PRINT#4:CLOSE4
6392 RETURN
6396 PO(3)=1:PO(1)=PO(1)+1:IFPO(1)=256THENPO(1)=0:PO(2)=PO(2)+1
6397 PRINT#15,"P"+CHR$(2)+CHR$(PO(1))+CHR$(PO(2))+CHR$(PO(3)):RETURN
6415 IF XX=1 THEN GOSUB 6475
6416 IF S6<>1 THEN 6435
6417 S2=S2+1:IFS2<=AF%(PG)THEN6435
6420 GOSUB11243
6425 PG=PG+1:IFAF%(PG)=0THEN6425
6430 S2=1:GOSUB6010
6435 IFS6=1THENG1=INT(FD(S1,2)/255):H1=FD(S1,1)-50176:ZE=INT(H1/40):SP=H1-40*ZE
6445 GOSUB11050:PRINTEG$
6450 IFS6<>G1+1THENH1=H1+255:ZE=INT(H1/40):SP=H1-40*ZE
6470 IFS1=AFANDS6=G1+1THENGOSUB11243:PG=ES:GOSUB6010
6472 RETURN
6475 OPEN4,4:GOSUB6500
6476 IFS6<>G1+1 THEN PRINT#4,EG$;:GOTO6478
6477 PRINT#4,EG$
6478 CLOSE4:RETURN
6500 FORII=1TOLEN(EG$):IFMID$(EG$,II,1)<>CHR$(166)THENNEXTII:RETURN
6510 EG$=LEFT$(EG$,II-1)+" "+RIGHT$(EG$,LEN(EG$)-II):NEXTII:RETURN
6775 GOSUB11022:BR%(1)=24:BR%(2)=0:BR%(3)=196:GOSUB11260:PRINTCHR$(9)CHR$(GR)
6780 POKE781,DM:SYSPT:PG=ES:NF=1:LL=1:EN=1
6781 ZE=0:SP=9:GOSUB11050:PRINTCHR$(18)DD$(SI)CHR$(146):GOSUB6010:GOSUB11028:RETURN
6807 GOSUB 11022:PRINTCHR$(14):ZE=0:SP=0:GOSUB11050:PRINTKS$(30)KS$(3):GOSUB11485
6808 ZE=19:SP=0:GOSUB11050:PRINTKS$(79)CHR$(17)KS$(79):GOSUB11027
6810 ZE=5:SP=0:GOSUB11050:PRINTKS$(7)CHR$(17)KS$(113)
6815 SP=22:ZE=7:GZ=14:RV=0:P=1:GOSUB11303:IFEG=141THENUG=1:RETURN
6822 EG$=EG$+".Z":ZE=20:SP=7:GOSUB11050:PRINTKS$(108)EG$
6825 LB(1)=0:HB(1)=224:QX$=EG$:GOSUB11860:GOSUB11322
6830 ZE=20:SP=0:GOSUB11050:PRINTL$:AG$=FE$:GOSUB11585:SP=0:GOSUB11050:PRINTL$
6831 IFFE<>0THEN6810
6832 UG=1:RETURN
6905 POKE2,QX:POKE69,69:POKE70,199:SYS52453:RETURN
6920 POKE52445,H4:POKE52446,H3:POKE52436,G2:POKE52437,G1:POKE199,0:POKE52440,13
6925 POKE52441,141:POKE52442,133:POKE52443,LB(1):POKE52444,LB(2):SYS51946:RETURN
6935 POKE49700,AS:POKE49698,H2:POKE49699,H1:POKE49497,LB(1):POKE69,73:POKE70,128
6940 SYS49460:RETURN
6950 POKE251,104:POKE252,176:POKE253,H2:POKE254,H1:SYS49787:RETURN
6960 POKE251,LB(1):POKE69,81:POKE70,216:SYS49352:RETURN
7010 A1=60:GOSUB7610:GOSUB11485:GOSUB11027
7055 OPEN1,8,0,"$":GET#1,H$,H$:I$=""
7057 GOSUB11322:IFFE=0THEN7060
7058 CLOSE1:ZE=12:SP=8:GOSUB11050:PRINTFE$:POKE2,2:SYS51833:UG=1:RETURN
7060 GET#1,H$,H$,H$,H$
7065 GET#1,H$:IFH$=""THEN7075
7070 I$=I$+H$:GOTO7065
7075 I$=KS$(61)+I$+KS$(61):ZE=2:SP=0:GOSUB11050:PRINTI$KS$(3)
7120 ZE=4:SP=0:GOSUB11050:PRINT;:Z=0
7130 GET#1,H$,H$:GET#1,H$,Z$:IFST<>0THEN7240
7135 H$=H$+CHR$(0):Z$=Z$+CHR$(0):E=ASC(H$)+ASC(Z$)*256:PRINTKS$(62)E;
7190 GET#1,H$:IFH$=""THEN7210
7200 PRINTH$;:GETEG$:IFEG$=CHR$(141)THENPRINT:CLOSE1:UG=1:RETURN
7205 GOTO7190
7210 PRINT:Z=Z+1:IFZ=17THENGOSUB7300:GOTO7120
7220 GOTO7130
7240 CLOSE1:GOSUB7330:UG=1:RETURN
7300 GOSUB7330:FORS1=1TO19:ZE=3+S1:SP=6:GOSUB11050:PRINTKS$(64):NEXTS1:RETURN
7330 ZE=22:SP=6:GOSUB11050:PRINTKS$(63)
7335 GET EG$:IFEG$<>" "THEN7335
7340 RETURN
7500 A1=65:GOSUB7610:PRINTC$KS$(66)KS$(67)KS$(68):PRINT
7518 PRINTKS$(69)KS$(70)KS$(71):PRINTCHR$(17)KS$(72)KS$(73)
7520 PRINTKS$(74)KS$(75)KS$(76):PRINTKS$(77):ZE=18:SP=20:GOSUB11050:PRINTKS$(78)
7522 PRINTKS$(79)CHR$(17)KS$(79)KS$(4)KS$(11)C$C$:GOSUB11027
7550 ZE=17:SP=20:GZ=40:RV=0:P=1:GOSUB11303:IFEG=141THENUG=1:RETURN
7552 IFLEFT$(EG$,1)<>"N"ANDLEFT$(EG$,1)<>"S"THEN7560
7554 ZE=21:SP=2:GOSUB11050:PRINTKS$(82);:GOSUB11445:SP=0:GOSUB11050:PRINTL$:IFEG<>74THEN7565
7560 PRINT#15,EG$:GOSUB11322:AG$=FE$:ZE=21:GOSUB11585:POKE2,2:SYS51833
7565 ZE=21:SP=2:GOSUB11050:PRINTKS$(83);:GOSUB11445:IF EG<>74 THEN 7574
7573 ZE=17:SP=20:GOSUB11050:PRINTL$:POKE1725,58
7574 ZE=21:SP=0:GOSUB11050:PRINTL$:GOTO7550
7610 GOSUB11022:PRINTCHR$(14)CHR$(8)C$KS$(A1)KS$(3):RETURN
7750 A1=85:GOSUB7610:ZE=3:SP=6:GOSUB11050:PRINTKS$(84):ZE=5:SP=1:GOSUB11050:PRINT;
7755 A1=90:AG$=LEFT$(TI$,2):GOSUB7795:AG$=MID$(TI$,3,2):GOSUB7795:PRINTKS$(93);
7765 AG$=RIGHT$(TI$,2):GOSUB7795:ZE=7:SP=13:GOSUB11050:PRINTKS$(89)
7766 ZE=10:SP=2:GOSUB11050:PRINTKS$(76)
7770 ZE=13:SP=7:GOSUB11050:PRINTKS$(86):ZE=15:SP=9:GOSUB11050:PRINTKS$(87)
7775 ZE=17:SP=12:GOSUB11050:PRINTKS$(88);:GOSUB11027:GOSUB11445:IFEG=78THEN165
7785 CLOSE15:SYS64738
7795 PRINTAG$KS$(A1);:IFVAL(AG$)<>1THENPRINTKS$(94);
7800 A1=A1+1:RETURN
9002 PRINTCHR$(147)CHR$(14)CHR$(8)
9005 ZE=0:SP=0:GOSUB11050:PRINTKS$(144)KS$(3):ZE=5:SP=7:GOSUB11050:PRINTKS$(145);
9010 GOSUB11445:IFEG=78THEN165
9020 PRINTCHR$(147)CHR$(144)"LOAD"CHR$(34)"DBL"CHR$(34)",8,1"
9030 POKE631,19:POKE632,13:POKE198,2:END
9782 ZE=23:SP=0:GOSUB11050:PRINTCHR$(146)L$C$C$:RETURN
10657 IF C2=21 THEN ZE=C2:SP=0:GOSUB11050:PRINTL$:RETURN
10658 IFHP<>1THENHB(1)=199:GOTO10662
10659 HB(1)=7
10662 POKE53223,C2-1:POKE53217,32:POKE53218,HB(1):SYS 53056:RETURN
10746 IFC2=21THENC2=20
10750 C2=C2+1:C1=0:H=C2*40-39:C3=INT(H/256):C4=H-256*C3:RETURN
11022 PRINTCHR$(147):POKE53280,0:POKE53281,0
11023 POKE53265,PEEK(53265)AND239:RETURN
11027 POKE53280,MF%(1):POKE53281,MF%(2)
11028 POKE53265,PEEK(53265)OR16:RETURN
11035 C3=PEEK(248):C4=PEEK(247):CP=C3*256+C4+39:C2=INT(CP/40):C1=CP-C2*40:RETURN
11050 POKE211,SP:POKE214,ZE:SYS58640:RETURN
11170 FF=FF+1:IFFF>=15THENFF=0
11175 POKE53280,FF:RETURN
11200 FF=FF+1:IFFF>=15THENFF=0
11205 POKE53281,FF:RETURN
11230 FF=FF+1:IFFF>=15THENFF=0
11235 LB(1)=0:HB(1)=216:LB(2)=231:HB(2)=219:AW=FF:GOSUB11710:POKE646,FF:RETURN
11239 LB(1)=AP%(PG,1):HB(1)=AP%(PG,2):LB(2)=AP%(PG,3):HB(2)=AP%(PG,4)
11240 LB(3)=40:HB(3)=196:AW=1:GOSUB11760:RETURN
11243 LB(1)=40:HB(1)=196:LB(2)=111:HB(2)=199
11244 LB(3)=AP%(PG,1):HB(3)=AP%(PG,2):AW=1:GOSUB11760:RETURN
11260 POKE53272,BR%(1):POKE56576,PEEK(56576)AND252ORBR%(2):POKE648,BR%(3):RETURN
11303 GOSUB11050:PRINT;:P3=ZE*40+SP+BA(P):P1=INT(P3/256):P2=P3-256*P1
11305 POKE52445,P2:POKE52446,P1:POKE52436,GZ:POKE52437,0:POKE199,RV:POKE52440,13
11306 POKE52441,141:POKE52442,0:POKE52443,0:POKE52444,1:SYS51946
11308 IF PEEK(2)=141 THEN EG=141:GOTO 11311
11310 POKE253,P2:POKE254,P1:POKE2,GZ:POKE69,69:POKE70,199:SYS52493
11311 POKE199,0:RETURN
11322 INPUT#15,FE,FE$,H$,Z$:FE$=STR$(FE)+","+FE$+","+H$+","+Z$+" !!!":RETURN
11445 SYS51682:EG=PEEK(2):IF EG<>74 AND EG<>78 THEN 11445
11450 RETURN
11455 GETEG$:IFEG$=""THEN11455
11457 EG=ASC(EG$):RETURN
11465 GOSUB11022:PRINTCHR$(14)CHR$(8)
11470 ZE=0:SP=0:GOSUB11050:PRINTKS$(A1)KS$(3)KS$(A2)KS$(3):RETURN
11485 ZE=23:SP=0:GOSUB11050:PRINTKS$(4)KS$(11)C$C$:RETURN
11510 RETURN
11585 SP=INT((40-LEN(AG$))/2):GOSUB11050:PRINTAG$C$C$:RETURN
11710 POKE251,LB(1):POKE252,HB(1):POKE253,LB(2):POKE254,HB(2):POKE2,AW:SYS51479:RETURN
11760 IFLB(1)=LB(2)ANDHB(1)=HB(2)THENRETURN
11764 POKE249,LB(1):POKE250,HB(1):POKE251,LB(2):POKE252,HB(2):POKE253,LB(3):POKE254,HB(3)
11765 POKE2,AW:SYS51586:RETURN
11810 POKE186,8:POKE251,LB(1):POKE252,HB(1):POKE51713,LB(2)
11815 POKE51714,HB(2):POKE69,81:POKE70,216:POKE183,LEN(QX$):SYS51716:RETURN
11860 POKE186,8:POKE781,LB(1):POKE782,HB(1):POKE185,0:POKE183,LEN(QX$)
11865 POKE187,238:POKE188,2:FORS1=1TOLEN(QX$):POKE749+S1,ASC(MID$(QX$,S1,1))
11870 NEXTS1:POKE780,0:SYS65493:RETURN