home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / amos / amosfrac / showm.amos / showm.amosSourceCode
AMOS Source Code  |  1995-03-16  |  1KB  |  60 lines
  1. '******************* 
  2. '***  SLIDESHOW  *** 
  3. '*** mandelbrots *** 
  4. '***   B.HILLS   *** 
  5. '******************* 
  6. Screen Open 0,320,260,32,Lowres
  7. Flash Off : Curs Off : Hide : Cls 0
  8. Fade 1 : Wait 16 : Auto View Off 
  9. Load Iff "df0:smtitle.iff",0 : Screen Clone 1
  10. Ink 10 : Paper 0
  11. Locate 8,28 : Print "press spacebar to pause"
  12. Locate 8,29 : Print "press mousekey to quit"
  13. Screen To Front 0
  14. For X=0 To 31 : Colour X,0 : Next X
  15. View : Auto View On 
  16. Fade 3 To 1 : Screen Close 1
  17. Read P$ : Read C
  18. PIC$="df0:"+P$+".iff"
  19. Load Iff PIC$,1
  20. Screen Hide 1
  21. Wait Vbl 
  22. Screen 0
  23. Fade 7 To 1
  24. Wait 100
  25. Appear 1 To 0,C
  26. CYCLE
  27. Do 
  28.    Read P$ : If P$="end" Then Wait 100 : Fade 3 : Wait 50 : Run "df0:MENU.AMOS"
  29.    Read C
  30.    Auto View Off 
  31.    PIC$="df0:"+P$+".iff"
  32.    Load Iff PIC$,1
  33.    Screen Hide 1
  34.    Wait Vbl 
  35.    Auto View On 
  36.    Screen 0
  37.    Fade 7 To 1
  38.    Wait 100
  39.    Appear 1 To 0,C
  40.    CYCLE
  41.    If Inkey$=" " Then Wait Key 
  42.    If Mouse Key>0 Then Run "df0:MENU.AMOS"
  43. Loop 
  44. Data "m1",121,"m2",131,"m3",141
  45. Data "m4",151,"m5",163,"m6",171,"end"
  46. Procedure CYCLE
  47.    For CY=1 To 250
  48.       CYCLOID
  49.    Next CY
  50. End Proc
  51. Procedure CYCLOID
  52.    For ROT=1 To 31
  53.       C=Colour(1)+ROT
  54.       Colour ROT,Colour(ROT+1)
  55.       If Inkey$=" " Then Wait Key 
  56.       If Mouse Key>0 Then Run "df0:MENU.AMOS"
  57.    Next ROT
  58.    Colour 31,C
  59.    Wait 2
  60. End Proc