home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8507c.d64 / dbi (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  33KB  |  867 lines
  1. 0 REM-DBI / (C)1985 MARTIN HECHT,STGT-
  2. 1 DIMMF%(3),LB(3),HB(3),ME$(2,18),AP%(5,4),KS$(147),F1%(5),F2%(5),F3%(5),P1(4)
  3. 2 DIMFC%(19),BA(2),FS%(5),ZF%(3),TA%(3),P2(7),PH(2),HP%(2,4),BR%(3),AF%(10)
  4. 3 DIM DD$(15),SN%(15),DS%(15)
  5. 4 DIM FO%(20),FO$(20),RO$(15),RO%(15),FD(50,2),FA%(50):AM=50
  6. 55 GOSUB4510:LB(1)=213:HB(1)=156:QX$="MP-P-2":GOSUB11860
  7. 56 LB(1)=232:HB(1)=199:QX$="MP-P-4":GOSUB11860
  8. 63 POKE55,212:POKE56,156:POKE51,212:POKE52,156
  9. 70 GOSUB4810
  10. 165 GOSUB11022:PRINTCHR$(142)CHR$(8):FF=MF%(3):GOSUB11235:POKE781,1:SYS PT
  11. 180 ME=1:GOSUB405:GOSUB11027:EG$=""
  12. 190 GOSUB11455
  13. 207 IFEG=13THENGOSUB310:GOTO190
  14. 210 IFEG=8THENHP=1:GOSUB9500:GOTO165
  15. 220 IFEG=140ANDME=1THEN7750
  16. 221 IFEG=140ANDME=2THEN9002
  17. 224 IFEG=144THENFF=MF%(1):GOSUB11170:MF%(1)=FF:GOTO190
  18. 226 IFEG=5THENFF=MF%(2):GOSUB11200:MF%(2)=FF:GOTO190
  19. 227 IFEG=28THENFF=MF%(3):GOSUB11230:MF%(3)=FF:GOTO190
  20. 229 IFEG<133OREG>140THEN190
  21. 232 IFME=2THEN250
  22. 240 ONEG-132GOSUB1005,3012,3512,4000:IFUGTHENUG=0:GOTO165
  23. 242 GOTO190
  24. 250 ONEG-132GOSUB7010,7500,6000,6500:IFUGTHENUG=0:GOTO165
  25. 260 GOTO190
  26. 310 IFME=1THENME=2:GOTO330
  27. 320 ME=1
  28. 330 FORS1=21TO5STEP-1:ZE=S1:SP=5:GOSUB11050:PRINTKS$(110):NEXTS1
  29. 345 GOSUB405:POKE2004,51-ME:RETURN
  30. 405 ZE=1:SP=23:GOSUB11050:PRINTME$(ME,1):FORS1=2TO18
  31. 406 ZE=S1+3:SP=5:GOSUB11050:PRINTME$(ME,S1):NEXTS1:RETURN
  32. 1005 GOSUB2610
  33. 1135 POKE247,C4:POKE248,C3:ZE=C2:SP=C1:GOSUB11050:PRINT;
  34. 1140 POKE199,RS:SYS52582:EG=PEEK(2):GOSUB11035
  35. 1170 IFEG=8THENGOSUB2505:HP=2:GOSUB9500:GOSUB2610:GOTO1135
  36. 1172 IFEG=141THENGOSUB2710:UG=1:RETURN
  37. 1178 FORS1=1TOFM:IFEG<>FC%(S1)THENNEXTS1:GOTO1140
  38. 1182 IFS1>10THENS1=S1-10:GOTO1186
  39. 1183 ONS1GOSUB9985,9990,9996,10341,10363,1385,1400,1414,10570,10584:GOTO1135
  40. 1186 ONS1GOSUB10610,10623,10657,10746,1430,1454,1692,10544,1492:GOTO1135
  41. 1385 FF=F1%(PG):GOSUB11170:F1%(PG)=FF:RETURN
  42. 1400 FF=F2%(PG):GOSUB11200:F2%(PG)=FF:RETURN
  43. 1414 FF=F3%(PG):GOSUB11230:F3%(PG)=FF:RETURN
  44. 1430 IFPG=5THENRETURN
  45. 1438 GOSUB2505:PG=PG+1:GOTO1465
  46. 1454 IFPG=1THENRETURN
  47. 1462 GOSUB2505:PG=PG-1
  48. 1465 GOSUB2526:C4=1:C3=0:C1=0:C2=1:RETURN
  49. 1492 ZE=0:SP=0:GOSUB11050:PRINTKS$(6):GOSUB11050:PRINTKS$(5)
  50. 1495 P=2:RV=1:GZ=2:SP=36:ZE=0:GOSUB11303:H=VAL(EG$):IFH<1ORH>5THEN1530
  51. 1525 GOSUB2505:PG=H:GOSUB2526:C4=1:C3=0:C1=0:C2=1
  52. 1530 ZE=0:SP=0:GOSUB11050:PRINTKS$(1):RETURN
  53. 1692 E=BA(2)+CP:IFE>51052THENRETURN
  54. 1693 ZE=0:SP=0:GOSUB11050:PRINTKS$(8):Z=1:EG$=""
  55. 1694 POKE650,128:POKEE,60:POKEE+1,20:POKEE+2,62:GOTO1715
  56. 1698 GOSUB11455
  57. 1702 IF(EG=29ANDE+Z<>51053)THENPOKEE+1+Z,102:Z=Z+1:POKEE+1+Z,62:GOTO1715
  58. 1704 IFEG=157ANDZ<>1THENPOKEE+1+Z,32:Z=Z-1:POKEE+1+Z,62:GOTO1715
  59. 1706 IFEG=13THEN1720
  60. 1708 IFEG=68AND(E<51041ANDZ<14)THENGOSUB1740:GOTO1720
  61. 1711 IF(EG=69OREG=83)OR(EG=84OREG=78)THENPOKEE+1,EG-64:GOTO1698
  62. 1712 GOTO1698
  63. 1715 ZE=0:SP=34:GOSUB11050:PRINTKS$(114)Z:GOTO1698
  64. 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
  65. 1728 ZE=0:SP=0:GOSUB11050:PRINTKS$(1):RETURN
  66. 1740 POKEE,60:POKEE+1,4:FORS1=2TO13:POKEE+S1,102:NEXTS1:POKEE+14,62:Z=13:RETURN
  67. 2505 GOSUB11243:GR=142:IFPEEK(53272)=27THENGR=14
  68. 2514 RETURN
  69. 2526 GOSUB10610:IFPG=1THENPOKEBA(2)+887,173:POKEBA(2)+888,173:GOTO2534
  70. 2531 POKEBA(2)+887,176:POKEBA(2)+888,175+PG
  71. 2533 IFPG=5THENPOKEBA(2)+917,173:POKEBA(2)+918,173:GOTO2539
  72. 2534 POKEBA(2)+917,176:POKEBA(2)+918,177+PG
  73. 2539 FF=F3%(PG):GOSUB11235:GOSUB11239:POKE53280,F1%(PG):POKE53281,F2%(PG)
  74. 2541 FS%(PG)=1:RETURN
  75. 2610 GOSUB11022:C4=1:C3=0:C1=0:C2=1
  76. 2615 BR%(1)=24:BR%(2)=0:BR%(3)=196:GOSUB11260:PRINTCHR$(9)CHR$(GR)
  77. 2620 POKE781,4:SYS PT:GOSUB2526:GOSUB11028:RETURN
  78. 2710 GOSUB2505:GOSUB11022:BR%(1)=21:BR%(2)=3:BR%(3)=4:GOSUB11260:RETURN
  79. 3012 GOSUB3315
  80. 3049 SM=2:RV=0
  81. 3050 ZE=4:SP=38:GOSUB11050:PRINT;:SYS51682:EG=PEEK(2)
  82. 3056 IFEG=8THEN HP=1:GOSUB9500:GOSUB3315:GOTO3049
  83. 3057 IFEG=141THENUG=1:ZA=0:RETURN
  84. 3066 IFEG=144THENFF=ZF%(1):GOSUB11170:ZF%(1)=FF:GOTO3050
  85. 3067 IFEG=5THENFF=ZF%(2):GOSUB11200:ZF%(2)=FF:GOTO3050
  86. 3068 IFEG=28THENFF=ZF%(3):GOSUB11230:ZF%(3)=FF:GOTO3050
  87. 3072 GOSUB3840:IFUD=1THENUD=0:GOTO3050
  88. 3073 E=5:GOSUB 3805:IFUD=1THENUD=0:GOTO3050
  89. 3080 GOSUB3850:ZE=19:SP=0:GOSUB11050:PRINTL$L$L$L$C$C$:EG$=STR$(EG)
  90. 3082 IFLEN(EG$)<4THEN EG$=" "+EG$:GOTO3082
  91. 3086 ZE=6:SP=29:GOSUB11050:PRINTEG$
  92. 3105 GOSUB3864
  93. 3120 SP=29:FORS2=0TO7:Z=PEEK(50176+S2):Z$="":K=0
  94. 3125 Z=Z/2:H$=".":IFZ<>INT(Z)THENH$=CHR$(18)+" "+CHR$(146):K=K+2
  95. 3127 Z=INT(Z):Z$=H$+Z$:IFZ>0THEN3125
  96. 3130 IFLEN(Z$)-K<8THENZ$="."+Z$:GOTO3130
  97. 3135 ZE=10+S2:GOSUB11050:PRINTZ$:NEXTS2
  98. 3150 K=0:ZE=10:SP=29:GOSUB11050:PRINT;:POKE650,64
  99. 3155 SYS51682:EG=PEEK(2):H=K
  100. 3169 IFEG=141THENUG=1:ZA=0:POKE650,128:RETURN
  101. 3170 IFEG=19THEN3150
  102. 3171 IFEG=29THENK=K+1:GOTO3183
  103. 3172 IFEG=157THENK=K-1:GOTO3183
  104. 3174 IFEG=17THENK=K+40:GOTO3183
  105. 3175 IFEG=145THENK=K-40:GOTO3183
  106. 3177 IFEG=133THENPOKE1453+K,160:K=K+1:EG=29:GOTO3183
  107. 3178 IFEG=134THENPOKE1453+K,46:K=K+1:EG=29:GOTO3183
  108. 3179 IFEG=135THENGOSUB3394:GOTO3150
  109. 3181 IFEG=136THENPOKE 650,128:GOTO 3200
  110. 3182 GOTO3155
  111. 3183 IFK<0ORK>287THENK=H:GOTO3155
  112. 3184 FORS1=0TO7:IFK=S1*40-1THEN K=K-32:PRINTKS$(81);:GOTO3155
  113. 3186 IFK=S1*40+8THENK=K+32:PRINTKS$(80);:GOTO3155
  114. 3187 NEXTS1:PRINTCHR$(EG);:GOTO3155
  115. 3200 ZE=20:SP=9:GOSUB11050:PRINTKS$(47)
  116. 3202 FORS1=0TO7:Z=0:FORS2=0TO7:K=1453+S1*40+S2:H=PEEK(K)
  117. 3205 IFH=160THENZ=Z+2^(7-S2)
  118. 3215 NEXTS2:POKEP1+S1,Z:NEXTS1
  119. 3250 E=20:K=30:GOSUB3872:IFUG=1THENRETURN
  120. 3255 GOSUB3322:GOTO3049
  121. 3315 A1=9:A2=10:GOSUB11465:GOSUB11485:ZE=4:SP=0:GOSUB11050:PRINT;
  122. 3320 PRINTKS$(12):FF=ZF%(3):GOSUB11235:POKE53280,ZF%(1):POKE53281,ZF%(2):EG$=""
  123. 3322 GOSUB3835:ZE=6:SP=2:GOSUB11050:PRINTKS$(14):PRINTKS$(16)
  124. 3324 FORS1=17TO26:PRINTKS$(S1):NEXTS1:UD=0:GOSUB11028:RETURN
  125. 3394 FORS1=0TO7:ZE=10+S1:SP=29:GOSUB11050:PRINTKS$(35):NEXTS1:RETURN
  126. 3512 GOSUB3895
  127. 3560 ZE=5:SP=1:GOSUB11050:PRINTKS$(50):ZE=7:SP=1:GOSUB11050:PRINTKS$(51)
  128. 3562 SM=2:RV=0:UD=0:GOSUB11028:GOSUB11455
  129. 3569 IFEG=8THENHP=1:GOSUB9500:GOSUB3895:GOTO3560
  130. 3570 IFEG=141THENUG=1:RETURN
  131. 3575 IFEG=144THENFF=TA%(1):GOSUB11170:TA%(1)=FF:GOTO3560
  132. 3580 IFEG=5THENFF=TA%(2):GOSUB11200:TA%(2)=FF:GOTO3560
  133. 3585 IFEG=28THENFF=TA%(3):GOSUB11230:TA%(3)=FF:GOTO3560
  134. 3590 IFEG=133THENGOSUB3655:GOTO3610
  135. 3595 IFEG=134THENGOSUB3735:GOTO3610
  136. 3600 GOTO3560
  137. 3610 IFUD=1THENUD=0:UG=1:RETURN
  138. 3611 ZE=5:SP=0:GOSUB11050:PRINTL$:ZE=7:GOSUB11050:PRINTL$:ZE=9:GOSUB11050:PRINTL$
  139. 3613 E=10:K=57:GOSUB3872:IFUG=1THENRETURN
  140. 3615 GOTO3560
  141. 3655 GOSUB11023:GOSUB3907:ZE=5:SP=9:GOSUB11050:PRINTKS$(52)
  142. 3656 ZE=7:SP=9:GOSUB11050:PRINTKS$(53):GOSUB3835:GOSUB11028
  143. 3658 ZE=7:SP=30:GOSUB11050:PRINT;:SYS51682:EG=PEEK(2)
  144. 3666 IFEG=8THENHP=1:GOSUB9500:GOSUB3895:GOTO3655
  145. 3667 IFEG=141THENUD=1:RETURN
  146. 3669 GOSUB3840:IFUD=1THENUD=0:GOTO3658
  147. 3670 E=9:GOSUB3805:IFUD=1THENUD=0:GOTO3658
  148. 3675 GOSUB3850:P2=57344+8*EG
  149. 3680 ZE=5:SP=0:GOSUB11050:PRINTL$:ZE=7:GOSUB11050:PRINTL$
  150. 3682 ZE=5:SP=2:GOSUB11050:PRINTKS$(54):ZE=7:GOSUB11050:PRINTKS$(55):ZE=9:GOSUB11050:PRINTKS$(56)
  151. 3687 ZE=9:SP=29:GOSUB11050:PRINT;:SYS51682:EG=PEEK(2)
  152. 3705 IFEG=141THENUD=1:RETURN
  153. 3710 GOSUB3840:IFUD=1THENUD=0:GOTO3687
  154. 3715 E=11:GOSUB3805:IFUD=1THENUD=0:GOTO3687
  155. 3720 GOSUB3850:GOSUB3864:FORS1=0TO7:POKEP2+S1,PEEK(50176+S1):NEXTS1:RETURN
  156. 3735 GOSUB11023:GOSUB3907
  157. 3740 ZE=5:SP=4:GOSUB11050:PRINTKS$(58):ZE=7:GOSUB11050:PRINTKS$(59):GOSUB3835:GOSUB11028
  158. 3745 ZE=7:SP=34:GOSUB11050:PRINT;:SYS51682:EG=PEEK(2)
  159. 3759 IFEG=8THENHP=1:GOSUB9500:GOSUB3895:GOTO3735
  160. 3760 IFEG=141THENUD=1:RETURN
  161. 3762 GOSUB3840:IFUD=1THENUD=0:GOTO3745
  162. 3764 E=9:GOSUB3805:IFUD=1THENUD=0:GOTO3745
  163. 3766 GOSUB3850:GOSUB3864:P2=P1:FORS1=0TO7:P2(S1)=PEEK(50176+S1):NEXTS1
  164. 3774 GOSUB11455:IFEG=141THENUD=1:RETURN
  165. 3776 GOSUB3840:IFUD=1THENUD=0:GOTO3745
  166. 3778 E=9:GOSUB3805:IFUD=1THENUD=0:GOTO3745
  167. 3780 GOSUB3850:GOSUB3864
  168. 3782 FORS1=0TO7:POKEP2+S1,PEEK(50176+S1):POKEP1+S1,P2(S1):NEXTS1:RETURN
  169. 3805 IF(EG=45OREG=60)OR(EG=62OREG=166)OREG=221THEN3820
  170. 3810 IFEG<32OR(EG>127ANDEG<160)THEN3820
  171. 3811 RETURN
  172. 3820 ZE=E:SP=5:GOSUB11050:PRINTKS$(32):POKE2,1:SYS51833:GOSUB11050:PRINTKS$(33):UD=1:RETURN
  173. 3835 ZE=19:SP=0:GOSUB11050:PRINTKS$(38)KS$(36)KS$(37)KS$(13):RETURN
  174. 3840 IFEG=137THENSP=3:E=39:SM=2:GOTO3846
  175. 3842 IFEG=138THENSP=3:E=41:SM=1:GOTO3846
  176. 3843 IFEG=139THENSP=25:E=43:RV=0:GOTO3846
  177. 3844 IFEG=140THENSP=25:E=45:RV=1:GOTO3846
  178. 3845 RETURN
  179. 3846 ZE=20:GOSUB11050:PRINTKS$(E):ZE=21:GOSUB11050:PRINTKS$(E+1):UD=1:RETURN
  180. 3850 EG=EG-161-33*(EG<255)-64*(EG<192)-32*(EG<160)+32*(EG<96)-64*(EG<64)
  181. 3854 IFSM=2THENEG=EG+256
  182. 3856 IFRV=1THENEG=EG+128
  183. 3858 RETURN
  184. 3864 P1=57344+8*EG:HB(1)=INT(P1/256):LB(1)=P1-256*HB(1):LB(2)=LB(1)+7
  185. 3865 HB(2)=HB(1)
  186. 3866 IFLB(2)>255THENLB(2)=255:HB(2)=HB(2)+1
  187. 3867 LB(3)=0:HB(3)=196:AW=1:GOSUB11760:RETURN
  188. 3872 ZE=19:SP=0:GOSUB11050:PRINTL$L$L$L$C$C$:ZE=E:SP=4:GOSUB11050:PRINTKS$(K)KS$(31)
  189. 3880 ZE=E+1:SP=26:GOSUB11050:PRINT;:GOSUB11445:IF EG=78 THEN ZA=0:UG=1:RETURN
  190. 3882 GOSUB11023:FORS1=0TO1:ZE=E+S1:SP=0:GOSUB11050:PRINTL$:NEXTS1:RETURN
  191. 3895 A1=48:A2=49:GOSUB11465:GOSUB11485:FF=TA%(3):GOSUB11235
  192. 3896 POKE53280,TA%(1):POKE53281,TA%(2):EG$="":RETURN
  193. 3907 ZE=5:SP=0:GOSUB11050:PRINTL$:ZE=7:GOSUB11050:PRINTL$:RETURN
  194. 4000 A1=122:A2=123:GOSUB11465:IFFS%(1)=1THEN4007
  195. 4002 ZE=9:SP=5:GOSUB11050:PRINTKS$(101):ZE=11:SP=13:GOSUB11050:PRINTKS$(102)
  196. 4003 GOSUB11027:POKE2,2:SYS51833:PG=1:UG=1:RETURN
  197. 4007 ZE=10:SP=1:GOSUB11050:PRINTKS$(124)CHR$(17)KS$(125):GOSUB11485:GOSUB11027
  198. 4015 AF=0:DL=0:FV=0:S=0:N=0:E=0:ES=0:EF=0:S3=0:S5=0
  199. 4017 FORSE=5TO1STEP-1:IFFS%(SE)=0THENNEXTSE
  200. 4020 FORPG=1TOSE:POKE251,40:POKE252,196:S2=0:GOSUB11239
  201. 4025 SYS40149:IFPEEK(252)=0THEN4050
  202. 4026 IFES=0THENES=PG
  203. 4027 AF=AF+1:S2=S2+1:IFAF>AMTHENA1=128:A2=4:GOSUB4435:GOSUB4476:RETURN
  204. 4030 FV=1:FORS1=1TO2:FD(AF,S1)=PEEK(249+2*S1)+256*PEEK(250+2*S1):NEXTS1
  205. 4034 E=FD(AF,2)-FD(AF,1)-1:DL=DL+E:IFE<5 THEN4039
  206. 4035 H$=RIGHT$(STR$(AF),LEN(STR$(AF))-1)
  207. 4037 IFLEN(H$)<3THENH$=CHR$(102)+H$:GOTO4037
  208. 4038 FORS1=1TO3:POKEFD(AF,2)-4+S1,ASC(MID$(H$,S1,1)):NEXTS1
  209. 4039 Z=PEEK(FD(AF,1)+1):IFZ=19THENFA%(AF)=19:S=S+1:SF=PG:NS=AF:GOTO4045
  210. 4040 IFZ=14THENFA%(AF)=14:N=N+1:FO%(N)=AF:GOTO4045
  211. 4042 IFZ=4THENFA%(AF)=4:GOTO4045
  212. 4043 IFZ=5THEN FA%(AF)=5:EF=EF+1:RO%(EF)=AF:N=N+1:FO%(N)=AF:GOTO4045
  213. 4044 FA%(AF)=20
  214. 4045 IFFD(AF,2)<>51055THENPOKE251,PEEK(253):POKE252,PEEK(254):GOTO4025
  215. 4050 AF%(PG)=S2:GOSUB11243:NEXTPG
  216. 4052 IFFV=0THENA1=127:A2=4:GOSUB4435:RETURN
  217. 4055 IFS=0THENA1=137:A2=2:GOSUB4435:GOSUB4476:RETURN
  218. 4056 IFS>1THENA1=143:A2=3:GOSUB4435:GOSUB4476:RETURN
  219. 4057 IFEF>15THENA1=147:A2=4:GOSUB4435:GOSUB4476:RETURN
  220. 4058 IFN=0ANDEF=0THEN4157
  221. 4062 POKE53280,0:GOSUB11023:BR%(1)=24:BR%(2)=0:BR%(3)=196:GOSUB11260
  222. 4070 PRINTCHR$(147)CHR$(9)CHR$(GR)CHR$(8):ZE=0:SP=0:GOSUB11050:PRINTKS$(130):GOSUB4470
  223. 4071 S2=0
  224. 4072 FORPG=1TOSE:IFAF%(PG)=0THENNEXTPG:GOTO4100
  225. 4073 GOSUB4488:GOSUB11028
  226. 4075 FORS1=1TOAF%(PG):S2=S2+1:IFFA%(S2)<>14 AND FA%(S2)<>5 THEN NEXTS1:GOTO4095
  227. 4076 S3=S3+1:S6$=KS$(100)+KS$(29):EG$=FO$(S3)
  228. 4077 IFLEN(EG$)=3THENEG$=" "+EG$
  229. 4078 IFVAL(RIGHT$(EG$,2))=0THENAG$=LEFT$(S6$,VAL(LEFT$(EG$,2))):GOTO4080
  230. 4079 AG$=LEFT$(S6$,VAL(LEFT$(EG$,2)))+"."+RIGHT$(S6$,VAL(RIGHT$(EG$,2)))
  231. 4080 GOSUB4443:GOSUB4470:IFUG=1THENGOSUB4475:GOSUB4420:RETURN
  232. 4083 S7=LEN(EG$):IFS7>80THENS7=80
  233. 4085 FORS6=1TOS7
  234. 4087 IFMID$(EG$,S6,1)<>"."THENNEXTS6:FO$(S3)=RIGHT$(STR$(S7),2)+" 0":GOTO4093
  235. 4088 FO$(S3)=RIGHT$(STR$(S6-1),2)+RIGHT$(STR$(S7-S6),2)
  236. 4093 NEXTS1:IFUN=1THENUN=0:GOSUB11243
  237. 4095 NEXTPG
  238. 4100 IFEF=0THEN4135
  239. 4105 POKE53280,0:GOSUB11023:ZE=0:SP=0:GOSUB11050:PRINTKS$(131):GOSUB4470:S2=0:GZ=72
  240. 4110 SY=0:FORPG=1TOSE:IFAF%(PG)=0THENNEXTPG:GOTO4135
  241. 4112 GOSUB4488:GOSUB11028
  242. 4114 IFSY<>0THEN4120
  243. 4115 ZE=22:SP=0:GOSUB11050:PRINTKS$(146);:GOSUB11445:ZE=22:SP=0:GOSUB11050:PRINTKS$(6)C$C$
  244. 4116 SY=1:IFEG=74THENSY=2
  245. 4120 FORS1=1TOAF%(PG):S2=S2+1:IFFA%(S2)<>5THENNEXTS1:GOTO4133
  246. 4121 S5=S5+1
  247. 4122 AG$=RO$(S5):GOSUB4444:IFUG=1THENGOSUB4475:GOSUB4420:RETURN
  248. 4123 GOSUB4405:RO$(S5)=EG$:IFSY=1THEN4132
  249. 4124 S7=0:S8=0:FORS6=1TOLEN(EG$):S6$=MID$(EG$,S6,1)
  250. 4125 ZE=0:SP=0:GOSUB11050:PRINTKS$(27):IF S6$="(" THEN S7=S7+1
  251. 4126 IFS6$=")"THENS7=S7-1:IFS7<0THENGOSUB4382:GOTO4122
  252. 4127 S8=0:IF(S6$="+"ORS6$="-")OR(S6$="*"ORS6$="/")ORS6$="^"THEN S8=1
  253. 4128 IFS6>1THENIFMID$(EG$,S6-1,1)="("ANDS8=1THENGOSUB4382:GOTO4122
  254. 4130 NEXTS6
  255. 4131 IFS7>0THENGOSUB4382:GOTO4122
  256. 4132 GOSUB4470:ZE=0:SP=0:GOSUB11050:PRINTKS$(131):NEXTS1:IF UN=1THENUN=0:GOSUB11243
  257. 4133 NEXTPG
  258. 4135 GOSUB11022:GOSUB4420:GOSUB4425
  259. 4140 FF=MF%(3):GOSUB11235
  260. 4156 A1=122:A2=123:GOSUB11465:GOSUB11485:PRINTCHR$(14)CHR$(8)C$:ZG=0
  261. 4157 GOSUB4425:ZE=19:SP=0:GOSUB11050:PRINTKS$(79)CHR$(17)KS$(79):GOSUB11027
  262. 4160 DP=0:OPEN1,8,2,"DAT-DIR,S,R":GOSUB11322:IFFE=0THEN4167
  263. 4165 DP=1:AD=1:GOTO4168
  264. 4167 INPUT#1,AD:FORS1=1TOAD:INPUT#1,DD$(S1),SN%(S1),DS%(S1):NEXTS1
  265. 4168 CLOSE1
  266. 4211 DU=0:ZE=5:SP=0:GOSUB11050:PRINTKS$(126);:SP=22:GZ=14:RV=0:P=1
  267. 4212 GOSUB11303:IFEG=141THENUG=1:GOSUB4476:RETURN
  268. 4216 FORS1=1TOAD:IFDD$(S1)<>EG$THENNEXTS1:GOTO4219
  269. 4217 ZE=20:SP=2:GOSUB11050:PRINTKS$(136);:GOSUB 11445:GOSUB6601:IFEG=78THEN4211
  270. 4218 DU=S1
  271. 4219 I$=EG$:DA$=I$
  272. 4220 ZE=7:SP=3:GOSUB11050:PRINTKS$(103)KS$(104)KS$(105);
  273. 4221 GOSUB11445:IFEG=74THENZG=1:ZG$=DA$:PRINTCHR$(74):GOTO4230
  274. 4222 FORZE=7TO9:SP=0:GOSUB11050:PRINTL$C$:NEXTZE:ZE=7:SP=2:GOSUB11050:PRINTKS$(132)KS$(133);
  275. 4224 GOSUB11445:PRINTCHR$(EG):IFEG=78THENZG$="K":GOTO4230
  276. 4226 ZE=10:SP=8:GOSUB11050:PRINTKS$(121):SP=16:GOSUB11303
  277. 4227 IFEG=141THENUG=1:GOSUB4476:GOSUB6625:RETURN
  278. 4228 I$=EG$:IFI$=""THENZG$="K":GOTO4230
  279. 4229 ZG$=I$
  280. 4230 ZE=13:SP=0:GOSUB11050:PRINTKS$(134)KS$(135);:SP=31:ZE=14:GZ=2:GOSUB11303
  281. 4232 IFEG=141THENUG=1:GOSUB4476:RETURN
  282. 4235 AS=VAL(EG$):IFAS<1ORAS>30THEN4230
  283. 4247 UG=0:GOSUB4476:AG$=KS$(99)+DA$:ZE=20:GOSUB11585:I$=DA$+".D"
  284. 4248 IFDU<>0THENOPEN1,8,15,"S:"+I$:CLOSE1
  285. 4249 OPEN1,8,2,I$+",S,W"
  286. 4250 PRINT#1,CB,R$,DL,R$,SF,R$,NS,R$,ES,R$,AF:FORS1=1TOAF
  287. 4252 FD(S1,1)=FD(S1,1)+1:FD(S1,2)=FD(S1,2)-FD(S1,1)
  288. 4253 IFFD(S1,2)>LFTHENLF=FD(S1,2)
  289. 4254 PRINT#1,FD(S1,1)R$FD(S1,2):NEXTS1:LF=INT(LF/255)+1:PRINT#1,LF
  290. 4255 FORS1=1TOAF:PRINT#1,FA%(S1):NEXTS1
  291. 4260 PRINT#1,SE:FORS1=1TOSE:PRINT#1,AF%(S1):NEXTS1
  292. 4265 PRINT#1,S3:IFS3=0THEN4270
  293. 4267 FORS1=1TOS3:PRINT#1,FO%(S1)R$FO$(S1):NEXTS1
  294. 4270 PRINT#1,S5:IFS5=0THEN4275
  295. 4272 FORS1=1TOS5:PRINT#1,RO%(S1)R$RO$(S1):NEXTS1
  296. 4275 PRINT#1,ZG$R$,AS,R$,GR:FORS1=1TOSE:PRINT#1,F1%(S1)R$F2%(S1)R$F3%(S1)
  297. 4280 NEXTS1:CLOSE1
  298. 4285 I$=DA$+".E":IFDU<>0THENOPEN1,8,15,"S:"+I$:CLOSE1
  299. 4289 LB(1)=0:HB(1)=160:LB(2)=AP%(SE,3)+1:HB(2)=AP%(SE,4):QX$=I$:GOSUB11810
  300. 4297 IFDU<>0THENSN%(DU)=SE:GOTO4345
  301. 4300 I$=DA$+".I":OPEN1,8,2,I$+",S,W"
  302. 4302 AT=0:MT=INT(2219/(AS+3)):PRINT#1,AT,R$,MT:CLOSE 1
  303. 4342 IFDP=0THENAD=AD+1
  304. 4343 DD$(AD)=DA$:SN%(AD)=SE:DS%(AD)=0
  305. 4345 I$="DAT-DIR":IFDP=1THEN4348
  306. 4346 OPEN1,8,15,"S:"+I$:CLOSE1
  307. 4348 OPEN1,8,2,I$+",S,W":PRINT#1,AD
  308. 4349 FORS1=1TOAD:PRINT#1,DD$(S1)R$SN%(S1)R$DS%(S1):NEXTS1:CLOSE1
  309. 4351 I$=DA$+".Z":IFDU<>0THENOPEN1,8,15,"S:"+I$:CLOSE1
  310. 4352 IFZG=0THEN4358
  311. 4353 LB(1)=0:HB(1)=224:LB(2)=0:HB(2)=240:LB(3)=0:HB(3)=160:AW=1:GOSUB11760
  312. 4356 LB(1)=0:HB(1)=160:LB(2)=0:HB(2)=176:QX$=I$:GOSUB11810:GOSUB6635
  313. 4357 P=SE:SE=1:GOSUB6605:SE=P
  314. 4358 AG$=KS$(138):ZE=20:GOSUB11585:I$=DA$+".E":GOSUB6650:UG=1:RETURN
  315. 4382 ZE=0:SP=0:GOSUB11050:PRINTKS$(28):POKE2,1:SYS51833:GOSUB11050:PRINTKS$(131):RETURN
  316. 4405 FORS6=LEN(EG$)TO1STEP-1:IFMID$(EG$,S6,1)=CHR$(32)THENNEXTS6
  317. 4410 EG$=LEFT$(EG$,S6):RETURN
  318. 4420 GOSUB11023:BR%(1)=21:BR%(2)=3:BR%(3)=4:GOSUB11260:RETURN
  319. 4425 ZE=10:SP=0:GOSUB11050:PRINTL$:ZE=12:SP=0:GOSUB11050:PRINTL$:RETURN
  320. 4435 GOSUB4425:ZE=10:SP=A2:GOSUB11050:PRINTKS$(A1):POKE2,2:SYS51833:UG=1:PG=1:RETURN
  321. 4443 GZ=FD(S2,2)-FD(S2,1)-1:IFGZ>80THENGZ=80
  322. 4444 S4=PG:POKEFD(S2,1),188:POKEFD(S2,2),190:ZE=22:SP=0:GOSUB11050:PRINTCHR$(18)AG$C$C$
  323. 4446 ZE=22:SP=0:GOSUB11050:PRINT;:GOSUB6920:EG=PEEK(2)
  324. 4448 IFEG=13THEN4460
  325. 4449 IFEG=141THENUG=1:GOTO4463
  326. 4451 IFEG=135ANDPG<SETHENGOSUB11243:PG=PG+1:GOSUB4488:UN=1:GOTO4446
  327. 4452 IFEG=136ANDPG>1THENGOSUB11243:PG=PG-1:GOSUB4488:UN=1:GOTO4446
  328. 4453 GOTO4446
  329. 4460 POKE253,112:POKE254,199:POKE2,GZ:POKE69,69:POKE70,199:SYS52493
  330. 4463 IFUN=1THENPG=S4:GOSUB11239
  331. 4464 POKEFD(S2,1),60:POKEFD(S2,2),62:GOSUB11243
  332. 4466 POKE199,0:RETURN
  333. 4470 ZE=22:SP=0:GOSUB11050:PRINTKS$(6)KS$(6)C$C$:RETURN
  334. 4475 GOSUB11022
  335. 4476 S1=0:S4=1:FORPG=1TOSE:IFAF%(PG)=0THEN NEXTPG:GOTO4482
  336. 4477 GOSUB11239:FORS1=S4TOS4+AF%(PG)-1:IFFD(S1,2)-FD(S1,1)<6THEN4479
  337. 4478 FORS2=1TO3:POKEFD(S1,2)-4+S2,102:NEXTS2
  338. 4479 IFUG=0THENPOKEFD(S1,1)+1,102
  339. 4480 NEXTS1:GOSUB11243:S4=S4+AF%(PG):NEXTPG
  340. 4482 PG=1:RETURN
  341. 4488 GOSUB10610:FF=F3%(PG):GOSUB11235:GOSUB11239
  342. 4489 POKE53280,F1%(PG):POKE53281,F2%(PG):RETURN
  343. 4510 PRINTCHR$(147)CHR$(142)CHR$(8):POKE53280,0:POKE53281,0
  344. 4515 POKE211,0:POKE214,10:SYS58640
  345. 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]"
  346. 4525 PRINT"[145][165]                                      [146][167]"
  347. 4530 PRINT"[145][165]>>>>>>> EINEN MOMENT BITTE !!! <<<<<<<[146][167]"
  348. 4535 PRINT"[145][165]                                      [146][167]"
  349. 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]"
  350. 4550 RETURN
  351. 4730 DIMMF%(3),LB(3),HB(3),ME$(2,18),AP%(5,4),KS$(147),F1%(5),F2%(5),F3%(5)
  352. 4735 DIMFC%(19),BA(2),FS%(5),ZF%(3),TA%(3),P2(7),PH(2),HP%(2,4),BR%(3),RO%(15)
  353. 4740 AM=75:DIM FD(AM,2),FA%(AM),FO%(AM/2),FO$(AM/2),RO$(15),DD$(15),SN%(15)
  354. 4742 DIM AF%(10),P1(4),DS%(15)
  355. 4810 BA(1)=1024:BA(2)=50176:GR=142:PG=1:RS=0:HP=0:PT=40248
  356. 4835 FORS1=1TO5:F1%(S1)=0:F2%(S1)=0:F3%(S1)=5:NEXTS1:MF%(1)=0:MF%(2)=0:MF%(3)=5
  357. 4841 ZF%(1)=0:ZF%(2)=0:ZF%(3)=5:TA%(1)=0:TA%(2)=0:TA%(3)=5
  358. 4860 CB=51:POKE 56325,CB:POKE 650,128:OPEN15,8,15:TI$="000000"
  359. 4861 L$="                                        ":C$=CHR$(145):R$=CHR$(13)
  360. 4960 LB(1)=0:HB(1)=160:LB(2)=103:HB(2)=176:AW=32:GOSUB11710:SE=1:GOSUB6605
  361. 5005 LB(1)=0:HB(1)=240:LB(2)=153:HB(2)=246:AW=32:GOSUB11710
  362. 5027 LB(1)=0:HB(1)=208:LB(2)=255:HB(2)=223:LB(3)=0:HB(3)=224:AW=3:GOSUB11760
  363. 5040 P1(1)=58160:P1(3)=59184:P1(2)=60208:P1(4)=61232
  364. 5042 FORS2=1TO2:P1=P1(S2):FORS1=P1TOP1+6:POKES1,0:NEXTS1:POKEP1+7,24:NEXTS2
  365. 5043 FORS2=3TO4:P1=P1(S2):FORS1=P1TOP1+6:POKES1,255:NEXTS1:POKEP1+7,231:NEXTS2
  366. 5110 READ SZ
  367. 5115 FORS1=1TOSZ:READSC:FORS2=1TOSC:README$(S1,S2):NEXTS2:NEXTS1
  368. 5131 FORS1=1TO5:FORS2=1TO4:READAP%(S1,S2):NEXTS2:NEXTS1
  369. 5135 FORS1=1TO2:FORS2=1TO4:READHP%(S1,S2):NEXTS2:NEXTS1:PH(1)=52566:PH(2)=52570
  370. 5141 READFM:FORS1=1TOFM:READFC%(S1):NEXTS1
  371. 5144 READSZ:FORS1=1TOSZ:READKS$(S1):NEXTS1
  372. 5146 RETURN
  373. 5149 DATA2
  374. 5152 DATA18,"DATEI ENTWICKELN"
  375. 5154 DATA"[164][164][164][164]","[165]F1[167] : BILDSCHIRMMASKE ENTWERFEN","[163][163][163][163]"
  376. 5156 DATA"[164][164][164][164]","[165]F3[167] : ZEICHENSATZ AENDERN","[163][163][163][163]"
  377. 5158 DATA"[164][164][164][164]","[165]F5[167] : TASTATURBELEGUNG AENDERN","[163][163][163][163]"
  378. 5159 DATA"----------------------------------"
  379. 5160 DATA"[164][164][164][164]","[165]F7[167] : --- DATEI EINRICHTEN ------","[163][163][163][163]"
  380. 5162 DATA"----------------------------------"
  381. 5164 DATA"[164][164][164][164]","[165]F8[167] : PROGRAMM BEENDEN","[163][163][163][163]"
  382. 5166 :
  383. 5168 DATA17,"SONDERFUNKTIONEN"
  384. 5170 DATA"[164][164][164][164]","[165]F1[167] : DIRECTORY AUSGEBEN","[163][163][163][163]"
  385. 5172 DATA"[164][164][164][164]","[165]F3[167] : DISK-KOMMANDO SENDEN","[163][163][163][163]"
  386. 5174 DATA"[164][164][164][164]","[165]F5[167] : DATEIMASKE ABSPEICHERN","[163][163][163][163]"
  387. 5176 DATA"[164][164][164][164]","[165]F7[167] : DATEIMASKE EINLADEN","[163][163][163][163]"
  388. 5178 DATA"----------------------------------"
  389. 5180 DATA"[164][164][164][164]","[165]F8[167] : LADEMENUE AUFRUFEN","[163][163][163][163]"
  390. 5250 DATA0,160,71,163,72,163,143,166,144,166,215,169,216,169,31,173
  391. 5252 DATA32,173,103,176
  392. 5278 DATA0,240,71,243,76,243,147,246
  393. 5282 DATA19
  394. 5284 DATA19,18,146,20,148,144,5,28,134,133,147,137,138,13,135,136,139,3,140
  395. 5350 DATA147
  396. 5352 DATA"-DATABASE 64-----------MASKENDEFINITION-[146]"
  397. 5354 DATA"100<-LANGSAMER[221]SCHNELLER->25+'RETURN'[146]"
  398. 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]"
  399. 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]"
  400. 5360 DATA"--SEITENNUMMER (1-5) ? + 'RETURN' :>  <-[146]"
  401. 5362 DATA"                                        [146]"
  402. 5364 DATA"[213]NTER WELCHEM [206]AMEN WURDE DER [218]EICHENG. "
  403. 5368 DATA "FELDENDE ? ==>'RETURN'[221]FELDLAENGE:      [146]"
  404. 5370 DATA" [196]ATABASE 64                [218]EICHENSATZ "
  405. 5372 DATA"         [218]EICHENSATZAENDERUNG:          [146]"
  406. 5374 DATA" >>>> [200]AUPTMENUE: '[211]HIFT'+'[210]ETURN' <<<<"
  407. 5376 DATA"[215]ELCHES [218]EICHEN WOLLEN [211]IE ABAENDERN ? "
  408. 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]"
  409. 5380 DATA"---- [194][211][195]-[195]ODE DES [218]EICHENS: ... ----"
  410. 5382 DATA"[196]ATEIMASKE EINLADEN:  - [198]1 -"
  411. 5384 DATA"----------------------------------------"
  412. 5386 DATA"[201]N DER NEBENSTEHENDEN        12345678"
  413. 5388 DATA"[196]ARSTELLUNG KOENNEN [211]IE     1........1"
  414. 5390 DATA"DIE [205]ATRIX DES [218]EICHENS     2........2"
  415. 5392 DATA"IN GEWUENSCHTER [215]EISE       3........3"
  416. 5394 DATA"ABAENDERN:                  4........4"
  417. 5396 DATA"                            5........5"
  418. 5398 DATA" - [198]1 : [205]ATRIXP. SETZEN   - 6........6"
  419. 5400 DATA" - [198]3 : [205]ATRIXP. LOESCHEN - 7........7"
  420. 5402 DATA" - [198]5 : [205]ATRIX LOESCHEN   - 8........8"
  421. 5404 DATA" - [198]ERTIG? : ---> '[198]7'    -  12345678"
  422. 5406 DATA" SYNTAX-KONTROLLE / EINEN MOMENT BITTE! [146]"
  423. 5408 DATA"           SYNTAX-FEHLER !!!            [146]"
  424. 5410 DATA"####################"
  425. 5412 DATA"[215]OLLEN [211]IE WEITERE [218]EICHEN AB-[146]      "
  426. 5414 DATA"          AENDERN ? (J/N)         [146]"
  427. 5416 DATA"[203]EINE [213]MDEFINITION MOEGLICH! [146]"
  428. 5418 DATA"                               "
  429. 5420 DATA"[196]ATEI EINLADEN:       - [198]3 -"
  430. 5422 DATA"........"
  431. 5424 DATA"   [199]R.-/[203]L.SCHRIFT:-[198]2- [221] [210][214][211] OFF:-[198]6- [146] "
  432. 5426 DATA"   [146][199]RAPHIKMODUS:   -[198]4- [221] [210][214][211] ON: -[198]8- [146] "
  433. 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] "
  434. 5430 DATA"[199]R.-/[203]L.SCHRIFT:-[198]2- [146]"
  435. 5432 DATA"[199]RAPHIKMODUS:   -[198]4- "
  436. 5434 DATA"[199]R.-/[203]L.SCHRIFT:-[198]2- "
  437. 5436 DATA"[199]RAPHIKMODUS:   -[198]4- [146]"
  438. 5438 DATA" [210][214][211] OFF:-[198]6-[146]"
  439. 5440 DATA" [210][214][211] ON: -[198]8-"
  440. 5442 DATA" [210][214][211] OFF:-[198]6-"
  441. 5444 DATA" [210][214][211] ON: -[198]8-[146]"
  442. 5446 DATA" [197]INEN [205]OMENT [194]ITTE ! [146]"
  443. 5448 DATA" [196]ATABASE 64                   [212]ASTATUR "
  444. 5450 DATA"      [212]ASTATURBELEGUNGSAENDERUNG:       [146]"
  445. 5452 DATA"[194]ELEGUNG EINER [212]ASTE AENDERN: - [198]1 -"
  446. 5454 DATA"[218]WEI [212]ASTEN VERTAUSCHEN:      - [198]3 -"
  447. 5456 DATA"[194]ITTE DRUECKEN [211]IE DIE"
  448. 5458 DATA"ZU AENDERNDE [212]ASTE ! "
  449. 5460 DATA"[205]IT WELCHER [194]ELEGUNG WOLLEN [211]IE DIE"
  450. 5462 DATA"[212]ASTE VERSEHEN ? ([194]ITTE DRUECKEN [211]IE"
  451. 5464 DATA"DIE ENTSPRECHENDE [212]ASTE !) "
  452. 5466 DATA"[215]OLLEN [211]IE WEITERE [212]ASTEN AB- [146]      "
  453. 5468 DATA"[194]ITTE DRUECKEN [211]IE NACHEINANDER"
  454. 5470 DATA"DIE ZU VERTAUSCHENDEN [212]ASTEN !"
  455. 5472 DATA" [196]ATABASE 64                  [196]IRECTORY "
  456. 5474 DATA"        [146]"
  457. 5476 DATA"     "
  458. 5478 DATA"     [215]EITER MIT '[211]PACE'    [146]"
  459. 5480 DATA"                            "
  460. 5482 DATA" [196]ATABASE 64             [196]ISK-[203]OMMANDOS "
  461. 5484 DATA"  [211]AEMTLICHE [196]ISK-[203]OMMANDOS KOENNEN IN  "
  462. 5486 DATA"  FOLGENDER,ABGEKUERZTER [198]ORM EINGEGE-  "
  463. 5488 DATA"  BEN WERDEN:"
  464. 5490 DATA"    K:...................._([196]ATEINAME,  "
  465. 5492 DATA"    ^                       USW.)         "
  466. 5494 DATA"  ([203]OMMANDO)"
  467. 5496 DATA"  Z.[194].: [196]ATEI UMBENENNEN:               "
  468. 5498 DATA"                   >R:NEUNAME=ALTNAME<  "
  469. 5500 DATA"        [196]ATEI LOESCHEN:                 "
  470. 5502 DATA"                   >S:DATEINAME<          "
  471. 5504 DATA"------------------------------------  "
  472. 5506 DATA"  [201]HR [203]OMMANDO? : [146] > :"
  473. 5508 DATA"<  + '[210]ETURN'        "
  474. 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]  "
  475. 5512 DATA"[157][157][157][157][157][157][157]"
  476. 5514 DATA"[145]"
  477. 5516 DATA"[211]IND [211]IE SICHER ? (J/N) "
  478. 5518 DATA"[203]OMMANDOEINGABE LOESCHEN ? (J/N) "
  479. 5520 DATA"[211]IE HABEN MIT DEM [208]ROGRAMM"
  480. 5522 DATA" [196]ATABASE 64           [208]ROGRAMM BEENDEN "
  481. 5524 DATA"[211]IND [211]IE SICHER,DASS [211]IE"
  482. 5526 DATA"DAS [208]ROGRAMM BEENDEN"
  483. 5528 DATA"WOLLEN ? (J/N) "
  484. 5530 DATA"GEARBEITET !"
  485. 5532 DATA" [211]TUNDE "
  486. 5534 DATA" [205]INUTE "
  487. 5536 DATA" [211]EKUNDE "
  488. 5538 DATA"UND "
  489. 5540 DATA"[157]N "
  490. 5542 DATA" [196]ATABASE 64                 [196]ATEIMASKE "
  491. 5544 DATA"        [196]ATEIMASKE ABSPEICHERN:         [146]"
  492. 5546 DATA"[213]NTER WELCHEM [206]AMEN SOLL DIE [196]ATEIMASKE "
  493. 5548 DATA"ABGESPEICHERT WERDEN?: >              <"
  494. 5550 DATA"SAVING : "
  495. 5552 DATA"+###########################################################"
  496. 5554 DATA"[197]S WURDE NOCH KEINE [196]ATEIMASKE"
  497. 5556 DATA"DEFINIERT !!!"
  498. 5558 DATA"[211]OLL DER (EVENTUELL) ABGEAENDERTE       "
  499. 5560 DATA"  [218]EICHENSATZ MIT ABGESPEICHERT         "
  500. 5562 DATA"        WERDEN ? (J/N) "
  501. 5564 DATA"  [215]OLLEN [211]IE MIT DER ABGEESPEICHERTEN   "
  502. 5566 DATA"  [196]ATEIMASKE WEITERARBEITEN ? (J/N) "
  503. 5568 DATA"LOADING : "
  504. 5570 DATA"[197]INLADUNG DER [196]ATEIMASKE NICHT MOEGLICH!"
  505. 5572 DATA"                                  "
  506. 5574 DATA"          [196]ATEIMASKE EINLADEN:          [146]"
  507. 5576 DATA"[213]NTER WELCHEM [206]AMEN WURDE DIE [196]ATEIMASKE"
  508. 5578 DATA"   ABGESPEICHERT ? : >              <"
  509. 5580 DATA"    [157][157][157][157]"
  510. 5582 DATA "-DATABASE 64---------------HELPSCREEN"
  511. 5584 DATA"-HS SPEICHERN/NAME ?: >              < -[146]"
  512. 5586 DATA"-HS LADEN  /  NAME ?: >              < -[146]"
  513. 5588 DATA"HELPSCREENS VERTAUSCHEN (J/N) ? "
  514. 5590 DATA"[211]OLL EIN ANDERER [218]EICHENSATZ"
  515. 5592 DATA"EINGELADEN WERDEN ? (J/N)"
  516. 5594 DATA"[206]AME?: >              <"
  517. 5596 DATA" [196]ATABASE 64                 [213]EBERNAHME "
  518. 5598 DATA"           [196]ATEI EINRICHTEN:            [146]"
  519. 5600 DATA"--- [196]ATEIMASKE WIRD UEBERNOMMEN ! ---  "
  520. 5602 DATA"   ---   [197]INEN [205]OMENT BITTE !    ---"
  521. 5604 DATA"  [206]AME DER [196]ATEI ? : >              <"
  522. 5606 DATA"   [203]EINE [198]ELDER VORHANDEN !!!   [146]"
  523. 5608 DATA"      [218]U VIELE [198]ELDER !!!       [146]"
  524. 5610 DATA"[218]EICHENSATZ EINLADEN: - [198]5 -"
  525. 5612 DATA"   BITTE FORMAT-VORSCHRIFT EINGEBEN !   [146]"
  526. 5614 DATA"   BITTE RECHEN-VORSCHRIFT EINGEBEN !   [146]"
  527. 5616 DATA"[215]OLLEN [211]IE EINEN ANDEREN [218]EICHENSATZ "
  528. 5618 DATA"           VERWENDEN ? (J/N) "
  529. 5620 DATA"   [193]NZAHL DER RELEVANTEN [211]TELLEN DES    "
  530. 5622 DATA"     [211]CHLUESSELFELDES? (1-30) >  <"
  531. 5624 DATA"[196]ATEI EXIST.!/UEBERSCHREIBEN? (J/N)"
  532. 5626 DATA"  [203]EIN [211]CHLUESSELFELD DEFINIERT!!!  [146]"
  533. 5628 DATA"[196]ATEI IST EINGERICHTET !!!"
  534. 5630 DATA"[196]ATEIMASKE ABSPEICHERN:    - [198]1 -"
  535. 5632 DATA"[218]EICHENSATZ ABSPEICHERN:   - [198]3 -"
  536. 5634 DATA"[213]NTER WELCHEM [206]AMEN SOLL DER [218]EICHENSATZ"
  537. 5636 DATA"   [213]NTER WELCHEM [206]AMEN WURDE DIE [196]ATEI  "
  538. 5638 DATA"  [218]U [214]IELE [211]CHLUESSELFELDER !!!  [146]"
  539. 5640 DATA" [196]ATABASE 64         [204]ADEMENUE AUFRUFEN "
  540. 5642 DATA"[211]IND [211]IE SICHER ? (J/N) "
  541. 5644 DATA"SYNTAX-KONTROLLE DURCHFUEHREN ? (J/N) [146]"
  542. 5646 DATA"   [218]U VIELE [210]ECHEN-[198]ELDER !!!   [146]"
  543. 6000 A1=95:A2=96:GOSUB11465
  544. 6022 ZE=5:SP=3:GOSUB11050:PRINTKS$(139):ZE=7:SP=3:GOSUB11050:PRINTKS$(140)
  545. 6023 ZE=19:SP=0:GOSUB11050:PRINTKS$(79)CHR$(17)KS$(79):GOSUB11485:GOSUB11027
  546. 6024 GOSUB11455:IFEG=141THENUG=1:RETURN
  547. 6025 IFEG<>133ANDEG<>134THEN6024
  548. 6026 ZE=5:SP=0:GOSUB11050:PRINTL$:ZE=7:SP=0:GOSUB11050:PRINTL$:IFEG=134THEN 6170
  549. 6030 IF FS%(1)=1THEN6033
  550. 6031 ZE=9:SP=5:GOSUB11050:PRINTKS$(101):ZE=11:SP=13:GOSUB11050:PRINTKS$(102):GOSUB11027
  551. 6032 UG=1:RETURN
  552. 6033 ZE=5:SP=0:GOSUB11050:PRINTKS$(97)CHR$(17)KS$(98)
  553. 6035 SP=24:GOSUB6235:IFEG=141THENUG=1:RETURN
  554. 6038 I$=EG$:DA$=I$:A1=99:GOSUB6315:I$=DA$+".U":GOSUB6330
  555. 6060 GOSUB11322:IFFE=0THEN6073
  556. 6065 GOSUB6601:AG$=FE$:ZE=20:GOSUB11585:POKE2,2:SYS51833:GOSUB6601:SP=24:GOTO6033
  557. 6073 I$=DA$+".M"
  558. 6074 OPEN1,8,2,I$+",S,W":GOSUB11322:IFFE<>0THEN6077
  559. 6075 PRINT#1,SE:FORS1=1TOSE:PRINT#1,F1%(S1)","F2%(S1)","F3%(S1):NEXTS1
  560. 6076 PRINT#1,GR
  561. 6077 CLOSE1:GOSUB6601:AG$=FE$:ZE=20:GOSUB11585:POKE2,2:SYS51833:GOSUB6601
  562. 6081 GOSUB6601
  563. 6082 ZG=1:ZE=10:SP=3:GOSUB11050:PRINTKS$(103)CHR$(17)KS$(104)CHR$(17)KS$(105);
  564. 6085 GOSUB11445:PRINTCHR$(EG):IFEG=78THENZG=0:GOTO6115
  565. 6090 I$=DA$+".Z":A1=99:GOSUB6315:GOSUB6350
  566. 6115 ZE=16:SP=0:GOSUB11050:PRINTKS$(106)KS$(107);:GOSUB11445:PRINTCHR$(EG)
  567. 6126 IF(EG=74ANDZG=0)OR(EG=78ANDZG=1)THEN6155
  568. 6127 IFEG=78ANDZG=0THENGOSUB6635:SE=1:GOSUB6605:GOTO6155
  569. 6130 LB(1)=0:HB(1)=160:QX$=DA$+".U":GOSUB11860:GOSUB6601
  570. 6145 GOSUB11322:AG$=FE$:ZE=20:GOSUB11585:POKE2,2:SYS51833
  571. 6147 IFFE<>0THENSP=0:GOSUB11050:PRINTCHR$(18)KS$(109):POKE2,2:SYS51833
  572. 6155 PG=1:GOSUB6695:UG=1:RETURN
  573. 6170 ZE=5:SP=0:GOSUB11050:PRINTKS$(141)CHR$(17)KS$(98)
  574. 6175 SP=24:GOSUB6235:IFEG=141THENUG=1:RETURN
  575. 6177 OPEN1,8,15,"S:ZWI-SP":CLOSE1
  576. 6180 I$="ZWI-SP":GOSUB6330:I$=EG$+".Z":A1=99:GOSUB6315:GOSUB6350
  577. 6182 IFFE<>0THEN6170
  578. 6185 LB(1)=0:HB(1)=160:QX$="ZWI-SP":GOSUB11860:OPEN1,8,15,"S:ZWI-SP":CLOSE1:UG=1:RETURN
  579. 6235 ZE=7:GZ=14:RV=0:P=1:GOSUB11303:RETURN
  580. 6315 AG$=KS$(A1)+I$:ZE=20:GOSUB11585:RETURN
  581. 6330 FORSE=5TO1STEP-1:IFFS%(SE)=0THENNEXTSE
  582. 6335 LB(1)=0:HB(1)=160:LB(2)=AP%(SE,3)+1:HB(2)=AP%(SE,4):QX$=I$:GOSUB11810:RETURN
  583. 6350 LB(1)=0:HB(1)=224:LB(2)=0:HB(2)=240:LB(3)=0:HB(3)=160:AW=1:GOSUB11760
  584. 6355 LB(1)=0:HB(1)=160:LB(2)=0:HB(2)=176:QX$=I$:GOSUB11810:GOSUB6635:SE=1:GOSUB6605
  585. 6360 GOSUB6601:GOSUB11322:AG$=FE$:ZE=20:GOSUB11585:POKE2,2:SYS51833:GOSUB6601
  586. 6361 RETURN
  587. 6500 A1=95:A2=111:GOSUB11465:GOSUB11485
  588. 6516 ZE=5:SP=6:GOSUB11050:PRINTKS$(15):ZE=7:SP=6:GOSUB11050:PRINTKS$(34)
  589. 6517 ZE=9:SP=6:GOSUB11050:PRINTKS$(129)
  590. 6518 ZE=19:SP=0:GOSUB11050:PRINTKS$(79)CHR$(17)KS$(79):GOSUB11485:GOSUB11027
  591. 6519 GOSUB11455:IFEG=141THENUG=1:RETURN
  592. 6520 IFEG<>133AND(EG<>134ANDEG<>135)THEN6518
  593. 6522 ZE=5:SP=0:GOSUB11050:PRINTL$:ZE=7:GOSUB11050:PRINTL$:ZE=9:GOSUB11050:PRINTL$
  594. 6524 IFEG=134THEN6547
  595. 6526 IFEG=135THEN6574
  596. 6532 A1=112:GOSUB6590:IFUG=1THENRETURN
  597. 6536 LB(1)=0:HB(1)=160:QX$=I$+".U":GOSUB11860:GOSUB6600:IF FE<>0 THEN 6532
  598. 6537 OPEN1,8,2,I$+".M,S,R":GOSUB11322:IFFE<>0THEN6540
  599. 6539 INPUT#1,SE:FORS1=1TOSE:INPUT#1,F1%(S1),F2%(S1),F3%(S1):NEXTS1:INPUT#1,GR
  600. 6540 CLOSE1:GOSUB6582:IFFE<>0THENGOSUB6685
  601. 6541 PG=1:GOSUB6695:UG=1:RETURN
  602. 6547 A1=142:GOSUB6590:IFUG=1THENRETURN
  603. 6548 OPEN1,8,2,I$+".D,S,R"
  604. 6550 ZE=20:GOSUB6631:IFFE<>0THENCLOSE1:GOTO6547
  605. 6551 INPUT#1,CB,DL,SF,NS,ES,AF:POKE56325,CB
  606. 6552 FORS1=1TOAF:FORS2=1TO2:INPUT#1,FD(S1,S2):NEXTS2:NEXTS1
  607. 6554 INPUT#1,LF:FORS1=1TOAF:INPUT#1,FA%(S1):NEXTS1
  608. 6556 INPUT#1,SE:FORS1=1TOSE:INPUT#1,AF%(S1):NEXTS1
  609. 6558 INPUT#1,S3:IFS3=0THEN6562
  610. 6560 FORS1=1TOS3:INPUT#1,FO%(S1),FO$(S1):NEXTS1
  611. 6562 INPUT#1,S5:IFS5=0THEN6564
  612. 6563 FORS1=1TOS5:INPUT#1,RO%(S1),RO$(S1):NEXTS1
  613. 6564 INPUT#1,ZG$,AS,GR:FORS1=1TOSE:INPUT#1,F1%(S1),F2%(S1),F3%(S1):NEXTS1
  614. 6565 CLOSE1
  615. 6567 LB(1)=0:HB(1)=160:QX$=I$+".E":GOSUB11860:ZE=20:GOSUB6631:IFFE<>0THENUG=1:RETURN
  616. 6569 IF ZG$="K" THENGOSUB6601:AG$=FE$:GOSUB11585:GOTO 6571
  617. 6570 I$=ZG$:GOSUB6582:IFFE<>0THENGOSUB6685
  618. 6571 GOSUB6625:PG=1:GOSUB6695:UG=1:RETURN
  619. 6574 ZE=5:SP=0:GOSUB11050:PRINTKS$(7)CHR$(17)KS$(113):ZE=19:GOSUB11050
  620. 6575 PRINTKS$(79)CHR$(17)KS$(79):GOSUB11027:SP=22:GOSUB6235:IF EG=141THEN 6577
  621. 6576 I$=EG$:GOSUB6582:IFFE<>0THEN6574
  622. 6577 UG=1:RETURN
  623. 6582 I$=I$+".Z":A1=108:GOSUB6315
  624. 6583 LB(1)=0:HB(1)=224:QX$=I$:GOSUB11860:GOSUB11322:ZE=20:SP=0:GOSUB11050:PRINTL$:AG$=FE$
  625. 6584 ZE=20:GOSUB11585:POKE2,2:SYS51833:ZE=20:SP=0:GOSUB11050:PRINTL$:RETURN
  626. 6590 ZE=5:SP=0:GOSUB11050:PRINTKS$(A1)CHR$(17)KS$(113)
  627. 6592 ZE=19:SP=0:GOSUB11050:PRINTKS$(79)CHR$(17)KS$(79):GOSUB11027
  628. 6594 SP=22:GOSUB6235:IFEG=141THENUG=1:RETURN
  629. 6596 I$=EG$:A1=108:GOSUB6315:RETURN
  630. 6600 ZE=20:SP=0:GOSUB11050:PRINTL$:GOSUB11322:AG$=FE$:ZE=20:GOSUB11585:POKE2,2:SYS51833
  631. 6601 ZE=20:SP=0:GOSUB11050:PRINTL$:RETURN
  632. 6605 IFSE=5THENRETURN
  633. 6610 FORS1=SE-1TO4:Z=40960+S1*840+32:POKEZ,19:POKEZ+1,5:POKEZ+2,9
  634. 6615 POKEZ+3,20:POKEZ+4,5:POKEZ+5,58:POKEZ+6,48:POKEZ+7,49+S1:NEXTS1:RETURN
  635. 6625 IFAF>0THENGOSUB6705
  636. 6626 S1=0:S4=1:FORPG=1TOSE:IFAF%(PG)=0THENNEXTPG:GOTO6629
  637. 6627 GOSUB11239:FORS1=S4TOS4+AF%(PG)-1:POKEFD(S1,1)+1,FA%(S1)
  638. 6628 NEXTS1:GOSUB11243:S4=S4+AF%(PG):NEXTPG
  639. 6629 PG=1:RETURN
  640. 6631 GOSUB11322:IFFE<>0THENGOSUB6601:AG$=FE$:GOSUB11585:POKE2,2:SYS51833:GOSUB6601
  641. 6632 RETURN
  642. 6635 LB(1)=0:HB(1)=160:LB(2)=103:HB(2)=176:AW=32:GOSUB11710:RETURN
  643. 6650 ZE=16:SP=0:GOSUB11050:PRINTKS$(106)KS$(107);:GOSUB11445:PRINTCHR$(EG):PG=1:GOSUB6695
  644. 6652 IF(EG=74ANDZG=0)THENGOSUB6625:RETURN
  645. 6655 IF(EG=78ANDZG=1)THENGOSUB6682:RETURN
  646. 6660 IFEG=78ANDZG=0THENGOSUB6635:SE=1:GOSUB6605:GOSUB6682:RETURN
  647. 6665 ZE=20:SP=0:GOSUB11050:PRINTL$
  648. 6670 LB(1)=0:HB(1)=160:QX$=I$:GOSUB11860:GOSUB11322:GOSUB6601:AG$=FE$:ZE=20:GOSUB11585
  649. 6672 GOSUB6625:GOSUB6601
  650. 6675 IFFE<>0THENSP=0:GOSUB11050:PRINTCHR$(18)KS$(109):POKE2,2:SYS51833
  651. 6680 RETURN
  652. 6682 FORS1=1TOS3:FO$(S1)="":NEXTS1:FORS1=1TOS5:RO$(S1)="":NEXTS1
  653. 6683 S3=0:S5=0:RETURN
  654. 6685 ZE=12:SP=6:GOSUB11050:PRINTKS$(119):ZE=14:SP=7:GOSUB11050:PRINTKS$(120);
  655. 6686 GOSUB11445:IFEG=78THEN6690
  656. 6687 ZE=16:SP=8:GOSUB11050:PRINTKS$(121):SP=16:GZ=14:P=1:RV=0:GOSUB11303:IFEG=141THEN6690
  657. 6689 I$=EG$:GOSUB6582:IFFE<>0THEN6687
  658. 6690 RETURN
  659. 6695 FORS1=1TO5:FS%(S1)=0:NEXTS1:RETURN
  660. 6705 FORS1=1TOAF:FD(S1,2)=FD(S1,2)+FD(S1,1):FD(S1,1)=FD(S1,1)-1:NEXTS1
  661. 6707 RETURN
  662. 6920 POKE52445,112:POKE52446,199:POKE52436,GZ:POKE52437,0:POKE199,1:POKE52440,13
  663. 6925 POKE52441,141:POKE52442,135:POKE52443,136:POKE52444,1:SYS51946:RETURN
  664. 7010 A1=60:GOSUB7610:GOSUB11485:GOSUB11027
  665. 7055 OPEN1,8,0,"$":GET#1,H$,H$:I$=""
  666. 7057 GOSUB11322:IFFE=0THEN7060
  667. 7058 CLOSE1:ZE=12:SP=8:GOSUB11050:PRINTFE$:POKE2,2:SYS51833:UG=1:RETURN
  668. 7060 GET#1,H$,H$,H$,H$
  669. 7065 GET#1,H$:IFH$=""THEN7075
  670. 7070 I$=I$+H$:GOTO7065
  671. 7075 I$=KS$(61)+I$+KS$(61):ZE=2:SP=0:GOSUB11050:PRINTI$KS$(3)
  672. 7120 ZE=4:SP=0:GOSUB11050:PRINT;:Z=0
  673. 7130 GET#1,H$,H$:GET#1,H$,Z$:IFST<>0THEN7240
  674. 7135 H$=H$+CHR$(0):Z$=Z$+CHR$(0):E=ASC(H$)+ASC(Z$)*256:PRINTKS$(62)E;
  675. 7190 GET#1,H$:IFH$=""THEN7210
  676. 7200 PRINTH$;:GETEG$:IFEG$=CHR$(141)THENPRINT:CLOSE1:UG=1:RETURN
  677. 7205 GOTO7190
  678. 7210 PRINT:Z=Z+1:IFZ=17THENGOSUB7300:GOTO7120
  679. 7220 GOTO7130
  680. 7240 CLOSE1:GOSUB7330:UG=1:RETURN
  681. 7300 GOSUB7330:FORS1=1TO19:ZE=3+S1:SP=6:GOSUB11050:PRINTKS$(64):NEXTS1:RETURN
  682. 7330 ZE=22:SP=6:GOSUB11050:PRINTKS$(63)
  683. 7335 GET EG$:IFEG$<>" "THEN7335
  684. 7340 RETURN
  685. 7500 A1=65:GOSUB7610:PRINTC$KS$(66)KS$(67)KS$(68):PRINT
  686. 7518 PRINTKS$(69)KS$(70)KS$(71):PRINTCHR$(17)KS$(72)KS$(73)
  687. 7520 PRINTKS$(74)KS$(75)KS$(76):PRINTKS$(77):ZE=18:SP=20:GOSUB11050:PRINTKS$(78)
  688. 7522 PRINTKS$(79)CHR$(17)KS$(79)KS$(4)KS$(11)C$C$:GOSUB11027
  689. 7550 ZE=17:SP=20:GZ=40:RV=0:P=1:GOSUB11303:IFEG=141THENUG=1:RETURN
  690. 7552 IFLEFT$(EG$,1)<>"N"ANDLEFT$(EG$,1)<>"S"THEN7560
  691. 7554 ZE=21:SP=2:GOSUB11050:PRINTKS$(82);:GOSUB11445:SP=0:GOSUB11050:PRINTL$:IFEG<>74THEN7565
  692. 7560 PRINT#15,EG$:GOSUB11322:AG$=FE$:ZE=21:GOSUB11585:POKE2,2:SYS51833
  693. 7565 ZE=21:SP=2:GOSUB11050:PRINTKS$(83);:GOSUB11445:IF EG<>74 THEN 7574
  694. 7573 ZE=17:SP=20:GOSUB11050:PRINTL$:POKE1725,58
  695. 7574 ZE=21:SP=0:GOSUB11050:PRINTL$:GOTO7550
  696. 7610 GOSUB11022:PRINTCHR$(14)CHR$(8)C$KS$(A1)KS$(3):RETURN
  697. 7750 A1=85:GOSUB7610:ZE=3:SP=6:GOSUB11050:PRINTKS$(84):ZE=5:SP=1:GOSUB11050:PRINT;
  698. 7755 A1=90:AG$=LEFT$(TI$,2):GOSUB7795:AG$=MID$(TI$,3,2):GOSUB7795:PRINTKS$(93);
  699. 7765 AG$=RIGHT$(TI$,2):GOSUB7795:ZE=7:SP=13:GOSUB11050:PRINTKS$(89)
  700. 7766 ZE=10:SP=2:GOSUB11050:PRINTKS$(76)
  701. 7770 ZE=13:SP=7:GOSUB11050:PRINTKS$(86):ZE=15:SP=9:GOSUB11050:PRINTKS$(87)
  702. 7775 ZE=17:SP=12:GOSUB11050:PRINTKS$(88);:GOSUB11027:GOSUB11445:IFEG=78THEN165
  703. 7785 CLOSE15:SYS64738
  704. 7795 PRINTAG$KS$(A1);:IFVAL(AG$)<>1THENPRINTKS$(94);
  705. 7800 A1=A1+1:RETURN
  706. 9002 PRINTCHR$(147)CHR$(14)CHR$(8)
  707. 9005 ZE=0:SP=0:GOSUB11050:PRINTKS$(144)KS$(3):ZE=5:SP=7:GOSUB11050:PRINTKS$(145);
  708. 9010 GOSUB11445:IFEG=78THEN165
  709. 9020 PRINTCHR$(147)CHR$(144)"LOAD"CHR$(34)"DBL"CHR$(34)",8,1"
  710. 9030 POKE631,19:POKE632,13:POKE198,2:END
  711. 9500 GOSUB11022:GOSUB9869:GOSUB11028:HZ=HP
  712. 9530 POKE247,C4:POKE248,C3:ZE=C2:SP=C1:GOSUB11050:PRINT;
  713. 9535 POKE199,HR:SYS 52582:EG=PEEK(2):GOSUB11035
  714. 9545 IFEG=141THENGOSUB9847:RETURN
  715. 9550 FORS1=1TO18:IFEG<>FC%(S1)THENNEXTS1:GOTO9535
  716. 9560 IFS1>10THENS1=S1-10:GOTO9575
  717. 9570 ONS1GOSUB9985,9990,9996,10341,10363,9932,9938,9944,10570,10584:GOTO9530
  718. 9575 ONS1GOSUB 10610,10623,10657,10746,9605,9805,9705,10544:GOTO9530
  719. 9605 A1=116:GOSUB9905:IFEG=141THENGOSUB9766:RETURN
  720. 9610 AG$=KS$(99)+I$:ZE=23:GOSUB11585
  721. 9625 IFHP=1THENHB(1)=4:HB(2)=7:HB(3)=196:L2=199:GOTO9628
  722. 9627 HB(1)=196:HB(2)=199:HB(3)=4:L2=7
  723. 9628 LB(2)=111:LB(3)=40:LB(1)=40:AW=1:GOSUB11760:L1=116
  724. 9632 GOSUB9896:E=L2*256+LB(2)+1:FORS1=0TO3:POKEE+S1,PEEK(PH(HP)+S1):NEXTS1
  725. 9635 LB(1)=LB(3):HB(1)=HB(3):LB(2)=L1:HB(2)=L2:QX$=I$:GOSUB11810
  726. 9640 GOSUB9782:GOSUB11322:GOSUB9770:GOSUB9766:RETURN
  727. 9705 A1=117:GOSUB9905:IFEG=141THENGOSUB9766:RETURN
  728. 9710 AG$=KS$(108)+I$:ZE=23:GOSUB11585:LB(1)=HP%(HP,1):HB(1)=HP%(HP,2):QX$=I$
  729. 9711 GOSUB11860
  730. 9730 GOSUB9782:GOSUB11322:IFFE<>0THENGOSUB9770:GOSUB9766:RETURN
  731. 9740 GOSUB9782:GOSUB9766
  732. 9755 LB(1)=HP%(HP,3)+1:HB(1)=HP%(HP,4):LB(2)=LB(1)+3:HB(2)=HB(1)
  733. 9756 HB(3)=INT(PH(HP)/256):LB(3)=PH(HP)-256*HB(3)
  734. 9757 AW=1:GOSUB11760
  735. 9758 PRINTCHR$(PEEK(PH(HP)))C$:POKE53280,PEEK(PH(HP)+1)
  736. 9759 POKE53281,PEEK(PH(HP)+2):FF=PEEK(PH(HP)+3):GOSUB11235
  737. 9761 HB(3)=196:IFHP=1THENHB(3)=4
  738. 9762 LB(1)=HP%(HP,1):HB(1)=HP%(HP,2):LB(2)=HP%(HP,3):HB(2)=HP%(HP,4)
  739. 9763 LB(3)=40:AW=1:GOSUB11760:RETURN
  740. 9766 ZE=0:SP=0:GOSUB11050:PRINTKS$(115):RETURN
  741. 9770 AG$=FE$:ZE=23:GOSUB11585:POKE2,2:SYS51833:GOSUB 9782:RETURN
  742. 9782 ZE=23:SP=0:GOSUB11050:PRINTCHR$(146)L$C$C$:RETURN
  743. 9805 ZE=23:SP=3:GOSUB11050:PRINTKS$(118);
  744. 9810 SYS51682:EG=PEEK(2):IFEG<>74AND(EG<>78 ANDEG<>141)THEN 9810
  745. 9812 IFEG=141THENGOSUB9782:RETURN
  746. 9813 IFEG=74THEN9832
  747. 9820 GOSUB9855:GOSUB11022:IFHP=1THENHP=2:BR%(1)=24:BR%(2)=0:BR%(3)=196:GOTO9822
  748. 9821 HP=1:BR%(1)=21:BR%(2)=3:BR%(3)=4
  749. 9822 GOSUB11260:GOSUB9869:GOSUB11028:RETURN
  750. 9832 E=HP:IFE=1THENHP=2:GOTO9834
  751. 9833 HP=1
  752. 9834 LB(1)=HP%(HP,1):HB(1)=HP%(HP,2):LB(2)=HP%(HP,3):HB(2)=HP%(HP,4)
  753. 9835 LB(3)=HP%(E,1):HB(3)=HP%(E,2):AW=1:GOSUB11760
  754. 9836 FORS1=0TO3:POKE2,PEEK(PH(HP)+S1):POKEPH(HP)+S1,PEEK(PH(E)+S1)
  755. 9837 POKEPH(E)+S1,PEEK(2):NEXTS1
  756. 9838 GOSUB9842:IFHP=1THENBR%(1)=21:BR%(2)=3:BR%(3)=4:GOTO9840
  757. 9839 BR%(1)=24:BR%(2)=0:BR%(3)=196
  758. 9840 GOSUB11022:PRINTCHR$(147):GOSUB11260:GOSUB9869:GOSUB9782
  759. 9841 GOSUB11028:RETURN
  760. 9842 HB(1)=4:HB(2)=7:IFE=2THENHB(1)=196:HB(2)=199
  761. 9843 LB(1)=40:LB(2)=111:LB(3)=HP%(HP,1):HB(3)=HP%(HP,2):AW=1:GOSUB11760
  762. 9844 GOSUB9896:RETURN
  763. 9847 GOSUB9855:GOSUB11022:HP=0:IFHZ=1THEN BR%(1)=21:BR%(2)=3:BR%(3)=4:GOTO9849
  764. 9848 BR%(1)=24:BR%(2)=0:BR%(3)=196
  765. 9849 GOSUB11260:GOSUB11028:RETURN
  766. 9855 HB(1)=4:HB(2)=7:IFHP=2THENHB(1)=196:HB(2)=199
  767. 9865 LB(1)=40:LB(2)=111:LB(3)=HP%(HP,1):HB(3)=HP%(HP,2):AW=1:GOSUB11760:GOSUB9896:RETURN
  768. 9869 IFHP=1THENHB(3)=4:GOTO9871
  769. 9870 HB(3)=196
  770. 9871 PRINTCHR$(9)CHR$(PEEK(PH(HP)))C$:POKE781,HP+1:SYS PT
  771. 9872 LB(1)=HP%(HP,1):HB(1)=HP%(HP,2):LB(2)=HP%(HP,3):HB(2)=HP%(HP,4)
  772. 9873 LB(3)=40:AW=1:GOSUB11760:FF=PEEK(PH(HP)+3)
  773. 9876 GOSUB11235:C4=1:C3=0:C1=0:C2=1
  774. 9877 KS$(115)=LEFT$(KS$(115),38):KS$(115)=KS$(115)+STR$(HP)+"-"
  775. 9878 POKE53280,PEEK(PH(HP)+1):POKE53281,PEEK(PH(HP)+2):RETURN
  776. 9896 POKEPH(HP),142:Z=PEEK(53272):IFZ=23ORZ=27THENPOKEPH(HP),14
  777. 9897 RETURN
  778. 9905 ZE=0:SP=0:GOSUB11050:PRINTKS$(A1):SP=23:GZ=14:RV=1:P=HP
  779. 9907 GOSUB11303:IFEG<>141THENI$=EG$+".H"
  780. 9910 RETURN
  781. 9932 FF=PEEK(PH(HP)+1):GOSUB11170:POKEPH(HP)+1,FF:RETURN
  782. 9938 FF=PEEK(PH(HP)+2):GOSUB11200:POKEPH(HP)+2,FF:RETURN
  783. 9944 FF=PEEK(PH(HP)+3):GOSUB11230:POKEPH(HP)+3,FF:RETURN
  784. 9950 RETURN
  785. 9985 C1=0:C2=1:C4=1:C3=0:RETURN
  786. 9990 IFHP=0THENRS=1:RETURN
  787. 9991 HR=1:RETURN
  788. 9996 IFHP=0THENRS=0:RETURN
  789. 9997 HR=0:RETURN
  790. 10341 Z=1:IFHP<>1THENZ=2
  791. 10343 IFC1=0THENRETURN
  792. 10345 H=BA(Z)+40*C2+C1:HB(1)=INT(H/256):LB(1)=H-256*HB(1)
  793. 10346 H=H-C1+39:HB(2)=INT(H/256):LB(2)=H-256*HB(2)
  794. 10347 POKE251,LB(1):POKE252,HB(1):POKE253,LB(2):POKE254,HB(2):SYS51248
  795. 10350 C1=C1-1:H=40*C2+C1-39:C3=INT(H/256):C4=H-256*C3:RETURN
  796. 10363 Z=1:IFHP<>1THENZ=2
  797. 10365 IFC1=39THENRETURN
  798. 10366 H=BA(Z)+40*C2+C1:HB(1)=INT(H/256):LB(1)=H-256*HB(1)
  799. 10367 H=H-C1+39:HB(2)=INT(H/256):LB(2)=H-256*HB(2)
  800. 10368 POKE251,LB(1):POKE252,HB(1):POKE253,LB(2):POKE254,HB(2):SYS51353:RETURN
  801. 10544 ZE=0:SP=0:GOSUB11050:PRINTKS$(6):GOSUB11050:PRINTKS$(2):IFHP=1THENP=1:GOTO10546
  802. 10545 P=2
  803. 10546 RV=1:GZ=3:SP=37:GOSUB11303
  804. 10548 Z=1:IFHP>0THENZ=115:KS$(Z)=LEFT$(KS$(Z),38):KS$(Z)=KS$(Z)+STR$(HP)+"-"
  805. 10550 ZE=0:SP=0:GOSUB11050:PRINTKS$(Z):H=VAL(EG$):IFH<25ORH>100THENRETURN
  806. 10555 POKE56325,H:CB=H:RETURN
  807. 10570 ZE=C2:SP=0:GOSUB11050:PRINTCHR$(146)L$:RETURN
  808. 10584 Z=1:IFHP<>1THENZ=2
  809. 10590 H=40*C2+BA(Z):FORS1=0TO39:K=PEEK(H+S1):IFK>127THENK=K-128:GOTO10594
  810. 10592 K=K+128
  811. 10594 POKEH+S1,K:NEXTS1:RETURN
  812. 10610 IFHP<>1THENHB(1)=196:HB(2)=199:GOTO10615
  813. 10612 HB(1)=4:HB(2)=7
  814. 10615 LB(1)=40:LB(2)=111:AW=32:GOSUB11710:RETURN
  815. 10623 IF C2=1 THEN ZE=C2:SP=0:GOSUB11050:PRINTL$:RETURN
  816. 10624 IFHP<>1THENHB(1)=196:GOTO10630
  817. 10625 HB(1)=4
  818. 10630 POKE53027,C2-1:POKE53021,80:POKE53022,HB(1):SYS 52862:RETURN
  819. 10657 IF C2=21 THEN ZE=C2:SP=0:GOSUB11050:PRINTL$:RETURN
  820. 10658 IFHP<>1THENHB(1)=199:GOTO10662
  821. 10659 HB(1)=7
  822. 10662 POKE53223,C2-1:POKE53217,32:POKE53218,HB(1):SYS 53056:RETURN
  823. 10746 IFC2=21THENC2=20
  824. 10750 C2=C2+1:C1=0:H=C2*40-39:C3=INT(H/256):C4=H-256*C3:RETURN
  825. 11022 PRINTCHR$(147):POKE53280,0:POKE53281,0
  826. 11023 POKE53265,PEEK(53265)AND239:RETURN
  827. 11027 POKE53280,MF%(1):POKE53281,MF%(2)
  828. 11028 POKE53265,PEEK(53265)OR16:RETURN
  829. 11035 C3=PEEK(248):C4=PEEK(247):CP=C3*256+C4+39:C2=INT(CP/40):C1=CP-C2*40:RETURN
  830. 11050 POKE211,SP:POKE214,ZE:SYS58640:RETURN
  831. 11170 FF=FF+1:IFFF>=15THENFF=0
  832. 11175 POKE53280,FF:RETURN
  833. 11200 FF=FF+1:IFFF>=15THENFF=0
  834. 11205 POKE53281,FF:RETURN
  835. 11230 FF=FF+1:IFFF>=15THENFF=0
  836. 11235 LB(1)=0:HB(1)=216:LB(2)=231:HB(2)=219:AW=FF:GOSUB11710:POKE646,FF:RETURN
  837. 11239 LB(1)=AP%(PG,1):HB(1)=AP%(PG,2):LB(2)=AP%(PG,3):HB(2)=AP%(PG,4)
  838. 11240 LB(3)=40:HB(3)=196:AW=1:GOSUB11760:RETURN
  839. 11243 LB(1)=40:HB(1)=196:LB(2)=111:HB(2)=199
  840. 11244 LB(3)=AP%(PG,1):HB(3)=AP%(PG,2):AW=1:GOSUB11760:RETURN
  841. 11260 POKE53272,BR%(1):POKE56576,PEEK(56576)AND252ORBR%(2):POKE648,BR%(3):RETURN
  842. 11303 GOSUB11050:PRINT;:P3=ZE*40+SP+BA(P):P1=INT(P3/256):P2=P3-256*P1
  843. 11305 POKE52445,P2:POKE52446,P1:POKE52436,GZ:POKE52437,0:POKE199,RV:POKE52440,13
  844. 11306 POKE52441,141:POKE52442,0:POKE52443,0:POKE52444,1:SYS51946
  845. 11308 IF PEEK(2)=141 THEN EG=141:GOTO 11311
  846. 11310 POKE253,P2:POKE254,P1:POKE2,GZ:POKE69,69:POKE70,199:SYS52493
  847. 11311 POKE199,0:RETURN
  848. 11322 INPUT#15,FE,FE$,H$,Z$:FE$=STR$(FE)+","+FE$+","+H$+","+Z$+" !!!":RETURN
  849. 11445 SYS51682:EG=PEEK(2):IF EG<>74 AND EG<>78 THEN 11445
  850. 11450 RETURN
  851. 11455 GETEG$:IFEG$=""THEN11455
  852. 11457 EG=ASC(EG$):RETURN
  853. 11465 GOSUB11022:PRINTCHR$(14)CHR$(8)
  854. 11470 ZE=0:SP=0:GOSUB11050:PRINTKS$(A1)KS$(3)KS$(A2)KS$(3):RETURN
  855. 11485 ZE=23:SP=0:GOSUB11050:PRINTKS$(4)KS$(11)C$C$:RETURN
  856. 11510 RETURN
  857. 11585 SP=INT((40-LEN(AG$))/2):GOSUB11050:PRINTAG$C$C$:RETURN
  858. 11710 POKE251,LB(1):POKE252,HB(1):POKE253,LB(2):POKE254,HB(2):POKE2,AW:SYS51479:RETURN
  859. 11760 IFLB(1)=LB(2)ANDHB(1)=HB(2)THENRETURN
  860. 11764 POKE249,LB(1):POKE250,HB(1):POKE251,LB(2):POKE252,HB(2):POKE253,LB(3):POKE254,HB(3)
  861. 11765 POKE2,AW:SYS51586:RETURN
  862. 11810 POKE186,8:POKE251,LB(1):POKE252,HB(1):POKE51713,LB(2)
  863. 11815 POKE51714,HB(2):POKE69,81:POKE70,216:POKE183,LEN(QX$):SYS51716:RETURN
  864. 11860 POKE186,8:POKE781,LB(1):POKE782,HB(1):POKE185,0:POKE183,LEN(QX$)
  865. 11865 POKE187,238:POKE188,2:FORS1=1TOLEN(QX$):POKE749+S1,ASC(MID$(QX$,S1,1))
  866. 11870 NEXTS1:POKE780,0:SYS65493:RETURN
  867.