home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 35.dms / 35.adf / basic.bas < prev    next >
Encoding:
BASIC Source File  |  1988-05-22  |  1.4 KB  |  49 lines
  1. 100   def fnr(x)=int(x*rnd(20)+1)
  2. 110   screen 1,4,3:graphic 1
  3. 120   rows=640
  4. 130   cols=200
  5. 140   scnclr
  6. 150   input "40 or 80 columns(40,80):";sclen
  7. 160   if sclen<>40 and sclen<>80 then 150
  8. 170   if sclen=40 then screen 0,1,0:rows=320
  9. 180   scnclr:graphic 0
  10. 190   dim x(40),y(40),m(40),n(40)
  11. 200   a=40:b=0
  12. 210   n1=50:n2=20
  13. 220   rem set colors here
  14. 230   x(a)=rows/2+fnr(n1):x(a)=x(a)-fnr(n1)
  15. 240   y(a)=cols/2+fnr(n1):y(a)=y(a)-fnr(n1)
  16. 250   m(a)=rows/2+fnr(n1):m(a)=m(a)-fnr(n1)
  17. 260   m(a)=cols/2+fnr(n1):n(a)=n(a)-fnr(n1)
  18. 270   v=fnr(n2):v=v-fnr(n2)
  19. 280   w=fnr(n2):w=w-fnr(n2)
  20. 290   e=fnr(n2):e=e-fnr(n2)
  21. 300   f=fnr(n2):f=f-fnr(n2)
  22. 310   if x(a)<0 then x(a)=0:v=-v
  23. 320   if x(a)>rows-1 then x(a)=rows-1:v=-v
  24. 330   if y(a)<0 then y(a)=0:w=-w
  25. 340   if y(a)>cols-1 then y(a)=cols-1:w=-w
  26. 350   if m(a)<0 then m(a)=a:e=-e
  27. 360   if m(a)>rows-1 then m(a)=rows-1:e=-e
  28. 370   if n(a)<0 then n(a)=0:f=-f
  29. 380   if n(a)>cols-1 then n(a)=cols-1:f=-f
  30. 390   draw(x(b),y(b) to m(b),n(b)),sc
  31. 400   draw(x(a),y(a) to m(a),n(a)),cl
  32. 410   if cflag=1 then cl=cl+1
  33. 420   if cl>15 then cl=0
  34. 430   x=x(a):y=y(a):m=m(a):n=n(a)
  35. 440   if a=40 then a=-1
  36. 450   if b=40 then b=-1
  37. 460   a=a+1
  38. 470   b=b+1
  39. 480   x(a)=x+v:y(a)=y+w
  40. 490   m(a)=m+e:n(a)=n+f
  41. 500   get c$
  42. 510   if c$="p" then gosub 560
  43. 520   if c$="c" then cflag=1-cflag
  44. 530   goto 310
  45. 540   j=int(j*rnd(a)+1)
  46. 550   return
  47. 560   get a$:if a$="" then 560
  48. 570   return
  49.