home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1988 August
/
64er_Magazin_88-08_1988_Markt__Technik_de_Side_A.d64
/
snapshot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
51 lines
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 :