home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 30
/
64er_Magazin_Sonderheft_30_19xx_Markt__Technik_de_Side_A.d64
/
diskmaker
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
446b
|
15 lines
100 print"[147]";:poke53280,0:poke53281,6
105 print"diskmaker fuer die murmeln des dr.creep[146]"
110 print" bitte legen sie eine disk nur mit dem"
115 print" hauptprogramm ein."
120 print" taste[146] druecken..."
125 poke198,0:wait198,255
130 print" schreibe ...":n=1
200 open1,8,2," hi,s,w":print#1,"50":print#1,"anonym":close1
205 print"[145] level";n
210 open1,8,2," level"+str$(n)+",s,w"
215 forx=1to21:print#1,"[221]bitte druecken sie den joystick runter[221]":nextx
220 forx=1to6:print#1,"1":nextx
225 close1:n=n+1:ifn=101thenend
230 goto205