home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / subroutines / center_font_demo.amos / center_font_demo.amosSourceCode
AMOS Source Code  |  1993-03-07  |  3KB  |  139 lines
  1. '************************************
  2. '*                                  *
  3. '*      Center Text Font Demo       *
  4. '*      --------------------        *
  5. '*                                  *
  6. '*      By Malcolm Lavey 1993       *
  7. '*                                  *
  8. '************************************
  9. '
  10. '
  11. Screen Open 0,320,400,8,Lowres
  12. Palette $0,$FFF
  13. Flash Off : Cls 0 : Ink 1,0 : Hide On 
  14. Autoback 0 : Bob Update Off 
  15.  
  16. Def Scroll 1,0,0 To 320,400,0,-1
  17.  
  18.  
  19.  
  20. Get Disc Fonts 
  21. Restore DF
  22. Do 
  23.    
  24.    
  25.    If TIM=30
  26.       
  27.       Read MES$
  28.       If MES$="E"
  29.          Wait 100
  30.          
  31.          Fade 1,$FFF
  32.          Wait 20
  33.          Fade 5,$0,$0
  34.          Wait 100
  35.          Wait Key 
  36.          
  37.       End If 
  38.       
  39.       CENTERTEXT[0,350,7,MES$,1,0,1]
  40.       
  41.       TIM=0
  42.    End If 
  43.    
  44.    Inc TIM
  45.    If TIM>30
  46.       TIM=0
  47.    End If 
  48.    
  49.    Scroll 1
  50.    Wait Vbl 
  51. Loop 
  52.  
  53. '
  54. Procedure CENTERTEXT[DEST,YPOS,TYPE,TEX$,FGROUND,BGROUND,EFFECT]
  55.    '
  56.    '**********************
  57.    'Set destination screen
  58.    '**********************
  59.    '
  60.    Screen DEST
  61.    '
  62.    '************************************
  63.    '         Set writing mode 
  64.    '************************************    
  65.    '
  66.    Gr Writing EFFECT
  67.    '
  68.    '************************************
  69.    '     Set pen and paper colours
  70.    '************************************
  71.    '
  72.    Ink FGROUND,BGROUND
  73.    '
  74.    '************************************
  75.    '          Get font type 
  76.    '************************************
  77.    '
  78.    Set Font TYPE
  79.    '  
  80.    '************************************
  81.    '    Get screen and text lengths 
  82.    '************************************
  83.    '  
  84.    SCWIDTH=Screen Width(DEST)
  85.    TEXLENGTH=Text Length(TEX$)
  86.    '
  87.    '************************************  
  88.    ' Place text at middle of the screen 
  89.    '     minus half the text length 
  90.    '************************************
  91.    '        
  92.    Text SCWIDTH/2-TEXLENGTH/2,YPOS,TEX$
  93.    '    
  94.    '********************************* 
  95.    '      Reset writing mode
  96.    '     and default screen(0)
  97.    '********************************* 
  98.    '
  99.    Gr Writing 1
  100.    Screen 0
  101.    '
  102. End Proc
  103. DF:
  104. Data "CRITTERS"
  105. Data "THE"
  106. Data "MOVIE"
  107. Data "   "
  108. Data "   "
  109. Data "   "
  110. Data "PROGRAMMER"
  111. Data "Malcolm Lavery"
  112. Data "         "
  113. Data "         "
  114. Data "         "
  115. Data "GRAFIX"
  116. Data "Malcolm Lavery"
  117. Data "        "
  118. Data "         "
  119. Data "         "
  120. Data "SOUND FX"
  121. Data "Malcolm Lavery"
  122. Data "           "
  123. Data "           "
  124. Data "         "
  125. Data "An AMOS Production"
  126. Data "(C) 1993"
  127. Data "           "
  128. Data "           "
  129. Data "           "
  130. Data "           "
  131. Data "             "
  132. Data "THE END"
  133. Data " "
  134. Data "  "
  135. Data "   "
  136. Data " "
  137. Data " "
  138. Data " "
  139. Data "E"