home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 26 / Tiger_Disk_026_19xx_Tiger-Crew-Disk_de_Side_B.d64 / mformat_v1.0 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  784b  |  22 lines
  1. 0 poke53281,.:poke53280,.:poke808,225:print"[147][159]";chr$(14);chr$(8);
  2. 1 print"       [205]assen[198]ormatierungsprogramm      ";
  3. 2 print"[150]    coded in 1995/96 by [194]lack [211]hadow    "
  4. 3 print"[153][211]oftformat oder [206]ormal s/n ?"
  5. 4 geta$:ifa$<>"s"anda$<>"n"then4
  6. 5 input"[147][155][196]iskettennamen";b$:ifa$="n"theninput"[201][196]'s";c$
  7. 6 print"[147][158][201]nformation":print"[163][163][163][163][163][163][163][163][163][163][163]"
  8. 7 print"[215]enn sie das [208]rogramm beenden wollen,"
  9. 8 print"so druecken sie _[158] als [197]scape-[212]aste.":gosub16
  10. 9 print"[147][204]egen sie die zu formatierende [196]isk ein.":gosub16
  11. 10 ifc$=""theng$="n:"+b$
  12. 11 ifc$<>""theng$="n:"+b$+","+c$
  13. 12 open1,8,15,g$
  14. 13 print"[196]iskette wird formatiert...":close1:open1,8,15
  15. 14 fori=1to13:get#1,h$:j$=j$+h$:next:close1:printj$:fori=1to3000:next:j$=""
  16. 15 goto9
  17. 16 print"[155]           [211][208][193][195][197] fuer [215][197][201][212][197][210]"
  18. 17 getz$:ifz$="_"thenprint"[194]y(t)e...":print"[200]ey, copy me! [201]'m [198][210][197][197][215][193][210][197]!!":fori=1to3000:next
  19. 18 ifz$="_"thensys64738
  20. 19 ifz$<>" "then17
  21. 20 print"[147]":return
  22.