home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / various / d16.amos / d16.amosSourceCode
AMOS Source Code  |  1978-02-21  |  769b  |  39 lines
  1. Screen Open 0,320,200,4,Lowres
  2.  Print "Invoer routine door dhr.Vogel" : Print 
  3.  Input "Geef de X-Positie ";X
  4.  Input "Geef de Y-Positie ";Y
  5.  Input "Geef de lengte van de regel ";M
  6.  Input "Geef de karakter code (42 = *) ";C
  7.  Cls 
  8.  Proc INVOER[X,Y,M,C]
  9.  Cls : Print "Druk op een toets..."
  10.  Wait Key 
  11.  Dir$="AMOS DEMONSTRATIONS #1:"
  12.  Run "menu.amos"
  13. Procedure INVOER[X,Y,M,C]
  14.  Shared W$
  15.  W$=""
  16.  Locate X,Y
  17.  Print Repeat$(Chr$(C),M)
  18.  Locate X,Y
  19.  Repeat 
  20.   I$=""
  21.   While I$="" : I$=Inkey$ : Wend 
  22.   If(Asc(I$)>64 or Asc(I$)=32) and Len(W$)<M
  23.    Shoot 
  24.    Print I$;
  25.    W$=W$+I$
  26.   End If 
  27.   If I$=Chr$(8)
  28.    Play 8,0
  29.    Print I$;
  30.    Print Chr$(C);
  31.    Cleft 
  32.    W$=Left$(W$,Len(W$)-1)
  33.   End If 
  34.   If Len(W$)=M
  35.    Play 40,0
  36.    W$=Left$(W$,M)
  37.   End If 
  38.  Until I$=Chr$(13)
  39. End Proc