home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / AllPlaton / Unsorted / Psychedillic.AMOS / Psychedillic.amosSourceCode < prev   
Encoding:
AMOS Source Code  |  1993-08-14  |  493 b   |  19 lines
  1. Hide 
  2. Dim P(4)
  3. Unpack 9 To 0 : Screen Hide 
  4. Screen Open 1,320,256,2,0 : Screen Hide 
  5. Curs Off : Cls : L=Logbase(0) : LE=40*256
  6. Screen Open 2,320,256,16,0
  7. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  8. Screen Display 2,128,40,320-32,256-32
  9. Palette 0,$F00,$F0,$FF0,$F,$F0F,$FF0,$FFF,$0,$800,$80,$80,$8,$808,$880,$888
  10. Degree 
  11. Do 
  12.   For A=0 To 3
  13.     X=Cos(P(A))*16-16 : Y=Sin(P(A))*16-16
  14.     Screen Copy 0,0,0,320,256 To 1,X,Y
  15.     Copy L,L+LE To Logbase(A)
  16.     Add P(A),A+1
  17.   Next 
  18.   Wait Vbl 
  19. Loop