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