home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 80 / 64er_Magazin_Sonderheft_80_19xx_Markt__Technik_de_Side_B.d64 / syswandler (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  961b  |  28 lines
  1. 1 printchr$(14):poke53280,6:poke53281,6
  2. 2 print"[147]"tab(14)"[211]yswandler"tab(54)"[163][163][163][163][163][163][163][163][163][163]"
  3. 3 printtab(17)"von"tab(48)"[200]ans-[202]uergen [218]iethmann"
  4. 4 printtab(160)"bitte legen [211]ie die [199][197][207][211] 2.0"
  5. 5 print"[199]eossystemdiskette in das [204]aufwerk":a=0
  6. 6 print"und druecken eine [212]aste"
  7. 7 wait203,64,64:open1,8,15,"i":open2,8,2,"#":restore
  8. 8 print#1,"u1:";2;0;18;0:print#1,"b-p";2;10:get#2,a$:a=asc(a$+chr$(0))
  9. 9 ifa<>64thenprint"[147][198]alsche [196]iskette, breche [198]organg ab!":close2:close1:end
  10. 10 print"([193])= [211]ystemdiskette[146]":print"([194])= [211]icherheitssystemdiskette"
  11. 11 print"([197])= [197]nde[146]"
  12. 12 geta$:ifa$="a"thensy=1:goto16
  13. 13 ifa$="b"thensy=2:goto16
  14. 14 ifa$="e"thengoto24
  15. 15 goto12
  16. 16 read n:ifn<0then18
  17. 17 print#1,"m-w"chr$(lb)chr$(05)chr$(1)chr$(n):lb=lb+1:goto16
  18. 18 on abs(n) goto19,20,23
  19. 19 read lb:goto16
  20. 20 if si=1 then print#1,"u2";2;0;t;s
  21. 21 read t:read s
  22. 22 print#1,"u1"2;0;t;s:si=1:goto16
  23. 23 print#1,"u2"2;0;t;s:ifsy=2thensy=3:goto16
  24. 24 print#1,"i":close1:close2:print"[211]ystem geendert":end
  25. 25 data-2,18,0,-1,144,83,121,115,116,101,109,160,160,160,160,160,160,160,160
  26. 26 data160,160,-3,-2,18,0,-1,144,83,105,99,104,101,114,104,101,105,116,115,121
  27. 27 data115,116,101,109,-3
  28.