10  REM *LOG MONITOR*
20  DIM A$[80],B$[80],C$[80]
30  FILES *
40  ASSIGN "LOGMON",1,R1, NR 
50  IF R1#0 THEN 40
60  READ #1,1
70  IF TYP(1)=3 THEN 130
80  READ #1,1;A$,B
90  PRINT "** LOGON ";A$;"  PORT";B;
100  PRINT '7
110  SYSTEM X,"PAU-10"
120  PRINT #1,1; END 
130  ASSIGN *,1
140  SYSTEM X,"PAU-10"
150  GOTO 40
160  END 
