home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1991 November
/
64er_Magazin_91-11_1991_Markt__Technik_de_Side_A.d64
/
diskschreib.
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
546b
|
21 lines
1 print"[147][158] diskschreibschuetzer [134]":poke53280,0:poke53281,0
2 print " von erika schulz"
3 print"[152] disksichern oder entsichern???"
4 print " >s< sichern oder >e< entsichern":print"[158][169]>q< quit[223]"
5 print" [154]taste druecken[134]"
6 get a$:if a$=""then 6
7 if a$="s" then a$="[203]" :goto 11
8 if a$="e" then a$="a":goto 11
9 if a$="q" then goto 20
10 goto 6
11 open 1,8,15,"i"
12 open 2,8,2,"#"
13 print#1,"m-w"chr$(1)chr$(1)chr$(1)chr$(65)
14 print#1,"u1 2 0 18 0"
15 print#1,"b-p 2 2"
16 print#2,a$;
17 print#1,"u2 2 0 18 0"
18 print#1,"i"
19 close2:close1:print"o.k.":wait198,1:run
20 end