--- freem_fileman/USER/DINIT21.m 2025/04/28 14:13:20 1.1 +++ freem_fileman/USER/DINIT21.m 2025/04/28 19:23:48 1.2 @@ -43,5 +43,24 @@ DD F I=1:1 S X=$T(DD+I),Y=$P(X," ",3,99) ;;18,"SDPEND" W !,"#$#",! C IO ;;18,"XY" S $Y=IOY,$X=IOX ;;18,"ZS" ZR X "S %Y=0 F S %Y=$O(^UTILITY($J,0,%Y)) Q:%Y="""" Q:'$D(^(%Y)) ZI ^(%Y)" ZS @X + ;;19,0 FreeM^^250^1048576^^1^250 + ;;19,1 BREAK -2 + ;;19,8 ; FILEMAN APPARENTLY DOESN'T NEED THIS + ;;19,18 W "What's this do?",! + ;;19,"DEL" W "Nope!",! + ;;19,"EOFF" S ^$DEVICE($IO,"OPTIONS","ECHO")=0 + ;;19,"EON" S ^$DEVICE($IO,"OPTIONS","ECHO")=1 + ;;19,"LOAD" S %N=0 X "ZL @X F XCNP=XCNP+1:1 S %N=%N+1,%=$T(+%N) Q:$L(%)=0 S @(DIF_XCNP_"",0)"")=%" + ;;19,"NO-TYPE-AHEAD" S ^$DEVICE($IO,"OPTIONS","NOTYPEAHEAD")=1 + ;;19,"RM" U $I ; hmm + ;;19,"RSEL" Q 0 + ;;19,"TRMOFF" U $IO::$C(10,13,27) + ;;19,"TRMON" U $IO::$C(0,1,2,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,127) + ;;19,"TRMRD" S Y=$K + ;;19,"TYPE-AHEAD" S ^$DEVICE($IO,"OPTIONS","NOTYPEAHEAD")=0 + ;;19,"UCICHECK" S Y=$$UCICHECK^%ZOSV(X) + ;;19,"XY" S $X=IOX,$Y=IOY + ;;19,"ZS" ;;100,0 OTHER^^40^5000 ;;100,1 Q + \ No newline at end of file