10 ! FNLOGOUT.BAS
1005 INTEGER : EXTEND 
10000 ! 
10010 ! *****************************************
10020 ! *
10030 ! *  Logout user
10040 ! *
10050 DEF FNLogout LOCAL Buff$=0,Error
10060   POKE VAROOT(Buff$),0,1,0,PEEK(64787),0,1
10070   ! *
10080   ! *  Clear ufd/lfd/pfd pointers
10090   ! *
10100   POKE PEEK2(24685),0,0,0 ! Clear UFD pointer.
10110   POKE PEEK2(24695),0,0,0 ! Clear LFD pointer.
10120   POKE PEEK2(24697),0,0,0 ! Clear PFD pointer.
10130   ! *
10140   ! *  Clear user/password/group field
10150   ! *
10160   Buff$=SPACE$(32)
10170   Error=FNTalknet(14+64,1,0,0,0,0)
10180   IF Ctrlcsaver POKE 65413,Ctrlcsaver,SWAP%(Ctrlcsaver)
10190   IF Error THEN ; 'Error' Error 'during logout' : RETURN T
10200   RETURN F
10210 FNEND