home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib22b.dsk / CREATE.PRE-SHIFTS.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  23 lines

  1. 10  REM  ************************
  2. 20  REM  *   CREATE.PRE-SHIFTS  *
  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 SHAPE#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  POKE 251,144: POKE 252,0: POKE 253,13: POKE 254,2: POKE 255,0: CALL 37780: REM  DRAW SHAPE ON THE SCREEN
  14. 140  GOTO 170
  15. 150  POKE 49236,0:C =  INT(X/7): IF C/2 =  INT(C/2)  THEN  POKE 49237,0
  16. 160 XC =  INT(C/2) +X/7 -C:XC =  INT(XC *7 +.5): RETURN 
  17. 170  HCOLOR= 0: FOR X = 0 TO 40  STEP 4: GOSUB 150: HPLOT XC,0 TO XC,13: NEXT 
  18. 180  POKE 252,1: POKE 253,12: POKE 254,4: REM  REMOVE LINES ABOVE/BELOW - ADD 2 SHIFTING ADDRESSES
  19. 190  FOR X = 137 TO 144: POKE 251,X: REM  SET UP SHAPE #S
  20. 200  CALL 37850: REM  SCAN THE SHAPE
  21. 210  FOR SHFT = 1 TO 4: CALL 37444: NEXT SHFT: REM  MOVE IT OVER 4 DOTS
  22. 220  NEXT X: CALL 37966
  23. 230  PRINT  CHR$(4)"BSAVE SHAPES 137-144,A$8900,L$800"