home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib27b.dsk / DEMO2.bas < prev    next >
BASIC Source File  |  2023-02-26  |  3KB  |  91 lines
  1. 1  REM **********************
  2. 2  REM *       DEMO2        *
  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. 100 TRIANGL = 150
  11. 110  GOTO 650
  12. 120 <UNKNOWN TOKEN>
  13. 130 <UNKNOWN TOKEN> SUBROUTINE:TRIANGL
  14. 140 <UNKNOWN TOKEN>
  15. 150 <UNKNOWN TOKEN>:<UNKNOWN TOKEN>L2:<UNKNOWN TOKEN>
  16. 160 <UNKNOWN TOKEN>A1
  17. 170 <UNKNOWN TOKEN>L1:<UNKNOWN TOKEN>A2
  18. 180 <UNKNOWN TOKEN>L1:<UNKNOWN TOKEN>A2
  19. 190 <UNKNOWN TOKEN>L1
  20. 200  RETURN 
  21. 210 <UNKNOWN TOKEN>
  22. 220 <UNKNOWN TOKEN> SUB. TO DRAW FACE, ETC.
  23. 230 <UNKNOWN TOKEN>
  24. 240 <UNKNOWN TOKEN>(120,80)"O  O"
  25. 250 <UNKNOWN TOKEN>(120,89)"/  "; CHR$(92)
  26. 260 <UNKNOWN TOKEN>
  27. 270 <UNKNOWN TOKEN>123,94
  28. 280 <UNKNOWN TOKEN>45:<UNKNOWN TOKEN>3
  29. 290 <UNKNOWN TOKEN>20:<UNKNOWN TOKEN>3:<UNKNOWN TOKEN>20:<UNKNOWN TOKEN>3
  30. 300 <UNKNOWN TOKEN>5:<UNKNOWN TOKEN>6
  31. 310 <UNKNOWN TOKEN>25:<UNKNOWN TOKEN>3
  32. 320 <UNKNOWN TOKEN>20:<UNKNOWN TOKEN>2
  33. 330 <UNKNOWN TOKEN> FACE DONE; DO REST.
  34. 340 <UNKNOWN TOKEN>0,150
  35. 350 <UNKNOWN TOKEN>0:<UNKNOWN TOKEN>270
  36. 360 <UNKNOWN TOKEN>40,160:<UNKNOWN TOKEN> -110
  37. 370 <UNKNOWN TOKEN>30:<UNKNOWN TOKEN>:<UNKNOWN TOKEN>25:<UNKNOWN TOKEN>:<UNKNOWN TOKEN>5
  38. 380 <UNKNOWN TOKEN>5,135:<UNKNOWN TOKEN> -90
  39. 390  FOR I = 1 TO 12
  40. 400 <UNKNOWN TOKEN>6:<UNKNOWN TOKEN>12.5
  41. 410  NEXT I
  42. 420 <UNKNOWN TOKEN>5,135
  43. 430  FOR I = 1 TO 3
  44. 440 <UNKNOWN TOKEN> -80
  45. 450  FOR J = 1 TO 4
  46. 460 <UNKNOWN TOKEN>6:<UNKNOWN TOKEN>40
  47. 470  NEXT J: NEXT I
  48. 480 <UNKNOWN TOKEN>
  49. 490 <UNKNOWN TOKEN>(100,125)"SUMMERTIME!"
  50. 500 <UNKNOWN TOKEN>(188,1)"PRESS <SPACE>"
  51. 510 <UNKNOWN TOKEN>(205,9)"TO STOP."
  52. 520  RETURN 
  53. 530 <UNKNOWN TOKEN>
  54. 540 <UNKNOWN TOKEN> SUBROUTINE TO STOP ON
  55. 550 <UNKNOWN TOKEN> ANY KEYSTROKE.
  56. 560 <UNKNOWN TOKEN>
  57. 570 K2 =  PEEK(49152)
  58. 580  IF K1 = K2  THEN  RETURN 
  59. 590  HGR2 1:<UNKNOWN TOKEN>1
  60. 600  HOME : TEXT 
  61. 610  END 
  62. 620 <UNKNOWN TOKEN>
  63. 630 <UNKNOWN TOKEN> MAIN PROGRAM
  64. 640 <UNKNOWN TOKEN>
  65. 650 L1 = 28.8
  66. 660 L2 = 100
  67. 670 A1 = 150
  68. 680 A2 = 120
  69. 690 <UNKNOWN TOKEN>:<UNKNOWN TOKEN>
  70. 700  HGR2 0: HGR : HGR2 1: HGR 
  71. 710 <UNKNOWN TOKEN>
  72. 720 P = 0:V = 1
  73. 730 S = 5
  74. 740 <UNKNOWN TOKEN>
  75. 750  FOR A = 0 TO 360  STEP S
  76. 760 <UNKNOWN TOKEN>:<UNKNOWN TOKEN>A
  77. 770 P =   NOT P:V =   NOT V
  78. 780  HGR2 P:<UNKNOWN TOKEN>V
  79. 790 <UNKNOWN TOKEN>TRIANGL
  80. 800  NEXT A
  81. 810 <UNKNOWN TOKEN>
  82. 820  GOSUB 240
  83. 830  HGR2 V
  84. 840  GOSUB 240
  85. 850 <UNKNOWN TOKEN>
  86. 860 D = 50
  87. 870 K1 =  PEEK(49152)
  88. 880  GOSUB 570
  89. 890  FOR I = 1 TO D: NEXT I
  90. 900 V =   NOT V:<UNKNOWN TOKEN>V
  91. 910  GOTO 880