home *** CD-ROM | disk | FTP | other *** search
AMOS Source Code | 1993-01-06 | 753 b | 21 lines |
- '
- ' *** SHIFTER ***
- '
- '
- ' * THIS ROUTINE DRAWS A RANDOM PATTERN OF CIRCLES ON SCREEN, THEN
- ' * COLOUR CYCLES THEM... IT LOOKS O.K ACTUALLY.
- '
- ' * HIT A KEY TO CHANGE THE PATTERN, CTRL & C QUITS!
- '
- Screen Open 0,320,200,16,Lowres : Curs Off : Flash Off : Cls 0
- Palette $0,$FFF,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
- 1 Do : Randomize Timer : RX=Rnd(60)+20 : RY=Rnd(60)+20
- C=1 : CX=160 : CY=100 : S#=0.03
- Cls 0
- S1=Rnd(50) : S2=Rnd(50) : S3=Rnd(5)+2 : S4=Rnd(5)+2
- For CX=160 To 160+S2 Step S4
- For Q#=0 To 2*Pi# Step S# : X=CX+Cos(Q#)*RX : Y=CY+Sin(Q#)*RY
- Ink C : Plot X,Y : C=C+1 : If C>16 Then C=1
- A$=Inkey$ : If A$="q" Then Goto 1
- Next Q# : Next : Rem Next
- Shift Up 1,1,15,1 : Wait Key : Shift Off : Loop