home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / PATTERNS.ZIP / PATTERNS.BAS
Encoding:
BASIC Source File  |  1988-01-03  |  867 b   |  35 lines
  1. 0' THIS PROGRAM IS CALLED ROD, AUTHOR UNKNOWN
  2. 2 KEY OFF
  3. 3 ON ERROR GOTO 1000
  4. 5 CLS
  5. 10 SCREEN 1,0
  6. 20 FOR W=3 TO 50
  7. 30 FOR I=1 TO 19
  8. 40 FOR J=0 TO 19
  9. 50 K=I+J
  10. 55 IX=I*8
  11. 60 IX8=IX+8
  12. 70 IY=I*5
  13. 80 KX=K*8
  14. 90 KY=K*5
  15. 100 IY5=IY+5
  16. 110 KX8=KX+8
  17. 120 KY5=KY+5
  18. 130 COL= (J*3/(I+3)+I*W/12) MOD 8
  19. 150 COL=COL MOD 4
  20. 160 LINE(IX,KY)-(IX8,KY5),COL,BF
  21. 170 LINE(KX,IY)-(KX8,IY5),COL,BF
  22. 180 LINE(319-IX,199-KY)-(319-IX8,199-KY5),COL,BF
  23. 190 LINE(319-KX,199-IY)-(319-KX8,199-IY5),COL,BF
  24. 195 LINE(KX,199-IY)-(KX8,199-IY5),COL,BF
  25. 196 LINE(319-IX,KY)-(319-IX8,KY5),COL,BF
  26. 197 LINE(IX,199-KY)-(IX8,199-KY5),COL,BF
  27. 198 LINE(319-KX,IY)-(319-KX8,IY5),COL,BF
  28. 240 NEXT J,I
  29. 250 NEXT W
  30. 260 GOTO 1030
  31. 1000 KEY ON:CLS:RESUME 1010
  32. 1010 PRINT " ERROR ";ERR;" HAS OCCURED IN LINE # ";ERL
  33. 1020 PRINT "THIS PROGRAM REQUIRES BASICA AND THE COLOR GRAPHICS ADAPTOR "
  34. 1030 END
  35.