home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1986 April
/
64er_Magazin_86-04_1986_Markt__Technik_de.d64
/
autochange
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
37 lines
10 lc=0:(NULL)0,1:(NULL)4,1:(NULL)5,2
100 name$="[147]c64 diskette"
110 print"[147]automatischer wechsel"
120 print"in den 64'er modus"
130 open15,8,15,"i0":a$=chr$(0)
140 ifds<>0then(NULL)
150 print"disketten fehler: ";ds$
160 close8:close15
170 print"abbruch":end
180 (NULL)
190 open8,8,8,"#"
200 print#15,"u1:8 0 18 0":print#15,"b-p";8;5
210 get#8,ba$
220 print#15,"u1:8 0 1 0"
230 fori=0to24:get#8,s$:bl$=bl$+chr$(asc(s$)):next
240 if(asc(ba$)and1)=0then(NULL)
250 ifleft$(bl$,3)="cbm"thenprint"boot-sector schon vorhanden"
270 ifleft$(bl$,3)<>"cbm"thenprint"programm liegt auf boot-sector"
280 print"installierung fortsetzen? (j/n)" :lc=1
290 get(NULL)x$
300 ifx$<>"j"then(NULL)
310 close8:close15
320 print"abbruch":end:(NULL)
330 (NULL)
340 print" installieren des boot-sektors
345 [153]" bitte entfernen sie einen evtl.
350 print" vorhandenen schreibschutz und
360 [153]" druecken sie eine taste
370 get(NULL)x$
380 print#15,"b-p 8 0"
390 print#8,chr$(67);chr$(66);chr$(77);a$;a$;a$;a$;name$;a$;
400 print#8,a$;chr$((NULL)("20"));chr$((NULL)("4d"));chr$((NULL)("ff"));a$
410 print#15,"u2:";8;0;1;0
415 iflc=0thenprint#15,"b-a 0 1 0"
420 close8:close15
430 print" boot-sector installiert":end