helpTxt:
 DATA " FE v1.4"
 DATA " Use arrow keys to move between files, PgUp/PgDown to change pages"
 DATA " Home- Change to first file in root folder"
 DATA " End - select last file in current folder"
 DATA " Enter View Image and text files, PLAY audio files,"
 DATA "       load and RUN BAS files change folder"
 DATA " a/b - change drive"
 DATA " f   - toggle font size"
 DATA " u   - toggle colour"
 DATA " v   - view file (including BAS files)"
 DATA " t   - view as text"
 DATA " x   - view as HEX"
 DATA " esc - quit viewing or playing."
 DATA " i   - display info about the file"
 DATA " s   - send file to PC using XMODEM"
 DATA " m   - accept file from PC using XMODEM"
 DATA " del - permanently delete file."
 DATA " k   - permanently delete file."
 DATA " r   - rename file"
 DATA " c   - copy file"
 DATA " n   - make new directory"
 DATA " h   - display this help"
 DATA " q   - Quit"

'MartinCommander ;-) MC
'
MODE 1:Font 1:CLS RGB(blue)
Dim integer fh=MM.Info(FONTHEIGHT),fw=MM.Info(FONTWIDTH),fnr,dnr
Dim String folder(512)length 64
Dim string fls(512)length 64
topln%=0
dframe 0,topln%,39,28-topln%
dframe 40,topln%,39,28-topln%
MText 5,topln%+1,"Name        Size     Date    Time",RGB(Yellow),RGB(Blue)
MText 45,topln%+1,"Name        Size     Date    Time",RGB(Yellow),RGB(Blue)
hline 0,topln%+27,39,RGB(cyan),RGB(blue)
hline 40,topln%+27,39,RGB(cyan),RGB(blue)
vline 14,topln%,27-topln%,RGB(cyan),RGB(blue)
vline 24,topln%,27-topln%,RGB(cyan),RGB(blue)
vline 32,topln%,27-topln%,RGB(cyan),RGB(blue)
vline 54,topln%,27-topln%,RGB(cyan),RGB(blue)
vline 64,topln%,27-topln%,RGB(cyan),RGB(blue)
vline 72,topln%,27-topln%,RGB(cyan),RGB(blue)
tp1$=" "+Cwd$+" "
If Len(tp1$)>23 Then tp1$=Left$(tp1$,10)+"..."+Right$(tp1$,10)
xp=20-(Len(tp1$)/2)
mtext xp,topln%,tp1$,0,RGB(cyan)
mtext xp+40,topln%,tp1$,RGB(cyan),RGB(blue)
Text 0,fh*32,""
For f=0 To 511:fls(f)="":folder(f)="":Next

getdirs : getfiles

top=0:ln=2
Do
 dn$=folder(ln+top-2)
 Inc ln
 If dn$="" Then Exit
 If ln>26 Then Exit
 MTEXT 1,ln,dn$,RGB(GREEN),RGB(BLUE)
 MTEXT 15,ln,Chr$(&H94)+"SUB-DIR"+Chr$(&H95),RGB(GREEN),RGB(BLUE)
Loop

'showdirs(top)



Sub getfiles
 fnr=0
 fl$ = Dir$("*.*",FILE)
   Do While fl$ <> ""
     fls(fnr)=fl$:Inc fnr
     fl$ = Dir$()
 Loop
End Sub

Sub getdirs
dnr=0
fl$ = Dir$("*",DIR)
   Do While fl$ <> ""
     folder(dnr)=fl$ :Inc dnr
   fl$ = Dir$()
 Loop
End Sub

'Screen related subs
Sub hline  x,y,w,fc,BG
   Local integer f
   Text x*fw,y*fh,Chr$(&HC7),,1,,fc,bg
   Text (x+w)*fw,y*fh,Chr$(&HB6),,1,,fc,bg
   Text (x+1)*fw,y*fh,String$(w-1,&Hc4),,1,,fc,bg
End Sub

Sub vline x,y,h,fc,BG
   Local integer f
   Text x*fw,y*fh,Chr$(&HD1),,1,,fc,bg
   Text x*fw,(y+h)*fh,Chr$(&Hc1),,1,,fc,bg
       For f=y+fh To (y+h-1)*fh Step fh
   Text x*fw,f,Chr$(&HB3),,1,,fc,bg
   Next
End Sub

Sub dframe x,y,w,h
Local integer fc=RGB(CYAN),BG=RGB(BLUE)
For f=x To x+w-1
   Text f*fw,y*fh,Chr$(&HCD),,1,,fc,bg
   Text f*fw,(y+H)*fh,Chr$(&HCD),,1,,fc,bg
Next
For f=y To y+h-1
   Text x*fw,f*fh,Chr$(&HBA),,1,,fc,bg
   Text (x+w)*fw,f*fh,Chr$(&HBA),,1,,fc,bg
Next
Text x*fw,y*fh,Chr$(&Hc9),,1,,fc,bg
Text (x+w)*fw,y*fh,Chr$(&HBB),,1,,fc,bg
Text x*fw,(y+h)*fh,Chr$(&Hc8),,1,,fc,bg
Text (x+w)*fw,(y+h)*fh,Chr$(&HBC),,1,,fc,bg
End Sub

Sub MTEXT x,y,t$,fc,bg
Text x*fw,y*fh,t$,,1,,fc,bg
End Sub
>

Dim a%(5000)
For i=0 To 5000:a%(i)=i:Next
Input "File name: ",fname$
Edit File fname$
Print a%(222)

Edit File fname$ [,linenum]