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