home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 101-125 / apd112 / dchanger.amos / dchanger.amosSourceCode < prev    next >
AMOS Source Code  |  1978-01-16  |  12KB  |  541 lines
  1. Set Buffer 20
  2. Mvolume 63
  3. Load "musak2.abk"
  4. Music 1 : Tempo 17
  5. Screen Open 0,320,140,8,Lowres : Flash Off : Curs Off : Cls 0 : Hide : For Z=0 To 31 : Colour Z,$0 : Next Z
  6. Screen Open 1,320,140,4,Lowres : Flash Off : Curs Off : Cls 0 : Hide : Double Buffer : Autoback 0
  7. Screen Open 2,320,100,32,Lowres : Flash Off : Curs Off : Cls 0 : Hide 
  8. Screen Display 2,128,180,320,100
  9. Screen Display 0,128,40,320,140
  10. Screen Display 1,128,40,320,140
  11. Wait Vbl 
  12. Dual Playfield 0,1 : Screen Offset 1,1, : Screen Offset 0,1,
  13. Screen 0 : Load Iff "dc" : Colour 9,$40 : Colour 10,$80 : Colour 11,$B0
  14. Screen 2 : Load Iff "floorswap" : Shift Up 1,2,31,1
  15. Screen 1
  16. X=1 : XX=180
  17. A=1
  18. S=3
  19. T=6
  20. U=9
  21. V=12
  22. W=15
  23. X=18
  24. Y=21
  25. Z=24
  26. S1=27
  27. T1=30
  28. U1=33
  29. V1=36
  30. W1=39
  31. X1=42
  32. Y1=45
  33. Z1=48
  34. S2=51
  35. T2=54
  36. U2=57
  37. V2=60
  38. W2=63
  39. X2=66
  40. Y2=69
  41. Z2=72
  42. S3=75
  43. T3=78
  44. U3=81
  45. V3=84
  46. W3=87
  47. X3=90
  48. Y3=93
  49. Z3=96
  50. S4=99
  51. T4=102
  52. U4=105
  53. V4=107
  54. W4=109
  55. X4=112
  56. Y4=115
  57. Z4=118
  58. S5=121
  59. T5=124
  60. U5=127
  61. V5=130
  62. W5=133
  63. X5=136
  64. Y5=139
  65. Z6=142
  66. S6=145
  67. T6=148
  68. U6=151
  69. V6=154
  70. W6=157
  71. X6=160
  72. Y6=163
  73. Z6=166
  74. S7=169
  75. T7=172
  76. U7=175
  77. V7=178
  78. W7=181
  79. X7=184
  80. Y7=187
  81. Z7=190
  82. COUNTER=3330
  83. Degree 
  84. A=Rnd(180)
  85. B=Rnd(180)
  86. C=Rnd(180)
  87. D=Rnd(180)
  88. E=Rnd(180)
  89. F=Rnd(180)
  90. G=Rnd(180)
  91. A1=Rnd(180)
  92. B1=Rnd(180)
  93. C1=Rnd(180)
  94. D1=Rnd(180)
  95. E1=Rnd(180)
  96. F1=Rnd(180)
  97. G1=Rnd(180)
  98. A2=Rnd(180)
  99. B2=Rnd(180)
  100. C2=Rnd(180)
  101. D2=Rnd(180)
  102. E2=Rnd(180)
  103. F2=Rnd(180)
  104. G2=Rnd(180)
  105. A3=Rnd(180)
  106. B3=Rnd(180)
  107. C3=Rnd(180)
  108. D3=Rnd(180)
  109. E3=Rnd(180)
  110. F3=Rnd(180)
  111. G3=Rnd(180)
  112. A4=Rnd(180)
  113. B4=Rnd(180)
  114. C4=Rnd(180)
  115. D4=Rnd(180)
  116. E4=Rnd(180)
  117. F4=Rnd(180)
  118. G4=Rnd(180)
  119. A5=Rnd(180)
  120. B5=Rnd(180)
  121. C5=Rnd(180)
  122. D5=Rnd(180)
  123. E5=Rnd(180)
  124. F5=Rnd(180)
  125. G5=Rnd(180)
  126. A6=Rnd(180)
  127. B6=Rnd(180)
  128. C6=Rnd(180)
  129. D6=Rnd(180)
  130. E6=Rnd(180)
  131. F6=Rnd(180)
  132. G6=Rnd(180)
  133. A7=Rnd(180)
  134. B7=Rnd(180)
  135. C7=Rnd(180)
  136. D7=Rnd(180)
  137. E7=Rnd(180)
  138. F7=Rnd(180)
  139. G7=Rnd(180)
  140. COUNT=1
  141. Gosub SRT
  142. ST:
  143. Do : Randomize Timer
  144.  Paste Bob X#*S+160,Y#*S+128,1
  145.  Paste Bob X1#*T+160,Y1#*T+128,1
  146.  Paste Bob X2#*U+160,Y2#*U+128,1
  147.  Paste Bob X3#*V+160,Y3#*V+128,1
  148.  Paste Bob X4#*W+160,Y4#*W+128,1
  149.  Paste Bob X5#*X+160,Y5#*X+128,1
  150.  Paste Bob X6#*Y+160,Y6#*Y+128,1
  151.  Paste Bob X7#*Z+160,Y7#*Z+128,1
  152.  Paste Bob X8#*S1+160,Y8#*S1+128,1
  153.  Paste Bob X9#*T1+160,Y9#*T1+128,1
  154.  Paste Bob X10#*U1+160,Y10#*U1+128,1
  155.  Paste Bob X11#*V1+160,Y11#*V1+128,1
  156.  Paste Bob X12#*W1+160,Y12#*W1+128,1
  157.  Paste Bob X13#*X1+160,Y13#*X1+128,1
  158.  Paste Bob X14#*Y1+160,Y14#*Y1+128,1
  159.  Paste Bob X15#*Z1+160,Y15#*Z1+128,1
  160.  Paste Bob X16#*S2+160,Y16#*S2+128,1
  161.  Paste Bob X17#*T2+160,Y17#*T2+128,1
  162.  Paste Bob X18#*U2+160,Y18#*U2+128,1
  163.  Paste Bob X19#*V2+160,Y19#*V2+128,1
  164.  Paste Bob X20#*W2+160,Y20#*W2+128,1
  165.  Paste Bob X21#*X2+160,Y21#*X2+128,1
  166.  Paste Bob X22#*Y2+160,Y22#*Y2+128,1
  167.  Paste Bob X23#*Z2+160,Y23#*Z2+128,1
  168.  Paste Bob X24#*S3+160,Y24#*S3+128,1
  169.  Paste Bob X25#*T3+160,Y25#*T3+128,1
  170.  Paste Bob X26#*U3+160,Y26#*U3+128,1
  171.  Paste Bob X27#*V3+160,Y27#*V3+128,1
  172.  Paste Bob X28#*W3+160,Y28#*W3+128,1
  173.  Paste Bob X29#*X3+160,Y29#*X3+128,1
  174.  Paste Bob X30#*Y3+160,Y30#*Y3+128,1
  175.  Paste Bob X31#*Z3+160,Y31#*Z3+128,1
  176.  Paste Bob X32#*S4+160,Y32#*S4+128,1
  177.  Paste Bob X33#*T4+160,Y33#*T4+128,1
  178.  Paste Bob X34#*U4+160,Y34#*U4+128,1
  179.  Paste Bob X35#*V4+160,Y35#*V4+128,1
  180.  Paste Bob X36#*W4+160,Y36#*W4+128,1
  181.  Paste Bob X37#*X4+160,Y37#*X4+128,1
  182.  Paste Bob X38#*Y4+160,Y38#*Y4+128,1
  183.  Paste Bob X39#*Z4+160,Y39#*Z4+128,1
  184.  Paste Bob X40#*S5+160,Y40#*S5+128,1
  185.  Paste Bob X41#*T5+160,Y41#*T5+128,1
  186.  Paste Bob X42#*U5+160,Y42#*U5+128,1
  187.  Paste Bob X43#*V5+160,Y43#*V5+128,1
  188.  Paste Bob X44#*W5+160,Y44#*W5+128,1
  189.  Paste Bob X45#*X5+160,Y45#*X5+128,1
  190.  Paste Bob X46#*Y5+160,Y46#*Y5+128,1
  191.  Paste Bob X47#*Z5+160,Y47#*Z5+128,1
  192.  Paste Bob X48#*S6+160,Y48#*S6+128,1
  193.  Paste Bob X49#*T6+160,Y49#*T6+128,1
  194.  Paste Bob X50#*U6+160,Y50#*U6+128,1
  195.  Paste Bob X51#*V6+160,Y51#*V6+128,1
  196.  Paste Bob X52#*W6+160,Y52#*W6+128,1
  197.  Paste Bob X53#*X6+160,Y53#*X6+128,1
  198.  Paste Bob X54#*Y6+160,Y54#*Y6+128,1
  199.  Paste Bob X55#*Z6+160,Y55#*Z6+128,1
  200.  Paste Bob X56#*S7+160,Y56#*S7+128,1
  201.  Paste Bob X57#*T7+160,Y57#*T7+128,1
  202.  Paste Bob X58#*U7+160,Y58#*U7+128,1
  203.  Paste Bob X59#*V7+160,Y59#*V7+128,1
  204.  Paste Bob X60#*W7+160,Y60#*W7+128,1
  205.  Paste Bob X61#*X7+160,Y61#*X7+128,1
  206.  Paste Bob X62#*Y7+160,Y62#*Y7+128,1
  207.  Paste Bob X63#*Z7+160,Y63#*Z7+128,1
  208. Screen Swap : Wait Vbl : Cls 0 : If Mouse Key=1 Then Goto TEND
  209. Add S,4 : Add T,2 : Add U,6 : Add V,1 : Add W,5 : Add X,3 : Add Y,6 : Add Z,1
  210. Add S1,4 : Add T1,2 : Add U1,5 : Add V1,1 : Add W1,4 : Add X1,3 : Add Y1,6 : Add Z1,1
  211. Add S2,5 : Add T2,2 : Add U2,6 : Add V2,1 : Add W2,4 : Add X2,3 : Add Y2,5 : Add Z2,1
  212. Add S3,4 : Add T3,2 : Add U3,6 : Add V3,1 : Add W3,5 : Add X3,3 : Add Y3,6 : Add Z3,1
  213. Add S4,4 : Add T4,2 : Add U4,5 : Add V4,1 : Add W4,4 : Add X4,3 : Add Y4,6 : Add Z4,1
  214. Add S5,5 : Add T5,2 : Add U5,6 : Add V5,1 : Add W5,4 : Add X5,3 : Add Y5,5 : Add Z5,1
  215. Add S6,4 : Add T6,2 : Add U6,6 : Add V6,1 : Add W6,5 : Add X6,3 : Add Y6,6 : Add Z6,1
  216. Add S7,4 : Add T7,2 : Add U7,7 : Add V7,1 : Add W7,4 : Add X7,3 : Add Y7,6 : Add Z7,1
  217. If S=>180 Then S=1 : Gosub SRT
  218. If T=>180 Then T=1 : A=Rnd(180) : Gosub SRT1
  219. If U=>180 Then U=1 : B=Rnd(180) : Gosub SRT2
  220. If V=>180 Then V=1 : C=Rnd(180) : Gosub SRT3
  221. If W=>180 Then W=1 : D=Rnd(180) : Gosub SRT4
  222. If X=>180 Then X=1 : E=Rnd(180) : Gosub SRT5
  223. If Y=>180 Then Y=1 : D=Rnd(180) : Gosub SRT6
  224. If Z=>180 Then Z=1 : F=Rnd(180) : Gosub SRT7
  225. If S1=>180 Then S1=1 : Gosub SRT8
  226. If T1=>180 Then T1=1 : A1=Rnd(180) : Gosub SRT9
  227. If U1=>180 Then U1=1 : B1=Rnd(180) : Gosub SRT10
  228. If V1=>180 Then V1=1 : C1=Rnd(180) : Gosub SRT11
  229. If W1=>180 Then W1=1 : D1=Rnd(180) : Gosub SRT12
  230. If X1=>180 Then X1=1 : E1=Rnd(180) : Gosub SRT13
  231. If Y1=>180 Then Y1=1 : D1=Rnd(180) : Gosub SRT14
  232. If Z1=>180 Then Z1=1 : F1=Rnd(180) : Gosub SRT15
  233. If S2=>180 Then S2=1 : Gosub SRT16
  234. If T2=>180 Then T2=1 : A2=Rnd(180) : Gosub SRT17
  235. If U2=>180 Then U2=1 : B2=Rnd(180) : Gosub SRT18
  236. If V2=>180 Then V2=1 : C2=Rnd(180) : Gosub SRT19
  237. If W2=>180 Then W2=1 : D2=Rnd(180) : Gosub SRT20
  238. If X2=>180 Then X2=1 : E2=Rnd(180) : Gosub SRT21
  239. If Y2=>180 Then Y2=1 : D2=Rnd(180) : Gosub SRT22
  240. If Z2=>180 Then Z2=1 : F2=Rnd(180) : Gosub SRT23
  241. If S3=>180 Then S3=1 : Gosub SRT24
  242. If T3=>180 Then T3=1 : A3=Rnd(180) : Gosub SRT25
  243. If U3=>180 Then U3=1 : B3=Rnd(180) : Gosub SRT26
  244. If V3=>180 Then V3=1 : C3=Rnd(180) : Gosub SRT27
  245. If W3=>180 Then W3=1 : D3=Rnd(180) : Gosub SRT28
  246. If X3=>180 Then X3=1 : E3=Rnd(180) : Gosub SRT29
  247. If Y3=>180 Then Y3=1 : D3=Rnd(180) : Gosub SRT30
  248. If Z3=>180 Then Z3=1 : F3=Rnd(180) : Gosub SRT31
  249. If S4=>180 Then S4=1 : Gosub SRT32
  250. If T4=>180 Then T4=1 : A4=Rnd(180) : Gosub SRT33
  251. If U4=>180 Then U4=1 : B4=Rnd(180) : Gosub SRT34
  252. If V4=>180 Then V4=1 : C4=Rnd(180) : Gosub SRT35
  253. If W4=>180 Then W4=1 : D4=Rnd(180) : Gosub SRT36
  254. If X4=>180 Then X4=1 : E4=Rnd(180) : Gosub SRT37
  255. If Y4=>180 Then Y4=1 : D4=Rnd(180) : Gosub SRT38
  256. If Z4=>180 Then Z4=1 : F4=Rnd(180) : Gosub SRT39
  257. If S5=>180 Then S5=1 : Gosub SRT40
  258. If T5=>180 Then T5=1 : A5=Rnd(180) : Gosub SRT41
  259. If U5=>180 Then U5=1 : B5=Rnd(180) : Gosub SRT42
  260. If V5=>180 Then V5=1 : C5=Rnd(180) : Gosub SRT43
  261. If W5=>180 Then W5=1 : D5=Rnd(180) : Gosub SRT44
  262. If X5=>180 Then X5=1 : E5=Rnd(180) : Gosub SRT45
  263. If Y5=>180 Then Y5=1 : D5=Rnd(180) : Gosub SRT46
  264. If Z5=>180 Then Z5=1 : F5=Rnd(180) : Gosub SRT47
  265. If S6=>180 Then S6=1 : Gosub SRT48
  266. If T6=>180 Then T6=1 : A6=Rnd(180) : Gosub SRT49
  267. If U6=>180 Then U6=1 : B6=Rnd(180) : Gosub SRT50
  268. If V6=>180 Then V6=1 : C6=Rnd(180) : Gosub SRT51
  269. If W6=>180 Then W6=1 : D6=Rnd(180) : Gosub SRT52
  270. If X6=>180 Then X6=1 : E6=Rnd(180) : Gosub SRT53
  271. If Y6=>180 Then Y6=1 : D6=Rnd(180) : Gosub SRT54
  272. If Z6=>180 Then Z6=1 : F6=Rnd(180) : Gosub SRT55
  273. If S7=>180 Then S7=1 : Gosub SRT56
  274. If T7=>180 Then T7=1 : A7=Rnd(180) : Gosub SRT57
  275. If U7=>180 Then U7=1 : B7=Rnd(180) : Gosub SRT58
  276. If V7=>180 Then V7=1 : C7=Rnd(180) : Gosub SRT59
  277. If W7=>180 Then W7=1 : D7=Rnd(180) : Gosub SRT60
  278. If X7=>180 Then X7=1 : E7=Rnd(180) : Gosub SRT61
  279. If Y7=>180 Then Y7=1 : D7=Rnd(180) : Gosub SRT62
  280. If Z7=>180 Then Z7=1 : F7=Rnd(180) : Gosub SRT63
  281. Loop 
  282. SRT:
  283. X#=Cos(COUNT+Rnd(180))
  284. Y#=Cos(COUNTER+Rnd(180))
  285. Return 
  286. SRT1:
  287. X1#=Cos(COUNT+A)
  288. Y1#=Cos(COUNTER+A)
  289. Return 
  290. SRT2:
  291. X2#=Cos(COUNT+B)
  292. Y2#=Cos(COUNTER+B)
  293. Return 
  294. SRT3:
  295. X3#=Cos(COUNT+C)
  296. Y3#=Cos(COUNTER+C)
  297. Return 
  298. SRT4:
  299. X4#=Cos(COUNT+D)
  300. Y4#=Cos(COUNTER+D)
  301. Return 
  302. SRT5:
  303. X5#=Cos(COUNT+E)
  304. Y5#=Cos(COUNTER+E)
  305. SRT6:
  306. X6#=Cos(COUNT+F)
  307. Y6#=Cos(COUNTER+F)
  308. Return 
  309. SRT7:
  310. X7#=Cos(COUNT+G)
  311. Y7#=Cos(COUNTER+G)
  312. Return 
  313. SRT8:
  314. X8#=Cos(COUNT+Rnd(180))
  315. Y8#=Cos(COUNTER+Rnd(180))
  316. Return 
  317. SRT9:
  318. X9#=Cos(COUNT+A1)
  319. Y9#=Cos(COUNTER+A1)
  320. Return 
  321. SRT10:
  322. X10#=Cos(COUNT+B1)
  323. Y10#=Cos(COUNTER+B1)
  324. Return 
  325. SRT11:
  326. X11#=Cos(COUNT+C1)
  327. Y11#=Cos(COUNTER+C1)
  328. Return 
  329. SRT12:
  330. X12#=Cos(COUNT+D1)
  331. Y12#=Cos(COUNTER+D1)
  332. Return 
  333. SRT13:
  334. X13#=Cos(COUNT+E1)
  335. Y13#=Cos(COUNTER+E1)
  336. Return 
  337. SRT14:
  338. X14#=Cos(COUNT+F1)
  339. Y14#=Cos(COUNTER+F1)
  340. Return 
  341. SRT15:
  342. X15#=Cos(COUNT+G1)
  343. Y15#=Cos(COUNTER+G1)
  344. Return 
  345. SRT16:
  346. X16#=Cos(COUNT)
  347. Y16#=Cos(COUNTER)
  348. Return 
  349. SRT17:
  350. X17#=Cos(COUNT+A2)
  351. Y17#=Cos(COUNTER+A2)
  352. Return 
  353. SRT18:
  354. X18#=Cos(COUNT+B2)
  355. Y18#=Cos(COUNTER+B2)
  356. Return 
  357. SRT19:
  358. X19#=Cos(COUNT+C2)
  359. Y19#=Cos(COUNTER+C2)
  360. Return 
  361. SRT20:
  362. X20#=Cos(COUNT+D2)
  363. Y20#=Cos(COUNTER+D2)
  364. Return 
  365. SRT21:
  366. X21#=Cos(COUNT+E2)
  367. Y21#=Cos(COUNTER+E2)
  368. Return 
  369. SRT22:
  370. X22#=Cos(COUNT+F2)
  371. Y22#=Cos(COUNTER+F2)
  372. Return 
  373. SRT23:
  374. X23#=Cos(COUNT+G2)
  375. Y23#=Cos(COUNTER+G2)
  376. Return 
  377. SRT24:
  378. X24#=Cos(COUNT+Rnd(180))
  379. Y24#=Cos(COUNTER+Rnd(180))
  380. Return 
  381. SRT25:
  382. X25#=Cos(COUNT+A3)
  383. Y25#=Cos(COUNTER+A3)
  384. Return 
  385. SRT26:
  386. X26#=Cos(COUNT+B3)
  387. Y26#=Cos(COUNTER+B3)
  388. Return 
  389. SRT27:
  390. X27#=Cos(COUNT+C3)
  391. Y27#=Cos(COUNTER+C3)
  392. Return 
  393. SRT28:
  394. X28#=Cos(COUNT+D3)
  395. Y28#=Cos(COUNTER+D3)
  396. Return 
  397. SRT29:
  398. X29#=Cos(COUNT+E3)
  399. Y29#=Cos(COUNTER+E3)
  400. Return 
  401. SRT30:
  402. X30#=Cos(COUNT+F3)
  403. Y30#=Cos(COUNTER+F3)
  404. Return 
  405. SRT31:
  406. X31#=Cos(COUNT+G3)
  407. Y31#=Cos(COUNTER+G3)
  408. Return 
  409. SRT32:
  410. X32#=Cos(COUNT+Rnd(180))
  411. Y32#=Cos(COUNTER+Rnd(180))
  412. Return 
  413. SRT33:
  414. X33#=Cos(COUNT+A4)
  415. Y33#=Cos(COUNTER+A4)
  416. Return 
  417. SRT34:
  418. X34#=Cos(COUNT+B4)
  419. Y34#=Cos(COUNTER+B4)
  420. Return 
  421. SRT35:
  422. X35#=Cos(COUNT+C4)
  423. Y35#=Cos(COUNTER+C4)
  424. Return 
  425. SRT36:
  426. X36#=Cos(COUNT+D4)
  427. Y36#=Cos(COUNTER+D4)
  428. Return 
  429. SRT37:
  430. X37#=Cos(COUNT+E4)
  431. Y37#=Cos(COUNTER+E4)
  432. SRT38:
  433. X38#=Cos(COUNT+F4)
  434. Y38#=Cos(COUNTER+F4)
  435. Return 
  436. SRT39:
  437. X39#=Cos(COUNT+G4)
  438. Y39#=Cos(COUNTER+G4)
  439. Return 
  440. SRT40:
  441. X40#=Cos(COUNT)
  442. Y40#=Cos(COUNTER)
  443. Return 
  444. SRT41:
  445. X41#=Cos(COUNT+A5)
  446. Y41#=Cos(COUNTER+A5)
  447. Return 
  448. SRT42:
  449. X42#=Cos(COUNT+B5)
  450. Y42#=Cos(COUNTER+B5)
  451. Return 
  452. SRT43:
  453. X43#=Cos(COUNT+C5)
  454. Y43#=Cos(COUNTER+C5)
  455. Return 
  456. SRT44:
  457. X44#=Cos(COUNT+D5)
  458. Y44#=Cos(COUNTER+D5)
  459. Return 
  460. SRT45:
  461. X45#=Cos(COUNT+E5)
  462. Y45#=Cos(COUNTER+E5)
  463. Return 
  464. SRT46:
  465. X46#=Cos(COUNT+F5)
  466. Y46#=Cos(COUNTER+F5)
  467. Return 
  468. SRT47:
  469. X47#=Cos(COUNT+G5)
  470. Y47#=Cos(COUNTER+G5)
  471. Return 
  472. SRT48:
  473. X48#=Cos(COUNT+Rnd(180))
  474. Y48#=Cos(COUNTER+Rnd(180))
  475. Return 
  476. SRT49:
  477. X49#=Cos(COUNT+A6)
  478. Y49#=Cos(COUNTER+A6)
  479. Return 
  480. SRT50:
  481. X50#=Cos(COUNT+B6)
  482. Y50#=Cos(COUNTER+B6)
  483. Return 
  484. SRT51:
  485. X51#=Cos(COUNT+C6)
  486. Y51#=Cos(COUNTER+C6)
  487. Return 
  488. SRT52:
  489. X52#=Cos(COUNT+D6)
  490. Y52#=Cos(COUNTER+D6)
  491. Return 
  492. SRT53:
  493. X53#=Cos(COUNT+E6)
  494. Y53#=Cos(COUNTER+E6)
  495. Return 
  496. SRT54:
  497. X54#=Cos(COUNT+F6)
  498. Y54#=Cos(COUNTER+F6)
  499. Return 
  500. SRT55:
  501. X55#=Cos(COUNT+G6)
  502. Y55#=Cos(COUNTER+G6)
  503. Return 
  504. SRT56:
  505. X56#=Cos(COUNT+Rnd(180))
  506. Y56#=Cos(COUNTER+Rnd(180))
  507. Return 
  508. SRT57:
  509. X57#=Cos(COUNT+A7)
  510. Y57#=Cos(COUNTER+A7)
  511. Return 
  512. SRT58:
  513. X58#=Cos(COUNT+B7)
  514. Y58#=Cos(COUNTER+B7)
  515. Return 
  516. SRT59:
  517. X59#=Cos(COUNT+C7)
  518. Y59#=Cos(COUNTER+C7)
  519. Return 
  520. SRT60:
  521. X60#=Cos(COUNT+D7)
  522. Y60#=Cos(COUNTER+D7)
  523. Return 
  524. SRT61:
  525. X61#=Cos(COUNT+E7)
  526. Y61#=Cos(COUNTER+E7)
  527. Return 
  528. SRT62:
  529. X62#=Cos(COUNT+F7)
  530. Y62#=Cos(COUNTER+F7)
  531. Return 
  532. SRT63:
  533. X63#=Cos(COUNT+G7)
  534. Y63#=Cos(COUNTER+G7)
  535. Return 
  536. TEND:
  537. A=Exist("MEGADEMO1:cosmic.amos")
  538. If A=0 Then Goto ST
  539. Dir$="MEGADEMO1:"
  540. Screen 0
  541. Fade 5 : Wait 75 : For Z=63 To 0 Step -1 : Wait Vbl : Mvolume Z : Next Z : Screen Close 0 : Screen Close 1 : Screen Close 2 : Run "cosmic.amos"