home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 4: Phase Four / 17Bit_Phase_Four.iso / files / 3034.dms / 3034.adf / poly.AMOS / poly.amosSourceCode
Encoding:
AMOS Source Code  |  1993-02-25  |  671 b   |  21 lines
  1. 'converted from an old stos listing  
  2. 10 Curs Off : Hide On : Flash Off 
  3. 20 Palette 0,$700,$711,$722,$733,$744,$755,$766,$777,7
  4. Rem30 Volume 12 : Volume 16 : ENVEL 8,100 : Play 1,32,0 : Play 2,16,0 : Play 3,24,0
  5. 60 Def Scroll 1,0,0 To 256,64,64,0
  6. 70 Def Scroll 2,0,0 To 320,128,0,64
  7. 80 Wait Vbl 
  8. 90 A=0 : B=5 : C=1 : Q=32 : W=4 : QQ=2 : WW=1 : CS=1
  9. 100 Ink C
  10. 110 X=32+Sin(A/7.5)*31
  11. 120 Y=32+Cos(A/7.5)*31
  12. 130 Polyline 63-X,Y To 63-Q,63-W To Q,W To 63-X,Y
  13. 140 Screen Swap 
  14. 150 Q=Q+QQ : If Q=2 or Q=62 Then QQ=-QQ
  15. 160 W=W+WW : If W=2 or W=62 Then WW=-WW
  16. 170 Inc A
  17. 180 C=C+CS : If C=1 or C=8 Then CS=-CS
  18. 190 Scroll 1
  19. 200 Scroll 2
  20. Rem210 Cls Logic,0,0,0 To 64,64
  21. 220 Goto 100