home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / maksiu / utils / eaissue3b.lha / Source_Code / UN-Big_Letters.AMOS / UN-Big_Letters.amosSourceCode
Encoding:
AMOS Source Code  |  1995-12-30  |  583 b   |  18 lines
  1. ' Can handle up to 40 characters per line
  2. ' Although this can be altered to suit 
  3. ' Your own needs.
  4. ' NOTE: It auto-configures size of text and spacing
  5.      ' *** Set up workscreen ***
  6.      Screen Open 0,320,256,32,Lowres
  7.      Curs Off : Paper 0 : Hide : Cls 0
  8.      ' *** Set up Screen to print to ***
  9.      Screen Open 1,320,256,32,Lowres
  10.      Curs Off : Paper 0 : Hide : Cls 0
  11.      A$="Font X is great!"
  12. _TXTZOOM[A$]
  13. Procedure _TXTZOOM[A$]
  14. Screen 0 : Gr Writing 0 : Text 0,6,A$
  15.    Zoom 0,0,0,(Len(A$))*8,8 To 1,0,0,200,32 : Screen 1
  16. End Proc
  17.  
  18. ' *** A simple Text string Enlarger ***