home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib27b.dsk / DEMO3.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  45 lines
  1. 1  REM **********************
  2. 2  REM *       DEMO3        *
  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. 10  REM  DEMONSTRATION OF TURTLE BASIC
  9. 20  REM 
  10. 30  REM  INSTALL TURTLE BEFORE LOADING
  11. 40 <UNKNOWN TOKEN>
  12. 50 <UNKNOWN TOKEN> (1): Draw the big one.
  13. 60 <UNKNOWN TOKEN>1: HGR2 1
  14. 70 <UNKNOWN TOKEN>: HGR 
  15. 80 <UNKNOWN TOKEN>:<UNKNOWN TOKEN>
  16. 90 L = 180
  17. 100  FOR A = 0 TO 359
  18. 110 <UNKNOWN TOKEN>:<UNKNOWN TOKEN>A
  19. 120 <UNKNOWN TOKEN>L
  20. 130  NEXT A
  21. 140 <UNKNOWN TOKEN>
  22. 150 <UNKNOWN TOKEN>(2): Draw the little one.
  23. 160 <UNKNOWN TOKEN>
  24. 170 S = 3:L = 45
  25. 180  FOR A = 0 TO 359  STEP S
  26. 190 <UNKNOWN TOKEN>:<UNKNOWN TOKEN>A
  27. 200 <UNKNOWN TOKEN>L
  28. 210  NEXT A
  29. 220 <UNKNOWN TOKEN>
  30. 230 <UNKNOWN TOKEN>
  31. 240 <UNKNOWN TOKEN>
  32. 250 <UNKNOWN TOKEN>(3): Message & wait.
  33. 260 <UNKNOWN TOKEN>
  34. 270 <UNKNOWN TOKEN>:<UNKNOWN TOKEN>0
  35. 280 <UNKNOWN TOKEN>
  36. 290 <UNKNOWN TOKEN>(90,183);
  37. 300  FOR N = 1 TO 14
  38. 310 <UNKNOWN TOKEN> CHR$(127);
  39. 320  NEXT N
  40. 330 <UNKNOWN TOKEN>
  41. 340 <UNKNOWN TOKEN>(98,184)"Press Return"
  42. 350  PRINT  CHR$(7)
  43. 360  INPUT X$
  44. 370  TEXT 
  45. 380  END