home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 101-125 / apd112 / autoexec.amos / autoexec.amosSourceCode
AMOS Source Code  |  1978-01-16  |  14KB  |  478 lines
  1. Set Buffer 20
  2. Screen Open 1,400,300,2,Lowres : Hide : Colour 1,$FFF : Flash Off : Curs Off : Cls 0 : Def Scroll 1,0,0 To 400,300,0,-2 : Get Disc Fonts : Set Font 2
  3. Screen Open 0,352,256,2,Lowres : Hide : Colour 1,$FFF : Colour 9,$777 : Flash Off : Curs Off : Double Buffer : Autoback 0
  4. Screen Open 2,352,256,2,Lowres : Hide : Colour 1,$FFF : Curs Off : Cls 0 : Double Buffer : Autoback 0
  5. Screen Display 1,168,60,16,16
  6. Screen Display 0,128,40,352,256
  7. Screen Display 2,128,40,352,256
  8. Wait Vbl 
  9. Dual Playfield 0,2 : Screen Offset 0,1,0 : Screen Offset 2,1,0
  10. LETCOUNT=1
  11. Degree 
  12. COPPERLIST
  13. Load "musak9.abk" : Music 1 : Tempo $11
  14. X=1 : XX=360 : A=1 : S=3 : T=6 : U=9 : V=12 : W=15 : X=18 : Y=21 : Z=24
  15. S1=27 : T1=30 : U1=33 : V1=36 : W1=39 : X1=42 : Y1=45 : Z1=48 : S2=51 : T2=54 : U2=57 : V2=60 : W2=63 : X2=66 : Y2=69
  16. Z2=72 : S3=75 : T3=78 : U3=81 : V3=84 : W3=87 : X3=90 : Y3=93 : Z3=96 : S4=99 : T4=102 : U4=105 : V4=107 : W4=109 : X4=112 : Y4=115 : Z4=118 : S5=121 : T5=124 : U5=127
  17. V5=130 : W5=133 : X5=136 : Y5=139 : Z6=142 : S6=145 : T6=148 : U6=151 : V6=154 : W6=157 : X6=160 : Y6=163 : Z6=166
  18. S7=169 : T7=172 : U7=175 : V7=178 : W7=181 : X7=184 : Y7=187 : Z7=190 : COUNTER=3330
  19. A=Rnd(360) : B=Rnd(360) : C=Rnd(360) : D=Rnd(360) : E=Rnd(360) : F=Rnd(360) : G=Rnd(360)
  20. A1=Rnd(360) : B1=Rnd(360) : C1=Rnd(360) : D1=Rnd(360) : E1=Rnd(360) : F1=Rnd(360) : G1=Rnd(360)
  21. A2=Rnd(360) : B2=Rnd(360) : C2=Rnd(360) : D2=Rnd(360) : E2=Rnd(360) : F2=Rnd(360) : G2=Rnd(360)
  22. A3=Rnd(360) : B3=Rnd(360) : C3=Rnd(360) : D3=Rnd(360) : E3=Rnd(360) : F3=Rnd(360) : G3=Rnd(360)
  23. A4=Rnd(360) : B4=Rnd(360) : C4=Rnd(360) : D4=Rnd(360) : E4=Rnd(360) : F4=Rnd(360) : G4=Rnd(360)
  24. A5=Rnd(360) : B5=Rnd(360) : C5=Rnd(360) : D5=Rnd(360) : E5=Rnd(360) : F5=Rnd(360) : G5=Rnd(360) : A6=Rnd(360) : B6=Rnd(360) : C6=Rnd(360) : D6=Rnd(360) : E6=Rnd(360) : F6=Rnd(360)
  25. G6=Rnd(360) : A7=Rnd(360) : B7=Rnd(360) : C7=Rnd(360) : D7=Rnd(360) : E7=Rnd(360) : F7=Rnd(360) : G7=Rnd(360)
  26. COUNT=1
  27. Gosub SRT
  28. Do 
  29.  FX#=Cos(COUNTI) : Screen Copy 1,0,0,400,300 To 0,FX#*60+-34,0 : Scroll 1 : Randomize Timer : Screen 2
  30.  Plot X#*S+160,Y#*S+128 : Plot X1#*T+160,Y1#*T+128 : Plot X2#*U+160,Y2#*U+128 : Plot X3#*V+160,Y3#*V+128 : Plot X4#*W+160,Y4#*W+128
  31.  Plot X5#*X+160,Y5#*X+128 : Plot X6#*Y+160,Y6#*Y+128 : Plot X7#*Z+160,Y7#*Z+128 : Plot X8#*S1+160,Y8#*S1+128 : Plot X9#*T1+160,Y9#*T1+128
  32.  Plot X10#*U1+160,Y10#*U1+128 : Plot X11#*V1+160,Y11#*V1+128 : Plot X12#*W1+160,Y12#*W1+128
  33.  Plot X13#*X1+160,Y13#*X1+128 : Plot X14#*Y1+160,Y14#*Y1+128 : Plot X15#*Z1+160,Y15#*Z1+128 : Plot X16#*S2+160,Y16#*S2+128 : Plot X17#*T2+160,Y17#*T2+128
  34.  Plot X18#*U2+160,Y18#*U2+128 : Plot X19#*V2+160,Y19#*V2+128 : Plot X20#*W2+160,Y20#*W2+128 : Plot X21#*X2+160,Y21#*X2+128 : Plot X22#*Y2+160,Y22#*Y2+128
  35.  Plot X23#*Z2+160,Y23#*Z2+128 : Plot X24#*S3+160,Y24#*S3+128 : Plot X25#*T3+160,Y25#*T3+128 : Plot X26#*U3+160,Y26#*U3+128 : Plot X27#*V3+160,Y27#*V3+128
  36.  Plot X28#*W3+160,Y28#*W3+128 : Plot X29#*X3+160,Y29#*X3+128 : Plot X30#*Y3+160,Y30#*Y3+128 : Plot X31#*Z3+160,Y31#*Z3+128 : Plot X32#*S4+160,Y32#*S4+128
  37.  Plot X33#*T4+160,Y33#*T4+128 : Plot X34#*U4+160,Y34#*U4+128 : Plot X35#*V4+160,Y35#*V4+128 : Plot X36#*W4+160,Y36#*W4+128 : Plot X37#*X4+160,Y37#*X4+128
  38.  Plot X38#*Y4+160,Y38#*Y4+128 : Plot X39#*Z4+160,Y39#*Z4+128 : Plot X40#*S5+160,Y40#*S5+128 : Plot X41#*T5+160,Y41#*T5+128 : Plot X42#*U5+160,Y42#*U5+128
  39.  Plot X43#*V5+160,Y43#*V5+128 : Plot X44#*W5+160,Y44#*W5+128 : Plot X45#*X5+160,Y45#*X5+128 : Plot X46#*Y5+160,Y46#*Y5+128 : Plot X47#*Z5+160,Y47#*Z5+128
  40.  Plot X48#*S6+160,Y48#*S6+128 : Plot X49#*T6+160,Y49#*T6+128 : Plot X50#*U6+160,Y50#*U6+128 : Plot X51#*V6+160,Y51#*V6+128 : Plot X52#*W6+160,Y52#*W6+128
  41.  Plot X53#*X6+160,Y53#*X6+128 : Plot X54#*Y6+160,Y54#*Y6+128 : Plot X55#*Z6+160,Y55#*Z6+128 : Plot X56#*S7+160,Y56#*S7+128 : Plot X57#*T7+160,Y57#*T7+128
  42.  Plot X58#*U7+160,Y58#*U7+128 : Screen 1
  43.  Add S,6 : Add T,2 : Add U,8 : Add V,1 : Add W,7 : Add X,5 : Add Y,8 : Add Z,2
  44.  Add S1,6 : Add T1,2 : Add U1,7 : Add V1,1 : Add W1,6 : Add X1,5 : Add Y1,8 : Add Z1,2
  45.  Add S2,7 : Add T2,2 : Add U2,8 : Add V2,1 : Add W2,6 : Add X2,5 : Add Y2,7 : Add Z2,2
  46.  Add S3,6 : Add T3,2 : Add U3,8 : Add V3,1 : Add W3,7 : Add X3,5 : Add Y3,8 : Add Z3,2
  47.  Add S4,6 : Add T4,2 : Add U4,7 : Add V4,1 : Add W4,6 : Add X4,5 : Add Y4,8 : Add Z4,2
  48.  Add S5,7 : Add T5,2 : Add U5,8 : Add V5,1 : Add W5,6 : Add X5,5 : Add Y5,7 : Add Z5,2
  49.  Add S6,6 : Add T6,2 : Add U6,8 : Add V6,1 : Add W6,7 : Add X6,5 : Add Y6,8 : Add Z6,2
  50.  Add S7,6 : Add T7,2 : Add U7,9 : Add V7,1 : Add W7,6 : Add X7,5 : Add Y7,8 : Add Z7,2
  51.  If S=>160 Then S=1 : Gosub SRT
  52.  If T=>160 Then T=1 : A=Rnd(360) : Gosub SRT1
  53.  If U=>160 Then U=1 : B=Rnd(360) : Gosub SRT2
  54.  If V=>160 Then V=1 : C=Rnd(360) : Gosub SRT3
  55.  If W=>160 Then W=1 : D=Rnd(360) : Gosub SRT4
  56.  If X=>160 Then X=1 : E=Rnd(360) : Gosub SRT5
  57.  If Y=>160 Then Y=1 : D=Rnd(360) : Gosub SRT6
  58.  If Z=>160 Then Z=1 : F=Rnd(360) : Gosub SRT7
  59.  If S1=>160 Then S1=1 : Gosub SRT8
  60.  If T1=>160 Then T1=1 : A1=Rnd(360) : Gosub SRT9
  61.  If U1=>160 Then U1=1 : B1=Rnd(360) : Gosub SRT10
  62.  If V1=>160 Then V1=1 : C1=Rnd(360) : Gosub SRT11
  63.  If W1=>160 Then W1=1 : D1=Rnd(360) : Gosub SRT12
  64.  If X1=>160 Then X1=1 : E1=Rnd(360) : Gosub SRT13
  65.  If Y1=>160 Then Y1=1 : D1=Rnd(360) : Gosub SRT14
  66.  If Z1=>160 Then Z1=1 : F1=Rnd(360) : Gosub SRT15
  67.  If S2=>160 Then S2=1 : Gosub SRT16
  68.  If T2=>160 Then T2=1 : A2=Rnd(360) : Gosub SRT17
  69.  If U2=>160 Then U2=1 : B2=Rnd(360) : Gosub SRT18
  70.  If V2=>160 Then V2=1 : C2=Rnd(360) : Gosub SRT19
  71.  If W2=>160 Then W2=1 : D2=Rnd(360) : Gosub SRT20
  72.  If X2=>160 Then X2=1 : E2=Rnd(360) : Gosub SRT21
  73.  If Y2=>160 Then Y2=1 : D2=Rnd(360) : Gosub SRT22
  74.  If Z2=>160 Then Z2=1 : F2=Rnd(360) : Gosub SRT23
  75.  If S3=>160 Then S3=1 : Gosub SRT24
  76.  If T3=>160 Then T3=1 : A3=Rnd(360) : Gosub SRT25
  77.  If U3=>160 Then U3=1 : B3=Rnd(360) : Gosub SRT26
  78.  If V3=>160 Then V3=1 : C3=Rnd(360) : Gosub SRT27
  79.  If W3=>160 Then W3=1 : D3=Rnd(360) : Gosub SRT28
  80.  If X3=>160 Then X3=1 : E3=Rnd(360) : Gosub SRT29
  81.  If Y3=>160 Then Y3=1 : D3=Rnd(360) : Gosub SRT30
  82.  If Z3=>160 Then Z3=1 : F3=Rnd(360) : Gosub SRT31
  83.  If S4=>160 Then S4=1 : Gosub SRT32
  84.  If T4=>160 Then T4=1 : A4=Rnd(360) : Gosub SRT33
  85.  If U4=>160 Then U4=1 : B4=Rnd(360) : Gosub SRT34
  86.  If V4=>160 Then V4=1 : C4=Rnd(360) : Gosub SRT35
  87.  If W4=>160 Then W4=1 : D4=Rnd(360) : Gosub SRT36
  88.  If X4=>160 Then X4=1 : E4=Rnd(360) : Gosub SRT37
  89.  If Y4=>160 Then Y4=1 : D4=Rnd(360) : Gosub SRT38
  90.  If Z4=>160 Then Z4=1 : F4=Rnd(360) : Gosub SRT39
  91.  If S5=>160 Then S5=1 : Gosub SRT40
  92.  If T5=>160 Then T5=1 : A5=Rnd(360) : Gosub SRT41
  93.  If U5=>160 Then U5=1 : B5=Rnd(360) : Gosub SRT42
  94.  If V5=>160 Then V5=1 : C5=Rnd(360) : Gosub SRT43
  95.  If W5=>160 Then W5=1 : D5=Rnd(360) : Gosub SRT44
  96.  If X5=>160 Then X5=1 : E5=Rnd(360) : Gosub SRT45
  97.  If Y5=>160 Then Y5=1 : D5=Rnd(360) : Gosub SRT46
  98.  If Z5=>160 Then Z5=1 : F5=Rnd(360) : Gosub SRT47
  99.  If S6=>160 Then S6=1 : Gosub SRT48
  100.  If T6=>160 Then T6=1 : A6=Rnd(360) : Gosub SRT49
  101.  If U6=>160 Then U6=1 : B6=Rnd(360) : Gosub SRT50
  102.  If V6=>160 Then V6=1 : C6=Rnd(360) : Gosub SRT51
  103.  If W6=>160 Then W6=1 : D6=Rnd(360) : Gosub SRT52
  104.  If X6=>160 Then X6=1 : E6=Rnd(360) : Gosub SRT53
  105.  If Y6=>160 Then Y6=1 : D6=Rnd(360) : Gosub SRT54
  106.  If Z6=>160 Then Z6=1 : F6=Rnd(360) : Gosub SRT55
  107.  If S7=>160 Then S7=1 : Gosub SRT56
  108.  If T7=>160 Then T7=1 : A7=Rnd(360) : Gosub SRT57
  109.  If U7=>160 Then U7=1 : B7=Rnd(360) : Gosub SRT58
  110.  If V7=>160 Then V7=1 : C7=Rnd(360) : Gosub SRT59
  111.  If W7=>160 Then W7=1 : D7=Rnd(360) : Gosub SRT60
  112.  If X7=>160 Then X7=1 : E7=Rnd(360) : Gosub SRT61
  113.  If Y7=>160 Then Y7=1 : D7=Rnd(360) : Gosub SRT62
  114.  If Z7=>160 Then Z7=1 : F7=Rnd(360) : Gosub SRT63
  115.  If Mouse Key=1 Then Screen Close 1 : Screen Close 0 : For Z=63 To 0 Step -1 : Wait Vbl : Mvolume Z : Next Z : Music Off : Erase 3 : Mvolume 63 : Run "CDTV.amos"
  116.  Screen 0 : Screen Swap : Wait Vbl : Cls 0 : Screen 2 : Cls 0 : Screen 1
  117.  Add COUNTI,4 : Inc LETCOUNT : If LETCOUNT=10 Then Read A$ : If A$="*" Then Goto DATS Else L=Text Length(A$) : Text 200-L/2,280,A$ : LETCOUNT=1
  118. GUP:
  119. Loop 
  120. DATS:
  121. Data "YOU ARE ABOUT"
  122. Data "TO ENTER"
  123. Data "THE PANTHORUS ZONE"
  124. Data "","",""
  125. Data "FIRSTLY I WOULD"
  126. Data "LIKE TO THANK"
  127. Data "SANDRA SHARKLY"
  128. Data "",""
  129. Data "IF NOT FOR HER"
  130. Data "FRIENDLY AND"
  131. Data "EFFICIENT SERVICE"
  132. Data "THIS DEMO WOULD"
  133. Data "NEVER HAVE BEEN"
  134. Data "WITH YOU NOW"
  135. Data "BECAUSE I WAS"
  136. Data "A BIT OF A TWIT"
  137. Data ""
  138. Data "WE WROTE ALL THE"
  139. Data "DEMOS IN AMOS 1.2"
  140. Data "AND WHEN IT CAME"
  141. Data "TO US RELEASING"
  142. Data "THIS DEMO WE"
  143. Data "REALISED THAT"
  144. Data "WE ONLY HAD RAMOS 1.1"
  145. Data "AND IT WAS 18th"
  146. Data "DECEMBER"
  147. Data ""
  148. Data "MOST OF THE STUFF"
  149. Data "USES DOUBLE BUFFERED"
  150. Data "DUAL PLAYFIELDS"
  151. Data "SO WE NEEDED AN"
  152. Data "UPDATE QUICK",""
  153. Data "THANKS SANDRA"
  154. Data "","","",""
  155. Data "THIS MEGADEMO WAS"
  156. Data "PRODUCED IN OUR SPARE"
  157. Data "TIME BETWEEN WRITING","OUR FORTHCOMING"
  158. Data "GAMES AND ART PACKAGES"
  159. Data "AMONG OTHER THINGS"
  160. Data "","",""
  161. Data "THERE ARE AROUND"
  162. Data "14 DIFFERENT DEMOS"
  163. Data "AND 12 PEICES OF MUSIC"
  164. Data "","",""
  165. Data "DONT EXPECT A REDSECTOR"
  166. Data "BUT YOU CAN EXPECT"
  167. Data "DECENT CODED DEMOS","","THE GRAPHICS ARE","A BIT RUBBISH","BUT OUR GRAPHICS","MAN DIDN'T WORK","ON ANY PART OF","THE DEMO","HE WAS TO BUSY","WITH THE GAME"
  168. Data "",""
  169. Data "AFTER ALL. THE ONLY"
  170. Data "REAL REASON THIS DEMO"
  171. Data "OCCURED WAS TO HELP"
  172. Data "LEARNER CODERS TO"
  173. Data "GET TO GRIPS WITH"
  174. Data "DIFFERENT TECHNIQUES"
  175. Data "","","",""
  176. Data "SO HERE IT COMES"
  177. Data ""
  178. Data "THE MEGA DEMO"
  179. Data "","",""
  180. Data "AND YOU THOUGHT YOU"
  181. Data "WOULD NEVER BE ABLE TO"
  182. Data "ENJOY THE FEATURES OF"
  183. Data "THE CDTV"
  184. Data "","","","","","","","","","","","","","","","","*"
  185. Procedure COPPERLIST
  186. Set Rainbow 1,1,4097,"","",""
  187. For Z=0 To 256 Step 32
  188.    Rain(1,Z+1)=$500
  189.    Rain(1,Z+2)=$600
  190.    Rain(1,Z+3)=$700
  191.    Rain(1,Z+4)=$B00
  192.    Rain(1,Z+5)=$E00
  193.    Rain(1,Z+6)=$E30
  194.    Rain(1,Z+7)=$E70
  195.    Rain(1,Z+8)=$EB0
  196.    Rain(1,Z+9)=$EE0
  197.    Rain(1,Z+10)=$BE0
  198.    Rain(1,Z+11)=$7E0
  199.    Rain(1,Z+12)=$3E0
  200.    Rain(1,Z+13)=$E0
  201.    Rain(1,Z+14)=$E3
  202.    Rain(1,Z+15)=$E7
  203.    Rain(1,Z+16)=$EB
  204.    Rain(1,Z+17)=$EE
  205.    Rain(1,Z+18)=$BE
  206.    Rain(1,Z+19)=$7E
  207.    Rain(1,Z+20)=$3E
  208.    Rain(1,Z+21)=$E
  209.    Rain(1,Z+22)=$30E
  210.    Rain(1,Z+23)=$70E
  211.    Rain(1,Z+24)=$B0E
  212.    Rain(1,Z+25)=$E0E
  213.    Rain(1,Z+26)=$E0B
  214.    Rain(1,Z+27)=$E07
  215.    Rain(1,Z+28)=$E03
  216.    Rain(1,Z+29)=$B00
  217.    Rain(1,Z+30)=$700
  218.    Rain(1,Z+31)=$600
  219.    Rain(1,Z+32)=$500
  220. Next Z
  221. Rainbow 1,1,40,300
  222. End Proc
  223. Screen Close 1 : Screen Close 0 : For Z=63 To 0 Step -1 : Wait Vbl : Mvolume Z : Next Z : Music Off : Erase 3 : Mvolume 63 : Run "CDTV.amos"
  224. ST:
  225. SRT:
  226. X#=Cos(COUNT+Rnd(360))
  227. Y#=Cos(COUNTER+Rnd(360))
  228. Return 
  229. SRT1:
  230. X1#=Cos(COUNT+A)
  231. Y1#=Cos(COUNTER+A)
  232. Return 
  233. SRT2:
  234. X2#=Cos(COUNT+B)
  235. Y2#=Cos(COUNTER+B)
  236. Return 
  237. SRT3:
  238. X3#=Cos(COUNT+C)
  239. Y3#=Cos(COUNTER+C)
  240. Return 
  241. SRT4:
  242. X4#=Cos(COUNT+D)
  243. Y4#=Cos(COUNTER+D)
  244. Return 
  245. SRT5:
  246. X5#=Cos(COUNT+E)
  247. Y5#=Cos(COUNTER+E)
  248. SRT6:
  249. X6#=Cos(COUNT+F)
  250. Y6#=Cos(COUNTER+F)
  251. Return 
  252. SRT7:
  253. X7#=Cos(COUNT+G)
  254. Y7#=Cos(COUNTER+G)
  255. Return 
  256. SRT8:
  257. X8#=Cos(COUNT+Rnd(360))
  258. Y8#=Cos(COUNTER+Rnd(360))
  259. Return 
  260. SRT9:
  261. X9#=Cos(COUNT+A1)
  262. Y9#=Cos(COUNTER+A1)
  263. Return 
  264. SRT10:
  265. X10#=Cos(COUNT+B1)
  266. Y10#=Cos(COUNTER+B1)
  267. Return 
  268. SRT11:
  269. X11#=Cos(COUNT+C1)
  270. Y11#=Cos(COUNTER+C1)
  271. Return 
  272. SRT12:
  273. X12#=Cos(COUNT+D1)
  274. Y12#=Cos(COUNTER+D1)
  275. Return 
  276. SRT13:
  277. X13#=Cos(COUNT+E1)
  278. Y13#=Cos(COUNTER+E1)
  279. Return 
  280. SRT14:
  281. X14#=Cos(COUNT+F1)
  282. Y14#=Cos(COUNTER+F1)
  283. Return 
  284. SRT15:
  285. X15#=Cos(COUNT+G1)
  286. Y15#=Cos(COUNTER+G1)
  287. Return 
  288. SRT16:
  289. X16#=Cos(COUNT)
  290. Y16#=Cos(COUNTER)
  291. Return 
  292. SRT17:
  293. X17#=Cos(COUNT+A2)
  294. Y17#=Cos(COUNTER+A2)
  295. Return 
  296. SRT18:
  297. X18#=Cos(COUNT+B2)
  298. Y18#=Cos(COUNTER+B2)
  299. Return 
  300. SRT19:
  301. X19#=Cos(COUNT+C2)
  302. Y19#=Cos(COUNTER+C2)
  303. Return 
  304. SRT20:
  305. X20#=Cos(COUNT+D2)
  306. Y20#=Cos(COUNTER+D2)
  307. Return 
  308. SRT21:
  309. X21#=Cos(COUNT+E2)
  310. Y21#=Cos(COUNTER+E2)
  311. Return 
  312. SRT22:
  313. X22#=Cos(COUNT+F2)
  314. Y22#=Cos(COUNTER+F2)
  315. Return 
  316. SRT23:
  317. X23#=Cos(COUNT+G2)
  318. Y23#=Cos(COUNTER+G2)
  319. Return 
  320. SRT24:
  321. X24#=Cos(COUNT+Rnd(360))
  322. Y24#=Cos(COUNTER+Rnd(360))
  323. Return 
  324. SRT25:
  325. X25#=Cos(COUNT+A3)
  326. Y25#=Cos(COUNTER+A3)
  327. Return 
  328. SRT26:
  329. X26#=Cos(COUNT+B3)
  330. Y26#=Cos(COUNTER+B3)
  331. Return 
  332. SRT27:
  333. X27#=Cos(COUNT+C3)
  334. Y27#=Cos(COUNTER+C3)
  335. Return 
  336. SRT28:
  337. X28#=Cos(COUNT+D3)
  338. Y28#=Cos(COUNTER+D3)
  339. Return 
  340. SRT29:
  341. X29#=Cos(COUNT+E3)
  342. Y29#=Cos(COUNTER+E3)
  343. Return 
  344. SRT30:
  345. X30#=Cos(COUNT+F3)
  346. Y30#=Cos(COUNTER+F3)
  347. Return 
  348. SRT31:
  349. X31#=Cos(COUNT+G3)
  350. Y31#=Cos(COUNTER+G3)
  351. Return 
  352. SRT32:
  353. X32#=Cos(COUNT+Rnd(360))
  354. Y32#=Cos(COUNTER+Rnd(360))
  355. Return 
  356. SRT33:
  357. X33#=Cos(COUNT+A4)
  358. Y33#=Cos(COUNTER+A4)
  359. Return 
  360. SRT34:
  361. X34#=Cos(COUNT+B4)
  362. Y34#=Cos(COUNTER+B4)
  363. Return 
  364. SRT35:
  365. X35#=Cos(COUNT+C4)
  366. Y35#=Cos(COUNTER+C4)
  367. Return 
  368. SRT36:
  369. X36#=Cos(COUNT+D4)
  370. Y36#=Cos(COUNTER+D4)
  371. Return 
  372. SRT37:
  373. X37#=Cos(COUNT+E4)
  374. Y37#=Cos(COUNTER+E4)
  375. SRT38:
  376. X38#=Cos(COUNT+F4)
  377. Y38#=Cos(COUNTER+F4)
  378. Return 
  379. SRT39:
  380. X39#=Cos(COUNT+G4)
  381. Y39#=Cos(COUNTER+G4)
  382. Return 
  383. SRT40:
  384. X40#=Cos(COUNT)
  385. Y40#=Cos(COUNTER)
  386. Return 
  387. SRT41:
  388. X41#=Cos(COUNT+A5)
  389. Y41#=Cos(COUNTER+A5)
  390. Return 
  391. SRT42:
  392. X42#=Cos(COUNT+B5)
  393. Y42#=Cos(COUNTER+B5)
  394. Return 
  395. SRT43:
  396. X43#=Cos(COUNT+C5)
  397. Y43#=Cos(COUNTER+C5)
  398. Return 
  399. SRT44:
  400. X44#=Cos(COUNT+D5)
  401. Y44#=Cos(COUNTER+D5)
  402. Return 
  403. SRT45:
  404. X45#=Cos(COUNT+E5)
  405. Y45#=Cos(COUNTER+E5)
  406. Return 
  407. SRT46:
  408. X46#=Cos(COUNT+F5)
  409. Y46#=Cos(COUNTER+F5)
  410. Return 
  411. SRT47:
  412. X47#=Cos(COUNT+G5)
  413. Y47#=Cos(COUNTER+G5)
  414. Return 
  415. SRT48:
  416. X48#=Cos(COUNT+Rnd(360))
  417. Y48#=Cos(COUNTER+Rnd(360))
  418. Return 
  419. SRT49:
  420. X49#=Cos(COUNT+A6)
  421. Y49#=Cos(COUNTER+A6)
  422. Return 
  423. SRT50:
  424. X50#=Cos(COUNT+B6)
  425. Y50#=Cos(COUNTER+B6)
  426. Return 
  427. SRT51:
  428. X51#=Cos(COUNT+C6)
  429. Y51#=Cos(COUNTER+C6)
  430. Return 
  431. SRT52:
  432. X52#=Cos(COUNT+D6)
  433. Y52#=Cos(COUNTER+D6)
  434. Return 
  435. SRT53:
  436. X53#=Cos(COUNT+E6)
  437. Y53#=Cos(COUNTER+E6)
  438. Return 
  439. SRT54:
  440. X54#=Cos(COUNT+F6)
  441. Y54#=Cos(COUNTER+F6)
  442. Return 
  443. SRT55:
  444. X55#=Cos(COUNT+G6)
  445. Y55#=Cos(COUNTER+G6)
  446. Return 
  447. SRT56:
  448. X56#=Cos(COUNT+Rnd(360))
  449. Y56#=Cos(COUNTER+Rnd(360))
  450. Return 
  451. SRT57:
  452. X57#=Cos(COUNT+A7)
  453. Y57#=Cos(COUNTER+A7)
  454. Return 
  455. SRT58:
  456. X58#=Cos(COUNT+B7)
  457. Y58#=Cos(COUNTER+B7)
  458. Return 
  459. SRT59:
  460. X59#=Cos(COUNT+C7)
  461. Y59#=Cos(COUNTER+C7)
  462. Return 
  463. SRT60:
  464. X60#=Cos(COUNT+D7)
  465. Y60#=Cos(COUNTER+D7)
  466. Return 
  467. SRT61:
  468. X61#=Cos(COUNT+E7)
  469. Y61#=Cos(COUNTER+E7)
  470. Return 
  471. SRT62:
  472. X62#=Cos(COUNT+F7)
  473. Y62#=Cos(COUNTER+F7)
  474. Return 
  475. SRT63:
  476. X63#=Cos(COUNT+G7)
  477. Y63#=Cos(COUNTER+G7)
  478. Return