home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib19a.dsk / APRIL.1984 / SHAPE.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  722b  |  16 lines
  1. 10  REM  **********************
  2. 11  REM  *     SHAPE.DEMO     *
  3. 12  REM  *   BY STEVEN WONG   *
  4. 13  REM  * COPYRIGHT (C) 1984 *
  5. 14  REM  * BY MICROSPARC, INC *
  6. 15  REM  * LINCOLN, MA. 01773 *
  7. 16  REM  **********************
  8. 20  HOME : PRINT  CHR$(4)"BLOAD SHAPE.APPLE,A24576"
  9. 30  HGR2 : SCALE= 1: ROT= 0: POKE 232,0: POKE 233,96: GOTO 50
  10. 40  XDRAW 1 AT X,110: XDRAW 1 AT 245 -X,110: RETURN 
  11. 50  HCOLOR= 7: FOR J = 1 TO 2: POKE 230,32 *J: CALL 62450
  12. 60  XDRAW 1 AT 51,46: XDRAW 1 AT 100,46: DRAW 1 AT 149,46
  13. 70  DRAW 1 AT 198,46:X = 2 +4 *(J = 1): GOSUB 40: NEXT 
  14. 80 X = 6: FOR I = 1 TO 30:J =   NOT J: POKE 230,64 -32 *J
  15. 90  POKE 49236 +J,0:X = X -4: GOSUB 40:X = X +8: GOSUB 40: NEXT 
  16. 100  FOR I = 1 TO 3000: NEXT : TEXT