home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / routines / centext.amos / centext.amosSourceCode
Encoding:
AMOS Source Code  |  1992-10-04  |  1.3 KB  |  49 lines
  1. ' Procedure to centre any text on any AMOS screen  
  2. ' using the Text command (similar to BASIC Centre command) 
  3. ' it can also work on a super-bitmap (i.e.  bigger than the
  4. ' screen)
  5. ' Author: Neil Wright
  6. '
  7. Rem *** GOS$ can be any text string that you require *** 
  8. Rem *** YTXT refers to the positioning of the text on the y axis *** 
  9. Rem *** in SCREEN coordinates                                    *** 
  10. '
  11. Rem *** It is interesting to note that AMOS measures the *** 
  12. Rem *** y coordinate from the bottom of the text rather than *** 
  13. Rem *** the top ***        
  14. '
  15. ' *** Example 1 ***
  16. Screen Open 0,320,256,4,Lowres
  17. Gosub SET_UP_SCREEN
  18. Proc _CENXTEXT["Centres any text......",100]
  19. Wait 100
  20. Fade 4 : Wait 50
  21. '
  22. ' *** Example 2 ***
  23. Screen Open 0,640,256,4,Hires
  24. Gosub SET_UP_SCREEN
  25. Proc _CENXTEXT["On any screen........",100]
  26. Wait 100 : Fade 4 : Wait 50
  27. '
  28. ' *** Example 3 ***
  29. Screen Open 0,640,256,4,Lowres
  30. Gosub SET_UP_SCREEN
  31. Ink 2 : Box 11,1 To 639,199
  32. Proc _CENXTEXT["even on a super-bitmap",100]
  33. Wait 100
  34. Channel 1 To Screen Offset 0
  35. Amal 1,"Move 300,0,300"
  36. Amal On 1
  37. Wait 300 : Fade 4 : Wait 50
  38. '
  39. Stop 
  40. '  
  41. SET_UP_SCREEN:
  42. Curs Off : Flash Off : Hide : Gr Writing 0 : Cls 0 : Ink 2
  43. Return 
  44. '
  45. Procedure _CENXTEXT[GOS$,YTXT]
  46.    JON=Screen Width
  47.    A=Len(GOS$)
  48.    Text JON/2-(A*8/2),YTXT,GOS$
  49. End Proc