home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8604.d64 / autochange (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.