10
20
30
40
50
60
70 :
80
90
100 :
110 DEFFNNetFS_Op(A%,A$)=FNNetFS_OpN(A%,0,7,A$)
120 DEFFNNetFS_OpN(A%,T%,O%,A$):LOCALN%
130 IFHIMEM>&FFFF:X%?4=T%:$(X%+O%-3)=A$:SYS&60048,A%,X%+4,O%+LENA$,120TON%:IFN%=0:X%?3=0:=0
140 IFHIMEM>&FFFF:IFN%>&FFFF:X%?3=?N%:SYS&2002B,N%+4TO$(X%+4):=X%?3
150 !X%=0:X%?1=O%+1+LENA$:X%!3=A%:X%?7=T%:$(X%+O%)=A$:A%=&14:CALL&FFF1:=X%?3