home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 226-250 / apd244 / progs / slideshower.amos / slideshower.amosSourceCode
AMOS Source Code  |  1990-12-28  |  622b  |  24 lines
  1. Screen Open 0,320,256,64,Lowres
  2. Flash Off : Hide : Paper 0 : Pen 2 : Cls 
  3. Curs Off 
  4. Cls 
  5. If Exist("DF0:Music/Music.abk")=0 Then Goto PICLOAD
  6. Load "df0:music/music.abk" : Music 1
  7. PICLOAD:
  8. PIC=1
  9. PIC$=Str$(PIC)
  10. Do 
  11. If Exist(PIC$)=0 Then Goto NOFIND
  12. Load Iff PIC$
  13. PIC=PIC+1
  14. PIC$=Str$(PIC)
  15. Wait Key 
  16. Fade 5 : Wait 75 : Cls 0
  17. Loop 
  18. NOFIND:
  19. Screen Open 0,320,200,4,Lowres
  20. Flash Off : Curs Off : Paper 0 : Pen 2 : Cls 
  21. Home : Centre "SLIDESHOWER was written by CHRIS HURST."
  22. Locate 0,2 : Print "The program was written using AMOS Basic"
  23. Locate 0,5 : Centre "Okay. We've ran out of Pics so BYE!!!"
  24. Wait 150 : Fade 5 : Wait 75 : End