home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Rockford Magazine
/
Rockford_Magazine_010_19xx_-_de_Side_B.d64
/
bla3
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
42 lines
10 poke56,31:clr:ad=8000
20 poke53272,28:poke53280,11:poke53281,0
30 print"[147]":sh=int(ad/256):sl=ad-sh*256
40 poke252,sl:poke253,sh:sys49152:ad=ad+590
50 poke198,0:wait198,1:geta$:ifa$="[133]"then110
55 ifa$="[136]"then108
60 ifa$="-"andad=16974thenad=9770:goto30
70 ifa$="-"andad-1179>8000thenad=ad-1180:goto30
80 ifad=10360thenad=16384
90 ifad<31723then30
100 goto10
108 print"[147][144]load"chr$(34)"blagger 1701"chr$(34)",8":print"run":poke2,1
109 poke53272,21:poke631,19:poke632,13:poke633,13:poke634,13:poke198,4:new
110 restore:fory=1to17step2:forx=32to38step2:reada,b:poke1024+x+y*40,a
120 poke55296+x+y*40,b:nextx,y:q=ad:gosub210:ad=q
130 sys49264:poke53280,11:poke53272,21:print"[147]save ?"
140 poke198,0:wait198,1:geta$:ifa$<>"y"then20
150 input"file name =<16 tkn.";a$:iflen(a$)>16then150
160 eh=int((ad)/256):el=(ad)-eh*256
170 print"[147][144]p[207]43,"sl":p[207]44,"sh":p[207]45,"el":p[207]46,"eh
180 print"save"chr$(34)"@0:"a$chr$(34)",8[144]"
190 print"p[207]43,1:p[207]44,8:p[207]45,"peek(45)":p[207]46,"peek(46)":ad="ad":goto20
200 [151]631,19:[129]t[178]1[164]9:[151]631[170]t,13:[130]:[151]198,t:[128]
210 x[178]32:y[178]1:xx[178]32:yy[178]1:f[178]54272:a[178][194](1096):b[178][194](55368):ad[178]1096:c[178]32:cf[178]1
220 [129]t[178]1[164]25:[151]ad,122:[151]ad[170]f,1:[161]a$:[139]a$[179][177]""[167]240
230 [130]:[129]t[178]1[164]50:[151]ad,c:[151]ad[170]f,cf:[161]a$:[139]a$[178]""[167][130]:[137]220
240 [139]a$[178]"input"[167][151]ad,a:[151]ad[170]f,b:[151]53280,12:[142]
250 [139]a$[178]""[175]x[179]38[167]x[178]x[170]1
260 [139]a$[178]"cmd"[175]x[177]0[167]x[178]x[171]1
270 [139]a$[178]""[175]y[179]18[167]y[178]y[170]1
280 [139]a$[178]"on"[175]y[177]0[167]y[178]y[171]1
290 [139]a$[178]" "[175]x[177]30[167]c[178]a:cf[178]b:[137]220
300 [139]a$[178]" "[167][141]350:[151]ad,c:[151]ad[170]f,cf:[137]330
310 [139]x[178]xx[175]y[178]yy[167]220
320 [141]340:[151]ad,a:[151]ad[170]f,b:[141]350:xx[178]x:yy[178]y
330 a[178][194](ad):b[178][194](ad[170]f):[137]220
340 ad[178]1024[170]xx[170]yy[172]40:[142]
350 ad[178]1024[170]x[170]y[172]40:[142]
360 [131] 30,8,31,13,33,7,34,13,35,2,36,5,37,2,38,4,41,1,42,1,43,1,78,13
370 [131] 100,1,101,1,102,1,103,11,104,11,106,6,110,2,94,1,48,1,49,1,50,1,51,1
380 [131] 52,1,53,1,54,1,55,1,56,1,57,1,126,9,127,9,86,8,87,8,88,8,89,8