home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 19 / 64er_Magazin_Sonderheft_19_19xx_Markt__Technik_de.d64 / polydat (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  11.2 KB  |  367 lines
  1. 70 rem ********************************
  2. 80 rem *        initialisieren        *
  3. 90 rem ********************************
  4. 100 poke 55,0:poke 56,58:clr
  5. 110 print"[147]":poke 808,254
  6. 120 vi=53248:poke vi+32,6:poke vi+33,6
  7. 130 for i=0 to 62:read x:poke 832+i,x
  8. 140 next i:poke 2040,13:poke vi,55
  9. 150 poke vi+1,195:poke 657,128
  10. 160 s$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  11. 170 t$=s$+"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  12. 180 u$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  13. 190 poke 3,0:poke 4,0
  14. 200 print chr$(142)"[147][158]"tab(9)"[213]"s$"[201]":print tab(9)"[221]    polydat v2.0    [221]"
  15. 210 printtab(9)"[202]"s$"[203]":print" [213]"t$"[201]  [221]"spc(36)"[221]  [221]  autoren :";
  16. 220 print spc(25)"[221]  [221]"spc(36)"[221]  [221]        christian suesskind         [221]"
  17. 230 print" [221]"spc(36)"[221]  [221]        matthias kereit             [221]  [221]"spc(36)"[221]"
  18. 240 print" [202]"t$"[203]  [213]"t$"[201]"
  19. 250 print" [221]"spc(36)"[221]  [221]        copyright 1987              [221]  [221]"spc(36)"[221] ";
  20. 260 print" [221]        by markt & technik          [221]  [221]"spc(36)"[221]  [202]"t$"[203][145][145][145]"
  21. 270 poke vi+21,1:if peek(49152)=120andpeek(49153)=165andpeek(49154)=1 then 310
  22. 280 sys(57812)"d2",8:poke 780,0:poke 781,0:poke 782,192:sys 65493
  23. 290 open 15,8,15:input#15,a,b$,c,d:close 15:if a=0 then 310
  24. 300 print"      bitte programmdisk einlegen !":gosub 8100:goto 200
  25. 310 gosub 8600:poke vi+21,0
  26. 370 id=15000:dim x(30),y(30),l(30)
  27. 380 print"[147]":gosub 8900
  28. 760 :
  29. 770 rem *******************************
  30. 780 rem *         haupt-menue         *
  31. 790 rem *******************************
  32. 800 sys 52258
  33. 810 gosub 8100:a=asc(a$)-48
  34. 820 if a<1 or a>6 then 810
  35. 830 gosub 8700:on a goto 1000,2000,3000,4000,5000,6000
  36. 960 :
  37. 970 rem *******************************
  38. 980 rem *       datei einrichten      *
  39. 990 rem *******************************
  40. 1000 a$="datei einrichten":gosub 9000:print"   alte maske verwenden (j/n) ?
  41. 1010 [141] 8200:[139] a$[178]"j"[167] 1900
  42. 1015 [141] 8800:[139] dn$[179][177]""[167] [153]"load"
  43. 1020 dn$[178]"":[158] 51171
  44. 1030 ko$[178]"      'asc1' val(NULL)str$val     'asc2' atnpeekpeek(NULL)(NULL)lenleft$      ":[141] 9700
  45. 1040 [151] 250,0:[158] 50052:[139] [194](250)[179][177]147 [167] 1050
  46. 1045 [141] 8100:[139] a$[178]"load"[167] [153] a$
  47. 1048 [137] 1020
  48. 1050 [139] [194](250)[178]137 [167] [141] 8900:[137] 9600
  49. 1060 [141] 8900:[158] 49210:[141] 9210:[139] ae [175] ae[179][178]30 [175] rl[179]255 [167] 1400
  50. 1070 [139] ae[178]0 [167] ko$[178]"     (NULL)valright$(NULL) valright$(NULL)chr$atnpeekvalascval(NULL)str$ (NULL)(NULL)(NULL)left$atn(NULL)str$val(NULL) !     "
  51. 1080 [139] ae[177]30 [167] ko$[178]"       (NULL)(NULL)(NULL)right$val(NULL)val valright$(NULL)chr$atnpeekvalascval(NULL)str$val(NULL) !        "
  52. 1090 [139] rl[177]254 [167] ko$[178]"          str$atn(NULL)val(NULL)(NULL)atn(NULL)(NULL) (NULL)(NULL) (NULL)atn(NULL)chr$ !         "
  53. 1100 [141] 9700:[141] 8100:[137] 1030
  54. 1400 a$[178]"datei einrichten":[141] 9000
  55. 1410 [153] [199](142)"   maske aendern (j/n) ?":[141] 8200
  56. 1420 [139] a$[178]"j"[167] [141] 8800:[137] 1030
  57. 1500 [139] ae[178]1 [167] za[178]1:[137] 1530
  58. 1510 [153]"   indexfeld (1";[196]([171]ae);") :";:l[178][195]([196](ae))[171]1
  59. 1520 [141] 8300:[139] za[179]1 [176] za[177]ae [176] a[178]133 [167] [153]"ononon":[137] 1510
  60. 1530 in[178]za:[151] id[170]1,in:[153]
  61. 1540 [153]"   datendisk einlegen !      >taste<":[141] 8100
  62. 1560 [153]"on                                    onon":[159] 15,8,15:[141] 9210
  63. 1570 [141] 9800:[160] 15:fb[178]fb[171]6
  64. 1680 [139] a [167] [141] 8530:[137] 1550
  65. 1690 [139] fb[179]0 [167] [153]"   diskette voll !      >taste<on":[141] 8100:[137] 1540
  66. 1700 ne[178]1:[151] id[170]4,1:[151] id[170]5,0
  67. 1720 [141] 9300:dn$[178]na$
  68. 1730 [158](57812)"m-"[170]dn$,8
  69. 1740 [158] 52926:[159] 15,8,15
  70. 1750 [132]15,a,b$,c,d:[139] a[178]0 [167] 1790
  71. 1760 [139] a[179][177]63 [167] [141] 8530:[137] 1730
  72. 1770 [153]"   datei bereits vorhanden !":[153]"   ueberschreiben (j/n) ?"
  73. 1780 [141] 8200:[139] a$[178]"n"[167] [160] 15:[137] 1720
  74. 1785 [152]15,"s:??"dn$:[160] 15:[137] 1730
  75. 1790 [160] 15:[158](57812)"i-"[170]dn$,8
  76. 1800 [151] 193,152:[151] 194,58
  77. 1810 x[178]id[170]7[170]3[172]ae[170]nu[172](il[170]2):[151] 175,x[173]256:[151] 174,x[171]256[172][194](175):[158] 62957
  78. 1820 [141] 8500:[139] a [167] 1790
  79. 1830 [159] 1,8,2,"  "[170]dn$[170]",l,"[170][199](rl)
  80. 1840 [160] 1
  81. 1860 [153]"   daten eingeben (j/n) ?":[141] 8200
  82. 1870 [139] a$[178]"j"[167] [141] 9200:[137] 2020
  83. 1880 [137] 800
  84. 1900 [153]"   name der maske :";
  85. 1910 na$[178]dn$:l[178]14:[141] 8400
  86. 1920 [158](57812)"m-"[170]na$,8:[151] 780,0:[151] 781,0:[151] 782,160:[158] 65493
  87. 1930 [141] 8500:[139] a [167] 1000
  88. 1940 [158] 49210:ae[178][194](id):[137] 1410
  89. 1960 :
  90. 1970 [143] ******************************
  91. 1980 [143] *       daten eingeben       *
  92. 1990 [143] ******************************
  93. 2000 a$[178]"daten eingeben":[141] 9000:[141] 9300
  94. 2010 [141] 9100:[139] a [167] 2000
  95. 2020 al[178]ne:[159] 15,8,15:[141] 9800
  96. 2100 [160] 15:fb[178][181](252[172]fb[173]rl):fb[178][181](fb[173](1[170]il[173]254))
  97. 2105 [139] fb[179]1 [167] [141] 8800:[137] 2460
  98. 2110 [159] 1,8,2,"  "[170]dn$:[141] 8510
  99. 2112 [139] a [167] [160] 1:[137] 2000
  100. 2115 [141] 8800
  101. 2120 x[178][181](ne[173]256):y[178]ne[171]256[172]x:[152]15,"p"[170][199](2)[170][199](y)[170][199](x)[170][199](1)
  102. 2125 [132]15,a,b$,c,d
  103. 2130 ko$[178]" 'asc1' val(NULL)str$val str$val(NULL) valright$(NULL)chr$atnpeekval  'asc2' atnpeekpeek(NULL)(NULL)lenleft$  ":i[178]1
  104. 2140 [141] 9700:[141] 9510:[158] 49979
  105. 2300 ie[178]2:x[178]id[170]6[170]3[172]ae[170](ne[171]1)[172](il[170]2):[151] x[170]1,ne[173]256:[151] x,ne[171]256[172][194](x[170]1)
  106. 2310 [129] i[178]1 [164] l(in):[151] x[170]1[170]i,[194](1023[170]40[172]y(in)[170]x(in)[170]i):[130] i:ne[178]ne[170]1
  107. 2400 ko$[178]" 'val' val(NULL)str$val  'atn' atnval(NULL)str$val(NULL)(NULL)  'asc1' valright$(NULL)chr$valpeekval(NULL) ":[141] 9700
  108. 2410 [141] 8100:[139] a$[178]"a"[167] ne[178]ne[171]1:ie[178]3:[137] 2120
  109. 2420 [139] a$[178]"e"[167] 2500
  110. 2430 [139] a$[178]"let"[167] [160] 1:[160] 15:[141] 9900:[141] 2800:[137] 2400
  111. 2440 [139] a$[179][177]"input"[167] 2410
  112. 2450 fb[178]fb[171]1:[139] fb[177]0 [167] 2120
  113. 2460 [160] 1:[160] 15
  114. 2470 ko$[178]" val(NULL)str$val str$val(NULL) valright$(NULL)chr$atnpeekval !   str$right$(NULL)(NULL)val(NULL)(NULL)val (NULL)(NULL)(NULL)(NULL) ! ":[141] 9700
  115. 2480 [139] ie[178]0 [167] [141] 8100:[137] 800
  116. 2500 [151] id[170]5,ne[173]256:[151] id[170]4,ne[171]256[172][194](id[170]5):[139] ne[178]al [167] 2700
  117. 2510 [151] 248,al[173]256:[151] 247,al[171]256[172][194](248):[151] 189,il[170]2:[158] 49514
  118. 2700 [160] 1:[160] 15
  119. 2710 [159] 1,8,15,"s:i-"[170]dn$:[160] 1
  120. 2720 [158](57812)"i-"[170]dn$,8:[151] 193,152
  121. 2730 [151] 194,58:x[178]id[170]7[170]3[172]ae[170]ne[172](il[170]2)
  122. 2740 [151] 175,x[173]256:[151] 174,x[171]256[172][194](175):[158] 62957:ie[178]0:[137] 800
  123. 2800 [159] 1,8,2,"  "[170]dn$:[137] 8510
  124. 2960 :
  125. 2970 [143] ******************************
  126. 2980 [143] *        daten suchen        *
  127. 2990 [143] ******************************
  128. 3000 gf[178]0:ie[178]0:a$[178]"daten suchen":[141] 9000:[141] 9300
  129. 3010 [141] 9100:[139] a [167] 3000
  130. 3020 [139] ne[178]1 [167] [153]"   keine daten vorhanden !":[141] 8100:[137] 800
  131. 3021 [153]"   bereich oder einzeln suchen (b/e) ?"
  132. 3022 [141] 8100:[139] a$[179][177]"b"[175] a$[179][177]"e"[167] 3022
  133. 3023 su$[178]a$:[139] su$[178]"e"[167] 3025
  134. 3024 [153]"   vollstaendig ausdrucken (j/n) ?":[141] 8200:ad$[178]a$
  135. 3025 [159] 1,8,2,"  "[170]dn$:[159] 2,8,15
  136. 3030 ko$[178]" 'asc1' val(NULL)str$val str$val(NULL) valright$(NULL)chr$atnpeekval  'asc2' atnpeekpeek(NULL)(NULL)lenleft$  "
  137. 3040 [141] 9500:[141] 8900:t[178]0:w[178]0
  138. 3100 [129] j[178]1 [164] ae:i[178]0:[129] k[178]0 [164]l(j)[171]1
  139. 3110 [139] [194](1024[170]x(j)[170]40[172]y(j)[170]k)[179][177]32 [167] i[178]1:w[178]w[171](j[179][177]in):k[178]l(j)[171]1
  140. 3120 [130] k:[151] 51725[170]j,i:[130] j
  141. 3130 i[178][194](51725[170]in)
  142. 3140 [139] i[178]0 [167] an[178]1:e[178]ne[171]1:[137] 3300
  143. 3200 [158] 51205:[139] [194](248)[178]0 [167] 3800
  144. 3210 an[178]256[172][194](250)[170][194](249)
  145. 3220 e[178]256[172][194](252)[170][194](251)
  146. 3300 [139] su$[178]"e"[167] 3330
  147. 3310 [139] an[177]e [175] gf[178]1 [167] 3750
  148. 3320 [139] an[177]e [167] 3800
  149. 3330 [141] 8800:[141] 9700:az[178]an:[139] w[178]0 [167] 3500
  150. 3400 i[178]id[170]6[170]3[172]ae[170](il[170]2)[172](an[171]1)
  151. 3410 lo[178][194](i):hi[178][194](i[170]1):[152]2,"p"[170][199](2)[170][199](lo)[170][199](hi)[170][199](1)
  152. 3420 [158] 51761:az[178]an
  153. 3430 [139] [194](248)[178]0 [175] an[178]e [175] (su$[178]"e" [176] gf[178]0) [167] 3800
  154. 3440 [139] [194](248)[178]0 [175] an[178]e [167] 3750
  155. 3450 [139] [194](248)[178]0 [167] an[178]an[170]1:[137] 3400
  156. 3500 gf[178]1:i[178]id[170]6[170]3[172]ae[170](il[170]2)[172](an[171]1)
  157. 3510 lo[178][194](i):hi[178][194](i[170]1):[152]2,"p"[170][199](2)[170][199](lo)[170][199](hi)[170][199](1)
  158. 3520 [158] 49906:an[178]an[170]1
  159. 3521 [139] su$[178]"e"[167] 3530
  160. 3523 ko$[178]"  'str$' str$(NULL)(NULL)len(NULL)val(NULL)  '(NULL)atn(NULL)(NULL)val'  weitersuchen  ":[139] ad$[178]"j"[167] 3525
  161. 3524 [141] 9700:[141] 8100:[139] a$[179][177]"d"[167]3300
  162. 3525 [141] 9700:[158] 50843:[139] [194](2)[178]0 [167] [158] 49376:[137] 3300
  163. 3526 [160] 1:[160] 2
  164. 3527 ok$[178]ko$:ko$[178]"   str$(NULL)(NULL)len(NULL)val(NULL) valright$(NULL)(NULL)lenleft$atn(NULL)(NULL)val(NULL) !    >(NULL)atn(NULL)(NULL)val<   ":[141] 9700:ko$[178]ok$
  165. 3528 [158] 50843:[139] [194](2)[179][177]0 [167] [141] 8100:[137] 3528
  166. 3529 [141] 9700:[158] 49376:[159] 1,8,2,"  "[170]dn$:[159] 2,8,15:[137] 3300
  167. 3530 ko$[178]" 'str$'str$(NULL)(NULL)len(NULL)val(NULL) 'atn'atnval(NULL)str$val(NULL)(NULL) '+/-'peek(NULL)atnval(NULL)(NULL)val(NULL)(NULL) ":[141] 9700
  168. 3540 [141] 8100:[139] a$[179][177]"d"[167] 3550
  169. 3545 [158] 50843:[139] [194](2)[178]0 [167] [158] 49376:[137] 3530
  170. 3546 [160] 1:[160] 2:ko$[178]" str$(NULL)(NULL)len(NULL)val(NULL) valright$(NULL)(NULL)lenleft$atn(NULL)(NULL)val(NULL) ! 'asc1' (NULL)(NULL)vallen(NULL)(NULL)valleft$(NULL) ":[141] 9700
  171. 3547 [141] 8100:[139] a$[178]"input"[167] [159] 1,8,2,"  "[170]dn$:[159] 2,8,15:[137]3530
  172. 3548 [158] 50843:[139] [194](2)[179][177]0 [167] 3547
  173. 3549 [158] 49376:[159] 1,8,2,"  "[170]dn$:[159] 2,8,15:[137] 3530
  174. 3550 [139] a$[178]"+"[175] an[179][177]ne [167] 3500
  175. 3551 [139] a$[178]"-"[175] an[179][177]2 [167] an[178]an[171]2:[137] 3500
  176. 3552 [139] a$[178]"+"[176] a$[178]"-"[167] 3540
  177. 3554 [139] a$[179][177]"a"[167] an[178]az:[137] 3600
  178. 3555 ko$[178]" 'asc1' val(NULL)str$val str$val(NULL) valright$(NULL)chr$atnpeekval  'asc2' atnpeekpeek(NULL)(NULL)lenleft$  "
  179. 3560 ie[178]1:i[178]1:[141]9700:[141]9510:[152]2,"p"[170][199](2)[170][199](lo)[170][199](hi)[170][199](1)
  180. 3570 i[178]id[170]6[170]3[172]ae:x[178]i[170](ne[171]1)[172](il[170]2):y[178]i[170](an[171]2)[172](il[170]2):[129] j[178]2 [164] il[170]1
  181. 3575 [151] y[170]j,[194](1022[170]40[172]y(in)[170]x(in)[170]j):[130] j:[129] j[178]0 [164] il[170]1
  182. 3580 [151] x[170]j,[194](y[170]j):[130] j:[129] j[178]y [164] x:[151] j,[194](j[170]il[170]2):[130] j
  183. 3590 [151] 248,(ne[171]1)[173]256:[151] 247,ne[171]1[171]256[172][194](248):[151] 189,il[170]2:[158] 49514
  184. 3595 [158] 49979:[137]3530
  185. 3600 an[178]an[170]1:[139] an[179][178]e [167]ko$[178]"'(NULL)' (NULL)valright$(NULL)val(NULL)  '(NULL)' (NULL)val(NULL) (NULL)(NULL)lenleft$val(NULL)  'asc1' val(NULL)str$val ":[137]3710
  186. 3700 ko$[178]"      '(NULL)' (NULL)val(NULL) (NULL)(NULL)lenleft$val(NULL)   'asc1' val(NULL)str$val      "
  187. 3710 [141] 9700:[141] 8100
  188. 3720 [139] a$[178]"w"[175] an[179][178]e [167] 3300
  189. 3730 [139] a$[178]"n"[167] 3030
  190. 3740 [139] a$[179][177]"input"[167] 3710
  191. 3750 [160] 1:[160] 2:[139] ie [167] 2710
  192. 3760 [137] 800
  193. 3800 ko$[178]"  str$atn(NULL)val(NULL)(NULL)atn(NULL)(NULL) (NULL)right$lenleft$(NULL) (NULL)(NULL)(NULL)left$atn(NULL)str$val(NULL)  >(NULL)atn(NULL)(NULL)val<  "
  194. 3810 [141] 9700:[141] 8100
  195. 3820 [139] su$[178]"e"[167] 3700
  196. 3830 [137] 3750
  197. 3960 :
  198. 3970 [143] ******************************
  199. 3980 [143] *      druckerparameter      *
  200. 3990 [143] ******************************
  201. 4000 a$[178]"druckerparameter":[141] 9000
  202. 4010 [153]"   breitschrift (j/n) ?":[141] 8200:d$[178]a$:[139] d$[178]"j"[167] 4040
  203. 4020 [153]"   tabwert (0-40) :  cmdcmd";
  204. 4030 l[178]2:[141] 8300:[151] 4,za:[139] za[179]0 [176] za[177]40 [167] [153]"ononon":[137] 4020
  205. 4040 [151] 3,0:[139] d$[178]"j"[167] [151] 3,1
  206. 4050 [137] 800
  207. 4960 :
  208. 4970 [143] ******************************
  209. 4980 [143] *      diskoperationen       *
  210. 4990 [143] ******************************
  211. 5000 [158] 52261
  212. 5010 [141] 8100:a[178][198](a$)[171]48
  213. 5020 [139] a[179]1 [176] a[177]6 [167] 5010
  214. 5030 [141] 8700:[145] a [137] 5100,5300,5400,5500,5600,800
  215. 5100 a$[178]"directory":[141] 9000:[159] 1,8,0,"$0"
  216. 5110 [161]#1,a$,b$:[141] 8510:[139] a [167] [160] 15:[137] 5800
  217. 5120 a$[178]"directory":[141] 9000:[129] i[178]1 [164] 16
  218. 5130 [158] 49753:[139] st [167] 5180
  219. 5140 [161] a$:[139] a$[178]"goto"[167] 9600
  220. 5150 [139] a$[178]"input"[167] [160] 15:[137] 5800
  221. 5160 [130] i:[139] st [167] 5180
  222. 5170 [153]:[153]:[141] 8600:[137] 5120
  223. 5180 [153]"blocks free":[160] 15
  224. 5190 [141] 8600:[137] 5800
  225. 5300 a$[178]"datei loeschen":[141] 9000:f[178]44:l[178]14
  226. 5310 [153]"   name der datei :";
  227. 5320 na$[178]"":[141] 8400
  228. 5330 [159] 1,8,15,"s:??"[170]na$[170]","[170]na$
  229. 5340 [137] 5800
  230. 5400 a$[178]"datei umbenennen":[141] 9000:[153]"   alter name :";
  231. 5410 l[178]14:na$[178]dn$:[141] 8400:ma$[178]na$
  232. 5420 [153]:[153]"   neuer name :";
  233. 5430 l[178]14:na$[178]"":[141] 8400:[139] na$[178]ma$ [167] 5000
  234. 5440 [159] 1,8,15,"r:m-"[170]na$[170]"=m-"[170]ma$
  235. 5450 [152]1,"r:i-"[170]na$[170]"=i-"[170]ma$
  236. 5460 [152]1,"r:  "[170]na$[170]"=  "[170]ma$
  237. 5470 [152]1,"r:"[170]na$[170]"="[170]ma$:[160] 1
  238. 5480 [159] 1,8,15:[132]1,a,b$,c,d
  239. 5490 [160] 1:dn$[178]na$:[137] 5000
  240. 5500 a$[178]"disk formatieren":[141] 9000
  241. 5510 [153]"   diskettenname :";
  242. 5520 l[178]16:na$[178]"":[141] 8400
  243. 5530 [153]"   disketten id :";:ma$[178]na$
  244. 5540 l[178]2:na$[178]"":[141] 8400
  245. 5550 [159] 1,8,15:[152]1,"m-w"[199](81)[199](0)[199](1)[199](255):[160] 1
  246. 5560 [159] 1,8,15,"n:"[170]ma$[170]","[170]na$
  247. 5570 [153];:[137] 5800
  248. 5600 [159] 1,8,15,"v"
  249. 5800 [160] 1:[141] 8500:[137] 5000
  250. 5960 :
  251. 5970 [143] ******************************
  252. 5980 [143] *       progsamm ende        *
  253. 5990 [143] ******************************
  254. 6000 [153] [163]12)"sicher (j/n) ?";
  255. 6010 [141] 8200:[139] a$[178]"n"[167] 800
  256. 6020 [158] 58236
  257. 7960 :
  258. 7970 [143] ******************************
  259. 7980 [143] *  allgemeine unterroutinen  *
  260. 7990 [143] ******************************
  261. 8000 [151] 211,x:[151] 214,y:[158] 58640
  262. 8010 [142]
  263. 8090 :
  264. 8100 [151] 198,0
  265. 8110 [161] a$:[139] a$[178]""[167] 8110
  266. 8120 [139] a$[178]"goto"[167] 9600
  267. 8130 [142]
  268. 8190 :
  269. 8200 [141] 8100
  270. 8210 [139] a$[179][177]"j"[175] a$[179][177]"n"[167] 8200
  271. 8220 [142]
  272. 8290 :
  273. 8300 [129] i[178]1 [164] l:[151] 256[170]i,0:[130] i
  274. 8310 f[178]1:[151] 250,l:[158] 50877
  275. 8320 [141] 8420:za[178][197](na$):[142]
  276. 8390 :
  277. 8400 [129] i[178]1 [164] l:[151] 256[170]i,[198]([202](na$,i,1)[170][199](0)):[130] i
  278. 8410 f[178]0:[151] 250,l:[158] 50885
  279. 8420 [139] [194](250)[178]137 [167] 9600
  280. 8430 x[178]1024[170][194](211)[170]40[172][194](214)
  281. 8440 na$[178]"":[129] i[178]1 [164] l:y[178][194](x[170]i)
  282. 8450 y[178]y[171]64[172](y[179]32 [176] y[177]95)[171]32[172](y[177]63 [175] y[179]96):na$[178]na$[170][199](y):[130] i
  283. 8460 [139] [201](na$,1)[178]" "[167] na$[178][200](na$,[195](na$)[171]1):[137] 8460
  284. 8470 [139] na$[179][177]""[176] f [167] [153]:[142]
  285. 8480 [137] 8410
  286. 8490 :
  287. 8500 [141] 8510:[160] 15:[142]
  288. 8510 [159] 15,8,15:[132]15,a,b$,c,d
  289. 8520 [139] a[178]0 [167] [142]
  290. 8530 [151] 250,a:[158] 51927:a[178][194](250)
  291. 8540 [153]:[139] a [167] [153]"  "a;b$;c;d
  292. 8550 [160] 15:a[178]1
  293. 8590 :
  294. 8600 [153] [163]30)">return<":[139] id [167] 8100
  295. 8610 [161] a$:[139] a$[178]""[167] 8610
  296. 8620 [142]
  297. 8690 :
  298. 8700 x[178](4[170]2[172]a)[172]40[170]1136
  299. 8710 [129] i[178]13 [164] 1 [169] [171]1
  300. 8720 [151] x[171]27[170]i,[194](x[171]27[170]i) [176] 128
  301. 8730 [151] x[171]i,[194](x[171]i) [176] 128:[130] i
  302. 8740 [129] i[178]0 [164] 100:[130] i:[142]
  303. 8790 :
  304. 8800 [151] 49166,160:[151] 49170,4
  305. 8810 [153] [199](14);:[158] 49152:[142]
  306. 8890 :
  307. 8900 [151] 49166,4:[151] 49170,160
  308. 8910 [137] 8810
  309. 8990 :
  310. 9000 [153]"load"[163]20[171][195](a$)[173]2);a$:[153][163]20[171][195](a$)[173]2);[200](u$,[195](a$))
  311. 9010 [153] [199](142);:[158] 51171:[142]
  312. 9090 :
  313. 9100 a[178]0:[139] na$[178]dn$ [167] 9200
  314. 9110 [158](57812)"m-"[170]na$,8:[151] 780,0:[151] 781,0:[151] 782,160:[158] 65493
  315. 9120 [141] 8500:[139] a [167] [142]
  316. 9130 [158](57812)"i-"[170]na$,8:[151] 780,0:[151] 781,152:[151] 782,58:[158] 65493
  317. 9140 [141] 8500:[139] a [167] [142]
  318. 9150 dn$[178]na$
  319. 9190 :
  320. 9200 [158] 49334
  321. 9210 ae[178][194](id):in[178][194](id[170]1)
  322. 9220 [139] ae[177]30 [167] [142]
  323. 9240 ne[178][194](id[170]4)[170]256[172][194](id[170]5)
  324. 9250 [129] i[178]1 [164] ae:x[178]id[170]3[170]3[172]i:l(i)[178][194](x):x(i)[178][194](x[170]1):y(i)[178][194](x[170]2):[130] i
  325. 9260 rl[178]0:[129] i[178]1 [164] ae:rl[178]rl[170]l(i):[130]
  326. 9270 il[178]l(in):[142]
  327. 9290 :
  328. 9300 [153]"   name der datei :";:l[178]14
  329. 9310 f[178]42:na$[178]dn$:[141] 8400:[142]
  330. 9490 :
  331. 9500 i[178]1:[141] 8800:[141] 9700
  332. 9510 x[178]x(i):y[178]y(i):[141] 8000
  333. 9520 x[178]1024[170]40[172]y[170]x
  334. 9530 [151] 252,x[173]256:[151] 251,x[171]256[172][194](252):[151] 253,l(i):[151] 254,i
  335. 9540 [151] 250,0:[158] 50625:i[178][194](254)
  336. 9550 [139] [194](250)[178]133 [167] [142]
  337. 9560 [139] [194](250)[178]137 [167] 9600
  338. 9570 [139] i[179]1 [167] i[178]ae
  339. 9580 [139] i[177]ae [167] i[178]1
  340. 9590 [137] 9510
  341. 9599 :
  342. 9600 [160] 1:[160] 2:[160] 15
  343. 9610 [158] 50821:[139] ie[178]3 [167] ne[178]ne[170]1:[137] 2500
  344. 9620 [139] ie[178]2 [167] 2500
  345. 9630 [139] ie[178]1 [167] 2710
  346. 9640 [137] 800
  347. 9690 :
  348. 9700 x[178]1:y[178]24:[141] 8000:[153]"";ko$;"wait";:[151] 2023,32:[142]
  349. 9790 :
  350. 9800 [152]15,"i":[158] 52182:fb[178][194](250)[170]256[172][194](251)
  351. 9810 [132]15,a,b$,c,d:[142]
  352. 9890 :
  353. 9900 [159] 15,8,15:[141] 9800:fb[178][181](252[172]fb[173]rl):fb[178][181](fb[173](1[170]il[173]254)):[160] 15
  354. 9910 ko$[178]" 0000 asc(NULL)valright$val, 0000 peekval(NULL)valchr$(NULL)val str$atn(NULL)val(NULL)(NULL)atnval(NULL)(NULL)val ":[139] fb[177]9999 [167] fb[178]9999
  355. 9920 x[178]ne:[139] ne[177]9999 [167] x[178]9999
  356. 9930 a$[178][201]([196](fb),[195]([196](fb))[171]1):b$[178][201]([196](x[171]1),[195]([196](x[171]1))[171]1)
  357. 9940 ko$[178][200](ko$,5[171][195](a$))[170]a$[170][202](ko$,6,12[171][195](b$))[170]b$[170][201](ko$,21)
  358. 9950 [141] 9700:[141] 8100:[142]
  359. 9960 :
  360. 9970 [143] ******************************
  361. 9980 [143] *           datas            *
  362. 9990 [143] ******************************
  363. 10000 [131] 000,000,000,015,255,240,031,255,248,056,000,028,049,129,140,051
  364. 10010 [131] 195,204,049,129,140,048,000,012,051,000,204,049,000,140,048,255
  365. 10020 [131] 012,056,000,012,031,255,248,015,255,240,000,000,000,015,255,240
  366. 10030 [131] 022,102,104,043,102,212,086,102,106,127,255,254,000,000,000
  367.