home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib39b.dsk / MOVE.SHAPE.bas < prev    next >
BASIC Source File  |  2023-02-26  |  572b  |  19 lines

  1. 10  REM   ******************************
  2. 20  REM   * MOVE.SHAPE                 *
  3. 30  REM   * BY DAVID HARRIS            *
  4. 40  REM   * COPYRIGHT(C) 1990          *
  5. 50  REM   * MINDCRAFT PUBL. CORP.      *
  6. 60  REM   * CONCORD, MA 01742          *
  7. 70  REM   ******************************
  8. 80  HGR : HCOLOR= 3
  9. 90  FOR L = 0 TO 10
  10. 100  READ A: POKE 768 +L,A
  11. 110  NEXT L
  12. 120  DATA  1,0,4,0,14,101,214,191,77,4,0
  13. 130  POKE 232,0: POKE 233,3
  14. 140  SCALE= 1: ROT= 0
  15. 150  FOR X = 5 TO 250  STEP 5
  16. 160  XDRAW 1 AT X,100
  17. 170  FOR D = 1 TO 100: NEXT D
  18. 180  XDRAW 1 AT X,100
  19. 190  NEXT X