'example for function to input keypresses

Do
 Print "type command ";
 b$=input_esc$()
 Print
 If b$<>"" Then
   Print "execute ";b$
 Else
   Print "exit "
 End If
Loop Until Instr(b$,"quit")
End

Function input_esc$()
 Local a$
 Do
   Do
     a$=Inkey$
   Loop Until a$<>""
   If a$=Chr$(27) Then a$="":Exit Do
   Print a$;
   input_esc$=input_esc$+a$
 Loop Until a$=Chr$(13)
End Function

'SCREEN SAVER - Matrix
Sub SSMatrix
Local matr(CHR),fade(CHR),clr,x
For x=1 To CHR:matr(x)=CVR*Rnd:fade(x)=&hF*Rnd:Next
Do
 For x=1 To CHR
   clr=&h1000*(fade(x)-&hF) And &hFF00
   Colour clr
   Text x*FW-FW,matr(x)*FH,Chr$(Rnd*223+32)
   'Print @(x*FW-FW,matr(x)*FH)Chr$(Rnd*223+32);
   If matr(x)>CVR  Then matr(x)=0 Else Inc matr(x)
   If fade(x)=&hF0 Then fade(x)=0 Else Inc fade(x)
 Next
 Pause 50 'Pause 10
Loop While Inkey$=""
Colour c(15)
End Sub

'example for function to input keypresses

Do
 Print "type command ";
 b$=input_esc$()
 Print
 If b$<>"" Then
   Print "execute ";b$
 Else
   Print "exit "
 End If
Loop Until Instr(b$,"quit")

End


Function input_esc$()
 Local a$
 Do
   Do
     a$=Inkey$
   Loop While a$=""
   If a$=Chr$(27) Then a$="":Exit Do
   If a$=Chr$(8) Then
     Print a$;" ";a$;
     input_esc$=Left$(input_esc$,Len(input_esc$)-1)
   Else
     Print a$;
     input_esc$=input_esc$+a$
   End If
 Loop Until a$=Chr$(13)
End Function