home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib22b.dsk / SHIFT.TEST2.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  24 lines
  1. 10  REM  ************************
  2. 20  REM  *     SHIFT.TEST2      *
  3. 30  REM  *   BY ROBERT DEVINE   *
  4. 40  REM  *  COPYRIGHT (C) 1984  *
  5. 50  REM  *  BY MICROSPARC, INC  *
  6. 60  REM  *  CONCORD, MA. 01742  *
  7. 70  REM  ************************
  8. 80  PRINT  CHR$(4)"BLOAD DHR.DRIVER $91FE": CALL 37999: HIMEM: 37374
  9. 90  PRINT  CHR$(4)"BLOAD SHAPES 137-144"
  10. 100  CALL 37953: REM  INIT
  11. 110  HGR : CALL 37928: REM  CLEAR DHR SCREEN
  12. 120  POKE 49153,0: POKE 49234,0: REM  80STORE/FULL SCREEN
  13. 130  CALL 37517: REM  TURN OFF EOR FUNCTION
  14. 140  POKE 252,101: POKE 253,112: POKE 254,4: POKE 255,0: REM  STARTING SHAPE LOCATION
  15. 150  FOR HL = 0 TO 35  STEP 2
  16. 160  FOR SHNUM = 138 TO 144: POKE 251,SHNUM: CALL 37780: NEXT SHNUM: REM  DRAW 7 SHAPE SEQUENCE
  17. 170  CALL 37548: CALL 37548: REM  DOUBLE INCREMENT HR/HL
  18. 180  NEXT HL
  19. 190  CALL 37559
  20. 200  FOR HL = 35 TO 0  STEP  -2
  21. 210  FOR SHNUM = 143 TO 137  STEP  -1: POKE 251,SHNUM: CALL 37780: NEXT SHNUM: REM  DRAW 7 SHAPE SEQUENCE
  22. 220  CALL 37559: CALL 37559: REM  DOUBLE DECREMENT HR/HL
  23. 230  NEXT HL
  24. 240  GOTO 150