Procedure NAME_GET
Screen Open 0,320,200,2,Lowres : Show On 
Colour 1,$FFF : Curs Off 
Reserve Zone 29
For J=1 To 26 Step 10
   For K=0 To 9
      If J+K<27
         Print At(K*3+5,(J/10)*3+5);Zone$(Border$(Chr$(64+J+K),1),J+K);
      End If 
   Next K
Next J
Limit Mouse 150,70 To 400,150
Print At(23,11);Zone$(Border$("_",1),27)
Print At(26,11);Zone$(Border$("<<",1),28)
Print At(30,11);Zone$(Border$("*",1),29)
Print At(9,14);Border$(At(29,16),1)
A$=""
Do 
Do 
Z=Mouse Zone
If Z>0 and Z<27
   Dec Z : J=Z/10 : K=Z-(Z/10*10)
   Inverse On : Print At(K*3+5,J*3+5);Border$(Chr$(65+J*10+K),1);
   Repeat : Until Mouse Zone<>Z+1 or Mouse Key<>0
   Inverse Off : Print At(K*3+5,J*3+5);Border$(Chr$(65+J*10+K),1);
   Inc Z
End If 
If Z>26 and Z<30 : 
   Inverse On 
   If Z=27 : Print At(23,11);Border$("_",1); : End If 
   If Z=28 : Print At(26,11);Border$("<<",1); : End If 
   If Z=29 : Print At(30,11);Border$("*",1); : End If 
   Repeat : Until Mouse Zone<>Z or Mouse Key<>0
   Inverse Off 
   If Z=27 : Print At(23,11);Border$("_",1); : End If 
   If Z=28 : Print At(26,11);Border$("<<",1); : End If 
   If Z=29 : Print At(30,11);Border$("*",1); : End If 
End If 
If Mouse Key<>0 and Z<>0 : Exit : End If 
Loop 
If(Z>0) and(Z<27) and(Len(A$)<20) : A$=A$+Chr$(64+Z) : End If 
If(Z=27) and(Len(A$)<20) : A$=A$+" " : End If 
If(Z=28) and(Len(A$)>1) : A$=Left$(A$,Len(A$)-1) : End If 
If(Z=29) : Exit : End If 
Print At(9,15);Space$(20)
Print At(9,15);A$
Bell 30+Z : Wait 5
Repeat : Until Mouse Key=0
Loop 
If A$="" : A$="**John Dough**" : End If 
A#=Len(A$)/2.0 : A$=Left$(Space$(20),10-A#)+A$ : A$=Left$(A$+Space$(20),20)
Cls 
End Proc[A$]