10 REM EZFiler for NC100 : Mark Ray : Released under GPL Dec 1995
   11 REM Press first letter of command to choose.
   13 :
   15 ON ERROR IF ERR=17 THEN CHAIN "AUTO" ELSE REPORT:PRINT " at ";ERL:END
   20 READ _N:DIM _$(_N-1):FOR I=0 TO _N-1:READ _$(I):NEXT
   30 REPEAT:CLS:VDU14,32,88:FORI=0TO_N-1:PRINT SPC(4);_$(I);:NEXT I
   40   PRINT SPC(80-POS);CHR$(15):LET _K$=CHR$(GET AND 95)
   50   IF _K$<>"X" THEN LET _O=EVAL("FN"+_K$)
  100 UNTIL _K$="X":END
  110 DATA7,"About","List","Delete","Move","Copy","Run","View"
  200 DEFFNA:PRINT 'TAB(10);"EZ Filer by Mark Ray"''TAB(16);"Hit a key";:=GET
  210 DEFFNL:PRINT 'TAB(10);"Use arrows to select, Enter to finish";INKEY(200):OSCLI".":=0
  220 DEFFNM:GOSUB 260:OSCLI "RENAME "+C$+" "+M$:PRINT "OK":=INKEY(200)
  230 DEFFND:PRINT 'TAB(10);"Use arrows to select, Del to delete, Enter to finish";INKEY(300):OSCLI".":=0
  240 DEFFNC:GOSUB 260:CA=OPENIN(C$):CB=OPENOUT(M$)
  250 REPEAT:BPUT#CB,(BGET#CA):UNTIL EOF#CA:PRINT"OK":=INKEY(200)
  260 PRINT '"   From";:INPUT LINE C$:PRINT '"     To";:INPUT LINE M$:RETURN
  270 DEFFNR:INPUT '"Run ";R$:CHAIN R$:=0
  280 DEFFNV:INPUT '"View ";V$:VA=OPENIN(V$):REPEAT:INPUT#VA,V$:PRINTV$:UNTILEOF#VA:CLOSE#VA:=INKEY(200)