home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 126-150 / apd150 / brian's_themeii.amos / brian's_themeii.amosSourceCode
Encoding:
AMOS Source Code  |  1990-08-11  |  749 b   |  38 lines
  1. ' Brian's Theme ][.    
  2. ' In 64 colour HAM mode! 
  3. ' Which is different from v1.  
  4. ' Some of which by:  
  5. ' R.Crawley  
  6. ' and is:  
  7. ' Copyright (c) 1991.  
  8. ' Hyper-Galactic MegaSoftware inc. 
  9. Screen Open 0,320,200,64,Lowres
  10. Curs Off 
  11. Hide 
  12. Randomize Timer
  13. R=1
  14. Repeat 
  15.    Cls 2
  16.    A=Rnd(300)+20
  17.    B=Rnd(190)+10
  18.    LINE_COLOUR=Rnd(64)
  19.    If R=1
  20.       I=(Rnd(62)+2) : Inc R
  21.    Else 
  22.       I=(Rnd(4)+2) : Dec R
  23.    End If 
  24.    For X=0 To 320 Step I
  25.       For S=0 To I
  26.          Ink LINE_COLOUR*S
  27.          Polyline(X+S),0 To A,B To(320-X-S),200
  28.       Next S
  29.    Next X
  30.    LINE_COLOUR=Rnd(64)
  31.    For Y=0 To 200 Step I
  32.       For S=0 To I
  33.          Ink LINE_COLOUR*S
  34.          Polyline 320,(Y+S) To A,B To 0,(200-Y-S)
  35.       Next S
  36.    Next Y
  37.    Wait 100
  38. Until False