input"Default string to be edit or not";s$
if s$ = "" then s$="default string"
print s$

input"Default string to be edit or not";s$
if s$ = "" then s$="default string"
print s$

MM.keybuf$="default string"
input"Default string to be edit or not";s$
print s$

Z$="default value"
Do
getstring("some string = ", Z$)
Print "<" Z$ ">"
Print
Loop Until Z$="quit"
End



Sub getstring(A$, B$)
Print Chr$(13) A$ B$ Chr$(13) A$;
Do
I=Asc(Inkey$)
Loop Until I=13 Or I=8
If I=8 Then
For J=1 To Len(B$): Print " ";:Next J
For J=1 To Len(B$): Print Chr$(8);:Next J
Input "", B$
Else
Print
EndIf
End Sub

'*************************************************
'*
'* MASKEdit$ V.95
'* mod of LineEdit()
'* MMBasic 4.5/Maximite
'*
'* line editor for small strings (e.g. file names
'* time$, date$ ...)
'* MASKEdit$("12:45:56",1,"##.##.##")
'* MASKEdit$(" TEST.BAS",1," . ")
'* Special mask characters:
'* " " any ascii character
'* "#" any number(0-9)
'* "." skip char will be ignored/skipped
'* "@" numbers & letters (not yet implemented!)
'* Used functions: FindLeft,FindRight,IsNum
'* Limit:
'* The string must not exceed the width of screen
'*------------------------------------------------
Function MaskEdit$ edText$, cursorp, edMask$
Local hpos, vpos, p, ep, keyvalue, enterPressed
Local text$,ltext$,mtext$,rtext$,C$,M$,Mask$
Local TRUE, FALSE

TRUE=1
FALSE=0
hpos=MM.HPos:vpos=MM.VPos ' save print position
text$=edText$ ' use local copy of text$ string
MaskEdit$=edText$ ' backup edText$ for Esc
enterPressed=FALSE ' Flag to EXIT the loop
escPressed=FALSE ' a Global var
ep=Len(text$) ' end pointer
C$="." ' prohibited/skipped char
p=cursorp:If Not p Then p=1 ' cursor pointer
Mask$=edMask$ ' local copy

If ep<>Len(Mask$) Then Mask$=Space$(ep)
Pause 200 ' es gibt einen Zeitfaktor fuer keyboard input buffer ~140ms

ltext$=Mid$(text$,1,p-1)
mtext$=Mid$(text$,p,1)
rtext$=Mid$(text$,p+1,ep-p)

Print @(hpos,vpos)ltext$;
Font#1,,1
Print mtext$;
Font#1
Print rtext$;

Do
Do:keyvalue=KeyDown:Pause 50:Loop While keyvalue=0

If keyvalue=130 And p>1 Then
p=FindLeft(Mask$,C$,p) 'p=p-1 'left arrow
EndIf
If keyvalue=131 And p<ep Then 'p=p+1 'right arrow
p=FindRight(Mask$,C$,p)
EndIf
If keyvalue=13 Then
enterPressed=TRUE 'Enter
EndIf
If keyvalue=27 Then 'Esc
Print @(hpos,vpos)MaskEdit$;
escPressed=TRUE
EndIf
If keyvalue=134 Then 'Home
p=1
If Mid$(text$,p,1)=C$ Then
p=FindLeft(Mask$,C$,p)
EndIf
EndIf
If keyvalue=135 Then 'End
p=ep
If Mid$(text$,p,1)=C$ Then
p=FindRight(Mask$,C$,p)
EndIf
EndIf

If keyvalue>=32 And keyvalue<127 Then 'all ASCII chars
M$= Mid$(Mask$,p,1)

If m$=" " Or (m$="#" And IsNum(Chr$(keyvalue))) Then ' num mask, only numbers
If p<ep Then
ltext$=ltext$+Chr$(keyvalue)
If Mid$(Mask$,p+1,1)=C$ Then ltext$=ltext$+Mid$(Text$,p+1,1)
p=FindRight(Mask$,C$,p)
mtext$=Mid$(text$,p,1)
rtext$=Mid$(text$,p+1)
Else
ltext$=Left$(text$,p-1)
mtext$=Chr$(keyvalue)
rtext$=""
EndIf
EndIf

ElseIf keyvalue=132 Then 'insert, when dot is on the right _and_
If mask$=" . " And p<9 Then ' mask$=" . "
mtext$=" "
ltext$=Mid$(text$,2,p-1)
EndIf
ElseIf keyvalue=127 Then 'Del
If mask$=" . " And p<9 Then ' mask$=" . "
If p>1 Then
mtext$=Mid$(text$,p-1,1)
ltext$=" "+Mid$(text$,1,p-2)
Else
mtext$=" "
EndIf
EndIf
ElseIf keyvalue=8 And p>1 Then 'Bsp, delete left space
p=FindLeft(Mask$,C$,p)
mtext$=" "
ltext$=Mid$(text$,1,p-1)
rtext$=Mid$(text$,p+1)
Else
If p>=ep Then p=ep
ltext$=Mid$(text$,1,p-1) 'move cursor / over write
mtext$=Mid$(text$,p,1)
rtext$=Mid$(text$,p+1,ep-p)
EndIf

Print @(hpos,vpos)ltext$;
Font#1,,1
Print mtext$;
Font#1
Print rtext$;

text$=Left$(ltext$+mtext$+rtext$,ep)

Pause 125 ' some wait states to slow down key input
Loop While Not enterPressed And Not escPressed
If Not escPressed Then
MaskEdit$=ltext$+mtext$+rtext$
Print @(hpos,vpos)MaskEdit$;
EndIf
End Function
'*****************************************************


Function IsNum(Num$)
IsNum=(Asc(Num$)>=48) And (Asc(Num$)<58)
End Function


Function FindRight(S$,C$,p)
Local i
If p<=Len(S$) Then
For i = p+1 To Len(S$)
If Mid$(s$,i,1)<>C$ Then Exit For
Next i
EndIf
If i=0 Then i=p
FindRight=i
End Function


Function FindLeft(S$,C$,p)
Local i
If p>1 Then
For i = p-1 To 1 Step-1
If Mid$(s$,i,1)<>C$ Then Exit For
Next i
EndIf
If i=0 Then i=p
FindLeft=i
End Function
'--^^^^^^^ used by MaskEdit ^^^^^^--