0 REM-DBI / (C)1985 MARTIN HECHT,STGT-
1 DIMMF%(3),LB(3),HB(3),ME$(2,18),AP%(5,4),KS$(147),F1%(5),F2%(5),F3%(5),P1(4)
2 DIMFC%(19),BA(2),FS%(5),ZF%(3),TA%(3),P2(7),PH(2),HP%(2,4),BR%(3),AF%(10)
3 DIM DD$(15),SN%(15),DS%(15)
4 DIM FO%(20),FO$(20),RO$(15),RO%(15),FD(50,2),FA%(50):AM=50
55 GOSUB4510:LB(1)=213:HB(1)=156:QX$="MP-P-2":GOSUB11860
56 LB(1)=232:HB(1)=199:QX$="MP-P-4":GOSUB11860
63 POKE55,212:POKE56,156:POKE51,212:POKE52,156
70 GOSUB4810
165 GOSUB11022:PRINTCHR$(142)CHR$(8):FF=MF%(3):GOSUB11235:POKE781,1:SYS PT
180 ME=1:GOSUB405:GOSUB11027:EG$=""
190 GOSUB11455
207 IFEG=13THENGOSUB310:GOTO190
210 IFEG=8THENHP=1:GOSUB9500:GOTO165
220 IFEG=140ANDME=1THEN7750
221 IFEG=140ANDME=2THEN9002
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
232 IFME=2THEN250
240 ONEG-132GOSUB1005,3012,3512,4000:IFUGTHENUG=0:GOTO165
242 GOTO190
250 ONEG-132GOSUB7010,7500,6000,6500:IFUGTHENUG=0:GOTO165
260 GOTO190
310 IFME=1THENME=2:GOTO330
320 ME=1
330 FORS1=21TO5STEP-1:ZE=S1:SP=5:GOSUB11050:PRINTKS$(110):NEXTS1
345 GOSUB405:POKE2004,51-ME:RETURN
405 ZE=1:SP=23:GOSUB11050:PRINTME$(ME,1):FORS1=2TO18
406 ZE=S1+3:SP=5:GOSUB11050:PRINTME$(ME,S1):NEXTS1:RETURN
1005 GOSUB2610
1135 POKE247,C4:POKE248,C3:ZE=C2:SP=C1:GOSUB11050:PRINT;
1140 POKE199,RS:SYS52582:EG=PEEK(2):GOSUB11035
1170 IFEG=8THENGOSUB2505:HP=2:GOSUB9500:GOSUB2610:GOTO1135
1172 IFEG=141THENGOSUB2710:UG=1:RETURN
1178 FORS1=1TOFM:IFEG<>FC%(S1)THENNEXTS1:GOTO1140
1182 IFS1>10THENS1=S1-10:GOTO1186
1183 ONS1GOSUB9985,9990,9996,10341,10363,1385,1400,1414,10570,10584:GOTO1135
1186 ONS1GOSUB10610,10623,10657,10746,1430,1454,1692,10544,1492:GOTO1135
1385 FF=F1%(PG):GOSUB11170:F1%(PG)=FF:RETURN
1400 FF=F2%(PG):GOSUB11200:F2%(PG)=FF:RETURN
1414 FF=F3%(PG):GOSUB11230:F3%(PG)=FF:RETURN
1430 IFPG=5THENRETURN
1438 GOSUB2505:PG=PG+1:GOTO1465
1454 IFPG=1THENRETURN
1462 GOSUB2505:PG=PG-1
1465 GOSUB2526:C4=1:C3=0:C1=0:C2=1:RETURN
1492 ZE=0:SP=0:GOSUB11050:PRINTKS$(6):GOSUB11050:PRINTKS$(5)
1495 P=2:RV=1:GZ=2:SP=36:ZE=0:GOSUB11303:H=VAL(EG$):IFH<1ORH>5THEN1530
1525 GOSUB2505:PG=H:GOSUB2526:C4=1:C3=0:C1=0:C2=1
1530 ZE=0:SP=0:GOSUB11050:PRINTKS$(1):RETURN
1692 E=BA(2)+CP:IFE>51052THENRETURN
1693 ZE=0:SP=0:GOSUB11050:PRINTKS$(8):Z=1:EG$=""
1694 POKE650,128:POKEE,60:POKEE+1,20:POKEE+2,62:GOTO1715
1698 GOSUB11455
1702 IF(EG=29ANDE+Z<>51053)THENPOKEE+1+Z,102:Z=Z+1:POKEE+1+Z,62:GOTO1715
1704 IFEG=157ANDZ<>1THENPOKEE+1+Z,32:Z=Z-1:POKEE+1+Z,62:GOTO1715
1706 IFEG=13THEN1720
1708 IFEG=68AND(E<51041ANDZ<14)THENGOSUB1740:GOTO1720
1711 IF(EG=69OREG=83)OR(EG=84OREG=78)THENPOKEE+1,EG-64:GOTO1698
1712 GOTO1698
1715 ZE=0:SP=34:GOSUB11050:PRINTKS$(114)Z:GOTO1698
1720 H=E+Z+2-BA(2):C2=INT(H/40):C1=H-40*C2:H=H-39:C3=INT(H/256):C4=H-256*C3
1728 ZE=0:SP=0:GOSUB11050:PRINTKS$(1):RETURN
1740 POKEE,60:POKEE+1,4:FORS1=2TO13:POKEE+S1,102:NEXTS1:POKEE+14,62:Z=13:RETURN
2505 GOSUB11243:GR=142:IFPEEK(53272)=27THENGR=14
2514 RETURN
2526 GOSUB10610:IFPG=1THENPOKEBA(2)+887,173:POKEBA(2)+888,173:GOTO2534
2531 POKEBA(2)+887,176:POKEBA(2)+888,175+PG
2533 IFPG=5THENPOKEBA(2)+917,173:POKEBA(2)+918,173:GOTO2539
2534 POKEBA(2)+917,176:POKEBA(2)+918,177+PG
2539 FF=F3%(PG):GOSUB11235:GOSUB11239:POKE53280,F1%(PG):POKE53281,F2%(PG)
2541 FS%(PG)=1:RETURN
2610 GOSUB11022:C4=1:C3=0:C1=0:C2=1
2615 BR%(1)=24:BR%(2)=0:BR%(3)=196:GOSUB11260:PRINTCHR$(9)CHR$(GR)
2620 POKE781,4:SYS PT:GOSUB2526:GOSUB11028:RETURN
2710 GOSUB2505:GOSUB11022:BR%(1)=21:BR%(2)=3:BR%(3)=4:GOSUB11260:RETURN
3012 GOSUB3315
3049 SM=2:RV=0
3050 ZE=4:SP=38:GOSUB11050:PRINT;:SYS51682:EG=PEEK(2)
3056 IFEG=8THEN HP=1:GOSUB9500:GOSUB3315:GOTO3049
3057 IFEG=141THENUG=1:ZA=0:RETURN
3066 IFEG=144THENFF=ZF%(1):GOSUB11170:ZF%(1)=FF:GOTO3050
3067 IFEG=5THENFF=ZF%(2):GOSUB11200:ZF%(2)=FF:GOTO3050
3068 IFEG=28THENFF=ZF%(3):GOSUB11230:ZF%(3)=FF:GOTO3050
3072 GOSUB3840:IFUD=1THENUD=0:GOTO3050
3073 E=5:GOSUB 3805:IFUD=1THENUD=0:GOTO3050
3080 GOSUB3850:ZE=19:SP=0:GOSUB11050:PRINTL$L$L$L$C$C$:EG$=STR$(EG)
3082 IFLEN(EG$)<4THEN EG$=" "+EG$:GOTO3082
3086 ZE=6:SP=29:GOSUB11050:PRINTEG$
3105 GOSUB3864
3120 SP=29:FORS2=0TO7:Z=PEEK(50176+S2):Z$="":K=0
3125 Z=Z/2:H$=".":IFZ<>INT(Z)THENH$=CHR$(18)+" "+CHR$(146):K=K+2
3127 Z=INT(Z):Z$=H$+Z$:IFZ>0THEN3125
3130 IFLEN(Z$)-K<8THENZ$="."+Z$:GOTO3130
3135 ZE=10+S2:GOSUB11050:PRINTZ$:NEXTS2
3150 K=0:ZE=10:SP=29:GOSUB11050:PRINT;:POKE650,64
3155 SYS51682:EG=PEEK(2):H=K
3169 IFEG=141THENUG=1:ZA=0:POKE650,128:RETURN
3170 IFEG=19THEN3150
3171 IFEG=29THENK=K+1:GOTO3183
3172 IFEG=157THENK=K-1:GOTO3183
3174 IFEG=17THENK=K+40:GOTO3183
3175 IFEG=145THENK=K-40:GOTO3183
3177 IFEG=133THENPOKE1453+K,160:K=K+1:EG=29:GOTO3183
3178 IFEG=134THENPOKE1453+K,46:K=K+1:EG=29:GOTO3183
3179 IFEG=135THENGOSUB3394:GOTO3150
3181 IFEG=136THENPOKE 650,128:GOTO 3200
3182 GOTO3155
3183 IFK<0ORK>287THENK=H:GOTO3155
3184 FORS1=0TO7:IFK=S1*40-1THEN K=K-32:PRINTKS$(81);:GOTO3155
3186 IFK=S1*40+8THENK=K+32:PRINTKS$(80);:GOTO3155
3187 NEXTS1:PRINTCHR$(EG);:GOTO3155
3200 ZE=20:SP=9:GOSUB11050:PRINTKS$(47)
3202 FORS1=0TO7:Z=0:FORS2=0TO7:K=1453+S1*40+S2:H=PEEK(K)
3205 IFH=160THENZ=Z+2^(7-S2)
3215 NEXTS2:POKEP1+S1,Z:NEXTS1
3250 E=20:K=30:GOSUB3872:IFUG=1THENRETURN
3255 GOSUB3322:GOTO3049
3315 A1=9:A2=10:GOSUB11465:GOSUB11485:ZE=4:SP=0:GOSUB11050:PRINT;
3320 PRINTKS$(12):FF=ZF%(3):GOSUB11235:POKE53280,ZF%(1):POKE53281,ZF%(2):EG$=""
3322 GOSUB3835:ZE=6:SP=2:GOSUB11050:PRINTKS$(14):PRINTKS$(16)
3324 FORS1=17TO26:PRINTKS$(S1):NEXTS1:UD=0:GOSUB11028:RETURN
3394 FORS1=0TO7:ZE=10+S1:SP=29:GOSUB11050:PRINTKS$(35):NEXTS1:RETURN
3512 GOSUB3895
3560 ZE=5:SP=1:GOSUB11050:PRINTKS$(50):ZE=7:SP=1:GOSUB11050:PRINTKS$(51)
3562 SM=2:RV=0:UD=0:GOSUB11028:GOSUB11455
3569 IFEG=8THENHP=1:GOSUB9500:GOSUB3895:GOTO3560
3570 IFEG=141THENUG=1:RETURN
3575 IFEG=144THENFF=TA%(1):GOSUB11170:TA%(1)=FF:GOTO3560
3580 IFEG=5THENFF=TA%(2):GOSUB11200:TA%(2)=FF:GOTO3560
3585 IFEG=28THENFF=TA%(3):GOSUB11230:TA%(3)=FF:GOTO3560
3590 IFEG=133THENGOSUB3655:GOTO3610
3595 IFEG=134THENGOSUB3735:GOTO3610
3600 GOTO3560
3610 IFUD=1THENUD=0:UG=1:RETURN
3611 ZE=5:SP=0:GOSUB11050:PRINTL$:ZE=7:GOSUB11050:PRINTL$:ZE=9:GOSUB11050:PRINTL$
3613 E=10:K=57:GOSUB3872:IFUG=1THENRETURN
3615 GOTO3560
3655 GOSUB11023:GOSUB3907:ZE=5:SP=9:GOSUB11050:PRINTKS$(52)
3656 ZE=7:SP=9:GOSUB11050:PRINTKS$(53):GOSUB3835:GOSUB11028
3658 ZE=7:SP=30:GOSUB11050:PRINT;:SYS51682:EG=PEEK(2)
3666 IFEG=8THENHP=1:GOSUB9500:GOSUB3895:GOTO3655
3667 IFEG=141THENUD=1:RETURN
3669 GOSUB3840:IFUD=1THENUD=0:GOTO3658
3670 E=9:GOSUB3805:IFUD=1THENUD=0:GOTO3658
3675 GOSUB3850:P2=57344+8*EG
3680 ZE=5:SP=0:GOSUB11050:PRINTL$:ZE=7:GOSUB11050:PRINTL$
3682 ZE=5:SP=2:GOSUB11050:PRINTKS$(54):ZE=7:GOSUB11050:PRINTKS$(55):ZE=9:GOSUB11050:PRINTKS$(56)
3687 ZE=9:SP=29:GOSUB11050:PRINT;:SYS51682:EG=PEEK(2)
3705 IFEG=141THENUD=1:RETURN
3710 GOSUB3840:IFUD=1THENUD=0:GOTO3687
3715 E=11:GOSUB3805:IFUD=1THENUD=0:GOTO3687
3720 GOSUB3850:GOSUB3864:FORS1=0TO7:POKEP2+S1,PEEK(50176+S1):NEXTS1:RETURN
3735 GOSUB11023:GOSUB3907
3740 ZE=5:SP=4:GOSUB11050:PRINTKS$(58):ZE=7:GOSUB11050:PRINTKS$(59):GOSUB3835:GOSUB11028
3745 ZE=7:SP=34:GOSUB11050:PRINT;:SYS51682:EG=PEEK(2)
3759 IFEG=8THENHP=1:GOSUB9500:GOSUB3895:GOTO3735
3760 IFEG=141THENUD=1:RETURN
3762 GOSUB3840:IFUD=1THENUD=0:GOTO3745
3764 E=9:GOSUB3805:IFUD=1THENUD=0:GOTO3745
3766 GOSUB3850:GOSUB3864:P2=P1:FORS1=0TO7:P2(S1)=PEEK(50176+S1):NEXTS1
3774 GOSUB11455:IFEG=141THENUD=1:RETURN
3776 GOSUB3840:IFUD=1THENUD=0:GOTO3745
3778 E=9:GOSUB3805:IFUD=1THENUD=0:GOTO3745
3780 GOSUB3850:GOSUB3864
3782 FORS1=0TO7:POKEP2+S1,PEEK(50176+S1):POKEP1+S1,P2(S1):NEXTS1:RETURN
3805 IF(EG=45OREG=60)OR(EG=62OREG=166)OREG=221THEN3820
3810 IFEG<32OR(EG>127ANDEG<160)THEN3820
3811 RETURN
3820 ZE=E:SP=5:GOSUB11050:PRINTKS$(32):POKE2,1:SYS51833:GOSUB11050:PRINTKS$(33):UD=1:RETURN
3835 ZE=19:SP=0:GOSUB11050:PRINTKS$(38)KS$(36)KS$(37)KS$(13):RETURN
3840 IFEG=137THENSP=3:E=39:SM=2:GOTO3846
3842 IFEG=138THENSP=3:E=41:SM=1:GOTO3846
3843 IFEG=139THENSP=25:E=43:RV=0:GOTO3846
3844 IFEG=140THENSP=25:E=45:RV=1:GOTO3846
3845 RETURN
3846 ZE=20:GOSUB11050:PRINTKS$(E):ZE=21:GOSUB11050:PRINTKS$(E+1):UD=1:RETURN
3850 EG=EG-161-33*(EG<255)-64*(EG<192)-32*(EG<160)+32*(EG<96)-64*(EG<64)
3854 IFSM=2THENEG=EG+256
3856 IFRV=1THENEG=EG+128
3858 RETURN
3864 P1=57344+8*EG:HB(1)=INT(P1/256):LB(1)=P1-256*HB(1):LB(2)=LB(1)+7
3865 HB(2)=HB(1)
3866 IFLB(2)>255THENLB(2)=255:HB(2)=HB(2)+1
3867 LB(3)=0:HB(3)=196:AW=1:GOSUB11760:RETURN
3872 ZE=19:SP=0:GOSUB11050:PRINTL$L$L$L$C$C$:ZE=E:SP=4:GOSUB11050:PRINTKS$(K)KS$(31)
3880 ZE=E+1:SP=26:GOSUB11050:PRINT;:GOSUB11445:IF EG=78 THEN ZA=0:UG=1:RETURN
3882 GOSUB11023:FORS1=0TO1:ZE=E+S1:SP=0:GOSUB11050:PRINTL$:NEXTS1:RETURN
3895 A1=48:A2=49:GOSUB11465:GOSUB11485:FF=TA%(3):GOSUB11235
3896 POKE53280,TA%(1):POKE53281,TA%(2):EG$="":RETURN
3907 ZE=5:SP=0:GOSUB11050:PRINTL$:ZE=7:GOSUB11050:PRINTL$:RETURN
4000 A1=122:A2=123:GOSUB11465:IFFS%(1)=1THEN4007
4002 ZE=9:SP=5:GOSUB11050:PRINTKS$(101):ZE=11:SP=13:GOSUB11050:PRINTKS$(102)
4003 GOSUB11027:POKE2,2:SYS51833:PG=1:UG=1:RETURN
4007 ZE=10:SP=1:GOSUB11050:PRINTKS$(124)CHR$(17)KS$(125):GOSUB11485:GOSUB11027
4015 AF=0:DL=0:FV=0:S=0:N=0:E=0:ES=0:EF=0:S3=0:S5=0
4017 FORSE=5TO1STEP-1:IFFS%(SE)=0THENNEXTSE
4020 FORPG=1TOSE:POKE251,40:POKE252,196:S2=0:GOSUB11239
4025 SYS40149:IFPEEK(252)=0THEN4050
4026 IFES=0THENES=PG
4027 AF=AF+1:S2=S2+1:IFAF>AMTHENA1=128:A2=4:GOSUB4435:GOSUB4476:RETURN
4030 FV=1:FORS1=1TO2:FD(AF,S1)=PEEK(249+2*S1)+256*PEEK(250+2*S1):NEXTS1
4034 E=FD(AF,2)-FD(AF,1)-1:DL=DL+E:IFE<5 THEN4039
4035 H$=RIGHT$(STR$(AF),LEN(STR$(AF))-1)
4037 IFLEN(H$)<3THENH$=CHR$(102)+H$:GOTO4037
4038 FORS1=1TO3:POKEFD(AF,2)-4+S1,ASC(MID$(H$,S1,1)):NEXTS1
4039 Z=PEEK(FD(AF,1)+1):IFZ=19THENFA%(AF)=19:S=S+1:SF=PG:NS=AF:GOTO4045
4040 IFZ=14THENFA%(AF)=14:N=N+1:FO%(N)=AF:GOTO4045
4042 IFZ=4THENFA%(AF)=4:GOTO4045
4043 IFZ=5THEN FA%(AF)=5:EF=EF+1:RO%(EF)=AF:N=N+1:FO%(N)=AF:GOTO4045
4044 FA%(AF)=20
4045 IFFD(AF,2)<>51055THENPOKE251,PEEK(253):POKE252,PEEK(254):GOTO4025
4050 AF%(PG)=S2:GOSUB11243:NEXTPG
4052 IFFV=0THENA1=127:A2=4:GOSUB4435:RETURN
4055 IFS=0THENA1=137:A2=2:GOSUB4435:GOSUB4476:RETURN
4056 IFS>1THENA1=143:A2=3:GOSUB4435:GOSUB4476:RETURN
4057 IFEF>15THENA1=147:A2=4:GOSUB4435:GOSUB4476:RETURN
4058 IFN=0ANDEF=0THEN4157
4062 POKE53280,0:GOSUB11023:BR%(1)=24:BR%(2)=0:BR%(3)=196:GOSUB11260
4070 PRINTCHR$(147)CHR$(9)CHR$(GR)CHR$(8):ZE=0:SP=0:GOSUB11050:PRINTKS$(130):GOSUB4470
4071 S2=0
4072 FORPG=1TOSE:IFAF%(PG)=0THENNEXTPG:GOTO4100
4073 GOSUB4488:GOSUB11028
4075 FORS1=1TOAF%(PG):S2=S2+1:IFFA%(S2)<>14 AND FA%(S2)<>5 THEN NEXTS1:GOTO4095
4076 S3=S3+1:S6$=KS$(100)+KS$(29):EG$=FO$(S3)
4077 IFLEN(EG$)=3THENEG$=" "+EG$
4078 IFVAL(RIGHT$(EG$,2))=0THENAG$=LEFT$(S6$,VAL(LEFT$(EG$,2))):GOTO4080
4079 AG$=LEFT$(S6$,VAL(LEFT$(EG$,2)))+"."+RIGHT$(S6$,VAL(RIGHT$(EG$,2)))
4080 GOSUB4443:GOSUB4470:IFUG=1THENGOSUB4475:GOSUB4420:RETURN
4083 S7=LEN(EG$):IFS7>80THENS7=80
4085 FORS6=1TOS7
4087 IFMID$(EG$,S6,1)<>"."THENNEXTS6:FO$(S3)=RIGHT$(STR$(S7),2)+" 0":GOTO4093
4088 FO$(S3)=RIGHT$(STR$(S6-1),2)+RIGHT$(STR$(S7-S6),2)
4093 NEXTS1:IFUN=1THENUN=0:GOSUB11243
4095 NEXTPG
4100 IFEF=0THEN4135
4105 POKE53280,0:GOSUB11023:ZE=0:SP=0:GOSUB11050:PRINTKS$(131):GOSUB4470:S2=0:GZ=72
4110 SY=0:FORPG=1TOSE:IFAF%(PG)=0THENNEXTPG:GOTO4135
4112 GOSUB4488:GOSUB11028
4114 IFSY<>0THEN4120
4115 ZE=22:SP=0:GOSUB11050:PRINTKS$(146);:GOSUB11445:ZE=22:SP=0:GOSUB11050:PRINTKS$(6)C$C$
4116 SY=1:IFEG=74THENSY=2
4120 FORS1=1TOAF%(PG):S2=S2+1:IFFA%(S2)<>5THENNEXTS1:GOTO4133
4121 S5=S5+1
4122 AG$=RO$(S5):GOSUB4444:IFUG=1THENGOSUB4475:GOSUB4420:RETURN
4123 GOSUB4405:RO$(S5)=EG$:IFSY=1THEN4132
4124 S7=0:S8=0:FORS6=1TOLEN(EG$):S6$=MID$(EG$,S6,1)
4125 ZE=0:SP=0:GOSUB11050:PRINTKS$(27):IF S6$="(" THEN S7=S7+1
4126 IFS6$=")"THENS7=S7-1:IFS7<0THENGOSUB4382:GOTO4122
4127 S8=0:IF(S6$="+"ORS6$="-")OR(S6$="*"ORS6$="/")ORS6$="^"THEN S8=1
4128 IFS6>1THENIFMID$(EG$,S6-1,1)="("ANDS8=1THENGOSUB4382:GOTO4122
4130 NEXTS6
4131 IFS7>0THENGOSUB4382:GOTO4122
4132 GOSUB4470:ZE=0:SP=0:GOSUB11050:PRINTKS$(131):NEXTS1:IF UN=1THENUN=0:GOSUB11243
4133 NEXTPG
4135 GOSUB11022:GOSUB4420:GOSUB4425
4140 FF=MF%(3):GOSUB11235
4156 A1=122:A2=123:GOSUB11465:GOSUB11485:PRINTCHR$(14)CHR$(8)C$:ZG=0
4157 GOSUB4425:ZE=19:SP=0:GOSUB11050:PRINTKS$(79)CHR$(17)KS$(79):GOSUB11027
4160 DP=0:OPEN1,8,2,"DAT-DIR,S,R":GOSUB11322:IFFE=0THEN4167
4165 DP=1:AD=1:GOTO4168
4167 INPUT#1,AD:FORS1=1TOAD:INPUT#1,DD$(S1),SN%(S1),DS%(S1):NEXTS1
4168 CLOSE1
4211 DU=0:ZE=5:SP=0:GOSUB11050:PRINTKS$(126);:SP=22:GZ=14:RV=0:P=1
4212 GOSUB11303:IFEG=141THENUG=1:GOSUB4476:RETURN
4216 FORS1=1TOAD:IFDD$(S1)<>EG$THENNEXTS1:GOTO4219
4217 ZE=20:SP=2:GOSUB11050:PRINTKS$(136);:GOSUB 11445:GOSUB6601:IFEG=78THEN4211
4218 DU=S1
4219 I$=EG$:DA$=I$
4220 ZE=7:SP=3:GOSUB11050:PRINTKS$(103)KS$(104)KS$(105);
4221 GOSUB11445:IFEG=74THENZG=1:ZG$=DA$:PRINTCHR$(74):GOTO4230
4222 FORZE=7TO9:SP=0:GOSUB11050:PRINTL$C$:NEXTZE:ZE=7:SP=2:GOSUB11050:PRINTKS$(132)KS$(133);
4224 GOSUB11445:PRINTCHR$(EG):IFEG=78THENZG$="K":GOTO4230
4226 ZE=10:SP=8:GOSUB11050:PRINTKS$(121):SP=16:GOSUB11303
4227 IFEG=141THENUG=1:GOSUB4476:GOSUB6625:RETURN
4228 I$=EG$:IFI$=""THENZG$="K":GOTO4230
4229 ZG$=I$
4230 ZE=13:SP=0:GOSUB11050:PRINTKS$(134)KS$(135);:SP=31:ZE=14:GZ=2:GOSUB11303
4232 IFEG=141THENUG=1:GOSUB4476:RETURN
4235 AS=VAL(EG$):IFAS<1ORAS>30THEN4230
4247 UG=0:GOSUB4476:AG$=KS$(99)+DA$:ZE=20:GOSUB11585:I$=DA$+".D"
4248 IFDU<>0THENOPEN1,8,15,"S:"+I$:CLOSE1
4249 OPEN1,8,2,I$+",S,W"
4250 PRINT#1,CB,R$,DL,R$,SF,R$,NS,R$,ES,R$,AF:FORS1=1TOAF
4252 FD(S1,1)=FD(S1,1)+1:FD(S1,2)=FD(S1,2)-FD(S1,1)
4253 IFFD(S1,2)>LFTHENLF=FD(S1,2)
4254 PRINT#1,FD(S1,1)R$FD(S1,2):NEXTS1:LF=INT(LF/255)+1:PRINT#1,LF
4255 FORS1=1TOAF:PRINT#1,FA%(S1):NEXTS1
4260 PRINT#1,SE:FORS1=1TOSE:PRINT#1,AF%(S1):NEXTS1
4265 PRINT#1,S3:IFS3=0THEN4270
4267 FORS1=1TOS3:PRINT#1,FO%(S1)R$FO$(S1):NEXTS1
4270 PRINT#1,S5:IFS5=0THEN4275
4272 FORS1=1TOS5:PRINT#1,RO%(S1)R$RO$(S1):NEXTS1
4275 PRINT#1,ZG$R$,AS,R$,GR:FORS1=1TOSE:PRINT#1,F1%(S1)R$F2%(S1)R$F3%(S1)
4280 NEXTS1:CLOSE1
4285 I$=DA$+".E":IFDU<>0THENOPEN1,8,15,"S:"+I$:CLOSE1
4289 LB(1)=0:HB(1)=160:LB(2)=AP%(SE,3)+1:HB(2)=AP%(SE,4):QX$=I$:GOSUB11810
4297 IFDU<>0THENSN%(DU)=SE:GOTO4345
4300 I$=DA$+".I":OPEN1,8,2,I$+",S,W"
4302 AT=0:MT=INT(2219/(AS+3)):PRINT#1,AT,R$,MT:CLOSE 1
4342 IFDP=0THENAD=AD+1
4343 DD$(AD)=DA$:SN%(AD)=SE:DS%(AD)=0
4345 I$="DAT-DIR":IFDP=1THEN4348
4346 OPEN1,8,15,"S:"+I$:CLOSE1
4348 OPEN1,8,2,I$+",S,W":PRINT#1,AD
4349 FORS1=1TOAD:PRINT#1,DD$(S1)R$SN%(S1)R$DS%(S1):NEXTS1:CLOSE1
4351 I$=DA$+".Z":IFDU<>0THENOPEN1,8,15,"S:"+I$:CLOSE1
4352 IFZG=0THEN4358
4353 LB(1)=0:HB(1)=224:LB(2)=0:HB(2)=240:LB(3)=0:HB(3)=160:AW=1:GOSUB11760
4356 LB(1)=0:HB(1)=160:LB(2)=0:HB(2)=176:QX$=I$:GOSUB11810:GOSUB6635
4357 P=SE:SE=1:GOSUB6605:SE=P
4358 AG$=KS$(138):ZE=20:GOSUB11585:I$=DA$+".E":GOSUB6650:UG=1:RETURN
4382 ZE=0:SP=0:GOSUB11050:PRINTKS$(28):POKE2,1:SYS51833:GOSUB11050:PRINTKS$(131):RETURN
4405 FORS6=LEN(EG$)TO1STEP-1:IFMID$(EG$,S6,1)=CHR$(32)THENNEXTS6
4410 EG$=LEFT$(EG$,S6):RETURN
4420 GOSUB11023:BR%(1)=21:BR%(2)=3:BR%(3)=4:GOSUB11260:RETURN
4425 ZE=10:SP=0:GOSUB11050:PRINTL$:ZE=12:SP=0:GOSUB11050:PRINTL$:RETURN
4435 GOSUB4425:ZE=10:SP=A2:GOSUB11050:PRINTKS$(A1):POKE2,2:SYS51833:UG=1:PG=1:RETURN
4443 GZ=FD(S2,2)-FD(S2,1)-1:IFGZ>80THENGZ=80
4444 S4=PG:POKEFD(S2,1),188:POKEFD(S2,2),190:ZE=22:SP=0:GOSUB11050:PRINTCHR$(18)AG$C$C$
4446 ZE=22:SP=0:GOSUB11050:PRINT;:GOSUB6920:EG=PEEK(2)
4448 IFEG=13THEN4460
4449 IFEG=141THENUG=1:GOTO4463
4451 IFEG=135ANDPG<SETHENGOSUB11243:PG=PG+1:GOSUB4488:UN=1:GOTO4446
4452 IFEG=136ANDPG>1THENGOSUB11243:PG=PG-1:GOSUB4488:UN=1:GOTO4446
4453 GOTO4446
4460 POKE253,112:POKE254,199:POKE2,GZ:POKE69,69:POKE70,199:SYS52493
4463 IFUN=1THENPG=S4:GOSUB11239
4464 POKEFD(S2,1),60:POKEFD(S2,2),62:GOSUB11243
4466 POKE199,0:RETURN
4470 ZE=22:SP=0:GOSUB11050:PRINTKS$(6)KS$(6)C$C$:RETURN
4475 GOSUB11022
4476 S1=0:S4=1:FORPG=1TOSE:IFAF%(PG)=0THEN NEXTPG:GOTO4482
4477 GOSUB11239:FORS1=S4TOS4+AF%(PG)-1:IFFD(S1,2)-FD(S1,1)<6THEN4479
4478 FORS2=1TO3:POKEFD(S1,2)-4+S2,102:NEXTS2
4479 IFUG=0THENPOKEFD(S1,1)+1,102
4480 NEXTS1:GOSUB11243:S4=S4+AF%(PG):NEXTPG
4482 PG=1:RETURN
4488 GOSUB10610:FF=F3%(PG):GOSUB11235:GOSUB11239
4489 POKE53280,F1%(PG):POKE53281,F2%(PG):RETURN
4510 PRINTCHR$(147)CHR$(142)CHR$(8):POKE53280,0:POKE53281,0
4515 POKE211,0:POKE214,10:SYS58640
4520 PRINT"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
4525 PRINT"[145][165]                                      [146][167]"
4530 PRINT"[145][165]>>>>>>> EINEN MOMENT BITTE !!! <<<<<<<[146][167]"
4535 PRINT"[145][165]                                      [146][167]"
4540 PRINT"[145][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
4550 RETURN
4730 DIMMF%(3),LB(3),HB(3),ME$(2,18),AP%(5,4),KS$(147),F1%(5),F2%(5),F3%(5)
4735 DIMFC%(19),BA(2),FS%(5),ZF%(3),TA%(3),P2(7),PH(2),HP%(2,4),BR%(3),RO%(15)
4740 AM=75:DIM FD(AM,2),FA%(AM),FO%(AM/2),FO$(AM/2),RO$(15),DD$(15),SN%(15)
4742 DIM AF%(10),P1(4),DS%(15)
4810 BA(1)=1024:BA(2)=50176:GR=142:PG=1:RS=0:HP=0:PT=40248
4835 FORS1=1TO5:F1%(S1)=0:F2%(S1)=0:F3%(S1)=5:NEXTS1:MF%(1)=0:MF%(2)=0:MF%(3)=5
4841 ZF%(1)=0:ZF%(2)=0:ZF%(3)=5:TA%(1)=0:TA%(2)=0:TA%(3)=5
4860 CB=51:POKE 56325,CB:POKE 650,128:OPEN15,8,15:TI$="000000"
4861 L$="                                        ":C$=CHR$(145):R$=CHR$(13)
4960 LB(1)=0:HB(1)=160:LB(2)=103:HB(2)=176:AW=32:GOSUB11710:SE=1:GOSUB6605
5005 LB(1)=0:HB(1)=240:LB(2)=153:HB(2)=246:AW=32:GOSUB11710
5027 LB(1)=0:HB(1)=208:LB(2)=255:HB(2)=223:LB(3)=0:HB(3)=224:AW=3:GOSUB11760
5040 P1(1)=58160:P1(3)=59184:P1(2)=60208:P1(4)=61232
5042 FORS2=1TO2:P1=P1(S2):FORS1=P1TOP1+6:POKES1,0:NEXTS1:POKEP1+7,24:NEXTS2
5043 FORS2=3TO4:P1=P1(S2):FORS1=P1TOP1+6:POKES1,255:NEXTS1:POKEP1+7,231:NEXTS2
5110 READ SZ
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
5141 READFM:FORS1=1TOFM:READFC%(S1):NEXTS1
5144 READSZ:FORS1=1TOSZ:READKS$(S1):NEXTS1
5146 RETURN
5149 DATA2
5152 DATA18,"DATEI ENTWICKELN"
5154 DATA"[164][164][164][164]","[165]F1[167] : BILDSCHIRMMASKE ENTWERFEN","[163][163][163][163]"
5156 DATA"[164][164][164][164]","[165]F3[167] : ZEICHENSATZ AENDERN","[163][163][163][163]"
5158 DATA"[164][164][164][164]","[165]F5[167] : TASTATURBELEGUNG AENDERN","[163][163][163][163]"
5159 DATA"----------------------------------"
5160 DATA"[164][164][164][164]","[165]F7[167] : --- DATEI EINRICHTEN ------","[163][163][163][163]"
5162 DATA"----------------------------------"
5164 DATA"[164][164][164][164]","[165]F8[167] : PROGRAMM BEENDEN","[163][163][163][163]"
5166 :
5168 DATA17,"SONDERFUNKTIONEN"
5170 DATA"[164][164][164][164]","[165]F1[167] : DIRECTORY AUSGEBEN","[163][163][163][163]"
5172 DATA"[164][164][164][164]","[165]F3[167] : DISK-KOMMANDO SENDEN","[163][163][163][163]"
5174 DATA"[164][164][164][164]","[165]F5[167] : DATEIMASKE ABSPEICHERN","[163][163][163][163]"
5176 DATA"[164][164][164][164]","[165]F7[167] : DATEIMASKE EINLADEN","[163][163][163][163]"
5178 DATA"----------------------------------"
5180 DATA"[164][164][164][164]","[165]F8[167] : LADEMENUE AUFRUFEN","[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
5278 DATA0,240,71,243,76,243,147,246
5282 DATA19
5284 DATA19,18,146,20,148,144,5,28,134,133,147,137,138,13,135,136,139,3,140
5350 DATA147
5352 DATA"-DATABASE 64-----------MASKENDEFINITION-[146]"
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"--SEITENNUMMER (1-5) ? + 'RETURN' :>  <-[146]"
5362 DATA"                                        [146]"
5364 DATA"[213]NTER WELCHEM [206]AMEN WURDE DER [218]EICHENG. "
5368 DATA "FELDENDE ? ==>'RETURN'[221]FELDLAENGE:      [146]"
5370 DATA" [196]ATABASE 64                [218]EICHENSATZ "
5372 DATA"         [218]EICHENSATZAENDERUNG:          [146]"
5374 DATA" >>>> [200]AUPTMENUE: '[211]HIFT'+'[210]ETURN' <<<<"
5376 DATA"[215]ELCHES [218]EICHEN WOLLEN [211]IE ABAENDERN ? "
5378 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]"
5380 DATA"---- [194][211][195]-[195]ODE DES [218]EICHENS: ... ----"
5382 DATA"[196]ATEIMASKE EINLADEN:  - [198]1 -"
5384 DATA"----------------------------------------"
5386 DATA"[201]N DER NEBENSTEHENDEN        12345678"
5388 DATA"[196]ARSTELLUNG KOENNEN [211]IE     1........1"
5390 DATA"DIE [205]ATRIX DES [218]EICHENS     2........2"
5392 DATA"IN GEWUENSCHTER [215]EISE       3........3"
5394 DATA"ABAENDERN:                  4........4"
5396 DATA"                            5........5"
5398 DATA" - [198]1 : [205]ATRIXP. SETZEN   - 6........6"
5400 DATA" - [198]3 : [205]ATRIXP. LOESCHEN - 7........7"
5402 DATA" - [198]5 : [205]ATRIX LOESCHEN   - 8........8"
5404 DATA" - [198]ERTIG? : ---> '[198]7'    -  12345678"
5406 DATA" SYNTAX-KONTROLLE / EINEN MOMENT BITTE! [146]"
5408 DATA"           SYNTAX-FEHLER !!!            [146]"
5410 DATA"####################"
5412 DATA"[215]OLLEN [211]IE WEITERE [218]EICHEN AB-[146]      "
5414 DATA"          AENDERN ? (J/N)         [146]"
5416 DATA"[203]EINE [213]MDEFINITION MOEGLICH! [146]"
5418 DATA"                               "
5420 DATA"[196]ATEI EINLADEN:       - [198]3 -"
5422 DATA"........"
5424 DATA"   [199]R.-/[203]L.SCHRIFT:-[198]2- [221] [210][214][211] OFF:-[198]6- [146] "
5426 DATA"   [146][199]RAPHIKMODUS:   -[198]4- [221] [210][214][211] ON: -[198]8- [146] "
5428 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] "
5430 DATA"[199]R.-/[203]L.SCHRIFT:-[198]2- [146]"
5432 DATA"[199]RAPHIKMODUS:   -[198]4- "
5434 DATA"[199]R.-/[203]L.SCHRIFT:-[198]2- "
5436 DATA"[199]RAPHIKMODUS:   -[198]4- [146]"
5438 DATA" [210][214][211] OFF:-[198]6-[146]"
5440 DATA" [210][214][211] ON: -[198]8-"
5442 DATA" [210][214][211] OFF:-[198]6-"
5444 DATA" [210][214][211] ON: -[198]8-[146]"
5446 DATA" [197]INEN [205]OMENT [194]ITTE ! [146]"
5448 DATA" [196]ATABASE 64                   [212]ASTATUR "
5450 DATA"      [212]ASTATURBELEGUNGSAENDERUNG:       [146]"
5452 DATA"[194]ELEGUNG EINER [212]ASTE AENDERN: - [198]1 -"
5454 DATA"[218]WEI [212]ASTEN VERTAUSCHEN:      - [198]3 -"
5456 DATA"[194]ITTE DRUECKEN [211]IE DIE"
5458 DATA"ZU AENDERNDE [212]ASTE ! "
5460 DATA"[205]IT WELCHER [194]ELEGUNG WOLLEN [211]IE DIE"
5462 DATA"[212]ASTE VERSEHEN ? ([194]ITTE DRUECKEN [211]IE"
5464 DATA"DIE ENTSPRECHENDE [212]ASTE !) "
5466 DATA"[215]OLLEN [211]IE WEITERE [212]ASTEN AB- [146]      "
5468 DATA"[194]ITTE DRUECKEN [211]IE NACHEINANDER"
5470 DATA"DIE ZU VERTAUSCHENDEN [212]ASTEN !"
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"[157][157][157][157][157][157][157]"
5514 DATA"[145]"
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" [196]ATABASE 64                 [196]ATEIMASKE "
5544 DATA"        [196]ATEIMASKE ABSPEICHERN:         [146]"
5546 DATA"[213]NTER WELCHEM [206]AMEN SOLL DIE [196]ATEIMASKE "
5548 DATA"ABGESPEICHERT WERDEN?: >              <"
5550 DATA"SAVING : "
5552 DATA"+###########################################################"
5554 DATA"[197]S WURDE NOCH KEINE [196]ATEIMASKE"
5556 DATA"DEFINIERT !!!"
5558 DATA"[211]OLL DER (EVENTUELL) ABGEAENDERTE       "
5560 DATA"  [218]EICHENSATZ MIT ABGESPEICHERT         "
5562 DATA"        WERDEN ? (J/N) "
5564 DATA"  [215]OLLEN [211]IE MIT DER ABGEESPEICHERTEN   "
5566 DATA"  [196]ATEIMASKE WEITERARBEITEN ? (J/N) "
5568 DATA"LOADING : "
5570 DATA"[197]INLADUNG DER [196]ATEIMASKE NICHT MOEGLICH!"
5572 DATA"                                  "
5574 DATA"          [196]ATEIMASKE EINLADEN:          [146]"
5576 DATA"[213]NTER WELCHEM [206]AMEN WURDE DIE [196]ATEIMASKE"
5578 DATA"   ABGESPEICHERT ? : >              <"
5580 DATA"    [157][157][157][157]"
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"[211]OLL EIN ANDERER [218]EICHENSATZ"
5592 DATA"EINGELADEN WERDEN ? (J/N)"
5594 DATA"[206]AME?: >              <"
5596 DATA" [196]ATABASE 64                 [213]EBERNAHME "
5598 DATA"           [196]ATEI EINRICHTEN:            [146]"
5600 DATA"--- [196]ATEIMASKE WIRD UEBERNOMMEN ! ---  "
5602 DATA"   ---   [197]INEN [205]OMENT BITTE !    ---"
5604 DATA"  [206]AME DER [196]ATEI ? : >              <"
5606 DATA"   [203]EINE [198]ELDER VORHANDEN !!!   [146]"
5608 DATA"      [218]U VIELE [198]ELDER !!!       [146]"
5610 DATA"[218]EICHENSATZ EINLADEN: - [198]5 -"
5612 DATA"   BITTE FORMAT-VORSCHRIFT EINGEBEN !   [146]"
5614 DATA"   BITTE RECHEN-VORSCHRIFT EINGEBEN !   [146]"
5616 DATA"[215]OLLEN [211]IE EINEN ANDEREN [218]EICHENSATZ "
5618 DATA"           VERWENDEN ? (J/N) "
5620 DATA"   [193]NZAHL DER RELEVANTEN [211]TELLEN DES    "
5622 DATA"     [211]CHLUESSELFELDES? (1-30) >  <"
5624 DATA"[196]ATEI EXIST.!/UEBERSCHREIBEN? (J/N)"
5626 DATA"  [203]EIN [211]CHLUESSELFELD DEFINIERT!!!  [146]"
5628 DATA"[196]ATEI IST EINGERICHTET !!!"
5630 DATA"[196]ATEIMASKE ABSPEICHERN:    - [198]1 -"
5632 DATA"[218]EICHENSATZ ABSPEICHERN:   - [198]3 -"
5634 DATA"[213]NTER WELCHEM [206]AMEN SOLL DER [218]EICHENSATZ"
5636 DATA"   [213]NTER WELCHEM [206]AMEN WURDE DIE [196]ATEI  "
5638 DATA"  [218]U [214]IELE [211]CHLUESSELFELDER !!!  [146]"
5640 DATA" [196]ATABASE 64         [204]ADEMENUE AUFRUFEN "
5642 DATA"[211]IND [211]IE SICHER ? (J/N) "
5644 DATA"SYNTAX-KONTROLLE DURCHFUEHREN ? (J/N) [146]"
5646 DATA"   [218]U VIELE [210]ECHEN-[198]ELDER !!!   [146]"
6000 A1=95:A2=96:GOSUB11465
6022 ZE=5:SP=3:GOSUB11050:PRINTKS$(139):ZE=7:SP=3:GOSUB11050:PRINTKS$(140)
6023 ZE=19:SP=0:GOSUB11050:PRINTKS$(79)CHR$(17)KS$(79):GOSUB11485:GOSUB11027
6024 GOSUB11455:IFEG=141THENUG=1:RETURN
6025 IFEG<>133ANDEG<>134THEN6024
6026 ZE=5:SP=0:GOSUB11050:PRINTL$:ZE=7:SP=0:GOSUB11050:PRINTL$:IFEG=134THEN 6170
6030 IF FS%(1)=1THEN6033
6031 ZE=9:SP=5:GOSUB11050:PRINTKS$(101):ZE=11:SP=13:GOSUB11050:PRINTKS$(102):GOSUB11027
6032 UG=1:RETURN
6033 ZE=5:SP=0:GOSUB11050:PRINTKS$(97)CHR$(17)KS$(98)
6035 SP=24:GOSUB6235:IFEG=141THENUG=1:RETURN
6038 I$=EG$:DA$=I$:A1=99:GOSUB6315:I$=DA$+".U":GOSUB6330
6060 GOSUB11322:IFFE=0THEN6073
6065 GOSUB6601:AG$=FE$:ZE=20:GOSUB11585:POKE2,2:SYS51833:GOSUB6601:SP=24:GOTO6033
6073 I$=DA$+".M"
6074 OPEN1,8,2,I$+",S,W":GOSUB11322:IFFE<>0THEN6077
6075 PRINT#1,SE:FORS1=1TOSE:PRINT#1,F1%(S1)","F2%(S1)","F3%(S1):NEXTS1
6076 PRINT#1,GR
6077 CLOSE1:GOSUB6601:AG$=FE$:ZE=20:GOSUB11585:POKE2,2:SYS51833:GOSUB6601
6081 GOSUB6601
6082 ZG=1:ZE=10:SP=3:GOSUB11050:PRINTKS$(103)CHR$(17)KS$(104)CHR$(17)KS$(105);
6085 GOSUB11445:PRINTCHR$(EG):IFEG=78THENZG=0:GOTO6115
6090 I$=DA$+".Z":A1=99:GOSUB6315:GOSUB6350
6115 ZE=16:SP=0:GOSUB11050:PRINTKS$(106)KS$(107);:GOSUB11445:PRINTCHR$(EG)
6126 IF(EG=74ANDZG=0)OR(EG=78ANDZG=1)THEN6155
6127 IFEG=78ANDZG=0THENGOSUB6635:SE=1:GOSUB6605:GOTO6155
6130 LB(1)=0:HB(1)=160:QX$=DA$+".U":GOSUB11860:GOSUB6601
6145 GOSUB11322:AG$=FE$:ZE=20:GOSUB11585:POKE2,2:SYS51833
6147 IFFE<>0THENSP=0:GOSUB11050:PRINTCHR$(18)KS$(109):POKE2,2:SYS51833
6155 PG=1:GOSUB6695:UG=1:RETURN
6170 ZE=5:SP=0:GOSUB11050:PRINTKS$(141)CHR$(17)KS$(98)
6175 SP=24:GOSUB6235:IFEG=141THENUG=1:RETURN
6177 OPEN1,8,15,"S:ZWI-SP":CLOSE1
6180 I$="ZWI-SP":GOSUB6330:I$=EG$+".Z":A1=99:GOSUB6315:GOSUB6350
6182 IFFE<>0THEN6170
6185 LB(1)=0:HB(1)=160:QX$="ZWI-SP":GOSUB11860:OPEN1,8,15,"S:ZWI-SP":CLOSE1:UG=1:RETURN
6235 ZE=7:GZ=14:RV=0:P=1:GOSUB11303:RETURN
6315 AG$=KS$(A1)+I$:ZE=20:GOSUB11585:RETURN
6330 FORSE=5TO1STEP-1:IFFS%(SE)=0THENNEXTSE
6335 LB(1)=0:HB(1)=160:LB(2)=AP%(SE,3)+1:HB(2)=AP%(SE,4):QX$=I$:GOSUB11810:RETURN
6350 LB(1)=0:HB(1)=224:LB(2)=0:HB(2)=240:LB(3)=0:HB(3)=160:AW=1:GOSUB11760
6355 LB(1)=0:HB(1)=160:LB(2)=0:HB(2)=176:QX$=I$:GOSUB11810:GOSUB6635:SE=1:GOSUB6605
6360 GOSUB6601:GOSUB11322:AG$=FE$:ZE=20:GOSUB11585:POKE2,2:SYS51833:GOSUB6601
6361 RETURN
6500 A1=95:A2=111:GOSUB11465:GOSUB11485
6516 ZE=5:SP=6:GOSUB11050:PRINTKS$(15):ZE=7:SP=6:GOSUB11050:PRINTKS$(34)
6517 ZE=9:SP=6:GOSUB11050:PRINTKS$(129)
6518 ZE=19:SP=0:GOSUB11050:PRINTKS$(79)CHR$(17)KS$(79):GOSUB11485:GOSUB11027
6519 GOSUB11455:IFEG=141THENUG=1:RETURN
6520 IFEG<>133AND(EG<>134ANDEG<>135)THEN6518
6522 ZE=5:SP=0:GOSUB11050:PRINTL$:ZE=7:GOSUB11050:PRINTL$:ZE=9:GOSUB11050:PRINTL$
6524 IFEG=134THEN6547
6526 IFEG=135THEN6574
6532 A1=112:GOSUB6590:IFUG=1THENRETURN
6536 LB(1)=0:HB(1)=160:QX$=I$+".U":GOSUB11860:GOSUB6600:IF FE<>0 THEN 6532
6537 OPEN1,8,2,I$+".M,S,R":GOSUB11322:IFFE<>0THEN6540
6539 INPUT#1,SE:FORS1=1TOSE:INPUT#1,F1%(S1),F2%(S1),F3%(S1):NEXTS1:INPUT#1,GR
6540 CLOSE1:GOSUB6582:IFFE<>0THENGOSUB6685
6541 PG=1:GOSUB6695:UG=1:RETURN
6547 A1=142:GOSUB6590:IFUG=1THENRETURN
6548 OPEN1,8,2,I$+".D,S,R"
6550 ZE=20:GOSUB6631:IFFE<>0THENCLOSE1:GOTO6547
6551 INPUT#1,CB,DL,SF,NS,ES,AF:POKE56325,CB
6552 FORS1=1TOAF:FORS2=1TO2:INPUT#1,FD(S1,S2):NEXTS2:NEXTS1
6554 INPUT#1,LF:FORS1=1TOAF:INPUT#1,FA%(S1):NEXTS1
6556 INPUT#1,SE:FORS1=1TOSE:INPUT#1,AF%(S1):NEXTS1
6558 INPUT#1,S3:IFS3=0THEN6562
6560 FORS1=1TOS3:INPUT#1,FO%(S1),FO$(S1):NEXTS1
6562 INPUT#1,S5:IFS5=0THEN6564
6563 FORS1=1TOS5:INPUT#1,RO%(S1),RO$(S1):NEXTS1
6564 INPUT#1,ZG$,AS,GR:FORS1=1TOSE:INPUT#1,F1%(S1),F2%(S1),F3%(S1):NEXTS1
6565 CLOSE1
6567 LB(1)=0:HB(1)=160:QX$=I$+".E":GOSUB11860:ZE=20:GOSUB6631:IFFE<>0THENUG=1:RETURN
6569 IF ZG$="K" THENGOSUB6601:AG$=FE$:GOSUB11585:GOTO 6571
6570 I$=ZG$:GOSUB6582:IFFE<>0THENGOSUB6685
6571 GOSUB6625:PG=1:GOSUB6695:UG=1:RETURN
6574 ZE=5:SP=0:GOSUB11050:PRINTKS$(7)CHR$(17)KS$(113):ZE=19:GOSUB11050
6575 PRINTKS$(79)CHR$(17)KS$(79):GOSUB11027:SP=22:GOSUB6235:IF EG=141THEN 6577
6576 I$=EG$:GOSUB6582:IFFE<>0THEN6574
6577 UG=1:RETURN
6582 I$=I$+".Z":A1=108:GOSUB6315
6583 LB(1)=0:HB(1)=224:QX$=I$:GOSUB11860:GOSUB11322:ZE=20:SP=0:GOSUB11050:PRINTL$:AG$=FE$
6584 ZE=20:GOSUB11585:POKE2,2:SYS51833:ZE=20:SP=0:GOSUB11050:PRINTL$:RETURN
6590 ZE=5:SP=0:GOSUB11050:PRINTKS$(A1)CHR$(17)KS$(113)
6592 ZE=19:SP=0:GOSUB11050:PRINTKS$(79)CHR$(17)KS$(79):GOSUB11027
6594 SP=22:GOSUB6235:IFEG=141THENUG=1:RETURN
6596 I$=EG$:A1=108:GOSUB6315:RETURN
6600 ZE=20:SP=0:GOSUB11050:PRINTL$:GOSUB11322:AG$=FE$:ZE=20:GOSUB11585:POKE2,2:SYS51833
6601 ZE=20:SP=0:GOSUB11050:PRINTL$:RETURN
6605 IFSE=5THENRETURN
6610 FORS1=SE-1TO4:Z=40960+S1*840+32:POKEZ,19:POKEZ+1,5:POKEZ+2,9
6615 POKEZ+3,20:POKEZ+4,5:POKEZ+5,58:POKEZ+6,48:POKEZ+7,49+S1:NEXTS1:RETURN
6625 IFAF>0THENGOSUB6705
6626 S1=0:S4=1:FORPG=1TOSE:IFAF%(PG)=0THENNEXTPG:GOTO6629
6627 GOSUB11239:FORS1=S4TOS4+AF%(PG)-1:POKEFD(S1,1)+1,FA%(S1)
6628 NEXTS1:GOSUB11243:S4=S4+AF%(PG):NEXTPG
6629 PG=1:RETURN
6631 GOSUB11322:IFFE<>0THENGOSUB6601:AG$=FE$:GOSUB11585:POKE2,2:SYS51833:GOSUB6601
6632 RETURN
6635 LB(1)=0:HB(1)=160:LB(2)=103:HB(2)=176:AW=32:GOSUB11710:RETURN
6650 ZE=16:SP=0:GOSUB11050:PRINTKS$(106)KS$(107);:GOSUB11445:PRINTCHR$(EG):PG=1:GOSUB6695
6652 IF(EG=74ANDZG=0)THENGOSUB6625:RETURN
6655 IF(EG=78ANDZG=1)THENGOSUB6682:RETURN
6660 IFEG=78ANDZG=0THENGOSUB6635:SE=1:GOSUB6605:GOSUB6682:RETURN
6665 ZE=20:SP=0:GOSUB11050:PRINTL$
6670 LB(1)=0:HB(1)=160:QX$=I$:GOSUB11860:GOSUB11322:GOSUB6601:AG$=FE$:ZE=20:GOSUB11585
6672 GOSUB6625:GOSUB6601
6675 IFFE<>0THENSP=0:GOSUB11050:PRINTCHR$(18)KS$(109):POKE2,2:SYS51833
6680 RETURN
6682 FORS1=1TOS3:FO$(S1)="":NEXTS1:FORS1=1TOS5:RO$(S1)="":NEXTS1
6683 S3=0:S5=0:RETURN
6685 ZE=12:SP=6:GOSUB11050:PRINTKS$(119):ZE=14:SP=7:GOSUB11050:PRINTKS$(120);
6686 GOSUB11445:IFEG=78THEN6690
6687 ZE=16:SP=8:GOSUB11050:PRINTKS$(121):SP=16:GZ=14:P=1:RV=0:GOSUB11303:IFEG=141THEN6690
6689 I$=EG$:GOSUB6582:IFFE<>0THEN6687
6690 RETURN
6695 FORS1=1TO5:FS%(S1)=0:NEXTS1:RETURN
6705 FORS1=1TOAF:FD(S1,2)=FD(S1,2)+FD(S1,1):FD(S1,1)=FD(S1,1)-1:NEXTS1
6707 RETURN
6920 POKE52445,112:POKE52446,199:POKE52436,GZ:POKE52437,0:POKE199,1:POKE52440,13
6925 POKE52441,141:POKE52442,135:POKE52443,136:POKE52444,1:SYS51946: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
9500 GOSUB11022:GOSUB9869:GOSUB11028:HZ=HP
9530 POKE247,C4:POKE248,C3:ZE=C2:SP=C1:GOSUB11050:PRINT;
9535 POKE199,HR:SYS 52582:EG=PEEK(2):GOSUB11035
9545 IFEG=141THENGOSUB9847:RETURN
9550 FORS1=1TO18:IFEG<>FC%(S1)THENNEXTS1:GOTO9535
9560 IFS1>10THENS1=S1-10:GOTO9575
9570 ONS1GOSUB9985,9990,9996,10341,10363,9932,9938,9944,10570,10584:GOTO9530
9575 ONS1GOSUB 10610,10623,10657,10746,9605,9805,9705,10544:GOTO9530
9605 A1=116:GOSUB9905:IFEG=141THENGOSUB9766:RETURN
9610 AG$=KS$(99)+I$:ZE=23:GOSUB11585
9625 IFHP=1THENHB(1)=4:HB(2)=7:HB(3)=196:L2=199:GOTO9628
9627 HB(1)=196:HB(2)=199:HB(3)=4:L2=7
9628 LB(2)=111:LB(3)=40:LB(1)=40:AW=1:GOSUB11760:L1=116
9632 GOSUB9896:E=L2*256+LB(2)+1:FORS1=0TO3:POKEE+S1,PEEK(PH(HP)+S1):NEXTS1
9635 LB(1)=LB(3):HB(1)=HB(3):LB(2)=L1:HB(2)=L2:QX$=I$:GOSUB11810
9640 GOSUB9782:GOSUB11322:GOSUB9770:GOSUB9766:RETURN
9705 A1=117:GOSUB9905:IFEG=141THENGOSUB9766:RETURN
9710 AG$=KS$(108)+I$:ZE=23:GOSUB11585:LB(1)=HP%(HP,1):HB(1)=HP%(HP,2):QX$=I$
9711 GOSUB11860
9730 GOSUB9782:GOSUB11322:IFFE<>0THENGOSUB9770:GOSUB9766:RETURN
9740 GOSUB9782:GOSUB9766
9755 LB(1)=HP%(HP,3)+1:HB(1)=HP%(HP,4):LB(2)=LB(1)+3:HB(2)=HB(1)
9756 HB(3)=INT(PH(HP)/256):LB(3)=PH(HP)-256*HB(3)
9757 AW=1:GOSUB11760
9758 PRINTCHR$(PEEK(PH(HP)))C$:POKE53280,PEEK(PH(HP)+1)
9759 POKE53281,PEEK(PH(HP)+2):FF=PEEK(PH(HP)+3):GOSUB11235
9761 HB(3)=196:IFHP=1THENHB(3)=4
9762 LB(1)=HP%(HP,1):HB(1)=HP%(HP,2):LB(2)=HP%(HP,3):HB(2)=HP%(HP,4)
9763 LB(3)=40:AW=1:GOSUB11760:RETURN
9766 ZE=0:SP=0:GOSUB11050:PRINTKS$(115):RETURN
9770 AG$=FE$:ZE=23:GOSUB11585:POKE2,2:SYS51833:GOSUB 9782:RETURN
9782 ZE=23:SP=0:GOSUB11050:PRINTCHR$(146)L$C$C$:RETURN
9805 ZE=23:SP=3:GOSUB11050:PRINTKS$(118);
9810 SYS51682:EG=PEEK(2):IFEG<>74AND(EG<>78 ANDEG<>141)THEN 9810
9812 IFEG=141THENGOSUB9782:RETURN
9813 IFEG=74THEN9832
9820 GOSUB9855:GOSUB11022:IFHP=1THENHP=2:BR%(1)=24:BR%(2)=0:BR%(3)=196:GOTO9822
9821 HP=1:BR%(1)=21:BR%(2)=3:BR%(3)=4
9822 GOSUB11260:GOSUB9869:GOSUB11028:RETURN
9832 E=HP:IFE=1THENHP=2:GOTO9834
9833 HP=1
9834 LB(1)=HP%(HP,1):HB(1)=HP%(HP,2):LB(2)=HP%(HP,3):HB(2)=HP%(HP,4)
9835 LB(3)=HP%(E,1):HB(3)=HP%(E,2):AW=1:GOSUB11760
9836 FORS1=0TO3:POKE2,PEEK(PH(HP)+S1):POKEPH(HP)+S1,PEEK(PH(E)+S1)
9837 POKEPH(E)+S1,PEEK(2):NEXTS1
9838 GOSUB9842:IFHP=1THENBR%(1)=21:BR%(2)=3:BR%(3)=4:GOTO9840
9839 BR%(1)=24:BR%(2)=0:BR%(3)=196
9840 GOSUB11022:PRINTCHR$(147):GOSUB11260:GOSUB9869:GOSUB9782
9841 GOSUB11028:RETURN
9842 HB(1)=4:HB(2)=7:IFE=2THENHB(1)=196:HB(2)=199
9843 LB(1)=40:LB(2)=111:LB(3)=HP%(HP,1):HB(3)=HP%(HP,2):AW=1:GOSUB11760
9844 GOSUB9896:RETURN
9847 GOSUB9855:GOSUB11022:HP=0:IFHZ=1THEN BR%(1)=21:BR%(2)=3:BR%(3)=4:GOTO9849
9848 BR%(1)=24:BR%(2)=0:BR%(3)=196
9849 GOSUB11260:GOSUB11028:RETURN
9855 HB(1)=4:HB(2)=7:IFHP=2THENHB(1)=196:HB(2)=199
9865 LB(1)=40:LB(2)=111:LB(3)=HP%(HP,1):HB(3)=HP%(HP,2):AW=1:GOSUB11760:GOSUB9896:RETURN
9869 IFHP=1THENHB(3)=4:GOTO9871
9870 HB(3)=196
9871 PRINTCHR$(9)CHR$(PEEK(PH(HP)))C$:POKE781,HP+1:SYS PT
9872 LB(1)=HP%(HP,1):HB(1)=HP%(HP,2):LB(2)=HP%(HP,3):HB(2)=HP%(HP,4)
9873 LB(3)=40:AW=1:GOSUB11760:FF=PEEK(PH(HP)+3)
9876 GOSUB11235:C4=1:C3=0:C1=0:C2=1
9877 KS$(115)=LEFT$(KS$(115),38):KS$(115)=KS$(115)+STR$(HP)+"-"
9878 POKE53280,PEEK(PH(HP)+1):POKE53281,PEEK(PH(HP)+2):RETURN
9896 POKEPH(HP),142:Z=PEEK(53272):IFZ=23ORZ=27THENPOKEPH(HP),14
9897 RETURN
9905 ZE=0:SP=0:GOSUB11050:PRINTKS$(A1):SP=23:GZ=14:RV=1:P=HP
9907 GOSUB11303:IFEG<>141THENI$=EG$+".H"
9910 RETURN
9932 FF=PEEK(PH(HP)+1):GOSUB11170:POKEPH(HP)+1,FF:RETURN
9938 FF=PEEK(PH(HP)+2):GOSUB11200:POKEPH(HP)+2,FF:RETURN
9944 FF=PEEK(PH(HP)+3):GOSUB11230:POKEPH(HP)+3,FF:RETURN
9950 RETURN
9985 C1=0:C2=1:C4=1:C3=0:RETURN
9990 IFHP=0THENRS=1:RETURN
9991 HR=1:RETURN
9996 IFHP=0THENRS=0:RETURN
9997 HR=0:RETURN
10341 Z=1:IFHP<>1THENZ=2
10343 IFC1=0THENRETURN
10345 H=BA(Z)+40*C2+C1:HB(1)=INT(H/256):LB(1)=H-256*HB(1)
10346 H=H-C1+39:HB(2)=INT(H/256):LB(2)=H-256*HB(2)
10347 POKE251,LB(1):POKE252,HB(1):POKE253,LB(2):POKE254,HB(2):SYS51248
10350 C1=C1-1:H=40*C2+C1-39:C3=INT(H/256):C4=H-256*C3:RETURN
10363 Z=1:IFHP<>1THENZ=2
10365 IFC1=39THENRETURN
10366 H=BA(Z)+40*C2+C1:HB(1)=INT(H/256):LB(1)=H-256*HB(1)
10367 H=H-C1+39:HB(2)=INT(H/256):LB(2)=H-256*HB(2)
10368 POKE251,LB(1):POKE252,HB(1):POKE253,LB(2):POKE254,HB(2):SYS51353:RETURN
10544 ZE=0:SP=0:GOSUB11050:PRINTKS$(6):GOSUB11050:PRINTKS$(2):IFHP=1THENP=1:GOTO10546
10545 P=2
10546 RV=1:GZ=3:SP=37:GOSUB11303
10548 Z=1:IFHP>0THENZ=115:KS$(Z)=LEFT$(KS$(Z),38):KS$(Z)=KS$(Z)+STR$(HP)+"-"
10550 ZE=0:SP=0:GOSUB11050:PRINTKS$(Z):H=VAL(EG$):IFH<25ORH>100THENRETURN
10555 POKE56325,H:CB=H:RETURN
10570 ZE=C2:SP=0:GOSUB11050:PRINTCHR$(146)L$:RETURN
10584 Z=1:IFHP<>1THENZ=2
10590 H=40*C2+BA(Z):FORS1=0TO39:K=PEEK(H+S1):IFK>127THENK=K-128:GOTO10594
10592 K=K+128
10594 POKEH+S1,K:NEXTS1:RETURN
10610 IFHP<>1THENHB(1)=196:HB(2)=199:GOTO10615
10612 HB(1)=4:HB(2)=7
10615 LB(1)=40:LB(2)=111:AW=32:GOSUB11710:RETURN
10623 IF C2=1 THEN ZE=C2:SP=0:GOSUB11050:PRINTL$:RETURN
10624 IFHP<>1THENHB(1)=196:GOTO10630
10625 HB(1)=4
10630 POKE53027,C2-1:POKE53021,80:POKE53022,HB(1):SYS 52862: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