home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 55
/
64er_Magazin_Sonderheft_55_19xx_Markt__Technik_de_Side_B.d64
/
changeadress
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
84 lines
1 rem startadresse auf diskette
2 rem aendern (4/90 h.beiler)
3 rem =========================
10 gosub1000
20 l=1:p=3:x=8:d=5:f=2:fl=0:f2=0
40 open1,8,15
50 open2,8,2,"#"
60 print#1,"u1";2;0;18;0
70 print#1,"b-p";2;144
90 fori=0to15:get#2,a$:printa$;:next:printchr$(32);
100 print#1,"b-p";2;162
110 fori=0to4:get#2,a$:printa$;:next:printchr$(13);
112 print"adresse filename":println$
120 print#1,"u1";2;0;18;l
130 print#1,"b-p";2;1
140 get#2,c$:se=asc(c$):sa=se-l
150 print#1,"u1";2;0;18;l
160 print#1,"b-p";2;f
170 get#2,d$:ifd$=""thend$=chr$(0)
171 ifasc(d$)=0andfl=0then300
181 ifasc(d$)<>130then300
190 print#1,"b-p";2;p
200 get#2,a$:t=asc(a$)
202 get#2,a$:ifa$=""thena$=chr$(0)
203 s=asc(a$)
210 print#1,"u1";2;0;t;s
220 print#1,"b-p";2;2
230 get#2,a$:ifa$=""thena$=chr$(0)
232 lo=asc(a$)
234 get#2,a$:ifa$=""thena$=chr$(0)
236 hi=asc(a$)
238 gosub1300
240 printlo+256*hi;
250 print#1,"u1";2;0;18;l
260 print#1,"b-p";2;d
270 fori=0to15
280 get#2,a$:printtab(9)a$;
290 next:goto500
300 printchr$(13);:x=x-1:d=d+32:p=p+32:f=f+32
301 ifx=0andfl=1then350
310 ifx=0andfl=0thenl=l+sa:x=8:p=3:d=5:f=2:goto120
320 ifse=255andfl=0thenfl=1:l=se-sa:goto120
340 goto150
350 close2:close1:run
500 gett$
505 ift$="x"andfl=0thenclose2:close1:run
506 ift$="e"thenclose2:close1:printchr$(147):poke808,237:end
510 ift$=chr$(32)then300
520 ift$="a"thengosub600:goto300
530 goto500
600 gosub700:printchr$(32);:poke19,64:inputla:poke19,0:print
610 hi=int(la/256):lo=la-(hi*256)
630 print#1,"u1";2;0;t;s
640 print#1,"b-p";2;2
650 print#2,chr$(lo);:print#2,chr$(hi);
660 print#1,"u2";2;0;t;s
665 gosub1300
670 return
700 rem
710 print:print"neue ladeadresse:[146]";
720 return
1000 fori=1to39:ln$=ln$+"[192]":lr$=lr$+chr$(32):next
1005 poke53280,0:poke53281,0:poke646,15
1011 print"[147]"chr$(142)ln$
1020 print" change load-adress "
1021 println$
1031 println$
1040 print" a=aendern space=weiter x=abbruch "
1041 printtab(12)"e=programmende"
1042 println$
1060 println$
1070 printtab(5)"richtige diskette einlegen und"
1080 printtab(10)"<return> druecken !"
1090 println$:print
1100 gett$:ift$=chr$(13)then1110
1101 ift$="e"thenpoke808,237:print"[147]":end
1102 goto1100
1110 gosub1200
1120 fori=1to10:printlr$:next:gosub1200
1130 return
1200 poke214,8:poke211,0:sys58640:return
1300 poke214,12:poke211,0:sys58640:fori=1to3:printlr$:next
1400 poke214,12:poke211,0:sys58640:printlr$:return