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 >
Commodore BASIC  |  2023-02-26  |  636b  |  20 lines

  1. 1 ifa=0thenprint"[147]moment! : programm wird geladen!!"
  2. 2 ifa=0thena=1:load"qf*",8,1
  3. 10 poke53281,0 :poke53281,0:x=1:poke646,x
  4. 20 print"[147]       mark's disk service         "
  5. 30 print"   bitte                leerdisk   "
  6. 31 print"  einlegen, dann 'j' druecken zum"
  7. 32 n=1
  8. 33 print"            formatieren      "
  9. 34 print"(achtung: alle daten gehen verloren!!)         ende mit 'n'-taste!"
  10. 35 gett$:ift$<>"j"andt$<>"n"then35
  11. 36 ift$="n"then65
  12. 40 print"     disk formatieren? (j/n) ":s=s+1:ifs>2thenn=n+1
  13. 41 ifs>2thens=1
  14. 42 print"       disk " n,"seite"s
  15. 43 getan$:ifan$<>"j"andan$<>"n"then43
  16. 46 ifan$="n"then65
  17. 60 sys49152:print"[145][145][145][145][145][145][145]":x=x+1:ifx>7thenx=1
  18. 61 poke646,x:goto40
  19. 65 end
  20.