home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 55
/
64er_Magazin_Sonderheft_55_19xx_Markt__Technik_de_Side_A.d64
/
startadr.$6000
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
505b
|
29 lines
100 rem
110 rem programm zum aendern der
120 rem startadresse eines files
130 rem auf $6000 (koalapainter
140 rem bilder start)
150 rem
160 rem
170 input "filename ";a$
180 :
190 open 2,8,15
200 open 3,8,3,"#":gosub340
210 open 1,8,0,a$ :gosub340
220 :
230 print#2,"m-r"+chr$(24)+chr$(0)+chr$(2)
240 get#2,tr$,se$
250 print#2,"u1:"3;0;asc(tr$+chr$(0));asc(se$+chr$(0)):gosub340
260 print#2,"b-p";3;2
270 print#3,chr$(0);chr$(96);
280 print#2,"u2:"3;0;asc(tr$+chr$(0));asc(se$+chr$(0)):gosub340
290 close1
300 close2
310 close3
320 end
330 :
340 input#2,f,f$,ft,fs:if f=0 then return
350 print "disk-fehler"
360 printf;f$;ft;fs
370 goto 290