home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8507c.d64 / dbii (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  33KB  |  861 lines
  1. 0 REM-DBII / (C)1985 MARTIN HECHT,STGT-
  2. 1 DIM MF%(3),LB(3),HB(3),ME$(2,17),AP%(5,4),KS$(145),F1%(5),F2%(5),F3%(5),AF%(5)
  3. 2 DIM FC%(68),BA(2),P1(4),P2(7),PH(2),HP%(2,4),BR%(3),NP(3),PO(3),OP(3)
  4. 3 DIM DD$(15),SN%(15),DS%(15)
  5. 4 DIM FO%(20),FO$(20),RO%(15),FD(50,2),VZ%(50),FA%(50),F(50)
  6. 8 GOTO79
  7. 11 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  8. 12 RETURN
  9. 13 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  10. 14 RETURN
  11. 15 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  12. 16 RETURN
  13. 17 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  14. 18 RETURN
  15. 19 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  16. 20 RETURN
  17. 21 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  18. 22 RETURN
  19. 23 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  20. 24 RETURN
  21. 25 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  22. 26 RETURN
  23. 27 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  24. 28 RETURN
  25. 29 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  26. 30 RETURN
  27. 31 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  28. 32 RETURN
  29. 33 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  30. 34 RETURN
  31. 35 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  32. 36 RETURN
  33. 37 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  34. 38 RETURN
  35. 39 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  36. 40 RETURN
  37. 79 GOSUB4510:LB(1)=61:HB(1)=154:QX$="MP-P-3":GOSUB11860
  38. 80 LB(1)=232:HB(1)=199:QX$="MP-P-4":GOSUB11860
  39. 81 LB(1)=200:HB(1)=192:QX$="MP-P-5":GOSUB11860
  40. 89 POKE55,60:POKE56,154:POKE51,60:POKE52,154
  41. 92 GOSUB4810
  42. 165 GOSUB11022:PRINTCHR$(142)CHR$(8):FF=MF%(3):GOSUB11235:POKE781,1:SYSPT
  43. 180 ME=1:GOSUB405:GOSUB11027:EG$=""
  44. 182 IF XX=1 THEN ZE=21:SP=10:GOSUB11050:PRINT"AUSGABE AUF DRUCKER![146]"
  45. 190 GOSUB11455
  46. 207 IFEG=13THENGOSUB310:GOTO190
  47. 210 IFEG=8THENHP=1:GOSUB9500:GOTO165
  48. 215 IF EG=80 THEN XX=1:ZE=21:SP=10:GOSUB11050:PRINT"AUSGABE AUF DRUCKER![146]"
  49. 216 IF EG=79 THEN XX=0:ZE=21:SP=10:GOSUB11050:PRINT"                    "
  50. 220 IFEG=136ANDME=2THEN9002
  51. 221 IFEG=140ANDME=2THEN1965
  52. 224 IFEG=144THENFF=MF%(1):GOSUB11170:MF%(1)=FF:GOTO190
  53. 226 IFEG=5THENFF=MF%(2):GOSUB11200:MF%(2)=FF:GOTO190
  54. 227 IFEG=28THENFF=MF%(3):GOSUB11230:MF%(3)=FF:GOTO190
  55. 229 IFEG<133OREG>140THEN190
  56. 234 IFME=2THEN260
  57. 240 ONEG-132GOSUB1015,2007,2213,3010,2657:IFUGTHENUG=0:DC=0:GOTO165
  58. 242 GOTO190
  59. 260 ONEG-132GOSUB7010,7500,6807:IFUGTHENUG=0:GOTO165
  60. 270 GOTO190
  61. 310 IFME=1THENME=2:K=49:GOTO330
  62. 320 ME=1:K=50
  63. 330 FORS1=20TO5STEP-1:ZE=S1:SP=5:GOSUB11050:PRINTKS$(110):NEXTS1:GOSUB405:POKE2004,K:RETURN
  64. 405 ZE=1:SP=23:GOSUB11050:PRINTME$(ME,1):FORS1=2TO17
  65. 410 ZE=S1+3:SP=5:GOSUB11050:PRINTME$(ME,S1):NEXTS1:RETURN
  66. 1015 GOSUB1915
  67. 1052 GOSUB11455:IFEG=141THENGOSUB1940:RETURN
  68. 1053 IFEG=8THENHP=1:GOSUB9500:GOSUB1915:GOTO1052
  69. 1055 FORS1=19TO26:IFFC%(S1)<>EGTHENNEXTS1:GOTO1052
  70. 1060 ONS1-18GOSUB1287,1410,1510,1217,1240,1610,1630,1650:GOTO1052
  71. 1217 AG$=KS$(108)+"DAT-DIR":ZE=23:GOSUB11585
  72. 1220 GOSUB5815:IFFE<>0THEN ZE=23:SP=2:GOSUB11050:PRINTKS$(1)C$C$:POKE2,2:SYS51833
  73. 1225 GOSUB9782:IFFE=0THENNN=1:GOSUB1240
  74. 1227 RETURN
  75. 1240 FORS2=4TO20STEP2:ZE=S2:SP=1:GOSUB11050:PRINTKS$(5):ZE=S2:SP=19:GOSUB11050:PRINTKS$(8)
  76. 1241 ZE=S2:SP=30:GOSUB11050:PRINTKS$(9):NEXTS2
  77. 1243 S2=4:FORS1=NNTONN+8:IFS1>ADTHENS1=NN+9:NEXTS1:NN=1:RETURN
  78. 1245 RV$="":IFS1=SITHENRV$=CHR$(18)
  79. 1250 ZE=S2:SP=1:GOSUB11050:PRINTRV$DD$(S1)CHR$(146)
  80. 1253 IFSN%(S1)=10THENAG$=RIGHT$(STR$(SN%(S1)),2):GOTO1260
  81. 1255 AG$="0"+RIGHT$(STR$(SN%(S1)),1)
  82. 1260 ZE=S2:SP=19:GOSUB11050:PRINTAG$:AG$=STR$(DS%(S1)):AG$=RIGHT$(AG$,LEN(AG$)-1)
  83. 1267 IFLEN(AG$)<3THENAG$="0"+AG$:GOTO1267
  84. 1270 ZE=S2:SP=30:GOSUB11050:PRINTAG$:S2=S2+2:NEXTS1:NN=S1:RETURN
  85. 1287 E=0:ZE=0:SP=0:GOSUB11050:PRINTKS$(12):ZE=0:SP=25:P=1:GZ=14:RV=1:GOSUB11303
  86. 1288 IFEG=141THEN ZE=0:SP=0:GOSUB11050:PRINTKS$(15):RETURN
  87. 1290 FORS4=1TOAD:IFDD$(S4)=EG$THEN1294
  88. 1292 NEXTS4:IFE=0THENE=1:GOSUB5815:DD=1:GOTO1290
  89. 1293 ZE=0:SP=0:GOSUB11050:PRINTKS$(13):POKE2,1:SYS51833:GOTO1287
  90. 1294 ZW$=EG$:IFSI=0THEN1297
  91. 1295 ZE=23:SP=7:GOSUB11050:PRINTKS$(99)+DD$(SI)+"[160]!"C$C$:GOSUB 2670:GOSUB9782
  92. 1297 SI=S4:ZE=23:AG$=KS$(108)+ZW$:GOSUB11585:I$=ZW$:GOSUB5838
  93. 1300 GOSUB9782:AG$=KS$(14):GOSUB11585:POKE2,1:SYS51833:GOSUB9782
  94. 1310 ZE=0:SP=0:GOSUB11050:PRINTKS$(15):NN=1:GOSUB1240:RETURN
  95. 1410 E=0:ZE=0:SP=0:GOSUB11050:PRINTKS$(19):ZE=0:SP=23:P=1:GZ=14:RV=1:GOSUB11303
  96. 1415 IFEG=141THEN ZE=0:SP=0:GOSUB11050:PRINTKS$(15):RETURN
  97. 1420 FORS1=1TOAD:IFDD$(S1)=EG$THENK=S1:GOTO1430
  98. 1425 NEXTS1:IFE=0THENE=1:GOSUB5815:DD=1:GOTO1420
  99. 1427 ZE=0:SP=0:GOSUB11050:PRINTKS$(13):POKE2,1:SYS51833:GOTO1410
  100. 1430 ZE=23:SP=7:GOSUB11050:PRINTKS$(20);:GOSUB11445:GOSUB9782:IFEG=78THEN1410
  101. 1437 H$=EG$:ZE=23:SP=6:GOSUB11050:PRINTKS$(22)H$C$C$:I$=H$+".D":GOSUB1480:I$=H$+".E"
  102. 1438 GOSUB1480:I$=H$+".I":GOSUB1480:I$=H$+".R":GOSUB1480:I$=H$+".Z":GOSUB1480
  103. 1445 FORS1=KTOAD:DD$(S1)=DD$(S1+1):SN%(S1)=SN%(S1+1):DS%(S1)=DS%(S1+1):NEXTS1
  104. 1450 AD=AD-1:GOSUB5830:GOSUB9782:ZE=23:AG$=KS$(24):GOSUB11585:POKE2,1:SYS51833
  105. 1455 GOSUB9782:ZE=0:SP=0:GOSUB11050:PRINTKS$(15):IFK<SITHENSI=SI-1:GOTO1457
  106. 1456 IFK=SITHENSI=0
  107. 1457 NN=1:GOSUB1240:RETURN
  108. 1480 PRINT#15,"S:"+I$:RETURN
  109. 1510 E=0:ZE=0:SP=0:GOSUB11050:PRINTKS$(21):ZE=0:SP=10:P=1:GZ=29:RV=1:GOSUB11303
  110. 1515 IFEG=141THEN ZE=0:SP=0:GOSUB11050:PRINTKS$(15):RETURN
  111. 1517 H1$=LEFT$(EG$,14):H2$=RIGHT$(EG$,14)
  112. 1520 FORS1=1TOAD:IFDD$(S1)=H2$THENK=S1:GOTO1537
  113. 1525 NEXTS1:IFE=0THENE=1:GOSUB5815:DD=1:GOTO1520
  114. 1527 ZE=0:SP=0:GOSUB11050:PRINTKS$(13):POKE2,1:SYS51833:GOTO1510
  115. 1537 ZE=23:AG$=KS$(23)+H2$:GOSUB11585:I$=H1$+".D="+H2$+".D":GOSUB1580
  116. 1538 I$=H1$+".E="+H2$+".E":GOSUB1580
  117. 1539 I$=H1$+".I="+H2$+".I":GOSUB1580:I$=H1$+".R="+H2$+".R":GOSUB1580
  118. 1540 I$=H1$+".Z="+H2$+".Z":GOSUB1580
  119. 1545 DD$(K)=H1$:GOSUB5830:GOSUB9782:ZE=23:AG$=KS$(25):GOSUB11585:POKE2,1:SYS51833
  120. 1550 GOSUB9782:ZE=0:SP=0:GOSUB11050:PRINTKS$(15):NN=1:GOSUB1240:RETURN
  121. 1580 PRINT#15,"R:"+I$:RETURN
  122. 1610 FF=DF%(1):GOSUB11170:DF%(1)=FF:RETURN
  123. 1630 FF=DF%(2):GOSUB11200:DF%(2)=FF:RETURN
  124. 1650 FF=DF%(3):GOSUB11230:DF%(3)=FF:RETURN
  125. 1915 GOSUB11022:PRINTCHR$(DR)CHR$(9):FF=DF%(3):GOSUB11235
  126. 1920 POKE53280,DF%(1):POKE53281,DF%(2):POKE781,7:SYSPT:GOSUB11028
  127. 1925 NN=1:IFDD=0THENDD=1:GOSUB1217:RETURN
  128. 1927 GOSUB1243:RETURN
  129. 1940 IFPEEK(53272)=21THENDR=142:GOTO1950
  130. 1945 DR=14
  131. 1950 UG=1:RETURN
  132. 1965 IFSI<>0THENGOSUB11022:ZE=15:SP=0:GOSUB11050:PRINTKS$(54)KS$(55):GOSUB2659
  133. 1967 GOTO7750
  134. 2007 GOSUB11022:PRINTCHR$(14):ZE=0:SP=0:GOSUB11050:PRINTKS$(18)KS$(3):GOSUB11485
  135. 2010 ZE=19:SP=0:GOSUB11050:PRINTKS$(79)CHR$(17)KS$(79):GOSUB11027
  136. 2015 E=0:ZE=5:SP=3:GOSUB11050:PRINTKS$(16)
  137. 2020 SP=22:ZE=5:GZ=14:RV=0:P=1:GOSUB11303:IFEG=141THENUG=1:RETURN
  138. 2025 FORS4=1TOAD:IFDD$(S4)=EG$THEN2038
  139. 2030 NEXTS4:IFE=0THENE=1:GOSUB5815:DD=1:GOTO2025
  140. 2035 ZE=20:AG$=KS$(17):GOSUB11585:POKE2,1:SYS51833:ZE=20:SP=0:GOSUB11050:PRINTL$C$C$:GOTO2015
  141. 2038 ZW$=EG$:IFSI=0THEN2041
  142. 2039 ZE=20:SP=7:GOSUB11050:PRINTKS$(99)+DD$(SI)+"[160]!"C$C$:GOSUB2670
  143. 2040 ZE=20:SP=0:GOSUB11050:PRINTL$C$C$
  144. 2041 SI=S4
  145. 2042 ZE=20:AG$=KS$(108)+ZW$:GOSUB11585:I$=ZW$:GOSUB5838:ZE=20:SP=0:GOSUB11050:PRINTL$C$C$
  146. 2045 AG$=KS$(14):GOSUB11585:POKE2,1:SYS51833:ZE=20:SP=0:GOSUB11050:PRINTL$C$C$:UG=1:RETURN
  147. 2213 IFSI=0THENPRINTCHR$(147):ZE=10:SP=0:GOSUB11050:PRINTKS$(39):POKE2,1:SYS51833:UG=1:RETURN
  148. 2214 IFAT=MTTHENPRINTCHR$(147):ZE=8:SP=0:GOSUB11050:PRINTKS$(40)KS$(41)KS$(42):UG=1:RETURN
  149. 2216 A3=27:DM=4:DC=0:GOSUB6775
  150. 2225 IFUG=1OR(DC>1ANDDC<4)THENRETURN
  151. 2226 GOSUB6027:FORS1=27TO40:IFFC%(S1)<>EGTHENNEXTS1:GOTO2226
  152. 2227 IFS1>36THENS1=S1-10:GOTO2235
  153. 2230 ONS1-26GOSUB2256,2334,2353,2366,2398,2424,2444,2464,2472,2480:GOTO2225
  154. 2235 ONS1-26GOSUB2487,2533,2380,2642:GOTO2225
  155. 2256 IFFA%(NF)=5THENGOSUB2500:GOSUB2515:GOTO2264
  156. 2258 S1=NF:GOSUB6160
  157. 2260 IFFA%(NF)=14THENGOSUB2515
  158. 2262 IFFA%(NF)=4THENGOSUB2287
  159. 2264 IFNF=AFTHENGOSUB11243:GOTO2275
  160. 2266 NF=NF+1:LL=LL+1:IFLL>AF%(PG)THENGOSUB6115:LL=1
  161. 2268 RETURN
  162. 2275 ZE=23:SP=5:GOSUB11050:PRINTKS$(35);:GOSUB11445:GOSUB9782:IFEG=78THENRETURN
  163. 2280 GOSUB2533:RETURN
  164. 2287 H$=LEFT$(EG$,10)
  165. 2290 IFMID$(H$,3,1)<>"."ORMID$(H$,6,1)<>"."THENH5=7:GOTO2314
  166. 2292 H1=VAL(LEFT$(H$,2)):IFH1=0ORH1>31THENH5=7:GOTO2314
  167. 2294 H2=VAL(MID$(H$,4,2)):IFH2=0ORH2>12THENH5=7:GOTO2314
  168. 2296 H3=VAL(RIGHT$(H$,4)):IFH3=0THENH5=7:GOTO2314
  169. 2300 IFH2-3>=0THENH2=H2+1:GOTO2310
  170. 2305 H2=H2+13:H3=H3-1
  171. 2310 H4=INT(365.25*H3)+INT(30.6*H2)+H1-INT(H3/100)+INT(H3/400)-429
  172. 2312 H5=H4-INT(H4/7)*7
  173. 2314 EG$=H$+"/"+KS$(100+H5):GOSUB2529:RETURN
  174. 2334 IFDC=1THENDC=3:RETURN
  175. 2335 GOSUB9782:ZE=23:SP=8:GOSUB11050:PRINTKS$(20);:GOSUB11445
  176. 2336 IFEG=78THEN2342
  177. 2338 GR=142:IFPEEK(53272)=27THENGR=14
  178. 2339 GOSUB2432:IFDC<>4THENGOSUB11022:BR%(1)=21:BR%(2)=3:BR%(3)=4:GOSUB11260:UG=1
  179. 2340 DC=2:RETURN
  180. 2342 GOSUB9782:RETURN
  181. 2353 IFPG=SETHENRETURN
  182. 2354 GOSUB11243:EN=EN+AF%(PG):NF=EN:PG=PG+1:GOSUB6010:LL=1:RETURN
  183. 2366 IFPG=1THENRETURN
  184. 2368 GOSUB11243:PG=PG-1:GOSUB6010:EN=EN-AF%(PG):NF=EN:LL=1:RETURN
  185. 2380 ZE=0:SP=0:GOSUB11050:PRINTKS$(6):GOSUB11050:PRINTKS$(32):P=2:RV=1:GZ=2
  186. 2383 SP=36:ZE=0:GOSUB11303:H=VAL(EG$):IF(H<1ORH>SE)ORH=PGTHEN2390
  187. 2387 IFH>PGTHENFORS1=PGTOH-1:EN=EN+AF%(S1):NEXTS1:NF=EN:GOTO2389
  188. 2388 FORS1=HTOPG-1:EN=EN-AF%(S1):NEXTS1:NF=EN
  189. 2389 LL=1:GOSUB11243:PG=H:GOSUB6010
  190. 2390 ZE=0:SP=0:GOSUB11050:PRINTKS$(27):ZE=0:SP=9:GOSUB11050:PRINTCHR$(18)DD$(SI)CHR$(146):RETURN
  191. 2398 GOSUB11243:PG=ES:NF=1:LL=1:EN=1:GOSUB6010:RETURN
  192. 2424 GOSUB2432:PG=ES:NF=1:LL=1:EN=1:GOSUB6010:RETURN
  193. 2432 PG=ES:GOSUB6010:S1=0
  194. 2433 FORNF=1TOAF:S1=S1+1:IFS1<=AF%(PG)THEN2438
  195. 2435 GOSUB11243
  196. 2436 PG=PG+1:IFAF%(PG)=0THEN2436
  197. 2437 S1=1:GOSUB6010
  198. 2438 GOSUB2444:NEXTNF:GOSUB11243:RETURN
  199. 2444 IFFD(NF,2)=1THENPOKEFD(NF,1),102:RETURN
  200. 2445 H1=INT(FD(NF,1)/256):H2=FD(NF,1)-H1*256
  201. 2447 H5=FD(NF,1)+FD(NF,2)-1:H3=INT(H5/256):H4=H5-H3*256
  202. 2448 LB(1)=H2:HB(1)=H1:LB(2)=H4:HB(2)=H3:AW=102:GOSUB11710:RETURN
  203. 2464 FF=F1%(PG):GOSUB11170:F1%(PG)=FF:RETURN
  204. 2472 FF=F2%(PG):GOSUB11200:F2%(PG)=FF:RETURN
  205. 2480 FF=F3%(PG):GOSUB11230:F3%(PG)=FF:RETURN
  206. 2487 GOSUB11243:S7=0:ZP=PG:GOSUB6140:S2=0:S4=0:ZF=NF:PG=ES:GOSUB6010
  207. 2488 FORS1=1TOAF:S7=S7+1:IFS7>AF%(PG)THENGOSUB11243:GOSUB2496
  208. 2489 IFFA%(S1)=5THENS2=S2+1:GOSUB2504:NF=S1:S4=S4+1:GOSUB2517
  209. 2490 IFFA%(S1)=14THENS4=S4+1:NF=S1:GOSUB2517
  210. 2492 NEXTS1:GOSUB11243:NF=ZF:PG=ZP:GOSUB6010:RETURN
  211. 2496 PG=PG+1:IFAF%(PG)=0THEN2496
  212. 2497 S7=1:GOSUB6010:RETURN
  213. 2500 FORS2=1TOS5:IFRO%(S2)<>NFTHENNEXTS2
  214. 2504 ONS2GOSUB11,13,15,17,19,21,23,25,27,29,31,33,35,37,39
  215. 2506 EG$=STR$(R):RETURN
  216. 2515 FORS4=1TOS3:IFFO%(S4)<>NFTHENNEXTS4
  217. 2517 H$=STR$(VAL(EG$))
  218. 2520 FORS6=1TOLEN(H$):IFMID$(H$,S6,1)<>"." THENNEXTS6
  219. 2521 H1=VAL(LEFT$(FO$(S4),2)):H2=VAL(RIGHT$(FO$(S4),2))
  220. 2522 H3=H1:IFH1>S6-1THENH3=S6-1
  221. 2524 H1$=MID$(H$,S6-H3,H3):H2$=MID$(H$,S6+1,H2)
  222. 2527 EG$=LEFT$(L$,H1-LEN(H1$))+H1$+"."+H2$+LEFT$(KS$(33),H2-LEN(H2$))
  223. 2528 IFH2=0THENEG$=LEFT$(EG$,LEN(EG$)-1)
  224. 2529 H1=FD(NF,1)-50176:ZE=INT(H1/40):SP=H1-40*ZE:GOSUB11050:PRINTEG$:RETURN
  225. 2533 GOSUB11243:GOSUB9782:ZP=PG:PG=ES:GOSUB6010:ZE=23:SP=5:GOSUB11050:PRINTKS$(38)C$C$
  226. 2534 AG$="":S2=0:OPEN1,8,2,DD$(SI)+".R,L,"+CHR$(254)
  227. 2536 IFGF>0THENGOSUB2587:P1=0:GOTO2538
  228. 2537 P1=1:FORS1=1TO3:PO(S1)=NP(S1):NEXTS1
  229. 2538 FORS1=1TO3:OP(S1)=PO(S1):NEXTS1
  230. 2539 IFPO(3)=1THENE=0:GOTO2543
  231. 2540 E=1:PRINT#15,"P"+CHR$(2)+CHR$(PO(1))+CHR$(PO(2))+CHR$(1)
  232. 2541 POKE2,PO(3)-1:POKE69,82:POKE70,177:SYS52453
  233. 2543 PRINT#15,"P"+CHR$(2)+CHR$(PO(1))+CHR$(PO(2))+CHR$(1)
  234. 2545 FORS1=1TOAF:H1=INT(FD(S1,1)/256):H2=FD(S1,1)-H1*256
  235. 2546 G1=INT(FD(S1,2)/255):G2=FD(S1,2)-G1*255
  236. 2548 S2=S2+1:IFS2<=AF%(PG)THEN2552
  237. 2549 PG=PG+1:IFAF%(PG)=0THEN2549
  238. 2550 S2=1:GOSUB6010
  239. 2552 FORS6=1TOG1+1:IFS6<>G1+1THENH4=255:GOTO2554
  240. 2553 H4=G2
  241. 2554 POKE253,H2:POKE254,H1:POKE2,H4:POKE69,69:POKE70,199:SYS52493
  242. 2555 IFS6<>G1+1THENH3=H1*256+H2+255:H1=INT(H3/256):H2=H3-H1*256
  243. 2556 IFS1=NSANDS6=1THENI$=LEFT$(EG$,AS)
  244. 2560 L1=255-PO(3)
  245. 2564 IFL1>H4THENAG$=AG$+EG$:PO(3)=PO(3)+H4:NEXTS6:NEXTS1:GOTO2571
  246. 2566 IFL1=H4THENAG$=AG$+EG$:GOSUB2582:NEXTS6:NEXTS1:GOTO2574
  247. 2568 AG$=AG$+LEFT$(EG$,L1):GOSUB2582:H=H4-L1:AG$=RIGHT$(EG$,H)
  248. 2569 IFH=254THENGOSUB2582:NEXTS6:NEXTS1:GOTO2574
  249. 2570 PO(3)=PO(3)+H:NEXTS6:NEXTS1
  250. 2571 PRINT#15,"P"+CHR$(2)+CHR$(PO(1))+CHR$(PO(2))+CHR$(PO(3))
  251. 2572 POKE2,255-PO(3):POKE69,82:POKE70,178:SYS52453
  252. 2573 PRINT#15,"P"+CHR$(2)+CHR$(PO(1))+CHR$(PO(2))+CHR$(1):PRINT#1,R1$+AG$+R2$;
  253. 2574 GOSUB11322:CLOSE1:IFP1=1THENFORS1=1TO3:NP(S1)=PO(S1):NEXTS1
  254. 2575 FORS1=1TO3:PO(S1)=OP(S1):NEXT:GOSUB6215:GOSUB9782:ZE=23:SP=5:GOSUB11050:PRINTKS$(37)C$C$
  255. 2576 POKE2,1:SYS51833:GOSUB9782:AG$="":R1$="":R2$="":IFDC=1THENDC=2:RETURN
  256. 2577 ZE=23:SP=7:GOSUB11050:PRINTKS$(36);:GOSUB11445:GOSUB9782
  257. 2578 IFEG=78THENPG=ZP:GOSUB6010:RETURN
  258. 2579 GOSUB2424:RETURN
  259. 2582 IFE=1THENE=0:PRINT#1,R1$+AG$;:R1$="":GOTO2584
  260. 2583 PRINT#1,AG$;
  261. 2584 PO(3)=1:PO(1)=PO(1)+1:IFPO(1)=256THENPO(1)=0:PO(2)=PO(2)+1
  262. 2585 PRINT#15,"P"+CHR$(2)+CHR$(PO(1))+CHR$(PO(2))+CHR$(PO(3)):AG$="":RETURN
  263. 2587 GF=GF-1:H1=I2+GF*3:HB(1)=INT(H1/256):LB(1)=H1-256*HB(1):H1=H1+1
  264. 2588 HB(2)=INT(H1/256):LB(2)=H1-256*HB(2)
  265. 2590 LB(3)=37:HB(3)=194:AW=1:GOSUB11760
  266. 2595 FORS1=1TO3:PO(S1)=PEEK(49700+S1):NEXTS1:RETURN
  267. 2642 ZE=0:SP=0:GOSUB11050:PRINTKS$(6):GOSUB11050:PRINTKS$(2):P=2:RV=1:GZ=3:SP=37:GOSUB11303
  268. 2643 ZE=0:SP=0:GOSUB11050:PRINTKS$(A3):ZE=0:SP=9:GOSUB11050:PRINTCHR$(18)DD$(SI)CHR$(146)
  269. 2644 H=VAL(EG$):IFH<25ORH>100THENRETURN
  270. 2645 POKE56325,H:RETURN
  271. 2657 IFSI=0THENPRINTCHR$(147):ZE=10:SP=0:GOSUB11050:PRINTKS$(39):POKE2,1:SYS51833:UG=1:RETURN
  272. 2658 GOSUB11022
  273. 2659 PRINTCHR$(14)CHR$(8):ZE=9:SP=0:GOSUB11050:PRINTKS$(44)
  274. 2660 ZE=0:SP=0:GOSUB11050:PRINTKS$(43)KS$(3):ZE=5:SP=7:GOSUB11050:PRINTKS$(145);:GOSUB11027
  275. 2665 GOSUB11445:IFEG=78THENUG=1:RETURN
  276. 2668 PRINTCHR$(74)
  277. 2670 I$=DD$(SI)+".I":PRINT#15,"S:"+I$
  278. 2672 OPEN1,8,2,I$+",S,W":PRINT#1,AT,R$,MT,R$,EA,R$,GF
  279. 2675 PRINT#1,NP(1),R$,NP(2),R$,NP(3):CLOSE1:H1=INT(EA/256):H2=EA-256*H1
  280. 2677 LB(1)=154:HB(1)=246:LB(2)=H2:HB(2)=H1:LB(3)=0:HB(3)=160:AW=1:GOSUB11760
  281. 2678 H3=40960+EA-I1:H1=INT(H3/256)
  282. 2680 H2=H3-256*H1:I$=DD$(SI)+".S":PRINT#15,"S:"+I$:SI=0
  283. 2682 LB(1)=0:HB(1)=160:LB(2)=H2:HB(2)=H1:QX$=I$:GOSUB11810:I$=DD$(SI)+".R":GOSUB5830
  284. 2684 FORS1=11TO39STEP2:QX$=KS$(45)+KS$(45):LB(1)=S1:GOSUB6960:NEXT S1:POKE601,15
  285. 2686 GOSUB5758:LB(1)=154:HB(1)=246:LB(2)=255:HB(2)=255:AW=32:GOSUB11710:UG=1:RETURN
  286. 3010 IFSI=0THENPRINTCHR$(147):ZE=10:SP=0:GOSUB11050:PRINTKS$(39):POKE2,1:SYS51833:UG=1:RETURN
  287. 3012 IFAT=0THENPRINTCHR$(147):ZE=10:SP=0:GOSUB11050:PRINTKS$(34):POKE2,1:SYS51833:UG=1:RETURN
  288. 3015 SL=-1:A3=28:DM=5:GOSUB6775
  289. 3016 IF XX=1 THEN ZE=0:SP==SGNSQRGOSUB>>050:PRINT"P[146]";
  290. 3025 IFUG=1THENDC=0:RETURN
  291. 3026 GOSUB11455:IFEG=8THENGOSUB6131:GOTO3030
  292. 3029 IF EG=80 THEN XX=1:ZE=0:SP=24:GOSUB11050:PRINT"P[146]";
  293. 3030 IF EG=79 THEN XX=0:ZE=0:SP=24:GOSUB11050:PRINT"/[146]";
  294. 3031 IF EG=67 THEN GOSUB 3500
  295. 3032 FORS1=41TO56:IFFC%(S1)<>EGTHENNEXTS1:GOTO3026
  296. 3035 IFS1>50THENS1=S1-10:GOTO3045
  297. 3040 ONS1-40GOSUB2334,3065,3080,3092,2464,2472,2480,3130,3181,3337:GOTO3025
  298. 3045 ONS1-40GOSUB3341,3345,3355,3370,3392,3425:GOTO3025
  299. 3065 IFPG=SETHENRETURN
  300. 3070 PG=PG+1:GOSUB6010:RETURN
  301. 3080 IFPG=1THENRETURN
  302. 3082 PG=PG-1:GOSUB6010:RETURN
  303. 3092 ZE=0:SP=0:GOSUB11050:PRINTKS$(6):ZE=0:SP=0:GOSUB11050:PRINTKS$(32):P=2:RV=1:GZ=2
  304. 3095 SP=36:ZE=0:GOSUB11303:H=VAL(EG$):IF(H<1ORH>SE)ORH=PGTHEN3115
  305. 3100 PG=H:GOSUB6010
  306. 3115 ZE=0:SP=0:GOSUB11050:PRINTKS$(28):ZE=0:SP=9:GOSUB11050:PRINTCHR$(18)DD$(SI)CHR$(146):RETURN
  307. 3130 IFSL=-1THEN3134
  308. 3131 GOSUB9782:ZE=23:SP=2:GOSUB11050:PRINTKS$(50);:GOSUB11445:IFEG=78THENSL=0:GOTO3134
  309. 3132 T3=SL:GOSUB3171:GOTO3157
  310. 3134 GOSUB9782:GOSUB2432:PG=SF:GOSUB6010
  311. 3135 H1=FD(NS,1)-50176:C1=INT(H1/40):C2=H1-40*C1
  312. 3137 H3=INT(FD(NS,1)/256):H4=FD(NS,1)-H3*256
  313. 3140 G1=INT(FD(NS,2)/256):G2=FD(NS,2)-G1*256
  314. 3142 ZE=23:SP=7:GOSUB11050:PRINTKS$(46)C$C$
  315. 3145 ZE=C1:SP=C2:GOSUB11050:PRINT;:LB(1)=0:LB(2)=1:GOSUB6920:EG=PEEK(2)
  316. 3147 IFEG=141THENGOSUB9782:PG=ES:GOSUB6010:RETURN
  317. 3150 POKE253,H4:POKE254,H3:POKE2,AS:POKE69,73:POKE70,128:SYS52493:GOSUB6305
  318. 3152 IFE<>0THENZE=23:SP=6:GOSUB11050:PRINTKS$(48)C$C$:POKE2,1:SYS51833:GOSUB9782:GOTO3142
  319. 3155 GOSUB3171:SH=T3:SL=T3
  320. 3157 IFSL<=SHTHENSL=SL-1:GOSUB3176:IFE<>0THENSL=SH:GOTO3163
  321. 3160 IFSL<=SHTHEN3165
  322. 3163 SL=SL+1:GOSUB3176:IFE<>0THENSL=-1:RETURN
  323. 3165 ZE=23:SP=5:GOSUB11050:PRINTKS$(51)C$C$:RETURN
  324. 3171 GOSUB6330:GOSUB6355:RETURN
  325. 3176 T4=I3+SL*(AS+3):H1=INT(T4/256):H2=T4-256*H1
  326. 3177 LB(1)=1:GOSUB6935:E=PEEK(2):RETURN
  327. 3181 T3=-1:IFCD=-1THEN3185
  328. 3182 GOSUB9782:ZE=23:SP=1:GOSUB11050:PRINTKS$(26);:GOSUB11445:GOSUB9782:IFEG=78THENCD=-1:GOTO3184
  329. 3183 T3=CD:GOTO3282
  330. 3184 FORS1=1TOAF:VZ%(S1)=0:NEXTS1
  331. 3185 GOSUB2424:GOSUB9782:ZE=23:SP=4:GOSUB11050:PRINTKS$(97)C$C$:PG=ES:NF=1:LL=1:EN=1
  332. 3186 GOSUB6010:A4=98:UD=0
  333. 3190 IFUD=1THENUD=0:RETURN
  334. 3195 GOSUB6027:FORS1=57TO67:IFFC%(S1)<>EGTHENNEXTS1:GOTO3195
  335. 3205 ONS1-56GOSUB3225,2353,2366,2380,3211,2398,2424,2444,2487,3240,3269,2642:GOTO3190
  336. 3211 IFFA%(NF)=5THENGOSUB2500:GOSUB2515:GOTO3215
  337. 3212 S1=NF:GOSUB6160
  338. 3213 IFFA%(NF)=14THENGOSUB2515
  339. 3214 IFFA%(NF)=4THENGOSUB2287
  340. 3215 IFNF=AFTHENGOSUB11243:GOTO3218
  341. 3216 NF=NF+1:LL=LL+1:IFLL>AF%(PG)THENGOSUB6115:LL=1
  342. 3217 RETURN
  343. 3218 GOSUB9782:ZE=23:SP=6:GOSUB11050:PRINTKS$(47);:GOSUB11445:GOSUB9782:IFEG=78THENRETURN
  344. 3219 GOSUB3269:RETURN
  345. 3225 GOSUB9782:ZE=23:SP=8:GOSUB11050(null)PRINTKS$(20);:GOSUB11445
  346. 3227 IFEG=78THENZE=23:SP=4:GOSUB11050:PRINTKS$(97)C$C$:RETURN
  347. 3230 PG=ES:GOSUB6010:S1=0:FORNF=1TOAF:S1=S1+1:IFS1<=AF%(PG)THEN3234
  348. 3231 GOSUB11243
  349. 3232 PG=PG+1:IFAF%(PG)=0THEN3232
  350. 3233 S1=1:GOSUB6010
  351. 3234 POKEFD(NF,1)-1,60:POKEFD(NF,1)+FD(NF,2),62:GOSUB2444
  352. 3235 NEXTNF:GOSUB11243:GOSUB9782:T3=0:UD=1:RETURN
  353. 3240 P1=FD(NF,1)-1:H1=P1-50176:ZE=INT(H1/40):SP=H1-ZE*40:GOSUB11050:PRINT;
  354. 3242 SYS51682:EG=PEEK(2):IF EG=13 THEN RETURN
  355. 3243 IFEG=76THENPOKEP1,60:POKEP1+FD(NF,2)+1,62:VZ%(NF)=0:GOTO3242
  356. 3245 IFEG=133THENPOKEP1,188:GOTO3260
  357. 3247 IFEG=134THENPOKEP1,190:GOTO3260
  358. 3250 IFEG=135THENPOKEP1,162:GOTO3260
  359. 3251 IFEG=136THENPOKEP1,142:GOTO3260
  360. 3252 IFEG=137THENPOKEP1,139:GOTO3260
  361. 3255 IFEG=138THENPOKEP1,135:GOTO3260
  362. 3257 IFEG=139THENPOKEP1+FD(NF,2)+1,143:VZ%(NF)=VZ%(NF)OR128:GOTO3242
  363. 3258 GOTO3242
  364. 3260 VZ%(NF)=(VZ%(NF)AND128)OR(EG-130):GOTO3242
  365. 3269 GOSUB11243:PG=ES:GOSUB6010:I4=45160:S2=0:FORS1=1TOAF:S2=S2+1:IFS2<=AF%(PG)THEN3273
  366. 3270 GOSUB11243
  367. 3271 PG=PG+1:IFAF%(PG)=0THEN3271
  368. 3272 S2=1:GOSUB6010
  369. 3273 IFPEEK(FD(S1,1))=42THENVZ%(S1)=1:GOTO3280
  370. 3274 IF(VZ%(S1)AND127)=5THEN3280
  371. 3275 IFFD(S1,2)=1THENPOKEI4,PEEK(FD(S1,1)):I4=I4+1:GOTO3280
  372. 3276 HB(1)=INT(FD(S1,1)/256):LB(1)=FD(S1,1)-HB(1)*256
  373. 3277 H1=FD(S1,1)+FD(S1,2)-1:HB(2)=INT(H1/256):LB(2)=H1-HB(2)*256
  374. 3278 HB(3)=INT(I4/256):LB(3)=I4-256*HB(3)
  375. 3279 AW=1:GOSUB11760:I4=I4+FD(S1,2)
  376. 3280 P1=FD(S1,1)-1:POKEP1,60:POKEP1+FD(S1,2)+1,62:NF=S1:GOSUB2444:NEXTS1:GOSUB11243
  377. 3281 I4=I4+1:H1=INT(I4/256):H2=I4-256*H1:GOSUB6950
  378. 3282 GOSUB9782:ZE=23:SP=11:GOSUB11050:PRINTKS$(109)C$C$:OPEN1,8,2,DD$(SI)+".R,L,"+CHR$(254)
  379. 3283 IFT3=AT-1THENCLOSE1:ZE=23:AG$=KS$(53):GOSUB11585:CD=-1:UD=1:RETURN
  380. 3284 T3=T3+1:GOSUB6330:PRINT#15,"P"+CHR$(2)+CHR$(PO(1))+CHR$(PO(2))+CHR$(PO(3))
  381. 3285 I4=45160
  382. 3286 A4=0:L2=0:FORS1=1TOAF:S6=0:IFVZ%(S1)=1THENGOSUB3328:NEXTS1:GOTO3325
  383. 3287 G1=INT(FD(S1,2)/255):G2=FD(S1,2)-G1*255
  384. 3288 FORS6=1TOG1+1:L1=255-PO(3):IFS6<>G1+1THENH4=255:GOTO3290
  385. 3289 H4=G2
  386. 3290 IFZ=1THENZ=0:PRINT#15,"P"+CHR$(2)+CHR$(PO(1))+CHR$(PO(2))+CHR$(PO(3))
  387. 3292 IFL1>H4THENQX=H4:GOSUB6905:PO(3)=PO(3)+H4:GOTO3303
  388. 3295 IFL1=H4THENQX=H4:GOSUB6905:GOSUB6396:GOTO3303
  389. 3297 POKE2,L1:POKE69,90:POKE70,215:SYS52453:GOSUB6396:QX=H4-L1:GOSUB6905:EG$=ZW$+EG$
  390. 3300 IFH4-L1=254THENGOSUB6396:GOTO3303
  391. 3301 PO(3)=PO(3)+H4-L1
  392. 3303 P1=VZ%(S1)AND127:P2=VZ%(S1)AND128
  393. 3304 IFP1=5ANDP3=0THENP3=1:I4=I4-FD(S1-1,2)
  394. 3305 IFP1=5THEN3307
  395. 3306 IFVZ%(S1-1)=5THENP3=0:I4=I4+FD(S1-1,2)
  396. 3307 H1=INT(I4/256):H2=I4-256*H1
  397. 3308 POKE251,H2:POKE252,H1:POKE69,69:POKE70,199:SYS49704:E=PEEK(2)
  398. 3309 IFP2=128THENA4=1
  399. 3313 IFP1=3ANDE=2THEN3322
  400. 3314 IFP1=7AND(E=2ORE=0)THEN3322
  401. 3315 IFP1=4ANDE=1THEN3322
  402. 3316 IFP1=8AND(E=1ORE=0)THEN3322
  403. 3317 IFP1=5ANDE=0THEN3322
  404. 3318 IFP1=6ANDE<>0THEN3322
  405. 3319 IFP1<>6ANDE=0THEN3322
  406. 3320 IFP2=128THENGOSUB3333:S6=G1+1:NEXTS6:NEXTS1:GOTO3325
  407. 3321 S6=G1+1:NEXTS6:S1=AF:NEXTS1:GOTO3283
  408. 3322 IFP2=128THENL2=1
  409. 3323 IFP1<>5THENI4=I4+H4
  410. 3324 NEXTS6:NEXTS1
  411. 3325 IFA4=1ANDL2<>1THEN3283
  412. 3326 CLOSE1:CD=T3:GOSUB6330:GOSUB6355:UD=1:RETURN
  413. 3328 IFS6=G1+1THENRETURN
  414. 3329 Z=1:H1=FD(S1,2)-S6*255:H2=255-PO(3)
  415. 3330 IFH2>H1THENPO(3)=PO(3)+H1:RETURN
  416. 3331 PO(3)=1:PO(1)=PO(1)+1:IFPO(1)=256THENPO(1)=0:PO(2)=PO(2)+1
  417. 3332 H1=H1-H2:H2=254:GOTO3330
  418. 3333 GOSUB3328:IFP1<>5THENI4=I4+FD(S1,2)-(S6-1)*255
  419. 3334 RETURN
  420. 3337 IFT3=AT-1THENGOSUB9782:ZE=23:AG$=KS$(53):GOSUB11585:POKE2,1:SYS51833:GOSUB9782:RETURN
  421. 3338 T3=T3+1:GOSUB3171:RETURN
  422. 3341 IFT3=0ORT3=-1THENGOSUB9782:ZE=23:AG$=KS$(52):GOSUB11585:POKE2,1:SYS51833:GOSUB9782:RETURN
  423. 3342 T3=T3-1:GOSUB3171:RETURN
  424. 3345 IFT3=-1THENGOSUB9782:ZE=23:AG$=KS$(96):GOSUB11585:POKE2,1:SYS51833:GOSUB9782:RETURN
  425. 3347 T3=0:GOSUB3171:RETURN
  426. 3355 IFT3=-1THENGOSUB9782:ZE=23:AG$=KS$(96):GOSUB11585:POKE2,1:SYS51833:GOSUB9782:RETURN
  427. 3357 T3=AT-1:GOSUB3171:RETURN
  428. 3370 IFDC=0THENZE=23:SP=6:GOSUB11050:PRINTKS$(59)C$C$:POKE2,1:SYS51833:GOSUB9782:RETURN
  429. 3375 ZE=23:SP=8:GOSUB11050:PRINTKS$(20);:GOSUB11445:GOSUB9782:IFEG=78THENRETURN
  430. 3380 ZE=23:SP=7:GOSUB11050:PRINTKS$(10)C$C$:GOSUB6255:GOSUB2432:PG=ES:GOSUB6010:DC=0:T3=0
  431. 3382 GOSUB9782:ZE=23:SP=8:GOSUB11050:PRINTKS$(80)C$C$:POKE2,1:SYS51833:GOSUB9782:RETURN
  432. 3392 IFDC=0THENZE=23:SP=6:GOSUB11050:PRINTKS$(59)C$C$:POKE2,1:SYS51833:GOSUB9782:RETURN
  433. 3400 ZE=23:SP=8:GOSUB11050:PRINTKS$(20);:GOSUB11445:GOSUB9782:IFEG=78THENRETURN
  434. 3405 ZE=23:SP=6:GOSUB11050:PRINTKS$(81)C$C$:GOSUB6255
  435. 3407 PG=ES:NF=1:LL=1:EN=1:GOSUB6010:A4=35:GOSUB2226:GOSUB9782:IFDC=2THENRETURN
  436. 3410 AT=AT+1:DS%(SI)=AT:GOSUB2533:GOSUB9782:RETURN
  437. 3425 IFAT=MTTHENPRINTCHR$(147):ZE=8:SP=0:GOSUB11050:PRINTKS$(40)KS$(41)KS$(42):UG=1:RETURN
  438. 3428 GOSUB9782:ZE=23:SP=9:GOSUB11050:PRINTKS$(95)C$C$
  439. 3430 PG=ES:NF=1:LL=1:EN=1:GOSUB6010:A4=35:DC=4:GOSUB2226:DC=0:GOSUB9782:RETURN
  440. 3500 IFT3=-1THENGOSUB9782:ZE=23:AG$=KS$(52):GOSUB11585:POKE2,1:SYS51833:GOSUB9782:RETURN
  441. 3501 GOSUB 3171:RETURN
  442. 4510 PRINTCHR$(147)CHR$(142)CHR$(8):POKE53280,0:POKE53281,0:POKE211,8:POKE214,11
  443. 4530 SYS58640:PRINTCHR$(30)" EINEN MOMENT BITTE !!! [146]":RETURN
  444. 4810 BA(1)=1024:BA(2)=50176:DR=142:RS=0:HP=0:PT=39491:SI=0:I1=63130:I2=I1+2
  445. 4815 I3=I1+152:MF%(1)=0:MF%(2)=0:MF%(3)=5:DF%(1)=0:DF%(2)=0:DF%(3)=5:A3=0:A4=0
  446. 4820 FF=0:ME=0:UG=0:ZE=0:SP=0:FE=0:NN=0:AD=0:RV=0:GZ=0:P=0:DD=0:DM=0:NF=0:LL=0
  447. 4825 EN=0:PG=0:FM=0:FE$="":HZ=0:C1=0:C2=0:C3=0:C4=0:HR=0:EA=0:GF=0:NS=0:SL=-1
  448. 4840 E=0:EG$="":EG=0:K=0:S1=0:AG$="":S2=0:RV$="":I$="":H$="":H1$="":H2$="":H=0
  449. 4842 H1=0:H2=0:H3=0:H4=0:H5=0:S6=0:S4=0:H3$="":ZP=0:G1=0:G2=0:ZW$="":S7=0:ZF=0
  450. 4844 SZ=0:SC=0:A1=0:Z$="":Z=0:L1=0:L2=0:CP=0:P3=0:P2=0:P1=0:CB=0:S=0:SH=0
  451. 4846 A2=0:T5=0:T1=0:T2=0:T3=0:T4=0:T1$="":I4=0:CD=-1:R1$="":R2$="":UD=0
  452. 4848 AF=0:GR=0:SE=0:ES=0:S5=0:AT=0:MT=0:S3=0:DL=0:SF=0:LF=0:ZG$="":AS=0:DC=0
  453. 4860 POKE 56325,51:POKE 650,128:OPEN15,8,15:TI$="000000"
  454. 4861 L$="                                        ":C$=CHR$(145):R$=CHR$(13)
  455. 5005 LB(1)=0:HB(1)=240:LB(2)=153:HB(2)=246:AW=32:GOSUB11710
  456. 5015 LB(1)=154:HB(1)=246:LB(2)=255:HB(2)=255:AW=32:GOSUB11710
  457. 5027 GOSUB5758
  458. 5110 READSZ
  459. 5115 FORS1=1TOSZ:READSC:FORS2=1TOSC:README$(S1,S2):NEXTS2:NEXTS1
  460. 5131 FORS1=1TO5:FORS2=1TO4:READAP%(S1,S2):NEXTS2:NEXTS1
  461. 5135 FORS1=1TO2:FORS2=1TO4:READHP%(S1,S2):NEXTS2:NEXTS1:PH(1)=52566:PH(2)=52570
  462. 5139 READSZ:FORS1=1TOSZ:READKS$(S1):NEXTS1
  463. 5144 READFM:FORS1=1TOFM:READFC%(S1):NEXTS1
  464. 5146 RETURN
  465. 5150 DATA2
  466. 5156 DATA16,"     DATENPFLEGE"
  467. 5158 DATA"[164][164][164][164]","[165]F1[167] : --- DATEI-DIRECTORY  ---","[163][163][163][163]"
  468. 5160 DATA"[164][164][164][164]","[165]F3[167] : --- DATEI EINLADEN   ---","[163][163][163][163]"
  469. 5162 DATA"[164][164][164][164]","[165]F5[167] : --- DATEN EINGEBEN   ---","[163][163][163][163]"
  470. 5164 DATA"[164][164][164][164]","[165]F7[167] : --- DATEN AUSGEBEN   ---","[163][163][163][163]"
  471. 5168 DATA"[164][164][164][164]","[165]F2[167] : --- DATEI SPEICHERN  ---","[163][163][163][163]"
  472. 5190 DATA17,"SONDERFUNKTIONEN"
  473. 5192 DATA"[164][164][164][164]","[165]F1[167] : -- DIRECTORY AUSGEBEN   --","[163][163][163][163]"
  474. 5194 DATA"[164][164][164][164]","[165]F3[167] : -- DISK-KOMMANDO SENDEN --","[163][163][163][163]"
  475. 5196 DATA"[164][164][164][164]","[165]F5[167] : -- ZEICHENSATZ EINLADEN --","[163][163][163][163]"
  476. 5200 DATA"---------------------------------"
  477. 5202 DATA"[164][164][164][164]","[165]F7[167] : -- LADEMENUE AUFRUFEN   --","[163][163][163][163]"
  478. 5204 DATA"[164][164][164][164]","[165]F8[167] : -- PROGRAMM BEENDEN     --","[163][163][163][163]"
  479. 5250 DATA0,160,71,163,72,163,143,166,144,166,215,169,216,169,31,173
  480. 5252 DATA32,173,103,176
  481. 5277 DATA0,240,71,243,82,243,153,246
  482. 5351 DATA145
  483. 5352 DATA"KEIN DATEI-DIRECTORY AUF DISKETTE !!"
  484. 5354 DATA"100<-LANGSAMER[221]SCHNELLER->25+'RETURN'[146]"
  485. 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]"
  486. 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]"
  487. 5360 DATA".............."
  488. 5362 DATA"                                        [146]"
  489. 5364 DATA"[213]NTER WELCHEM [206]AMEN WURDE DER [218]EICHENG. "
  490. 5368 DATA".."
  491. 5370 DATA"..."
  492. 5372 DATA"DATENSATZ WIRD GELOESCHT !"
  493. 5374 DATA " >>>> [200]AUPTMENUE: '[211]HIFT'+'[210]ETURN' <<<<"
  494. 5376 DATA"DT-LADEN/NAME D. DATEI? >              <[146]"
  495. 5378 DATA"     DIESE DATEI EXISTIERT NICHT !!     [146]"
  496. 5380 DATA"DATEI IST EINGELADEN !"
  497. 5382 DATA"-DATABASE 64------------DATEI-DIRECTORY-[146]"
  498. 5384 DATA"[206]AME DER [196]ATEI ?: >              <"
  499. 5386 DATA"[196]IESE [196]ATEI EXISTIERT NICHT !!"
  500. 5388 DATA" [196]ATABASE 64             [196]ATEI EINLADEN "
  501. 5390 DATA"  DT-LOESCHEN/NAME ?: >              <  [146]"
  502. 5392 DATA"SIND SIE SICHER ? (J/N)"
  503. 5394 DATA"DT-UMBEN/>              =              <[146]"
  504. 5396 DATA"SCRATCHING : "
  505. 5398 DATA"RENAMING : "
  506. 5400 DATA"DATEI IST GELOESCHT !"
  507. 5402 DATA"DATEI IST UMBENANNT !"
  508. 5404 DATA"MIT ALTER MASKE WEITERSUCHEN ? (J/N)"
  509. 5406 DATA"-DATEI: >              <-/DATEN-EINGABE-[146]"
  510. 5408 DATA"-DATEI: >              <-/DATEN-AUSGABE-[146]"
  511. 5410 DATA"-DATEI: >              <-/LISTENAUSGABE-[146]"
  512. 5412 DATA" [196]ATABASE 64          [218]EICHENSATZ LADEN "
  513. 5414 DATA" F1 "
  514. 5416 DATA"--SEITENNUMMER (1-5) ? + 'RETURN' :>  <-[146]"
  515. 5418 DATA"000000000000000"
  516. 5420 DATA"      KEINE DATENSAETZE VORHANDEN!      [146]"
  517. 5422 DATA"DATENSATZ ABSPEICHERN ? (J/N) "
  518. 5424 DATA"EINGABE LOESCHEN ? (J/N) "
  519. 5426 DATA"DATENSATZ IST ABGESPEICHERT !"
  520. 5428 DATA"DATENSATZ WIRD ABGESPEICHERT !"
  521. 5430 DATA"       KEINE DATEI IM RECHNER !!!       [146]"
  522. 5432 DATA"    --- DIE DATEI IST BELEGT !! ---     "
  523. 5434 DATA"    ES KOENNEN KEINE WEITEREN DATEN     "
  524. 5436 DATA"          EINGEGEBEN WERDEN !"
  525. 5438 DATA" [196]ATABASE 64            [196]ATEI SPEICHERN "
  526. 5440 DATA" ([196]IE [196]ATEI IM [210]ECHNER WIRD GELOESCHT!) "
  527. 5442 DATA":::::::::::::::::::::::::::::::::::::::"
  528. 5444 DATA"BITTE SCHLUESSEL EINGEBEN!"
  529. 5446 DATA"MIT SUCHE BEGINNEN ? (J/N) "
  530. 5448 DATA"SCHLUESSEL EXISTIERT NICHT !"
  531. 5450 DATA"DATENSATZ WIRD EINGELADEN!"
  532. 5452 DATA"NAECHSTEN DATENSATZ AUSGEBEN ?(J/N)"
  533. 5454 DATA"WEITERE DATENSAETZE VORHANDEN!"
  534. 5456 DATA"ANFANG DER DATEI ERREICHT!"
  535. 5458 DATA"ENDE DER DATEI ERREICHT!"
  536. 5460 DATA"    [214]OR [194]EENDUNG DES [208]ROGRAMMS MUSS     [146]"
  537. 5462 DATA"    DIE [196]ATEI ABGESPEICHERT WERDEN!     [146]"
  538. 5464 DATA
  539. 5466 DATA
  540. 5468 DATA
  541. 5470 DATA"KEIN DATENSATZ IM RECHNER !!"
  542. 5472 DATA" [196]ATABASE 64                  [196]IRECTORY "
  543. 5474 DATA"        [146]"
  544. 5476 DATA"     "
  545. 5478 DATA"     [215]EITER MIT '[211]PACE'    [146]"
  546. 5480 DATA"                            "
  547. 5482 DATA" [196]ATABASE 64             [196]ISK-[203]OMMANDOS "
  548. 5484 DATA"  [211]AEMTLICHE [196]ISK-[203]OMMANDOS KOENNEN IN  "
  549. 5486 DATA"  FOLGENDER,ABGEKUERZTER [198]ORM EINGEGE-  "
  550. 5488 DATA"  BEN WERDEN:"
  551. 5490 DATA"    K:...................._([196]ATEINAME,  "
  552. 5492 DATA"    ^                       USW.)         "
  553. 5494 DATA"  ([203]OMMANDO)"
  554. 5496 DATA"  Z.[194].: [196]ATEI UMBENENNEN:               "
  555. 5498 DATA"                   >R:NEUNAME=ALTNAME<  "
  556. 5500 DATA"        [196]ATEI LOESCHEN:                 "
  557. 5502 DATA"                   >S:DATEINAME<          "
  558. 5504 DATA"------------------------------------  "
  559. 5506 DATA"  [201]HR [203]OMMANDO? : [146] > :"
  560. 5508 DATA"<  + '[210]ETURN'        "
  561. 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]  "
  562. 5512 DATA"DATENSATZ IST GELOESCHT!"
  563. 5514 DATA"BITTE AENDERUNGEN EINGEBEN !"
  564. 5516 DATA"[211]IND [211]IE SICHER ? (J/N) "
  565. 5518 DATA"[203]OMMANDOEINGABE LOESCHEN ? (J/N) "
  566. 5520 DATA"[211]IE HABEN MIT DEM [208]ROGRAMM"
  567. 5522 DATA" [196]ATABASE 64           [208]ROGRAMM BEENDEN "
  568. 5524 DATA"[211]IND [211]IE SICHER,DASS [211]IE"
  569. 5526 DATA"DAS [208]ROGRAMM BEENDEN"
  570. 5528 DATA"WOLLEN ? (J/N) "
  571. 5530 DATA"GEARBEITET !"
  572. 5532 DATA" [211]TUNDE "
  573. 5534 DATA" [205]INUTE "
  574. 5536 DATA" [211]EKUNDE "
  575. 5538 DATA"UND "
  576. 5540 DATA"[157]N "
  577. 5542 DATA"BITTE DATEN EINGEBEN !"
  578. 5544 DATA"KEINE DATENSAETZE VORHANDEN!"
  579. 5546 DATA"BITTE SELEKTIONSMASKE EINGEBEN !"
  580. 5548 DATA"MIT SELEKTION BEGINNEN ? (J/N)"
  581. 5550 DATA"SAVING : "
  582. 5552 DATA"MO"
  583. 5554 DATA"DI"
  584. 5556 DATA"MI"
  585. 5558 DATA"DO"
  586. 5560 DATA"FR"
  587. 5562 DATA"SA"
  588. 5564 DATA"SO"
  589. 5566 DATA"F!"
  590. 5568 DATA"LOADING : "
  591. 5570 DATA"SELEKTION BEGINNT!"
  592. 5572 DATA"                                  "
  593. 5574 DATA
  594. 5576 DATA
  595. 5578 DATA"   ABGESPEICHERT ? : >              <"
  596. 5580 DATA
  597. 5582 DATA "-DATABASE 64---------------HELPSCREEN"
  598. 5584 DATA"-HS SPEICHERN/NAME ?: >              < -[146]"
  599. 5586 DATA"-HS LADEN  /  NAME ?: >              < -[146]"
  600. 5588 DATA"HELPSCREENS VERTAUSCHEN (J/N) ? "
  601. 5590 DATA,,,,,,,,,,,,,,,,,,,,,,,,
  602. 5640 DATA" [196]ATABASE 64         [204]ADEMENUE AUFRUFEN "
  603. 5642 DATA"[211]IND [211]IE SICHER ? (J/N) "
  604. 5670 DATA67
  605. 5674 DATA19,18,146,20,148,144,5,28,134,133,147,137,138,13,135,136,139,3
  606. 5716 DATA133,134,135,137,136,144,5,28
  607. 5735 DATA13,141,135,136,19,147,76,144,5,28,86,83,140,3
  608. 5745 DATA141,135,136,140,144,5,28,73,70,78,86,69,76,68,82,65
  609. 5755 DATA141,135,136,140,13,19,147,76,86,77,75,3
  610. 5758 LB(1)=0:HB(1)=208:LB(2)=255:HB(2)=223:LB(3)=0:HB(3)=224:AW=3:GOSUB11760
  611. 5759 P1(1)=58160:P1(3)=59184:P1(2)=60208:P1(4)=61232
  612. 5760 FORS2=1TO2:P1=P1(S2):FORS1=P1TOP1+6:POKES1,0:NEXTS1:POKEP1+7,24:NEXTS2
  613. 5762 FORS2=3TO4:P1=P1(S2):FORS1=P1TOP1+6:POKES1,255:NEXTS1:POKEP1+7,231:NEXTS2
  614. 5765 RETURN
  615. 5815 OPEN1,8,2,"DAT-DIR,S,R":GOSUB11322:IFFE<>0THEN5825
  616. 5820 SI=0:INPUT#1,AD:FORS1=1TOAD:INPUT#1,DD$(S1),SN%(S1),DS%(S1):NEXTS1
  617. 5825 CLOSE1:RETURN
  618. 5830 I$="DAT-DIR":PRINT#15,"S:"+I$:OPEN1,8,2,"DAT-DIR,S,W"
  619. 5832 PRINT#1,AD:FORS1=1TOAD:PRINT#1,DD$(S1)R$SN%(S1)R$DS%(S1):NEXTS1
  620. 5833 CLOSE1:RETURN
  621. 5838 OPEN1,8,2,I$+".D,S,R"
  622. 5840 INPUT#1,CB,DL,SF,NS,ES,AF:POKE56325,CB
  623. 5842 FORS1=1TOAF:FORS2=1TO2:INPUT#1,FD(S1,S2):NEXTS2:NEXTS1
  624. 5845 INPUT#1,LF:FORS1=1TOAF:INPUT#1,FA%(S1):NEXTS1
  625. 5850 INPUT#1,SE:FORS1=1TOSE:INPUT#1,AF%(S1):NEXTS1
  626. 5855 INPUT#1,S3:IFS3=0THEN5861
  627. 5860 FOR S1=1TOS3:INPUT#1,FO%(S1),FO$(S1):NEXTS1
  628. 5861 INPUT#1,S5:IFS5=0THEN5878
  629. 5867 S2=11:FORS1=1TOS5:INPUT#1,RO%(S1),EG$
  630. 5870 QX$="R="+EG$:LB(1)=S2:GOSUB6960
  631. 5872 S2=S2+2:NEXTS1:POKE601,15
  632. 5878 INPUT#1,ZG$,AS,GR:FORS1=1TOSE:INPUT#1,F1%(S1),F2%(S1),F3%(S1):NEXTS1
  633. 5880 CLOSE1
  634. 5895 LB(1)=0:HB(1)=160:QX$=I$+".E":GOSUB11860
  635. 5900 IFZG$="K"THEN5940
  636. 5905 LB(1)=0:HB(1)=224:QX$=ZG$+".Z":GOSUB11860
  637. 5940 OPEN1,8,2,I$+".I,S,R":INPUT#1,AT,MT:IFAT=0THENCLOSE1:GOTO5950
  638. 5942 INPUT#1,EA,GF,NP(1),NP(2),NP(3):CLOSE1:LB(1)=154:HB(1)=246:QX$=I$+".S"
  639. 5943 GOSUB11860:RETURN
  640. 5950 GF=0:NP(1)=1:NP(2)=0:NP(3)=1:EA=I3:RETURN
  641. 5985 IFPG=SETHENRETURN
  642. 5987 GOSUB11243:PG=PG+1:GOTO5994
  643. 5990 IFPG=1THENRETURN
  644. 5992 GOSUB11243:PG=PG-1
  645. 5994 GOSUB6010:RETURN
  646. 5998 ZE=0:SP=0:GOSUB11050:PRINTKS$(6):GOSUB11050:PRINTKS$(32)
  647. 6000 P=2:RV=1:GZ=2:SP=34:ZE=0:GOSUB11303:H=VAL(EG$):IFH<1ORH>SETHEN6004
  648. 6002 GOSUB11243:PG=H:GOSUB6010
  649. 6004 ZE=0:SP=0:GOSUB11050:PRINTKS$(A1):RETURN
  650. 6010 FF=F3%(PG):GOSUB11235:GOSUB11239
  651. 6011 POKE53280,F1%(PG):POKE53281,F2%(PG):RETURN
  652. 6013 GOSUB11243:GR=142:IFPEEK(53272)=27THENGR=14
  653. 6014 RETURN
  654. 6027 IFAF%(PG)=0THENS=0:GOTO6066
  655. 6030 S=1:H1=FD(NF,1)-50176:C1=INT(H1/40):C2=H1-40*C1
  656. 6032 H3=INT(FD(NF,1)/256):H4=FD(NF,1)-H3*256
  657. 6035 G1=INT(FD(NF,2)/256):G2=FD(NF,2)-G1*256
  658. 6040 ZE=C1:SP=C2:GOSUB11050:PRINT;:LB(1)=8:LB(2)=0:GOSUB6920:EG=PEEK(2)
  659. 6047 IFEG=8THENGOSUB6131:GOTO6030
  660. 6050 IF(EG=157OREG=145)ANDNF>1THENNF=NF-1:LL=LL-1:GOTO6073
  661. 6055 IF(EG=29OREG=17)ANDNF<AFTHENNF=NF+1:LL=LL+1:GOTO6073
  662. 6060 IFEG=13OREG=141THENRETURN
  663. 6062 IFEG<>133THEN6030
  664. 6066 ZE=22:SP=36:GOSUB11050:PRINTCHR$(18)KS$(31)C$C$CHR$(146):GETEG$:IFEG$<>""THEN6069
  665. 6067 FORS1=1TO75:NEXTS1:ZE=22:SP=36:GOSUB11050:PRINTKS$(31)C$C$:FORS1=1TO75:NEXTS1:GOTO6066
  666. 6069 EG=ASC(EG$):IFEG=141ANDS=1THEN6040
  667. 6070 RETURN
  668. 6073 IFLL=0THENGOSUB6100:LL=AF%(PG):GOTO6030
  669. 6075 IFLL>AF%(PG)THENGOSUB6115:LL=1:GOTO6030
  670. 6080 GOTO6030
  671. 6100 GOSUB11243
  672. 6102 PG=PG-1:IFAF%(PG)=0THEN6102
  673. 6105 EN=EN-AF%(PG):GOSUB6010:RETURN
  674. 6115 GOSUB11243:EN=EN+AF%(PG)
  675. 6120 PG=PG+1:IFAF%(PG)=0THEN6120
  676. 6125 GOSUB6010:RETURN
  677. 6131 GOSUB11243:HP=2:GOSUB 9500:GOSUB 11022:PRINTCHR$(GR):POKE781,DM:SYSPT
  678. 6132 GOSUB6010:ZE=0:SP=9:GOSUB11050:PRINTCHR$(18)DD$(SI)CHR$(146):GOSUB11028:RETURN
  679. 6140 PG=ES:GOSUB6010:S2=0:FORS1=1TOAF:GOSUB6160:S2=S2+1:IFS2<=AF%(PG)THEN6148
  680. 6144 PG=PG+1:IFAF%(PG)=0THEN6144
  681. 6146 S2=1:GOSUB6010
  682. 6148 NEXTS1:RETURN
  683. 6160 H1=INT(FD(S1,1)/256):H2=FD(S1,1)-H1*256
  684. 6165 G1=INT(FD(S1,2)/255):G2=FD(S1,2)-G1*255
  685. 6175 IFG1<>0THENG2=255
  686. 6177 POKE253,H2:POKE254,H1:POKE2,G2:POKE69,69:POKE70,199:SYS52493:F(S1)=VAL(EG$):RETURN
  687. 6215 IFAT<>0THEN6230
  688. 6220 POKE I1,51:POKE I1+1,247:H2=50:H1=247:LB(1)=2:GOSUB6935:EA=EA+AS+3
  689. 6225 H1=INT(EA/256):H2=EA-256*H1:POKEI1,H2:POKEI1+1,H1
  690. 6226 FORS1=1TO3:POKEI3+AS-1+S1,PO(S1):NEXTS1:AT=AT+1:DS%(SI)=AT:RETURN
  691. 6230 GOSUB6305:IFE=1THEN6235
  692. 6232 T3=T3+1
  693. 6235 H3=I3+T3*(AS+3):H1=INT(H3/256):H2=H3-256*H1:LB(1)=2:GOSUB6935
  694. 6237 FORS1=1TO3:POKEH3+AS-1+S1,PO(S1):NEXTS1:AT=AT+1:DS%(SI)=AT:EA=EA+AS+3
  695. 6238 RETURN
  696. 6255 GOSUB6330:H1=I2+GF*3-1:FORS1=1TO3:POKEH1+S1,PEEK(49700+S1):NEXTS1
  697. 6257 GF=GF+1:HB(2)=INT(EA/256):LB(2)=EA-256*HB(2):T4=T4+1:HB(1)=INT(T4/256)
  698. 6260 LB(1)=T4-256*HB(1):T4=T4-(AS+3):HB(3)=INT(T4/256)
  699. 6262 LB(3)=T4-256*HB(3):AW=1:GOSUB11760
  700. 6265 AT=AT-1:DS%(SI)=AT:EA=EA-(AS+3)
  701. 6267 HB(1)=INT(EA/256):LB(1)=EA-256*HB(1):POKEI1,LB(1):POKEI1+1,HB(1):RETURN
  702. 6305 T1=0:T2=AT:T5=INT(LOG(AT)/LOG(2)+1)
  703. 6310 T3=INT((T1+T2)/2):T4=I3+T3*(AS+3):H1=INT(T4/256):H2=T4-256*H1
  704. 6315 LB(1)=1:GOSUB6935:E=PEEK(2):IF E=0 THEN RETURN
  705. 6320 T5=T5-1:IFT5=0THENRETURN
  706. 6325 IFE=1THENT2=T3:GOTO6310
  707. 6327 T1=T3:GOTO6310
  708. 6330 T4=I3+T3*(AS+3)+AS
  709. 6332 H1=INT(T4/256):H2=T4-256*H1:T4=T4+2:H3=INT(T4/256):H4=T4-256*H3
  710. 6333 LB(1)=H2:HB(1)=H1:LB(2)=H4:HB(2)=H3:LB(3)=37:HB(3)=194:AW=1:GOSUB11760
  711. 6335 FORS1=1TO3:PO(S1)=PEEK(49700+S1):NEXTS1
  712. 6340 RETURN
  713. 6355 GOSUB 9782:PG=ES:GOSUB6010:ZE=23:SP=7:GOSUB11050:PRINTKS$(49)C$C$:S2=0
  714. 6356 OPEN1,8,2,DD$(SI)+".R,L,"+CHR$(254)
  715. 6357 PRINT#15,"P"+CHR$(2)+CHR$(PO(1))+CHR$(PO(2))+CHR$(PO(3))
  716. 6365 FORS1=1TOAF:G1=INT(FD(S1,2)/255):G2=FD(S1,2)-G1*255
  717. 6367 FORS6=1TOG1+1:L1=255-PO(3):IFS6<>G1+1THENH4=255:GOTO6375
  718. 6370 H4=G2
  719. 6375 IFL1>H4THENQX=H4:GOSUB6905:GOSUB6415:PO(3)=PO(3)+H4:NEXTS6:NEXTS1:GOTO6390
  720. 6380 IFL1=H4THENQX=H4:GOSUB6905:GOSUB6415:GOSUB6396:NEXTS6:NEXTS1:GOTO6390
  721. 6382 POKE2,L1:POKE69,90:POKE70,215:SYS52453:GOSUB6396:QX=H4-L1:GOSUB6905:EG$=ZW$+EG$:GOSUB6415
  722. 6385 IFH4-L1=254THENGOSUB6396:NEXTS6:NEXTS1:GOTO6390
  723. 6387 PO(3)=PO(3)+H4-L1:NEXTS6:NEXTS1
  724. 6390 CLOSE1:GOSUB9782:DC=1
  725. 6391 IF XX=1 THEN OPEN4,4:PRINT#4:PRINT#4:CLOSE4
  726. 6392 RETURN
  727. 6396 PO(3)=1:PO(1)=PO(1)+1:IFPO(1)=256THENPO(1)=0:PO(2)=PO(2)+1
  728. 6397 PRINT#15,"P"+CHR$(2)+CHR$(PO(1))+CHR$(PO(2))+CHR$(PO(3)):RETURN
  729. 6415 IF XX=1 THEN GOSUB 6475
  730. 6416 IF S6<>1 THEN 6435
  731. 6417 S2=S2+1:IFS2<=AF%(PG)THEN6435
  732. 6420 GOSUB11243
  733. 6425 PG=PG+1:IFAF%(PG)=0THEN6425
  734. 6430 S2=1:GOSUB6010
  735. 6435 IFS6=1THENG1=INT(FD(S1,2)/255):H1=FD(S1,1)-50176:ZE=INT(H1/40):SP=H1-40*ZE
  736. 6445 GOSUB11050:PRINTEG$
  737. 6450 IFS6<>G1+1THENH1=H1+255:ZE=INT(H1/40):SP=H1-40*ZE
  738. 6470 IFS1=AFANDS6=G1+1THENGOSUB11243:PG=ES:GOSUB6010
  739. 6472 RETURN
  740. 6475 OPEN4,4:GOSUB6500
  741. 6476 IFS6<>G1+1 THEN PRINT#4,EG$;:GOTO6478
  742. 6477 PRINT#4,EG$
  743. 6478 CLOSE4:RETURN
  744. 6500 FORII=1TOLEN(EG$):IFMID$(EG$,II,1)<>CHR$(166)THENNEXTII:RETURN
  745. 6510 EG$=LEFT$(EG$,II-1)+" "+RIGHT$(EG$,LEN(EG$)-II):NEXTII:RETURN
  746. 6775 GOSUB11022:BR%(1)=24:BR%(2)=0:BR%(3)=196:GOSUB11260:PRINTCHR$(9)CHR$(GR)
  747. 6780 POKE781,DM:SYSPT:PG=ES:NF=1:LL=1:EN=1
  748. 6781 ZE=0:SP=9:GOSUB11050:PRINTCHR$(18)DD$(SI)CHR$(146):GOSUB6010:GOSUB11028:RETURN
  749. 6807 GOSUB 11022:PRINTCHR$(14):ZE=0:SP=0:GOSUB11050:PRINTKS$(30)KS$(3):GOSUB11485
  750. 6808 ZE=19:SP=0:GOSUB11050:PRINTKS$(79)CHR$(17)KS$(79):GOSUB11027
  751. 6810 ZE=5:SP=0:GOSUB11050:PRINTKS$(7)CHR$(17)KS$(113)
  752. 6815 SP=22:ZE=7:GZ=14:RV=0:P=1:GOSUB11303:IFEG=141THENUG=1:RETURN
  753. 6822 EG$=EG$+".Z":ZE=20:SP=7:GOSUB11050:PRINTKS$(108)EG$
  754. 6825 LB(1)=0:HB(1)=224:QX$=EG$:GOSUB11860:GOSUB11322
  755. 6830 ZE=20:SP=0:GOSUB11050:PRINTL$:AG$=FE$:GOSUB11585:SP=0:GOSUB11050:PRINTL$
  756. 6831 IFFE<>0THEN6810
  757. 6832 UG=1:RETURN
  758. 6905 POKE2,QX:POKE69,69:POKE70,199:SYS52453:RETURN
  759. 6920 POKE52445,H4:POKE52446,H3:POKE52436,G2:POKE52437,G1:POKE199,0:POKE52440,13
  760. 6925 POKE52441,141:POKE52442,133:POKE52443,LB(1):POKE52444,LB(2):SYS51946:RETURN
  761. 6935 POKE49700,AS:POKE49698,H2:POKE49699,H1:POKE49497,LB(1):POKE69,73:POKE70,128
  762. 6940 SYS49460:RETURN
  763. 6950 POKE251,104:POKE252,176:POKE253,H2:POKE254,H1:SYS49787:RETURN
  764. 6960 POKE251,LB(1):POKE69,81:POKE70,216:SYS49352:RETURN
  765. 7010 A1=60:GOSUB7610:GOSUB11485:GOSUB11027
  766. 7055 OPEN1,8,0,"$":GET#1,H$,H$:I$=""
  767. 7057 GOSUB11322:IFFE=0THEN7060
  768. 7058 CLOSE1:ZE=12:SP=8:GOSUB11050:PRINTFE$:POKE2,2:SYS51833:UG=1:RETURN
  769. 7060 GET#1,H$,H$,H$,H$
  770. 7065 GET#1,H$:IFH$=""THEN7075
  771. 7070 I$=I$+H$:GOTO7065
  772. 7075 I$=KS$(61)+I$+KS$(61):ZE=2:SP=0:GOSUB11050:PRINTI$KS$(3)
  773. 7120 ZE=4:SP=0:GOSUB11050:PRINT;:Z=0
  774. 7130 GET#1,H$,H$:GET#1,H$,Z$:IFST<>0THEN7240
  775. 7135 H$=H$+CHR$(0):Z$=Z$+CHR$(0):E=ASC(H$)+ASC(Z$)*256:PRINTKS$(62)E;
  776. 7190 GET#1,H$:IFH$=""THEN7210
  777. 7200 PRINTH$;:GETEG$:IFEG$=CHR$(141)THENPRINT:CLOSE1:UG=1:RETURN
  778. 7205 GOTO7190
  779. 7210 PRINT:Z=Z+1:IFZ=17THENGOSUB7300:GOTO7120
  780. 7220 GOTO7130
  781. 7240 CLOSE1:GOSUB7330:UG=1:RETURN
  782. 7300 GOSUB7330:FORS1=1TO19:ZE=3+S1:SP=6:GOSUB11050:PRINTKS$(64):NEXTS1:RETURN
  783. 7330 ZE=22:SP=6:GOSUB11050:PRINTKS$(63)
  784. 7335 GET EG$:IFEG$<>" "THEN7335
  785. 7340 RETURN
  786. 7500 A1=65:GOSUB7610:PRINTC$KS$(66)KS$(67)KS$(68):PRINT
  787. 7518 PRINTKS$(69)KS$(70)KS$(71):PRINTCHR$(17)KS$(72)KS$(73)
  788. 7520 PRINTKS$(74)KS$(75)KS$(76):PRINTKS$(77):ZE=18:SP=20:GOSUB11050:PRINTKS$(78)
  789. 7522 PRINTKS$(79)CHR$(17)KS$(79)KS$(4)KS$(11)C$C$:GOSUB11027
  790. 7550 ZE=17:SP=20:GZ=40:RV=0:P=1:GOSUB11303:IFEG=141THENUG=1:RETURN
  791. 7552 IFLEFT$(EG$,1)<>"N"ANDLEFT$(EG$,1)<>"S"THEN7560
  792. 7554 ZE=21:SP=2:GOSUB11050:PRINTKS$(82);:GOSUB11445:SP=0:GOSUB11050:PRINTL$:IFEG<>74THEN7565
  793. 7560 PRINT#15,EG$:GOSUB11322:AG$=FE$:ZE=21:GOSUB11585:POKE2,2:SYS51833
  794. 7565 ZE=21:SP=2:GOSUB11050:PRINTKS$(83);:GOSUB11445:IF EG<>74 THEN 7574
  795. 7573 ZE=17:SP=20:GOSUB11050:PRINTL$:POKE1725,58
  796. 7574 ZE=21:SP=0:GOSUB11050:PRINTL$:GOTO7550
  797. 7610 GOSUB11022:PRINTCHR$(14)CHR$(8)C$KS$(A1)KS$(3):RETURN
  798. 7750 A1=85:GOSUB7610:ZE=3:SP=6:GOSUB11050:PRINTKS$(84):ZE=5:SP=1:GOSUB11050:PRINT;
  799. 7755 A1=90:AG$=LEFT$(TI$,2):GOSUB7795:AG$=MID$(TI$,3,2):GOSUB7795:PRINTKS$(93);
  800. 7765 AG$=RIGHT$(TI$,2):GOSUB7795:ZE=7:SP=13:GOSUB11050:PRINTKS$(89)
  801. 7766 ZE=10:SP=2:GOSUB11050:PRINTKS$(76)
  802. 7770 ZE=13:SP=7:GOSUB11050:PRINTKS$(86):ZE=15:SP=9:GOSUB11050:PRINTKS$(87)
  803. 7775 ZE=17:SP=12:GOSUB11050:PRINTKS$(88);:GOSUB11027:GOSUB11445:IFEG=78THEN165
  804. 7785 CLOSE15:SYS64738
  805. 7795 PRINTAG$KS$(A1);:IFVAL(AG$)<>1THENPRINTKS$(94);
  806. 7800 A1=A1+1:RETURN
  807. 9002 PRINTCHR$(147)CHR$(14)CHR$(8)
  808. 9005 ZE=0:SP=0:GOSUB11050:PRINTKS$(144)KS$(3):ZE=5:SP=7:GOSUB11050:PRINTKS$(145);
  809. 9010 GOSUB11445:IFEG=78THEN165
  810. 9020 PRINTCHR$(147)CHR$(144)"LOAD"CHR$(34)"DBL"CHR$(34)",8,1"
  811. 9030 POKE631,19:POKE632,13:POKE198,2:END
  812. 9782 ZE=23:SP=0:GOSUB11050:PRINTCHR$(146)L$C$C$:RETURN
  813. 10657 IF C2=21 THEN ZE=C2:SP=0:GOSUB11050:PRINTL$:RETURN
  814. 10658 IFHP<>1THENHB(1)=199:GOTO10662
  815. 10659 HB(1)=7
  816. 10662 POKE53223,C2-1:POKE53217,32:POKE53218,HB(1):SYS 53056:RETURN
  817. 10746 IFC2=21THENC2=20
  818. 10750 C2=C2+1:C1=0:H=C2*40-39:C3=INT(H/256):C4=H-256*C3:RETURN
  819. 11022 PRINTCHR$(147):POKE53280,0:POKE53281,0
  820. 11023 POKE53265,PEEK(53265)AND239:RETURN
  821. 11027 POKE53280,MF%(1):POKE53281,MF%(2)
  822. 11028 POKE53265,PEEK(53265)OR16:RETURN
  823. 11035 C3=PEEK(248):C4=PEEK(247):CP=C3*256+C4+39:C2=INT(CP/40):C1=CP-C2*40:RETURN
  824. 11050 POKE211,SP:POKE214,ZE:SYS58640:RETURN
  825. 11170 FF=FF+1:IFFF>=15THENFF=0
  826. 11175 POKE53280,FF:RETURN
  827. 11200 FF=FF+1:IFFF>=15THENFF=0
  828. 11205 POKE53281,FF:RETURN
  829. 11230 FF=FF+1:IFFF>=15THENFF=0
  830. 11235 LB(1)=0:HB(1)=216:LB(2)=231:HB(2)=219:AW=FF:GOSUB11710:POKE646,FF:RETURN
  831. 11239 LB(1)=AP%(PG,1):HB(1)=AP%(PG,2):LB(2)=AP%(PG,3):HB(2)=AP%(PG,4)
  832. 11240 LB(3)=40:HB(3)=196:AW=1:GOSUB11760:RETURN
  833. 11243 LB(1)=40:HB(1)=196:LB(2)=111:HB(2)=199
  834. 11244 LB(3)=AP%(PG,1):HB(3)=AP%(PG,2):AW=1:GOSUB11760:RETURN
  835. 11260 POKE53272,BR%(1):POKE56576,PEEK(56576)AND252ORBR%(2):POKE648,BR%(3):RETURN
  836. 11303 GOSUB11050:PRINT;:P3=ZE*40+SP+BA(P):P1=INT(P3/256):P2=P3-256*P1
  837. 11305 POKE52445,P2:POKE52446,P1:POKE52436,GZ:POKE52437,0:POKE199,RV:POKE52440,13
  838. 11306 POKE52441,141:POKE52442,0:POKE52443,0:POKE52444,1:SYS51946
  839. 11308 IF PEEK(2)=141 THEN EG=141:GOTO 11311
  840. 11310 POKE253,P2:POKE254,P1:POKE2,GZ:POKE69,69:POKE70,199:SYS52493
  841. 11311 POKE199,0:RETURN
  842. 11322 INPUT#15,FE,FE$,H$,Z$:FE$=STR$(FE)+","+FE$+","+H$+","+Z$+" !!!":RETURN
  843. 11445 SYS51682:EG=PEEK(2):IF EG<>74 AND EG<>78 THEN 11445
  844. 11450 RETURN
  845. 11455 GETEG$:IFEG$=""THEN11455
  846. 11457 EG=ASC(EG$):RETURN
  847. 11465 GOSUB11022:PRINTCHR$(14)CHR$(8)
  848. 11470 ZE=0:SP=0:GOSUB11050:PRINTKS$(A1)KS$(3)KS$(A2)KS$(3):RETURN
  849. 11485 ZE=23:SP=0:GOSUB11050:PRINTKS$(4)KS$(11)C$C$:RETURN
  850. 11510 RETURN
  851. 11585 SP=INT((40-LEN(AG$))/2):GOSUB11050:PRINTAG$C$C$:RETURN
  852. 11710 POKE251,LB(1):POKE252,HB(1):POKE253,LB(2):POKE254,HB(2):POKE2,AW:SYS51479:RETURN
  853. 11760 IFLB(1)=LB(2)ANDHB(1)=HB(2)THENRETURN
  854. 11764 POKE249,LB(1):POKE250,HB(1):POKE251,LB(2):POKE252,HB(2):POKE253,LB(3):POKE254,HB(3)
  855. 11765 POKE2,AW:SYS51586:RETURN
  856. 11810 POKE186,8:POKE251,LB(1):POKE252,HB(1):POKE51713,LB(2)
  857. 11815 POKE51714,HB(2):POKE69,81:POKE70,216:POKE183,LEN(QX$):SYS51716:RETURN
  858. 11860 POKE186,8:POKE781,LB(1):POKE782,HB(1):POKE185,0:POKE183,LEN(QX$)
  859. 11865 POKE187,238:POKE188,2:FORS1=1TOLEN(QX$):POKE749+S1,ASC(MID$(QX$,S1,1))
  860. 11870 NEXTS1:POKE780,0:SYS65493:RETURN
  861.