home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib21b.dsk / ANIMATION.2.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  27 lines
  1. 10  REM  ***********************
  2. 20  REM  *     ANIMATION.2     *
  3. 30  REM  * BY ROBERT R. DEVINE *
  4. 40  REM  * COPYRIGHT (C)  1984 *
  5. 50  REM  * BY MICROSPARC, INC. *
  6. 60  REM  * LINCOLN, MA.  01773 *
  7. 70  REM  ***********************
  8. 80  PRINT  CHR$(4)"BLOAD DHR.DRIVER": CALL 37999: HIMEM: 37507: REM  LOAD/SETUP/PROTECT
  9. 90  CALL 37953: REM  INIT
  10. 100  HGR : CALL 37928: REM  CLEAR DHR SCREEN
  11. 110  POKE 49153,0: POKE 49234,0: REM  80STORE/FULL SCREEN
  12. 120  HCOLOR= 3: GOTO 150
  13. 130  POKE 49236,0:C =  INT(X/7): IF C/2 =  INT(C/2)  THEN  POKE 49237,0: REM  FLIP PAGE2
  14. 140 XC =  INT(C/2) +X/7 -C:XC =  INT(XC *7 +.5): RETURN 
  15. 150  FOR X = 14 TO 37: GOSUB 130: HPLOT XC,6: NEXT X
  16. 160  FOR X = 38 TO 55: GOSUB 130: READ Y: READ Y1: HPLOT XC,Y TO XC,Y1: NEXT X
  17. 170  DATA  0,12,0,12,1,11,1,11,2,10,2,10,3,9,3,9,3,9,4,8,4,8,4,8,5,7,5,7,5,7,6,6,6,6,6,6
  18. 180  POKE 251,144: POKE 252,0: POKE 253,13: POKE 254,3: POKE 255,0: CALL 37850: REM  SCAN THE ARROW
  19. 190  POKE 227,10: REM  SET YINCR
  20. 200  CALL 37517: REM  EOROFF
  21. 210  FOR HR = 3 TO 39: CALL 37780: CALL 37548: NEXT HR: REM  MOVE IT RIGHT
  22. 220  CALL 37624: REM  REVERSE ARROW TO <--
  23. 230  FOR HR = 39 TO 3  STEP  -1: CALL 37780: CALL 37559: NEXT HR: REM  MOVE IT LEFT
  24. 240  CALL 37507: CALL 37780: CALL 37517: REM  EORON-ERASE-EOROFF
  25. 250  IF  PEEK(253) = 183  THEN  POKE 252,0: POKE 253,13: CALL 37624: GOTO 210: REM  START AGAIN AT TOP - REVERSE ARROW TO -->
  26. 260  CALL 37605: CALL 37624: REM  DRAW REVERSED ARROR --> YINCR LINES DOWN
  27. 270  GOTO 210: REM  DO IT AGAIN