home *** CD-ROM | disk | FTP | other *** search
/ Softdisk G-S 88 / SGDS 88.2mg / SDGS.88 / SDA88 / A / N.SONGS (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1988-12-25  |  7.5 KB  |  377 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 100  REM SHDWBXROOT.  PGM SITS FROM $E00 TO $4000
  2. 110  PRINT "<CTRL-0x15>": IF  PEEK(176) >64  THEN :::: STOP 
  3. 120  HGR2 : CALL 2304: POKE 48688, PEEK(0): POKE 48689, PEEK(1):::::::
  4. 130 Q8 =  PEEK(184):Q9 =  PEEK(185): CALL Q8 +(Q9 -(Q8 >244)) *256 +39: REM ->8 <CTRL-0x1f><UNKNOWN TOKEN> GOSUB <CTRL-0x02> HGR2 <CTRL-0x01>` IF ^ TAB(  IF ) TAB( <CTRL-0x09>  PLOT ) TAB( `<-
  5. 140  POKE 104,14: GOTO 0<CTRL-0x0a>  THEN 2010
  6. 2000 Q8 =  PEEK(184):Q9 =  PEEK(185): CALL Q8 +(Q9 -(Q8 >244) IF 0 GET  PLOT  ^<CTRL-0x09> IF 1 GET  PLOT   AND <CTRL-0x09> SPEED= 3 DEL 
  7. 389  SPEED= 
  8. 20653  TAB(  IF R TAB(  IF W TAB(  ONERR  ASC -@ = <CTRL-0x04> IF U TAB( ` IF T TAB(  SPEED=   DEL  ASC`) PLOT  HGR2 <CTRL-0x09> J<UNKNOWN TOKEN> ONERR 
  9. 18433  ONERR  STR$) END  DEL <UNKNOWN TOKEN> IF  HGR2 <CTRL-0x09> -  HGR2 r ONERR %<CTRL-0x0a> LET  CLEAR  ><CTRL-0x09> DEL 
  10. 2511 <CTRL-0x05> ASC DEL <CTRL-0x01><CTRL-0x18> ONERR  e$e
  11. 169  PLOT  HGR <CTRL-0x09><CTRL-0x0e> HGR2 <CTRL-0x09>. HGR <CTRL-0x09><CTRL-0x0e> HGR2 <CTRL-0x09>. HGR <CTRL-0x09><CTRL-0x0e> HGR2 <CTRL-0x09>. HGR <CTRL-0x09> ONERR <UNKNOWN TOKEN>)<CTRL-0x0f>i<CTRL-0x09>m HGR <CTRL-0x09> PLOT  HGR <CTRL-0x09> VTAB 
  12. 3517 <CTRL-0x0b>H ONERR 2 -? = <CTRL-0x04>hIHh PLOT   OR <CTRL-0x09> LOMEM: <UNKNOWN TOKEN> TAB( <CTRL-0x03> HGR2 <CTRL-0x07> COLOR= 
  13. 52813 <CTRL-0x09> COLOR= 
  14. 145 <CTRL-0x18> SPEED= <CTRL-0x04>e<CTRL-0x01> DEL <CTRL-0x01> LEFT$ TAN<CTRL-0x08> =  >h DEL <CTRL-0x01>h DEL 
  15. 2559  END L<UNKNOWN TOKEN><UNKNOWN TOKEN>
  16. 0 <CTRL-0x01> END <CTRL-0x01>
  17. 2 <CTRL-0x03> END <CTRL-0x03>(
  18. 296  STORE <CTRL-0x01>(<CTRL-0x02> STORE <CTRL-0x02>(<CTRL-0x03> STORE <CTRL-0x03>P
  19. 336  = <CTRL-0x01>P<CTRL-0x02> = <CTRL-0x02>P<CTRL-0x03> = <CTRL-0x03><CTRL-0x0c><CTRL-0x0c><CTRL-0x0c><CTRL-0x0c><CTRL-0x0c>
  20. 13878 6
  21. 16191 <CTRL-0x12>??<CTRL-0x12>
  22. 7695 <<CTRL-0x1f><CTRL-0x0c>
  23. 3096 <CTRL-0x06>33
  24. 7683 <CTRL-0x03>><CTRL-0x0c>
  25. 12 
  26. 1542 <CTRL-0x06><CTRL-0x0c><CTRL-0x18>
  27. 6168 <CTRL-0x18><CTRL-0x0c><CTRL-0x06>
  28. 16140 <CTRL-0x0c><CTRL-0x1e>
  29. 16140 ?<CTRL-0x0c><CTRL-0x0c>
  30. 12 
  31. 62 <CTRL-0x1c><CTRL-0x1c><CTRL-0x1c>
  32. 3096 <CTRL-0x06><CTRL-0x03><CTRL-0x01>
  33. 13115 73<CTRL-0x1e>
  34. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x1e>
  35. 7216 <CTRL-0x06><CTRL-0x03>?
  36. 7216 03<CTRL-0x1e>
  37. 6942 ?<CTRL-0x18><CTRL-0x18>
  38. 12319 03<CTRL-0x1e>
  39. 7939 33<CTRL-0x1e>
  40. 3096 <CTRL-0x0c><CTRL-0x0c><CTRL-0x0c>
  41. 7731 33<CTRL-0x1e>
  42. 15923 03<CTRL-0x1e><CTRL-0x0c><CTRL-0x0c>
  43. 0 
  44. 7168 <CTRL-0x18><CTRL-0x0c><CTRL-0x18><CTRL-0x0c><CTRL-0x06><CTRL-0x03><CTRL-0x06><CTRL-0x0c><CTRL-0x18>
  45. 30 <CTRL-0x1e><CTRL-0x1e>
  46. 6156 0<CTRL-0x18><CTRL-0x0c><CTRL-0x06>
  47. 7216 <CTRL-0x0c>
  48. 13086 ;;<CTRL-0x03>3<CTRL-0x1e>
  49. 16179 333
  50. 7987 33<CTRL-0x1f>
  51. 771 <CTRL-0x03>3<CTRL-0x1e>
  52. 13107 33<CTRL-0x1f>
  53. 3843 <CTRL-0x03><CTRL-0x03>?
  54. 3843 <CTRL-0x03><CTRL-0x03><CTRL-0x03>
  55. 15107 33<CTRL-0x1e>
  56. 16179 333
  57. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x1e>
  58. 12336 03<CTRL-0x1e>
  59. 7987 333
  60. 771 <CTRL-0x03><CTRL-0x03>?
  61. 13119 333
  62. 13107 333
  63. 13107 33<CTRL-0x1e>
  64. 7987 <CTRL-0x03><CTRL-0x03><CTRL-0x03>
  65. 13107 ;<CTRL-0x1b>.
  66. 7987 333
  67. 7683 00<CTRL-0x1f>
  68. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x0c>
  69. 13107 33<CTRL-0x1e>
  70. 13107 3<CTRL-0x1e><CTRL-0x0c>
  71. 13107 ?3!
  72. 3102 <CTRL-0x1e>33
  73. 7731 <CTRL-0x0c><CTRL-0x0c><CTRL-0x0c>
  74. 7704 <CTRL-0x06><CTRL-0x03>?
  75. 1542 <CTRL-0x06><CTRL-0x06><CTRL-0x1e>
  76. 15934 >>>><CTRL-0x1e><CTRL-0x18><CTRL-0x18><CTRL-0x18><CTRL-0x18><CTRL-0x18><CTRL-0x1e>
  77. 0 
  78. 0 
  79. 32639 <CTRL-0x1e>0>3>
  80. 13087 33<CTRL-0x1f><CTRL-0x1e>3<CTRL-0x03>3<CTRL-0x1e>
  81. 13118 33><CTRL-0x1e>3?<CTRL-0x03>>
  82. 7942 <CTRL-0x06><CTRL-0x06><CTRL-0x06>>33>0<CTRL-0x1e><CTRL-0x03><CTRL-0x03><CTRL-0x1f>3333
  83. 3086 <CTRL-0x0c><CTRL-0x0c><CTRL-0x1e>
  84. 6172 <CTRL-0x18><CTRL-0x18><CTRL-0x18><CTRL-0x0e><CTRL-0x03><CTRL-0x03>33<CTRL-0x1f>33
  85. 3084 <CTRL-0x0c><CTRL-0x0c><CTRL-0x1e>!3?33<CTRL-0x1f>3333<CTRL-0x1e>333<CTRL-0x1e><CTRL-0x1f>33<CTRL-0x1f><CTRL-0x03><CTRL-0x03>
  86. 13107 >00
  87. 819 <CTRL-0x03><CTRL-0x03>><CTRL-0x03><CTRL-0x1e>0<CTRL-0x1f>
  88. 1567 <CTRL-0x06><CTRL-0x06><3333>333<CTRL-0x1e><CTRL-0x0c>33?3!3<CTRL-0x1e><CTRL-0x0c><CTRL-0x1e>3333>0<CTRL-0x1e>
  89. 3096 <CTRL-0x06>?
  90. 1542 <CTRL-0x06><CTRL-0x06><CTRL-0x06><CTRL-0x06><CTRL-0x06><CTRL-0x06><CTRL-0x06><CTRL-0x06><CTRL-0x06><CTRL-0x06><CTRL-0x06><CTRL-0x06>
  91. 15878 >>><CTRL-0x06><CTRL-0x06><CTRL-0x06>~```
  92. 16190 ???
  93. 8414 g EXP R CHR$ ONERR P DEL 
  94. 8414 g EXP R CHR$ ONERR P DEL <CTRL-0x01>  GET  COS g EXP R CHR$ ONERR P DEL <CTRL-0x02>  GET  COS g EXP R CHR$ ONERR P DEL <CTRL-0x03>  NOT <CTRL-0x01>  NOT 
  95. 8325  DEL " SPEED= ( DEL ! SPEED= <CTRL-0x18> DEL # SPEED= ? DEL 2 ONERR <CTRL-0x01> [<UNKNOWN TOKEN> ONERR 
  96. 64425  <UNKNOWN TOKEN><UNKNOWN TOKEN> RESUME <CTRL-0x02> * * SPEED=  COS <UNKNOWN TOKEN><UNKNOWN TOKEN> * = <UNKNOWN TOKEN> SPEED= <UNKNOWN TOKEN> <UNKNOWN TOKEN><UNKNOWN TOKEN> SPEED= <CTRL-0x01> DEL <CTRL-0x04> RESUME 
  97. 42264 <CTRL-0x04>e<CTRL-0x01> [<UNKNOWN TOKEN> SPEED= <UNKNOWN TOKEN> <UNKNOWN TOKEN><UNKNOWN TOKEN> RESUME <CTRL-0x02> * * J<UNKNOWN TOKEN> SPEED=  LOG <UNKNOWN TOKEN><UNKNOWN TOKEN> ASC<CTRL-0x04> RESUME <CTRL-0x03> * STR$<CTRL-0x04> =  SQR ONERR 
  98. 422  * PR# <CTRL-0x18>e<CTRL-0x03> [<UNKNOWN TOKEN> SPEED= <UNKNOWN TOKEN> <UNKNOWN TOKEN><UNKNOWN TOKEN> RESUME <CTRL-0x02> * * SPEED=  TAN <UNKNOWN TOKEN><UNKNOWN TOKEN> * = <UNKNOWN TOKEN> SPEED= <UNKNOWN TOKEN> <UNKNOWN TOKEN><UNKNOWN TOKEN> RESUME <CTRL-0x01> LEFT$ PR#  [<UNKNOWN TOKEN> RESUME 
  99. 34340   ONERR <CTRL-0x02> DEL !  NOT !  NOT ! RESUME <CTRL-0x01> LEFT$ DIM " PR# <CTRL-0x18>e<CTRL-0x03> RIGHT$<CTRL-0x01> DEL #` STORE  SPC(  SPEED=  COLOR=  RETURN  POKE  DEF  SAVE  RUN  COLOR=  * ATN<UNKNOWN TOKEN> VAL<UNKNOWN TOKEN> COLOR=  SCRN(  VAL RIGHT$<UNKNOWN TOKEN> VAL<UNKNOWN TOKEN> RUN  COLOR=  INT<UNKNOWN TOKEN> ASC<UNKNOWN TOKEN> STR$ RIGHT$<UNKNOWN TOKEN><UNKNOWN TOKEN>????
  100. 14 
  101. 3610 <CTRL-0x01>
  102. 22095 ELTY SONGS
  103. 2  REM 
  104. 3  REM BY GARY HAYMAN
  105. 7  REM 
  106. 8  PRINT  CHR$(4)"BLOAD NOV.SLOWFAST": CALL 818
  107. 10  LOMEM: 30975: REM  ABOVE END OF LONGEST MUSIC  
  108. 20 D$ =  CHR$(4):E$ =  CHR$(27): SCALE= 1: HCOLOR= 0
  109. 30 UNPACK = 24576:LOCPIC = 24837:MUSIC = 29965
  110. 40 PLAYER = 768:STROBE = 49168:BOX = 3328
  111. 50 A$ = "MAIRZY DOATS"
  112. 60 A1$ = "Drake, Hoffman & Livingston"
  113. 70 A2$ = "MAIRZY.DOATS"
  114. 80 B$ = "CHICKERY CHICK"
  115. 90 B1$ = "Silvia Dee & Sidney Lippman"
  116. 100 B2$ = "CHICK.CHICK"
  117. 110 C$ = "THE HUT-SUT SONG"
  118. 120 C1$ = "Killion, McMichael & Owens"
  119. 130 C2$ = "HUT.SUT"
  120. 140  PRINT D$;"BLOAD PLAYER,A";PLAYER
  121. 150  PRINT D$;"BLOAD PACK.UNPACK,A";UNPACK
  122. 160  PRINT D$;"BLOAD PI.NOV.SONG.PAC,A";LOCPIC
  123. 170  GOSUB 1000: REM REM UNPACK PICTURE
  124. 175  FOR PAUSE = 1 TO 2000: NEXT 
  125. 180  GOSUB 2000: REM INTRO SCREENS
  126. 185  GOSUB 1000
  127. 186  FOR PAUSE = 1 TO 1000: NEXT 
  128. 190  GOSUB 5000: REM WANT SONG PRINTOUT?
  129. 195  GOSUB 1000
  130. 196  FOR PAUSE = 1 TO 1000: NEXT 
  131. 200  GOSUB 6000: REM CHOICE SCREEN
  132. 205  GOSUB 1000
  133. 206  FOR PAUSE = 1 TO 1000: NEXT 
  134. 210  GOSUB 7000: REM PLAYING SONG SCREEN
  135. 220  POKE 30,13: POKE 31,117: REM TELL PLAYER OF MUSIC LOCATION 
  136. 230  CALL PLAYER
  137. 240  GOTO 200
  138. 899  REM <CTRL-0x0a><CTRL-0x0a>RESET AND EXIT<CTRL-0x0a><CTRL-0x0a>
  139. 900  PRINT  CHR$(4)"BLOAD NOV.SLOWFAST": CALL 821
  140. 905  POKE 104,8: POKE 103,1: REM  RESET     
  141. 910  POKE 48688,240: POKE 48689,253: REM RESET
  142. 920  TEXT : PRINT  CHR$(4)"bye"
  143. 1000  REM <CTRL-0x0a>UNPACK PICTURE<CTRL-0x0a>
  144. 1010  POKE 0,5: POKE 1,97: POKE 230,64: REM TELL UNPACK OF LOCATION AND PAGE
  145. 1020  CALL UNPACK: RETURN 
  146. 2000  REM <CTRL-0x0a>INTRO SCREENS<CTRL-0x0a>
  147. 2010  CALL BOX,3,8,36,16: HOME 
  148. 2020 OUT$ = "  It was the early 40's. World War II was in full swing. Although our military forces were advancing on both fronts, there were some anxious moments.": GOSUB 3000
  149. 2030  PRINT 
  150. 2040 OUT$ = "  Our young people had gone to war. The nation's spirit was high. It was a time of patriotic songs, love songs, and novelty songs.": GOSUB 3000
  151. 2050  VTAB 24: HTAB 20: PRINT " PRESS A KEY ";
  152. 2060  GOSUB 4000
  153. 2070  CALL BOX,3,8,36,16: HOME 
  154. 2080 OUT$ = "  Songwriters, in their attempt to lighten the gravity of the war, composed a multitude of crazy, nonsense songs, usually with very strange words.": GOSUB 3000
  155. 2090  PRINT :OUT$ = "  These songs caught the attention and imagination of the American public. Immediately the tunes became popular and everyone was singing songs such as ...": GOSUB 3000
  156. 2100  GOSUB 4000
  157. 2110  CALL BOX,3,8,36,16: HOME 
  158. 2120 X = 18
  159. 2130  HTAB (18 - LEN(A$)/2): PRINT A$
  160. 2140  HTAB (18 - LEN(B$)/2): PRINT B$
  161. 2150  HTAB (18 - LEN(C$)/2): PRINT C$
  162. 2160  PRINT :OUT$ = "  Listen to the above three fine examples of the novelty songs of the era. Perhaps you would like to sing along? You can print the words to your printer if you desire.": GOSUB 3000
  163. 2161  PRINT : PRINT : PRINT "        ...Gary Hayman"
  164. 2170  GOSUB 4000
  165. 2180  RETURN 
  166. 3000  REM <CTRL-0x0a>PRINT OUT$ ROUTINE<CTRL-0x0a>
  167. 3010 WI =  PEEK(33)
  168. 3020 P = WI
  169. 3030 P = P -1
  170. 3040  IF  MID$ (OUT$,P,1) < >" "  THEN 3030
  171. 3050  PRINT  LEFT$(OUT$,P):OUT$ =  MID$ (OUT$,P +1)
  172. 3060  IF  LEN(OUT$) > = WI  THEN 3020
  173. 3070  PRINT OUT$
  174. 3080  RETURN 
  175. 4000  REM <CTRL-0x0a>PRESS A KEY<CTRL-0x0a>
  176. 4010 KY =  PEEK(49152): IF KY <128  THEN 4010
  177. 4020  POKE STROBE,0: RETURN 
  178. 5000  REM <CTRL-0x0a>PRINT SONGS?<CTRL-0x0a>
  179. 5010  GOSUB 1000
  180. 5020  CALL BOX,3,12,36,4: HOME 
  181. 5030 OUT$ = "Do you want a song print out on your printer at this time Y/N?": GOSUB 3000
  182. 5040 KY =  PEEK(49152): IF KY <128  THEN 5040
  183. 5050  POKE STROBE,0
  184. 5055 KY = KY -128
  185. 5060  IF KY = 89  OR KY = 121  THEN  POKE 104,8: POKE 103,1: POKE 48688,240: POKE 48689,253: PRINT D$"RUN PRINT.SONGS": END 
  186. 5070  RETURN 
  187. 6000  REM <CTRL-0x0a>CHOICE SCREEN<CTRL-0x0a>
  188. 6010  GOSUB 1000
  189. 6020  CALL BOX,4,12,34,7: HOME 
  190. 6030 AA$ = " 1. " +A$
  191. 6040 BB$ = " 2. " +B$
  192. 6050 CC$ = " 3. " +C$
  193. 6060  VTAB 13: PRINT AA$: PRINT : PRINT BB$: PRINT : PRINT CC$
  194. 6065  CALL BOX,7,22,28,3: HOME 
  195. 6070  PRINT "CHOOSE 1-3      ESC:QUITS"
  196. 6075  POKE  -16368,0
  197. 6080  GET K$
  198. 6100  POKE STROBE,0
  199. 6110 KY =  ASC(K$)
  200. 6115  IF KY < >27  AND KY < >49  AND KY < >50  AND KY < >51  THEN KY =  PEEK( -16336) - PEEK( -16336) + PEEK( -16336) - PEEK( -16336): GOTO 6070
  201. 6120  IF KY = 27  THEN  POP : GOTO 900
  202. 6130 KY = KY -48
  203. 6140  ON KY GOTO 6510,6520,6530
  204. 6510  PRINT D$"BLOAD";A2$;",A";MUSIC: RETURN 
  205. 6520  PRINT D$"BLOAD";B2$;",A";MUSIC: RETURN 
  206. 6530  PRINT D$"BLOAD";C2$;",A";MUSIC: RETURN 
  207. 7000  REM <CTRL-0x0a>PLAYING SCREEN<CTRL-0x0a>
  208. 7010  GOSUB 1000
  209. 7020  CALL BOX,3,8,36,16
  210. 7030 WI =  PEEK(33)
  211. 7040 S1$ = " NOW PLAYING"
  212. 7050 S2$ = "BY"
  213. 7060 S3$ = "[Any key gets menu]"
  214. 7070  HTAB (WI/2 - LEN(S1$)/2): PRINT S1$
  215. 7080  VTAB 16: HTAB (WI/2 -1): PRINT S2$
  216. 7090  VTAB 22: HTAB 8: PRINT S3$
  217. 7100  CALL BOX,4,10,34,5
  218. 7110  CALL BOX,4,17,34,5
  219. 7115  POKE 33,40: POKE 32,0
  220. 7120  IF KY = 1  THEN  VTAB 12: HTAB (21 - LEN(A$)/2): PRINT A$: VTAB 19: HTAB (21 - LEN(A1$)/2): PRINT A1$: RETURN 
  221. 7130  IF KY = 2  THEN  VTAB 12: HTAB (21 - LEN(B$)/2): PRINT B$: VTAB 19: HTAB (21 - LEN(B1$)/2): PRINT B1$: RETURN 
  222. 7140  IF KY = 3  THEN  VTAB 12: HTAB (21 - LEN(C$)/2): PRINT C$: VTAB 19: HTAB (21 - LEN(C1$)/2): PRINT C1$: RETURN G
  223. 20545 
  224. 20545 .TB
  225. 34271  DEL  INPUT  DIM  ONERR  FOR H ONERR  NEXT H  GET  COS  LEN SINhE NEXT 0<CTRL-0x1f>hE FOR 0<CTRL-0x1a> COLOR= <CTRL-0x02>$ FOR 0<CTRL-0x10>$ NEXT 0<CTRL-0x02> COLOR= <CTRL-0x04> RETURN  DEL H RETURN  DATA  HGR  DEL h HGR  DATA  GR <CTRL-0x10><UNKNOWN TOKEN>`Lv EXP3
  226. 20053 D
  227. 20053 D EFFECTS.TB
  228. 34535 Q LOMEM: P ROT=  LET  * = <UNKNOWN TOKEN>,0 TAB( EQ LET  * = <UNKNOWN TOKEN>,0 TAB(  GR  = <UNKNOWN TOKEN>`<CTRL-0x0a><CTRL-0x01>GET
  229. 11860 TB
  230. 63878  DIM <UNKNOWN TOKEN> -" = <CTRL-0x0b>  FOR  COS SPEED= ;  TAB(  COS = RND  LEN SIN l EXP DEL <UNKNOWN TOKEN> INPUT <UNKNOWN TOKEN>  SAVE 
  231. 15305 <UNKNOWN TOKEN>b SPEED=  IF   TAB(  COS { EXP COLOR= <CTRL-0x02> RETURN  COLOR=  SCALE= <UNKNOWN TOKEN>
  232. 42488  COLOR=  LOMEM:  POP  5 ASC  SAVE 
  233. 15305 <UNKNOWN TOKEN>@ L CHR$ TAN<CTRL-0x04> HGR2 <CTRL-0x03>L SCALE=  ATN PR#  COLOR= <CTRL-0x06><CTRL-0x0a> GR  = <UNKNOWN TOKEN><CTRL-0x05><UNKNOWN TOKEN> DEL <UNKNOWN TOKEN>$<UNKNOWN TOKEN><CTRL-0x10>' ONERR <UNKNOWN TOKEN> = <CTRL-0x03>L LIST  ATN COLOR= 
  234. 8137  HGR2 <CTRL-0x18> -@ GOSUB <CTRL-0x02><CTRL-0x09>@ <UNKNOWN TOKEN><UNKNOWN TOKEN> ONERR $ = <CTRL-0x06>  NOT % SPEED= ( DEL $  NOT $ "<UNKNOWN TOKEN>  SAVE 
  235. 15273   TAB(  COS ASC<UNKNOWN TOKEN>,<CTRL-0x10> TAB(  <CTRL-0x0c><UNKNOWN TOKEN><CTRL-0x0a>J LET  ONERR <UNKNOWN TOKEN><UNKNOWN TOKEN>+ TAN<CTRL-0x0d> = <CTRL-0x0c>$<UNKNOWN TOKEN><CTRL-0x10><CTRL-0x08> COLOR= 
  236. 14506  GOSUB <CTRL-0x1b> ONERR <UNKNOWN TOKEN> STORE  PR#  GR  <<UNKNOWN TOKEN><UNKNOWN TOKEN><CTRL-0x12> GR <CTRL-0x10><UNKNOWN TOKEN> COLOR= d IF 0 TAB(  SPEED= <CTRL-0x09>  STORE <UNKNOWN TOKEN> GR  = <UNKNOWN TOKEN><UNKNOWN TOKEN>/ ONERR o = <CTRL-0x02>  NOT p  NOT o COLOR= 
  237. 43375 <CTRL-0x01> HGR <UNKNOWN TOKEN> + ONERR o HGR <UNKNOWN TOKEN> + ONERR p HGR <UNKNOWN TOKEN>$<UNKNOWN TOKEN>P<CTRL-0x0a> TAN<CTRL-0x1f> HGR2 <CTRL-0x06> PR# <CTRL-0x09> END  <UNKNOWN TOKEN><UNKNOWN TOKEN>F<UNKNOWN TOKEN> GOSUB <CTRL-0x03> <UNKNOWN TOKEN> SQR`Y
  238. 17742 
  239. 17742 .TB
  240. 46880 
  241. 15305  = <CTRL-0x05> VTAB 6  RETURN 
  242. 34534 < VTAB <CTRL-0x0a>  SAVE 
  243. 15305 <UNKNOWN TOKEN><CTRL-0x03> L CHR$ DIM = PR# <UNKNOWN TOKEN><CTRL-0x1c> SPEED= <CTRL-0x0f> = <CTRL-0x12>,0 TAB(  GR  = <CTRL-0x09>J = <CTRL-0x06>  NOT =<UNKNOWN TOKEN><CTRL-0x0b> SPEED= <CTRL-0x0f> * = <UNKNOWN TOKEN> RESUME < =  MID$ <UNKNOWN TOKEN><UNKNOWN TOKEN>  SAVE 
  244. 49392 `3
  245. 21587 ORE AMP
  246. 21587 ORE AMPERSAND.TB
  247. 63904  RETURN  &  PLOT <UNKNOWN TOKEN><CTRL-0x03> + RETURN  &  PLOT <UNKNOWN TOKEN><CTRL-0x03> ASC GOSUB `<CTRL-0x13><CTRL-0x01>MEMORY MOVE
  248. 20301 RY.MOVE.TB
  249. 1488  SPEED= 
  250. 8294 g EXP R CHR$ ONERR P DEL * ONERR Q DEL +  GET  COS -$ = <CTRL-0x05> SPEED= <CTRL-0x01>H = L g EXP R CHR$ ONERR P DEL , ONERR Q DEL -  GET  COS -$ = <CTRL-0x07> SPEED=  END H02<UNKNOWN TOKEN> =  g EXP R CHR$ ONERR P DEL B ONERR Q DEL C ONERR * DEL < ONERR + DEL = ONERR , DEL > ONERR - DEL ? ONERR C AT = HGR2 B<UNKNOWN TOKEN><CTRL-0x02> GOSUB @ ONERR B AT < HGR2 8 GOSUB 8 COLOR= 
  251. 51456 0 HGR2 <CTRL-0x14> -: HGR2 <CTRL-0x08> -A HGR2 <CTRL-0x0c> -G GOSUB <CTRL-0x08><CTRL-0x09> END  SCALE= 
  252. 58832  SPEED= 
  253. 40962 
  254. 42495 > DEL P ONERR ? DEL Qh<UNKNOWN TOKEN> NOTRACE <CTRL-0x10> DIM 0 COLOR=  HGR2 K8 ONERR > VAL< DEL * ONERR ? VAL= DEL +<CTRL-0x18> ONERR Be* DEL @ ONERR Ce+ DEL A COLOR= 
  255. 201  = <CTRL-0x02>  NOT =  NOT < RETURN > HGR @ ONERR > -
  256. 16326   NOT > ONERR @ -
  257. 16838   NOT @ ONERR = AT ? =  PEEK ONERR < AT > =  LOG` PDL COLOR= 
  258. 48382 <CTRL-0x04>ASC
  259. 17235 II.SHAPES.TB
  260. 47871  CLEAR 
  261. 51945  CLEAR 
  262. 13161  DEL  LEFT$ ONERR  RIGHT$i
  263. 60138  MID$  COLOR= 
  264. 59569  + INPUT  CHR$ STORE  SPEED= 
  265. 8418  LEN SIN j EXP LET  +<UNKNOWN TOKEN>`_
  266. 1112 E<CTRL-0x04>5<CTRL-0x04>'<CTRL-0x04><CTRL-0x1a><CTRL-0x04><CTRL-0x14><CTRL-0x04><CTRL-0x0c><CTRL-0x04><CTRL-0x05><CTRL-0x04><UNKNOWN TOKEN><CTRL-0x03><UNKNOWN TOKEN><CTRL-0x03> MID$ <CTRL-0x03> STR$<CTRL-0x03> ATN<CTRL-0x03> RND<CTRL-0x03>  AND <CTRL-0x03> AT <CTRL-0x03> DEF <CTRL-0x03> IF <CTRL-0x03> VTAB <CTRL-0x03> HTAB <CTRL-0x03> TEXT <CTRL-0x03> END <CTRL-0x03>q<CTRL-0x03>e<CTRL-0x03>`<CTRL-0x03>[<CTRL-0x03>R<CTRL-0x03>J<CTRL-0x03>B<CTRL-0x03>8<CTRL-0x03>*<CTRL-0x03><CTRL-0x1e><CTRL-0x03><CTRL-0x11><CTRL-0x03><CTRL-0x07><CTRL-0x03><UNKNOWN TOKEN><CTRL-0x02><UNKNOWN TOKEN><CTRL-0x02> CHR$<CTRL-0x02> LOG<CTRL-0x02> = <CTRL-0x02> +<CTRL-0x02> TAB( <CTRL-0x02> ON <CTRL-0x02> LET <CTRL-0x02> NORMAL <CTRL-0x02> HGR <CTRL-0x02> DIM <CTRL-0x02>}<CTRL-0x02>q<CTRL-0x02>e<CTRL-0x02>X<CTRL-0x02>O<CTRL-0x02>D<CTRL-0x02>9<CTRL-0x02>-<CTRL-0x02>!<CTRL-0x02><CTRL-0x18><CTRL-0x02><CTRL-0x0b><CTRL-0x02><UNKNOWN TOKEN><CTRL-0x01><UNKNOWN TOKEN><CTRL-0x01> MID$ <CTRL-0x01> LEN<CTRL-0x01> SIN<CTRL-0x01> SCRN( <CTRL-0x01> ^<CTRL-0x01> TO <CTRL-0x01> DEF <CTRL-0x01> IF <CTRL-0x01> LOMEM: <CTRL-0x01> TRACE <CTRL-0x01> HGR <CTRL-0x01> READ <CTRL-0x01> END <CTRL-0x01>y<CTRL-0x01>n<CTRL-0x01>g<CTRL-0x01>]<CTRL-0x01>U<CTRL-0x01>L<CTRL-0x01>D<CTRL-0x01>9<CTRL-0x01>1<CTRL-0x01>(<CTRL-0x01>g<CTRL-0x04><CTRL-0x1f><CTRL-0x01><CTRL-0x17><CTRL-0x01><CTRL-0x0b><CTRL-0x01><UNKNOWN TOKEN>
  267. 232  ATN
  268. 212   OR 
  269. 9252 56.$$56.$$<CTRL-0x04>
  270. 17709 +
  271. 58396 <CTRL-0x04>
  272. 9028  LOMEM: <CTRL-0x04>
  273. 3300 d<CTRL-0x04>
  274. 11560 <UNKNOWN TOKEN><CTRL-0x1e><CTRL-0x1e><CTRL-0x1e>--<CTRL-0x05>
  275. 19748 6>/5<CTRL-0x1e>?
  276. 10280 <UNKNOWN TOKEN><CTRL-0x1b><CTRL-0x0e><CTRL-0x0e><CTRL-0x0e><CTRL-0x0e><CTRL-0x0e>
  277. 38180 <CTRL-0x12>E#V<CTRL-0x0c>$$
  278. 27876 <CTRL-0x09><UNKNOWN TOKEN>6
  279. 27684 16>?
  280. 58413 ? --
  281. 29732 E+<CTRL-0x05>
  282. 11620 6>/5.<CTRL-0x05>
  283. 11556 <CTRL-0x15><UNKNOWN TOKEN>?
  284. 3108  IF 6<CTRL-0x1e>?
  285. 11300  IF 66
  286. 5420 6n$ STR$<CTRL-0x07>
  287. 9255 $?
  288. 29732 <CTRL-0x09><CTRL-0x1e><CTRL-0x1e><CTRL-0x0e><CTRL-0x0e><CTRL-0x06>
  289. 9229 $ 
  290. 9255 D#
  291. 9252 6-<CTRL-0x15>6<CTRL-0x06>
  292. 44388 6?<CTRL-0x16>- 
  293. 11580 'd<CTRL-0x15><CTRL-0x06>
  294. 3108  IF > SAVE -
  295. 11532 $66.??
  296. 3108 - HTAB :?
  297. 9029 <CTRL-0x1c>?6$$<CTRL-0x04>
  298. 9261 ?V1.?<CTRL-0x07>
  299. 6208 <CTRL-0x0e><CTRL-0x0e><CTRL-0x06>
  300. 5 @+(p<CTRL-0x0e><CTRL-0x06>
  301. 9252 <?--666<CTRL-0x06>
  302. 5544 <CTRL-0x15><CTRL-0x15><CTRL-0x06>
  303. 11556 - COS366--
  304. 10280  ?? HTAB  HCOLOR= --<CTRL-0x05>
  305. 7396 l<CTRL-0x09> GET <CTRL-0x06>
  306. 10280   SIN3<CTRL-0x15> XDRAW q6
  307. 19748 166>8<UNKNOWN TOKEN><CTRL-0x06>
  308. 9244 $M16<UNKNOWN TOKEN><CTRL-0x06>
  309. 19748 166<CTRL-0x1e>?<CTRL-0x07>
  310. 9252 ?--<CTRL-0x05>
  311. 9029 <CTRL-0x1c>?G#<CTRL-0x0c>-<CTRL-0x15><CTRL-0x06>
  312. 11556  IF <UNKNOWN TOKEN>?<CTRL-0x0e><CTRL-0x0e><CTRL-0x0e><CTRL-0x06>
  313. 11620 <CTRL-0x15>6<UNKNOWN TOKEN><CTRL-0x1c> INVERSE m<CTRL-0x05>
  314. 11556  IF <UNKNOWN TOKEN>?<CTRL-0x06>
  315. 11620 <CTRL-0x15>66<CTRL-0x1e>?<CTRL-0x07>
  316. 36388 <CTRL-0x15><CTRL-0x15><CTRL-0x15>&$$$
  317. 5412 <CTRL-0x0e>.@+0666
  318. 13860 66--<CTRL-0x05>
  319. 19748 <UNKNOWN TOKEN><CTRL-0x1e><CTRL-0x1e><CTRL-0x0e><CTRL-0x0e><CTRL-0x0e><CTRL-0x0e>
  320. 9029 $$<CTRL-0x04>
  321. 9252 $/-
  322. 19748 16?/-66
  323. 11620 <CTRL-0x15> HTAB w>?<CTRL-0x07>
  324. 11556 - HTAB ;7
  325. 11556 - HTAB ; SAVE *-<CTRL-0x05>
  326. 11556  IF 66<CTRL-0x1e>?<CTRL-0x04>
  327. 11620 <CTRL-0x15> HTAB <UNKNOWN TOKEN>?<CTRL-0x07>
  328. 11556  IF <UNKNOWN TOKEN>?M2<CTRL-0x1e>?<CTRL-0x07>
  329. 11077  STORE <CTRL-0x15>6?o16
  330. 11620 <CTRL-0x15>6<CTRL-0x1e>' RUN  HTAB 9?<CTRL-0x07>
  331. 3107 <CTRL-0x0c><CTRL-0x1c>?<CTRL-0x17><CTRL-0x06>
  332. 14376 888
  333. 9517 8??
  334. 7196 E+((
  335. 9028 
  336. 8227 
  337. 8235 $<CTRL-0x1c>?<CTRL-0x17>v-<CTRL-0x05>
  338. 7200 ?G#<CTRL-0x0c>-<CTRL-0x15><UNKNOWN TOKEN> RND2<CTRL-0x06>
  339. 10280  ??<CTRL-0x07>
  340. 9029 <CTRL-0x1c>?<CTRL-0x1e>$<CTRL-0x0c><CTRL-0x0c>-<CTRL-0x05>
  341. 9029 <CTRL-0x1c>?'$--<CTRL-0x05>
  342. 9252 ><CTRL-0x1e><CTRL-0x1e>.--
  343. 9029 <CTRL-0x1c>g<CTRL-0x0c><??
  344. 3112  STR$?<CTRL-0x17> HTAB <CTRL-0x12>--<CTRL-0x05>
  345. 9252 $<CTRL-0x17><CTRL-0x06>
  346. 11620 <CTRL-0x15>66<CTRL-0x1e>?G(((
  347. 10280 (
  348. 16384 <CTRL-0x18>--<CTRL-0x05>
  349. 2304  $<UNKNOWN TOKEN><CTRL-0x12>--<CTRL-0x05>
  350. 10280 <UNKNOWN TOKEN>066n88888
  351. 7204 <CTRL-0x1c><CTRL-0x04>
  352. 9031 d<CTRL-0x0c><CTRL-0x04>
  353. 9408 <CTRL-0x04>
  354. 3107 <CTRL-0x0e><UNKNOWN TOKEN> HTAB %h<CTRL-0x1e><CTRL-0x0e><CTRL-0x06>
  355. 10280 <UNKNOWN TOKEN>;G IF  HCOLOR= <CTRL-0x0a> IF ;<CTRL-0x07>
  356. 11077  TAN7G;`5E; LOMEM: *-
  357. 25636 <CTRL-0x11>666<CTRL-0x0e>@<CTRL-0x18>D LEN<CTRL-0x13><CTRL-0x16> COS  
  358. 25632 <CTRL-0x11>6<CTRL-0x06>
  359. 9251 $
  360. 32769  DEF <CTRL-0x07> $g<CTRL-0x15><CTRL-0x06>
  361. 20563 RINT
  362. 20545 E.PRINT.TB
  363. 17285   SAVE 
  364. 976   GET  COS { EXP$<CTRL-0x11>0<CTRL-0x0d> R CHR$ ONERR P DEL C  GET  COS { EXP <UNKNOWN TOKEN> VAL DEL > ONERR ^ DEL < ONERR _ DEL =  SAVE 
  365. 8144   GET  COS g EXP R CHR$ ONERR P DEL @ ONERR Q DEL A L CHR$ DIM B RESUME @ LOMEM: A ONERR B <CTRL-0x11><UNKNOWN TOKEN> SPEED= <CTRL-0x06> DEL @ SPEED= 
  366. 17029  DEL ?  SAVE 
  367. 9680   RETURN 
  368. 8413 R CHR$ ONERR P DEL @ ONERR Q DEL A  SAVE 
  369. 3536   GET  COS g EXP R CHR$ ONERR P DEL B LOMEM: ? RETURN < -! GOSUB <CTRL-0x06> ONERR C -3 HGR2 <CTRL-0x0c>8 VALC LET  0<UNKNOWN TOKEN> ONERR <UNKNOWN TOKEN> <CTRL-0x05><UNKNOWN TOKEN> ASC? ONERR ? AT > HGR2 <CTRL-0x01>`<CTRL-0x18> ONERR  TANe@ DEL  TAN ONERR  ATNeA DEL  ATN<CTRL-0x18> ONERR  PEEKeB DEL  PEEK RESUME  TAN LOMEM:  ATN ONERR  PEEK <CTRL-0x11><UNKNOWN TOKEN><CTRL-0x18> HGR2  CLEAR  MID$  MID$  DEL ^ INPUT _ COLOR= 
  370. 1264  -: = <CTRL-0x14> * CLEAR 
  371. 24165  DEL ^ LEFT$ CLEAR 
  372. 34143 _l^
  373. 49184  COS RESUME  GOSUB   NOT  GOSUB  COLOR= <UNKNOWN TOKEN> ONERR  & 8<UNKNOWN TOKEN> &  DEL ^ PR#  +<UNKNOWN TOKEN> &  DEL _ ASC GOSUB  COLOR= <CTRL-0x01> RETURN ^ - MID$  = <CTRL-0x03>L<CTRL-0x0e> LEN DEL Q GR  RETURN ^ DEL P ONERR ^<CTRL-0x18>i<CTRL-0x02> DEL ^ HGR2 <CTRL-0x02> ASC_ COLOR= 
  374. 2032  < DEF  = <CTRL-0x09> + = <UNKNOWN TOKEN> RETURN  DEF  -"<UNKNOWN TOKEN><CTRL-0x0f> ONERR ^<CTRL-0x18>eP DEL ^ ONERR _eQ DEL _ =  TO  +  ROT=  POS + RETURN ^ = <UNKNOWN TOKEN>8 ROT= e^ DEL ^ HGR2 <CTRL-0x02> ASC_  SAVE 
  375. 976   RETURN 
  376. 59904   NOT  GOSUB  COLOR= <UNKNOWN TOKEN> IF <UNKNOWN TOKEN><CTRL-0x03> HGR  &  + IF <UNKNOWN TOKEN><CTRL-0x03> HGR  &  ASC GOSUB  SPEED= L PLOT <UNKNOWN TOKEN><CTRL-0x03>8 ONERR  &  RIGHT$/ PLOT <UNKNOWN TOKEN><CTRL-0x03> ONERR  GOSUB  RIGHT$
  377. 24579 <CTRL-0x03> GET  COLOR= <CTRL-0x09><UNKNOWN TOKEN><UNKNOWN TOKEN><UNKNOWN TOKEN>