home *** CD-ROM | disk | FTP | other *** search
/ 1st Canadian Shareware Disc / 1st_Canadian_Shareware_Disc_1991.ISO / graphics / greet90 / greet90.stx / credit.txt < prev    next >
Text File  |  1990-11-20  |  613b  |  51 lines
  1. video g
  2. START:
  3. pfree 1
  4. cfree 1,-,99
  5. ffree 1,2
  6. when esc
  7. set esc off
  8. color 0
  9. edge on 15
  10. pfade 9,0,120
  11. edge off
  12. pload credit,1
  13. cload lant1,1,1
  14. cload lant2,2,1
  15. cload lant3,3,1
  16. cload lant4,4,1
  17. palette 1
  18. setpage 1,0
  19. pfade 0,1
  20. setpage 1,1
  21. window 0,0,639,205
  22. edge on 15
  23. pfade 10,1,80
  24. edge off
  25. pfree 1
  26. setpage 1,0
  27. mark 13
  28.     putup 0,0,1,12
  29.     revpage
  30.     putup 0,0,2,12
  31.     revpage
  32.     putup 0,0,3,6
  33.     revpage
  34.     putup 0,0,4,6
  35.     revpage
  36.     putup 0,0,3,7
  37.     revpage
  38.     putup 0,0,2,8
  39.     revpage
  40. loop
  41. cfree 1,-,4
  42. setpage 1,1
  43. color 0
  44. edge on 15
  45. pfade 9,0,70
  46. edge off
  47. window
  48. setpage 1,0
  49. clearscr
  50. exit
  51.