home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / MISC / PLOT33.LBR / FILLS.BAS next >
BASIC Source File  |  2000-06-30  |  768b  |  27 lines
  1. 280 REM  AUTHOR:  TOM SPEER          24 NOV 1983
  2. 290 REM  ********  SAMPLE ROUTINE FOR DEMONSTRATING FILL PATTERNS  ********
  3. 291 REM  TY : DELTA Y
  4. 292 REM  TX : DELTA X
  5. 293 REM  LG : LENGTH
  6. 294 REM
  7. 300 TY=1/15:HT=1/16:TX=1/11:LG=1/12
  8. 310 X1=0:X2=LG:YF=1-TY:Y1=YF+HT:Y2=Y1
  9. 320 FOR I%=1 TO 13
  10. 330 FOR J%=1 TO 10
  11. 340 GC%=(I%-1)*10+J%
  12. 350 IF GC%>127 GOTO 500
  13. 360 GOSUB 182: REM SET COLOR
  14. 370 GOSUB 190: REM FILL BLOCK
  15. 380 X1=X1+TX:X2=X1+LG
  16. 390 NEXT J%
  17. 400 X1=0:X2=LG:YF=YF-TY:Y1=YF+HT:Y2=Y1
  18. 410 NEXT I%
  19. 500 X1=0:LG=1/65:YF=0:Y1=HT:Y2=Y1:X2=LG
  20. 510 FOR GC%=64 TO 127
  21. 520 GOSUB 182:  REM SET COLOR
  22. 530 GOSUB 190:  REM FILL BLOCK
  23. 540 X1=X2:X2=X2+LG
  24. 550 NEXT GC%
  25. 560 GOSUB 196:  REM CLOSE OUT PLOT
  26. 570 END
  27.