home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 86 / 64er_Magazin_Sonderheft_86_19xx_Markt__Technik_de_Side_A.d64 / dbi (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  31.9 KB  |  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,1: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,1: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,1:poke53281,1
  344. 4515 poke211,0:poke214,10:sys58640
  345. 4520 print"[144][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)=1:f2%(s1)=1:f3%(s1)=0:nexts1:mf%(1)=1:mf%(2)=1:mf%(3)=0
  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,1:poke53281,1
  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.