home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / demos / chaos_vec_intro.amos / chaos_vec_intro.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1992-02-09  |  2.4 KB  |  89 lines
  1. Extension_4_04D6 "chaos:objects/"
  2.  Extension_4_0016 "vector"
  3.  Extension_4_0016 "chaos"
  4. SRAL[N,TX$]
  5. Procedure SRAL[N,TX$]
  6.    Shared N,TX$
  7.    Z=6000
  8.    Screen Open 1,320,200,4,Lowres : Curs Off : Cls 0 : 
  9.    Autoback 0 : Flash Off 
  10.    STARS
  11.    Screen Open 0,320,200,16,Lowres
  12.    Double Buffer : Autoback 0 : Cls 0 : Flash Off 
  13.    Bob Update Off 
  14.     Extension_4_0548 
  15.     Extension_4_0054 200
  16.     Extension_4_0036 1,"vector",0,0,5000,1000,-6500,7000
  17.     Extension_4_0036 2,"chaos",0,0,5000,-10000,-6500,7000
  18.     Extension_4_0164 1,"(1,-900,9)L"
  19.     Extension_4_0164 2,"(1,1000,9)L"
  20.     Extension_4_00EC 1,0,-400,Z
  21.     Extension_4_00EC 2,0,600,Z
  22.     Extension_4_0318 
  23.    STARS
  24.    Randomize Timer
  25.    SCROL[TX$]
  26. BOPA:
  27.    SCOL
  28.    Inc N : If N>15 : N=1 : End If : Inc POS
  29.    LET$="ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789s    "
  30.    If POS>Len(TX$) Then POS=1
  31.    If Mouse Key=1
  32.       CLD
  33.    End If 
  34.    E$=Mid$(TX$,POS,1) : E=Instr(LET$,E$)
  35.    Set Bob N,-1,%1111,%11001010
  36.    Channel N To Bob N : Bob N,340,5,E
  37.    Amal N,"M -120,5,60;M -120,-5,60;M -120,5,60"
  38.    Amal On 
  39.    SCOL
  40.     Extension_4_053C 
  41.     Extension_4_0318 
  42.     Extension_4_049E 1,0,0,320,200 To 0,0
  43.    Bob Clear 
  44.    Bob Draw 
  45.    Screen Swap 
  46.    Goto BOPA
  47. End Proc
  48. Procedure SCROL[TX$]
  49.    Shared TX$
  50.    TX$=" A TEST INTRO BY ANGELDUST TO SEE WHAT POSSIBILITIES AMOS "
  51.    TX$=TX$+" 3D HOLDS FOR THE FUTURE ...."
  52.    TX$=TX$+" LATER             "
  53. End Proc
  54. Procedure CLD
  55.    Fade 5
  56.    Cls 0
  57.    End 
  58. End Proc
  59. Procedure STARS
  60.    Rem KBYTE starscrolly routine 1.1
  61.    Screen 1
  62.    Colour 1,$FFF : Flash Off 
  63.    Def Scroll 1,0,0 To 339,16,-1,0
  64.    Def Scroll 2,1,16 To 339,32,-2,0
  65.    Def Scroll 3,1,32 To 339,48,-3,0
  66.    Def Scroll 4,1,48 To 339,64,-1,0
  67.    Def Scroll 5,1,64 To 339,80,-2,0
  68.    Def Scroll 6,1,80 To 339,96,-1,0
  69.    Def Scroll 7,1,96 To 339,112,-2,0
  70.    Def Scroll 8,1,112 To 339,128,-3,0
  71.    Def Scroll 9,1,128 To 339,144,-1,0
  72.    Def Scroll 10,1,144 To 339,160,-2,0
  73.    Def Scroll 11,1,160 To 339,176,-1,0
  74.    Def Scroll 12,1,176 To 339,192,-3,0
  75.    Def Scroll 13,1,192 To 339,208,-2,0
  76.    Def Scroll 14,1,208 To 339,224,-1,0
  77.    Def Scroll 15,1,224 To 339,240,-3,0
  78.    Def Scroll 16,1,240 To 339,256,-1,0
  79. End Proc
  80. Procedure SCOL
  81.    Screen 1
  82.    M=256-(B*2)
  83.    Y=Rnd(M)
  84.    Plot 316,(B+Y),2
  85.    Scroll 1 : Scroll 2 : Scroll 3 : Scroll 4 : Scroll 5 : Scroll 6
  86.    Scroll 7 : Scroll 8 : Scroll 9 : Scroll 10 : Scroll 11 : Scroll 12
  87.    Scroll 13 : Scroll 14 : Scroll 15 : Scroll 16
  88.    Screen 0
  89. End Proc