F1=Help
F2=Menue
F3=View
F4=Edit
F5=Copy
F6=Rename/Move
F7=MkDir
F8=Delete
F9=Function
(calls up a command line with menus at the top)
F10=Exit

ALT+F-Key:
F1=Left
F2=Right
F3=View2
F4=Edit
F5=Compress
F6=DeCompress
F7=Find (file)
F8=Batch
F9=EGA (Video Mode)
F10=Tree

'* Supported keys:
'* left arrow, right arrow
'* Enter
'* Esc
'* Home
'* End
'* Del
'* Ins
'* Backspace
'* all ASCII chars (char 32-126)

Sub TtView(FName$)
Const LinesPP = 37'lines per page
Local string LN$
Local lineCount
Close #1
Open FName$ For INPUT As #1
If Lof(#1) Then
Do
 CLS
 lineCount = 0
 Do Until Eof(#1)
   On error ignore
   If LN$ ="" Then
     Line Input #1,LN$
     If MM.Errno>0 Then
      cprint(38,MM.ErrMsg$)
      mywait
      Close #1
      Exit Sub
     EndIf
   EndIf
   Print Left$(LN$,80)
   LN$ =Mid$(LN$,81)
   Inc lineCount
 Loop Until lineCount+1 > LinesPP
 If getKey("-")=27 Then Close #1:Exit Sub
Loop While Not Eof(#1)
EndIf
Close #1
End Sub

Function getKey(msg$,ln) As integer
 If msg$="-" Then
   msg$="Press any key!"
 EndIf
 If ln=0 Then ln=39
 cprint(ln,msg$)
 Do :getKey=Asc(Inkey$):Loop While getKey=0
End Functio

Sub CPrint(line%,msg$,cl)
 Print @((Int(80-cl)/2)*FW,line%*FH)Space$(cl);
 Print @((Int(80-Len(msg$))/2)*FW,line%*FH)msg$;
End Sub