home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 126-150 / apd129 / lm / lm.amosSourceCode < prev    next >
AMOS Source Code  |  1990-08-11  |  584b  |  33 lines
  1. Proc SYNTEX
  2. Procedure SYNTEX
  3. Screen 1
  4. Fade 2
  5. Wait 40
  6. Screen 0
  7. Fade 2
  8. Wait 40
  9. Unpack 7 To 0
  10. Screen Hide 0
  11. Screen 0
  12. For N=0 To 31
  13. Colour N,0
  14. Next N
  15. Screen Show 0
  16. Screen Open 1,320,87,32,L
  17. Screen Display 1,128,310,320,87
  18. Curs Off 
  19. Flash Off 
  20. Hide 
  21. Cls 0
  22. Paste Bob 20,0,1
  23. Channel 1 To Screen Display 1
  24. Amal 1,"Loop:If Y<230 Jump X; Let Y=Y-1; Pause; Jump Loop;X:"
  25. Amal On 
  26. Get Sprite Palette 
  27. Screen 0
  28. Wait 10
  29. Fade 6,$0,$211,$311,$422,$532,$643,$754,$865,$976,$A87,$B98,$CA9,$CBB,$DCC,$EED,$FFF,$532,$632,$842,$932,$B32,$C21,$E11,$F00,$E43,$D65,$D87,$CA9
  30. Wait 90
  31. Screen 1
  32. Run "M"
  33. End Proc