home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib30b.dsk / DEMO.2.bas < prev    next >
BASIC Source File  |  2023-02-26  |  874b  |  21 lines
  1. 1  REM **********************
  2. 2  REM *       DEMO.2       *
  3. 3  REM *   BY MARK CRAVEN   *
  4. 4  REM * COPYRIGHT (C) 1986 *
  5. 5  REM * BY MICROSPARC, INC *
  6. 6  REM * CONCORD, MA  01742 *
  7. 7  REM **********************
  8. 10  HOME 
  9. 20 A$ = "THIS WILL DEMONSTRATE A NORMAL 'HGR'": GOSUB 140: GOSUB 130
  10. 30  POKE 230,32: HCOLOR= 3: GOSUB 110: REM PLOT ON PAGE 1
  11. 40  HGR 
  12. 50  HOME : TEXT : FOR I = 1 TO 1000: NEXT 
  13. 60 A$ = "THIS WILL DEMONSTRATE A 'CLEAN' HGR": GOSUB 140: GOSUB 130
  14. 70  GOSUB 110: REM  DRAW FIGURE AGAIN
  15. 80  CALL 62450: REM CLEAR HI-RES SCREEN TO BLACK
  16. 90  HGR 
  17. 100  FOR I = 1 TO 1000: NEXT : HOME : TEXT : END 
  18. 110  HCOLOR= 3: HPLOT 0,0 TO 279,0 TO 279,159 TO 0,159 TO 0,0
  19. 120  FOR I = 0 TO 279  STEP 10: HPLOT I,0 TO I,191: NEXT : RETURN 
  20. 130  VTAB 24: HTAB 1: PRINT "PRESS <RETURN> TO CONTINUE..";: POKE  -16368,0: GET X$: RETURN 
  21. 140  VTAB 10: HTAB 1: PRINT A$: RETURN