home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magic Disk 64
/
Magic_Disk_64_92-10_1992_-_de_Side_A.d64
/
fk.schreibschutz
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2023-02-26
|
857b
|
48 lines
10 print"[147] diskette schreibschuetzen [146]"
20 gosub 200
30 print"wollen sie:"
40 print"-----------"
45 x=1
50 if a$="a" then print"(d)iskette sichern":x=2:goto60
55 print"(d)iskette entsichern"
60 print"(n)eue disk behandeln"
70 print"(p)rogramm beenden"
80 getx$:ifx$=""then80
90 ifx$="n" then 500
100 ifx$="p"then end
110 ifx$="d"then on x gosub 300,400:run
120 goto80
130 :
140 :
200 open1,8,15,"i"
210 print#1,"m-r";chr$(1);chr$(1);chr$(1)
220 get#1,a$
230 print"diskette ist ";
240 ifa$="a"thenprint"nicht ";
250 print"geschuetzt!"
260 close1:return
270 :
280 :
300 open1,8,15,"i":open2,8,2,"#"
310 print#1,"u1 2 0 18 0"
320 print#1,"m-w";chr$(1);chr$(1);chr$(1);chr$(65);
330 print#1,"b-p 2 2"
340 print#2,"a";
350 print#1,"u2 2 0 18 0"
360 print#1,"i"
370 close1:close2:return
380 :
390 :
400 open1,8,15,"i":open2,8,2,"#"
410 print#1,"u1 2 0 18 0"
430 print#1,"b-p 2 2"
440 print#2,"b";
450 print#1,"u2 2 0 18 0"
460 print#1,"i"
470 close1:close2:return
480 :
490 :
500 print"neue disk einlegen und taste druecken!"
510 getx$:ifx$=""then510
520 run