home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 4: Phase Four / 17Bit_Phase_Four.iso / files / 3034.dms / 3034.adf / pretty.AMOS / pretty.amosSourceCode
Encoding:
AMOS Source Code  |  1993-02-25  |  548 b   |  19 lines
  1. 'converted from an old stos listing
  2. Screen Open 0,320,180,16,Lowres
  3. Screen Open 1,640,20,2,Hires
  4. Curs Off 
  5. Print "this is screen  1"
  6. Screen 0
  7. 10 Curs Off : Hide On : Cls 0 : Autoback OFF
  8. 11 Def Scroll 1,0,0 To 288,32,32,0 : Def Scroll 2,0,0 To 320,176,0,32
  9. 12 Palette 0,$71,$62,$53,$44,$35,$26,$17
  10. 14 C=1 : CC=1
  11. 20 Dim A(1) : A(0)=359 : A(1)=0
  12. 30 For L=0 To 1
  13. 40 X=16+Sin(A(L)/7.7)*16 : Y=16+Cos(A(L)/6.7)*16
  14. 50 A(L)=(A(L)+1) mod 360
  15. 60 Ink L*C : Plot X,Y : Plot Y,X
  16. 80 Next L
  17. 82 C=C+CC : If C=7 or C=1 Then CC=-CC
  18. 85 Scroll 1 : Scroll 2
  19. 90 Goto 30