home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1986 September & October / rerun-1986-09-10.d64 / random scroller (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  450 b   |  17 lines
  1. 1 rem random scroller
  2. 3 fori=0to26
  3. 4 print"[164][175][162][198][195][196][195][198][185][175][164][175][185][198][195][196][195][198][162][175][164][175][162][198][195][196][195][198][162][185][175][164][185][195][196][195][185]";
  4. 5 next
  5. 10 t=0:b=25:l=0:r=39
  6. 20 n=rnd(ti):ifn<.5thengosub200
  7. 30 t=1024+t*40:t=t/256:poke835,t:poke899,t:t=(t-int(t))*256:poke831,t:poke895,t
  8. 40 b=1024+b*40:b=(b/256-int(b/256))*256:poke846,b:poke905,b
  9. 60 poke829,l:poke866,l:poke921,l
  10. 70 poke857,r:poke893,r:poke933,r
  11. 80 gosub100
  12. 90 goto10
  13. 100 fori=0tom:sys828:next
  14. 110 fori=0tom:sys892:next:return
  15. 200 t=int(rnd(ti)*12):b=int(rnd(ti)*12+12):m=int(rnd(ti)*100)+1
  16. 210 l=int(rnd(ti)*19):r=int(rnd(ti)*19+20):return
  17.