5 POKE53280,2:POKE53281,2:POKE646,14
10 PRINT"[147][211]NAPSHOT 1":PRINT:PRINT
15 PRINT"[205]IT DIESEM [208]ROGRAMM LASSEN SICH VON":PRINT
16 PRINT"BELIEBIGEN, DEM [194]ETRIEBSSYTEM ZUGAENG-":PRINT
17 PRINT"LICHEN [211]PEICHERBEREICHEN [205]OMENTAUFNAH-":PRINT
18 PRINT"MEN ANFERTIGEN, DIE DANN OHNE EIN [208]RO-":PRINT
19 PRINT"BLEM IM FREIEN [210][193][205] ABGELEGT WERDEN UND":PRINT
20 PRINT"JEDERZEIT AUSTAUSCHBAR SIND, WIE [211]IE":PRINT
21 PRINT"SEHEN (HIER: DIE [203]ONSTANTEN DES [214][201][195]":PRINT
22 PRINT"MIT DEN IN [218]EILE 5 EINGESTELLTEN [215]ERTEN)":PRINT
24 PRINT:PRINT,,"[212]ASTE DRUECKEN"
25 ZI=53248:QU=60601:AN=46
30 S1$="":S2$=""
40 N1=83:S1=0:N2=49:S2=128:GOSUB2000
50 Z=QU:GOSUB2200:POKEAD,AN:POKEAD+1,LO:POKEAD+2,HI:S1$=S1$+""
60 N1=83:S1=0:N2=50:S2=128:GOSUB2000
70 Z=ZI:GOSUB2200:POKEAD,AN:POKEAD+1,LO:POKEAD+2,HI:S2$=S2$+""
80 :
100 N1=83:S1=0:N2=49:S2=128:GOSUB2000
110 QU=PEEK(AD+1)+256*PEEK(AD+2):GOSUB2100
120 FORI=1TO1000:NEXT
150 N1=83:S1=0:N2=50:S2=128:GOSUB2000
160 QU=PEEK(AD+1)+256*PEEK(AD+2):GOSUB2100
170 FORI=1TO1000:NEXT
180 GETX$:IFX$=""THEN100
190 :
200 PRINT"[147][211]NAPSHOT 2":PRINT
210 QU=41118:AN=255:S1$=""
220 N1=83:S1=0:N2=49:S2=128:GOSUB2000
230 Z=QU:GOSUB2200:POKEAD,AN:POKEAD+1,LO:POKEAD+2,HI:S1$=S1$+""
240 PRINT"[196]IE [194]ASICBEFEHLSWORTE :":PRINT
250 PRINTS1$:PRINT
260 QU=41374:AN=255:S2$=""
270 N1=83:S1=0:N2=50:S2=128:GOSUB2000
280 Z=QU:GOSUB2200:POKEAD,AN:POKEAD+1,LO:POKEAD+2,HI:S2$=S2$+""
290 PRINT"[197]INIGE [198]EHLERMELDUNGEN:":PRINT
300 PRINTS2$
999 END
2000 POKE180,N1ORS1:POKE181,N2ORS2
2010 POKE69,PEEK(180):POKE70,PEEK(181):SYS45287
2020 AD=PEEK(780)+256*PEEK(782)
2030 RETURN
2100 Z=ZI:GOSUB2200:POKE53,LO:POKE54,HI
2105 Z=QU:GOSUB2200:POKE781,LO:POKE782,HI
2110 POKE780,AN+1:SYS46728
2120 RETURN
2130 :
2200 HI=INT(Z/256):LO=Z-HI*256
2210 RETURN
2220 :