home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1991 December
/
64er_Magazin_91-12_1991_Markt__Technik_de_Side_A.d64
/
&-konverter
(
.txt
)
next >
Wrap
Commodore BASIC
|
2022-10-26
|
862b
|
38 lines
0 rem &-konverter 64'er 1991 markt & technik verlag
1 rem nikolaus heusler, zwengauerweg 18, 8 muenchen 71 arr 2.91
5 dima%(999)
10 print"[147]konverter file -> &file nh 02.91
20 [133]"filename ";n$
30 [159]2,8,2,n$[170]",p,r
40 get#2,a$,b$:ifstthenprint"file nicht zu laden!":end
50 p=asc(a$+chr$(0))+asc(b$+chr$(0))*256
60 print"file-startadresse:"p
70 input"ladeadresse 1280[157][157][157][157][157][157]";d
80 open3,8,3,"&"+n$+",u,w
90 [161]#2,a$
100 c[178]c[170]1:a%(c)[178][198](a$[170][199](0))
110 [139]st[178]0[137]90
120 [153]"filelaenge:"c"bytes
130 a=1
140 ifc<1then280
190 dh=int(d/256):dl=d-dh*256
200 ck=dh+dl:gosub300
210 print#3,chr$(dl)chr$(dh);
220 ifc<256then400
230 print#3,chr$(255);:ck=ck+255:gosub300
240 fori=atoa+254
250 ck=ck+a%(i):gosub300
260 print#3,chr$(a%(i));
270 next:print#3,chr$(ck);
275 c=c-255:d=d+255:a=a+255:goto140
280 close3:close2:print"fertig
290 [128]
300 [139]ck[177]255[167]ck[178]ck[171]255:[137]300
310 [142]
400 [152]3,[199](c);:ck[178]ck[170]c:[141]300
410 [129]i[178]a[164]a[170]c[171]1
420 ck[178]ck[170]a%(i):[141]300
430 [152]3,[199](a%(i));
440 [130]
450 [152]3,[199](ck);:[137]280