home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib19b.dsk / BAR.DEMO2.bas < prev    next >
BASIC Source File  |  2023-02-26  |  955b  |  21 lines
  1. 1  REM  ***********************
  2. 2  REM  *      BAR.DEMO2      *
  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: HIMEM: 37888: REM  SETUP YTABLE-PROTECT DRIVER
  10. 20  CALL 37953: REM  INIT DOUBLE HI-RES
  11. 25  HGR : POKE 49152,0: CALL 37928: REM  CLEAR DHR SCREENS
  12. 30  HOME : POKE 49192,0: CALL 37916: REM  CLEAR TEXT WINDOW
  13. 40  POKE 49153,0: REM  SET 80STORE FOR MAIN/AUXILIARY MEMORY SWITCHING
  14. 50  POKE 49234,0: REM  SET FOR FULL SCREEN GRAPHICS
  15. 100  POKE 49237,0: REM  SELECT PAGE 1X
  16. 110  FOR ADDRESS = 0 TO 2: READ BYTE: GOSUB 500: NEXT ADDRESS
  17. 120  POKE 49236,0: REM  SELECT PAGE 1
  18. 130  FOR ADDRESS = 0 TO 2: READ BYTE: GOSUB 500: NEXT ADDRESS
  19. 140  DATA  25,56,108,103,103,12
  20. 200  END 
  21. 500  FOR Y = 0 TO 150: POKE 6,Y: CALL 37988: POKE  PEEK(38) + PEEK(39) *256 +ADDRESS,BYTE: NEXT Y: RETURN