home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 351-375 / apd353 / iff-fonts / fontdisplay.amos / fontdisplay.amosSourceCode < prev   
AMOS Source Code  |  1991-10-18  |  658b  |  49 lines
  1. Dir$="ZIRUS_Progs#2:IFF-FONTS/"
  2. Volume 0
  3. Music 1
  4. For A=1 To 63
  5.    Volume A : Wait 2
  6. Next A
  7. '
  8. Dim N$(11)
  9. Restore N
  10. For I=1 To 11 : Read N$(I) : Next I
  11. N:
  12. Data "Font1"
  13. Data "Font2"
  14. Data "Font3"
  15. Data "Font4"
  16. Data "Font5"
  17. Data "Font6"
  18. Data "Font7"
  19. Data "Font8"
  20. Data "Font9"
  21. Data "Font10"
  22. Data "Font11"
  23. '
  24. For N=1 To 11
  25.    Auto View Off 
  26.    Load Iff N$(N),0 : Hide 
  27.    Gosub MOVE
  28.    Wait 500
  29.    Fade 2 : Wait 30
  30. Next N
  31. '
  32. Volume 63
  33. Music 1
  34. Wait Key 
  35. Dir$="ZIRUS_Progs#2:"
  36. For A=63 To 0 Step -1
  37.    Volume A : Wait 2
  38. Next A
  39. End 
  40. '
  41. MOVE:
  42. Screen Display 0,140,-300,,
  43. Auto View On 
  44. Channel 0 To Screen Display 0
  45. Amal 0,"M 0,342,171"
  46. Amal On 
  47. While Chanmv(0)
  48. Wend 
  49. Return