home *** CD-ROM | disk | FTP | other *** search
/ Merciful 3 / Merciful_Release_3.bin / software / m / magic_story_book / magicstorybook1.dms / magicstorybook1.adf / AUTO / UNEEDTHIS2 / UNEEDTHIS2.amosSourceCode < prev   
AMOS Source Code  |  1988-10-24  |  1KB  |  49 lines
  1. 'Magic Storybook start up program  
  2. 'copyright Jayne and Richard Dunn 16th September 1991
  3. 'copyright SoftStuff 1991
  4. 'Magic Storybook TM is the copyright of Jayne and Richard Dunn 
  5. 'and Rise Time Electronics Ltd.
  6. '
  7. Screen Open 0,640,256,2,Hires
  8. Break Off 
  9. Flash Off 
  10. Curs Off : Hide 
  11. Dim HUE(15)
  12. BN=14
  13. Gosub GT_BN_PALT
  14. Gosub FAD_TO_BACKG
  15. Flash Off 
  16. Wait Vbl 
  17. Unpack BN To 0
  18. Palette HUE,HUE,HUE,HUE,HUE,HUE,HUE,HUE,HUE,HUE,HUE,HUE,HUE,HUE,HUE,HUE
  19. Curs Off 
  20. Wait Vbl 
  21. 2010 Fade 4,HUE(0),HUE(1),HUE(2),HUE(3),HUE(4),HUE(5),HUE(6),HUE(7),HUE(8),HUE(9),HUE(10),HUE(11),HUE(12),HUE(13),HUE(14),HUE(15)
  22.      FAD_ALL[4]
  23. '
  24. Locate 6,23 : Pen 6 : Paper 0 : Print "PLEASE"; : Locate 30,23 : Print "WAIT";
  25. Run "MAGIC_STORY/MSXX"
  26. End 
  27. '
  28. FAD_TO_BACKG:
  29.    Colour Back Colour(0)
  30.    HUE=Colour(0)
  31. View 
  32. Fade 5,HUE,HUE,HUE,HUE,HUE,HUE,HUE,HUE,HUE,HUE,HUE,HUE,HUE,HUE,HUE,HUE
  33. Wait 1
  34. Return 
  35. '    
  36. GT_BN_PALT:
  37. PTR=Start(BN)+26
  38. For I=0 To 15 : HUE(I)=Deek(PTR+I*2) : Next I
  39. HUE(0)=1678
  40. Return 
  41. '
  42. Procedure FAD_ALL[W]
  43.    Rol.l 4,W
  44.    For T=1 To W
  45.       Colour Back(Colour(0))
  46.       View 
  47.       Wait Vbl 
  48.    Next 
  49. End Proc