home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / subroutines / lazer_text.amos / lazer_text.amosSourceCode
Encoding:
AMOS Source Code  |  2014-06-18  |  1.4 KB  |  62 lines
  1. '********************************************* 
  2. '*                                           * 
  3. '*                LAZER TEXT                 * 
  4. '*                ----------                 * 
  5. '*                                           * 
  6. '*               By M.Lavery.                * 
  7. '*                                           * 
  8. '********************************************* 
  9. '
  10. '********************************************* 
  11. '* Open dual screens and define scroll zones * 
  12. '********************************************* 
  13. '
  14. Screen Open 1,320,20,2,Lowres
  15. Palette $0,$F00
  16. Cls 0
  17. Flash Off 
  18. Def Scroll 1,0,0 To 320,15,0,1
  19. Set Rainbow 1,0,4000,"(1,1,10)(1,-1,10)","",""
  20. Rainbow 1,0,247,20
  21. Screen Open 0,320,20,2,Lowres
  22. Cls 0
  23. Flash Off 
  24. Palette $0,$555
  25. Def Scroll 2,0,0 To 320,15,0,-1
  26. Screen Display 0,120,250,,
  27. Screen Display 1,120,250,,
  28. Wait Vbl 
  29. Dual Playfield 1,0
  30. '
  31. LEV=1
  32. '************* 
  33. '* Main Loop * 
  34. '************* 
  35. '
  36. PLACETEXT["LOADIN LEVEL"+Str$(LEV),1]
  37. Procedure PLACETEXT[TEX$,SPEED]
  38. Screen 1
  39. Text 180-Len(TEX$)/2*9,10,TEX$
  40. Repeat 
  41.    Screen 0
  42.    Scroll 1
  43.    Screen 1
  44.    Scroll 2
  45.    '
  46.    '******************************
  47.    '* Copy front top to back top *    
  48.    '******************************
  49.    '
  50.    Screen Copy 1,0,0,550,1 To 0,0,0
  51.    '
  52.    '************************************
  53.    '* Copy back bottom to front bottom *
  54.    '************************************
  55.    '
  56.    Screen Copy 0,0,14,550,15 To 1,0,14
  57.    '    
  58.  Wait Vbl 
  59. Wait SPEED
  60. Until Inkey$<>""
  61.  
  62. End Proc