home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib33b.dsk / SUPERGR.DEMO2.bas < prev    next >
BASIC Source File  |  2023-02-26  |  659b  |  18 lines
  1. 10  REM  **********************
  2. 20  REM  * SUPERGR.DEMO2      *
  3. 30  REM  * BY TIM MEEKINS     *
  4. 40  REM  * COPYRIGHT (C) 1988 *
  5. 50  REM  * MICROSPARC, INC    *
  6. 60  REM  * CONCORD, MA 01742  *
  7. 70  REM  **********************
  8. 80  PRINT  CHR$(4);"BRUN SUPERGR": HIMEM: 35328: &  HGR 
  9. 90  FOR Y = 0 TO 15: FOR X = 0 TO 15: & P,Y: &  DEF X,X,Y,0: &  HCOLOR= X
  10. 100 X1 = X *20:X2 = X1 +19:Y1 = 12 *Y:Y2 = Y1 +11: & V(X1,Y1),(X2,Y2): & F(X1,Y1),15
  11. 110  NEXT : NEXT 
  12. 120  &  HCOLOR= 0
  13. 130  GET Z$
  14. 140  FOR I = 0 TO 15: &  XDRAW 
  15. 150  FOR X = 0 TO 15: FOR Y = 0 TO 15: & P,Y: &  DEF X,X,Y,I: NEXT : &  HPLOT 0,12 *X: NEXT 
  16. 160  &  DRAW 
  17. 170  NEXT 
  18. 180  GET Z$: &  TEXT