64'er Special 80/64er_Magazin_Sonderheft_80_19xx_Markt__Technik_de_Side_B.d64/deskpack change

Commodore BASIC | 1990-01-01 | 1.3 KB | 29 lines

1 printchr$(14)"[147]"tab(13)"[196]eskpack [195]hange"tab(53)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
2 poke53280,6:poke53281,6:printtab(18)"von"tab(49)"[200]ans-[202]uergen [218]iethmann"
3 printtab(160)"[194]itte legen [211]ie die [199][197][207][211] 2.0"
4 print"[193]pplikationsdiskette in das [204]aufwerk"tab(80)"und druecken eine [212]aste"
5 wait203,64,64:open1,8,15,"i":open2,8,2,"#":print#1,"u1"2;0;18;0
6 print#1,"b-p";2;190:get#2,a$:a=asc(a$+chr$(0)):print#1,"b-p";2;191
7 get#2,b$:b=asc(b$+chr$(0)):close2
8 poke53280,0:poke53281,0:print"[145][145][145][196]eskpackdiskette in das [204]aufwerk     "
9 wait203,64,64:open2,8,2,"#":print#1,"u1:"2;0;18;0
10 print#1,"m-w"chr$(190)chr$(05)chr$(1)chr$(a):s=10:u=88:gosub25
11 print#1,"m-w"chr$(191)chr$(05)chr$(1)chr$(b):print#1,"u2"2;0;18;0:close2
12 poke53280,8:poke53281,8:print"[145][211]ystemdiskette in das [204]aufwerk  "
13 wait203,64,64:open2,8,2,"#":print#1,"u1"2;0;20;5
14 print#1,"b-p";2;197:get#2,a$:a=asc(a$+chr$(0))
15 print#1,"b-p";2;198:get#2,b$:b=asc(b$+chr$(0)):close2
16 poke53280,9:poke53281,9:print"[145][196]eskpackdiskette in das [204]aufwerk"
17 wait203,64,64:open2,8,2,"#":print#1,"u1:"2;0;1;16
18 print#1,"m-w"chr$(65)chr$(05)chr$(1)chr$(a):s=5:u=99:gosub25
19 print#1,"m-w"chr$(66)chr$(05)chr$(1)chr$(b):print#1,"u2"2;0;1;16
20 print#1,"u1:"2;0;3;3:print#1,"m-w"chr$(86)chr$(05)chr$(1)chr$(a)
21 print#1,"m-w"chr$(87)chr$(05)chr$(1)chr$(b):print#1,"u2"2;0;3;3
22 print#1,"u1:"2;0;8;5:print#1,"m-w"chr$(252)chr$(05)chr$(1)chr$(a)
23 print#1,"m-w"chr$(253)chr$(05)chr$(1)chr$(b):print#1,"u2"2;0;8;5
24 close2:close1:print"[196]eskpack an [211]ystem angepasst":end
25 print#1,"b-p";2;u:get#2,t$:t=asc(t$+chr$(0)):ift<>sthen27
26 return
27 print"[147][198]alsche [196]iskette, breche [198]organg ab,"tab(80)"um [211]chaden zu vermeiden!"
28 close2:close1:end