home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib21b.dsk / SHAPE.MAKER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  26 lines
  1. 10  REM  ***********************
  2. 20  REM  *     SHAPE.MAKER     *
  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 = 0 TO 19: READ Y: READ Y1: GOSUB 130: HPLOT XC,Y TO XC,Y1: NEXT : RESTORE 
  16. 160  FOR X = 39 TO 20  STEP  -1: READ Y: READ Y1: GOSUB 130: HPLOT XC,Y TO XC,Y1: NEXT 
  17. 170  FOR M = 6 TO 30  STEP 8: FOR X = M TO M +3: READ Y: GOSUB 130: HPLOT XC,Y TO XC,5: NEXT X,M
  18. 180  DATA  5,6,5,6,5,7,5,7,4,8,4,8,7,9,7,9,7,10,7,10,3,10,3,10,2,11,2,11,7,11,7,11,7,11,7,11,1,12,1,12
  19. 190  DATA  4,4,3,3,2,2,1,1,1,1,2,2,3,3,4,4
  20. 200  POKE 251,144: POKE 252,0: POKE 253,13: POKE 254,2: POKE 255,0: CALL 37850: REM  SCAN THE SHIP
  21. 210  PRINT  CHR$(4)"BSAVE SHAPE-U #144,A$9000,L84": REM  SAVE 'DRAW' SHAPE
  22. 220  POKE 254,12: POKE 255,10: CALL 37780: REM  DRAW IT
  23. 230  POKE 254,22: POKE 255,20: CALL 37708: REM  DRAWDN IN
  24. 240  POKE 251,143: CALL 37850: REM  SCAN DRAWDN SHAPE
  25. 250  PRINT  CHR$(4)"BSAVE SHAPE-D #143,A$8F00,L84": REM  SAVE 'DRAWDN' SHAPE
  26. 260  POKE 251,144: POKE 254,32: POKE 255,30: CALL 37624: REM  REVDIR IT