home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 April / 64er_Magazin_86-04_1986_Markt__Technik_de.d64 / autochange (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  37 lines
  1. 10 lc=0:(NULL)0,1:(NULL)4,1:(NULL)5,2
  2. 100 name$="[147]c64 diskette"
  3. 110 print"[147]automatischer wechsel"
  4. 120 print"in den 64'er modus"
  5. 130 open15,8,15,"i0":a$=chr$(0)
  6. 140 ifds<>0then(NULL)
  7. 150 print"disketten fehler: ";ds$
  8. 160 close8:close15
  9. 170 print"abbruch":end
  10. 180 (NULL)
  11. 190 open8,8,8,"#"
  12. 200 print#15,"u1:8 0 18 0":print#15,"b-p";8;5
  13. 210 get#8,ba$
  14. 220 print#15,"u1:8 0 1 0"
  15. 230 fori=0to24:get#8,s$:bl$=bl$+chr$(asc(s$)):next
  16. 240 if(asc(ba$)and1)=0then(NULL)
  17. 250 ifleft$(bl$,3)="cbm"thenprint"boot-sector schon vorhanden"
  18. 270 ifleft$(bl$,3)<>"cbm"thenprint"programm liegt auf boot-sector"
  19. 280 print"installierung fortsetzen? (j/n)" :lc=1
  20. 290 get(NULL)x$
  21. 300 ifx$<>"j"then(NULL)
  22. 310 close8:close15
  23. 320 print"abbruch":end:(NULL)
  24. 330 (NULL)
  25. 340 print"     installieren des boot-sektors
  26. 345 [153]"    bitte entfernen sie einen evtl.
  27. 350 print"     vorhandenen schreibschutz und
  28. 360 [153]"        druecken sie eine taste
  29. 370 get(NULL)x$
  30. 380 print#15,"b-p 8 0"
  31. 390 print#8,chr$(67);chr$(66);chr$(77);a$;a$;a$;a$;name$;a$;
  32. 400 print#8,a$;chr$((NULL)("20"));chr$((NULL)("4d"));chr$((NULL)("ff"));a$
  33. 410 print#15,"u2:";8;0;1;0
  34. 415 iflc=0thenprint#15,"b-a 0 1 0"
  35. 420 close8:close15
  36. 430 print"    boot-sector installiert":end
  37.