home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 75
/
Tiger_Disk_075_20xx_Tiger-Crew-Disk_de_Side_B.d64
/
multi-format
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
636b
|
20 lines
1 ifa=0thenprint"[147]moment! : programm wird geladen!!"
2 ifa=0thena=1:load"qf*",8,1
10 poke53281,0 :poke53281,0:x=1:poke646,x
20 print"[147] mark's disk service "
30 print" bitte leerdisk "
31 print" einlegen, dann 'j' druecken zum"
32 n=1
33 print" formatieren "
34 print"(achtung: alle daten gehen verloren!!) ende mit 'n'-taste!"
35 gett$:ift$<>"j"andt$<>"n"then35
36 ift$="n"then65
40 print" disk formatieren? (j/n) ":s=s+1:ifs>2thenn=n+1
41 ifs>2thens=1
42 print" disk " n,"seite"s
43 getan$:ifan$<>"j"andan$<>"n"then43
46 ifan$="n"then65
60 sys49152:print"[145][145][145][145][145][145][145]":x=x+1:ifx>7thenx=1
61 poke646,x:goto40
65 end