home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / amos / amosfrac / showj.amos / showj.amosSourceCode
AMOS Source Code  |  1995-03-16  |  1KB  |  41 lines
  1. '******************* 
  2. '***  SLIDESHOW  ***   
  3. '*** julia plots ***   
  4. '***   B.HILLS   ***   
  5. '******************* 
  6. Screen Open 0,320,256,32,Lowres
  7. Flash Off : Curs Off : Hide : Cls 0
  8. Screen Open 1,320,256,32,Lowres : Cls 0
  9. Do 
  10.    Read P$ : If P$="end" Then Fade 3 : Wait 100 : Run "df0:MENU.AMOS"
  11.    PIC$="df0:"+P$+".iff"
  12.    Load Iff PIC$,1 : Screen Hide 1 : Screen 0 : Fade 3 : Wait 3*15
  13.    Randomize Timer : Cls Rnd(14)+1
  14.    Get Palette 1
  15.    Wait 100
  16.    For X=1 To 160 : Wait 2
  17.       Screen Copy 1,160-X,0,160+X,260 To 0,160-X,0,%11000000
  18.       If Inkey$=" " Then Wait Key 
  19.       If Mouse Key>0 Then Run "df0:MENU.AMOS"
  20.    Next X
  21.    If P$="sjtitle" Then Ink 10 : Paper 0 : Locate 8,28 : Print "press spacebar to pause"
  22.    If P$="sjtitle" Then Locate 8,29 : Print "press mouse key to quit" : Goto AA
  23.    CYCLE
  24. AA: Loop 
  25. Data "sjtitle","j1","j2","j3"
  26. Data "j4","j5","j6","j7","end"
  27. Procedure CYCLE
  28.    For CY=1 To 200
  29.       CYCLOID
  30.    Next CY
  31. End Proc
  32. Procedure CYCLOID
  33.    For ROT=1 To 31
  34.       C=Colour(1)+ROT
  35.       Colour ROT,Colour(ROT+1)
  36.       If Inkey$=" " Then Wait Key 
  37.       If Mouse Key>0 Then Run "df0:MENU.AMOS"
  38.    Next ROT
  39.    Colour 31,C
  40.    Wait 2
  41. End Proc