home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 June / 64er_Magazin_92-06_1992_Markt__Technik_de_Side_B.d64 / diskwandler (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.