home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1992 August / 1992-08.d64 / rev.demo (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  23 lines
  1. 100 rem revelation demo
  2. 110 rem copyright 1992 - compute publications intl ltd - all rights reserved
  3. 120 :
  4. 130 if a<>0 then 150
  5. 140 a=255:load"revelation",8,1
  6. 150 v=53248:sa=52700:pokev+32,0:pokev+33,0:printchr$(147);:poke646,14
  7. 160 bl=52916:syssa,0,1,0,"this demonstration shows how text can be"
  8. 170 syssa,0,3,0,"revealed smoothly":syssa,27,3,0,"on the screen"
  9. 180 syssa,18,3,0,"anywhere":syssa,3,5,0,"text can be displayed in any":a$=""
  10. 190 b$="color":fort=1tolen(b$):readx:a$=a$+chr$(x)+mid$(b$,t,1):next
  11. 200 syssa,32,5,0,a$:a$=chr$(18)+chr$(158)+"or with reverse on and off"
  12. 210 syssa,7,7,0,a$:syssa,0,0,0,"":poke646,4:pokebl,1:pokev+39,5:pokebl,1
  13. 220 pokev+39,4:syssa,5,9,0,"text can also be cursor driven":syssa,0,0,0,""
  14. 230 pokebl,0:syssa,4,11,0,"and can be revealed at any":a$="speed"
  15. 240 fort=1tolen(a$):syssa,30+t,11,t,mid$(a$,t,1):next
  16. 250 syssa,2,13,0,"text can scroll like normal as well:":poke646,10
  17. 260 y=14:fort=3.14to6.28step.2:c=cos(2*t)+sin(t):x=6*c+12:y=y+1
  18. 270 syssa,x,y,0,"scrolling":next:syssa,x,y,0,"":fort=0to1e3:next:poke646,3
  19. 280 printchr$(147);:syssa,0,1,0,"display of text is interrupt driven too:"
  20. 290 poke646,13:a$=chr$(18)+"that's all folks !!!":syssa,10,3,3,a$
  21. 300 fort=0to4:printchr$(17):next:end
  22. 310 data158,30,31,153,150,5
  23.