home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / routines / typewriter.amos / typewriter.amosSourceCode
Encoding:
AMOS Source Code  |  1992-10-04  |  724 b   |  24 lines
  1. ' NOTE: X and Y refer to the Text Coordinates
  2. '       P refers to the pause between each letter
  3. '       A$ can be any message you like.  
  4.  
  5. Screen Open 0,320,256,8,Lowres
  6. Paper 0 : Curs Off : Hide : Cls 0
  7. _TYPEWRITER[100,100,5,"Buy FontX Ver2.0"]
  8. _TYPEWRITER[60,150,5,"Consult help file for info"]
  9. Procedure _TYPEWRITER[X,Y,P,A$]
  10. Gr Writing 0
  11.  ' *** Number of first Letter to be printed *** 
  12.    A=1
  13.    ' *** Set up Length of Text in Characters ***
  14.    For B=0 To Len(A$)
  15.       ' *** Locate and define String *** 
  16.      Text X,Y,Left$(A$,A)
  17.       ' *** Slow down text *** 
  18.       Wait P
  19.       Inc A
  20.    Next B
  21. End Proc
  22.  
  23. ' *** Typewriter emulates an effect much admired ? *** 
  24. ' *** in coding circles.                           ***