home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / subroutines / tele_print.amos / tele_print.amosSourceCode
AMOS Source Code  |  1993-03-07  |  2KB  |  101 lines
  1. '************************************
  2. '*                                  *
  3. '*         Tele Print Text          *
  4. '*         ----------------         *
  5. '*                                  *
  6. '*      By Malcolm Lavey 1993       *
  7. '*                                  *
  8. '************************************
  9. '
  10. '
  11. '************************************
  12. '     Works on any size screen 
  13. '       and any screen mode
  14. '       with any size font!
  15. '************************************
  16. '
  17. Screen Open 0,320,256,16,Lowres
  18. Palette $0,$FFF
  19. Flash Off : Cls 0 : Ink 1,0
  20. Get Disc Fonts 
  21. '
  22. '
  23. '
  24. '  
  25. TELE_PRINT[0,40,20,3,"Hello everybody",5,1,0,1]
  26. TELE_PRINT[0,25,40,1,"This is a demo of tele print procedure",10,8,0,1]
  27. TELE_PRINT[0,0,70,7,"BIG FONTS ANY SIZE!",5,12,0,1]
  28. TELE_PRINT[0,40,60,1,"AND ALSO IN ANY GW WRITING MODE",8,1,0,0]
  29. '
  30. '
  31. '
  32. '
  33. Procedure TELE_PRINT[DEST,X,Y,TYPE,TEX$,DELAY,FGROUND,BGROUND,EFFECT]
  34.    '
  35.    POS=1
  36.    '
  37.    '**********************
  38.    'Set destination screen
  39.    '**********************
  40.    '
  41.    Screen DEST
  42.    '
  43.    '************************************
  44.    '         Set writing mode 
  45.    '************************************    
  46.    '
  47.    Gr Writing EFFECT
  48.    '
  49.    '************************************
  50.    '     Set pen and paper colours
  51.    '************************************
  52.    '
  53.    Ink FGROUND,BGROUND
  54.    '
  55.    '************************************
  56.    '          Get font type 
  57.    '************************************
  58.    '
  59.    Set Font TYPE
  60.    '  
  61.    '************************************* 
  62.    '     get width of one letter
  63.    '************************************* 
  64.    '
  65.  
  66.    '
  67.    '************************************
  68.    '    Get screen and text lengths 
  69.    '************************************
  70.    '  
  71.    SCWIDTH=Screen Width(DES)
  72.    TEXLENGTH=Text Length(TEX$)
  73.  
  74.    LE=Len(TEX$)
  75.    '
  76.    '************************************  
  77.    ' Calculate start position of text     
  78.    '************************************
  79.    '      
  80.    '  
  81.    Repeat 
  82.       '
  83.       TE$=Mid$(TEX$,POS,1)
  84. T=Text Length(TE$)
  85.       Text X+XPOS,Y,TE$
  86.       Add XPOS,T
  87.       Add POS,1
  88.       '      
  89.       Wait DELAY
  90.    Until POS=LE+1
  91.    '    
  92.    '    
  93.    '********************************* 
  94.    '      Reset writing mode
  95.    '     and default screen(0)
  96.    '********************************* 
  97.    '
  98.    Gr Writing 1
  99.    Screen 0
  100.    '
  101. End Proc