home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib19b.dsk / BAR.DEMO1.bas < prev    next >
BASIC Source File  |  2023-02-26  |  880b  |  20 lines
  1. 1  REM  ***********************
  2. 2  REM  *      BAR.DEMO1      *
  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. 20  CALL 37953: REM  INIT DOUBLE HI-RES
  10. 25  HGR : POKE 49152,0: CALL 37928: REM  CLEAR DHR SCREENS
  11. 30  HOME : POKE 49192,0: CALL 37916: REM  CLEAR TEXT WINDOW
  12. 40  POKE 49153,0: REM  SET 80STORE FOR MAIN/AUXILIARY MEMORY SWITCHING
  13. 50  POKE 49234,0: REM  SET FOR FULL SCREEN GRAPHICS
  14. 60  HCOLOR= 3
  15. 100  FOR X = 1 TO 22: READ XC00RD: GOSUB 600: NEXT X
  16. 110  DATA  0,3,4,7,8,9,12,13,17,18,19,21,22,23,26,27,30,31,33,34,37,38
  17. 500  END 
  18. 600  POKE 49236,0:COLUMN =  INT(XC00RD/7): IF COLUMN/2 =  INT(COLUMN/2)  THEN  POKE 49237,0
  19. 610 XC =  INT(COLUMN/2) +XC00RD/7 -COLUMN
  20. 620 XC =  INT(XC *7 +.5): HPLOT XC,0 TO XC,150: RETURN