home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 December / 64er_Magazin_91-12_1991_Markt__Technik_de_Side_A.d64 / rescratch (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  50 lines
  1. 10 dimn(300):c$=chr$(34):poke53280,0:poke53281,0:poke808,225
  2. 20 fori=0to4:readg$(i):next:di=18
  3. 30 j=0:print"[147][158]rescratch by stefan freyer":print
  4. 40 print"art  name             [146]":k=1:l=di:open15,8,15,"i0
  5. 50 [153]:[159]8,8,2,"#2":f[178]0
  6. 60 [152]15,"u1:"2;0;l;k:[141]470
  7. 70 [129]i[178]0[164]1:[161]#8,a$:[141]440:i(i)[178][198](a$):[130]:a[178]2:[141]460
  8. 80 [161]#8,a$:[141]440:a[178][198](a$)[175]7
  9. 90 e$[178]"":[129]i[178]0[164]1:[161]#8,a$:[141]440:h(i)[178][198](a$):[130]
  10. 100 [129]i[178]3[164]18:[161]#8,a$:e$[178]e$[170]a$:[130]
  11. 110 [139]e$[178]""[167]130
  12. 120 [153] g$(a);" ";c$;e$;[163]11)c$:[139]a[178]0[167][137]290
  13. 130 f[178]f[170]1:[139]f[179]8[167]a[178]f[172]32[170]2:[141]460:[137]80
  14. 140 [139]i(0)[178]0[167]160
  15. 150 l[178]i(0):k[178]i(1):f[178]0:[137]60
  16. 160 [160]8:[139]j[167][153]"ich validiere!":[159]1,8,15,"v":[160]1
  17. 170 [141]470:[160]15:[151]808,237:[128]
  18. 180 [152]15,"u1:"2;0;h(0);h(1):[142]
  19. 190 d[178]2:[153]"listspur, sektor: ";
  20. 200 [141]180:[129]i[178]0[164]1:[161]#8,a$:[141]440:n(i)[178][198](a$):[151]808,225
  21. 210 [153]n(i)"cmd ";:[130]:[153]:[153]"onlistspur, sektor: ";
  22. 220 [139]n(0)[178]0[167][153]:[142]
  23. 230 [152]15,"b-f"0;n(0);n(1):h(0)[178]n(0):h(1)[178]n(1):n(d)[178]n(0)
  24. 240 n(d[170]1)[178]n(1):d[178]d[170]2
  25. 250 [139]ds[178]0[167]200
  26. 260 [153]:[153]"das file wurde schon ueberschriebenwait!":m[178][168](m):a[178]f[172]32[170]2
  27. 270 [129]i[178]2[164]d[171]4[169]2:[152]15,"b-f:"0;n(i);n(i[170]1):[130]
  28. 280 h(0)[178]l:h(1)[178]k:[141]180:[137]460:h(1)[178]z%(1):z%(d)[178]z%(0)
  29. 290 [153]"zurueckholen? (j/n)"
  30. 300 [161] a$:[139] a$[178]"" [167] 300
  31. 310 [139]a$[179][177]"j" [167] 130
  32. 320 m[178]0:[153]"printbloecke werdenbelegt:":n(0)[178]h(0):[141]190:[139]m[167]130
  33. 330 [153]"clrpwaitrogramm-, swaitequentielles-, uwaitser- oder   rwaitelatives file ?"
  34. 340 [161]f$:[139]f$[179][177]"p"[175]f$[179][177]"s"[175]f$[179][177]"u"[175]f$[179][177]"r"[167]340
  35. 350 [153]:[139]f$[178]"p"[167]g[178]130:[137]390
  36. 360 [139]f$[178]"u"[167]g[178]131:[137]390
  37. 370 [139]f$[178]"r"[167]g[178]132:[137]390
  38. 380 g[178]129
  39. 390 [153]"printonfile wird zurueckgeholt!"
  40. 400 h(0)[178]l:h(1)[178]k:[141]180:h(1)[178]n(1):n(d)[178]n(0)
  41. 410 a[178]f[172]32[170]2:[141]460:[152]8,[199](g);
  42. 420 b[178]((d[171]2)[173]2)[170]1:[153]"das programm hat eine laenge von sys"b"wait"
  43. 430 [152]15,"u2:"2;0;l;k:j[178]1:[153]"bloecken!":[137]130
  44. 440 [139]a$[178]""[167]a$[178][199](0)
  45. 450 [142]
  46. 460 [152]15,"b-p:"2;a
  47. 470 [132]15,e1,d$,e3,e2:[139]e1[178]0[167][142]
  48. 480 [153]e1,d$,e3,e2:[151]808,237:[128]
  49. 490 [131]"del","seq","prg","usr","rel"
  50.