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 >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
50 lines
10 dimn(300):c$=chr$(34):poke53280,0:poke53281,0:poke808,225
20 fori=0to4:readg$(i):next:di=18
30 j=0:print"[147][158]rescratch by stefan freyer":print
40 print"art name [146]":k=1:l=di:open15,8,15,"i0
50 [153]:[159]8,8,2,"#2":f[178]0
60 [152]15,"u1:"2;0;l;k:[141]470
70 [129]i[178]0[164]1:[161]#8,a$:[141]440:i(i)[178][198](a$):[130]:a[178]2:[141]460
80 [161]#8,a$:[141]440:a[178][198](a$)[175]7
90 e$[178]"":[129]i[178]0[164]1:[161]#8,a$:[141]440:h(i)[178][198](a$):[130]
100 [129]i[178]3[164]18:[161]#8,a$:e$[178]e$[170]a$:[130]
110 [139]e$[178]""[167]130
120 [153] g$(a);" ";c$;e$;[163]11)c$:[139]a[178]0[167][137]290
130 f[178]f[170]1:[139]f[179]8[167]a[178]f[172]32[170]2:[141]460:[137]80
140 [139]i(0)[178]0[167]160
150 l[178]i(0):k[178]i(1):f[178]0:[137]60
160 [160]8:[139]j[167][153]"ich validiere!":[159]1,8,15,"v":[160]1
170 [141]470:[160]15:[151]808,237:[128]
180 [152]15,"u1:"2;0;h(0);h(1):[142]
190 d[178]2:[153]"listspur, sektor: ";
200 [141]180:[129]i[178]0[164]1:[161]#8,a$:[141]440:n(i)[178][198](a$):[151]808,225
210 [153]n(i)"cmd ";:[130]:[153]:[153]"onlistspur, sektor: ";
220 [139]n(0)[178]0[167][153]:[142]
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)
240 n(d[170]1)[178]n(1):d[178]d[170]2
250 [139]ds[178]0[167]200
260 [153]:[153]"das file wurde schon ueberschriebenwait!":m[178][168](m):a[178]f[172]32[170]2
270 [129]i[178]2[164]d[171]4[169]2:[152]15,"b-f:"0;n(i);n(i[170]1):[130]
280 h(0)[178]l:h(1)[178]k:[141]180:[137]460:h(1)[178]z%(1):z%(d)[178]z%(0)
290 [153]"zurueckholen? (j/n)"
300 [161] a$:[139] a$[178]"" [167] 300
310 [139]a$[179][177]"j" [167] 130
320 m[178]0:[153]"printbloecke werdenbelegt:":n(0)[178]h(0):[141]190:[139]m[167]130
330 [153]"clrpwaitrogramm-, swaitequentielles-, uwaitser- oder rwaitelatives file ?"
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
350 [153]:[139]f$[178]"p"[167]g[178]130:[137]390
360 [139]f$[178]"u"[167]g[178]131:[137]390
370 [139]f$[178]"r"[167]g[178]132:[137]390
380 g[178]129
390 [153]"printonfile wird zurueckgeholt!"
400 h(0)[178]l:h(1)[178]k:[141]180:h(1)[178]n(1):n(d)[178]n(0)
410 a[178]f[172]32[170]2:[141]460:[152]8,[199](g);
420 b[178]((d[171]2)[173]2)[170]1:[153]"das programm hat eine laenge von sys"b"wait"
430 [152]15,"u2:"2;0;l;k:j[178]1:[153]"bloecken!":[137]130
440 [139]a$[178]""[167]a$[178][199](0)
450 [142]
460 [152]15,"b-p:"2;a
470 [132]15,e1,d$,e3,e2:[139]e1[178]0[167][142]
480 [153]e1,d$,e3,e2:[151]808,237:[128]
490 [131]"del","seq","prg","usr","rel"