--- freem_fileman/USER/DINZFRM.m 2025/04/28 14:13:21 1.1 +++ freem_fileman/USER/DINZFRM.m 2025/04/28 19:23:48 1.2 @@ -8,12 +8,14 @@ DINZFRM ;VCL/SNW-SETS ^%ZOSF FOR FREEM ; Q ; Z ;; + ;;OS;; Operating System Name + ;;FreeM^19 ;;ACTJ ;;S Y=$$ACTJ^%ZOSV() ;;AVJ ;;S Y=$$AVJ^%ZOSV() ;;BRK - ;;B 1 + ;;BREAK -2 ;;CPU ;;Q ;;DEL @@ -87,11 +89,11 @@ Z ;; ;;TRAP ;;$ZT=X ;;TRMOFF - ;;S ^$DEVICE($IO,"OPTIONS","TERMINATOR")=$C(10) + ;;U $IO::$C(10,13,27) ;;TRMON - ;;S ^$DEVICE($IO,"OPTIONS","TERMINATOR")=$C(13,10) + ;;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) ;;TRMRD - ;;S Y=$ZB + ;;S Y=$K ;;TYPE-AHEAD ;;S ^$DEVICE($IO,"OPTIONS","NOTYPEAHEAD")=0 ;;UCI @@ -101,6 +103,6 @@ Z ;; ;;UPPERCASE ;;S Y=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ") ;;XY - ;;U $I:(::::::DY*256+DX) + ;;S $X=IOX,$Y=IOY ;;ZD - ;;S Y=$ZD(X) + ;;S Y=$ZD(X) \ No newline at end of file