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)