RFUNL1  connects diagnostic file.  IPRSUP = -1  in  STARTUP  suppresses such output (see Jan, 96, newsletter).
  RFUNL1  connects  DEBUG.LIS  file.  IPRSUP = -1  in  STARTUP  suppresses such output (see Jan, 96, newsletter).
  GNU RFUNL1 defines SLOT1 =
 both D:\ATP\500\maotou\raoji3\noM\work.atp s -r                                                                                                                                                         
                     KPARAM = 1
  RSTART,  old and new LIMCRD = 0 30000
  RFUNL1 sets final  LINUSE = -1
  Exit  LOWCAS  with  TEXT(1:K2) =.lis  
  Exit  LOWCAS  with  TEXT(1:K2) =.pch  
  Exit  LOWCAS  with  TEXT(1:K2) =.pl4  
  Begin LFLUSH by setting L6HAND = -99.
  over1 defines  DENABL =$ENABLE 
  Top of CIMAG4.  KPARAM = 1
  Top of CIMAG4.  SLOT1 =
 both D:\ATP\500\maotou\raoji3\noM\work.atp s -r                                                                                                                                                         
  CIMAG4 checks for  FILE.  J = 0
  CIMAG4 loads param.  KPARAM, J = 1 4
  CIMAG4 loads param  CIM132 =
 both                                                                                                                                
  CIMKEY  uses  LINUSE, N = -1 0
  CIMKEY  right-most nonblank  N32 = 4
  Bottom of  CIMKEY.   N36, N32, CIM132(1:N32) = 0 4both
  over1 finds column  KWCOMM, KILL = 57 0
  Top of CIMAG4.  KPARAM = 6
  Top of CIMAG4.  SLOT1 =
 both D:\ATP\500\maotou\raoji3\noM\work.atp s -r                                                                                                                                                         
  CIMAG4 loads param.  KPARAM, J = 6 42
  CIMAG4 loads param  CIM132 =
 D:\ATP\500\maotou\raoji3\noM\work.atp                                                                                               
  CIMKEY  uses  LINUSE, N = -1 0
  CIMKEY  right-most nonblank  N32 = 37
  Bottom of  CIMKEY.   N36, N32, CIM132(1:N32) = 0 37
 D:\ATP\500\maotou\raoji3\noM\work.atp
  over1 finds column  KWCOMM, KILL = 0 0
  Input data file  JUNIT6(1:N8) =D:\ATP\500\MAOTOU\RAOJI3\NOM\WORK.ATP
  Input arg?   k, L, INCDAT, KCARD1 = 132 0 0 1
  allocated array2 in writ10,limitcards,nextblock= 30000 20000
  allocated array3 in writ10,limitcards,nextblock= 60000 30000
  Begin new  DIMENS.   NCHARG, LISBEG = -55222 -22666
  Initialize.   LUNDAT, LUNIT6, NUMDCD, LISBEG = 3 6 0 -22666
  DIMENS builds  BUFF77 =
 listsize.dat                                                                    
         length  LENPTH = 0
  DIMEN1 builds  BUFF77 =
 listsize.dat                                                                    
         length  LENPTH = 0
  Exit new  DIMENS.   LISBEG = 0
  Begin new  DIMENS.   NCHARG, LISBEG = 20 0
  Done 20.   LSIZE(1:8) = 0 340000 29 3 23 192000 1 6002
  Exit new  DIMENS.   LISBEG = 0
  OVER1 checks  LSTAT(14) = 0
  Begin copy loop to store at bottom with reverse
  indexing.  When done, there will be message.
  Before  DO 1816.  LIMCRD = 30000
  FNDFIL incoming arg =
 D:\ATP\ATP-2018-11\ATP_D05\500\maotou\raoji3\noM\dahao.lib                                                                          
  over1 sets nchain = 29.  kill = 79
  Top of main20 services normal KILL-code error stop.
  SUBR29 at 2932.  L6DISK, D4FACT = -2244 -5.
  Two or more HP-GL plots?  KNTHPG = 0