home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1990 November
/
1990-11.d64
/
beg_bas
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
1KB
|
42 lines
10 s=54272:fort=stos+24:poket,0:next
20 pokes+3,8:pokes+5,12:pokes+6,29:pokes+24,15
30 printchr$(147)chr$(144):poke53280,1:poke53281,1
40 fort=1to8:print" [164][164][164]":next
50 print"[164][164][213][201][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]
60 [153]"totopeekpeektototototototototototototototototototototototototototototototototototo
70 print"[164][213][219][203][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]
80 [153]"topeek(NULL)right$tototototototototototototototototototototototototototototototototototo
90 print"[164][202][219][203][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]
92 [153]" mid$(NULL) tototo
94 fort=1to7:print" [164][164][164]":next
100 v=53248
110 n=125
120 forj=12288to12350:readd:pokej,d:next
130 data0,0,3,0,0,3,0,0,3,0,0,3,0,0,3,0,0,3,0,0,3,0,0,3,0,0,3,0,0,3,0,0,3,0,0,3
140 data0,0,3,0,0,251,0,3,255,0,7,255,0,7,255,0,7,255,0,3,254,0,0,248,0,0,0
150 pokev+39,5
160 poke2040,192
170 pokev,160
180 pokev+1,n
190 pokev+21,1
200 dimfu(41),fl(41),c(41)
210 k=256:forj=41to1step-1:readd,c(j):fu(j)=int(d/k):fl(j)=d-fu(j)*k:next
220 data1072,5,1204,2,1351,3,1432,4,1607,12,1804,6,2025,7,2145,5,2408,2,2703,3
225 data2864,4,3215,12,3608,6,4050,7,4291,5,4817,2,5407,3,5728,4,6430,12,7216,6
235 data8101,7,8583,5,9634,2,10814,3,11457,4,12860,12,14435,6,16203,7,17167,5
240 data19269,2,21629,3,22915,4,25721,12,28871,6,32407,7,34334,5,38539,2
250 data43258,3,45830,4,51443,12,57743,6
300 js=56320
310 jd=peek(js)
320 ifjd=126thenn=n-4:ifn<49thenn=49
330 ifjd=125thenn=n+4:ifn>209thenn=209
340 ifjd=111thengosub400
350 ifjd=110thengosub400:n=n-4:ifn<49thenn=49
360 ifjd=109thengosub400:n=n+4:ifn>209thenn=209
370 pokev+1,n:q=int(n/4-11)
380 pokev+39,c(q)
390 goto310
400 pokes,fl(q):pokes+1,fu(q)
410 pokes+4,64:pokes+4,65
420 return