home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib41b.dsk / LPLOT.DEMO2.bas < prev    next >
BASIC Source File  |  2023-02-26  |  784b  |  25 lines
  1. 10  REM   *********************
  2. 20  REM   * LPLOT.DEMO2       *
  3. 30  REM   * BY DAVID HARRIS   *
  4. 40  REM   * COPYRIGHT 1991 BY *
  5. 50  REM   * MINDCRAFT PUBL.   *
  6. 60  REM   * LINCOLN, MA 01773 *
  7. 70  REM   *********************
  8. 80  FOR LOOP = 0 TO 26
  9. 90  READ V: POKE 16384 +LOOP,V
  10. 100  NEXT LOOP
  11. 110  HGR : HCOLOR= 3
  12. 120 LOOP = 0
  13. 130 XH =  PEEK(16384 +LOOP)
  14. 140  IF XH >127  THEN  GOTO 180
  15. 150  HPLOT  TO XH *256 + PEEK(16385 +LOOP), PEEK(16386 +LOOP)
  16. 160 LOOP = LOOP +3
  17. 170  GOTO 130
  18. 180 XL =  PEEK(16385 +LOOP)
  19. 190  IF XL >127  THEN  VTAB 22: PRINT "PRESS ANY KEY TO EXIT ": GET B$: PRINT : TEXT : HOME : END 
  20. 200 XH = XH -128
  21. 210  HPLOT XH *256 +XL, PEEK(16386 +LOOP)
  22. 220  GOTO 160
  23. 230  DATA  128,0,0,1,4,0,1,4,100,0,0,100,0,0,0
  24. 240  DATA  1,4,100,129,4,0,0,0,100
  25. 250  DATA  128,128,0