home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 92 / 64er_Magazin_Sonderheft_92_19xx_Markt__Technik_de_Side_B.d64 / iconedit (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  7.9 KB  |  293 lines
  1. 10 rem"[176][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][174]
  2. 11 [143]"(NULL)stepstepstepstepstepstepstepstepstep icon-editor stepstepstepstepsteplogcosstep(NULL)
  3. 12 rem"[171][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][179]
  4. 13 [143]"(NULL)     disk:                    (NULL)
  5. 14 rem"[221]     type: [194]asic-[208]rogram      [221]
  6. 15 [143]"(NULL)    class: right$con-valditor (NULL)2     (NULL)
  7. 16 rem"[221]structure: [211][197][209][213][197][206][212][201][193][204]         [221]
  8. 17 [143]"(NULL)     size:                    (NULL)
  9. 18 rem"[221] modified: 10/06/93  0:30 [208][205]  [221]
  10. 19 [143]"(NULL)   author: (NULL)we (NULL)hatchikian    (NULL)
  11. 20 rem"[221]        [166]  [215]rite [208]rotect      [221]
  12. 21 [143]"(NULL)ortantantantantantantantantantantantantantantantantantantantantantantantantantantantan^(NULL)
  13. 22 rem"[221][221][205]it diesem [208]rogramm entwer- [221][221]
  14. 23 [143]"(NULL)(NULL)fen (NULL)ie eigene right$cons!       (NULL)(NULL)
  15. 24 rem"[221][221]                            [221][221]
  16. 25 [143]"(NULL)/tantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp(NULL)
  17. 26 rem"[173][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][189]
  18. 27 :
  19. 28 :
  20. 29 :
  21. 30 [151]53280,15:[151]53281,12:[151]646,1
  22. 100 [151]53265,10:[151]53296,1
  23. 110 [153]"loadcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd right$len(NULL)(NULL)-valstr$right$(NULL)(NULL)(NULL) wait"
  24. 120 [153]""
  25. 130 m$[178]"geos "[170][199](102)[170][199](111)[170][199](114)[170][199](109)[170][199](97)[170][199](116)[170]" v1.0"
  26. 140 [134]d$(96),t$(96),s$(96),ds(96),db(96),ba$(35,4),tx$(21),ic(63):v[178]53248
  27. 150 c$[178]"                   ":[151]v[170]21,0
  28. 160 [129]j[178]0[164]7:h(j)[178]2[174]j:[130]:[151]650,128
  29. 170 [129]i[178]1[164]21:[135]tx$(i):[130]:[129]i[178]1[164]63:[135]ic(i):[130]
  30. 180 pi$[178]"70000000000005205354545555000000065554456246486656554568666"
  31. 190 pi$[178]pi$[170]"00000055555355225285655343568655":[137]1040
  32. 200 :
  33. 210 :
  34. 300 [143]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan
  35. 310 rem" [210]ead [196]irectory
  36. 320 [143]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan
  37. 330 :
  38. 340 ds=1:p=1:open1,8,15:open2,8,2,"#"
  39. 350 print#1,"u1 2 0 18";ds
  40. 360 get#2,nt$:get#2,ns$:nt$=nt$+chr$(0)
  41. 370 fori=0to7:print"";p
  42. 380 print#1,"b-p 2";i*32+2
  43. 390 get#2,ty$:ty$=ty$+chr$(0):ifty$=chr$(0)orty$=chr$(128)then430
  44. 400 print#1,"b-p 2";i*32+5
  45. 410 forj=1to16:get#2,a$:d$(p)=d$(p)+a$:next:ds(p)=ds:db(p)=i*32
  46. 420 get#2,t$:get#2,s$:t$(p)=t$+chr$(0):s$(p)=s$+chr$(0):p=p+1
  47. 430 next:ifp>90then450
  48. 440 ifnt$<>chr$(0)thends=asc(ns$):goto350
  49. 450 close2:close1:p=p-1:return
  50. 460 :
  51. 470 :
  52. 500 rem"[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]
  53. 510 [143]" (NULL)ead right$con from str$isk
  54. 520 rem"[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]
  55. 530 :
  56. 540 [159]1,8,15:[159]2,8,2,"#"
  57. 550 [152]1,"u1 2 0";[198](t$(o));[198](s$(o))
  58. 560 [152]1,"b-p 2 5"
  59. 570 [129]i[178]1[164]64
  60. 580 [161]#2,sp$:sp$[178]sp$[170][199](0):[151]831[170]i,[198](sp$):[130]:[160]2:[160]1:[142]
  61. 590 :
  62. 600 [143]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan
  63. 610 rem" [215]rite [201]con to [196]isk
  64. 620 [143]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan
  65. 630 :
  66. 640 open1,8,15:open2,8,2,"#"
  67. 650 print#1,"u1 2 0";asc(t$(o));asc(s$(o))
  68. 660 print#1,"b-p 2 5"
  69. 670 fori=1to64:print#2,chr$(peek(831+i));:next
  70. 680 print#1,"u2 2 0";asc(t$(o));asc(s$(o)):close2:close1:return
  71. 690 :
  72. 700 rem"[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]
  73. 710 [143]" (NULL)ead str$isk-ascormat-right$str$
  74. 720 rem"[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]
  75. 730 :
  76. 740 [159]1,8,15:[159]2,8,2,"#"
  77. 750 [152]1,"u1 2 0 18 0"
  78. 760 [152]1,"b-p 2 173":i$[178]""
  79. 770 [129]i[178]1[164]16:[161]#2,a$:i$[178]i$[170]a$:[130]
  80. 780 [160]2:[160]1:[142]
  81. 790 :
  82. 800 [143]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan
  83. 810 rem" [197]xit [208]rogram ([194]ack to [199][197][207][211])
  84. 820 [143]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan
  85. 830 :
  86. 840 print"[147] [194]itte auswaehlen:                      [146]"
  87. 850 print" <1> [193]ndere [196]iskette bearbeiten"
  88. 860 print" <2> [208]rogramm verlassen ([199][197][207][211] booten)"
  89. 870 geta$:ifa$="2"then900
  90. 880 ifa$<>"1"then870
  91. 890 run
  92. 900 print"[147][199][197][207][211]-[194]oot-[196]iskette einlegen     <[210][197][212][213][210][206]>"
  93. 910 geta$:ifa$<>chr$(13)then910
  94. 920 load":geos*",8,1
  95. 930 :
  96. 940 :
  97. 950 :
  98. 1000 rem"[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]
  99. 1010 [143]" (NULL)ain (NULL)rogram
  100. 1020 rem"[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]
  101. 1030 :
  102. 1040 [153]"load chr$eos right$len(NULL)(NULL)-valstr$right$(NULL)(NULL)(NULL)   von (NULL)we (NULL)hatchikian wait"
  103. 1050 [153]:[153]" (NULL)eberarbeitung 1986: asclorian (NULL)ueller"
  104. 1060 [153]:[153]" lenopyright (len) 1986   (NULL)arkt & (NULL)echnik"
  105. 1070 [153]" peekitte eine chr$val(NULL)(NULL)-str$iskette einlegen und   <(NULL)val(NULL)(NULL)(NULL)(NULL)> druecken"
  106. 1080 [151]53296,0:[151]53265,27
  107. 1090 [161]a$:[139]a$[179][177][199](13)[167]1090
  108. 1100 [141]740:[139]i$[179][177]m$[167]2500
  109. 1110 [153]"load         str$irectory wird gelesen.        wait"
  110. 1120 [153]"    _ atnnzahl der gelesenen ascileeintraege":[153]"       (plus 1)"
  111. 1130 [141]340:o[178]1
  112. 1140 :
  113. 1150 :
  114. 1200 [153]"load     ascile zur peekearbeitung auswaehlen    "
  115. 1210 [153]" str$isk enthaelt ";p;"cmd wait ascile";:[139][181](p)[179][177]1[167][153]"s";
  116. 1220 [153]"."
  117. 1230 [153]" len(NULL)(NULL)(NULL)(NULL)(NULL) (NULL)(NULL)wait    1 ascile zurueck":[153]" len(NULL)(NULL)(NULL)(NULL)(NULL) str$(NULL)(NULL)(NULL)wait  1 ascile vor"
  118. 1240 [153]" (NULL)val(NULL)(NULL)(NULL)(NULL)wait       ascile nehmen":[153]" asc1wait           (NULL)erlassen"
  119. 1250 [153]"";c$:[153]"onascile #";o;":   ";d$(o)
  120. 1260 [161]a$:[139]a$[178]""[167]1260
  121. 1270 [139]a$[178]"on"[167]o[178]o[171]1:[139]o[178]0[167]o[178]p
  122. 1280 [139]a$[178]""[167]o[178]o[170]1:[139]o[177]p[167]o[178]1
  123. 1290 [139]a$[178]"input"[167]840
  124. 1300 [139]a$[179][177][199](13)[167]1250
  125. 1310 [139]t$(o)[178][199](0)[167]2100
  126. 1320 :
  127. 1400 [153]"load    right$con wird gelesen. peekitte warten.    wait":[141]540
  128. 1410 [151]2040,13:[151]v[170]21,11:[151]v[170]39,0:[151]v[170]1,200:[151]v[170]16,1:[151]v,32
  129. 1420 :
  130. 1500 [151]53265,10:[151]53296,1:[153]"load":c[178]1
  131. 1510 [129]i[178]1[164]63:sp[178][194](831[170]i):c[178]c[170]1
  132. 1520 [129]j[178]7[164]0[169][171]1:[153]".";:[139]sp[177]h(j)[171]1[167][153]"cmd*";:sp[178]sp[171]h(j)
  133. 1530 [130]
  134. 1540 [139]c[178]4[167][153]:c[178]1
  135. 1550 [130]:[153]"";d$(o)
  136. 1560 :
  137. 1600 [129]i[178]1[164]21:[153]"";
  138. 1610 [129]j[178]1[164]i:[153]"";:[130]
  139. 1620 [153]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";tx$(i):[130]
  140. 1630 x[178]11:y[178]10:r[178]2:df[178]0
  141. 1640 [151]214,y:[151]211,x:[158]58732
  142. 1650 rt[178][194]((1024[170]y[172]40)[170]x)
  143. 1660 [153]"";[199](rt);"wait";:[151]53296,0:[151]53265,27
  144. 1670 :
  145. 1700 [161]a$:[139]a$[178]""[167]1700
  146. 1710 [151](1024[170]y[172]40)[170]x,rt
  147. 1720 [139]a$[178]""[167]x[178]x[170](1[175]x[179]23)
  148. 1730 [139]a$[178]"cmd"[167]x[178]x[171](1[175]x[177]0)
  149. 1740 [139]a$[178]"on"[167]y[178]y[171](1[175]y[177]1)
  150. 1750 [139]a$[178]""[167]y[178]y[170](1[175]y[179]21)
  151. 1760 [139]a$[178]" "[167]r[178]1:df[178]0:[143] space
  152. 1770 [139]a$[178]"@"[167]df[178]1:r[178]1
  153. 1780 [139]a$[178]"_"[167]r[178]0:df[178]0
  154. 1790 [139]a$[178]"^"[167]df[178]1:r[178]0
  155. 1800 [139]a$[178]"input"[167][151]v[170]21,0:[137]1400
  156. 1810 [139]a$[178]"load"[167][129]i[178]1[164]64:[151]831[170]i,0:[130]:[137]1500
  157. 1820 [139]a$[178]"dim"[167][151]v[170]21,0:[137]1200
  158. 1830 [139]a$[178]"restore"[167]2000
  159. 1840 [139]a$[178]"i"[167]2700
  160. 1850 [139]a$[178]"p"[167]4020
  161. 1860 by[178](y[171]1)[172]3[170]([181](x[173]8)[170]1)
  162. 1870 bi[178]x[171]([181](x[173]8)[172]8)
  163. 1880 [139]r[178]0[167][151](831[170]by),[194](831[170]by)[175]255[171](2[174](7[171]bi))
  164. 1890 [139]r[178]1[167][151](831[170]by),[194](831[170]by)[176]2[174](7[171]bi)
  165. 1900 [139]r[178]0[167][153]"cmd.";
  166. 1910 [139]r[178]1[167][153]"cmd*";
  167. 1920 [139]df[178]0[167]r[178]2
  168. 1930 [137]1640
  169. 1940 :
  170. 2000 [153]"load right$con auf str$isk speichern. (NULL)icher (mid$/(NULL)) ?"
  171. 2010 [161]a$:[139]a$[179][177]"j"[175]a$[179][177]"n"[167]2010
  172. 2020 [139]a$[179][177]"j"[167]1500
  173. 2030 [151]v[170]21,0
  174. 2040 [153]"load  right$con wird gespeichert. peekitte warten.  wait":[141]640
  175. 2050 [137]1200
  176. 2060 :
  177. 2100 [153]"load (NULL)ein chr$val(NULL)(NULL)-ascile!":[153]"(NULL)oll es konvertiert werden (mid$/(NULL)) ?"
  178. 2110 [161]a$:[139]a$[179][177]"j"[175]a$[179][177]"n"[167]2110
  179. 2120 [139]a$[179][177]"j"[167]1200
  180. 2130 [153]"load   ascile wird konvertiert. peekitte warten  "
  181. 2140 [159]1,8,15:[159]2,8,2,"#"
  182. 2150 [152]1,"u1 2 0 18 0"
  183. 2160 [152]1,"b-p 2 4"
  184. 2170 [129]i[178]1[164]35:[129]j[178]1[164]4
  185. 2180 [161]#2,a$:ba$(i,j)[178]a$[170][199](0):[130]j,i:f[178]0
  186. 2190 [160]2:[160]1
  187. 2200 [129]i[178]1[164]35
  188. 2205 [139] [196](i)[178][196](18)[167] 2220
  189. 2210 [139]ba$(i,1)[179][177][199](0)[167]f[178]i:i[178]35
  190. 2220 [130]:[139]f[178]0[167]2600
  191. 2230 ct[178]f:g[178][171]1
  192. 2240 [129]i[178]4[164]2[169][171]1:[129]j[178]7[164]0[169][171]1
  193. 2250 [139][198](ba$(ct,i))[171]h(j)[177][178]0[167]g[178]j[170]((i[171]2)[172]8):ba$(ct,i)[178][199]([198](ba$(ct,i))[171]h(j))
  194. 2260 [130]j,i
  195. 2270 [139]g[178][171]1[167]2600
  196. 2280 cs[178]g
  197. 2285 [153]"info-block: spur"ct"/ sektor"cs
  198. 2290 [153]" str$atum eingeben (mid$mid$,(NULL)(NULL),(NULL)(NULL))"
  199. 2300 [133]tj,tm,tt
  200. 2310 [153]" (NULL)hrzeit eingeben (left$left$,(NULL)(NULL))"
  201. 2320 [133]zs,zm
  202. 2330 [153]"loadstr$atum, (NULL)eit und right$con werden geschrieben.wait"
  203. 2340 [159]1,8,15:[159]2,8,2,"#"
  204. 2350 [152]1,"u1 2 0 18";ds(o)
  205. 2360 [152]1,"b-p 2";db(o)[170]21
  206. 2370 [152]2,[199](ct);[199](cs);[199](0);[199](1);[199](tj);[199](tm);[199](tt);
  207. 2380 [152]2,[199](zs);[199](zm);
  208. 2390 [152]1,"u2 2 0 18";ds(o)
  209. 2400 [152]1,"u1 2 0";ct;cs
  210. 2410 [152]1,"b-p 2 0"
  211. 2420 [152]2,[199](0);[199](255);[199](3);[199](21);[199](191);
  212. 2430 [129]i[178]1[164]63:[152]2,[199](ic(i));:[130]
  213. 2440 [152]1,"u2 2 0";ct;cs
  214. 2450 [152]1,"b-a 0";ct;cs
  215. 2460 [160]2:[160]1:t$(o)[178][199](ct):s$(o)[178][199](cs):[137] 1200
  216. 2470 :
  217. 2500 [153]"load (NULL)eine chr$val(NULL)(NULL)-str$iskette!"
  218. 2510 [137]2610
  219. 2520 :
  220. 2600 [153]"loadstr$iskette voll. (NULL)onvertierung unmoeglich."
  221. 2610 [153]" (NULL)aste druecken "
  222. 2620 [161]a$:[139]a$[178]""[167]2620
  223. 2630 [138]
  224. 2640 :
  225. 2700 [151]v[170]21,0
  226. 2710 [153]"load              valdit right$nfo                 wait"
  227. 2720 [153]" ascile:";d$(o)
  228. 2730 [153]" str$atum eingeben (mid$mid$,(NULL)(NULL),(NULL)(NULL))"
  229. 2740 [133]tj,tm,tt
  230. 2750 [153]" (NULL)hrzeit eingeben (left$left$,(NULL)(NULL))"
  231. 2760 [133]zs,zm
  232. 2770 [153]" 'lenlass' eingeben":mx[178]18:[141]3040
  233. 2780 cl$[178]es$[170][199](0):[153]" atnutor eingeben":mx[178]37:[141]3040:au$[178]es$[170][199](0)
  234. 2790 [153]"load str$aten werden auf str$iskette gespeichert. "
  235. 2800 [159]1,8,15:[159]2,8,2,"#"
  236. 2810 [152]1,"u1 2 0 18";ds(o)
  237. 2820 [152]1,"b-p 2";db(o)[170]25
  238. 2830 [152]2,[199](tj);[199](tm);[199](tt);[199](zs);[199](zm);
  239. 2840 [152]1,"u2 2 0 18";ds(o)
  240. 2850 [152]1,"u1 2 0";[198](t$(o));[198](s$(o))
  241. 2860 [152]1,"b-p 2 77"
  242. 2870 [152]2,cl$;
  243. 2880 [152]1,"b-p 2 96"
  244. 2890 [152]2,[199](0);au$;
  245. 2900 [152]1,"u2 2 0";[198](t$(o));[198](s$(o))
  246. 2910 [160]2:[160]1:[137]1410
  247. 2920 :
  248. 2930 :
  249. 3000 [143]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan
  250. 3010 rem" [210]ead string [197][211]$ from keyboard,
  251. 3020 [143]" max. (NULL)(NULL) characters.
  252. 3030 rem"[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]
  253. 3040 pc[178]0:es$[178]"":[153]" wait";
  254. 3050 [161]a$:[139]a$[178]""[167]3050
  255. 3060 a[178][198](a$):[139]a[178]20[175]es$[178]""[167]3050
  256. 3070 [139]a[178]13[167][153]"cmd ":[142]
  257. 3080 [139]a[177]192[175]a[179]219[167]a[178]a[171]128:[137]3150
  258. 3090 [139]a[177]64[175]a[179]91[167]a[178]a[170]32:[137]3150
  259. 3100 [139]a[177]47[175]a[179]58[167]3150
  260. 3110 [139]a[178]32[176]a[178]46[176]a[178]45[167]3150
  261. 3120 [139]a[179][177]20[167]3050
  262. 3130 pb[178][197]([202](pi$,[198]([201](es$,1))[171]31,1)):pc[178]pc[171]pb[171]1
  263. 3140 es$[178][200](es$,[195](es$)[171]1):[153]"cmdcmd wait cmd";:[137]3050
  264. 3150 [139][195](es$)[178]mx[176]pc[177][178]100[167]3050
  265. 3160 pb[178][197]([202](pi$,a[171]31,1)):pc[178]pc[170]pb[170]1
  266. 3170 es$[178]es$[170][199](a):[153]"cmd"a$" wait";:[137]3050
  267. 3180 :
  268. 3190 :
  269. 3200 [131]"len(NULL)(NULL)(NULL) :lenursor","(NULL)(NULL)atnlenval:(NULL)etzen","_    :(NULL)oeschen","@ :str$auersetzen"
  270. 3210 [131]"^ :str$auerloesch"
  271. 3220 [131]"len(NULL)(NULL)  :(NULL)oesch","f1 :(NULL)uecksetz.","f3   :(NULL)eu","f8   :(NULL)ave"
  272. 3230 [131]"i    :right$nfo ed."
  273. 3240 [131]"p    :print",,,"(NULL)arkt&(NULL)echnik",," right$con-valditor"
  274. 3250 [131],"           wait","           wait","           wait","           wait"
  275. 3260 :
  276. 3500 [131]255,255,255,128,0,1,128,0,1,128,0,1,128,0,1,128,0,1,128,0,1,128,0,1
  277. 3510 [131]128,0,1,128,0,1,128,0,1,128,0,1,128,0,1,128,0,1,128,0,1,128,0,1
  278. 3520 [131]128,0,1,128,0,1,128,0,1,128,0,1
  279. 3530 [131]255,255,255
  280. 3540 :
  281. 4000 [143] *** print icon ***
  282. 4010 :
  283. 4020 [159]4,4:c[178]1:[129]i[178]1490[164]1503:[151]i,[194](i)[170]128:[130]
  284. 4030 [129]i[178]1[164]63:sp[178][194](831[170]i):c[178]c[170]1
  285. 4040 [129]j[178]7[164]0[169][171]1:[139]sp[175]h(j)[167][152]4,"*";:sp[178]sp[171]h(j):[137]4060
  286. 4050 [152]4,".";
  287. 4060 [130]
  288. 4070 [139]c[178]4[167][152]4:c[178]1
  289. 4080 [130]:[152]4:[152]4,d$(o)
  290. 4090 [160]4
  291. 4100 [129]i[178]1490[164]1503:[151]i,[194](i)[171]128:[130]
  292. 4110 [137]1630
  293.