home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib39a.dsk / JULY.1990 / HPLOT.DEMO2.bas next >
BASIC Source File  |  2023-02-26  |  664b  |  21 lines
  1. 10  REM  ***************************
  2. 20  REM  * HPLOT.DEMO2             *
  3. 30  REM  * BY DAVID HARRIS         *
  4. 40  REM  * COPYRIGHT(C) 1990       *
  5. 50  REM  * MINDCRAFT PUBL. CORP.   *
  6. 60  REM  * CONCORD, MA 01742       *
  7. 70  REM  ***************************
  8. 80 :
  9. 90 : REM  ** MAIN PROGRAM **
  10. 100 :
  11. 110  HOME : VTAB 23: PRINT "SHARPER LINE FIRST, NORMAL LINE SECOND"
  12. 120  HGR 
  13. 130  FOR X = 0 TO 35
  14. 140  FOR Y = 1 TO 4
  15. 150  IF Y = 1  THEN  HCOLOR= 6
  16. 160  IF Y = 2  THEN  HCOLOR= 1
  17. 170  IF Y = 3  THEN  HCOLOR= 5
  18. 180  IF Y = 4  THEN  HCOLOR= 2
  19. 190  HPLOT X *2 + INT(Y/2),X *4 +Y
  20. 200  NEXT : NEXT 
  21. 210  HCOLOR= 3: HPLOT 10,0 TO 81,144: REM  NORMAL LINE FOR COMPARISON