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