! > BLib.NetFS 1.00 07Jan1992 :  Net Filing System Routines ( ========================== 2: <: F, NetFS_Op - NetFS file server operation P, Returns file server return code - 0=ok Z9 --------------------------------------------------- d- Command line NetFS_Op( 0, command$) nI Examine NetFS_Op( 3, CHR$ arg+CHR$ ptr+CHR$ num+filename$) x. Cat Header NetFS_Op( 4, pathname$) D Open NetFS_Op( 6, CHR$ create+CHR$ read+filename$) 0 Close NetFS_Op( 7, CHR$ handle) : Read Info NetFS_Op(12, CHR$ handle+CHR$ type) ; Read Disks NetFS_Op(14, CHR$ first+CHR$ number) ; Read Users NetFS_Op(15, CHR$ first+CHR$ number) ' Read Time NetFS_Op(16, "") 0 Read EOF NetFS_Op(17, CHR$ handle) 7 Read Info NetFS_Op(18, CHR$ arg+filename$) > Write Attr NetFS_Op(19, CHR$4+CHR$ attr+filename$) . Delete NetFS_Op(20, filename$) ' Read Env NetFS_Op(21, "") 0 Set Boot NetFS_Op(22, CHR$ option) ' Logoff NetFS_Op(23, "") . User Info NetFS_Op(24, username$) ' FS Version NetFS_Op(25, "") . Read Free NetFS_Op(26, discname$) ": Create Dir NetFS_Op(27, CHR$ blocks+pathname$) ,. User Free NetFS_Op(30, username$) 6' WhoAmI NetFS_Op(32, "") @; Who Am I Extn NetFS_Op(33, CHR$ first+CHR$ number) J. User Info extn NetFS_Op(34, username$) T* Manager 0 NetFS_Op(36, CHR$0) ^: Manager 1 NetFS_Op(36, CHR$1+CHR$ usernumber) h4 Manager 3 NetFS_Op(36, CHR$3+username$) r4 Manager 4 NetFS_Op(36, CHR$4+username$) |E Manager 5 NetFS_Op(36, CHR$5+username$+CHR$13+CHR$ priv) 4 Manager 6 NetFS_Op(36, CHR$6+username$) * Manager 7 NetFS_Op(36, CHR$7) * SysInfo 0 NetFS_Op(65, CHR$0) = SysInfo 1 NetFS_Op(65, CHR$1+CHR$ printernumber) * SysInfo 5 NetFS_Op(65, CHR$5) 7 SysInfo 6 NetFS_Op(65, CHR$6+CHR$ printer) * SysInfo 7 NetFS_Op(65, CHR$7) < SysInfo 8 NetFS_Op(65, CHR$8+CHR$ messagelevel) ? SysInfo 10 NetFS_Op(65, CHR$10+CHR$ printersetting) + SysInfo 11 NetFS_Op(65, CHR$11) : SysInfo 12 NetFS_Op(65, CHR$12+CHR$ privilege) B SysInfo 15 NetFS_Op(65, CHR$15+CHR$ number+CHR$ first) ' Encryption NetFS_Op(66, "") * Backup 0 NetFS_Op(67, CHR$0) * Backup 2 NetFS_Op(67, CHR$2) * Backup 4 NetFS_Op(67, CHR$4) &9 --------------------------------------------------- 0NݤNetFS_Op(A%,A$):!X%=0:X%?1=8+ A$:X%!3=A%:$(X%+7)=A$:A%=&14:&FFF1:=X%?3 :: D: NI NetFS_OpN - NetFS file server operation with supplied string offset X, Returns file server return code - 0=ok bI ------------------------------------------------------------------- lK Write PTR X%?8=0:X%!9=size%:A%=FNNetFS_OpN(13, handle, 12, "") vK Write EXT X%?8=1:X%!9=size%:A%=FNNetFS_OpN(13, handle, 12, "") ^ Write Info X%!8=load%:X%!12=exec%:X%?16=attr%:A%=FNNetFS_OpN(19, 1, 17, filename$) F Write Load X%!8=load%:A%=FNNetFS_OpN(19, 2, 12, filename$) F Write Exec X%!8=exec%:A%=FNNetFS_OpN(19, 3, 12, filename$) F Write Date X%!8=cdate:A%=FNNetFS_OpN(19, 5, 10, filename$) h Write Date+Time X%!8=cdate:X%!10=ctime:X%!13=mdate:X%!15=mtime:A%=FNNetFS_OpN(19,64,18,filename$) K Set Time X%!7=date:X%!9=time:A%=FNNetFS_OpN(28, date, 12, "") L Set Free X%!7=space%:A%=FNNetFS_OpN(31, space%, 11, username$) B Manager 2 X%!8=... :A%=FNNetFS_OpN(36, 2, length, "") Y Read Accounts X%!8=first:X%!10=number:X%!12=disc:A%=FNNetFS_OpN(64, arg, 13, "") C SysInfo 16 X%!8=... :A%=FNNetFS_OpN(65, 16, length, "") M Backup 1 X%!8=offset:X%!10=number:A%=FNNetFS_OpN(67, 1, 12, "") B Backup 3 X%!8=... :A%=FNNetFS_OpN(67, 3, length, "") I ------------------------------------------------------------------- `ݤNetFS_OpN(A%,T%,O%,A$):!X%=0:X%?1=O%+1+A$:X%!3=A%:X%?7=T%:$(X%+O%)=A$:A%=&14:&FFF1:=X%?3  : :