home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib27b.dsk / DEMO1.bas < prev    next >
Encoding:
BASIC Source File  |  1990-01-01  |  941 b   |  34 lines
  1. 1  REM **********************
  2. 2  REM *       DEMO1        *
  3. 3  REM *    BY J.B. WARD    *
  4. 4  REM * COPYRIGHT (C) 1986 *
  5. 5  REM * BY MICROSPARC, INC *
  6. 6  REM * CONCORD, MA  01742 *
  7. 7  REM **********************
  8. 8  REM 
  9. 9  REM INSTALL TURTLE BEFORE LOADING
  10. 10 <UNKNOWN TOKEN>
  11. 20 <UNKNOWN TOKEN>DEMO1...Draw a "squiral"
  12. 30 <UNKNOWN TOKEN>
  13. 40 DA = 15
  14. 50 SQUARE = 240:<UNKNOWN TOKEN> Sub.line #
  15. 60 <UNKNOWN TOKEN>
  16. 70 <UNKNOWN TOKEN>1: HGR2 1
  17. 80  HGR :<UNKNOWN TOKEN>:<UNKNOWN TOKEN>
  18. 90 <UNKNOWN TOKEN>:<UNKNOWN TOKEN>30
  19. 100 <UNKNOWN TOKEN>(100,0)"* Squiral *"
  20. 110  FOR N = 1 TO 63
  21. 120 <UNKNOWN TOKEN>SQUARE
  22. 130 A = A +1:<UNKNOWN TOKEN>DA
  23. 140  NEXT N
  24. 150  PRINT  CHR$(7)
  25. 160 <UNKNOWN TOKEN>(90,180)"Press return"
  26. 170  GET X$
  27. 180  TEXT 
  28. 190  END 
  29. 200 <UNKNOWN TOKEN>......................
  30. 210 <UNKNOWN TOKEN>
  31. 220 <UNKNOWN TOKEN> Subroutine "SQUARE"
  32. 230 <UNKNOWN TOKEN>
  33. 240  FOR J = 1 TO 4:<UNKNOWN TOKEN>10 +A:<UNKNOWN TOKEN>90: NEXT J
  34. 250  RETURN