home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1989 August
/
1989-08.d64
/
demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
1KB
|
35 lines
10 rem copyright 1989 compute! publications, inc. all rights reserved.
20 on a goto110,210,310
30 fori=52736to52751:readn:pokei,n:next
40 data 120,169,49,141,20,3,169,234,141,21,3,32,129,255,88,96
50 sys52736:a=1:load"rainbowborder",8,1
60 sys52736:a=2:load"multisprite",8,1
70 sys52736:a=3:load"texthires",8,1
100 rem rainbow border demo
110 sys49170:rem turn on int
120 print"[147]";tab(12)"rainbow border":gosub440:goto60
200 rem multisprite demo
210 for i=832 to 895:poke i,0:next
220 for i=2040 to 2047:poke i,13:next
230 for i=832 to 865 step 3:poke i,255:pokei+1,127:next
240 v=53248:for i=0 to 14 step 2:poke i+v,i*15+40:next
250 poke v+21,255:sys49170
260 print"[147]"tab(15)"multisprite":gosub440:goto70
300 rem hires with text window
310 for i=0 to 7:bi(i)=2^i:next
320 base=8192:poke 53272,peek(53272)or8
330 a$="":for i=1 to 38:a$=a$+"0":next:printchr$(19);
340 for i=1 to 21:printa$;:next:poke 2023,peek(2022):rem set color map
350 a$="":for i=1 to 128:a$=a$+"@":next:for i=32 to 63 step 2
360 poke 648,i:printchr$(19);a$;a$;a$;a$:next:poke 648,4:sys49170
370 for y=0to160
380 x=int(160+40*sin(y/10)):rem sine wave
390 by=base+40*(y and 248)+(y and 7)+(x and 504)
400 poke by,peek(by) or (bi(not x and 7)):next y
410 print""
420 printtab(7)"bottom four lines are text"
430 gosub440:sys52736:end
440 print:printtab(9)"space bar to continue"
450 geta$:if a$=" " then return
460 goto450