home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9206b.d64 / diskwandler (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  628b  |  17 lines
  1. 1 POKE53280,0:POKE53281,0:PRINTCHR$(14)"[147]"TAB(14)"[196]ISKWANDLER"TAB(98)"VON"
  2. 2 PRINTTAB(9)"[200]ANS-[202]UERGEN [218]IETHMANN"TAB(160)"[194]ITTE [196]ISKETTE EINLEGEN"
  3. 3 PRINTTAB(40)"UND EINE [212]ASTE DRUECKEN":WAIT203,64,64:OPEN1,8,15,"I"
  4. 4 OPEN2,8,2,"#":PRINT#1,"U1:";2;0;18;0:PRINT#1,"B-P";2;189:GET#2,A$
  5. 5 A=ASC(A$+CHR$(0)):IFA=66THENPRINT"[211]YSTEMDISKETTE   [146]"
  6. 6 IFA=80THENPRINT"[200]AUPTDISKETTE    [146]"
  7. 7 IFA=0THENPRINT"[193]RBEITSDISKETTE  [146]"
  8. 8 PRINTTAB(40)"[211][146]YSTEMDISKETTE"TAB(80)"[200][146]AUPTDISKETTE"
  9. 9 PRINTTAB(40)"[193][146]RBEITSDISKETTE"TAB(80)"[197][146]NDE"
  10. 10 GETB$:IFB$="S"THENA=66:GOTO15
  11. 11 IFB$="H"THENA=80:GOTO15
  12. 12 IFB$="A"THENA=0:GOTO15
  13. 13 IFB$="E"THENCLOSE2:CLOSE1:END
  14. 14 GOTO10
  15. 15 PRINT#1,"M-W"CHR$(189)CHR$(05)CHR$(1)CHR$(A)
  16. 16 PRINT#1,"U2:"2;0;18;0:CLOSE2:GOTO4
  17.