home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib19b.dsk / COLOR.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  917b  |  22 lines

  1. 1  REM  ***********************
  2. 2  REM  *     COLOR.DEMO      *
  3. 3  REM  * BY ROBERT R. DEVINE *
  4. 4  REM  * COPYRIGHT (C)  1984 *
  5. 5  REM  * BY MICROSPARC, INC. *
  6. 6  REM  * LINCOLN, MA.  01773 *
  7. 7  REM  ***********************
  8. 10  PRINT  CHR$(4)"BLOAD DHR.DRIVER"
  9. 15  CALL 37999: REM  SETUP YTABLE
  10. 20  CALL 37953: REM  INIT DOUBLE HI-RES
  11. 25  HGR : CALL 37928: REM  CLEAR DHR SCREENS
  12. 30  HOME : CALL 37916: REM   CLEAR TEXT WINDOW
  13. 40  VTAB 22: PRINT "0 1 2 3 4 5 6 7 8 9 1 1 1 1 1 1"
  14. 50  PRINT "                    0 1 2 3 4 5"
  15. 60  PRINT "   DOUBLE HI-RES COLORS"
  16. 70  POKE 49153,0: POKE 49237,0: REM  SELECT PAGE 1X
  17. 100  FOR X = 0 TO 15
  18. 120  FOR Y = 0 TO 150: POKE 6,Y: CALL 37988:ADDRESS =  PEEK(38) + PEEK(39) *256
  19. 130  POKE ADDRESS +X *2,X
  20. 140  NEXT Y,X
  21. 150  POKE 49236,0: POKE 49152,0: POKE 37948,24: CALL 37928: REM  DUPLICATE PAGE 1X ONTO PAGE 1
  22. 160  VTAB 10: GET A$: CALL 37966: REM  TURN OFF 560 DOT GRAPHICS MODE