see Old_open command for notes on this removal #COMMAND FILE$MODE RT #LGSU . #CHECK !1.RECNUM _RULG !A [] $0CB !1.RECNUM !2 #ENDCOMMAND
#IFDEF !1 // SET FILE SIZE
#CHECK !3.FILE_NUMBER _RU
#SET Q$ !3.FILE_NUMBER
!A [] $343 |CI!q !1
#ELSE
#CHECK !1.FILE_NUMBER _U
#SET Q$ !1.FILE_NUMBER
!A [] $82 |CI!q FILENUMBER
!A [] $341 !3 !4
!A [] $82 STRMARK !5
#ENDIF