home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 26 / Tiger_Disk_026_19xx_Tiger-Crew-Disk_de_Side_B.d64 / disk-utility (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  683b  |  21 lines
  1. 1 x=53280:pokex,0:pokex+1,0:poke788,52
  2. 2 print "[147][158]bitte disk einlegen !!":print"moechtest du :"
  3. 3 print" 1[146])rename    2[146])scratch":input" 3[146])validate  4[146])new     $[157][157][157]";a$
  4. 4 ifa$="e"thenprint"[147]":end
  5. 5 ifa$="$"thengosub14:goto3
  6. 6 a%=val(a$):if a%<1 or a%>4thenprint"[145][145][145][145][145]":goto3
  7. 7 open15,8,15:ona%goto8,9,10,11
  8. 8 input"neuer name";n$:input"alter name";o$:print#15,"r8:"+n$+"="+o$:goto13
  9. 9 input"name des files";s$:print#15,"s8:"+s$
  10. 10 print#15,"v":goto13
  11. 11 input"disk-name";n$:input"id-nummer (2 ziffern)";id$
  12. 12 print#15,"n8:"+n$+","+id$
  13. 13 close15:run
  14. 14 print"[147]":open1,8,0,"$":poke781,1:sys65478:geta$,a$:e$=chr$(0)
  15. 15 geta$,a$,h$,l$:ifstthensys65484:close1:goto19
  16. 16 printasc(h$+e$)+256*asc(l$+e$);
  17. 17 geta$,b$:ifa$thenprinta$b$;:goto17
  18. 18 printa$:goto15
  19. 19 print" taste druecken !![158]"
  20. 20 poke198,0:wait198,1:poke198,0:return
  21.