home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / various / playing_with_text.amos / playing_with_text.amosSourceCode
AMOS Source Code  |  1991-08-01  |  720b  |  31 lines
  1. '
  2. ALERT["Please help me"]
  3. Wait 40
  4. VERTICAL_TEXT["This Text",2,2]
  5. Wait 40
  6. _GETSTRING["This is an example prompt","Default Answer"]
  7. Home : Print "You typed   ";Param$
  8. Wait Key 
  9. Edit 
  10. '
  11. Procedure VERTICAL_TEXT[A$,X,Y]
  12.    For N=1 To Len(A$)
  13.       Locate X,Y+N
  14.       Print Mid$(A$,N,1);
  15.    Next 
  16. End Proc
  17. Procedure ALERT[A$]
  18.    W=Windon : Window 0
  19.    Centre At(,23)+Space$(78)
  20.    Centre At(,23)+A$
  21.    Window W
  22. End Proc
  23. Procedure _GETSTRING[MESSAGE$,KEYBUFF$]
  24.    X=60 : Y=50 : W=Len(MESSAGE$)*8+8 : H=48
  25.    If KEYBUFF$<>"" Then Put Key KEYBUFF$
  26.    Get Cblock 1,X,Y,W,H
  27.    Box X+1,Y+1 To(X+W)-5,(Y+H)-1
  28.    Locate X Text(X+8),Y Text(Y+8) : Print MESSAGE$
  29.    Print : Locate X Text(X+8), : Input "";A$
  30.    Put Cblock 1
  31. End Proc[A$]