home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib30b.dsk / DEMO.3.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  25 lines
  1. 1  REM **********************
  2. 2  REM *       DEMO.3       *
  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 V1 = 49236:V2 = 49237: REM  VIEW PAGE 1 OR 2 ADDRESSES
  9. 20 PP = 230: REM  PLOTTING PAGE MEMORY LOCATION
  10. 30 D1 = 32:D2 = 64: REM  DRAWING PAGE VALUES
  11. 40  HOME : VTAB 10: HTAB 1: PRINT "WE WILL DRAW A FIGURE ON HI-RES PAGE 1": PRINT "THEN DRAW ONE UNSEEN ON PAGE 2, AND": PRINT "THEN FLIP THE PAGE TO SEE THE OTHER": PRINT "FIGURE."
  12. 50  VTAB 24: PRINT "PRESS <RETURN> TO CONTINUE...";: POKE  -16368,0: GET X$
  13. 60  POKE PP,D1: CALL 62450: HGR : REM  CLEAR AND DRAW ON PAGE 1
  14. 70  HPLOT 129,16 TO 149,16 TO 149,146 TO 129,146 TO 129,16
  15. 80  HOME : VTAB 22: PRINT "DRAWING FIGURE ON PAGE 2 NOW"
  16. 90  POKE PP,D2: CALL 62450: REM  PLOT ON PAGE 2
  17. 100  HPLOT 20,71 TO 260,71 TO 260,91 TO 20,91 TO 20,71
  18. 110  FOR I = 1 TO 1000: NEXT 
  19. 120  VTAB 24: PRINT "FIGURE COMPLETE..PRESS <RETURN>..";: POKE  -16368,0: GET X$
  20. 130  POKE 49234,0: REM  FULL PAGE 2 GRAPHICS
  21. 140  POKE V2,0
  22. 150  POKE  -16368,0: GET X$
  23. 160  POKE V1,0: POKE 49235,0: HOME : VTAB 24: PRINT "PRESS <RETURN> FOR RAPID FLIPPING";: GET X$: REM MIX TEXT
  24. 170  POKE 49234,0
  25. 180  FOR I = 0 TO 279: POKE V2,0: HPLOT I,0: POKE V1,0: NEXT : HOME : TEXT : PRINT "END": END