home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib41b.dsk / SCREEN.DELIGHTS.bas < prev    next >
BASIC Source File  |  2023-02-26  |  773b  |  29 lines

  1. 10  HOME : HGR 
  2. 20  HCOLOR= 3
  3. 30 X1% =  RND(1) *279 +1
  4. 40 Y1% =  RND(1) *191 +1
  5. 50 Y3% =  RND(1) *191 +1
  6. 60 X3% =  RND(1) *279 +1
  7. 70  IF Q = 0  THEN 130
  8. 80 ST = 1:S = 1
  9. 90 X% =  RND(1) *279 +1
  10. 100 X2% =  RND(1) *279 +1
  11. 110 Y% =  RND(1) *191 +1
  12. 120 Y2% =  RND(1) *191 +1
  13. 130  HPLOT X%,Y% TO X1%,Y1%
  14. 140  HPLOT X2%,Y2% TO X3%,Y3%
  15. 150  FOR HC = 0 TO 1
  16. 160  HCOLOR= 3 *(HC = 0)
  17. 170  FOR T = Q TO 1 *(Q = 0)  STEP 0.05 -.1 *(Q = 1)
  18. 180 S = T
  19. 190 X = X% +(T *(X1% -X%)):Y = Y% +(T *(Y1% -Y%))
  20. 200 X1 = X2% +(S *(X3% -X2%)):Y1 = Y2% +(S *(Y3% -Y2%))
  21. 210  HPLOT X,Y TO X1,Y1
  22. 220  IF  PEEK( -16384) >127  THEN  TEXT : HOME : END 
  23. 230  NEXT T,HC
  24. 240  HCOLOR= 0
  25. 250  HPLOT X2%,Y2% TO X3%,Y3%
  26. 260  HPLOT X%,Y% TO X1%,Y1%
  27. 270 Q = 1 *(Q = 0)
  28. 280  IF Q = 0  THEN 30
  29. 290  IF Q = 1  THEN 90