home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib34b.dsk / SCROLL.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  22 lines
  1. 1  REM  ***********************
  2. 2  REM  * MINI SCROLL PLUS    *
  3. 3  REM  * BY BOB THRASHER     *
  4. 4  REM  * COPYRIGHT(C) 1988   *
  5. 5  REM  * MICROSPARC, INC.    *
  6. 6  REM  * CONCORD, MA 01742   *
  7. 7  REM  ***********************
  8. 10  PRINT  CHR$(12) CHR$(21): HGR : HOME : VTAB 22: PRINT " MINI-SCROLL PLUS DEMONSTRATION PROGRAM";: GOSUB 140
  9. 20  REM  *** Wipe sample used for drawing
  10. 30  FOR X = 0 TO 19: FOR Y = 0 TO 19: IF ((X +Y)/2) =  INT((X +Y)/2)  THEN  POKE T,Y *8: POKE B,Y *8 +7: POKE L,X *2: POKE R,X *2 +1: POKE C,127: CALL WI
  11. 40  NEXT Y,X: POKE T,24: POKE B,135: POKE L,6: POKE R,33: POKE C,111: CALL WI
  12. 50  REM *** Now draw a line and scroll upward   
  13. 60  HCOLOR= 0: FOR X = 49 TO 230: HPLOT X,120 + SIN(X/7) *7: NEXT 
  14. 70  POKE T,25: POKE B,134: POKE L,7: POKE R,32: FOR X = 0 TO 79: CALL UP: NEXT 
  15. 80  FOR X = 0 TO 79: CALL DOWN: NEXT 
  16. 90  VTAB 24: HTAB 8: PRINT "PRESS RETURN WHEN FINISHED";:
  17. 100  POKE T,110: POKE B,134: POKE L,7 + RND(1) *15: POKE R,22 + RND(1) *11
  18. 110  POKE T,110: CALL UP: CALL UP: CALL DOWN: CALL DOWN: IF  PEEK(49152) <128  THEN 100
  19. 120  GET A$: TEXT : HOME : END 
  20. 130  REM  *** The actual Mini-Scroll loader routine 
  21. 140  FOR X = 0 TO 100: READ Y: POKE 768 +X,Y: NEXT :UP = 768:DO = 782:WI = 796:T = 6:B = 7:L = 8:R = 9:C = 25: RETURN : DATA  166,6,138,168,200,32,61,3,232,228,7,208,245,96,166,7,138,168,136,32,61,3,202,228,6,208,245,96,166,7,138,72
  22. 150  DATA  160,0,32,17,244,104,170,164,9,165,25,145,38,196,8,240,3,136,16,247,228,6,240,4,202,76,30,3,96,140,101,3,138,72,160,0,32,17,244,165,38,133,0,165,39,133,1,173,101,3,160,0,32,17,244,104,170,164,9,177,38,145,0,136,196,8,176,247,96