Compute! Gazette 1992 January/1992-01.d64/ms qdemo

Commodore BASIC | 1992-01-01 | 537 b | 28 lines

2 if a=1 then 10
4 a=1
6 load"multi-screen",8,1
10 sys 49152
20 v1=53153:v2=53201
30 poke v1+32,0:poke v1+33,0
40 poke v2+32,0:poke v2+33,0
50 poke v1+17,peek(v1+17) or 32
60 poke v1+24,peek(v1+24) or 8
70 poke v1+24,(peek(v1+24) and 15) or 48
80 for i=3072 to 4071:poke i,48:next
90 for i=8192 to 16191:poke i,0:next
100 for x=0 to 319 step .5
110 y=int(90+80*sin(x/10))
120 ch%=x/8:ro%=y/8
130 ln=y and 7
140 by=8192+ro%*320+ch%*8+ln
150 bi=7-(x and 7)
160 poke by,peek(by) or 2^bi
170 next
180 print chr$(147);
190 for i=0 to 100:c=i and 31
192 poke 646,c
195 if c>=16 then print chr$(18);
200 print "this is line #";i
210 next
220 end