freem_fileman/USER/DINIT21.m - diff

Return to DINIT21.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

-version 1.1, 2025/04/28 14:13:20
+version 1.2, 2025/04/28 19:23:48
  Line 43  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