P*JOB,LIBRARY,INSTALL SYSTEM FILES IN PROGRAM LIBRARY PP*K,I6 PP*LIBEDT PP*N,SYMENU,,,A PP * SYSTEM MENU PP * PPUTIL UT - SYSTEM UTILITIES PPEDITOR ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILES PPMNUPRO DC - DAILY CYCLE, ON-LINE REPORTING AND PREPARATION PPMNUPRO HS - HISTORY SYSTEM PROCEDURES PPMNUPRO MT - SYSTEM FILE MAINTENANCE ROUTINES PPMNUPRO RP - ON DEMAND REPORTING PPMNUPRO RG - REPORT GENERATOR - REPORT DIRECTORY PPMNUPRO EX - EXIT PP*N,DCMENU,,,A PP * DAILY CYCLE MENU PP * PPDCCOLACT A - DAILY COLLECTOR ACTIVITY REPORTS PPDCPRTLTR B - PRINT REQUESTED LETTERS PPDCACTADD C - ADD THE COLLECTOR ACTIVITIES TO THE ACTIVITY FILE PPDCUPDTAP D - PROCESS COMPLETE UPDATE TAPE(S) FROM A/R SYSTEM PPDCNFINUP E - PROCESS 400 SERIES NON-FINANCIAL UPDATE (TAPE)S PPDCFINUPD F - PROCESS 500 SERIES FINANCIAL UPDATE TAPE(S) PPRPDRCIAC G - DELINQUENT RECORD CONTENT REPORT - (INACTIVE ACCOUNTS) PPRPDRCSRQ H - DELINQUENT RECORD CONTENT REPORT - (SUPERVISOR REQUESTS) PPDCUPDHIS I - UPDATE ACCOUNTS FROM HISTORY PPDCDUMMIE J** THE FOLLOWING PROCEDURES ARE TO BE RUN WHEN THE COLLECTORS PPDCDUMDUM K** ARE FINISHED WITH THE DAYS ACTIVITIES PPDCSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT PPDCBLDDAS M - CREATE DAILY ASSIGNMENT FILES PP Z - EXIT PP*N,HSMENU,,,A PP * HISTORY SYSTEM MENU PP * PPHSMOVHIS A - MOVE INACTIVE ACCOUNTS TO HISTORY FILES PPHSUPDTAP B - UPDATE ACTIVE ACCOUNTS FROM THE TAPE ARCHIVES PPHSPRGHIS C - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE PPHSPRGTAP D - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE PPMTPRGMST E - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) PP Z - EXIT PP*N,MTMENU,,,A PP * FILE MAINTENANCE MENU PP * PPMTRDRLTR A - LOAD THE LETTER DEFINITION FILE PPMTCONLTR B - CREATE THE LETTER FILE AND SAVE THE DEFINITIONS PPMTUTIFIL C - UTILITY FILE MAINTENANCE - ADD OR UPDATE UTILITY RECORDS PPMTDECTBL D - DECISION TABLE MAINTENANCE PPMTAVMDMP E - PRINT ACTIVITY VERIFICATION TABLE PPMTACTMTX F - CREATE THE ACTIVITY VERIFICATION TABLE PPMTSPCAUD G - FILE SPACE AUDIT- REPORTS PERCENTAGE OF UNUSED FILE SPACE PPHSPRGHIS H - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE PPHSPRGTAP I - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE PPMTLDSCRN J - LOAD SCREEN DEFINITION FILE PPMTSVSCRN K - CREATE THE SCREEN FILE AND SAVE THE DEFINITIONS PPMTPRGMST L - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) PPMTACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT PPMTUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE PPMTDETCRD O - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CARD INPUT PPMTDETCON P - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT PPMTPDFMTN Q - REPORT GENERATOR PROGRAM DIRECTORY FILE MAINTENANCE PPMTSCNPRT R - SCREEN FILE PRINT UTILITY PP Z - EXIT PP*N,RPMENU,,,A PP * ON DEMAND REPORT MENU PP * PPRPDRCIAC A - DELINQUENT RECORD CONTENT REPORT (INACTIVE ACCOUNTS) PPRPDRCSRQ B - DELINQUENT RECORD CONTENT REPORT (SUPERVISOR REQUESTS) PPRPTAPRRN C - TREND ANALYSIS-CALCULATE AGE- RUN BEFORE SELECTION D OR E PPRPTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE PPRPTAPTTY E - TREND ANALYSIS REPORT PRINTED BY PRODUCT TYPE PPRPWRTOFF F - ELIGIBLE/ACTUAL WRITE-OFF REPORT PPRPDLYASN G - DAILY ASSIGNMENT LIST PPRPSUMACT H - SUMMARY ACCOUNT LIST REPORT PPRPWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT PPRPMCOLST J - MONTHLY COLLECTOR STATISTICS REPORT PPRPTCNTRL K - CREATE REPORT GENERATOR PROGRAM PPPRFPG000 L - EXECUTE REPORT GENERATOR PROGRAM PP Z - EXIT PP*N,RGMENU,,,A PP * REPORT GENERATOR - REPORT DIRECTORY PP * PPPRFPG001 A - R.G. REPORT 1 - (AVAILABLE) PPPRFPG002 B - R.G. REPORT 2 - (AVAILABLE) PPPRFPG003 C - R.G. REPORT 3 - (AVAILABLE) PPPRFPG004 D - R.G. REPORT 4 - (AVAILABLE) PPPRFPG005 E - R.G. REPORT 5 - (AVAILABLE) PPPRFPG006 F - R.G. REPORT 6 - (AVAILABLE) PPPRFPG007 G - R.G. REPORT 7 - (AVAILABLE) PPPRFPG008 H - R.G. REPORT 8 - (AVAILABLE) PPPRFPG009 I - R.G. REPORT 9 - (AVAILABLE) PPPRFPG010 J - R.G. REPORT 10 - (AVAILABLE) PPPRFPG011 K - R.G. REPORT 11 - (AVAILABLE) PPPRFPG012 L - R.G. REPORT 12 - (AVAILABLE) PPPRFPG013 M - R.G. REPORT 13 - (AVAILABLE) PPPRFPG014 N - R.G. REPORT 14 - (AVAILABLE) PPPRFPG015 O - R.G. REPORT 15 - (AVAILABLE) PPPRFPG016 P - R.G. REPORT 16 - (AVAILABLE) PPPRFPG017 Q - R.G. REPORT 17 - (AVAILABLE) PPPRFPG018 R - R.G. REPORT 18 - (AVAILABLE) PPPRFPG019 S - R.G. REPORT 19 - (AVAILABLE) PP Z - EXIT PP*N,PROCED,,,A PPCARDPRO READER PPTAPEPRO TAPE0 PPDCCOLACT PRFDC001 PPDCPRTLTR PRFDC002 PPDCACTADD PRFDC003 PPDCUPDTAP PRFDC004 PPDCNFINUP PRFDC005 PPDCFINUPD PRFDC006 PPDCUPDHIS PRFDC007 PPDCDUMMIE PRFDC008 PPDCDUMDUM PRFDC009 PPDCSRTTRN PRFDC010 PPDCBLDDAS PRFDC011 PPHSMOVHIS PRFHS001 PPHSUPDTAP PRFHS002 PPHSPRGHIS PRFHS003 PPHSPRGTAP PRFHS004 PPMTRDRLTR PRFMT001 PPMTCONLTR PRFMT002 PPMTUTIFIL PRFMT003 PPMTDECTBL PRFMT004 PPMTAVMDMP PRFMT005 PPMTACTMTX PRFMT006 PPMTSPCAUD PRFMT007 PPMTLDSCRN PRFMT008 PPMTSVSCRN PRFMT009 PPMTPRGMST PRFMT010 PPMTACTMTN PRFMT011 PPMTUSEMTN PRFMT012 PPMTDETCRD PRFMT013 PPMTDETCON PRFMT014 PPMTPDFMTN PRFMT015 PPMTSCNPRT PRFMT016 PPRPDRCIAC PRFRP001 PPRPDRCSRQ PRFRP002 PPRPTAPRRN PRFRP003 PPRPTAPTQU PRFRP004 PPRPTAPTTY PRFRP005 PPRPWRTOFF PRFRP006 PPRPDLYASN PRFRP007 PPRPSUMACT PRFRP008 PPRPWCOLST PRFRP009 PPRPMCOLST PRFRP010 PPRPTCNTRL PRFCNTRL PPPRFPG000 PRFPG000 PPPRFPG001 PRFPG001 PPPRFPG002 PRFPG002 PPPRFPG003 PRFPG003 PPPRFPG004 PRFPG004 PPPRFPG005 PRFPG005 PPPRFPG006 PRFPG006 PPPRFPG007 PRFPG007 PPPRFPG008 PRFPG008 PPPRFPG009 PRFPG009 PPPRFPG010 PRFPG010 PPPRFPG011 PRFPG011 PPPRFPG012 PRFPG012 PPPRFPG013 PRFPG013 PPPRFPG014 PRFPG014 PPPRFPG015 PRFPG015 PPPRFPG016 PRFPG016 PPPRFPG017 PRFPG017 PPPRFPG018 PRFPG018 PPPRFPG019 PRFPG019 PP*N,USERID,,,A PP 00 PP 01 COLECT PP 02 COLECT PP 03 COLECT PP 04 COLECT PP 05 COLECT PP 06 COLECT PP 07 COLECT PP 08 COLECT PP 09 COLECT PP 10 COLECT PP 11 COLECT PP 12 COLECT PP 13 COLECT PP 14 COLECT PP 15 COLECT PP 16 COLECT PP 17 COLECT PP 18 COLECT PP 19 COLECT PP 20 COLECT PP 21 COLECT PP 22 COLECT PP 23 COLECT PP 24 COLECT PP 25 COLECT PP 26 COLECT PP 27 COLECT PP 28 COLECT PPCCS20 00 PP*Z PP*CTO, SYSTEM FILES ARE LOADED PP*Z PPINPUT=TAPE0 PPUTIL PPDELETE,FN=$$MOUNTS PPEX PPINPUT=TAPE0 PPUTIL PPDEFINE,FN=$$MOUNTS,ED=999999,TY=R,LR=42,NR=50,K1=2,P1=1,K2=8,P2=3 PPDEFINE,FN=PRFDC001,TY=S,LR=80,NR=45,ED=999999 PPDEFINE,FN=PRFDC002,TY=S,LR=80,NR=20,ED=999999 PPDEFINE,FN=PRFDC003,TY=S,LR=80,NR=20,ED=999999 PPDEFINE,FN=PRFDC004,TY=S,LR=80,NR=20,ED=999999 PPDEFINE,FN=PRFDC005,TY=S,LR=80,NR=20,ED=999999 PPDEFINE,FN=PRFDC006,TY=S,LR=80,NR=20,ED=999999 PPDEFINE,FN=PRFDC007,TY=S,LR=80,NR=20,ED=999999 PPDEFINE,FN=PRFDC008,TY=S,LR=80,NR=20,ED=999999 PPDEFINE,FN=PRFDC009,TY=S,LR=80,NR=20,ED=999999 PPDEFINE,FN=PRFDC010,TY=S,LR=80,NR=35,ED=999999 PPDEFINE,FN=PRFDC011,TY=S,LR=80,NR=40,ED=999999 PPDEFINE,FN=PRFHS001,TY=S,LR=80,NR=35,ED=999999 PPDEFINE,FN=PRFHS002,TY=S,LR=80,NR=30,ED=999999 PPDEFINE,FN=PRFHS003,TY=S,LR=80,NR=20,ED=999999 PPDEFINE,FN=PRFHS004,TY=S,LR=80,NR=20,ED=999999 PPDEFINE,FN=PRFMT001,TY=S,LR=80,NR=30,ED=999999 PPDEFINE,FN=PRFMT002,TY=S,LR=80,NR=30,ED=999999 PPDEFINE,FN=PRFMT003,TY=S,LR=80,NR=20,ED=999999 PPDEFINE,FN=PRFMT004,TY=S,LR=80,NR=20,ED=999999 PPDEFINE,FN=PRFMT005,TY=S,LR=80,NR=20,ED=999999 PPDEFINE,FN=PRFMT006,TY=S,LR=80,NR=20,ED=999999 PPDEFINE,FN=PRFMT007,TY=S,LR=80,NR=25,ED=999999 PPDEFINE,FN=PRFMT008,TY=S,LR=80,NR=30,ED=999999 PPDEFINE,FN=PRFMT009,TY=S,LR=80,NR=30,ED=999999 PPDEFINE,FN=PRFMT010,TY=S,LR=80,NR=20,ED=999999 PPDEFINE,FN=PRFMT011,TY=S,LR=80,NR=25,ED=999999 PPDEFINE,FN=PRFMT012,TY=S,LR=80,NR=25,ED=999999 PPDEFINE,FN=PRFMT013,TY=S,LR=80,NR=30,ED=999999 PPDEFINE,FN=PRFMT014,TY=S,LR=80,NR=35,ED=999999 PPDEFINE,FN=PRFMT015,TY=S,LR=80,NR=30,ED=999999 PPDEFINE,FN=PRFMT016,TY=S,LR=80,NR=30,ED=999999 PPDEFINE,FN=PRFRP001,TY=S,LR=80,NR=20,ED=999999 PPDEFINE,FN=PRFRP002,TY=S,LR=80,NR=20,ED=999999 PPDEFINE,FN=PRFRP003,TY=S,LR=80,NR=20,ED=999999 PPDEFINE,FN=PRFRP004,TY=S,LR=80,NR=30,ED=999999 PPDEFINE,FN=PRFRP005,TY=S,LR=80,NR=30,ED=999999 PPDEFINE,FN=PRFRP006,TY=S,LR=80,NR=30,ED=999999 PPDEFINE,FN=PRFRP007,TY=S,LR=80,NR=20,ED=999999 PPDEFINE,FN=PRFRP008,TY=S,LR=80,NR=20,ED=999999 PPDEFINE,FN=PRFRP009,TY=S,LR=80,NR=20,ED=999999 PPDEFINE,FN=PRFRP010,TY=S,LR=80,NR=20,ED=999999 PPDEFINE,FN=PRFCNTRL,TY=S,LR=80,NR=35,ED=999999 PPLOAD,FN=PRFDC001 PPCHEKID PP * THIS ROUTINE WILL PRINT - DAILY COLLECTOR UPDATE REPORT PP * - TIME USAGE REPORT PP * - DAILY COLLECTOR STATISTICS REPORT PP * PPINPUT=PRFDC001 PPUTIL PPCLEAR,FN=DLYWRK PPEX PPPRETSR PP * TRNSFL FILE IS NOW BEING SORTED PPINPUT=PRFDC001 PPDSORT PPFN=TRNSFL,CCS20 PPF2=TRNSFL,CCS20, PPOP=T,F,A PPKF=A,29,2,A,17,4,A,135,4,A,25,4,A,1,16,A,134,1 PPSL=I PP * THE TRNSFL FILE HAS BEEN SORTED PP * THE DAILY COLLECTOR UPDATE REPORT WILL BE PRINTED PPCOLCHG PP * THE DAILY COLLECTOR UPDATE REPORT IS COMPLETE PP * THE TIME USAGE REPORT WILL BE PRINTED PPTIMUSE PP * THE TIME USAGE REPORT IS COMPLETE PPINPUT=PRFDC001 PPSWITCH PP10000000 PP * THE DAILY STATISTICS REPORT WILL BE PRINTED PPCOLSTS PP * THE DAILY STATISTICS REPORT IS COMPLETE PP **** OPERATOR - PP * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE DAILY COUNT PP * PP * CARRIAGE RETURN ONLY - TO ZERO THE DAILY COUNT PPCCSPAS PPINPUT=PRFDC001 PPSWITCH PP00010000 PPCOLSTS PP * THIS ROUTINE IS COMPLETE PPMNUPRO PPLOAD,FN=PRFDC002 PPCHEKID PP **** OPERATOR - LOAD LETTER PAPER PP * CARRIAGE RETURN WHEN READY TO CONTINUE PP * PPCCSPAS PP * THE REQUESTED LETTERS WILL BE PRINTED PPLTRPRT PP * THE REQUESTED LETTERS HAVE BEEN PRINTED PP **** OPERATOR - LOAD REGULAR PAPER PP * CARRIAGE RETURN WHEN READY TO CONTINUE PP * PPCCSPAS PPMNUPRO PPLOAD,FN=PRFDC003 PPCHEKID PP * THE COLLECTOR ACTIVITIES WILL BE ADDED TO THE ACTIVITY FILE PPINPUT=PRFDC003 PPDSORT PPFN=TRNSFL,CCS20 PPF2=TRNSFL,CCS20, PPOP=T,F,A PPKF=A,21,4,A,25,4 PPSL=I PPACTADD PP * THE COLLECTOR ACTIVITIES HAVE BEEN ADDED TO THE ACTIVITY FILE PP * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE PP * WILL BE PRINTED PPACTMTN PP * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE PP * HAS BEEN PRINTED PPMNUPRO PPLOAD,FN=PRFDC004 PPCHEKID PP ****OPERATOR - MOUNT UPDATE INPUT TAPE ON TAPE UNIT '0' PP * PPINPUT=PRFDC004 PPMOUNT PPFTAPE,B,P PP/* PP * THE UPDATE TAPE WILL BE PROCESSED PPUPDATE PP * THE UPDATE TAPE HAS BEEN PROCESSED PP * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED PP **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING PP * SCREEN INFORMATION PPCCSSPC PPCCSPAS PP * THE FILE SPACE AUDIT REPORT IS COMPLETE PPMNUPRO PPLOAD,FN=PRFDC005 PPCHEKID PP * THE NON-FINANCIAL UPDATES WILL BE PROCESSED PP **** OPERATOR - NON-FINANCIAL UPDATE TAPE SHOULD BE MOUNTED ON UNIT '0' PP * PPINPUT=PRFDC005 PPMOUNT PPFTAPE,B,P PP/* PPUPD400 PP * THE NON-FINANCIAL UPDATES HAVE BEEN PROCESSED PPMNUPRO PPLOAD,FN=PRFDC006 PPCHEKID PP * THE FINANCIAL UPDATES WILL BE PROCESSED PP **** OPERATOR - FINANCIAL UPDATE TAPE SHOULD BE MOUNTED ON UNIT '0' PP * PPINPUT=PRFDC006 PPMOUNT PPFTAPE,B,P PP/* PPUPD500 PP * THE FINANCIAL UPDATES HAVE BEEN PROCESSED PPMNUPRO PPLOAD,FN=PRFDC007 PPCHEKID PP * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM HISTORY PPDHUPDT PPDHDELE PP * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM HISTORY PPMNUPRO PPLOAD,FN=PRFDC008 PPCHEKID PP * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE PP * COLLECTORS ARE OFF-LINE FOR THE DAY PPMNUPRO PPLOAD,FN=PRFDC009 PPCHEKID PP * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE PP * COLLECTORS ARE OFF-LINE FOR THE DAY PPMNUPRO PPLOAD,FN=PRFDC010 PPCHEKID PP **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE PP * RESPOND: 'N' CARRIAGE RETURN - TO ABORT PP * CARRIAGE RETURN ONLY - TO CONTINUE PP * PPCCSPAS PP * THE TRANSACTION FILE WILL BE SORTED FOR THE COLLECTORS REPORT PPINPUT=PRFDC010 PPDSORT PPFN=TRANFL,CCS20 PPF2=TRNSFL,CCS20, PPOP=T,F,A PPKF=A,29,2,A,17,4,A,1,16,A,21,4,A,25,4 PPSL=I PPINPUT=PRFDC010 PPUTIL PPCLEAR,FN=ACTIVE PPCLEAR,FN=TRANFL PPEX PP * THE TRANSACTION FILE HAS BEEN SORTED FOR THE COLLECTORS REPORT PPNMCHNG PPINPUT=PRFDC010 PPUTIL PPCLEAR,FN=ADDACT PPEX PPMNUPRO PPLOAD,FN=PRFDC011 PPCHEKID PP **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE PP * RESPOND: 'N' CARRIAGE RETURN - TO ABORT PP * CARRIAGE RETURN ONLY - TO CONTINUE PP * PPCCSPAS PP * THE DAILY ASSIGNMENT FILES WILL BE CREATED PP * PP * THE DLYASSN FILE IS BEING CREATED PPDACRTE PP * THE DLYASSN FILE HAS BEEN CREATED PP * THE DLYASSN FILE IS BEING SORTED PPINPUT=PRFDC011 PPDSORT PPFN=DLYWRK,CCS20 PPFN=DLYASSN,CCS20 PPF2=DLYASSN,CCS20, PPOP=T,F,A PPKF=A,17,4,A,25,2,A,21,4,D,27,4,A,1,16 PPSL=I PP * THE DLYASSN FILE HAS BEEN SORTED PPINPUT=PRFDC011 PPUTIL PPCLEAR,FN=DAQUE PPEX PP * THE DAILY QUEUE FILE IS BEING CREATED PPDAQUEL PP * THE DAILY QUEUE FILE HAS BEEN CREATED PP * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED PP **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING PP * SCREEN INFORMATION PPCCSSPC PPCCSPAS PP * THE FILE SPACE AUDIT REPORT IS COMPLETE PP * THE DAILY ASSIGNMENT FILES HAVE BEEN CREATED PPMNUPRO PPLOAD,FN=PRFHS001 PPCHEKID PP * THE INACTIVE ACCOUNTS WILL BE MOVED TO HISTORY PP * THE INACCT FILE IS BEING SORTED INTO ACCOUNT NUMBER ORDER PPINPUT=PRFHS001 PPDSORT PPFN=INACCT,CCS20 PPF2=INTEMP,CCS20, PPOP=T,F,A PPKF=A,1,16,D,23,2,D,19,4 PPSL=I PPINPUT=PRFHS001 PPUTIL PPCLEAR,FN=INACCT PPCOPY,FN=INTEMP,F2=INACCT,OW=CCS20 PPDELETE,FN=INTEMP PPEX PP * THE INACCT FILE HAS BEEN SORTED INTO ACCOUNT NUMBER ORDER PP ****OPERATOR - MOUNT HISTORY FILE OUTPUT TAPE ON TAPE UNIT '0' PP * BE SURE TAPE HAS A WRITE RING PP * PPINPUT=PRFHS001 PPMOUNT PPFTAPE PP/* PPMHUPDT PPMHDELE PPINPUT=PRFHS001 PPUTIL PPCOMPRE,FN=INACCT PPEX PP * THE INACTIVE ACCOUNTS HAVE BEEN MOVED TO HISTORY PPMNUPRO PPLOAD,FN=PRFHS002 PPCHEKID PP * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM THE TAPE ARCHIVES PPINPUT=PRFHS002 PPUTIL PPDEFINE,FN=UPREQ,ED=999999,TY=S,LR=22,NR=300 PPEX PPCHUPD1 PP * THE UPREQ FILE WILL BE SORTED PPINPUT=PRFHS002 PPDSORT PPFN=UPREQ,CCS20 PPF2=UPREQ,CCS20, PPOP=T,F,A PPKF=D,21,2,D,17,4,A,1,16 PPSL=I PP * THE UPREQ FILE HAS BEEN SORTED PPINPUT=PRFHS002 PPUTIL PPCLEAR,FN=UPHSTCM PPEX PP **** OPERATOR - YOU WILL BE PROMPTED TO MOUNT TAPES DURING THE PP * EXECUTION OF THE NEXT JOB PPCHUPD2 PPINPUT=PRFHS002 PPUTIL PPDELETE,FN=UPREQ PPEX PP * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM THE TAPE ARCHIVES PPMNUPRO PPLOAD,FN=PRFHS003 PPCHEKID PP * THE SUMHIST FILE WILL BE PURGED PPPHDEL2 PPCMPSUM PP * THE SUMHIST FILE HAS BEEN PURGED PPMNUPRO PPLOAD,FN=PRFHS004 PPCHEKID PP * THE TAPEARC FILE WILL BE PURGED PPPHDEL1 PPINPUT=PRFHS004 PPUTIL PPCOMPRE,FN=TAPEARC PPEX PP * THE TAPEARC FILE HAS BEEN PURGED PPMNUPRO PPLOAD,FN=PRFMT001 PPCHEKID PP * THE LETTER DEFINITION FILE WILL BE LOADED PP **** OPERATOR - MOUNT LATEST LETTER FILE DEFINITION DUMP TAPE PPINPUT=PRFMT001 PPUTIL PPDEFINE,FN=LTRDESC,TY=S,LR=80,ED=999999,NR=2500 PPEX PPINPUT=PRFMT001 PPMOUNT PPFTAPE,P PP/* PPLTRLOD PPINPUT=PRFMT001 PPUTIL PPLIST,FN=LTRDESC,L=LPRINTER,F=U PPEX PP * THE LETTER DEFINITION FILE IS LOADED PP **** OPERATOR - REMOVE TAPE FROM TAPE UNIT "0" - SAVE FOR BACKUP NOW PP * ENTER THE EDITOR TO PROCESS THE LTRDESC FILE, WHEN PP * COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP "B" PP * CARRIAGE RETURN WHEN READY TO CONTINUE PPCCSPAS PPMNUPRO PPLOAD,FN=PRFMT002 PPCHEKID PP * THE LETTER FILE WILL BE CREATED AND THE LETTER DEFINITION FILE PP * WILL BE SAVED. PPINPUT=PRFMT002 PPUTIL PPCLEAR,FN=LTRFIL PPEX PPLTRBLD PP **** OPERATOR - MOUNT A NEW OUTPUT TAPE ON UNIT "0" TAPE SHOULD BE PP * LABELED - LETTER DEFINITION DUMP TAPE - TODAYS DATE PPINPUT=PRFMT002 PPMOUNT PPFTAPE PP/* PPLTRDMP PPINPUT=PRFMT002 PPUTIL PPLIST,FN=LTRDESC,L=LPRINTER,F=U PPDELETE,FN=LTRDESC PPEX PP * THE LETTER FILE HAD BEEN CREATED AND THE LETTER DEFINITION FILE PP * HAS BEEN SAVED PP **** OPERATOR - REMOVE TAPE FROM UNIT "0" THIS IS THE NEW LETTER PP * DEFINITON DUMP TAPE CARRIAGE RETURN WHEN READY TO PP * CONTINUE. PPCCSPAS PPMNUPRO PPLOAD,FN=PRFMT003 PPCHEKID PP * THE UTILITY FILE MAINTENANCE ROUTINE WILL BE EXECUTED PP * PP **** OPERATOR - YOU CAN ADD, UPDATE OR DELETE UTILITY FILE RECORDS PP * FROM THE CONSOLE PP * PP * FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN PPUTFMTN PP * THE UTILITY FILE WILL BE LISTED ON THE PRINTER PPINPUT=PRFMT003 PPUTIL PPLIST,FN=UTIFIL,L=LPRINTER,F=U PPEX PP * CHECK PRINTER LISTING TO VERIFY THAT RECORDS ARE CORRECT PP * THE UTILITY FILE MAINTENANCE ROUTINE IS COMPLETE PPMNUPRO PPLOAD,FN=PRFMT004 PPCHEKID PP * THE DECISION TABLE MAINTENANCE ROUTINE WILL BE EXECUTED PP * PP ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN PPDECMTN PP * THE DECISION TABLE MAINTENANCE ROUTINE IS COMPLETE PPMNUPRO PPLOAD,FN=PRFMT005 PPCHEKID PP * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED PPAVMDMP PP * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED PPMNUPRO PPLOAD,FN=PRFMT006 PPCHEKID PP * THE ACTIVITY VERIFICATION TABLE ROUTINE WILL BE EXECUTED PP * PPAVMCON PP * THE ACTIVITY VERIFICATION TABLE ROUTINE IS COMPLETE PP * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED PPAVMDMP PP * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED PPMNUPRO PPLOAD,FN=PRFMT007 PPCHEKID PP * THE FILE SPACE AUDIT REPORT WILL BE PRINTED PP **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING PP * SCREEN INFORMATION PPCCSSPC PPCCSPAS PP * THE FILE SPACE AUDIT REPORT IS COMPLETE PPMNUPRO PPLOAD,FN=PRFMT008 PPCHEKID PP * THE SCREEN DEFINITION FILE WILL BE LOADED PP **** OPERATOR - MOUNT LATEST SCREEN FILE DEFINITION DUMP TAPE PPINPUT=PRFMT008 PPUTIL PPDEFINE,FN=SCRNDESC,TY=S,LR=80,ED=999999,NR=3000 PPEX PPINPUT=PRFMT008 PPMOUNT PPFTAPE,P PP/* PPSRNLOD PP * THE SCREEN DEFINITION FILE IS LOADED PP * THE SCREEN DEFINITION FILE WILL BE PRINTED PPINPUT=PRFMT008 PPUTIL PPLIST,FN=SCRNDESC,L=LPRINTER,F=U PPEX PP * THE SCREEN DEFINITION FILE HAS BEEN PRINTED PP **** OPERATOR - REMOVE TAPE FROM TAPE UNIT '0' - SAVE FOR BACKUP PP * NOW ENTER THE EDITOR TO PROCESS THE SCRNDESC FILE, PP * WHEN COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP 'K' PP * CARRIAGE RETURN WHEN READY TO CONTINUE PPCCSPAS PPMNUPRO PPLOAD,FN=PRFMT009 PPCHEKID PP * THE SCREEN FILE WILL BE CREATED AND THE SCREEN DEFINITION FILE WILL PP * BE SAVED PPBLDSRN PP **** OPERATOR - MOUNT A NEW OUTPUT TAPE ON UNIT '0' PP * TAPE SHOULD BE LABELED - SCREEN DEFINITION DUMP TAPE PP * TODAYS DATE PPINPUT=PRFMT009 PPMOUNT PPFTAPE PP/* PPSRNDMP PPINPUT=PRFMT009 PPUTIL PPDELETE,FN=SCRNDESC PPEX PP * THE SCREEN FILE HAS BEEN CREATED AND THE SCREEN DEFINITION FILE PP * HAS BEEN SAVED PP **** OPERATOR - REMOVE TAPE FROM UNIT '0' PP * THIS IS THE NEW SCREEN DEFINITION DUMP TAPE PP * CARRIAGE RETURN WHEN READY TO CONTINUE PPCCSPAS PPMNUPRO PPLOAD,FN=PRFMT010 PPCHEKID PP * THE DELQMST, COSIGNER AND ACTFIL FILES WILL BE PURGED PPCMPDLQ PPINPUT=PRFMT010 PPUTIL PPCOMPRE,FN=COSIGNER PPCOMPRE,FN=ACTFIL PPEX PP * THE DELQMST, COSIGNER AND ACTFIL FILES HAVE BEEN PURGED PPMNUPRO PPLOAD,FN=PRFMT011 PPCHEKID PP * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE PP * WILL BE PRINTED PPACTMTN PP * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE PP * HAS BEEN PRINTED PPMNUPRO PPLOAD,FN=PRFMT012 PPCHEKID PP * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE WILL BE EXECUTED PP **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN PP * PPUSEMTN PP * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE IS COMPLETE PPMNUPRO PPLOAD,FN=PRFMT013 PPCHEKID PP * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES WILL BE EXECUTED PP * PP * THE DATA ELEMENT TABLE WILL BE UPDATED PP * PP **** OPERATOR - INPUT WILL BE FROM THE CARD READER PP * CARRIAGE RETURN WHEN READER IS READY PP * PPCCSPAS PPINPUT=PRFMT013 PPSWITCH PP100000000 PPPGUPTB PP * THE DATA ELEMENT TABLE HAS BEEN UPDATED PP * PP * THE DATA ELEMENT TABLE WILL BE PURGED PPINPUT=PRFMT013 PPUTIL PPDEFINE,FN=TBLWRK,TY=R,K1=6,P1=1,NR=2000,LR=80 PPEX PPPGCMPR PPINPUT=PRFMT013 PPUTIL PPDELETE,FN=RPTTBL PPRENAME,FN=TBLWRK,F2=RPTTBL PPEX PP * THE DATA ELEMENT TABLE HAS BEEN PURGED PP * PP * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES ARE COMPLETE PPMNUPRO PPLOAD,FN=PRFMT014 PPCHEKID PP * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES WILL BE EXECUTED PP * PP * THE DATA ELEMENT TABLE WILL BE PRINTED PPPGLTTB PP * THE DATA ELEMENT TABLE HAS BEEN PRINTED PP * PP * THE DATA ELEMENT TABLE WILL BE UPDATED PP * PP ****OPERATOR - INPUT WILL BE FROM THE CONSOLE PP * PP ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN PP * PPINPUT=PRFMT014 PPSWITCH PP000000000 PPPGUPTB PP * THE DATA ELEMENT TABLE HAS BEEN UPDATED PP * PP * THE DATA ELEMENT TABLE WILL BE PURGED PPINPUT=PRFMT014 PPUTIL PPDEFINE,FN=TBLWRK,TY=R,K1=6,P1=1,NR=2000,LR=80 PPEX PPPGCMPR PPINPUT=PRFMT014 PPUTIL PPDELETE,FN=RPTTBL PPRENAME,FN=TBLWRK,F2=RPTTBL PPEX PP * THE DATA ELEMENT TABLE HAS BEEN PURGED PP * PP * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES ARE COMPLETE PPMNUPRO PPLOAD,FN=PRFMT015 PPCHEKID PP * THE PROGRAM DIRECTORY FILE ROUTINES WILL BE EXECUTED PP * PP * THE PROGRAM DIRECTORY FILE WILL BE PRINTED PPPGLIST PP * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED PP * PP * PP * THE PROGRAM DIRECTORY FILE WILL BE PURGED PP * PP **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN PP * PPPGPURG PPINPUT=PRFMT015 PPUTIL PPCOMPRE,FN=RPTPGM PPEX PP * THE PROGRAM DIRECTORY FILE HAS BEEN PURGED PP * PP * THE PROGRAM DIRECTORY FILE WILL BE PRINTED PPPGLIST PP * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED PP * PP * THE PROGRAM DIRECTORY FILE ROUTINES HAVE BEEN EXECUTED PPMNUPRO PPLOAD,FN=PRFMT016 PPCHEKID PP * THE SCREEN FILES WILL BE PRINTED PP * PP **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN PP * PPPRTSCN PP * THE SCREEN FILES HAVE BEEN PRINTED PPMNUPRO PPLOAD,FN=PRFRP001 PPCHEKID PPINPUT=PRFRP001 PPSWITCH PP10000000 PP * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED PP * THE ACCOUNTS BEING PRINTED ARE THE INACTIVE ACCOUNTS NOT PREVIOUSLY PP * PRINTED PPDTLLST PP * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE PPMNUPRO PPLOAD,FN=PRFRP002 PPCHEKID PPINPUT=PRFRP002 PPSWITCH PP01000000 PP * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED PP * THE ACCOUNTS BEING PRINTED WERE REQUESTED BY THE SUPERVISOR PPDTLLST PPINPUT=PRFRP002 PPUTIL PPCLEAR,FN=SREQDL PPEX PP * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE PPMNUPRO PPLOAD,FN=PRFRP003 PPCHEKID PP * CALCULATE AGE FOR TREND ANALYSIS PPTRENDD PPINPUT=PRFRP003 PPUTIL PPCOMPRE,FN=ACCAGE PPEX PPTRENDE PP * THE TREND ANALYSIS AGE CALCULATION IS COMPLETE PPMNUPRO PPLOAD,FN=PRFRP004 PPCHEKID PP * GENERATE THE TREND ANALYSIS REPORT BY QUEUE PP * THE ACCAGE FILE IS BEING SORTED PPINPUT=PRFRP004 PPDSORT PPFN=ACCAGE,CCS20 PPF2=AGEWRK,CCS20, PPOP=T,F,A PPKF=A,1,1,A,17,4 PPSL=I PP * THE ACCAGE FILE HAS BEEN SORTED PP * THE TREND ANALYSIS REPORT BY QUEUE WILL NOW BE PRINTED PPINPUT=PRFRP004 PPSWITCH PP10000000 PPTRENDP PPINPUT=PRFRP004 PPUTIL PPDELETE,FN=AGEWRK PPEX PP * THE TREND ANALYSIS REPORT BY QUEUE IS COMPLETE PPMNUPRO PPLOAD,FN=PRFRP005 PPCHEKID PP * GENERATE THE TREND ANALYSIS REPORT BY PRODUCT TYPE PP * THE ACCAGE FILE IS BEING SORTED PPINPUT=PRFRP005 PPDSORT PPFN=ACCAGE,CCS20 PPF2=AGEWRK,CCS20, PPOP=T,F,A PPKF=A,1,1,A,25,4 PPSL=I PP * THE ACCAGE FILE HAS BEEN SORTED PP * THE TREND ANALYSIS REPORT BY PRODUCT TYPE WILL NOW BE PRINTED PPINPUT=PRFRP005 PPSWITCH PP00000000 PPTRENDP PPINPUT=PRFRP005 PPUTIL PPDELETE,FN=AGEWRK PPEX PP * THE TREND ANALYSIS REPORT BY PRODUCT TYPE IS COMPLETE PPMNUPRO PPLOAD,FN=PRFRP006 PPCHEKID PP * THE WRITE-OFF REPORT WILL BE GENERATED PP * THE WOEF FILE WILL BE CREATED PPINPUT=PRFRP006 PPUTIL PPDEFINE,FN=WOEF,ED=999999,TY=S,LR=115,NR=6000 PPEX PPWRTOFE PP * THE WOEF FILE HAS BEEN CREATED PP * THE WOEF FILE IS BEING SORTED PPINPUT=PRFRP006 PPDSORT PPFN=WOEF,CCS20 PPF2=WOEF,CCS20, PPOP=T,F,A PPKF=A,25,1,A,17,4,A,21,4,A,1,16 PPSL=I PP * THE WOEF FILE HAS BEEN SORTED PP * THE WRITE-OFF REPORT WILL BE PRINTED PPWRTOFP PPINPUT=PRFRP006 PPUTIL PPDELETE,FN=WOEF PPEX PP * THE WRITE-OFF REPORT IS COMPLETE PPMNUPRO PPLOAD,FN=PRFRP007 PPCHEKID PP * THE DAILY ASSIGNMENT REPORT LIST WILL BE PRINTED PPDALIST PP * THE DAILY ASSIGNMENT LIST REPORT IS COMPLETE PPMNUPRO PPLOAD,FN=PRFRP008 PPCHEKID PP * THE SUMMARY ACCOUNT REPORT LIST WILL BE PRINTED PPSUMACL PP * THE SUMMARY ACCOUNT REPORT LIST IS COMPLETE PPMNUPRO PPLOAD,FN=PRFRP009 PPCHEKID PP * THE WEEKLY COLLECTOR STATISTICS REPORT WILL BE PRINTED PPINPUT=PRFRP009 PPSWITCH PP01000000 PPCOLSTS PP * THE WEEKLY COLLECTOR STATISTICS REPORT IS COMPLETE PP **** OPERATOR - PP * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE WEEKLY COUNT PP * PP * CARRIAGE RETURN ONLY - TO ZERO THE WEEKLY COUNT PPCCSPAS PPINPUT=PRFRP009 PPSWITCH PP00001000 PPCOLSTS PPMNUPRO PPLOAD,FN=PRFRP010 PPCHEKID PP * THE MONTHLY COLLECTOR STATISTICS REPORT WILL BE PRINTED PPINPUT=PRFRP010 PPSWITCH PP00100000 PPCOLSTS PP * THE MONTHLY COLLECTOR STATISTICS REPORT IS COMPLETE PP **** OPERATOR - PP * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS CLEARING THE COLLECTOR PP * STATISTICS COUNT FILE PP * PP * CARRIAGE RETURN ONLY - TO CLEAR THE COLLECTOR STATISTICS PP * COUNT FILE PPCCSPAS PPINPUT=PRFRP010 PPUTIL PPCLEAR,FN=COLSTATS PPEX PPMNUPRO PPLOAD,FN=PRFCNTRL PPCHEKID PP * THE REPORT GENERATOR PROGRAMS WILL BE CREATED PP **** OPERATOR - (BATCH HOST MUST BE ACTIVE BEFORE PROCEEDING) PP * TO ACTIVATE BATCH HOST PP * MI, *BATCH,F PP * PP * RESPOND: 'N' CARRIAGE RETURN - IF BATCH HOST IS NOT ACTIVE PP * PP * CARRIAGE RETURN ONLY - TO CONTINUE PPCCSPAS PP **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN PPINPUT=PRFCNTRL PPUTIL PPDEFINE,FN=RPTWKE,LR=80,NR=1000 PPDEFINE,FN=RPTWKP,LR=80,NR=1000 PPDEFINE,FN=PRCWRK,LR=80,NR=50 PPEX PPPGGEN PP * THE REPORT GENERATOR PROGRAMS HAVE BEEN CREATED PP * THE REPORT GENERATOR PROGRAMS WILL BE BATCHED PPINPUT=PRFCNTRL PPUTIL PPBATCH,FN=RPTWKE,TY=R PPBATCH,FN=RPTWKP,TY=R PPDELETE,FN=RPTWKE PPDELETE,FN=RPTWKP PPCLEAR,FN=PGEXTR PPEX PPPGCNT1 PP * PP **** OPERATOR - SELECTION L MUST NOW BE RUN TO EXECUTE THE REPORT PPCCSPAS PPMNUPRO PPDEFINE,FN=ACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=12000,VL=CDD01 PPDEFINE,FN=ACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=12000,VL=CDD01 PPDEFINE,FN=ACTIVE,TY=R,K1=4,P1=1,LR=10,NR=280,VL=CDD01,ED=999999 PPDEFINE,FN=ACTVERTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD01 PPDEFINE,FN=ADDACT,ED=999999,TY=S,LR=18,NR=12000,VL=CDD01 PPDEFINE,FN=AVMDESC,TY=S,LR=80,ED=999999,NR=100 PPLOAD,FN=AVMDESC PP* PP* THE FORMAT OF THE INPUT DESCRIPTION RECORDS: PP* PP* START COL # CHARS DESCRIPTION PP* 1 2 IDENTIFIER. EITHER 'RS' FOR RESULT CODE PP* RECORD, 'AC' FOR ACTION CODE RECORD, OR PP* ANY OTHER CHARACTERS FOR COMMENT RECORD. PP* PP* 3 2 THE TWO CHARACTER ACTION OR RESULT CODE. PP* PP* 5 1 EITHER 'L' OR 'C' FOR LETTER OR COMMENT PP* REQUIRED. ANY OTHER ENTRY IS IGNORED. PP* PP* 6 1 SAME AS COLUMN 5. PP* PP* 7 2 DEFAULT NUMBER OF DAYS TILL NEXT CONTACT PP* FOR USE BY 'COLECT'. MUST BE IN THE RANGE PP* OF 0 TO 63 . PP* PP* 9 64 FOR ACTION CODE RECORDS, THIS IS THE LIST PP* OF RESULT CODE PERMITTED WITH THIS ACTION PP* FOR LESS THAN 32 TWO CHARACTER CODES, PP* TERMINATE THE LIST WITH A '**' . PP* PP* UP TO 32 RESULT CODE AND 32 ACTION CODE RECORDS CAN BE PROCESSED. PP* FOR MORE THAN 32 RECORDS, THE OVERFLOW RECORDS ARE REPORTED AS PP* ERRORS AND IGNORED. OTHER ERRORS REPORTED AND RESTRICTIONS ARE: PP* 1. ACTION OR RESULT CODE NOT UNIQUE. IT DUPLICATES A PREVIOUS PP* ACTION OR RESULT CODE ENTERED. PP* 2. NEXT CONTACT DATE FOR THIS ACTION OR RESULT CODE IS OUT OF PP* RANGE (NCD < 0 OR NCD > 63). TO CONTINUE PROCESSING, THE PP* NEXT CONTACT DATE IS SET TO ZERO IF THIS ERROR OCCURS. PP* 3. FOR ACTION CODE RECORDS, THE ACTION CODE CANNOT BE THE SAME PP* AS ANY SCREEN FUNCTION CODE USED IN 'COLECT'. IF THE ACTION PP* CODE IS ON THIS RESERVED LIST, THE RECORD IS IGNORED. PP* 4. FOR ACTION CODE RECORDS, THE LIST OF VALID RESULT CODES PP* MUST CONTAIN VALID RESULTS. IF A RESULT CODE IN THE VALID PP* RESULT CODE LIST IS NOT A RESULT CODE, IT WILL NOT BE USED PP* IN THE BIT MASK CONSTRUCTION. PPDEFINE,FN=COLSTATS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=CDD01 PPDEFINE,FN=COSIGNER,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=12000 PPDEFINE,FN=DAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD01 PPDEFINE,FN=DECTBL,ED=999999,TY=S,LR=1002,NR=1,VL=CDD01 PPDEFINE,FN=DELQMST,VL=CDD01,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000,NR=12000, PPED=999999 PPDEFINE,FN=DLYASSN,ED=999999,TY=S,LR=40,NR=12000 PPDEFINE,FN=DLYWRK,ED=999999,TY=S,LR=40,NR=1000,VL=CDD01 PPDEFINE,FN=DUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD01 PPLOAD,FN=DUMMY PP PPDEFINE,FN=INACCT,ED=999999,TY=S,LR=24,NR=12000,VL=CDD01 PPDEFINE,FN=LTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1377,NR=100,VL=CDD01 PPDEFINE,FN=PGEXTR,TY=S,LR=132,NR=12000 PPDEFINE,FN=RPTPGM,TY=R,K1=6,P1=1,LR=80,ED=999999,NR=20 PPDEFINE,FN=RPTTBL,TY=R,K1=6,P1=1,LR=80,ED=999999,NR=2000 PPDEFINE,FN=SCRNFILE,ED=999999,TY=R,K1=2,P1=1,LR=1800,NR=100,VL=CDD01 PPDEFINE,FN=SREQDL,ED=999999,TY=S,LR=20,NR=100,VL=CDD01 PPDEFINE,FN=SUMHIST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=12000,VL=CDD01 PPDEFINE,FN=TAPEARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=12000,VL=CDD01 PPDEFINE,FN=TRANFL,ED=999999,TY=S,LR=138,NR=4000 PPDEFINE,FN=UPHSTCM,ED=999999,TY=S,LR=20,NR=100,VL=CDD01 PPDEFINE,FN=UTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=100,VL=CDD01 PPLOAD,FN=UTIFIL PPHDR1 PPHDR2 PPHDR3 PPRSW1 PPACTC PPRESC PPSALC PPDALT PPLTRF PPSMTH PPTMTH PPUPDY PPOLPM PPRPTG RPT001 PPSTATUS PPEX P43_^1_$LRPGWK(7)=INDIC_^1_$CALL CCSMVA(ICOMP,2,5,LRPGWK,28,5)_^1_$LRPGWK(9)=$2054_^1_$LRPGWK(10)=$5243_^1_$LRPGWK(11)=$4E54_^1_$CALL CCSMVA(IHOLD,2,1,LRPGWK,23,1)_^1_$LRPGWK(17)=$3020_^1_$IHOLD=$3133_^1_$CALL CCSMVA(IHOLD,1,2,LRPGWK,54,2)_^1_$CALL CCSMVA(IHOLD,1,2,LRPGWK,56,2)_^1_$GO TO 3000_^1 3690 CONTINUE_^1 3700 CONTINUE_^1_$ASSIGN 3701 TO IRTN_^1_$LRPGWK(3)=$2043_^1_$CALL CCSMVA(IEXCPT,2,5,LRPGWK,28,5)_^1_$GO TO 3000_^1 3701 CONTINUE_^1_$ASSIGN 3705 TO IRTN_^1_$LL=NLKEY-1_^1_$IF (LL.LE.0) GO TO 3705_^1_$DO 3705 L=1,LL_^1_$LRPGWK(3)=$2043_^1_$LRPGWK(5)=$2031_^1_$LRPGWK(6)=$3320_^1_$LRPGWK(7)=$3330+L_^1_$LRPGWK(9)=$204C_^1_$LRPGWK(10)=$4E43_^1_$LRPGWK(11)=$4E54_^1_$CALL CCSMVA(IADD,2,5,LRPGWK,28,5)_^1_$LRPGWK(17)=$3520_^1_$LRPGWK(22)=$4C4E_^1_$LRPGWK(23)=$434E_^1_$LRPGWK(24)=$5420_^1C_"C_!13 3X_!LNCNT_#ADD 5_(LNCNT_^1_$GO TO 3000_^1 3705 CONTINUE_^1C_]_^1C_=1. SAVE TOTAL FIELDS_^1C_=2. CHECK FOR PRINT OVERFLOW_^1C_]_^1C_2SAVE TOTAL FIELDS_^1 3720 IF (NTFLDS.EQ.0) GO TO 3730_^1_$IPOS=1_^1_$ASSIGN 3730 TO IRTN_^1_$DO 3730 L=1,NTFLDS_^1_$LRPGWK(3)=$2043_^1_$CALL CCSMVA(IMOVE,2,5,LRPGWK,28,5)_^1_$CALL CCSMVA(Q6TOT,IPOS,6,LRPGWK,33,6)_^1_$LRPGWK(22)=$4854_^1_$CALL BINASC(L,IHOLD2)_^1_$LRPGWK(23)=IHOLD2(2)_^1_$ICOL=IPOS+6_^1_$CALL CCSMVA(Q6TOT,ICOL,3,LRPGWK,50,3)_^1_$IPOS=IPOS+9_^1C_"C_4MOVE XXXXXX_"HTXX_!XXX_^1_$GO TO 3000_^1 3730 CONTINUE_^1C_]_^1C_LENGTH+SPACES_^1C_ELSE RIGHT JUSTIFY COL HEADING_^1_$IF (AND(Q6EPOS(IPW1+2),$FF00).NE.$4100) GO TO 3948_^1C_2TYPE A--CHECK LENGTH OF DATA, IF LE 6 NOT NECESSARY_^1_$CALL ASCBIN(Q6EPOS(IPW1+4),IDIF)_^1_$IF (IDIF.LE.6) GO TO 3948_^1C_2LEFT JUSTIFY - RECALCULATE POSITION_^1_$IDIF=IDIF-6_^1_$IDIF=BIN-IDIF_^1_$CALL BINASC(IDIF,IHOLD2)_^1_$GO TO 3949_^1 3948 CALL BINASC(BIN,IHOLD2)_^1 3949 CALL CCSMVA(IHOLD2,1,4,LRPGWK,40,4)_^1_$IDIF=0_^1_$IF (Q6EPOS(IPW1).EQ.Q6EPOS(IPW1+1)) GO TO 3950_^1_$ICODE=AND(Q6EPOS(IPW1+2),$00FF)_^1_$IF (ICODE.GE.$004A.AND.ICODE.LE.$004D) IDIF=1_^1_$IF (ICODE.GE.$0041.AND.ICODE.LE.$0044) IDIF=2_^1 3950 CONTINUE_^1_$BIN=BIN+IDIF+1_^1_$LRPGWK(23)=$2720_^1_$LRPGWK(26)=$2027_^1_$CALL CCSMVA(Q6NAME,IPW1,6,LRPGWK,46,6)_^1_$IPW1=IPW1+6_^1_$GO TO 3000_^1 3960 CONTINUE_^1C_10 ACTIVITY BLOCKS', // )_^11_]_^1 4000 FORMAT ( 1H1, /, 1X, 20A2,/,1X,20A2,/,1X,20A2,3X,'AS OF : ',_^1_#1_(A2,'/',A2,'/',A2,/ )_^11_]_^1_$END_]_^__ (AVMCON CSY/ AVM 0020(1_$PROGRAM AVMCON_^1_#1_2/DECK-ID F03 CCS 2.0_.SUMMARY-132_^1C_]_^1C_#CONSTRUCT ACTIVITY VERIFICATION MATRIX._^1C_]_^1C_#THIS PROGRAM WILL CONSTRUCT THE ACTIVITY VERIFICATION MATRIX USED_^1C_#BY 'COLECT'. THE FILE 'AVMDESC' CONTAINS DESCRIPTIONS OF THE ACTIO_^1C_#AND RESULT CODES TO BE USED. ALSO, THIS PROGRAM WILL UPDATE THE_^1C_#UTILITY FILE RECORDS 'ACTC' AND 'RESC' WITH THE CURRENT ACTION AND_^1C_#RESULT CODES IN USE._^1C_]_^1C_#THE FORMAT OF THE INPUT DESCRIPTION RECORDS FROM 'AVMDESC' ARE:_^1C_]_^1C_#START COL_"# CHARS_$DESCRIPTION_^1C_'1_+2_'IDENTIFIER. EITHER 'RS' FOR RESULT CODE_^1C_=RECORD, 'AC' FOR ACTION CODE RECORD, OR_^1C_=ANY OTHER CHARACTERS FOR COMMENT RECORD._^1C_]_^1C_'3_+2_'THE TWO CHARACTER ACTION OR RESULT CODE._^1C_]_^1C_'5_+1_'EITHER 'L' OR 'C' FOR LETTER OR COMMENT_^1C_=REQUIRED. ANY OTHER ENTRY IS IGNORED._^1C_]_^1C_'6_+1_'SAME AS COLUMN 5._^1C_]_^1C_'7_+2_'DEFAULT NUMBER OF DAYS TILL NEXT CONTACT_^1C_=FOR USE BY 'COLECT'. MUST BE IN THE RANGE_^1C_=OF 0 TO 63 ._^1C_]_^1C_'9_*64_'FOR ACTION CODE RECORDS, THIS IS THE LIST_^1C_=OF RESULT CODE PERMITTED WITH THIS ACTION_^1C_=FOR LESS THAN 32 TWO CHARACTER CODES,_^1C_=TERMINATE THE LIST WITH A '**' ._^1C_]_^1C_#UP TO 32 RESULT CODE AND 32 ACTION CODE RECORDS CAN BE PROCESSED._^1C_#FOR MORE THAN 32 RECORDS, THE OVERFLOW RECORDS ARE REPORTED AS_^1C_#ERRORS AND IGNORED. OTHER ERRORS REPORTED AND RESTRICTIONS ARE:_^1C_(1. ACTION OR RESULT CODE NOT UNIQUE. IT DUPLICATES A PREVIOUS_^1C_+ACTION OR RESULT CODE ENTERED._^1C_(2. NEXT CONTACT DATE FOR THIS ACTION OR RESULT CODE IS OUT OF_^1C_+RANGE (NCD < 0 OR NCD > 63). TO CONTINUE PROCESSING, THE_^1C_+NEXT CONTACT DATE IS SET TO ZERO IF THIS ERROR OCCURS._^1C_(3. FOR ACTION CODE RECORDS, THE ACTION CODE CANNOT BE THE SAME_^1C_+AS ANY SCREEN FUNCTION CODE USED IN 'COLECT'. IF THE ACTION_^1C_+CODE IS ON THIS RESERVED LIST, THE RECORD IS IGNORED._^1C_(4. FOR ACTION CODE RECORDS, THE LIST OF VALID RESULT CODES_^1C_+MUST CONTAIN VALID RESULTS. IF A RESULT CODE IN THE VALID_^1C_+RESULT CODE LIST IS NOT A RESULT CODE, IT WILL NOT BE USED_^1C_+IN THE BIT MASK CONSTRUCTION._^1C_]_^1C_#THE PROGRAM LISTS ALL PROCESSED ACTION AND RESULT CODE RECORDS_^1C_#TO THE PRINTER WITH DIAGNOSTICS FOR ANY ERRORS. THE PRINT-OUT_^1C_#UTILIZES STANDARD REPORT STYLE HEADINGS FOR CCS 2.0._^1C_]_^1._]_^1_$INTEGER BUF(8000), REQBUF(24), ID(4)_^1_$INTEGER AMDATA(15), ADDATA(15), UTDATA(15), ACTC(2), RESC(2)_^1_$INTEGER TABLE(162), ACT(1), RES(1), BIT1(1), BIT2(1), REQS(1)_^1_$EQUIVALENCE ( REQBUF(15),NUMREC ) , ( TABLE(1),ACT(1) )_^1_$EQUIVALENCE ( TABLE(33),RES(1) ) , ( TABLE(65),BIT1(1) )_^1_$EQUIVALENCE ( TABLE(97),BIT2(1) ) , ( TABLE(129),REQS(1) )_^11_]_^1_$INTEGER DUPMES(21), DUPMLN, NCDMES(24), NCDMLN, NRSMES(26), NRSMLN_^1_$INTEGER OVFMES(24), OVFMLN, SCFMES(25), SCFMLN_^1_$DATA DUPMES/ '****LAST RESULT CODE REJECTED - NOT UNIQUE' /_^1_$DATA NCDMES/ '****NEXT CONTACT DATE OUT OF RANGE - SET TO ZERO' /_^1_$DATA NRSMES/'**** " " ($_") NOT A VALID RESULT CODE - IGNORED'/_^1_$DATA OVFMES/ '****LAST RESULT CODE REJECTED - OVERFLOWS TABLE ' /_^1_$DATA SCFMES/ '****LAST ACTION CODE A SCREEN FUNCTION - REJECTED '/_^1_$DATA DUPMLN/ 42 /, NCDMLN/ 48 /, NRSMLN/ 52 /, OVFMLN/ 48 /_^1_$DATA SCFMLN/ 50 /_^1_$INTEGER ACTION(3)_^1_$DATA ACTION/ 'ACTION' /_^11_]_^1_$INTEGER FUNCOD(18), NUMFUN_^1_$DATA FUNCOD/ 'NADSDFDADCCSP1P2P3RLNQOASSDLAAEAUH ' /_^1_$DATA NUMFUN/ 18 /_^1_$DATA REQBUF/24*0/, ACTC/ 'ACTC' /, RESC/ 'RESC' /_^1_$DATA AMDATA/ 'ACTVERTBCCS20_!',4*$2020, 0,_!1, -1 /_^1_$DATA ADDATA/ 'AVMDESC CCS20_!',4*$2020, 0, 200, 0 /_^1_$DATA UTDATA/ 'UTIFIL CCS20_!',4*$2020, 1,_!1, 1 /_^1_$DATA TABLE/ 32*$2A2A, 32*$2A2A, 32*0, 32*0, 32*0, 2*0 /_^11_]_^1_$INTEGER LP, COMPL1, COMPL2, COMPL3, COMPL4, FLAG, TEMP(8), RECLEN_^1_$DATA LP/ 9 /, RECLEN/ 80 /_^11_]_^1_$INTEGER ONE, SIX, TEN, NUMBYT, NZERO, FIVE_^1_$DATA ONE/ 1 /, SIX/ 6 /, TEN/ 10 /, NUMBYT/ 64 /, NZERO/ $FFFF /_^1_$DATA FIVE/ 5 /_^11_]_^1_$INTEGER AC, RS, REQ_^1_$DATA AC/ 'AC' /, RS/ 'RS' /_^11_]_^1_$INTEGER HEAD(120), DATE(1), HDLEN, TOF, TOFLEN_^1_$EQUIVALENCE ( HEAD(102),DATE(1) )_^1_$DATA HEAD/ 70*$2020, $A0A, 'ACTIVITY VERIFICATION MATRIX BUILD OF_^1_#1', 14*$2020, ' - RESULT CODE INPUT', 5*$2020, $A0A/_^1_$DATA TOF/ $C /, TOFLEN/ 2 /_^1._]_^1C_(ITOS LOGIN._^1_$CALL PGMIN(ID,LU,I,J)_^1C_(TERMINATE IF NOT MASTER CONSOLE._^1_$IF(J.NE.0) GO TO 950_^12_]_^1C_(LOGIN OK, OPEN DESCRIPTION RECORD FILE AND RETRIEVE 200 RECORD_^1C_(BLOCK. THIS SHOULD BE SUFFICIENT TO READ ALL RECORDS._^1_$CALL OPENFL(REQBUF,ADDATA,ISTAT)_^1C_(CHECK FOR ERROR._^1_$IF(ISTAT.LT.0) GO TO 50_^1C_(NO ERROR, RETRIEVE RECORDS._^1_$CALL GETS(REQBUF,BUF,I,ISTAT)_^1C_(CHECK FOR ERROR._^1_$IF(ISTAT.LT.0) GO TO 60_^11_]_^1C_(NO ERROR, RECORD BLOCK RETRIEVED SUCESSFULLY. CLOSE FILE._^1_$CALL CLOSFL(REQBUF,ISTAT)_^11_]_^1C_(RETRIEVE STANDARD HEADINGS FOR REPORT TYPE OUTPUT._^1_$CALL UTHEAD(HEAD,DATE)_^11_]_^1_$GO TO 90_^12_]_^1C_(FILE ERROR USING DESCRIPTION FILE. REPORT AND TERMINATE._^11_]_^1C_(OPEN FILE REQUEST._^1 50 J = 3_^1_$GO TO 70_^11_]_^1C_(GETS ERROR._^1 60 J = 14_^11_]_^1 70 CALL FILERR(ADDATA,J,ISTAT,LU)_^1_$GO TO 900_^1C_(OPEN FILE REQUEST._^1._]_^1C_(PROCESS ALL RESULT CODE RECORDS. VERIFY THEIR UNIQUE-_^1C_(NESS, SAVE LETTER AND COMMENT REQUIREMENTS, AND VALIDATE NEXT_^1C_(NEXT CONTACT DATE._^11_]_^1C_(SET UP COMPLETION VARIABLES FOR WRITE REQUESTS._^1 90 ASSIGN 110 TO COMPL1_^1_$ASSIGN 150 TO COMPL2_^1_$ASSIGN 140 TO COMPL3_^11_]_^1C_(INTIALIZE POINTER TO NEXT AVAILABLE SPACE IN RESULT CODE ARRAY_^1_$NEXT = 1_^11_]_^1C_(PRINT REPORT TYPE HEADINGS._^1_$ASSIGN 100 TO IRTN_^1_$GO TO 600_^12_]_^1C_(LOOP THRU FILE LOOKING FOR RESULT CODE RECORDS._^1 100 DO 150 I=1,NUMREC_^1C_(CALCULATE POINTER TO NEXT RECORD._^1_$J = 40*(I-1) + 1_^1C_(CHECK FOR RESULT CODE RECORD._^1_$IF(BUF(J).NE.RS) GO TO 150_^11_]_^1C_(FOUND RESULT CODE RECORD. WRITE IT TO THE PRINTER._^1 105 CALL FWRITE(LP,BUF(J),RECLEN,COMPL1,FLAG,TEMP)_^1_$CALL DISP_^11_]_^1C_(CHECK IF THIS IS MORE THAN THE 32 CODES ALLOWED._^1 110 IF(NEXT.LT.33) GO TO 120_^1C_(YES, TOO MANY RESULT CODES INPUT. REJECT THIS CODE._^1 115 CALL FWRITE(LP,OVFMES,OVFMLN,COMPL2,FLAG,TEMP)_^1_$CALL DISP_^11_]_^1C_(VERIFY UNIQUENESS OF THIS CODE._^1 120 K = BUF(J+1)_^1_$CALL AVMCKV(RES,K)_^1_$IF(K.LT.0) GO TO 130_^1C_(CODE IS NOT UNIQUE, REJECT IT._^1 125 CALL FWRITE(LP,DUPMES,DUPMLN,COMPL2,FLAG,TEMP)_^1_$CALL DISP_^11_]_^1C_(RETRIEVE FIFTH AND SIXTH CHARACTERS OF RECORD WHICH CONTAIN A_^1C_(LETTER OR COMMENT REQUIREMENTS FOR THIS RESULT._^1 130 CALL CCSGET(BUF(J),FIVE,K)_^1_$CALL CCSGET(BUF(J),SIX,L)_^1C_(ZERO REQUIREMENT ACCUMULATOR._^1_$REQ = 0_^1C_(FLAG ANY LETTER OR COMMENT REQUIREMENT._^1_$IF(K.EQ.$4C.OR.L.EQ.$4C) REQ=$80_^1_$IF(K.EQ.$43.OR.L.EQ.$43) REQ=REQ+$40_^1C_(EXTRACT NEXT CONTACT DATE._^1_$NCD = ICCSAD( BUF(J+3) )_^1C_(VERIFY NEXT CONTACT DATE IS WITHIN RANGE._^1_$IF(NCD.GE.0.AND.NCD.LT.64) GO TO 140_^1C_(NEXT CONTACT DATE OUT OF RANGE. SET IT TO ZERO AND REPORT ERRO_^1_$NCD = 0_^1 135 CALL FWRITE(LP,NCDMES,NCDMLN,COMPL3,FLAG,TEMP)_^1_$CALL DISP_^11_]_^1C_(ADD NEXT CONTACT DATE TO REQUIREMENTS AND SAVE RESULT CODE AND_^1C_(ITS ASSOCIATED REQUIREMENTS._^1 140 REQ = REQ + NCD_^1_$RES(NEXT) = BUF(J+1)_^1_$REQS(NEXT) = REQ_^11_]_^1C_(INCREMENT COUNTER AND GET NEXT RESULT CODE RECORD._^1_$NEXT = NEXT + 1_^11_]_^1 150 CONTINUE_^1._]_^1C_(PROCESS ALL ACTION CODE RECORDS. VERIFY THEIR UNIQUENESS, DETE_^1C_(MINE BIT MASKS INDICATING VALID RESULT CODES, SAVE THEIR LETTE_^1C_(AND COMMENT REQUIREMENTS, AND VALIDATE NEXT CONTACT DATE._^11_]_^1C_(ASSIGN COMPLETION ADDRESSES FOR WRITE REQUESTS._^1_$ASSIGN 200 TO COMPL1_^1_$ASSIGN 300 TO COMPL2_^1_$ASSIGN 240 TO COMPL3_^1_$ASSIGN 260 TO COMPL4_^11_]_^1C_(RESET POINTER TO NEXT AVAILABLE SPOT IN ACTION CODE ARRAY._^1_$NEXT = 1_^11_]_^1C_(MOVE 'ACTION' WORDING INTO ERROR MESSAGES AND HEADINGS._^1_$CALL CCSMVA(ACTION,ONE,SIX,DUPMES,TEN,SIX)_^1_$CALL CCSMVA(ACTION,ONE,SIX,OVFMES,TEN,SIX)_^1_$CALL CCSMVA(ACTION,ONE,SIX,DATE,TEN,SIX)_^11_]_^1C_(PRINT REPORT TYPE HEADINGS._^1_$ASSIGN 190 TO IRTN_^1_$GO TO 600_^12_]_^1C_(LOOP THRU THE FILE CHECKING FOR ACTION CODE RECORDS._^1 190 DO 300 I=1,NUMREC_^1C_(CALCULATE POINTER TO NEXT RECORD._^1_$J = 40*(I-1) + 1_^1C_(CHECK FOR AN ACTION CODE RECORD._^1_$IF(BUF(J).NE.AC) GO TO 300_^1C_(FOUND ACTION CODE RECORD. WRITE IT TO THE PRINTER._^1_$GO TO 105_^1C_(CHECK FOR TABLE OVERFLOW WITH THIS ACTION CODE._^1 200 IF(NEXT.LT.33) GO TO 210_^1C_(TABLE OVERFLOW. MORE THAN THE ALLOWED 32 ACTION CODES ENTERED._^1C_(REJECT THIS RECORD._^1_$GO TO 115_^11_]_^1C_(NO TABLE OVERFLOW. VERIFY UNIQUENESS OF THIS CODE._^1 210 K = BUF(J+1)_^1_$CALL AVMCKV(ACT,K)_^1_$IF(K.LT.0) GO TO 220_^1C_(CODE NOT UNIQUE, REJECT IT._^1_$GO TO 125_^11_]_^1C_(CODE UNIQUE. ACTION CODES CANNOT BE SCREEN FUNCTIONS. REJECT_^1C_(CODE IF IT IS._^1 220 K = BUF(J+1)_^1_$DO 225 L=1,NUMFUN_^1_$IF(K.NE.FUNCOD(L)) GO TO 225_^1C_(CODE IS A SCREEN FUNCTION CODE, REJECT IT._^1_$CALL FWRITE(LP,SCFMES,SCFMLN,COMPL2,FLAG,TEMP)_^1_$CALL DISP_^1 225 CONTINUE_^11_]_^1C_(CODE OK. EXTRACT FIFTH AND SIXTH CHARACTERS FROM RECORD_^1C_(WHICH CONTAIN ANY LETTER OR COMMENT REQUIREMENTS._^1_$CALL CCSGET(BUF(J),FIVE,K)_^1_$CALL CCSGET(BUF(J),SIX,L)_^1C_(ZERO REQUEST ACCUMULATOR._^1_$REQ = 0_^1C_(SAVE ANY LETTER AND COMMENT REQUEST._^1_$IF(K.EQ.$4C.OR.L.EQ.$4C) REQ = $80_^1_$IF(K.EQ.$43.OR.L.EQ.$43) REQ=REQ+$40_^1C_(EXTRACT NEXT CONTACT DATE._^1_$NCD = ICCSAD( BUF(J+3) )_^1C_(VERIFY NEXT CONTACT DATE IS WITHIN RANGE._^1_$IF(NCD.GE.0.AND.NCD.LT.64) GO TO 240_^1C_(NEXT CONTACT DATE OUT OF RANGE. SET IT TO ZERO AND REPORT ERRO_^1_$NCD = 0_^1_$GO TO 135_^11_]_^1C_(ADD NEXT CONTACT DATE TO ACCUMULATOR._^1 240 REQ = REQ + NCD_^11_]_^1C_(SAVE RESULT CODE AND ITS REQUIREMENTS._^1_$ACT(NEXT) = BUF(J+1)_^1_$REQS(NEXT) = REQS(NEXT) + REQ*$100_^1C_(CHECK FOR ADDITION YIELDING ZERO FOR $FFFF._^1_$IF(REQ.NE.0.AND.REQS(NEXT).EQ.0) REQS(NEXT)=NZERO_^12_]_^1C_(DETERMINE RESULT CODE BIT MASKS FOR THIS ACTION CODE._^1C_(ELIMINATE ANY DUPLICATE CODES. THE ROUITNE 'AVMCKD' WILL SET_^1C_(ANY DUPLICATE CODE TO BINARY ZERO, AND AS A RESULT WILL NOT_^1C_(HINDER BIT MASK CONSTRUCTION._^1_$CALL AVMCKD(BUF(J+4))_^1_$CALL AVMBIT(RES,BUF(J+4),BIT1(NEXT),BIT2(NEXT))_^1C_(REPORT ANY REJECTED RESULT CODES._^1_$J = J + 4_^1_$DO 260 K=1,32_^1_$L = J + K_^1_$IF(BUF(L).GE.0) GO TO 260_^1C_(THIS RESULT CODE REJECTED. CONVERT IT BACK TO ITS ORIGINAL FOR_^1C_(PLACE IT AND ITS HEXADECIMAL REPRESENTATION IN THE ERROR MESSA_^1C_(AND WRITE THE ERROR MESSAGE TO THE PRINTER._^1_$NRSMES(4) = -BUF(L)_^1_$CALL CCSHXA(NRSMES(4),NRSMES(7))_^1_$CALL FWRITE(LP,NRSMES,NRSMLN,COMPL4,FLAG,TEMP)_^1_$CALL DISP_^1 260 CONTINUE_^12_]_^1C_(INCREMENT CODE POINTER AND GET NEXT ACTION CODE RECORD._^1_$NEXT = NEXT + 1_^12_]_^1 300 CONTINUE_^1._]_^1C_(RETRIEVE OLD TABLE FROM FILE AND UPDATE WITH NEW TABLE._^1C_(ZERO REQUEST BUFFER._^1_$DO 405 I=1,24_^1 405 REQBUF(I) = 0_^11_]_^1C_(CLEAR THE FILE._^1_$CALL CLEAR(REQBUF,AMDATA,ISTAT)_^1C_(CHECK FOR ERROR._^1_$IF(ISTAT.LT.0) GO TO 450_^1C_(NO ERROR, OPEN THE FILE._^1_$CALL OPENFL(REQBUF,AMDATA,ISTAT)_^1C_(CHECK FOR ERROR._^1_$IF(ISTAT.LT.0) GO TO 460_^1C_(NO ERROR, SAVE THE NEW TABLE IN THE FILE._^1_$CALL PUTS(REQBUF,TABLE,ONE,ISTAT)_^1C_(CHECK FOR ERROR._^1_$IF(ISTAT.LT.0) GO TO 470_^1C_(NO ERROR, UPDATE SUCCESSFUL. CLOSE FILE AND PROCEED TO UPDATE_^1C_(UTILITY FILE SECTION._^1_$CALL CLOSFL(REQBUF,ISTAT)_^1_$GO TO 500_^12_]_^1C_(FILE MANAGER ERRORS USING FILE 'ACTVERTB'._^11_]_^1C_(CLEAR FILE REQUEST._^1 450 J = 1_^1_$GO TO 480_^11_]_^1C_(OPEN FILE REQUEST._^1 460 J = 3_^1_$GO TO 480_^11_]_^1C_(PUTS REQUEST._^1 470 J = 11_^11_]_^1 480 CALL FILERR(AMDATA,J,ISTAT,LU)_^1_$GO TO 900_^1._]_^1C_(UPDATE UTILITY FILE RECORDS. SORT ACTION CODE AND RESULT CODE_^1C_(ARRAYS INTO ALPHABETICAL ORDER._^1 500 CALL AVMSRT(ACT)_^1_$CALL AVMSRT(RES)_^11_]_^1C_(OPEN UTILITY FILE AND UPDATE 'ACTC' AND 'RESC' RECORDS._^1C_(ZERO REQUEST BUFFER FIRST._^1_$DO 505 I=1,32_^1 505 REQBUF(I) = 0_^11_]_^1_$CALL OPENFL(REQBUF,UTDATA,ISTAT)_^1C_(CHECK FOR ERROR._^1_$IF(ISTAT.LT.0) GO TO 550_^1C_(NO ERROR, RETRIEVE 'ACTC' RECORD._^1_$CALL READR(REQBUF,BUF,ACTC,ISTAT)_^1C_(CHECK FOR ERROR._^1_$IF(ISTAT.LT.0) GO TO 560_^1C_(NO ERROR, MOVE IN NEW ACTION CODES._^1_$CALL CCSMVA(ACT,ONE,NUMBYT,BUF(3),ONE,NUMBYT)_^1C_(SAVE UPDATED RECORD._^1_$CALL UPDREC(REQBUF,BUF,ISTAT)_^1C_(CHECK FOR ERROR._^1_$IF(ISTAT.LT.0) GO TO 570_^11_]_^1C_(UPDATE 'RESC' RECORD._^1_$CALL READR(REQBUF,BUF,RESC,ISTAT)_^1C_(CHECK FOR ERROR._^1_$IF(ISTAT.LT.0) GO TO 560_^1C_(NO ERROR, MOVE IN NEW RESULT CODES._^1_$CALL CCSMVA(RES,ONE,NUMBYT,BUF(3),ONE,NUMBYT)_^1C_(SAVE UPDATED RECORD._^1_$CALL UPDREC(REQBUF,BUF,ISTAT)_^1C_(CHECK FOR ERROR._^1_$IF(ISTAT.LT.0) GO TO 570_^1C_(NO ERROR, CLOSE FILE. MATRIX CONSTRUCTION COMPLETE._^1_$GO TO 900_^12_]_^1C_(FILE MANAGER ERRORS USING UTILITY FILE._^11_]_^1C_(OPEN FILE REQUEST._^1 550 J = 3_^1_$GO TO 580_^11_]_^1C_(READR REQUEST._^1 560 J = 13_^1_$GO TO 580_^11_]_^1C_(UPDREC REQUEST._^1 570 J = 15_^11_]_^1 580 CALL FILERR(UTDATA,J,ISTAT,LU)_^1_$GO TO 900_^1._]_^1C_(PRINT REPORT STYLE HEADINGS._^11_]_^1C_(GET TOP OF FORM._^1 600 ASSIGN 610 TO ICOMPL_^1_$CALL FWRITE(LP,TOF,TOFLEN,ICOMPL,FLAG,TEMP)_^1_$CALL DISP_^11_]_^1C_(OUTPUT HEADINGS._^1 610 HDLEN = 40_^1_$ASSIGN 620 TO ICOMPL_^1_$DO 620 I=1,5_^1_$J = 20*(I-1) + 1_^1_$IF(I.EQ.4) HDLEN=60_^1_$IF(I.EQ.5) J=91_^1_$CALL FWRITE(LP,HEAD(J),HDLEN,ICOMPL,FLAG,TEMP)_^1_$CALL DISP_^11_]_^1 620 CONTINUE_^1_$GO TO IRTN_^1._]_^1C_(CLOSE ANY FILES AND EXIT._^1 900 CALL CLOSFL(REQBUF,ISTAT)_^12_]_^1 950 CALL PGMOUT_^1_$END_]_^1_$SUBROUTINE AVMCKD(ARR)_^0_#1_2/DECK-ID F03 CCS 2.0_.SUMMARY-132_^1C_]_^1C_#SCAN ARRAY CHECKING EACH ELEMENT FOR UNIQUENESS._^1C_]_^1C_#ROUTINE TO SCAN ARRAY 'ARR' FOR A MAXIMUM OF 32 WORDS OR UNTIL AN_^1C_#'**' IS ENCOUNTERED, CHECKING FOR EACH ELEMENT TO BE UNIQUE WHEN_^1C_#COMPARED TO THE OTHER ELEMENTS. IF A DUPLICATE ENTRY IS FOUND, THE_^1C_#ENTRY IS FLAGGED BY SETTING IT TO ZERO. THIS WILL CAUSE BYPASS_^1C_#OF THIS CODE WHEN BIT MASK IS CONSTRUCTED._^1C_]_^1_$INTEGER ARR(1),ASTRKS_^1_$DATA ASTRKS/'**'/_^12_]_^1_$DO 20 I=1,32_^1_$IF(ARR(I).EQ.ASTRKS) GO TO 90_^1_$DO 10 J=1,32_^1_$IF(ARR(J).EQ.ASTRKS) GO TO 20_^1_$IF(I.EQ.J.OR.ARR(J).EQ.0) GO TO 10_^1_$IF(ARR(I).EQ.ARR(J)) ARR(J)=0_^1 10 CONTINUE_^1 20 CONTINUE_^11_]_^1 90 RETURN_^1_$END_]_^1_$SUBROUTINE AVMSRT(ARR)_^0_#1_2/DECK-ID F03 CCS 2.0_.SUMMARY-132_^1C_]_^1C_#SORT 32 WORD ARRAY 'ARR'._^1C_]_^1C_#ROUTINE TO PERFORM AN ALPHABETICAL SORT OF THE ELEMENTS OF THE ARR_^1C_#'ARR'. 'ARR' IS 32 WORDS LONG, BUT CAN CONTAIN FEWER ELEMENTS WHEN_^1C_#TERMINATED BY ONE ELEMENT CONTAINING '**'. THE DOUBLE ASTERISK_^1C_#SHOULD NOT BE SORTED, BUT LEFT AT THE END OF THE LIST._^1C_]_^1C_#SORT IS A BUBBLE SORT._^1_$INTEGER ARR(1),TEMP,ASTRKS_^11_]_^1_$DATA ASTRKS/'**'/_^11_]_^1_$K = 1_^1_$IF(ARR(2).EQ.ASTRKS) GO TO 90_^1_$IF(ARR(2).GT.ARR(1)) GO TO 10_^1_$TEMP = ARR(2)_^1_$ARR(2) = ARR(1)_^1_$ARR(1) = TEMP_^1 10 DO 30 I=2,31_^1_$IF(ARR(I+1).EQ.ASTRKS) GO TO 90_^1_$IF(ARR(I).LT.ARR(I+1)) GO TO 30_^1_$TEMP = ARR(I)_^1_$ARR(I) = ARR(I+1)_^1_$ARR(I+1) = TEMP_^1_$DO 20 J=I,2,-K_^1_$IF(ARR(J).GT.ARR(J-1)) GO TO 30_^1_$TEMP = ARR(J)_^1_$ARR(J) = ARR(J-1)_^1_$ARR(J-1) = TEMP_^1 20 CONTINUE_^1 30 CONTINUE_^11_]_^1C_#SORT COMPLETE._^1 90 RETURN_^1_$END_]_^1 MON_]_^1_%NAM AVMBIT_'DECK-ID F03 CCS 2.0_.SUMMARY-132_^1*_]_^1*_$CONSTRUCT BIT MASKS._^1*_]_^1*_$ROUTINE TO REVIEW EACH CODE IN 'VRES' AND IF THE CODE IS IN 'RES'_^1*_$SET THE CORRESPONDING BIT IN EITHER 'BIT1' OR 'BIT2'. IF A CODE_^1*_$IN 'VRES' IS NOT FOUND IN 'RES', THE CODE IS FLAGGED FOR REPORTIN_^1*_$AS AN ERROR BY 'AVMCON'. 'BIT1' IS BIT MASK FOR RESULT CODES 1-16_^1*_$AND 'BIT2' IS FOR RESULTS 17-32 ._^1*_]_^1*_$CALLING SEQUENCE:_^1*_$CALL AVMBIT(RES,VRES,BIT1,BIT2)_^1*_$WHERE:_^1*_$RES_!- LIST OF ALL VALID RESULT CODES._^1*_$VRES - LIST OF RESULT CODES BIT MASKS ARE TO BE CONSTRUCTED FOR._^1*_$BIT1 - RETURNED BIT MASK FOR RESULT CODES 1 - 16._^1*_$BIT2 - RETURNED BIT MASK FOR RESULT CODES 17 - 32._^1*_]_^1_%SPC 2_^1_%ENT AVMBIT_^1_%SPC 2_^1*_$COMMUNICATIONS REGION USED._^1_%EQU LPMASK($2)_^1_%EQU NZERO($12)_^1_%EQU ZERO($22)_^1_%EQU ONEBIT($23)_^1_%SPC 2_^1_%EXT AVMCKV_'CHECKS FOR PARTICULAR ELEMENT IN AN ARRAY._^1_%EJT_]_^1AVMBIT 0_"0_^1_%LDQ* AVMBIT_'PICK UP ADDRESS OF CALLER._^1_%INQ 4_,INCREMENT RETURN VALUE TO NEXT EXECUTABLE_^1_%STQ* AVMBIT_'INSTRUCTION._^1_%RTJ* PARGET_'PICK UP PARAMETER ADDRESSES._^1_%LDA* RES_*PICK UP ADDRESS OF RES FOR SUBROUTINE CALL._^1_%STA* CON150_'STORE INTO PARAMETER LIST OF CALL._^1_%ENA 0_^1_%XFA 1_,ZERO BIT MASKS R1 AND R2._^1_%XFA 2_^1CON050 XFA I_,I IS POINTER INTO VRES._^1_%LDA* (VRES),I_$PICK UP NEXT CODE FROM VRES._^1_%SAN CON055_'SKIP IF CODE IS NON-ZERO._^1_%JMP* CON300_'CODE WAS ZERO FROM DUPLICATE ENTRY. BYPASS._^1CON055 STA* POS_*SAVE IN LOCAL VARIABLE._^1_%EOR* ASTRKS_'CHECK FOR TERMINATION - END OF CODES IN VRES._^1_%SAN CON100_'SKIP IF NOT THE END._^1CON060 SR1* (BIT1)_'CONSTRUCTION COMPLETE. SAVE BIT MASKS R1 AND R_^1_%SR2* (BIT2)_'IN BIT1 AND BIT2._^1_%JMP* CON500_'EXIT RETURN._^1CON100 RTJ AVMCKV_'CHECK IF VRES(I) IS IN RES._^1CON150 NUM 0_,ADDRESS OF RES._^1_%ADC POS_*ADDRESS OF VRES(I)._^1_%LDA* POS_*CHECK FOR VRES(I) NOT IN RES._^1_%SAP CON160_'SKIP IF VRES(I) IN RES._^1_%LDA* (VRES),I_$ILLEGAL CODE IN VRES, FLAG IT AS AN ERROR._^1_%TCA A_^1_%STA* (VRES),I_$SET TO ITS COMPLEMENT AS THE FLAG._^1_%JMP* CON300_'CONTINUE PROCESSING IGNORING THIS CODE._^1CON160 XFA Q_,SAVE RETURNED INDEX IN Q._^1_%AND- ONEBIT+4_$CHECK WHICH REGISTER TO SET BIT IN._^1_%ANQ- LPMASK+4_$INDEX ONLY BY FIRST FOUR BITS._^1_%TCQ Q_,COMPLEMENT TO GET INDEX FROM END OF MASK TABLE_^1_%SAN CON200_'SKIP IF BIT TO BE SET IS IN R2._^1_%AR1- ONEBIT+15,Q_!RESULT CODE WAS IN FIRST 16, SET APPROPRIATE B_^1_%S1N CON300-*-1_"SKIP IF ADDITION DID NOT YIELD ZERO._^1_%LR1- NZERO_(SET TO $FFFF IF ADDITION CAUSED MASK TO GO TO_^1_%JMP* CON300_^1CON200 AR2- ONEBIT+15,Q_!RESULT CODE WAS IN 2ND 16, SET APPROPRAITE BIT_^1_%S2N CON300-*-1_"SKIP IF ADDITION DID NOT YIELD ZERO._^1_%LR2- NZERO_(SET TO $FFFF IF ADDITION CAUSED MASK TO GO TO_^1CON300 XFI A_,BUMP POINTER TO GET NEXT CODE FROM VRES._^1_%INA -31_*CHECK IF MAXIMUM NUMBER OF CODES PROCESSED._^1_%SAM CON350_'SKIP IF MAXIMUM NUMBER NOT PROCESSED._^1_%JMP* CON060_'ALL CODES DONE, SAVE BIT MASKS AND EXIT._^1CON350 INA 32_+RESTORE POINTER TO GET NEXT CODE._^1_%JMP* CON050_'GO GET NEXT CODE._^1_%EJT_]_^1*_$VARIABLES AND CONSTANTS USED._^1*_]_^1RES_"NUM 0_,ABSOLUTE ADDRESS OF RESULT CODE ARRAY._^1VRES_!NUM 0_,ABSOLUTE ADDRESS OF VALID RESULT CODES ARRAY._^1BIT1_!NUM 0_,ABSOLUTE ADDRESS OF BIT MASK FOR RESULTS 1 - 1_^1BIT2_!NUM 0_,ABSOLUTE ADDRESS OF BIT MASK FOR RESULTS 17 -_^1ASTRKS NUM $2A2A_(LITERAL ASTERISKS._^1POS_"NUM 0_,LOCAL VARIABLE USED FOR SUBROUTINE CALL._^1_%EJT_]_^1*_$ROUTINE TO PICK UP PARAMETER ADDRESSES FROM CALLER._^1*_]_^1PARGET 0_"0_^1_%LDQ* AVMBIT_'CONTAINS THE STARTING ADDRESS + 4 OF PARAMETER_^1_%INQ -1_+LIST. MOVE TO END OF LIST._^1_%ENA 3_^1_%XFA I_,I IS INDEX INTO PARAMETER STORAGE._^1PAR100 LDA- (ZERO),Q_$PICK UP ABSOLUTE ADDRESS OF NEXT PARAMETER._^1_%STA* RES,I_(STORE INTO PARAiMETER STORAGE._^1_%INQ -1_+DECREMENT TO GET NEXT PARAMETER ADDRESS._^1_%DIP *-PAR100_$SKIP IF ALL PARAMETERS PICKED UP._^1_%JMP* (PARGET)_$RETURN._^1_%EJT_]_^1CON500 JMP* (AVMBIT)_$EXIT RETURN._^1_%END_]_^__ i(AVMDMP CSY/ AVM 0020(1_$PROGRAM AVMDMP_^1_#1_2/DECK-ID F04 CCS 2.0_.SUMMARY-132_^1C_]_^1C_#COPYRIGHT CONTROL DATA CORPORATION, 1978_^1C_#DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1C_#CREDIT COLLECTION SYSTEM VERSION 2.0_^1C_]_^1C_]_^1C_#DUMP ACTIVITY VERIFICATION MATRIX._^1C_]_^1C_#THIS PROGRAM WILL PRINT AN INTELLIGIBLE DUMP OF THE ACTIVITY VERI-_^1C_#FICATION MATRIX STORED IN THE FILE 'ACTVERTB'. THE MATRIX CALLED_^1C_#'TBL' CONTAINS A LIST OF ALL VALID ACTION CODES, LIST OF ALL VALID_^1C_#RESULT CODES, MASKS FOR DETERMINING VALID ACTION/RESULT CODE PAIRS_^1C_#AND DEFAULT VALUES FOR NEXT CONTACT DATE AND LETTER AND COMMENT_^1C_#REQUIREMENTS FOR EACH PAIR THAT IS VALID. A MORE DETAILED DESCRIP-_^1C_#TION OF 'TBL' IS FOUND IN THE AVMVAC SUBROUTINE._^1C_]_^11_]_^1_$INTEGER REQBUF(24),IDATA(15),TBL(162),ACT(1),RES(1),OBUF(66)_^1_$INTEGER ASTRKS,LETREQ,COMREQ,NCD,BZ,RL,LREQD,CREQD,ONE,DP,NA,SR,PP_^1_$INTEGER HEAD1(21),HEAD2(10),HEAD3(3),HEAD4(6),HEAD5,HEAD6(7)_^1_$INTEGER FLAG,TEMP(8),LEN,TOF,LF_^1_$INTEGER BLANKS,NC,WRITE,STDHDR(20,3),DATE(3),HEAD7(5),HDRLEN_^1_$INTEGER ASCZER,LENHD1,LENHD2,HDRONE,HDRTWO,HDRTHR,ONE,TWO,DATFLD_^1_$INTEGER LENHD6,LENHD7,DATPOS,TILPOS,ZEROES,SIXTEN,ERRLEN,ASCNIN_^11_]_^1_$DATA ASTRKS/'**'/,BZ/'BZ'/,RL/'RL'/,LREQD/'L '/,CREQD/'C '/,_^1_#1_#WONE/'01'/,DP/'DP'/,NA/'NA'/,SR/'SR'/,PP/'PP'/,BLANKS/' '/_^1_$DATA NC/'NC'/_^1_$DATA HEAD1/'CCS 2 ACTIVITY VERIFICATION TABLE_#PAGE'/_^1_$DATA HEAD2/'R E S U L T C O D E'/_^1_$DATA HEAD3/'ACT_!'/_^1_$DATA HEAD4/'ION_!L C CD'/_^1_$DATA HEAD5/'--'/_^1_$DATA HEAD6/' END OF TABLE '/_^1_$DATA HEAD7/'RUN DATE: '/_^1_$DATA IDATA/'ACTVERTB',8*$2020,0,1,0/,FLAG/0/,LEN/132/,LF/$D20/,_^1_#1_$TOF/$C20/,REQBUF/24*0/,OBUF/66*$2020/_^1_$DATA ASCZER/$2030/,LENHD1/34/,LENHD2/20/,HDRONE/1/,HDRTWO/41/,_^1_#1_$HDRTHR/81/,ONE/1/,TWO/2/,LENHD6/14/,LENHD7/10/_^1_$DATA DATPOS/63/,TILPOS/45/,ZEROES/$3030/,SIXTEN/$3136/,ERRLEN/44/_^1_$DATA ASCNIN/$39/,HDRLEN/40/,DATFLD/1/,LP/9/_^12_]_^1_$EQUIVALENCE (TBL(1),ACT(1)),(TBL(33),RES(1))_^12_]_^1C_#LOGIN SECTION._^1_$CALL PGMIN(TEMP,LU,I,J)_^1C_#VERIFY MASTER CONSOLE ONLY. EXIT IF NOT._^1_$IF(J.NE.0) GO TO 900_^12_]_^1C_#RETRIEVE TBL FROM FILE._^1 100 CALL OPENFL(REQBUF,IDATA,ISTAT)_^1C_#CHECK FOR ERROR._^1_$IF(ISTAT.LT.0) GO TO 810_^1C_#RETRIEVE TBL, THEN CLOSE FILE._^1_$CALL GETS(REQBUF,TBL,TEMP,ISTAT)_^1C_#CHECK FOR ERROR._^1_$IF(ISTAT.LT.0) GO TO 820_^1_$CALL CLOSFL(REQBUF,ISTAT)_^11_]_^1C_#RETRIEVE STANDARD HEADINGS FOR OUTPUT._^1_$CALL UTHEAD(STDHDR,DATE)_^1._]_^1C_]_^1C_#DUMP MATRIX SHOWING FOR EACH ACTION/RESULT CODE PAIR WHETHER THE_^1C_#COMBINATION IS VALID. ALSO IF IT IS VALID, SHOW THE DEFAULT VALUE_^1C_#IN DAYS FOR NEXT CONTACT AND ANY LETTER OR COMMENT REQUIREMENTS._^1C_]_^1C_#INTIALIZE VARIABLES._^1 200 I = 1_^1_$J = 1_^1_$N = ASCZER_^1_$ASSIGN 450 TO WRITE_^1C_#CHECK IF ANY RESULTS TO PROCESS THIS ROUND._^1 210 IF(RES(J).EQ.ASTRKS) GO TO 355_^1C_]_^1C_#OUTPUT HEADINGS._^1C_]_^1C_#BLANK OUTPUT BUFFER._^1_$CALL CCSBLK(OBUF,LEN)_^1C_#SET TOP OF FORM._^1_$OBUF(1) = TOF_^1_$CALL CCSMVA(HEAD1,ONE,LENHD1,OBUF,TILPOS,LENHD1)_^1C_#SET PAGE NUMBER._^1_$N = N+1_^1_$OBUF(57) = HEAD1(20)_^1_$OBUF(58) = HEAD1(21)_^1_$OBUF(59) = N_^1C_#MOVE IN STANDARD HEADING._^1_$CALL CCSMVA(STDHDR,HDRONE,HDRLEN,OBUF,TWO,HDRLEN)_^1_$ASSIGN 215 TO ICOMPL_^1_$GO TO WRITE_^1C_#MOVE IN SECOND LINE OF HEADING BLANKING REMAINING BUFFER._^1 215 CALL CCSMVA(STDHDR,HDRTWO,HDRLEN,OBUF,ONE,LEN)_^1C_#MOVE IN DATE._^1_$TILPOS = TILPOS + 8_^1_$CALL CCSMVA(HEAD7,ONE,LENHD7,OBUF,TILPOS,LENHD7)_^1_$CALL EDIT(DATE,ONE,OBUF,DATPOS,DATFLD)_^1_$ASSIGN 220 TO ICOMPL_^1_$GO TO WRITE_^1C_#MOVE IN THIRD LINE OF HEADING BLANKING REMAINING BUFFER._^1 220 CALL CCSMVA(STDHDR,HDRTHR,HDRLEN,OBUF,ONE,LEN)_^1_$ASSIGN 225 TO ICOMPL_^1_$GO TO WRITE_^1C_#BLANK OUTPUT BUFFER._^1 225 CALL CCSBLK(OBUF,LEN)_^1_$OBUF(1) = LF_^1_$TILPOS = TILPOS + 3_^1_$CALL CCSMVA(HEAD2,ONE,LENHD2,OBUF,TILPOS,LENHD2)_^1_$ASSIGN 230 TO ICOMPL_^1_$GO TO WRITE_^1C_#BLANK OUTPUT BUFFER._^1_$TILPOS = TILPOS - 11_^1 230 CALL CCSBLK(OBUF,LEN)_^1_$OBUF(1) = LF_^1_$OBUF(2) = $20_^1_$IF(J.NE.1) GO TO 235_^1_$L = ZEROES_^1_$GO TO 240_^1 235 L = SIXTEN_^1 240 DO 245 K=1,16_^1_$L = L+1_^1_$IF(AND(L,$FF).GT.ASCNIN) L=L+$F6_^1 245 OBUF(4*K+2) = L_^1 250 ASSIGN 255 TO ICOMPL_^1_$GO TO WRITE_^1C_#BLANK OUTPUT BUFFER._^1 255 CALL CCSBLK(OBUF,LEN)_^1_$DO 260 K=1,3_^1 260 OBUF(K) = HEAD3(K)_^1_$L = J + 15_^1_$DO 265 K=J,L_^1_$IF(RES(K).EQ.ASTRKS) GO TO 270_^1_$M = AND(K-1,$F) + 1_^1 265 OBUF(4*M+1) = RES(K)_^1 270 ASSIGN 275 TO ICOMPL_^1_$GO TO WRITE_^1C_#BLANK OUTPUT BUFFER._^1 275 CALL CCSBLK(OBUF,LEN)_^1_$DO 280 K=1,3_^1 280 OBUF(K) = HEAD4(K)_^1_$DO 285 K=1,16_^1_$OBUF(4*K+0) = HEAD4(4)_^1_$OBUF(4*K+1) = HEAD4(5)_^1 285 OBUF(4*K+2) = HEAD4(6)_^1_$ASSIGN 290 TO ICOMPL_^1_$GO TO WRITE_^1C_#BLANK OUTPUT BUFFER._^1 290 CALL CCSBLK(OBUF,LEN)_^1_$OBUF(1) = HEAD5_^1_$OBUF(2) = AND($FF20,HEAD5)_^1_$DO 300 K=1,16_^1_$OBUF(4*K+0) = HEAD5_^1_$OBUF(4*K+1) = HEAD5_^1 300 OBUF(4*K+2) = HEAD5_^1_$ASSIGN 305 TO ICOMPL_^1_$GO TO WRITE_^1._]_^1C_#HEADINGS COMPLETE. PROCESS ACTION/RESULT CODE PAIRS FILLING THE_^1C_#OUTPUT BUFFER WITH THE INFORMATION PERTAINING TO EACH PAIR._^1 305 L = I+15_^1C_#LOOP THRU ALL ACTION CODES CHECKING ALL POSSIBLE RESULTS WITH IT._^1_$DO 350 K=I,L_^1C_#CHECK IF ALL ACTION CODES DONE._^1_$IF(ACT(K).EQ.ASTRKS) GO TO 355_^1C_#BLANK OUTPUT BUFFER AND OUTPUT TWO BLANK LINES FOR TRIPLE SPACING._^1_$CALL CCSBLK(OBUF,LEN)_^1_$OBUF(1) = LF_^1_$ASSIGN 310 TO ICOMPL_^1_$GO TO WRITE_^1 310 OBUF(1) = ACT(K)_^1_$II = J + 15_^1C_#LOOP THRU ALL RESULT CODES._^1_$DO 340 M=J,II_^1C_#CHECK IF ALL RESULT CODES CHECK WITH THIS ACTION CODE._^1_$IF(RES(M).EQ.ASTRKS) GO TO 345_^1C_#CHECK THIS ACTION/RESULT CODE PAIR._^1_$CALL AVMVAC(TBL,ACT(K),RES(M),LETREQ,COMREQ,NCD)_^1_$JJ = 4 * (AND(M-1,$F) + 1) - 2_^1C_#CHECK IF THIS ACTION/RESULT CODE PAIR ALLOWED (NCD > OR = 0)._^1_$IF(NCD.LT.0) GO TO 330_^1C_#PAIR VALID. SET LETTER AND COMMENT REQUIREMENTS IF ANY._^1 320 IF(LETREQ.NE.0) OBUF(JJ+2)=LREQD_^1_$IF(COMREQ.NE.0) OBUF(JJ+3)=CREQD_^1C_#CHECK FOR ACTION = SR, RESULT = PP OR BZ, OR NCD = 0 INDICATING_^1C_#SPECIAL VALUE FOR NEXT CONTACT._^1_$IF(ACT(K).EQ.SR) OBUF(JJ+4)=WONE_^1_$IF(RES(M).EQ.PP) OBUF(JJ+4)=DP_^1_$IF(RES(M).EQ.BZ) OBUF(JJ+4)=RL_^1_$IF(OBUF(JJ+4).NE.BLANKS) GO TO 340_^1_$IF(NCD.EQ.0)_#OBUF(JJ+4)=NC_^1_$IF(OBUF(JJ+4).NE.BLANKS) GO TO 340_^1C_#CONVERT NEXT CONTACT DATE._^1_$OBUF(JJ+4) = (NCD/10 * $100) + AND(NCD-(NCD/10)*10,$F) + ZEROES_^1_$GO TO 340_^1 330 OBUF(JJ+4) = NA_^1 340 CONTINUE_^11_]_^1C_#OUTPUT BUFFER._^1 345 ASSIGN 350 TO ICOMPL_^1_$GO TO WRITE_^1 350 CONTINUE_^11_]_^1C_#CHECK IF MORE ACTION/RESULT CODES TO CHECK._^1 355 IF((I.EQ.17.AND.J.EQ.17).OR.(I.EQ.17.AND.M.LT.17).OR.(J.EQ.17.AND._^1_#1_$K.LT.17).OR.(M.LT.17.AND.K.LT.17)) GO TO 400_^1_$IF(J.EQ.17) GO TO 370_^11_]_^1_$J = 17_^1_$GO TO 210_^11_]_^1 370 I = 17_^1_$J = 1_^1_$GO TO 210_^1._]_^1C_]_^1C_#MATRIX OUTPUT COMPLETE. OUTPUT END OF MATRIX MESSAGE AND EXIT._^1C_]_^1 400 CALL CCSBLK(OBUF,LEN)_^1_$OBUF(1) = LF_^1_$ASSIGN 405 TO ICOMPL_^1_$GO TO WRITE_^1 405 TILPOS = TILPOS + 4_^1_$CALL CCSMVA(HEAD6,ONE,LENHD6,OBUF,TILPOS,LENHD6)_^1_$ASSIGN 900 TO ICOMPL_^12_]_^1C_#WRITE FILLED OUTPUT BUFFER._^1 450 CALL FWRITE(LP,OBUF,LEN,ICOMPL,FLAG,TEMP)_^1_$CALL DISP_^1._]_^1C_]_^1C_#FILE ERRORS._^1C_]_^1C_#OPENFL ERROR._^1 810 I = 3_^1_$GO TO 830_^11_]_^1C_#GETS ERROR._^1 820 I = 14_^11_]_^1C_#REPORT ERROR TO USER._^1 830 CALL FILERR(IDATA,I,ISTAT,LU)_^11_]_^1C_#FORCE FILE CLOSURE, BYPASS ANY ERROR._^1 850 CALL CLOSFL(REQBUF,ISTAT)_^13_]_^1C_#NORMAL TERMINATION._^1 900 CALL PGMOUT_^1_$END_]_^__ (BLDSRN CSY/ BLD 0020(1_%PROGRAM BLDSRN_^1_#1_2/DECK-ID F05 CCS 2.0_.SUMMARY-132_^1C_]_^1C_#COPYRIGHT CONTROL DATA CORPORATION, 1978_^1C_#DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1C_#CREDIT COLLECTION SYSTEM VERSION 2.0_^1C_]_^1C_]_^1C_#GENERATE SCREEN FILE FOR DISPLAY._^1C_]_^1C_#GENERATES A SCREEN FILE FROM 80 COLUMN INPUT RECORDS. INPUT IS FRO_^1C_#THE FILE 'SCRNDESC'. THIS FILE IS LOADED ONTO THE SYSTEM VIA A PRO_^1C_#CEDURE STREAM, MODIFIED WITH THE EDITIOR, USED FOR INPUT TO THIS_^1C_#PROGRAM, AND FINALLY SAVED ON TAPE. EACH RECORD IN THE SCREEN FILE_^1C_#'SCRNFILE' CONTAINS A SCREEN DEFINITION WITH ENOUGH INFORMATION TO_^1C_#TO CONSTRUCT A SCREEN. THE FORMAT FOR THE INPUT RECORDS FROM_^1C_#'SCRNDESC' IS:_^1C_7COLS_)DESCRIPTION_^1C_*FIRST CARD_!1 - 2_(SCREEN NUMBER._^1C_73 - 80_'COMMENTS._^1C_*NEXT N RECS 1 - 2_(LINE NUMBER FOR ITEM (01-24)_^1C_73 - 4_(COLUMN NUMBER FOR ITEM (01-80)._^1C_75 - 6_(LENGTH OF FIELD IN BYTES._^1C_77 - 10_'STARTING POSITION IN FILE IF_^1C_FAPPLICABLE._^1C_711_+FIELD TYPE FOR EDITING (SEE BELOW_^1C_712 - 80_%CONSTANT SCREEN FIELD._^1C_741 - 80_%COMMENTS IF NOT CONSTANT FIELD._^1C_*LAST RECORD 1 - 3_(CONSTANT 'END'._^1C_74 - 80_'COMMENTS._^1C_#THE LAST RECORD TO TERMINATE THE SCREEN FILE BUILD IS AN 'END'_^1C_#RECORD WITH THE 'END' STARTING IN COLUMN ONE._^1C_]_^1C_#FIELD TYPES USED ARE:_^1C_*0 = CONSTANT SCREEN FIELD._^1C_*1 = DATE IN FORM MM/DD/YY._^1C_*2 = ALPHA/NUMERIC IN FILE._^1C_*3 = NINE DIGIT DOLLAR AMOUNT IN FORM 9999999.99 ._^1C_*4 = TEN DIGIT PHONE NUMBER IN FORM 999/999-9999 ._^1C_*5 = RESTRICTED USAGE TO REPORT COLLECTION ACTIVITY._^1C_*6 = SOCIAL SECURITY NUMBER IN FORM 999-99-9999 ._^1C_*7 = TIME OF DAY IN 24 HOUR TIME, HHMM ._^1C_*8 = CONSTANT SCREEN FIELD LABELLING CHANGE SCREEN ITEM._^1C_*9 = MOST RECENT COLLECTION ACTIVITY._^1C_]_^1C_#DESCRIPTION OF THE OUTPUT SCREEN DEFINITION RECORD GIVEN IN THE_^1C_#DISPLY SUBROUTINE._^11_]_^1_$INTEGER X,Y,TEMP(8),INBUF(42),OBUF(902),NXTWRD,FLDTYP,_^1_#1_$LENGTH,KEY,FILPOS(2),FLAG,ENDMSG(15),ZERO,CSF(1)_^1_$INTEGER REQBF1(24),REQBF2(24),IDATA1(15),IDATA2(15)_^1_$INTEGER END,LP,ONE,SIX,TWO_^1_$INTEGER EIGHT,ENDLEN,OBFLEN,TC,XYN_^1_$INTEGER TOF,LF,TITLE1(13),TITLE2(5),POSTI1_^1_$INTEGER POSTI2,LENTI1,LENTI2,STDHDR(60),DATE(3),DATPOS,HDRONE_^1_$INTEGER HDRTWO,HDRLEN,FOUR,ASCTEN_^11_]_^1_$EQUIVALENCE (INBUF(1),KEY),(INBUF(1),Y),(INBUF(2),X),_^1_#1_#(INBUF(3),LENGTH),(INBUF(4),FILPOS(1)),(INBUF(6),CSF(1))_^11_]_^1_$DATA REQBF1/24*0/,REQBF2/24*0/,IDATA1/'SCRNFILE',8*$2020,0,1,-1/,_^1_#1_$IDATA2/'SCRNDESC',8*$2020,0,1,-1/,OBUF/902*$2020/_^1_$DATA END/'EN'/,TWO/2/,LP/9/,ONE/1/,INPLEN/80/,FLAG/0/,ZERO/0/_^1_$DATA ENDLEN/30/,OBFLEN/1804/,XYN/-1/_^1_$DATA ENDMSG/$D0A,'SCREEN FILE BUILD COMPLETE '/_^1_$DATA TOF/$C00/,LF/$D20/,HDRLEN/40/_^1_$DATA TITLE1/'SCREEN FILE BUILD CCS 2.0 '/,TITLE2/'RUN DATE: '/_^1_$DATA POSTI1/45/,POSTI2/47/,LENTI1/25/,LENTI2/9/,DATPOS/57/_^1_$DATA HDRONE/1/,HDRTWO/41/,ASCTEN/$30/_^14_]_^1C_]_^1C_#PROGRAM LOGIN. MASTER CONSOLE USAGE ONLY ALLOWED._^1C_]_^1_$CALL PGMIN(TEMP,LU,I,J)_^1C_#EXIT IF NOT MASTER CONSOLE._^1_$IF(J.NE.0) GO TO 950_^11_]_^1C_#CLEAR SCREEN DECRIPTION FILE._^1_$CALL CLEAR(REQBF1,IDATA1,ISTAT)_^1C_#CHECK IF FILE OPEN OR OTHER ERROR._^1_$IF(ISTAT.LT.0) GO TO 810_^1C_#NO ERRORS, OPEN BOTH FILES. LOCK FILE UPON ACCESS._^1C_#ZERO OUT REQBF1 FIRST._^1_$DO 50 I=1,24_^1 50 REQBF1(I) = 0_^1_$CALL OPENFL(REQBF1,IDATA1,ISTAT)_^1C_#CHECK FOR ERROR._^1_$IF(ISTAT.LT.0) GO TO 820_^1C_#NO ERROR._^1_$CALL OPENFL(REQBF2,IDATA2,ISTAT)_^1C_#CHECK FOR ERROR._^1_$IF(ISTAT.LT.0) GO TO 830_^1C_#NO ERRORS. RETRIEVE STANDARD HEADERS FOR OUTPUT._^1_$CALL UTHEAD(STDHDR,DATE)_^1C_#START SCREEN FILE CONSTRUCTION._^1._]_^1C_]_^1C_#OUTPUT HEADER INFORMATION ON FRESH PAGE._^1C_]_^1C_#SET TOP OF FORM._^1 100 INBUF(1) = TOF_^1C_#MOVE IN FIRST LINE OF STANDARD HEADER BLANKING REMAINING BUFFER._^1_$CALL CCSMVA(STDHDR,HDRONE,HDRLEN,INBUF,TWO,INPLEN)_^1C_#MOVE IN FIRST LINE OF TITLE._^1_$CALL CCSMVA(TITLE1,ONE,LENTI1,INBUF,POSTI1,LENTI1)_^1C_#WRITE FIRST LINE._^1_$ASSIGN 110 TO ICOMPL_^1_$CALL FWRITE(LP,INBUF,INPLEN,ICOMPL,FLAG,TEMP)_^1_$CALL DISP_^11_]_^1C_#MOVE IN SECOND LINE OF STANDARD HEADER BLANKING REMAINING BUFFER._^1 110 CALL CCSMVA(STDHDR,HDRTWO,HDRLEN,INBUF,ONE,INPLEN)_^1C_#MOVE IN SECOND LINE OF TITLE._^1_$CALL CCSMVA(TITLE2,ONE,LENTI2,INBUF,POSTI2,LENTI2)_^1C_#MOVE IN RUN DATE._^1_$CALL EDIT(DATE,ONE,INBUF,DATPOS,ONE)_^1C_#WRITE SECOND LINE._^1_$ASSIGN 120 TO ICOMPL_^1_$CALL FWRITE(LP,INBUF,INPLEN,ICOMPL,FLAG,TEMP)_^1_$CALL DISP_^11_]_^1C_#WRITE THIRD LINE OF STANDARD HEADER WITH LINE FEED AT END._^1 120 STDHDR(60) = LF_^1_$ASSIGN 130 TO ICOMPL_^1_$CALL FWRITE(LP,STDHDR(41),HDRLEN,ICOMPL,FLAG,TEMP)_^1_$CALL DISP_^12_]_^1C_]_^1C_#RETRIEVE DESIRED SCREEN DEFINITION._^1C_]_^1 130 CALL GETS(REQBF2,INBUF,TEMP,ISTAT)_^1C_#CHECK FOR ERROR._^1_$IF(ISTAT.LT.0) GO TO 840_^1C_#CHECK FOR END OF SCREENS - TERMINATE IF YES._^1_$IF(KEY.EQ.END) GO TO 900_^11_]_^1C_#START NEW SCREEN. SET KEY INTO FIRST TWO BYTES OF OUTPUT RECORD._^1_$OBUF(1) = ICCSAD(KEY)_^1C_#OUTPUT SCREEN NUMBER AND TITLE._^1_$ASSIGN 150 TO ICOMPL_^1_$CALL FWRITE(LP,INBUF,INPLEN,ICOMPL,FLAG,TEMP)_^1_$CALL DISP_^1 150 NXTWRD = 2_^11_]_^1C_#READ SCREEN DEFINITIONS._^1 200 CALL GETS(REQBF2,INBUF,TEMP,ISTAT)_^1C_#CHECK FOR ERROR._^1_$IF(ISTAT.LT.0) GO TO 840_^1C_#LIST SCREEN DESCRIPTION RECORD INPUT._^1_$ASSIGN 205 TO ICOMPL_^1_$CALL FWRITE(LP,INBUF,INPLEN,ICOMPL,FLAG,TEMP)_^1_$CALL DISP_^1C_#CHECK FOR END OF SCREEN DEFINITION._^1 205 IF(Y.EQ.END) GO TO 300_^11_]_^1C_#CONSTRUCT SCREEN DEFINITION FROM INPUT. CONSTRUCT FIRST WORD, X-Y_^1C_#POSITIONING. SAVE INDEX FOR SECOND WORD._^1_$ISAVE = NXTWRD + 1_^1_$OBUF(NXTWRD) = (ICCSAD(X)-1)*$100 + ICCSAD(Y)-1_^11_]_^1C_#SET SECOND WORD, THE LOCATION OF THE NEXT FIELD DESCRIPTION._^1C_#CONVERT FIELD TYPE AND LENGTH TO NUMBERS._^1_$FLDTYP = AND(INBUF(6)/$100,$F)_^1_$LENGTH = ICCSAD(LENGTH)_^1C_#CHECK IF FIELD TYPE = 0 OR 8, CONSTANT SCREEN FIELD._^1_$IF(FLDTYP.EQ.0.OR.FLDTYP.EQ.8) GO TO 210_^1_$OBUF(NXTWRD+1) = NXTWRD + 5_^1_$GO TO 220_^1C_#CONSTANT SCREEN FIELD. START OF NEXT FIELD DESCRIPTION MUST INCLUD_^1C_#ANY CHARACTERS SAVED._^1 210 OBUF(NXTWRD+1) = NXTWRD + 5 + (LENGTH+1)/2_^11_]_^1C_#GET THIRD WORD, LENGTH OF SCREEN ITEM._^1 220 OBUF(NXTWRD+2) = LENGTH_^11_]_^1C_#GET FOURTH AND FIFTH WORDS, FILE POSITION AND FIELD TYPE._^1_$IF(FLDTYP.EQ.0.OR.FLDTYP.EQ.8) GO TO 250_^1_$OBUF(NXTWRD+3) = ICCSAD(FILPOS(1))*100 + ICCSAD(FILPOS(2))_^1_$OBUF(NXTWRD+4) = FLDTYP_^1_$GO TO 260_^11_]_^1C_#CONSTANT SCREEN FIELD - SET STARTING POSITION IN FILE FIELD TO ONE_^1C_#AND SAVE THE FIELD TYPE AND CONSTANT SCREEN FIELD._^1 250 OBUF(NXTWRD+3) = 1_^1_$OBUF(NXTWRD+4) = FLDTYP_^1C_#SET STARTING BYTE INTO OBUF WHERE FIELD IS TO BE MOVED._^1_$J = (NXTWRD + 5) * 2 - 1_^1_$CALL CCSMVA(CSF,TWO,LENGTH,OBUF,J,LENGTH)_^1 260 NXTWRD = OBUF(NXTWRD+1)_^1_$GO TO 200_^12_]_^1C_#SCREEN COMPLETE. TERMINATE SCREEN DESCRIPTION AND SAVE RECORD._^1C_]_^1 300 OBUF(ISAVE) = 0_^1_$CALL WRITER(REQBF1,OBUF,OBUF(1),ISTAT)_^1C_#CHECK FOR ERROR._^1_$IF(ISTAT.LT.0) GO TO 850_^1C_#NO ERROR, BLANK OUTPUT BUFFER AND PROCESS NEXT SCREEN._^1_$CALL CCSBLK(OBUF,OBFLEN)_^1_$GO TO 100_^1._]_^1C_]_^1C_#FILE ERRORS._^1C_]_^1C_#CLEAR REQUEST, SCRNFILE._^1 810 I = 1_^1_$GO TO 825_^1C_#OPEN REQUEST, SCRNFILE._^1 820 I = 3_^1 825 CALL FILERR(IDATA1,I,ISTAT,LU)_^1_$GO TO 910_^1C_#OPEN REQUEST, SCRNDESC._^1 830 I = 3_^1_$GO TO 845_^1C_#GETS REQUEST, SCRNDESC._^1 840 I = 14_^1 845 CALL FILERR(IDATA2,I,ISTAT,LU)_^1_$GO TO 910_^1C_#WRITER REQUEST, SCRNFILE._^1 850 I = 12_^1_$GO TO 825_^11_]_^1C_#NORMAL TERMINATION. OUTPUT BUILD COMPLETE MESSAGE._^1 900 ASSIGN 905 TO ICOMPL_^1_$CALL FWRITE(LP,ENDMSG,ENDLEN,ICOMPL,FLAG,TEMP)_^1_$CALL DISP_^1 905 CALL WTREAD(LU,XYN,ENDMSG,ENDLEN,ZERO,ZERO,ZERO,TC)_^11_]_^1C_#FORCE FILE CLOSURES. IGNORE ANY ERRORS._^1 910 CALL CLOSFL(REQBF1,ISTAT)_^1_$CALL CLOSFL(REQBF2,ISTAT)_^1C_#EXIT._^1 950 CALL PGMOUT_^1_$END_]_^__(CCSDMP CSY/ CCS (1_$PROGRAM CCSGDP_^1_#1_2/DECK-ID F06 CCS 2.0_.SUMMARY-132_^1C_]_^1C_#COPYRIGHT CONTROL DATA CORPORATION, 1978_^1C_#DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1C_#CREDIT COLLECTION SYSTEM VERSION 2.0_^1C_]_^1C_#PROGRAM DUMPS SPECIFIC RECORDS FROM FM2.0 FILES, EITHER BY RECORD_^1C_'NUMBER OR KEY. ALSO DUMPS TAPE FILES._^1_$INTEGER BUFFER(2000), REQBUF(24), VOLNAM(4), FCBBFR(96)_^1_$INTEGER INBF(30), EXACT, Y, RECSPC(16), LEXT(3), LIT3(3),_^1_#* IDUSER(4), IDATA(15), LIT1(2), LIT2(2), SEQ(2), INDX(2),_^1_#* OVER(2), KEY(16), KEYSTP(16) , TAPE0(3)_^1_]_^1_$DATA Y/$5900/, LEXT/'EXACT '/, LU/12/, SEQ/'SEQ '/, INDX/'INDX'/_^1_$DATA OVER/'OVER'/_^1_$DATA IDATA/15*$2020/, VOLNAM/4*0/, REQBUF/24*0/_^1_$DATA TAPE0/'TAPE0 '/_^12_]_^1_]_^1_]_^1_$CALL PGMIN ( IDUSER, LUNIT, MDE, NOPRT)_^1_$WRITE (LUNIT, 9000)_^19000 FORMAT ( 'GENERAL DUMP PGM IN ')_^1100_!WRITE (LUNIT, 9001)_^19001 FORMAT ( ' ENTER FILE NAME(CR) TO BE DUMPED, (CR) TO TERMINATE' )_^1_$CALL INPUT (LUNIT, INBF, NCH)_^1_$IF (NCH .LE. 1) GO TO 8000_^1C_#CHECK IF TAPE OR FILE DUMPING_^1_$CALL CCSCST (INBF, 1, 5, TAPE0, 1, 5, IND)_^1_$IF (IND .NE. 0) GO TO 120_^1C_#TAPE DUMP_^1_$CALL TAPE ( LU, BUFFER, LUNIT)_^1_$GO TO 100_^1C_#CLOSE THE FILE (WHAT FILE) FOR GOOD LUCK_^1120_!CALL CLOSFL (REQBUF, MSTAT)_^1C_#OPEN FILE_^1_$CALL CCSMVA (INBF,1, NCH, IDATA, 1, 8)_^1_$IDATA(13) = 0_^1_$IDATA(14) = 1_^1_$IDATA(15) = 0_^1_$DO 130 I = 1, 24_^1130_!REQBUF(I) = 0_^1_$CALL OPENFL (REQBUF, IDATA, ISTAT)_^1_$IF (ISTAT .GE. 0) GO TO 150_^1C_#ERROR IN OPEN_^1_$CALL FILERR (IDATA, 3, ISTAT, LUNIT)_^1_$GO TO 100_^1C_#GET FILE FCB TO DETERMINE RECORD LENGTH AND FILE TYPE_^1150_!CALL GETFCB (REQBUF, VOLNAM, INDEX, FCBBFR, JSTAT)_^1_$IF (JSTAT .GE. 0) GO TO 200_^1C_#ERROR IN GET FCB_^1_$CALL FILERR (IDATA, 7, JSTAT, LUNIT)_^1_$GO TO 100_^1200_!LREC = FCBBFR(1)_^1_$NRECM = FCBBFR(7)_^1_$NRECL = FCBBFR(8)_^1_$IDX = AND(FCBBFR(6), $0001)_^1C_#LREC = NUMBER OF BYTES IN RECORD_^1C_#NREC = NUMBER OF RECORDS IN FILE, ONLY SINGLE PRECSION NOW._^1C_#IDX = 1 IF INDEXED, 0 IF SEQUENTIAL_^1_$CALL CCSMVA (SEQ, 1, 4, LIT1, 1, 4)_^1_$IF (IDX .NE. 0) CALL CCSMVA (INDX, 1, 4, LIT1, 1 , 4)_^1_$CALL CCSMVA ($2020, 1, 1, LIT2, 1, 4)_^1_$IF (NRECM .NE. 0) CALL CCSMVA (OVER, 1, 4, LIT2, 1, 4)_^1_$WRITE (LUNIT, 9002) LIT1, LIT2, NRECL_^19002 FORMAT ( 'FILE IS ', 2A2,' AND CONTAINS ',2A2,I5,_^1_#* ' RECORDS.' )_^11_]_^1C_#FILE OPENED OKAY CONTINUE PROMPTING FOR WHAT RECORDS_^1_$IF (IDX .EQ. 0) GO TO 300_^1C_#PROMPT FOR WHICH INDEX_^1250_!WRITE (LUNIT, 9003)_^19003 FORMAT ( ' ENTER 0/1/2/3/4 (CR) FOR ACCESS BY RRN OR KEYS 1-4.')_^1_$CALL INPUT (LUNIT, INBF, NCH)_^1_$IF (NCH .EQ. 0) GO TO 100_^1C_#CONVERT CHARACTER TO INTEGER_^1_$CALL INTGR (INBF, 1, JRTYP)_^1C_#SAVE ACCESS TYPE IN REQUEST BUFFER_^1_$REQBUF(14) = JRTYP_^1_$IF (JRTYP .EQ. 0) IDX = 0_^1_$IF ( JRTYP.EQ.0) GO TO 300_^1C_#ASK OPERATOR FOR HORSESHOES (CLOSE COUNTS)_^1_$WRITE (LUNIT, 9004)_^19004 FORMAT ( ' ENTER Y(CR) IF AN EXACT KEY TO BE DUMPED, OTHERWISE DUM_^1_#*P WILL USE 1ST CLOSE KEY ')_^1_$CALL INPUT (LUNIT, INBF, NCH)_^1_$EXACT = 0_^1_$IF ( AND(INBF(1), $FF00) .EQ. Y) EXACT = 1_^11_]_^1300_!WRITE (LUNIT, 9005)_^19005 FORMAT ( ' ENTER STARTING RECORD NUMBER OR KEY VALUE ')_^1_$CALL INPUT (LUNIT, INBF, NCH)_^1_$IF (NCH .LT. 1) GO TO 100_^1_$IF (IDX .EQ. 1) GO TO 350_^1C_#CONVERT RECORD NUMBER TO INTEGER - ONLY SINGLE PRECISION_^1_$IF (NCH .GT. 5) GO TO 300_^1_$CALL INTGR (INBF, NCH, ISTR)_^1_$GO TO 400_^1C_#KEY ENTERED - SAVE_^1350_!CALL CCSMVA (INBF, 1, NCH, KEY, 1, 32)_^1_$IF ( EXACT .EQ. 1) GO TO 1000_^1400_!WRITE(LUNIT, 9006)_^19006 FORMAT ( ' ENTER ENDING RECORD NUMBER OR KEY VALUE ')_^1_$CALL INPUT ( LUNIT, INBF, NCH)_^1_$IF ( NCH .LT. 1) GO TO 500_^1_$IF ( IDX .EQ. 1) GO TO 450_^1C_#CONVERT RECORD NUMBER_^1_$IF (NCH .GT. 5) GO TO 400_^1_$CALL INTGR ( INBF, NCH, ISTP)_^1_$GO TO 1000_^1450_!CALL CCSMVA ( INBF, 1, NCH, KEYSTP, 1, 32)_^1_$GO TO 1000_^1C_#NO STOP ENTERED, ASSUME STOP EQUALS START_^1500_!ISTP = ISTR_^1_$IF (IDX .EQ. 1) CALL CCSMVA (KEY,1,32,KEYSTP,1,32)_^1._]_^1C_#INITIAL GO AT RETRIEVING A RECORD_^11000 DO 1010 I = 1,16_^11010 RECSPC(I) = 0_^1_$RECSPC(2) = ISTR_^1_$IF ( IDX .EQ. 1) CALL CCSMVA ( KEY, 1, 32, RECSPC, 1, 32)_^1_$CALL READR (REQBUF, BUFFER, RECSPC, KSTAT)_^1C_#CHECK 1ST FOR GOOD READ RIGHT ON RECORD_^1_$IF ( KSTAT .GE. 0 .AND. AND(KSTAT,$0200) .EQ. 0) GO TO 1100_^1C_#CHECK FOR CLOSE WHEN CLOSE IS GOOD ENOUGH_^1_$IF (KSTAT .GE. 0 .AND. EXACT .EQ. 0) GO TO 1100_^1C_#WE ARE LEFT WITH EITHER NO RETRIEVE OR A CLOSE WHEN WE WANTED TO_^1C_%EXACT RECORD_^1_$CALL FILERR ( IDATA, 13, KSTAT, LUNIT)_^1_$GO TO 100_^12_]_^1C_#GOOD INITIAL RETRIEVE, SET UP DUMP HEADINGS_^11100 WRITE (LU,9007)_^19007 FORMAT ( '1 FILE NAME TYPE RETRIEVAL_"KEY LIMITS')_^1_$IF (IDX .EQ. 1) GO TO 1150_^1C_#RECORD NUMBER HEADINGS_^1_$WRITE (LU,9008) (IDATA(I), I=1,4), LIT1, JRTYP, ISTR_^19008 FORMAT ( 4X, 4A2, 2X, 2A2, 5X, I1, 10X, I5)_^1_$WRITE (LU, 9009) ISTP_^19009 FORMAT (34X, I5, //)_^1_$GO TO 1200_^11_]_^1C_#KEY VALUE HEADINGS_^11150 CALL CCSMVA ($2020, 1, 1, LIT3, 1, 6)_^1_$IF (EXACT .EQ. 1) CALL CCSMVA(LEXT, 1, 6, LIT3, 1, 6)_^1_$WRITE (LU, 9010) (IDATA(I),I=1,4), LIT1, JRTYP, LIT3, KEY_^19010 FORMAT (4X, 4A2, 2X, 2A2, 5X, I1, 1X, 3A2, 3X, 16A2)_^1_$IF (EXACT .EQ. 1) GO TO 1200_^1_$WRITE (LU,9011) KEYSTP_^19011 FORMAT ( 34X, 16A2, //)_^1C_#CHECK IF KEY VALUE PAST LIMIT_^11175 CALL CCSCST ( RECSPC, 1, 32, KEYSTP, 1, 32, IND)_^1_$IF (IND .GT. 0) GO TO 100_^12_]_^1C_#PRINT THE RECORD_^11200 CALL SEEIT (LU,BUFFER, LREC, 0)_^1_$IF (EXACT .EQ. 1) GO TO 100_^1_$WRITE (LU, 9012)_^19012 FORMAT (1H0)_^11_]_^1C_#CHECK IF MORE RECORDS WANTED_^1_$IF (IDX .EQ. 1) GO TO 2000_^1C_#CHECK IF PAST RECORD NUMBER LIMIT_^1_$IF ( REQBUF(17) .GE. ISTP) GO TO 100_^11_]_^1C_#GET ADDITIONAL RECORDS_^12000 CALL GETS (REQBUF, BUFFER, RECSPC, LSTAT)_^1_$IF (LSTAT .GE. 0 .AND. IDX .NE. 1) GO TO 1200_^1_$IF ( LSTAT .GE. 0 .AND. IDX .EQ. 1 ) GO TO 1175_^1_$CALL FILERR (IDATA, 14, LSTAT, LUNIT)_^1_$GO TO 100_^1_]_^1_]_^13_]_^1C_#NORMAL TERMINATION, CLOSE FILE AND REPORT TO USER._^18000 CALL CLOSFL (REQBUF, MSTAT)_^1_$WRITE (LUNIT, 9100)_^19100 FORMAT ( 'GENERAL DUMP PROGRAM OUT. ')_^1_$CALL PGMOUT_^1_]_^1_]_^1_]_^1_]_^1_$END_]_^1_$SUBROUTINE SEEIT (LU, BUFFER, BLEN, MODE)_^1_#*_2/ PRINT BUFFER_^1_$INTEGER BUFFER(1), BLEN, VIEW(40), LINE(65), IWORK(3)_^1_$DATA LINE(1)/'0 '/_^1_]_^11_]_^1C_#BUFFER LENGTH TO WORDS AND POSSIBLE BLANK FILL_^1_$IWD = BLEN_^11_]_^1100_!WRITE ( LU, 9000)_^19000 FORMAT( '0_>1_^1_#*2_73_41_(2_^1_#* 3 ' )_^1_$WRITE (LU, 9001)_^19001 FORMAT( ' OFFSET_!1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9_^1_#*0 1 2 3 4 5 6 7 8 9 0_!OFFSET_!1234567890123456789012345678_^1_#*90 ' )_^1_$DO 1000 I = 1, IWD, 15_^1_$J = I + 14_^1_$IF ( J .GT. IWD) J = IWD_^1_$K = (I - 1) * 2_^1_$CALL XLAT ( BUFFER(I), VIEW, 30, MODE)_^1C_#BUILD DETAIL LINE_^1_$CALL CCSMVA ($2020, 1, 1, LINE, 3, 128)_^1_$CALL HEXDEC (K,IWORK)_^1_$CALL CCSMVA (IWORK, 3, 4, LINE, 3, 4)_^1_$CALL CCSMVA (IWORK, 3, 4, LINE, 87, 4)_^1_$IPOS = 10_^1_$JPOS = 96_^1_$II = 1_^1_$DO 200 L = I, J_^1_$CALL HEXASC (BUFFER(L), IWORK)_^1_$CALL CCSMVA ( IWORK, 1, 4, LINE, IPOS, 5)_^1_$CALL CCSMVA (VIEW, II, 2, LINE, JPOS, 2)_^1_$IPOS = IPOS + 5_^1_$JPOS = JPOS + 2_^1_$II = II + 2_^1200_!CONTINUE_^1_$CALL CCSPUT ($28, 95, LINE)_^1_$CALL CCSPUT ($29, 126, LINE)_^1_$WRITE ( LU, 9002) LINE_^19002 FORMAT (65A2)_^11000 CONTINUE_^1_$RETURN_^1_$END_]_^1_$SUBROUTINE INTGR ( INBF, NCH, IOUT)_^1_#*_2/ ASCII TO INTEGER_^1_$INTEGER INBF(1)_^1_$J = 0_^1_$IOUT = 0_^1_$DO 100 I = NCH, 1, -1_^1_$CALL CCSGET (INBF, I, IWK)_^1_$IWK = AND (IWK, $F)_^1_$IOUT = (IWK*10**J) + IOUT_^1_$J = J + 1_^1100_!CONTINUE_^1_$RETURN_^1_$END_]_^1_$SUBROUTINE INPUT (LU, BUF, NCH)_^1_#*_2/ TERMINAL INPUT_^1_$INTEGER BUF(30), TEMP(8)_^1_$IFLG = 0_^1_$ASSIGN 105 TO ICOMPL_^1_$CALL FREAD (LU, BUF, 58, ICOMPL, IFLG, TEMP)_^1_$CALL DISP_^1105_!NCH = BUF(30)_^1_$RETURN_^1_$END_]_^1_$SUBROUTINE TAPE ( PLU, BUFFER, LUNIT)_^1_#*_2/ HANDLE TAPE DUMPS_^1_$INTEGER PLU, BUFFER(2000), TEMP(8), C, R, E, TLU_^1_$DATA C/$43/, R/$52/, E/$45/, TLU/6/, IFLG/0/_^12_]_^1_]_^11_#WRITE (LUNIT, 9000)_^19000 FORMAT ( ' MOUNT TAPE TO BE DUMPED ON UNIT 0.',/,_^1_#*_(' ENTER C/R/E (CR) TO CONTINUE, REWIND AND CONTINUE, OR E_^1_#*XIT TAPE DUMPING.',/,_^1_#* ' IF EBCDIC TAPE FOLLOW C/R WITH E, SUCH AS RE (CR).' )_^1_$IRWD = 0_^1_$BUFFER(1) = 0_^1_$MODE = 0_^1_$CALL INPUT (LUNIT, BUFFER, NCH)_^1_$IF (NCH .EQ. 0) GO TO 8000_^1_$CALL CCSGET ( BUFFER, 2, I)_^1_$IF ( I .EQ. E) MODE = 1_^1_$CALL CCSGET (BUFFER, 1, I)_^1_$IF ( I .EQ. C) GO TO 200_^1_$IF ( I .EQ. R) GO TO 100_^1_$IF ( I .EQ. E) GO TO 8000_^1100_!CALL TAPMOT (TLU, 3)_^1_$IRWD = 1_^1_$WRITE ( PLU, 9101)_^19101 FORMAT ('1_!TAPE REWOUND ')_^11_]_^1C_#PROMPT FOR FILE SKIPPING_^1200_!WRITE (LUNIT, 9001)_^19001 FORMAT ( ' ENTER NUMBER OF FILES TO SKIP.' )_^1_$NF = 0_^1_$CALL INPUT (LUNIT, BUFFER, NCH)_^1_$IF (NCH .GT. 3) GO TO 200_^1_$IF ( NCH .EQ. 0) GO TO 300_^1_$CALL INTGR (BUFFER, NCH, NF)_^1_$IF (NF .EQ. 0) GO TO 300_^1_$WRITE (LUNIT,9002) NF_^19002 FORMAT ( I5, ' FILES BEING SKIPPED.' )_^1_$DO 250 I = 1, NF_^1 250 CALL TAPMOT (TLU, 5)_^1_$WRITE (LUNIT, 9003)_^19003 FORMAT ( ' FILE SKIPPING COMPLETE.' )_^1_$WRITE (PLU, 9102) NF_^19102 FORMAT ('0', I4, ' FILES SKIPPED' )_^11_]_^1300_!NF = NF +1_^1C_#PROMPT FOR NUMBER OF RECORDS TO SKIP_^1301_!WRITE (LUNIT, 9004)_^19004 FORMAT ( ' ENTER NUMBER OF RECORDS TO SKIP.' )_^1_$NR = 0_^1_$CALL INPUT ( LUNIT, BUFFER, NCH)_^1_$IF (NCH .GT. 4) GO TO 301_^1_$IF (NCH .EQ. 0) GO TO 500_^1_$CALL INTGR ( BUFFER, NCH, NR)_^1_$IF (NR .EQ. 0) GO TO 500_^1_$WRITE (LUNIT, 9005) NR_^19005 FORMAT ( I5, ' RECORDS BEING SKIPPED. ' )_^1_$ASSIGN 350 TO ICMP_^1_$DO 400 I = 1, NR_^1_$CALL FREAD (TLU, BUFFER, 2000, ICMP, IFLG, TEMP)_^1_$CALL DISP_^1350_!IF (LINK(0) .LT. 0) GO TO 450_^1400_!CONTINUE_^1_$WRITE (LUNIT, 9006)_^19006 FORMAT ( ' RECORD SKIPPING COMPLETE.' )_^1_$WRITE (PLU, 9103) NR_^19103 FORMAT('0', I4, ' RECORDS SKIPPED' )_^1_$GO TO 500_^1C_#ERROR OR EOF IN SKIPPING RECORDS, ASSUME EOF_^1450_!WRITE (LUNIT, 9007) I_^19007 FORMAT ( ' EOF DETECTED WHILE SKIPPING THE ',I4,'TH RECORD',/,_^1_#*_(' ACTION IDENTICAL TO SKIPPING 1 FILE. ' )_^1_$INF = 1_^1_$WRITE (PLU, 9102) INF_^1_$NF = NF + 1_^1_$NR = 0_^12_]_^1500_!NR = NR +1_^1C_#PROMPT FOR NUMBER OF RECORDS TO DUMP_^1501_!WRITE ( LUNIT, 9008)_^19008 FORMAT ( ' ENTER NUMBER OF RECORDS TO DUMP.')_^1_$CALL INPUT (LUNIT, BUFFER, NCH)_^1_$IF ( NCH .EQ. 0) GO TO 1_^1_$IF ( NCH .GT. 3) GO TO 501_^1_$CALL INTGR ( BUFFER, NCH, ND)_^1_$IF ( ND .EQ. 0) GO TO 1_^12_]_^1C_#FINALLY, WE ARE DUMPING RECORDS_^1_$ASSIGN 600 TO ICMP_^1_$DO 1000 I = 1, ND_^1_$CALL FREAD (TLU, BUFFER, 3000, ICMP, IFLG, TEMP)_^1_$CALL DISP_^1600_!IF ( LINK (0) .LT. 0) GO TO 1200_^1C_#CALCULATE NUMBER OF WORDS READ_^1_$NWDS = BUFFER(1501)/2_^1_$WRITE (PLU, 9009) I_^19009 FORMAT (//,'0 RELATIVE TAPE RECORD NUMBER =' , I5 )_^13_]_^1_$CALL SEEIT (PLU, BUFFER, NWDS, MODE)_^11000 CONTINUE_^1_$GO TO 1_^12_]_^1C_#EOF OR ERROR WHILE DUMPING RECORDS_^11200 WRITE (LUNIT, 9010) I_^19010 FORMAT ( ' EOF OR ERROR DETECTED DURING ACCESS OF RELATIVE RECOR_^1_#*D NUMBER', I5_!)_^1_$GO TO 1_^1_]_^1_]_^1_]_^1_]_^18000 RETURN_^1_$END_]_^1_$SUBROUTINE XLAT (EBC, ASC, EALNG, MD)_^1_#*_2/ EDIT FOR PRINT_^1_$INTEGER EBC(1), ASC(1), EALNG, ASCTAB(29), EBCTAB(29)_^1_$INTEGER PERIOD_^1_$DATA PERIOD /$2E/_^1_$DATA ASCTAB/' <.(+&$*)>-/,%?: ',$4027,'="ABCDEFGHIJKLMNOPQRSTUVWXY_^1_#*Z0123456789'/_^1_$DATA EBCTAB/$404A,$4B4D,$4E50,$5B5C,$5D5E,$6061,$6B6C,$6D6F,$7A7B,_^1_#*$7C7D,$7E7F,$C1C2,$C3C4,$C5C6,$C7C8,$C9D1,$D2D3,$D4D5,$D6D7,$D8D9,_^1_#* $E2E3,$E4E5,$E6E7,$E8E9,$F0F1,$F2F3,$F4F5,$F6F7,$F8F9/_^12_]_^1C_#TRANSLATE EBCDIC IF REQUIRED_^1_$IF (MD .EQ. 0) GO TO 100_^1C_#EBCDIC TRANSLATION_^1_$K = 0_^1_$ITEMP = 0_^1_$IEA = 0_^1_]_^110_"IEA = IEA + 1_^1_$CALL CCSGET (EBC, IEA, ITEMP)_^1_$DO 20 J = 1,58_^1_$CALL CCSGET ( EBCTAB,J,K)_^1_$IF ( K - ITEMP) 20,30,20_^120_"CONTINUE_^1_$J = 3_^130_"CALL CCSGET ( ASCTAB, J, K)_^1_$CALL CCSPUT (K, IEA, ASC)_^1_$IF (IEA .LT. EALNG) GO TO 10_^1C_#DONE WITH EBCDIC CONVERSION, NOW EDIT_^1100_!DO 110 I = 1, EALNG_^1_$CALL CCSGET ( EBC,I, K)_^1_$IF (MD .NE. 0) CALL CCSGET (ASC, I, K)_^1_$IF ( K .LT. $20) K = PERIOD_^1_$IF ( K .GT. $5D) K = PERIOD_^1_$CALL CCSPUT ( K, I, ASC)_^1110_!CONTINUE_^1_$RETURN_^1_$END_]_^1_$SUBROUTINE TAPMOT ( LU, ACTION)_^1_#*_2/ TAPE MOTION PROCESSOR_^1_$INTEGER ACTION, SFUNC_^1C_#CHECK FOR LEGIT ACTION_^1C_#1 - BSR_^1C_#2 - EOF_^1C_#3 - REW_^1C_#4 - REW/UNL_^1C_#5 - AVF_^1C_#6 - BSF_^1C_#7 - ADR_^1_$IF ( ACTION .LE. 0 .OR. ACTION .GT. 7) RETURN_^1_$ILU = LU_^1_$SFUNC = ACTION * 409|6_^1_$ASSEM $C800,ILU,$6800,65_^1_$ASSEM $C800,SFUNC,$6800,66_^1_$ASSIGN 70 TO ICONT_^1_$ASSEM $C800,ICONT,$6400,+64_^1C_#ACTUAL REQUEST_^1_$ASSEM $54F4,$5C00_^164_"ASSEM $0,$0_^165_"ASSEM $0_^166_"ASSEM $0_^1_$CALL DISP_^170_"RETURN_^1_$END_]_^__ |(CCSPAS CSY/ CCS 0020(1_$PROGRAM CCSPAS_^1_#1_2/DECK-ID F07 CCS 2.0_.SUMMARY-132_^1_$INTEGER USER(4),INP(2),OUTP(5),MSGO(4)_^1C_]_^1C_#COPYRIGHT CONTROL DATA CORPORATION, 1978_^1C_#DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1C_#CREDIT COLLECTION SYSTEM VERSION 2.0_^1C_]_^1_$DATA OUTP / $D0A, 'READY? ' /_^1_$DATA MSGO / 'MNUPRO ' /_^1_$DATA INP / '_"' /_^1_$CALL PGMIN ( USER, LU, MODE, NPHORT )_^1_$CALL WTREAD ( LU, -1, OUTP, 10, -1, INP , 1, L )_^1_$IF (AND(INP(1),$FF00).NE.$2000) CALL CHAIN ( MSGO )_^1_$CALL PGMOUT_^1_$END_]_^__H(CCSSPC CSY/ CCS 0020(1_$PROGRAM CCSSPC_^1_#1_2/DECK-ID F08 CCS 2.0_.SUMMARY-132_^1C_]_^1C_]_^1C_#COPYRIGHT CONTROL DATA CORPORATION,1978_^1C_#DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1C_#CREDIT COLLECTION SYSTEM VERSION 2.0_^1C_]_^1C---------------------------------------------------------------------_^1C_]_^1C_#AUDIT PRODUCES THE FILE SPACE REPORT. THE REPORT DISPLAYS FILE_^1C_#NAMES AND AVAILABLE SPACE INFORMATION IN THE FORM OF (1) MAXIMUM_^1C_#RECORDS ALLOWED, (2) NUMBER OF RECORDS CURRENTLY IN THE FILE,_^1C_#(3) NUMBER OF RECORDS REMAINING, AND (4) PERCENTAGE OF TOTAL FILE_^1C_#SPACE AVAILABLE. THIS INFORMATION IS GIVEN FOR SEVEN FILES :_^1C_#DELQMST, COSIGNER, ACCAGE, ACTFIL, SUMHIST, TAPEARC, AND INACCT._^1C_]_^1C---------------------------------------------------------------------_^1C_]_^1C ---- PROGRAM DECLARATIONS ----_^1C_]_^1_$EXTERNAL AMONTO,ADAYTO,AYERTO_^1C_]_^1_$RELATIVE GETFCB_^1C_]_^1_$INTEGER LU,LST,OD_^1_$INTEGER REQBUF(24),VOLNAM(4),INDEX,FCBBFR(96),ISTAT,ERR(13)_^1_$INTEGER NAME(4),REC_^1_$REAL MXRECS,CURECS,AVRECS_^1_$INTEGER IDATA(15,7)_^1_$INTEGER MO,DA,YR_^1_$INTEGER RPTHDR(9),HDR1(40),HDR2(40),MSGMU(40),MSGWN(40)_^1C_]_^1_$REAL HIRECS,NMRECS,RMRECS,PCTREM,TDATRM,TDATRL,NEDATM,NEDATL_^1_$REAL COMPM,COMPW_^1C_]_^1_$DATA COMPM/05.0/,COMPW/15.0/_^1_$DATA IDATA / 'DELQMST ',8*$2020,0,1,0, 'COSIGNER',8*$2020,0,1,0,_^1_#1_,'ACCAGE ',8*$2020,0,1,0, 'ACTFIL ',8*$2020,0,1,0,_^1_#2_,'SUMHIST ',8*$2020,0,1,0, 'TAPEARC ',8*$2020,0,1,0,_^1_#3_,'INACCT ',8*$2020,0,1,0/_^1_$DATA REC / 0 /_^1_$DATA LST/12/,LU/4/_^1_$DATA RPTHDR/' FILE SPACE REPORT'/_^1_$DATA HDR1/'_%FILE_(MAXIMUM_#CURRENT_#AVAILABLE_^1_#2_"PCT SPACE_+'/_^1_$DATA HDR2/'_%NAME_(RECORDS_#RECORDS_$RECORDS_^1_#2_"AVAILABLE_+'/_^1_$DATA MSGMU/'_#THIS FILE MUST BE COMPRESSED AND HISTORY MUST BE_^1_#2RUN_"*****_,'/_^1_$DATA MSGWN/'_#WARNING_"-_"THIS FILE SHOULD BE COMPRESSED_^1_#2_%*****_,'/_^1C_]_^1_$EQUIVALENCE (FCBBFR(25),NAME(1))_^1_$BYTE (ISIGN1,TDATRL(15=15)),(ISIGN2,NEDATL(15=15))_^1C_]_^1C ---- GET DATE ----_^1C_]_^1_$MO = AND(AMONTO,$FFFF)_^1_$DA = AND(ADAYTO,$FFFF)_^1_$YR = AND(AYERTO,$FFFF)_^1C_]_^1C ---- GET APPROPRIATE FCBS ----_^1C_]_^1_$DO 199 K = 1, 7_^1C_(ZERO THE REQUEST BUFFER FOR THE NEXT FILE_^1_$DO 250 J = 1, 24_^1 250 REQBUF(J) = 0_^1C_(OPEN THE FILE FOR USE_^1_$CALL OPENFL ( REQBUF, IDATA(1,K), ISTAT )_^1C_(ERROR ?_^1_$IF ( ISTAT .GE. 0 ) GO TO 260_^1_$CALL FILERR ( IDATA(1,K), 3, ISTAT, LU )_^1_$GO TO 199_^1C_(GET THE FCB_^1 260 VOLNAM(1) = 0_^1_$CALL GETFCB ( REQBUF, VOLNAM, INDEX, FCBBFR, ISTAT )_^1C_(ERROR ?_^1_$IF ( ISTAT .GE. 0 ) GO TO 300_^1_$CALL FILERR ( IDATA(1,K), 7, ISTAT, LU )_^1_$GO TO 280_^1C_]_^1C ---- HIT ----_^1C_]_^1 300 REC = REC + 1_^1C_]_^1C ---- CONVERT TWO-WORD BINARY NUMBER TO REAL ----_^1C_]_^1_$TDATRM = FCBBFR(2) * 65536._^1_$TDATRL = FCBBFR(3)_^1_$IF ( ISIGN1 .EQ. 1 ) TDATRL = TDATRL + 65535._^1_$HIRECS = TDATRM + TDATRL_^1C_]_^1_$NEDATM = FCBBFR(7) * 65536._^1_$NEDATL = FCBBFR(8)_^1_$IF ( ISIGN2 .EQ. 1 ) NEDATL = NEDATL + 65535._^1_$NMRECS = NEDATM + NEDATL_^1C_]_^1C ---- FIND REMAINING NUMBER OF RECORDS AND PREPARE FOR OUTPUT ----_^1C_]_^1_$RMRECS = HIRECS - NMRECS_^1_$CURECS = NMRECS_^1_$MXRECS = HIRECS_^1_$AVRECS = RMRECS_^1_$PCTREM = 0_^1_$IF ( HIRECS .EQ. 0 ) GO TO 310_^1_$PCTREM = (RMRECS / HIRECS) * 100._^1 310 IF ( REC .GT. 1 ) GO TO 350_^1C_]_^1C ---- OUTPUT HEADERS ----_^1C_]_^1_$OD = LU_^1_$WRITE (OD,3002)_^1_$WRITE (OD,3005) (HDR1(I),I=1,35)_^1_$WRITE (OD,3005) (HDR2(I),I=1,35)_^1_$WRITE (OD,3001)_^1C_]_^1_$OD = LST_^1_$WRITE (OD,3000) (RPTHDR(I),I=1,9),MO,DA,YR_^1_$WRITE (OD,3006) (HDR1(I),I=1,40)_^1_$WRITE (OD,3006) (HDR2(I),I=1,40)_^1_$WRITE (OD,3002)_^1C_]_^1C ---- OUTPUT FILE INFORMATION ----_^1C_]_^1 350 OD = LU_^1_$WRITE (OD,3020) (NAME(I),I=1,4),MXRECS,CURECS,AVRECS,PCTREM_^1_$IF (PCTREM .GT. COMPW) GO TO 370_^1_$IF (PCTREM .GT. COMPM) GO TO 360_^1_$WRITE (OD,3005) (MSGMU(I),I=1,35)_^1_$GO TO 370_^1 360 WRITE (OD,3005) (MSGWN(I),I=1,35)_^1 370 WRITE (OD,3888)_^1C_]_^1_$OD = LST_^1_$WRITE (OD,3030) (NAME(I),I=1,4),MXRECS,CURECS,AVRECS,PCTREM_^1_$IF (PCTREM .GT. COMPW) GO TO 390_^1_$IF (PCTREM .GT. COMPM) GO TO 380_^1_$WRITE (OD,3006) (MSGMU(I),I=1,40)_^1_$GO TO 390_^1 380 WRITE (OD,3006) (MSGWN(I),I=1,40)_^1 390 WRITE (OD,3001)_^1C_]_^1C ---- GET NEXT FCB ----_^1C_]_^1C_(CLOSE THE FILE AND CONTINUE_^1 280 CALL CLOSFL ( REQBUF, ISTAT )_^1 199 CONTINUE_^1C_]_^1C ---- END OF JOB PROCESSING ----_^1C_]_^1 900 WRITE (LU,3002)_^1_$WRITE (LST,3999)_^1 999 CALL PGMOUT_^1C_]_^1C ---- END ----_^1C_]_^1 3000 FORMAT (1H1,////,52X,9A2,2X,1H-,2X,2(1A2,1H/),1A2,////)_^1 3001 FORMAT (/)x_^1 3002 FORMAT (//)_^1 3005 FORMAT (40A2)_^1 3006 FORMAT (31X,40A2)_^1 3020 FORMAT (5X,4A2,X,2(4X,F8.0),5X,F8.0,10X,F4.1,1H%)_^1 3030 FORMAT (36X,4A2,X,2(4X,F8.0),5X,F8.0,10X,F4.1,1H%)_^1 3888 FORMAT (X)_^1 3999 FORMAT (1H1)_^1_$END_]_^__ x(CHEKID CSY/ CHE 0020(1_$PROGRAM CHEKID_^1_#1_2/DECK-ID F09 CCS 2.0_.SUMMARY-132_^1C_]_^1C_]_^1C_#COPYRIGHT CONTROL DATA CORPORATION,1978_^1C_#DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1C_#CREDIT COLLECTION SYSTEM VERSION 2.0_^1C_]_^1C---------------------------------------------------------------------_^1C_]_^1C_$CHEKID CALLS THE ITOS EXECUTIVE TO VALIDATE THE USER._^1C_-A VALID USER IS DEFINED AS THE CONSOLE OPERATOR_^1C_-WITH A BLANK ID (I.E. NOT $$). AN INVALID USER IS_^1C_-ANY USER OF A TERMINAL WHICH IS NOT TERMINAL ZERO._^1C_-VALID USERS PROCEED TO THE NEXT REQUEST; INVALID_^1C_-USERS ARE REMOVED FROM THE PROCEDURE._^1C_]_^1C---------------------------------------------------------------------_^1C_]_^1_%INTEGER USID,USPN_^1_%DIMENSION USID(4),IOUT(4)_^1_%DcATA IOUT/'MNUPRO '/_^1C_]_^1_%CALL PGMIN(USID,I1,I2,USPN)_^1_%IF (USPN .EQ. 0) CALL PGMOUT_^1_%CALL SYSMSG(76,0)_^1C ---- TAKE USER OUT OF PROCEDURE (EXIT) ---- *_^1_%CALL CHAIN(IOUT)_^1_%END_]_^__c(CHUPD2 CSY/ 00020(1_%PROGRAM CHUPD2_^1_#1_2/DECK-ID F10 CCS 2.0_.SUMMARY-132_^11_]_^1C_#COPYRIGHT CONTROL DATA CORPORATION, 1978_^1C_#DATA SYSTEM-LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1C_#CREDIT COLLECTION SYSTEM VERSION 2.0_^11_]_^1C_(THIS PROGRAM WILL REQUEST THAT A HISTORY TAPE BE MOUNTED,_^1C_(IT WILL VERIFY THAT THE CORRECT TAPE IS MOUNTED, IT WILL_^1C_(THEN LOCATE THE CORRECT ACCOUNT AND VERIFY IT'S ON THE_^1C_(DELQMST FILE; THEN ADD THE ACTFIL FILE WITH THE ACTIVITY_^1C_(BLOCK FROM THE TAPE. WHEN COMPLETE IT WILL THEN PROCESS_^1C_(ALL REMAINING TAPES, AS DETERMINED BY THE UPREQ FILE._^11_]_^11_]_^1_$INTEGER FP,REQBUF(72),IDATA(15),USER(4),RECBUF(1000),TREC(1001),_^1_#2_'AREC(252),HD(20,3),DT(3),FNAME(4,3),RTYPE,ZERO,ACT(9),_^1_#2_'COMMD(2),OK,EX,RD,TEMP(8),ERMSG(13),NFMSG(26),DATE(3),_^1_#2_'OLDTP(3),MTMSG(52),TFL(4),RESLT(2),PRYES(2),PRNO(2),_^1_#2_'RQACT(8),TPACT(8),SUF(3),BOROW(15),SW,SKP_^1_$INTEGER BLK(8)_^11_]_^1_$EQUIVALENCE ( TREC(8),TPACT(8) )_^11_]_^1C_(INITIALIZE THE REQUEST BUFFERS_^1_$DATA REQBUF / 72*0 /_^11_]_^1C_(SET UP THE DATA FOR OPENING THE FILES_^1_$DATA IDATA / 12*$2020, 1, 1, -1 /_^11_]_^1C_(SET UP THE BUFFER WITH THE FILE NAMES TO BE USED_^1_$DATA FNAME / 'DELQMST ACTFIL UPREQ_!' /_^11_]_^1C_(MESSAGE BUFFERS CONTAINING DIRECTIONS AND INSTRUCTIONS_^1_$DATA MTMSG / $D0A,'MOUNT TAPE LABELED:_!/_!/_!',_^1_#2_,$D0A,'ENTER "OK" FOR READY',_^1_#2_,$D0A,'ENTER "NX" FOR NEXT RECORD',_^1_#2_,$D0A,'ENTER "EX" TO END ',$D0A /_^1_$DATA OK/'OK'/,EX/'EX'/,NX/'NX'/,ZERO/0/,RD/0/_^1_$DATA ERMSG / $D0A,'INCORRECT TAPE MOUNTED',$D0A /_^1_$DATA NFMSG / $D0A,'ACCOUNT=# ',8*$2020,' NOT FOUND ON ',_^1_#2_,4*$2020,$D0A /_^1_$DATA TFL / 'TAPE_"' /_^1_$DATA PRYES,PRNO / ' YES',' NO' /_^1_$DATA BLK / 8*$2020 /_^11_]_^1_$EXTERNAL MONTO,YERTO_^11_]_^1C_(ACCEPT LOG ON FROM ITOS_^1_$CALL PGMIN (USER,LU,MODE,NPORT)_^11_]_^1C_(PICK UP SYSTEM DATE AND CONVERT_^1_$IMTH=AND(MONTO,$FFFF)_^1_$IYR=AND(YERTO,$FFFF)_^11_]_^1C_(LOCATE THE REPORT HEADING INFORMATION_^1_$CALL UTHEAD (HD,DT)_^1C_(PRINT THE REPORT HEADING_^1_$WRITE (12,1000)(HD(I,1),I=1,20),(HD(I,2),I=1,20),DT,(HD(I,3),_^1_#1_"I=1,20)_^11_]_^1C_(OPEN ALL FILES FOR USE, IF ERROR - PRINT MESSAGE AND EXIT_^1_$DO 50 FP=1,2_^1_$DO 40 I=1,4_^1_!40 IDATA(I)=FNAME(I,FP)_^1_$CALL OPENFL (REQBUF(24*FP+1),IDATA,ISTAT)_^1_$RTYPE=3_^1_$IF (ISTAT.LT.0) GO TO 900_^1_$DO 45 I=5,12_^1_!45 IDATA (I)=$2020_^1_!50 CONTINUE_^1_$DO 70 I=1,4_^1_!70 IDATA(I)=FNAME(I,3)_^1_$IDATA(13)=0_^1_$CALL OPENFL (REQBUF(1),IDATA,ISTAT)_^1_$IF (ISTAT.LT.0) GO TO 900_^11_]_^1C_(SEQUENTIALLY RETRIEVE RECORDS FROM THE UPREQ FILE_^1 100 CALL GETS ( REQBUF(1),RECBUF,KEY,ISTAT )_^1_$RTYPE=14_^11_]_^1C_(CHECK IF AT END-OF-FILE_^1_$IF (AND(ISTAT,$100).EQ.$100) GO TO 950_^1_$IF (ISTAT.LT.0) GO TO 900_^1C_(SET UP ACCOUNT NUMBER FOR MESSAGE_^1_$CALL CCSMVA (RECBUF,1,16,RQACT,1,16)_^1_$CALL CCSMVA (RQACT,1,16,NFMSG,13,16)_^11_]_^1C_(CHECK IF SAME TAPE TO BE PROCESSED ?_^1_$CALL CCSCST (RECBUF,17,6,OLDTP,1,6,ICOMP)_^1_$IF (ICOMP.EQ.0) GO TO 200_^11_]_^1C_(NEW TAPE TO PROCESS, SAVE DATE AND PROMPT OPERATOR_^1_$SW=0_]_^1_$CALL CCSMVA (RECBUF,17,6,OLDTP,1,6)_^1_$MTMSG(12)=RECBUF(9)_^1_$MTMSG(14)=RECBUF(10)_^1_$MTMSG(16)=RECBUF(11)_^1C_(OUTPUT INSTRUCTIONS AND INPUT COMMANDS_^1 150 CALL WTREAD (LU,-1,MTMSG,104,-1,COMMD,2,IC)_^1C_(CHECK FOR TAPE READY_^1_$IF (COMMD.EQ.OK) GO TO 210_^1C_(CHECK FOR EXIT_^1_$IF (COMMD.EQ.EX) GO TO 950_^1C_(CHECK FOR NEXT RECORD_^1_$IF (COMMD.EQ.NX) GO TO 100_^1_$GO TO 150_^11_]_^1C_(CHECK IF IT IS NECESSARY TO READ TAPE_^1 200 IF (RD.EQ.0) GO TO 210_^1_$RD=0_]_^1_$GO TO 300_^11_]_^1C_(GET NEXT RECORD FROM TAPE_^1 210 ASSIGN 220 TO IRTN_^1_$CALL FREAD (6,TREC,2000,IRTN,0,TEMP)_^1_$CALL DISP_^1C_(SET UP MESSAGE FOR TAPE_^1 220 CALL CCSMVA (TFL,1,8,NFMSG,43,8)_^11_]_^1C_(CHECK IF AT ROUTINE TO WRITE ACTFIL RECORD_^1_$IF (SW.EQ.2) GO TO 400_^11_]_^1C_(CHECK IF AT END-OF-FILE_^1_$IF (LINK(0).LT.0) GO TO 500_^11_]_^1C_(CHECK WHICH WAY TO RUN_^1_$IF (SW.EQ.1) GO TO 300_^11_]_^1C_(TAPE READY VERIFY TAPE DATE_^1_$CALL CCSMVA (TREC,1,6,DATE,1,6)_^1_$CALL CCSCST (DATE,1,6,OLDTP,1,6,ICOMP)_^1_$IF (ICOMP.EQ.0) GO TO 240_^1C_(OUTPUT ERROR MESSAGE_^1_$CALL WTREAD (LU,-1,ERMSG,26,ZERO,ZERO,ZERO,IC)_^1_$GO TO 150_^1C_(TAPE CORRECT - PROCESS ACCOUNT_^1 240 SW=1_]_^1_$GO TO 210_^11_]_^1C_(PROCESS THE SAME TAPE REQUESTED_^1C_(FIRST, SEARCH THE REQUESTED ACCOUNT ON THE TAPE_^1 300 CALL CCSCST (TPACT,1,16,RQACT,1,16,ICOMP)_^1_$IF (ICOMP.LT.0) GO TO 210_^1_$IF (ICOMP.EQ.0) GO TO 310_^1_$RD=1_]_^1_$GO TO 500_^11_]_^1C_(RETRIEVE THE DELQMST RECORD TO CHECK IF IT EXIT_^1 310 CALL READR (REQBUF(25),RECBUF,RQACT,ISTAT)_^1_$RTYPE=13_^1C_(SET UP MESSAGE FOR DELQMST FILE_^1_$CALL CCSMVA (FNAME,1,8,NFMSG,43,8)_^11_]_^1C_(END-OF-FILE ?_^1_$IF (AND(ISTAT,$100).EQ.$100) GO TO 320_^1_$IF (ISTAT.LT.0) GO TO 900_^11_]_^1C_(CHECK IF THE DELQMST RECORD IS THE CORRECT ACCOUNT_^1 320 CALL CCSCST (RECBUF,1,16,RQACT,1,16,ICOMP)_^1_$IF (ICOMP.NE.0) GO TO 500_^11_]_^1C_(SWITCH IS SET FOR THE ROUTINE TO WRITE THE ACTFIL RECORD_^1_$SW=2_]_^1_$SKP=0_^1_$CALL CCSMVA (PRNO,1,4,RESLT,1,4)_^1_$CALL CCSMVA (RECBUF,18,30,BOROW,1,30)_^1_$GO TO 210_^11_]_^1C_(ROUTINE - TRY TO WRITE THE ACTFIL RECORD_^1C_(FIRST, CHECK IF IT IS EOF ?_^1 400 IF (LINK(0).LT.0) GO TO 480_^1C_(CHECK IF THE ACCOUNT IS THE SAME_^1_$CALL CCSCST (TPACT,1,16,RQACT,1,16,ICOMP)_^1_$IF (ICOMP.EQ.0) GO TO 410_^1_$IF (SKP.EQ.1) GO TO 405_^1_$CALL CCSCST (TPACT,1,16,BLK,1,16,ICOMP)_^1_$IF (ICOMP.EQ.0) GO TO 410_^1 405 RD=1_]_^1_$GO TO 480_^11_]_^1C_(ACTFIL MANIPULATION_^1C_(SET UP SUFFIX = 50 AND SKIP FIRST BLOCK (COSIGNER)_^1 410 IF (SKP.EQ.1) GO TO 420_^1_$SUF(3)=$3530_^1_$I=1_]_^1_$GO TO 430_^1 420 I=0_]_^11_]_^1C_(THIS IS THE ACTIVITY BLOCK_^1C_(CHECK IF THIS BLOCK IS THE GOOD ACCOUNT_^1 430 CALL CCSCST ( TREC(250*I+1),1,16,RQACT,1,16,ICOMP)_^1_$IF (ICOMP.NE.0) GO TO 480_^1C_(CONVERT SUFFIX INTO A DECIMAL NUMBER, THEN INCREMENT 1_^1_$K=ICCSAD( SUF(3) )_^1_$K=K+1_^1_$CALL HEXDEC (K,SUF)_^1C_(CHECK IF THE SUFFIX EXCEED OVER 99_^1_$IF (K.GT.99) GO TO 480_^1C_(CREATE THE KEY AND PLACE ACTIVITY BLOCK IN THE RECORD_^1_$CALL CCSMVA (RQACT,1,16,AREC,1,16)_^1_$AREC(9)=SUF(3)_^1_$CALL CCSMVA (AREC,1,18,ACT,1,18)_^1_$CALL CCSMVA (TREC(250*I+1),19,482,AREC,19,482)_^1C_(PLACE THE RECORD IN THE ACTFIL_^1_$CALL WRITER (REQBUF(49),AREC,ACT,ISTAT)_^1_$RTYPE=12_^1_$IF (ISTAT.LT.0) GO TO 900_^1_$CALL CCSMVA (PRYES,1,4,RESLT,1,4)_^1C_(CHECK IF THE RECORD HAS FINISHED TO BE PLACED IN THE ACTFIL_^1_$I=I+1_^1_$IF (I.LT.4) GO TO 430_^1_$SKP=1_^1_$GO TO 210_^11_]_^1C_(PRINT THE DETAIL_^1 480 WRITE (12,1100) RQACT,BOROW,DATE,RESLT_^1_$CALL CCSBLK (BOROW,30)_^1_$GO TO 510_^11_]_^1C_(OUTPUT NO-FOUND MESSAGE_^1 500 CALL WTREAD (LU,-1,NFMSG,52,ZERO,ZERO,ZERO,IC)_^1 510 SW=1_]_^1_$GO TO 100_^11_]_^1C_(A FILE ERROR HAS OCCURRED - REPORT AND TERMINATE JOB_^1 900 CALL FILERR (IDATA,RTYPE,ISTAT,LU)_^11_]_^1C_(REPORT END AND CLOSE ALL FILES, THEN EXIT_^1 950 WRITE (12,1200)_^1_$CALL CLOSFL (REQBUF(1),ISTAT)_^1_$CALL CLOSFL (REQBUF(25),ISTAT)_^1_$CALL CLOSFL (REQBUF(49),ISTAT)_^1_$CALL PGMOUT_^11_]_^1C_(OUTPUT FORMATS_^1 1000 FORMAT (1H1,20A2,9X,'TAPE HISTORY UPDATE REPORT',/,1X,20A2,14X,_^1_#1 'RUN DATE:',A2,'/',A2,'/',A2,/,1X,20A2,//,20X,'ACCOUNT NUMBER',_^1_#1 8X,'BORROWERS NAME',17X,'DATE OF TAPE',5X,'RECORDS ADDED TO ',_^1_#1 'ACTIVITYB FILE',/)_^1 1100 FORMAT (19X,8A2,5X,15A2,5X,A2,'/',A2,'/',A2,19X,2A2)_^1 1200 FORMAT (//,50X,'*** END OF REPORT ***')_^1_$END_]_^__B(CMPDLQ CSY/ (1_$PROGRAM CMPDLQ_^1_#1_2/DECK-ID F11 CCS 2.0_.SUMMARY-132_^11_]_^1C_$COPYRIGTH CONTROL DATA CORPORATION, 1978_^1C_$DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1C_$CREDIT COLLECTION SYSTEM VERSION 2.0_^11_]_^1C_(THIS PROGRAM PERFORMS A FILE COMPRESSION ON THE_^1C_(DELQMST FILE. THIS REMOVES ALL DELETED RECORDS_^1C_(THEREBY FREEING FILE SPACE._^11_]_^1_$INTEGER USER(4),IDATA(15),REQBUF(24),RECBUF(1004)_^11_]_^1_$DATA REQBUF / 24*0 /_^1_$DATA IDATA / 'DELQMST ', 8*$2020, -1, 1, 0 /_^11_]_^1C_(ITOS LOGON_^1_$CALL PGMIN ( USER, LU, MODE, NPORT )_^11_]_^1C_(OPEN DELQMST_^1_$CALL OPENFL ( REQBUF, IDATA, ISTAT )_^1_$IF ( ISTAT .GE. 0 ) GO TO 100_^1C_(ERROR ON OPEN_^1_$CALL FILERR ( IDATA, 3, ISTAT, LU )_^1_$CALL PGMOUT_^11_]_^1C_(PERFORM THE COMPRESSION_^1 100 CALL COMFIL ( REQBUF, RECBUF, ISTAT )_^1_$IF ( AND($100,ISTAT) .EQ. $100 ) GO TO 200_^1_$IF ( ISTAT .GE. 0 ) GO TO 100_^1C_(ERROR ON COMPRESS_^1_$CALL FILERR ( IDATA, 17, ISTAT, LU )_^1C_(CLOSE DELQMST AND EXIT_^1 200 CALL CLOSFL ( REQBUF, ISTAT )_^1_$CALL PGMOUT_^1_$END_]_^__ (CMPSUM CSY/ (1_$PROGRAM CMPSUM_^1_#1_2/DECK-ID F12 CCS 2.0_.SUMMARY-132_^11_]_^1C_#COPYRIGHT CONTROL DATA CORPORATION, 1978_^1C_#DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1C_#CREDIT COLLECTION SYSTEM VERSION 2.0_^11_]_^1C_(THIS PROGRAM PERFORMS A FILE COMPRESSION ON THE_^1C_(SUMHIST FILE._^11_]_^1_$INTEGER USER(4),IDATA(15),REQBUF(24),RECBUF(1000)_^1_$DATA REQBUF / 24*0 /_^1_$DATA IDATA / 'SUMHIST ',8*$2020,-1,1,0 /_^11_]_^1_$CALL PGMIN ( USER, LU, MODE, NPORT )_^1_$CALL OPENFL ( REQBUF, IDATA, ISTAT )_^1_$IF ( ISTAT .GE. 0 ) GO TO 100_^1_$CALL FILERR ( IDATA, 3, ISTAT, LU )_^1_$CALL PGMOUT_^1 100 CALL COMFIL ( REQBUF, RECBUF, ISTAT )_^1_$IF ( AND(ISTAT,$100) .EQ. $100 ) GO TO 200_^1_$IF ( ISTAT .GE. 0 ) GO TO 100_^1_$CALL FILERR ( IDATA, 17, ISTAT, LU )"_^1 200 CALL CLOSFL ( REQBUF, ISTAT )_^1_$CALL PGMOUT_^1_$END_]_^__"(DAQUEL CSY/  DAQ 0020(1_$PROGRAM DAQUEL_^1_#1_2/DECK-ID F13 CCS 2.0_.SUMMARY-132_^1C_]_^1C_#COPYRIGHT CONTROL DATA CORPORATION, 1978_^1C_#DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1C_#CREDIT COLLECTION SYSTEM VERSION 2.0_^1C_]_^11_]_^1C_(THIS PROGRAM LOCATES THE STARTING ACCOUNT FOR REVIEW FOR_^1C_(EACH QUEUE WITHIN THE DAILY ASSIGNMENT FILE. IT SAVES THE_^1C_(RELATIVE RECORD POINTER ALONG WITH THE QUEUE IDENTIFIER_^1C_(SO THAT COLECT CAN LOCATE THE START FOR EACH QUEUE'S_^1C_(AUTOMATIC FUNCTION_^11_ _]_^1_$INTEGER DLYREC(20),DLYREQ(24),QREQ(24),QREC(6),DDATA(15),_^1_#1_"QDATA(15),USER(4),QUEUE(2)_^11_]_^1_$DATA DDATA / 'DLYASSN ', 8*$2020, 0, 1, 0 /_^1_$DATA QDATA / 'DAQUE_!', 8*$2020, 0, 1, 0 /_^11_]_^1_$DATA DLYREQ, QREQ / 48*0 /_^11_]_^1_$DATA QUEUE / 0,0 /_^11_]_^1C_(ACCEPT LOG ON FROM ITOS, VERIFY MASTER CONSOLE_^1_$CALL PGMIN (USER,LU,MODE,NPORT)_^1_$IF (NPORT.NE.0) CALL PGMOUT_^11_]_^1C_(OPEN FILES FOR USE_^1_$CALL OPENFL (DLYREQ,DDATA,ISTAT)_^1_$IF (ISTAT.LT.0) GO TO 900_^1_$CALL OPENFL (QREQ,QDATA,ISTAT)_^1_$IF (ISTAT.LT.0) GO TO 905_^11_]_^1C_(GET NEXT RECORD FROM THE ASSIGNMENT FIEL_^1 100 CALL GETS (DLYREQ,DLYREC,I,ISTAT)_^1_$IF (AND(ISTAT,$100).EQ.$100) GO TO 950_^1_$IF (ISTAT.LT.0) GO TO 910_^1C_(CHECK IF ON SAME QUEUE_^1_$IF (QUEUE(1).EQ.DLYREC( 9).AND._^1_#2_"QUEUE(2).EQ.DLYREC(10)) GO TO 100_^1C_(NEW QUEUE, SAVE IN DAQUE_^1_$QREC(1)=DLYREC( 9)_^1_$QREC(2)=DLYREC(10)_^1_$QREC(3)=DLYREQ(16)_^1_$QREC(4)=DLYREQ(17)_^1_$CALL WRITER (QREQ,QREC,QREC,ISTAT)_^1_$IF (ISTAT.LT.0) GO TO 915_^1_$QUEUE(1)=DLYREC( 9)_^1_$QUEUE(2)=DLYREC(10)_^1_$GO TO 100_^1 900 CALL FILERR ( DDATA, 3, ISTAT, LU )_^1_$GO TO 950_^1 905 CALL FILERR ( QDATA, 3, ISTAT, LU )_^1_$GO TO 950_^1 910 CALL FILERR ( DDATA, 14, ISTAT, LU )_^1_$GO TO 950_^1 915 CALL FILERR ( QDATA, 12, ISTAT, LU )_^11_]_^1 950 CALL CLOSFL(DLYREQ,ISTAT)_^1_$CALL CLOSFL(QREQ,ISTAT)_^1_$CALL PGMOUT_^1_$END_]_^__ (DECMTN CSY/ DEC 0020(1_$PROGRAM DECMTN_^1_#1_2/DECK-ID F14 CCS 2.0_.SUMMARY-132_^1C_]_^1C_#COPYRIGHT CONTROL DATA CORPORATION, 1978_^1C_#DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1C_#CREDIT COLLECTION SYSTEM VERSION 2.0_^1C_]_^1C_#PROGRM MAINTAINS DECISION TABLE FILE_^1_$INTEGER TABLE(500),CRT,TBTY(2),IDATA(15),REQBUF(24),USER(4)_^1_$DATA REQBUF / 24*0 /_^1_$DATA IDATA / 'DECTBL',9*$2020,0,1,0 /_^1_$INTEGER TEMP(8)_^1_$INTEGER CMDTB(8)_^1_$DATA CMDTB / 'CRDEADDSPTDUEXDB'/_^1_$INTEGER Y, MSG(3), LN(3), ICMD(2), IU(2), IST(2)_^1_$DATA Y/'Y '/, MSG / 'INPUT=' /_^1_$DATA CRT / 4 /, TBTY / 'COPR' /_^1C_#TABLE LENGTH_^1_$INTEGER COMTLN_^1_$DATA COMTLN/500/_^1C_#DEBUG DUMP INDICATOR_^1_$INTEGER DB_^1_$DATA DB/0/_^12_]_^1C_(ACCEPT LOG ON FROM ITOS_^1_$CALL PGMIN(USER,CRT,MODE,NPORT)_^1C_(VERIFY THIS IS THE MASTER CONSOLE - IF NOT EXIT_^1_$IF ( NPORT .NE. 0 ) CALL PGMOUT_^11_]_^1C_#GET THE FILE FOR PROCESSING, IF FILE NOT DEFINED REPORT AS_^1C_(ERROR AND LEAVE._^11_]_^1_$CALL OPENFL(REQBUF,IDATA,ISTAT)_^1C_#CHECK IF FILE PRESENT_^1_$IF (ISTAT.LT.0) GO TO 8010_^1_$CALL CLOSFL(REQBUF,ISTAT)_^12_]_^1C_#ASK USER WHICH TABLE TO USE, COLLECTOR OR PRIORITY_^1_$WRITE (CRT,9000)_^1 9000 FORMAT ( ' DECISION TABLE MAINTENANCE PROGRAM IN ')_^12_]_^1C_#USING ONLY 1 TABLE_^1_$ITP = 1_^1 150 WRITE (CRT, 9011)_^1 9011 FORMAT ( ' INPUT CR/DE/AD/DS/PT/DU/EX TO EITHER',/,_^1_#1 ' CREATE A COMPLETE TABLE, DELETE A TEST, ADD A TEST',/,_^1_#2 ' DISPLAY A TEST, PRINT THE TABLE, DUMP THE TABLE,',/,_^1_#3 ' END PROCESSING',/)_^1_$IF ( DB .EQ. 1) CALL DEBDT1 (99,TABLE,500)_^1 200 CALL WTREAD ( CRT,-1, MSG, 6,-1, ICMD, 2, K )_^1C_#DECODE COMMAND_^1C_(CREATE_^1_$IF (ICMD .EQ. CMDTB(1) ) GO TO 1000_^1C_(END_^1_$IF (ICMD .EQ. CMDTB(7) ) GO TO 7000_^12_]_^1C_#GET THE TABLE_^1_$TABLE(2) = COMTLN_^1_$CALL RTVDT1(ITP,TABLE,IND)_^1_$IF (IND .NE. 0) GO TO 8050_^1C_#DELETE TEST_^1_$IF ( ICMD .EQ. CMDTB(2)) GO TO 2000_^1C_#ADD TEST_^1_$IF ( ICMD .EQ. CMDTB(3)) GO TO 3000_^1C_#DISPLAY_^1_$IF ( ICMD .EQ. CMDTB(4)) GO TO 4000_^1C_#PRINT_^1_$IF (ICMD .EQ. CMDTB(5)) GO TO 5000_^1C_#DUMP_]_^1_$IF ( ICMD .EQ. CMDTB(6)) GO TO 6000_^1C_#DEBUG_^1_$IF ( ICMD .NE. CMDTB(8)) GO TO 900_^1C_#TOGGLE DEBUG BIT_^1_$DB = AND($1,DB+1)_^1_$GO TO 150_^1C_#ILLEGAL COMMAND_^1 900 WRITE (CRT,9012) ICMD_^1 9012 FORMAT ( 'COMMAND ', A2, ' NOT IN TABLE, REENTER.')_^1_$GO TO 200_^13_]_^1C_#CREATE NEW TABLE_^1C_]_^1 1000 WRITE (CRT, 9023)_^1 9023 FORMAT ( ' CREATE FUNCTION WILL CLEAR YOUR CURRENT TABLE FILE',/,_^1_#1 ' TYPE Y IF YOU WISH TO DO THAT',/)_^1_$CALL WTREAD ( CRT,-1, MSG, 6,-1, ICMD, 1, K )_^1_$IF (AND(ICMD,$FF00).NE.$5900) GO TO 150_^1C_#GET RID OF OLD TABLE IF PRESENT_^1_$CALL CLEAR(REQBUF,IDATA,ISTAT)_^1C_(VERIFY CLEAR WAS SUCESSFUL_^1_$IF (ISTAT.LT.0) GO TO 8020_^1C_#ASK IF INPUT FROM NON-CRT LU_^1_$WRITE (CRT,9020)_^1 9020 FORMAT ( ' CREATE TABLE IN PROCESS, INPUT LU OF INPUT STREAM AS',_^1_#1_'/,'_!2 NUMERIC DIGITS' )_^1_$WRITE ( CRT, 9022)_^1 9022 FORMAT ( ' IF LU 04 ENTERED, CREATION WILL BE VIA ADD TEST DIALOG_^1_#1 ',/)_^1_$CALL WTREAD ( CRT,-1, MSG, 6,-1, IST, 2, K )_^1 9024 ILU = (AND(IST,$F00)/$100)*10 + AND(IST,$F)_^1C_#PASS CONTROL TO SUBROUTINE TO LOAD TABLE_^1_$DO 1100 I = 1, COMTLN_^1 1100 TABLE(I) = 0_^1C_#INITIALIZE TABLE LENGTH AND TYPE_^1_$TABLE(2) = 10_^1_$TABLE(9) = COMTLN_^1_$TABLE(4) = ITP_^1C_#BRANCH TO ADD IF LU = 04_^1_$IF (ILU .EQ. 4) GO TO 3000_^1_$CALL LDTDT1 ( TABLE, ILU, IND3)_^1C_(CHECK FOR ERROR_^1_$IF ( IND3 .NE. 0) GO TO 8030_^1C_#WRITE TABLE TO FILE_^1_$DO 300 ISTAT = 1,24_^1 300 REQBUF(ISTAT) = 0_^1_$CALL OPENFL(REQBUF,IDATA,ISTAT)_^1_$CALL PUTS ( REQBUF, TABLE, 1, ISTAT )_^1_$IF ( ISTAT .LT. 0) GO TO 8040_^1_$CALL CLOSFL(REQBUF,ISTAT)_^1C_#TELL OPERATOR TABLE HAS BEEN LOADED_^1_$WRITE (CRT, 9030) TBTY(ITP)_^1 9030 FORMAT ( 3X, A2, ' TABLE HAS BEEN FRESHLY LOADED')_^1_$GO TO 150_^12_]_^1C_#DELETE TEST_^1 2000 CALL DELDT1 ( TABLE, CRT, IND)_^1_$IF ( IND .LT. 0) GO TO 8060_^1C_#UPDATE FILE_^1_$GO TO 3100_^12_]_^1C_#ADD A TEST_^1C_]_^1 3000 CALL ADDDT1 (TABLE,CRT,IND)_^1_$IF (IND .LT. 0) GO TO 150_^1C_#CORE TABLE HAS BEEN UPDATED_^1C_'UPDATE DISK TABLE_^1C_(1ST REMOVE OLD IMAGE_^1 3100 CALL CLEAR(REQBUF,IDATA,ISTAT)_^1_$IF ( ISTAT .LT. 0) GO TO 8020_^1_$DO 310 ISTAT = 1,24_^1 310 REQBUF(ISTAT) = 0_^1_$CALL OPENFL(REQBUF,IDATA,ISTAT)_^1_$CALL PUTS ( REQBUF, TABLE, 1, ISTAT )_^1_$IF (ISTAT.LT.0) GO TO 8040_^1_$CALL CLOSFL(REQBUF,ISTAT)_^1_$GO TO 150_^12_]_^1C_#DISPLAY TEST ON CRT_^1 4000 WRITE ( CRT, 9040)_^1 9040 FORMAT ( ' DISPLAY TEST IN PROCESS. ENTER 3 DIGIT TEST NUMBER FOR_^1_#1DISPLAY',/)_^1_$CALL WTREAD ( CRT,-1, MSG, 6,-1, LN, 3, K )_^1_$LIN_!= AND(LN(1),$F00)/$100*100+AND(LN(1),$F)*10+_^1_#1_"AND(LN(2),$F00)/$100_^1_$CALL DSPDT1 ( TABLE,LIN ,CRT,IND)_^1_$IF (IND .EQ. 0) GO TO 150_^1C_#ERROR IN DISPLAY MODULE, LINE NUM OUT OF RANGE_^1_$WRITE (CRT, 9042) LIN_^1 9042 FORMAT (' ERROR IN LINE NUMBER', I4, ' NOT IN TABLE')_^1_$GO TO 150_^12_]_^1C_#PRINT TABLE ON LP_^1 5000 CALL PRTDT1 (TABLE, 12)_^1_$WRITE (CRT, 9500)_^1 9500 FORMAT ( ' TABLE WAS PRINTED ON LINE PRINTER. ')_^1_$GO TO 150_^12_]_^1C_#DUMP TABLE IN RELOADABLE FORMAT_^1 6000 WRITE ( CRT, 9060)_^1 9060 FORMAT ( ' DUMP TABLE IN PROCESS. TABLE WILL BE DUMPED IN FORM COM_^1_#1PATIBLE' ,/, '_!WITH CREATE FUNCTION. INPUT LU OF OUTPUT STREAM_^1_#2AS 2 NUMERIC DIGITS ',/)_^1_$CALL WTREAD ( CRT,-1, MSG, 6,-1, IU, 2, K )_^1_$LU = AND(IU,$F00)/$100*10+AND(IU,$F)_^1_$CALL DPTDT1 ( TABLE, LU, IND)_^1_$IF ( IND .NE. 0) GO TO 8070_^1_$WRITE ( CRT, 9061) LU_^1 9061 FORMAT ( ' TABLE DUMPED TO LU ', I3 )_^1_$GO TO 150_^1 7000 CALL PGMOUT_^14_]_^1C_#ERROR PROCESSING SECTION_^1C_]_^1 8010 WRITE (CRT,9801)_^1 9801 FORMAT ( ' FILE DECTBL NOT DEFINED. USE UTIL AND TRY AGAIN.')_^1_$GO TO 8999_^1 8020 WRITE (CRT,9802) ISTAT_^1 9802 FORMAT ( 'FILE DECTBL ERROR IN REMOVING ERROR-', Z4)_^1_$GO TO 8999_^1 8030 WRITE (CRT,9803) IND3_^1 9803 FORMAT ( 'SUBROUTINE LDTABL ERROR-', Z4)_^1_$GO TO 8999_^1 8040 WRITE (CRT,9804) ISTAT_^1 9804 FORMAT ( 'FILE DECTBL ERROR IN STORING RECORD, ERROR-',Z4)_^1_$GO TO 8999_^1 8050 WRITE (CRT, 9805) IND_^1 9805 FORMAT ( ' NO DECISION TABLE IN SYSTEM, ERROR-', Z4)_^1_$GO TO 8999_^1 8060 WRITE ( CRT, 9806) IND_^1 9806 FORMAT ( 'SUBROUTINE DELDT1 ERROR-', Z4)_^1_$GO TO 8999_^1 8070 WRITE ( CRT, 9807) IND_^1 9807 FORMAT ( ' SUBROUTINE DPTDT1 ERROR-', Z4)_^1_$GO TO 8999_^1 8999 IF ( DB .EQ. 1) CALL DEBDT1 (8999, DECMTN, 12000)_^1_$CALL PGMOUT_^1_$END_]_^__ (DHDELE CSY/ 00020(1_%PROGRAM DHDELE_^1_#1_2/DECK-ID F15 CCS 2.0_.SUMMARY-132_^12_]_^1C_#COPYRIGTH CONTROL DATA CORPORATION, 1978_^1C_#DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1C_#CREDIT COLLECTION SYSTEM VERSION 2.0_^12_]_^11_]_^1C_(THIS PROGRAM PERFORMS THE RECORD REMOVAL FOR ALL ACCOUNTS_^1C_(THAT WERE UDATED FROM THE HISTORY SYSTEM. THE RECORDS UPDATED_^1C_(FROM THE SUMHIST FILE CONTAIN A 'B' OR 'S' IN COLUMN 17 OF_^1C_(THE UPDACCT RECORD. WHEN THIS IS FOUND THE SUMHIST RECORD IS_^1C_(DELETED._^11_]_^1_$INTEGER FP,ISTAT,REQBUF(144),KEY(9),USER(4),RECBUF(1000),_^1_#2_"IDATA(15),KEYSVE(9),FNAME(8),ETYPE(12)_^11_]_^1C_(INITIALIZE THE REQUEST BUFFERS_^1_$DATA REQBUF / 144*0 /_^11_]_^1C_(SET UP ERROR TYPE MESSAGES_^1_$DATA ETYPE / 'OPENING READING DELETING' /_^11_]_^1C_(SET UP THE BUFFER FOR OPENING THE FILES_^1_$DATA IDATA / 12*$2020, 1, 1, -1 /_^11_]_^1C_(SET UP THE BUFFER WITH THE FILE NAMES TO BE USED_^1_$DATA FNAME / 'SUMHIST ADDACT ' /_^12_]_^1C_(ACCEPT SIGN ON FROM ITOS_^1_$CALL PGMIN(USER,LU,MODE,NPORT)_^11_]_^1C_(OPEN ALL FILES FOR USE, IF ERROR - PRINT MESSAGE AND STOP_^11_ _]_^1_$DO 40 I=1,4_^1_!40 IDATA(I)=FNAME(I)_^1_$FP=1_]_^1_$CALL OPENFL(REQBUF(25),IDATA,ISTAT)_^1_$IF (ISTAT.LT.0) GO TO 900_^1_$DO 45 I=5,12_^1_!45 IDATA (I)=$2020_^1_$DO 70 I=1,4_^1_!70 IDATA(I)=FNAME(I+4)_^1_$IDATA(13)=0_^1_$FP=$2_^1_$CALL OPENFL(REQBUF(1),IDATA,ISTAT)_^1_$IF (ISTAT.LT.0) GO TO 900_^11_]_^1C_(SEQUENTIALLY RETREIVE RECORDS FROM THE WRKFIL_^1 100 CALL GETS(REQBUF(1),RECBUF,KEY,ISTAT)_^1C_(CHECK IF AT END-OF-FILE_^1_$IF (AND(ISTAT,$0100).EQ.$100) GO TO 950_^1_$FP=$14_^1_$IF (ISTAT.LT.0) GO TO 900_^11_]_^1C_(RECORD RETREIVED - CHECK IF CHAR 18 = D_^1_$IF (AND(RECBUF(9),$FF00).NE.$42.AND._^1_#1_"AND(RECBUF(9),$FF00).NE.$53) GO TO 100_^1C_(RECORD HAS BEEN MOVED TO HISTORY - DELETE ACCT FROM FILES_^1_$DO 110 I=1,8_^1_$KEYSVE(I)=RECBUF(I)_^1 110 KEY(I)=RECBUF(I)_^1_$FP=$11_^1_$CALL READR(REQBUF(25),RECBUF,KEY,ISTAT)_^1_$IF (ISTAT.LT.0) GO TO 900_^1_$CALL DELREC(REQBUF(25),RECBUF,ISTAT)_^1_$FP=$21_^1_$IF (ISTAT.LT.0) GO TO 900_^12_]_^1C_(A FILE ERROR HAS OCCURRED - REPORT AND TERMINATE JOB_^1 900 I=AND(FP,$F)_^1_$J=AND(FP,$F0)/$10_^1_$L=4*J+1_^1_$L1=L+3_^1_$I1=I+3_^1_$WRITE (4,1100)(ETYPE(K),K=L,L1),(FNAME(K),K=I,I1),ISTAT_^1 1100 FORMAT (/,' FILE ERROR WHEN ',4A2,2X,4A2,'`; STATUS = ',$4,/,_^1_#1_"' **** JOB TERMINATED ',/)_^1C_(CLOSE ALL FILES AND TERMINATE JOB_^1 950 CALL CLOSFL(REQBUF(25),ISTAT)_^1_$CALL CLOSFL(REQBUF(1),ISTAT)_^1_$CALL PGMOUT_^1_$END_]_^__`(MHDELE CSY/ 00020(1_%PROGRAM MHDELE_^1_#1_2/DECK-ID F16 CCS 2.0_.SUMMARY-132_^12_]_^1C_#COPYRIGTH CONTROL DATA CORPORATION, 1978_^1C_#DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1C_#CREDIT COLLECTION SYSTEM VERSION 2.0_^12_]_^1C_(THIS PROGRAM PERFORMS THE RECORD REMOVAL FOR ALL ACCOUNTS_^1C_(THAT WERE MOVED TO THE HISTORY SYSTEM BY THE PROGRAM MHUPDT._^1C_(THE RECORDS THAT WERE MOVED CONTAIN A 'D' IN COLUMN 18 OF_^1C_(THE WRKFIL RECORD, WHEN THIS IS FOUND ALL ACTIVE FILES HAVE_^1C_(THE DATA FOR THAT ACCOUNT REMOVED._^11_]_^1_$INTEGER IDATA(15),ADATA(15),DDATA(15),CDATA(15),AREQ(24),_^1_#2_"DREQ(24),IREQ(24),CREQ(24),RECBUF(1004),KEY(9),IP,KSV(9)_^12_]_^1_$DATA IREQ,DREQ,AREQ,CREQ / 96*0 / , IP / 0 /_^1_$DATA IDATA / 'INACCT ',8*$2020, 0,1,1 /_^1_$DATA ADATA / 'ACTFIL ',8*$2020, 1,1,1 /_^1_$DATA DDATA / 'DELQMST ',8*$2020, 1,1,1 /_^1_$DATA CDATA / 'COSIGNER',8*$2020, 1,1,1 /_^12_]_^1_$CALL PGMIN ( USER, LU, MODE, NPORT )_^12_]_^1C_(OPEN FILES_^1_$CALL OPENFL ( IREQ, IDATA, ISTAT )_^1_$IF ( ISTAT .GE. 0 ) GO TO 100_^1_$CALL FILERR ( IDATA, 3, ISTAT, LU )_^1_$GO TO 900_^1 100 CALL OPENFL ( AREQ, ADATA, ISTAT )_^1_$IF ( ISTAT .GE. 0 ) GO TO 110_^1_$CALL FILERR ( ADATA, 3, ISTAT, LU )_^1_$GO TO 900_^1_]_^1 110 CALL OPENFL ( DREQ, DDATA, ISTAT )_^1_$IF ( ISTAT .GE. 0 ) GO TO 120_^1_$CALL FILERR ( DDATA, 3, ISTAT, LU )_^1_$GO TO 900_^1 120 CALL OPENFL ( CREQ, CDATA, ISTAT )_^1_$IF ( ISTAT .GE. 0 ) GO TO 200_^1_$CALL FILERR ( CDATA, 3, ISTAT, LU )_^1_$GO TO 900_^12_]_^1C_(SEQUENTIALLY PROCESS INACCT_^1 200 CALL GETS ( IREQ, RECBUF, IP, ISTAT )_^1C_(EOF ?_^1_$IF ( AND(ISTAT,$100) .EQ. $100 ) GO TO 900_^1C_(ERROR ?_^1_$IF ( ISTAT .GE. 0 ) GO TO 250_^1_$CALL FILERR ( IDATA, 14, ISTAT, LU )_^1_$GO TO 900_^1C_(RECORD TO DELETE ? (CHAR 18 = D)_^1 250 IF ( AND(RECBUF(9),$FF) .NE. $44 ) GO TO 200_^1C_(SAVE ACCT NUMBER_^1_$CALL CCSMVA ( RECBUF, 1, 16, KEY, 1, 16 )_^1_$CALL CCSMVA ( RECBUF, 1, 16, KSV, 1, 16 )_^1C_(PERFORM THE DELETES_^1_$CALL DELREC ( IREQ, RECBUF, ISTAT )_^1_$IF (ISTAT .GE. 0 ) GO TO 300_^1_$CALL FILERR ( IDATA, 15, ISTAT, LU )_^1_$GO TO 900_^1C_(DELQMST FILE_^1 300 CALL READR ( DREQ, RECBUF, KEY, ISTAT )_^1_$IF ( ISTAT.GE.0.AND.AND(ISTAT,$200).NE.$200) GO TO 305_^1_$I=13_]_^1_$GO TO 308_^1 305 CALL DELREC ( DREQ, RECBUF, ISTAT )_^1_$IF ( ISTAT .GE. 0 ) GO TO 310_^1_$I = 16_^1 308 CALL FILERR ( DDATA, I, ISTAT, LU )_^1_$GO TO 900_^1C_(COSIGNER FILE_^1 310 CALL CCSMVA ( KSV,1,16,KEY,1,16)_^1_$CALL READR ( CREQ, RECBUF, KEY, ISTAT )_^1_$IF (AND(ISTAT,$100).EQ.$100.OR.AND(ISTAT,$200).EQ.$200) GO TO 320_^1_$IF ( ISTAT .GE. 0 ) GO TO 315_^1_$I=13_]_^1_$GO TO 318_^1 315 CALL DELREC ( CREQ, RECBUF, ISTAT )_^1_$IF ( ISTAT .GE. 0 ) GO TO 320_^1_$I = 16_^1 318 CALL FILERR ( CDATA, I, ISTAT, LU )_^1_$GO TO 900_^1C_(ACTFIL FILE_^1 320 CALL CCSMVA ( KSV,1,16,KEY,1,18 )_^1 321 CALL READR ( AREQ, RECBUF, KEY, ISTAT )_^1_$CALL CCSCST ( RECBUF,1,16,KSV,1,16,I )_^1_$IF (AND(ISTAT,$100).EQ.$100.OR.I.NE.0) GO TO 200_^1_$IF (ISTAT.GE.0) GO TO 325_^1_$I=13_]_^1_$GO TO 328_^1 325 CALL DELREC ( AREQ, RECBUF, ISTAT )_^1_$IF (ISTAT.GE.0) GO TO 321_^1_$I = 16_^1 328 CALL FILERR ( ADATA, I, ISTAT, LU )_^1C_(CLOSE ALL FILES_^1 900 CALL CLOSFL ( AREQ , ISTAT )_^1_$CALL CLOSFL ( CREQ , ISTAT )_^1_$CALL CLOSFL ( DREQ , ISTAT )_^1_$CALL CLOSFL ( IREQ , ISTAT )_^1_$CALL PGMOUT_^1_$END_]_^__(NMCHNG CSY/ NMC 0020(1_$PROGRAM NMCHNG_^1_#1_2/DECK-ID F17 CCS 2.0_.SUMMARY-132_^1C_]_^1C_#COPYRIGHT CONTROL DATA CORPORATION, 1978_^1C_#DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1C_#CREDIT COLLECTION SYSTEM VERSION 2.0_^1C_]_^11_]_^1C_(THIS PROGRAM TAKES ALL ACCOUNTS THAT HAVE A NAME CHANGE_^1C_(FROM EITHER THE UPDATE PROGRAM OR FROM COLECT, DETERMINED_^1C_(BY A RECORD IN THE ADDACT ACCOUNT FILE WITH A 'N' IN COLUMN_^1C_(17, AND EXECUTES A DELREC REQUEST ON THE ORIGINAL RECORD_^1C_(FOLLOWED BY A WRITER REQUEST WITH THE NEW RECORD._^11_]_^1_$INTEGER DEQREC(1000),DEQTMP(1002),DEQREQ(24),DDATA(15),_^1_#2_'ADATA(15),ADDREQ(24),ADDREC(10),STAT,N,HD(20,3),_^1_#3_'DT(3),USER(4),ACTSVE(8)_^11_]_^1_$DATA DDATA / 'DELQMST ', 8*$2020, 1, 1, 1 /_^1_$DATA ADATA / 'ADDACT ', 8*$2020, 0, 1, 0 /_^1_$DATA DEQREQ, ADDREQ / 48*0 /_^12_]_^1C_(ACCEPT ITOS LOG IN_^1_$CALL PGMIN ( USER, LU, MODE, NPORT )_^12_]_^1C_(OPEN THE FILES FOR USE_^1_$CALL OPENFL ( ADDREQ, ADATA, ISTAT )_^1_$IF ( ISTAT .GE. 0 ) GO TO 100_^1C_(REPORT THE ERROR AND EXIT_^1_$CALL FILERR ( ADATA, 3, ISTAT, LU )_^1_$GO TO 300_^11_]_^1 100 CALL OPENFL ( DEQREQ, DDATA, ISTAT )_^1_$IF ( ISTAT .GE. 0 ) GO TO 200_^1C_(REPORT THE ERROR AND EXIT_^1_$CALL FILERR ( DDATA, 3, ISTAT, LU )_^1_$GO TO 300_^1._]_^1C_(GET THE NEXT RECORD FROM THE ADDACT FILE_^1 200 CALL GETS ( ADDREQ, ADDREC, I, ISTAT )_^1C_(EOF ?_^1_$IF ( AND(ISTAT,$100) .EQ. $100 ) GO TO 300_^1C_(FILE ERROR ?_^1_$IF ( ISTAT .GE. 0 ) GO TO 210_^1C_(REPORT AND EXIT_^1_$CALL FILERR ( ADATA, 14, ISTAT, LU )_^1_$GO TO 300_^11_]_^1C_(IS THIS A NAME CHANGE ?_^1 210 CALL CCSGET ( ADDREC, 17, STAT )_^1_$IF ( STAT .NE. $4E ) GO TO 200_^11_]_^1C_(THIS IS A NAME CHANGE, GET THE DELQMST RECORD_^1_$CALL CCSMVA ( ADDREC, 1, 16, ACTSVE, 1, 16 )_^1_$CALL READR ( DEQREQ, DEQREC, ACTSVE, ISTAT )_^1_$IF ( ISTAT .GE. 0 ) GO TO 220_^1C_(REPORT THE ERROR AND EXIT_^1_$CALL FILERR ( DDATA, 13, ISTAT, LU )_^1_$GO TO 300_^11_]_^1C_(VERIFY THIS IS THE CORRECT ACCOUNT, THEN SAVE THE ACCOUNT_^1 220 CALL CCSCST ( DEQREC, 1, 16, ADDREC, 1, 16, ICOMP )_^1_$IF ( ICOMP .NE. 0 ) GO TO 200_^1_$CALL CCSMVA ( DEQREC, 1, 2000, DEQTMP, 1, 2000 )_^1_$CALL CCSMVA ( DEQREC, 1047,6,DEQREC,18,6 )_^11_]_^1C_(DELETE THE ORIGINAL RECORD_^1_$CALL DELREC ( DEQREQ, DEQREC, ISTAT )_^1_$IF ( ISTAT .GE. 0 ) GO TO 230_^1C_(REPORT THE ERROR AND EXIT_^1_$CALL FILERR ( DDATA, 16, ISTAT, LU )_^1_$GO TO 300_^11_]_^1C_(STORE THE NEW RECORD_^1 230 CALL CCSBLK ( DEQTMP(524), 6 )_^1_$CALL WRITER ( DEQREQ, DEQTMP, ACTSVE, ISTAT )_^1_$IF ( ISTAT .GE. 0 ) GO TO 200_^1C_(REPORT THE ERROR AND EXIT_^1_$CALL FILERR ( DDATA, 12, ISTAT, LU )_^12_]_^1C_(CLOSE THE FILES AND TERMINATE THE JOB_^1 300 CALL CLOSFL ( D'EQREQ, ISTAT )_^1_$CALL CLOSFL ( ADDREQ, ISTAT )_^1_$CALL PGMOUT_^1_$END_]_^__'(PGCNT1 CSY/ PGC (1_$PROGRAM PGCNT1_^1_#1_2/DECK-ID F18 CCS 2.0_.SUMMARY-132_^12_]_^1C_(COPYRIGHT CONTROL DATA CORPORATION, 1978_^1C_(DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1C_(CREDIT COLECTION SYSTEM VERSION 2.0_^12_]_^1C_(THIS PROGRAM CONTROLS THE FLOW OF THE MINI-RPG EXECUTION._^1C_(. REMOVE THE ENTRIES FROM THE $$PGMNAM FILE_^1C_(. SET UP LINKAGE FOR SELECTION L ON RP MENU_^1C_(. DETERMINES WHEN THE TWO RPG PROGRAMS HAVE BEEN INSTALLED_^1C_(. PASS CONTROL CONTROL TO THE OPERATOR_^1C_]_^1C_(THIS PROGRAM IS CALLED FROM THE PROCEDURE FILE 'PRFRPTCNT'_^1C_(AND THEN PASS TO OPERATOR TO EXECUTE REPORT XX_^1C_(WHERE XX IS THE JOB IN PROGRESS WHICH IS CONTAINED IN THE_^1C_(UTILITY FILE RECORD 'RPTG'._^12_]_^1_$INTEGER RDATA(24),RREQ(24),UDATA(15),HDATA(15),HREQ(24),UREQ(24),_^1_#1_"UREC(40),HREC(20),PDATA(15),PREQ(24),PREC(40),USER(4),HOST,_^1_#2_"JOBNO,NREQ(24),KTEMP(4),MENU(4),ASCZER,NNAME(12),NDATA(12)_^1_$INTEGER LDATA(15),LREQ(24),LREC(10),LNAME1(3),LNAME2(3),LNAME(3)_^1_$INTEGER RRN(2),MDATA(15),MREQ(24),MREC(40)_^12_]_^1_$DATA UDATA / 'UTIFIL_1',1,1,0 /_^1_$DATA MDATA / '$$RGMENU$$', 7*$2020, 0, 1, 1 /_^1_$DATA PDATA / 'RPTPGM_1',1,1,0 /_^1_$DATA HDATA / '$$HOST $$_-',0,1,0 /_^1_$DATA RDATA / '$$RPMENU$$', 7*$2020, 0, 1, 1,9*0 /_^11_]_^1_$DATA RREQ,UREQ,PREQ,HREQ,NREQ,LREQ,MREQ / 168*0 /_^1_$DATA MENU / 'MNUPRO ' / , RRN / 0, 0 /_^1_$DATA KTEMP / 'RPTG_"' / , ASCZER / '00' / , HOST / 0 /_^1_$DATA NDATA / 'PRCWRK_1' /_^1_$DATA NNAME / 'PRFPG000CCS20 ' , 5*$2020 /_^1_$DATA LDATA / '$$PGMNAM$$_-',1,1,1 /_^1_$DATA LNAME1 / 'RPTE00' / , LNAME2 / 'RPTP00' /, LNAME /'RPT000'/_^1._]_^1C_(ACCEPT THE ITOS LOG IN_^1_$CALL PGMIN ( USER, LU, MODE, NPORT )_^12_]_^1C_(OPEN THE UTILITY FILE AND GET THE 'RPTG' RECORD TO_^1C_(WHICH NUMBER IS BEING PROCESSED_^1 100 CALL OPENFL ( UREQ, UDATA, ISTAT )_^1_$IF ( ISTAT .GE. 0 ) GO TO 150_^1C_(FILE ERROR, REPORT AND EXIT_^1_$CALL FILERR ( UDATA, 3, ISTAT, LU )_^1_$CALL CHAIN ( MENU )_^1 150 CALL READR ( UREQ, UREC, KTEMP, ISTAT )_^1_$IF ( ISTAT .GE. 0 .AND. AND(ISTAT,$200) .NE. $200 ) GO TO 200_^1C_(FILE ERROR OR WRONG RECORD, REPORT AND EXIT_^1_$CALL FILERR ( UDATA, 13, ISTAT, LU )_^1_$CALL CLOSFL ( UREQ, ISTAT )_^1_$CALL CHAIN ( MENU )_^1 200 JOBNO = UREC(9)_^1_$CALL CLOSFL ( UREQ, ISTAT )_^12_]_^1C_(DELETE PRFPG000, NO CHECK ISTAT (MAY NOT BE PRESENT)_^1_$DO 160 I=1,24_^1 160 UREQ(I) = 0_^1_$CALL DELETE ( UREQ, NNAME, ISTAT )_^1._]_^1C_(IF THE JOB NUMBER IS '00' THEN THE ENTRY IN THE MENU_^1C_(IS NOT UPDATED._^1_$IF ( JOBNO .EQ. ASCZER ) GO TO 300_^1C_(SET UP THE PROGRAM NAME IN THE MENU (SAVED REPORT)_^11_]_^1_$CALL OPENFL ( PREQ, PDATA, ISTAT )_^1_$IF ( ISTAT .GE. 0 ) GO TO 201_^1_$CALL FILERR ( PDATA, 3, ISTAT, LU )_^1_$CALL CHAIN ( MENU )_^1 201 LNAME(3) = JOBNO_^1_$CALL READR ( PREQ, PREC, LNAME, ISTAT )_^1_$IF ( ISTAT .GE. 0 .AND. AND(ISTAT,$200) .NE. $200 ) GO TO 202_^1_$CALL FILERR ( PDATA, 13, ISTAT, LU )_^1_$CALL CLOSFL ( PREQ, ISTAT )_^1_$CALL CHAIN ( MENU )_^1 202 CALL CLOSFL ( PREQ, ISTAT )_^1_$CALL OPENFL ( MREQ, MDATA, ISTAT )_^1_$IF ( ISTAT .GE. 0 ) GO TO 203_^1_$CALL FILERR ( MDATA, 3, ISTAT, LU )_^1_$CALL CHAIN ( MENU )_^1 203 RRN(2) = 10*AND(JOBNO,$F00)/$100 + AND(JOBNO,$F) + 2_^1_$CALL READR ( MREQ, MREC, RRN, ISTAT )_^1_$IF ( ISTAT .GE. 0 ) GO TO 204_^1_$CALL FILERR ( MDATA, 13, ISTAT, LU )_^1_$CALL CLOSFL ( MREQ, ISTAT )_^1_$CALL CHAIN ( MENU )_^1 204 CALL CCSMVA ( PREC, 13, 30, MREC, 15, 58 )_^1_$CALL CCSMVA ( PREC, 7, 6, MREC, 67, 6 )_^1_$CALL UPDREC ( MREQ, MREC, ISTAT )_^1_$IF ( ISTAT .GE. 0 ) GO TO 205_^1_$CALL FILERR ( MDATA, 15, ISTAT, LU )_^1_$CALL CLOSFL ( MDATA, ISTAT )_^1_$CALL CHAIN ( MENU )_^1 205 CALL CLOSFL ( MREQ, ISTAT )_^1._]_^1C_(REMOVE THE ENTRIES 'RPTEXX' AND 'RPTPXX' FROM THE_^1C_($$PGMNAM FILE TO ALLOW CORRECT LINKAGE ON EXECUTION_^1 300 LNAME1(3) = JOBNO_^1_$LNAME2(3) = JOBNO_^1_$CALL OPENFL ( LREQ, LDATA, ISTAT )_^1_$IF ( ISTAT .GE. 0 ) GO TO 250_^1_$I = 3_^1_$GO TO 299_^1 250 CALL READR ( LREQ, LREC, LNAME1, ISTAT )_^1_$IF (AND(ISTAT,$100).EQ.$100.OR.AND(ISTAT,$200).EQ.$200) GO TO 270_^1_$IF ( ISTAT .GE. 0 ) GO TO 260_^1_$I = 13_^1_$GO TO 299_^1 260 CALL DELREC ( LREQ, LREC, ISTAT )_^1_$IF ( ISTAT .GE. 0 ) GO TO 270_^1_$I = 15_^1_$GO TO 299_^1 270 CALL READR ( LREQ, LREC, LNAME2, ISTAT )_^1_$IF (AND(ISTAT,$100).EQ.$100.OR.AND(ISTAT,$200).EQ.$200) GO TO 290_^1_$IF ( ISTAT .GE. 0 ) GO TO 280_^1_$I = 13_^1_$GO TO 299_^1 280 CALL DELREC ( LREQ, LREC, ISTAT )_^1_$IF ( ISTAT .GE. 0 ) GO TO 290_^1_$I = 15_^1 299 CALL FILERR ( LDATA, I, ISTAT, LU )_^1_$CALL CLOSFL ( LREQ, ISTAT )_^1_$CALL CHAIN ( MENU )_^1 290 CALL CLOSFL ( LREQ, ISTAT )_^1._]_^1C_(SET UP SELECTION L LINKAGE ON THE RP MENU_^1_$RRN(1) = 0_^1_$RRN(2) = 0_^1_$CALL OPENFL ( RREQ, RDATA, ISTAT )_^1_$IF ( ISTAT .GE. 0 ) GO TO 330_^1_$CALL FILERR ( RDATA, 3, ISTAT, LU )_^1_$CALL CHAIN (MENU)_^1 330 CALL GETS ( RREQ, PREC,RRN,ISTAT)_^1_$IF ( ISTAT .GE. 0 ) GO TO 340_^1_$CALL FILERR ( RDATA, 14, ISTAT , LU )_^1_$CALL CLOSFL ( RREQ, ISTAT )_^1_$CALL CHAIN (MENU)_^1 340 IF ( PREC(6) .NE. $4C20 ) GO TO 330_^1_$PREC(4) = JOBNO_^1_$CALL UPDREC ( RREQ, PREC, ISTAT)_^1_$CALL CLOSFL ( RREQ, ISTAT )_^12_]_^1C_(RENAME THE PROCEDURE WORK FILE TO THE CORRECT NAME_^1C_(FOR LINKAGE IN THE $$PROCED FILE_^1 320 NNAME(4) = JOBNO_^1_$CALL RENAME ( NREQ, NDATA, NNAME, ISTAT )_^1_$IF ( ISTAT .GE. 0 ) GO TO 350_^1C_(FILE ERROR, REPORT AND EXIT_^1_$CALL FILERR ( NDATA, 9, ISTAT, LU )_^1_$CALL CHAIN ( MENU )_^1._]_^1C_(CHECK IF THE TWO BATCHED RPG PROGRAMS HAVE BEEN INSTALLED,_^1C_(WHEN THEY ARE PASS CONTROL TO THE PROCEDURE FOR EXECUTION_^1C_(OF THE PROCEDURE STREAM. THE COMPLETION OF THE INSTALLS_^1C_(IS DETERMINED BY CHECKING THE ENTRIES OF THE $$HOST FILE_^1C_(FOR THE HOST=LOCL, FOR ALL STATUS'S COMPLETE :_^12_]_^1********************* CAUTION ! ***************************************_^1**_]_#**_^1**_'THERE SHOULD BE NO OTHER BATCH FILE PROCESSING BEING DONE **_^1**_'AT THE SAME TIME AS MINI-RPG; AS THIS SECTION WILL BE_$**_^1**_'LOCKED INTO EXECUTION FOR A LONG, LONG TIME; AND AT THE_"**_^1**_'COMPLETION OF THIS STREAM ALL JOB FILES ARE FLUSHED FROM_!**_^1**_'THE HOST SYSTEM._J**_^1**_]_#**_^1***********************************************************************_^12_]_^1 350 CALL OPENFL ( HREQ, HDATA, ISTAT )_^1_$IF ( ISTAT .GE. 0 ) GO TO 400_^1C_(FILE ERROR, REPORT AND EXIT_^1_$CALL FILERR ( HDATA, 3, ISTAT, LU )_^1_$CALL CHAIN ( MENU )_^1C_(GET THE 'LOCL' HOST RECORD_^1 400 CALL GETS ( HREQ, HREC, HOST, ISTAT )_^1_$IF ( AND(ISTAT,$80) .EQ. $80 ) GO TO 400_^1_$IF ( ISTAT .GE. 0 ) GO TO 450_^1C_(FILE ERROR, REPORT AND EXIT_^1_$CALL FILERR ( HDATA, 14, ISTAT, LU )_^1_$CALL CLOSFL ( HREQ, ISTAT )_^1_$CALL CHAIN ( MENU )_^1C_(CLOSE THE FILE, THEN SEARCH TO VERIFY ALL JOBS COMPLETE_^1 450 CALL CLOSFL ( HREQ, ISTAT )_^1_$DO 500 I = 4, 18_^1_$IF ( HREC(I) .EQ. 0 ) GO TO 500_^1C_(LOCATED A ACTIVE JOB, CHECK IF COMPLETE_^1_$I1 = AND(HREC(I),$F000) / $1000_^1_$I2 = AND(HREC(I),$0F00) / $100_^1_$I3 = AND(HREC(I),$00F0) / $10_^1_$I4 = AND(HREC(I),$000F)_^1_$IF ( I1 .EQ. 0 .OR. I1 .GT. 3 .AND._^1_#1_#I2 .EQ. 0 .OR. I2 .GT. 3 .AND._^1_#2_#I3 .EQ. 0 .OR. I3 .GT. 3 .AND._^1_#3_#I4 .EQ. 0 .OR. I4 .GT. 3 ) GO TO 500_^1_$GO TO 550_^1 500 CONTINUE_^1C_(ALL JOBS ARE INACTIVE OR ARE COMPLETE, PASS CONTROL_^1C_(TO THE OPERATOR_^1_$CALLa PGMOUT_^12_]_^1C_(NOT ALL JOBS ARE DONE, PAUSE THEN CHECK AGAIN_^1 550 DO 600 I = 1, 24_^1 600 HREQ(I) = 0_^1_$HOST = 0_^1_$GO TO 350_^12_]_^1_$CALL PGMOUT_^1_$END_]_^1*K,I10_]_^1*V,10_]_^__ a(PGCNT2 CSY/ PGC (1_$PROGRAM PGCNT2_^1_#1_2/DECK-ID F19 CCS 2.0_.SUMMARY-132_^1C_]_^1C_#COPYRIGHT CONTROL DATA CORPORATION, 1978_^1C_#DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1C_#CREDIT COLLECTION SYSTEM VERSION 2.0_^1C_]_^12_]_^1_$INTEGER USER(4),MENU(4),UDATA(15),UREQ(24),UREC(42),RPTG(2)_^1_$DATA RPTG / 'RPTG' /, MENU / 'MNUPRO ' /, UREQ / 24*0 /_^1_$DATA UDATA / 'UTIFIL ', 8*$2020, 1, 1, 1 /_^12_]_^1_$CALL PGMIN ( USER, LU, MODE, NPORT )_^12_]_^1_$I = 0_^1_$CALL OPENFL ( UREQ, UDATA, ISTAT )_^1_$IF ( ISTAT .GE. 0 ) GO TO 100_^1_$CALL FILERR ( UDATA, 3, ISTAT, LU )_^1_$CALL CHAIN ( MENU )_^12_]_^1 100 CALL READR ( UREQ, UREC, RPTG, ISTAT )_^1_$IF ( ISTAT.GE.0.AND.AND(ISTAT,$200).NE.$200) GO TO 200_^1_$CALL FILERR ( UDATA, 13, ISTAT, LU )_^1_$CALL CLOSFL ( UREQ, ISTAT )_^1_$CALL CHAIN ( MENU )_^12_]_^1 200 IF ( UREC(12) .EQ. $2020 ) GO TO 300_^1_$UREC(12) = $2020_^1_$CALL UPDREC ( UREQ, UREC, ISTAT )_^1_$I = 1_^12_]_^1 300 CALL CLOSFL ( UREQ, ISTAT )_^1_$IF ( I .EQ. 0 ) CALL CHAIN ( MENU )_^1_$CALL PGMOUT_^1_$END_]_^__ (PGGEN CSY/ PGG (1_%NAM PGGEN_(DECK-ID F20 CCS 2.0_.SUMMARY-132_^1*_]_^1*_$COPYRIGHT CONTROL DATA CORPORATION, 1978_^1*_$DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1*_$CREDIT COLLECTION SYSTEM VERSION 2.0_^1*_]_^1*_]_^1*_$DUMMY PROGRAM TO JUMP AROUND LABELED COMMON_^1*_]_^1_%ENT PGGEN_^1_%EXT PGGEN0_^1PGGEN JMP PGGEN0_'JUMP TO FORTRAN MAIN MODULE_^1_%END_]_^1 MON_]_^1*FTN_]_^1_$BLOCK DATA_^1_#1_2/DECK-ID F20 CCS 2.0_.SUMMARY-132_^1_$COMMON /CBLK1/UTIFIL,DELQM,RPTTBL,RPTPGM,RPTWKE,UTIRQB,DLQRQB,_^1_#2TBLRQB,PGMRQB,WKERQB,OPBUF,Q2SAVE,Q3SORT,Q4LVLB,Q5SLCT,Q6NAME,_^1_#3Q6TOT,Q6EPOS,Q7RPT,Q5ANS,FILERR,TBL,HPGMN,UTREC,PGMKEY,TBLKEY,BIN,_^1_#4HPKEY,RADDR,TBLREC,OPHLD,D1TYPE,D1LNG,LRPGWK,IHOLD2,PGMREC,IND,_^1_#5PRCREC,ERRMSG,UTEMSG,ABTMSG,XYN,TC,CS,PRCWRK,PRCRQB,LU_^1_$COMMON /CBLK1/IMAXC,NLKEY,NNAME,NSKEY,NSLCT,NTFLDS,RPTWKP,WKPRQB_^1C_]_^1C_]_^1_$INTEGER UTIFIL(15),DELQM(15),RPTTBL(15),RPTPGM(15),RPTWKE(15),_^1_#2_%UTIRQB(24),DLQRQB(24),TBLRQB(24),PGMRQB(24),WKERQB(24),_^1_#3_%PRCWRK(15),PRCRQB(24),RPTWKP(15),WKPRQB(24)_^1_$INTEGER OPBUF(32),Q2SAVE(1),Q3SORT(60),Q4LVLB(9),Q5SLCT(170),_^1_#2_%Q6NAME(51),Q6TOT(77),Q6EPOS(102),Q7RPT(15),Q5ANS_^1_$INTEGER FILERR(1),XYN(1),TC(1),CS(2),TBL(4),UTREC(42),PGMKEY(3),_^1_#2_%TBLKEY(3),HPGMN(3),BIN(1),HPKEY(3),RADDR(1),TBLREC(42),_^1_#3_%D1LNG(2),LRPGWK(42),IHOLD2(2),PGMREC(42),IND(3),_^1_#4_%PRCREC(42),ERRMSG(23),UTEMSG(26),ABTMSG(7),OPHLD(1),_^1_#5_%D1TYPE(1)_^1_$INTEGER IMAXC(1),NLKEY(1),NNAME(1),NSKEY(1),NSLCT(1),NTFLDS(1)_^1C_]_^1C_"FILE NAME,OWNER,NAME,VOLUME NAME,ACCESS INDIC,REC RTV,LOCK INDIC_^1_$DATA UTIFIL / 'UTIFIL ' , 8*$2020 , 1 , 1 , 1 /_^1_$DATA DELQM_!/ 'DELQMST ' , 8*$2020 , 0 , 1 , 0 /_^1_$DATA RPTTBL_!/'RPTTBL_1',1,1,0/_^1_$DATA RPTPGM_!/'RPTPGM_1',1,1,0/_^1_$DATA RPTWKE_!/'RPTWKE_1',0,1,-1/_^1_$DATA RPTWKP_!/'RPTWKP_1',0,1,-1/_^1_$DATA PRCWRK_!/'PRCWRK_1',0,1,-1/_^1C_]_^1C_"FILE BUFFERS--INITIALIZED TO BINARY 0_^1_$DATA UTIRQB_!/24*$0000/_^1_$DATA DLQRQB_!/24*$0000/_^1_$DATA TBLRQB_!/24*$0000/_^1_$DATA PGMRQB_!/24*$0000/_^1_$DATA WKERQB_!/24*$0000/_^1_$DATA WKPRQB_!/24*$0000/_^1_$DATA PRCRQB_!/24*$0000/_^1C_]_^1_$DATA ERRMSG/' ERROR IN_'FILE REQUEST, ISTAT = $_"',$D0A/_^1_$DATA UTEMSG/' ERROR IN UTIFIL--RPTG RECORD NOT FOUND OR INVALID',_^1_#2$D0A/_^1_$DATA ABTMSG/' JOB ABORTED',$D0A/_^1C_]_^1C_"MISCELLANEOUS_^1_$DATA HPGMN/'RPT000'/,LRPGWK/42*$2020/,PRCREC/42*$2020/,XYN/-1/,_^1_#2_"CS/$18,$D0A/_^1_$DATA Q3SORT/60*$2020/,Q4LVLB/9*$2020/,Q5SLCT/170*$2020/,_^1_#2_#Q6NAME/51*$2020/,Q7RPT/15*$2020/,Q6TOT/77*$2020/,_^1_#3_#Q6EPOS/102*$2020/_^1_$END_]_^1_$SUBROUTINE PGGEN0_^1_#1_2/CCS 2.0_;03/01/78_^1C_]_^1C_"COPYRIGHT CONTROL DATA CORPORATION 1978_^1C_"DATA SYSTEMS LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1C_"CYBERCOLL VERSION 2.0_^1C_]_^1C_"THIS PROGRAM FUNCTIONS AS A GENERAL REPORT PROGRAM GENERATOR._^1C_"THERE ARE 4 BASIC STEPS:_^1C_(1. OPERATOR COMMUNICATION - THE OPERATOR ENTERS THE REPORT_^1C_,REQUIREMENTS. THE PROGRAM PROMPTS THE OPERATOR AND_^1C_,EDITS THE RESPONSES._^1C_(2. GENERATES RPG SOURCE CODE - BASED ON THE OPERATOR'S_^1C_,RESPONSES, A RPG PROGRAM IS GENERATED TO PRODUCE THE_^1C_,REQUIRED REPORT._^1C_(3. GENERATES A PROCEDURE STREAM TO BE USED IN EXECUTING_^1C_,THE RPG PROGRAM PRODUCED_^1C_]_^1C_"THE FOLLOWING SUBPROGRAMS/ROUTINES ARE CALLED:_^1C_(1. ASCBIN--CONVERTS 1 WORD ASCII TO 1 WORD BINARY_^1C_(2. CCSHXA--CONVERTS 1 WORD BINARY TO 2 WORD ASCII_^1C_(3. PGSEDT--EDITS OPERATOR RESPONSE FOR:_^1C_3C_'-CONTINUE TO NEXT QUESTION_^1C_3A_'-ABORT JOB_^1C_3REPEAT_!-REPEAT THIS QUESTION_^1C_3XXXXXX_!-DATA RESPONSE, DOES NOT EDIT DATA AS_^1C_=THE VALIDITY VARIES_^1C_(4. PGSJR --RIGHT JUSTIFIES DATA WITH LEADING ZEROS_^1C_(5. PGSJL --LEFT JUSTIFIES DATA WITH TRAILING BLANKS_^1C_(6. PGSLST --PRINTS A REPORT BASED ON THE CONTENTS OF THE_^1C_3RPTIBL FILE (DATA ELEMENT FILE)_^1C_(7. CCSGET--GET 1 CHARACTER FROM AN ARRAY & STORE IN RIGHTMOST_^1C_3BYTE OF A 1 WORD WORK AREA_^1C_(8. CCSPUT--PUT RIGHTMOST BYTE OF A 1 WORD WORK AREA INTO GIVEN_^1C_3POSITION OF AN ARRAY_^1C_(9. PGGEN1--OPERATOR COMMUNICATION_^1C_'10. PGGN2E--GENERATES RPG SOURCE CODE FOR EXTRACTION PGM_^1C_'11. PGGN2P--GENERATES RPG SOURCE CODE FOR PRINT PGM_^1C_'12. PGGEN3--GENERATES PROCEDURE STREAM FOR RPG PGMS & SORT_^1C_'13. CCSCST--COMPARE 2 ASCII CHARACTER STRINGS_^1C_]_^1C_]_^1C_]_^1C****_.COMMON BLOCK_!CBLK1_^1C_]_^1_$COMMON /CBLK1/UTIFIL,DELQM,RPTTBL,RPTPGM,RPTWKE,UTIRQB,DLQRQB,_^1_#2TBLRQB,PGMRQB,WKERQB,OPBUF,Q2SAVE,Q3SORT,Q4LVLB,Q5SLCT,Q6NAME,_^1_#3Q6TOT,Q6EPOS,Q7RPT,Q5ANS,FILERR,TBL,HPGMN,UTREC,PGMKEY,TBLKEY,BIN,_^1_#4HPKEY,RADDR,TBLREC,OPHLD,D1TYPE,D1LNG,LRPGWK,IHOLD2,PGMREC,IND,_^1_#5PRCREC,ERRMSG,UTEMSG,ABTMSG,XYN,TC,CS,PRCWRK,PRCRQB,LU_^1_$COMMON /CBLK1/IMAXC,NLKEY,NNAME,NSKEY,NSLCT,NTFLDS,RPTWKP,WKPRQB_^1C_]_^1C_"FILE RETRIEVAL_^1_$INTEGER UTIFIL(15),DELQM(15),RPTTBL(15),RPTPGM(15),RPTWKE(15),_^1_#2_"UTIRQB(24),DLQRQB(24),TBLRQB(24),PGMRQB(24),WKERQB(24),_^1_#3_"PRCWRK(15),PRCRQB(24),RPTWKP(15),WKPRQB(24)_^1C_]_^1C_"OPERATOR RESPONSES_^1_$INTEGER OPBUF(32),Q2SAVE,Q3SORT(60),Q4LVLB(9),Q5SLCT(170),_^1_#2_"Q6NAME(51),Q6TOT(77),Q6EPOS(102),Q7RPT(15),Q5ANS_^1C_]_^1C_"MISCELLANEOUS_^1_$INTEGER FILERR,XYN,TC,CS(2),TBL(4), HPGMN(3),RPTG(2),UTREC(42),_^1_#2_"ZERO,PGMKEY(3),TBLKEY(3),COMMA,BIN,HPKEY(3),RADDR,TBLREC(42),_^1_#3_"OPHLD,D1TYPE,D1LNG(2),LRPGWK(42),IHOLD2(2),PGMREC(42),IND(3),_^1_#4_"PRCREC(42),ERRMSG(23),UTEMSG(26),ABTMSG(7),FILREQ(24),MENU(4)_^1C_]_^1C_]_^1C_]_^1C_]_^1C_]_^1C****_#DATA STATEMENTS_^1C_]_^1_$DATA RPTG/'RPTG'/,ZERO/0/,COMMA/$002C/_^1_$DATA FILREQ/'OPENFLGETS PUTS CLOSFLLOKFILUPDRECCLOSFLUTIFIL'/_^1_$DATA MENU / 'MNUPRO ' /_^1C_]_^1C_"EXTERNALS_^1_$EXTERNAL AVMHXA,AMONTO,ADAYTO,AYERTO_^1_$EXTERNAL PGGEN1,PGGN2E,PGGN2P,PGGEN3_^1C_]_^1C*********_]_^1C****_#BEGIN PROCESSING_^1C*********_]_^1C_]_^1C_#LOGIN_^1C_]_^1_$CALL PGMIN(TBL,LU,I,J)_^1C_#VERIFY MASTER CONSOLE ONLY, EXIT IF NOT_^1_$IF (J.NE.0) GO TO 8900_^1C_]_^1C_]_^1C_]_^1C_#OPEN FILES_^1C_(UTILITY FILE_^1_$CALL OPENFL(UTIRQB,UTIFIL,ISTAT)_^1_$IF (ISTAT.LT.0) GO TO 8000_^1C_(DELINQUENT MASTER_^1_$CALL OPENFL(DLQRQB,DELQM,ISTAT)_^1_$IF (ISTAT.LT.0) GO TO 8000_^1C_(REPORT GENERATOR TABLE-OF-DATA-NAMES FILE_^1_$CALL OPENFL(TBLRQB,RPTTBL,ISTAT)_^1_$IF (ISTAT.LT.0) GO TO 8000_^1C_(PROCEDURE STREAM WORK FILE_^1_$CALL OPENFL(PRCRQB,PRCWRK,ISTAT)_^1_$IF (ISTAT.LT.0) GO TO 8000_^1C_(REPORT GENERATOR PROGRAM NAME FILE_^1_$CALL OPENFL(PGMRQB,RPTPGM,ISTAT)_^1_$IF (ISTAT.LT.0) GO TO 8000_^1C_(RPG EXTRACTION SOURCE CODE FILE_^1_$CALL OPENFL(WKERQB,RPTWKE,ISTAT)_^1_$IF (ISTAT.LT.0) GO TO 8000_^1C_(RPG PRINT SOURCE CODE FILE_^1_$CALL OPENFL(WKPRQB,RPTWKP,ISTAT)_^1_$IF (ISTAT.LT.0) GO TO 8000_^1C_]_^1C_]_^1C_2OPERATOR COMMUNICATION TO GET PARAMETERS_^1C_]_^1_$CALL PGGEN1_^1_$IF (RADDR.EQ.$8010) GO TO 8010_^1_$IF (RADDR.EQ.$8100) GO TO 8100_^1_$IF (RADDR.EQ.$8900) GO TO 8900_^1C_]_^1C_2GENERATE RPG SOURCE CODE--EXTRACTION PGM_^1C_]_^1_$CALL PGGN2E_^1_$IF (RADDR.EQ.$8010) GO TO 8010_^1_$IF (RADDR.EQ.$8020) GO TO 8020_^1C_]_^1C_8GENERATE RPG SOURCE CODE--PRINT PGM_^1C_]_^1_$CALL PGGN2P_^1_$IF (RADDR.EQ.$8010) GO TO 8010_^1_$IF (RADDR.EQ.$8020) GO TO 8020_^1C_]_^1C_2GENERATE PROCEDURE STREAM_^1C_]_^1_$CALL PGGEN3_^1_$IF (RADDR.EQ.$8020) GO TO 8020_^1C_]_^1C_]_^1C*********_)UPDATE UTIFIL, RPTPGM WITH_^1C*********_)NEW REPORT PROGRAM IF PROGRAM IS SAVED_^1C_]_^1C_2CURRENT RPT NAME_^1_$UTREC(7)=HPGMN(1)_^1ToemHDf Hb h  h (" 1\& h f\h!} (||"|%y3x& p1\nHpH_ b"hXhUa  b QXhH T]"T^f@ B b b h@7` Tn@`(?2<'X@b @b .*T^f Q1 Df"o\?vY+{"ohTn=mm%m hhTn=mm$m"o*%)K ,*&)K2Df` ȾL"3bb+"H4$Ȫ ("K 1\/h )K5"D *6+S2  HhToQTo\h\h\"h\h2 2T " :D h h h h Ha 1L@ n q+ l*"o(X` g q̿X `  g q;` 0A" lȠ`|HQHPmL` B"C ;6 o5  ,1aH* X(hHX#hHo Td2+ f b b b C"o+S+zhHK"+{ ho-Tdc " " 1 fb h`pHqh HT`pHqh HT  輚 2n ʛ "n ʕ d "n ȧ h 1ȟhd :m n ȓ Trimmm$ wdm% dm!m="h~m&fw#w6 Tn ]w4w5 STplm OTrZm'm Tpmm' l\m'mlwdv[wdv\7 T\̱l(Tqmm'̸  ̏l ḷ9Ϋl!f"ܕܗTq m(lm)lm*l̕lT\IHTtTt\\ h \h w1 "p8hw4p8hBh hw/ !ؔw0 1dv[dv\ T\w# l8l5dw2dw3 h̿6 tn h6j dw# 2n ը n Ϩ ̨ Ȩ n è :ȿ n hʦ  輚 2n ʛ "n ʕ d "n ȧ h 1ȟhd :m n ȓ Trimmm$ wdm% dm!m="h~m&fw#w6 Tn ]w4w5 STplm OTrZm'm Tpmm' l\m'mlwdv[wdv\7 T\ ̱l(Tqmm'̸  ̏l ḷ9Ϋl!f"ܕܗTq m(lm)lm*l̕lT\?HTtTt\\ h \h w1 "p8hw4p8hBh hw/ !ؔw0 1dv[dv\ T\ w# l8l5dw2dw3 h̿6 fvZصȬh hȰ!Tsuw2n1w1w1n/v[n/w# ȗ h؛Ȗdw6ȑ dw7 lH dw# h jj fw; 1Hh Ah }h h ^ h A hȺ$w1 "p8hAh hȚhșhتTsnnnnȓ p]Tt#nnnnȈ p]\nnnnn p] n!n n \nnnn p]n l 1Tsnnwt;2S:4ah?H=8499H6h6," 1d'hh &hh !d#aR8s$d1dL laHqh HTrn Tom T\? dw#Tnumm mw;vbh hTpmmmm mw6 hTqw2mw1w1mv[mw# mv`l dval )h h hvZ  ȣhȡ h 1 dvcp8 dvdvgdwvhdwTqw2mw1w1mv[mw#̌ f dm dmv^dwv_dw_dv[v[dv\\wmw1w1mv[mw#w# B̙m <m l\wmw1w1mv[mw# + dmw15 n l!l\wmw1w1mv[mw# mlml̺lT\?HTrTr\\h h\h  $  To ?w3 w2 9Tpw# + 1-.vY` T]T]Tn  h hnطط 1 lȮlȬlHTrTr h hhh h h\hh\hh+{h l!2vYb+{dh h<"hfw#w$ =w6  Tp  7l lH TrTrh\h\hhvY+{hh dw#Tqnnw1w1nv[nw# 'w2dvww3dvxw/dvtw0dvuw5dvzw6dv{w7dv|Tqnnw1w1nv[nw#Hw6w4 hTqw2o6w1o8o4v[o4w#w# J+ * hh h#hvZ  h1ɘ1`dRmȾ lp8 hRBhبn lTqw2o6w1o8o4v[o4w#Ȣl@H H TrTrh\h HHTrTrh\"vY` T^@H;h:TrTrh5\h4\h3 L10+{`: ` $ w vYb ` fw$ q l` dw9hhw1 "p8( hTpw6p dw:Tqw2p w1w1p v[p w#w# R hd!$vZ  hlh h连 غغ 1 ȱ v[  hȧhȡl l lț ȗlȔ  \w2w9w1w1p v[p w#̯  lpdw;H TrTr h hu h hhh 1 Ahp8h DH TrTr h\h\hHhTrTrh\h\"h\h2 2T " :D h h h h Ha 1L@ n q+ l*"o(X` g q̿X `  g q;` 0A" lȠ`|h hV h hP hLHGhFTrTr"h6h5\"h2: 5\h4\h3h)\h-\h,q*`Td2TdXTdc 6fbf b l `hhQDhMHMhLTrTr"h9h8\"h5h4\"h1\"h.\"h+\h*\"h'\h)vY`q T]/T]3Di RA1߰ l`Hqh HTqm  Tom T\? dw#TnImm mw; hvZhˈh hTpmmmm mhǘ5 nTqw2w9w1w1mv[mw# sȣw6 hTqw2mw1w1mv[mw#̴ `v^dwv_dw hw15 nؐ\w2mw1w1mv[mw#̔ @Tomm̌ 8dv[dv\l T\ w# %w5 lmdm dmm:dmRf"To mlmlmllT\?HTqTq\\h7h@\h/  $  To ?w3 w2 9Tpew# + 1-.vY` T]T]Tn  h hnطط 1 lȮlȬlHTqTq h hhh h h\hh\hh+{h l!2vYb+{dh h<"hfw#w$ =w6  Tpe  7l lH TqTqh\h\hhvY+{hh dw#Tqnnw1w1nv[nw# 'w2dvww3dvxw/dvtw0dvuw5dvzw6dv{w7dv|Tqnnw1w1nv[nw#H HHTqTqh\"vY` T^@w6w4 hTqw2o$w1o&o"v[o"w#w# J+ * hh h#hvZ  h1ɘ1`dRmȾ lp8 hRBhبn lTqw2o$w1o&o"v[o"w#Ȣl@H H TqTqh\hH;h:TqTqh5\h4\h3 L10+{`: ` $ w vYb ` fw$ q l` dw9hhw1 "p8( hTpw6odw:Tqw2ow1w1ov[ow#w# R hd!$vZ  hlh h连 غغ 1 ȱ v[  hȧhȡl l lț ȗlȔ  \w2w9w1w1ov[ow#̯  lodw;H TqTq h hu h hhh 1 Ahp8h DH TqTq h\h\hHhTqTqh\h\"h\h2 2T " :D h h h h Ha 1L@ n q+ l*"o(X` g q̿X `  g q;` 0A" lȠ`|h hV h hP hLHGhFTqTq"h6h5\"h2: 5\h4\h3h)\h-\h,qx*`Td2TdXTdc 6fbf b l `hhQDhMHMhLTqTq"h9h8\"h5h4\"h1\"h.\"h+\h*\"h'\h)vY`q T]/T]3Di RA1߰ l`Hqh HTumTt^Tti\h~\hh\h dw#ldw? T^T\?hH BhTpmmw#S`a !` TtrDDw#0hUT w>hF hATqmm$w#T9#=:Ȼ3%// dw#"b%v[ w>` TqDDw#hw@hw>hhhh DhTqmmw#r`π"obb22D b b b b b b bbbbbb b I b w?Jw=T"TD sfw@w=hh hhhh؛ؘؕDb Ȓ b hmvY`T]3e Q1>|t;q_dw@dwA m&@m 0b  /b   .b vYb @T^e Y1 dw#dw#m bm$#` Ttr$ fw#lT\? dw# h5 j*h)Kh hw>hTqnnnn "o  4Ƙ # l lȳhȳl Ȫ  o l̸  Ȫ  l lh̪ ln ̣ lv`n  )h hndn )Kh| hwnl   !| lvY`d T]` T]n ,фndndnd9J" ndw#Qdo:l ln7/ f"+w>f"̢l lϜ=vZdnf"ܻo9 ̾ln v`n  T\ ̺n lnlnl̝lHTt^Ttih\h-h\ h)h hy dw#Trtp!w< pw<w;vbdw>w1dw= w6hTtw2p#w1w1pv[pw# pv`h d !xa ȷhȲ ȳhvY`ShT^T\? F /ț W?  hvZ L dp hp"  h'dp lTqppw#w# pw> ._ hh۔p) ʔp*  l\ppw# p+l p,lp-lp.lHTt^Ttih= h\h\hh\ h,HhTt^Ttih\h\"h\h2 2T " :D h h h h Ha 1L@ n q+ l*"o(X` g q̿X `  g q;` 0A" lȠ`|HQHPmL` B"C ;6 o5  ,1aH* X(hHX#hHqTd2+ f b b b C"o+S+zhHK"+{ hqTdc " " 1 fb h`p  $  Tr ?w3 w2 9Tsw# + 1-.vY` T]T]Ts  h hnطط 1 lȮlȬlHTt^Tti h hhh h h\hh\hhH;h:Tt^Ttih5\h4\h3 L10+{`: ` $ w vYb ` fw$ q l`+{h l!2vYb+{dh h<"hfw#w$ =w6  Ts  7l lH Tt^Ttih\h\hh dw9hhw1 "p8( hTsw6s(dw:Ttw2s'w1w1s&v[s&w#w# R hd!$vZ  hlh h连 غغ 1 ȱ v[  hȧhȡl l lț ȗlȔ  \w2w9w1w1s&v[s&w#̯  ls)dw;H Tt^Tti h hu HHTt^Ttih\"vY` T^@ h hhh 1 Ahp8h DH Tt^Tti h\h\hhhQDhMHMhLTt^Tti"h9h8\"h5h4\"h1\"h.\"h+\h*\"h'\h)vY`tQ T]/T]3Di RA1߰ l`Hqh HHH DH`X] XRT X*  `hHXhp XR"9f}HX&2\#rX." D\hkbXh XBE ^b F\[PUDf K`RLChCIhB ܈Ch?AH8`H n q  `   h n qH  " "H  *"o Dhhh hXSh )K6+S"D DhX XQ H X p"XXS"ḓfDh hHȥXlX] XQ ȥb DhvX"'3\XG7" D\ u)DfbL*6+S2  hGTomTnTnhH\hE\hB l@@h@vY` T]"T^f l13` b 'l& b h, Tn ` Tn  b vY`T^f Q1l "ohTmmSmR%mYh hTmmSmR$mY"o*%)K4 fT\?HhTnTnh\h\"h\h2 2T " :D h h h h Ha 1L@ n q+ l*"o(X` g q̿X `  g q;` 0A" lȠ`|HQHPmL` B"C ;6 o5  ,1aH* X(hHX#hHnRTd2+ f b b b C"o+S+zhHK"+{ hnvTdc " " 1 fb h`pHqh HHH DH`X] XRT X*  `hHXhp XR"9f}HX&2\#rX." D\hkbXh XBE ^b F\[PUDf K`RLChCIhB ܈Ch?AH8`H n q  `   h n qH  " "H  *"o Dhhh hXSh )K6+S"D DhX XQ H X p"XXS"ḓfDh hHȥXlX] XQ ȥb DhvX"'3\XG7" D\ oeDfbL*6+S2  hGTmm `aDaa!a a hTBT] _\ `T^  hA@=`wfvs͸n܍ܗTu{w !gWwdwwdwTu !Vl dwn/ !!Trwdv^vshTrWww 2ln,nn-fvt l l l l dvan1  n0 n2ln3l\ @ HHO l:dv]wΔvd 0w͔w ) l( \dv^     wvsw  l HTsTsh HHvY@ 7T^d dw@ H#TsTsh\h\hB RJR3 2  HvZK"+{ dw dw $w߄w h HTsTshhhQDhMHMhLTsTs"h9h8\"h5h4\"h1\"h.\"h+\h*\"h'\h)vY`r T]/T]3Di RA1߰ l` dv]dwwhwhwvslwlTrWwws  lTuw !w  l  h Trv_swssDwwwH HNHKDdwvZ@HChCvY h>"T_, @  @  H,h,'TdX+w.2dwadwDwT_"Ea dw@sHqh H HHvY`T_:Dw@ vYdsDhvb Advc dw dv[ dvadwdwvddw hTuw "u dw hwvsh "uȸ uȲ uTrwhvshTrWvevc !, lȞ Ț hȍhȏ >\wdsʀvsh\vevc 1slsldsήdv]vtdv^wΥw t dv[ ds\wws dwdwv lvc7vdfwfwfwwdswdswvsdsw !TrwlvshTrWww !#:llTsGw llTuw !8 l l \sws ̲l̴l\ !ΰ l dw v]lv^l dsܣ sHTrv_wwwwvtwwHwvsw +wh dv]! Trv]vcdv^vshw hTrv_wu!uTwwww 3Hwdv]w w wl lTrv_wwv]wvtwwHvd`wdv](dvbl"h h hl!, Adv^ Ah  HhhhĨ nοn@HH TsTs h\ hTqnU dwYdwWdwUdwSdv_Qdv` dw dw dw dwTo+ dw dw dw dw dw dw dw dw dw dw dwdwdvdwdv]dvbAdvc l= n騔 nToWvc n1-mdw)dwTnm 9vsdm dw!ToMwlvshTovevcdm ̤dv^dwvtdw i dv[ dva( llTqew !c \wބvclεll l D  lTq{ !GTn l&̼l%̾l$wl"wl wl̯ḻlToMwl dv]Ŝ!vsfmlܖ l lw )J l l n 1wl mdwvddwT\?JHGTpTp h hJh h h h h h\ h h3 h h h h h h h h h\h`\ hh hh\\hl l:dv]wΔvd 0w͔w ) l( \dv^     wvsw  l HTpTph HHTpTpvY@BT]@ H#TpTph\h\hB RJR3 2  HvZK"+{ dw dw $w߄w h HTpTph HHTpTph\"vY` T^@hhQDhMHMhLTpTp"h9h8\"h5h4\"h1\"h.\"h+\h*\"h'\h)vY`o T]/T]3Di RA1߰ l` dv]dwwhwhwvslwlTowwo  lTqww !w  l  h Tovv_owop wwwHHqh H vYdp+Dhvb Advc dw dv[ dvadwdwvddw hTqww "qb dw hwvsh "q]ȸ q]Ȳ q]ToMwhvshTovevc !, lȞ Ț hȍhȏ >\wdp%vsh\vevc 1p0lp1ldp2ήdv]vtdv^wΥw qP dv[ dp&\wwp/ dwdwv lvc7vdfwfwfwwdp(wdp)wvsdp*w !ToMwlvshToww !#:llTp w llTqww !8 l l \p(wp/ ̲l̴l\ !ΰ l dw v]lv^l dp'ܣ pVHToqv_wwwwvtwwH H!H vY`TpTpawa wa aT`"wdw@Tro6 dwrdwpdwndwldv_jdv` dw dw dw dwTp dw dw dw dw dw dw dw dw dw dw dwdw dv] fw 1 l fvd 1 hhdw ! l lnm lJlIdwGdwEdwCdwAdwwl:dvb Advc l dm Tpavc n $  lllTrow "nv[ n } dv]ǜ7fw̮fw̭fwTom &wvsdm l!TpWv]dmvshTowwdm Ɣw Tr̥ "nl֜ $ l\wdmvsh\wwd 1 l >\wlvsh\wwd !ΩlƜ 1wdmwdmTqw !mw X l\wlvsh\wwd 1TpWwބvcdv]vsdwvtdw dm 0Tp2m l*hTr !<m dmdm̶Gm  ml lw ! l n l m 4)J lTowl m lll7̰l.̴l-̵l,wdmwdmwdmwdmwdmTpWwdv^ dv]vc<vsfmvddwdwT\?\HYTqTq& h h hD hB h= h= h;\ h8h h h h h hzh hwh hth hqh hnh\ hP hy hw hu\ hjh h-hY\he l:dv]wΔvd 0w͔w ) l( \dv^     wvsw  l HTqTq&h HHTqTq&vY@BT]@ H#TqTq&h\h\hB RJR3 2  HvZK"+{ dw dw HHTqTq&"vY@T^ @ $w߄w h HTqTq&h HHTqTq&h\"vY` T^@hhQDhMHMhLTqTq&"h9h8\"h5h4\"h1\"h.\"h+\h*\"h'\h)vY`p T]/T]3Di RA1߰ l` dv]dwwhwhwvslwlTowwp  lTrw !w  l  h Tpv_pwpqwwwHHqh H vYdq5Dhvb Advc dw dv[ dvadwdwvddw hTrw "rl dw hwvsh "rgȸ rgȲ rgTpWwhvshTovevc !, lȞ Ț hȍhȏ >\wdq/vsh\vevc 1q:lq;ldq<ήdv]vtdv^wΥw rZ dv[ dq0\wwq9 dwdwv lvc7vdfwfwfwwdq2wdq3wvsdq4w !TpWwlvshToww !#:llTqw llTrw !8 l l \q2wq9 ̲l̴l\ !ΰ l dw v]lv^l dq1ܣ q`HTp{v_wwwwvtwwH H!H vY`TqTq&awa wa aT`"wdw@Trm dwdwdwdwdv_dv` dw dw dw dwTm dw dw dw dw dw dw dw dw dw dw dwdwQdwOdw"dw dvdh w7 $ l hwdv]5dvb hTrTo/̍Em ׄml % !Tr6wldwmlT\? "HToTo h h h h h h h\ h h\h\hA H#ToToh\h\hB RJR3 2  HvZK"+{ dw dw dwvb Advc dwwhwhTo}nv] 0wvsh dwٜ!TowlvshTmvevch ݌dv^vt ٜ Tq;w "o"w o n BTrq "o"whwhwίlwΫl\wwn o"TqM "o"Ιdn l !~\wބvclvsh\nn wwvsl ! ܜ $wlTowdn dn dv]v^8n\O\w !I\wll l̻>@ewewn  lfn 1Tq  lnܸ 1TqM < l lndwndw @ HH l:dv]wΔvd 0w͔w ) l( \dv^     wvsw  l HToToh $w߄w h HToTohHqh H dv]dwwhwhwvslwlTmwwo  lTqMw !w  l  h Tqv_owoowwwH vYdpDhvb Advc dw dv[ dvadwdwvddw hTqMw "q8 dw hwvsh "q3ȸ q3Ȳ q3TowhvshTmvevc !, lȞ Ț hȍhȏ >\wdovsh\vevc 1plpldpήdv]vtdv^wΥw q& dv[ do\wwp dwdwv lvc7vdfwfwfwwdowdowvsdpw !TowlvshTmww !#:llTow llTqMw !8 l l \owp ̲l̴l\ !ΰ l dw v]lv^l doܣ p,HTqv_wwwwvtwwHTmwwvc q h q hwhwhwvslwl\wwqV MTqMw !Gwh dwȜ !;Towhvsh\wvc !+ȯvcdv^vsh\qSqV ȟl dv]8wnTrqǘ  dqR l lHzhhQDhMHMhLToTo"h9h8\"h5h4\"h1\"h.\"h+\h*\"h'\h)vY`r) T]/T]3Di RA1߰ l` HHvY@Ta&w2wdw@wdv]w w wl lTqv_wwv]wvtwwHvd`wdv](dvbl"h h hl!, Adv^ Ah  HhhhĨ nοn@HH ToTo h\ hTum dwdwdwdwdv_dv` dw dw dw dwTr? dw dw dw dw dw dw dw dw dw dw dwdw_dwwwfvtfvuTr,̫ !BP >MdwKdw#dw dvdh w8 5 l dmwdv]0dvb  dmTuTqw <ٌl % !Tqdwll T\? $H!TscTsn h h h h h h h\ h h h\h\h-vb Advc dwww"p`wfvs͸n܍ܗTu(w !gWwdwwdwTt !Vl dwmܜ !!Trawdv^vshTrww 2lmnmfvt l l l l dvam  m mlml\ @ HHO l:dv]wΔvd 0w͔w ) l( \dv^     wvsw  l HTscTsnh HHvY@ 7T^d dw@ H#TscTsnh\h\hB RJR3 2  HHvY`TaDw@ HvZK"+{ dw dw $w߄w h HTscTsnhhhQDhMHMhLTscTsn"h9h8\"h5h4\"h1\"h.\"h+\h*\"h'\h)vY`r T]/T]3Di RA1߰ l` dv]dwwhwhwvslwlTrwwr  lTtw !w  l  h Trpv_rwrswwwH HNHKDdwvZ@HChCvY h>"T_, @  @  H,h,'TdX+w.2dwadwDwT_"Ea dw@s\Hqh H vYds}Dhvb Advc dw dv[ dvadwdwvddw hTtw "t dw hwvsh "tȸ tȲ tTrawhvshTrvevc !, lȞ Ț hȍhȏ >\wdswvsh\vevc 1slsldsήdv]vtdv^wΥw t dv[ dsx\wws dwdwv lvc7vdfwfwfwwdszwds{wvsds|w !TrawlvshTrww !#:llTsw llTtw !8 l l \szws ̲l̴l\ !ΰ l dw v]lv^l dsyܣ sHTrkv_wwwwvtwwHwvsw +wh dv]! Trav]vcdv^vshw hTrpv_wtuwwww 3Hwdv]w w wl lTrpv_wwv]wvtwwHvd`wdv](dvbl"h h hl!, Adv^ Ah  HhhhĨ nοn@HH TscTsn h\ hToHn;AL$$  2gdm 2hdm 2idm 2ndm w6 Tnqm"mm vY dm dmdmdmTnv[mmm#w1Bh\m%mw/ hhhTnw,mw1w1mv[mw#w# "n6 hȭ!R (h vW  hGȌ 8 (vWhTnmmm#ȍ ) $m&vYh\m%m ,vYh ,vYh\mm# ,vWhTnqm%m dmdm ,؀vWhTnU Tnw,mw1w1mv[mw#̕ !Z lm  mw. !Cw 3\mmm'm'mmmw#w# !8Tnmmv[m# l/ ,vWhTnw/mm#m#  $m&vWh\m%w/mddmҬl mdlɬl T\ HTnw/n@nB TnqnCw/ H To4To?hh h8nHTo4To?h\ h\ hhhQDhMHMhLTo4To?"h9h8\"h5h4\"h1\"h.\"h+\h*\"h'\h)vY`n T]/T]3Di RA1߰ l`h hV h hP hLHGhFTo4To?"h6h5\"h2: 5\h4\h3h)\h-\h,o(*`Td2TdXTdc 6fbf b l `Hqh HTpn%ALTp'v[mv[mTov[mmmmmmw#w# "n Ҙnєv\ nɔv[ nw1Bh hhTo~m hȸ $ȭ  (vWhTomm (vWhToؖ (h fvW hȊ \mm mmȕ  $mvWh\mm ,vWh\ dm ,vWh\mm \m J l ,ـvYh ,ԀvWhTp!mm ,hm贖vZ + ,h1m.vY  ̳ l ,vWh ,v[h ,vWh\m ,vWhTo̔m mVTow,mw1w1mv[mw#w# !mm mQ mddmyl T\ H T\Hw1Bh n,Tow,n+w1w1n*n-n*w#w# !1 h (hn*  (hn) И 1 h (Ān)hToo/ػȻ " h T\ HTp|TphTp'w/oo Toow/ H Tp|Tphh h8nHTp|Tph\ h\ hhhQDhMHMhLTp|Tp"h9h8\"h5h4\"h1\"h.\"h+\h*\"h'\h)vY`p T]/T]3Di RA1߰ l`h hV h hP hLHGhFTp|Tp"h6h5\"h2: 5\h4\h3h)\h-\h,pp*`Td2TdXTdc 6fbf b l `Hqh HTmm 6ad+{#d d +{H#3VaDb2aa `am Sw=!h(nvY`T]/ Di  dw#`$w@H ht _hh)T_"hHd1HhhnTd2HhaHhsȭȪȠa(bȞa)bȜa&bȚa'b #%Ȗa ȕa hhhh$w=2h HhHhH~h}6Hqh HTr#nAL? dw#Tom!m nyw;hvbhˈh hTnmm m"m nnȽw6 hTplw2m w1w1mv[mw# nyv` nvv^hv_hTov\mm\vammȉ nyȖ nrȍ nr/ nr "nrvqhvrh !Tov[mm dmw1 dmTommmmTpmw1mmv[pt;2S:4ah?H=8499H6h6," 1d'hh &hh !d#aR8s$d1dL lahhQDhMHMhLTnTn"h9h8\"h5h4\"h1\"h.\"h+\h*\"h'\h)vY`p T]/T]3Di RA1߰ l`H;h:TnTnh5\h4\h3 L10+{`: ` $ w vYb ` fw$ q l` dw9hhw1 "p8( hTrw6qdw:Tplw2qw1w1qv[qw#w# R hd!$vZ  hlh h连 غغ 1 ȱ v[  hȧhȡl l lț ȗlȔ  \w2w9w1w1qv[qw#̯  lqdw;H TnTn h hu+{h l!2vYb+{dh h<"hfw#w$ =w6  Tq  7l lH TnTnh\h\hh h hhh 1 Ahp8h DH TnTn h\h\hTqm+@@"  a Tom T\? dw#TnImm mw; hvZhˈh hTpmmmm mhǘ5 nTqw2w9w1w1mv[mw# sȣw6 hTqw2mw1w1mv[mw#̴ `v^dwv_dw hw15 nؐ\w2mw1w1mv[mw#̔ @Tomm̌ 8dv[dv\l T\ w# %w5 lmdm dmm:dmRf"To mlmlmllT\?+HTqTq\\h7h@\h/+  $  Tomm ?w3 w2 9Tpew# + 1-.vY` T]T]Tnmm  h hnطط 1 lȮlȬlm+HTqTq h hhh h h\hh\hh++{h l!2vYb+{dh h<"hfw#w$ =w6  Tpe  7l lH TqTqh\h\hhvY+{hh dw#Tqnnw1w1nv[nw# 'w2dvww3dvxw/dvtw0dvuw5dvzw6dv{w7dv|Tqnnw1w1nv[nw#HmHHTqTqh\"vY` T^@++w6w4 hTqw2o$w1o&o"v[o"w#w# J+ * hh h#hvZ  h1ɘ1`dRmȾ lmmp8 hRBhبn lTqw2o$w1o&o"v[o"w#Ȣl@mH H TqTqh\h+`mH;h:TqTqh5\h4\h3 L10+{`: ` $ w vYb ` fw$ q l`++mmcS  dw9hhw1 "p8( hTpw6odw:Tqw2ow1w1ov[ow#w# R hd!$vZ  hlh h连 غغ 1 ȱ v[  hȧhȡl l lț ȗlȔ  \w2w9w1w1ov[ow#̯  lodw;nH TqTq h hu+?&g h hhh 1 Ahp8h Dow6oH TqTq h\h\hmDHhTqTqh\h\"h\h2 2T " :D +mmm@ h h h h Ha 1L@ n q+ l*"o(X` g q̿X `  g q;` 0A" lȠ`|h hV h hP hLHGhFTqTq"h6h5\"h2: 5\h4\h3h)\h-\h,qx*`Td2TdXTdc 6fbf b l `o4hhQoDhMHMhLTqTq"h9h8\"h5h4\"h1\"h.\"h+\h*\"h'\h)vY`q T]/T]3Di RA1߰ l``v[+w#qHqh qHo"qThبn lTsuw2qw1qqv[qw#Ȣl@H H TtTth\hmH;h:TtTth5\h4\h3 L10+{`: ` $ w vYb ` fw$ q l`+mmm$ dw9hhw1 "p8( hTsaw6rdw:Tspw2rw1w1rv[rw#w# R hd!$vZ  hlh h连 غغ 1 ȱ v[  hȧhȡl l lț ȗlȔ  \w2w9w1w1rv[rw#̯  lrdw;H TtTt h hu h hhh 1 Ahp8h DH TtTt h\h\hhhQDhMHMhLTtTt"h9h8\"h5h4\"h1\"h.\"h+\h*\"h'\h)vY`s T]/T]3Di RA1߰ l`oh hV h hPo hLHGhFTtTt"h6h5\"h2: 5\h4\h3h)\h-\h,t*`Td2TdXTdc 6fbf b l `+wt;2S:4ah?H=8499aH6h6," 1d'hh &hh !d#aRp8s$d1dpL l#n`na #&sHqh sHnsThB ܈Ch?AH8`H n q  `   h n qH  " "H  *"o Dhhh hXSh )K6+S"D DhX XQ H X p"XXS"ḓfDh hHȥXlX] XQ ȥb DhvX"'3\XG7" D\ u)DfbL*6+S2  hGTT MB0hX/XI?" XXZeT,1X!X19T$!+F XXXX*XLXXXXXX.XT !FX|XXcX GT"+FXlC`d aB0V "]1[DT FXRDK` DMHBHAf" "h bTHUJc1 "-2nf"2hb2ibX 2nhX  X< d>8WW T$dV` Xo!X9X=T(!+FXXX\!X{MT"!+FXX Sj q2hOhKd `hT!FX$$PGMNAM  >B0` (hXXcXgT(+FXyX$$SWPBUF e hXXXT(+FXUX$$DAYFIL T!FX>B0`hXX-GT"+FXT`F/X h h T FXyLOCL$$HOST $  hk hcXXXT(+FX@XXXMT"+FX0X#G  0hBBȠ = 0h97 3h74h6TFX&%#'  d hDhT FX$$BATCH @@J J001 X0XD]XLaT(+FXXMXX QH9B0F 0 0th,X@XT2X\GT"+F.%!XT FXT$+FX AL$$BD ( h THf`S U`y! 2`h K4XLD2f"`b\d `dI:8X7MdB03Fl)H& X" 7d `bb 2b.b M!TSLOG IULBUFF?" " h  n h j q h j h j h?XXGT"+FXQT""SFXH99hhh2eh2fh2dh h T""SFX(T FX" UHh]h3 h THf`S m1 Mj qXF XT !FT FT FT F h hTLf # $$ SYSVOL EXECUTIVE PROGRAM NOT LOADED -REQUEST REJECTEDFILE NAME: ERROR STATUS= $ -REQUEST REJECTEDC C S ACTIVE AT BUILDING SYSTEM FILES X%X#X!XXXXXXXXXX X X XXXXXH2 H-3>72"4` aADe Daa AA a a Vh` X ` Xe Xj h w `2  `" " H h hTDf H2XX""h,Xh((h*%Dh%!Hh Lh  ! Aj B B Ȉ LlHYhXX\X_hSX\hQ ` hOKhLKB0 hG0HFBCV Atm;;m75 2#h0 `()[0 m 0  m  ` #h  ` `LIBMACASSEM ASSIM PASS1 PASS2 PASS3 TABLSTXREF +MACSKL7vY+{Z` CCS 2.0 (MM-DD-78) 092878  b   !%)-159=AEIMQUY]aeimquy}5EEU -` ! O ! EL@@@@@@@@@@@@@5 ` O !LTERMINALPRINTER LPRINTER READER TAPE0 TAPE1 RQRR dddRlf3R /13 &R /13 &R /13 &R /13 &R/ ER/ :;-`R ddef@R ddef@HR ddef@LR ddef@`R /13,< !R /13, < OR /13  RT<4    R xD{6FA   ZZZZZZZZZZZZZZZZZZZZZZZZZZZZR/J R/( 33333333333333333RWmxy>8" u 0ARct /@Qb(OFF UNTIL ???? RMUOPN RMUCSW RMUCF0 RMUCFT RMUCLO  lP4dH,x  \ !@!!"$,F%FqFF FUFFF9FFFFiFFFMFFF1F}FF F aF F F!EF!F!F")++++ŀ````+, ,8,d,TTTTT X X"dWT$T,TRWK T$Cr, h 6 l#TRJU  @JPRETNWR9TAPFR9SEGFz b3 t on#-M09E`F`S=`FJ *OmXr{~jjk"3 a"O(aTO.  N TT,zjk"3 a"O3aTO9  N TT, @JPRETNWFMEXECZ&R9TAPF R9SEGF z bF t on$.M1:EG`?=`FJ *Ombr|jjL"3 a"NaTN  N{ TT+i hf 2 `_ Cf z dR Q J@#3aI   ' !f"E"""b""b b b  T5 *=== , `\ eXE\r l6T2 H@  T6a\ aACA\> h3 6.  h* aXb A+a\$Ab :"aM6dMXt  wtR=7k2  =+ Ka 7 HHahHQ  H x( AH /aTQAXX # !/aH""&  1# 7#",w BAX a::::T6"`ζXX'X " XB a h HF "Tb A A  " A H)h(h!h!h ̃hT`5bT?"`"b "T?T7TWH5 XFkXVX 9DPK f"!b"b#b%4b$f" #X>f"%1 " Aa=77k7A#aL+bh ( 4 nL  b bXyO 1X 9DPK f"!b"b#b%4b$f" #X>f"%1 " Aa=77k7A#aL+bh ( 4 nL  b bXyO 19> -a&"a7X:h6X8a%X6H4X4h1X2a"\A(X-"A'(\\\A) ', a- a!A ?B Hh   Tc~TCXbTX`h`TCA"aB8a 2gc: oTK:b GBXTB(  `XH\"aXH A"b TBt XcXaM > ?B Hh   TcTCfbTX`h`TCEND0V4>PBGNMON>QSYSMON07SYSDAY25SYSYER78SYSLVL26LIBEDTLOADSDJOBENTJOBPROPROTECJPLOAD#JPCHGE*JPT13 1JCRDV48JLGOV4?JPSTV4FNAMEV4MJPFLV4TAFILV4[RESTORbRCOVERiBRKPT pODEBUGwA!a+):aM)Af"Mf""DPW aTC TKgTCk2 `f"h h` E oTK{:b GBXTB  `XH\"aXH A"b TB[ XcXaM > ?B Hh   Tc~TCMbTX`h`TCA"aB8a 2gc:aa2` H"GBXTB  `XH\"aXH A"b TBf XcXaM > ?B Hh   Tc~TCXbTX`h`TCA"aB8a 2gc:""b""b b b  TAIII ? `\ eXE\r lB>> H@  TBa\ a !@M h@Q !\b a` >A6"R6f"SYSMON09SYSDAY28SYSYER78SYSLVL32LIBEDTLOADSDJOBENTJOBPROPROTECJPLOAD#JPCHGE*JPT13 1JCRDV48JLGOV4?JPSTV4FNAMEV4MJPFLV4TAFILV4[RESTORbRCOVERiBRKPT pODEBUGwSYSCOP~SYSSEGMIPRO TDFUNCEFSTOREFLISTVERIFYSYUTILMNTCHKDISMNTAUTOBTCNWAREKICKOFCALLCPCPLOOKTRMLUPTAPSETDUMMY1DUMMY2DUMMY3DUMMY4 END0V4>7BGNMON>8CPAREAUNPSRTUNPENDSTRBASMSIZV4SECTORMASKT EMAXSECkMPFLAGpSYSID tSYFAILUBPROTLBPROTUPBDTBLOBDTBINTSTKEXTSTKVOLBLK^VOLENDSCHSTKSCHLNGLOG1A NUMLU CCPLU MT50U0MT50U1MT25U0MT25U1LOG1 LOG2 ALTERRDGNTABDUMALTLSTOUT STDINP BATLSTBATINP LUNAMEINVINT.PCORE 5PCONSLUMIINP eTK7WEFTK7DATTK7RW MICSUB"SEVENTSEVNRDP83310`P1829 OCDRDSMP1811L CPTRAC PCCP1 DUMPOT 2PORTS ?EPORTS NBRLINPLENTH OUTQUE ENDQUE MAXQUE8AUTON PBAT00 PBAT01 CALTHD +LVLSTR -N4 N5 N6 N7 N8 N9 N10 N11 N12 N13 N14 N15 LSTLOC BPARTBL >LSTPRTBUSY CTSAREA ?THDS USE OUTPV4RDPTV4SPCEV4PTNALCPTNRELK65T10K65T12K65CORCCP DCPTBLNACPTBE ETSPAGE dCPTBLZNUMCP CPTBL uXMATR XMAT sXMTENDMMAMAXMMAT NXUC NXUM NSWP TSQPRITERMLUCONSLUPROMTR>BAITOSDATFMTDATSEP/TSTLOCPRTCDRSWPSECR9TAPFR9SEGFWKSPLULRGUSRRQLLIMRQULIMTSOFFMRETIMEONTIMEFILOADQPASWDTSLOFFWKSTATTSMUSRTSMENDMRMUOPNRMUCSWRMUCF0RMUCFTRMUCLOR9MUX1R9MUX2R9MUX3R9MUX4R9MUX5R9MUX6TSPORTMTSPENDTSUSERTSUENDLTSUSRNTSUSRL000 ,COMM18HWINITU2INITSIMRSVQMINTXFMRDEL^FMEOFC_FMMOSU FMMOIU FMNRCDKIBSECMAXCOPUCTLEN(UCTABL"oMAXLOCWLRTABL'NRERLE)JFMMOSF FMFCBS)KFMMOIF FMFCBI)FSCTNE FCBSCT*FSLIMT+SFSLEND+zMMLUTB+{PCTABL+IDLE ,IDLER ,INSTLUIDLCTR,TMRTYP,TMCODEFSTIME,DMICOD,TBLADR,EMPSRT,EMPSTP,BUFF ,BUFFE 2bCGHOST2bAYERTO2dAMONTO2eADAYTO2fYERTO 2gMONTO 2hDAYTO 2iHORTO 2jMINTO 2kSECON 2lCONTA 2mHORMIN2nTOTMIN2oTIMCPS@TSURTN>TSATCH@TIMSLC@TSNABL>8TSACTV>9TSCNAC>:EXPIRE>;TSMFLG>=XMBLOK>>TSULBF?"REAREQ?ONNXUCAONNXUMAONNSWPAADNSWPAOFNXUCBFOFNSWPBMGTNXUMBDENXUMB[DENSWPBTDENXUCBbXMALC BXMRSV BXMMOD BXMRTN BXMREL BMMALC CMMREL CMTSCLOKCkSLICERCrTSBGINCsTSVFTNCTSRFTNCTSCLLBCTSWSECCTSCKMUCTSCKPMCTSPMCKCTSIPRCCWTREADHUNPTBLDKPGMIN HTSPMINHPGMINTITSINTRIPGLUNTI#TSLUNTI&SLICUPI1TSLCUPI4ATTACHI:TSATTCI=CHAIN IaTSCHANIdTSLMSBITSLLSBITSLSIZITSXERRI\PGMOUTImTSEXITIpTSLICEJTSUSCPJTTSIOC1JcTSIOC2JTSFMCPK4TSMMERKXEXTREGKgSETBNDK{CPDEF KCPCHK KCPREL KCPMOD KCPSET LCPADD L?CPFET LnNMONI LRCTV LMONI LREQXT LASC LDISPXXLSCHTOPLRDISP LT9 MNT18 MNT19 MRW NT0 NT1 NT2 NT4 NT6 NSAVLU NCKTHRDO.RPMASKO(T14 ONCARDRDOXT16 O_PARAMEOjLUABS OjSABS ONABS OCABS OALLIN OMP1234P UPLOWMP IPROC P0IP1 P@ASAV PUQSAV PMSAV PPWFOV PHA PPRO P4PWFAILPPTYERRPANIPROCP0ALVOL PVOLA PVOLR POFVOL POVFVOLPALCOREPREQALCPRTNCORQhICORE QECORE RT12 RSTLPV4R%LOOP R]SWAPCKRLEND RWSWAPONRVOUTPUTRSPACE4RONOG30ARiREL RSCH RNFNR SFNR SFINDRQSNCMPRQS{COMPRQS{MAKQ SMAKEQ SADEV SDEVERRSALTDEVSCONVERTALTSUBUSTMINT UhTIMEUPUT8 UhT15 UhTMRTHDUDTMER UDTIMERUUPTOD VTOD V"MINT VkMI VkMIB VMIBX VRELFLEWKJOBSTRVAMINTXW*TRVEC WUNPIOFWPARBV4WCOMPV4WINPTV4WSCHERRWJOBINDWNSTACKTRANV WUNPIO WIUP WSPASW WLIBET WFILE1 WFILE2 WFILE3 WFILE4 WRECOV WLOCF WLPTRS WSWTCH WLOADINWUNPTIMWVINPV4WBATCLUWPRORETWMIBUF WJPSWT WJBPROEWTRNVECWRELS1AWERRMSGWAUTF9 WAUTFA WAUTFB WJKIN WJBCFGZWJBCNCLWJBCNFGWJPRETNWJPRET1WMOV WCOUTV4WOLDUMPXCOBOP YFMEXECZ`FMSWAP\ FMSCOM\?FMCOMP\QFMCOME\CFMPPRO\ABSPAR\CKUADR]MMREAD]/MMWRIT]3LOKCHK]REMLOK^fINSLOK^rCLFRIO^FMUFCB^FMCHKO^FMCOVL^FMBRRN_"FMFSRC_,PUTREC_:READRC`"GETNXTa WRTBAKa7MRECADaCOMSEQaUNLOCKckLOCKFLcPFSHAREcxFUNSHRc~DWADD d2DWSUB dXDWMUL dcIDUMMYdCDUMMYdEDUMMYdDONE dISMD dI18331dGETLOSdCSMD dC18331dCONTCUe DATFLGeESMD eE18331eCLRINTeEGHOSTfWANTDRf BSMD f!BSMD4 f@B20 f/ALMERRfPXSMD fSEEK9 g:CLRSKNgORLSECUgSEKCHKg2SETFNSg SKALNDg*SEKCOMgSEKDONgSEKINPgSPL4 fCONCU h9CKOVRLhCLRDAShCLRSTShCLRTCUhCLRTDAhCNDRIVhdCUCNSTh.CYLTRKhDASTAThDRICHKhMSBLSBhPOLCHKhCLRACRhUSKNPGiSMDSTShSELFLGh+LIKDUMiECCALGiECXIT jFFILBFkFILSMDkSMDCPAkSMDCPGkSMDCPSkSMDACPkSMDGCUkSMDGDRkSMDGD1kSMDRDRkALTDAIkLTOFDRlLMPDRIVkMPDVCKl&ICONSLlfBINHEXxIDRCP1xDIDR4 xEWRITE xIDR12 xHIDR56 xIDR60 xINPUT yQCPSENDyBACK yWCONT yQUEUP zUNQUE z?COPYQ zUQCOUNTz=QIN z>QOUT zTCOMREQztMESAGEzCDRCP1{LNRESP|#LINEUP|3LNDOWN|=LNDISB|cTERESP|fBREAK |wCERROR|LN4 |GGET |PUT }DCLOCK@TIME INITZE ABSRED%FIXONE7UNFIX ?SORDERHDISABLENABLERESET hACK nCTERMLCLINE CSTATSNSTATSCPADDRTCOMPLTERMCKLOG BSYEFSCEFDTAEFLOCKxEFCOVLEFDATAMMEF MASDRVMASEXT4MASCONMASERRMAS3004RELBYQ3ETRMNLTCMREQTI1811ZCTRMNLINIPRT.S1811TI1811TM1811TLPL02Z5FMPL01Z3FMPA19ZVFMPA18ZTFMPA17ZRFMPA16ZP]W1]W1]W1Nv111N1N0N N N N N N N N N N7N7Ny'Ny'Nb1NX1NX1w&)# -/Q N 8N28NyN0N0NyN0N00N-xN-N*N47y8}30(&80 0 0x yg 0O0f8N #0N|0Ns'0N-0N'0N{%0NO70N 0N7&N50NZ/NZ#NZNZNYNYNY NY&NX7mNP)007&4,0&0N48U/yT-048  PILIBMAC DECK-ID A11 MACRO ASSEMBLER SUMMARY-120@PuS*2*S9f1<@P ` f q aUUaa aa ahTFa8K  T\@P+@`TT aTn$-!# X[4# 1 3a dn@P VT 0` a`T 02 X'TL  aTH `@PTT `X TT H aTL ` a aX   T@PT ? a f 64( a4  u   Ha"( @P| I S Ga uR u <a A @MACSKL END. TYPE (CR).  @P c qT  wAB Q#, 8 "E 2 1#U   K @P- acQC !AAT A  c q a@PX 2 aX 3 4T a2 DTf n n A. ld @PaTXtn nA TTA J"a 1J XS ( !T aa TT x@P aa T2T#TT T3aT;  'a T" A  q B@P T" C  9aXX n a  AT@P  6 5T ԑ 7 q 2 8nT!T aa X@P/TX!1X1X/a R  H a Ȁ "f" a a T@PZ a auDa Q  U $ f" H a Xh aTH(@P 2  n"A3` ah (f q aaF @Pa ? a c A c q DT "A2 0 0`"X>@P ` B1 aX a E ( ff q0h X $XT @PhHTL LIBMAC ERROR 00h H aTL`h H  aTH@P1` aT\ PLIBMACPLIBMAC P{aASSEM DECK-ID A01 MACRO ASSEMBLER SUMMARY-110@P k d f pfvB 0 h hh5 phvhTZN@P+" fo fuX' hTLABS BASE ERR6 hPASS1 PASS@PV2 PASS3 TABLSTXREF PASSEM ASSIM PASSEM k dDž ffB 0 h hh5 hhTZN" ffX' hTLABS BASE ERR6 hPASS1 PASS2 PASS3 TABLSTXREF ddDžkdǏ lddl2kdK`B fB qdǎnjaa a! dNja aUUaaadhmhhndX 0 c1 q\KT:5>DždNJ  fdž q8- -n< +n:\JXP\"\54#   BdnT!a" a T\ B!g +n  -n +n  -n"aT9dǍ A("(d Q< `( ; da(  -n( +n*  B ,n( +n ba*)* q ( bR U 4\XVa - #n q # q 2BTTQ J aa a A a''̐XB' `a'TQ C a a a X    XPXN ?$ a#f 64$( a4h u  Ha(M| I S Ga  uR u  *nX!X ŢT a "A2 0 X !"\Xha!a'Ǐ' Ǐ ""h)E *n )X'Hhdžh aTL SQMCMDOP**** ********** A(  2( :c((a- a(- A)*+ȁ, X   ( ff2 q a)a*#F a( ?# (a( &c+ A (c# qTL MASS STORAGE OVERFLOW $ ?#f 64$( a4a !d Q `~0N6ɱ~N)JH/Nl%>9%%.%. NS2SE1L.L0L-N:N.N0N-NNMMNMNMƳK RARMRQRBPaPmPqPb-1"-1"0-010" - 1 "|X5 4 s S;:$$&2t@o$9NTΏ6A]p#^g5g#Eg@ `HPX(08hpxhJHJGH?h> _:n: q H66T `"0 h A& `#4 ZdnTL  OV CORE RES. MACRO DIR. ?a( A)@ #tdn C Bs` R2 C `  a a TsT\y aX#fB $n %n A. l` aTXpn nA h\J\J\JA J!1DXL#Xp a aT3T$X\* \3a(\:  '(a( \9 ( qJ \9Ӌ1bG<a.X.h n a  AT$ $ \ ֑# q 1#nX!\ Tn 0 aA a \\\3 a aX\X"1X1X0ah R  H aȀnaaT aata Q H U $ n H a  a( a\( Aahbahy _nv qa6alo nk a T  %  *!]\ A\W= a  \X"Z26 A? _a6 a 4  Q\ aaa6aXm8    A6 * n #c. qr Xi a  *n  "jX"" _bnb q^ah [XE E(  2( 2 A :c((a+ a(+ A*a()X)(X' X% aa(@ *n a (9T #. ra\ a Ga a R _n E 0aXUalT{a a a\!6S   *\ X,  T4T1\ a7X  aa6X6 R\66 \1 TnX7 7a(!"ȟ\% X `l h q aa Xr" A"T HaF LXH _H hh aTZMACROSh H aTL` `hh H aTH` fdž q a \)x Q B !TL (n q aTH(Ţa a Ta c@ q@aF AIT a h8h7h6 cD qahX ! alrA 0h!d Bar a8r9 A9T4 )a  andžhiXcTL Ǝǎ7 a7FAgAX Aa**aa c B T agaQ *w nq9T  aV  2V :cVVa[ aV[ AWXYȅZ D DƍDSEXLBPPOPRGRLOVUDMO  X1i\UQA^m \J\I Fj$c: q #    j r  *nn 9T 9ЉCH \\ "AZ q al al\m  HlAa4aBXe aXaYM\ C aMXYYa1\Ya!\XaW\AXl % BZW  X D   RTLBFV\L ak\m 1X%m8\ akj\B amXm  aj$T T Xm aT aa\`    \ \eam A' 1 a\<  am 4aTm  1 aj\7h" cM aXdaZXP a 2a\ haMT am aakTBcm4B kTma^A  B $1qFaq4o  aMAA  cVB Tl alM\A\ D B Q" Q 1 a3\\VcV aM\ am a V V r"]^q4btcqFao aoqTmi\maq cP q ARTaQm  \Am 2\ aQaRa+A^F 3S0_Q-CaaaQ(\$ UT1L \ aQ`daa\  ahaRaRTRQCSbA!  Ac R aQ D TB  rU cUcm Ac11q*aARaR aaQm t AS aQ U U QAc QAQc  QaUaaTQGUAUa!T" 4"BcaaT 1aCaC TahdCaC& TCQX C aC ]cF qLjQ: dLj `d* TCT LJD6X 8c qh H a8TLX8c dLJ DUH H%Ac `d `>bA w RR H:h/F \ JL . XTT E TCT1XXI aX7HI df CwFˁF 1>?Ǐ!7  c qTL Ǝ=h>T Ɗa a>?a>a@a@XNMASS STORAGE OVERFLOW >Ǎ@AX$ >a=h>T >?a>=h>T4Ɗ   A @>a=he>\=hs@A>\hh = f Af\A   TC alk\% -" \ aF CT^mq[n(!oC\0ikT AamTaN aO  + -b  aO1kwaTAbCTT mO maNf  "X7wTN  Tn$1p +tq -o aq TCQp  [iUAq TC Apl l q HaJ({JM Ii S Gal uR u X 8aJXJ6R\(3^0h C\^m 1 aRaQ TCƉCЈߍTk\ aRaQm \_^ \Xxm  \\\ B \ GKINX11\  bIahIFf qX hN $#bXQ\\ Qb\ E \TX1\ \N  aCaaQAAakT B qVCQRAAaCQa@F=haXTN TC c q PAAABACA %HGAT `hB aAaBaC7 0 c q al aNj a9 cD q՘ a a7 **cB NNaT7h H aTL` `hh H aTH` `h aGaHF aF ? FaF H 6cF B  P C D X-P-C-DhHhƊ``1X&dfǐ D`1X ف fǐ Dh`ǐT d d k dDž ffB 0 h hh5 hhTZN" ffX' hTLABS BASE ERR6 hPASS1 PASS2 PASS3 TABLSTXREF d Ȅdd aa8a5a6džhTFa`   T$18 h h $h1 hh T adh T cD qahd4 8"TX,q[# Tn#T al aV  2V :cVVa[ aV[ AWXYȁZ rA 0h4d Bar r)9 A9T )$a  an  c A |2t wA "XAan8o T m TTTx aaa8XJ\"A A a P a A \Q P C D X-P-C-DCTAaaX aGaHF aF ? FaF H >cF B  8ìcs qLjS h7 l \ hXy5Xd T hLJDX X 8g qhH XTȒ1X a8TLR a@PAACA AdX eJc a X 0Ac aT 8aec rdQC Tc  dXe AT aAc @  q  :E B`VWXȁY 0c qdžgA  a XX aTLZƎp Xh  A  Hh= 0j7 q aTLZ hTǎ#hr#oaZAgdž**aAXAaX aQagHU c dLJ D Dƍ Dƿ DDSEXLBPPOPRGRLOVUDMO****** **********UH H%Ac `d `>bA y RTX >Ǎ@AX >a>?a>=d>TƊ   A @>a=l@A>\T  alk\5 T aF CT^mqnqgo " A aoXoNJikT Aa \mTaN aO  +aO1 -k+ ,AJ mO maN g  "TihHhƊ``1Xdfǐ D`1Xfǐ D` `d5ǐT5 d dn%1p +q - aq Tp  [i UAq T Apl l q Ha(KzM Ii S Gal uR u !( 9 'Z Ae4_AM  A` J a3mm]c]`dB 14  Taa ae Qamda mjxAav Aa{axmubA1 T agT Am  ahd4 c] qg akaPg]lQ^h4 D4`C !A`VbbkAb abYj_ aPAb^hhOC L3 3    4 aPAdX 6 5 2 1 aeWO  o|XfUo ԓTCButߏCِdΐőimphmaN M  D B SX&iEDX&+EAaJR"P cAJ AQDXYZQaJwXkRAF\eh aR \UB m q^  [EX1aJW\?E\CR\DU aJ\:\ /H9F #TdX \X \X  PAGE 0 DATE: MO/DA/YR aXG TTA aaR 2 aR\R aR h cP q ART aQfSm  \m 2\ aQaRahA^F 3S _Q CaaaQYq\l \\h AT2\T L  aQ`YdBAaa\@MPm .S +bN2L 3 LaQ̲bKN P̂b`daRCL db LSOaaha@=h>XTRQaRQoċ|SbA!  Ac R aQ D TB  rU cUcm Ac19q2aRARaR aaQm SAS. t AS( aQ U U QAc QxAQc  QaUaaTQGUAUa!Ta" 4#BcaaTB!1aQX C aC ]cF qNO b aN\tfQEN2 hm i g eO rNQ# JP QqqhϱRaRaQRCc aRaR!dI1aEJaJC1Zh?JaJNRqM;D L"aKQAU AQm. \(      JaJ\  am\^׋ɊB˒\\\m N'KaJUaQaNQD  \RJaJ\mRA!dam R Y CQLQYC aR!QaQR 2 \ RJaJQmi\ \ AWAXAZ      VCVJAJ\ \ h H a5TL^h H a6THb`6 `h aaJ aL aaPaQaajahTS     T aaaP aXr ajaT m aaJ8 3j aNTaofhE \ a i   C aX5m 2 1j\E \ aabadaj" c aTAX j T am P  Q  U C T "qRA  C bAVaVR!A A aC AJaJ aTTBT aJ cV qX7ab gTm \.aaabX5aamB R C Z A\XaVX%\T" qVad\cWm 7 B"T   l al  a]ae\e 2 2] Sa]eam ]zA]v]tmrA] a/X!I Ae ! A\TA\HhhhAI\B\HkhkBT\ h7 !\X \X lj ddž hsHXHXHXH nB  h HH 0F 0H 0F 0  PGM= () COM = () DAT = ()  Pa 5 1XT1T aD AT aaPa!aX\1\C A\Pa]a^XFaGaHa A\LjX7uTdždX a aa aT3aXTA# aT aX1Tǎ=a\XAaaaa\,, ac T XaFcGcHcT 1ATdT$AVac Vc C #AaAa\LX3& 8c qX=X<Ia c A6 XX a8T\{8\4X&lj! aT\!XyXs a8TD{86ERRORS*Tah H TaFaF2hadahFc Gc Hc hc D 8AA 9AXr>Ǎ@AX >a>?a>=hR>TƊ   A @>a=h8@A>TdžgA   XXU aTL Ǝ Xh =A  Hh; 0j5 q aTLIAc @  q  :E B`VWXȁY 0c qc dLJ D Dƍ D Dƿ****** ********** P C D X-P-C-D aGaHF aF ? FaF H 6cF B  aV  2V :cVVaZ aVZ AWXY 85 ìcs qhHy"h a5TLh H a6TH`6 `h hLjQ7 dLj TP XXX hTLJDX 8c qhH Xȩ1X a8TL{ǎAgdž**aAXbAaXx aQagH*DSEXLBPPOPRGRLOVUDMOlj h}hdžXdǐ a (ǐXdljghH  aTL 5hXh a :jPB B0 0HRB8  KHJ 0UhB ""hL ""hD ""B /h> /H9h $X ,X X/ X PAGE 0 DATE: MO/DA/YR *** S Y M B O L T A B L E *** ljh( adžh `hHh  ` H `hӈ@? ddž dljhh+lj8l dhhh6 `h`hXOh `Ǐb  H~` h52b 2  `b `c! ` a Ɗ" h AƊ!Ɗ`  hh h hXe h`&2 1 ǐdǐ hܘ" H"ǐfǐ hȾȽ @ǐeǐ Ǐǐ hȪ`ت12Ȥ !'ȡ"Ț H"ǐfǐ" `b h  h{ u hrph c hbHd_ ^ h[ hT_Ɗ`XhHh HX (ǐX (X29XvFfǐGfǑHfǒIaK X7]fǔ^fǕ hĘ( 1 $ AǐX HXeǐXX] h\BHKB!KdBaK hK 0 aKp 0c]K 0 aK h0߃]c]C H] -a] h aGaHF aF ? FeF H 6eF daIh _ fǐ q _ fǐ q k dDž ffB 0 h hh5 hhTZN" ffX' hTLABS BASE ERR6 hPASS1 PASS2 PASS3 TABLSTXREF TFa   h $hh1 h8Ɗ` adž `hHh  ` H `h؈Ɗ@: ddždljB dhhh6 `h0hXh `Ǐb  HƊ`h` $ `~1WhsƊ`Hp XhXc daK Xy ]fǐ^fǑUX FfǐGfǑHfǒIaJaKX DfǐEfǑ (fǓ KXP ]fǐ^fǑ_fǒ) fǓX` $ `1@h Ɗ`H XhX daK X ]fǐ^fǑX" FfǐGfǑHfǒIaJX8 DfǐEfǑXbƊ`` 3 `2?hƊ`H X;hX' daK X ]fǐ^fǑX FfǐGfǑHfǒIaJX DfǐEfǑXƊ`c ho `h `c17h `dƊ@ aKXk, fǐ]fǑ^fǒ HA"dǢƊd"ǐX HXǖǢ ȮdǢƊ` ǐX`B` hb 2  `b `! ` a Ɗ" h AƊ!Ɗ`  hh h hX= h`&2 1 ǐdǐ hܘ" H"ǐfǐ hȾȽ @ǐeǐ Ǐǐ hȪ`ت12Ȥ !'ȡ"Ț H"ǐfǐ" `b h  h{ u hrph c hbHd_ ^ h[ hT_Ɗ` XhUHhS HX::XAFfǐGfǑHfǒIaK X]fǔ^fǕ h̘ 1$ ǐXf HXWǐX[XNǎ"XH akdǐǐ (XHb1 / aT\!"aK 2XL X]h)^h(X X! h X  X  X c q ERRORS "JeXX X X XX !X a XXX X XXADhcDRhaESh^S h\ !X a XXX X XX}VAh9LUh7E h5 h3X a XXe E Q U I V A L E N C E S ----------------------- DEF.LINE NAME VALUE REFERENCED AT LINE NUMBER S Y M B O L S ------------- E X T E R N A L S *** A L P H A B E T I C A L S O R T O F S Y M B O L S *** _ fǐ q _ fǐ qhH  aTL 5hXh a :jCB B0 0HEB8  >H= 0ih5 ""h? ""h7 ""B /h1 /H,h t $XX PAGE 0 DATE: MO/DA/YR DƍHK 0 aKp 0c]K 0 aK h0]c]C H aGaHF aF ? FeF H 6eF daIh J 2 A :cDJD 2 A :ȃDcDE JHaJh H a6TH`6 `h D O1'' ',',',' EMC O0T' ',1,',',' EMC 5 O0T' ',2,',',' EMC O0T' ',3,',',' EMC  O0T' ',4,',',' EMC U O0T' ',5,',',' EMC O0T' ',6,',',' EMC  O0T' ',7,',',' EMC u O0T' ',0,',',' EMC IFC =====',EQ,====== VFD N8/4,N2/0,X3/',X3/' 3 VFD N4/',N4/',N8/0 PCO 2 VFD X16/' I0 IFC A,NE,A EIF I5 IFC ',EQ, U IFC (((((',EQ,(((((( VFD N8/4,N1/1,N1/1,X3/',X3/' I1 IFC A,NE,A EIF  VFD X8/4,X1/1,X1/0,X3/',X3/' EIF I1 u VFD X4/',X4/' PCO 2 VFD X16/'-*-2 I0 IFC A,NE,A 5 EIF I5 I6 IFC ',EQ,* IFC (((((',EQ,(((((( VFD N8/4,N1/1,N1/1,X3/',X3/' I2 IFC A,NE,A EIF U VFD X8/4,X1/1,X1/0,X3/',X3/' EIF I2 IFR '-*,LT,128 IFR '-*,GT,-128  PCO 1 VFD X4/',X4/',X8/'-*-1 sI0 IFC A,NE,A EIF I6 I7 IFC ',EQ,+ VFD X8/4,X1/0,X1/1,X3/',X3/' 3 VFD X4/',X4/' PCO 2 IFC (((((',EQ,(((((( VFD N1/1,X15/' I3 IFC A,NE,A EIF U VFD X1/0,X15/' EIF I3 I0 IFC A,NE,A EIF I7 I8 IFC ',EQ,- IFR ',LT,256 t IFC (((((',EQ,(((((( VFD N8/4,N1/0,N1/1,X3/',X3/' I4 IFC A,NE,A EIF 5 VFD X8/4,X1/0,X1/0,X3/',X3/' EIF I4 PCO 1 VFD X4/',X4/',X8/' I0 IFC A,NE,A EIF I8 U EIF I0 PCO 0 EMC IFR ',LT,16 IFR ',GT,-1 u IFR ',GT,0 IFR '+2,GT,' I5 IFC ',EQ, IFC (((((',EQ,(((((( 5 VFD N8/5,N1/1,N1/1,X3/',X3/' I1 IFC A,NE,A EIF VFD N8/5,X1/1,X1/0,X3/',X3/' EIF I1 VFD X4/',X4/'-1 T PCO 2 VFD X16/'-*-2 I0 IFC A,NE,A EIF I5 I6 IFC ',EQ,* IFC (((((',EQ,(((((( u VFD N8/5,N1/1,N1/1,X3/',X3/' I2 IFC A,NE,A EIF VFD N8/5,X1/1,X1/0,X3/',X3/' 3 EIF I2 IFR '-*,LT,128 IFR '-*,GT,-128 PCO 1 VFD X4/',X4/'-1,X8/'-*-1 I0 IFC A,NE,A U EIF I6 I7 IFC ',EQ,+ VFD N8/5,X1/0,X1/1,X3/',X3/' VFD X4/',X4/'-1  IFC (((((',EQ,(((((( PCO 2 u VFD N1/1,X15/' I3 IFC A,NE,A EIF VFD X1/0,X15/' 5 EIF I3 I0 IFC A,NE,A EIF I7 I8 IFC ',EQ,- IFC (((((',EQ,(((((( VFD N8/5,X1/0,X1/1,X3/',X3/' SI4 IFC A,NE,A EIF VFD N8/5,X1/0,X1/0,X3/',X3/' EIF I4  VFD X4/',X4/'-1,X8/' I0 IFC A,NE,A u EIF I8 EIF I0 PCO 0 EMC 5 VFD X8/',X3/',X2/',X3/' EMC IFR ',LT,16 IFR ',GT,-16  VFD N8/0,X2/',X2/',X4/' EMC U O4' ',',' EMC O0OIS ',',',0 EMC  O0OIS ',',',1 EMC u O0OIS ',',',2 EMC O0OIS ',',',3 EMC 5 O0OIS ',',',4 EMC O0OIS ',',',5 EMC O0OIS ',',',6 EMC U O0OIS ',',',7 EMC O3'' ',',',' EMC  O0G' ',',',0,' EMC u O0G' ',',',1,' EMC O0G' ',',',2,' EMC 5 O0G' ',',',3,' EMC O0G' ',',',4,' EMC O0G' ',',',5,' EMC U O0G' ',',',6,' EMC O0G' ',',',7,' EMC  O1'' ',0,',' EMC u O1'' ',1,',' EMC O1'' ',2,',' EMC 5 O1'' ',3,',' EMC O1'' ',4,',' EMC O1'' ',5,',' EMC U O1'' ',6,',' EMC O1'' ',7,',' EMC  O1'' ',7,5,0 EMC u O1'' ',1,5,0 EMC O1'' ',2,5,0 EMC 5 O1'' ',3,5,0 EMC O1'' ',4,5,0 EMC  O1'' ',5,5,0 EMC U O1'' ',6,5,0 EMC O1'' ',0,5,0 EMC  O1'' ',7,8,0 EMC u O1'' ',1,8,0 EMC O1'' ',2,8,0 EMC 5 O1'' ',3,8,0 EMC O1'' ',4,8,0 EMC O1'' ',5,8,0 EMC U O1'' ',6,8,0 EMC O1'' ',7,9,0 EMC  O1'' ',1,9,0 EMC u O1'' ',2,9,0 EMC O1'' ',3,9,0 EMC 5 O1'' ',4,9,0 EMC O1'' ',5,9,0 EMC O1'' ',6,9,0 EMC U O1'' ',7,10,0 EMC O1'' ',1,10,0 EMC  O1'' ',2,10,0 EMC u O1'' ',3,10,0 EMC O1'' ',4,10,0 EMC 5 O1'' ',5,10,0 EMC O1'' ',6,10,0 EMC O1'' ',7,13,0 EMC U O1'' ',1,13,0 EMC O1'' ',2,13,0 EMC  O1'' ',3,13,0 EMC u O1'' ',4,13,0 EMC O1'' ',5,13,0 EMC 5 O1'' ',6,13,0 EMC O1'' ',7,12,0 EMC  O1'' ',1,12,0 EMC U O1'' ',2,12,0 EMC O1'' ',3,12,0 EMC  O1'' ',4,12,0 EMC u O1'' ',5,12,0 EMC O1'' ',6,12,0 EMC 5 O1'' ',7,12,1 EMC O1'' ',1,12,1 EMC O1'' ',2,12,1 EMC U O1'' ',3,12,1 EMC O1'' ',4,12,1 EMC  O1'' ',5,12,1 EMC u O1'' ',6,12,1 EMC O1'' ',7,14,0 EMC 5 O1'' ',1,14,0 EMC O1'' ',2,14,0 EMC O1'' ',3,14,0 EMC U O1'' ',4,14,0 EMC O1'' ',5,14,0 EMC  O1'' ',6,14,0 EMC u O1'' ',7,10,1 EMC O1'' ',1,10,1 EMC 5 O1'' ',2,10,1 EMC Õ O1'' ',3,10,1 EMC O1'' ',4,10,1 EMC U O1'' ',5,10,1 EMC ĵ O1'' ',6,10,1 EMC  O1'' ',7,13,1 EMC u O1'' ',1,13,1 EMC O1'' ',2,13,1 EMC 5 O1'' ',3,13,1 EMC O1'' ',4,13,1 EMC 5 O1'' ',5,13,1 EMC O1'' ',6,13,1 EMC 01'' ',1,8,1 EMC U O1'' ',2,8,1 EMC O1'' ',3,8,1 EMC  O1'' ',4,8,1 EMC u O1'' ',5,8,1 EMC O1'' ',6,8,1 EMC 5 O1'' ',7,8,1 EMC O1'' ',1,9,1 EMC O1'' ',2,9,1 EMC U O1'' ',3,9,1 EMC O1'' ',4,9,1 EMC  O1'' ',5,9,1 EMC u O1'' ',6,9,1 EMC O1'' ',7,9,1 EMC 5 O1'' ',1,11,0 EMC O1'' ',2,11,0 EMC O1'' ',3,11,0 EMC U O1'' ',4,11,0 EMC O1'' ',5,11,0 EMC  O1'' ',6,11,0 EMC u O1'' ',7,11,0 EMC O1'' ',1,11,1 EMC 5 O1'' ',2,11,1 EMC O1'' ',3,11,1 EMC O1'' ',4,11,1 EMC U O1'' ',5,11,1 EMC O1'' ',6,11,1 EMC  O1'' ',7,11,1 EMC u O1'' ',1,14,1 EMC O1'' ',2,14,1 EMC 5 O1'' ',3,14,1 EMC O1'' ',4,14,1 EMC O1'' ',5,14,1 EMC U O1'' ',6,14,1 EMC O1'' ',7,14,1 EMC  O2'' ',',14,3 EMC u O2'' ',',12,2 EMC O2'' ',',12,3 EMC 5 O2'' ',',14,2 EMC O0OIR 7,0,1,' EMC O0OIR 7,0,2,' EMC U O0OIR 7,0,3,' EMC O0OIR 7,0,4,' EMC  O0OIR 7,0,5,' EMC u O0OIR 7,0,6,' EMC O0OIR 7,0,7,' EMC 5 O0OSRX 0,1,' EMC O0OSRX 0,2,' EMC O0OSRX 0,3,' EMC U O0OSRX 0,0,' EMC O0OSRX 1,1,' EMC  O0OSRX 1,2,' EMC u O0OSRX 1,3,' EMC O0OSRX 1,0,' EMC 5 O0OSRX 3,1,' EMC O0OSRX 3,2,' EMC O0OSRX 3,3,' EMC U O0OSRX 3,0,' EMC O0OSRX 2,1,' EMC  O0OSRX 2,2,' EMC u O0OSRX 2,3,' EMC O0OSRX 2,0,' EMC 5 O3'' ',',',4 EMC O3'' ',',',5 EMC O3'' ',',',2 EMC U O3'' ',',',3 EMC O3'' ',',',6 EMC  O3'' ',',',7 EMC u O0OSB ',1 EMC O0OSB ',2 EMC 5 O0OSB ',3 EMC O0OSB ',4 EMC O0OSB ',5 EMC U O0OSB ',6 EMC O0OSB ',7 EMC  IFR ',GT,-16 IFR ',LT,16 t IFA ',LT,0 VFD X8/6,X3/',X1/0,X4/-' I0 IFC A,NE,A EIF 5 VFD X8/6,X3/',X1/0,X4/' EIF I0 EMC IFC ',EQ, O0EX UI0 IFC A,NE,A EIF IFC ',EQ,I O01 7,' I0 IFC A,NE,A EIF u IFC ',EQ,A O01 6,' I0 IFC A,NE,A EIF 5 IFC ',EQ,Q O01 5,' I0 IFC A,NE,A EIF IFA ',GT,4 O0EX UI0 IFC A,NE,A EIF IFA ',LT,1 O0EX I0 IFC A,NE,A EIF u O01 ',' EIF I0 EMC  VFD X8/11,X3/',X1/0,X4/' EMC VFD X8/11,X4/0,X4/4 EMC O00 ',0 EMC U O00 ',1 EMC O00 ',2 EMC  O00 ',3 EMC u O00 ',4 EMC O00 ',5 EMC 5 VFD N8/11,N8/10 EMC VFD N8/11,N8/11 EMC VFD N8/11,N8/12 EMC U VFD N8/11,N8/13 EMC VFD N16/0 VFD N16/0,N16/0  EMC Q VFD N8/11,N8/8 EMC VFD N8/11,N8/9 EMC 5 VFD X8/11,X4/0,X4/2 PCO 1 VFD X1/0,X15/' PCO 0 EMC 1 VFD X8/11,X4/0,X4/3 PCO 1 VFD X1/0,X15/' PCO 0  EMC Q VFD N8/11,N8/1 EMC VFD N8/11,N8/7 EMC 5 VFD N8/11,N8/6 EMC VFD N8/11,N8/5 EMC IIN 0 RTJ- ($BB) VOLATILE ASSIGN U ADC '+3 LDA* ' STA- 3,I SAVE RETURN EIN 0  EMC Q IIN 0 LDA- 3,I RETRIEVE RETURN FROM VOLATILE IFC ',NE, INA ' BUMP RETURN BY ' IF SPECIFIED 4 EIF STA' ' RESTORE RETURN ADDRESS RTJ- ($BA) RELEASE VOLATILE EIN 0 JMP' (') RETURN EMC U EXT HEXDEC RTJ+ HEXDEC HEX TO ASCII DECIMAL CONV. ADC' ' VARIABLE ADDRESS ' ADC' ' BUFFER ADDRESS ' 3 WORDS  EMC Q EXT HEXASC RTJ+ HEXASC HEX TO ASCII CONV. ADC' ' VARIABLE ADDRESS ' ADC' ' BUFFER ADDRESS ' 2 WORDS 4 EMC q EXT ENCODE RTJ+ ENCODE ENCODE FOR OUTPUT ADC' ' OUTPUT BUF ADC' ' FORMAT STATEMENT T ADC' ' NO VARIABLES ADC' ' VARIABLE LIST IFC ',NE, SAZ 2  JMP ' EIF u EMC EXT DECODE RTJ+ DECODE DECODE INPUT 5 ADC' ' INPUT BUFFER ADC' ' GORMAT STATEMENT ADC' ' NUMBER VARIABLES ADC' ' VARIABLE LIST IFC ',NE SAZ 2 U JMP ' GO TO ERROR PROCESSOR EIF EMC EXT DECHEX RTJ+ DECHEX u ADC' ' BUFFER ADDRESS 3 WORDS ADC' ' VARIABLE ADDRESS EMC  EXT ASCII RTJ+ ASCII Õ ADC' ' BUFFER ADDRESS 2 WORDS ADC' ' VARIABLE ADDRESS EMC 1 EXT FLOATG RTJ+ FLOATG CONVERT TO S.XXXXXXESNN ĵ ADC' ' ADDRESS FLOATING VARIABLE 2 WORDS ADC' ' ADDRESS OUT BUFFER 6 WORDS  EMC Q EXT CLOCK RTJ+ CLOCK ADC 0 IFC ',NE, 5 STA' ' EIF EMC FN' ADC ' MR' ADC ' IFC ',EQ, LU' ADC 8 EIF IFC ',NE, TLU' ADC ' EIF RB' BZS RB'(12) RI' BZS RI'(1) NK' ADC ' KL' ADC ' sFC' ADC ' RL' ADC ' RP' ADC 0,0 EMC 5 EXT DEFFIL RTJ+ DEFFIL DEFINE A FILE ' ADC' FN',MR',LU',RB',RI' EMC EXT DEFIDX RTJ+ DEFIDX DEFINE INDEXED U ADC' FN',NK',KL',LU',RB',RI' EMC EXT LOKFIL LDA =X*  STA FC' RTJ+ LOKFIL LOCK FILE ' t ADC' FN',FC',RB',RI' EMC EXT UNLFIL RTJ+ UNLFIL UNLOCK FILE ' 4 ADC' FN',FC',RB',RI' EMC EXT RELFIL RTJ+ RELFIL RELEASE FILE ' ADC' FN',RB',RI' EMC U EXT STOSEQ IFC ',NE, LDA =X' STA RL'  EIF RTJ+ STOSEQ STORE IN SEQUENTIAL FILE ' t ADC' FN',RP',',RL',RB',RI' EMC EXT RTVSEQ RTJ+ RTVSEQ RETRIEVE FROM SEQUENTIAL ' 4 ADC' FN',FC',RP',',RL',RB',RI' EMC EXT STOIDX RTJ+ STOIDX STORE INDEXED ' ADC' FN',',RP',',RL',RB',RI' EMC U EXT RTVIDX RTJ+ RTVIDX RETRIEVE INDEXED ' ADC' FN',',FC',RP',',RL',RB',RI' EMC  EXT RTVIDO RTJ+ RTVIDO RETRIEVE INDEXED ORDERED ' t ADC' FN',',FC',RP',',RL',RB',RI' EMC EXT STODIR RTJ+ STODIR STORE DIRECT ' 4 ADC' FN',FC',RP',',RB',RI' EMC EXT RTVDIR 85*2670 RTJ+ RTVDIR RETRIEVE DIRECT ' ADC' FN',FC',RP',',RL',RB',RI' EMC U LDA RI' STATUS A FILE IFC ',NE, AND' ' MASK STATUS EIF  IFC ',NE, SAZ 2 NOTHING TRUE u JMP ' JUMP IF ANY SET EIF EMC  RTJ- ($F4) IFC ' ,EQ, VFD N1/0,X1/' ,N5/4,N1/0,X4/',X4/' EIF I3 IFC ' ,NE, IFC ' ,EQ,0 U VFD N1/0,X1/' ,N5/4,N1/0,X4/',X4/' EIF I3 IFC ' ,NE,0 VFD N1/0,X1/' ,N5/4,N1/1,X4/',X4/'  EIF I3 ADC ',0 uI1 IFC ',NE,B IFC ' ,EQ,R VFD N3/0,N1/1,N2/1,X10/' EIF 5I1 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/' U EIF I1 I2 IFC ',EQ,B IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/'  EIF I2 IFC ' ,NE,R u IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/' EIF I2 IFC ' ,NE,I 5 VFD N3/0,N1/0,N2/0,X10/' EIF I2 ADC ',' EMC RTJ- ($F4) IFC ' ,EQ, U VFD N1/0,X1/' ,N5/6,N1/0,X4/',X4/' EIF I3 IFC ' ,NE, IFC ' ,EQ,0  VFD N1/0,X1/' ,N5/6,N1/0,X4/',X4/' EIF uI3 IFC ' ,NE,0 VFD N1/0,X1/' ,N5/6,N1/1,X4/',X4/' EIF I3 ADC ',0 5I1 IFC ',NE,B IFC ' ,EQ,R VFD N3/0,N1/1,N2/1,X10/' EIF I1 IFC ' ,NE,R IFC ' ,EQ,I U VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/'  EIF I1 I2 IFC ',EQ,B u IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/' EIF I2 IFC ' ,NE,R 5 IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/' EIF I2 IFC ' ,NE,I VFD N3/0,N1/0,N2/0,X10/' EIF I2 U ADC ',' EMC RTJ- ($F4) IFC ',EQ,  VFD N1/0,X1/',N5/3,N1/0,N8/0 EIF uI3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/3,N1/0,N8/0 EIF 5I3 IFC ',NE,0 VFD N1/0,X1/',N5/3,N1/1,N8/0 EIF I3 IFC ',EQ,R VFD N4/0,N2/1,X10/' EIF UI1 IFC ',NE,R IFC ',EQ,I VFD N4/0,N2/2,X10/' EIF I1 IFC ',NE,I VFD N4/0,N2/0,X10/' u EIF I1 ADC ' EMC  RTJ- ($F4) IFC ' ,EQ, VFD N1/0,X1/' ,N5/1,N1/0,X4/',X4/' EIF I3 IFC ' ,NE, IFC ' ,EQ,0 U VFD N1/0,X1/' ,N5/1,N1/0,X4/',X4/' EIF I3 IFC ' ,NE,0 VFD N1/0,X1/' ,N5/1,N1/1,X4/',X4/'  EIF I3 ADC ',0 uI1 IFC ',NE,B IFC ' ,EQ,R VFD N3/0,N1/1,N2/1,X10/' EIF 5I1 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/' U EIF I1 I2 IFC ',EQ,B IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/'  EIF I2 IFC ' ,NE,R u IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/' EIF I2 IFC ' ,NE,I 5 VFD N3/0,N1/0,N2/0,X10/' EIF I2 ADC ',' EMC RTJ- ($F4) IFC ' ,EQ, U VFD N1/0,X1/' ,N5/2,N1/0,X4/',X4/' EIF I3 IFC ' ,NE, IFC ' ,EQ,0  VFD N1/0,X1/' ,N5/2,N1/0,X4/',X4/' EIF uI3 IFC ' ,NE,0 VFD N1/0,X1/' ,N5/2,N1/1,X4/',X4/' EIF I3 ADC ',0 5I1 IFC ',NE,B IFC ' ,EQ,R VFD N3/0,N1/1,N2/1,X10/' EIF I1 IFC ' ,NE,R IFC ' ,EQ,I U VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/'  EIF I1 I2 IFC ',EQ,B u IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/' EIF I2 IFC ' ,NE,R 5 IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/' EIF I2 IFC ' ,NE,I VFD N3/0,N1/0,N2/0,X10/' EIF I2 U ADC ',' EMC RTJ- ($F4) IFC ',EQ,1  VFD N2/0,N5/16,N8/0 ADC ' u EIF 0 81*2071 IFC ',NE,1 81*2071 ADC (') 81*2071 EIF 0 81*20715 EMC q RTJ- ($F4) VFD N1/0,N6/5,N1/0,N8/0 EMC 1 RTJ- ($F4) VFD N1/0,N6/11,N1/0,N8/0 EMC RTJ- ($F4) VFD N1/0,N6/7,N1/0,N8/0 u EMC RTJ- ($F4) VFD N2/0,N5/19,N1/0,N4/15,N4/15 5 ADC ' EMC RTJ- ($F4) VFD N2/0,N5/19,N1/0,N4/0,N4/0 ADC ' EMC U RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/',N5/9,N1/0,N4/0,X4/' EIF I3 IFC ',NE, IFC ',EQ,0 u VFD N1/0,X1/',N5/9,N1/0,N4/0,X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/',N5/9,N1/1,N4/0,X4/' 4 EIF I3 ADC ' EMC RTJ- ($F4) IFC ',EQ, U VFD N2/0,N5/15,N1/0,X4/',X4/' EIF I3 IFC ',NE, IFC ',EQ,0  VFD N2/0,N5/15,N1/0,X4/',X4/' EIF uI3 IFC ',NE,0 VFD N2/0,N5/15,N1/0,X4/',X4/' EIF I3 ADC ',' 4 EMC q RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/',N5/8,N1/0,X4/',X4/' EIF UI3 IFC ',NE, IFC ',EQ,0 ĵ VFD N1/0,X1/',N5/8,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/',N5/8,N1/1,X4/',X4/' t EIF I3 ADC ',' EMC  RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/' ,N5/13,N1/0,X4/',X4/' EIF 5I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/' ,N5/13,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/' ,N5/13,N1/1,X4/',X4/' S EIF I3 ADC ',0 ADC $8C2,',' ADC ','  EMC Q RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/',N5/10,N1/0,X4/',X4/' EIF 5I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/10,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/',N5/10,N1/1,X4/',X4/' S EIF I3 ADC ',0,0,' EMC RTJ- ($F4) I1 IFC ',EQ, u IFC ',EQ, VFD N1/0,X1/',N5/12,N9/0 EIF I1 IFC ',NE, 5 IFC ',EQ,0 VFD N1/0,X1/',N5/12,N9/0 EIF I1 IFC ',NE,0 VFD N1/0,X1/',N5/12,N8/0,N1/1 EIF I1 UI2 IFC ',NE, I1 IFC ',EQ,0 IFC ',EQ, VFD N1/0,X1/',N5/12,N9/0  EIF I1 IFC ',NE, u IFC ',EQ,0 VFD N1/0,X1/',N5/12,N9/0 EIF I1 IFC ',NE,0 5 VFD N1/0,X1/',N5/12,N8/0,N1/1 EIF I1 I2 IFC ',NE,0 IFC ',EQ, VFD N1/0,X1/',N5/12,N1/1,N8/0 EIF UI2 IFC ',NE, IFC ',EQ,0  VFD N1/0,X1/',N5/12,N1/1,N8/0 EIF I2 IFC ',NE,0 VFD N1/0,X1/',N5/12,N1/1,N7/0,N1/1 u EIF I2 ADC ' EMC  RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/',N5/17,N1/0,X4/',X4/' EIF I3 IFC ',NE, IFC ',EQ,0 U VFD N1/0,X1/',N5/17,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/',N5/17,N1/1,X4/',X4/'  EIF I3 ADC ',0,0,',' t EMC RTJ- ($F4) IFC ' ,EQ, 5 VFD N1/0,X1/' ,N5/14,N1/0,X4/',X4/' EIF I3 IFC ' ,NE, IFC ' ,EQ,0 VFD N1/0,X1/' ,N5/14,N1/0,X4/',X4/' EIF UI3 IFC ' ,NE,0 VFD N1/0,X1/' ,N5/14,N1/1,X4/',X4/' EIF I3 ADC ',0 I1 IFC ' ,NE,B IFC ' ,EQ,R u VFD N3/0,N1/1,N2/1,X10/' EIF I1 IFC ' ,NE,R IFC ' ,EQ,I 5 VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/' EIF I1 I2 IFC ' ,EQ,B U IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/' EIF I2 IFC ' ,NE,R  IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/' u EIF I2 IFC ' ,NE,I VFD N3/0,N1/0,N2/0,X10/' EIF I2 5 IFC ',NE,R VFD X4/',X4/',X4/',X4/' EIF IFC ',EQ,R VFD N1/1,X3/',X12/' EIF U EMC  RTJ- ($F4) VFD N2/0,N5/18,N5/0,X4/'  ADC ' EMC u NLS IFC ',NE, EQU ' (') EIF 0 5 IFC ',EQ, IS THERE A PRIORITY EQU ' (0) NO EIF 0 IFC ',NE, EQU ' (') REPEAT MANY TIMES EIF 0 U IFC ',EQ, EQU ' (1) REPEAT ONLY ONE TIME EIF 0 EQU ' ('*$1000+' ) SET UP NUM OF TIMES REPEATED  IFC ',EQ, NO COMPLETION EQU ' (' *16+' +$5C00) r EIF 0 C0 IFC ',NE, COMPLETION YES 88*2712 IFC ',EQ,* RELATIVE COMPLETION EQU ' (' *16+' +$1D00) 81*2052 EIF 0 IFC ',EQ, ABS COMPLETION EQU ' (' *16+' +$5C00) EIF 0 EIF C0 88*2712 LST U RTJ- ($F4) ADC ' NLS IFC ',EQ,  LST ADC 0 COMPLETION u NLS EIF 0 C1 IFC ',NE, IS THERE A COMPLETION ADDRESS 88*2712C2 IFC ',EQ,* IS IT RELATIVE 88*27125 LST ADC '-*+1 COMPLETION NLS EIF C2 88*2712C3 IFC 'EQ, LST U ADC ' COMPLETION NLS EIF C3 88*2712 EIF C1 88*2712 LST NUM 0 THREAD u NLS IFC ',EQ, IT IS THE LOGICAL UNIT LST ADC $0000+' 4 NLS EIF 0 IFC ',EQ,R A RELATIVE DISTANCE LST VFD N6/1,X10/'-*+3 RELATIVE NLS U EIF 0 IFC ',EQ,I A ABS CORE LOCATION  LST VFD N6/2,X10/' ABS CORE LOCATION  NLS EIF 0 u LST ADC (' ) REPEAT TIMES N EMC  NLS MOT' ',',',',',1 EMC NLS MOT' ',',',',',2 P EMC NLS MOT' ',',',',',3  EMC Q NLS MOT' ',',',',',4 EMC  NLS MOT' ',',',',',5 EMC NLS MOT' ',',',',',6 P EMC NLS MOT' ',',',',',7  EMC Q LST JMP- ($EA) EMC  SPC 1 EXT ISBUFR,CBWRIT,CBREAD,BOUTC SPC 1 NUM $520A 00 SCHEDULER CALL ADC ISBUFR 01 INITIATOR ADDRESS ADC 0 02 CONTINUATOR ADDRESS - NOT USED U ADC 0 03 TIMEOUT ERROR ADDRESS - NOT USED NUM -1 04 DIAGNOSTIC CLOCK - NOT USED NUM 0 05 LOGICAL UNIT ADC 0 06 PARAMETER LOCATION  NUM 0 07 CONVERTER, EQUIPMENT, STATION - NONE NUM $00A4 08 REQUEST STATUS u NUM 0 09 DRIVER STATUS NUM 0 10 CURRENT LOCATION NUM 0 11 LAST LOCATION PLUS ONE NUM 0 12 DEVICE STATUS - NOT USED 5 NUM 0 13 RESERVED NUM $7FFF 14 RESERVED NUM 0 15 RESERVED FOR FNR AND CMR ADC ' 16 LSB START OF BUFFER ADC ' 17 LSB END OF BUFFER ADC ' 18 CURRENT LSB START OF BUFFER T ADC ' 19 CURRENT LSB END OF BUFFER NUM $44AA 20 MASS MEMORY WRITE REQUEST (UNFORMATTED)  ADC CBWRIT 21 MASS MEMORY WRITE COMPLETION NUM 0 22 THREAD  ADC ' 23 MASS MEMORY LOGICAL UNIT NUM 0 24 NUMBER OF WORDS u NUM 0 25 STARTING DATA LOCATION ADC ' 26 MSB ADDRESS ADC ' 27 LSB ADDRESS NUM 0 28 CONTROL WORD 5 NUM $42AA 29 MASS MEMORY READ REQUEST (UNFORMATTED) ADC CBREAD 30 MASS MEMORY READ COMPLETION NUM 0 31 THREAD ADC ' 32 MASS MEMORY LOGICAL UNIT NUM 0 33 NUMBER OF WORDS ADC ' 34 STARTING LOCATION (CHARACTER BUFFER) U ADC ' 35 MSB ADDRESS ADC ' 36 LSB ADDRESS NUM 0 37 PARTIAL WORD OUTPUT FLAG NUM $4CAA 38 BUFFER WRITE REQUEST (FORMATTED)  ADC BOUTC 39 BUFFER WRITE COMPLETION NUM 0 40 THREAD u ADC ' 41 OUTPUT LOGICAL UNIT NUM 0 42 NUMBER OF WORDS ADC ' 43 STARTING LOCATION (CHARACTER BUFFER) ADC ' 44 CHARACTER BUFFER SIZE 4 BZS '(') 45 CHARACTER BUFFER EMC O0S O11 `O12 O13  O14 O1Q O1A @O1I O1 O0T `O0G O0OIS O0OSRX O0OIR O4 @O41 O42 O43 `O44 O4Q  O4A O4I O0F @O3 O31 O32 `O33 O34  O3Q O3A O3I  @O2  O21 !O22 !`O23 !O24 " O2Q "O2A "O2I #@SJI #SJ1 $SJ2 $`SJ3 $SJ4 % SJQ %SJA %SJE &@ARI &AR1 'AR2 '`AR3 'AR4 ( ARQ (ARA (SBI )@SB1 )SB2 *SB3 *`SB4 *SBQ + SBA +ANI +AN1 ,@AN2 ,AN3 -AN4 -`ANQ -ANA . ORI .OR1 .OR2 /@OR3 /OR4 0ORQ 0`ORA 0LRI 1 LR1 1LR2 1LR3 2@LR4 2LRQ 3LRA 3`SRI 3SR1 4 SR2 4SR3 4SR4 5@SRQ 5SRA 6CIE 6`C1E 6C2E 7 C3E 7C4E 7CQE 8@CAE 8AMI 9AM1 9`AM2 9AM3 : AM4 :AMQ :AMA ;@OMI ;OM1 <OM2 <`OM3 @AS2 >AS3 ?AS4 ?`ASQ ?ASA @ ASI @SM1 @SM2 A@SM3 ASM4 BSMQ B`SMA BSMI C ER1 CER2 CER3 D@ER4 DERQ EERA E`ERI EEM1 F EM2 FEM3 FEM4 G@EMQ GEMA HEMI H`C1N HC2N I C3N IC4N ICQN J@CAN JCIN KCCN K`LCA KSCA L CCE LXF1 LXF2 M@XF3 MXF4 NXFQ N`XFA NXFI O S1Z OS2Z OS3Z P@S4Z PS1N QS2N Q`S3N QS4N R S1M RS2M RS3M S@S4M SS1P TS2P T`S3P TS4P U LFA USFA USFZ V@SFN VCLF WSEF W`D1P WD2P X D3P XD4P XDQP Y@DAP YDIP ZO0OSB Z`O00 \@O01 aSIO aLUB b@LLB bEMS cWPR c`RPR cECC d ASC dAPM dPM0 e@PM1 eO0EX fGPE fGPO g LRG gSRG hLMM iCBP j DMI jSPS jVOLA k@VOLR lHEXDECnHEXASCoENCODEpDECODEs DECHEXu`ASCII vFLOATGwCLOCK xFLDF z@DEFFIL}@DEFIDX~LOKFIL~UNLFILRELFILSTOSEQ`RTVSEQSTOIDXRTVIDX`RTVIDO STODIRRTVDIRSTATFL`FREAD @FWRITE STATUSREAD @WRITE INDIR EXIT CORE `LOADER DISCHDENSCHDSCHDLE`TIMPT1TIMER GTFILE @SPACE @RELEASPTNCORMOTION ŠSYSCHD̀MOT @BSR EOF REW ܀UNL @ADF BSF ADR ߀DISP @FFERGTFILE @SPACE @RELEASPTNCORMOTION ŠSYSCHD̀MOT @BSR EOF REW ܀ PLULIST DECK-ID N87 MSOS 5.0 SUMMARY-123@P j qhh//hHTL'TL$ @P+ h (.HT D 1  NĀhXAhH X-DA Ch @PVX"K h X3GXhITL$`h h c@Pxfx 0F400LU. EQUIPMENT DESCRIPTION READ/WRITE CLAS@PS CODE EQ NO MSOS 5.0 LOGICAL UNIT LISTING FOR  @P MM/DD/YYRFIELD = 0READ ONLYWRITE ONLYREAD/WRITE1711 TELETYPEWRITER  1721@P/1722 PAPER TAPE READER 1723/1724 PAPER TAPE PUNCH 1752 DRUM UNIT @P- 713,10/711-100/713-120 CRT 1738/853 DISK UNIT (1.5M) 1751 DRUM @PX 1739-1 CARTRIDGE DISK UNIT 1738/854 DISK UNIT (3.1M)  1731/6@P01 MAGNETIC TAPE SOFTWARE BUFFERING DEVICE COSY UNIT  @P 1728/430 CARD READER/PUNCH SOFTWARE CORE ALLOCATOR 1733-1/854 DISK UN@PIT (3.1M) 1733-2/856-2 DISK UNIT (2.2M) 1733-2/856-4 DISK UNIT (4.5M) 1742-30 @PLINE PRINTER 1742-120 LINE PRINTER 1740/501 LINE PRINTER @P/ 1732-2/615-73 MAG TAPE UNIT 1732-2/615-93 MAG TAPE UNIT 1732-1/1706/608 BUFR@PZ MAG. TAPE 1726/405 CARD READER 1732-1/608 MAG TAPE UNIT 1732-1/609@P MAG TAPE UNIT 1713 TELETYPE KEYBOARD 1713 TTY PAPER TAPE PUNCH @P1713 TTY PAPER TAPE READER 1729-2 CARD READER 1732-1/1706/609 BUFR M@PAG TAPE SOFTWARE DUMMY ALTERNATE DEVICE364-4/361-1 HDX COMM DEVICE 364-4/361-4 @PFDX COMM DEVICE 1742-1 LINE PRINTER 1777 PAPER TAPE READER  PS@P1EUDO TAPE UNIT 1777 PAPER TAPE PUNCH 1729-3 CARD READER @P\ 1733-1/853 DISK UNIT (1.5M) 1731/1706/601 BUF MAG TAPE 1726/1706/405 @PBUF CARD READER 1747 DATA SET INTERFACE 1744/274 DIGIGRAPHIC CONSOLE 1536@P LOW LEVEL ANALOG INPUT 1501 HIGH LEVEL ANALOG INPUT 1536 REMOTE LOW LEVEL ANAL@POG INP1544 DIGITAL INPUT UNIT 1553 DIGITAL OUTPUT UNIT 1555 RELAY OUTPU@PT UNIT 1566 DIGITAL-TO-ANALOG CONVERTER1547 EVENTS COUNTER  1595 S@P3ERIAL I/O 1732-3/616-72 MAG TAPE 1732-3/616-92 MAG TAPE @P^ 1743-2 ASYN COMM CONTR 1745/211 CRT 1725-1 CARD PUNCH @P 1720-1 PAPER TAPE READER 1720-1 PAPER TAPE PUNCH MAGNETIC@P TAPE SIMULATOR 1732-3 LONG RECORD MAG TAPE 7TRK1810-1 LIAT CRT/PRINTER @P 1829-30/60 CARD READER 1827-30/60 LINE PRINTER 1860-72 LCTT 7TK MAG@P TAPE 1860-92 LCTT 9TK MAG TAPE 1832-5 CASSETTE MAG TAPE 1833-5 FLO@P5PPY DISK 1833-1 STORAGE MODULE DRIVE 25MB1833-1 STORAGE MODULE DRIVE 50MB@P`D18ECM EXTENDED CORE DRIVER PSEUDO DISK DRIVER PSEUDO DRIVER FOR CRT @P CARTRIDGE DISK DRIVER 4.4M CARTRIDGE DISK DRIVER 2.2M PSEUDO DRIVE@PR FOR MATRIX PRINTERTAB CARD PUNCH DRIVER UNDEFINED UNIT TYPE  NO@P CLASS CODE MAGNETIC TAPE MASS STORAGE CARD RDR/PUNCHPAPER TAPE I/OLINE PRINTER TELE@P TYPE UD CLASS CODE PLULISTPLOG1A fSYSID SYSYER SYSDAYSYSMON PLULIST PLISTR DECK-ID N86 MSOS 5.0 SUMMARY-110@P TL  X%2 hWhVhUhThVhUhThShRhQh@P+PXXXAX?Xx5PX4 X2 X/X-X+X2[d TLW)0T@PV + hTLd)ET h00hh h HHHH(H,D@Ph0 h: 0 d Dh ddX&X@PXX njB XE2U XBXJXXXX; j A@PTHnT bT @ hH*| P h h hn @P j/ A p^WSjB OUT OF ORDER INPUT BLOCK@P- + 0000  @PX 0000 RECORDS 0000 TOTAL RECORDS..1 PLISTR PLISTR POPSORT DECK-ID N88 MSOS 5.0 SUMMARY-110@P h hTH2qEH 1H0h@P+ȠhȠhH}h|Ƞ hw @z*t0 hb@PV m  h[WFb (DhP[0 HIHAhCAK8I7Eh:@P h) h%hP5h+Xe h%Dh!- h (Hh" h@PHh hENNDD **@PD$ j j ȱ`E ɲ( ɪj a@P! hɝhj؎ A H\H\ȍ1!7'K 1   hI 1'1K@PL % mD   ? K !  4 "    +TLvw@Pw ILLEGAL CHARACTER WAS DETECTED | p&HLF [hh@P h Zh ,h n q 2 ` Hj CTL@P h. `P`P|U`P `P[`P[`Pp[`P[`P&[`P)@P 8"ljh h h TL[ l @P- 1 [h Zh F"Bnʗlj H|h|h{{ʈhs vu 5 @P h|ih hh ch TH[ ѰB   HHH h @P+h> Z=h<;h6757735jA H1 @ Zh-' $h+0Fh* & ! @PVGHh h>!#&& @Phh h Hc H^"W hԘ h Ei{@P j8ȼ hȿhTL Fhȯh `@Phhȝ hm h jB  j{B hhhhh @PhihPOPSORTBGNRD PBGNRD PuEESORT DECK-ID O28 MSOS 5.0 SUMMARY-110@PENTER LIST FOR LIST ONLY, SORT FOR LIST AND SORTTLTH/@P+"LISOh]Dhh hht hhX LISTING OF P@PVROGRAM NAMES, ENTRY POINTS AND EXTERNALS XD j ATH<@P""  @H L    Dh~h~ {O@P X& Xo X XXj qh" hh TF6@P T\0 0F 0 04 T\ dbb"` hB7@PhBXX ( 2//h/ h, > , h'$ F$h!h X8@P 6(` 2 aaضص9@P1/Q/h:h:.h TL$+OHXhhTL6 9 ` ****:@P@P} 6/l. -/l%  X&ܘX  X?@P& hh-Rz H X hlhhh@@PQ)/h$X# -)h X hXj h~  UUA@P| + hq X hf"j$ch` X hXX=hT , hOB@P X{ hf"hC<h9 Xf h0XMMh, H HC@PrȠ hh"ȗ"  hTFD@P    " hTF ENX 2 3  hX : (hRE@P( FM  X hX  XjXj b X} F@PS |; h X h2f"ȏh$?XHmhZhhh hhqG@P~hsBh?Xlfhh?X.X{XH@PX XvXXXL Xg4X. f!^ huI@PV#X/NhHXHXh   { 0 ujJ@P  B w hsXXXX hoh XXK@P*X~ S  XWR?dX BX XcA/h h hL@PUhTLa(X /h`h!X#4XXhhXXDM@P0 XX (hF_hXnX\ h2XY h+hL hNI'Jh,N@Ph>)X6h3 h,X?Xh"TLTHO@PX!   REWIND LU 004HH}zhvP@P h+h&X'XHXH 0F 0HhheX 0F 0H 0F 0**Q@P,HH-5'h"O E $n Q h1h.b$% b%R@PWTL_(# h  0X"X"X  hX _X; ^X9 S@PHN hN DC ! _X#= X 9 % h3 X _X- 1  &X . T@P h#(X h"Hcll-h TL s sUU sU@P _X _X" X h %L TL shhV@P h  hTH|(jh 'n q hhyh{{vthvW@P.qhuTH8kkHirfH eW ha  _hZȉ hTȄNHLdX@PY lGE lCBuhB  _ 2< 81  .H-%,!)h(qhȐ1Y@P`b) "$ g" g"aXQ d UUUUUUhXSZ@PXV:Xmhghh|h ?X8T`DTH([@PRrIhCXXXX>X X hJX^XX h\@P<X6 X /حX X X0i-f*c ]@P0[hZhYhSQOX` X"H0^@P[hQ hMKhIhhhhhhhTL_@P(`@P 3&D h?!9 h XTL S(R zha@P ^i (hsXX ChFXEXtTL (b@P i - j Q  hTL (Lh.hXEX)ȧc@P  hh*COPIED*X hh^ hhhTh)/h/hd@P M h`h\hh8h5hhhhhhh^XZX (  e@P   pho lm 2 1( hd Flaf@P !o/hkV/hR"Y/"HU ZGWM UX=EXXXRg@P LXXdX hh`"aaaȹ XشX2X} X*X^Xh@P wXYi@P ~ j@P Rk@P Il@P h`Hh`HhH| XtXnXm@P  hXtXXXohXX^XXeXXXXSXXZXȨ! ȣn@P 阙XXȚ1 Xȋ1X}XȌhȋhXXXpXX؃XXo@P %X hzXX}XX uhSh hn@"XXp@P ?XXRh0h hKaa"aaa9'?S\X"5hhq@P j h.aa, X,hGX@$X aaaX!8XShTL  r@P XXs@P  IRH H%u bbhTL (d bt@P bTL + **Rhheh ?X!T`DTH  (Ru@P hTH ( I1 p`bg "$Ƞ g"Ⱦ g"ahhXrv@P ahTH ((RTL 2(RXhHXbbX| w@P H xPCOSY yPCOSY PLCOSY DECK-ID N85 MSOS 5.0 SUMMARY-110{@P CSY/ END/ END OF COSY LIBRARY XX j qTH|@P  TL T  j qTL}@PX DCK/ I ,H ,C TL (THd "/.~@PH  hHHH   h"I=@PsH=C=H   H  "H @32B1h H @PH+ DCK/  @P ,hDh 4 HX ,Hɏ Hh H ȁ jB@P TL(PLCOSY PLCOSY PCYFT DECK-ID N84 MSOS 5.0 SUMMARY-110@P X NhDNAhQM hSAMhUX+֐  Ϡ fǐM @P+h h4 h h0 hh,dXXXXXX DCK/ I,C  @PV XXXXXX HOL/  @P @b`hhZhhThh X.X"XX6 TH@P(T %#X0T  TL(T  TL(dT  TL(hTL !UT INVALID REQUEST UT FORMAT INCORRECT UTILITY IN NEXT IOU OUT IN/OUT ERROR LU NNNN #<Dj j j Q q _nB @6X9 6 A ! 1 OU T T , A  A " ! A))̠ akQa*X Q  L )"@ a 5 A" a a  6a 2a) > , a("H a  XN)"" X HX X  X7  X3& Xo HG Xi HA H> H; Xe XZ H2 H. H+  X aȱB) 1)  4 3 ! " BA+rX6,A2H%,"Ƞ a , 7 7 2 42 0  2D/1a #"f"  Da a a a a a6X a    7 X @Daa- a Ƞ a = w A !/   a#)w Ƞ P    2aX a#-a  Fa 7 ) a    6XdXj +-ja A"v13rK a) 1+(    Ƞ  ! L  C     B21H+ +z*D 7q2 XX'REJ EXCEEDED MAX LIMIT NNNNN TA) 2 1 )  B  %+%#4a% !9)  'a'Daaa"a#a$a%a4a& aa a6h X"   a!DXhX7X X/a"aDa"#!a$+XX"B!0`A *!mXDa#a$X) +/4%X"c5+ UU7f"X/a a!X X\hXI,Da"!a$Xb+XXXp( +/4%X8+ +4 }%X&5X3IX+XX*X&^" ,/a a"hT\`!UTnl RX<EOF ON INPUT LU NNNN PP)   2 D/aX Xh a!X12!7f"!#a$+XXX*X ) 7     + + ԑ4ؑ%)X.o~1 |y "va!!7f"!a$+XXXXp XPDhh)""C/2 H vN I G E A  a'Da%a&ah   h X0,T\` a$.$,"X Sh&KIh$PDh"  RhEChS  FhILhE h!^XUNIT AAAAA BBBB NNNN Da%a&   hh XР-T\` a$&$-X7 BhAChKDh   'h D̸ hhT\H!l(Xva  A a+_Da%a&a4a57h ah THy`":`BAa$UT(5YDa5X&XE 5h$ !/Aha!TH`, X(bX(5Da5Xs hC6hC+!h>h h:B8A a XZY Ȼa  a'' hȭ #h C'Q h  a XhT!`   Ch' l! #hh` a5+6hw K `7"a$UT  UDa:5(Xr}X a5+.$UT XN&%+) q) a " 0K XX& *D%XZ)NUMBER OF FILES COPIED NNNNN NBR RECS COPIED NN*32768+NNNNN XTHa@{X+!h a! a!$ A#!/A8h Xhh^XDhapXf +5s)  w1 Xv% a%X X)CHECKED RECORDS NN*32768+NNNNN Ƞ i 1h X-T\S`!/aXZ XjMODE DIFFERENT ON MAG TAPE 1!! ɞ2 X{ q+/4%X&+5B 8A aMISMATCH RECORD NN*32768+NNNNN h th h hT`!1 "a!hTF@ &ɱ$h #6h h TL`"-Da#B8A aÈ7f"7 X7h h TL-``#"$2a$Daa!hh X~A>hTU`!% $.&&%a!$, "OŠ    ?; 9' 3HX @b b X 0' 0lp0 0hp0d 0 h p0 0t 0Dn qa $5)  PP,F-.A-1  2 $%&*XH3bȨb b *14X#b bb b b 0b X/NNb*3b 27b 68b +Nb hHTLO!`hahT\b `"MPhMa5 TLz{UNIT1 = UNIT2, READY FOR UNIT2 - TLTHa@COPY COMPLETED, C/R WHEN READY FOR NEXT COPY. PDTLP DECK-ID O63 MSOS 5.0 SUMMARY-122@PTZ phbfTL1TURN OFF PROTEC SWITCH,TYPE CARRIAGE RET@P+URN (J20@) THa  q++h(B1$` f" q"g"@PVt "!` g" 4  h"DSKTAP!B@ q  :I@P BBh! hTLDTLP FIRST WORD ADDRESS WILL BE @P PDTLP PDTLP X XXX-Hh iXf %XXV X "u SAVELOAD h@ XlX/ XeXhX h@X2X&X 9`"X 2 2esR4R4! `hh  X XS X $XX XH   d @HX X d X1X hXX   q`  XqQ(~p0`H XJH0h/XBH/h. 5X d X1X*HAh@n X X9~f XXQ XXK hjXXe`  XQ ) SXXH!h 5 X[ XCXH"h!& XKXHh X> f q Q]lwh !j SCRATCH SECTOR IN $C1 IS -- TYPE LOAD FOR TAPE-TO-DISK, SAVE FOR DISK-TO-TAPE OR A CARRIAGE RETURNOUTPUT TAPE ON UNIT 0. HOW MANY SECTORS? TYPE V FOR VERIFY, A FOR AUTOLOAD. OR A CARRIAGE RETURN TO RESTARTVERIFY TAPE ON UNIT 0. READY? SECTOR WORD -- -- DOES NOT COMPARE. TYPE C TO CONTINUE. OR A CARRIAGE RETURN TO ABORT. XXXX SECTORS VERIFIED, INPUT TAPE ON UNIT 0. READY?XXXX SECTORS LOADED DISK ERROR ( ) TAPE ERROR ( ) XX h  y0j/ +1) X ' X " X XXXh#hXOhh XI\AEp4 DIG. EQ. CODE FOR .. MAG. TAPE 4 DIG. EQ. CODE FOR .. MASS MEMORY ILLEGAL PARAMETERS SPECIFIEDH)h*H'h( H'H'!H!  h 2 q 4h ! H  H $Ⱥ0123456789ABCDEFH(h)H&h' H&H& H!h  (h !"h r  !3h4**"00hh 8H 8 H 8r' hHh+hXh~h }~z!t  omfh9bhuadhrDh gkHDhaec^" SIFSR  ;  ! @hB   4Dh112,n0ؼ*ȸ*H  b h d A$ y hiHoX w@`AuA& A dHP5 hVHVHX \@KAZA& A JH;"a =a ;h2h7aXfh41`qD *`D(h'hDa a  h hDa a XHhEA 0   f ̌ aaa     Xa A a$I aXXXza @/*&H a a a a$  H M N  I,B&e #XI 1 @B  H X ^ h      aaE$ ! h h  hPXXhH a a@X#X a2h2 "dh*X "  Xr "a" haX "  X] "a"  XVh ߡ a $LhJ" !C   @a    , X* XX a aX    #X hn"'XL  .  a hR$hQ  Q hM "a"*!U@`6 Q4 1 C,O ,  )h "a"!؟ a aa$  hX h,$X۠@X hp "a"X hhX "a"X@X h,Ƞ h fX "a"dXz@\Xe,Rt hr hoBABc^ XQY p*XH(. J hHpX9@*X$ h;A,0 iaA$ a!aa$  ( "a" aA hHaRHhBa0@h fhhXl hig YX]!" O2!(1O  @?I< 9 6 !  0X4!9%XB2ȼHb ȷd @4 `hȪ# JqhHأ hhX}  a hd hZXk \zX"XG1 PnX#X;XKXI d"5H H9 T5 (X51X) Ch!# =1X 1 " F  s      h h h  ٠XXsX"XX%d  4XXX XXO!; 2{1"X!XȞ)6Șȕ ȓ6`XX" ! sX  hh5jȸhh1 6! XpXdXh!   H H  >xHbH4 hgb @ 4 `V h A "!X*  X"++HX  󨻸X "Zhv! d45 'd44nXX`h_ " $ZZhXG%B)6:CG X XN! 2|32X0 h,@(Ȱ X## 3 hȰȰ`Ȱ ȰȰP h1 h_,hc h_h_h* 01! h &Xr `D Th Yh h:8Th.-h OOh hhhȸgaH Hhרh  "h !ȸ Hh ȯh h hȨ :Ȩhjhhhh h) ( r#M "ȱ$G"ثhȨ G"ءhȞ G"h`@DPT 6 `.U@@_ PDTLP50 DECK-ID O63 MSOS 5.0 10-16-78 01 SL-1@PTZ phbfTL1TURN OFF PROTEC SWITCH,TYPE CARRIAGE RET@P+URN (J20@) THa  q++h(B1$` f" q"g"@PVt "!` g" 4  h"DSKT50!B@ q  :I@P BBh" hTLDTLP50 FIRST WORD ADDRESS WILL BE @P 3{X XXX-Hh iXf %XXV X "u SAVELOAD h@ XlX/ XeXhX h@X2X&X 9`"X 2 2esR4R4! `hh  X XC X $XX XH   d @HX X d X1X hXX   q`  XqQ(~p0`H XJH0h/XBH/h. 5X d X1X*HAh@n X X9~f XXQ XXK hjXXe`  XQ ) SXXH!h 5 X[ XCXH"h!& XKXHh X> f q Q]lwh !j SCRATCH SECTOR IN $C1 IS -- TYPE LOAD FOR TAPE-TO-DISK, SAVE FOR DISK-TO-TAPE OR A CARRIAGE RETURNOUTPUT TAPE ON UNIT 0. HOW MANY SECTORS? TYPE V FOR VERIFY, A FOR AUTOLOAD. OR A CARRIAGE RETURN TO RESTARTVERIFY TAPE ON UNIT 0. READY? SECTOR WORD -- -- DOES NOT COMPARE. TYPE C TO CONTINUE. OR A CARRIAGE RETURN TO ABORT. XXXX SECTORS VERIFIED, INPUT TAPE ON UNIT 0. READY?XXXX SECTORS LOADED DISK ERROR ( ) TAPE ERROR ( ) XX h  y0j/ +1) X ' X " X XXXhh XOhh XI\AEp4 DIG. EQ. CODE FOR .. MAG. TAPE 4 DIG. EQ. CODE FOR .. MASS MEMORY ILLEGAL PARAMETERS SPECIFIEDH)h*H'h( H'H'!H!  h 2 q 4h ! H  H $Ⱥ0123456789ABCDEFH(h)H&h' H&H& H!h  (h !"h r  !3h4**"00hh 8H 8 H 8r' hHh+hXh~h }~z!t  omfh9bhuadhrDh gkHDhaec^" SIFSR  ;  ! @hB   4Dh112,n0ؼ*ȸ*H  b h d A$ y Hd)dhd h%h$BA A!dhW h h h hh  0#HX-@H% A!HA a ! A X; ' D Fh`OR A CARRIAGE RETURN TO ABORT. XXXX SECTORS VERIFIED, INPUT TAPE ON UNIT 0. READY?XXXX SECTORS LOADED DISK ERROR ( ) TAPE ERROR ( ) XX h  y0j/ +1) X ' X " X XXXhh XOhh XI\AEp4 DIG. EQ. CODE FOR .. MAG. TAPE 4 DIG. EQ. CODE FOR .. MASS MEMORY ILLEGAL PARAMETERS SPECIFIEDH)h*H'h( H'H'!H!  h 2 q 4h ! H  H $Ⱥ0123456789ABCDEFH(h)H&h' H&H& H!h  (h !"h r  !3h4**"00hh 8H 8 H 8r' hHh+hXh~h }~z!t  omfh9bhuadhrDh gkHDhaec^" SIFSR  ;  ! @hB   4Dh112,n0ؼ*ȸ*H  b h d A$ y Hd)dhd h%h$BA A!dhW h h h hh  0#HX-@H% A!HA a ! A X; ' D Fh`   FXBXlXtXzX* BH!DhaABH  X  T  Xa " 4a  aa ahhhXaD a X  a   Xà   TH Xa  a  6I : X=a " $ X!`@ X_D X[ XW   F  XI   hQ a a4hG hh=aLh5"5ikrtuvxRh'aKh " 2 <> " X^ X H  X '1($ A ( M M G C 3ax a cX   X   X   h Xr  V @a  Q3R HH c On 11 X'a  @a a F XZ1  "X , v a  a X ta sX   X*a" "a"@ "" W" $"   X Xa @ a @a a #   a hC X a ASSaq!no  `` `X`X}. A HA )Q H Aa "DR &a Ta VD `X$  hX4 X1Ȫ h  a Va  H   X7  sa^ hXDh X1  d` X hX X hX  & TP- 1   a h  0A h !H:X!h1BXXXXXXXH  L "BhX  TPa!hXBXXXXXX θh fB 2esR4R4! hHaRHhBa0@h fhhXl hig YX]!" O2!(1O  @?I< 9 6 !  0X4!9%XB2ȼHb ȷd @4 `hȪ# JqhHأ hhX}  a hd hZXk \zX"XG1 PnX#X;XKXI d"5H H9 T5 (X51X) Ch!# =1X 1 " F  s      h h h  ٠XXsX"XX%d  4XXX XXO!; 2{1"X!XȞ)6Șȕ ȓ6`XX" ! sX  hh5jȸhh1 6! XpXdXh!   H H  >xHbH4 hgb @ 4 `V h A "!X*  X"++HX  󨻸X "Zhv! d45 'd44nXX`h_ " $ZZhXG%B)6:CG X XN! 2|32X0 h,@(Ȱ X## 3 hȰȰ`Ȱ ȰȰP h1 h_,hc h_h_h* 01! h &Xr `D Th Yh h:8Th.-h OOh hhhȸgaH Hhרh  "h !ȸ Hh ȯh h hȨ :Ȩhjhhhh h) ( r#M "ȱ$G"ثhȨ G"ءhȞ G"h`@DPT 6 `.U@@_ PLIBILD DECK-ID O29 MSOS 5.0 SUMMARY-110@PTZ"LIBIDO  XBXlXtXzX* BH!DhaA  XBXlXtXzX* BH!DhaABH  X  T  Xa " 4a  aa ahhhXaD a X  a   Xà   TH Xa  a  6I : X=a " $ X!`@ X_D X[ XW   F  XI   hQ a  XBXlXtXzX* BH!DhaABH  X  T  Xa " 4a  aa ahhhXaD a X  a   Xà   TH Xa  a  6I : X=a " $ X!`@ X_D X[ XW   F  XI   hQ a a4hG hh=aLh5"5ikrtuvxRh'aKh " 2 <> " X^ X H  X '1($ A ( M M G C 3ax a cX   X   X   h Xr  V @a  Q3R HH c On 11 X'a  @a a F XZ1  "X , v a  a X ta sX   X*a" "a"@ "" W" $"   X Xa @ a @a a #   a hC X a ASSaq!no  `` `X`X}. A HA )Q H A_ha "DR ha Ta VD `X$  hX4 X1Ȫ h  a Ȑha  H   X7  ha^ hXDh X1  d` X hX X hX  & T- 1   a h  0A h !H:X!h1BXXXXXXXH  L "BhX  Ta!hXBXXXXXX θh fB 2esR4R4! hHaRHhBa0@h fhhXl hig YX]!" O2!(1O  @?I< 9 6 !  0X4!9%XB2ȼHb ȷd @4 `hȪ# JqhHأ hhX}  a hd hZXk \zX"XG1 PnX#X;XKXI d"5H H9 T5 (X51X) Ch!# =1X 1 " F  s      h h h  ٠XXsX"XX%d  4XXX XXO!; 2{1"X!XȞ)6Șȕ ȓ6`XX" ! sX  hh5jȸhh1 6! XpXdXh!   H H  >xHbH4 hgb @ 4 `V h A "!X*  X"++HX  󨻸X "Zhv! d45 'd44nXX`h_ " $ZZhXG%B)6:CG X XN! 2|32X0 h,@(Ȱ X## 3 hȰȰ`Ȱ ȰȰP h1 h_,hc h_h_h* 01! h &Xr `D Th Yh h:8Th.-h OOh hhhȸgaH Hhרh  "h !ȸ Hh ȯh h hȨ :Ȩhjhhhh h) ( r#M "ȱ$G"ثhȨ G"ءhȞ G"h`@DPT 6 `.U@@_ PLIBILD DECK-ID O29 MSOS 5.0 SUMMARY-110.@PTZ"LIBIDO/PLIBILD0PLIBILDTZT"T hhhhHELPER -- - ( (*Z Ch h6 fBhdhdh hhTJ!h !ȿ $ȼ ! h h hh6ȩl hȜdz{l h hhh\!d 8  d(d6dd ,h f 1Gd l! ld l dT鈛JdRLlglllTJ!l <̞ Ul d_l̍fܝ 1 n̔ @d l=l]\Ɉ!d 8  l,d}  l dބd d l lT鈔JdR 1TȈ{JR !  lz  df (1 dTˆz! "!ל 'n d@\ @ "_̐dhd 4 :od d lC+ "hF{ 3ol l dll"! )EU; HTTCONTROL LU = DEFS LU = INSTALL LU = NEWLIB LU = SPARE LIB 00 LU = SKELETON LU = INVALID LUINVALID CLASS CODESKELETON LU = INSTALL LU Ċ͊H"hHb Q qݚhh tn hTXh * l h ! ! (ՈBh hhH TTh\h\hX9X@hHX>hG DHC@ ! ;=a7XX%h-X#h,X!h+ 'H&# ! H q4lHhܐ>7 h c"ѠHq``Hs"ܠhHLhH"h h "hTT[T  dMT dMT dMT dMT dMTR dMTRTTTTJTTT TpX@d LIBRARY BUILD COMPLETE TYPE *Z TO TERMINATE OR TYPE *C TO CONTINUE WITH CURRENT SKELETON AND/OR OUTPUT LIBRARY LU'S =XሬXb NAM RECORD NOT 1ST RECORD OF DECK. XÈʈXډb XFR RECORD MISSING FOR LAST PGM LISTED. PGM DELETED. XEXXATOO MANY BINARY DECKS LOADED. CHANGE LIMIT AND RECOMPILE.XX0X FATAL PROGRAM ERROR. RUN KILLED. XXF`X XGGaX^bH ILLEGAL RECORD SIZE (.GT.96). RECORD DELETED  TYPE 1, CR TO TERMINATE EXECUTION TYPE 2, CR TO PROCEED TO SUBSEQUENT LIBRARY OR SKELETON TYPE 3, CR TO CONTINUE ON WITH CURRENT LIBRARY. HHXh"XhX""h HLhT`tHlXhXdhX@ Hg" H B X""HLTHa!X,X5   \dRq ` Cf*ElNDd (dRH TL(H3( T.hRhTLhHChEhhhh TQ8hHT\  HXh X""hTLa HX h X""hTLTHaXYT X!X\YYdS dOX5 $ ufXIX9X@hHX>hG DHC@ ! ;=a7XX%h-X#h,X!h+ 'H&# ! H q4lHhܐ>7 h c"Ѡ  P$*N**END   *B*USE*WEF(46H*** ILLEGAL CHARACTER STARTS IDENT FIELD. ***) (48H*** ILLEGAL IDENT FIELD. RECORD IGNORED. *** ) (46H*** ILLEGAL *B RECORD. RECORD IGNORED. *** ) (30H*** END FILE MARK WRITTEN. ***) (46H*** NULL PROGRAM NAME. RECORD IGNORED. *** ) (48H*** PROGRAM NAME TOO LONG. RECORD IGNORED. ***) (54H LOAD LIBRARY INPUT ON LU . CR WHEN READY. ) (32HLOAD SKEL/INSTAL, CR WHEN READY ) (38H LOAD OUTPUT LIBRARY. CR WHEN READY. ) (52H*** NO DEFINITIONS ARE STORED. RECORD IGNORED. ***) "(60H*** INVALID *USE RECORD. IDENT FIELD. RECORD IGNORED. ***) ((72H*** INVALID *USE RECORD. MAX IMBEDDED LEVEL IS 6. RECORD IGNORED. ***) ((72H*** INVALID *USE RECORD. REQUESTED SET IS IN USE. RECORD IGNORED. ***) (26HLOAD DEFS, CR WHEN READY ) (44H*** INVALID ASCII RECORD. RECORD IGNORED. ) TtNdt duf; !1]l7 fB l ln !1T0vdT2 d^dCdFdGdxdydzdDdET^{dL dZ d|l6 n̟ T}T>S !B\Y dOlT duf $1\ d\֔ lf[ 1\Ť̸T0vdT2 l^ !> 8\>dTӋld l l\ "ldCdS\ddTԋdGdFT^dLd D dHl\ \qlܰܯ\̳ld\ԋTF\̉l\z Yy Y d[dlxldE\ T0dTӋdd\ԋTB\vlT2dC\\]l\ldTԋ dYl 3T.dLdQT;]LTZR ̞ l ̘ $w *dtėlĘlll duf $1\T0)dTӋ\۔.ДkǔP\Y dOdST lnܻ $1T2TAԔ̥k\vd\T^ lnܚ 1̐d dPTT \ Y %TxT0dTӋ\-\ duf $1\\[ l\ߋ\ l\ P*l\͋ lޜ>  d̢ė  :lܩܨ\~  l윩!̦ $w )dtٔT ܘfĘfę , eln l ald dPT H"% %ddd du\ H"%̺  Al; դn ̥h+&n 1 C ,\ H"%T N\̩ 8 dUTV@ T0lܑܐTӋT2\ lfܛ $1\ lT" u 11P $̻ F l l\̱ ! Adt; Ǽn ̛hn 11 H7 $ !̾ dT0\ dn 1̠ dV dUTV\lTӋT2\ duf $1\\lܻܺ\⋄\"lܰܯ\׋HB M" 8 %,+ d"Sh hp8(d 0jp8h h 1 hdTT) 1Q `)Tg]LL lHM"7 $P AhdT HllO Ah ӨΌn hĈnH M" 8 % d" hf (13Kh " h h hј!![ Ř hؿȾ  屮  hشȳ حJH Pں ** ABSOLUTE FILE ** ! P*NP*(48H*** LAST DECK REJECTED - NO XFR RECORD ) (46H*** LAST DECK REJECTED - NOT UNIQUE ) hh=\W hhfw؛ `1Rh hȒ6Vn؊ȉl h h dT\d  Tْ 1Y X  dLdT0Y dOdSTddd̬ !̨d (" (l l6ΑfܬT2 dQ̐f\T dJ lR:nl\܎n\̩  l dߜ6wn lT H  nT]LL ldΩn `1̝ll l lTJdS lΰn `1̟dRJ ̜lT0 dTӒT2lT d d AdHdV l  3= : d 1"7 $10"7 $+*" 8 % T dS5TH  l&T d̸" 8 %T0dTӒT2 lH*DEF*END *TER(44H*** INVALID DEFINITION RECORD. IGNORED. ***) (50H*** NO DEFINITIONS WERE SUCCESSFULLY LOADED. M** ) (44H*** TOO MANY DEFINITION SETS. IGNORED. ***) (46H*** BAD *DEF RECORD. NO IDENT CHARACTER. ***) "(60H*** BAD *DEF RECORD. IDENT CHAR ALREADY USED. IGNORED. ***) dYT?T0dTӔT2\ܜޜ՜ל[ \l\\\d\ 1 l\6l\Ɣ\\̤̦  d dPT P/\Plܢܡ\̶ l\̱ d ( d?  dTė T0kdTӔT2tnLfĘ dQT (f\T dJ lnl\ܰ (1n\ nT]LHy ں * *END(48H*** CHECKSUM ERROR NOTED IN LAST PROGRAM. *** ) hH D T0dT2 h["XȼdWTNXG dL adQ dITZئ\ dOȡdSThhdddR !h (# (d d7f\̞ ;TA\ ̺ !*$ dn $1d $l\T0dTӖT2mD \ dO[ dSTdd\H  l̼n $1ld $dR\HL h adQTZR TdK h7f[`dadbdTRXhżdW ZnlTN fBfCfDfEfF̱fGa\ h hؤξ衞 Eؚ 1 l dI al\̘ \ dJT7 ̝ l4 ̲nl\ d̟ d n 1nܙΠl\XΜ ̍nΔdWHFhW 3 "T Dh hhN:B = hhל! (C %hh n hBh ȸDhTXȯDh\ORȥn nȝ d ( dXHHhhHhhHhh h  ?j % Zي j j 1ɈhÈhè dXHں(52H*** PROGRAM SPECIFIED BY THIS RECORD NOT FOUND. ***) (48H*** CHECKSUM ERROR NOTED IN LAST PROGRAM. *** ) (48H*** PROGRAM HAVING THIS ID INFO NOT FOUND. *** ) (54H*** MORE THAN ONE PGM HAS THIS NAME (NO ID INFO.) ***) d<f &1TRXd=żdW T0Kd>Tә>?T2\ lf $1\ TNBd@CdAؖF זE ֖D G dL adQ dITZR TU  dP lT"T < 01 lVAdBۜ 1̪  ̧dW\XΟlΡlT0d>Tә>Cw l lԜ!\ Ad=ǼHdD̻ Eḽ ܬ\Y dOdSTdddR !dF (" (l d<7fT2HGTATZ I ,T0id>Tә>C\@ \l\>I\A dWH9Q LT]L l\dRh B dJ h \]L l ahҘ "h h̘;flȼh ̻ ܼ\]L l찞 IܪHX !ddN PSKED DECK-ID O51 MSOS 5.0 SUMMARY-110q@PTZ$SKFILE rPSKED sPSKED TZ$SKFILEDhLh hJh]h v XDh h8/h h /h XDh'h h h hzh hhhhXXX( T Xu @HHHHXaXh((XC HD  "X,vhDغio  "Ȳ 2ȩ2h1ئ  6 HȖ 30"Dj> AX0 LIST BUILD LOAD CATLOGDELETEINSERTDUMP COMANDCHANGEEXIT REW ADR BSR ADF BSF WEF UNL B'm#QM>_0pP` @ X̖Dh   ;XYX .X   /h !Dhh    jX<| h u | m UX'gh c `'  Zh Y W O1XXh TXtX - ! ? ;h`X 5 EW!B * h 0h +  h *h #XI ( k  k X;XWX5XE * k  k  !X  ( h  h !k XDh G  _X}7XRX50h+ 2[X4Xh X5X - e XX h (k S h k L h X:  h h h |h X | * 'h q  "h m rh e mh `XX * [k  Wk X Vh L Qh I ( Ok  Kk X_ Bh 2 ?h -XS * 2k  ,k X C  bX1XXv{*hlDh h  XX?GXfCh B(YX\=h (703 i X  h` X< hZ N  I  E  A   X$X1X0  0 i X  X X  |X uXX}XSDh X|B ( qk %  mk  ik   ek  Dk   hk f# O5 0` Jh K Eh H Ch @ @h ; :h 8 3ػ /h 3 ,h 0 ( %k  k ,kX? & h 5Dh h h h h ` h h h h X XX5  Xg( $XXUX8{/h- XXXXCX X<  XQ X&X {/hTh XX  ->! ,9!X"X* ,.5XXhXO ' Vj q 'j qhX L(v ;XS XK  hSDh X  hXxX: /hUi h.   DXh77h2X hDhNhXX K\X 2 #h hȽ u h~sDh]pZXX*jhda_GXYV"QhPLIA3DhHh?(h2X' DhhhhXhXhh XXhXh(hkX(XXQ ,"XX hX()h,XߘMJ XӘB?X:8,h0Xh,('X#X!"X(X hXo((XXhh/h *hXDH 'jAB DhO/hehwXp}2DvhDhH(vh DH!?QH    >h h=DhQX/(0+$ ?"'!h6F1 h+B F&h%Dh  h @(j q.B0F0I @ȈhȈhyȈhs`Hh>h<BV   DȘ#h 8Hj1 'j* #jhXDh)qh25t/h*mh+h.X(D_A 0`F hFhF`hT T H r`DH%B h<h9 4k/ h+  % kDh(hhhhhH_j qD`mH XN jc a Dk q 'kx qXXchxXq %DXH(vhQh hKDhJhJhFHp 'XE X27 h(,A#,Rh&% h" DhhnX hh4 'X DhhRH##!hK#D hA>ȸpG(  aDQK X Q 2 4  2  aN9Xn # 4 XEND0V4 aQ(uaalh  aNX X pXB  aB0`A h+ aB0`A hIX 5!X]IX -! IAA{XH́{a{IA Cѓ< (:" fH3N B fN (X(h%FXN R4%42 fN  B0`hwHvRHs   aVB XX {hhXPARTBL aQ(a hV "%  h hXLSTLOC aQ(bȵh? "" aȧ " aaX XMSIZV4 aQ(c !hhal a{ haW aNhtX ,aB1 !ataka, B X {hXhTXXXXxD :߁{h{DhBa{XXXX kat,aB1 !h aka,vh h B1 !hB XFXB X   X alX {XqaXwDb a{ aNhafaX9XMBuAN aDQKI# Ia'a"H  aQ(b #X  IhkX\ghj a XXXJIhQXBMhPpaka,navapaqFaWX8 X5EX8 X/EX8 X)C X%%Q!є ( "f {fN  Af@ fX 8 B X{hCh?XXXc X{h2B XEX XX XXiXR Ih2 2 %X]!XTIh{3x 1XNXEIhXhXUB XPARTBL aXQ(b &hrJoahalBfa aN@a>aaka,ava aWh-aX'h&X { a{paq1FXR XODXY XJDXN XEC XAX z hhhX aQ(bahX ala BXSECTOR aQ(b $Xh " ! saka, taka, |9 ` ;c q q`#A h@QZ94H 44h  X S@ XX9X Q ERROR BX   hCXF> aDQK IAs IX 432 , IjX5Q1XXX*A I H hthohThP  hhhuX Q B0`A FhDX aDQKX hhhX XXAIh H  a aQ(q N# aXXZDaPXT aP XA aaFXXA0XENABLE ADDRESS WRITE--THEN CR XB9XXXDISK ERROR X XDISK REJECT XX4X+Ih!X?Ah&h?Xh;X!X;UUhDh4XXX3hX XX-DhXXX( _j q @X X6  1i H@Xs `X1Q _i q?`QZ3h#4h"QZ3h"4h!SQZ3h 4hȷQZ3h4hXDISK COMPARE ERROR SECT XXXX WORD XXXX IS XXXX SB XXXX X H~ȟ`QZ3h 4h X DISK FAILURE XXXX X XX aNawafa]dh{ bwv [hr hWK!2hgFhdB!zha^XS\X<@$SRO HMNzhLVavUaX(XSTMSV4 aQ(wX @ [ f QCXUNPEND aQ(r `XXUNPSRT aQ(r 5`.XXLSTLOC aQ(a " &`XXAREAC aQ(```Xa nhU` H ^Db E@ X:#`XDATBAS ha aX f)'hXSWAPAR a aX aX3X fXXP,kXX,k# f ftB1X:,kX fhZ c fh `hS  f# aWX h XJX aWXC X hXh1 h$,kB1A dhhQ@ `X@ GX `h Db A@XtB8hG  C lc B8׈hDF BAllRAQ@XC=XINITIALIZATION COMPLETED - YOU MAY AUTOLOAD X 5XERRORS OCCURED - YOU MAY ATTEMPT TO AUTOLOAD X  ae  !14;^ hXX 9X ( 1; PN  aB0`A h/h5H  3;9BKA 6 (EhBK R A h1!W AX1$ I aX$ {A{CShbX _2XZ!$%X1N JHQZ3hB4hA X Oh9h9h9XN 4Q61N 1A HHAHHAAlXV# 0hDShX 2X{A{aAN lX,# {A{X? 5; /àcB aaaaaaN 9 Q^ 2esR4R4! a  aa9aa ehhXn a%omhHXla.XG    QRh CAX|X1tXa? 5; 7;X![Xa a?  ah) 'H% A aWAAV A a R  a a 9;  a  QRa qr315;qf"q>a aX%Q(uQb 8Q6XdX PH aX>a aXXX   4a ?=a A17Q6Qbda a a!a"a? aX1Q a1 aQ(a #13; h Xw va|1 A A|Xbѐ|"a !Q(a # aaQhBh| X|!h="CAaApqd4", gXca WFC 9Q6Xg xWA" BthXMh WQAa X5AN ILLEGAL MULTILEVEL INDIRECT IS IN THE EXTERNAL STRING FOR WHICH STARTS AT LOCATION hhhQZ3h4h 4Xk,ka+X'+ a+,R2 q a' a- AXaXAaA--AX Xǀ aUva| a|X|  XaU , v2 6;,h a,X h a/"X16; X X X hX X hX6X * * * U N P A T C H E D E X T E R N A L S * * * X!va XI2X4 a2X LOADER ERROR h X5 a{XDH HQZ3b4b #X] X h XAj  4 XXDUPLICATE ENTRY POINT "Ahhh XaX A3X 3A3XA4X4A4Y B q  : AGAIAAAAaHXH   a aI a2  J aG  J aGXH1XZ1J a aXaXtJXJ!JXwaI   A a a XFXYX!X]h "IİS !IaIIG$R AIaGJH t dH   a qH 6 "H "  1H AH1A ! b  !aHH  A  HvB HrH Hn Hghh HcwN ^h[ZB1zHYTthWWZ4AHSRAuwhPHQHOhMF#E2hB?/8N %{!h1H52h0uu0,z2H((h! `b bn8"n5An H amXRRX ;@n;(J8;N 12;A2 2;  bDbhb5n2%ABau  0au C uauuuj ȫX X @(} 5 A(hz`ȕ RAuwhH XRX Y@ uuxzx2aAKW " 9; QB4QVRAcRBd4B4adAaQ XHE VQ6dbMp`` Dbr  %`DcB Ea a *` DcB a`DaFaGaHaIaNaOaPaUaVaWaX j`DcB `aa9 a: a>`azEa`ac aB0caaX #11;!2a a" audaub bbu2Dhzhyhxhwhvhuhthshrhqhphohnhmfapaq`arEd `avaa}E `a/ a aB 0a X ` awafaawB0caa HXZOaN  BX E A aPDhhYhh``aP$daPNaBH@OAH `є N4a aDQK fX7XlQ QbX{" VX_R Q QPTDBHQ HMDhJa#a$a%DQK 7 1XQ" ,X6 AdaQ(2  ON%*$hua N`a{nIbj aXGBH a>BHHяXHd      4 BA4"2  4d xI ̘ " IhX # X  hNs HHhGhI DnBB  @;RXX jI qX1 hIO B8HA hB@h=hLX $9# H8h8H?h?X @ "RX,<$@ RX#`SYSVOL 00 `heHeW h`H`hHSQXhXhhHh@JhG\FhD@h9C? D11 3  'd 4h$)+&hG!  hG xhT h da#,   1 V   p a 5 # a     hȶ  ' bج ȰH X; hWHW hVVhahS @ X"hNNRX/JXT hCF X<9X 986!X B X= h H . #  X Xh  !D 1 X  DATE HVPXHRhNhNTFH JO D`@@XXIh8XFh $@QZ3h 4h XL, FAILED () ACTION X X BX} ޘ DRPCU  k h|,B0 400 H/X 6@.A4A&!da h#!a aXFh "@ "a" ` h` f tv aaa     Xa A a$I aXXXza @/*&H a a a a$  H M N  I,B&e #XI 1 @B  H X ^ h      aaE$ ! h h  hPXXhH a a@X#X a2h2 "dh*X "  Xr "a" haX "  X] "a"  XVh ߡ a $LhJ" !C   @a    , X* XX a aX    #X hn"'XL  .  a hR$hQ  Q hM "a"*!U@`6 Q4 1 C,O ,  )h "a"!؟ a aa$  hX h,$X۠@X hp "a"X hhX "a"X@X h,Ƞ h fX "a"dXz@\Xe,Rt hr hoBABc^ XQY p*XH(. J hHpX9@*X$ h;A,0 iaA$ a!aa$  ( "a" aAHXB@X B" !jB n/B + `D'X( `1XhhUh ` X h#HaRHh hBa0@h fhh h hvX Xu hr hn `Xd!" V2!.1V  @F KhNA > ; ! 5X9!;'Ⱥ`XB2ȱHb Ȭd @4 `hȟ# JthHؘ hhX  c hg h]Xn _}X"XI1 SqX#X=XN h"5HH= X4 +X#51X. Hh&# B 1X 6X! " F ` + s      h h h  ٠XXpX"XX%a  4XXX XXL; 2z1"X#X!ȡ,6Șȕ ȓ6`XX  !r GhX  hh5jȸhh1 6! XpXaXe!   H H  >fHbH4 hUb @ 4 `D h A "!X*  X"((HX  󨻸X "Qhv! d45 'd44nXX`h_ " $ZZhXC%B)6:CG R XH! 2u32X0 h,@(Ȱ X## 3 hȰȰ`Ȱ ȰȰP h1 h_,hc h_h_h* 01! h &Xr `D Th Yh h:8Th.-h LLh hhhȸgaH Hhרh  "h !ȸ Hh ȯh h hȨ :Ȩhjhhhh h) ( r#M "ȱ$G"ثhȨ G"ءhȞ G"h`@DPT 6 `.U@@_ .  @ hh# j j j rX h pj v@ c ?hjn t hhUhLHJRHHXMDH '?h;7'3 h1 8 h)h&284 j2A h+hdhX"# H %H & hBHTIyfyd hn ?`"yyzpz B0F00hX XTjyl{e X X X THyg3~yh3{[ykyoXXTHyg3~ yi3{[ykyo aXXyy Xb c[z  $$ EX ? X X3 .hhT~$ypX__aX *Ⱥ X HX Hj q ah jh THyg3~yj3{[ykyoXmHX[y}XUyXȉ XtX{qT4|({|yqT:|(yruXJnXC` a c qXJ# XtMXS{vT4|({|yqT:|(yrXX`! c qaT~|yqTjyn| aq a TI#?X X4cX( X,[  X2TI"a TImX501X >8&  XH" HhTjzz aц H Tjz{[ aцXXmTjym{kX TImX{{ XT1|({"yqX` X T:|(yqXX Gj qh h THD`{ Uxur ql  1a2ad(a a 2h hXhW2ghU"hUhUhUhUJAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC $""  ha% j H j  !$$PGMNAM$$PROCED$$SYMENU$$DAYFIL$$USERID f3^ ::hjhi"hhhghfheaBd]J2gX(@2hRQ*?2iN(82jL(52kI FhI2lE"h,dB0D q %ad:!h7h*h)h(h' h-3h,X{T7|({yqT:|(yq < h >" h!  j|@h jh! jT=|(|yqX' $$ SYSVOL   j} qhT@|(yqX Eh j6X{T4|({|yq+,Xp &c   B  ADh T:|(yqXT h4XIN.ROU =X&! `  ! ?`T~{[yqT~{[yq XY h  &   hG h Tj}[| a@ X {{T1|({"yqX` h j qT:|(yqX ,H TI#THD}({ H a TI# a  ,2 hT~yqFTI#-(hT~yr h u  HTLD}}t}{|$ CDC CYBER-18 C C S SYSTEM - VER 2.0 TERMINAL = XX PASSWORD = USER ID. = REQUEST = X ~ X~ X~$ h w `2 X X X X X XH$h$ H` aADe DaaAa a Vh` HM!"hG!dhFH5  j9 qT=4"T4*!vT: H H  -Xz H   #3T Xk H  Xu$$SYMSGF$$ SYSVOL \"Xm HE HXC  X\Xj H6 H X4  Xq H$X% H X0 \ȵ" \` ȲX2whth \ h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :XӀ H"A HB0Fh  0X  00j qa! 1" hh! u  HTLDЀЀHHSYSTEM MESSAGE XXXX|M {H{DUJc(zP1(z| H DzN '-zzʆz{"UT6CCS20 zj]- zpzpzjxyXyY@LUJc 1PyY N '|(|(yr|yqzj:#CCS20 UTFMTN m xxDUJcKl(1PH$N yy&&&EX 8P3u- COLECT y}- yTyTyxLUJc"z1{[zV zYN |(|(yr|yqMNUPRO zjx"xPRFMT003kCCS20 x xxt"o-xD!(4 PRFMT003MTUTIFIL  xDUJcK"$&1=H$ yy&&yqEX xh3u- COLECT  hp ?` a huT}yy~y}m%T~%yxy}:T}yy"y}`%T~%yzy}-T}yy}U%T~%yyy}" X]AX[ h9h?THyysyyuyty{yv4!Hh0  X> aTImy" *H (}! X'T~%ywy{H XTIa$$ MENU$$  h.! E  HTLDyyyz&zNzvzzz{{>{f{{{||.|V|~|||}}F}n}@@@@@@@@@@@@@@@@@@@@@@@@ SELECTION = }X%X#X!XXXXXXXXXX X X XXXXXH2 H-3>72"4` aADe Daa AA a a Vh` HM!"hG!dhFH5  j9 qT}s~z~w4"T}s~x~w*!vT}s~w H H  -Xz H   #3T Xk H  Xu$$SYMSGF$$ SYSVOL \"Xm HE HXC  X\Xj H6 H X4  X, H$X%? H X0 \ȵ" \` ȲX2whth \G h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :X? H"A HB0Fh  0X? ~v 00j qa! 1" hh! u  HTLDiHHSYSTEM MESSAGE XXXX PDSUBRCM DECK-ID A50 ITOS 1.2 SUMMARY-126~@P@P#@P)@P0 @P30112312@P8 @P@P@P@PZ@P @P @P STARPCFNB@P@PO N C L R @PC E R @P= h; Hhк @PM h"! + c^ P"  "T @PxȝHBhȕH: !H3 l, l% 5  l@P  lܨ lը 5 l P"̰ " d$̨d@P%̹H쌢d P( l̰Hd Pl A d&d'̹  d )d(@P l*lTq +( %d,n d-" : &m+*@Pg d.!T.d/ 9! !O lМ9\.l C @PE l\.l 9! ! 1d11d24"3"@Ppl5""  l  l, n  }n% @P  l $l@PlHlH !H l l 5 @Pl̶ d(d uld.7T0. @P]@PT 6+̲H 2l̪H !̤H l̜ l̕ 5@P l8d7 ll츶dL9 ܯ 1@ ;̤" 9 %@PH@PMH lH " H l l 5 l@PxT +:#@P^'@Pt lH $;l̺Hd O!=̳H !7 dLH ,@Pl̞d !"̘ !M@P__@P\ +<+ d?@Pbi@Pd@P Pu!( !$d2H # d"Hd O" l " l٬d " l@P @Pj@Po@P@P@P l P" l@PP@PlT"@P`@PT@P @P @P @P :H7TT hhP hZhhhh'hhh^ h\h\hDhh@P4\hrhhF\h\hPSUBRCM PQ8PKUPQ8PREPGETCHR#DATFMTZWTREAD{PUTCHRSYSMSGPGMOUTP P$CHGTPT DECK-ID A37 ITOS 1.1 SUMMARY-122@P H\ \ h \ u"  H\\h\h\u" PGETCHRPUTCHRPUTCHRCREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEPUTS WRITERREADR GETS UPDRECDELRECCOMFILƠPQ8PKUPQ8PREPP  P_FMENTP DECK-ID F58 ITOS 2.0 10-10 SL-132@PX%X#X!XXXXXXXXXX X X XXXXXH5@P+h H-32"4` aADeaaߘ AA a a @PVVh`PCREATE$CLEAR "DELETE OPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEPUTS WRITERREADR GETS PUPDRECDELRECCOMFILVOLUSEREDUCEVOLUSEREDUCEUSERIDCvSYMSGFWSYMENUPROCEDC6UTIL mUTBATC4UTDISCUTHOSTUTSET UTPRINUTBATSUTDISPUTFLUSUTINIT)UTDEFI9UTSTATʠPCCP DP P$RPGII DECK-ID P13 RPGII 2.1 SUMMARY-132@Ph Dh h h TZRPGSM0    Xݐ$PRPGII RPGXX RPGYY RPGZZ !PRPGII PCATLOG DECK-ID R81 RPGII 2.1 SUMMARY-132@PTZ CATFILPCATLOGCATSEGPCATLOG PR9CNTR DECK-ID P44 RPGII 2.1 10-11 SL-132@Ph$h#H  TXwhTS!X[ h `h0H.h.@P+H'h&-h,h,h,X-!hTS!KhHX3E jXM  "h `@PV   M%  !"h X " @PXX A"T$HTPRPGFILR9CNTR&R9JUMPRR9SGTB^R9SGIXTR9CKSGcR9MUNOSATTCHKtR9BRAKPRMUCLO]RMUCFT\RMUCF0[RMUCSWZRMUOPNYR9TAPFpEXPIRECNTWARkTSAREA>R9PORT R9MODER9UNIT R9USER SYSMSGPPGMIN SLICUPATTACH:R9RPRTP PSR9ROOT DECK-ID R36 RPGII 2.1 SUMMARY-132@P@P+@P4  PR9ROOTY9PFCBY9FDC1Y9CMSTY9MMSTY9INMK Y9MHLDY9DETLY9TOTLY9LSTR Y9DOTTY9TOTTY9EOTTY9ALSQPY9CARAY9MARAY9UDATY9UDAYY9UYERY9UMTHY9FDTB Y9TBIOY9CMOVAY9INTABY9ITLPCY9LAHDDY9MMOVEY9NSQRFPY9PAGEGY9TBOTHY9INVP Y9DSEQY9FBSEPOSSPBPOSSKBPOSSPAPOSSKAR9OCOD!R9RECP"R9TANF#R9TFLG$Y9APFX%PY9ASPC&Y9COUN'Y9DTPT*Y9FDPR)Y9FIPR+Y9FIPT,Y9FLPT-Y9FPTL(Y9FPTR.Y9FSSA/Y9HIND0Y9HNUM1Y9IBUF2Y9KALA4PY9KAPF5Y9PSFG6Y9RECP7Y9RPTR8Y9TOP19Y9VFT1:Y9XRPF;Y9XRTER9ERTN?Y9LABL PY9FTNXJY9FSTLKR9USERLR9UNITPR9MODEQR9PORTRR9EDT1R9EDT2R9EDT3R9EDT4 PR9FSTLKR9FTNXJR9LABL R9TRCEIR9FBSER9DSEQR9INVP R9TBOTHR9PAGEGR9NSQRFR9MMOVER9LAHDDR9ITLPCR9INTABPR9CMOVAR9TBIOR9FDTB R9UMTHR9UYERR9UDAYR9UDATR9MARAR9CARAR9ALSQR9EOTTR9TOTTR9DOTTR9LSTR PR9TOTLR9DETLR9MHLDR9INMK R9MMSTR9CMSTR9FDC1R9PFCBERROR - PROGRAM PROTECT VIOLATION AT LOCATION $$$$ X0300001ERROR - ILLEGAL PROGRAM ATTACHMENT AT LOCATION $$$$ X0300002 ERROR - ILLEGAL FILE MANAGER REQUEST AT LOCATION $$$$ X0300003iERROR - ILLEGAL FILE REQUEST PARAMETER AT LOCATION $$$$ X0300004ERROR - ILLEGAL MONITOR REQUEST AT LOCATION $$$$ X0300005)ERROR - ILLEGAL REQUEST PARAMETER AT LOCATION $$$$ X0300006ERROR - ILLEGAL I/O REQUEST LOGICAL UNIT AT LOCATION $$$$ X0300007ERROR - ATTEMPT TO PERFORM STACKED I/O REQUESTS AT LOCATION $$$$ X0300008INOTICE - THE CCS SYSTEM HAS BEEN DISABLED. ********A MASS MEMORY I/O ERROR HAS OCCURRED. PROGRAM TERMINATED. X0300010 ERROR - ATTEMPT TO MODIFY THE FILE REQUEST BUFFER AT LOCATION $$$$ X0300011iPROGRAM ABORTED X0300012@@@ ## ## ##:##:## X0300013)C C S LOG OFF ##:##:## ********@@ IS INVALID X0300015ILLEGAL LOG IN X0300016IREQUEST @@@@@@@@ CANNOT BE FOUND X0300017ERROR - @@@@@@@@ IS TOO LARGE TO BE EXECUTED X0300018 ERROR STATUS $$$$ DURING OPEN OF FILE @@@@@@@@@@@@@@@@ X0300019iERROR STATUS $$$$ DURING CLOSE OF FILE @@@@@@@@@@@@@@@@ X0300020ERROR STATUS $$$$ DURING READR OF FILE @@@@@@@@@@@@@@@@ X0300021)ERROR STATUS $$$$ DURING GETS OF FILE @@@@@@@@@@@@@@@@ X0300022ERROR STATUS $$$$ DURING FORCE FILE CLOSE X0300023PROCEDURE @@@@@@@@ CANNOT BE FOUND X0300024ISYSTEM MESSAGE 0025 X0300025SYSTEM MESSAGE 0026 X0300026 SYSTEM MESSAGE 0027 X0300027iSYSTEM MESSAGE 0028 X0300028SYSTEM MESSAGE 0029 X0300029)REQUESTED UTILITY PROCESSOR NOT FOUND X0300030REQUESTED COMMAND IS NOT LEGAL X0300031ILLEGAL COMMAND FORMAT X0300032IFILE REQUEST REJECTED X0300033FILE COULD NOT BE LOCATED X0300034 MM I/O ERROR WAS NOTED X0300035iVOLUME SPECIFIED NOT MOUNTED AND READY X0300036FILE REQUEST ILLEGAL X0300037)FILE IS CURRENTLY OPEN X0300038MISSING PARAMETER X0300039ILLEGAL GETFLD STATUS X0300040IVIT COULD NOT BE FOUND X0300041FILE IS CURRENTLY LOCKED X0300042 INTERNAL FM ERROR X0300043iMAX. NO OF OPEN FILES FOR A SINGLE USER X0300044MAX. NO OF OPEN FILES, RETRY X0300045)EQUIPMENT TYPE NOT FOUND X0300046WRONG MM UNIT DEFINED X0300047VOLUME WAS ALREADY MOUNTED X0300048ITHIS VOLUME IS DISMOUNTED X0300049MOUNTED VOLUME HAS OPEN FILES X0300050 WRONG VOLUME MOUNTED X0300051iPARAMETER ENTRY ERROR X0300052VOLUME HAS OPEN FILES, NOT DISMOUNTED X0300053)NO KEY ENTERED FOR INDEXED FILES X0300054INSUFFICIENT MM FILE SPACE X0300055INSUFFICIENT FID SPACE FOR FILES X0300056IFILE NAME/OWNER NOT UNIQUE X0300057FCB INDEX OUT OF RANGE X0300058 FILE REQUEST BUFFER NOT INITIALIZED X0300059iUNDEFINED FM STATUS ERROR X0300060FILE HAS A SET OF LOCKED RECORDS X0300061)DIRECT FILE RECORD LENGTH EXCEEDS 256 WORDS X0300062INVALID SYSTEM PERIPHERAL NAME X0300063RECORD LENGTH TOO LARGE FOR THIS COMMAND X0300064IRECORD LENGTH NOT EQUAL X0300065FILE TYPE NOT EQUAL X0300066 PRIMARY KEY NOT UNIQUE X0300067iWRONG KEY VALUE X0300068ILLEGAL PARAMETER RECEIVED X0300069)INTERNAL UTILITY ERROR X0300070ERROR IN COMPUTING MM WORD ADDR X0300071FILE FORMERLY OPENED FOR COMPRESSION X0300072IVOLUME 2 MAY NOT BE MOUNTED X0300073CLASS CODE IS NOT A DISK X0300074 THIS COMMAND IS ONLY ALLOWED IF ITOS IS DISABLED X0300075iTHIS IS A SUPERVISOR COMMAND ONLY X0300076RECORD LOCK-TABLE IS CURRENTLY FULL X0300077)RECORD IS LOCKED BY ANOTHER USER X0300078FILE REQUEST BUFFER NOT PROPERLY INITIALIZED X0300079FILE SPECIFIED SHOULD BE A DIRECT FILE X0300080ITAPE RECORD EXCEEDS INTERNAL BUFFER SIZE X0300081INDEX TOO BIG FOR UTILITY ORDERED LOAD X0300082 OUT OF ORDER PRIMARY KEY X0300083iSYSTEM MESSAGE 0084 FMUTIL ERROR 84 X0300084SYSTEM MESSAGE 0085 FMUTIL ERROR 85 X0300085)SYSTEM MESSAGE 0086 X0300086SYSTEM MESSAGE 0087 X0300087SYSTEM MESSAGE 0088 X0300088ISYSTEM MESSAGE 0089 X0300089SYSTEM MESSAGE 0090 X0300090 SUBRCM CALL ERROR - ILLEGAL REQUEST TYPE X0300091iSUBRCM CALL ERROR - X COORDINATE LESS THAN ZERO X0300092SUBRCM CALL ERROR - X COORDINATE GREATER THAN 79 X0300093)SUBRCM CALL ERROR - Y COORDINATE LESS THAN ZERO X0300094SUBRCM CALL ERROR - Y COORDINATE GREATER THAN 23 X0300095SUBRCM CALL ERROR - BUFFER LENGTH LESS THAN 1 X0300096ISUBRCM CALL ERROR - BUFFER LENGTH GREATER THAN 80 X0300097SUBRCM CALL ERROR - ILLEGAL 'DTYPE' X0300098 SYSTEM MESSAGE 0099 X0300099iSYSTEM MESSAGE 0100 X0300100RPG ERROR 001D @@@@@@@@ FILE IS ALREADY OPENED X0300101)RPG ERROR 002D @@@@@@@@ TRIED TO PROCESS FILE IN WRONG MODE X0300102RPG ERROR 003D @@@@@@@@ SPECIFIED RECORD LENGTH INCORRECT X0300103RPG ERROR 004D @@@@@@@@ FILE NOT DEFINED IN DIRECTORY X0300104IRPG ERROR 005D @@@@@@@@ AN ADD FILE FOR SEQ PROC MUST BE DEF AS OUTPT X0300105RPG ERROR 006D @@@@@@@@ ADD/LOAD SEQUENTIALLY NOT FOR DIRECT DEF FILE X0300106 RPG ERROR 007D @@@@@@@@ FILE DEFINITION IS WRONG FOR SEQ. PROC. X0300107iRPG ERROR 008D @@@@@@@@ RECORD LENGTH NOT COMPATIBLE WITH THE DIRECTORY X0300108RPG ERROR 009D @@@@@@@@ FILE MGR. DID NOT HANDLE DIR REQ STAT $$$$ X0300109)RPG ERROR 010D @@@@@@@@ TRIED TO ACCESS AN UNOPENED FILE X0300110RPG ERROR 011D @@@@@@@@ READ 09 FOUND FILE TO BE NON UNIT-RECORD DEFINEDX0300111RPG ERROR 012D @@@@@@@@ RECORD ######## WAS SHORT-PADDED WITH BLANKS X0300112IRPG ERROR 013D @@@@@@@@ READ 12 FOUND FILE DEFINED AS A NON-DISK FILE X0300113RPG ERROR 014D @@@@@@@@ RECORD ######## WAS TO LONG-RECORD TRUNCATED X0300114 RPG ERROR 015D @@@@@@@@ WRIT17 FND FILE DEF AS NON-UNIT REC FILE X0300115iRPG ERROR 016D @@@@@@@@ WRIT20 FND FILE DEF AS NON DISK SEQ FILE X0300116RPG ERROR 017D @@@@@@@@ UPDT26 FND FILE DEF AS NON DISK SEQ FILE X0300117)RPG ERROR 018D @@@@@@@@ MULTIPLE UPDATES W/O READ IN BETWEEN INVALID X0300118RPG ERROR 019D @@@@@@@@ APDT30 FOUND FILE DEFINED AS A NON DISK-SEQ FILEX0300119RPG ERROR 020D @@@@@@@@ CLOS35 FOUND FILE DEFI AS NON UNIT REC FILE X0300120IRPG ERROR 021D @@@@@@@@ CLOS38 FOUND FILE DEFINED AS A NON DISK-SEQ FILEX0300121RPG ERROR 022D @@@@@@@@ MASS STORAGE ERROR X0300122 RPG ERROR 023D @@@@@@@@ FILE MGR DID NOT HANDLE FILE REQUEST $$$$ X0300123iRPG ERROR 024D @@@@@@@@ END OF TAPE ENCOUNTERED X0300124RPG ERROR 025D @@@@@@@@ INPUT DEVICE FAILURE X0300125)RPG ERROR 026D @@@@@@@@ OUTPUT DEVICE FAILURE X0300126RPG ERROR 027D @@@@@@@@ SHARED BUFFERS NOT ALLOWED FOR TAPE FILES X0300127RPG ERROR 028D @@@@@@@@ BLOCK SIZE MUST BE INTEGER MULTIPLE OF REC SIZE X0300128IRPG ERROR 029D @@@@@@@@ READ 11 FOUND FILE NOT DEFINED AS TAPE X0300129RPG ERROR 030D @@@@@@@@ WRIT19 FOUND FILE NOT DEFINED AS TAPE X0300130 RPG ERROR 031D @@@@@@@@ CLOS 37 FOUND FILE NOT DEFINED AS TAPE X0300131iRPG ERROR 032D @@@@@@@@ DATA OVERFLOW - NO MORE TAPE VOLUMES DECLARED X0300132RPG ERROR 033D @@@@@@@@ ADDING RECORDS IS NOT ALLOWED IN DIRECT PROC. X0300133)RPG ERROR 034D @@@@@@@@ OUTPT FILE FOR DIRCT PROC MUST BE DEF DIR X0300134RPG ERROR 035D @@@@@@@@ DIRECT PROC. ON INDEXED FILE ALLOWD ONLY FOR INPX0300135RPG ERROR 036D @@@@@@@@ FILE DEFINITION IS WRONG FOR DIRECT PROC. X0300136IRPG ERROR 037D @@@@@@@@ READ13 FOUND FILE DEFI AS NON DISK DIRECT FILE X0300137RPG ERROR 038D @@@@@@@@ WRIT21 FOUND FILE DEFI AS NON DISK DIRECT FILE X0300138 RPG ERROR 039D @@@@@@@@ UPDT27 FOUND FILE DEFI AS NON DISK DIRECT FILE X0300139iRPG ERROR 040D @@@@@@@@ CLOS39 FOUND FILE DEFI AS NON DISK DIRECT FILE X0300140RPG ERROR 041D @@@@@@@@ RECORD NUMBER ######## OUT OF RANGE X0300141)RPG ERROR 042D @@@@@@@@ DOUBLE BUFFERING NOT ALLOWED FOR INDEX FILE X0300142RPG ERROR 043D @@@@@@@@ INDEX PROC. IS ALLOWED ONLY FOR INDEX-DEF FILES X0300143RPG ERROR 044D @@@@@@@@ KEY LENGTH/POSITION NOT COMPATIBLE WITH DIRECTORX0300144IRPG ERROR 045D @@@@@@@@ OPEN 05 WAS CALLED FOR NON-RANDOM PROCESSING X0300145RPG ERROR 046D @@@@@@@@ READ15 FOUND FILE DEFINED AS A NON INDEX FILE X0300146 RPG ERROR 047D @@@@@@@@ WRIT23 FOUND FILE DEFINED AS A NON INDEX FILE X0300147iRPG ERROR 048D @@@@@@@@ ADDT32 FOUND FILE DEFINED AS A NON INDEX FILE X0300148RPG ERROR 049D @@@@@@@@ CLOS41 FOUND FILE DEFINED AS A NON INDEX FILE X0300149)RPG ERROR 050D @@@@@@@@ UPDT29 FOUND FILE DEFINED AS A NON INDEX FILE X0300150RPG ERROR 051D @@@@@@@@ THE KEY IN RECORD ######## MODIFIED BY UPDATE X0300151RPG ERROR 052D @@@@@@@@ CLOS40 FOUND FILE DEFINED AS A NON INDEX FILE X0300152IRPG ERROR 053D @@@@@@@@ READ19 FOUND FILE DEFINED AS A NON INDEX FILE X0300153©RPG ERROR 054D @@@@@@@@ WRIT22 FOUND FILE DEFINED AS A NON INDEX FILE X0300154 RPG ERROR 055D @@@@@@@@ UPDT28 FOUND FILE DEFINED AS A NON INDEX FILE X0300155iRPG ERROR 056D @@@@@@@@ ADDT31 FOUND FILE DEFINED AS A NON INDEX FILE X0300156RPG ERROR 057D @@@@@@@@ SETL33 FOUND FILE DEFINED AS A NON INDEX SEQ FILX0300157)RPG ERROR 058D @@@@@@@@ RECORD ######## OUT OF ORDER X0300158ĉRPG ERROR 059D @@@@@@@@ SETL33 SET LOWER LIMIT NOT ALLOWED FOR ADD FILESX0300159RPG ERROR 060D @@@@@@@@ KEY OF RECORD ######## ALREADY EXISTS X0300160IRPG ERROR 061D @@@@@@@@ SEQ. PROC. FOR INDEX-DEFINED FILE ONLY FOR INPUTX0300161ũRPG ERROR 062D @@@@@@@@ UNABLE TO SORT THE KEYS X0300162 RPG ERROR 063D @@@@@@@@ SLCT34 CALL STACKER SELECT IS NOT SUPPORTED X0300163iRPG ERROR 064D @@@@@@@@ ERROR CODE IN BUFFER IS WRONG FOR TAPE X0300164RPG ERROR 065D @@@@@@@@ NO VOL1 LABEL ON SL TAPE X0300165)RPG ERROR 066D @@@@@@@@ WRONG DATA SET NAME X0300166ljRPG ERROR 067D @@@@@@@@ TAPE VOLUMES MOUNTED IN WRONG ORDER X0300167RPG ERROR 068D @@@@@@@@ TAPE FILE NOT DEFINED BY MOUNT UTILITY X0300168 RPG ERROR 069D @@@@@@@@ WRONG VOLUME SERIAL NUMBER X0300169iRPG ERROR 070D @@@@@@@@ INVALID EXPIRATION DATE X0300170RPG ERROR 071D @@@@@@@@ FILE MANAGER ERROR IN READING MOUNT FILE X0300171)RPG ERROR 072D @@@@@@@@ UNEXPIRED DATE SET X0300172RPG ERROR 073D @@@@@@@@ NOT USED X0300173RPG ERROR 074D @@@@@@@@ COMBINED FILES NOT SUPPORTED X0300174IRPG ERROR 075D @@@@@@@@ OPEN02 FOUND FILE DEF AS NON SPECIAL DEV FILE X0300175RPG ERROR 076D @@@@@@@@ WRONG BUFFER SIZE CAN NOT BE USED FOR FIXED BLK X0300176 RPG ERROR 077D @@@@@@@@ BLOCKING IS IMPOSSIBLE FOR SHARED BUFFERS X0300177iRPG ERROR 078D @@@@@@@@ ERROR RETURN FROM SPEC. DEV DRVR, STAT= $$$$ X0300178RPG ERROR 079D @@@@@@@@ READ 10 FOUND FILE DEF AS NON SPECIAL DEV FILE X0300179)RPG ERROR 080D @@@@@@@@ UPDT25 FOUND FILE DEF AS NON SPECIAL DEV FILE X0300180RPG ERROR 081D @@@@@@@@ RECORD ######## WAS TOO LONG - RECORD IGNORED X0300181RPG ERROR 082D @@@@@@@@ CLOS36 FOUND FILE DE AS NON SPECIAL DEV FILE X0300182IRPG ERROR 083D @@@@@@@@ WRIT 18 REQUIRES FILES DEFI. AS SPECIAL DEVICE X0300183RPG ERROR 084D @@@@@@@@ NOT USED X0300184 RPG ERROR 085D @@@@@@@@ NOT USED X0300185iRPG ERROR 086D @@@@@@@@ NOT USED X0300186RPG ERROR 087D @@@@@@@@ NOT USED X0300187)RPG ERROR 088D @@@@@@@@ NOT USED X0300188RPG ERROR 089D @@@@@@@@ NOT USED X0300189RPG ERROR 090D @@@@@@@@ NOT USED X0300190IRPG ERROR 091D @@@@@@@@ NOT USED X0300191RPG ERROR 092D @@@@@@@@ NOT USED X0300192 RPG ERROR 093D @@@@@@@@ NOT USED X0300193iRPG ERROR 094D @@@@@@@@ NOT USED X0300194RPG ERROR 095D @@@@@@@@ NOT USED X0300195)RPG ERROR 096D @@@@@@@@ NOT USED X0300196RPG ERROR 097D @@@@@@@@ NOT USED X0300197RPG ERROR 098D @@@@@@@@ NOT USED X0300198IRPG ERROR 099D @@@@@@@@ ERROR AT LOCATION = $$$$ X0300199RPG ERROR 100D @@@@@@@@ NOT USED X0300200 RPG ERROR 101R @@@@@@@@ HALT INDICATOR H1 IS ON X0300201iRPG ERROR 102R @@@@@@@@ HALT INDICATOR H2 IS ON X0300202RPG ERROR 103R @@@@@@@@ HALT INDICATOR H3 IS ON X0300203)RPG ERROR 104R @@@@@@@@ HALT INDICATOR H4 IS ON X0300204RPG ERROR 105R @@@@@@@@ HALT INDICATOR H5 IS ON X0300205RPG ERROR 106R @@@@@@@@ HALT INDICATOR H6 IS ON X0300206IRPG ERROR 107R @@@@@@@@ HALT INDICATOR H7 IS ON X0300207RPG ERROR 108R @@@@@@@@ HALT INDICATOR H8 IS ON X0300208 RPG ERROR 109R @@@@@@@@ HALT INDICATOR H9 IS ON X0300209iRPG ERROR 110R @@@@@@@@ NO PRIMARY OR SECONDARY FILES ARE OPENED X0300210RPG ERROR 111R @@@@@@@@ SQUARE ROOT OF NEGATIVE NUMBER X0300211)RPG ERROR 112R @@@@@@@@ NOT USED X0300212RPG ERROR 113R @@@@@@@@ DIVISION BY ZERO X0300213RPG ERROR 114R @@@@@@@@ ARRAY INDEX OUT OF RANGE X0300214IRPG ERROR 115R @@@@@@@@ INPUT TABLE OR ARRAY OUT OF SEQUENCE X0300215RPG ERROR 116R @@@@@@@@ NO TABLE OR ARRAY DATA IN FILE X0300216 RPG ERROR 117R @@@@@@@@ TOO MUCH DATA FOR TABLE OR ARRAY X0300217iRPG ERROR 118R @@@@@@@@ SUBROUTINE RETURN STACK IS FULL X0300218RPG ERROR 119R @@@@@@@@ SUBROUTINE RETURN WITHOUT PREVIOUS EXSR X0300219)RPG ERROR 120R @@@@@@@@ END OF FILE FOR DEMAND FILE X0300220RPG ERROR 121R @@@@@@@@ RECORD NOT FOUND, KEY NOT IN INDEX FILE X0300221RPG ERROR 122R @@@@@@@@ RELATIVE RECORD NUMBER OUT OF RANGE X0300222IRPG ERROR 123R @@@@@@@@ RECORD IS OUT OF SEQUENCE X0300223RPG ERROR 124R @@@@@@@@ FILE OUT OF MATCHING RECORD SEQUENCE X0300224 RPG ERROR 125R @@@@@@@@ UNIDENTIFIED RECORD IN FILE X0300225iRPG ERROR 126R @@@@@@@@ TOO MUCH DATA FOR RECORD X0300226RPG ERROR 127R @@@@@@@@ NOT USED X0300227)RPG ERROR 128R @@@@@@@@ NOT USED X0300228RPG ERROR 129R @@@@@@@@ NOT USED X0300229RPG ERROR 130R @@@@@@@@ ATTEMPT TO OUTPUT TO FULL FILE X0300230IRPG ERROR 131R @@@@@@@@ DIRECT ACCESS RECORD NO. OUT OF RANGE X0300231RPG ERROR 132R @@@@@@@@ ATTEMPT TO UPDATE FILE BEFORE INPUT X0300232 RPG ERROR 133R @@@@@@@@ RECORD NOT FOUND WITH SPECIFIED KEY X0300233iRPG ERROR 134R @@@@@@@@ DUPLICATE KEY FOR OUTPUT TO FILE X0300234RPG ERROR 135R @@@@@@@@ DATA TRANSFER FAILED, CHECK DEVICE OR FILE X0300235)RPG ERROR 136R @@@@@@@@ FILE IS NOT PRESENT X0300236RPG ERROR 137R @@@@@@@@ FILE DOES NOT CORRESPOND TO DMPT DESCRIPTION X0300237RPG ERROR 138R @@@@@@@@ KEY MODIFIED BY UPDATE X0300238IRPG ERROR 139R @@@@@@@@ KEY OUT OF ORDER X0300239RPG ERROR 140R UNABLE TO CONTINUE DUE TO PREVIOUS ERROR X0300240 RPG ERROR 141R @@@@@@@@ ILLEGAL FILE TYPE FOR SETLL X0300241iRPG ERROR 142R WRONG PROCESSOR SELECTED. RUN SELMU, SELECTING OPTION 1X0300242RPG ERROR 143R INTERNAL RPG RUNTIME ERROR IN R9MVBX X0300243)RPG ERROR 144R @@@@@@@@ NOT USED X0300244RPG ERROR 145R @@@@@@@@ NOT USED X0300245RPG ERROR 146R @@@@@@@@ NOT USED X0300246IRPG ERROR 147R @@@@@@@@ NOT USED X0300247RPG ERROR 148R @@@@@@@@ NOT USED X0300248 RPG ERROR 149R @@@@@@@@ NOT USED X0300249iRPG ERROR 150R @@@@@@@@ ALL HALT INDICATORS HAVE BEEN DISPLAYED X0300250RPG ERROR 151R @@@@@@@@ NOT USED X0300251)RPG ERROR 152R @@@@@@@@ NOT USED X0300252RPG ERROR 153R @@@@@@@@ NOT USED X0300253RPG ERROR 154R @@@@@@@@ NOT USED X0300254IRPG ERROR 155R ERROR IN PARAMETER(S) PASSED TO SUBROUTINE SUBRFL X0300255RPG ERROR 156R ERROR IN PARAMETER(S) PASSED TO SUBROUTINE SUBRAJ X0300256 RPG ERROR 157R ERROR IN PARAMETER(S) PASSED TO SUBROUTINE SUBRMV X0300257iRPG ERROR 158R ERROR IN PARAMETER(S) PASSED TO SUBROUTINE SUBRIN X0300258RPG ERROR 159R ERROR IN PARAMETER(S) PASSED TO SUBROUTINE SUBRED X0300259)RPG ERROR 160R @@@@@@@@ NOT USED X0300260SPARE MESSAGE 261 X0300261SPARE MESSAGE 262 X0300262ISPARE MESSAGE 263 X0300263SPARE MESSAGE 264 X0300264 SPARE MESSAGE 265 X0300265iSPARE MESSAGE 266 X0300266SPARE MESSAGE 267 X0300267)SPARE MESSAGE 268 X0300268SPARE MESSAGE 269 X0300269SPARE MESSAGE 270 X0300270ISPARE MESSAGE 271 X0300271SPARE MESSAGE 272 X0300272 SPARE MESSAGE 273 X0300273iSPARE MESSAGE 274 X0300274SPARE MESSAGE 275 X0300275)SPARE MESSAGE 276 X0300276SPARE MESSAGE 277 X0300277SPARE MESSAGE 278 X0300278ISPARE MESSAGE 279 X0300279SPARE MESSAGE 280 X0300280 SPARE MESSAGE 281 X0300281iSPARE MESSAGE 282 X0300282SPARE MESSAGE 283 X0300283)SPARE MESSAGE 284 X0300284SPARE MESSAGE 285 X0300285SPARE MESSAGE 286 X0300286ISPARE MESSAGE 287 X0300287SPARE MESSAGE 288 X0300288 SPARE MESSAGE 289 X0300289iSPARE MESSAGE 290 X0300290SPARE MESSAGE 291 X0300291)SPARE MESSAGE 292 X0300292SPARE MESSAGE 293 X0300293SPARE MESSAGE 294 X0300294ISPARE MESSAGE 295 X0300295SPARE MESSAGE 296 X0300296 SPARE MESSAGE 297 X0300297iSPARE MESSAGE 298 X0300298SPARE MESSAGE 299 X0300299)SPARE MESSAGE 300 X0300300ILLEGAL LINE NUMBER ##### SPECIFIED X0300301NO PROGRAM ID ON H FORMAT SPECIFICATION X0300302IFILE @@@@@@@@ IS NOT AN EDITOR FILE X0300303AN ERROR OCCURRED WHEN BUILDING THE STATEMENT LABEL INDEX X0300304 ILLEGAL FILE NAME X0300305iINVALID FIELD X0300306INVALID NUMERIC VALUE X0300307)COMMAND NAME NOT UNIQUE X0300308INVALID COMMAND X0300309WRONG FORMAT TYPE FOR THIS FILE X0300310IINVALID FORMAT SPECIFICATION X0300311LINE NUMBER OVERFLOW X0300312 INCORRECT TAB STOP ORDER X0300313iINVALID RPG ARRAY DATA LINE NUMBER X0300314INVALID DELIMITER X0300315)DELIMITER MISSING X0300316CHARACTER STRING TOO LONG X0300317RESEQUENCE WITH A LOWER BASE AND/OR INCREMENT X0300318INO FILE OPEN FOR EDITOR USE X0300319©SAVRTN STACK OVERFLOW X0300320 SAVRTN STACK UNDERFLOW X0300321iSPARE EDITOR MESSAGE X0300322SPARE EDITOR MESSAGE X0300323)SPARE EDITOR MESSAGE X0300324ĉSPARE EDITOR MESSAGE X0300325SPARE EDITOR MESSAGE X0300326ISPARE EDITOR MESSAGE X0300327ũSPARE EDITOR MESSAGE X0300328 SPARE EDITOR MESSAGE X0300329iSPARE EDITOR MESSAGE X0300330FILE MANAGER ERROR WHEN OPENING FILE @@@@@@@@ ISTAT = $$$$ X0300331)COULD NOT LOCATE FILE @@@@@@@@ USER @@@@@@@@ X0300332ljFILE @@@@@@@@ IS LOCKED. TRY AGAIN LATER X0300333FILE MANAGER ERROR WHEN READING FILE @@@@@@@@ ISTAT = $$$$ X0300334 FILE MANAGER ERROR WHEN DELETING FROM FILE @@@@@@@@ ISTAT = $$$$ X0300335iAN ERROR OCCURRED WHEN INITIALIZING THE EDITOR ISTAT = $$$$ X0300336FILE MANAGER ERROR IN STATEMENT LABEL INDEX FILE ISTAT = $$$$ X0300337)FILE MANAGER ERROR WHEN UPDATING FCB ISTAT = $$$$ X0300338FILE MANAGER ERROR WHEN CLOSING FILE @@@@@@@@ ISTAT = $$$$ X0300339FILE MANAGER ERROR WHEN INITIALIZING SCRATCH FILE ISTAT = $$$$ X0300340IFILE MANAGER ERROR WHEN UPDATING FILE @@@@@@@@ ISTAT = $$$$ X0300341FILE MANAGER ERROR WHEN UPDATING FCB FOR FILE @@@@@@@@ ISTAT = $$$$ X0300342 FILE MANAGER ERROR WHEN CREATING SCRATCH FILE ISTAT = $$$$ X0300343iFILE MANAGER ERROR WHEN OPENING SCRATCH FILE ISTAT = $$$$ X0300344FILE MANAGER ERROR WHEN WRITING SCRATCH FILE ISTAT = $$$$ X0300345)FILE MANAGER ERROR WHEN CLOSING SCRATCH FILE ISTAT = $$$$ X0300346FILE MANAGER ERROR WHEN RENAMING SCRATCH FILE ISTAT = $$$$ X0300347SPARE EDITOR MESSAGE X0300348ISPARE EDITOR MESSAGE X0300349CLOSFL REQIND@@@@@@@@ X0300350 OPENFL REQIND@@@@@@@@ X0300351iDELETE REQIND@@@@@@@@ X0300352CREATE REQIND@@@@@@@@ X0300353)GETS REQIND@@@@@@@@ X0300354PUTS REQIND@@@@@@@@ X0300355GETFCB REQIND@@@@@@@@ X0300356IUPDFCB REQIND@@@@@@@@ X0300357VOLUME= @@@@@@@@ X0300358 FILNAM= @@@@@@@@, @@@@@@@@ X0300359iABNORMAL ERROR@@@@@@@@@@@@ X0300360BLKSIZ/RECLTH .NE. 1,2,3... X0300361)@@@@@@@@@@@@ X0300362FATAL ERROR X0300363DONE@@@@@@@@@@@@ X0300364ITYPE-IN ERROR X0300365EXPECTED @@@@@@@@@@@@@@@@@@@@@@ FOUND @@ X0300366 CANNOT OPEN INPUT FILE X0300367iTOO LITTLE CORE X0300368INTERPHASE RECORD COUNTS DISAGREE X0300369)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@X0300370PASSED@@@@@@@@@@@@ X0300371SEQ. DIR. ERROR X0300372ITOO LITTLE DISK X0300373OUTPUT RECORD COUNT BAD X0300374 INPUT FILE LENGTHS ARE NOT EQUAL X0300375iFN=@@@@@@@@,@@@@@@@@ X0300376OUTPUT FILE RECORD LENGTH IS ZERO X0300377)ADDROUT SORTS ONLY 1 FILE X0300378VOLUME @@@@@@@@ NOT MOUNTED X0300379START OF KEY FIELD OUTSIDE OF RECORD X0300380IKEY FIELD EXTENDS BEYOND END OF RECORD X0300381SYSTEM MESSAGE 0382 X0300382 SYSTEM MESSAGE 0383 X0300383iSYSTEM MESSAGE 0384 X0300384SYSTEM MESSAGE 0385 X0300385)SYSTEM MESSAGE 0386 X0300386SYSTEM MESSAGE 0387 X0300387SYSTEM MESSAGE 0388 X0300388ISYSTEM MESSAGE 0389 X0300389SYSTEM MESSAGE 0390 X0300390 SYSTEM MESSAGE 0391 X0300391iSYSTEM MESSAGE 0392 X0300392SYSTEM MESSAGE 0393 X0300393)SYSTEM MESSAGE 0394 X0300394SYSTEM MESSAGE 0395 X0300395SYSTEM MESSAGE 0396 X0300396ISYSTEM MESSAGE 0397 X0300397SYSTEM MESSAGE 0398 X0300398 SYSTEM MESSAGE 0399 X0300399iNO ROOM IN HOST FILE X0300400HOST NAME NOT FOUND X0300401)PARAMETER MUST BE ADD OR DEL X0300402DUPLICATE HOST NAME X0300403PROTOCOL TYPE MUST BE 200UT OR HASP X0300404IBATCH DRIVER BUSY ON THIS HOST X0300405JOB(S) PENDING FOR THIS HOST X0300406 SYSTEM MESSAGE 0407 X0300407iINVALID LOGICAL UNIT X0300408SYSTEM MESSAGE 0409 X0300409)LOGICAL UNIT ALREADY SET FOR THIS HOST X0300410DUPLICATE LOGICAL UNIT X0300411ILLEGAL TO DELETE LOCAL HOST X0300412INO ROOM IN BATCH FILE X0300413NO *JOB RECORD IN THE INPUT FILE X0300414 INVALID JOB NUMBER X0300415iINVALID OWNER IDENTIFICATION X0300416JOB ALREADY DISCARDED X0300417)FILE MANAGER ERROR IN ACCESSING THE BATCH FILE X0300418JOB NOT FOUND X0300419JOB INACTIVE X0300420INO JOBS TO PRINT X0300421NO SUCH HOST X0300422 SYSTEM MESSAGE 423 X0300423iOUTPUT NOT RECEIVED X0300424 * SYSTEM MENU * UTIL UT - SYSTEM UTILITIES iEDITOR ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILES MNUPRO DC - DAILY CYCLE, ON-LINE REPORTING AND PREPARATION )MNUPRO HS - HISTORY SYSTEM PROCEDURES MNUPRO MT - SYSTEM FILE MAINTENANCE ROUTINES MNUPRO RP - ON DEMAND REPORTING IMNUPRO RG - REPORT GENERATOR - REPORT DIRECTORY MNUPRO EX - EXIT P PR9RPRT DECK-ID R37 RPGII 2.1 SUMMARY-132@PT......@P+@P;@P @C@PPR9RPRTR9INTBR9CLIN R9HTIN R9VIND R9USNDR9MRINR9FCTR"R9STTS:R9HLFJ>R9REPT?R9RYST@R9ACC1YACC1BPYACC1ObR9AC1SR9AC2SR9AC3SR9AC1NrR9AC2NR9AC3NR9PPUPBR9UPOPaR9INRZ;R9INRP8 -Az .D`dzyezi$zTHz}} }}z{}|Dfz q{dzTz|| Tz|z|Tz| qhh hTHDYTYTHzzzzz?/dzzz#Ddz\S AT~zzzz|PFLTz|H ",T~zzzz|Tz|7 z:THz}}}}z{}|THz}}} }z{}|TIm h zT(||HEOUINPUEX{$$PGMNAM$$  UTIL IN READY READY  END UTIL (  UT H-h,TMTSh'\h&\h% L#"+{`: `  v  l` H,h+TMTSh&\h%\h$" ""h"hh ""h "h TH`2eh2fh2dhlllH TMTSh h h H+h*TMTSh"B+{!+{`: ` fz x  l` h%h#h! @y!    `y  L yL l hShONhMhI hKhChAhFBA8<A h< 6n; 6750QH h2 /*%W )t'n"$!n l #h  #h   hqhrhlkhjhc h\hZ h[hYBZ8RA hTBZ8LF"K#hI hPLN hGIC hD@ 8nB8:4QH h9 -1)W 0t%n)"(n$( l&#h  h l #h  h00 HQHOHMHKHI hGlE (?  a)9 n6  1 $:n/ 5n,B H-H-'$&QH h'" > <  l0  l )  *  W tnn#h h %  lװ#l l H&h%h)h$h""!   "l "lh T(`.K-J[EF Hhhh+{ " `"m  ` HM!"hG!dhFH5  j9 qTv}z4"Tv{z*!vTvz H H  -Xz H   #3T Xk H  Xu$$SYMSGF$$ SYSVOL \"Xm HE HXC  X\Xj H6 H X4  X/ H$X%B H X0 \ȵ" \` ȲX2whth \J h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :XӁB H"A HB0Fh  0XB y 00j qa! 1" hh! u  HTLD灎lHHSYSTEM MESSAGE XXXX X  X X h w `2 h h h h h h 1"! 1LK~7%JTZ"! 1gfedca`_^X}} hu hu hu hu hu hu؍"! 1-,+)('&%$# } du lu lu lu lu"! 1 } lu lu lu luܟ̞"! 1}} lu"! 1} 3du 4lu"! 1~}|{zyxwutrp 5ld̴ܵ"! 1`_^]\GZYXWVUCFQOM lAܒ̑"! 1 $;:9$7654 1 #., l l"! 1    d"" 2 l̴ܵ"" 2 &l &l l܇̆"" 2 l} /ly 0dt""# 2!lkjihSf dcba`OR][Y 6lM""I 2GFEDCB-@>=< :),753 7l'̲ܳ""o 2m   8l̉lT(΂H TMTShX\h|DX%X#X!XXXXXXXXXX X X XXXXXH2 H-3>72"4` aADe Daa AA a a Vh`HYhXX\X_hSX\hQ ` hOKhLKB0 hG0HFBCV Atm;;m75 2#h0 `()[0 m 0  m  ` #h  ` `FMPA04@FMPA05NFMPL07mFMPL11qFMPA12FMPL12rFMPA13FMPL13rFMPL14uFMPA15FMPL15oJFMPL17mFMPA19FMPL19r%DATBASO 2jSECON 2lCONTA 2mHORMIN2nTIMCPS<TODLVLPNSCHED2pTMRLVLLSIZV4PSIZV4ODBSIZvCHRSFG2qCOBOPS|bFMASK 2rQ8STP 2tNDISP MICSB22FBASV4PKEYV4RELFILT10 3T17 3AREAC 3ALCLGH89N1 bN2 3CWSEC0MICLENSMTSIMLMTSIMYBAITOSDATSEP/PRTCDR'R9SEGFLRGUSRRQLLIM RQULIMRETIMEFILOADOQPASWDWKSTATRMUOPNRMUCSWRMUCF0?RMUCFTRMUCLOR9MUX3LOOKTRMLUPTAPSETCPAREASTRBASMSIZV4MAXSECkSYSID tUBPROTLBPROT8CLRDASh$PWFAILPRLSECUgTSRFTNCTSBGINCsuNRERLE)JTOTMIN2oFMCOMP\QaSWPSECFSLIMT+STSBACK yTIMEC CHAIN IaXMREL BBREAK |wlCABS OALLIN O-TRVEC WDWADD d2UPTOD VURTN>CNDRIVhdCUCNSTh.TSMUSRNTSUSRTSEXITIpSYSYER78MI VkMOV WUSE Q8PREPM[TSMENDMJPCHGE*^FINDRQS)EFLOCKxqSCHSTK+JBCFGZWMPFLAGpFMCHKO^TSIPRCCeADNSWPATSLOFFRTNCORQhTSCLOKCkRCOVERiiUPLOWMP TSFMCPK4DISPXXLTSMMERKXCONSLUCONTCUe OUTPUTRCWSEC1BUSY CFMPL16pUCTABL"oFMPL18o-SELFLGh+MAXCOPLOBDTBDISABLABSRED%XBATCLUWFMPFLGSKALNDg*JBCNCLWUNPIOFWREDUCECOMFILPGMINTITSULBF?"pSYFAILCSTATSFMEXECZ`OFNSWPBMIDUMMYdRESTORbCNTTBL2vCOMPRQS{ONNSWPATSINTXUNPSRTWRITERJFUNSHRc~TSLUNTI&L1829 L1860 I18331dSGWSCHTOPLREAREQ?TSCHANIdSTRSEC#CLOSFLQSTRLEN9TSATCH@PGLUNTI#SYSLVL32MMAMAXCLRTCUhCNTWAR2uCYLTRKhGTNXUMBS1827 |cLIKDUMiDEVERRS*FIXONE7SETFNSg WRTBAKa7cCPTBLNTSCLLBCTSLCUPI4 TSVFTNC=JOBENTVOLUSEOPENFLSBATOUSYSCOP~FMBRRN_"jT15 UhPTNREL{FMSWAP\ tSWAPONRVTSUSCPJTN7 MPDRIVkN9 TAYERTO2dLVLSTR -R9TAPF,MMAT INPUT yQSMDGD1kCOPYQ zUMSAV PRENAMEDATFLGeNDELETEQ8PKUPSSEKCOMgBSEKDONgCPSENDySCHERRW(STMSV48JPOLCHKhNIPROCP0TIMSLC@wTSNABL>8PARTBL >LIBEDT5EFLISTNCMPRQS{1SMDGPRO P4ASC LRW NIDR56 xL18326JPT13 1SPL4 fCLEAR SEEK9 g:CPTBL uCOMM18JBCNFGWMCREATEMRECADaDATFMTREMLOK^fDCLOCK@CKUADR]FNSTACKTSTLOCTMRTHDUVERIFYCDUMMYdSECTORQCOUNTz=ETRMNLTUNPTIMWN14 mQMREADR TIME MAKQ SLOCF WBSMD f!CDRCP1{XMALC BERCHK THDS REQXT LR9MUX1R9MUX2MIBX V;R9MUX4R9MUX5R9MUX6WRITE xsPBAT01 READRC`"IDLE ,MASKT EDLIBET WPGMIN HMMREL CMSPACE 3SABS O4ECORE RRDISP L/IDRCP1xDOUTEQ TK7RW FMPA10FMPA11TRANV WXMATR FMPA14SPASW WFMPA16FMPA17FMPA18SPACE4ROFMPL10uMTBFS0,MTBFS1 DWSUB dXS18326P83310`FILE4 WINPEQ CPREL KUNFIX ?RCTV LMINTO 2kFMPA01SYSMSG(LUNEQ UPDFCB`TSMFLG>=OFNXUCBF#TSPMCKC>WTREADHATTACHI:TSLLSBITSXERRI\ PGMOUTImTSLICEJTSIOC1JcCPSET LCPADD L?MONI LT9 MN_T18 MN T19 M:SAVLU NT14 ONNABS OVOLR POFVOL PICORE QT12 RRSWAPCKRADEV SALTDEVSLALTSUBUSTIMEUPUDTMER UDTIMERUfJOBSTRVJOBINDWUNPIO WRECOV WPRORETWTRNVDRkNSTATSUNLOCKckCERROR|AMONTO2eINVINT.CLFRIO^TSPMINHGETVITWKSPLUT16 O_INIPRT.TSCKMUC EXTSTK@OVFVOLP9CCP DMOVER ~DAYTO 2iM1811TLISMD dCPCHK KMMALC CCLINE ALVOL PFLIST 2sPORTS ?AUTON PWFOV PSPCEV4SETBNDK{BINASCCWLGT0LCWLGT1CNWAREJLLUV42STLPV4R%LNDISBMOVEL ~&CPFET LnPARBV4WMT25U0SWTCH WNMONI LCPMOD KXMRTN BJBFLV4DOUT PARAMEOjEFDATAREQALCPSQUEUP zVECCALGiDWMUL dcFMSAVAJPFLV4TMASCONCOMPV4WINPTV4WINTRIEPORTS CONVERTSYUTILNXTVOL}UTSTRTYL000 ,C18331dECXIT jFILE2 WCCPLU TODAY }WCONT yEND0V4>7MMEF ZDONE dCPDEF KMMSIZ }oESMD eGETS YERTO 2gNAMEV4MTMINT UhCI1811ZMINT VkLOOP R]JPSWT WPUTS QSAV PMT50U0MT50U1S1811TLUABS OjNFNR SJKIN WAUTF9 WHXMMOD BNOG30ARiAFILV4[ODEBUGwREDLAB}sTSIOC2JMMREAD]/CKTHRDO.yMASERRJBPROERE>;USKNPGiTSWSECCDENXUMB[TSCKPMCEFSTORCOMSEK}UNPTBLDK~SEKVIT}@EXTREGKgB20 f/AMINTXW*EMPSRT,SYSDAY28SWAPARBQIN z>WMASDRVRPMASKO(TERMCK2TSTASK>@LOKFILPLENTH ALMERRfPXMBLOK>>TSOFFMWANTDRf DENSWPBTONNXUCATSATTCI=PTYERRPATSACTV>9CLRSKNgOT0 NT1 NT2 NONNXUMAT4 N%T6 NLSTPRTT8 UhFMUTEX{wLTSUSRFMTEXyTSABL|SYMSG|UTTRT|nCLSFL|SOPNFL|BREDR |MCOSEK{INEQ |OUEQ |GEFLD|WTEAD|PGINT{PGOUT|PGIN |pQ8KUP}HQ8REP}EMMUTB}RQ8KUP}{Q8REP}xQ8KUP}Q8REP}AMNTO}ADYTO}AYRTO}Q8KUP}Q8REP}MMUTB}SYMSGMMUTBTEMLUkREDR KCLSFLTOPNFLBTSREAPGUNTCLSFLOPNFLTLUAMEQ8KUPQ8REPSYMSGzEN0V4CC 8KUP8REPFMPA02XMRSV BLPTRS WQOUT zTFMPA06fFMPA07nFMPA08qFMPA09sASAV PUFMPL01ogK65CORFMPL03rFMPL04qFMPL05uFMPL06oRELFLEWKFMPL08mFMPL09q+DUMMY1DUMMY2DUMMY3DUMMY4 UNPENDJPSTV4FRELS1AWTCOMPLFMULODyCLRACRh6UNLFILSLICERCrTSLMSBITSCNAC>:SORDERHUERRMNUMLU NXUM JPRET1WCARDRDOXMESAGEzGETFCBGETFLD~SMDCPAkU2INITFMUFCB^SMDCPGk]VOLENDOUTPV4DELREC3LUNAMEONTIMEMICSECDENXUCBbEFCOVLJPRENWzABSPAR\nUPDRECEXPIom ` ` ` ` `````%fw$f0#e|"d!c c@bv``` ````` ` ` ```````` ``a````````2```XLOADhHXvYy>7{w&88 D Y AF8FUQ6[0123456789ABCDEFq :Biv%vY Nd@y6 `&8=8REPFMPA15FMPL15oJFMPA16FMPL16pFMPA17FMPL17mFMPA18FMPL18o-FMPA19FMPL19r%FMSAVASTRSEC#STRLEN9DATBASSWAPARB B* @`@tM*RwO˂Fb{^ X0?@`#7 P+O@C H? ?`a A4a9 a: a>afae/]    T AA e" !14;E+H jAYc O e #D asAtthT` + ‘s hiheXaeAfa aoma/y Aa-X 4-Th `efTWva 10Q6 X2X af (X E XP aa9 XI1**E*T a 3 Q6X aX ENTRY POINT TABLE - Xg X ***COM Q^ X ***DAT Q^lRA A. a a }|0Cda- c A: a a a .. a.ѐv aH- 4|a h- Xg! X`QZ 4XYn  43b4b A9 "X 9"9XX X  (&$" (cB aaaXB0A B(aa?*PAGE E *PAGE9htsH h p4{d=dІ^z{_u}Tz d Sb\zzzH] . l AP\z l 7F\׆zb l -< d #. l &  l̹  l\zb\zT_zT_Gz̞ T(φ`z 2z z"\Նz\zʆz\ܟ†z\٠_z @ HH *K,P7 MON *CATLOG *LIBEDT *COBCAT *K,I8,P8 *P,F,2 *K,I8 *N, *Z *Z *L, ,,,BR C  A *V,7 ,*Z h hȊf (1 ! h hh hn 1 ! hȼhȷ hȲ hnة 1ޘaژ]Tz{Tz{ȕ h\  ! d $df 1k 5 \z{ ln 1M  !PJ K" 8 % #"dd"ll dT Dd l  dT 6 2HTMTSh\h\h\h/h. h,hh!4 A hHh h A hӨh  Јnh ÈnػػHTMTS h\h\h\ h\h H hTMTSh\hBLH   B ` T)( ? dz lTHz[zn[z{\rd_ @m do lp 1 l\z[z{\[zqr dzdzT~zzzzƆvv 2. !YUz " l̩u  r l_̛t O @^m }E dtΛdx $z lzy d_ @m  'dm dp doܜ  @mܩ 3l̟lŜ  @mܒ , lydnydsT~&zsn l  z ") dtΗ ! ΑLZ ^ ̝ |dz}dz~dzdzdzdzdz dz dz dz dz{dzTzzww "{lTzʆx]w !|z{H5$h300d  hd{,dx dJOB NO. =  = $$HOSTSYSVOL BATCH hd`dzhhhdadbh h hTI hzkn  h fzffWzffofzص 1 !j+Ȩh ( hŨ XȞ h hȞfzȕhȖ9ؔQn؊Ȉd d!lΞd / $ ldzydzdz lTHz^z^z{_udb @m d l 1 l\z^z{_^ztu dzdzT~zzzzƆyy 2. !YUz " l̩x   l^̛w O @am }INPUT FILE= OWNER NAME= VOLUME = HOST = TYPE= PROG. NAME= MODE A/R = d JOB NO.=J00  nܩ 3l̟lŜ  @mܒ , lydydvT~&zv l  z "~A dΗ ! ΑL] a ̝ dddd*RPGII*ASSEM*FTN *COBOLNO - ID.pLOCLR  = C N A $$HOSTSYSVOL 0 *JOB*K,P2 F BATCH o hd`dzhhhdadbh h hhhh_dhhTIڠ hئzIn  h fzfffzfffzfvfF؅ 1dzdzd !m1d $ dΦ V d dfzl8nl dlbl - $ ldzydzdz lTHz^zІ^z{_ųl @mܟ d l 1 l\z^z{_^ztu dzdzT~zzzzƆyy 2/ !ZVz " l̪x   l[̜w P @am @ dbd $ lzy l @m  'dV d dݜ  @mܨ 3l̞lƜ  @mܑή , lydydvT~&zv l C  dzz l"7 $%$ z  z " db ! L] a M d̪ ̩l̢ldz l ̮lddddddd d=d dTՇzz "TՆ{z "TՆz ",d d dd!{z Дz Cl d, d ,dd!"ΩL ΡH ΙD Α ) d l l lTDFldD{dz dz dzdz dzTzzzz "zd ldTzz{z "l{ >p4{d=dІ^z{_u}Tz d Sb\zzzH] . l AP\z l 7F\׆zb l -< d #. l &  l̹  l\zb\zT_zT_Gz̞ T(φ`z 2z z"\Նz\zʆz\ܟ†z\٠_z @ HH *K,P7 MON *CATLOG *LIBEDT *COBCAT *K,I8,P8 *P,F,2 *K,I8 *N, *Z *Z *L, ,,,BR C  A *V,7 ,*Z h hȊf (1 ! h hh hn 1 ! hȼhȷ hȲ hnة 1ޘaژ]Tz{Tz{ȕ h\  ! d $df 1k 5 \z{ ln 1M  !PJ K" 8 % #"dd"ll dT Dd l  dT 6 2HTMTSh\h\h\h/h. h,hh!4 A hHh h A hӨh  Јnh ÈnػػHTMTS h\h\h\ h\h H hTMTSh\hBLH   B ` T)( ? adbh hhTIvt hzdn  h fzzfzػ 1 !i)Ȯh ( hͨ WȤ h hȤfzțhȜ8ؚQnؐȏh dq"udwΧd{ / $} l|dzydz~dz lTHz^zq^z{_udb @m dr ls 1 l\z^z{_^ztu dzdzT~zzzzƆyy 2. !YUz " l̩x  u l_̛w O @am }E dwΛd{ $} lzy db @m  'dp ds drܜ  @mܩ 3l̟lŜ  @mܒ , lydqydvT~&zvq l  z ", dwΗ ! ΑL] a ̝ dzdJOB NO. =  = $$HOSTSYSVOL BATCH hd`dzhhhdadbh h hTI hzkn  h fzffWzffofzص 1 !j+Ȩh ( hŨ XȞ h hȞfzȕhȖ9ؔQn؊Ȉd d!lΞd / $ ldzydzdz lTHz^z^z{_udb @m d l 1 l\z^z{_^ztu dzdzT~zzzzƆyy 2. !YUz " l̩x   l^̛w O @am }D dΛ9d $ lzy db @m  'd d dܜ  nܩ 3l̟lŜ  @mܒ , lydydvT~&zv l  z "~A dΗ ! ΑL] a ̝ ddddddd d dd d{dTՇzz " dzdTՆ{z " dzH$h(%d l{!     ΰLd dΦHl lΞDl lΖl ldpdqdrdsdtdxdydz d|d} d~TXpzz "TXzz "z  dz  1TXz " \Xz "  lM  lG  l  l   3 lzdzzdzdzdz+{ "dzdzdzdz\zʆzTzzzz !E" 9 &̞@m@m@m@mTՆ{z 1-Tz\z[\zz d l lT(`z 2z z"TՆz @ HH TU( ? zH$h(%d l{!     ΰLd dΦHl lΞDl lΖl ldpdqdrdsdtdxdydz d|d} d~TXpzz "TXzz "z  dz  1TXz " \Xz "  lM  lG  l  l   3 lzdzzdzdzdz+{ "dzdzdzdz\zʆzTzzzz !E" 9 &̞@m@m@m@mTՆ{z 1-Tz\z[\zz d l lT(`z 2z z"TՆz @ HHHOST NAME = OPTION = PROTO TYPE = = $$HOSTSYSVOLDEAD20HALOCL hd`dzhhhdadbh hLhTIzx hz`n  h fzzfzؼ 1 !j*ȯh ( hͨ Xȥ h hȥfzȜhȝ9؛Qnؑȏh du"yd{Φd / $ ldzydzdz lTHz^zu^z{_udb @m dv lw 1 l\z^z{_^ztu dzdzT~zzzzƆyy 2. !YUz " l̩x  y l^̛w O @am }D d{Λd $ lzy db @m  'dt: dw dvܜ  @mܩ 3l̟lŜ  @mܒ , lyduydvT~&zvu l  z "0 d{Η ! ΑL] a ̝ dzdzdzdzdzdzdz dz dz dz dz{dzTzzzz "{lTzʆ{dz "zb!{,d ld!{z Δz '{ ld=w θ  sdtz{ +f|nnnTzʆ{zz !^̥${l ld=Χ 뜩 ̬{̾ l`ͤ N{ҔK d~!L 9ξH 2ηD +ΰ %w{nn f|Tzzs dt l l l l lT(t`z 2z z"Tzʆz @ HH7 T( ? 1 dJ dT dU  1 1 V 0| d h  lp4Qd],dd^ 0 0dFdSY l fz 1{dz lf 1Tzʈ "Tzʉa^ +R #TzzdW l?̕ $X dIT"Ia;|ά Tzʆ "Tzʈ̻ " l n 1 dlln 1\zʈ̚ "Y d>Tzʆ= "OlHd]dd^$Qd? Bldd̕ l̒`mTzʆ "\zʆ "3 d| fz 1{dz lf 1Tzʈ̠ (\  Tzʉa^̏ +̌R &Tz!zdW l≯ $X dIT"Ia;ܬ dHOST NAME =LOGICAL UNIT = = $$HOSTSYSVOL  hd`dzhhhdadbh hhTIvt hzdn  h fzzfzػ 1 !i)Ȯh ( hͨ WȤ h hȤfzțhȜ8ؚQnؐȏh dq"udwΧd{ / $} l|dzydz~dz lTHz^zq^z{_udb @m dr ls 1 l\z^z{_^ztu dzdzT~zzzzƆyy 2. !YUz " l̩x  u l_̛w O @am }E dwΛd{ $} lzy db @m  'dp ds drܜ  @mܩ 3l̟lŜ  @mܒ , lydqydvT~&zvq l  z ", dwΗ ! ΑL] a ̝ dzdzdzdzdzdzdz dz dz dz dz{dzTzzzz "{lTzʆ{`z !|z{H5$h300d  hd{,d{ dwd!{z νz  o dpP '| 9 6 dzd: -nڤnTzʆ{zz 1'Tzz̺ l ̶ l̲ l̮ lT(p`z 2z z"Tzʆz @ HH T( ? J000 PAUSE  JOB NO. = HOST NAME = LOGCAL UNIT=  = $$HOSTSYSVOLSUMM  HASPLOCL200UT  0 hd`dzhhhdadbh h hd"hhTI|x hعzgn  h fzzfzئ 1 hwfzzؚ 1 !l.ȋh ( hμ Z} d dfzl8'nl duOPTION = LIST NAME = $$PRINT $$ $$HOST $$  $$ $$ PP{z "V{d|dd dd{̿H$h+̹؈(d d d}{!    tzLdHlDl鬓lzw z } l dTzʆ{:z *H] V{d|d l l l{} !΢L  UdΗLlΏH  hlzHdD  ylDl  lݬlܴ{dzTzʆ{:z "V̡,d d ld!{z γz }{lΥdd dl d l l "zL  dLdH  lHlD  lDlܱɬ  llܓz azw z :l l ddddddTzʆ{:z̏ *̌H] V{d|d}dHdT܈ddl  ldd!ќ ɜ lllllllllz  d}{ "zL L L L = PR00 JI hdedhhhdfdgh h+{ "ddddddddhTIFD d|zwn  l fzzfz 1 !k+Șh ( lγ Y h hȍfzlȅ9JVnܿGl dA!ElΌYl 0 $L lKdzydzMdz lTHzczAcz{dzdg |@m dB lC 1 l\zcz{dczyz dzdzT~zzzzƆ~~ 2. !YUz " l̨}  E l]̚| O @fm }C lΛYdJ $L lzy |dg @m  'd@ dC dBۜ  @mܩ 3l̟lĜ  @mܒ , lydAyd{T~&z{A l  z " lܘΘ ! ΒL] f ̞ Tz{; ; 2zNuzOd d| n 1{dz l}f 1Tzʈ~ "{dTzʆ= "OlHd]dd^$Qd? Bldd̕ l̒`mTzʆ "\zʆ "3 d| fz 1{dz lf 1Tzʈ̠ (\  Tzʉa^̏ +̌R &Tz!zdW l≯ $X dIT"Ia;ܬ d` Tzʆ !^Tzʈ !t l |n 1 dln 1\zʈ~ !UOlHd]dd^$Qd>Tzʆ=̱ !8ZddTzʆ̢ !)\zʆ̛ !"nTzh ?d@} l l lT(@\@^ z dE\܆E \@eTzʆ @ HH;H,TMTS""h%TS" ""h Hh"h TS""hTLMDL T( ? d^$Qd? Bldd̕ l̒`mTzʆ "\zʆ "3 d| fz 1{dz lf 1Tzʈ̠ (\  Tzʉa^̏ +̌R &Tz!zdW l≯ $X dIT"Ia;ܬ d` Tzʆ !^Tzʈ !t l |n 1 dln 1\zʈ~ !UOlHd]dd^$Qd>Tzʆ=̱ !8ZddTzʆ̢ !)\zʆ̛ !"nTzh ?d@} l l lT(@\@^ z dE\܆E \@eTzʆ @ HH;H,TMTS""h%TS" ""h Hh"h TS""hTLMDLNOT SENTBEING SENTSENTOUTPUT RECEIVED PRINT REQUEST JOB ABORTED DISCARD PENDING, JOB BEING SENT DISCARD PENDING, JOB SENT JOB NO. HOST STATUS NAME LU TYPE INACT QUEUED SENT RECD PRINT ABORT J000 PAUSE  JOB NO. = HOST NAME = LOGCAL UNIT=  = $$HOSTSYSVOLSUMM  HASPLOCL200UT  0 hd`dzhhhdadbh h hd"hhTI|x hعzgn  h fzzfzئ 1 hwfzzؚ 1 !l.ȋh ( hμ Z} d dfzl8'nl du ylΒl . $ ldzydzdz lTHz^zu^z{_udb @m dv lw 1 l\z^z{_^ztu dzdzT~zzzzƆyy 2. !YUz " l̩x  y l\̛w O @am }B d}Λd $ lzy db @m  'dtw dw dvܜ  @mܩ 3l̟lŜ  @mܒ , lyduydvT~&zvu l  z "V d}Η ! ΑL] a ̝ dzdzdzdzdzdzdz dz dz dzdz{dzTzzzz "Vzz"_  |dd ddTzʆ{z "V{d|dd dd{̿H$h+̹؈(d d d}{!    tzLdHlDl鬓lzw z } l dTzʆ{:z *H] V{d|d l l l{} !΢L  UdΗLlΏH  hlzHdD  ylDl  lݬlܴ{dzTzʆ{:z "V̡,d d ld!{z γz }{lΥdd dl d l l "zL  dLdH  lHlD  lDlܱɬ  llܓz azw z :l l ddddddTzʆ{:z̏ *̌H] V{d|d}dHdT܈ddl  ldd!ќ ɜ lllllllllz  d}{ "zL L L L L L L H H ιH βH ΫH ΤH }ΜH zD D D D D D D Ǭ  λ ε ί Ω }΢ 'd{dzTzʆ{:zz "V{,d ld?{z z ̌ldd|Hdd d ddddddŒ l̠ l dzTƬ dlll\ʬ dlll\؈ͬ dlll\ňЬ dlll\Ӭ dll̳l\פ dll̟l dz zzw  19 duTz{''edRl  lf dTi'f l\'  l lTHz^u^z{_u" l\z^u^z{_u "CT쉑ldz dzdzTHz 2dz[{ a p d zzw  1$ 3 l duTz{''edRlTi'u  l lTHz^u^z{_u" dn (1dddd̔"> + (5BOUbon dQf 1 lk lUn 1 du\ lZn 1 lN l\n 1 l@ ldn 1 l2s dt lknܫ 1 l lqnܝ 1 l ln܏ 1 l lz zzw  1 du7fHfI dTi'I\THz^u^z{_u" 2K\z^$#^ztuT_z l d8Tzz!s dt l ?l l l l lT(t`z 2z z"Tzʆz @ HH $$BATCH SYSVOL h jzj 1hhhhhhhh hh hhTґ ! Tґz ! hz ؿ 1 dz lȲlTґH THQLPQMNO HTMTSh Hhhhh hT`D@ T( ?  l d8lldzdzdzdzdzdzdz dz dz dz{dzTzz~~ "{dzTzʆg~ "{,dd dd!z z   d\ш~̿ "|z{ _ d Ō d lǜ 1: ddL- 8 llιH + llάD  llΟ Tzʆ~~ "dT ldTш~ "|h+H$!%d ¨hH,d" d#  l d8lld$ %%݌l "" 9 &"! @m @m @m @m& ф{ d' ld5 n7T~\~z dT(dz 2(z z"Tzʆ~\ц~ @ HHz Hihf`hc DjH qXhUS jJQȠ jE HKL HJ AHDHED h3TQ1,h&+h%3* 1L ) h+T#(! l l @T(" 3h!@  " 2a"a ! A%dada`hdbdbh@!Ha"! B  2ADa a`JOB NO. = OPTION = NO. CHARS = START CHAR =OUTPUT VOL.=OUTPUT FILE= = PRIN$$HOSTSYSVOLBATCH  MOVE hd`dzhhhdadbh h hyhTIщ hzmn  h fzfQffzfffYfzf}ئ 1 hwfzzؚ 1 !l/Ȍh ( hα Z d dfzl9nl d lbl - $ ldzydzdz lTHz^zˆ^z{_ul @m d l 1 l\z^z{_^ztu dzdzT~zzzzƆyy 2/ !ZVz " l̪x  ̐ d\̜w P @am A dbhd $ lzy l @m  'dg d dݜ  @mܪ 3l̠lƜ  @mܓή , lydydvT~&zvzz/ l̹  z "p db ! L] a ̑ d~dddddd d d dTzʉ~zz "Fddddd+{ "dddd̿dddd ddd\Rz̿ "K d|zd}Tzʆ{|z̪ "FzH$h+(d d d  " ' , 1WzL ] d H ] lD ] l ݬ ] l\Rjzz "K doz d 1zz≯  @m̭  @m̢  @m̗  znTzʆ{z "Fzy̸̹azdzdd d d d{dTՇz̽ "O dz}w zz 1 1 d dxhT~zTxt "ku l l\z{\xv "k l PdwzdZzd[zd\zd]pd^qd_rd`sdazdbzdczddzde llll̾df dg{dh diTZzz "S d f 1 l l lTZz "S -TՈzH]  !n̽ l dTu w dT z̳ !XzwTՆzTՇz̟ !@  @m  @zm  @m  @mTzʆ{z 14Tzz!\zU\z\z d l 4l lT(ʆ`z 2z z"Tzʆz\Rz\z\Նz @ HH^HHTMTShETS""h>TSh>TS""h7TS""0/ a1*+XX "%4"Xh3XX  ` Hihf`hc DjH qXhUS jJQȠ jE HKL HJ AHDHED h3>T1,h&+h%3* 1L ) h+:TY(! l l @T(XM 3h!@  " 2a"a ! A%dada`hdbdbh@!Ha"! B  2ADa a` T( ? z z"Tzʆz\Rz\z\Նz @ HH^HHTMTShETS""h>TSh>TS""h7TS""0/ a1*+XX "%4"Xh3XX  ` Hihf`hc DjH qXhUS jJQȠ jE HKL HJ AHDHED h3>T1,h&+h%3* 1L ) h+:TY(! l l @T(XM 3h!@  " 2a"a ! A%dada`hdbdbh@!Ha"HOST NAME = DAYS OLD = $$BATCH $$ SYSVOL  = - $$HOSTSYSVOLJ0 0 m hddd~hhhdedfh hhTI hؿztn  h fzzfzج 1 !j,ȟh ( hͨ Xȕ h hȕfzȌhȍ:؋Vnl d lΥl / $ ldzydzdz lTHzbzbz{cydf @m d l 1 l\zbz{cbzxy dzdzT~zzzzƆ}} 2. !YUz " l̩|   l^̛{ O @em }D dΛd $ lzy df @m  'd d dܜ  @mܩ 3l̟lŜ  @mܒ , lydydzT~&zz l  z " dΗ ! ΑL] e ̝  d d hUz{ T~z{ T͆~ " f"2ih<2hh9  l d8lldzdzdzdzdzdzdz dz dz dz{dzTzz~~ "{dzTzʆg~ "{,dd dd!z z   d\ш~̿ "|z{ _ d Ō d lǜ 1: ddL- 8 llιH + llάD  llΟ Tzʆ~~ "dT ldTш~ "|h+H$!%d ¨hH,d" d#  l d8lld$ %%݌l "" 9 &"! @m @m @m @m& ф{ d' ld5 n7T~\~z dT(dz 2(z z"Tzʆ~\ц~ @ HHz Hihf`hc DjH qXhUS jJQȠ jE HKL HJ AHDHED h3TQ1,h&+h%3* 1L ) h+T#(! l l @T(" 3h!@  " 2a"a ! A%dada`hdbdbh@!Ha"! B  2ADa a` T( ? VOLUME-NAME=NO.OF.FILES=DISK-UNIT = VOLUME= 00 =  01  `h h h dhhhhddhhhhh hhhhh/hhTI%! hغzn  h fzzfzا 1 !k-Șh ( h YȐ h hȐfzȇhȈ&:*n'l d "lΗl / $- l+dzydz.dz lTHzzz{Æd @m d l 1 l\zz{Çz؆ dzdzT~zzzzƆ 2/ ![Wz " l̩  " l]̛ Q @m B d&Κd* $- lzy d @m  'd d dۜ  @mܧ 3l̝lĜ  nܐο , lydyd"ΌI T~&z d0T~z0 l̳  z " d& ! L]  z}Hr$1hpmmd B+{h42 "+{`h& hhhHhhDh h ^hTH^4l `d_T}h5 dnT.$/]o]\]/o/\$/]p/l\$/]o]\]/o/\ۇ$/]p/dq`hD dT~&zꆿh8 ld0 &T~z{0#ddTm #  6l74d| 4dz8 T(" l dt hdy d9lp "?@lh h TLb d&_f 1THzz{Æ\zz{Çz؆ dzdzT~zzzzƆz 8 d`hT~&zꆿ d > /d /l 0lT(z 2Cz z" @ HHI h h l h 1 H TMTSh\hh!@  " 2a"a ! A%dada`hdbdbh@!Ha"! B  2ADa a` Hihf`hc DjH qXhUS jJQȠ jE HKL HJ AHDHED h3TN1,h&+h%3* 1L ) h+T (! l l @T(ߋ 3/h. h,hh!4 A hHh h A hӨh  Јnh ÈnػػHTMTS h\h\h\ h\h T( ? S I A D^hTL h hh> "?@lh h TLb d&_f 1THzz{Æ\zz{Çz؆ dzdzT~zzzzƆz 8 d`hT~&zꆿ d > /d /l 0lT(z 2Cz z" @ HHI h h l h 1 H TMTSh\hh!@  " 2a"a ! A%dada`hdbdbh@!Ha"! B  2ADa a` Hihf`hc DjH qXhUS jJQȠ jE HKL HJ AHDHED h3TN1,h&+h%3* 1L ) h+T (! l l @T(ߋ 3/h. h,hh!4 A hHh h A hӨh  Јnh ÈnػػHTMTS h\h\h\ h\h T( ? S I A D FILENAME FILEDATE FILE RECORD START RECORD EXPIRE MAX. STATUS S/A TYPE LENGTH SECT. COUNT DATE  RECORD S I A D &v@F  =  Y N / 0 % hd]dwhhhd^d_hhhhh h hhTI }z hؽzn  h fzzfzت 1 !j,Ȝh ( hǨ Xȓ h hȓfzȊhȋ:؉~nl dt {lΟl / $ ldzydzdz lTHz[zt[z{\rd_ @m du lv 1 l\z[z{\[zqr dzdzT~zzzzƆvv 2. !YUz " l̩u  { l^̛t O @^m }D d~Λd $ lzy d_ @m  'ds dv duܜ  @mܩ 3l̟lŜ  @mܒ , lydtydsT~&zst l  z "E  d~Η ! ΑLZ ^ {dz `dz dz dz dz` ' jl la ' l lb ' l l"= * :8Tzzww "T}@zꆊy T}sy dzTzzs{w !"Tzʆw "i d\zꆊy \ׇy\zzꉇ{w̻ ,̳LZ =̬ "{ j 4 0 d~z{2  1 d|yT}Ήy 2 d dxl !z  lzn 1̸ ̵  lν ܳ 1{ulfl{Z ̡ gl d  lj"= *   dw{{HhT{{Hh\򇍈d̵ l{o  d~f{n 2{r  lf{q 2x "dydx ll dhhh+w`hhTHBd l! ,h  ,hTܒ\xxܻ 1T\ȄdSȄdTȄdUȌdVT}/hShPzdz rl T9z d d  l lkd!d&d'd(d)d.Hhd/ /d0d1TC!mȄdAȄdBȄdCȄdD\߉3FILE-NAME =VOLUME-NAME=EXPIRE DATE=FILE TYPE =RCRD LENGTH=NUMBR RCRDS=KEY1 LENGTH=KEY1 POSITN=KEY2 LENGTH=KEY2 POSITN=KEY3 LENGTH=KEY3 POSITN=KEY4 LENGTH=KEY4 POSITN=SCTR ALGNED=%SYSVOLK1 = N O R @D 12319901 hd]hhhhd^ h d_hhhdhhhhhTI hغz n  h fzzfzا 1ȣdzȡdzȟdzT}||d{o}d{p~d{q ζ ( dy l n 1 l̽ !l0d $ l΍  d dfzl8nܾl d̯l_l - $ ldzΥdzdz lTHz[z[z{\rl @m d l d 1 l\z[z{\[zqr dzdzT~zzzzƆvv 2] "Az " l̥u  ̳ lX̘H ) @^m $ ly dLZ  ܓ_ !YL  l쬼d , lz l l @myϬ  Ed d dH Α , lΖ l @mܒ̡ 3̝l l̲H  @e_d $ dydyds{hH$ "~&H"! 10NMLKJIHGFT~&zs{T~zst d\zT{y szf"^ l\z\{y hs`yzaDd`>^  zzzl!ZdRldRlڔ d"! 1,6FEC̯H 7h6z 25 2T}|z~ " !0z| !! !z} 62֔؜;8ʜ5Μ2 d̾H ̶H  ̱H  ̬H  d l lzdy  ""q !m "eHh ̲ Zv̧ Td M !H̽ !`B =̶ 9̮ !4̫ l̥h̠ !A#zH 8H 2H +H %H  EdT&]z z  lc d_ ^ 9{dzhTzz⨁ &T~zzd d n 1lzdz l dz dzTzz⨁ %\ըz d{od|{pd}{qd~Tzʆ{̶ %\zxlllT}|d{rd{sd{td{uTzʆ{̑ $\zT 5$ EdC d7fp4{dTzʆLZ  2RT~zTzʨ 2x\z  El FlT&]z 2z z"\zʨ @ HH h h l h 1 H TJTPh\hh!@  " 2a"a ! A%dada`hdbdbh@!Ha"! B  2ADa a` Hihf`hc DjH qXhUS jJQȠ jE HKL HJ AHDHED h3oT1,h&+h%3* 1L ) h+kT(! l l @T&~ 3 T ( ? CLOSED OPENFILE-NAME =OWNER-NAME =VOLUME-NAME=PAUSE VOLUME: DATE AVAILABLE SPACE ON VOLUME SECTORS LARGEST BLOCK IS FILENAME OWNER FILEDATE FILE RECORD KEY1 KEY1 KEY2 KEY2 KEY3 KEY3 KEY4 KEY4 START RECORD EXPIRE MAX. STATUS S/A TYPE LENGTH LNG POS LNG POS LNG POS LNG POS SECT. COUNT DATE RECORD FILENAME FILEDATE FILE RECORD START RECORD EXPIRE MAX. STATUS S/A TYPE LENGTH SECT. COUNT DATE RECORD S I A D &v@F  =  Y N / 0 % hd]dwhhhd^d_hhhhh h hhTI }z hؽzn  h fzzfzت 1 !j,Ȝh ( hǨ Xȓ h hȓfzȊhȋ:؉~nl dt {lΟl / $ ldzydzdz lTHz[zt[z{\rd_ @m du lv 1 l\z[z{\[zqr dzdzT~zzzzƆvv 2. !YUz " l̩u  { l^̛t O @^m }D d~Λd $ lzy d_ @m  'ds dv duܜ  @mܩ 3l̟lŜ  @mܒ , lydtydsT~&zst l  z "E  d~Η ! ΑLZ ^ {dz `dz dz dz dz` ' jl la ' l lb ' l l"= * :8Tzzww "T}@zꆊy T}sy dzTzzs{w !"Tzʆw "i d\zꆊy \ׇy\zzꉇ{w̻ ,̳LZ =̬ "{ j 4 0 d~z{2  1 d|yT}Ήy 2 d dxl !z  lzn 1̸ ̵  lν ܳ 1{ulfl{Z ̡ gl d  lj"= *   dw{{HhT{{Hh\򇍈d̵ l{o  d~f{n 2{r  lf{q 2x "dydx ll dhhh+u`hhTHBd l! ,h  ,hTܒFILE-NAME =VOLUME-NAME=EXPIRE DATE=FILE TYPE =RCRD LENGTH=NUMBR RCRDS=KEY1 LENGTH=KEY1 POSITN=KEY2 LENGTH=KEY2 POSITN=KEY3 LENGTH=KEY3 POSITN=KEY4 LENGTH=KEY4 POSITN=SCTR ALGNED=%`SYSVOLK1 = N O R @D 12319901 hd`hhhhda h dbhhhdhhhhhTI hعz n  h fzzfzئ 1ȢdzȠdzȞdzT}d{od{pd{q ζ ( dy l n 1 l̽ !l0d $ l΍  d dfzl8!nܾl d̯lbl - $ ldzΥdzdz lTHz^z^z{_ul @m d l d 1 l\z^z{_^ztu dzdzT~zzzzƆyy 2] "Fz " l̥x  ̳ lX̘H ) @am $ ly dL]  ܓb !YL  l쬼d , lz l l @myϬ  Ed d dH Α , lΖ l @mܒ̡ 3̝l l̲H  @ebd $ dydydv~hH$ "&H"! 10NMLKJIHGFT~&zv{T~zvt d\zT-~| v}f"^ l\z\~| hv`|}aDd`>a  zzl!]dRldRlڔ d"! 1,6FEC̯H 6h5} 25 2T}z " !0z !! !z 62֔؜;8ʜ5Μ2 d̾H ̶H  ̱H  ̬H  d l l}d|  ""q !m "eHh ̲ Zv̧ Td M !H̽ !`B =̶ 9̮ !4̫ l̥h̠ !A#zH 8H 2H +H %H  EdT(`z z  lc db  a >{dzhٿTzz⨅ &Tzzd d n 1lzd} l dz dzTzz⨅ %\ըz d{od{pd{qdTzʆ{̶ %\zlllT}d{rd{sd{td{uTzʆ{̑ $\zg M$ EdV d7fp4{d{ p4d, !,d1pa  zzl!]dRldRlڔ d"! 1,6FEC̯H 6h5} 25 2T}z " !0z !! !z 62֔؜;8ʜ5Μ2 d̾H ̶H  ̱H  ̬H  d l l}d|  ""q !m "eHh ̲ Zv̧ Td M !H̽ !`B =̶ 9̮ !4̫ l̥h̠ !A#zH 8H 2H +H %H  EdT(`z z  lc db  a >{dzhٿTzz⨅ &Tzzd d n 1lzd} l dz dzTzz⨅ %\ըz d{od{pd{qdTzʆ{̶ %\zlllT}d{rd{sd{td{uTzʆ{̑ $\zg M$ EdV d7fp4{d{ p4d, !,d1p? :#M@@']=@"m @abcdefghi jklmnopqr @ @ @ @ @ @ @s@t@u@v@w@x@y@z@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @A@B@C@D@E@F@G@H@I@ @ @ @ @ @ @ @J@K@L@M@N@O@P@Q@R@ @ @ @ @ @ @ @ @S@T@U@V@W@X@Y@Z@ @ @ @ @ @ @0@1@2@3@4@5@6@7@8@9@ @ @ @ @ @ @ TH HTMTSh hn2 31l, hh(hT0 h d h h݈hۀ/hT+: ψ h˜ &HTMTS h 3h\ h\h RECORD Rh#hTT+ h  h  Rhh h TH TMTSh\h\h Hhhhh hT`D@ H/h.`h,h'Dh*h((`B 9H!  0 nH DQ S  0n `'d  H3h0`h&h)Dh"h h! Qhn` h  h7nnH TMTS h\h H*h)`h'h!h  Qhl ` h h  hh hhh ( h ( h+`p9h'h*h"` ڪՈmԜ 1 h h  h h @HHTMTS h\ h\h Hh`hDhBh 0 q c H A` Hh`ȁfȁb` Hhh hTg `\@ T( ? FILE-NAME =VOLUME-NAME=NEW FIL-NAM=NEW EXPDATE=  = 12319901 hhhhhhh h hhhhhhTI hz9jʈ  h fzzfzؿ 1 !k+ȯh ( hk Xȧ h hȧfzȞhȟ9؝nؓȑh d"dبd / $ ldzydzdz lTHzzz{`_de @m d l 1 l\zz{`z^_ dzdzT~zzzzƆgg 2/ !\Xz " l̩}   l]̛b R @jm B dkd $ lzy de @m d} d dۜ  nܦ 3l̜lĜ  @m܏άdΨ , lydydah     l lT~&zaZ\z dR d~T~zaT}z " !+z !! !z 51הSOۜK96Ϝ3Ӝ! de  z "c%M dk ! L] d ~ 4sAdlT(cz ̻  l d lfܳ 1Tzz↞ff 1hTfzmzd l fzܔ 1l dz dz dzTzzf $\نfzG dh{od{pd{qdTzʆh{f̺ $\fz*lllTzʆh{f̦ $\fzTzʆf̛ $\fz "w̜ 2z z"\zʆf @ HH* h h l h 1 H TMTSh\h dzdzT~zzzzƇT~zzzzƇz hzDhv `y!i T9z hyhTHz!!z{" G THz!!z{ DhihaH2d`"**j,(" (R"yj!"THz!!z{" `h?"Dh  ,  PAUSE  z TH+&*+'() HTMTSh T( ? VOLUME-NAME=MM UNIT NO.=  = $$DUMMYX hd`h `d hhhdadbhhh hhTIYW hzAn  h fzzfzؿ 1 !j*Ȳh ( h˨ XȨ h hȨfzȟhȠ9؞:nؔȒh dR!ȉhXΥh 1^ $` l_dzydzadz lTHz^zR^z{_udb Z@m dS lT 1 l\z^z{_^ztu dzdzT~zzzzƆyy 2/ ![Wz " l̨x  X l^̚w Q @am C lΚd^ $` lzy Zdb @m  'dQ dT dSڜ  @mܧ 3l̝lÜ  @mܐο , lydRydvXΌI T~&zvR dbT~zbvR l̳  z "  dZb ! L] a z}H$ch~{{dV !tTzzVPP !b4+{`h]h[ n iddzedzfdzgdzdzhdzdzdz dz dz dz l fzZ 1 l fz 1TzzP̦ 9TzzP̞ 1TPz  /dQT(Q` 2iz z" @ HH T,( ? MM UNIT NO.= = hd`hhhhdadbhhh h `d'hTIMK hzDn  h fzzfz 1 !g(ȸh ( hȨ UȮ h hȮfzȥhȦ8ؤʊn؛șh hȑhΥh 1Ȏ ( hȊdzRydzUdz dFTHz^zF^z{_uLdb N@m dG lH 1 l\z^z{_^ztu dzdzT~zzzzƆyy 2. !YUz " l̥x  ̶ lb̘w Q @am G lΛdR $T lzy Ndb @m  'dE dH dGۜ  Ln 3llÜ  @mο , lydFydvcI T~&zvF dVT~zVvF l̳  z " dNb ! L] a z}H"$Wh dJ dz !TzzJDD 1TDz  /dET(E`̬ 2Xz z" @ HH& T( ? DISK FROM =DISK TO = = h hd`hhhhdadbh hhTI hzFn  h fzzfz 1 !g(ȸh ( hͨ UȮ h hȮfzȥhȦ8ؤʈn؛șh hȑhΪh 1Ȏ ( hȊdzydzdz dTHz^z^z{_udb @m d l 1 l\z^z{_^ztu dzdzT~zzzzƆyy 2) !TPz " l̥x  ̶ lb̘w L @amL lΠUd $ lzy ̒db @m  'd d dۜ  @m 3llÜ  @mξ , lydydvdT~zv "z}H$hd l l̬ z "[H,hڨd db ! L] a  zh+{"hU l 9 5T؆ /dT(`̬ 2z z" @ HH& TMTSh\h +{`" h|h}h| +{`" h{h|h{Dhhhdhoa "hKT(}D hT}XX, ,",  >h Gh n s >"T&V X_XXh hhM hK*hITHDm&a(TLDy&a.`X=,`X:*`X7.  ) @6 d `hh XJMi h hT D  @" Da TLD THD T DTURN OFF PROTEC SWITCH (ESC J20@) AND TYPE CARRIAGE RETURNSET UP VOLUME(S) TO BE SAVED AND TYPE CARRIAGE RETURN VOLUME SAVE COMPLETE.  T( ? OWNER NAME =VOLUME NAME= PURGE== NO hhhhhhhhhhhhh hhȴhhhhhhTI hzVjʈ  h fzzfz 1 !j+ȯh ( hb WȨ h hȞfzȟhȠ9؞nؔȒh d!h٨h 0 $ ldzydzdz lTHz^z^z{_ul @m d l 1 l\z^z{_^ztu dzdzT~zzzzƆyy 2. !YUz " l̩x   l^̛w O @am }D lbd $ lzy l @m  'd d dܜ  @mܩ 3̿l̟lŜ  @mܒέ , lydydvT~&zv l  z "Y lܙb ! L] a {dz `dzzw T}Ά " dTzzꆝ{zzL 2 "{ z  d dz{2  1T}{q ={p 7{o ! l{.f{f 1THz^{^ztuz lfzܶ 1 lγnܬ 1Tzzz lwn̙ nܖ 1z 9f QTzzT(`z 2z z"Tzʆz @ HH T[( ? FILE-NAME =VOLUME-NAME= = hdcdfhhhdddeh hRhTI hz-fg  h fzzfz 1 !f(Ƚh ( hި Tȳ h hȳfzȪhȫ8ةʎnؠȞh hȖhλh 0ȓ ( hȏdzydzdz dTHzzz{`_de @m d l 1 l\zz{`z^_ dzdzT~zzzzƆgg 2. !YUz " l̦{  ̶ lc̙b R @fm H lʤd $ lzy de @mΫ  'd d dۜ  @eg 3llœ  @m嬫 , lydydaT~&za l  z "3 lܖν ! ηL] d {dz `dz dz dz dzTzzff  * T}Ζ " d d ! dT}@zMM T}sjMTzz{ggL] 1 "{  `dz d{ {  ld̒ #l ! dn 2 l d7{.fz{3 3 dz  D lz{2  14Tzzgg "T}@zMM T}sjM dzTzz{g "Tzʆg " l fzܘ 1d "l d{]d{d d pSSORDERJ_ERRMSGWSCHTOPLREAREQ?TSCHANItSTRSEC CLOSFL`STRLEN dd!3dΧddhT{&{%FZ߀hTzFdfn̔ " ʌl ll l?˔   ̰lܯ ̧ l }z 2z z" @ HH h h l h 1 H TJTPh\h/h. h,hh!4 A hHh h A hӨh  Јnh ÈnػػHTJTP h\h\h\ h\h h  ɀhHhh H hT@@@ H fb_^ , HHh h hT\@@ H  "  TB( ? U2INITFMUFCB^EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF FILE-NAME =OWNER-NAME =VOLUME-NAME=OUTPUT UNIT=MOUNT NEXT TAPE - (CR) WHEN READY ` = TAPE0 d hdddghhhde h dfhdhhdz{hTI hhhhدz"fl  hzfz fz؛ 1 !m0ȉh ( hݨ Z d dfzl9Mnl dlγl TSLSIZIP1829 OMIB VFNR STOD V"READR TIME MAKQ SLOCF WBSMD f!CDRCP1{XMALC BERCHK  THDS REQXT LR9MUX1R9MUX2MIBX VJR9MUX4R9MUX5R9MUX6WRITE xPBAT01 READRC`"COMM18JBCNFGWRCREATEMRECADaDATFMTREMLOK^f DCLOCK@CKUADR]UNSTACKTSTLOCTMRTHDUVERIFY&CDUMMYdSECTORQCOUNTz=ETRMNLT-UNPTIMWN14 |QMINTXUNPSRTWRITERYFUNSHRc~TSLUNTI&L1829 L1860 I18331dS18326P83310`FILE4 WINPEQ CPREL KUNFIX ?RCTV LMINTO 2kFMPA01FMPA02XMRSV BLPTRS WQOUT zTFMPA06fFMPA07nFMPA08qFMPA09sASAV PUFMPL01ogK65CORFMPL03rFMPL04qFMPL05uFMPL06oRELFLEWKFMPL08mFMPL09q+DUMMY1DUMMY2DUMMY3DUMMY4 UNPENDJPSTV4FRELS1AWTCOMPLFMULODyCLRACRhEUNLFILSLICERCrTSLMSBITSCNAC>:SORDERHdERRMSGWSCHTOPLREAREQ?TSCHANIdSTRSEC#CLOSFL`STRLEN9TSATCH@PGLUNTI#SYSLVL32MMAMAXCLRTCUhCNTWAR2uCYLTRKhGTNXUMBS1827 EOF FILE-NAME =OWNER-NAME =VOLUME-NAME=INPUT UNIT = LOADING NOT LOADED,ALREADY PRESENT dSYSVOL = TAPE0 @ hdddghhhde h dfhdhhdz{ d% d&ȸd)ȶd*ȴd+Ȳd,ȰdXdlhTI hؤzfl  h fzzfzؐ 1 !m0h $ dۨ X d dfzl8ίnl dlγl / $ ldzydzdz lTHzzz{a`̪df @lmܟ d l 1 l\zz{az_` dzdzT~zzzzƆhh 2/ !_[z " l̨~   l[̚c U @km X@ dΞBd $ lzy df @lm  'dT(d d dל  @mܣ 3l̙l  @m܌dμ , lydydbT~&zb l  z "J dΓ ! ΍L] e TҖT߆^dz{ ldz|dz}dz~Tz{ $ 4dRlT䖭zc  d%dɜ "lTd\󖭆l !&!  | &  "lT(d d  l df{ `1dddd  l̺ll l%  dn " l d;{.z  l ! l{2z  1 $ Qd lnnzc (nܾ 1{3̭ 3 dz l fzܨ 1{dz{dz{dz{7dzd {l 3 ld d{dz]d d{fz 1{udTzzgg 1: * l dfk 1THzlz{a`TdTgzTzʆg l̫ lάfWܣ 1\zXz{a` dz dz dz{3n 3 dzTzzg̐ ! diT}d{rd{sd{td{uTzʆi{gg ! #\ľ \zʆg% :XTzʆ†g " Td> ddœ!3dΧddhT{&{%I]߀hTzIgfn̔ " ʌl ll l?˔   ̰lܯ ̧ l |z 2z z" @ HH h h l h 1 H TMTSh\h/h. h,hh!4 A hHh h A hӨh  Јnh ÈnػػHTMTS h\h\h\ h\h h  ɀhHhh H hT@@@ H fb_^ , HHhh hT\@@ H  "  TE( ? RE>;USKNPGiTSWSECC$DENXUMB[TSCKPMCEFSTORCOMSEK}UNPTBLDKSEKVIT}@EXTREGKgB20 f/.AMINTXW*EMPSRT,SYSDAY28SWAPARBQIN z>PRO P4ASC LRW NIDR56 xL18326JPT13 1BATC yJCLE CLEAR SEEK9 g:CPTBL uMOVER ~DAYTO 2iM1811TLISMD dCPCHK KMMALC C CLINE ALVOL PFLIST 2sPORTS ?AUTON  PWFOV PSPCEV4SETBNDK{BINASCCWLGT0LCWLGT1CNWAREJLLUV42STLPV4R%LNDISB|cLIKDUMiDEVERRS/FIXONE7SETFNSg WRTBAKa7rCPTBLNTSCLLBCTSLCUPI4TSVFTNCLJOBENTVOLUSEOPENFLSBATOUSYSCOP~FMBRRN_"yMVCHART15 UhPTNRELFMSWAP\ SWAPONRVTSUSCPJT(N7 MPDRIVkN9 cAYERTO2dLVLSTR -SCH RGET |S1860 LN4 |GIDR12 xHGL18273IDR4 xEECXIT jFILE2 WCCPLU TODAY }WCONT yEND0V4>7MMEF iDONE dCPDEF KMMSIZ }~ESMD eGETS YERTO 2gNAMEV4MTMINT UhHI1811ZMINT VkLOOP R]JPSWT WPUTS QSAV PVINPV4WCDRDSMXMTENDMAXQUE8ALTDAIkTDFUNCFMSCOM\?pSLICUPI1!ALCOREPLOADINWaBGNMON>8CNTCHRPWFAILPRLSECUgTSRFTNCTSBGINCszNRERLE)JTOTMIN2oFMCOMP\QfSWPSECFSLIMT+STSINTRIEPORTS CONVERTSYUTILNXTVOL}UTSTRTYL000 ,C18331dBACK yTIMEC CHAIN IaXMREL BBREAK |w{CABS OALLIN O<TRVEC WDWADD d2UPTOD VR9TAPF;MMAT INPUT yQSMDGD1kCOPYQ zUMSAV PRENAMEDATFLGe]DELETEQ8PKUPSSEKCOMgQSEKDONgCPSENDySCHERRW7STMSV48JPOLCHKhMARKERYTIMSLC@TSNABL>8PARTBL >LIBEDTDEFLISTNCMPRQS{@SMDGDRkNSTATSUNLOCKckCERROR|AMONTO2eINVINT.CLFRIO^TSPMINHGETVITWKSPLUT16 O_INIPRT.TSCKMUC%EXTSTKOOVFVOLP>CCP DLOG LOG1 LOG2 MAKEQ SFILE3 WMT50U0MT50U1S1811TLUABS OjNFNR SJKIN WAUTF9 WMXMMOD BNOG30ARiAFILV4[ODEBUGwREDLAB}sTSIOC2JMMREAD]/CKTHRDO.MASERRJBPROEWMASDRVRPMASKO(TERMCKATSTASK>@LOKFILPLENTH ALMERRfPXMBLOK>>TSOFFMWANTDRf DENSWPBTONNXUCATSATTCI=PTYERRPATSACTV>9CLRSKNgOT0 NT1 NT2 NONNXUMAT4 N*T6 NLSTPRTT8 UhFMUTEX{wLTSUSRSYSMSG(LUNEQ UPDFCBoTSMFLG>=OFNXUCBF2TSPMCKCCWTREADHATTACHI:TSLLSBITSXERRI\PGMOUTImTSLICEJTSIOC1JcCPSET LCPADD L?MONI LT9 MNnT18 MNT19 MISAVLU NT14 ONNABS ONIPROCP0VOLR POFVOL PICORE QT12 RWSWAPCKRADEV SALTDEVS[ALTSUBUSTIMEUPUDTMER UDTIMERUkJOBSTRVJOBINDWUNPIO WRECOV WPRORETWTRNVECW=AUTFA WAUTFB WCOUTV4WOLDUMPXCOBOP YFMCOME\CFMPPRO\MMWRIT]3LOKCHK]INSLOK^rFMCOVL^FMFSRC_,PUTREC_:GETNXTa COMSEQaLOCKFLcPFSHAREcxEDUMMYdGETLOSdCSMD dFE18331eCLRINTe EGHOSTfXSMD fSEKCHKg2SEKINPgSPL4 fCKOVRLhCLRDASh3CLRSTShCLRTDAhDASTAThDRICHKhMSBLSBh5SMDSTShFFILBFkFILSMDkSMDCPSkSMDACPkSMDGCUkSMDRDRkLTOFDRlLMPDVCKl&ICONSLlfBINHEXxUNQUE z?COMREQztVLNRESP|#LINEUP|3LNDOWN|=TERESP|fPUT }INITZE ENABLECTERMLCPADDRBSYEFSCEFDTAMASEXT4RELBYQ3CMREQTCTRMNLI1811TSYSMON09LOADSD_JOBPROPROTECJPLOAD#JCRDV48JLGOV4?BRKPT pSYSSEG,MIPRO MNTCHKsDISMNT1AUTOBTKICKOFCALLCPCPLOOKTRMLUPTAPSETCPAREASTRBASMSIZV4MAXSECkSYSID tUBPROTLBPROTKUPBDTBINTSTKVOLBLK^SCHLNGMT25U1ALTERRPDGNTABDUMALTLSTOUT STDINP BATLSTBATINP PCORE 5PCONSLUMIINP eTK7WEFTK7DATMICSUB"ZSEVENTSEVNRDCPTRAC 0PCCP1 DUMPOT 2NBRLINTOUTQUE ENDQUE PBAT00 CALTHD +N4 N5 N6 N8 N10 N11 N12 ?N13 N15 wLSTLOC BTSAREA ?RDPTV4PTNALCACPTBE E"TSPAGE dCPTBLZNUMCP XMAT sNSWP  TSQPRITERMLU'PROMTR>hBAITOSDATSEP/PRTCDR6R9SEGFLRGUSRRQLLIMRQULIMRETIMEFILOAD^QPASWDWKSTATRMUOPNRMUCSWRMUCF0NRMUCFTRMUCLOR9MUX3TSPORTMTSPENDTSUSERTSUENDHWINITSIMRSVFMRDEL^FMEOFC_FMMOSU FMMOIU vFMNRCDKIBSECUCTLEN(MAXLOCWLRTABL'FMMOSF FMFCBS)KFMMOIF FMFCBI)FSCTNE FCBSCT*FSLEND+zMMLUTB+{PCTABL+IDLER ,INSTLUIDLCTR,TMRTYP,TMCODEFSTIME,DMICOD,TBLADR,EMPSTP,BUFF ,BUFFE 2bCGHOST2bADAYTO2fMONTO 2hHORTO 2jSECON 2lCONTA 2mHORMIN2nTIMCPS<+TODLVLPNSCHED2pTMRLVLLSIZV4PSIZV4ODBSIZCHRSFG2qCOBOPS|qFMASK 2rQ8STP 2tNDISP MICSB22FBASV4PKEYV4RELFILT10 3T17 3AREAC 3ALCLGH89N1 bN2 3CWSEC0MICLENSMTSIMLMTSIMCCP DLOG TSLSIZIP1829 OMIB VFNR STOD V"READR TIME MAKQ SLOCF WBSMD f!CDRCP1{XMALC BERCHK  THDS REQXT LR9MUX1R9MUX2MIBX VER9MUX4R9MUX5R9MUX6WRITE x}PBAT01 READRC`"COMM18JBCNFGWRCREATEMRECADaDATFMTREMLOK^fDCLOCK@CKUADR]PNSTACKTSTLOCTMRTHDUVERIFY!CDUMMYdSECTORQCOUNTz=ETRMNLT(UNPTIMWN14 wQMINTXUNPSRTWRITERTFUNSHRc~TSLUNTI&L1829 L1860 I18331dS18326P83310`FILE4 WINPEQ CPREL KUNFIX ?RCTV LMINTO 2kFMPA01FMPA02XMRSV BLPTRS WQOUT zTFMPA06fFMPA07nFMPA08qFMPA09sASAV PUFMPL01ogK65CORFMPL03rFMPL04qFMPL05uFMPL06oRELFLEWKFMPL08mFMPL09q+DUMMY1DUMMY2DUMMY3DUMMY4 UNPENDJPSTV4FRELS1AWTCOMPLFMULODyCLRACRh@UNLFILSLICERCrTSLMSBITSCNAC>:SORDERH_ERRMSGWSCHTOPLREAREQ?TSCHANIdSTRSEC#CLOSFL[STRLEN9TSATCH@PGLUNTI#SYSLVL32MMAMAXCLRTCUhCNTWAR2uCYLTRKhGTNXUMBS1827 IUP WS18273IDR60 xLOG1A P1811L VOLA PCONCU h9TSLSIZIP1829 OMIB VFNR STOD V"READR TIME MAKQ SLOCF WBSMD f!CDRCP1{XMALC BERCHK  THDS REQXT LR9MUX1R9MUX2MIBX V@R9MUX4R9MUX5R9MUX6WRITE xxPBAT01 READRC`"COMM18JBCNFGWRCREATEMRECADaDATFMTREMLOK^fDCLOCK@CKUADR]KNSTACKTSTLOCTMRTHDUVERIFYCDUMMYdSECTORQCOUNTz=ETRMNLT#UNPTIMWN14 rQMINTXUNPSRTWRITEROFUNSHRc~TSLUNTI&L1829 L1860 I18331dS18326P83310`FILE4 WINPEQ CPREL KUNFIX ?RCTV LMINTO 2kFMPA01FMPA02XMRSV BLPTRS WQOUT zTFMPA06fFMPA07nFMPA08qFMPA09sASAV PUFMPL01ogK65CORFMPL03rFMPL04qFMPL05uFMPL06oRELFLEWKFMPL08mFMPL09q+DUMMY1DUMMY2DUMMY3DUMMY4 UNPENDJPSTV4FRELS1AWTCOMPLFMULODyCLRACRh;UNLFILSLICERCrTSLMSBITSCNAC>:SORDERHZERRMSGWSCHTOPLREAREQ?TSCHANIdSTRSEC#CLOSFLVSTRLEN9TSATCH@PGLUNTI#SYSLVL32MMAMAXCLRTCUhCNTWAR2uCYLTRKhGTNXUMBS1827 TSLSIZIP1829 OMIB VFNR STOD V"READR TIME MAKQ SLOCF WBSMD f!CDRCP1{XMALC BERCHK THDS REQXT LR9MUX1R9MUX2MIBX VER9MUX4R9MUX5R9MUX6WRITE x}PBAT01 READRC`"COMM18JBCNFGWWCREATEMRECADaDATFMTREMLOK^fDCLOCK@CKUADR]PNSTACKTSTLOCTMRTHDUVERIFY!CDUMMYdSECTORQCOUNTz=ETRMNLT(UNPTIMWN14 wQMINTXUNPSRTWRITERTFUNSHRc~TSLUNTI&L1829 L1860 I18331d`FILE-NAME =VOLUME-NAME=INPUT UNIT =MODE =TERMINALA E AOEOOAOEO A TERMINAL =   hdd hhhddh hdzdz{dz|dz}dz~ dhTI hؽzQn  h fzzfzت 1 !k-Șh ( hλ Yȓ h hȓfzȊhȋ;؉nl d lΒl / $ ldzydzdz lTHzzz{d @m d l 1 l\zz{z dzdzT~zzzzƇ 2. !YUz " l̩   l]̛ O @m }C dΛvd $ lzy d @m  'd d dܜ  @mܩ 3l̟lŜ  @mܒ , lydyd T~&z l  z "~ dΗ ! ΑL   dddd dz ( l  1 lzz  Ed lT( dv d   l lzz ܞ 1dTz{{dz `dz dz dz dzTzz "zd lTzz{ "L "Tzʇ "{"l{d > 5 Bdp? :#M@@']=@"m @abcdefghi jklmnopqr @ @ @ @ @ @ @s@t@u@v@w@x@y@z@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @A@B@C@D@E@F@G@H@I@ @ @ @ @ @ @ @J@K@L@M@N@O@P@Q@R@ @ @ @ @ @ @ @ @S@T@U@V@W@X@Y@Z@ @ @ @ @ @ @0@1@2@3@4@5@6@7@8@9@ @ @ @ @ @ @ H,h+TMTSh&\h%\h\h"?/hhTHyDl `L /!/h. h,hh!4 A hHh h A hӨh  Јnh ÈnػػHTMTS h\h\h\ h\h hT҆`BS1827 IUP WS18273IDR60 xLOG1A P1811L VOLA PCONCU h9MOVEL ~&CPFET LnPARBV4WMT25U0SWTCH W NMONI LCPMOD KXMRTN BJBFLV4DOUT PARAMEOjEFDATAREQALCP]QUEUP z[ECCALGiDWMUL dcFMSAVAJPFLV4TMASCONCOMPV4WINPTV4WQ8PREPM`TSMENDMJPCHGE*hFINDRQS.EFLOCKx{SCHSTK5JBCFGZWMPFLAGpFMCHKO^TSIPRCCjADNSWPATSLOFFRTNCORQhTSCLOKCkRCOVERinUPLOWMP TSFMCPK4DISPXXLTSMMERKXCONSLUCONTCUe OUTPUTR HA PACK nREL RIP1 P@MAS3004IDLE ,MASKT ENLIBET WPGMIN HMMREL CMSPACE 3SABS O9ECORE RRDISP L4IDRCP1xDOUTEQ TK7RW FMPA10FMPA11TRANV WXMATR FMPA14SPASW WFMPA16FMPA17FMPA18SPACE4RO FMPL10uMTBFS0,MTBFS1 DWSUB dXCWSEC1BUSY CFMPL16pUCTABL"oFMPL18o-SELFLGh+MAXCOPLOBDTBDISABLABSRED%bBATCLUWFMPFLGSKALNDg*JBCNCLWUNPIOFWREDUCECOMFILPGMINTITSULBF?"uSYFAILCSTATSFMEXECZ`OFNSWPBMIDUMMYdRESTORbCNTTBL2vCOMPRQS{ONNSWPATSURTN>CNDRIVhdCUCNSTh.TSMUSRNTSUSRTSEXITIpSYSYER78MI VkMOV WUSE LEND RWRESET hFILE1 WJPRET 2MP1234P BSMD4 f@SK65T10NXUC K65T12MIBUF W\IPROC P0TSLSIZIP1829 OMIB VFNR STOD V"READR TIME MAKQ SLOCF WBSMD f!CDRCP1{XMALC BERCHK THDS REQXT LR9MUX1R9MUX2MIBX VOR9MUX4R9MUX5R9MUX6WRITE xPBAT01 READRC`"COMM18JBCNFGW\CREATEMRECADaDATFMTREMLOK^fDCLOCK@#CKUADR]ZNSTACKTSTLOCTMRTHDUVERIFY+CDUMMYdSECTORQCOUNTz=ETRMNLT2UNPTIMWN14 QMINTXUNPSRTWRITER^FUNSHRc~TSLUNTI&L1829 L1860 I18331dS18326P83310`FILE4 WINPEQ CPREL KUNFIX ?RCTV LMINTO 2kFMPA01FMPA02XMRSV BLPTRS WQOUT zT FMPA06fFMPA07nFMPA08qFMPA09sASAV PUFMPL01ogK65CORFMPL03rFMPL04qFMPL05uFMPL06oRELFLEWKFMPL08mFMPL09q+DUMMY1"DUMMY2DUMMY3DUMMY4 UNPENDJPSTV4FRELS1AWTCOMPLFMULODyCLRACRhJUNLFILSLICERCrTSLMSBITSCNAC>:SORDERHiERRMSGWSCHTOPLREAREQ?TSCHANIdSTRSEC#CLOSFL`STRLEN9TSATCH@PGLUNTI#CLRSCR_MMAMAXCLRTCUhCNTWAR2uCYLTRKhGTNXUMBS1827 IUP WS18273IDR60 xLOG1A P1811L VOLA PCONCU h9MOVEL ~&CPFET LnPARBV4WMT25U0SWTCH WNMONI LCPMOD KXMRTN BJBFLV4TOWT iXPARAMEOjEFDATAREQALCPlQUEUP zeECCALGiDWMUL dcFMSAVAJPFLV4TMASCONCOMPV4WINPTV4WQ8PREPMjTSMENDMJPCHGE*rFINDRQS8EFLOCKxSCHSTK?JBCFGZWMPFLAGpFMCHKO^TSIPRCCtADNSWPATSLOFFRTNCORQhTSCLOKCk(RCOVERi}UPLOWMP TSFMCPK4DISPXXLTSMMERKXCONSLUCONTCUe OUTPUTRHA PACK nREL RIP1 P@MAS3004IDLE ,MASKT E]LIBET WPGMIN HMMREL CMSPACE 3SABS OCECORE RRDISP L>IDRCP1xDOUTEQ TK7RW FMPA10FMPA11TRANV WXMATR FMPA14SPASW W)FMPA16FMPA17FMPA18SPACE4ROFMPL10uMTBFS0,MTBFS1 DWSUB dXCWSEC1BUSY C FMPL16pUCTABL"oFMPL18o-SELFLGh+MAXCOPLOBDTBDISABLABSRED%qBATCLUWFMPFLGSKALNDg*JBCNCLWUNPIOFWREDUCECOMFILPGMINTITSULBF?"SYFAILCSTATSFMEXECZ`OFNSWPBMIDUMMYdRESTORbCNTTBL2vCOMPRQS{ONNSWPATSURTN>CNDRIVhdCUCNSTh.TSMUSRNTSUSRTSEXITIpSYSYER78MI VkMOV WUSE LEND RWRESET hFILE1 WJPRET 2MP1234P BSMD4 f@bK65T10NXUC K65T12MIBUF WfIPROC P0NUMLU NXUM JPRET1WCARDRDOXMESAGEzGETFCBGETFLD~SMDCPAkU2INITFMUFCB^SMDCPGkvVOLENDOUTPV4DELRECBLUNAMEONTIMEMICSECDENXUCBbEFCOVLJPRENWABSPAR\UPDRECEXPIRE>;USKNPGiTSWSECC$DENXUMB[TSCKPMCEFSTORCOMSEK}UNPTBLDKSEKVIT}@EXTREGKgB20 f/.AMINTXW*EMPSRT,SYSDAY28SWAPARTSLSIZIP1829 OMIB VFNR STOD V"READR TIME MAKQ SLOCF WBSMD f!CDRCP1{XMALC BERCHK THDS REQXT LR9MUX1R9MUX2MIBX VJR9MUX4R9MUX5R9MUX6WRITE x}PBAT01 READRC`"COMM18JBCNFGWWCREATEMRECADaDATFMTREMLOK^fDCLOCK@CKUADR]PNSTACKTSTLOCTMRTHDUVERIFY&CDUMMYdSECTORQCOUNTz=ETRMNLT(UNPTIMWN14 |QM     hȿ6 f hȵ6 fؾ dhhhhTI؜zhzh dz l l `dzTzzȟ "{hșl d h{  l 1 d{dpt;2S:4ah?H=8499H6h6," 1d'hh &hh !d#aR8s$d1dL lah hV h hP hLHGhFTMTS"h6h5\"h2: 5\h4\h3h)\h-\h,*`TTT 6fbf b l `h!@  " 2a"a ! A%dada`hdbdbh@!Ha"! B  2ADa a` h? :#M@@']=@"m @abcdefghi jklmnopqr @ @ @ @ @ @ @s@t@u@v@w@x@y@z@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @A@B@C@D@E@F@G@H@I@ @ @ @ @ @ @ @J@K@L@M@N@O@P@Q@R@ @ @ @ @ @ @ @ @S@T@U@V@W@X@Y@Z@ @ @ @ @ @ @0@1@2@3@4@5@6@7@8@9@ @ @ @ @ @ @ H,h+TMTSh&\h%\h\h"?/hhTH'yDl `L /!/h. h,hh!4 A hHh h A hӨh  Јnh ÈnػػHTMTS h\h\h\ h\h hTTSTLOCTMRTHDUVERIFY!CDUMMYdSECTORQCOUNTz=ETRMNLT#UNPTIMWN14 wQMINTXUNPSRTWRITERTFUNSHRc~TSLUNTI&L1829 FILE4 WINPEQ CPREL KUNFIX ?RCTV LMINTO 2kFMPA01FMPA02XMRSV BLPTRS WQOUT zTFMPA06fFMPA07nFMPA08qFMPA09sASAV PUFMPL01ogK65CORFMPL03rFMPL04qFMPL05uFMPL06oRELFLEWKFMPL08mFMPL09q+DUMMY1DUMMY2DUMMY3DUMMY4 UNPENDJPSTV4FRELS1AWTCOMPLFMULODyCLRACRh@UNLFILSLICERCrTSLMSBITSCNAC>:SORDERHZERRMSGWSCHTOPLREAREQ?TSCHANIdSTRSEC#CLOSFLVSTRLEN9TSATCH@PGLUNTI#SYSLVL32MMAMAXCLRTCUhCNTWAR2uCYLTRKhGTNXUMBS1827 IUP WS18273IDR60 xLOG1A P1811L VOLA PCONCU h9MOVEL ~&CPFET LnPARBV4WMT25U0SWTCH W NMONI LCPMOD KXMRTN BJBFLV4DOUT PARAMEOjEFDATAREQALCPbQUEUP z[ECCALGiDWMUL QFMSAVAJPFLV4TMASCONCOMPV4WINPTV4WQ8PREPM`TSMENDMJPCHGE*hFINDRQS.EFLOCKxSCHSTK5JBCFGZWMPFLAGpFMCHKO^TSIPRCCjADNSWPATSLOFFRTNCORQhTSCLOKCkRCOVERinUPLOWMP TSLSIZIP1829 OMIB VFNR STOD V"READR TIME MAKQ SLOCF WBSMD f!CDRCP1{XMALC BERCHK  THDS REQXT LR9MUX1R9MUX2MIBX VJR9MUX4R9MUX5R9MUX6WRITE x}PBAT01 READRC`"COMM18JBCNFGWRCREATEMRECADaDATFMTREMLOK^fDCLOCK@CKUADR]PNSTACKTSTLOCTMRTHDUVERIFY&CDUMMYdSECTORQCOUNTz=ETRMNLT(UNPTIMWN14 |QMINTXUNPSRTWRITERYFUNSHRc~TSLUNTI&L1829 L1860 I18331dS18326P83310`FILE4 WINPEQ CPREL KUNFIX ?RCTV LMINTO 2kFMPA01 hzf 1 h:yf n hhTIdydy dy hh l ld `dTzz "hlK"+{ dzd dz={dz dz dz dz dz dz< dz dz dz dz dz dz> dz dz dz dzdzd !p4 d ,d ,lpzhyz H hzhd( dz!TzlȀyhTly y hȳ 3ȱ ;̿ ȫ  Ȩh d)̨dyο 2o̫ṋfyT l̷dLΩlz "}y y oy ̢  dzdz dyz=:zl fyzl nT "} llzlzn\} dyld(l ,T(dP ly 8y nܵTjz "}dzηdzT| "} dzƔz J $zdy̹ h\ ldN  dy=Ύn l̬ l\zzl lӜ9zOfyzdLd(\}̠d*̠d+ d)y  ly 7y fzqܶTzl l휫7nܓܤzfzrzfzs d'z>lαz ETz "}zlzl dyz=:zlΑnTq l;dLΖfy dzlznzl̒n lzz !F\zdy lz8fz`ܳ,lTz dPdN l<λn l lܔ\zl lϜ9yzOn l5n̪ Ad(zzdLfyTz "}zld%yd&znznTj "}\(dy ly 7nܬzfzPzfzQ' T_,̿ "}ll lz=;̋lΨyf+Tq̣ "} l9ln dz̓zdL̔fy̔nz($zl dTdPz< dN l̋8nܵ l\(l l֜8z`nܠzlnTjzd%zd&T_,' Jy fzafzb ly lT|z "} dy̧8l nĄzdL fy̓ lzl l?`zOPn͡Nn\[zllyl\̻ !L̏ld( dz !"TzdyyhTlzrz 2y l%n&nk zl l l l dy  @ HHy Ady dz dy dy dzdzy dz hT|z " dz hzzhyhʜ " Ȼ TzhyhTly y !" lhȞhȠ >\zhyh\y y 1ȑlȐdhθdyydyz>dΫz  dy d ly 7y fz`zfzazfzbzdzdzzlydz !TzlyhTlzaz !&AllTz llT|z !?ƌl l$ l \Ϙz ̪l̬l\ ! ̧dΨ l dz ylyl dܛ H dzzzhydzydzTlzz  lT|H $zz< h HTMTShz>zhyz MzhhTj dyz=:hnzhzh l̜!"Tyy dyllT|z !zhȳnȱfy\ȩlȨl\H TMTS h h H#TMTSh\h\hB RJR3 2 y dy#hy h hl!, Ady Ah  Hhhh˨ nƈnH TMTS h\ hCWSEC1BUSY CFMPL16pUCTABL"oFMPL18o-SELFLGh+MAXCOPLOBDTBDISABLABSRED%lBATCLUWFMPFLGSKALNDg*JBCNCLWUNPIOFWREDUCECOMFILPGMINTITSULBF?"uSYFAILCSTATSFMEXECZ`OFNSWPBMIDUMMYdRESTORbCNTTBL2vCOMPRQS{ONNSWPATSURTN>CNDRIVhdCUCNSTh.TSMUSRNTSUSRTSEXITIpSYSYER78MI VkMOV WUSE LEND RWRESET hFILE1 WJPRET 2MP1234P BSMD4 f@]K65T10NXUC K65T12MIBUF W\IPROC P0NUMLU NXUM JPRET1WCARDRDOXMESAGEzGETFCBGETFLD~SMDCPAkU2INITFMUFCB^SMDCPGkqVOLENDOUTPV4DELREC8LUNAMEONTIMEMICSECDENXUCBbEFCOVLJPRENWABSPAR\}UPDRECEXPIRE>;USKNPGiTSWSECCDENXUMB[TSCKPMCEFSTORCOMSEK}UNPTBLDKSEKVIT}@EXTREGKgB20 f/$AMINTXW*EMPSRT,SYSDAY28SWAPARBQIN z>PRO P4ASC LRW NIDR56 xL18326JPT13 1SPL4 fCLEAR SEEK9 g:CPTBL uMOVER ~DAYTO 2iM1811TLISMD dCPCHK KMMALC C CLINE ALVOL PFLIST 2sPORTS ?AUTON PWFOV PSPCEV4SETBNDK{BINASCCWLGT0LCWLGT1CNWAREJLLUV42STLPV4R%LNDISB|cLIKDUMiDEVERRS/FIXONE7SETFNSg WRTBAKa7wCPTBLNTSCLLBCTSLCUPI4TSVFTNCBJOBENTVOLUSEOPENFLSBATOUSYSCOP~FMBRRN_"tT15 UhPTNRELFMSWAP\ ~SWAPONRVTSUSCPJT(N7 MPDRIVkN9 hAYERTO2dLVLSTR -SCH RGET |S1860 LN4 |GIDR12 xH=L18273IDR4 xEECXIT jFILE2 WCCPLU TODAY }WCONT yEND0V4>7MMEF iDONE dCPDEF KMMSIZ }yESMD eGETS YERTO 2gNAMEV4MTMINT UhHI1811ZMINT VkLOOP R]JPSWT WPUTS QSAV PVINPV4WCDRDSMXMTENDMAXQUE8ALTDAIkTDFUNCFMSCOM\?pSLICUPI1&ALCOREPLOADINWaBGNMON>8CLRDASh)PWFAILPRLSECUgTSRFTNCTSBGINCszNRERLE)JTOTMIN2oFMCOMP\QfSWPSECFSLIMT+STSINTRIEPORTS CONVERTSYUTILNXTVOL}UTSTRTYL000 ,C18331dBACK yTIMEC CHAIN IaXMREL BBREAK |wCABS OALLIN O<TRVEC WDWADD UPTOD VCNVRT - MMAT INPUT yQSMDGD1kCOPYQ zUMSAV PRENAMEDATFLGebDELETEQ8PKUPSSEKCOMgGSEKDONgCPSENDySCHERRW7STMSV48JPOLCHKhMARKERYTIMSLC@TSNABL>8PARTBL >LIBEDTIEFLISTNCMPRQS{ESMDGDRkERPROCQUNLOCKckCERROR|AMONTO2eINVINT.CLFRIO^TSPMINHGETVITWKSPLUT16 O_INIPRT.TSCKMUC%EXTSTKTOVFVOLP>CCP DLOG LOG1 LOG2 MAKEQ SFILE3 WMT50U0MT50U1S1811TLUABS OjNFNR SJKIN WAUTF9 WMXMMOD BNOG30ARiAFILV4[ODEBUGwREDLAB}sTSIOC2JMMREAD]/CKTHRDO.MASERRJBPROEWMASDRVRPMASKO(TERMCKATSTASK>@LOKFILPLENTH ALMERRfPXMBLOK>>TSOFFMWANTDRf DENSWPBTONNXUCATSATTCI=PTYERRPATSACTV>9CLRSKNgOT0 NT1 NT2 NONNXUMAT4 N*T6 NLSTPRTT8 UhFMUTEX{wLTSUSRSYSMSG(LUNEQ UPDFCBjTSMFLG>=OFNXUCBF2TSPMCKCCWTREADHATTACHI:TSLLSBITSXERRI\!PGMOUTImTSLICEJTSIOC1JcCPSET LCPADD L?MONI LT9 MNnT18 MNT19 MNSAVLU NT14 ONNABS ONIPROCP0VOLR POFVOL PICORE QT12 RWSWAPCKRADEV SALTDEVSVALTSUBUSTIMEUPUDTMER UDTIMERUkJOBSTRVJOBINDWUNPIO WRECOV WPRORETWTRNVECW3AUTFA WAUTFB WCOUTV4WOLDUMPXCOBOP YFMCOME\CFMPPRO\ MMWRIT]3LOKCHK]INSLOK^rFMCOVL^FMFSRC_,PUTREC_:GETNXTa COMSEQaLOCKFLcPFSHAREcxEDUMMYdGETLOSdCSMD dFE18331eCLRINTeEGHOSTfXSMD fSEKCHKg2SEKINPgCKOVRLhCLRSTShCLRTDAhDASTAThDRICHKhMSBLSBh:SMDSTShFFILBFkFILSMDkSMDCPSkSMDACPkHn D ujjjj sfy sjhhdzyhh hhy h^CH@h=y@ H9H=h8h<H/h/Dh2\Ti- y bdz`cTEy@ dzdzaA aDdz }j\ 2lXlzHXHW` hLhLhLDhMG HE TMLLF !DnB;2?h8><6 n4H)HARD ((ydzh2&Hhh ! y۪̪HDh7Ddz@XD (hTXx!hD (̀hdzhz`! XTzXWȽ!Ȱnz`nnDnHH@  s=j+ 8f" bb bb b bby `  s"j@ a aOa[a  sny `  sg"HWHT hTS HQa7XI (CyhTX:!.y@ HhH.h.H&h&Ti& Xj_f"bTX D@dz h hV h hP hLHGhFTMTS"h6h5\"h2: 5\h4\h3h)\h-\h,9*`TETiTs 6fbf b l `h!@  " 2a"a ! A%dada`hdbdbh@!Ha"! B  2ADa a`HTMTS"h$   Ll H,h+TMTSh&\h%\h\h"?/hhTHyDl `L /! h? :#M@@']=@"m @abcdefghi jklmnopqr @ @ @ @ @ @ @s@t@u@v@w@x@y@z@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @A@B@C@D@E@F@G@H@I@ @ @ @ @ @ @ @J@K@L@M@N@O@P@Q@R@ @ @ @ @ @ @ @ @S@T@U@V@W@X@Y@Z@ @ @ @ @ @ @0@1@2@3@4@5@6@7@8@9@ @ @ @ @ @ @T|zzzzz/h. h,hh!4 A hHh h A hӨh  Јnh ÈnػػHTMTS h\h\h\ h\h? ,T[y TIm*TX%X#X!XXXXXXXXXX X X XXXXXH2 H-3>72"4` aADe Daa AA a a Vh`XHXL X DXBhH(h'"H"X$ " hXHXh h h T`6@>T`"HhHXhX hXhhX~IhXhEX}"" hhX5XF hzl\X g h#dhh6 XXTImTI:>hTI(!""  H``H"nnn L#Ts"@h hH nn  ! Lh`HTs+"wAH{:h TI:>X} h\\h \ \ hlݎ h8nH TT h\h\h HM!"hG!dhFH5  j9 qTǐȏ4"TُƏ*!vTŐ H H  -Xz H   #3T Xk H  Xu$$SYMSGF$$ SYSVOL \"Xm HE HXC  X\Xj H6 H X4  Xz H$X% H X0 \ȵ" \` ȲX2whth \ h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :XӐ H"A HB0Fh  0X  00j qa! 1" hh! u  HTLDِِHHSYSTEM MESSAGE XXXXt TT[T P SLITF $$ SYSVOL VEDITOR IN EDITOR OUT(  T[THi+HI+lTdy 56\e78\59\|U59dJdKdL hup8rdM d4dB|d%Cd^^d2_d[+{dddd d*TI}}d d>f|} 1 d| d|>d|\m? Bdv `dyTNjm|~-- 10@ d} Ts} Ad'mTdm? l `l lλfܵ 1T͋m- !\|~=8 lhf|ܛ 12edd2fdd2dddTm -̣ ! d]TTI (Bd(T +(CTTŋm-e8\|-\+.DTImT H READY AUTO,TYPE,BASE,INCR,IDENT CHANGE,OSTR,NSTR,STRT,END,SCOL,ECOL,VETO CLEAR COMMAN CTAB DELETE,STRT,END 8EXIT GET,FN,R LINE,NMBR,TYPE LIST,STRT,END RESEQ,BASE,INCR SEARCH,STR,STRT,END,SCOL,ECOL SEQUEN,R,N 7STAB,TYPE/N1,N2,...,N20 45( TTdy TH+3`e3y \\   y4 *B0"Dj Ad`ddadbdc`d'd d.Tc!H E @Ddc``bDdQadiodec  "c. `a2da2bcy Ts} ]LRke"V"'"]Fd(d'UAUTO CHANGECLEAR COMMANCTAB DELETEEXIT GET LINE LIST RESEQ SEARCHSEQUENSTAB ޚ*;*n TT Ts}  TT+fT+T+גT 12345678901234567890123456789012345678901234567890123456789012345678901234567890)00000 1 123456789012345678901234567890123456789012345678901234567890123456789012345678904-.8?BNUV (HTeTs}  dZTd\|UT' 0dXT * #  l  dld)\  dW l #ٌlTb bdcddd̺ T|̭  dTdu&Ts} Z T +F  ldM d1T'  dQ d8}Od |a %\ǔlT|y5-- 1 d>Κf} 1d}\}  )dyYhyZlη ȄZdYTH+Zy5Y|U\X  +T)O\)% dNd$OhĬňl%h̼lTdI\^ ̣Ts} ̜ll̗ d>nn 1\)}}Hh}ȈdIHhȈd}HhȄdJHlجȌdȄXdKȌd\y5Q ȄZdY D lFnܝ 51TH+Z}}Y|U\|} a\ pҌduAdR A d>ξ  dS= dT|Tf-ΤAl lӜ!ی lHd@nݤln 1̠" : 'y l̨ Al̤ δ Rέly4nΣΝl𬺌n> P18}O an)* # dtT|y5-- 1 ldf} 1d}Ts} Td\|UМ "lȄWlQ "+ u 1 d|}\|UTH+|UY|U\   S\|U  l " l̼ L ȄZdYa| 1T|y5`-- "W[dy5T|y5- "l*d}T||- 1 d>df} 1d}Ts} d'T  @ HH PAUSE TYPE CARRIAGE RETURN IF CHANGE IS OKOPERATION FINISHED...STRING NOT FOUND 5?U (&(TeTs}  d$*d& h Ph hdk dZT_' > h %\ژ}  lf 1\  dT  # "ldT\  "l  ̦l\̶  #dl\̨  #d  l  l  Tbb d&$ "SӜ "S P"S  Sd)T' ٜ " d>y4fy (1 ly [ ̸l d drdj}1| ɜ . d."ll Pdsl Kl "lTd ddmdRTh *  di dkl Tpɜ ;lT 1\̺ y1 h<%7ly2d&y3d'Z T +TH+Z!\ "dT\+Z#TA\B 0 d>fy4 (1T|y5-- 1 ldf} 1d}Ts} d'& d >̲  \+!$!A\ l)( k T +%T HRS(  TTdeAT||-- *d} Ts} d't  dT* l ,lT|- 1 d>df} 1d}\Ӛ} l\e !\"!T T HTTd욉 d Id dGT H2?O T*eTs} eT' k # 1Ud$d)\ [ 2ld& !> d1T E|dq lT|y5-l- 1 d>df} 1d}\}  8f}O dt̵ (ܱ\} l ̩* 2Td}T HzKLM/  TT'  d` daT  d>df} 1TTd|6/%d| lf|} 1 d|d| d|ȷd| lȯ!5 `d|T||~-- 1!  d}Ts0} G d,n 1\1} 8ۤ5 ܛ\2} -}  | | ! d}0  lT dt'  \3} T|-Tde:;T HB1234567890123456789012345678901234567890123456789012345678901234567890123456789000000 1 12345678901234567890123456789012345678901234567890123456789012345678901234567890-.8?BNUV ()H4TeTs`} Tdfg\|UfgT' ה#4 ; d} d} \ۜ]} d)T 0dX T|  du d1T8}O |a %\aT +i }1_| Ted.d$ d>nn 1T)}}mHh6}kȈ0d)Hh*Ȉ&d}HhȈd*Hh٬ȈdȄXd+Ȍd0) !\)/\)% ll/hl%hlTd)je\jend- dQ  dY  d>&n 51TH+}oY|Uf\|} [\ ҌduAdR A lο  dS= dT|Tf(ΥAl lԜ!̩ lmHd6@nݤkln 1̡" : '8}O 6 dad)* # dtnT|y5-- 1 d>df} 1d}Tsb} y5[ el l AdRۤ k d6y4mnplnܳ P1T|y5-̣ 1 lΥnܠ 1̕l\c} Tdfg\|Ufg*) "lQ 2lQ \  u 1 d|}\|UfgTH+q|UY|Uf\  j!\|Ufg  l̽ " l̸ μ  dY d8}OlT|y5-- 1 d>df} 1d}Tsb} hT +iT+y5f\+f dQ  l\+qY|Uf\F*d}\|y5`-̺ 2`̵l )[dy5T|y5-̣ "elT||-̔ 2 lΕnܐ 2̄l\d} d'T  @ HH՜)2? PAUSE (1T;eTs} }dF dZd$*d&T' j#  !l\ Y llߜ !I؜ #lld) d1( ; T +FT -̺ !(\+y5ȔdA̧dB\+A̞ "ܛ lTH+y \Ts} T HnSCRATCXX$$ SYSVOL PH՜)2? PAUSE (1T;eT} }dF dZd$*d&T' j#  !l\ Y llߜ !I؜ #lld) d1( ; T|cLIKDUMiDEVERRS9FIXONE7SETFNSg WRTBAKa7CPTBLNTSCLLBCTSLCUPI4RIGJSTJOBENTVOLUSEOPENFLSBATOUSYSCOP~FMBRRN_"~T15 UhPTNRELFMSWAP\ SWAPONRVTSUSCPJT2N7 MPDRIVkN9 rAYERTO2dLVLSTR -h$" ""h"hh ""SCH RHGET |`S1860 hhhlllH TMTLN4 |Gh H+h*TMTSh"B!}`: ` IDR12 xHLL18273 l`IDR4 xEh%h#h! @y!    `y  L yL l hShONhMhI hKhChAhFBA8<A h< 6n;ECXIT jFILE2 WCCPLU TODAY }WCONT yEND0V4>7MMEF sDONE dCPDEF KMMSIZ }ESMD eGETS YERTO 2gNAMEV4MTMINT UhWI1811ZMINT VkLOOP R]JPSWT WPUTS QSAV P+FT -̺ !(\+y5ȔdA̧dB\+A̞ "ܛ lT+y \T} THnnܐ 2̄l\d} d'T @ HH՜)2? PAUSE (1T;eT} }dF d8>?SWXYZ[\] R/***0( GET,,RT*eTs} y ݘ dt dVdUјT' %#  ll\ %  ll d$d)*d& d>|}f@ 1TI}}dD ln 1 d| d|d|Td)@|dN|dO lf 1T͌)-- 1! d} Ts} d'%TɌ)- 1l\죉} \)@^d2 `d5Tnj)|~- &l\ӣ}  dA dBadv d` l d| d~ d}d|T̸ %&) ) l "U kTV}} }hyZl}dy[}dy\̿ lI ̸ y5̪  l̤ ٬HhʬȈlԬHh̬Ȉdy6y7hƬȈl̶TyZ##| !| dY}y4n (1 !T)Z|-- )d} Ts}  ll~ !aBVUl)2\} \ޣ} TŌ)-vlO| 1-TdZ[dZ"p4 dS d>!\)Z-̦ &̣ lT)@@|-̑ '̎l\} \)-- )d} Ts} \|- 1 ldf} ܸ 1d}\䣂} uT|e- 1 lnܝ 1l\ʣ} [T)|~e-̸ '̵l\} Kt 2Tdy dy dy d>ίn 1dy}  l\ދe d. d ,dTT HpS> PAUSE OPERATION FINISHED...STRING NOT FOUND )25? (TneTsN} d$*d& h Ph dZT_' i> dm 1QT i# ldT\ i "l  ̿l !(\ i d1l\̸ i #d2  l &TsM}  lfܙ 1$d) dl( uT& !m d>y4fy (1 l d }1| Ӝ , d.̛ 2̘l Pds1l Kl 9dR̕ #2lTh "ܪ lZ T +7/TH+Zy PQ00\ 2\+Z3RQA/\ ll \܍+8ST HdKLMNU-/  /***TT'  d` daT  d>df} 1T  T  #dWTd|}s%d| lf|} 1 d| d|ȣd| lț!> `d|T||~-- 1)  $d}Tst} l\e d,Θn 1\u} Ӥ| >\ݧv} }  | \ͧz} | ! d}0  l d|d)W  ll1}d} }d} }d} \y} d'T|-T|y5`pp / d}Tsw} T)}y52 r[ o 13̡  l%̛ !̭Hh̤Ȉl̦Hh̞Ȉ dy6y7h̘Ȉl,}hyZۈl}dy[}dy\| )l* "lT|y5pp )d}Tsx} gaLhd} lTT Hu9 *T.d9db !OTb' OHd Z6H 1<٘7Ԙ2l ,l ddST *#f 1 l  & 1 Ts} ̫HdXT|T HTTd}PJ\y5LT Hy\Q TT*K "p!" d|d}Tm}P-- 1 d} Ts-d'Td}PM dO dolT H'hDHBXXh9Xh7 h3h5` 2 h/,*QH :1 !"h!#h `l d} d} Ts-} d'-Tc !. Ad! y lHl  lT HT d1)d5 !lT' 8}O   ld*T HdNTT' @8}O )& 11 ddT|y5-- 1 d>df} 1d}Ts} ly52 T HT)p4Kd" d7,d$4d6TT H2 TbTdb  !D Ts} d'8 l d>Tc !-  l'  Ad,an A lnln 1T H1 TTdehi !_ S l d>Tc !O  A  :  3 ~!/ !+ ר Ad,dn lA lṉl쌬nܷ 1Tsg} d'T H2300TTd}\} d# "  l d>Tc !5 / 9" "  Ad!ਸ਼ }n h n 1Wd l d"l Al̼ ܨ1֨d3Ф$ɤHl Ad פ }n h爿n l> l 1T}# Ts} \} d'T HD2T d/d0 # l1 % lTc  l  !l  l 3   lTs} d'T H25;<=T_Td٬ (Ts} d'P  lTc !  _3 $\} df d>\  $\Ѭ} ɜ  4\Ŭ} ̽f 1\̲ :̯  l\} T H002T 9hTdef  0/l, (dh -l h 0p8(hҘ 0hA hͨ  @m d'T@mp8hȳ h !@HHTTh\ h h hTT7O  dPdM;}O  dD d=d< d"d!}P n # ndC $ll 2l lB$K d:}Q  n d|γd}̠n̿n n 1}OhTmh׍-- -d} Ts} d'7o !<ČdT}OdΗd̸}OhTdKdS!l̦}OhTm ԍ- &̽ lnf}P d̻d:}OhTm-̜ &̙ PB$KM l6d; $1 n  f}Q7dOdNd8T H -67T| dGX  ;}   Ts} d'h lT l`   l)| -  d} d} \׮}  l   l̴  l̯  l̪  l̥  l̠  dGX  l  l  l Ts} TCT HqP)+0K'5<BK (+.47:K!#&(+-025K#*4;K!+16<K &-K K TCG (dS d>dTf 1T H -NY( /***0T d| d1 d` daT|y5`pp 1 > d>df} 1d}TsI} d'|d@  ly4 (1 d?"> ( dA2 9ޔ[  }18єN̔O|  l' #μQHPd}y5HhίRȈd}y6HhȈd}yYlyZly[lT})' |̾ )lS/d} d} d} TsH} ^* "lTa8f}O?gpK cTdy5LM|| 1;[l dRdSd>!'T|y5G-- 1 d,df} 1d}\J} Mdy5 d}T H'T dhRh.dim  &" ll d>!Tc ! d ; lT H/Tm ) d>!"r AdT `m h ՈnܔjhlT  @HHTpi dSj !;d>!4 AdRr AdT y dHl Ȍn h n T H tzX%X#X!XXXXXXXXXX X X XXXXXH2 H-3>72"4` aADe Daa AA a a Vh` HM!"hG!dhFH5  j9 qTy zyy4"Tyzzyy*!vTyzy H H  -Xzz H   #3T Xk H  Xuz$$SYMSGF$$ SYSVOL \"Xm HE HXCz  X\Xj H6 H X4z  Xze H$X%zx H X0z \ȵ" \` ȲX2whth \z h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :Xzx H"A HB0Fh  0Xzx y 00j qa! 1" hh! u  HTLDzzzHHSYSTEM MESSAGE XXXXX6H "(h%h THf@4y y"y&yy yyyy^SMCMONSMCEDTSMCSRTSMCIMGSMCFMGh h h h! 9hhh$ h hhh h+ *hhTy H HTyATy 5$$PGMNAM$$ SYSVOL SMCMONSMCEDTSMCSRTSMCIMGSMCFMGFMPA15FMPL15oJFMPL17mFMPA19FMPL19r%DATBASV4ODBSIZICHRSFG2qCOBOPS|5FMASK 2rQ8STP 2tNDISP MICSB22FBASV4PKEYV4RELFILT10 3T17 3AREAC 3ALCLGH89N1 bN2 3CWSEC0MICLENSMTSIMLMTSIM,BAITOSDATSEP/qPRTCDRR9SEGFLRGUSRRQLLIMRQULIMRETIMEFILOAD"QPASWDWKSTATRMUOPNRMUCSWRMUCF0RMUCFTRMUCLOR9MUX3TSPORTMTSPEND|TSUSERTSUENDHWINITSIMRSVFMRDEL^FMEOFC_FMMOSU BDTBINTSTKVOLBLK^SCHLNGMT25U1ALTERRDGNTABODUMALTwLSTOUT USTDINP BATLSTBATINP PCORE 5PCONSLUMIINP eTK7WEFTK7DATXMICSUB"SEVENTSEVNRDCPTRAC PCCP1 DUMPOT 2NBRLINOUTQUE ENDQUE PBAT00 CALTHD +mN4 N5 N6 N8 N10 N11 N12 N13 N15 ;LSTLOC B^TSAREA$LNRESP|#LINEUP|3LNDOWN|=TERESP|fPUT }INITZE ENABLECTERMLCPADDR}BSYEFSCEFDTARELBYQ3CMREQTCTRMNLSYSMON09KLOADSDJOBPROPROTECJPLOAD#EJCRDV48BRKPT pSYSSEGMIPRO MNTCHK2DISMNTAUTOBTKICKOFCALLCPCPLOOKTRMLUPTAPSETCPAREASTRBASMSIZV4MAXSECkSYSID tUBPROTLBPROT UPRO\MMWRIT]3LOKCHK]INSLOK^rFMCOVL^FMFSRC_,PUTREC_:GETNXTa COMSEQaLOCKFLcPFSHAREcxFEDUMMYdGETLOSdCSMD dE18331eCLRINTeEGHOSTfXSMD fSEKCHKg2SEKINPgCKOVRLhCLRSTShCLRTDAhDASTAThDRICHKhMSBLSBhSMDSTShjFFILBFkFILSMDkSMDCPSkSMDACPkSMDGCUkSMDRDRknLTOFDRlLMPDVCKl&sICONSLlfBINHEXxUNQUE z?COMREQztLOG LOG1 LOG2 MAKEQ SFILE3 WSCH RgGET |S1860 LN4 |GIDR12 xHL18273IDR4 xEIUP WS18273IDR60 xLOG1A P1811L VOLA PCONCU h9HA PACK nREL RIP1 P@MAS3004LEND RWRESET hFILE1 WJPRET 2MP1234P BSMD4 f@K65T10NXUC K65T12MIBUF W4IPROC P0S18326P83310`FILE4 WCPREL KUNFIX ?RCTV LMINTO 2kFMPA01TSLSIZIP1829 OMIB VFNR STOD V"INTRIEPORTS CONVERTSYUTILL000 ,C18331dDRkNSTATSUNLOCKckCERROR|VAMONTO2eINVINT.CLFRIO^TSPMINHWKSPLUT16 O_INIPRT.TSCKMUCEXTSTKOVFVOLPCCP DVINPV4WCDRDSMXMTENDMAXQUE8ALTDAIkTDFUNCFMSCOM\?HSLICUPI1ALCOREPLOADINW9BGNMON>8CLRDAShPWFAILPvRLSECUgTSRFTNCTSBGINCsRNRERLE)JTOTMIN2oFMCOMP\Q>SWPSECFSLIMT+STSIDLE ,MASKT ELIBET WPGMIN HMMREL CMSPACE 3SABS OECORE RRDISP L IDRCP1xDTK7RW FMPA10FMPA11TRANV WXMATR FMPA14SPASW WFMPA16FMPA17FMPA18SPACE4ROFMPL10uMTBFS0,MTBFS1 DWSUB dXCPADD L?DAYTO 2iM1811TLISMD dCPCHK KMMALC CCLINE ALVOL PoFLIST 2sPORTS ?AUTON PWFOV PSPCEV4SETBNDK{CWLGT0LCWLGT1CNWAREJLLUV42STLPV4R%LNDISBBACK yTIMEC CHAIN IaXMREL BBREAK |w?CABS OALLIN OTRVEC WDWADD d2UPTOD VNABS OCPFET LnPARBV4WMT25U0SWTCH WNMONI LCPMOD KXMRTN BJBFLV4DOUT PARAMEOjEFDATAREQALCP&QUEUP z3ECCALGiDWMUL dcFMSAVAJPFLV4TMASCONCOMPV4WINPTV4WMT50U0MT50U1S1811TLUABS OjNFNR SJKIN WAUTF9 W%XMMOD BNOG30ARiAFILV4[ODEBUGwTSIOC1JcTSIOC2JMMREAD]/CKTHRDO.LMASERRJBPROEMASEXT4TSMENDMJPCHGE*1FINDRQSEFLOCKxDSCHSTKJBCFGZWxMPFLAGpFMCHKO^TSIPRCC=ADNSWPATSLOFFRTNCORQhTSCLOKCkRCOVERi7UPLOWMP TSFMCPK4DISPXXLTSMMERKXCONSLUCONTCUe OUTPUTRURTN>CNDRIVhdCUCNSTh.TSMUSRNTSUSRTSEXITIpSYSYER78MI VkMOV WUSE RE>;kUSKNPGiTSWSECCDENXUMB[uTSCKPMCEFSTORSYSMSGy^]UNPTBLDKQEXTREGKgB20 f/AMINTXW*fEMPSRT,SYSDAY28SWAPARBQIN z>SCWSEC1BUSY CFMPL16pUCTABL"oTFMPL18o-SELFLGh+MAXCOPLOBDTBDISABLABSRED%+BATCLUWFMPFLGSKALNDg*JBCNCLWUNPIOFWREDUCEyYCOMFILyPGMINTITSULBF?"MSYFAILCSTATSFMEXECZ`OFNSWPBMIDUMMYdRESTORbCNTTBL2vCOMPRQS{ONNSWPATSREADR yTIME MAKQ SLOCF WBSMD f!CDRCP1{XMALC BADEV STHDS REQXT LR9MUX1R9MUX2MIBX VR9MUX4R9MUX5R9MUX6WRITE xAPBAT01 READRC`"INTXUNPSRTWRITERyFUNSHRc~TSLUNTI&L1829 L1860 I18331dECXIT jFILE2 WCCPLU WCONT yEND0V4>7MMEF (DONE dCPDEF KI1811TESMD eGETS y YERTO 2gNAMEV4MTMINT Uh I1811ZMINT VkLOOP R]JPSWT WPUTS yQSAV PUPDFCBy8TSMFLG>=OFNXUCBFTSPMCKCATTACHI:TSLLSBITSXERRI\PGMOUTIm\TSLICEJCPSET LMONI LT18 MNT19 M SAVLU NT14 ONdVOLR POFVOL PICORE QT12 R/SWAPCKRNCMPRQS{ALTDEVS)ALTSUBUSTIMEUPUDTMER UDTIMERUCJOBSTRVJOBINDWUNPIO WRECOV WPRORETWTRNVECW AUTFA WAUTFB W`COUTV4WOLDUMPXCOBOP YFMCOME\CFMPPFMPA02XMRSV BLPTRS WeQOUT zTFMPA06fFMPA07nFMPA08qFMPA09sASAV PUFMPL01ogK65CORFMPL03rFMPL04qFMPL05uFMPL06oRELFLEWKFMPL08mFMPL09q+DUMMY1DUMMY2DUMMY3DUMMY4 UNPENDJPSTV4FRELS1AWTCOMPLWTREADHCLRACRh UNLFILySLICERCrTSLMSBITSCNAC>:zSORDERH#ERRMWpMASDRVRPMASKO(tTERMCKTSTASK>@LOKFILyPLENTH ALMERRfP[XMBLOK>>TSOFFMWANTDRf DENSWPBTONNXUCATSATTCI=PTYERRPATSACTV>9rCLRSKNgObT0 NT1 NT2 NONNXUMAT4 NT6 NLSTPRTT8 Uh~T9 MN-LTSUSRSGWSCHTOPLaREAREQ?TSCHANIdSTRSEC#CLOSFLy.STRLEN9TSATCH@PGLUNTI#SYSLVL32_MMAMAXCLRTCUhCNTWAR2uCYLTRKhGTNXUMBS1827 |cLIKDUMiDEVERRSFIXONE7SETFNSg WRTBAKa76CPTBLNTSCLLBCTSLCUPI4TSVFTNCJOBENTVOLUSEyOPENFLy SBATOUSYSCOP~FMBRRN_"BT15 UhiPTNRELNFMSWAP\ GSWAPONRVPTSUSCPJTN7 MPDRIVkZN9 'AYERTO2dLVLSTR -PRO P4ASC LRW NIDR56 xL18326JPT13 1SPL4 fCLEAR y$SEEK9 g:CPTBL uCOMM18JBCNFGW*CREATEy&MRECADaDATFMTREMLOK^fDCLOCK@CKUADR]NSTACKTSTLOChTMRTHDUVERIFYCDUMMYdySECTOR{QCOUNTz=ETRMNLTUNPTIMWN14 @QMDSRT yEN0V4y3CC yCTEMLUzREDR yCLSFLyOPNFLyxUPFCB{SYMSG{REDR {IPUS { OPNFL{=GES { GEFCB{ DEETE{CRATE{ CLSFL{QR9TAPFMMAT INPUT yQSMDGD1kCOPYQ zUMSAV PRENAMEyDATFLGe!DELETEy"SEKCOMgSEKDONgCPSENDySCHERRWSTMSV48JPOLCHKhNIPROCP0TIMSLC@JTSNABL>8PARTBL >LIBEDTEFLISTSMCLNKySMDGNUMLU DSORT zJPRET1WCARDRDOXMESAGEzGETFCByJLGOV4?SMDCPAkU2INITFMUFCB^SMDCPGk0VOLENDOUTPV4DELRECyLUNAMEONTIMEMICSECDENXUCBbEFCOVLJPRENWWABSPAR\7 %CL DSORT g7AECUQ6[0123456789ABCDEFqLU:Biv%vY#S d@y6 LU`%=4CLSFL{QFMPA15FMPL15oJFMPA16FMPL16pFMPA17FMPL17mFMPA18FMPL18o-FMPA19FMPL19r%FMSAVASTRSEC#STRLEN9DATBASSWAPARB B* @`@tM*RwO˂Fb{^ X0?@`#7 P+oO@C H? ?`a A4a9 a: a>afae/]    T AA e" !14;E+H jAYc O e #D asAtthT` + ‘s hiheXaeAfa aoma/y Aa-X 4-Th `efTWva 10Q6 X2X af (X E XP aa9 XI1**E*T a 3 Q6X aX ENTRY POINT TABLE - Xg X ***COM Q^ X ***DAT Q^lRA A. a a }|0Cda- c A: a a a .. a.ѐv aH- 4|a h- Xg! X`QZ 4XYn  43b4b A9 "X 9"9XX X  (&$" (cB aaaXB0A B(aa?*PAGE E *PAGE9htsH h >??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L hh(bbll f$ |Hl2hBh1  !"X.ClAhڈhX#՘hXElXAl  hX ?lغȻ hصشȱ Alج h & #  H \,,XX  H a* f XhLhoXhjdhqeXXh:X6  F C _*)(  O  I F0HX hhHeX XeX~:h X?l -X5l  !MT zF"T{ ̠ =h=Ƞh5ah3 hȸ "0(hhH#!h h.-tT A/2f AbȔ hX l aa T IrAsBHbbNqdb!d AaJ aa h2 8!b  4 B8(a a $ !HB8( a6b )5!D5&  "5Xa <%&1a&&La%ض H B8 h % c h an C n HhTA.a"H hThmhX$T h$ hXlXlS hDh HhX" hX"h0H0bR h,hX2`XM hhhjXXXA AP hMh9R 4h4X)R  0D j  jB  `) hd  `ɷ)hh 4 "XXth!XthB ]JHgX` \FNF2OPKFSLXMh XN3 "0H~HXQRXXHhR g 'HXXX)* HXXHXXXXbXXX Hc h^XT T T , (VOLUME NAME) (ADDR/TAG)(F/D) (A/E) (A/D) (KEYCOL)(KEYCOLS) (OMIT/INCLUDE) (EQ/NE/LT/GT/LE/GE) ('HOLLERITH DATA')FNF2OPKFSLX|XXX 3 %`TThrRh^ 4hhYXOT T an XhH"GhTA @hX6n6g48H h' h%F(6!3hI hihh hT$ Ab5!R(@'7!m HA(h`(h( T B@)" h 5ȺT Tΰ7hhhd 2T&h h ahH HHȽ(qhhhN}C  8 n 3BnhDhddhc aHXmX{hhh2a7hhH5h'h&B15!5 aB0'hHBA% 8h B8(a&5X  ahlh(h'h//h11h1hhh#h"hh 2h \XXnXX$XXS Fbd$h?B`Tl<31n48 h6),!R(@(&7"m!HAH` hT  `!TTBh XX; `Th ahH H(qΈhɈhȈhNC  9 n 3BnDhhDb%b&q h 4( ` !TT Hn8 aHXXhnX^5h*h) !'%hh 4!hhh b ` aah a=h%3\T("%Hh hB8H!VHHh 4  a dh`l_w hh#hh"h!h<h;2h @\XXX%XZU` TB`Tl<31n48 h6),!R(@(&7"m!HAH` hT 3`!TTh ahH H(qوhԈhӈhNC  8 n 3BnDhh aHXRX`h#\w5h3$ Aa53`ah8` h !0hh 4!h h$Hw l|` nX n`ahaaT  a hl/h1hhh2 hNhO!h2h \ PFTN33B DECK-ID 01F FORTRAN 3.3B SUMMARY-132!q@PwXfvh h Dh h h TZy!r@PehT%X28Ih[ X8R+hP= : h84H+!s@PChF X h,A1h;h.xh2 " l TLf !t@PnhERh  unFTN3A1 __ 2h\Y hX < !u@P  6 0j5Q  :j/TL: FTN 3.3B (OPT = LPXC)  !v@P PAGE DATE: MM/DD/YY TIME:  !wPFTN EXITF 0PAGCHKASCOPTPRGNAMPAGNBRDATE TIME !xPFTN wXfvh h Dh h h TZyehT%X28Ih[ X8R+hP= : h84H+hF X h,A1h;h.xh2 " l TLf hERh  unFTN3A1 __ 2h\Y hX <   6 0j5Q  :j/TL: FTN 3.3B (OPT = LPXC) PAGE DATE: MM/DD/YY TIME: 8 %# 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ$.+-=(),/* 2LOG1A P1811L MIINP eMT25U0MT25U1IOPR JJBFLV4DOUT FBASV4MTBFE0 MTBFE1EXITF 0FMSAVAJPFLV4TzKICKOFTSMENDMJPCHGE*9ALCLGH89SCHSTKLSTLOC BWMPFLAGpDATSEP/TSLOFFSTRBASDUMALTkRCOVERiN15 >0LQV[`ejot $).38=BGy..0 @,\o*[,g_),Y|,Y*kO*ΰB*ΰ3*˨*˨*{*ˢ*\`**CC*n ^ ą Ĭ2*V*\2.g .Q.Q,\j?.O=.NY*̒.\o.M.M.M2.NάL.Qb.Q.O)L.N?.Q.Pe.Oy*OESPACE 3NUMCP TK7RW FMPA10FMPA11FMPA12XMATR FMPA14FMPA15FMPA16FMPA17FMPA18FMPA19FMPL10uMTBFS0, MTBFS1 CWSEC0CWSEC1BUSY C$FMPL16pUCTABL"oRFMPL18o-FMPL19r%MAXCOPLOBDTBUPBDTB.PKEYV4TSPAGE dFMPFLGLRTABL'PAGNBRSYFAILUBPROTRESTORbCNTTBL2vN11 SYSSEG TSMUSRNTSUSRSYSYER78USE IDLER ,RESET > d T TF" C A lTyT l)"C O CPT\T MƐONT \TTشT. lT# ) .40 06 e/ 8S# A J BE @BBPa-- dTu hX6 fZ hJ6 fő dȾdǾ dd9d lTƏ ld0 Tӏ T!  l̼  1# 1̴ Tc ḻ % " l̩ ̦ ̣ ̣ \Ǐ̚ d#  $ 1̝ . \\"dl d "!7 132?A@BA@<987eonmlA@BA# dTW d<$d!5TKToE Tӏ'% \  7 !4:# d  l lTi-TF0 \ϏT N@SmPlTuT?T] l d/\ l\TQTE dF d \  \ W K\M ν θK  αK Tӏ\̽ Q̹  l d@m dT̤ ̠ TF̚ 0  l\ d!̛  d d:9h,+h*5h)R a> R+ q )0dhh bh h h T`A n qH   >Dh}>w8 0` h !aH + _N ȯ "ج Q#uMrJF (jj AXBf ` h[ h. + X ` i k qYh|%.$&),% *N, 12 MON TH)Cb{ ^ OPT 0 `TeI k qY=hl TL9 TLp&XADlYh h@h"1kl qߘX"%A hψhs    Hh3tȾh Ƚ  TL41 h d `3H  qX jA TL`G 5Tӗ _0n hX hnX hkQh\hQ "p0STh &h ?@[\]^_Hh" "dL` 3#n 3#l` H s" Ժ hsHXhh`Xhhh HL#dh`H ! laal aaI`GchGW "X bX 8L "HT H'sLoAAdT|LZ3AaRy 'Lv T*a)RH%3I  aHQ A a"vR  2LaHH ALȾa `\ R3 [1 Q Aa !2!* *l hhhuhi f[G ߂M^@BPCE}GN HJzLLK@````hTTa"aaDa"a 1 aBa    @ 0BXiaa a ! AAA&dRARAa2H aaaaDaaaa aX X2bbbX~TAAAa *aAAidadada a ' dXX,#a! AaA! ! A! ! A! Aa AXa A! !  XÁ XAa! AXa""aaA Aa a  A 3A a s Aaa ca 1 mAa$a+Aaaa"#G a a a aaaa#a"aYX=X}#a 1  #0ad a  ! 1 3d   #2d A d ( 2adaa1 aDa1 bAa?ad A2aF ad2aa1 aa1 aDa1 aaaa#aa aa a A&RARAda 2H a a a a   ! aa aa a@ L bb@`" H)' a! <!( d4 a!  !( l 9'!"#%&:;<>?@[\]^_ $$   %%  hhhhhh h f+ 1T0 h4 !3 !?^ I e" ; 'lr '"h2 h l  lȝ" : '$9V" : '_(Y" ; '&(.>g0   l" ; 'e lZd.4d/ .l5  lTl  gl̿  l l d2 3 " l l\1Ȍl l !s̙ h !`̲dBd[T̫ ̨ } d-̠  l̛d\ d9dV!&\̎ 2 4(f+ n   l ln l̹  ,d.̼llȌl\|l d5l  TӞ> l l d1 d0 ! "^" ,l̻dRl D \Ϟ_T4 "]  1 - 4 >̪ \> l l lLd/ dV\Ϝ l\ l\̼  l̵l\̱ ̭ \̧l l\̠ ̜l\̘  l 25  4" $,l l TӞY9  d0 d23  l !L6 fB$Xl`Lh<]h9A,5l # dTLh*h(@,$lLh h?,؈lӤ^lܬll " l̳ 7 l4 %8a$,l̙ 3i d2d l` Z B dVW  lT " $!#̽  l d32̳ \̯  ll(֬ ll %l l  l̺ ̧ T XĀBd, d-2 $ !M 8dl7l?@݌l  lT?7lld.   TӞb\c3  d0dlZ lVel \b \ޞf4  ll  l d2d/ dVW  lT J ll d̮ 1U  ̡  l  l d3 0  .ZdTTH H4 H3N#dlh-4R,"DPRLQ  `h#XlX H <$S h TT ;p4Id:4h, h`+dRm @HH H h h !#H  H"h! h h Ah @ m 5@06;; dh9h h h .j 1 h h 4j lh lT $  4  hÌ   1 6 -3TӢd/ȧḻ ȡ \ #3̽ / h ؘ 1\ݢȄd,Ȅd-Ȅd.TTHt HSNPhOT#"" n1fTfU,fV-fWP5KLl0 2 nB n n .$$S,n %% -n/n *F,58$$%% hQh dNdM h  F  h lޜ dlTK" 8 % ؄Ph  l ̌dK bN ,W -0  ~'dN .. PNSIM OI K  F ̘dJ̔ۄLlv PlKQ dlTK ̽PdQIE ddT#ߤl dH l9 `ܷ nҔK \ڣߤQLL" 8 % l̵NdR lO !Ll\̟d *\MߤM dT dM׌ dSdJ6 fSH)IH dhY  hZl^D _ hhhdNTK @Um[l\ @m\l\ @m]l\ @m!h ȕ ȑdhEh lTߥȇ ̒ >̍d̉dY@d-ΌМ # dTӥdZ dl; dnӜl̜l 1 2 .#!dl    5 2\    8 5̭ \ @ HH END'!"#%&:;<>?@[\]^_ C * $ . + O M PROGRAMSUBROUTINEFUNCTIONREALFUNCTIONINTEGERFUNCTIONBLOCKDATAMACRODOUBLEPRECISIONFUNCTIONQ8QNAMQ8QBDS&5>CZ  / `)( M09+ OONMON pqpr0"0# 060/K d hhhh hh TEǿTǿ8 ȰdddT#:;Ǿ\:<Ǿ\:6Ȓ $ df< $16l h ,d> l!Tŧd@  = 9 2" 8 %   lB + \CD!T#CDQ+" 8 %  ? ?̻" 9 %HoTE*̾ + dnܷ (1GSHn̪ +\CD!ܩ l+ d6 HlTŧd=ITeŧA l   Al̾ l 1 " 8 % &JdǾ9lŤKl l얶h+  1M"̮L""! +edc " dENl+ +TeŦAOl̖  d5+d> 1W l f(ܥ 1 l d=Tŧ=d@ n̐ ܍ H1TƧ)8 lf+ 1TTCD!̾$:l dd!!-  ,   l+"IdPHdЬdQ d dR+ $ l\CPD!d $Fd= l̸d@fܯ (1  6! ܔLHl l՜9T#::/aƔSŔJTUT\ǤIl Teŧ8A p  ldV dW d=Tŧ=d@ Z X !M̪ Tק] l f( 1 ll !# H!\ŧWl  9 Z!(̿ !$ Z8̷ 5̴nܧTƧ)8\) ܜ H1 1\   d5 ld=X# 7TӧY dBD d@(f+ 1T$:dG  TCDQ ld!Q- P, \ȧZ nfR̴fS lܫ l d ^ l d̜!6T=l d>̢'  /1 d[ 0l̐  1Tӧ\ /l dTe== l\=Ч;3 6l\ݧ] d4{   l9fǽܘ 1T#:;Ǿ\:6" 9 &5 Zl\ lT F{d72ǤK^ƜŜTӧ_ !2 !l  ld= df< $16  $l lc d4Teŧ8A d3T\ç`R\a\H H4h3h2 /f q d `H"//Mm"m XHXd n  f q` B0FHB0F00 hh f q 'n/ q7 hyh f q hl #Cnh  1TLTH'/ d, ` a(D-c )m ?mĜF --H+ 'fC qTF80TDhȬ`}OPTIONS RKPALMXOVCD<  l  l 6 l h lT#HTThhh h hh.7 d =@ > ?3T ,M T N@Sm T TӬ lEn"dlP n l @HH Ah  @m @m@HH TT h\h\h     1 :@ "L " T ` m   w !             /   .*   (    $ &  "%  #. !6 <C J ,P-U h l'h d +d4hT #!3 1 #1h\ *ܘ!(Ռh; h d9hǘ:\  lؾ l ̿ ج̺ ȧ h̳ Ƞ bț ;̧ 7\ $!* !"̚ 4dT   ld6\   l\ #1 ' d#X  l dTF/! 0   ̺  l l lud̜ l d̡!\̚쨖v  lt  dܖlH TTh,hL "HT H'sLoAAdT|LZ3AaR/.. B. E  hj /1J/  OT4  ETӰA h p4Chdh h+nصض 1ӌl̼  dT ̳ 1 lȜlTӴP\̤ ̠  lO l\Q̥lTF +/4 1 HofP5W,0 hhh dNSh $Lh"p8 hh Hhըh h h 'TӴ l=7TF , $0 \ȶh "\jت/ Ƞ  \Ѵȕ @-h %-܈DŽl @HH l'!"#%&:;<>?@[\]^_ lT5 J ll d̮ SUU ̡ ,=l 03[0  \.2.dT hnh hh hhTF0 / ؽTӵ[ M TNSI 2@mK-  @mk K K \C K \οO κE \dή  Tӵ[l d f| 1 ddddNPdSIdlHk    l`笚d Um $Lh(p8% dlƬ Hll ldn l ܘA !/ dddTdd d  d̞lTF0 M TNSI 2@mK(  @mI Tӵ[K ̈́Pf| l̍ /  4\ܵ[̟ l  ll l dT4 TF̓d \  , $0 \[f}\ 1 ؞ !Ι !f~̚ \ 1 f/ ̙ l l ̩ lܗ Tӵ[\̫    dddd̳d  $d ,$d$l nf!f" l !) n d m l/ eT4 ] \[ l̝l̩l 1̜l 1̎d 1   n"̖dll d dTF̧ 0  , 2zl\ u u u Tӵ/ Q l d d9T4   l\ᵕ[ "d dd(d /$?@[\]^_\1\l7 hT4  h    l d9 h h\ TӼ lx!   ȿ  ػȻ1ȵlȴ h \޼9To hn  ܨȤnhTe&7d؛ 1 d!7T4(l /$Fl\&7ܚ lvl /#l\&7  l  El  $lHTThhh\hyH AEFHI.)R$/X,(0B  l3 l2l2l2l2hhhT7YX h     h h "! 'UT\ Ƚ d 1Ⱥ !" : ' hȣ裖G " ; '_zyw Z 1 ̷" 8 $ ̥" 8 $ " 8 $`["! 1umfvmxJmkGEvtf̧ d[ !g"! *[Z7XZ l ̵W  1@"! )F542F76>YUd dV m l d l l l lܿ l l ll l lьl l l l l̻h , l "Zl%̲  ̠h $l ̑h $l̋Wl̊  l dXT7YXYU " d " dlV  l[ "| l$H!TThfhh?h\h_hF\h[h1\hWh\hThe+QR e h# d%TF0 ,TӿE/  [}\ \FM P\G  CTu d!_T N@Sm  @m@m 2@mׄPn̦ ̖ \F"\ @m̾nܱ B1̬ lD TӿH l\I @ HH_"d d d#  l lT HJߴ&aT F \e? T \YK \SQ \MW \G] \Ac \;i \5o T T& Ta TT T TF \  \E @BBPNSIVhH  IH  h hH  I5  h@mϨ'h $Lh#p8 hh̽ ȵHhȲhhȭ  Ȩ&hȥ hإΤ ȗnl@H HTThGg7  n hf" hT #4"Rl "TFPNf!/  yh   \ lTӲ,M T2@Sm#  KI Ξ !O'h=E.8  ֬h,K((  @m̗ iTF/ 0 T4ld+, l!dNTKΛH  SI- I lI ,lf"T҄P nM T @m*l3 )( !׌n l 1/ 2 L lTӲ/ >4 c  n 0\ '̩  NT  \ײ0\ @SmEn  nPf!\1E  d*T̶  d) n̫ " d( #! nlTF0 ,n nܼܻj4  ḻ l @ HHM FT Tӳ0TM T N@SmP n/ T4 \ڳ TDf! l @HHl9NO3 `h +T TӴ/]M ENT ! \07T @SmYZh X  %\Ѵ1؄P@^m̶  @m @m lTD̟ ]UG- \2̨n/ T( ]̗f[ \ ]Nf].    B̴d3T4  Y@m 'f\ l\̸ aɄPn d4Z=ߌ d5 n d!̲ /  lTK @UmΕl\ N@m[l\ @mζl\ n̎l @ HH  d/ddzd7d-d.T 2/,81  l 2 -Tӵi"! ,1PONMLK\i" ; (K Dܶ "\еi̯ l̮d6̩ "\ĵj, \i  d9dkT!2k l l4 \i(81 %2 1 dz Tӵl.  \m̷ A d!HSa?T1 TӶHd A2W, hhh dNSh $Lh"p8 hh Hhըh h h 'TӶ5 l= TF , $0 \7ȶh "\5jت/ Ƞ  \Ѷ9ȕ @-h/ %-܈DŽ-l @HH``hTT h# 2R h hhdN  nv hfTPh lTKTf+ˆh h hUH h ) fثتl  \ \˶ nζhȋ #Ȏdn dl\Οln ll $lmHe1kl qH'!"#%&:;<>?@[\]^_  \h7 hT4  h    l d9 h h\ Tӷu lx    ȿ  ػȻ1ȵlȴ h \޷v9TsY hX  ܨȤXhTe&7؛ 1 dxs!7T4(l /$0l\&7ܚ lvl /#l\&7  l  El  $lHTThhh\hyHhAEFHI.)R$/X,(0N ȯ l3 l2l2l2l2hhhT!CB h     h h "! 'UT iȽ d 1Ⱥ !" : ' hȣ裖1 " ; '_zyw D 1 ̷" 8 $ ̥" 8 $ z" 8 $`["! 1umfvmxJmkGEvtf̧ dE !g"! *[Z7XD l ̵A  1@"! )F542F76>C?d| dz@ m l d{ l l l lܿ l l ll l lьl l l l l̻h , l "|Dl\̲  ̠h $~l ̑h $}l̋Al̊ | l dBT!CBC? " d " dzl@  lE "| l$H!TThfhh?h\h_hF\h[h1\hWh\hTh  ! T( I n f! f" f# h@&e$ e% e& e' e( %e)Ee* e+NSK ( e,Pe- l l/ TӺ0 @ HHY TZd^d 0 hhǸh ldǶ l h dǴ dǷ dR dT dU dV dƁnf ddz 5 2 l܌hfƟ fƽdǮό h袎 l Ş7ܾ "TF 춞! !!dNTKSI줆nlαlÜ =̕Ìd̐ dǷǴΕd dǹ 3 "AΡd Z!\ l!$ߌ lӎl`AǮf̤md  ldRl  A̻  l d̮ S̤죆"lΛ 1 l   l l dǹ l l lCd  l l l l{   dǮ̿  l  ǴfƁǷf llƟd l!   , dm l " le l ǹ" llC "̹ l lĜ?̶ ḏlή ܖ nn̝ l 2 ddz ǴƁ5 2 l " " 2̪ǷnǸǮ l쵆 dnɖƟ !0dDz 4dǰ, lƽ dDZ l 5Χ 2 lݎ錚lކ! ḻ l̫ddzƁfS̷ ̲ ̭  ll̳8ΘfPܺǶ F d B l̙  dǰnll̕l8DZnܬǵ lǷǮdDz dǯl6˜ndzl ll nSƁ ldW  Y2 dQdǸ?SlP 4얮ldS  l=dǰ  n " ̵ l >l  ̵  dǯ l lǷ!n̤dl dDzdH ! dǸ<SddzP n? dd l͜!4d !) nT l춞 Ɓḻ l؜f 7ξnܬllǮ̷ dǶ l!>Ξl 칞!4̵ 1 n lSddzl̖lܜ8nl̦9Pn̚l l l̸d ! Þ !̾l ll̤7λnܹ lܪǯ Ƿ !dDZǮl7 nܐdS #l dQ ddz dǸ!SdǰΎ 5P ndRll  lۜ8l n l dDz l . *̻ & dWξd ̰l =αlη  n̠ ̟l̚l dǯ?d !qǷ!Ǹn lddz ǴƟdDZd! ǵ )dǮlǶln lΌlӜ l̯ ( dǰl6ʜn̳l l̴ܵl7θnܭǯl뜏nܺƁl̍dXl̐  ddzٌlSЄlDz l  l̯ lǸT dǵ l dDZ̟Ƕl̽ !( d"TFd:ln l9쌘lnلǯlӌn l̸  l ldz9Pn\̠ S ll̒8nܩ̑lǵ7nܜDz #Ǯ˔Ƿf dDZƁlǸ ll dWdX dQ l̑ V چ!ldڜ7҄ǯnǴl 1;̺ lƽƟ l ddz 6ζ 3 ddz̮잆ƽdz h̥Ɵdzdǰlǰ7Βǯnܶ dǹ   dǹ d dddǸdǶ dƁ= @ HHENDd) d0TT= h hT=h   H1 TH07 \e? \_E \YK \SQ \MW \G] \Ac \;i \5o \/u \){ \# \ \ \ T7 \+ &'-,--)*/>VVhJ6 ő   0 d̶ l: l7DzAd   lw lsAl       l Ƿ" ln̯ d& "T f! f" f#̜ lǴ~l ̾ R  fPn n l fQ2NUm  @m  Tӻ" dǶ $ !T       l f"dǴ& "T5ǵ$fƂ lU l%n9&n̿ "/ fP l d!̟@m~ le!(̐   $'nκ(nṇ l  lnl d !\nܻܺ Ǵ ! lƁd) d }n̗ ln l l̒n̏fƂƄf l  l f{̽ l̺l d& "T̯`ƃlnҤ*l !? dǵP  !l K G nǷ  ? ; lܭo Ǵf}~ lddƁ^ƂdJd)ll    n   n lTӻ+\, @ HH0d \e? \_E \YK \SQ \MW \G] Td \;i \5o \/u \){ T \ \ \ \  \ENO3Pah +T TӱM ENT ! \걩7T @SmYZh X  %\ѱd؄P@^m̶  @m @m lTD̟ UG \̨n/ T ̗f[ \ Nf]    ̴dT4  Y@m 'f\ l\̸ aɄPn dZ=ߌ d n d!̲ /  lTK @UmΕl\ N@m[l\ @mζl\ n̎l @ HH%?T1 TӲHX8!+!+!+!)."4H+hF )/$$*S @>#. l O dddhdhhdhhh"d=%d>#  8 l l l n n nf*f-f0f3 f4 %f+f.+f$Ef/TF/ 0 &Tӳ" n l f! n n?n n f& f' f( f) n n̓ l n %nn̈ l #ddJ̺    l̉ l"d̡    l f; #f< d,d- d.TM TNPf=T d " n  f!f"̕nn̐ Ռn l l܏h\/  " t f1̳f2s d̓ l %dLd̫d\ o l %l_lTF f+ %f, f. %f/Ef0 f7 f8̯ 0 o f% f! f& f' f( f) n n n n n n f*' l %n,n/  n n n n n n n n n n n d d d  lT M oT N@SmtlTF0 o \ @m2mKd %Tӳ" @mĤ ξI \5̗ l̙ ̔ l f dΥH  ΚI  lNΑI  lf" dPf!/ o dTF 0  d  d$̵ l̲ l h)h'h$h!hhhɈ f daaa#a̺   Tӳ" d(/  d! d# ld% d& d' d(0d)"l dTF 0  oM T2N@Sm Kd $\" @m dH  I  lI  l/ & 2o lT4 \  o̒ ody   o\   dTF̶ ̳ o0 od%d&  l  ld' d#˔ A d! d$d̻dl d9d̳!T4  lTe(4 l\( d\(˳ d dNS d d  $Llp< dl Hlll l d- d. lϜ! ̋ lڄ dd,TM T̯Pf l 21d%d&  l  ld' l dl d9l!T4 ̤ lTe(4ܛܲ l\(̒ d\(˳l Al l!̔ $ d dd n 1 , l\(˳ , l\(˳ ,l\(˳ d# d$̼ d!"d)d̵d l 1KYZlX  %Tӳ @^m m (l,m'e[e]e\ lҜ;͌ dn܋ l̿lwl[ d dT̙l d dl4dT #1      l Tӳ j o (d# l̤ lT̿l l +d/d $dl "T!Ed"!l d h ldl0d?d@2dA lTٹ  l l\!̧dllll=l>d% h @ HHj iPUPW qYh|%.$&),% *PT 12PX dNdPT %SI  hV# 7% 2 hȷ@m ` h hȧ h hhȡ 2ő ؖȕh hhlTKUO8 >ΫO ? Tӹ@ΜBd9 dA<Œ  lœ  lŔ  l  4 nG܀őhT5\ɹC n  n3,dD $LhNp8 dEl HlFl l좞 ! 윞 "SH8  IB I <Œ nI `, mE& TdG 1NlTK dHνdIdD dJ?~E dK.lNΞH ̠ ΖI SI lIB ,lΕn؄P ldLdMlɔ 1E l̻dAγ  ̴`ͮfăfĄ̩ lΡ  nܞ̝nϜ 7 nl̐l dN< =ܹܺ  ! n̮lTő Œ œlldO  lMΪΞ  ldP A  `LfăɜfĄ l n n l ` d9dQ dRО /`lm̥nlm̟nܼܽ  lκ Ԝ γ l d= dSdTld!% ĂdNTKSEl ă  lAԞn ̔ l dU̐dJd" l\EdHO8dG   ļdVd!μ  θl\@m ̾@m̺ dIS ' Ü ̾ ̦ăhT TӹW făON@Smlld=!< 4JĞ Ą콞 "lTKO8 G ހăh\\̟ăh\\W n̔  E9dQM " dldA dXΖ <  3l-Af f dOld!dN\@Um  !1l̲ܳ 11ă ܧܦ *Y  lTӹZ ̔`nĄnܛܚ9̘  l\Z @ HH' " !o @v h_dNTK h h hhVh &h h h(hA(dŘ<"`p9iɺh  .h(jؽ hؾ 1ض 1 hȯA hȱ@)jȤ h 1T#ltT@H HTThd!N  lPLlK 3 lTKH wXfvh h Dh h h TZyehT%X28Ih[ X8R+hP= : h84H+hF X h,A1h;h.xh2 " l TLf hERh  unFTN3A1 __ 2h\Y hX <   6 0j5Q  :j/TL: FTN 3.3B (OPT = LPXC) PAGE DATE: MM/DD/YY TIME:   ̴dT4  Y@m 'f\ l\̸ aɄPn dZ=ߌ d n d!̲ /  lTK @UmΕl\ N@m[l\ @mζl\ n̎l @ HH%?T1 TӲHX8!+!+!+!)."4H+hF )/$$*S @>#. l O dddhdhhdhhh"d=%d>#  8 l l l n n nf*f-f0f3 f4 %f+f.+f$Ef/TF/ 0 &Tӳ" n l f! n n?n n f& f' f( f) n n̓ l n %nn̈ l #ddJ̺    l̉ l"d̡   $).38=BG f' f( f) n n n n n n f*' l %n,n/  n n n n n n n n n n n d d d  lT M oT N@SmtlTF0 o \ @m2mKd %Tӳ" @mĤ ξI \5̗ l̙ ̔ l f dΥH  ΚI  lNΑI  lf" dPf!/ o dTF 0  d  d$̵ l̲ l h)h'h$h!hhhɈ f daaa#a̺   Tӳ" d(/  d! d# ld% d& d' d(0d)"l dTF 0  oM T2N@Sm Kd $\" @m dH  I  lI  l/ & 2o lT4 \  o̒ ody   o\   dTF̶ ̳ o0 od%d&  l  ld' d#˔ A d! d$d̻dl d9d̳!T4  lTe(4 l\( d\(˳ d dNS d d  $Llp< dl Hlll l d- d. lϜ! ̋ lڄ dd,TM T̯Pf l 21d%d& @  "&0    lL`>``V`l`oHb`   !"#$%&'()*+,-/45678:;<=>?@HIJKLNO23FG l lLTTT ̊CCr dhddd&ddžddd dddY 1dĠT \T\'d  %!\ȶNfV ȯfWȫn>\ TExT\\ dA (\̼  \\x\{\\ۏu\׏xT v\̏x lTp d d  (hT dld    d l"!( 1##;:<;=?IHGF cfi2̟d b q !T lTT?TT\md d d   fŽ f& ldNTSId nրphT   TEx3 \x2 \xT\zT̠ddTA lfml\ dΫE  mhsh\ \x׀nh\x3p  ȀphT% TE}̶qh\x\x ̤mh\xTΗdNlTSO Tހmh\x\x\zm \ d # d0h\x  ȀmhTEuTuTl̵shTY dξn θo   l dE lΠdNTT l\  l\  l̻" 9 &$9]̀mhTExÀnh\x̵ ̸oh\x$̨  ̫mh\ߏx̢oh\֏x ހmh\Əx nh\xnh\x  ݀mh\xԀoh\x dhTn dTod S O d߀ǹh\ǹf fA̚ l f_ f} ٖm!U̿ 2T̺h\|^ 1Ǹnf̷`nͦn̰fṶ̈̀ l̨ n̡ nn l n@ nnnΦ Σ tdsnnqhTY}_ o l  lΙܖ aΑd m " ; (edkfed TEx ^ο  l 1QhTΫ hT`Ǜd͙ d l}A ǹlΠ " ; (  lll  dn lmdpdq l\TfT @ HHk HRhWH HIhNLHAh0h@=> h;=8@h;"513/!Jn,, q+%s%̘H>XEJA hh j2 h  @?̩&X*/h h k) XA h Xh TH@ X h TL@  heX; hX j2l hhD0 `TeI k qY=hl TL9 TLp&XADlYh h@h"1kl qߘX"%A hψhs    Hh3tȾh Ƚ  TL41 h d `3H  qX jA TL`G 5Tӗ _0n hX hnX hkQh\hQ "p0STh &h h hX hVTLTL T0SOINPUT ERROR Hq``Hs"ܨ @ dTF0  EM NS 8K 12I 1,C %2  TӘT @m m l̹  l @HH@T1 Tә8H' h+Hj  &jn  &n 1,(h(ވl(h -(Ո.l lH hhH(h'  f qh @HB0Fh Fd 0m `h rH ` H~h}0 lr  j A *h Nh ,hh0d d< Fh T4l1TTL T SOHq``Hs"ܨ' hjHj  &jn  &n 1k(h(ވl(h l(Ոml lH *F,80  h  hJhIhdNTSK@ .UH9h h. '辞  踆 hF C I hε  Ƞ 螎h hΪhȒ wvdys 8h lrz1;&|d{f  lnT}}n N@Sm m m&T~n~o dT lŽ ܛl \Ě}n܏άl̽d@HHTT#hgh\hb h h  h  h(Ŀl ;  TudĢdģdĤ h dT 4ľlll!dĥ lnĺn n  nĽn l ldH TT#h\h| H4 H3N#dlh-4R,"DPRLQ  `hXlX H <$S h T?=>T h ,h (h n ,h ( h n 1H TT# h h\h dĞTqĞĞH(dĺ&dĻ$dļ"dĽ dľ h N TbĨ\Ĩ\Ĩה Д ɔ ” 3̻ \̴ _̭ ̦ ̟ ̘ R̒ Ľ FĻ ? 9 3 - ' !۔ Ք ϔ ʔ  Ŕ  TbĨ̷ #̱ ̫ ̥ ̟  ̚ Ļ \Ĩ !     ۔ ֔ \ĨN\Ĩ\Ĩ\ĨNĩ Ĭ ľ ĽĪ ļĨ ĭ ī   d l dd TbĨ.Μ  ̿  œ  lll̺  ̫ ̫ ̭ ĩl̴ḽdĬľIJ Ľİ ļĮ ij ı į  dl l(Ԕĸ ՔĶ ֔Ĵ ÔĹ Ĕķ Ŕĵ  lD l ,hĢ 9 dd  d ,h ,hĻfġ 1 l ,h ,h n 1 llK  l $h ,ƈhfĠ ,h ,h nܴ 1 l ,h ,h n ,h ,h nܘ 1 @TbĨ\Ĩ8ļdNTSK C UH  dľ l\C H  l= ĺL l  l\κO TjľĻ BU BN BG pļdNTSI I K & p”  ̽ ̸ T̖V&"?K )̛ !ζO ί ΫK  ΥK ΠK TjļĽp NS HdĽ lI  lĻ "O \ļĽĺM  l lľlUHM  l   @m lT @mļl\̫ j̥ d̟ ^̙ X̓ RĻ K E ? 9 J D۔ >Ք 8ϔ 2ɔ ,Ô &̽  ̷  A TTbĨ l4dĤ + \꜒\Ĩ llxdĢdģ dT\Ĩ dddĿ ddĻ  ľ ĺlݜ dNTKd\ľļl\ \l_l1 *SOdE ̦  OlE  T̔d ḑ l ̡ l -d  AlĻ   1l   Ell\Şļ[\WNVdļ֔ dlΔ ll ĺl l ̲ (̧  ̪ T lޤ d d d7ĹfġT@HHTT#h\h\h\h\h\T ;;H TT#h\h\h## dPdkdldmTjNdlTT#l  (nl #l l HTT#hT t HTT#hT N@Sm@H HTT#h*F,100  TET٢͢ڢ dTH hhH(h'  f qh @HB0Fh Fd 0m `h rH ` H2N nfTfUkfVlfWKLlm$$S,n %% -n/n *F,58$$%%N &KlT] h ldMvh\Pd @N kW lm SI I K F ;ČhLlȝ Țlh'̰dO +T_W_X dT lN d`d[5 nHn h   d  jʔlʍ ʯ j4 ("T׀hTN@Sm m  @m @mأ@H H TT#h\hNSIVhH  IH  h hH  I5  h@mϨ'h $Lh#p8 hh̽ ȵHhȲhhȭ  Ȩ&hȥ hإΤ ȗnl@H HTT#h  dm # l h  Lhuh" ; ( 0/ hh hh}hȼhohh̷nhT 9;:6Ȧ ܩܨܧ̥nhTH lYZlhd" : &gk^O (hՀZhTEx̀\h\xÀZh\xȻ]h\xn\dNTV SK BhțZh\Əxȓ\h\xZh\x,4dZh\xh\xhT&4lԀZhTExˀ]h\xÀZh\xҀh\xH9YZ dX "T h! hވ hmnh֌l hTxf[dNTSK. ػ]l\K" دخ\l\K Ȣ hȟ  Ȝ  h\ŦzȘf dyv[hTEx !<^Oq l\V ΫK 5d{+ՀZh\֏xO 8ƀ]h\Ǐx d\xz;ll̳Zh\xTx7Hl̢]h\x̚Zh\x l\|Ȧrv]hTEx l l̿fH %1TT TEz\ddT\|zd'"CdNThSI hI h\ˏx{CH?{TEu\x\}Ƨ\x dkdlTM \ޏxNll\NfV hA G hG cȱ h谎h h\x=اȦ 蘠hhȝ ș!d4hh\u٧hTExž kd\x>\}iŽ \x=d \֏x\ЏxT\ɏu\\ÏuHB dNdP @SmhKA TK9 JA  @mK$ K ˨  d  @mVhWh Ȑ ބlΜIh,N& NUh   @Smp< m?TTExHd E T)O \ܨ\ݏuk c̨dPd n ddlT\Ҩ dd "ld  NSO \ulO ̛hTܔܓ  O ̶dGTEuG̣l\T̟  @ HHTEx\}ǩ\xHp  hĻ    TTEx dTTnn  TH&D "T?mh 9h9TC1 l1.n !(!ddE"o TEuEm d 1\ qhT H TT#h\hmd% ,dNdCT h lVf_ 1T h dn 1 hȔn fl\UHh n fئإ nHN  lPLlK 3 lTH h d 2T h dT|G@fAfǛ f ;!8 !2n Ƚ+hTE}ص @eehe_h hȨ!ȡh 쵎h ؘؗȒfǹ f f}α d&d' d(Ψd%΢ $Ο 1* !&  + l d+  llδdNTSI. l̼f#A 6̲ 2Ο Ι Κd!l  }_  'l؄&l " $@$* dd fΤ % "  3 lι A  Φ " [ w !d d"# l lTE|"T| l dδ  d\ ( Τ  l d οdA 2 "Ǜ ddNTSI. ll\d-! 2A   d"I lI lT " dv:ll# l lA TE|"Jǜ d$ ̙ l l l l l ld! ǹ ( γ  t tD Μ  n΢ l̤  l lΥ  n# dn̾  Tܫ,TEx\ܫ.\x dT| n n! " ld dd A "A S  ldNTp     SI. I I,lΩ Υ 8lΟ Μ !l "AA % "A d d/ #܈hT f  nd 2Tld-# d"Tܫ" l l lTEx"_α!d dT|Vγ l$ l̒  l l!  lA m\}_ 2 * 2 "dNTSI. d(K) qTg l\d$  lld%\I, d0ll d+d1\IŒ l l"> +  8n7nf6n nnhTEx dT|dNT 9@8H5H2TT# hhh7h& hh2hhh$h hh`h$ hh? hhz hCT # hTܯ h hTEx dT|\x8 $ 1&#h hǘ! h  Ⱥ蹎 hη5   ث\ŏuȢ  !HTT# h h hh d "T h@fAfǛ ) 60f*f_ f}f`h hl ž! !H̼l ̵ l A !襞! ί  Ϊ # 8khTbΪdNTSKl hTB "TdjwidT@HH TT# h hPjʔT\ \!dm t s q p phTh ހuhTExx\|ű\x ͜ h 8ȹ(h\u"\u"\x!T ~#\Տu$Țh̤mh\ȏ}xܜ̛ !\!̔lh\xx\ "mh\xHsYZ dh h 1 hj hh h # h   jj@i hi hNUHhT ȳ" < ( 06:9TTEx\|ȱT7\؏0\я\|ȱ\|ʱ\ޏ|ñ\ɱ\ҏ|ȱ\\Ǐu\ɱ @ HHVm $h#p8 h  lx !f& !2!d"= *   fxnnnn fxTȪ h T TE|Ųp\ut\폀suvw  l dx " : &  lΠdy x lΕdu l!dd "dz dvdw 4Tzq    ̴ ḻl ̪ l ̡ @ ̙ =x"! .#;&*8-10dsklflal\lWlRlMlHlCl>udNTSK* Vd{ d| dr  l 1 l̎  l ll T TEusrdv ldw l* d}ldy ^ ldu NdNT @Um 1 - ! ! l \}uvp 7 4Tuq̝ l̙ lΗl̓ l TuTEuo\uu @ HH??(dĺ$$dNh hh\ ZhW VhR PhPhT lTSC@ ?UDhh  ) TEu騹 hʟdk dlȯdmTM T#̧Ph \ߏx \¤d d \ʏuNγDl\uHTT#h h h h hix & "T3  nT42n ddT|܈ hTEx H TT#h h h\z4l̳ h6 ;1 ;dNTp     SI I I hTt  ; h   hȮxhTExhȣ ȟ \|ŵq\upr \uu dvt Sl l,dNTΧIsdwΡEBhBΝOp=   l  ,lԀshT nvq \xTv@Sm\xv $ḓl@kHHTT#hch h h$hT l'' % '! #     T l l V T\ lHTT#h hh hh\hH2 h s" "tdNTSI  h   hn m Ȼ躆oh 츞 .ȩ h dȤ!ȟ ḍ h薞 Ȋ h !+pdδ hνld\V  YNSI O G lls shTbd +ul wlthT ̶lTε πth\폀Cvdξ tl\̳sh\̭쬆m dmhTxdN\ dlΘ Δ s   Ηl  ΕlδlSI ~I z  d lÀthT xC C̯th\쏀tdNTUD  Dd h/TEu\Dh%d  h\u\ݬ  ج h\u\ހth\x6x djd) $lthT  ll ,lɀth\珀TTܶ\x dT|TExHFTN3B1}"FTN3C1# FTN3D1#}FTN3E1#FTN3F1$BFTN3ER$READ $WRITE $FREAD $FWRITE$SCHEDL$TIMER $DISPAT$DISP $LINK $ICLOCK$INPINS$OUTINS$$wXfvh h Dh h h TZyehT%X28Ih[ X8R+hP= : h84H+hF X h,A1h;h.xh2 " l TLf hERh  unFTN3A1 __ 2h\Y hX <   6 0j5Q  :j/TL: FTN 3.3B (OPT = LPXC) PAGE DATE: MM/DD/YY TIME:   ̴dT4  Y@m 'f\ l\̸ aɄPn dZ=ߌ d n d!̲ /  lTK @UmΕl\ N@m[l\ @mζl\ n̎l @ HH%?T1 TӲHX8!+!+!+!)."4H+hF )/$$*S @>#. l O dddhdhhdhhh"d=%d>#  8 l l l n n nf*f-f0f3 f4 %f+f.+f$Ef/TF/ 0 &Tӳ" n l f! n n?n n f& f' f( f) n n̓ l n %nn̈ l #ddJ̺    l̉ l"d̡   $).38=BG f' f( f) n n n n n n f*' l %n,n/  n n n n n n n n n n n d d d  lT M oT N@SmtlTF0 o \ @m2mKd %Tӳ" @mĤ ξI \5̗ l̙ ̔ l f dΥH  ΚI  lNΑI  lf" dPf!/ o dTF 0  d  d$̵ l̲ l h)h'h$h!hhhɈ f daaa#a̺   Tӳ" d(/  d! d# ld% d& d' d(0d)"l dTF 0  oM T2N@Sm Kd $\" @m dH  I  lI  l/ & 2o lT4 \  o̒ ody   o\   dTF̶ ̳ o0 od%d&  l  ld' d#˔ A d! d$d̻dl d9d̳!T4  lTe(4 l\( d\(˳ d dNS d d  $Llp< dl Hlll l d- d. lϜ! ̋ lڄ dd,TM T̯Pf l 21d%d& @  "&0    lL`>``V`l`oHb`   !"#$%&'()*+,-/45678:;<=>?@HIJKLNO23FG l lLTTT ̊CCr dhddd&ddžddd dddY 1dĠT \T\'d  %!\ȶNfV ȯfWȫn>\ TExT\\ dA (\̼  \\x\{\\ۏu\׏xT v\̏x lTp d d  (hT dld    d l"!( 1##;:<;=?IHGF cfi2̟d b q !T lTT?TT\md d d   fŽ f& ldNTSId nրphT   TEx3 \x2 \xT\zT̠ddTA lfml\ dΫE  mhsh\ \x׀nh\x3p  ȀphT% TE}̶qh\x\x ̤mh\xTΗdNlTSO Tހmh\x\x\zm \ d # d0h\x  ȀmhTEuTuTl̵shTY dξn θo   l dE lΠdNTT l\  l\  l̻" 9 &$9]̀mhTExÀnh\x̵ ̸oh\x$̨  ̫mh\ߏx̢oh\֏x ހmh\Əx nh\xnh\x  ݀mh\xԀoh\x dhTn dTod S O d߀ǹh\ǹf fA̚ l f_ f} ٖm!U̿ 2T̺h\|^ 1Ǹnf̷`nͦn̰fṶ̈̀ l̨ n̡  lLTVTBTS ` @Q"dR  `|7hhQp4R$S hTSTl hTJT h\ h\ l,d-d.d dNdPTd E ȡfT @m h fÃ؏ȏ1 h fW؄ȅ1 d d dddddddd ddT dÄdÅ 4{T̎>lTS K p" ; '5=<; N@m{ d{O  dlT{ %T!T{βE  lΩO 1̫  l ;d d dÅdd" dTT3 dÈlT\Ä dT d\ 4l l dl lÃl\\T; " 5l l d ldTW TBdN\ SK T}TzTx̢l\ !| d" ; (  UT\TdlTTd dd" d1 d l dTT3T; 1%Ŝ  d lll ;l ḻl l\\ lW ̱l :T  dx d !! l l l\ld"^ '!.   dT3  l d  dTl\ "l l l /"TH#NTn d̫ll (d# dT\T;"7 $\Xdd ldP d n 1Td 0ΰTdSK H dI  lTT3\T d ld! 쵖 <n l l l̤ ̚d d d ld"d de3dv l 4X;XA hh h  ̱%X?\h h kW X,IA h `XEhT & hj՘2 5` h hH@ `X!hT J hj2 5` h VhL@V ʖ hAX hX h~h(d 0m `h rH ` H~h}0 lr  j A *h Nh ,hh0d d< Fh T4l1TTL T SOHq``Hs"ܨ' hjHj  &jn  &n 1k(h(ވl(h l(Ոml lH *F,80  h  hJhIhdNTSK@ .UH9h h. '辞  踆 hF C I hε  Ƞ 螎h hΪhȒ wvdys 8h lrz1;&|d{f  lnT}}n N@Sm m m&T~n~o dT lŽ ܛl \Ě}n܏άl̽d@HHTT#hgh\hb h h  h  h(Ŀl ;  TudĢdģdĤ h dT 4ľlll!dĥ lnĺn n  nĽn l ldH TT#h\h| H4 H3N#dlh-4R,"DPRLQ  `hXlX H <$S h T?=>T h ,h (h n ,h ( h n 1H TT# h h\h dĞTqĞĞH(dĺ&dĻ$dļ"dĽ dľ h N TbĨ\Ĩ\Ĩה Д ɔ ” 3̻ \̴ _̭ ̦ ̟ ̘ R̒ Ľ FĻ ? 9 3 - ' !۔ Ք ϔ ʔ  Ŕ  TbĨ̷ #̱ ̫ ̥ ̟  ̚ Ļ \Ĩ !     ۔ ֔ \ĨN\Ĩ\Ĩ\ĨNĩ Ĭ ľ ĽĪ ļĨ ĭ ī   d l dd TbĨ.Μ  ̿  œ  lll̺  ̫ ̫ ̭ ĩl̴ḽdĬľIJ Ľİ ļĮ ij ı į  dl l(Ԕĸ ՔĶ ֔Ĵ ÔĹ Ĕķ Ŕĵ  lD l ,hĢ 9 dd  d ,h ,hĻfġ 1 l ,h ,h n 1 llK  l $h ,ƈhfĠ ,h ,h nܴ 1 l ,h ,h n ,h ,h nܘ 1 @TbĨ\Ĩ8ļdNTSK C UH  dľ l\C H  l= ĺL l  l\κO TjľĻ BU BN BG pļdNTSI I  hkQhdhwQ "p0SmTg>hch hlT @mļl\̫ j̥ d̟ ^̙ X̓ RĻ K E ? 9 J D۔ >Ք 8ϔ 2ɔ ,Ô &̽  ̷  A TTbĨ l4dĤ + \꜒\Ĩ llxdĢdģ dT\Ĩ dddĿ ddĻ  ľ ĺlݜ dNTKd\ľļl\ \l_l1 *SOdE ̦  OlE  T̔d ḑ l ̡ l -d  AlĻ   1l   Ell\Şļ[\WNVdļ֔ dlΔ ll ĺl l ̲ (̧  ̪ T lޤ d d d7ĹfġT@HHTT#h\h\h\h\h\T ;;H TT#h\h\h## dPdkdldmTjNdlTT#l  (nl #l l HTT#hT t HTT#hT N@Sm@H HTT#h*F,100  TET٢͢ڢ dTH hhH(h'  f qh @HB0Fh Fd 0m `h rH ` H2N nfTfUkfVlfWKLlm$$S,n %% -n/n *F,58$$%%N &KlT] h ldMvh\Pd @N kW lm SI I K F ;ČhLlȝ Țlh'̰dO +T_W_X dT lN d`d[5 nHn h   d  jʔlʍ ʯ j4 ("T׀hTN@Sm m  @m @mأ@H H TT#h\hNSIVhH  IH  h hH  I5  h@mϨ'h $Lh#p8 hh̽ ȵHhȲhhȭ  Ȩ&hȥ hإΤ ȗnl@H HTT#h  dm # l h  Lhuh" ; ( 0/ hh hh}hȼhohh̷nhT 9;:6Ȧ ܩܨܧ̥nhTH lYZlhd" : &gk^O (hՀZhTEx̀\h\xÀZh\xȻ]h\xn\dNTV SK BhțZh\Əxȓ\h\xZh\x,4dZh\xh\xhT&4lԀZhTExˀ]h\xÀZh\xTL T SOHq``Hs"ܨ@? h f 1Ãh # dh hp8h)nAh 1Bhdʨ d h h hØ8nػش d lH@ d! lh h(h)'dRlAh 1Œ hdRld#d$d%H (dd"  d d d dTH d   dd h f fǾ f 1 d? U dNTSE0  l  l\E"  l%h h hҘ! l\E ̻ؖl ?l\οE  d? <  ?  l  l drd dќ9 vl̴  l 2 ̻ " dNTUH   ll lĜ=Hd캆Ǿ 7̴ܴlHll\H؜  dl\Hd  ll\γHd  lYdќ?f f ǿnl nnn  ) %" 2) "' 2) l dl̽"?ξ = nܣHz *F, 77 T hNSEk Kg eK`  O KL KD K?  dǺK4   # &   lTN!+ n @eS d d dLNEdO  l̻ $l PdRlޔQ" ѤRl dSd!4  ' !dṮ 1̦  1̟  ; #dl̺朻!J ɔ !* ld!l!dl̠̜? dUVWl ̡ L "g̚dSOn f dnP l`dRm" d d d d dNTd "X2SAGlK  ߔR!(̪ n l d l̔N!Ɯn& l  l 쬞Q! dSd!3̍ )  !n l ޞ 1؞d 9 d"c ̲  dY!n̰n̛ܹܺdẖ  1̫ d1RTTSMGZHlKnܒܑNSG K  fI n lܡܠWSE dV AhĘd[[#dWU" 8 $ @ HHP`@0 @  h d"ld !1 -"7 $ d l l lll ll !ldNTSO  Y @E; 9!h̢h̨hȕlȔld#d$d% dT3T;ld" d\\lll l d0̘lT  dd  l ll\ l  l 3 „l⌐l " l  dʌl̿lTH" d <NSI5 -dI/ dVd" !Wd UdD dRlIdT l .l lHl . l d ddd lH *F,85 hh dÃdNT 2dSE_ EW  4l  hLT؆ÄE h hdÅd"dd  l d d dTT3 h̰`쨎hͲI H 6 1 l  dDÆlA NSICdE l l\\B  lÇl l،l֔Ä "P% l΍l lFfÃGnHfÅ̹ÃhTSC?CId @ HH(6 Np4R,dPlQ p<( hp8hp8(d TS'$(T h\'$( h\'$)\'$)Tȷ h\'$(4ȯ h\ٮ'$(p<( hp8hp8(d TJ'$(Tȍ h\'$(ȅ h\'$)\'$)T$ l\'$(4 l\خ'$(PdQHc  ߔÄ 4T l  Æ  dlTW  7 l4 h՘= fN nغ̻ ȶ1 ldOTSO h5 n؜ lHdhh > TB  h du  h є ˔ \ "̿lȲd"Ȯl\ȩl̯ T !+\ \ ḥlÄ 1Q̚dTW G̘   7l d9d: T=;lI8 \>\7\? dϜ  Fl\ޯ?l l   %3 ( 3 "̯l d@̪  l̰l\@#. l O dddhdhhdhhh"d=%d>#  8 l l l n n nf*f-f0f3 f4 %f+f.+f$Ef/TF/ 0 &Tӳ" n l f! n n?n n f& f' f( f) n n̓ l n %nn̈ l #ddJ̺    l̉ l"d̡   $).38=BG f' f( f) n n n n n n f*' l %n,n/  n n n n n n n n n n n d d d  lT M oT N@SmtlTF0 o \ @m2mKd %Tӳ" @mĤ ξI \5̗ l̙ ̔ l f dΥH  ΚI  lNΑI  lf" dPf!/ o dTF 0  d  d$̵ l̲ l h)h'h$h!hhhɈ f daaa#a̺   Tӳ" d(/  d! d# ld% d& d' d(0d)"l dTF 0  oM T2N@Sm Kd $\" @m dH  I  lI  l/ & 2o lT4 \  o̒ ody   o\   dTF̶ ̳ o0 od%d&  l  ld' d#˔ A d! d$d̻dl d9d̳!T4  lTe(4 l\( d\(˳ d dNS d d  $Llp< dl Hlll l d- d. lϜ! ̋ lڄ dd,TM T̯Pf l 21d%d& @  "&0    lL`>``V`l`oHb`   !"#$%&'()*+,-/45678:;<=>?@HIJKLNO23FG l lLTTT ̊CCr dhddd&ddžddd dddY 1dĠT \T\'d  %!\ȶNfV ȯfWȫn>\ TExT\\ dA (\̼  \\x\{\\ۏu\׏xT v\̏x lTp d d  (hT dld    d l"!( 1##;:<;=?IHGF cfi2̟d b q !T lTT?TT\md d d   fŽ f& ldNTSId nրphT   TEx3 \x2 \xT\zT̠ddTA lfml\ dΫE  mhsh\ \x׀nh\x3p  ȀphT% TE}̶qh\x\x ̤mh\xTΗdNlTSO Tހmh\x\x\zm \ d # d0h\x  ȀmhTEuTuTl̵shTY dξn θo   l dE lΠdNTT l\  l\  l̻" 9 &$9]̀mhTExÀnh\x̵ ̸oh\x$̨  ̫mh\ߏx̢oh\֏x ހmh\Əx nh\xnh\x  ݀mh\xԀoh\x dhTn dTod $$l"L"TTs `TF8T\!ۉxu0P dǼ dd d dTXT۔ݿ d ld 19ըdΜ*Tl\l\l hhȼ<\dfܺذȭ lȔ ! ! ļ lT̨ l̲ !TcȍdX dn% n 1 dTHn HwhvhrH HfFgfh hZX n hN HRhWH HIhNLHAh0h@=> h;=8@h;"513/!Hn,, q+%s%̘Fh hXh hT ̱%X?\h h kW X,IA h `XEhT & hj՘2 5` h hH@ `X!hT J hj2 5` h VhL@V ʖ hAX hX h~h(d 0m `h rH ` H~h}0 lr  j A *h Nh ,hh0d d< Fh T4l1TTL T SOHq``Hs"ܨ *UD?Pdd dl 4ld hT  b "bԜ  dǻȬ "hی T̾ ̽  + ̱ 7̩l !x̠l̢l̞l\̶  $ 1; $ 1R $ 1*2d1 dNT Tl42j5! d/{ll hT l̙`͙7dRm Ӝ "l dM $d ld8 0!6 $ 1.ք ' ̔d  # ) # #  l  lT̵ "̝dT T+ ddd dLd :d9Hd;l2d<̞ %̛ 2c= T l !0 " ! "c "c $d ld8̯d !̡dTTd`>dRml̊lܙ̘" 9 &\2RQWd? %dllӜ "l̿ #̼dl "/d ddNT lڜ "lǜll "/̻ ḻl̳ d̪l\d/  SK: * !T4"!T6*3,̠ N̏ !J !C d1d!'!d !d & %  (d? ! d7ll dǽ d/TrcdA̾ "illdNT ̦T #ldBT*llḴņnd8 ̸ 0 l̳l)̬df' l n l d "@$첎d?2l ldRl dd  d 1U,NlSE@  ClK: * 6  l !K E  lEd1  l>$췆T l l/̣ l nΦK ΡA  d d ̛l ;!> dl  lSE@d1  l  ld?$NTdGH&dRld&dRll̞ Cl̕,l -d 0$6dId ̿llllTTd`>dRm"= )̧l d=d̢l 8̽ 4TdNT $Tdଛldd *lGl d̘ " l -ll\d?ll\ .dl lll% JdX d1n 1'dl\ίd\ dT d @ HHd0 @Td h`\gh hZ\gh hT\gh hN\gh hH\ߡgh hB\١gh h<\ӡghਿh  4ȴ *dNT $Th 7 !1 9̦`dRmd  dǽ] l`dRm n̮ T l`ɬmdRm l  2Z d l lTl̴`ͥdRmBd " l  l̦`͊dRe lw ̿   l̲ d l ~!_ 1[ dǽ 1V̼ !R̸ ̵  d S N  l̞  V % !N # l`͜dRm n U n dǻTr` mdRm ld`լm ,d $ldRm dǽ̚  l d"! * 3E6GFEn`͠dRmn̊nn`dRmnnn`dRmnn @ HH     P / ddhl hVf 71dX hה# 1 h  hfW„$h dY Z } hʘh(nآ 1TH 2 hʌhn، 1LfTZ (nhTZ̸ l )f̳ 3̯ 1 ddαfܜ 1ܖܕn\ɉY܏܎ (n̊h\ʉY )f l\\d'dNT )dTb l l , d , d`͹h]εZdRf[ mnfܛ 1ddl dd d l fW 1 d T b l` lH lΓ쫎m "1 "dT @ HH@? d h f 1Tdh " lh hp8h-nAh 1BhdĨ d h h hȼ;\ɤglnرت d lHl . l ddd d lHPROGRAM LENGTHUNDEFINED SYMSEXTERNALSPhlTH hʿf 1LfT (fhT )f l\\ dNdP dȴdX hT TS K ȓ  hhnܚ 1\ܒ̑dTb .d 6TH l\ l l̯d , d ,Ռ d`h=:dRfW m nܼ 1 lN`͏n͑A  `TdRm `T ldXf̖  \ \\ܔ ldPT GTSC  dn 1THlTb .d 4\l\  N˜C ̪ !\ d @ HH6 Np4R,dPlQ p<( hp8hp8(d TnkoT h\nko h\nkp\nkpTȷ h\nko4ȯ h\٦nkop<( hp8hp8(d TnkoTȍ h\nkoȅ h\nkp\nkpTk l\nko4 l\ئnkoPdQHc'v hN h hhVh &h h h(h((dژ#"`p9iψh  .h(f h 1ؾ 1 @HHh hp8hh(fDh 1 HTTh p4,dh h HTTh?hdǺdNT hd }%  h`(l dT&l' $dn 14 dRl  lTT\ȩ  ̺ hȠhȠ6)nؚ̬ l nnnn );εd ldΫ Φ d&dRll&dRllӤlNSO '  ̽dRll@H HTT* CORE OVFLTT T ,dddl lH*T `P:  Wh l >Vh `lTщVl\WWlX h n 91\ӨTxTԿd hȥ褆hȠh\ט <"֘ <2d1d d  !   !$1=h ζ h T؉ ׀h λ h\؉ Ȁh Ε h\ߨ٨̺h Ξ h\Ѩ٨̭쬆l̚ 1 lrl\؉ ٨̠ 9TFHK  d n (1TD(K T٨ڨT\! #. l O dddhdhhdhhh"d=%d>#  8 l l l n n nf*f-f0f3 f4 %f+f.+f$Ef/TF/ 0 &Tӳ" n l f! n n?n n f& f' f( f) n n̓ l n %nn̈ l #ddJ̺    l̉ l"d̡   $).38=BG f' f( f) n n n n n n f*' l %n,n/  n n n n n n n n n n n d d d  lT M oT N@SmtlTF0 o \ @m2mKd %Tӳ" @mĤ ξI \5̗ l̙ ̔ l f dΥH  ΚI  lNΑI  lf" dPf!/ o dTF 0  d  d$̵ l̲ l h)h'h$h!hhhɈ f daaa#a̺   Tӳ" d(/  d! d# ld% d& d' d(0d)"l dTF 0  oM T2N@Sm Kd $\" @m dH  I  lI  l/ & 2o lT4 \  o̒ ody   o\   dTF̶ ̳ o0 od%d&  l  ld' d#˔ A d! d$d̻dl d9d̳!T4  lTe(4 l\( d\(˳ d dNS d d  $Llp< dl Hlll l d- d. lϜ! ̋ lڄ dd,TM T̯Pf l 21d%d& @  "&0    lL`>``V`l`oHb`   !"#$%&'()*+,-/45678:;<=>?@HIJKLNO23FG l lLTTT ̊CCr dhddd&ddžddd dddY 1dĠT \T\'d  %!\ȶNfV ȯfWȫn>\ TExT\\ dA (\̼  \\x\{\\ۏu\׏xT v\̏x lTp d d  (hT dld    d l"!( 1##;:<;=?IHGF cfi2̟d b q !T lTT?TT\md d d   fŽ f& ldNTSId nրphT   TEx3 \x2 \xT\zT̠ddTA lfml\ dΫE  mhsh\ \x׀nh\x3p  ȀphT% TE}̶qh\x\x ̤mh\xTΗdNlTSO Tހmh\x\x\zm \ d # d0h\x  ȀmhTEuTuTl̵shTY dξn θo   l dE lΠdNTT l\  l\  l̻" 9 &$9]̀mhTExÀnh\x̵ ̸oh\x$̨  ̫mh\ߏx ##l!L!TTr `TF8T\!܉xu0P dǼ dd d dTTڔܿ d ld 19ըdΜ*Tl\l\l hhȼ<\dfܺذȭ lȔ ! ! ļ lT̨ l̲ !TȍdX dn% n 1 dTHn HwhvhrH HfEgfh hZX n hN HRhWH HIhNLHAh0h@=> h;=8@h;"513/!Hn,, q+%s%̘Fh hXh hTT >h hXh hT ̱%X?\h h kW X,IA h `XEhT & hj՘2 5` h hH@ `X!hT J hj2 5` h VhL@V ʖ hAX hX h~h(TL T SOHq``Hs"ܨ *UD?Pdd dl 4ld hT  a "aԜ  dǻȬ "hی T̾ ̽  + ̱ 7̩l !x̠l̢l̞l\̶  $ 1; $ 1R $ 1*1d0 dNTTl32i4! d.{ll hT l̙`͙6dRm Ӝ "l dM $d ld7 0!6 $ 1.ք ' ̔d  # ) # #  l  lTY̵ "̝dT  T8* ddd dLd 9d8Hd:l1d;̞ %̛ 2f< T l !0 " ! "f "f $d ld7̯d !̡dTzTd`=dRml̊lܙ̘" 9 &_2UTZd> %dllӜ "l̿ #̼dl "0d ddNTdlל "lĜll "0̸ l̮l̰ ḑl\l.  SK9 ) "T3""T5)2+̞ N̍ !J !C d0d!'!d !d & %  (d> ! d6ll dǽ d.Tcd@̾ "glldNȚT #ldAT8)llI̱ņnd7 ̸ . l̳l'̬df' l n l d "A$첎d>1l ldRl dd  d 1U,NlSE?  BlK9 ) 6  l !K E  lEd0  l<$췆T l l-̣ l nΦK ΡA  d d ̛l :!> d;d 'CdRlD l9l dNTΠ llӞ & 3ΏlE läDl 1̸D "l̴?l  l l (? +llTTdTY -",̷l\̫d ,d̞dSK ) . .TE1D )!G$NdTln d  lBl?d@5f%f&f'f( l ll"T5)2+܄ ΗO  +̫,쫎ll$=l  lSE?d0  l  ld>$NTdFG&dRld&dRll̞ Bl̕,l -d 0$5dHd ̿llllTzTd`=dRm"= )̧l dllhT \ .dl ll\l% IdX d0n 1'dl\Σd\ dT d @ HHT0 @Td h`\vh hZ\vh hT\vh hN\vh hH\ߡvh hB\١vh h<\ӡvhਿh  4ȴ *dNT$Th 7 !1 9̦`dRmd  dǽ] l`dRm n̮ T l`ɬmdRm l  2i d l lTl̴`ͥdRmBd " l  l̦`͊dRe lw ̿   l̲ d l ~!_ 1[ dǽ 1V̼ !R̸ ̵  d S N  l̞  V % !N # l`͜dRm n d n dǻT` mdRm ld`լm ,d $ldRm dǽ̚  l d"! * 3E6GFE n`͠dRmn̊nn`dRmn n n`dRm n n @ HH     P / ddhl hVf 71dX h֔# 1 h  hfW$h dY Z } hʗh(nء 1T 2 hʋhn؋ 1LfTZ (nhT Z̸ l )f̳ 3̯ 1 ddαfܜ 1ܖܕn\ɉY܏܎ (n̊h\ʉY )f l\\d'dNT )dT l l , d , d`͹hδdRf[ mnfܙ 1ddl dd dT lfW 1 dTb l` lH lΏ짎m "1 "dT dNdPT5 'SE  /dEd  0llTl d\ @ HH}@? d h f 1Tdh " lh hp8h-nAh 1BhdĨ d h h hȼ;\ɤlnرت d lH hhH.h-  f q!dh" @H B0Fh Fd 0m `h rH" -m`l ' l d lHPROGRAM LENGTHUNDEFINED SYMSEXTERNALSPhlT hʿf 1LfT (fhT )f l\\ dNdP dȴdX hT5 rTS] K ȓ  hhynܚ 1\ܒ̑dT .d 6T l\ l l̯d , d ,Ռ d`h=:dRfW m nܼ 1 lN`͏n͑A  `TdRm T ldXf̖  \ \\ܔ ldPT5 GTSC]  dkn 1TlT .d 4\l\  N˜C ̪ !\d @ HH6 Np4R,dPlQ ~p<( hp8hp8(d TT h\ h\\Tȷ h\4ȯ h\٦p<( hp8hp8(d TTȍ h\ȅ h\\T l\4 l\ئPdQHc'v hN h hhVh &h h h(h((dژ#"`p9iψh  .h(f h 1ؾ 1 @HHh hp8hh(fDh 1 HTTh p4,dh h HTTh?hdǺdNT hd %  h`(l dT&l' $dn 14 dRl  lTT\Ȩ  ̺ hȟhȟ6)nؙ̬ l nnnn ));εd l*d,Ϋ Φ d+-&dRll&dRllӤ.lNSO' '  ̽dRl(l ; T dK T&ɀVhT $lI/ ,θI (fn@H H TTh CORE OVFLTThTY  TMFNG ,dddl lH*T `P:  Wh l >Vh `lT~Vl\~WWlX h n 91\~~Tw~T~d hȥ褆hȠh\~ט <"y֘ <2yd1ud d  !   !$1=h ζ h T > ׀h λ h\ >Ȁh Ε h\ߩ~>̺h Ξ h\ѩ~>̭쬆l̚ 1 lr}l\ ̠ 9TFHK  d n (1TD(K T~T\! 23@@SS0 .JA`2 1L@--** ++ , PCD h dT l\f !. hʕh Eh Jh̨h h2fػ 1 %ʡf̻ &l  k !ਠh  hȕ Qnܞ =dNSK TZVhT $dI (nI n  +l̖ 1 =̚lvLf\ " !ǀhT ̿ l 7     5nܡ̠h\̙ l̳  ̡ Rnd̸ 1! n l l l'fT ddHN  lPLlK 3 lTH dNdPT5  SE K T (%ǽn hd!-Ǽ ( $n :踞 $n dd謎 $nȤ  hd>̵蚖 %:n ÜlH  l dTgT lHwXfvh h Dh h h TZyehT%X28Ih[ X8R+hP= : h84H+hF X h,A1h;h.xh2 " l TLf hERh  unFTN3A1 __ 2h\Y hX <   6 0j5Q  :j/TL: FTN 3.3B (OPT = LPXC) PAGE DATE: MM/DD/YY TIME:   ̴dT4  Y@m 'f\ l\̸ aɄPn dZ=ߌ d n d!̲ /  lTK @UmΕl\ N@m[l\ @mζl\ n̎l @ HH%?T1 TӲHX8!+!+!+!)."4H+hF )/$$*S @>#. l O dddhdhhdhhh"d=%d>#  8 l l l n n nf*f-f0f3 f4 %f+f.+f$Ef/TF/ 0 &Tӳ" n l f! n n?n n f& f' f( f) n n̓ l n %nn̈ l #ddJ̺    l̉ l"d̡   $).38=BG f' f( f) n n n n n n f*' l %n,n/  n n n n n n n n n n n d d d  lT M oT N@SmtlTF0 o \ @m2mKd %Tӳ" @mĤ ξI \5̗ l̙ ̔ l f dΥH  ΚI  lNΑI  lf" dPf!/ o dTF 0  d  d$̵ l̲ l h)h'h$h!hhhɈ f daaa#a̺   Tӳ" d(/  d! d# ld% d& d' d(0d)"l dTF 0  oM T2N@Sm Kd $\" @m dH  I  lI  l/ & 2o lT4 \  o̒ ody   o\   dTF̶ ̳ o0 od%d&  l  ld' d#˔ A d! d$d̻dl d9d̳!T4  lTe(4 l\( d\(˳ d dNS d d  $Llp< dl Hlll l d- d. lϜ! ̋ lڄ dd,TM T̯Pf l 21d%d& @  "&0    lL`>``V`l`oHb`   !"#$%&'()*+,-/45678:;<=>?@HIJKLNO23FG l lLTTT ̊CCr dhddd&ddžddd dddY 1dĠT \T\'d  %!\ȶNfV ȯfWȫn>\ TExT\\ dA (\̼  \\x\{\\ۏu\׏xT v\̏x lTp d d  (hT dld    d l"!( 1##;:<;=?IHGF cfi2̟d b q !T lTT?TT\md d d   fŽ f& ldNTSId nրphT   TEx3 \x2 \xT\zT̠ddTA lfml\ dΫE  mhsh\ \x׀nh\x3p  ȀphT% TE}̶qh\x\x ̤mh\xTΗdNlTSO Tހmh\x\x\zm \ d # d0h\x  ȀmhTEuTuTl̵shTY dξn θo   l d T dTN  lPLlK 3 lTH6  ` - ,Qp4R( hp8ڈhp8(d TߔܔT h\ߔܔȾ h\ߔܔ\ߔܔTȰ h\ߔܔ4Ȩ h\ٔߔܔ dX dY dlȞl dN h n nf]ؑ 1TTP SK dTd"! , 439876 d9̺VhTcb l +O ʜb  ̼ lNVh\b  l" 9 & Vl dc2܀VhT1lԀWh\l"̻ 4l d da  $ l 1lYhTbC l lYd N`fSl] 1 d l췎lܴ 1 lۜ6fܦ dQ ll T씎 dl"lTηKdαIdΫCdTd΢Ed" : &tNVhTb S dfdg (dhTbVl '\ڔ̻dlT>b )l\bld 5 n l\Ŕb l fa 1̠  Cl  Dl\b\ ll̞Wh\h\b̒VhTcb ldi\b <l l 4 lTNVh\b dhlTb  l lVh\b\bw dՄPh Twld \֔۔ \͔ڔT>b\ʼnb l d 2X @ HH`Hq``Hs"ܨ6 Np4R,dPlQ Dp<( hp8hp8(d TT h\ h\\闸Tȸ h\ᗸ4Ȱ h\̵ٗlH'v hh hh4h %h h h(h'(dߘ""`p9iԈh  .h(n h 1 1@HH TT h\ hh hhp8h h'n Dh 1H TTh\ h h !T  h : Sh  Hld !3͜d !+ hh nTbmlAhTm hȭ6 nئȤl hhșh̶9βnH TT h\h\h h dXhTq h) (l % !dh֘ h ! h h hȾh ȸHTTh YfffNPf l' hhhTK =Ԁh\ 1 nl lȽn̽nȶhθh HTTh\hh hh'v hh3h h %h h h(h$(d"`p9iՈh  h*Ɉh h 1ȿh@ȶH HTTh hhH(h'  f qh @HB0Fh Fd 0m `h rH ` X lh TH H2"WTۚ !lX X XXXX X T h.h T  H")hT 7=B`fk Ǜқݛ *5@ ***** L I S T O F S Y M B O L S ***** CONSTANTS : --------- VALUE ADDRESS REFERENCED BY STATEMENT NB : VARIABLES : --------- NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : EXTERNALS : --------- NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : LABELED STATEMENTS : ------------------ LABEL ADDRESS REFERENCED BY STATEMENT NB : B Y T E S I G N . B Y T E I N T R . F N . S T A T . F N . I N T E G E R R E A L D B L E . P R E C . F U N C T I O N I N T E G E R . F N . R E A L . F N . D B L . P R C . F N . S U B R O U T I N E hh h  3 d H"h! h h Ah @ m 5@ HwhvhrH HfUgfh hZX n hN HRhWH HIhNLHAh0h@=> h;=8@h;"513/!Hn,, q+%s%̘F ! d6ll dǽ d.Tcd@̾ "glldNȚT #ldAT8)llI̱ņnd7 ̸ . l̳l'̬df' l n l d "A$첎d>1l ldRl dd  d 1U,NlSE?  BlK9 ) 6  l !K E  lEd0  l<$췆T l l-̣ l nΦK ΡA  d d ̛l :!> d;d  hkQhrhQ "p0ST >h hXh hŢl dllhT \ .dl ll\l% IdX d0n 1'dl\Σd\ dT d @ HHT0 @Td h`\vh hZ\vhTL T SOwXfvh h Dh h h TZyehT%X28Ih[ X8R+hP= : h84H+hF X h,A1h;h.xh2 " l TLf hERh  unFTN3A1 __ 2h\Y hX <   6 0j5Q  :j/TL: FTN 3.3B (OPT = LPXC) PAGE DATE: MM/DD/YY TIME:   ̴dT4  Y@m 'f\ l\̸ aɄPn dZ=ߌ d n d!̲ /  lTK @UmΕl\ N@m[l\ @mζl\ n̎l @ HH%?T1 TӲHX8!+!+!+!)."4H+hF )/$$*S @>#. l O dddhdhhdhhh"d=%d>#  8 l l l n n nf*f-f0f3 f4 %f+f.+f$Ef/TF/ 0 &Tӳ" n l f! n n?n n f& f' f( f) n n̓ l n %nn̈ l #ddJ̺    l̉ l"d̡   $).38=BG f' f( f) n n n n n n f*' l %n,n/  n n n n n n n n n n n d d d  lT M oT N@SmtlTF0 o \ @m2mKd %Tӳ" @mĤ ξI \5̗ l̙ ̔ l f dΥH  ΚI  lNΑI  lf" dPf!/ o dTF 0  d  d$̵ l̲ l h)h'h$h!hhhɈ f daaa#a̺   Tӳ" d(/  d! d# ld% d& d' d(0d)"l dTF 0  oM T2N@Sm Kd $\" @m dH  I  lI  l/ & 2o lT4 \  o̒ ody   o\   dTF̶ ̳ o0 od%d&  l  ld' d#˔ A d! d$d̻dl d9d̳!T4  lTe(4 l\( d\(˳ d dNS d d  $Llp< dl Hlll l d- d. lϜ! ̋ lڄ dd,TM T̯Pf l 21d%d& @  "&0    lL`>``V`l`oHb`   !"#$%&'()*+,-/45678:;<=>?@HIJKLNO23FG l lLTTT ̊CCr dhddd&ddžddd dddY 1dĠT \T\'d  %!\ȶNfV ȯfWȫn>\ TExT\\ dA (\̼  \\x\{\\ۏu\׏xT v\̏x lTp d d  (hT dld    d l"!( 1##;:<;=?IHGF cfi2̟d b q !T lTT?TT\md d d   fŽ f& ldNTSId nրphT   TEx3 \x2 \xT\zT̠ddTA lfml\ dΫE  mhsh\ \x׀nh\x3p  ȀphT% TE}̶qh\x\x ̤mh\xTΗdNlTSO Tހmh\x\x\  < #h* h) h( h' dh1h"$`# `X  hHCDhBhB2BF{գ !%)-->***** D I A G N O S T I C S R E P O R T ***** 1 : FIELD IS NOT RECOGNIZABLE. (ILLEGAL CHARACTERS IN FIELD SUCH AS 8 IN OCTAL FIELD.) 2 : MINIMUM RANGE LIMIT OF A CONSTANT IS EXCEEDED. 3 : MORE THAN SIX CHARACTERS IN A NAME. 4 : MAXIMUM RANGE LIMIT OF A CONSTANT IS EXCEEDED. 5 : EXPONENT IS MISSING IN A CONSTANT. 6 : SUBSCRIPTED VARIABLE WAS NOT PREVIOUSLY DIMENSIONED. 7 : EXPRESSION IN AN IF STATEMENT DOES NOT HAVE INITIAL PARENTHESIS. 8 : INCORRECT FORMAT STATEMENT. 9 : ILLEGAL USE OF THE .NOT. OPERATOR. 10 : ILLEGAL OPERATOR OR OPERAND. 11 : SUBPROGRAM REFERENCE IS ILLEGAL. 12 : LABELED END CARD IS ILLEGAL. 13 : NUMBER OF ARGUMENTS DIFFERS IN REFERENCES TO THE SAME SUBPROGRAM. 14 : IMPLIED DO IN DATA STATEMENT EITHER CONTAINS WRONG NUMBER OF SUBSCRIPTS OR SUBSCRIPT IS OUT OF RANGE. 15 : EXPRESSION HAS AN ILLEGAL TERMINATION. 16 : UNMATCHED PARENTHESES IN AN EXPRESSION. 17 : RELATIONAL OPERATOR IS MISSING. 18 : RELATIONAL OPERATOR USED ILLEGALLY. 19 : ASTERISK IS ASSUMED. 20 : ONLY ONE ** IS ALLOWED PER PARENTHESES LEVEL. 21 : A VARIABLE IS USED AS A SUBPROGRAM NAME OR A SUBPROGRAM NAME IS USED AS A VARIABLE. 22 : SUBPROGRAM NAME DOES NOT APPEAR IN AN EXTERNAL STATEMENT. 23 : ONE OR MORE DO LOOPS TERMINATE ON AN UNDEFINED STATEMENT LABEL. 24 : ILLEGAL SUBSCRIPT. 25 : SYNTAX ERROR IN THIS STATEMENT. 26 : THIS ARRAY PREVIOUSLY DIMENSIONED IN DIMENSION, COMMON, OR TYPE STATEMENT, OR PREVIOUSLY DEFINED IN AN EXTERNAL STATEMENT. THE PREVIOUS DIMENSIONING OR DEFINING IS RETAINED AND THE NEW IGNORED. 27 : THIS FIELD MUST BE A VARIABLE OR ARRAY NAME IF PROCESSING A COMMON, DATA, EQUIVALENCE, BYTE, OR SIGNED BYTE STATEMENT; AN ARRAY NAME IF PROCESSING A DIMENSION STATEMENT; OR AN ARRAY, VARIABLE, OR FUNCTION NAME IF PROCESSING A TYPE STATEMENT. 28 : LOGICAL IF STATEMENT CONTAINS ANOTHER LOGICAL IF, DO, DATA, OR FORMAT STATEMENT. 29 : NAME MUST BE THE NAME OF AN ARRAY. 30 : MUST BE FIRST STATEMENT OF PROGRAM UNIT. 31 : 32 : A MISSING COMMA IN THIS STATEMENT IS ASSUMED. 33 : 34 : ILLEGAL CHARACTER IN THIS STATEMENT WILL BE CHANGED TO A BLANK. 35 : THIS LINE, WHICH BEGINS A STATEMENT, HAS OTHER THAN ZERO OR BLANK IN COLUMN 6; BLANK IS ASSUMED. 36 : TOO MANY LABELED COMMON BLOCKS DECLARED; CONTINUATION OF THE LAST DECLARED BLOCK IS ASSUMED. 37 : THE NAME IN THIS COMMON STATEMENT IS EITHER A FORMAL ARGUMENT OR DEFINED IN A PREVIOUS COMMON STATEMENT. THE NAME IS IGNORED. 38 : NAME SPECIFIED AS TWO DIFFERENT TYPES. THIS SPECIFICATION IS IGNORED. 39 : THIS BYTE TYPED AS OTHER THAN AN INTEGER, OR IT IS A FORMAL ARGUMENT. THE BYTE SPECIFICATION IS IGNORED. 40 : THIS BYTE PREVIOUSLY SPECIFIED AS A DIFFERENT BYTE. THE PREVIOUS SPECIFICATION IS RETAINED AND THIS ONE IGNORED. 41 : THE BIT SPECIFIED IS NOT WITHIN BOUNDS OF THE 1700 WORD SIZE. 42 : LEAST SIGNIFICANT BIT IN THIS SPECIFICATION IS GREATER THAN THE MOST SIGNIFICANT BIT. 43 : NAME MUST BE AN EXTERNAL FUNCTION OR SUBROUTINE NAME. 44 : FIELD MUST BE A NON-ZERO POSITIVE INTEGER CONSTANT. 45 : ARRAY HAS MORE THAN THREE DIMENSIONS. 46 : DATA STATEMENT CONTAINS TOO MANY CONSTANTS FOR THE SPACE PROVIDED. 47 : STATEMENT HAS MORE THAN FIVE CONTINUATION CARDS; EXCESS CARDS ARE IGNORED. 48 : AN INSUFFICIENT NUMBER OF CONSTANTS IS PROVIDED IN THIS DATA STATEMENT. 49 : 50 : CONSTANT IS NOT SAME TYPE AS CORRESPONDING DATA CELL. 51 : STATEMENT REDEFINES DO LOOP PARAMETER. 52 : STATEMENT TYPE IS UNRECOGNIZABLE; OR IT FOLLOWS AN EXECUTABLE STATEMENT. 53 : 54 : STATEMENT LABEL IS MEANINGLESS; LABEL IS IGNORED. 55 : STATEMENT LABEL PREVIOUSLY DEFINED; CURRENT LABEL IS IGNORED. 56 : A PROGRAM NAME WAS EXPECTED IN THIS FIELD. 57 : TOO MANY DIMENSIONS CAUSED TABLE OVERFLOW. 58 : SYMBOL TABLE OVERFLOWED; COMPILATION TERMINATES. 59 : STATEMENT LABEL MAY NOT BE ZERO. 60 : NO APPARENT EXIT FROM THIS PROGRAM. 61 : UNCLOSED DO-IMPLIED LIST. 62 : UNFORMATTED WRITE MUST HAVE A LIST. 63 : NAME MUST BE AN INTEGER VARIABLE OR INTEGER CONSTANT. 64 : NAME NOT IMPLICITLY AN INTEGER VARIABLE. 65 : A RETURN STATEMENT MAY APPEAR ONLY IN A SUBROUTINE OR FUNCTION DEFINITION. A STOP STATEMENT IS ASSUMED. 66 : SUPERFLUOUS INFORMATION IN THIS STATEMENT IS IGNORED. 67 : THIS FIELD ON STOP CARD MUST HAVE AN OCTAL NUMBER NOT GREATER THAN 77777. STOP IS ASSUMED. 68 : FIELD MUST BE A POSITIVE INTEGER. 69 : FIELD MUST BE AN INTEGER VARIABLE. 70 : FIELD MUST BE A STATEMENT LABEL. 71 : THIS FORM OF ASSEM STATEMENT ARGUMENT CAN'T REFERENCE ELEMENTS IN COMMON, EXTERNAL NAMES OR SUBPROGRAM ARGUMENTS. 72 : THIS TYPE OF STATEMENT MAY NOT TERMINATE A DO LOOP. 73 : THIS STATEMENT TERMINATES A DO LOOP WHICH IS NOT THE LAST DO ENCOUNTERED. 74 : THIS 'GO TO' JUMPS TO ITSELF. 75 : A PROGRAM CONSISTING OF ONLY AN END CARD IS ILLEGAL. 76 : 77 : 78 : LABEL IN A DO STATEMENT MUST REFERENCE A STATEMENT FOLLOWING IT. 79 : MAXIMUM ALLOWABLE NUMBER OF NESTED DO'S EXCEEDED. THE DO LOOP MAY BE IMPLIED IN A DO LIST. 80 : OVERFLOW OF TABLE OF SUBROUTINE PARAMETERS. CAUSED BY LARGE NUMBER OF DECLARED PARAMETERS AND UNIQUE REFERENCES TO THEM. 81 : THIS FORMAL ARGUMENT WAS PREVIOUSLY SPECIFIED AS ANOTHER FORMAL ARGUMENT OR THE SUBPROGRAM NAME. 82 : TOO MANY FORMAL ARGUMENTS CAUSED A COMPILER TABLE OVERFLOW. 83 : THE ABOVE NAME IS NOT A VARIABLE OR ARRAY ELEMENT. 84 : TWO ELEMENTS OF THE SAME ARRAY OR COMMON BLOCK ARE ASSIGNED TO THE SAME STORAGE UNIT. 85 : BLANK COMMON AND FORMAL ARGUMENTS MAY NOT BE INITIALIZED WITH DATA STATEMENTS. 86 : 87 : AN ARRAY ELEMENT IN A BYTE, SIGNED BYTE, DATA, OR EQUIVALENCE STATEMENT EITHER HAS WRONG NUMBER OF SUBSCRIPTS OR A SUBSCRIPT IS OUT OF RANGE. 88 : TOO MANY EQUIVALENCE NAMES CAUSED A COMPILER TABLE OVERFLOW. 89 : AT LEAST TWO ELEMENTS MUST APPEAR IN AN EQUIVALENCE STATEMENT. 90 : 91 : DATA STATEMENT FIELD IS NOT AN INTEGER, REAL, DOUBLE PRECISION OR LITERAL CONSTANT. 92 : MISSING TERMINATING ASTERISK OR QUOTE IN A LITERAL STRING AS APPROPRIATE. 93 : 94 : 95 : 96 : 97 : 98 : 99 : 100 : CATASTROPHIC TABLE OVERFLOW; COMPILATION IS ABANDONED. COMPILER IS LIMITED TO 300 WORDS OF GENERATED CODE PER SOURCE STATEMENT. IF THE OFFENDING STATEMENT IS ARITHMETIC OR A LOGICAL IF, THE STATEMENT SHOULD BE BROKEN INTO TWO OR MORE STSTATEMENTS AND THE PROGRAM RECOMPILED. 101 : TWO PROGRAM, FUNCTION, SUBROUTINE, OR BLOCK DATA STATEMENTS IN IN ONE PROGRAM UNIT; THE SECOND IS IGNORED. 102 : 103 : RELATIVE ADDRESS ARGUMENT IN ASSEM STATEMENT REQUIRES PRECEDING CONTROL INDICATOR ARGUMENT (*). (*). 104 : 105 : 106 : 107 : 108 : 109 : 110 : SYMBOL REFERENCE TABLE OVERFLOW. SUBSEQUENT REFERENCES WILL NOT BE LISTED BY 'C' OPTION PROCESSOR. 111 : THE INDEX USED IN THIS SUBSCRIPTED VARIABLE IS IN CONFLICT WITH THE DIMENSION DECLARATION. 112 113 : MAXIMUM NUMBER OF MACROS EXCEEDED. THIS MACRO DEFINITION IS IGNORED. 114 : THIS MACRO WAS PREVIOUSLY DEFINED; THE NEW DEFINITION IS IGNORED. 115 : CALL TO AN UNDEFINED MACRO. 116 : NESTED MACROS ARE ILLEGAL. 117 : 118 : 119 : 120 : 152 : ARITHMETIC TABLE OVERFLOW. HwhvhrH Hf gfh hZX n hN HRhWH HIhNLHAh0h@=> h;=8@h;"513/!Hn,, q+%s%̘Fh hXh hTh hp8hh(fDh 1 HTTh p4,dh h HTTh?hdǺdNT hd %  h`(l dT&l' $dn 14 dRl  lTT\Ȩ  ̺ hȟhȟ6)nؙ̬ l nnnn ));εd l*d,Ϋ Φ d+-&dRll&dRllӤ.lNSO' '  ̽dRl(l ; T dK T&ɀVhT $lI/ ,θI (fn@H H TTh CORE OVFLTThTY  TTL T SO PFORTN DECK-ID F01 FTN 3.3 RUNTIME SUMMARY-126$@PX/X+X'X# XX}X$X$@P+)Xa"a X" XIb XFb XCa X@b bXL>aArI%@@%PSQRT % PHFLOT DARABS% P P$SIGN DECK-ID G05 FTN 3.3 RUNTIME SUMMARY-102% @P @` `Xah\ b#1Tt`% PQ8SG SIGN %PHFLOT ARABS%P P0FIXFLT DECK-ID G06 FTN 3.3 RUNTIME SUMMARY-102%@P @` `@X""``T\ ``@ `@X ""`%@P+\$%PQ8QFIXQ8FX Q8QFLTQ8FLOT!IFIX FLOAT !DFIX Q8DFLTDFLT !%Q8QFLT%Q8FLOT%IFIX %FLOAT %DFIX %Q8DFLT%DFLT %EXP %ALOG %TANH %&SIN %-COS %-ATAN %6PARABS%>Q8IFRM%BQ8FS %HQ8TRAN%Q8QINI%%ՠPARABS&HFLOT %P PEXP DECK-ID G07 FTN 3.3 RUNTIME SUMMARY-102%@P@Xh`\V@ %\O}@ @\H[@|o?C5Ƙ1 `>Ř3%@P+Ƙ= " HX `B\#Z]Y^]J@1G" `R z%@PV` `Tؔ3\՞+(Y^#Y^Y^Y^ Y^]@ŀ`\%@P\յ@@>UV=UVŐ1` #%!@P+d*@1*A`ݠ4ad` 1`T^]Y%"@PV ^\@Zy@X @@A@@UNIe=h,%*PTANH %+PHFLOT 4ARABSXP .%,P PSINCOS DECK-ID G10 FTN 3.3 RUNTIME SUMMARY-102%.@P@Th`\6@Th`\&@ %\}@ ``q@ؘx%/@P+7u3K@)Ř7X"` Tե`1Gf $ "Ţ` `\%0@PVYJ^C>@:\X]9@ `Ř04Ơ,;.` `\õ~"@\%1@PܞY&#^Y^Y^Y\}@\@AdA@*@Ke>@U@>G%;PATAN %<PHFLOT OARABS%=P PPARABN DECK-ID S53 RPGII 2.1 SUMMARY-132%?@PHhB4 "c"%@PPARABS%AP P?Q8IFRM DECK-ID H01 FTN 3.3 RUNTIME SUMMARY-106%C@P  hhhhhT%D@P THTTh\hh\hh%EPQ8IFRM/%FPQ8PKUP5Q8PREP2Q8FS Q8TRAN!%GP P5Q8FS DECK-ID H02 FTN 3.3 RUNTIME SUMMARY-106%I@P%J@P!%K@P/ %L@P1 %M@P+ )(,/.XH0123456789AREF$I%N@PD'*Z%O@P %P@P3 h%Q@P; l : T l %R@PLll h%S@PV l \ hlElh hhhh hhT*() h hظȶ ,Ȱ"!& 1%T@P ,j%U@P, 1TT6 l44 l2 / ! + !l dKd- l!!  %V@P d.d( d)Tj.() % Vd%W@P\/\  l !  "ld0l l l l l\.() %X@Pd L6'1l$ V L"TT 6TG %Y@PBl d  d& d% l ll  T*%Z@Pd\*T*̙ l !  d(d)T*()\*" l ! %[@Pd*%\@P%]@P%^@P%_@P%`@P%a@P%b@P̹ $2 l#, l%c@P%d@P dd: ld$l d%e@P%f@P l%g@P%h@P l%i@P!%j@P l%k@P#%l@P%m@P%n@P l%o@P%%p@P l%q@P'%r@P l%s@P)%t@P d̘ %u@P/%v@P l̒ \*̹  a̱  aTg*\*̡  a̙ %w@P aT`*%x@P9%y@PS%z@P%{@P%|@P2H/TThV\hD\hB\hhh\hh\h\h\h#h\h%}@P-\hh%~PQ8FS %PQ8STP 8Q8PKUP Q8PREPQ8SKIP@Q8FGET}Q8FERM5Q8RWBUQ8FPUT%P PAQ8TRAN DECK-ID H03 FTN 3.3 RUNTIME SUMMARY-115%@P%@PQ%@PS%@PU %@PY-0 %@P`F%@PfED.%@Pp%@P{*%@P<'d %@PA%@P T h jظ 1 h " < )%@PP d; h\ dP̼ !TR 9l%@PRdRl̩ l  dTTPT\R̛  lUdRlVl  dW%@P dX\R    !> ḷ l !& !/ l 9!/̫%@P, !+̧ h$[l !( l 5TR%@PE l̻ ̵dl\WTgTQTR  0l\\\ ld]d ^ dN%@Pp:\R  ld_ 9!. !* hWĈl̨ l 3\R%@P    dT !TWT l F7̣ 4̠ l̜  0lTSQ%@PTV%@P%@P%@P%@P dadbldXdcddde dN f 1TARR  l %@P  l  l \Rl;  $[ lL dDf%@PdWgl,lLlll ̲ l,lLlll, lh%@PJd^ il ̓ l TRR B > : 6 %@Pu 93 % Rd e l 95 2v  0lo  d%@P dalX̺ ̷ ; ̯  EdO l D\R̠ ̜  dc%@PR  9! ! dDb$[l c"a l T_R %@PR 0lԀ%@P%@P d ̱ k3 dleld3d4d5d6d7 d8;%@P% D ll d9d:l T ̻ aO  lX  %@PPdldldl dTTT l\T l\TṊl T a%@P{ ̚dl̛dl l\T l\T)%@P%@P" < ) EH d;; dPl\PT ! ! lHdR%@PVlTR̘l\R l\R l  Hll\Rˬl dm l%@P dEdFdG dN n 1 dn +dXdc dTT\ET l\FT̗  l%@P\GTdKdIdJʤpdo  -lܺdldl; dl TH%@Pܚ d^n 1 l 0n 1 dN 0n 1  d]%@Pi  mdlc ÔMl̿ !i̻  l̶8TU l%@PX \X ldn dl !  0ṉ h\%@Pܫ l̹ l\l̳ l  2\Z̥ l 2] h\%@Pr l l 2\{ lm !d^  dN8%@PTU lX \X l\Z\l l  ̳ h\%@P0ܭ l; \k l\j\cMd|Kd}+ z!" 8 %%@P[ l\Zܨ 1P\Z\J\\ DdTdx dqdwld^ dN%@Pl`p=l  lܹ 0f.lۜll 1 %@P%@P +dX dmlT|Tl|pdo dl -l l lz  l 0d%@Pd~ !#  l5TUܘ \Y lڜ9Nh\%@P l4\{%@Pp%@P dT\|T̨ldx dqdwdyl *l ̬ l̩d ,\Ṳ%@P8 l ! l l윳4\Zܯm lz`p5@dDfl 0e 4 %@Pcn ḽḷlN 1 l l  1 d~ "%@P l  +TU l ! d^ " ll 8̽h\%@Pܷ " l  l\`̥ l !\U̶ l  !%@P%@PX%@Pe%@Pb@aH^H[TThh\hhhFhhhh{hhh\hh%@Phhhhhah\hqhhvhhI\hgh\hch\h_h\h[h%@P3\hWh\hShA%PQ8TRAN%PQ8STP Q8PKUPQ8PREPQ8FS Q8RWBUQ8MOVEQ8FERMQ8DXP9=Q8EXP9rQ8DXP19Q8EXP1=%P PQ8QINI DECK-ID H04 FTN 3.3 RUNTIME SUMMARY-117%@P H]h\hRhMhRKuXhKJhAHFv" c h8"5T39cTh.h;X7%@P+H&8%#T$h$h`  TT %@PR%@PX TF TT4h255؈ȇXh&ڨ*I%@PhTTp=H ' &eh @ȫT%@PȨXȞ Tȡ`><Ȓ T H T艀%PQ8QINIQ8UNITVQ8SKIP%Q8UNIT%Q8SKIP%Q8QEND%Q8CMP0%Q8CMP1%Q8DFAD%Q8QENS%RECEND%Q8BINB%Q8LOCB%Q8RWBU%Q8INTB%Q8BEGB%Q8CLRB%Q8RINT%Q8IBUF%WRFLG %Q8ERRM%%PARABSzQ8DFIN'Q8QUN2Q8CMP1Q8IGP Q8IFRMQ8QENDQ8MAGT5Q8CMP0lQ8QT0MQ8EREMNQ8INTBoQ8ERRM"%P P!Q8QEND DECK-ID H05 FTN 3.3 RUNTIME SUMMARY-102%@P dT TTT %PQ8QEND%PQ8FS Q8DFADQ8UNITQ8QUN2Q8QUN1Q8CMP1%P PQ8CMP DECK-ID H06 FTN 3.3 RUNTIME SUMMARY-116%@P h3HHdhdDhhdTFKhh %@P+hHL8@ hk"ThT} hy"  b hqT P%@PVިXM H֨CbCwΨ U hS Va `hL1D{lEwe%@P& ?!RX"ȭ ȩ!0XHyl'e #!6X Ȍ%@P TT `h XX\\ TaH #h!%@P TT %PQ8CMP0Q8CMP19Q8DFADQ8QENSRECEND%PWRFLG Q8EOTTPQ8RINTQ8CLRBQ8LOCBAQ8BEGB=Q8EREM%P PQ8RWBU DECK-ID H07 FTN 3.3 RUNTIME SUMMARY-102%@P hBDhEhBhBhDhwh:8# `h9 V1a Dh/X+)*h+DT  #% %@P+ # Dj A Dh h h  Hhh%@PV&aH3[HX" L!`h TT %@PaH> 3 DH-j+̾Ⱥ(j'% hȲDhT̝Ȟ̘nΙl%@Pؘؚș _ U h%`PB%PQ8BINBQ8LOCB#Q8RWBUPQ8INTBQ8BEGB(Q8CLRB+Q8RINT:Q8IBUFWRFLG O%PQ8EREM{Q8CMP1%P PQ8ERRM DECK-ID H08 FTN 3.3 RUNTIME SUMMARY-102%@P HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBH%@P+ j `0%@P; %@P@'d %@PJ hrHr s"htjqh hDh`Hah`I/O REQUEST %@Pp     X XX*EX XX&X+@XXX< XwhHh%@P h,ph*X" dh$ h!X mh hX ThX THX%@P TL `u%PQ8ERRMQ8FERMJQ8EREM[%Q8FERM%Q8EREM%Q8DFNF%Q8DFIN%Q8QT0M&Q8QTRM&Q8QX &Q8MOVE&Q8QY &Q8QZ &Q8QUN1&Q8QUN2&Q8QUN3&Q8FGET&Q8FPUT&Q8LOCF&Q8IGP &Q8MAGT&&PQ8LOCBQ8LOCF%P PQ8DFIO DECK-ID H09 FTN 3.3 RUNTIME SUMMARY-116%@P HehdhgXlXvhb"aTZWDT hUHUHRRQ  pJf XNXXhEn HA&@P+XHXR(?R!39h9X?XInhTK  NX0h+p nmh n&@PV ;ln  H T` + ȋXh؆1  &@P HhH  TT hhhhdhhuXvh̺&@P (BD n&ȫdȫ &PQ8DFNFQ8DFIN&PARABSRECENDQ8QENSQ8DFADQ8QINIQ8EREMQ8ERRM &P PeQ8QX DECK-ID H10 FTN 3.3 RUNTIME SUMMARY-116&@P hJIEhE h h  hh h8H60TXX h%`"& @P+ "h*hTHIJ T h hh& @PVh ll& PQ8QT0MQ8QTRMQ8QX Q8MOVENQ8QY Q8QZ & PARABS#Q8UNITQ8QUN1Q8BINB>Q8IFRM7& P PQ8QUNI DECK-ID H11 FTN 3.3 RUNTIME SUMMARY-102&@P X# Xhh@4i` Xj TT Cr q d&`P+^&PQ8QUN1Q8QUN2Q8QUN3&PQ8EREM&P PbQ8FGET DECK-ID H12 FTN 3.3 RUNTIME SUMMARY-116&@P Y hUDhT XHXhNX hXh:a62Hl2&@P+0X), H,)H& XXh a&hh۸nX X h H &@PV &PQ8FGET Q8FPUT7Q8LOCFQ8IGP &PARABS;&P PVQ8MAGT DECK-ID H13 FTN 3.3 RUNTIME SUMMARY-117&@P HShhh<@ TH $T\h9Dh5TFh122-3 T*&@P+*%!!T TF \TT \T &PQ8MAGTQ8EOTT=& Q8EOTT&Q8QBCK&"Q8QFLE&"Q8QWND&"EOF &"IOCK &*Q8PSE &/Q8PSEN&/Q8STP &/Q8STPN&/Q8COMI&/Q8PAND&6Q8EXP1&=Q8EXP9&DQ8EXPT&DQ8EXP2&DQ8QGET&MSETBFR&M&VPQ8QUN19Q8QWNDGQ8COMIKQ8QUN2 Q8EREM)&!P PTAPCON DECK-ID H14 FTN 3.3 RUNTIME SUMMARY-117&#@P H+h* r Gh hlBhHX"9" "hh0" T+TX%&$@P+ hT\H `CT T@ TFhT&h&%@PV XX TTT 2X X' h$  X0X&&@P XzШ Xhˠ T Tc&'PQ8QBCKQ8QFLEYQ8QWNDyEOF i&(PARABSQ8IBUFQ8QUN3Q8QUN2EQ8QUN1_Q8CMP1Q8CMP0Q8EREMQ8ERRM#&)P PIOCK DECK-ID H15 FTN 3.3 RUNTIME SUMMARY-116&+@P HXhTh  T  &,PIOCK &-PARABSQ8QUN3Q8QUN1&.P P?PSSTOP DECK-ID H16 FTN 3.3 RUNTIME SUMMARY-126&0@P H= X H8X H0:TX*@) 7\TJ   hT&1@P+H5&2@P7STOP PAUSE &3PQ8PSE Q8PSENQ8STP Q8STPNQ8COMI!&4PQ8PAND&5P PnQ8PAND DECK-ID H17 FTN 3.3 RUNTIME SUMMARY-126&7@P h\H jN qDhQ`hS \hL!:R hJE hBEOi:Dh@P T` h/&hHgaV`H _H H M A cTXFRXB H&?@P+ H\wwTwwy=:\ww9y/  HI&Aa&@@PV%acAD aa h h HR &APQ8EXP1&BPQ8EXP2BQ8EXPTDPARABSHFLOT 4&CP PQ8EXP9 DECK-ID H19 FTN 3.3 RUNTIME SUMMARY-102&E@P H T hHXhxhy`Xhh{ HfL#dhtHg ! lba&F@P+g4lZ a``]cTX^RXZ I^HT HG9Qs&G@PV>L1a: Lw T&RH5 I  vR  &H@PLaT\T &I@P hh Huhi[G M^@BPCE}GN HJzLLK@&JPQ8EXP9 Q8EXPTQ8EXP2&KPIFALT PARABSHFLOT H&LP PQ8QGTX DECK-ID H20 FTN 3.3 RUNTIME SUMMARY-102&N@P&OPQ8QGETSETBFR&PP P9IOCODE DECK-ID J01 FTN 3.3 RUNTIME SUMMARY-116&R@PXXHH"4` "a "a a#XaX""aX""aXaXh h&S@P+`&T@P2X&UPENCODEDECODE&WENCODE&QDECODE&QCOMMON&YISAVE &YIGETCH&]GETCH &]IPACK &bUPDATE&hDECPL &lINTGR &qSPACEX&vHOLRTH&{QUOTE &{DCHX &HXASC &AFRMOT&RFRMOT&AFRMIN&&PARABS7SAVE OMMON ORMTR'&XP P%PSUEDO DECK-ID J02 FTN 3.3 RUNTIME SUMMARY-102&Z`P%&[PCOMMONISAVE &\P PIGETCH DECK-ID J03 FTN 3.3 RUNTIME SUMMARY-102&^@P#y a%XH!""" A&_PIGETCHGETCH &`PWRITE&aP PBIPACK DECK-ID J04 FTN 3.3 RUNTIME SUMMARY-102&c@P#*   "!"X# a1rX ""  "!f" !" f""" f"&d@P+ "a""! h " "f"&ePIPACK &fPHCNT .WRITE&gP P UPDATN DECK-ID J05 FTN 3.3 RUNTIME SUMMARY-102&i@P" "f" !"&jPUPDATE&kP PDECPL DECK-ID J06 FTN 3.3 RUNTIME SUMMARY-102&m@P` a! a a"X  a! a"XXaa&nPDECPL &oPNTGR PDATEETCH &pP P&INTGR DECK-ID J07 FTN 3.3 RUNTIME SUMMARY-102&r@P a a! a"X"  !T 9!a Fa a! a"X&sPINTGR &tPPDATE$ETCH &uP PSPACEN DECK-ID J08 FTN 3.3 RUNTIME SUMMARY-102&w@P a a! a"X a! a"X&xPSPACEX&yPPACK PDATEGETCH&zP PHOLRTH DECK-ID J09 FTN 3.3 RUNTIME SUMMARY-102&|@P a a! a"3XXa a! a"X  a  &}@P+! a a! a"X a! a"X a! a"3XXa a! a"X=&~@PV    + a  e a a! a"X6 a! a"X&@PT&PHOLRTHQUOTE ?&PHCNT oPACK zPDATEETCH LGETCHI&P PpDCHX DECK-ID J10 FTN 3.3 RUNTIME SUMMARY-102&@P aaaaa `!W a! a"Xa a! a"X    8&@P+ 4 0a a* "X 9"X>a "XC Fρ" a&@PVA Fρa1BXLaADdRAa&PDCHX &PWRITE`PDATEGETCH&P PLHXASC DECK-ID J11 FTN 3.3 RUNTIME SUMMARY-102&@P `ab a  0c    ` a`b% *aa ` a&@P+"Xd"2aR @ a! a"X a! a"X&PHXASC &PWRITE0PDATEIPACK B&P P#AFRMOT DECK-ID J12 FTN 3.3 RUNTIME SUMMARY-102&@Pa `! a! ܠ a"Xa a! a"X a! a"X&PAFRMOT&PPDATE PACK ETCH &P PRFRMOT DECK-ID J13 FTN 3.3 RUNTIME SUMMARY-102&@P a a! a"X a! a"X&PRFRMOT&PPDATEPACK &P P,AFRMIN DECK-ID J14 FTN 3.3 RUNTIME SUMMARY-102&@P a! a"Xa a! a"X a  a! a"Xa a! a"Xȁa&@P+&PAFRMIN&PPDATE&GETCH&P  PRFRMIN DECK-ID J15 FTN 3.3 RUNTIME SUMMARY-102&@P a! a"Xa a! a"X&PRFRMIN&RFRMIN&ASCHX &HXDC &FLOTIN&FOUT &EOUT &EWRITE&INITL1&RESTRE&FORMTR&CHCNT &Q8QFI &Q8QFL &Q8QFX &HEXASC&HEXDEC&ASCII 'DECHEX'' PPDATEGETCH&P P4ASCHX DECK-ID J16 FTN 3.3 RUNTIME SUMMARY-102&@P a `! a! a"Xa a! a"X a 6 9 2 2X&@P+ aıa&PASCHX &PWRITE*PDATEGETCH&P PHXDC DECK-ID J17 FTN 3.3 RUNTIME SUMMARY-102&@P aafRda -a0F 0ac 2 .a `9&@P+ac a aA `! aa a( a .a 0&@PVa!D Q" !yR *a aa A a! a"X &@Pa! a"Xـ&PHXDC &PPDATEPACK &P PFFLOTIN DECK-ID J18 FTN 3.3 RUNTIME SUMMARY-102&@P`hA` aXX!!a@bRd@`X X aXT@%&@P+T"ahX T,a`aA&PFLOTIN&P8QFI 5HFLOT 78QFL CHX &P PFOUT DECK-ID J19 FTN 3.3 RUNTIME SUMMARY-102&@Ph`"Rd@`XT[ZqXn]@1K%TX a`&@P+ aX .a a! a"X a! a"X aa`"d`!X%XT Y,&@PV]@XMX.aaȝ`h *a a! a"X8 a! a"X? h&@PBP@@JI>&PFOUT &P8QFL OPDATEyPACK rXDC [8QFX YHFLOT Q8QFI &P PEOUT DECK-ID J20 FTN 3.3 RUNTIME SUMMARY-102&@Ph`X``` a` a` `/" 4 A *a A    g&@P+R@R@ -A` .a ` a! a"X a! a"XX@T&@PVXI -`" ` c1Xd 2QTRqXY c1XfT&@Pq[Zd@Xx #  a` aܐ!XTYD]@XX a&@P Ea a! a"X? a! a"XF a  +a `"d` 5 aX &@PaaXa `aBP@@&PEOUT &PXDC 8QFL WRITE8QFX PDATEPACK HFLOT 8QFI &P PEWRITE DECK-ID J21 FTN 3.3 RUNTIME SUMMARY-102&@P#4h h` &PEWRITE&PORMTR&P P(INITL1 DECK-ID J22 FTN 3.3 RUNTIME SUMMARY-116&@PXHH"4` " "aXaX ahh`X&PINITL1RESTRE&PARABS&SAVE OMMON&P PFORMTN DECK-ID J23 FTN 3.3 RUNTIME SUMMARY-115&@PPqa aa a a a a a! a"Xa"  6 9! &@P+T d  a a! a"X   `  `&@PV  aXaaX" a   a! a"XD &@P aaX'bdRQ"X; aX3 aX+  "X&@PaX  "XaX XaXXf" #"Xf" a#&@P a a A aA aA  XX" a a A aA  &@P  a  aXX"a A a` !RAXaS &@P-aXK aX0C  "XaX6  "XAaX)a#&@PX"X"a` aX aX#"XZ XNaX aa &@P "Xw a! a"Xw a az a a a p a_a( a! &@Pa"X^aX]X1 aA a a! a"X a! a"X a! a"X&@Pِ2a a Da  a  a  a! a"X 3 ! a! a"X&@P &PFORMTRCHCNT &PWRITEPACK OUT {OUT mOUT eFRMOTRFRMOTEXASC 8XDC &PACEX UOTE OLRTHLOTINFRMIN&PFRMINSCHX CHX ECPL cNTGR PDATEETCH 8QGETr&P PQ8QFI DECK-ID J24 FTN 3.3 RUNTIME SUMMARY-102&@P` ``TBP@&PQ8QFI &PHFLOT &P P+Q8QFL DECK-ID J25 FTN 3.3 RUNTIME SUMMARY-102&@P#dRAR`B@ @"si`  dr$Rd`@&PQ8QFL &P P0Q8QFX DECK-ID J26 FTN 3.3 RUNTIME SUMMARY-102&@P$dR@ R  DA ) H f H g Add&@P+RAa&PQ8QFX &P PHEXASC DECK-ID J27 FTN 3.3 RUNTIME SUMMARY-102&@PX a#a a a a"a aX&PHEXASC&PHCNT ESTREXASC NITL1&P PHEXDEC DECK-ID J28 FTN 3.3 RUNTIME SUMMARY-102&@PX a#a a a a a"a !RA aX&PHEXDEC&PHCNT ESTREXDC NITL1&P  PASCII DECK-ID J29 FTN 3.3 RUNTIME SUMMARY-114'@PX a# a a a aXf"'PASCII 'PESTRESCHX NITL1'P PDECHEX DECK-ID J30 FTN 3.3 RUNTIME SUMMARY-102'@PX a# a a a a aXbRdQ" f"'PDECHEX'PESTRECHX NITL1' P PAFORM DECK-ID J31 FTN 3.3 RUNTIME SUMMARY-102' @PX a# aa a` aX f" ' PAFORM 'AFORM ' RFORM 'FLOATG'FLOT 'HFLOT 'IFALT ',SFALT ',OPERND',NXTOP ',FPEROR',PROCHK',SPECOP',FLOFOP',FIXFOP',Q8QD2I'8Q8QD2F'8Q8QD2D'8SNGL '?'BPESTREFRMINNITL1'P PRFORM DECK-ID J32 FTN 3.3 RUNTIME SUMMARY-102'@PX a# aa a` aX f" 'PRFORM 'PESTREFRMINNITL1'P PFLOATG DECK-ID J33 FTN 3.3 RUNTIME SUMMARY-102'@PX a#a a a a a"a "a aX'PFLOATG'PHCNT ESTREOUT NITL1'P P>FLOTN DECK-ID G14 FTN 3.3 RUNTIME SUMMARY-112'@P  `a` ` `X8A"C  x&Lp'@P+sXa*XFXXȰ,` Ȱ#`X`Ȱ#`XB`Ȱ#`XJX'@PVbXO`Ƞ$d `d`Ȱ.`X XSXUbb $`S@'@P@` *`@ed`d`Xo` `Ƞ4`n Ƞ$Ȱ$>'@Pa.`X"dR`2H `͠ `D`D```XCXXXS#Ȱ.`' @P A`@ @ ŀX2X0` `2@A`π`"G'!@P z @35` ` 2` 1`ϐ+ e% b ``"dR'"@P-`2H ```XcXX8#Ȱ.`aA@͠`d `'#@PXrd 0 d1 " 2a0 `Da0 1 q  ! X'$@P` ` `X XAdRXX@`!d߰2H '%@P`"`@`ed`d``Vϐ.`@`@`'&@P@ϐ"h t=`hA``h`A``B" e''@P " `@2T "@k"Ƞ>.`Rd"'(@P/>`R@`" `')PFLOT HFLOT '*PPERORIXFOP6LOFOP3PECOP-XTOP ROCHKqPERND'+P P4COMNFP DECK-ID G15 FTN 3.3 RUNTIME SUMMARY-114'-@P &B``` ",2!#`&2  '.@P+X/2 <CF=B#`X X9@ `X!X1'/@PV Ƞ$XX #!1H%'0@PX#X X X 4 4p"d 2esR'1@P4R4!D RȢA1`R "dR@ R  B H ga'2@Pd `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR'3@P@`/@Ƞ4` H(X t` Q  T"" R1 H XRR'4@P-t`p'5PIFALT  SFALT %OPERNDNXTOP FPERORPROCHKSPECOP*FLOFOPFIXFOP'6PPARABS'7P PtQ8QD2I DECK-ID K01 FTN 3.3 RUNTIME SUMMARY-116'9@PH  H H h@X`X` f`!d`X"``':@P+`T@p#``"`\q0T"``` `\@T';@PVa@%\Թ\̹1\ú@p@'<PQ8QD2IQ8QD2F Q8QD2D'=PARABSDLOG @DEXP RHDFLOT.FALT $'>P PSGLDBL DECK-ID K03 FTN 3.3 RUNTIME SUMMARY-102'@@P H XhT'APSNGL DBLE Q8SNGLQ8DBLE'CDBLE '?Q8SNGL'?Q8DBLE'?DABS 'EQ8DAB 'EDSQRT 'JQ8DSG 'RDSIGN 'RDEXP 'WDLOG '`DSIN 'hDCOS 'hDATAN 'sQ8DXP1'|Q8DXP9'Q8DXPT'Q8DXP2'Q8QDFI''PARABSHFLOT 'DP PDABS DECK-ID K04 FTN 3.3 RUNTIME SUMMARY-102'F@P HXhT@"\t'GPDABS Q8DAB 'HPHDFLOTARABS'IP PDSQRT DECK-ID K05 FTN 3.3 RUNTIME SUMMARY-102'K@P@X"``'d`dR``@RG* AB ;1`Š 4`T'L@P+tܾwzۚ}@\q@Ő Ɛ ǐ B\ֽ@'M@PVa 4gRd@R@`\\@@?N^ rA̼>L<"aAr'N@PI$J'OPDSQRT 'PPARABSHDFLOT*'QP P$DSIGN DECK-ID K06 FTN 3.3 RUNTIME SUMMARY-102'S@P @` `Xah\ b#1Tt`'TPQ8DSG DSIGN 'UPHDFLOTARABS'VP PDEXP DECK-ID K08 FTN 3.3 RUNTIME SUMMARY-102'X@P@Xh`\P@ %\I}@ @\B[@zw?Cؘ# `>! " H'Y@P+X ``"Q\&Z]|^]^@Ř G" `R|@` 'Z@PV``TS\՞LHY^BY^UUUV=UUUV<DDDD;[[9h8hh6'\@Pw[5I>@X ']PDEXP '^PFALT ,HDFLOTYARABS'_P  PDLOG DECK-ID K09 FTN 3.3 RUNTIME SUMMARY-102'a@P@Xh@\A@1X"`  Ő@ ```\%Q'b@P+1`` #d*@@1*A`ߠ4ad` 1`T^-]('c@PVYC>82,& ٵ ^@@Zy@X 'd@P@@A@@UUUUV?fffff?I$I%>q>Et>N>DDDD>xxxxx'ePDLOG 'fPFALT HDFLOTJARABS'gP P DSNCSN DECK-ID K10 FTN 3.3 RUNTIME SUMMARY-102'i@P@Xh`\c@```\X\S'j@P+@Xh`\2@ %\+}@ ```\"@ؘ=Ƙ'k@PV8ǘ3K@,Ř7X"` TZ}]@Ũ1Gf $ ƪŪ`'l@P ` `\Ye^Ř]7ƘZ?ǘW;\ҵN `ŘD4@4'm@P<!?` ``\(\~-]@\fY@<^Y6^Y0^Y*^Y$'n@P^Y^Y^Y@\t@QAdQAQ@*Q@Ke'x@P?j g>ׁV@U@>ffff6m>qq.>NN=xxxx'yPDATAN 'zPHDFLOT]ARABS'{P PQ8DXP1 DECK-ID K15 FTN 3.3 RUNTIME SUMMARY-102'}@P X` h9aaaa&H}H |H%2H M A chxV "Xa'~@P+ bX\ kJ " H\\@T:\ BKTM'@PVB  HI ;a88Aa,h/aAa+aah$cDAag'@PhDaau h h HR 'PQ8DXP1'PQ8DXP2LQ8DXPTUARABSHDFLOTR'P P Q8DXP9 DECK-ID K16 FTN 3.3 RUNTIME SUMMARY-102'@P H XԺ hfHXhh`Xhh[ HL#dhSH ! '@P+laal aa<`9ch9W "X bX *L "H'@PVTxx HsLoAAd]'@P}|LQ3AaI 'Lv T*a)RH%3I  aH'@PQ A a#vR  2LaHH ALȱaX \x'@PX N[ hhhuhi f[G ߂M^@BPCE}'@PGN HJzLLK@'PQ8DXP9 Q8DXPTQ8DXP2'PFALT HDFLOTWARABS'P PQ8QDFN DECK-ID K17 FTN 3.3 RUNTIME SUMMARY-102'@P` ```TBP@'PQ8QDFI'PHDFLOT 'P PDOUTN DECK-ID K18 FTN 3.3 RUNTIME SUMMARY-109'@Ph`X`````` a` a` `/" 4 A *a A '@P+%lR@@R@@R@ -A` .a ` a! a"X a! a"XX'@PVJT``XS -`% ` c1Xd 2Q\ݵ'@P``Xg c1Xt\[Zr@``X #  a` aܐ'@P!X`` `\YH]@X``X a Da a! a"XI '@Pa! a"XP a  +a `"d` 5 aX aaXa`a'@PBP@@'PDOUT 'DOUT 'DFLOT 'HDFLOT'DSTOR1'RSTOR1'DSTOR2'CPFILE'RMUOPNCRMUCSWc* RMUCF0CRMUCFTj+RMUCLO+RPGSM0+RPGSM1+RPGSM2,RPGSM3,2RPGSM4,:RPGSM5,=,nPXDC 8QFL WRITE8QFX PDATEPACK HDFLOT\8QDFI'P  PuDFLOTN DECK-ID K12 FTN 3.3 RUNTIME SUMMARY-102'@PH  bb@`'@P*X X a*` a aX &Baa"aC'@PU3%p,` Ȱ#`Xa'@PXȰ#`XaȰ#`XTbX&)+25,Ȱ#'@P`X TA a!1  !1'@PXv`` `">a.`AA&dRARAa 2H a  '@Pa a a 4Da a a a Ƞ>`)X X9Tbbb T@@@ '@P,` *`@ @id`d`d`  Ȱ.`"Ƞ,'@PW2!Ƞ#`'2 ' dXX.#Ȱ.` '@P!Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@'@P` !AX`"Š"Š``@ AaaA3Aas'@PA``c` 1 m@`$ `ǨA a a '@P a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#'@P.Ȱ.`1   #0a d a  !13d #2d'@PY Ad( 2adaa1 aDa1bAa?ad A2'@PaF ad2aa1`a1`Da1` a a a-`aaaa'@PA&RARAda2H a aaa  ! Ta '@Pa a a _XadadRXWaAaA!d'@Pذ2H a "a aAa A a hda da da '@P0 a aa  a1 a A  a A a A a A a" x a  `'@P[ d aa bAa a babAa"H1h #h`A'@Pa`Aaa`AaaMaB a #a  A Dda a '@Pa #a  n a )a a #a A a A # a 2W '@P ,or | AA A   AA A  a A kdRA a '@Pda . Ƞ>t` A U@ `a `X"dR@ R '@P2 B H gad `Ȱ#`XTbȰ#`X`!d'@P]B2 @rdR@`/@o'PDFLOT *HDFLOT/'PFPERORPROCHKL'P P8DRSTOR DECK-ID K14 FTN 3.3 RUNTIME SUMMARY-116'@P @s""f"bb @s""f"b @s""'@P+f""  b`b'PDSTOR1RSTOR1DSTOR2"'PARABS'P @ d   `p"J"T06"^"h"r8"|"""  :sk ,s   ">  % %f l b TA %l l  %TT  h l T68l   h l TFl   h l TRl    h l T[ l  5 h l T[ l 5! T h l TGdl T @ Da     `  h?>b bP `,f b`"f h$#`   f ` 0 f ؿ̾h ` ض `  f@  ( b  b  f @  !@  n!@ !@ i*@ i*@ @ @ @ d@$Tk dT$|{LQP@ h@T9     hEHEhA=hAHL,"5Wx "S0 xW  p d   x=h"~  xup  x xY xL "G=Q8?<p d 0 d " x&#"   x x x x{  "Q8E=DXs x^ Xd d  xL    DXEj0 d "wr d  x xZU  d x x> : 7 DX-p d 0 d " x"4 d   " $ DX x X d  xo  d %  "\bRg XY d  xADXI x6d H{"d60^ d VVk - m d"9 T? bb H~h 2 2 U U U db0T ]VVQ d L b hD>b)*71 b h.) b)*  $h   b{    @ @!UCOPYRIGHT CONTROL DATA CORP. 1975,1976EwuFGDrUh\FWR ? ? @ @@ =}? HOST DOWN..] HOST UP..] HSԠDN.. ] HSԠUP.. ] HOST DOWN..] HOST UP..] 0123456789ABCDEF  =? =? _/?@  *WM] *ERR] * ] ȁȁ  ` p  T?    1234QAIM  ( P 0 _ 8 a @ c H e X g P i ( h k< H&7?/I<Txx8Jm,!!%!5   2  =@?@}`  c%sDiDDEEE3E>ECtt*~pp0ppp}pE "2$rE "2$rE "2$rE "2$rE "2$rE "2$r N0!e!e!f!i!x!y!!!!!!!!A@   ,@    @ $(! %(! %( 0%(,  p A p`p1ppI!yEpUPUQM0pM1]p}p} ! U3U3U*3LpU3*Lp!U,CZ (1 LrDLrDL3C L3CFtD L3#L3#L2#L1#L1#L1#L1# 1FtD1 FqD, , FqDU,, FqD@@ @!!h h h$ h( h, h0 h4 h8 h< b2d"3"wR taq " ! hl @HH2"h"hl @HH2"h"hl @HHhD#^," h###<wd#]2#7D#6T$#_hLwlǜ2#RD#QT$#_ H hP"h hT #fhh hmw#wd$2##whl# 2#D$T #ffh hLD$إأȘ1 ##@# "&2h#Dq#`"&2d#a#b#d 3$ @$T$$ $ qlT$m$$ #g L#h h 2$>T $hD$L fh hh HH hD$XT$N ! d$z !  HHH$D$,"D$T h$$ HH "Ad%L2 ! l wR taq " ! $h bhŘÖ 2 ! h$ hȹl @HHH@ dh h%N "d&<Ll2%KD&> jҰ%Kh h hĔ 1T]ȿ&3%hȳ l%ȭ("dh d&=2 ! lȖ" ! %؍Tz%؉̣1("2%df% % n̨ l l% "Ldl D&>" An2% nܵ&<1 l&/̪ (" " ! ld" ! &,̏ lT &% n%(% D(TT('('D(T)!ΰd'̻d'rd'D d'd' ! lΕ ! Ѝ(T)D n%L%Φ n%Π)!% D(T\')!'' D(TE'D)>E nE)!E D)TT(')!'!D)T LD'D'( 6   T aC@ )a a )y% )x%  b% D)vT  1) )a a )% )% D)X) 1)̻a a )% Τ)% D)X)  1D)d)T hhh h)Vh" hh* h*$ D* T   wh h h hT*) d)ȩ *7 ȟ *PȓhT )hfΧhT*) Ȇ**T*) wd*2**|% D*xT)*)) D*T)  ! *T$*  D))    TaC@ a n " ! a " ! > a +ف "a d*T"*++ d*T"a Aζ  n n Ϋa  " ! > AΚ n a    T aaa a C@ 2+H a+R d 2+R aA <" " A <" "A      a    T aaaC@ "  a a T_   ! a  ! >        T aC@ abs",",T+,,a2 ! a,T+,,a" ! a " ! > a,  " T,,d-6-bs"-"-Twhl-d-7T,:-8-7-9T,-9͘1T,:-: r-9- l @HH "  bs"-q"-pT+--h2-iNT0-nT,:- s--q  H   T aaC@ "  D "f d-T,a@a- T].@-"&2 D-T% D-T-% D-Ta̳("ζaA   w , % D.Tbs".<".; A  ; ]a d.2T,:.Y.ZT,:.[ s.Z.<T.V.J D.V"&2 D.UT    T C@ .u " U  . f  ! a ,0 . D.T0)T aA A A n  a d.d.T-  . n 2.%D.T .f%h h  hT .hh hwh"/XD/zhػLD/{s" XLL3"XL XȔ h "/W hL ,ðX.L. -äX.D/^T.Θ Ð.n .,"l d. d.b r "0%"0$T .d. lwd.w d01/D02d.Ls" ö̆" L3"ë."   lҜ1"  ,M -Ð.w ww" lDl  ! l̳  ! 0T/u.Ln.n0% L/|   T aaC@ " wbs"0`"0_0` 0 " A Pn ba d0T0E D0a d0T0" f e p0% D0Ta 0% D0Ta 0̞("A -d0 D0T-0d0T   TC@ ad N :21 ra 1 d 1 =1 sa1 a1/Xd @ qa Q1/ d Ld17T,:1T1U1QT d T u1V1Wd1PT.\ =SUALRPORDIQIAUNOCPDPACDERECA*SUP INACT] *ALM INACT] *RPT INACT] *ORD INACT] *DIA INACT] *Q= SUP]*Q= ALM]*Q= RPT]*Q= ORD]*Q= DIA] *ERR] P , ! d2 - ! 1L 1 . ! l / ! 1 1 61X1"̾1 71"̹wl22w   Q n D2[ŸE1Y L" ”1^ ! d2Z΄  ! 2KL n HH ;X6;2\ h  ! d3  ! 2~X6<2]  ! l  ! 3eb s"3\"3N SwR taq 22T d ȧ "1mD2T 6=6>T.\ 1\2ȓd R3\T l1D2T 6=6?T.\ 1\3\ d K3\ l3\ xR uedl3\2] xR uedRl3\ M3$ ld <lw d ?3\"d q!d s3\ll3\d33H pT036@ ; d =l3\-HCL^rT Q3{lT Q136>w" *ìd T.\ 1\ 2^ 3 l3 O3X3 P - R ! -0 *d ̻d T6= l T+6A6@d1XXd @dlN 2 ! d5 zΐ2 ! 3  , ! Ll - ! 45 2 ! l [  ! 4 d l4 l 43T d Pnd Q̒  ! d O l̷4"1XÉ 94Y lL" T34 8 ! d5̬Ӭ4 llT"56BlT Q156>̩4D5 D4TLd T.\ 1\4T2 0 ! l̯ ! l 1 ! л 4 :24T,:6C t6@ d N4T04L 4&2LT n&2Χd Pn4  3 > d1Z <%΃ ! d5 l ?d5d2 ! 51[bs"5~"5{T,:6A ,6@ l5~T,:6C t6@T,:6A -6@ l5~ d = l 5n l :25lT,:6C t6@ d N5nT0 ;,5yT036@ ;5~ 5̚lLd"5 <1Zlw l 5T8 ?D5d5T,:6A56@ d @ 5 lT+6C6@d1Yl85 C67̍25T,:6C6D6@̃25 ql5 slT,:6C1Y6@67 :d5T,:6C t6@ d N67" ! d6:" ! 6" =d M 6 lT06726+T46762X67T,:6C p6@  =}7lwhhh hT*6I6M6O6 26 ј26D6T 6HfhLn h6 hȳ1Ȭȫ HHT 6HhnȈh hX667+"‚lD7 ήhT"6I7)Twd6ET*6I66E7'd7wd 7"LD7" D7D7" ]Čw7)7+7IT$m86H6K7DF2 D7CT$m8 d l7̨66 wl" ! l ! 7u6J6G D7sT6H67T$m8  L6 ll l 08 l   d6E2 ! d8 2 ! 7   bs"7"7d7d7d7d7 T$m8 8  0lT"88lT y88E d T.\ 6I8Lw l d6F86ܖlT"6Il윊 ! 6E858 1l &2d6L&2 nT78&2n6KD8 lDl  ! l̳  ! Ќ8 l8"L̯D8"Mܣ 1L w6FT6K6H EP T$ l8T6K6H\8d  78= h8 " 8 8T-x8 1   TC@  a *   T+' 9H9ID9d9T+' 9I a 2 ! a ֜ ! >M 9E d d   =   T aaC@ a  a9a A   "  = d9d9 a d9T+'9 a  1 = = *ERR SYS HLT] *ERR] * ] LIST EMPTY] SHSREHRSDRE1E2E3E4EQEAEIEMDPLHC C,EBRBBLDLDFEFBGBRLGLPDA `29" ! d:" ! h92 ! l" ! h H  d h h \E " 0d>d:%>:B d9d ʈ ! l  ! :B l9¹lT"  :X>: d9T 9>>ld" ! l 2 ! :  E D:T* 9:> 2:" f l̇b r ">"> F :T 9>>: l>: ll:T 9>>>E D:T9:9 l d>: -Mܖ1; l;D;  lT+' >>D>9 n  1̿"̼  ! n ̱ ( > ;CT 9>>;F d >T9J >; d9 lL D> 쪖  L  = d T+' >> n ;>>d Ӱ; l>D> T+' >>9T9 ;  d9 d>; -ð1;D;( lT+' >>n" ( >̢;̏l< ո<̅ l̘l\ l\ <><9 L   ! d ]  ! d <2E d  T8> d9 " Đ ! d9l  ! Ѐ Зd> ׸lT9 l\ <("V  d9TQ9 > l зl̽иl<܎̍("˜ ! l  ! Лl ! Бd9l9  ! Ѓ<>= "  lܙTE9 >  2 ! d> 2 ! =)D>   ! f =+>>ٔ 2 ! l 2 ! =PT l MT+' >>=R>> ֜2 ! lٜ2 ! =lT =n>> 2 ! l " ! =T =T 9>>= "  d9 d9T"??d>=E D=T+' 9> l1 =>>2 ! l̹ " ! =̼(" lT"??l=ED>Λf̵ܰ1T =>> " ! l" ! Лl  " ! Бl" ! Љ>!>>%f U>2 ! d>2 ! >̹ d dRlT T+' >> M L  >m >g>>kT >T+' >>D>  / >>>T 9>>>&CXX||O [  ! d> ]  ! d> \  ! >T,:? ,?T,?T,:? -?T,? d :T0 d d  :=  ?. ?$D d?1T-?1 DD  ! ld ?.T>  *SYS HLT] *HLT XXXX]  T,?d? \ " "T,:? r? d d ?kT ?2???{T ?8???d T+' ?? d T?/ ?T>Ӹ   =   TC@ a a 2 Nd Ca d "p0a d?T"@ a  2 ! a  " ! > d?T$@?T d @@a 2@> a @; d@T$@@/A AT fAa@8T @ a 1 a aa 2Ώa d@Ud@WT }@ d@kd@l a d@mT+'@ a D@d@d@T+'@ a  2Θ " ! a  2 ! >  m aA a 2 1  2 ! a  " ! > @DT$@ @@ d@T.\ @T  =  TC@T$A+A,A(T d T }A-A.T9J %T$A+ A,A$dA!T.\ A(T  =   T aC@ a " %2 ! a 2 ! A2 a A n ֐2A2  TA @dADATAATl   T C@ % B aa a " 2 ! "2 ! 22 ! 2 b r "B"Bΐ2 ! a 2 ! aB2 ! aBΐ2 ! aB////  ! >B(" ab r "B"B &DBFDBGTuBT9J %d T-%B TBT?BT? BT@BT? B DBt DBuTu aBT-% b BTA/ BBP#',<BBTB  B ,s "b r "B"BLlB̳lBslB3lBlB  2BTCBȹ "hBTCBTB ld  H  1 C. "n% DCT  C* d lC, lCu bl 1C[ TwCECIȺbȸw ww CY lCuCgȡ lCuhCrhȎb h DCC  h 1 C% DCTC hC DC "fC 1C wC hCnw wCC hCn Ȥ HTDD d d TBDDTBD T& hd DFDDklw" D D:!lDD 'Ew d TDlD\ D\ *l D\lTDmDmL* ! -0  h h," hDDldDwd"DhhD d T$D D Al - T8 lD d D  R  ! dDLw"   ! DTET yDTDi  ,QDDE ,Q -QT$ l -0 *d   d T$E  TC~ h lE/  !EU  d T7E7 TC~ h Tid TEyEE *d T$Ez E{EoTC Em,"E T.\ lEv !EU TEy   hE j 1w HTFF?hDU F b r "F"F A  A  A    E EXFT9FE  EE Ew-Fv dE} wȅ2F  F  XFT9FEFTFF0MF dE}E| dE~FbwR taq 2FXb r "FV"FQ  FV  FV  FVFaFa  Fܽ 1   2F 2F 2F   2FF F  TEF dE dE dET9FEDw-F wE    2FTFFv dFhFhT7F  "F "FhFhG"FhGh@dT}T] GTS͐ ! dGg G7 lG1TGhG7 d TGi̱ G> ȡGG Ĵ"p<  ŴĴ I;"p0    IXT l N IhIbh IT h  E2nI %2ȳn H h h ! dII h%2I hI" ! Id d IhȽh HTIIJTJhJZ hJ h ! dJfN  ! J12DJg%2n ΐ2J> JZ JH lJVhȧJSh bTI H dq TJDJxTPT H nk vEEw wfb r "K"K,Ew d tJDK Mw {1   |J M` p J @J  lKpKpKpKpKpͰKp͠JKp͐KDp ẁKppK `lKpPK @lK̘b r "KR"KPp0KRp KRK pb r "Kq"KopM Kqp KqKp Kb r "K"Kp@Kp KJK d |K u͐KCJQX_fnu} JdJ dPd2KTPP "Գ "DPDP d nlDd pbs"P"PTPPd xd y x y lP EU }d ~l x d z zd d tT7 t.lPDP,-,wL\,wd v,d {TK>dP Г wճ w "l w("wL w("lDd p w("l w("wl\NlPT d o lL fܓ 1 ULP,-L-,l,wl\^lPP,dPwdMw("DPw-DPb L씺-DL,- L,-wL,-Lb d u w-f -  - - M@ - ,DMI b L, - 2 ! dP2 ! M DPPLlwP-wL,-,wd q-AbM, "L,ML-ML,2 ! -ML,w-wM-w bP,d {,wd vL,- TKndP,l,wlPDP,- U\~lP -LdPN- ,"  d qnLl۰N L DP,퀳L,Ы wN`wlNc wlNn ̸̴AbPNLPDP]wL b wLdP-wLP,-,d {,wd v TKdP,l,wlL,- \lP, l,w l\  EU }d ~O# - ! ``O d OP ld ,E , bO( `llTv }P lPP, d {,w d vTK UOR   Ul `Tv }P dP, l,w l\ OE DOT  lPO Ew k k  wճ "kDP n bOTPlP d {d vLwPB "Lw"EDP pb r "PB"P@DP,1L,L,w- lPBL1Lӷ-sL쑯Ls-3L-L,-PL,- lPB zd tMEw wfb r "P"PPP {Pd lP 2Pm lP pb r "P"P 2P lP 2P lP P 2P lP 9 zd vL“PE܉̡PLƒTKdP7X*^ DJK  d! TR˰RD " "  d DU Q0 Q0 l  ! dR`QD " dd rd q r q mlDRlwl2Q Ql nL," l̫L," DQ,"DQT̮lQ,"DQT E` Q `Ub r "R"R Q d d ̚d lp`PЊ@ŐPE@ p`0L "lDb r "R&"R$0Ű Š@ R&0PR&D "fR DRİRS DR,dR,RSd TP R R^ d DU d Ew k k ЋRu lRUlw k lRUl lRjR d T_ lR̃d D "΀d T9R lQ d P 0d h `SthSpTSRDU b 5r "Sl"ShT\SSlT\SSl 5UTSSlD " @ ! dS ldS d ! Sd  `  dR dRd d U S^TSSdTS dRT]Sl R l 2R dRSNdR lS%2SS S " DS  U̿DS%2b `TS lܬ1l̙S 0d R "  MU w w `TT  @d hTh hT%T%"TXTV TVXTDT,TsDT, -,TsX찆T쐀T " L%SDT mUDT-Lw-w `TT T S2T/dST"@d T TUmUd bs"Ud"U_ UdD wDf wĴwT9UnTUd d tUF " U<  UE  1UdŴf řUdq2Z TTW[ DWZ 2  TW\U  ! dWY w ! U  ! l" ! U dRUdR2Ud aU l .wTW] Ew dwdT9W^WIḓUVW>Vd E DVTCbs"V"V2VȎd2VmE DV5ThW_2VS̕VL l /Ew TW] VvVk  "Vh   wUVk  wVdR    wE DVThW`W]V  wVVVpW<E DVThW_2V  wWIdR$d E DVThWaE DV," "DVThWb   < wDWZlw" dUosb r "W<"W4E DW ThW`WcW<L," W)E DW$ThW`WdW2E DW/ThW`WeW< WI$d T Up PHlX  D[ 2   w 2Wd E DWTh[2WE DWTh[[WT[DW2W"Wd  2WE DWTh[ W !EwdT9[E DWTh[[X[ w  wbs"["[XX!X < w  [ȠdDXQ2X8 "w2XA #w2XJ $wlT9[2X{  jXlE DXgT\   "X{% DXzT[DXD[,QXXE DX,"DXTXD[,Q -Q 2XYXX1b r "Y"XLlwX  wX 1d T[YXXY XXY"[E DY Th[ " ! d[ " ! Y<E DY&Th[[ %EwddT9[ZK aYK l /wT[b r "Yh"Ya dWiYh lYhldlT$[WidWgld ! l󸻸YYT  YD[dWhD[ ̰ldYLT lLn ̑ldZ2LLlw wE DYTh[@dRE DZ," "DZTh[   < wE DZ%Th[E DZ-Th[[ZK    wE DZ>Th[E DZFTh[[X[DZXZ`Z^ < w  [șd[G2ZD[ ZLD[dWhT l LnE DZTh[   < w@dR [E"ZdR[E ,ZL L΋D[̗L "bL [L ndWh  j[+T\Wh   "[:% D[9T[d d T[[OȁdR2[2[a 'Ew[o2[l (w[o )wdT9[d[D[D[ "fL("bL X[>Q DWfWjP ( `lXH h[d\Llwd h " &2hhl @H hh\ET\I\$ h\DD "l d\HD d\D h d"= d"7T^5 A\JB\K"4\}d       E Nd "8d T\":d\} \ 3EU T\  h T\TP\T HA\B\ "3     \   -w N]C    dRf"7 Ⱦȼ]A "  ` "5 U]Ȓb r "]A"]?T]":d]]AT] "9d]]A ]]m ]k ]X ]X " ! d] ]k]m\\] ]̊(" 4UU Ώ T]]"3-w  ] \]\\  \ ] ]":d]]"9d] l @LLL\ "9d] ":d] B]"9hD " (" d"3d"5hhA]B]X d"9"=lB] D " (" d"4d"6DU h h 2^b s"^"^ d_d^x_ h d"8_^^,^h^D ^H^  ^  T^ h^  ^  `^,^  ^  `^  _^  P d ^   l_^ d^<̘ _^ @l̏ ^<@EJZair|_^9" FlD` _̅_ MdR dR __    _K"4w_F__K w l d"8   _zd^:d^;X d":A^:B^;^<_^Q Q̩lllTin s "i %Ui]T$im  i]T$im  0 s("i8 &EU hi]T$im iKlTimimi]666 h  Tw hw 2iTjZ " " w  bs"j7"j'" djY s s l lp<  s Qi% DiTg  jKhi h؏hȉ"i% DiTg j7ip"     l̵ lp<  j7"   Pj7"  j7TjZj7{Ngqq{{{{{{{{ jB!d jE l̬d Tj[ ir1  NPUԠSPPD  SUMŠNPUԍ          "3d TBr kLTw"Uhs s kLTg~w"h ! dks  ! k   Tt"5  ȵ  ! l  ! k4   Tu"5   kH d w wTBr lkLT$r     ! l Сdj DjjD"7kT]rrr"4 -Tm D"8k -Tm j ̑"3, wTJ|jT`   w"5TJ|j H  wTJ|j  MTJ|j "4 lIjEj"6djTPjT]rrr `2l5T`;rT`|rl;T`;rT`|rhl L +Ew "5f "3 DldTgTr T`\r TJ|j  M̌   wTPjT`\r H w"6 w      TPj HH  w   TPj HHT`;r"4  m5m N2m hm h b 1EU ̋d  d  Tr H TlIr m\XrT   nXr 2U"6lTrT]rrrD@"8mtTk@Tnj  pV "4   pXr\r\rT\}% DmT$rmE DmT$rTt"5 mTlkT]  m ,d f TlTkm (ll TrT]  nTljT]rrrTk1T`|rT`;rhm L"4 nT dnb nAXn'nCXn&   hn( HHTrdj^DU dj_ d"5 " d"3jn lj`djjcdjjfdjjidjjvdjjdjjdjjdjjdjjdjjdjjdjjdjjdjjdj ̙b 1r "pD"p3T]rrrTkTk  "lDdrTkrT]rrrTk ("llT$rrrTlT]rrr\ dj]  oLT]rrr lTlrrT]rrr\2o8 loD2oB loD l("Dl\r *Ew "5f ̾TrpD2okT]rrrTmpD o oTkfro2oqSoT`rpDT]rrr  TmpDT]rrr  \pD  T]rrr  pTlIrpKpD d d  po  ! l  ! Fro lo ld bs"p1"p*TBr  omp1DrDrlw wLw" TBrp1E DpT$rTg^rp1T$r p1 (B5pDffffffffffT]T]rrr lsdrTlrrs "l"DpfT$rrp puTmT]rrr2pqXD@"8pTk p2pqXTnj   lsl\rr p\j  T]rrr\2pqXT`\rT]rrrp\p\pTlIr pT   fTm9rpK\rT`|r2qT`;rT]rrrT`\rT]rrrD@"8q$Tk" ! b@d2q>>Z>Z y]d ̹d T9|  H u" ! d{{ ! l d{|d" ! lw ! zTX|{lDu " bs"{l"{h ztX|z bb r "z"z D{}%n  TIuX|z  dzT d fT z||T}0 z f  #d T7|  b  z  bz  z  zKPK{l zTz|{ z  \|{  \| b { Ήn "lT7|{TJ^u{l {\|{X {'\|{XuuD{}"  u w L" w   d d fd d T|{l {d  {f\|{lvT$|u|m z% duLwl"  du̜" du̖"  dȕ" l̊"  Eû" w {X  ! d|| ! | ! l d|}d" ! {u"  "   "  T}0u|u{Ty}|  ! l  ! б|Tz| du|>u  ! lu ! |<|/Tv|: |8Ty|: l|> l|UT$|u |SlT|||m!d D3u-Tg~ |mlT|| Du{~) @Lwh"   | 0|h|h|hb r "}"}T$}<|} h|Ĉ"D};غ 1T}P|}!d d ȧd  TjR}l lȗl TjR,"D} T$}=}>}|lT$ d}:T}P}:}2 },lT}<}< L| -0 *d d TB}W HT$~~}mT~~D  ! d~ d~d" ! }T~ j "  hhD  ]hwb ,r "~i"~f b  ! l н}~h   b~i b  ! l Р}~d}[  b~i }}% D}T< D~!%~D}Y("D~T~l]d}] ~H    d d T9~  b ~9  b~<  b ~F  ~~d b ~^ ηf  "d T7~  b~d  bTJ^}Y~i7T d}X D~xT}X}Z~ mwT}0}X }^ *~h Q~T$I~~ Q  Qh  dF w dGT)(FG 1~  Հh~hXhXhX s 2 ! l l sd2 !  DH!% DTJΨd T d n d TjRl~D/ QlTF~n L~Dw  ! h dF q d  l d lTƸl " DTȸ " d ȯ(" d ȧ 1l 0ld T ] 0de " XT$GT d f l sd" ! l s " ! " D DT Df  ȩd TC~ h s " lllpl s("`О< !EU  έd d T7 " "dVwȄlT[l wl  ! wll "  3  wd ̼D(2lXܲ1 llXܢ 1̙  d d     TaC@ a  3  !A  2 D wadX!a  ! >  l b !N A !%  0D-T a a d" ! a  " ! J lL a a " ! a  ! i a  q  A ΦE  dT a a ܅   d! nA λ  n a  h! ! T h l! " DT!h ! d! ! l  ! "h ! dT$ׂجT hb r ""   D %b !nN  w   LEb ǀ LE %b LΫEb  L "  )wTۂ l @DD $hT hT }12T+'ۂ݃32T+ނق݃42hT+'ۂ݃52 m =h lT,6T,:7 r8T-%8l!T,:7 s8l @HH=    TaC@qr2 ! a T$ܡ dbT"a )=w T a a  w       A a ;ºd 2  0 a a   AA;¡Þ ! a  ! >  T a % f a  dTv  T d E DT T.\ l H=   Taa a C@ a  d 2 ! A a ;   ! ? "A A ;      YT,T,: r -d d T8T-%I ,l @HHH(10 *HALT     hD DfdL Ln d =T,T,: rhDT+'DT+'T-%TT?/l @ = g e;9a@TT4VG@ H`@b2  &  `TEb ` hTQb  ` @@  )Pdkddsd fd "d("d gd("d hȽ("fس 1 Pd("hȢAhi`h `dbkdTš        l f b b bjfb4 d0 E@\ FNC@ 0 @6t# ]_#v ߛ#R G\5.B \ !0V X E5.BCߝ3_+ _t] A@]PV@ NZA@ $0V^`@ޚ ED%D I Jߜ8.E@%5]5.B\#'N"ޚ@Eޚ EZD^ߝ FߙU@Zu T8*ޜA\ 5 6ZVw ޜ\3 A] Z%`@'u Tv A\ZCZ q PD7V W^u ڇ%__v A\__ u__ t /_\ !\PV Z aߘ@X $ Z Z \ BT)_ Vp UXeX UTe f\ P5.B@_ t5 y\$W _ _[W$ZG%u.BޜAp : mGߜ 8.mߙ Aߚ:[ \ a $ ) @ߝߛ  \Z  ) A.6.v \( xNC'N x#0W Ө@ ^ t 7t# ]N Rp } @N$@[T N% @q ,!_+p ߝ#]W | ^_['Y$$N% @.v5 'ߟ0 &Sߟ q@xw#_U5o2Ө0\ &ߜ & \# uߛ3 V \ߟ ߟ ]M "p#!bY u nߘun0pq#*_ Nu#"վ*Q ^ !__t$ ] 5 6]Ө* * [5^  *W550q,ޜN =tX#* $]@> ݇%>ߟ >WT.7] $5]5 %ߟݬn@ Nu #] 5@= <*]  XUM=_ .ŘN_5 ) Lߜ>.) O.>ߜ 8Oߜ@PP ?h5? 8]@ #ߜ@ =ߜT *ߞ$\W [ \W [ 8ߟ$@]%u _$Tu ߟ$$u ߟ$%u ߟ$P5 ]@ mߜT :ߞ$\W [  ] @ژ@<ޜ 9.*]  XUM Q_XؠP>J 4]] X7X6]X5X4X $D0NVD@q ޜZ HuX#_N!ߟ _T@_ X_ qLޘHP>T q_Cq<ޜZ HV t p,H.]6 Ә@-(]\ޜ Y1NM\ߞ0pߞ ZY0[^ %Hߝ ] pߞZq$p$H XؠJ  (^XX ^A4T5_ $_D5ޜ ZVq u<ޜg efq X ߞ ZiN0eT0@_ X_@Tq Lq__،^$$Afߟ .]vӘgX ]@ P>u#h#[^ 1P>NLP>\ T0_ X$_$NV$ޜ p ޝ_ XU,i_ j^@qt  oX],R oT ؄i eХ iT@ `k3 p ` o\# o([]P@lV@V `V_ []P ߟDpߜ > (wv4vߝ wT4 ?ߘ@b ct*tP>NqP>]6 W5T00_X $_DsV$pX#j__ _5@F$iT$^p$i$_$tT3@[= kp 33`@Z#r\  oҘs o0$0VT $NP>]6 W5T00ߞX $_DV$pޜ#lS8t  tS8X#@__ X],` li@ X#_^$hT$l)$p_,$X#_F$tX$7] 0hq$>TX#] P>ܶq_ P>hP>TTRVڇ"_dTڇ>VuV!66ڇVڇ*Vڇ!Vڇ!6ڇ6ڇ!6ڇ6c6oV6# V P>Z P>T0% T0%-5K-Up U5U-U_4B_XP>@_@X#L_܀EP>@ _@_$LXހEP>@ ߝ ߝ ]v0]^X !^X% ߘԘ s0ߘ@# ][%(@#Nwu X] 5 6ߜ i @T6ߜ q V @oX ⟝ \_N.@p@p\E vq&\P % (  _X#@n_]G @nRh 4^%T0 \ߝ+v ^+ٟ\Gqߞ%ߞ 0ܟ r bN1Nj bܵ5q5 ^_00\\ b_ $b^00\ ^vq5 \ %֘ >ܞ b@A֞ > A٘ =٘@=䟙P> f۟@G@B@B@i V ߜ #] 0^%pT6㭽 ^\ ߜ ߝ(\ߘ ֟ \.|Nj i( ߛ֟N.]@2] (] ,] :T\ m][%  ߜ q5 V ߚV Xޜ ՟ \X_,\Z%iX@wޜ  ޘ0 bD b_\ u#c =d4cߝ dTTޜ#9_T"_ <\ ^@@*V Z4_^X !^XE [ W@t =چ>Z <ߝ u#d%49ߚ Z P> "hhhd d lp d++l TI lܦț1 l̝w k ܕȊ1` x v v d*̀d"@ 7TJ b  J  h~ " 3 n%DkTI} 3 }%DyTI  wDw 1 BYWLCBJSWLADB1TCB B1BUFFJKMASKJKTMASCBTIMTJACT BECTLBBEBSA CLBFSPBKPIKTJ1UERRJ1USVMJ1DSVM NAPORTBQCIB NFCCSTMLSTAB CGLCBSCHSUBLBJTIPTNJTECT JF1SNPJFWRAPJ1STRTJ1QUICNPINTA PhT h   h= "D%TMN D0T+'OP MT-%Q 1T  =T+ E"?T{ T  T( 0T @T PTB `T p iTIT  "h hh f dhT ވhژ1T&7TT] E"?T PYERRSWR9FTSWR9VSWTR9OVSWR9FTIMR9FFCBR9CFILR9NFCBR9PRGDR9MRSWR9MRPRR9LRSWR9BYPSR9BLTR)PR9FRMKR9ACAXR9ACX1YACAXN)PR9CNTRR9PFCB)PR9RPRT PR9SAVE DECK-ID R40 RPGII 2.1 10-23 SL-132)@PDhBB "h-h*-h-&F q -  " $T,)@P+hhh y l  n HH)`PVV)PR9SAVER9REST-)PRMUCLO RMUOPNR9STH0)R9MUNO R9SGIX)P PR9FLOW DECK-ID P65 RPGII 2.1 SUMMARY-132)@PhHhh T \ T )PR9FLOWB9FLOWN9FLOW)PY9TRCER9RESTR9SAVTR9SAVE )P PSTRACE DECK-ID S06 RPGII 2.1 SUMMARY-132)`P )@P Hh j qh)PSTRACE )P PSYSMSG DECK-ID A33 ITOS 2.0 SUMMARY-132)@P HK!"hE!dhDH3  j;TPSP4"TPhQP*!vT)@P+PP H H  -X~h H   #3T Xo H  Xyh$$SYMS)@PVGF$$ \"Xq HI HXGh  X\Xn H: H X8h  X)@P H(X) H$X4h \ȵ" \bT*PP ȮX2whth)@P \$ h H ! qH  HHa2Ƞ(h!n )@P8 H X X' hdLH 1  :X H"A HB0Fh  0X)@P O 00j qa! -" hh! u)@P-  HTLDhhFHHSYSTEM MESSAGE XXXX)`PX)`Ph()PSYSMSG)PREADR !CLOSFLOPENFL)P P%R9EXIT DECK-ID P61 RPGII 2.1 SUMMARY-132)@P T) T)" ""h H " \)PR9EXIT)PR9NXTX Y9LABL#R9PONT!R9FLOW Y9FTNX)P PtR9FSTL DECK-ID P69 RPGII 2.1 SUMMARY-132)@PFTXYpqrsNHdR RPG FORMS ALIGN: ENTER 1-RETRY, 0-CONTINUE .)@Pq)PR9FSTL)PWTREADHR9UNITIY9IBUFV)P PR9ELOC DECK-ID P57 RPGII 2.1 SUMMARY-132)PR9ELOC)P PKR9TRCE DECK-ID R63 RPGII 2.1 SUMMARY-132)@PhHd`h!E"4 h|hX[hd)@P+hcd. h] h\:(hW FhV S@MTN hL hLH1hI߸FhFD=ChB;)@PVhA>A15 4h2Tq93TX=9h" @$T hh $)@P9@ D  h 9TiX)@P nh hyӠ"=h:hTh Tؿȷ/)@P D@ T9ȶT -@KT ON OFF]fpx)@P  !$'*-0369<?BEH)@P-)@P]INPUT RECORD FROM.SELECT RECORD FROM. CONTROL BREAKS. TOTAL CALCULATION.TOTAL OUTPUT. *@POVERFLOW OUTPUT.GET INPUT FIELDS. DETAIL CALCULATION. DETAIL OUTPUT.PRINT RECORD ON.WR*@PITE RECORD ON.ADD RECORD TO.UPDATE RECORD ON. LAST RECORD CALCULATION.LAST RECORD OUTP*@PUT. ADD.Z-ADD.SUB.Z-SUB.MULT. DIV.XFOOT.SQRT. MVR.MOVE. MOVEL.MOVEA.MOVZ0.MLHZO.MHHZO.*@P MLLZO.COMP. TESTZ.TESTN.TESTB.LOKUP.SETON.SETOF.BITON.BITOF.GOTO. EXIT. ENDSR.EXSR. CH*@P4AIN.FORCE.DSPLY.DEBUG.READ. SETLM.TIME. EXCPT.*PR9TRCE*PR9MVW R9GTL cR9BASER9LBYXR9SBYXR9MVBXCR9USNDR9INDMvR9TROTR9INTB*P P#R9TROT DECK-ID R64 RPGII 2.1 SUMMARY-132* @PHh /hhX TL$ TL"* PR9TROT*}ϊHYɈBLBLXP4ttȰȰpԸչչչչ*q(`U>DqXP6666___X_____HTyFr{νHͤ3) ʄ#HRtʕqͤޒ\N͞۔yfm<ޒ&|gν61q ͞۔fmgh]['hY hXhVTRhTSNMIHJhJHGhHhGhFDBT{zszs dzs5 h321h2h1h1.,T{z'% zdzTTFh!!Xzsh1h hTzsh! Xzh1hh܈hTzԘzshzhzszhÌlhȾhػT.zsȫ hȬTEḩlȤhȢhؠ hhH"h @Tߤ h  hh2HhTTKLlh H h TTKLzsHs hqHnf i* l\[aT&VSZT|X'T@TO}fhLhK bH@"DT}f@<@=:TWy3* /-Th+&@GTޒT&T|*@dRayyyy}s}r}mHohmhlHj lhghed_h^ h] WHW!  hUHQQhQJT}flHEFHTK* dzsh9H32 l0/29XOzs(h* h'!HX, %*HX"lh hhlhhXhhH hؠ l nѐhB@'d  giy`51-)%!YUQMIEA=9HDhhCehCHA l?>=8h8[6h7Wh3Th40 Fl.-.%)h#XJ&%FC.@h=h lX5 h  1 h!hHM HThȈîzshhH h bтb HT'h!H hh hhT}fhT}fh h T}fT&h"H  hh hhT}fhT}fhdRh T}fHOVTyTyT dzyT,HYhXUTyR HP !}f " TmC-7<'}fh8h<&h62/h31/@/T(%#$Tګzsh !h}mT ` TTy&z- Wdz z-Tƶz`l%Tͤ"(TTyhT TϺz-TTy&y  @ TzsH AhdhH }}lhH!}m }u}tHbHaQ%\Ty}fhT HPyhPhOHMKIlFEHGhDD= 8h;5Dh81H .+h3}f',h-y"18$##TyT@hzsh}fhh! h Th:hThTX(1TTX1 qhTǐh 1z  dz j ظyOغػȷhThNHLKUGFhGhFChD AhB>?TѴ9T}fh956TѴ'0T}fh0y *yh''yh$"h!!h hv}rh}rh TѺ TѺcT{zs T{zzszhC h! hTzhؘ!+Tz hTzsh˘!Tzszs'hz'hh̺hصصشzs1 hȥTTyfyHd DEBUG-INDICATORS ON- NONE FIELD ARRAY TABLE VALUE T/H( dz1h#XXX "@ \c  H (hTy 1S hO h ! hhX>z+Ƞhzs%hhhH l͜h!Œh. l hX `h \ h hHT  h }f @h}T-wX}z1oj@ \X_BXCZhfK U@ h^\HP@ \HJFhJhS hEhBK  To@0H@31h1--,TyXiX8&/Xh&}fhhhh  @hThhX1@ThhԈh@Tʈhh׈TѺQX%Xȼ hXȸhzsh̷}mTرتȯzs̪1}oT؜@TޒT ydyTgzdyyyl ll 1@ TyTy2 Ty&yyTheHcaT{z] T{zW hWhVhUQP zc@ Tzz dzszz dzs h210zth*&h%'Tz h#"!zhhTz h  h1S h h  zztfz zz! h !zsT.zz!h hztzfzǐhz TzȸhT.zsȯ hȰTETHh HT.z zc@zT!ȗTEz,Tƶzl21T)z,T%Ty  dz Tz hT TϺTy&TyyT.H dz1"h H"h}f@hT ` T. b@TޒhXh~ H}X{@{Tv@Tͤphoiqoh1khdcf@bT}f}f[`T[Vh\}rYT}fNT hQJhJIT}fhK}m!}xD! @@dR6h:zs7}oH50 l-$$1h'$h"hT}fh}ml Tګ@T hh) bTyhzshhۄ}mT}f1!}oT}f hȶhȹ1ȵhȻ bȷ@T}f}f@TޒDSPLY XLHjHix he'Hd}rHbHbHl[&g#}ohW a&}phQ}qhMLXYKXWEhI}khG}jHEy$?h?H=6h=yDh9,5h*,h*)}mh.-X3*h(y QhX%5 h% h h }mXzs HThhXy"}nH1Xh֐hʠ$X(TѴ˙Thɔ}x1}m6XȹTѴˠy1ȵh}lT2ȨTإXLH`ih_H_yy h[4hZHWXc"xU2 Q!N?"XOM2=XKXOD2Al;:8h>=<9h75&"h4,1(h&%X,X0!F#!TѴ  X h}q}o}m}r}n}l}rzsTh! HTh HXDh  tT TTpTTy& ydyTgTy& T)y T)" ""h H " \z2y@z Dz 3 hH !hHTy   " '&#$%("yh+* h%yh%$h!-H}fhy}fh1h  h @hHhyh Tzl \ Tzlh<}fh8h7H33y}fh)`(T$@"T@GTޒTzfy Fh\Tzfyh bT-H "0HDz h8 h7H48b2z-T ydyXyX!bzBdzhCTH hHV!HR O@LTJT̖G1 0B@dRa9:}fh6h5 yDy+`+)X & !`#!Xh0}~`XhThT  h T+z2z3f"z,z3b dz3zRTy T(z, yh%$dz2/T*z3$dz3z32Tyz3z,z3"dz2 Htsyhsryfy Hiqzy(HbTTy(0(QTMT)1%Tӎ" Bdz T y7Tח 1bz y &TH#zy z"T3THzz H Q dz 0"z"0H TH TH26y THdzz z"HQ)TTyT6z   dz Ty&ydRdyTy&Ty bh Dh b2@HVhV hUHRSQQ(1L#5hIH hH DhF}~ = =}~;h9}~h750T}f1+ T}f (2<FPZopz011020304050607080901PL0LRH1OAOVU1MRy dz yh&%ydzHTbH@"a HAy^Db)bTy&HHh"HR}fhMh   17 Td!.TTƶ,-THh hH~|hȾ     htX@kihnX:e hc `hfTHZhbYTTHVX( hX O}f`J TTHFXC S>d:9h=749h2+Jh2)0h/ }xh+ l- zc@ T `Q":" h zs hhT`}rhTh1XDTګAh׈ hhA TTyA h  q TȼTaHTشhX̲ lȫ}o lXTآhȝT@ȚhH hDa hTzf\ TzfLl(T)@ TϺ , @dRayyHRhRHPTHOhOHM#JAGhIHEFhF>>TyhT}f7h;7h532dRh-+T}f'#h#dRhT}fT}fhdRh T}fH%}fh"hHT}fh}~}~h T}f Tzdz dz zTϺyzT3Ty&THhhh !zS@ T_^h_h^h][YT{zS hQPOhPhOhOLJT{z hIHhF !BAhAz h<;z6&z4h5zsfzs .h, H)1T.zs dzszz dzs h h d! TEXXXX$  $Ty+  $Ty+}fHH" fAh 'h_ h^h\ h[Y2 VhTR lPN !KIFlGF !C hA? l=<!8 dh64l1/++h)&!%%l# h" ! l l lȺh l h 1 ޭhCHA" h>=@:Tߤh9 41 0)Ty9&b$h#    @@dRa h 9 bb h#4h$$H !T!hhThh T!h  TѺzs hzz"HA ydzh0 h l+0L'! @ Tw l T@Tͤ 0 lyyLzlyHr h holKhl )i"؅ؤطؿؽ _1n X UXbP  h GTC+@>+:9H 3 1 -1b) 'dy$}fdyyA hTHH h B `}fhٮٯ h`TdyhWhX-hW hR ڐ}fhII lRA h@TLHdy0H7 `3TTH- +h)*To hH# h 1&TyyTȟ ? }@hȖ hpho "ٹHfXmA haTTګWh XP$hNTѺ!GEEhCXJB@@@Tzsh>h; h:7A4h3 5a h31h/.Ġh,(h'((dRh#T Hhhhh h  Tlhy+HzsHTh l TګHH~ lx lw lw vlsthtrqylhl g & l] lZ]!ZC lTVMlO lP OlLhM  HFEC lAAMl<> 8D h7Th4 .!*1'&#Ch!THhH#L 1T @ T}yyyyfhhhhhhh hTfhhhllll hGHH1T WH#.H@dRa,T OH T @Tؘȡ}f@hTW@Tޒȕdz2 z@ T z@ T z2z2"dz2Tyz2"dz2"! yz2TѴXyz2TѺTydz2y(Ty&Ty& h\z2"1kz2"hP hPKIhK 3/@HhA=Th69h74 ! .!"(+'"z2z2"1z2"Ih 3y  nz2z2z2z2"xz2""z2"h1hz&h hhAh h˨h -hW1h8z2 }fl,h bA hubhDbAbB h\z2 }fbvb!@dRalB hiD ehnTHlhl^1Hh1c_bc@h[dRaYlSX` PToHQOGbK1 E@bBAb@Db 83b5/b1b*Hz2dz2z2"2)z2"h dz, 1z,+ dz+'z2z2"H dz- z2"dz. dz+Hhdz/׀hhzhh0 dz1 ̢@hTTLhHȾ hظȩzz1zhh0 ̠蟂lܜ"ȕ hؒl'L%% ! @lT}fl}mT}f@GTޒ $lbyyyT@zs&Tګ&Tڤzs&Ty z&Tr&TkHN+HK*hH.>b#h?>}f9h9 h6 `1/X,`,*X '@$T"T̖h 0}~`XhThH T  h H_h_`'yW@TͤQ0HKJGb!GFb"@Tͤ<-A7@Tͤ106}f)'h(}f h!&h!hhT}fhT}fh!  -@dRa@a@Tͤ0(}fh'}fh&@T}f}f`'}f"&T`ߜTT̖0@dRaOTyߘߘ ߘߘߘߘߘH[HZYHYVb hTQbOb hLJEBbA@ e<:h<}f5h6 1h42T}fh0*.0 h+$-h$"}r }| }o}{}m}yh h h +h+# h110 bh{h@Tw hm! HT0Ty&H1@h:9T6}fh2}i/T}f)@GTޒ "b bT<b 4 XhT b2lzlbLT< ! b 7  TkyyT hjHghhdTk zc@ T\ TzTSAhPhOK "hK FHDE hD hChA?z z 5 0h21+Tz h) zt@ T!hzshfzt hHq  fzt T.z h hzztfz zz! hߘzr نztfztT.zztzfzQ Hȿغ Tzsz zخȭȭ h Tz|zs1Ty ȕTEhBlFH?z 7H55 8r`- dhTr,(% zTy& z! dydzTy&yA" yT1HR"'}fhM&HIIhJhI$CTy?%?zsh.a 42:*a?/bDbbh  h hT 2Db bT}VM,T}V`#Tr 3#aT}V#Tr-6Tr  1T}V !!bDb 1b*h*$ah$h hTrb7'a h Π1h A hTbb 0 A 1XT}Vf#A2 "f"  b ! T ,T}V`#Tr 3#a(TrS-Tr1q !!bDb 1b A  < hTrQ7'aDH h Π1h A hTbb 0 A !# A2 " f"  bb bTT}V_ ,T}V`#Tr %Tr -Tr3#aT}V1T}V !1b 8(aT}V A1bDb Ah ah A hTb 0A 2XT}V bbB8a5)h 5h oh a hT=( oo%A1a%:*a3#ab bT,T}V`#Tr $$Tr-Tr B#1  /,A1aTT1 ?b 1b/+ b/ +   A  ;Tr7'aa/A h !4h #1hhT a b A b 2b1 b b TXts  !A bDb HA h  b#1h hT h !4h #1hhT a b+++bDbb 2b1 b b + TXT}V3#a8(a,T}V`#Tr &Tr& -,Tr3#aT}V @0aTr)1 !ߠ1b)h oh h  hT?(oo!2!(:*aT}Vh h  h hT b )h oh  hTA(o Db2DboT}VT:*ax,T}V`#Tr 6Tr/-),Tr3#aT}V1   ahhh  aH2hTh  hT )h oh h  hTC( ooT}V&A1a!%:*a%=-a,T}V`#Tr (TrP ,Tr3#a/Tr?/a1T}Vb. h TrQ7'a?9)b hhDh h9"aHA1hT7 !  b9b T  2Db?b,T}V`#Tr BTr ,Tr3#a/Tr?/a1T}V'?h  a H!hTaH'h"Q" H"Tr3;+a  8(ab A1bDb  b h hhT )hhohTA)o b2Db?boh:*a,T}V`6Tr  ;Tr93#aa&Tr;!)hhohDa h DbT?(oo"(12!(:*aT}V%B2a3#a1 @0bbDb 2bB?bT}V~ Hdddh]]ddhUT%rJE"4hE@+; 52 H/H-+(!!n!  ةFA h &Ah#HT}Va#H#2  1b>.ba T}VQ;h2h0>b#$&1 -N, <,b 01^ >.bTrNTZ "." 2"8. . , ?/b$Tr/Ҡ  @0b",Tr >.b h bXT}VJX  bB2b  bb #HT}Va#H1  AbT h9 Ab>.bT}V,Q;h)>b#$11A1a 03 1<:*aTrN> "." 2"8. ,$A1aTrA1b ?/b3Tr:*aA1b2Db b bb T}VRdy"h%h$h#h" cdhE"h "hdyT{Syhy`XXXXXXXX, MOUNT XXXXXX ON LU XX, RING,READY? HDR1 0001000100 YYDDD YYDDD 000000 HDR1VOL1"8. ,$A1aTA1b ?/b3T: RING #"a# h& h& Dn q h  n q n q n  n  nT;(o "&K$$MOUNTS  h!n qX":31B2a3 h h hT?(oH " hT* h h hT7(o hX2%<,b h hT5(o H hT/T'.  ""B0F4Ȁ00h6+NO hTLTN!BH0!0T=-b *:*bTT'TrA1*Tq(h` h h ``h&` h h ``TrEFT41.Tr -*Tq(h` h h ``h` h h `` !HT(R4TrB hhDh hSHBH 0hB FhTrC.T)TT' )V8h` h h ``T@Tx1TrHTNUNTTB0FHB0F00HB0F4Ȁ00hT@TҀT!TπTt *DTq(T T8(aT}VyTTrITNU$.Tr)TT' )V8h` #"a#.)-T:8EOȿV1B2aE,XCBb @b6-# /T,TT"X"Ab @?bA1a,TX TT}VT b T8(aTy0HohXlh HXgh (h h!2 S Q H0%A h^ XJh HXEhXBhd(h (h /ȱnm" $ȧ 62 2 hHȜ- h+ h h"  h2  ؒ-h hF2 ?bA1a,Td0hH hhh H0%A 0FhHшHl hƐ$" uЈh h Ȼ8h 0FhHȵhhȮ nȪhhȣ nȣȥh hثȘDhh h}h|y B0FHfB0Fb00H_B0FH[B0FW00HTB0F200HL "hT F1LBV1h!Gb *DTq(T h TNEOh*EOV1 $"8HL\Hh" a!HA hh (h&hhh aT`HhA Hh(hT Ⱦa h l lTH`$h lu"% AlȠhhH |HX hXl q" d   *#C:r> " r < H E A a1"@Z{[lP}M]\Nk`Kaz^L~no|_m [ABCDEFGHI.<(+&]JKLMNOPQR!$*);^-\/STUVWXYZ,%_>?0123456789:#@'="@ a agXXXXXXXXXXH5 h1A"}Bh-hTl)(l&%"h!l ll}|||}||||}PR9UNITWTREAD*P P]R9INDM DECK-ID P77 RPGII 2.1 SUMMARY-132*@PHVhV hUHRSQQ(1L#5hIH hH DhF = =;h9 h750T*@P+1+ T)* (2<FPZopz011020304050607080901PL0LRH1OAOVU1*@PVMR*PR9INDM*PR9SBY /R9BASE0R9XLAT$*P P3R9LEL DECK-ID P90 RPGII 2.1 SUMMARY-132*@Ph,H, h&H% H$h$!H"h"H* h!d #h*@P+*PR9LEL R9GTL *P PR9MIW DECK-ID P97 RPGII 2.1 SUMMARY-132*@PD *PR9MIW *P P8R9MVBX DECK-ID R07 RPGII 2.1 SUMMARY-132*@PXXXX$  $T+  *@P+$T+*PR9SBYXR9LBYXR9MVBXR9MIBX)R9MVBTR9MVB R9LBY R9SBY R9MIB R9LBYTR9SBYT*PR9STH0-R9BASE7*P P R9MVW DECK-ID R09 RPGII 2.1 SUMMARY-132*@PHH" fA*PR9MVW *P PR9FTNX DECK-ID P70 RPGII 2.1 SUMMARY-132*@P hON" "h_  j[ Ah1 H:;" MTH11j2.j7j<-'2Tl *@P+h% `Dl%+ T8 A dhTP j  h *`PV*`PY*`P`*@PgT Hh"  " A hTCP`ݘ  T7*@P9 *`P *@P*PR9FTNX*PR9999B(R9LABLCVASEBR9BASER9FLDLR9MVB *P P+CVASEB DECK-ID R89 RPGII 2.1 SUMMARY-132*@PH%H"""bRh {HHX hXn  " H *PCVASEB*PR9XLAT *P P3R9FLDL DECK-ID P64 RPGII 2.1 SUMMARY-132*@P"h+* h%h%$h!-Hhh1h   h @*@P+*PR9FLDL*PR9BASEY9FBSEY9FDTB *P P*R9999B DECK-ID R77 RPGII 2.1 SUMMARY-132*@P( h#h# sL r BHhBHh F FQd*PR9999B*PR9BASE%*P  PRR9UNPK DECK-ID R69 RPGII 2.1 SUMMARY-132*@PhLh  hEhh>h<H9'`  T h0h51/A,h/H--T`l'(h'*@P+ Dh"hDlhhh 1E   L*PR9UPK1R9UPK2R9UPK3*PR9LBYT%R9MIW R9AC3SR9AC2S R9AC1S*PEND P+SUBRFL DECK-ID S09 RPGII 2.1 SUMMARY-132*@Ph'"" T!H T!  T%"*PSUBRFL*PR9FLDLR9BASE'SYSMSG!*P PSUBRED DECK-ID S08 RPGII 2.1 SUMMARY-132*@Ph}X1qHzdw iX6uhpX!`mHkXzT!Xfh___T `*@P+X? SK + .J:8AA <": #"7 H"**@PV1 })!TTc TiT~"*@P" T*PSUBRED*PR9ACC1DSYSMSGxR9CNTRsR9BLNK;R9999BR9UPK1%R9FLDLR9BASER9EDT4 *P P^SUBRMV DECK-ID S11 RPGII 2.1 SUMMARY-132*@P BHLhHXM!=AHCXG\D !5:˜8:h9X=4H6X9\6 !'-Ø+-+2)h(X,\)!*@P+%V!3d ! "TK"*@PV" T*PSUBRMVSUBRLMSUBRML*PR9999BRR9BASESR9FLDLZSYSMSGG*P PdSUBRIN DECK-ID S10 RPGII 2.1 SUMMARY-132*@PhOXX1F\ShKXSIXPGXM1;\H hBXG15\B h=XA1/\< h8X;1)\6h4-  J, *@P+ '($  TGTO"*@PV" T*PSUBRIN*PR9999BXR9FLDL`R9MVB FR9ZEROYR9BASEHSYSMSGK+P PSUBRAJ DECK-ID S07 RPGII 2.1 SUMMARY-132+@Ph{"" ^T1ZT6 hol PT! ^a!H_ h`\! 1=Y+@P+hOQRM@EKhH?E?2 1'8' qv.1,+@PV|!$""#T"A  +@P+PSUBRAJ+PR9MZERuR9MONErR9ZERO}R9MINS+R9BLNKR9999B R9FLDLR9BASESYSMSGe+P PLR9STH0 DECK-ID R54 RPGII 2.1 SUMMARY-132+ @PhBlFH? 7H55 8rG`- dhT,(%  + @P+T *! ddT.A"  + PR9STH0+ PR9MODEAY9ERCDKERRO46R9CNCL;R9CLIN9R9CNTR=YERRSW3+P /?ҧ J4ɔɔɃޞߟߟߟߟ[1ییX^59ՐG ̤tlrՐJ*________HTFr{ȏȔȨȯȴȷȽbרhgӣ?IkӴՐ}ʠmֽ+2օPTR}T.bϒ3.Ր,.ֽօTPXchX_ dX_^]W"{{ɀjXM  CGB: ŀ ^hQ741//h*$h#a}f"  T X X>IT_  { dy ȷ nXL  ]X; dz1Ȣh$Ȟh! X  b T_ɫb ȌX  h "a}f hbH_ Dy EA"hWhT_ hhH"h @T h  hh2HhTzT Llh H h TzT LzsHs hqHnf i* l\[aTTVSZTX'T@TdO}fhLhK bH@"DTm}f@<@=:Ty3* /-T2h+&@GT}TTT*@dRayyyy}s}r}mHohmhlHj lhghed_#h^ h] WHW!  hUHQQhQJTi}flHEFHTZK* #dzsh9H32 l0/29XOzs(h* h'!HX, %*HX"lh &hhlhhXhhH hؠ l nѐhB@'d  giy`yuqmiea]Y˝˙˕ˑˍˉ˅ˁ}HDhhCehCHA l?>=8h8[6h7Wh3Th40 Fl.-.%)h#XJ&%FC.@h=h lX5 h  1 h!hHM HT~hȈzshhH h bтb HT'h!H hh hhTi}fhTi}fh h Tm}fT&h"H  hh hhTi}fhTi}fhdRh Tm}f̌̓̚TyBTyBT dzyBT,HYhXUTR HP !}f " T˱C-7<'}fh8h<&h62/h31/@/T݂(%#$Tzsh !h}mT~ ` TTy&z- Wdz z-TЭz`l%T"(TThT T_z-TTy&ydz2 z@ Taz f"  <" z2z2"dz2yTyz2"bQ! yz2TY͊yz2T_͆ydz2y(Ty&Ty& hz2"h1X hIh 3HhTh 6$z2z2"1I 3 ~z2z2z2z2"hdx_"8"+Hzs h hI-GE1*z2 }fl9,6 b1A hj*bAb#DbB h}Xz2 }fzbb!@dRaB he6 hgTHehf1$^[b^.lTX`QTKbN*JFbAbGDb@ ;h<89TYw3Tzh401TYЀ+Tzh,yH'"h%y#"h!h}rhhT_n T_n TTİyfyHd DEBUG-INDICATORS ON- NONE FIELD ARRAY TABLE VALUE T/H( dz1h#XXX "@м \c  H (hT 1S hO h ! hhX>z+Ƞhzs%hиhhH l͜h!Œh l hX `hп \ h hHT  h}f @h}TwX}z1oj@ \X_BXCZhfK U@ h^\HP@ \HJFhJhS hEhBK  T@0H@31h1--,TXiX8&/Xh&}fhhhh  @hTdhhX1@T݂hhԈh@T݂ʈhh׈T_HX%Xȼ hXȸhzsh̷}mT~رتȯzs̪1}oT~؜@T}T ydyTzdyyyl ll 1@ TT2 Ty&yyz,TЭzl21Thz,T%T  dz Tz hT T_Ty&TyT.H dz1"h H"h}f@hTd ` T b@T}hXh~ H}X{@{Tdv@Tphoiqoh1khdcf@bTq}f}f[`T[Vh\}rYTm}fNTZ hQJhJITi}fhK}m!}xD! @@dR6h:zs7}oH50 l-$$1h'$h"hTi}fh}ml T@Td hh) bThzshhۄ}mTm}f1!}oTm}f hȶhȹ1ȵhȻ bȷ@Tq}f}f@T}DSPLY XHjHix he'Hd}rHbHbHl[&g#}ohW a&}phQ}qhMLXYKXWEhI}khG}jHEy$?h?H=6h=yDh9,5h*,h*)}mh.-X3*h(y QhX%5 h% h h }mXzs HT~hhXy"}nH1Xh֐hʠ$X(TYԸTzhɔ}x1}m6XȹTYԿy1ȵh}lT~2ȨT~إXH`ih_H_yy h[4hZHWXc"xU2 Q!N?"XOM2=XKXOD2Al;:8h>=<9h75&"h4,1(h&%X,X0!F#!TY+ X h}q}o}m}r}n}l}rzsT~h! HTzh HXDh  tT TT1TkTy& ydyTTy& T)y T)" ""h H " \z2y@z Dz 3 hH !hHT   " '&#$%("yh+* h%yh%$h!-H}fhy}fh1h  h @hHhyh Tzl \ Tzlh<}fh8h7H33y}fh)`(T݂$@"T݂@GT}Tzfy Fh\Tzfyh bT-H "0HDz h8 h7H48b2z-T ydyXyX!bzBdzhCTPH hHV!HR O@LTJTյG1 0B@dRa9:}fh6h5 yDy+`+)X & !`#!Xh0}~`XhTzhT~  h T+z2z3f"z,z3b dz3zRT T(z, yh%$dz2aT*z3$dz3z32Tz3z,z3"dz2 H?h?`'y;\m50aH0/,b!,+b"@+\]- @#\U0M)h&hDh ` T݆@.-.@\(0)*'&"`'"&T`TTյ0.}fT Htsyhsryfy Hiqzy(HbTT(0(QTMTh1%T3" Bdz T y7T 1bz y &TݴH#zy z"TTFHzz H Q dz 0"z"0H TFH TFH26y TݴHdzz z"HQ)TTyTϒz   dz Ty&ydRdyTy&T bh Dh b2@HVhV hUHRSQQ(1L#5hIH hH DhF}~ = =}~;h9}~h750Tm}f1+ Tm}f (2<FPZopz011020304050607080901PL0LRH1OAOVU1MRy dz yh&%ydzHTbH@"a HAy^̈bhbTy&HHh"HR}fhMh   17 Td!.TTЭ,-THh hH~|hȾ     htX@kihnX:e hc `hfTHZhbYTHVX( hX O}f`J THFXC S>d:9h=749h2+Jh2)0h/ }xh+ l- zc@ Ta `Q":"tڂڒڠڱh zs hhTz`}rhT~h1XDTAh׈ hhA TTA h  q TȼTʥHTzشhX̲ lȫ}o lXTzآhȝTȚhH hDa hTzf\ TzfLl(Th@ T_ , @dRayyHRhRHPTHOhOHM#JAGhIHEFhF>>ThlVph1#  h Ȣ-zr 3  "`2 TZT,#-")`2TZTT"`TZTT"طzszT Hkhkihjhhffchda_Ti}fXh[WDhTPTi}fDhLG hEDChDhC@$)>Ti}f7h;7h532dRh-+Tm}f'#h#dRhTm}fTi}fhdRh Tm}fH%}fh"hHTi}fh}~}~h Tm}f Tzdz dz zT_yzTTy&"D "2h 'h_ h^h\ h[Y2 VhTR lPN !KIFlGF !C hA? l=<!8 dh64l1/++h)&!%%l# h" ! l l lȺh l h 1 ޭhCHA" h>=@:Th9 41 0)T9&b$h#    @@dRa h 9 bb h#4h$$H !T}hhT~hh T}h  T_+zs hzz"HA ydzh0 h l+0L'! @ T l Tg@T 0 lyyLzlyHr h holKhl )i" _1n X UXbP  h GTC+@>+:9H 3 1 -1b) 'dy$}fdyyA hTHH h B `}fh h`T݂dyhWhX-hW hR ڐ}fhII lRA h@TLHdy0H7 `3TH- +h)*T hH# h 1&TyT/ȟ ? }@hȖ hpho "HfXmA haTZTWh XP$hNT_`GEEhCXJB@@@T݂zsh>h; h:7A4h3 5a h31h/.Ġh,(h'((dRh#T~ Hhhhh h  T~lhy+Hzs\HTZh l THH~ lx lw lw vlsthtrqylhl g & l] lZ]!ZC lTVMlO lP OlLhM  HFEC lAAMl<> 8D h7Th4 .!*1'&#Ch!THhH#L 1T @ T+}yyyyfhhhhhhh hTօhhhllll hGHH1T WH#.H@dRa,T OH T @Tdؘȡ}f@hT@T}ȕl'L%% ! @lTd}fl}mTm}f@GT} $lbyyyHN+HK*hH.>b#h?>}f9h9 h6 `1/X,`,*X '@$T"Tյh 0}~`XhTzhH T~  hH[HZYHYVb hTQbOb hLJEBbA@ e<:h<}f5h6 1h42Ti}fh0*.0 h+$-h$"}r }| }o}{}m}yh h h +h+# h110 bh{h@T hm! HT0Ty&H1@h:9Td6}fh2}i/Tm}f)@GT} "b bTRb 4 XhT b2lzlbLTR ! b 7  TyyT hjHghhdT zc@ Ta\ TzTSAhPhOK "hK FHDE hD hChA?z z 5 0h21+Tz h) zt@ Ta!hzshfzt hHq  fzt Tmz h hzztfz zz! hߘzr نztfztTmzztzfzQ Hȿغ Tzsz zخȭȭ h Tz|zs1T ȕTshBlFH?z 7H55 8r`- dhT,(% zTy& z! dydzTy&yA" yT1HR"'}fhM&HIIhJhI$CT?%?zsh.a 42:*a?/bDbbh  h hT 2Db bT}VMT}V`#T 3#aT}V#T-6T  1T}V !!bDb 1b*h*$ah$h hT7'a h Π1h A hTbb 0 A 1XT}Vf#A2 "f"  b ! T T}V`#T 3#a(TS-T1q !!bDb 1b A  < hTQ7'aDH h Π1h A hTbb 0 A !# A2 " f"  bb bTT}V_ T}V`#T %T -T3#aT}V1T}V !1b 8(aT}V A1bDb Ah ah A hTb 0A 2XT}V bbB8a5)h 5h oh a hT( oo%A1a%:*a3#ab bTT}V`#T $$T-T B#1  /,A1aTLT ?b 1b/+ b/ +   A  ;T7'aa/A h !4h #1hhT a b A b 2b1 b b TXts  !A bDb HA h  b#1h hT h !4h #1hhT a b+++bDbb 2b1 b b + TXT}V3#a8(aT}V`#T &T& -,T3#aT}V @0aT)1 !ߠ1b)h oh h  hT(oo!2!(:*aT}Vh h  h hT b )h oh  hT(o Db2DboT}VT:*axT}V`#T 6T/-),T3#aT}V1   ahhh  aH2hTh  hT )h oh h  hT( ooT}V&A1a!%:*a%=-aT}V`#T (TP ,T3#a/T?/a1T}Vb. h TQ~7'a?9)b hhDh h9"aHA1hT7 !  b9b T  2Db?bT}V`6T  ;T93#aa&T;!)hhohDa h DbT(oo"(12!(:*aT}V%B2a3#a1 @0bbDb 2bB?bT}V~#HT}Va#H#2  1b>.b T}VQ;h2h0>b#$&1 -N, <,b 01^ >.bTNZ "." 2"8. . , ?/b$T/Ҡ  @0b",T >.b h bXT}VJX  bB2b  bb #HT}Va#H1  AbT h9 Ab>.bT}V,Q;h)>b#$11A1a 03 1<:*aTNo> "." 2"8. ,$A1aTA1b ?/b3T:*aA1b2Db b bb T}VRdy"h%h$h#h" cdhE"h "hdyT{Syhy`XXXXXXXX, MOUNT XXXXXX ON LU XX, RING,READY? HDR1 0001000100 YYDDD YYDDD 000000 HDR1VOL1"8. ,$A1aTkA1b ?/b3T RING #"a# h& h& Dn q h  n q n q n  n  nT(o "&K$$MOUNTS  h!n qX":31B2a3 h h hT(joH " hTj* h h hT(jo hX2%<,b h hT(o H hT/T|.  ""B0F4Ȁ00h6+NO hTLJT!BH0!0Tc=-b *:*bTcTc;'TA1*T;(h:8` h h ``h<{` h h ``TEFTc;41.T -*T;(h:6` h h ``h<r` h h `` !HT(R4TB hHhDh hSHBH 0hB FhTC.Tc)TcTc' )V8h:6` h h ``TSc@Tc1THTUNTcTsB0FHB0F00HB0F4Ȁ00hTc@Tp'TvcTc$Tt- *DT(Tc Tc8(aT}VyTcTITU$JhT HPhPhOHMKIlFEHGhDD= 8h;5Dh81H .#"a#.)-Tc":8EOȿV1B2aE,XCBb @b6-# /Tc,TTc"X"Ab @?bA1a,TcX TcT}VTc bj ظyOغػȷh0HohXlh HXgh (h h!2 S Q H0%A h^ XJh HXEhXBhd(h (h /ȱnm" $ȧ 62 2 hHȜ- h+ h h"  h2  ؒDEBUh hF2 H( dh#XXXd0hH hhh H0%A 0FhHшHl hƐ$" uЈh h Ȼ8h 0FhHȵhhȮ nȪhhȣ nȣȥh hثȘDhh h}h|y B0FHfB0Fb00H_B0FH[B0FW00HTB0F200HL "hTK F1LBV1h!Gb *DT-(Tc - h T-.NEOh*EOV1 3HL\Hh" a!HA hh (h&hhh aT`WHhA Hh(hT Ⱦa h l lTH$h lu"% AlhhH |HX hXl q" d   *#C:r> " r < H E A a1"@Z{[lP}M]\Nk`Kaz^L~no|_m [ABCDEFGHI.<(+&]JKLMNOPQR!$*);^-\/STUVWXYZ,%_>?0123456789:#@'="@ a ag@2h0 ah)b[&&d2h X"HhbTXHhh"H hgԸ B  0%T}V`#T BT ,T3#a/T?/a1T}V',h H HHToT3;+a  8(ab A1bDb  b h hhT )hhohT)o b2Db?bo{:*aXXXXXXXXXXH5 h1A"}Bh-hTl)(l&%"h!l ll}|||}||||oz  dzy?HHBBIb %+i7HDhhCehCHA l?>=8h8[6h7Wh3Th40 Fl.-.%)h#XJ&%FC.@h=h lX5 h  1 h!hHM HThȈozshhH h bтb Hyl>= "-L855"}f"+L/L(&@%T"}fl}iT}f@T7+b @TT-yyyH AhdhH }}l  @ TzshH!}m }u}t@z Dz 3 hH !hHT   " '&#$%("yh+* h%yh%$h!-H}fhy}fh1h  h @H hDa hTz#\ Tz#h,H, h&H% H$h$!H"h"H* h!d #h"yhAyhy}fH@hD XXXX$  $T+  $T+}fHN+HK*hH.>b#h?>}f9h9 h6 `1/X,`,*X '@$T"T-h 0}~`XhThH T  hhBlFH?z 7H55 8r`- dhT{,(% zTy& z! dydzTy&yA" yyh h ɢhT\H+HMhJhH hXO hXC@hT}fh |hX\XVTTrhpj@T7c@T7hUXT\HNhWKlLTHR1EAhBA@AbDTHFDHD8b?009b h:8h7)5@0T}f}f*!bhh%bh"!-"@T}f}f h Y XIzszrT T}f(X<}sT}fzs1}oT}fhX&}sT}fzs1}oT}f̩TKȪ h 1ȣ hT.TKzshh̔}mT}f؍؂hLh z hEhzh>zsh.bT}V,Q;h)>b#$11A1a 03 1<:*aT{N#> "." 2"8. ,$A1aT{A1b ?/b3T{:*aA1b2Db b bb T}VRdy"h%h$h#h" cdhE"h "hdyT{Syhy`XXXXXXXX, MOUNT XXXXXX ON LU XX, RING,READY? HDR1 0001000100 YYDDD YYDDD 000000 HDR1VOL1 RING #"a# h& h& Dn q h  n q n q n  n  nT-(o "&K$$MOUNTS  h!n qX":31B2a3 h h hT1(oH " hTc* h h hT)(o hX2%<,b h hT'(o H hTc0Fh Tc0.  ""B0F4Ȁ00h6+NO hTLTW!BH0!0T=-b *:*bTT'T{A1*Tz(h` h h ``h/` h h ``T{EFT41.T{ -*Tz(h` h h ``h&` h h `` !HT(R4T{B hhDh hSHBH 0hB FhT{C.T)TT' )V8h` h h ``Tc@T1T{HTWUNTTc'B0FHB0F00HB0F4Ȁ00hTc@Tc$ۀT*Tc؀Tct *DTz(T T8(aT}VyTT{ITWU$#"a#.)-T:8EOȿV1B2aE,XCBb @b6-# /T,TT"X"Ab @?bA1a,TX TT}VT b0HohXlh HXgh (h h!2 S Q H0%A h^ XJh HXEhXBhd(h (h /ȱnm" $ȧ 62 2 hHȜ- h+ h h"  h2  ؒh hF2 d0hH hhh H0%A 0FhHшHl hƐ$" uЈh h Ȼ8h 0FhHȵhhȮ nȪhhȣ nȣȥh hثȘDhh h}h|y B0FHfB0Fb00H_B0FH[B0FW00HTB0F200HL "hTc F1LBV1h!Gb *DTz(T h TcNEOh*EOV1 AHL\Hh" a!HA hh (h&hhh aT` HhA Hh(hTc Ⱦa h l lTHi$h lu"% AlhhH |HX hXl q" d   *#C:r> " r < H E A a1"@Z{[lP}M]\Nk`Kaz^L~no|_m [ABCDEFGHI.<(+&]JKLMNOPQR!$*);^-\/STUVWXYZ,%_>?0123456789:#@'="XXXXXXXXXXH5 h1A"}Bh-hTl)(l&%"h!l ll}|||}||||o*t"H" vH HlD HH" fAhHh T3 hhHh hT&T3 hhH hb l B. H??  @d ?@+h hm%"X hŘ+ @TM 0h T3 - T3hXzhvh  @ Tn  @ Tnkhml! @TM$h hX'DhGA @TM2hX1h% / @ TMhmXf3 T3X RL=PF=TPF=FBP= OP= PC=hI2+h   4hlIhɋ܋ ):t{ˌߌ !BǍ8-@ 5Mn֐XcAleXY7l]XQ/ȠlSXG% =lIEj=j?5 wl/s*"h l`ZjXPdRlI@BdRi=ɪ5l1+l'!l*lX "HlH*3hAl~uhr ohmdhklb Wj PjHGjA;j l'?h*"hh~hhq hT&$ hWZWLON"AD՚A"698-0/$'ȠhܨdhH@>T&$ 5 dhhH T&$h} xvp jDhiddh_`T00 @ @& "h( h&#HhH<@ TMu "h hHhH@:3j"- "h/ h-*Hh&H#<@ TFX/ l4T&$hh$hT&$h  L  lHh׈hӐ$homT&$hh 'T&$hɘ$hKhh~*"hohkX l]h!|hT&$h |0hx 3q" Fl~elzc loXcT&$ld{ H/h ?@#?@@@@@@@@@@: ="X)"H @Tn"hV4F4HeV4*>+f$+DVR*VDVR *VDVR  *VD V(DV)R *V*D V+R *V,D V0R *V1D V2D- *V3D<< *V4D V= , 4 0X*, !VJR *VKD",\ ^, /X\^,/X(,6,`/.zn*@@ ,t,*@@p",^,>- .^,nt.(,6, >-. .nt.* l* l* l>2*@Fn  .Ht*.jFV DZ VDZ VR 2",V\ ^, =X\^,=X(,6,. |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L"hVR4FeV4*D.>Q"QFfZ N4,fX*NVDgPLNh(+VR 0^0 VR  1ǀ116K6K606KVRk 2VR OHHVR6&Q 3VZm 4VZi5 VRn 6VZo 7VRj .V Rp8*@@656 5 8V!D94OX"q 9 ^9 V#Zr :V'R/ V(FsPLNsH6;  <04UX,v >VID;6666B608686086.[ [ ]16^] ]-],06&L1666666060!>L0>L<30060066B0 >L0 >L6B.6>2>L16L1:3660>44<556 : 0>45 484485886 6.66B06B .66B0>.0.6>7>.186*@<9;6/V#D.>0(XX6YXW06&I06ttttttttt16WTR0 tttt>99t9*@U>>>t>t[16Ā =6 =.:1=.6=2 =I=t=I ^[ M^0M^B"M^M% Z(+Z86ZJ16\16\ PV\ =x=X*Pt86π =066666=36=B6@=86 =.66=B60=16.&M66M=;6*ѕ=^^8j =t=@544t5vZ;6d55 Z4l65  =t=Z `vZ*@;l ` k l=8kkllk =;62==;6e=== Z*@;Z`8__` Z86BvZ>Bx= ZtV6D"=\ ^= EX\^=EX(=6=`EptV/D==t=tt>BZ5Zt?B 0688ZPZt:@ =t=<=ZZ"=trZ.V54KxV6T5>Q"QT1TB..( =r=ti =r=.(V"?"@   n 70fVTdVT V= 3 4 0X*3! "0>"hVR4EeV4*DVD"5"6V D..VDV.D <D, + ;tV4k,5 6V.T V!D. J; . Zo5 56 60 V+DV7D"5"6JV$Zp: V+R J>< 7 V7R J>.VD.V+, 0><V7, 1>0 1 ==t=, / =t=H<8:5:6@: < =t=., >8}@ A, >/|B  =(r=vA =r=.PDLN 9>2HV(Z8V4Z89>2P"4F4Z4LN 9~ P9<42 2Z2 X4PB.R28 6  06 8 5XD € 8 2Z28 XR 2  2RXD2V D8Fw, 8r@@J2VD/Fv, /q2t*@@&=<>==>"hV4I4LeV4*PLNf 0H@JVTVTVZg< 1VZh( .( /  (r(t.t1r/0t /6H@@/ J 0*@@n*@@pn"/,B/ / 6 /n "/-B/ / 6 /   /HJ*/ jIUDATE  UMONTH UDAY  UYEAR  ە MJaCΖ/u/QW( י嚃ΜGAND)OR) 1234567) **) N1) O ) PBLR)*ERROR) /* ) DZZC)CO) 123456789)123456789R) 12345678) N) TR) 12345) PAGE) SKIP ON CONDITION)** )R9CMSTR9IPUTR9NSQRR9MMOVR9CMOVR9LAHDR9TRALR9BINPR9MHLDR9MMST R9INMKR9FDC1R9INTVREAD12READ13READ14READ15READ10READ16READ11READ09R9IPBG"7fVTAVT8V= B 4 0X*B! "0>"hVR4IeV4*D>,j$,VT&-T&.-VT/T VDF>1}}>7"2"4"5$/VZ>0TZV>8U>88( 8tttVD"<. Y>080 0>9 U,( :09,VR  1}}>998,,&T À&XV+R >4B YV,,k ?V0,l?8n:?m?@? DV4>>DXxDEE>X EZ C >XN!>8D6 >DDo>6 >66DpDEr60!>8  >66 >80 >  |+ II H:DD:C@844>2?82:33>T>X >EBE0Bt B 6D} B@@>E 6C~.>F>E V5Tɕ T59Ǖ >EC D JV;"GD4LV< G^G (GYB@>6>5>2"HV=D4MV> HYJB@>6>5>2>XNV?DJ , J >GHNVA BD"K"L0DK, KVCDL, LVEDM, MVGD >J&6J }X}>N}>P}} }> E |}t}? }t}"B>X2>N >E>6 >806 > OD(BO:606"1G H6 J ?   B>66E B J.$,>1>7}}PFiLN {H6y yB @|@ y J  }} }^} A"0"8"9>U U( Utt{ttt.>1>5VD>.V*>-V>.&/VD. >2VD V64 2>1f }t} 3"4Y.>2 }t}0>998, 43 }t}3 }t}6HH( Q"[, , ,  Z^Z [0 ", [  Z^Z [60>[t(  (r(vQ (r( B^Bn6 >x ^B<\^B6\B0^B \*B$x 061H( Q, ,, 0 ",  Z[(((Q(( 0  2VDV6g>5B`VZh$5"6Y }t} U,. }( Br}vBrB24H4L4M4UZ BB2XR0XR"q0X4R2XR(0J2DZO8>OXR- BXR6} B/ B"/X\>~ }6 }4 04&A4-JbBtBO }t}2V5DvTzZ{"F"N"PV6 B4,X *BPV5L, |2*Bu$FZPBL, N BB 60$ J0"N40X*B|0D P PZP(NX*BN6 N0, V8VV ;^; V  ;^;V262Z2N +26 H602>2<7>1}} BY B@B*@ *B*Bn"B"O^B]O^B]O }t}(B6BO  -n "O B^BeV6 @ }t}V@СO*BtOlO  ,n "B^B }t}(B6B }t} }t}t*@@n"}AB} } 6 } "O6HB O 0>O jC B^B"n*B2 8 ZO  B Z B }t} }t}O6^Zn ^Zn>28 Z^Z>nZ  BB^Z n6э>S^Z6eZ2^Z e2R ;^; R  ;^;R2","1"S"A"U"Y"x"y O^O"\*O$7"   *@@n*@@ z*@&~6HB@   }} }^} A 0PSYSMSGY9IREG&R9ERTN#,RP \2}.MSQm)syқLT55AN) OR) /* )** ) H) SR) 0123456789+-.)0123456789) 0123456789R)ABCDEFGV) 12345678) TAB)01234567) PAGE) 1234567) SKIP ON CONDITION)LR) .+- ) RLABL)*ERROR) TAG )IN) 123456789) R9CALCR9LABLR9OPCDR9DETLR9TOTLR9ADSBR9ZADSR9ADSBR9ZADSR9MULTR9DIVDR9XFOTR9SQRTR9MVRMR9MOVER9MOVER9MOVAR9MOVZR9MOVZR9MOVZR9MOVZR9COMPR9TSTZYTESTNR9TSTBR9LKUPR9LKUPR9STONR9SETFR9BITNR9BITFR9GOTOR9EXITR9NDSRR9EXSRR9CHANR9FORCR9XCPTR9DSPYR9DEBGR9READR9STLLR9TIMER9FTNX R9DBGVWRIT20WRIT21WRIT22WRIT23WRIT18WRIT24WRIT19WRIT17R9CLBGR9LSTR*@&i@n7*@@n":";"N"l"o*B&YB., p    "T"b"dVT0fVTVT8V= m 4 0X*m! "0>"hV4O4CxV4*"8"9>7T&8kT&9PVD&7>o"o07LNhH  X,6X76Xo6XoXoӣo6Xb6Xb%6XV!T)XJ3^6XY"kVD T 3TA%4L4>:$:tn>;>NVTMF+V40(V h, hth$k0>;>N>:0>Nt$N>:$:n8>;0 >;$;t0>89|( SV D ;$k>75>8D4N h V , ,hthV D4N h V , ,hthVD4N h V, ,hth>7VD*.d O ]V  U^U, n H IF E"Gl O ]V! 6V^V, 0 J Kt O ]V+  W^W, L M6XBL6"m6HmmH6JmJm L hthJ66HH hthH6͊hhM6"m6ImmI6KmKm M hthK66II hthI6͒ϊhh"=">"? 6V6D{06, } >V8, ~ ?V:, *B *  =6#>=>?|%6X X >>?E6F>>?G@'6XX >= >= >>?>?V5Rz <BLN B@0J46X<>?0C06XB>:N09>d6X3-6X&d26XB)VD E8D V+D B 806XG B0 $6XXXF6< -6X!6X<X6L6 6^% <>>? =0 hth> ? hth>ko. >TT hth"T.>;>Tn T. htht)P8B hh h^h l.D O2B mZeDTIB^"[4,X*m"@mB m^mXB,O m<[ €@m>2*m$[R @m,> @ B B@ 60"A"@40X*m|2D A@! ARA(@X*mF]@ hthA 6hhA 6hhA  hxh062m @^@ m  B^Bm2R ,O$G0,O GBO J  F24,O G0,O GBO J F2R 4',&`  F GBF6>`0,G0,G VO2D 2PF D +LX4 N Q J,6X7Xѱd6O0H,6X7X&1@116d6O<S)"VQ2PF LN f|r2HJf2D .4' m"@X4' R+ A^A @*m|*mX^mD hthx@$F2>ot>7k>:>N8>T*@@6n."hlBh/ h 6 h( (n( "1HB 11(161HB1(1 6 0 )mm HB , ((n (6OH@6v 04H4L4M4O4UZ mm2XRR0XRp0X4R2XR0XR$0D, mp6m8m>2m @^@ m  \^\m2> =? >"?2DO2R ,u B  V1D%Z6 m 6m m e V4DZ8m m 6m m mJ24',v B  V1DZ6  > 6 mV4DJ2,wV1DZ6. mV4D€m8m ZZ! B Z8m Z 6m 6m m 6Z J6Z m2>2D2TPX, mm2 hT0X3&_XPh:L h4 ,X*h6X N + g_  JHX666X g<2"5"/"c m4- .X "a\6pc6p/5acR/aC2>a/X*md6O&! j5 /6 jtj4+-/F6\6p DR 1B1mmhhX0m. hxh0>"F2d6O$ j( 4tjX"m4'\>i hxhX(m6m|>2X4'm a^aD( hr4mF6jtjrh<2BEGSR RLABL 4TAG ADD "# Z-ADD "! SUB "# Z-SUB "!MULT "#DIV "#XFOOT "!SQRT "!MVR "MOVE &aMOVEL &aMOVEA $AMHLZO &AMLHZO $aMHHZO $AMLLZO &a COMP '! TESTZ $" TESTN $# TESTB %$ LOKUP '% LOKUP )'&!SETON ' SETOF ( BITON %)BITOF %*GOTO +EXIT ,ENDSR -EXSR .CHAIN (/FORCE 0EXCPT 1DSPLY (2DEBUG (3READ 4SETLL 5TIME "6EXITF 7 PFMCALL DECK-ID R92 RPGII 2.1 SUMMARY-132,mPFMCALL,}RPGSM6,SRPGSM7,oRPGSM8,RPGSM9,RPGII RPGXX RPGYY RPGZZ CATLOGCATSEGRPGFILR9CNTRR9JUMPR9SGTBR9SGIXR9CKSGR9MUNOATTCHK,͔REі0D™<onҖO** )/* )AND)OR) ADD)*PLACE) PBRL) XYZ 1234ABCDJKLM) '$')'*') N) 0123456789AB) *PRINT) MR) 1P) 0123456789R)ABCDEFGV) 12345678) PAGE) 1234567) B) SKIP ON CONDITION)*ERRORR9DOTTR9TOTTR9EOTTR9OTPTR9ECODR9EDCNR9XCODR9YCODR9ZCODR9BINTR9FTOVR9PAGER9FSTLR9WOTVWRIT20WRIT21WRIT22WRIT23WRIT18WRIT24WRIT19WRIT17R9UOTVUPDT26UPDT27UPDT28UPDT29UPDT25YUOT06YUOT07YUOT08R9AOTVADDT30YAOT02ADDT31ADDT32YAOT05YAOT06YAOT07YAOT08R9OTBG*@&c@n(*@@*B&X$i"."/"0"I"e"f"g  VT0"ifVTVTIV= d 4 0X*d! "0>"hV4OdV4*D>ieVT&UVD>i>j dtdt2V4E4T 4HDf>..(.0>//(/0>00(0 1":"Vt"ht"2VT&3VDy@zV4F&4IZ6dd>3B3VD,V, @( 5"6"_V,V,V,>_"jV D+{.>:ddVGD>j>4>6(dd7 d(65ϕ6td0>6,,":V,V,V,V(4*&YZg;8n"9V PD ' @&=I:dd:V-D9<22 8;(2 dtdt;.02 dtd.$j"^V'RGV,>94 V'4B. B 4 V&4 =<><04X&^4Y^D=Z^IR8 >< 9V'4B&> dtd;822V-TϿ^~Tѿ^~ dtd.>j dtdt2>.>/>06HB 6 I 0 AI @A*@ *A*A*@@(n "deBd d 6 dn"dfBd d 6 dn"dgBd d 6 d *B@ jAPFxL>iN a|h. HBs  dd d^d d@&KdgBKdfjiU @ >4 >6(dd7 dtd"4,"V"h"6( 5. d( ArdvArA2A  BD3B C^BXD R  dX dB CA dtd2 ADRA BX,A B>B@"@B7>66t72 ADRA BX,A B6 dtd$:2V TRt"[ CV!4,X*C0C$[ZC,k BB@ 6 b dtd0,"F"E40X*C|0#D ZlE EE(FX*CF6 dtdE ddE  dxdE  dxdV ,j<[ €b9  B V,4P  04B8 B [ b+ `` H8;o2 "L M"N"O"P"Q"SV-4'u:SmX>N4$X40>O$,0,, M(L$N"P$O0404*,04&&d >c,>d4 MPL>P 4'\>c,0X4'04C \>c,X4R"Q R$P04-$Q0 >PRQ S dtd 8L6Hx 0(At;822 dtd"BV-4'uV.4' \>c dxdX(B6B|m0 X4'B \^\Dv(rA8 B dtd drd0Z0-XZ0%X4RX XhR/p0XR5]&WX V  6]| J08/._ 0>W]0XR: J JJ K^K J  K^KJ2HPLN + b V T?V$BNj 2H2>Vh(r56>V dtd drd2( 8 1 drdv8r8a >3 dtd2 J(S2P PCCSBLK DECK-ID A01 CCS 2.0 SUMMARY-132,8{>`}՗ږjFΙ)˙ÖMHLDFILX00/* )** )*EQUATE ) *FILES ) ALTSEQ ) 0123456789ABCDEF) SKIP ON CONDITION)}JKLMNOPQR) {ABCDEFGHI) R9ALSQR9FDTBYEXENDR9FBSER9FINSR9CARAR9MARAR9CLSVCLOS38CLOS39CLOS40CLOS41CLOS36CLOS42CLOS37CLOS35R9TOTVWRIT20WRIT21WRIT22WRIT23WRIT18WRIT24WRIT19WRIT17YCLS09R9FNBGR9UDATR9UMTHR9UDAYR9UYER*@@@n*@@"]"^"_6(HB _ UU U^U U]BU^@ BÀr@|qd 0*@@n"U]BU U 6 Un"U^BU U 6 U   *@@( n*@&T@ Y Z"R"W"X"."3VTg0$W,VT TT =,,>W6R,,n"X". RB &0B&1,. >3 >."X$.>W t$0$1"3V 4,,,nQ64 4,f X(464 3 0>X".$X$0$1$V ,n(VV8+ ,. ,$V6 H@,l(V 0*B VThTn$0"1,VTTi,0,>-n-6t0>,n,6t0 \ Y Z ["U6 (UU6\U[HB``Y@n,6t0 0  `: H B8@ @ >^`n(`0  ,J @lBkB / >T SxS*/0   /0x*/x . HB@,0, BB FH,*60 FH,*6 .  B  ?FH >F J>G>I P >G JVTdT"O,VTO= > 7FH>?B,0,>:(  9:,P ;GI>@C,0,(  :9,*6>O*>0>O . ((n (6Htt 06'H"/t /  /  /  / /  / B / /t/ 0VTjjMfVTV= / 4 0X*/! "0>"h2"//a b6H 6/ a6/  b 0>1b >0a StS(//62V  /,*/2DR X X XXm J2>2 [ a"`V:(`0^a [a a`^a [`YHJ2N V|e2H2PQ48L2t B  7 7 /88 80/ / / StS/ / StSt/6 =  B( * 70/t/ 7B 8, @@&F@&HJ2 B  7t 6 =  B( 7* /tt// 7B 8,J @@&F@&H7 / B  >T SxS*/2*/x0x2>O K J <<<T>L H>J:08n6L cxcJX*<2>O D K J<M "N<< ED64-EXL >J:08p6L J *N2 K J <>J9 >T cxc*<2 K K J  <0>JK cxc*<>J>K cxc26(n 2Be  S(  erSdc d2 _q~Ö/X  6"l"m"n ^l^l^l^l^lm^l^l^l^l^ln^l (l6l>m ,,,d6,>n , ,  ,d6 ,, ,d6,6B,,d6 ,6 Ed6 <6 H8<6< 8=6=:> 2 < = > 0<6б 2 H,d< J0,,d6 ,d6 . /.@BF 36 H8363 8464 :5 2 3  4  5 0362 H < = > BNBAX/ A@XE/ DXE0B , B 0/ Hd< J. "fH^f <(f6f d<2 g"h"i"e:ű(e0:(i0:(h00^g )gg<2d6d6d62S O R T E D F I E L D N A M E S NAME TYPE LENGTH DPS O R T E D L A B E L N A M E S NAME LINE THE FOLLOWING INDICATORS WERE SPECIFIED BUT WERE NEVERUSED TO CONDITION OPERATIONSTHE FOLLOWING INDICATORS WERE USED TO CONDITION OPERATIONSBUT WERE NEVER SETTHE FOLLOWING INDICATORS APPEARED IN THIS PROGRAM 010203040506070809101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899 1PL0L1L2L3L4L5L6L7L8L9LR H1H2H3H4H5H6H7H8H9 OAOBOCODOEOFOGOV U1U2U3U4U5U6U7U8 MR@PH h" "" ,PCCSBLK,P P@CCSCST DECK-ID A02 CCS 2.0 SUMMARY-132,@PH3h2 HX/ l* "  f  ` ,@P+` `"i ,PCCSCST,P P CCSGET DECK-ID A03 CCS 2.0 SUMMARY-132,@PHh HX l` `"i ,PCCSGET,P P-CCSHXA DECK-ID A04 CCS 2.0 SUMMARY-132,@PH h HX  sD  1  : E /` `"i ,R9BRAKR9ROOTY9PFCBY9FDC1Y9CMSTY9MMSTY9INMKY9MHLDY9DETLY9TOTLY9LSTRY9DOTTY9TOTTY9EOTTY9ALSQY9CARAY9MARAY9UDAT,@P+,PCCSHXA,P X XX[Xsh? X? XT5$ X/.,$+ X}& XyX= X#l3"3T XiGT7|G X  XZ XWBH#EXITYESNO3 j T `VOLUME LABEL HAS BEEN SAVED AT SECTOR 7000 ON DRIVE 0 `ph ȹ Xlhhhh hj^ `1X-VRX2ˆhX#HDX$ЈhX96X hT*T2tXX X|HN"hIHG X" XDb XAb X>h; bXGf"&"b"! 6"b!b" 1f""b"b"bhT HUhSXIPr""KH X>""h(" bX/H"hH X#"Xh͠ f"! 6"b!b$"A1f" Xb h" P/CCSMVA DECK-ID A05 CCS 2.0 SUMMARY-132,Y9UDAYY9UYERY9UMTHY9FDTBY9TBIOY9CMOVY9INTAY9ITLPY9LAHDY9MMOVY9NSQRY9PAGEY9TBOTY9INVPY9DSEQY9FBSEPOSSPBPOSSKB,@PH"h! HX @    ` `",POSSPAPOSSKAR9OCODR9RECPR9TANFR9TFLGY9APFXY9ASPCY9COUNY9DTPTY9FDPRY9FIPRY9FIPTY9FLPTY9FPTLY9FPTRY9FSSAY9HIND,@P+i ,Y9HNUMY9IBUFY9KALAY9KAPFY9PSFGY9RECPY9RPTRY9TOP1Y9VFT1Y9XRPFY9XRTEDMPTLKY9TRCEY9ERCDY9IREGR9ERTNY9LABLY9FTNX,PCCSMVA,P Y9FSTLR9USERR9UNITR9MODER9PORTR9EDT1R9EDT2R9EDT3R9EDT4R9RPRTR9INTBR9CLINR9HTINR9VINDR9USNDR9MRINR9FCTRR9STTS,X XX[Xsh? X? XT5$ X/.,$+ X}& XyX= X#l3"3T XiGT7|G X  XZ XWBH#EXITYESNO3 j T `THE VOLUME LABEL HAS BEEN RESTORED FROM SECTOR 7000 ON DRIVE 0`pl Xhhhdh hjZ `1X-RNX2ƈhX#D@X$ԈhX52X hT&T2tXX X|HN"hIHG X" XDb XAb X>h; bXGf"&"b"! 6"b!b" 1f""b"b"bhT HUhSXIPr""KH X>""h(" bX/H"hH X#"Xh͠ f"! 6"b!b$"A1f" Xb h" P CCSPUT DECK-ID A06 CCS 2.0 SUMMARY-132,@PHh HX ` `"i ,PCCSPUT,P  PCCSPYT DECK-ID A07 CCS 2.0 SUMMARY-132,@PH,R9HLFJR9REPTR9RYSTR9ACC1YACC1BYACC1OR9AC1SR9AC2SR9AC3SR9AC1NR9AC2NR9AC3NR9PPUPR9UPOPR9INRZR9INRPR9INRMR9PONT,ĀPCCSPYT,R9CNCLYERRSWR9FTSWR9VSWTR9OVSWR9FTIMR9FFCBR9CFILR9NFCBR9PRGDR9MRSWR9MRPRR9LRSWR9BYPSR9BLTRR9FRMKR9ACAXR9ACX1,P P(CCSTIM DECK-ID A08 CCS 2.0 SUMMARY-132,YACAXNR9SAVE)R9REST)R9FLOW)B9FLOW)N9FLOW)STRACE)SYSMSG)R9EXIT)R9XFCK,R9FSTL)R9ELOC)R9TRCE)R9TROT*R9INDM*R9LEL *R9GTL *R9MIW *-(@PH%h$"h Hh @ 8 0 0Fh `&`,PCCSTIM,PHORMIN ,P PDATHAN DECK-ID A09 CCS 2.0 SUMMARY-132,@PH_h^HG H[X[X6FF rDHLhKH4 HHXHX.  `'X F",@P+ X4i  ; )  4"   2 1 ,@PVm  `"i HhH HX %00hh ,@P d " dh  0F 0 04hȻ 0F 0 04h  `­é @,PICALJLIDATVRJULCALm,P P+GETACT DECK-ID A10 CCS 2.0 SUMMARY-132,@PHpX0 HjXLXXXc hd 'jb PALGO"#2,@P+@2 hGh X A ,#)$h.@@" T,@PV ""  (h ,@PPx Ǡ#"2X"2Ȱ  h,@P hh( h 0Fȼ&  x&,@Pdhwu Ggb# gY ` ` 0H_V Q,@P! JXG,PGETACRGETACF,PR9BASEIR9FLDLR,PEND PICCSAD DECK-ID A11 CCS 2.0 SUMMARY-132,@PHh"h H  F` 4@,PICCSAD,P P|PUTACT DECK-ID A12 CCS 2.0 SUMMARY-132,@PHX HXXXXҘ1O à hR ,@P+& h( h !2f#,@PV2  |2" vAfwAw r"#2#2_,@P]c`_R^YRANS"#2D#2 hKXh X,@P A ,#)$h/@@" T< ""  ,@Pא(h  hh( h 0F,@P Fߠ % hh¼Š  (h ,@P-0Fȷ hȲá Ȧ ` ` 0Hȟhș 8 ÌH ,@PX0F| unt teXi,PPUTACRPUTACF,PR9BASER9FLDL, P R9CKXF DECK-ID R24 ITOS 1.1 SUMMARY-122,@PT  ,PR9XFCK,PATTACH,P PEND PRPGDT1 DECK-ID A13 CCS 2.0 SUMMARY-132,@P hBX`ed  5X[3 A&  #XI<,@P+ ATGb  *XK  A,`PV,@Pd" T2 0 3S 3J 3A S3 3,@P 3 3 @,PRPGDT1,PFTNDT1/R9BASEFR9FLDLj,P P=ADDDT1 DECK-ID S01 CCS 2.0 SUMMARY-132,@P,@P -@Pd-@P -@P-@P-@PBAD OPERATOR BAD CONNECTOR PB .LE. PA BAD SYNTAX -@P5 TYPE Y IF CORRECT SYNTAX ERROR, REENTER -@PwINPUT=-@Pz-@PvY - @P lh h  ю h  "- @P d TZT}TE- @P(33H ADD TEST IN PROCESS. THERE ARE ,I3,25H TESTS CURRENTLY IN TABLE,/,58H ENTER 3-D- @PIGIT NUMBER OF TEST THAT PRECEEDS YOUR NEW TEST,/)- @PTwNOHh(N$h"H$d} ! !-@P=TZKTT̀c-@PK(37H STARTING TO DEVELOP A NEW TEST, NO=,I3,/,78H ENTER LEVEL NUMBER (1-9) THEN NEX-@PvT LEVEL (0-9) THEN NUMBER OF PARMS (1-9). ,/,55H SEPERATE FIELDS BY COMMAS, FOR EXAM-@PPLE, INPUT=1,0,3 ,/)-@PTwN|NHdzOHd{PHd|Tzl\{l\|l "~-@P "~ "~  dITIMMhT-@P\d "} !\Mh\-@P\ " l-@P lT>Z/.TDz\{\|TG,-@P.(5H LVL=,I1,7H, NLVL=,I1,5H, NP=,I1,43H TYPE Y IF CORRECT, TYPE N TO ENTER AGAIN.,/) -@PYTwNN lv =Tz{| "\Z7 -@PdMh\-@P 1\(-@P(39HNON-NUMERIC FIELD IN LAST INPUT, INPUT=,2A2,A1,21H RE-ENTER LAST INPUT,/)-@PTZ:T%zT,A-@P(20HLEVEL ERROR, LEVEL= ,I1,33H LEVEL MUST BE .GE. PREVIOUS LVL,/,30H AND .LE. N-@PEXT TEST LEVEL,/,19H REENTER LAST INPUT,/)-@P d| " \Z@#\\- @P#(17H ENTER PARAMETER ,I1,58H INFO. ENTER OPERATOR (NULL/.EQ./.LE./.GT./.NE./.WE./.OS.)-!@PN,/,77H FOLLOWED BY 6 CHARACTER PARAMETER VALUE ( 2 VALUES IF OPERATOR IS .WE./.OS.,/,-"@Py37H FOLLOWED BY CONNECTOR (.AND./.OR.).,/,41H SEPERATE FIELDS BY COMMA, FOR EXAMPLE-#@P,,/,33H INPUT=.WE.,000500,000650,.AND. ,/) -$@P TZCTT-%@P(18H ENTER PARAMETER ,I1,6H INFO.,/) -&@P| #\RF-'@P(49H DO NOT INPUT CONNECTOR ON THIS LAST PARAMETER.,/)-)R9SBYX*R9LBYX*R9MVBX*R9MIBX*R9MVBT*R9MVB *R9LBY *R9SBY *R9MIB *R9LBYT*R9SBYT*R9MVW *R9FTNX*CVASEB*R9FLDL*R9999B*R9UPK1*R9UPK2*-P@P dfM 1TZwN-*@P(12A2)-+@P d̹  lTN("% " ![TZRn dMhT-,@PI--@PK 1 d!h\-.@PY 1 l'h\-/@Pf 1Tŀ'-0@Pn(4H OP=,2A2,5H, PA=,3A2,6H, CON=,3A2,32H TYPE Y IF CORRECT, N TO REENTER,/) -1@Pd\ZU l̦Mh\-2@Pܠ 1 l̨!h\-3@Pܢ 1 l̛$h\-4@Pܕ 1 l̎'h TI-5@P 1\'-6@P(5H OP=,2A2,5H, PA=,3A2,5H, PB=,3A2,6H, CON=,3A2,19H TYPE Y IF CORRECT,/) -7@PTwNN lv T"% " l-8@P#T@Po d\RexG-?@Px(73H ENTER RESULTS (COLLECTOR NUMBERS OR PRIORITY) TO ASSIGN IF TEST IS TRUE ,/,54H -@@PFIRST ENTER 2 DIGIT COUNT OF RESULTS TO BE ENTERED ,/)-A@PTwNNdIH$d !̖ l d " -B@P2lT$ZoT\THH-C@P(14H ENTER RESULT ,I2,6H THRU ,I2,31H. EACH RESULT IS 4 CHARACTERS.,/,65H SEPERATE R-D@P%ESULTS WITH COMMAS, FOR EXAMPLE, INPUT=0071,0085,0091,/)-E@PA dfM 1TwN-F@PY(12A2)-G@P\TN+ d " lTZxT\ dMh\-H@P~ 1 d ,܌(h\-I@P 1T-J@P(7H RESULT,I3,5H THRU,I3,8H EQUALS ,12A2,1X,12A2,/) -K@P̦ !\wNN lv d! "p4,d-L@Pl ,)hT-M@P !n-N@P-O@PT "TkR-QR9UPK3*SUBRFL*SUBRED*SUBRMV*SUBRLM*SUBRML*SUBRIN*SUBRAJ+R9STH0+ ERRO46,0ERRPRO,0FMCALL,lCATFIL-SWITCH-TRACER-RBDPCH-RBDSEG-PBDFIL--@P(44H TYPE Y TO ADD TEST TO TABLE, N TO BYPASS.,/) -R@PTOwN̙ l-S@P)(A1)-T@P+l̏  l-U@P6-V@P6-W@P6\R<-X@P<(35H DECISION TABLE LACKS INTEGRITY. )-Y@PPe-Z@P{Q-[@PQ\R]_-\@PW-]@PW\R]-^@P](49H DECISION TABLE OVERFLOW, TEST MAY NOT BE ADDED )-_@Pxdd=dn-`@Pl"TR-a@P(45H ERROR IN DISPLAY MODULE, TEST WAS NOT ADDED)-b@PdH~TT hh(h hh8hh=hh hh h h-c@P; h\hh-hXhh5hlhhh'hhhhBhhh$hphhh-d@P Ehahhhhh"h;h?h{\hh@hRh hhhh)h1hhh-e@P5hh~`-fPADDDT1-gPQ8PKUPQ8PREPQ8QINIQ8QX qQ8QENDWTREADNUMDT1GTPDT1CCSGETALVDT1pPMEDT1(APMDT1RESDT1]AREDT1-hPDSPDT1-iP PtALVDT1 DECK-ID S02 CCS 2.0 SUMMARY-132-k@P000  l!T  l  d !1 h< n  -l@P, d !Ȍnn nl l lÀ-m@PLȶl$H!TT h h h h h h h h\h\h\h\h\h-nPALVDT1Q-oPQ8PKUPWQ8PREPTGTPDT1-pP PAPMDT1 DECK-ID S03 CCS 2.0 SUMMARY-132-r@P00 h '" h l##  ! d !fh!܈ h n -s@P.-t@P7 d !FȌ=n h64nر 1 ! h#"n-u@Pb؞ 1 nnlܼܻܼܻ޺޹ -v@Pl/H,TT h h h h h h h h\h\h\ h\ -w@Ph\h\h{N-xPAPMDT1-yPQ8PKUPQ8PREP-zP PjAREDT1 DECK-ID S04 CCS 2.0 SUMMARY-132-|@P 0 l  d !5 h < n -}@P" d !nn  n -~@PFȽl HTT h h h h h h h h\h h\h-PAREDT1K-PQ8PKUPQQ8PREPN-P P,AVMCKV DECK-ID S05 CCS 2.0 SUMMARY-132-@P**.*CATLOG* NAME , OWNER ` PP*B*K*V*E*J008 *Z,6  9hhAhW h: h6hڨۘ֨֘hf & 1% T\0ȸ ȭh h hhȬ h d)Ȱ!LT*'* Ȣ T  h3Ȕ \ df.n/n0n )"\Ո dddTQܱ \nTTd"\ L % ɜ l ڜ d-є   p4d,h ȘЄl̳ T{̪ Tو%̖ j̜  df 1 l  ̰  l %1d dd):T*'\*܈%O dT*ӈ\*܈%* ~ d22T l% T\#\H"h"hhTZx` ******H>H&H#  Q  ` &T   #@HH jv   qHh  n  h*LIBEDT *K,I6 *K,P8 *P,F,2,RPGFIL *B 'R9CNTR' *B 'R9ROOT' *B 'R9RPRT' *B 'R9SAVE' *B 'SYSMSG' *B 'CREATE' *B 'FMCALL' *B 'STRACE' *B 'RPGOBJ' *B 'R9ELOC' *T *K,I8 *N, ,,,B *K,I6 *Z *V *END 6 GhhT[`a #T_ h h  hڈ hמ  1 hh h Z1hh \ɋf\`a "\_hHTT h hh h 8h #h h\h\ h *CATLOG* READY TO INSTALL MASS STORAGE I/O ERROR REQUIRED PROGRAM NOT FOUND LIBRARY PROGRAM NOT VALID PROGRAM ON LGO NOT VALID TOO MANY PROGRAMS ON LGO LAST LGO PROGRAM HAS NO XFR INVALID CONTROL STATEMENT *CATLOG* **** ERROR ****  TQLj , h\jT HTTh *CATLOG* PROGRAM hh hTH TTh h hTTh ""D  hTTT #T H TTh\hT5hHhT46*,TT+ ! H TTh\huhTg]_TT^ #T]H TTh\h\hX/X+X'X# XX}XdXjXa"a X" XIb XFb XCa X@b bX EhTHy-y1y7y8hTHy1y2yy9y3y y:y; hߪhʬHhۨh    И    ȿ ȼ ȹس 1y I Hyy lA lyI HlA lyI HlA 묹lyIw HlAj l dh̓Ayyly BlCy lDlEy lFlGy lHlTHy1y4yy@yAy yy;TIm\y1y5yyByAy yy;THy%y&y'yQyRySyVyWIH J22lG@H "< *S=:4l5 OPTION 0,1,2,3 TRACE-RPG RUNTIME OPTION E ERROR STOP ONLY T PRBDPCH DECK-ID S78 RPGII 2.0 SUMMARY-126-@PTZ RBDFIL-PRBDPCHRBDSEG-PRBDPCH E10 *T*T PPP *RBDPCH* O/P UNLINKED RBD PROG AND SUBPROGS ` DUPLICATE ENTRY POINT  P N  d-WԘ hTֈ% h f_Ę1hhȻ  dhRhH7 ȧ1T& hȝ d l!(qh  h \ӔF  l gdܸG n d d- d dd!K d _ > l n d ld`dadTH !d4d5d6Tֈ.  lKH ̳ ̨ d \9: TT&)lT҈H‰ \)l 9dДF  l\9H‰ \T "\׉ `l̶ ) d d dGf 1dddTֈʼnHD  d G"\ L d dd!@dd d_ , 1   n7̾lβdIdJd\T&̾ G d̝d d΍n 1 n l 81\HE U l N"\ĉ ( d dd!dd d_  1 ̝ l̴l lθnܕܗܙ 1G̣ l 81^d̡F  dIdJdK *T NOT FOUND IN LGO FILE BINARY OUTPUT STATUS ERROR NAM BLOCK MISSING DUPLICATE ENTRY POINTS ENT/EXT TABLE OVERFLOW PROGRAM NOT FOUND IN LIB *RBDPCH* OUTPUT COMPLETED *RBDPCH* **** ERROR **** @ hT֋Ë`Th\Ë`\h , Sh\`\!h ,Sh\Ӌ`\T HTT h2 FhhhhT23 #T&4 h h hܞ  1 hh h Z1 h h  l\Ō23 "\ƌ4hHTT h hh h 8h #h h\h\ hH"h"hhTZ` ******X/X+X'X# XXXXXa"A 5""4"" XIb XFb XCa X@b bXr""9Xsa"A 5""4"" Xb Xa f"! 6"b!b$"A1f" XbH("Hh 5""4""H"" b b  X XӍ͍XX΍ҍH Lbb@ H `Hh Hq``Hs"ܠ`Hs"ܠ" hz8 D@000000 000000* $$MOUNTS {{ {{c{n{yzzzzz{8z{Az{Cz{K{Mz{V{zzzzzzzzz UNRECOGNIZED PARAMETERS INPUT ERROR. WANT TO CONTINUE? FILE NAME IS MISSING FILE MANAGER ERROR MISSING PARAMETER.EXPIRATION DATE WRONG LENGTH. PARAMETER TOO LONG. CODE NOT A OR B OR E .T|yyyc8T|yyy["Dh;HT|yy[ PTHz_)y[gT| yy/* Ah$ hHT|yFy-(HT|yy RBHHH #hkT}ny[(hhT}3 !` /yhh\FX6 T|yT|yZ]T|qyy,y,y'T|ynT|yT|ycT|yZT|yyyhh ?T},-?/h)%A@0h h hT}3   T|z,_98(h9:*h=>.h;+hAB2hؠ=<,hh2hy5h hh0hy2h h h1hy-h h T|zѠ0  T|z !T|z! #2hȲ01h Ah  h ȥhHT|1 T|z 6T|z! Ay>h Ah h #1h # 2hHT|hXhPDhK hHHOHNEhBA h>>Bh7Ah8X h0T`|S05"-,h)( h%% h#h"hT`|SH! 1 h  @HLX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh` Hdddh]]ddhUT%rJE"4hE@+; 52 H/H-+(!!n!  ةFA h &Ah}'}( h-h-Dh(DBh&H&H% Bh0$hDl Ȉ QH  @ , hHhDhShShhhhCd h hH hhhhT}3h̘  ØؽغT}}"ȶbȱbȭbȬh}lȡ`Ȝب Hh`31hHR4 "D"h$H" aAA bDbb bDbb" ba@~ 6MOUNT -SELMU -CUDDLY-CCSBLK,~CCSCST,CCSGET,CCSHXA,CCSMVA,CCSPUT,CCSPYT,CCSTIM,ICALJL,IDATVR,JULCAL,GETACR,GETACF,ICCSAD,PUTACR,.^THyyyyyyyyH d SELECT MULTIUSER FOR RPG RUNTIME REPLY 0 OR 1 (RMUCF0) SMALL, MOST LARGER, ALL FEATURES OF RPG FEATURES RPG INCLUDED (MOVZ, BIT OPS, MAG TP)  PfCUDDLY CCS 2.0 03-13-78 -@PX% ! h h h/hNh*/h/hhhh ވ-@P+j q hhj A h h/h̺/hhX0b -@PVhXXRhbhTLk\^hXh ?h Sq X~Q-@PTH( #Xb!h.hi TLX-X %$h-@P?XN JhTLX 00 ERRORS.)G-@P MON END/ 4"10-*#  -@P`H*'"`!#% DCK MRG CPY END DEL I-@P NS REM CSY HOL/ )Rȝ؛ XXhph4h h?X THU.R-@PKTHo.R1`b! "$Ƞ g" g"aXe-@PvXa  Xm Xd h  ->j qh" hh TF-@P T\0 0F 0 04 T\ dbb"` hB-@PhBXX ( 2//h/ h, > , h'$ F$h!h X-@P 6(` 2 aaضص-@P1/Q/h:h:.h TL$1OHXhhTL6 9 ` ****-@P)X-h3 h,X?Xh"TL-@PTH #X!   REWIND LU 0054H}Hzq-@Phs h+h#X'XH XH 0F 0HhheX 0F 0H 0F 0-@P2**HH,4&h!L E *n Q 2b(1b)0b*b(-@P]b)b*TLg.$ h  0X"X"X  ha _X< ^X:-@PHV hV LK ! _X#E X A % h; X _X5 1  &X -@P6  h+0X h&*$H"cll-hhNXFTL-@P#%UU% _X _X" Xh %L -@P h H XTL#hh hdh hȷ  h-@P4TH.Lh -n q hhh3hh-@P_THh !1 !"  X  X-@PrrHprmH lX hMg  _hJ_E hX?QHOd lJH lF-@PE0hE  _ 3?e 81  0H/%.!+h*}"hP^1 `-@Pb= "$Ƞ g" g"aX 2 UU #UU #UUhX!X-@P  =Xh7hNh#h ?XT`DTH7.R-@P6hXXoXXX X hXXX hX-@Pa X حX XXטwԘtјq ihh-@Phgha_]X` XfɘHŘC-@P> h^h[hXUhShPh)ihghehEhCh-@PCh hTL.-`P -@P !-@P#-@P%&X h뛠?!M h XTLE.lh.@PPw .hXX) FhTX\X TL{..@P{} 0 jn Q  hTL.chM^h_XbYXIȧ.@P hw hh*COPIED*X hhi hhh_h4/h.@P/hM h`hghh8h5hhhhhhhiXeX ( .@P   pho lm 2 1( hd Fla.@Po/hkV/hR"Y/"HU ZGWM UX=EXXXR.@PAXXdX hh`"aaaȹ XشX2X ˜ X*X^X.@PlXY.@Psv. @PvR. @P>. @Ph`Hh`HhH XXnX. @P hXtXXXohXX^XXeXXXXSXXZXȨ! ȣ. @PޘXXȚ1 Xȋ1X}XȌhȋhXXXpXX؃XX.@P %X hzXX}XX uhSh" hn@"XX.@P4XXRh0h hKaa"aaa9'?S\X"5hh.@P_ h.aa, X,hRXK$X) aaaX!8X^hTL .@PXX.@P>鑘RH H% bbhTL.o b.@PbTL1 **]hhph ?X2T`DTH .R.@PhTH.>1k`bm "$Ƞ g"Ⱦ g"ahhX}.@PahTH.RTL'.RXhHXbbX .@P= .PCUDDLY.PCUDDLY@P h   l .@P 1 lH TT h\h.PAVMCKV.PQ8PKUP%Q8PREP".P PAVMVAC DECK-ID S06 CCS 2.0 SUMMARY-132.@P@??@. @P@ @ .!@PKhT !JAh\ !C h6 h @h # `hʾ' ,."@PF#Hl!hĜ "lȽ`h l h l .#@Pn l l!@ HHTT h h h _h\h\h\h\h\h.$PAVMVACx.%PQ8PKUPQ8PREP}AVMCKV.&P PBLKDT1 DECK-ID S07 CCS 2.0 SUMMARY-132.(@P h7n.)@PH TT h\h.*PBLKDT1.+PQ8PKUPQ8PREP.,P P@DEBDT1 DECK-ID S08 CCS 2.0 SUMMARY-132..@PTz TT./@P (5H0 ID=,I4).0@P\z ( h 9h\.1@P".2@P&\.3@P((25(1X,Z4)) .4@P.H TTh\ h\h.5PDEBDT11.6PQ8PKUP7Q8PREP4Q8QINIQ8QX Q8QEND .7P PQDELDT1 DECK-ID S09 CCS 2.0 SUMMARY-132.9@P.:@P .;@Pd.<@P.=@P.>@P .?@PY INPUT=.@@P lh h   h  "&.A@P9 d &TZMT T?.B@PM(36H DELETE TEST IN PROCESS. THERE ARE ,I3,26H TESTS CURRENTLY IN TABLE ,/,42H ENTER .C@Px3-DIGIT NUMBER OF TEST TO BE DELETE/) .D@PTHh%$hH$d !  1.E@P\Z\\-.F@P(26H TEST TO DELETE NUMBER IS ,I3,43H TYPE Y IF CORRECT, TYPE N TO ENTER AGAIN.,/) .G@P\̧ l .Tl8ldd7<.H@Pdn.I@P"ld6%H"TT hh h hh h h\hhFhph\h.J@PMh.KPDELDT1-.LPQ8PKUP3Q8PREP0Q8QINIBQ8QX HQ8QENDKWTREADGTPDT1.MP PDPTDT1 DECK-ID S10 CCS 2.0 SUMMARY-132.O@P+.P@P/(.Q@P)**%%.R@P2l> =2 h7  h- hT/ hhܘ!/ (1#TZ.S@P]t hȝhT.T@Piؖ (1T.U@Pt(40A2).V@Pw h\/fدȬ $Ȣf\Zt lh\.W@P (1\Ȓ \/)l\Zt lрh\.X@P (1\. d,z\Zt\*\ lHTT h h\hhhh.Y@P\hN.ZPDPTDT1.[PQ8PKUPQ8PREPQ8QINI[Q8QX gQ8QENDoBLKDT1J.\P PUDSPDT1 DECK-ID S11 CCS 2.0 SUMMARY-132._PUTACF,RPGDT1,ADDDT1,ALVDT1-jAPMDT1-qAREDT1-{AVMCKV-AVMVAC.BLKDT1.'DEBDT1.-DELDT1.8DPTDT1.NDSPDT1.]EDIT .FILERR.FTNDT1.GPMDT1.GTPDT1./@P.`@PM.a@PS.b@P\ .c@PJ.d@P+NULL.EQ..LE..GT..NE..WE..OS..e@P;.AND. .OR.  .f@P^T* "0hT.g@PnMJȹ(h\.h@PuNKȲ!h\.i@P|OL h h hTZT\J\K\LT1.j@P(/,/,34H DECISION TABLE TEST NUMBER -,I4,10H LVL - ,I1,10H, NLVL - ,I1,8H, N.k@PP - ,I1).l@P\R%.m@P(/,64H PRM NUM OPERATOR VALUE 1 VALUE 2 CONNECTOR ) .n@P* lI dQL"TGMT9DG:9  dR dT: $M dU .o@PdV  l lTZlTQdW9*h\.p@P=.q@P@ dCh\.r@PI 1 lFh\.s@PV 1dX8:h\.t@PgT.u@Pl(8X,I1,10X,2A2,6X,1H*,3A2,1H*,5X,1H*,3A2,1H*,7X,3A2).v@PQp\Z"̯h\.w@P̩`h\.x@P\$.y@P(/,31H NUMBER OF RESULT VALUES - ,A2,22H, CURRENT POSITION - ,A2).z@P?hTl.{@PYh\.|@PSZTZh%\Y$\ d[ dW dXT)Z)l9̖ hT/.}@Pܐ.~@PTj.@P(15H RESULTS - ,2A2,9(1H,2A2)).@P \R+ .@P(/,12H END OF TEST,//).@P l.@Pg".@P"]l.H+TT hgh] h)hh\ hh\hhJ\hChhh.@PM?hh\h .PDSPDT1(.PQ8PKUP.Q8PREP+Q8QINIQ8QX Q8QENDGTPDT1_CCSGETBLKDT1GPMDT1NUMDT1.P PEDIT DECK-ID S12 CCS 2.0 SUMMARY-132.@P .@P9 -0.@P99/99/9999999.999/999-9999-99-9999.@P/ /"+ "&h h hh!+ΈhT`.ۘ   hT.@PZ.`.@Pbh\`.h\.`ػػ.@Pt H hȝ!h\`.Ȩ ׈h\`؜h\,. 1!.@P. # l 3l\.,̰ hT`++\, HTTh.@P\h\hhhhhhhhh\hh\hO.PEDIT .PQ8PKUPQ8PREPCCSGETNCCSPUTZCCSMVA.P PFILERR DECK-ID S13 CCS 2.0 SUMMARY-132.@P.@P(#.@P_7.@Pb?- .@P FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . .@P)CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GE.@PTTS UPDRECDELRECCOMFIL.@PiT(T% ! ! , h\)h_`_ Kh .@P\bdcd 9hTfaggghHTTh\h\h\h.PFILERR.PQ8PKUPQ8PREPCCSMVAjCCSHXArWTREAD.P PFTNDT1 DECK-ID S14 CCS 2.0 SUMMARY-132.@P.@P.@P.@P.@P.@P99.@P h h6 fT k h dTh h.@PF!(TȿhȢ  (hT.@P] (h ș j (hȒjت.@PpT  \Ș #T d\ 6.@P ll.@PHTT h\h hd.PFTNDT1.PQ8PKUPQ8PREPRTVDT1.GTSDT1hUhmhh h\hY\h+\hh\ h h h\ h h' h{.@PT hz\ h hL ho hn\hhd.PPMEDT1#.PQ8PKUP)Q8PREP&CCSGETCCSPUT.P PHPGGEN1 DECK-ID S21 CCS 2.0 SUMMARY-132.@P.@PNY.@PRPT00019.@P x.@P .@P D.@P /@P/@PALTEQNEGTLTGELERA/@P"/@P A /@Pf/@Pd/@P/@PT/@P PRINT DATA NAME LIST? ENTER Y OR N / @P SAVE GENERATED REPORT PROGRAM? ENTER Y OR N / @P2 ENTER SORT FIELD NAME (KEY1,A,KEY2,D (CR)) MAJOR TO MINOR A(ASCENDING) OR D/ @P](DESCENDING) MAX OF 3 NAMES PER LINE/ @Pq ENTER REPEAT TO REENTER ALL SORT FIELDS OR ENTER C TO CONTINUE OR ENTER A TO ABO/ @PRT /@P ENTER LEVEL BREAK NAMES (LVL1,LVL2,LVL3 (CR)) OR ENTER REPEAT TO REENTER ALL LEVEL /@PBREAKS OR ENTER C TO CONTINUE OR EN/@PTER A TO ABORT /@P SELECT RECORDS. ENTER ALL OR (CR) /@PC ENTER Y IF ALL CONDITIONS MUST BE MET FOR SELECTION ENTER N IF 1 CONDITION IS SUFF/@PnICIENT FOR SELECTION /@P ENTER OPERATION (EQ,NE,GT,LT,GE,LE,RANGE (CR)) OR ENTER REPEAT TO REENTER ALL SELE/@P$CTIONS OR ENTER C TO CONTINUE OR ENTE/@P8R A TO ABORT /@P? ENTER DATA NAME FOR COMPARISON (NAME1 (CR)) /@PW IS 2ND COMPARISON FIELD A DATA NAME? ENTER Y OR N /@Pr ENTER COMPARISON VALUE (VALUE1 (CR)) OR ENTER RANGE (VALUE1,VALUE2 (CR)) OR ENTE/@PR 2ND DATA NAME (NAME2 (CR) /@P ENTER DATA NAMES FOR RPT (NAME1,NAME2 (CR)) OR MAX OF 3 NAMES PER LINE ENTER RE/@PPEAT TO REENTER ALL DATA NAMES OR ENTE/@PR C TO CONTINUE OR ENTER A TO ABORT /@P ENTER REPORT TITLE - 30 CHARACTERS MAX /@P ENTER REPEAT TO REENTER REPORT TITLE OR ENTER C TO CONTINUE OR ENTER A TO ABORT / @Py INVALID RESPONSE REENTER /!@P NO PGM NAMES AVAIL CAN NOT SAVE UNTIL RPTPGM IS PURGED RPT000 IS USED /"@P LAST PGM NAME AVAIL. PURGE RPTPGM BEFORE ANY OTHER PROGRAM IS SAVED /#@P INVALID NAME XXXXXX REENTER ENTIRE LINE /$@P NAME EXCEEDS 6 CHARACTERS REENTER /%@P EXCEEDS MAX OF 3 PER LINE-1ST 3 ONLY PROCESSED /&@P NAME MUST BE FOLLOWED BY AN A OR D REENTER /'@P. # OF SORT FIELDS EXCEEDS THE MAX OF 10 ENTER REPEAT OR C OR A /(@PO # OF LEVEL BREAKS EXCEEDS THE MAX OF 3 ENTER REPEAT OR C OR A /)@Pp # OF OPERATION CODES EXCEEDS THE MAX OF 10 ENTER REPEAT OR C OR A /*@P VALUE DOES NOT CORRESPOND TO DATA NAME DESC REENTER /+@P VALUE EXCEEDS THE MAX OF 13 CHARACTERS REENTER /,@P INVALID OPERATION CODE REENTER /-@P VALUE 2 NOT GREATER THAN VALUE 1 REENTER /.@P DATA EXCEEDS PRINT POSITIONS AVAILABLE ON RPT REENTER ALL DATA NAMES //@P QUOTE ILLEGAL IN REPORT TITLE REENTER /0@P, 2 VALUES NOT VALID UNLESS OPERATION CODE IS RA REENTER /1@PJ MUST ENTER 2 VALUES FOR OPERATION CODE RA REENTER /2@P? NEXT /3@Pe(0(06*V8tl/4@PsLJ.&0BBF84$.J2*<6/5@PRPTG,/6@P hȹ ȵ 1ȱ Ȭ ȧ Ȣ T1e18Ȗ/7@P0ØȏT1\1f0TK1 " d/8@P 0ԔՔ0""\3t/9@PK0ld0ddd0d0d dlT00 T/:@Pv^_ld0dd\3`̋ ! 13Tu̖l ̡l/;@P0dT\32g3d\ ddT/<@P l l h0 ddd0  2Ռ !Ќ /=@Pl\3\3.y @P"d dT1  T0 1ddddT39{/?@P0M- 1T1\1v0 ld0!1T/@@Px̬ ̥ l\1T 3v3j l l\̊   /A@P1\1\1x0J$ dT2\0 d1T( \/B@P0 1 l\0̳ 0l0 lnjlTY\3?3/C@PT0 d0 l 0h/D@P/E@P1\3T3h\  dl l\ l l /F@P@h0 ddl 2! !ό l\\3Oz3 /G@Pk;\10d00dd0 dd dT  T/H@P0 1dddd3TH{1- TT/I@Pv3l ld0!Tq1̬ ̥ l\\3v/J@P10D$l̦ d d!dTT0 /K@P0l0l+l \3\3?T d /L@PBl h0/M@PP/N@PPTT1i10 0ld0 +0Ôd)\)Pl l\/O@P{\1Cr10d \3ys1\1\9j/P@P\0̎ l 0d 0h̦.̡)̜$̗/Q@P̒0ÔTQT1U1~0 =\;\/R@Pp{10f01)\1\?1k0d00dd00d00T90/S@P '0dddT3{0-  \\3v3f/T@P R*f0+f,έ TT1Wl100Ô  f-/U@P1 }\1\r1q00 d002 d003 d001d00  d  d/V@P $ d dT  -  2 93 " lT) 9\/W@P3 \3}̺ l 1$ l0(T _1T c3,3/X@P ̯ d̔ l̠, l d\ 0 1 93 # d\8)/Y@P )  l 1 l lT0n3 " 0l1 \\/Z@P1 T1|07 !ݜ !0$ l̲ T)10), l\/[@P )10), l1T)), d1\)), d, d d/\@P d d̐!T )\) ! 4T T 1/]@P /^@P /_@P l̉$ l(\1\1J10T <30 " l01/`@P   P " P0$ d  T s)1)0~T 1))u/a@P 1/b@P 1d00dd00d00 " lT !1300dddT3 2{8-/c@P \ T 1T 3v3 ̍0h   1/d@P /e@P0 30 002 ̱f.0̯f/̯f0 0l/f@P /g@P1 \1\1m01\\S\1 d0dd0 d0 dT5 /h@P l l h0 dldd0d00 2 T6Sl14ml lodn dR/@Pl\<1Sl4ml 3 d d0 d0 l lqlrl\9O4s/@PO 10  dN dWdt du l휶" dUT3)UN /@P 1l\)UO4wO lT)1UOOT{3KK "hd06\?S/@P1+l4mlxd0Iyd0JzR dK3T< 0 " ld|Td01^\^pS4}S/@P1V\_4` ~W " lW lu  d1U\)U|4w| dM/@P& 2̻ l l  l1T)U|4w|l0hd6\-Sl4 mlx/@P0dI0ydJzR dK0 " l̩ l̪ ̣  l\)U|14| ' dNT/@PNw4 "|l\NU4l 1( lW  dUu    l\1)U|4/@P| 'l\Nw04 "l\NU4̘dD0̙dE̚ dF/@P /@PdMhd06 l1T)UO4_O\BSl14mloR dndd dt/@P0H(lllllll/@PsllҔu ̾ll̺ll\1O4sOιd FdMhd/@P6d8T)nS4vS\E1Sl4mld0Dd0E\nS4Sll\/@P<Sl14ml\nS4sS lHl̼ld0<d0=nd0>\6Sl4ml/@PR $Ȕl̗lo ld:\01Sl4mld0Nd0O/@PW "lA dt du/@P)/@P)/@P,/@P0, dMl dVld!N0hd6̬ d7TnS4/@PWvSܐќ !\n1S4{Snœ ?\nS14S̵ 2,\0Sl4/@PmllllR ̳ld9rd:\<Sl14ml0dN8dO/@Pll̓l\0Sl4mllldM) 0hd6TR0Sl14ml/@Pllllld8̿l\ESl14ml0dD0dEl l\0/@PSl4mlll&l̸l0d<0d=\6Sl4mld7l/@P.d9ld;qdA@lidM dW d d dR0!.8d6T/@P1YWO4O0RdNT?NlTL01^\^\4\ l l) /@P0d4l8 d/@P!/@P/@P#/@Pl/@P/@PlH /PPGGN2E/PBINASCnASCBINfPUTS CCSBLKCCSPUTCCSMVAYREADR CCSGETGETS q/P PHPGGN2P DECK-ID S23 CCS 2.0 SUMMARY-132/@P/@PT/@PRPTP/@P F/@P/@P EHDR 3 40 IUTIFILAA015 44 HEADERBB02/@P/@P54,0 2 'H& CHLB01 303132 0 T0TRCN5063LNT 20 AROUND /@P30/@P121 TRCNTHT1931632KLVL HLB !/@PLVL DL/@P8 1 LNCN3ENNDLR/@PPRIN OE 11' .TOTALS "( 2'RECORCOT' Z%'FALOTS'8 R0ZDR,1'PAGE' P,2 DAT UDATE Y,3/@P$ 7 ' 8 A/@P, // /* /@PUTIFIL IC F 80R04AI 1 DISK /@PPGEXTR IPE F 132 DISK /@P-PRINT O F 132 PRINTER/@PAC BEGIN TAG  /@PZC 50 GOTO AROUND  /@PsC MOVE HDR1 UTKEY 4 /@PC UTKEY CHAINUTIFIL  11/@PC MOVEAHEADER HDR,1  /@PC MOVE HDR2 UTKEY 4 /@PC UTKEY CHAINUTIFIL  11/@PC MOVEAHEADER HDR,2  /@P C MOVE HDR3 UTKEY 4 /@P"C UTKEY CHAINUTIFIL  /@P;C MOVEAHEADER HDR,3  /@PTC SETON  50/@Pm MOVE SETON Z-ADD TAG ADD SETOF MOVEL COMP GOTO EXCPT/@PRPTG,/@P2T304 "T14H HdT4dYdZd[ ^d/@P]l dd6 , d ddn 1 1l0@Pl0dA0dB0dG0dHlld7d8d9 d;0@P0d=|lldKdLdMdNdOdP]l lT0@P4llHEd l d d d d!F̜d6\0@P 4 d1\S4T^\^14ShT0@P*̈́0l\01^\^4̼l l̲ lܶol ll\A14̧0@PU ̤ ̡  dD 'dTI4 2l܌ 1 \d  d0@P!Q$ l00d00 d00!dT3{ "0d6Tm0@P4l00dE00dF0dIdJ\14\14a ܬ0@Pll\p140dN0dO0dP0dQACl J l!E0 @P̡l\s4dDlT00^_l $ d\1T( 0 @P,\0^T^14\14ܺgdd6\s14̶l0 @PWdIdJ0̰dK0dMll\s14lllll0 @Pll0d<0d=0d>0d?\v4l̥ld0:\s0 @P14d0Dḷllv  2K d"Q dd0@Pd6lT1s4ldIdJ0dK0dMd7Kl 0@PH d!Cll\s4̛l̽lT^_l $ d\0@P.T'3\^\^141\4ܺv d0@PYld6d:Ty4dDdIdJd0Kd0<d0=d0@P>\140 7d l!/̽l̿l\y14lT^0@P0_d0E̢lll\4\^14j܄ľl\|14d0@PddTc14F l0d6\|4lll\0@P14&ld0<d0=d0>\v4&d   d0@P0"̼llll 0dTf04\4$ d\ 940@P[ ddd1T4sld06d:\m14\1 40@P0dIdJl̗ Ll̾ l\p4̳l̰ l0@P ̈l\14dp, l̬l̓ l\m4A d0@PM\ 14̠l̢ ll@̽$ l !2d06Ԍ8 d:T0@Pgm4A lȜ1\ 4dI dJ-lLll0@P2΄ l\14d0Dd0Ed0F0@P3O0@POjd̩l0d<0d=0d>\v4d 2l "J0@Pz̆ dd dd60d:Ty14llldIl0 @PdKlll 0 d\14lq0l ; d!0!@Pv̸l̪l\y14̦dDT^_dE̠ld0J̼d< 0 l\40"@P1\^4/0 ;Ddd6d:T4̊l̋d0 =̋d>0#@P&\4ld\4\14܇̪ +Xl l\0$@PQ4l̪ d 19 l!5̤ld8d9Ԅld0%@P|<slXl\y140dD0 Ll̇ld<d=d>T4[dD_l}l0-@P J lljd6d8md9\14d0Djd0E lJ d6\p0.@P u4dNFdO h1d6 d<cd=\v148 0/@P u h!q $h!h hl06d70d:T 9s00@P 4dDdIdJdKS 2 h !,l8d701@P d:\s140dD0dIT0^00_dJ dܒ 0h 02@P !l" ͘f h_ hUh lud6 d703@P LD lT y4zdD1 cdD) \dE!  `dF04@P wd0ILd0Jmd0KSd0<Pd0=Md0>\4 N h 05@P h0 !Dd06Fd07 d0:\y4dDT ^ _dE06@P d00I_d0Jd0@P %4Rd0\^\1^4Z h1T\S4N h HTS0?@P P:  U hR; h8J hG qh#, h)$d06d0@@P {;d<QdA hfd^d_\^14 h0]d68MdH0A@P dI]dJZdKWdLdMPdNdOIdPl h/d60B@P0 dC0dD0dE00dF 0 hT 140dH0dI:0C@P 0D@P 0E@P 0F@P d06d0;d0<d0A h|  Ahv0d60dH0dI8dJ0G@P (dKdLdMdNdOdP hThg hEd n h?0H@P0 S ;!h0d6hht\4T ^T 1^47R d\0I@P ~^\^140 h\S14 h1T NS  h0J@P h h h hv:d6d; d<(dA h0K@P ]0$d60dH03dI0+dJ0dK0$dL0$dM0dN0dO8dP0L@P dQdRdSh#2hyd6dCdDdEdF0M@P0*dH0vdId06d0;d0<cd0=Yd0ALhC0d68dC0N@PUdDdEGdHddIjh%d6dHdIdJdK0O@P0dLhrd06d0Cd0Dgd0Esd0F8d0Hd0Ih0P@PPd6"d;0a@P5d0H-0bPPGGN2P0cPBINASCASCBINPUTS 4CCSBLK@CCSPUTDCCSMVAREADR CCSGET 0dP PHePGGEN3 DECK-ID S24 CCS 2.0 SUMMARY-1320f@P0g@PT0h@P0i@P 0j@PF 0k@P * BEGIN EXTRACT0l@P RPTEXX0m@P * EXTRACT COMPLETE 0n@P * BEGIN SORT 0o@P!INPUT=PRFPG0XX0p@P(DSORT 0q@P+FN=PGEXTR,CCS20 0r@P3F2=PGEXTR,CCS20,0s@P;OP=T,F,A0t@P?KF= 0u@P}SL=I0v@P_ * SORT COMPLETE0w@Pg * BEGIN PRINT0x@PnRPTPXX0y@Pq * PRINT COMPLETE 0z@PzPGCNT20{@PUTIL0|@PFLUSH,HO=LOCL,DO=-0}@PEX0~@PMNUPRO0@P@0@PRPTG,0@PT3 "Tdd'hT1h\ 0@Ph\h \1h\!h0@P\(h\+1h\3*d\; 60@P3l} d d̰![ d0 dd! T1  V0@P^hT0@Pbބl l d$  lT1ST0^\1^ ,l0@P̪ lT0̢ lܢ$ d E" El\?\? d0@P, l E/ 1l\l\}l\_0@Pl\g1lTxnl\q l\0@Pz1l\!1%l\11l\10@P9>du\1Jli\1Vl] d80@PZ0@PZlHN0PPGGEN3`0PPUTS CCSBLKCCSMVACCSCSTNASCBIN`BINASCCCSPUT0P PAPGSEDT DECK-ID S25 CCS 2.0 SUMMARY-1320@PCAREPEAT    l 0@P' l lHTTh\h h h h0PPGSEDT/0PQ8PKUP5Q8PREP20P PjPGSJR DECK-ID S26 CCS 2.0 SUMMARY-1320@P000@P hj 1 h hh h!TT0@P= hh h=\\ؿ0@PSHTTh\h\h\h\h\h0PPGSJR V0PQ8PKUP\Q8PREPYCCSGET-CCSPUT20P PZPGSJL DECK-ID S27 CCS 2.0 SUMMARY-1320@P0@PT hh h?TT0@P/h h=\\0@PCHTTh\h\h\h\h\h0PPGSJL F0PQ8PKUPLQ8PREPICCSBLKCCSGET!CCSPUT&0P PHbPGSLST DECK-ID S28 CCS 2.0 SUMMARY-1320@P0@P(0@P0@Pvw D0@P ")0@P0@PPGGEN REPORT GENERATOR DATA NAME LIST 0@P 0@P 0@P STARTING DATA EDIT DEC SUB S0@Pl l1T l l 1Hd%0@PSZ0@PZH0PPGSLST]0PAMONTO%ADAYTO/AYERTO*BINASCdREADR CCSMVABCCSGETCCSPUT GETS IFWRITEDISP CCSBLK0P PFPRTDT1 DECK-ID S29 CCS 2.0 SUMMARY-1320@P0@P0@P 0@P 0@PtNULL.EQ..LE..GT..NE..WE..OS.0@P.AND. .OR. 0@P,,0@PCCS 2.0 0@P d h h h hTZ h ,̀hT0@P 1\\\\T'0@P(1H1,43X,5A2,37H DECISION TABLE CONTENTS DATE ,A2,1H/,A2,1H/,A2,I5)0@P\R A0@P (122H0 TEST LEVEL NEXT NO. OF PARAM PARAM PARAM PARAM PARAM NO0@P8. OF RETURN CURRENT RETURNED VALUES)0@PMTRT90@PT(106H NO LEVEL PARAMS NO. OPERATOR VALUE 1 VALUE 2 CONNECTOR 0@P VALUES RET VAL  )0@PT d!_ d ,hWTf8 1 ,0@P9h ,h Tr0@Psr  d ,h2`s-f ,h(t%n $ l ,h`fT ,0@PhfU ,h fVܞ0@P l ,ḥfSܙ 1 ddd" dT 10@P, KKdH$d ld d d 3 d)d 0@PW\ lhT0@Pe\ܴ 1Ϝ 7 !0@P} l̙ &TNZET\\\\ d $ h\0@P 1 d ,h\0@P 1 d ,ߌ8h\0@P 1 d ,όSh\0@P 1̤h\0@P̟h\0@P dh\0@P 1T߀30@P(1H0,2X,I3,5X,I1,6X,I1,6X,I1,6X,I1,6X,2A2,5X,1H*,3A2,1H*,2X,1H*,3A2,1H*,3X,3A2,9X,A2,10@P1X,A2,5X,12A2)0@P$ "TZIT d , h\0@PB 1 d ,݌h\0@PR 1 d ,͌8h\0@Pb 1 d ,Sh\0@Pr 1 dh\0@P 1T&0@P(32X,I1,6X,2A2,5X,1H*,3A2,1H*,2X,1H*,3A2,1H*,3X,3A2,9X,2X,11X,2X,5X,12A2) 0@PT/ZL l€ hT50@Pܻ 1\0@P(104X,12A2) 0@PK0@P0@P d=0@P0@P\ZU\\\,0@P(1H0,17H END OF TABLE ,21H TOTAL TABLE LENGTH =,I4,24H MAXIMUM TABLE LENGTH =,I4) 0@P1@0H-H*TT hY hjhh h h hI h\hhhhK1@P=hhqhi1PPRTDT11PQ8PKUPQ8PREPQ8QINIQ8QX Q8QENDAYERTOADAYTOAMONTOHORMINGTSDT1GPMDT1CCSPUT#CCSGETc1P PoRESDT1 DECK-ID S30 CCS 2.0 SUMMARY-1321@P1@P1@P,1@P E "p8(d>h (  h hT 8 h h hܘ!) h\1 @P4     ؽT1 @POȴ س l1 @PYȮlHTThh\h\h\h1 PRESDT1^1 PQ8PKUPdQ8PREPaCCSGETCCSPUTI1P PRTVDT1 DECK-ID S31 CCS 2.0 SUMMARY-1321@P+"31@PDECTBL  1@P- l: 8j6 412h l.T( !*T( ! T(Ԝ !1@PX  hhƘ9 nÀ1@Pl ȺlȺlȸlHTTh\ h h h h\h1PRTVDT1y1PQ8PKUPQ8PREP|OPENFL@P h;;h:h   H(h hhhllҘ 1?@P5p8 0hp8(d 0hn1@@PLHTT h h h\h h1APVALDT1N1BPQ8PKUPTQ8PREPQ1CP PDISPLY DECK-ID C04 CCS 2.0 SUMMARY-1321E@P1F@P999999999900000000001G@P (1H@P 1I@P  1J@PENTER ITEM,CHANGE OR NEXT FUNCTION OR ACTION,RESULT,LETTER REQUEST,COMMENTENTER NEXT F1K@PUNCTION OR ACTION,RESULT,LETTER REQUEST,1L@PCOMMENTINVALID REQUEST, PLEASE REENTER1M@PJK;1N@P dB " Y<!9 =d0 d00d l)hTc00$$0 1O@P( " h 13T"33a``3`#1P@PCh  2h0x 2%h3Ta3bb ܔܓ1Q@Pnh\1R@P3sabbd\33abbh\1S@P3abb d"! ,{ y @sKJp0d(8d&T1T@P(13&a& ! j\3(&a1& "jκ 1? #̓1U@P lY d)d* kd$3TO3h$ l l1V@PT0xT0 PlClΑl dxd (dd $8d&1W@P\ %1Ts0ܿ1h@P)c1i@P.c1j@Pc d$  Bl1T3$"T1k@PQ~1l@P0~ ' Ty & \y & \ & & 3d!1m@P1n@PHTThhh\hhhh:1oPDISPLY1pPQ8PKUPQ8PREPREADR WTREADCCSMVACCSCSTGETACFCCSBLKACTEDTEDIT yCCSTIMCCSGET"CCSPUT\FILERRw1qPCLANEX}GETCHF1rP P`NMSRCH DECK-ID C03 CCS 2.0 SUMMARY-1321t@P1u@P1v@P?0#<1w@P 1x@PB1y@P END OF SEARCH1z@P1{@P dXWhl0h h " h  hTJ0fT13cJa h1|@P0FIf0> 1 h "ȽhT"33a`30``#T3K?00$$0  "1}@PqAT1v3Ja%0 % 1 dh\"1`30``#dl ,9\v1~@P1Ja0% 3@\x1\v3d\1T<33aww 0d 1@P0d\33"x33```#  d\31aw0w 1TK30?$00$ 1@P0  !Jv lT  3Ta < 93 $8\1@P ld !  lT13w3aw1@P%31@P3 d3TW"33a``3`# l l1T3$"T1@P4N1@PN d0 dX0dWH1PNMSRCH[1PCCSBLK8CCSMVA+WTREAD7READR aCCSCSTtGETS DISPLYCCSGET FILERRGCLANEXM1P PDAAASC DECK-ID C05 CCS 2.0 SUMMARY-1321@PAA1@P51@PQ04821@PU1@P6END OF ACTIVITY HISTORY 1@PBACTFIL CCS20  1@P1                    1@P,    1@P~ hhh h f0 1T10B$0$ "T33aw?a00wjd0 GT1@P3?$0 $  "T3aw33aw%% klT9VQ1@P$ dSl3\Oh0$̴  3\a13zVaz0%  d|A .l\1@P1Q0$̑ l.T30?$0$  "\33aw30aw%̣  1@P*lT6a53axndz T0xT0T3"33x```0#T S 98 )d1@PU ""T3 T0l  4\0 3T T 1@P!> !:T1@P1@P U ! d lfn ,3l\"3U``3`# l1@P1@P d} l lT3B}$"TT3$H1PDAAASC1POPENFLCCSMVA,READR CCSCSTGETACFGETS  CCSBLK9ACTEDT=WTREADADISPLY[ICHENTgEACTSQvEATRNG|PCPROC1PFILERRCLANEXCLOSFL1P P4PCPROC DECK-ID C06 CCS 2.0 SUMMARY-1321@P911@P0 h (hT3t3\d1u1\d100ld0dT1@P0H1PPCPROC01PCCSMVASAVTRN,1P PCHSCRN DECK-ID C07 CCS 2.0 SUMMARY-1321@PL1@PN 1@PN<1@PDL1@P3@,1@P5UH'1@P_1@P81@PADDACT CCS20  1@PSREQDL CCS20  1@P$UPHSTCM CCS20  1@P90Nl1E(1@PH 1@POT1aI 95 2!   \3cI  T1@P3zd33waw3\a33waw+d,d h fز 1 9T1@P$̼ \$$$ !0I T3a0$ :3T$ dI l̖ 1@PT0I$"06 \$I3$"T0Tl "T3\3TPbKK 1@P 93 !T0l d03(\cK ̳ l l̮S 1̩ ! , l1@P&G !A0Dd&=Ld' 8 dJ\1JMM  lT3(d3;ad%1@P0Q% 0#^lTzMa3bJb3T( 1T031@Po 3T(3?a\?33ag(0gK"h\1@P3&t03&\(33&u&h\38(&1@P&! 51@P3\a0ff1Tk700Id5 \3af40flgv 1@P`TI33``08f%T3Yaw30aw0w h<\0  dJ f 1T$1@P0$ !#% I T33a$ !3T$ \33tf8f1@P! l dITI$0"T ldH!8K찖8 * 쩖9 -̤9hT1@P3Lt8&1@PR& : 2g̏:h\38af1@Pff J 0d00dnd'     \3;(&1@P0e&0& l3T(30e' l  lldp4N,d 0d p< 0Ȍ1@PlT3T"33&``;`#1@P1@PTh01@P1@P0 4Tx Tq 6 3T'H$TThhhhh1@PhThf\ hlhv hf hh-A1PCHSCRN1PQ8PKUPQ8PREPCCSGETCCSMVALOPENFLPUTS CLOSFLFILERR(CLANEX.ICHENTDISPLYICCSADCCSCSTIDATVRa1PPIKAMTsCCSPUTEDIT SAVTRNWTREADEACTSQEATRNGPCPROC1P P&SAVTRN DECK-ID C09 CCS 2.0 SUMMARY-1321@Pr 1@PTI 3T{3a$$ 5T1 T$0"TH1PSAVTRN"1PCCSTIMPUTS CCSBLKFILERRCLANEX1P PcCLANEX DECK-ID C10 CCS 2.0 SUMMARY-1321@PEX 1@PTK03$\c$0\{$\3$\00$+ !@ h f 1T3<$$ !T1@P313+$0  <3T0$ 7 h h hT<0$"\3$T1@P\H1PCLANEX_1PCLOSFLOPENFL'READR 1DELRECAFILERRRCHAIN [1P  PwICHENT DECK-ID C11 CCS 2.0 SUMMARY-1321@P1@P DADCDFNARLCSEADSP1P2P3NQOASS1@P h9 1@P0!] > h0-80  h)hֈh 1ȿ Ȼ ȸ  ȵ 1@PLȲ ȯ  h ȩ   h0   l HTTh1PICHENTm1PQ8PKUPsQ8PREPp1P PPICHEKQ DECK-ID C12 CCS 2.0 SUMMARY-1321@PALL 1@P ] 7GH 0..  0/  h h ( h 1@P0  h 1@P9 1 hȽH TTh h1PICHEKQD1PQ8PKUPJQ8PREPG1P PPACTEDT DECK-ID C13 CCS 2.0 SUMMARY-1321@P hhT h h hTb0b h 1\0dd1@P. h h\0yyHTThhhh\hhhh1PACTEDT>1PQ8PKUPDQ8PREPAEDIT CCSMVA1P P`GETCHF DECK-ID C14 CCS 2.0 SUMMARY-1321@P hdl 2 h1@PhT1@Ph !h ( h` n - nn1@P=!@ HHTT h h h h h h\ h h h1PGETCHFA1PQ8PKUPIQ8PREPFICCSAD1P PPIKAMT DECK-ID C15 CCS 2.0 SUMMARY-1322@P 0h h h8T2@P hh!T   1L !H΀2@P6 h* h& h hȾh4\yȵ ȱ 1)ȭ !%̽ h \yآ 2@Pa1Ȟ h / dT2@Pz 9d̖ l̓d7THTThhh\hh\hphhh\2@PhmZ2PPIKAMT2PQ8PKUPQ8PREPCCSPUTCCSGETCCSMVAq2P PEATRNG DECK-ID C16 CCS 2.0 SUMMARY-1322 @Pm2 @PFGHJK2 @PLMNOP2 @P QRSTU2@PVWX2@P0Nh   0hT0zT000d\d0T3;Z[2@PB\\ 6 ȸhhm 0p T3af30f Y hT2@P0m\\33ad}00d0s h d %0̥ ̠ 8#^l2@P0} h0\a3bb0T h%\"l3T}d$_0lH0Y 7 4 2@PÜ 6T.2@P\3Ta3|T33|g30{g% % $0\0\00n 0 |T2@P3a}10\ Z 0\3Ta3\b * 7 #2@P" $0\ 0d\ \1a     T 2VALDT11:FCOLEC2NMSRCH1sDISPLY1DDAAASC1PCPROC1CHSCRN1EACTSQ2zSAVTRN1CLANEX1ICHENT1ICHEKQ1ACTEDT1GETCHF1PIKAMT1EATRNG2 COLECT2ACTADD34[@PMl\ 0̟ 3>\a33dds l0 l &  #2@P0x^l dT31ab0bT0 $\ \ T33aМ 2i PFCOLEC DECK-ID C02 CCS 2.0 SUMMARY-1322@P2@P**A $2@P2@P2@P^s2 @P C,2!@P"!E 2"@P&A2#@Pb&2$@P) B,%N,2%@P.OLPM2&@PY2'@Pc2(@P`#2)@P "2*@P2+@PdACTVERTBCCS20  2,@PsCOSIGNERCCS20  2-@PDAQUE CCS20  2.@PUTIFIL CCS20  2/@PT1"T3c$$ (3Tc3$"TT(0  1\T3a  d20@PIT33bd3ad\$ "T30$Ȥ 0 ̺ "21@P0d00d0Țd0T\30K<$̣ !#T3K0$̙# ̒ !;TK$22@P+ d fJ 1 d l1T<3$"T0̺d+̻d, d0 ] (d23@PV lhT1n . D Al24@PoT/ܸ 1T1.00$$0 %  !0T  d\25@P0dY\00dHT0($ l l l\$0"\ 0d d d0  T26@Pad_ d^  ;lr jl d f 1Td$̓ !"27@PT30?$0$ !0\$ d-0ޔ  1 l d lT?d28@P0$"T0E/d00?0d0@ d sd l nܩ 1\$̺ !)Tz3;?$29@PF̰ 0̩ ̣ !dd dT0$@ l l\$2:@Pq"\ lTK3$ d00a$ 1&\3$"\\30{$ (T13$"T\3-$ 2;@P&\-0$"\T`  *  , % 2<@P\'0\̓ " "e0 TA1$ l d T1$ l̍2=@P 0$ !c  0/ 0. ޜ  +d2>@P_dT33awa0w0klT33Oh$ ؔ    ֔2?@PH GH dd d0*̜  dT0$0$ % 2@@Psd&c 4 lx laT0 "0 + d_ "2A@P lT1"c_3Ja_ d f 1 dTv10s$ 0ld̮ !pT;?2B@P$̤0 [̝ !b l $ dT\1̐ T1Ja_1_%% 2C@P$̴ 1\  T ̎ 1\a  3\ܑ 1T2D@P3a33waw3Tc$3\$0\+t l lT3s$" T2E@P@2F@P3@\c33wawwdd d2G@P*R2H@PRTiK30$00$    ; 25 l T0= &T2I@P}b%2J@P]2K@P3\a33waw+d,d0T ìќ \+\] !=0 H2L@P)dn\n0Td0 34\"! 1b&w2M@P\T\"3T̼H&l\n1 1  ,2N@P df@fA d l < d6l2l " l2O@P.n  " dc  l l f0 1T18s$2P@PY$ "3T33aw?3awTS33?$0 0 l' % d2Q@PT}0\ 3TI 3T0$ $ llT0'$T  d2R@P  lddT\02S@P2T@P  6l lQ2U@P 2V@P2W@P2X@P $0.  5\$T?l ld00?/d0@? " d02Y@P2Z@P!2[@PT_3-wa0w̮  l lGl2\@P62]@PTa0T0y2^@P?2_@P2`@PT0I TK3$ d00*$ % dO A2a@Pd72b@P7c !%3AdBd $1d0&\2c13&2a& ,l\1Ae&A3a& l l2c@Pbllllled 2# l l-H)2dPFCOLEC}2ePAMONTOADAYTOAYERTOPGMIN OPENFLTFILERR9CLANEXDISPLYCCSGETCCSMVAREADR gCCSTIMWRITERCLOSFL2fPCCSPUTpICCSADICALJLGETS GETACF/NMSRCHCCSCSTICHEKQxICHENTDAAASCCHSCRNUPDREC"EATRNGPCPROC2gPEACTSQ2hP @P͜ \̾0n  T0D =0[  d2j@P\0y $l\33aa0o 0x0p x0 \ :T2k@P3f3f0\̒ i\33ad3ds l0 l & 2l@P$  #0^l d\3abbT0 l\dT0d$8_l2m@P0OH 8 5 !(T3\3a d0\ \00}Yl3\aḷlӜ"̱2n@PzlT30\d l0f0ܼ 1+d,d lfܩ 1T2o@P3ay3ays 1\3\33f3fklTd$T33Oh$8 d* 2p@Pd2q@P'2r@PL2s@PQ2t@P0!   T]2u@PX2v@P0qd0H*2wPEATRNG2xPCCSBLK*DISPLYAVMVACT h%\ "lT0}d̸$0_lHY 7̪ 4 6T 2@PgT13|3T|33g{g0% % %\0m\ ̙0n  0 0 2@PZT1} 3 0Z 00s \T3a      2@P \l\3b  Tb1\c 1\d 99 6 92@P3 %\00l\1e ̷ p̳  l\ ̩ Z l\ ̟ 2@P̛  T33ff3f l3*\f33dd d 0Ĕ 0&0  #2@P>^l0 df3\ ab10fbT0 %T0&T1  Ti2@P3id0\ n   3T,w)s 0![ \0 2@Pd00&y $\0T33a&3a&o 0y0p y\ ;\f2@P3fTS3̰ kTX3e   d00~f 10 d08d2@P l %0  #0^ld0T? df\lTG3l$Ô2@P_l0H 8̵ 5 !'0\0\a d\ \3}Yl\0al̰lԜ#2@P@̼d 3T\0l d00f 13Ta33yays \1; 2@Pk \33f00fklTd0$T30Oh$ d* l2@P!2@PV2@Py2@P2@P2@P2@P0!   ܱT 2@P2@P0qd0Hp2PEACTSQ2PCCSBLK}CCSGETCCSMVAXAVMVACCCSPUTDISPLYICCSADICALJL PIKAMTgCCSCSToIDATVRMJULCALDSAVTRNwPUTACF|2P 'DELQMST CCS20 SCRNFILECCS20 TRANFL CCS20 DLYASSN CCS20 ACTIVE CCS20 {*ˢ*\`**CC*n ^ ą Ĭ2*V*\2.g .Q.Q,\j?.O=.NY*̒.\o.M.M.M2.NάL.Qb.Q a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XTZbȰ#`X`!dB2 @rdR@`/@oH h HX  sD  1  : E /` `"i T}yy y '\yJyyy7T~ZTy|\yY\yZ\*T}yy̮ 2TIm\yJyyy\TyYyTHyyyyyyYyyyYdyyZdyT}yy yyy" 8 %C>(/,38H UTILITY FILE MODIFICATION PROGRAM IN ,//)(55HINPUT , "ADD" TO ADD, "UPD" TO UPDATE, "DEL" TO DELETE,,22H OR "END" TO TERMINATE,/)(24H INVALID CODE - REENTER ,/) (49HINPUT FOUR (4) CHARACTER KEY OF RECORD TO PROCESS,/)(9H RECORD -,2A2,28H- ALREADY EXISTS, CANNOT ADD,/) (/9H RECORD -,2A2,20H- ADDED SUCCESSFULLY,/)(9H RECORD -,2A2,30H- DOES NOT EXIST OR CANNOT BE ,7HUPDATED,/) (/,9H RECORD -,2A2,22H- UPDATED SUCCESSFULLY,/) (9H RECORD -,2A2,30H- DOES NOT EXIST OR CANNOT BE ,7HDELETED,/) (/9H RECORD -,2A2,22H- DELETED SUCCESSFULLY,/)(/,40H----------------------------------------) (/,14HR---,S---,W---) (/,47HCODE 1--CODE 2--CODE 3--CODE 4--CODE 5--CODE6--,24HCODE 7--CODE 8--CODE 9--,/)(/,4H--- )(/,45HNAME ISPHONE EXT CSUP QUEUES...)(/,46H56789012345678901234S# A J BE @BBPa-- dTu hX6 fZ hJ6 fő dȾdǾ dd9d lTƏ ld0 Tӏ T!  l̼  1# 1̴ Tc ḻ <987eonmlA@BA# dTW d<$d!5TKToE Tӏ'% \  7 !4:# d  l lTi-TF0 \ϏT N@SmPlTuT?T] l d/\ l\TQTE dF d \  \ W K\M ν θK  αK Tӏ\̽ Q̹  l d@m dT̤ ̠ TF̚ 0  l\ d!̛  d d*HdH**A $^sC,"  ^\ɏldTM!E A B,%N,OLPMl#&ACTVERTBCCS20 COSIGNERCCS20 DAQUE CCS20 UTIFIL CCS20 mn̟TH끸$LMTyey&& (Tye&$TT8ҁ 1\T}cN  dKTdfcf\y;& "OTyz&Ȥ  ̺ "RzdzdȚdT쀭\yMy>&̣ !#TyM&̙͜ ̒ !TyM& dL fyL 1 dM lTy>M&$T̺d-̻d.zɤO d_ (dN lԌhT}zM 0 D AllT̂ML1ܸ 1Tyz؁&& %  !Tz dJ\zd[\zdJTy& l l l\;M&$\ 2ed 2fd! 2dd"T cda d`  ;Qlt ll dL fy 1Ty&̓ !"TyA&& !\y& d/  1 l dM lTM&$T1dA2dB ddR l nܩ 1\y,&̺ !)TyzA&̰ ̩ ̣ !zdzd dTy&@ l l\,M&$\ lTyMy& dyc& &\yM&$\\y}y & (Ty M&$T\yy/& &\y/M&$\T8  1 ;  \ہс\̓ "k " Ty& l dM Ty& l̍ & ! 1 w0 wޜ wdR dSTcycymlTĀ{Qj& ڔ" ٔ! ؔ {IH ydyd d,,̜  dTy&& % dM& 4 lx laT "M  d " lTe Lc dL fy 1 d+Ty& ldy̮ !pTy~A&̤ [̝ !b l $ dNT}~NM̐ T=Lc ~N '' $̴ \~N~T8~̎ \׀cMM  \끓ܑ 1T~cycyTy&\y&\сՁt l lTM&$T\ހeycy!dR?dS dKTyMz&&   ; 25 l TD{? &T8 %\zcycy-d.dTìќ \Ձ\ށ_ !=zHOd\˃zTd 4\"! 1b&w!6?\zT\zT8zy̼Hl\z 1K  , dMff dN l < dL6lJܜl " ln "k |dR  l l fy 1Ty&& "TzcyAcyTy~A&  gl' % dMT8z\~T8~z K Ty~& $ lklTy&T dK  lMdRdTK\ȁ  6wl lQ $0  5\΁Tl ldA1dB? "k dTzׁycy̮  l llT8 zT8zz{TK TyMz& d,& % dMOK A !%3dd $d(\܁e(܁c( ,l\g(c( l lllllldR # l l-H)2?0# END OF SEARCH B  l dyZyYhl_h h " h z hT-LhTe>Lc> hKf@ 1 h "ȽhTH$cbbb%TyMzA&&  "mT=zx:Lc:' ' 1 dh\Ё$10bbb%EdAl >,\zx>Lc>' @\z\zx?-0 ^_Fh" ED.#n #l`*H s T h jظ 1 h " < )P d` h\ du̼ !T7w 9lwdRl̩ l  dyTuy\w̛  lzdRl{l d| d}\ɉw    !> ḷ l !& !/ l 9!/̫ !+̧ h$l !( l 5T7w l̻ ̵dl\|ygTJvT2tw  0l\\ ldd ds:\͉w  ld 9!. !* h|Ĉl̨ l 3\w    dy !T|y l F7̣ 4̠ l̜  0lTJvT2t ddld}ddd ds f) 1T7ww  l   l  l '\݉wl` .$ lLdid|l-,lLlll ̲ l,,܌lLlެll+,Ќld l ̓ l 'T7ww B > : 6  93 % w ENTER ITEM,CHANGE OR NEXT FUNCTION OR ACTION,RESULT,LETTER REQUEST,COMMENTENTER NEXT FUNCTION OR ACTION,RESULT,LETTER REQUEST,COMMENTINVALID REQUEST, PLEASE REENTERJK;$a dB "T Y<!9 =d dd l)hTye&&  " h 1TH$cbbb%h  2~ hBz 2% hBTcddܔܓh\cdd#dB\၎cddh\cdd d"! ,{ y @sKJpd*d(T=*(c( ! \*(c( "κ 1? #̓ lY d+5d, md&TĀ{Qj& l lT-zT؀ PllΑl dzd*dd $d(l   T*(( ̝h\*((̔l՜ njllM h hT T*\Í*cffδ dl d 2 zd l6d \ҁcc l d(TH$(bbb% l1 $ ld dd̒~h̎~h ̊}hT,4h0 ~ l L$l\끎cgg̏ lT-z\$(z%% \Ёcgcg l dT} #l l̼9\  l@ d(\(czll l̛>\̀ %T́uܿ d&  lTy&$Ty ' Tቦyz{ & \z{z & \뉦z & & 3d#HTThhh\hhhh:AA1                        END OF ACTIVITY HISTORY ACTFIL CCS20 0482 hhh h fy 1Ty&& "TzcyAcyldITy~A& $  "T=zcy~cy'' mlTĐ~& dl\{Qj&̴  \׀c|c|'  +dA .l\р~&̑ Nl.Ty~A&&  "\zcy~cy'̣  lTcczd T-zTTH$zbbb% 9 +d ""T8P Tl 4\쁓 3T T !> !:TK ! dR lQfOn ,l\$Qbbb% l d l lT́&$TTy&HT91o h (hTzv\fw\񀁁fzndڈdT"H-N<_DLADDACT CCS20 SREQDL CCS20 UPHSTCM CCS20 @,UH'0Nl1E( hX6 T}c 95 2B# 2  2\ e  && !Tyz-&  +&$\y&TIa&Hk DADCDFNARLCSEADSP1P2P3NQOASS h9  _ > h/8  h)hֈh 1ȿ Ȼ ȸ  ȵ Ȳ ȯ  h ȩ   h|   l HTTh!@ALL _ 7{IH .0  1  h h ( h   h T 1 hȽH TTh hRLCSEADS hhTPQP h h hTPdQd h 1\PfQf h h\P{Q{HTThhhh\hhhhȩ  hdl 2 hhTh !h ( h` n - nnИ 1!@ HHTT h h h h h h\ h h h hȽ 0h h h8T̛h hh!T}   1L !H1 h* h& h hȾh4\yȵ ȱ 1)ȭ !%̽ h \yآ 1Ȟ h / dTh 9d̖ l̓d7T̛HTThhh\hh\hphhh\hmZFGHJKLMNOPQRSTUVWXhm{Ph   h|T-|T8d\dT\]^^ 6 ȸh|h|o r T chzh YhT̛z\\cfzfu h"d! %̥ ̠ #`l h0\ěcdzudT"h%\"lTzd$alJ[ 7 4 6T8R\Tcz~T=z~iz}i' ' $\㛰\ߛzp  |Tz\ț \ g\T}c\d * 7 # $\d\\߀c     T8l\̟ >\cffu l"l! &  #`l duTcdudT' $\\ TcҜ WϜ g\̾p g gT8 =] d\{ $l\ccq xr x ^ :Tzhh\̒ i\cffu l"l! &  #`l du\ěcdudT"l\dTd$alJ 8 5 !(T8\ c d^ \z[l\Ӂ cḷlӜ"̱lT^d lfܼ 1-d.d lfܩ 1Tc{c{u \z\hzhmlT"d&T {Qj& d, d#   T8sdH*X%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`h Hq``X`HX " hHhB4 "c"H h" "" H3h2 HX/ l* "  f  ` ` `"i Hh HX l` `"i H"h! HX @    ` `"i Hh HX ` `"i H%h$"h Hh2n @ 8 0 0Fh `&`H_h^HG H[X[X6FF rDHLhKH4 HHXHX.  `'X F" X4i  ; )  4"   2 1 m  `"i HhH HX %00hh  d " dh  0F 0 04hȻ 0F 0 04h  `­é @HpX0 HjXLXXXc hd 'jb PALGO"#2@2 hGh X A ,#)$h.ꁦ@@" T ""  (h f 1 dd"l! %  #`ldP7 Ǡ#"2X"2Ȱ h hh( h 0Fȼ&  x&dhwu Ggb# gY ` ` 0H_V Q JXGHh"h H  F` 4@HX HXXXXҘ1O à hR & h( h !2f#2  |2" vAfwAw r"#2#2_]c`_R^YRANS"#2D#2 hKXh X A ,#)$h/ꁦ@@" T< ""  (h  hh( h 0F FԸߠ % hh¼Š  (h 0Fȷ hȲá Ȧ ` ` 0Hȟhș 8 ÌH 0F| unt teXi@ @ "@??@KhT !JAh\ !C h6 h @h # `hʾή' ,#Hl!hĜ "lȽ`h l h l ¼Š  ( l l!@ HHTT h h h _h\h\h\h\h\hÌ 9 -099/99/9999999.999/999-9999-99-9999  /"+ "&h h hh!+ΈhT}3yGۘ  hT̤Gy @hh\yGh\Gyػػl! H hȝ!∭h\yGȨ ׈h\ͤ.y؜Έh\EG- 1!G # l 30l\GḚ hTyDD\/E HTTh\h\hhhhhhhhh\hh\hO9. FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7?- T"T ! ! , h\#bYZY Kh \\ݤ\^]^ 9hTH`[aaabHTTh\h\h\hhH h HX  sD  1  : E /` `"i ** h   l 1 lH TT h\h h$h#H  THyyyyyXwhTI:ySy!X[ h `h0H.h.H'h&-h,h,h,X-!hTI:ySy! ?KhHX3E jXM  "h `   2uM%  !"h X " XXyA"T{S$yH>;TI1_sl}f򈵅iffh<  g Ty&...... '' z4CALL' *B 'STRACE' *B 'TIMUSE' *B 'R9ELOC' *T *K,I8 *N,TIMUSE,,,B *K,I6 *Z *V #T_ h h  hDhBySySByT "h-h*-h-&F q -  " $T,hhh y l  n zz{S HK!"hE!dhDH3  j;T}|{{4"T|||{{*!vT||{ H H  -X~| H   #3T Xo H  Xy|$$SYMSGF$$ \"Xq HI HXG|  X\Xn H: H X8|  X|\ H(X)|o H$X4| \ȵ" \bT||{ ȮX2whth \|w h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :X|o H"A HB0Fh  0X|o { 00j qa! -" hh! u  HTLD|||HHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`Xga"aHh j qhykK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L"@?K@@S@AZ@Ba@Ch@Do@"@# @$@%@&@P @("@)K@+S@,Z@-a@.h@/o@7s2@@PDLYWRK  (tP O^dhhh`"e"aaa h X h甂h`hHXẌ`"e"aaȿaȿ h XȹX1` h۔hhh T X_/l XMH5S0h XX(RPGOS0 j q `XKXPRINT " _C"l"m"n ^l^l^l^l^lm^l^l^l^l^ln^l (l6l>m ,,,d6,>n , ,  ,d6 ,, ,d6,6B,,d6 ,6 Ed6 <6 H8<6< 8=6=:> 2 < = > 0<6б 2 H,d< J0,,d6 ,d6 . /.@BF 36 H8363 8464 :5 2 3  4  5 0362 H < = > ~|&,3@ @ D D DDDD@@@$@&@(@*Db@H:  ADD DNU@@@$")D J@ G 2(z  $!$"$# q($r  < = >@ ??>?<=% (%& (& '& % '22'((') '**)2 (++ ,+, ,(((FFG,,Gr) (r-r-)r(r.$r$r .r ;ypdH HH}d@,H HH@$)8 `@@zp-&&Ɇ $)8.&&ņ   x $ )@!((   x $ )@"(8K@@8yň/~~   x $ )@#(8A@zJJ @@ x@$ )8 z@ 8k @%%S-@@ x@$ )888!8&8/858:8@@`   x $ )888!8&8/858:8@8II燑 )q@ 2 >zp= >zp2zp!2zp*&aap/@5@:@@@~~އ`)8F\\\@@@@\\\F$@H PP!@ H)8@@ )@ @@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@ n@DFHJZ^`begilntvxz7''''O'wz}hBlFH?z 7H55 8r\`- dhTa,(% zTy& z! dydzTy&yA" ydy"h%h$h#h" cdhE"h "hdyT{Syhy`h$h#H  THyyyyyXwhTI:ySy!X[ h `h0H.h.H'h&-h,h,h,X-!hTI:ySy! ?KhHX3E jXM  "h `   2uM%  !"h X " XXyA"T{S$yH>;TI1}ffoڊac9<;=  Ty&a...... '' z4CALL' *B 'STRACE' *B 'TRENDE' *B 'R9ELOC' *T *K,I8 *N,TRENDE,,,B *K,I6 *Z *V #T_ h h  hDhBySySByT "h-h*-h-&F q -  " $T,hhh y l  n zz{S HK!"hE!dhDH3  j;T}|{{4"T|||{{*!vT||{ H H  -X~| H   #3T Xo H  Xy|$$SYMSGF$$ \"Xq HI HXG|  X\Xn H: H X8|  X|\ H(X)|o H$X4| \ȵ" \bT||{ ȮX2whth \|w h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :X|o H"A HB0Fh  0X|o { 00j qa! -" hh! u  HTLD|||HHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`Xga"aHh j qhykK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L"h2"//a bACCAGE p R);(QY*/2DR X X XXm J2>2 [ a"`V:(`0^a [a a`^a [`YHJ2N V|e2H2PQ48L2t B  7 7 /88 80/ / / StS/ / StSt/6 =  B( * 70/t/ 7B 8, @@&F@&HJ2 B  7t 6 =  B( @P )րz@P 8 <>J9 >T cxc*<2 K K J  <0>JK cxc*<>J>K cxc26(n 2Be  S(  erSdc d2@@@@@@@@@@@@@@@@~|kr@ @ @ @ j@j@l@n@@v@1@@"@%@1@CDDD @ . NN/N?NN/N? V?.  NN/N? V?    6o( 6_( f?    6_(      \Z[V! !ZZ/ !ZZ(P!V/(f/ [f?O" [ \[\(\Z[􊕊Պd@ @ @@ @ "@%@(@1@:@C@L@MM$@ @ @ @ "@%@(@1@C@MM !/$?'?0O3O@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  p    hBlFH?z 7H55 8r`- dhT,(% zTy& z! dydzTy&yA" ydy"h%h$h#h" cdhE"h "hdyT{S*+yhy`PDTLP503|PDTLP50 EIF  VFD X8/4,X1/0,X1/0,X3/0,X3/4  EIF  VFD X8/4,X1/1,X1/0,X3/0,X3/1  EIF I4  PCO 1  EIF I1  VFD X4/8,X4/0  VFD X4/12,X4/2,X8/(A9BASE) I0 IFC A,NE,A  PCO 2  VFD X16/TWO-*-2  EIF I8  EIF I0 I0 IFC A,NE,A  EIF I5 S# A J BE @BBPa-- dTu hX6 fZ hJ6 fő dȾdǾ dd9d lTƏ ld0 Tӏ T!  l̼  1# 1̴ Tc ḻ <987eonmlA@BA# dTW d<$d!5TKToE Tӏ'% \  7 !4:# d  l lTi-TF0 \ϏT N@SmPlTuT?T] l d/\ l\TQTE dF d \  \ W K\M ν θK  αK Tӏ\̽ Q̹  l d@m dT̤ ̠ TF̚ 0  l\ d!̛  d d*HdH**A $^sC,"  ^\ɏldTM!E A B,%N,OLPMl#&ACTVERTBCCS20 COSIGNERCCS20 DAQUE CCS20 UTIFIL CCS20 mn̟TH끸$LMTyey&& (Txye&$TT8ҁ 1\TdcN  dKTdfcf\y;& "OTyz&Ȥ  ̺ "RzdzdȚdTӀ\yMy>&̣ !#TyM&̙͜ ̒ !TyM& dL fyL 1 dM lTxy>M&$T̺d-̻d.zɤO d_ (dN lԌhTdzM 0 D AllTML1ܸ 1Tyz؁&& %  !Tz dJ\zd[\zdJTy& l l l\;M&$\ 2ed 2fd! 2dd"T cda d`  ;Qlt ll dL fy 1Ty&̓ !"TyA&& !\y& d/  1 l dM lTxM&$T1dA2dB ddR l nܩ 1\y,&̺ !)TyzA&̰ ̩ ̣ !zdzd dTy&@ l l\,M&$\ lTyMy& dyc& &\yM&$\\y}y & (Txy M&$T\yy/& &\y/M&$\T8  1 ;  \ہс\̓ "k " Ty& l dM Ty& l̍ & ! 1 w0 wޜ wdR dSTcycymlT{Qj& ڔ" ٔ! ؔ {IH ydyd d,,̜  dTy&& % dM& 4 lx laT "M  d " lTe Lc dL fy 1 d+Ty& ldy̮ !pTy~A&̤ [̝ !b l $ dNTd~NM̐ T$Lc ~N '' $̴ \~N~T8~̎ \׀cMM  \끓ܑ 1T~cycyTy&\y&\сՁt l lTxM&$T\ހeycy!dR?dS dKTyMz&&   ; 25 l TD{? &T8 %\zcycy-d.dTìќ \Ձ\ށ_ !=zHOd\˃zTd 4\"! 1b&w!6?\zT\zT8zy̼Hl\z 1K  , dMff dN l < dL6lJܜl " ln "k |dR  l l fy 1Ty&& "TzcyAcyTy~A&  gl' % dMT8z\~T8~z K Ty~& $ lklTy&T dK  lMdRdTK\ȁ  6wl lQ $0  5\΁Tl ldA1dB? "k dTzׁycy̮  l llT8 zT8zz{TK TyMz& d,& % dMOK A !%3dd $d(\܁e(܁c( ,l\g(c( l lllllldR # l l-H)2?0# END OF SEARCH B  l dyZyYhl_h h " h z hTLhTe>Lc> hKf@ 1 h "ȽhTH$cbbb%TyMzA&&  "mT$zx:Lc:' ' 1 dh\Ё$10bbb%EdAl >,\zx>Lc>' @\z\zx\̀ %Tuܿ d&  lTxy&$Ty ' Tቦyz{ & \z{z & \뉦z & & 3d#HTThhh\hhhh:AA1                        END OF ACTIVITY HISTORY ACTFIL CCS20 0482 hhh h fy 1Ty&& "TzcyAcyldITy~A& $  "T$zcy~cy'' mlT~& dl\{Qj&̴  \׀c|c|'  +dA .l\р~&̑ Nl.Ty~A&&  "\zcy~cy'̣  lTcczd TzTTH$zbbb% 9 +d ""T8P Tl 4\쁓 3T T !> !:TK ! dR lQfOn ,l\$Qbbb% l d l lTx́&$TTy&HT91o h (hTzv\fw\񀁁fzndڈdT"H-N<_DLADDACT CCS20 SREQDL CCS20 UPHSTCM CCS20 @,UH'0Nl1E( hX6 Tdc 95 2B# 2  2\ e  && !Tyz-&  +&$\y&TIa&Hk DADCDFNARLCSEADSP1P2P3NQOASS h9  _ > h/8  h)hֈh 1ȿ Ȼ ȸ  ȵ Ȳ ȯ  h ȩ   h|   l HTTh!@ALL _ 7{IH .0  1  h h ( h   h T 1 hȽH TTh hRLCSEADS hhTPQP h h hTPdQd h 1\PfQf h h\P{Q{HTThhhh\hhhhȩ  hdl 2 hhTh !h ( h` n - nnИ 1!@ HHTT h h h h h h\ h h h hȽ 0h h h8Th hh!Td   1L !H1 h* h& h hȾh4\yȵ ȱ 1)ȭ !%̽ h \yآ 1Ȟ h / dTh 9d̖ l̓d7THTThhh\hh\hphhh\hmZFGHJKLMNOPQRSTUVWXhm{Ph   hnT|T8d\dT\]^^ 6 ȸhnhno ~r T chzh YhTz\\cfzfu h"d! %̥ ̠ #`l h0\ěcdzudT΁"h%\"lTzd$alJ[ 7 4 6T8R\Tcz~T$z~iz}i' ' $\㛰\ߛzp  |Tz\ț \ g\Tdc\d * 7 # $\d\\߀c     T8l\̟ >\cffu l"l! &  #`l duTcdudT $\\ TcҜ WϜ g\̾p g gT8 8]  \􁗁\ccq xr x ^ 9\zhh\̡́ jTcffu d"l! &  #`l du\ӛcdudT΁"l\lTd$alJ 8 5 !(T8\ c d^ \z[l\Ӂ cl̤lӜ"̲lTh^̕d lfܼ 1-d.d lfܩ 1Tc{c{u \z\hzhmlT"d&T{Qj& d, d#   T8sdH8lX%X#X!XXXXXXXXXX X X XXXXXH2 H-3>72"4` aADe Daa AA a a Vh`h Hq``Hs"ܠ`Hs"ܠ" hH h" "" H3h2 HX/ l* "  f  ` ` `"i Hh HX l` `"i H"h! HX @    ` `"i Hh HX ` `"i H%h$"h Hh2n @ 8 0 0Fh `&`H_h^HG H[X[X6FF rDHLhKH4 HHXHX.  `'X F" X4i  ; )  4"   2 1 m  `"i HhH HX %00hh  d " dh  0F 0 04hȻ 0F 0 04h  `­é @HpX0 HjXLXXXc hd 'jb PALGO"#2@2 hGh X A ,#)$h.ꁦ@@" T ""  (h   `"i HhH HX %00hh  d " dP Ǡ#"2X"2Ȱ h hh( h 0Fȼ& &dhzx Gje# j\ ` ` 0HbY T MXJHh"h H  F` 4@HX HXXXXΘ1K  hJ & h& h !2f#2  |2" vAfwAw r"#2#2_]c`_R^YRANS"#2D#2 hKXh X A ,#)$h/ꁦ@@" T@ ""  (h  hh( h 0F FԸߠ % hh¿Ƞ  (h 0FȺ hȵä ȩ ` ` 0HȢhȜ 8 ÏH 0FÀ yrx xiXm@ @ @ @??@KhTo !JAh\p !C h6 h @h # `hʾή' ,#Hl!hĜ "lȽ`h l h l ¿Ƞ  ( l l!@ HHTT h h h _h\h\h\h\h\h  9 -099/99/9999999.999/999-9999-99-9999  /"+ "&h h hh!+ΈhTdU#ۘ  hT#U @hh\U#h\#Uػػl! H hȝ!∭h\U#Ȩ ׈h\ͤ U؜Έh\!# 1!# # l 3 l\#!̰ hTU \ ! HTTh\h\hhhhhhhhh\hh\hO9. FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7?- T֤פؤT ! ! , h\>5إ65 Kh \\ݤإ8:إ9: 9hTH<إ7===>HTTh\h\h\hhH h HX  sD  1  : E /` `"i **, h   l OPEN 1 lH TT h\hPUzTRNSFL ACTFIL FBASV4MTBFE0 MTBFE1EXITF 0FMSAVAJPFLV4TzȌhȋhXXXpXX؃XX%X hzXX}XX uhSh hn@"XXXXRh0h hKaa"aaa9'?S\X"5hh h.aa, X,hGX@$X aaaX!8XShTL XXB +IRH H%u bbhTL(\o*[,g_),Y|,Y*kO*ΰB*ΰ3*˨*˨*{*ˢ*\`**0482BZn 01  +8<0050THzzzzT{y!yz (T~yzzzTIm\y9yz &\yzzz\T{y!yQzzȿ{ȹ &\yzzz\y_y` T|yQyzzyzT{y9yzzȗ ȓ &\yzzz\\yQzzzyz\yQzzzzz\yQzzzzzzdzzdyT|NyyzyQyzzz )T|zyzzT{y9yzz 1T~yzzzTImy lѤz $̔zlT|>yz\yQyzyyz̽lT|yyzzyz̭l\zyzzT{y9yzz 2{ \yzzz\T{y!z\y9z\T2tHHPAX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`H h" "" H3h2 HX/ l* "  f  ` ` `"i H"h! HX @    ` `"i HX HXXXXҘ1O à hR & h( h !2f#2  |2" vAfwAw r"#2#2_]c`_R^YRANS"#2D#2 hKXh X A ,#)$h/{@@" T{< ""  (h  hh( h 0F FԸߠ % hh¼Š  (h 0Fȷ hȲá Ȧ ` ` 0Hȟhș 8 ÌH 0F| unt teXi FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7?- T|~9~:~;~a~:T!~^ ! ! , h\~b~~~;~~ Kh T\~;~~~;~~ 9hTH~~;~~~~~HT~T~h\h\h\hh Hq``X`HX " hHhB4 "c"H h HX  sD  1  : E /` `"i zACTFIL P eMT25U0MT25U1IOPR JJBFLV4DOUT FBASV4MTBFE0 MTBFE1EXITF 0FMSAVAJPFLV4TzKICKOFTSMENDMJPCHGE*9ALCLGH89SCHSTKLSTLOC BWMPFLAGpDATSEP/TSLOFFSTRB LQV[`ejot $).38=BGy..0 @,\o*[,THzzzzTzFzT|z"yz (TyzzzTImT{z"yzzب٘2 &\yzzz\Tyyzzyzz ȹ  zE" lz9 lTyyzzyz h " lT|Pz { dy dy ,zBhT 1 1 lzh\* 1T}&\Rz{`\r {` dz\z" {z9h\\z\\Z#z{z9h\.\z\ 1\z$ {\zD\\Z%z{\zD\T| z"zTIm8(//,14X,43HTHE FOLLOWING IS A SUMMARY OF THE NUMBER OF,/14X,43HACCOUNTS WITH XXX NUMBER OF ACTIVITY BLOCKS,/) (14X,I5,16H ACCOUNTS WITH ,I2,16H ACTIVITY BLOCKS) (14X,I5,34H ACCOUNTS WITH >10 ACTIVITY BLOCKS,//) #(1H1,/,1X,20A2,/,1X,20A2,/,1X,20A2,3X,8HAS OF : ,A2,1H/,A2,1H/,A2,/)T2tX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh` H]h\hRhMhRKuX nhKJhAHFv" c h8"5T>39cTh.h;X7H&8%#T($h$h`  TT CNTTBL TF T}IT~%4h255؈ȇX h&ڨ*IhTT|||p=H ' &eh @ȫTȨXȞ T}&ȡ`><Ȓ TA H T} |d}GT= T}TAT"}E}E}E}E}F}E}E}E}E}E h3HHd~hd~ Dhhd~tTFKhh hHL8@ hk"T~MhT~H} hy"  b hqTe PިXM H֨CbCwΨ U hS Va `hL1D{lEwe& ?!RX"ȭ ȩ!0XHyl'e #!6X Ȍ T~PT~_ `h XX\\ TaH #h! TT hBDhEhBhBhDhw~h:8# `h9 V1a Dh/X+)*h+DT}  #%  # Dj A Dh h h  Hhh&aH3[HX" L!`Ψh TT aH> 3 DH-j+̾Ⱥ(j'% hȲDhT}̝Ȟ̘nΙlؘؚș _ U h HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBH j `0 T'd  l̼ hrHr s"htjqh hDh`Hah`I/O REQUEST \     X XX*EX XX&X+@XXX< XwhHh h,h*X" h$ h!X h hX ThX T~HHX TL `u HehdhgXlXvhb"aT>ZWDT hUHUHRRQ  pJf XNXXhEn HAXHXR(?R!39h9X?XInhTK  NX0h+ h n ;ln  H T` + ȋXDh؆1   HhH㞚  TT hhhhd}|PhhuXh̺ (BD}G n&ȫd}ȫ  hJIEhE h h  hh h8H6|0T=XX h%`" "h*hT !" T~ h hhh ll X# Xhh@4i` Xj TT Cr q d Y hUDhT XHXhNXhXh:a62Hl20X), H,)H& XXh a&hh۸nX X h H   HShhh<@ TAH $T\h9Dh5TFh122-3 T**%!!T= TF \TGT< \T  H+h* r Gh hlBhHX<"9" "hh0" T>+T=X% hT\H `CT TA@ TFhT=h XX T=TP 2X X' h$  X0X XzШ Xhˠ T TP H= X H8X H0UTZX*@) R\TJ   hTHPFSTOP PAUSE  h\H jN qDhQ`hS \hL!:R hJE hBEOi:Dh dD dC l ll  T~uH\HTH̙ l !  dFdGTφHFG\ކH@ l ! dH̹ $P lA, l ddX ldBl d l l l l l l d=̘  l̒ \H̹  ̱  TH\H̡  ̙  T~uH2H/TThV\hD\hB\hhh\hh\h\h\h#h\h\hh@T1 Tә8H' h+Hj  &jn  &n 1,(h(ވ'd .l lH h hH(-0 f Fh ED. 0m `h rH *` T" h jظ 1 h " < )P d h\0 d̼ !T~u 9ldRl̩ l  dT&\㈥̛  ldRll d d\Ɉ    !> ḷ l !& !/ l 9!/̫ !+̧ h$l !( l 5T~ul l̻ ̵dl\gTT2t0  0l\\0 ldd d:\͈  ld 9!. !* hĈl̨ l 3\    d !T& l F7̣ 4̠ l̜  0lTT2t ddldddd d fW 1T~u  l M  l  l U\݈ڌl \$ lLddl[,lLlll ̲ lZ,܌lLlެllY,Ќld l ̓ l UT~u B > : 6  93 %   l 95 2v  0lo  d dlX̺ ̷  ̯  Ed l D\̠ ̜  d  9! ! d$l c" l T~u  0l d]̱ k3 dl՜lddXdYdZdd D l[l\ddl TY]̻   l  dldldl dT&Y l\Z l\[Ṋl TY]]  ̚dl̛dl l\ՈY l\ЈZ)" < ) EHp d; dl\ ! !lHdlT~u̘l\ l\ l  Hll\戥ˬl d l ddd d n 1 d +dd dT& l\̗  l\򈚈dddʤd  -lܺdldl dl T=Tdl  -ldlld d /̼dd$l,ldȤlLdllLld߬l,l,ތl,l,l  ,Llجٌl̶dʬlLlͬlڌlLdԬlܦf] ̜ !̗ ! d^  dn 1  l 7 -ldl  Ԝl Όl d !Y 1TΫ n !M̷ d̳  l!̩ l] !5 n̜ ܡ, dr̥  ̦ l 7 +l̞dlܚ dn 1 lq 0n 1 d 0n 1 d M Mڄdl Ôl̿ !i̻  l̶8T~u l \ ld dl !]  0ṉ]h\ܫ l̹ l\̳̈ l  2\̥ l 2]h\ l l 2\ lڔ !d  d8T~u l \ l\\툿 l  ̳]h\ܭ l \ֈ l\ш\ψdd+ !" 8 % l\ܨ 1P\\rJ\r\sDdd ddld dl`p=l  lܹ 0fq.lۜll 1  +d dlT&ψ!lϤd dl -l l l  l 0drٜd !#  l5T~uܘ \ lڜ9qh\ lӜ4\ d\ψ̨ld dddl *Sl  ̬ l̩d ,\̤ l ! l l윳4\ܯm l`p5dl 0eq 4 n ḽḷl 1 l l  1 ٜd "U l +T~u l ! d " ll 8̽qh\Vܷ "U l  l\ш̥ l !\ň̶ l !b@aH^H[TThh\hhhFhhhh{hhh\hhhhhhhah\hqhhvhhI\hgh\hch\h_h\h[h\hWh\hShA1 T` h/&hHgaV`H _H H M A cTXFRXB H H\ TϹ =:\ؑ /  HI&Aa%acAD aa h h HR hh H TԺ hHXhxhy`Xhh{ HfL#dhtHg ! lbag4lZ a``]cTX^RXZ I^HTϹ HG9Qs>L1a: Lw T&RH5 I  vR  LaT\T HI& hh Huhi[G M^@BPCE}GN HJzLLK@  `a` ` `X,8A"C  x&LpsX;a*XFXXȰ,` Ȱ#`X `Ȱ#`X`Ȱ#`XXhbXO`Ƞ$d `d`Ȱ.`X XXLbb Ƞ$`S@@`Ϡ *`@ed`d`X` `Ƞ4`n Ƞ$Ȱ$>a.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  T"" R1 H XRRt`p X` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\֕\֖͕@T:\ ֖͖ЖTԕ֖͕B  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR X t H XԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HTRR HsLoAAd]Tԕ֕B |LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaXk\RXc N[ hhhuhi f[G ߂M^@BPCE}GN HJzLLK@H bb@`RR HsLoAAd]TX X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XTbX&)+25,Ȱ#`X TA a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9Tbbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! Ta a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XTbȰ#`X`!dB2 @rdR@`/@oH h HX  sD  1  : E /` `"i ACTMTN3AVMCON4\AVMDMP4BLDSRN4CCSDMP]5 CCSPAS5CCSSPC5CHEKID6 CHUPD2n6CMPDLQ6CMPSUM6DAQUEL6DECMTN_6DHDELE7vMHDELE7NMCHNG7PGCNT18PGCNT288d!h u  Ha(M| I S Ga  uR u a.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  T"" R1 H XRRt`p X` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\֕\֖͕@T:\ ֖͖ЖTԕ֖͕B  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR X t H XԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HTRR HsLoAAd]Tԕ֕B |LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaXk\RXc N[ hhhuhi f[G ߂M^@BPCE}GN HJzLLK@H bb@`RR HsLoAAd]TX X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XTbX&)+25,Ȱ#`X TA a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9Tbbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! Ta a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XTbȰ#`X`!dB2 @rdR@`/@oH h HX  sD  1  : E /` `"i d]TX X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XTbX&)+25,Ȱ#`X TA a!1  !1X@POd01M\4Q hN/q0d60gd;0d<0cdA{h@Pz h/ dh h 0!Zld0060Rd0T 0^T^94@P\14 h1\S4Fl  h\140d@PJZdKWdMJdN hOFd4hB d8 @P@P9d8@P>@P5d0H-PPGGN2PPBINASCASCBINPUTS 4CCSBLK@CCSPUTDCCSMVAREADR CCSGET P *T @Ph@Ph@Ph@Ph@P4h@P'h@P=h@Pph@Ph@P h@Ph 2 l @Pr@PrlȀ@Pv@P.v@P5v@P<v@PBv@PvlĀ@Pz@P z@P:z@PDz@Pz@P z@PzlHFPPGGEN1PPGSLSTPGSEDT PGSJR PGSJL )BINASCtASCBIN WTREAD READR :CCSBLK LCCSGET CCSPUT $CCSCSTCCSMVA iP *T @P]a@P@dz@e@P\@P@@P@PA @P8@P@P8ACTVERTBCCS20 AVMDESC CCS20 UTIFIL CCS20 ACTCRESC************************************************************************************************************************************LAST RESULT CODE REJECTED - NOT UNIQUE*****NEXT CONTACT DATE OUT OF RANGE - SET TO ZERO0**** " " ($ ) NOT A VALID RESULT CODE - IGNORED 4****LAST RESULT CODE REJECTED - OVERFLOWS TABLE 0****LAST ACTION CODE A SCREEN FUNCTION - REJECTED 2ACTIONNADSDFDADCCSP1P2P3RLNQOASSDLAAEAUH  P @ACRS ACTIVITY VERIFICATION MATRIX BUILD OF - RESULT CODE INPUT (THZWXY  T%BmZ !TByXZ 53 60h/l-l, h( ,#! !!hnnh ! ! h nnƘؾ 1HTT h h h h HX92h -$h.,'&2Tp"$dmŠ'R)2X*2 1 ** "i X%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`X/fX+jX'nX#r XvX}{X<XBXa"a X" XIb XFb XCa X@b bX/ !/ hT>V~ ! h (Ȉhʚn 1ؼ 1T#> HTT h h h h\h h hzACTVERTB IOPR JJBFLV4DOUT FBASV4MTBFE0 MTBFE1EXITF 0FMSAVAJPFLV4TzKICKOF **ASBZRLL C DPNASRPPCCS 2 ACTIVITY VERIFICATION TABLE PAGER E S U L T C O D EACT ION L C CD-- END OF TABLE `ejot  NC.38=BGy..0 @,\o*[,g_),Y|,RUN DATE: ( 0")Q ?-0016,901 ˨*{ * THzKzzz }TT}vyyz "}ET}byy)zKz "}HT}tyzTjzYz hhȱh};dzXyHz |TXyzSzTdyThzzzyzzةz-dzz.dzȠdz\zYzzyzz{#h5\zYzzyzzSz l\zzzyzzTzzyzz{Bdz\zYzzyzzS{Nl \yzSzUl l\z/zzyzz{fl l\yzSl dyz zdzzl dzzdz $zl ,h n 1{lTXyzS lz8fy 1 llĜ!yHz ̿ hۤz dz ,hfyܯ{dz\yzS lz;nܞ 1 l ,hz?n ,hz@n $zhzAfy 1|lS\yzSzBlzl l ,h{n ,ln ,ln 1|.l*z dzl"|y(z |TXyzSzUdy|Pllz dzdz"|yH |yHh ̇y(hTy)zzz lz  dzz !^z zfyz zfyzΠz T~zzyκz zfyίz znzV ' zWn p4z,dd{lp<Ȍznznzo|dzfܧ@̤ $ !$̝ %z  %z     l l lTXyzSzUdy},l,z lThzCzzyzz}TlT}zyzSzzJzKT} l lTyzzzT}tyzTImT2tX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`X/}X+}X'}X#} X}X}}X}~X}~Xa"a X" XIb XFb XCa X@b bXa.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  T~"" R1 H XRRt`pH h" "" H"h! HX @    ` `"i @ @ $Y @??@KhT1 !JAh\ !C h6 h @h # `hʾή' ,#Hl!hĜ "lȽ`h l h l !#!dd l l!@ HHTT h h h _h\h\h\h\h\h% 9 -0d99/99/9999999.999/999-9999-99-9999 /"+ "&h h hh!+ΈhTH\ۘ  hT\ Th\\h\\ػػ̬ H hȝ!∭h\\Ȩ ׈h\̓C؜Έh\Z\B 1!\ # l 3El\\Z̰ hThYY\DZ HTTh\h\hhhhhhhhh\hh\hOǼ FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7?- Th7T4 ! ! , h\8wnon Kh  \݄qsrs 9hTHupvvvwHTTh\h\h\hUTIFIL  Q#uMrJF (jj AXBf ` h[ h. + HDR0 2elF2flC2dl@ hndyT}V}}y}9}\}@}8}Ty}R}T}hT}7y}}|y,T\}V}}y}8}\}M}8}Uy}S}UT}}8y}}8~h\}7y}}|y,\}?d}~+d}\}7}~}}|y,\TA}yy,}} " ̦}6 Tydy4~Nl\}7y}}|y,\ d|\}yy,} " ~fl\}7y}}|y,\y z| ? l~lT}7|}}|y,T d}\yh!\y Ȉ fy3yHh}d|\ydy  ̭ n C A nfy5  Tyh\y$}|fy6fy7 nn  d}Ty}9yy4}yy4ll nTE|y4y4}} !Ty4}; d} lT}}}}' l l\}'}}} l"d}T}7|}:}|y,TTH}}=|}:|||}TՇT d\RB(33H ENTER NUMBER OF RECORDS TO DUMP.)T  !Tڇ Fd d!>TBׇTTTV !0AdT:ZO[\\(//,32H0 RELATIVE TAPE RECORD NUMBER =,I5) TMܿl\ZTTՇT%(64H EOF OR ERROR DETECTED DURING ACCESS OF RELATIVE RECORD NUMBER,I5);NHKTWTehhGhh3hh\hhhhhhghshhGhShhhh~\h hlhhhhh-hFh^hhh h"h <.(+&$*)>-/,%?: @'="ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789@JKMNP[\]^`aklmoz{|}~.DaaN * hhhT98 h\:7  :1 h\:7T79Ԝ& ! h !\;7 \;7ȼ "ȸh ]"ȳh\ۋ7;ز#HTWTehh\hhh\h\h! A %!% ! 1 hhhh hdT\TT" H TWTeh\ha X%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`X/:X+>X'BX#F XJX}OX^XcXa"a X" XIb XFb XCa X@b bXŘ3Ƙ= " HX `B\#Z]Y^]J@Ő1G" `R z` `Tؔ3\՞+(Y^#Y^Y^Y^ Y^]@ŀ`\\յ@@>UV=UVŐ1` #d*@1*A`ݠ4ad`Š 1`T^]مٝYٵ ^\@Zy@X @@A@@UN<Ȓ T+ H Tj d1T' TjT+T////0///// h3HHdhdDhhd^TFKhh hHL8@ hk"T7hT2} hy"  b hqTO PިXM H֨CbCwΨ U hS Va `hL1D{lEwe& ?!RX"ȭ ȩ!0XHyl'e #!6X Ȍ T:TI `h XX\\ TaH #h! TT hBDhEhBhBhDhwh:8# `h9 V1a Dh/X+)*h+DTj  #%  # Dj A Dh h h  Hhh&aH3[HX" L!`Ψh TT aH> 3 DH-j+̾Ⱥ(j'% hȲDhTj̝Ȟ̘nΙlؘؚș _ U h HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBH j `0   %!'d  h hrHr s"htjqh hDh`Hah`I/O REQUEST     X XX*EX XX&X+@XXX< XwhHh h,h*X" h$ h!X h hX ThX T2HX HD TL `u HehdhgXlXvhb"aT(ZWDT hUHUHRRQ  pJf XNXXhEn HAXHXR(?R!39h9X?XInhTK  NX0h+o mlh n ;ln  H T` + ȋXh؆1   HhH㞚  TT hhhhd:hhuXh̺ (BD1 n&ȫdȫ  hJIEhE h h  hh h8H60T'XDX h%`" "h*hT  T h hhh ll X# Xhh@4i` Xj TT Cr q d Y hUDhT XHXlhNXghX^h:a62Hl20X), H,)H& XX>h a&hh۸nX X h H   HShhh<@ T+H $T\h9Dh5TFh122-3 T**%!!T' TF \T1T& \T  H+h* r Gh hlBhHX"9" "hh0" T(+T'X% hT\H `CT T+@ TFhT'h XX T'T: 2X X' h$  X0X XzШ Xhˠ T T: H= X H8X H0?TDX*@) <\TJ   hTH:STOP PAUSE " h\H jN qDhQ`hS \hL!:R hJE hBEOi:Dha.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  T*"" R1 H XRRt`pH3h2 HX/ l* "  f  ` ` `"i Hh HX l` `"i H"h! HX @    ` `"i Hh HX ` `"i  FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7?- T /T, ! ! , h\0of gf Kh `\ݛ ik jk 9hTHm hnnnoHTWTeh\h\h\h   hhhhhTE THTWTeh\hh\hhLE+ )(,/.XH0123456789AREF$ID'*ZREGETS UPDRECDELRECCOMFIL   h l : T l ll h g l \ hlElh hhhh hhT" ! h hظȶ趖 ,Ȱ"!& 1 ,j!#%')/$ 1TrT2t6 l44 l2 / ! + !l dCd% l!!   d&d d!T& ! % NdDELRECCO\'\  l !  ld(l l l l l\Ɯ& ! d D6)l N D"TrT2t 6T l d d d l ll  T_"\"T"̙ l !  d d!T" !\ޜ" l ! d"̹ $* l, l dd2 ldl d l l l l l l d̘  l̒ \"̹  Y̱  YT"\"̡  Y̙  YT_"2H/TWTehV\hD\hB\hhh\hh\h\h\h#h\h\hhl4 l2 / ! + !l dCd% l!!   d&d d!Tb& ! % NdDELRECCO\'\'d !  ld -0 \F̹  ED. T"\"̡ *  T h jظ 1 h " < )P dh h\ d}̼ !T_ 9ldRl̩ l  dT}\̛  ldRll d d\ɞ    !> ḷ l !& !/ l 9!/̫ !+̧ h$l !( l 5T_ l̻ ̵dl\gTr~T2t   0l\\ ldd d{:\͞  ld 9!. !* hĈl̨ l 3\    d !T l F7̣ 4̠ l̜  0lTr~T2t ddldddd d{ f1 1T_  l '  l  l /\ݞlh 6$ lLdqdl5,lLlll ̲ l4,܌lLlެll3,Ќld l ̓ l /T_ B > : 6  93 %   l 95 2v  0lo  d dlX̺ ̷ h ̯  Ed| l D\̠ ̜  d  9! ! dq$l c" l T_  0l d7̱ k3 dl՜ld`da2db3dc4dddeh D l5l6dfdgl Tb37̻ |  l  dldldl dT3 l\4 l\5Ṋl T377  ̚dl̛dl l\՞3 l\О4)" < ) EHp dh; d}l\} ! !lHdlT_̘l\ l\ l  Hll\ˬl d l drdsdt d{ n 1 d +dd dTr l\s̗  l\tdxdvdwʤd  -lܺdldlh dl TuTnudzl  -ldlld d /̼dyd$l,ldlLdqllLld߬l,l,ތl,l,l  ,Llجٌl̶dlLlͬlڌlLdԬlܦf7h ̜ !̗ ! d8  d{n 1  z l 7 -ldl  Ԝl Όl d !Y 1TΫ n !M̷ d̳  l!̩ l7 !5 n̜ ܡ, dL̥  ̦ l 7 +l̞dlܚ dn 1 lK 0n 1 d{ 0n 1 d ' 'dl Ôzl̿ !i̻  l̶8T_ l \ ld dl !7  0ṉ7h\ ܫ l̹ l\̞̳ l  2\̥ l 27h\5 l l 2\ l !d  d{8T_ l \ l\\힙 l  ̳7h\ܭ lh \֞ l\ў\Ϟzdxd+ !" 8 % l\ܨ 1P\\LJ\L\MDdd ddld d{l`p=l  lܹ 0fK.lۜll 1  +d dlTld dl -l l l  l 0dLd !#  l5T_ܘ \ lڜ9{Kh\ lӜ4\ឨ d\̨ld dddl *-l ̬ l̩d ,\̤ l ! l l윳4\ܯm l`p5mdql 0eK 4 n ḽḷl{ 1 l l  1 d "/ l +T_ l ! d " ll 8̽Kh\ܷ "/ l  l\ў̥ l !\Ş̶ l !b@aH^H[TWTehh\hhhFhhhh{hhh\hhhhhhhah\hqhhvhhI\hgh\hch\h_h\h[h\hWh\hShA1 T*` h/&hHgaV`H _H H M A cTXFRXB H H\T姕=:\ئ姗姕/  HI&Aa%acAD aa h h HR ̡ * H T*Ժ hHXhxhy`Xhh{ HfL#dhtHg ! lbag4lZ a``]cTX^RXZ I^HT HG9Qs>L1a: Lw T&RH5 I  vR  LaT.\T.  & hh Huhi[G M^@BPCE}GN HJzLLK@ `ab a  0c    ` a`b% *aa ` a"Xd"2aR @ a! a"X ` a! a"X  aafRda -a0F 0ac 2 .a `9ac a aA `! aa a( a .a 0a!D Q" !yR *a aa A a! a"X a! a"X #45h h` XH}H|"4` " "aXaX ahh`XzPqa aa a a a a a! a"Xpa"  6 9! T d  a a! a"X   `  `  aX{aaX" a   a! a"Xa  aaX 'bdRQ"X7; aX 3 aX +  "XaX   "XaX  XaX Xf" #"Xf" a# a a A aA aA  X&Xb" a a A aA   a  aXX>"a A a` !RAXaS aXK aXC  "XaX6  "XzaX)a#"X"a` aX  aX #"X XQaX aa  "XA a! a"XJ a az a a a p a_a( a! a"X(^aX"X1 aA a a! a"X a! a"X a! a"X2a a Da  a  a  a! a"X 3 ! a! a"X  Xm` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\RR\RIR@T:\ RILIRTԫRIRB  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR Da H XԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HTΫ HsLoAAd]TԫRRB |LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaX \X N[ hhhIuhi f[G ߂M^@BPCE}GN HJzLLK@H nbb@`Ϋ HsLoAAd]TX X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XTbX&)+25,Ȱ#`X TA a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9Tbbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! Ta a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XTbȰ#`X`!dB2 @rdR@`/@oH h HX  sD  1  : E /` `"i #y a%XAH!""" A#*   "!"X%# a1rX""  "!f" !" f""" f" "h`X``` a` a` `/" 4 A *a A    gR@R@ -A` .a ` a! a"X a! a"XX@T굕X -`" ` c1Xd 2QT굥qX c1XT[Zd@X #  a` aܐ!XdTYD]@XX a Ea a! a"Xc a! a"X a  +a `"d` 5 aX aaXa `aBP@@` ``T굕BP@#dRAR`B@ @"si`  dr$Rd`@$dR@ R  DA ) H f H g AddRAa READY? MNUPRO MIIN THyyyyTHyyyyyyyyܨTIay TImT2tz MIINP eMT25U0MT25U1IOPR JJBFLV4DOUT FBASV4MTBFE0 MTBFE1EXITF 0FMSAVAJPFLV4zDELQMST COSIGNER ACCAGE ACTFIL SUMHIST TAPEARC INACCT  FILE SPACE REPORT FILE MAXIMUM CURRENT AVAILABLE PCT SPACE NAME RECORDS RECORDS RECORDS AVAILABLE THIS FILE MUST BE COMPRESSED AND HISTORY MUST BE RUN ***** WARNING - THIS FILE SHOULD BE COMPRESSED ***** *˨*{*ˢABx*2edz2fdz2ddz h h fy 1 (݀yhT}Yyyy - (πyhThzyy| dyXNyyy#y$y , (yh\Yzyy|yT}y%TX@|Fzy&d|L\-@|LzȍOy \z|Hz\zzz\y*\@|Fzy+l\-@|LzzO \оz|Hz\˾zzzzzzzyzyzy@ h\-@|Lz\y\~z|M\zz|Jz@ "{ydyT}R9y|\Z:y| dzz hTwNU #1T~\Z;y| lz5h\ #1\\Ry| l΀zh\R 1\z\z\z\\Z?y} l̵z h\18ܯ (1\\Z@y} l̢z5h\BFܜ (1\\RAy|ydyT}ZCy} dzy;hTwBL 1\y\y\y\zT~TXzz|M&!9\zz|M!\ZFy| lЀz]h\GE #1\HHC\ZHy| l̳zh\TAܭ #1\\RIy}3yl\ZKy} l̘y;h\ܒ 1\y\y\y\z\\zz|M!4\zz|MȺ!T}ZNy} dzz]hTw (1T~\ZPy} lzh\ (1\\RQy|T}Wyyz 2z\RTy|\RUy}6TIm(1H1,////,52X,9A2,2X,1H-,2X,2(1A2,1H/),1A2,////)(/) (//)(40A2)(31X,40A2)(5X,4A2,X,2(4X,F8.0),5X,F8.0,10X,F4.1,1H%)(36X,4A2,X,2(4X,F8.0),5X,F8.0,10X,F4.1,1H%) (X) (1H1) T2tX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh` @` `@X(""``TX\ ``@ `@X ""`\$HhB4 "c" H]h\hRhMhRKuXhKJhAHFv" c h8"5T39cT#h.h;X7H&8%#T$h$h`  T%T  TF T~T4h255؈ȇXuh&ڨ*IhTVT~~~~p=H ' &eh @ȫTdȨXȞ T~ȡ`><Ȓ T H T  ~2d~Tɠ T TT~~~~~~~~~~ h3HHdhdDhhdTFKhh hHL8@ hk"ThTԘ} hy"  b hqT PިXM H֨CbCwΨ U hS Va `hL1D{lEwe& ?!RX"ȭ ȩ!0XHyl'e #!6X Ȍ TT `h XX\\ TaH #h! T%T hBDhEhBhBhDhwjh:8# `h9 V1a Dh/X+)*h+DT  #%  # Dj A Dh h h  Hhh&aH3[HX" L!`Ψh T%T aH> 3 DH-j+̾Ⱥ(j'% hȲDhT ̝Ȟ̘nΙlؘؚș _ U h HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBH j `0 dF'd   hrHr s"htjqh hDh`Hah`I/O REQUEST Pn     X XX*EX XX&X+@XXX< XwhHh h,:h*X" .h$ h!X 7h hX TShX THXӏ̊d TL `u HehdhgXlXvhb"aTZWDT hUHUHRRQ  pJf XNXXhEn HAXHXR(?R!39h9X?XInhTK  NX0h+ h n ;ln  H T` + ȋXh؆1   HhH㞚  T%T hhhhdy}hhuXh̺ (BD~ n&ȫdzȫ  hJIEhE h h  hh h8H6~20TɠXDX h%`" "h*hT˂ TJ h hhh ll X# Xhh@4i` Xj T%T Cr q d Y hUDhT XHXlhNXghX^h:a62Hl20X), H,)H& XX>h a&hh۸nX X h H   HShhh<@ TH $T\h9Dh5TFh122-3 T%**%!!Tɠ TF \TT \T  H+h* r Gh hlBhHX"9" "hh0" T+TX% hT\H `CT T@ TFhTh XX TɠT 2X X' h$  X0X XzШ Xhˠ T% T H= X H8X H0TX*@) \TJ   hTH+ _STOP PAUSE " h\H jN qDhQ`hS \hL!:R hJE hBEOi:Dha.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  T}"" R1 H XRRt`p FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7*?-  TƈLjȈT ! ! , h\.%ȉ&% Kh !\݈ȉ(*ȉ)* 9hTH,ȉ'---.HTxTh\h\h\h%h Hq``XA`HX9" h H   hhhhhTTHTxTh\hh\hha+ )(,/.XH0123456789AREF$ID'*Z H'sLoA   h l : T~ l ll hLv l \ hlElh hhhh hhT[ h hظȶ趖 ,Ȱ"!& 1 ,j!#%')/ 1TT2t6 l44 l2 / ! + !l d&d l!!   d d dT[  % 1d\ \  l !  ld l l l l l\Ɗ  d~ '6 l 1 '"TT2t 6T~ l d d d l ll  T \T̙ l !  ddT[\ފ l ! d̹ $ l, l d~d ldl d l l l l l l d̘  l̒ \̹  <̱   ḷ l !& !/ l 9!/̫ !+̧ h$kl !( l 5Tb l̻ ̵dl\gdgTaT2tb  0l\l\ ldmdn d^:\͌b  ldo 9!. !* hgĈl̨ l 3\b    dd !Tgd l F7̣ 4̠ l̜  0lTaT2t dqdrldhdsdtdu d^ f 1Tbb  l    l  l \݌blK $k lLdTvdgwl,lLlll ̲ l,܌lLlެll,Ќlxdn yl ̓ l Tbb B > : 6  93 % bt u l 95 2v  0lo  d dqlX̺ ̷ K ̯  Ed_ l D\b̠ ̜  dsb  9! ! dTr$kl c"q l Tb b 0l ḏ k3 dl՜uldCdDdEdFdGdHK D lldIdJl T1̻ q_  lh  dldldl ddTd l\d l\dṊl T، q ̚dl̛dl l\Ռd l\Ќd)" < ) EHp dK; d`l\`d ! !lHdbflTb̘l\b l\b l  Hll\bˬl d} l dUdVdW d^ n 1 d~ +dhds ddTUd l\Vd̗  l\Wdd[dYdZʤd  -lܺdldlK dl TXTQXd]cl  -ldlld d /̼d\d$kl,ldwlLdTvllLld߬ld,l,ތl,l,l  ,Llجٌl̶dlLlͬlڌlLdԬlܦfK ̜ !̗ ! d  d^n 1s  ] l 7 -ldl  Ԝl Όl d !Y 1TΫ n !M̷ d̳  l!̩ l !5 n̜ ܡ, d/̥  ̦ l 7 +l̞dlܚ dnn 1 l. 0n 1 d^ 0n 1 dm   }dls Ô]l̿ !i̻  l̶8Te lh \h ld~ dl !  0ṉh\ ܫ l̹ l\̌|̳ l  2\j̥ l 2mh\5 l l 2\ l} !dn  d^8Te lh \h l\j\| l  ̳h\ܭ lK \֌{ l\ьz\όs]d[d+ !" 8 % l\jܨ 1P\j\/J\/\0Dddd ddldn d^l`p=l  lܹ 0f..lۜll 1  +dh d}lTdld dl -l l l  l 0d/d !#  l5Teܘ \i lڜ9^.h\ lӜ4\ጋ dd\d̨ld dddl *l ̬ l̩d ,\e̤ l ! l l윳4\jܯm l`p5PdTvl 0e. 4 n ḽḷl^ 1 l l  1 d " l +Te l ! dn " ll 8̽.h\ܷ " l  l\ьp̥ l !\Ōe̶ l !b@aH^H[TxThh\hhhFhhhh{hhh\hhhhhhhah\hqhhvhhI\hgh\hch\h_h\h[h\hWh\hShA1 T}` h/&hHgaV`H _H H M A cTXFRXB H H\ȔTXȔȕx=:\ؔȕzȕx/  HI&Aa%acAD aa h h HR hh H T}Ժ hHXhxhy`Xhh{ HfL#dhtHg ! lbag4lZ a``]cTX^RXZ I^HTXcc HG9Qs>L1a: Lw T&RH5 I  vR  LaT\cT HI& hh Hxuhi[G M^@BPCE}GN HJzLLK@ X@` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\!!\!!@T:\ !!T_Ԗ!!B  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR & H XԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HT_ HsLoAAd]TԖ!Ֆ!B |LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaX\X N[ hhhuhi f[G ߂M^@BPCE}GN HJzLLK@H =bb@` HsLoAAd]TX X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XTbX&)+25,Ȱ#`X TA a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9Tbbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! TEa a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XTbȰ#`X`!dB2 @rdR@`/@oH h HX  sD  1  : E /` `"i H"h! HX @    ` `"i MNUPRO LTHyy y y TImTy"y yTIayT2t HK!"hE!dhDH3  j;Tzzryuyr4"Tzzrzysyr*!vTzzryr H H  -X~z H   #3T Xo H  Xyz$$SYMSGF$$ \"Xq HI HXGz  X\Xn H: H X8z  Xz+ H(X)z> H$X4z \ȵ" \bTzzryr ȮX2whth \zF h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :Xz> H"A HB0Fh  0Xz> yq 00j qa! -" hh! u  HTLDzzzhHHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`C FBASV4MTBFE0 MTBFE1EXITF 0FMSAVAJPFLV4Tzs>L1a: Lw T&RH5 I  vR  LaT\cT HI& hh Hxuhi[G M^@BPCE}GN HJzLLK@ X@` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\!!\!!@T:\ !!T_Ԗ!!B  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR & H XԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HT_ HsLoAAd]TԖ!Ֆ!B |LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaX\X N[ hhhuhi f[G ߂M^@BPCE}GN HJzLLK@H =bb@` HsLoAAd]TX X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XTbX&)+25,Ȱ#`X TA a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9Tbbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! TEa a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XTbȰ#`X`!dB2 @rdR@`/@oH h HX  sD  1  : E /` `"i H"h! HX @    ` `"i hRhMhRKuXhKJhAHFv" c h8"5T39cT#h.h;X7H&8%#T$h$h`  T%T  TF T~T4h255؈ȇXuh&ڨ*IhTVT~~~~p=H ' &eh @ȫTdȨXȞ T~ȡ`><Ȓ T H T  ~2d~Tɠ T TT~~~~~~~~~~ h3HHdhdDhhdTFKhh h/  ̡lT4 Tӏ̘l dT̯ Nα άId 7ΦKd ,\ݏT2 \ӏ @Sm mфPn̟d! l\̱ \ d< dTF̕ DELQMST ACTFIL UPREQ ), n#lwOKEX  8 INCORRECT TAPE MOUNTED ACCOUNT=# NOT FOUND ON 8d l MOUNT TAPE LABELED: / / ENTER "OK" FOR READY ENTER "NX" FOR NEXT RECORD ENTER "EX" TO END TAPE d YES NO\!#!dd * 7 d d !  NX 0 l  !h'+50T4THy]!"#2hh2ghT.jTz hɀ-hTl 1 hȻAh\ص 1 dyih\ 1 hȠUh\ؚ 1T dy h ,hh'fyM 1 ,yhT̠yN* dy* " l+n 1 1 ltn 1 dyZ\yyN* "Tyya,* lˤ- "Tyay.y.\y./.Tya01y122 7 d\ya01y1yidyjdykdTH!343(5   HF  lG`d6T߃1}I76yT\y898̯ Ty "̣ "T}Iy1y1\y1y12̉  \!3:zzz5 dT}Iy.y.22 !  lTyya* dy\my898*- "\yay.y.2  l d\y)y)\ya;<y<hTy "{\}Iy.y.2̨   \}Iy.y.2̙  dm =d d' l>,}IhTqy.y.22 LTd?T~? c!>Ty.2y.d:\2y;{y;,ƀ}Ih\ @A2@ATy62{* dy* !d\Ԃy)y)ܦ̥ ! dTzv M dyhTF 1 lh\ 1 lh\h 1 lրh\ 1TT< TH!3Bzzz5 dTyNy*!\r} eTy*\y*\y6*TImh(1H1,20A2,9X,26HTAPE HISTORY UPDATE REPORT,/,1X,20A2,14X,9HRUN DATE:,A2,1H/,A2,1H/,A2,/,1X,20A2,//,20X,14HACCOUNT NUMBER,8X,14HBORROWERS NAME,17X,12HDATE OF TAPE,5X,17HRECORDS ADDED TO ,13HACTIVITY FILE,/) (19X,8A2,5X,15A2,5X,A2,1H/,A2,1H/,A2,19X,2A2) (//,50X,21H*** END OF REPORT ***) T2tX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`X/X+X'X# XX}XXXa"a X" XIb XFb XCa X@b bX<Ȓ T H T6 \dT T6TT h3HHdhdDhhd*TFKhh hHL8@ hk"ThT} hy"  b hqT PިXM H֨CbCwΨ U hS Va `hL1D{lEwe& ?!RX"ȭ ȩ!0XHyl'e #!6X Ȍ TT `h XX\\ TaH #h! TOT hBDhEhBhBhDhwh:8# `h9 V1a Dh/X+)*h+DT6  #%  # Dj A Dh h h  Hhh&aH3[HX" L!`Ψh TOT aH> 3 DH-j+̾Ⱥ(j'% hȲDhT6̝Ȟ̘nΙlؘؚș _ U h HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBH j `0U m̴'d N hrHr s"htjqh hDh`Hah`I/O REQUEST ld     X XX*EX XX&X+@XXX< XwhHh h,dh*X" Xh$ h!X ah hX T}hX THX l TL `u HehdhgXlXvhb"aTZWDT hUHUHRRQ  pJf XNXXhEn HAXHXR(?R!39h9X?XInhTK  NX0h+; 98h n ;ln  H T` + ȋXh؆1   HhH㞚  TOT hhhhdhhuXh̺ (BD n&ȫdȫ  hJIEhE h h  hh h8H6\0TXDX h%`" "h*hT֌׌ Tt h hhh ll X# Xhh@4i` Xj TOT Cr q d Y hUDhT XHXlhNXghX^h:a62Hl20X), H,)H& XX>h a&hh۸nX X h H   HShhh<@ TH $T\h9Dh5TFh122-3 TO**%!!T TF \TT \T  H+h* r Gh hlBhHX"9" "hh0" T+TX% hT\H `CT T@ TFhTh XX TT 2X X' h$  X0X XzШ Xhˠ TO T H= X H8X H0 TX*@) \TJ   hTHSTOP PAUSE R , h\H jN qDhQ`hS \hL!:R hJE hBEOi:Dh   h 0 l : T l $ll h .. l \ hlElh hhhh hhT534 h hظȶ趖 ,Ȱ"!& 1 ,j!#%')/7 1T> T2t 6 l44 l2 / ! + !l dVd8 l!!   d9d3 d4T934 % adT LPI\:\  l !  -ld;l l l l l\ƒ934 d W62<l/ a W"T> T2t 6T l d+ d1 d0 l ll  T+5\5T5̙ l !  d3d4T534\ޒ5- l ! d5̹ $= l., l ddE ld/l d l l l l l l d*̘  l̒ \5̹  ḻ  lT5\5 ̡  l̙  lT+52H/TThV\hD\hB\hhh\hh\h\h\h#h\h\hhl4 l2 / ! + !l dVd8 l!!   d9d3 d4Tu934 % adT LPI\:\ 'd !  -ldl l-0 \ƒ93F d ED.<l/ a *W"T T h jظ 1 h " < )P d{ h \ d̼ !T+ 9ldRl̩ l  dTܔ\㔒̛  ldRll d d\ɔ    !> ḷ l !& !/ l 9!/̫ !+̧ h$l !( l 5T+ l̻ ̵dl\gT>T2t  0l\\ ldd d:\͔  ld 9!. !* hĈl̨ l 3\    d !Tܔ l F7̣ 4̠ l̜  0lT>T2t ddldddd d fD 1T+  l :  l  l B\ݔnjl{ I$ lLddlH,lLlll ̲ lG,܌lLlެllF,Ќld l ̓ l BT+ B > : 6  93 %   l 95 2v  0lo  d dlX̺ ̷ { ̯  Ed l D\̠ ̜  d  9! ! d$l c" l T+  0l dJ̱ k3 dl՜ldsdtEduFdvGdwdx{ D lHlIdydzl TFJ̻   l  dldldl dTܔF l\G l\HṊl TFJJ  ̚dl̛dl l\ՔF l\ДG)" < ) EHp d{; dl\ ! !lHdlT+̘l\ l\ l  Hll\攒ˬl d l ddd d n 1 d +dd dTܔ l\̗  l\򔇔dddʤd  -lܺdldl{ dl T㔈Tdl  -ldlld d /̼dd$l,ldlLdllLld߬l,l,ތl,l,l  ,Llجٌl̶dlLlͬlڌlLdԬlܦfJ{ ̜ !̗ ! dK  dn 1  l 7 -ldl  Ԝl Όl d !Y 1TΫ n !M̷ d̳  l!̩ lJ !5 n̜ ܡ, d_̥  ̦ l 7 +l̞dlܚ dn 1 l^ 0n 1 d 0n 1 d : :DŽdl Ôl̿ !i̻  l̶8T+ l \ ld dl !J  0ṉJh\ ܫ l̹ l\̳̔ l  2\̥ l 2Jh\5 l l 2\ lǔ !d  d8T+ l \ l\\픬 l  ̳Jh\ܭ l{ \֔ l\є\ϔdd+ !" 8 % l\ܨ 1P\\_J\_\`Ddd ddld dl`p=l  lܹ 0f^.lۜll 1  +d dlTܔld dl -l l l  l 0d_Ɯd !#  l5T+ܘ \ lڜ9^h\ lӜ4\ᔻ d\̨ld dddl *@l ̬ l̩d ,\̤ l ! l l윳4\ܯm l`p5dl 0e^ 4 n ḽḷl 1 l l  1 Ɯd "B l +T+ l ! d " ll 8̽^h\ܷ "B l  l\є̥ l !\Ŕ̶ l !b@aH^H[TThh\hhhFhhhh{hhh\hhhhhhhah\hqhhvhhI\hgh\hch\h_h\h[h\hWh\hShAd T` h/&hHgaV`H _H H M A cTXFRXB H H\Tu=:\؜/  HI&Aa%acAD aa h h HR   H TԺ hHXhxhy`Xhh{ HfL#dhtHg ! lbag4lZ a``]cTX^RXZ I^HTu HG9Qs>L1a: Lw T&RH5 I  vR  LaT\T  l\򔇔 hh Huhi[G M^@BPCE}GN HJzLLK@ aafRda -a0F 0ac 2 .a `9ac a aA `! aa a( a .a 0a!D Q" !yR *a aa A a! a"X : a! a"X uX H H "4` " "aXaX ahh`XPqa aa a a a a a! a"X a"  6 9! T d  a a! a"X    `  `  aX aaX " a   a! a"X   aaX 'bdRQ"X; aX 3 aX +  "XaX r  "XaX  XaX X f" #"X f" a# a a A aA aA  X X " a a A aA   a  aX X "a A a` !RAX(aS aX mK aX eC  "XaX 6  "XaX )a#"X j"a` aX t aX #"X R XaX aa  "X a! a"X a az a a a p a_a( a! a"X ^aX X1 aA a a! a"X ? a! a"X z a! a"X s2a a Da  a  a  a! a"X  3 ! a! a"X G   `a` ` `X,8A"C  x&LpsX;a*XFXXȰ,` Ȱ#`X `Ȱ#`X`Ȱ#`XXhbXO`Ƞ$d `d`Ȱ.`X XXLbb Ƞ$`S@@`Ϡ *`@ed`d`X` `Ƞ4`n Ƞ$Ȱ$>a.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  T"" R1 H XRRt`p X` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\||\|s|@T:\ |svs|TԤ|s|B  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR X t H XqԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HT HsLoAAd]TԤ|0|B |LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaXk\Xc N[ hhhsuhi f[G ߂M^@BPCE}GN HJzLLK@H bb@` HsLoAAd]TX X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XT.bX&)+25,Ȱ#`X T.A a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9T.bbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! Tba a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XT.bȰ#`X`!dB2 @rdR@`/@oH h HX  sD  1  : E /` `"i #y a%XOH!""" A#*   "!"X3# a1rX)""  "!f" !" f""" f" "a""! h " "f"" "f" !"` a! a a"X  a! a"XXaa a a! a"X~"  !T 9!a Fa a! a"X a a! a"Xf a! a"X a a! a"3X6Xh`X``` a` a` `/" 4 A *a A    gR@R@ -A` .a ` a! a"Xi a! a"XX@TuX -`" ` c1Xd 2QTuqX c1XjTu[Zd@X #  a` aܐ!XsTuYD]@XJX a Ea a! a"X a! a"X, a  +a `"d` 5 aX aaXa `aBP@@#4h h` ` ``TuBP@#dRAR`B@ @"si`  dr$Rd`@$dR@ R  DA ) H f H g AddRAaDELQMST IOPR JJBFLV4DOUT FBASV4MTBFE0 MTBFE1EXITF 0FMSAVAJPFLV4Tz BX XcA/h h hhTLa(X /h`h!X#4XXhhXXD0 XX (hF_hXnX\ h2XY h+hL hNI'Jh,h>)X6h3 h,X?Xh"TLTHX!   REWIND LU 004HH}zhv h+h&X'XHXH 0F 0HhheX 0F 0H 0F 0**HH-5'h"O E $n Q ߠh1h.b$% b%TL_(# h  0X"X"X  hX _X; ^X9HN hN DC ! _X#= X 9 % h3 X _X- 1  &X .  h#(X h"Hcll-h TLssUUs _X _X" X h %L TLshh h  hTH|(jh 'n q hhyh{{vthvqhuTH8kkHirfH eW ha  _hZȉ hTȄNHLd lǦE lCBuhB  _ 2< 81  .H-%,!)h(qhȐ1`b) "$Ƞ g" g"aXQ d UUUUUUhXSXV:Xmhghh|h ?X8T`DTH(RrIhCXXXX>X X hJX^XX h<X6 X /حX X X0i-f*c [hZhYhSQOX` X"H0hQ hMKhIhhhhhhhTL(Ȓ T H T  ~2d~Tɠ T TT~~~~~~~~~~ h3HHdhdDhhdTFKhh h/  ̡lT4 Tӏ̘l dT̯ Nα άId 7ΦKd ,\ݏT2 \ӏ @Sm mфPn̟d! l\̱ \&D h?!9 h XTLS(Rzhi (hsXX ChFXEXtTL(i - j Q  hTL(Lh.hXEX)ȧ hh*COPIED*X hh^ hhhTh)/h/hM h`h\hh8h5hhhhhhh^XZX (    pho lm 2 1( hd Flao/hkV/hR"Y/"HU ZGWM UX=EXXXRXXdX hh`"aaaȹ XشX2X} X*X^XXYRIh`Hh`HhH| XtXnX hXtXXXohXX^XXeXXXXSXXZXȨ! ȣXXȚ1 Xȋ1X}XTE dF d \  \ W K\M ν θK  αK Tӏ\̽ Q̹  l d@m dT̤ ̠ TF̚ 0  l\ d!̛  d d)X6h3 h,X?Xh"TLTHX!   REWIND LU 004HH}zhv h+h&X'XHXH 0F 0HhheX 0F 0H 0F 0**HH-5'h"O E $n Q ߠh1h.b$% b%TL_(# h  0X"X"X  hX _X; ^X9HN hN DC ! _X#= X 9 % h3 X _X- 1  &X .  h#(X h"Hcll-h TLssUUs _X _X" X h %L TLshh h  hTH|(jh 'n q hhyh{{vthvqhuTH8kkHirfH eW ha  _hZȉ hTȄNHLd lǦE lCBuhB  _ 2< 81  .H-%,!)h(qhȐ1`b) "$Ƞ g" g"aXQ d UUUUUUhXSXV:Xmhghh|h ?X8T`DTH(RrIhCXXXX>X X hJX^XX h<X6 X /حX X X0i-f*c [hZhYhSQOEG TSMUSRNTSUSRSYSYER78THy}}}T}iyy} (T~Ly}}}TImT}Oyy-} 1\y}}}T}gy}\T2tX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh` FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7?- T~}}}}}T~} ! ! , h\}~~ }~ ~ Kh \}~ ~}~ ~ 9hTH~}~ ~~~~HT~\T~jh\h\h\hh Hq``X`HX " hHhB4 "c"H h HX  sD  1  : E /` `"i H"h! HX @    ` `"i xMIINP PR JJBFLDLYASSN DAQUE FBMTBFE0 THyiyoypyq TImTzyyKyr !<\y-yZyr !;TyyyysyrרؘA !2ʔy Ĕy hhy$hy%hTyy-yEyEyrȳ !hhTzyKyuyryo\yZyuyryo \yKyvyryo\yZywyryoTzyyr\y-yr\T2tX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh` FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL73?- T{]zHzIzJzpzIT{0zm ! ! , h\zqzzzJzz Kh \zJzzzJzz 9hTHzzJzzzzzHTzT{h\h\h\hh Hq``X`HX " hHhB4 "c"H h HX  sD  1  : E /` `"i H"h! HX @    ` `"i {_MIINP eMT25U0MT25U1IOPR JJBFLV4DOUT FBASV4MTBFE0 MTBFE1EXITF 0FMSAVAJPFLV4Tz   aaX 'bdRQ"X; aX 3 aX +  "XaX r  "XaX  XaX X f" #"X f" a# a a A aA aA  X X " a a A aA   a  aX X "a A a` !RAX(aS aX mK a\o*[,g_),Y|,Y*kO*ΰB*ΰ3*˨*˨*{*ˢ*\`**CC*n ^ ą Ĭ2*V*\2.COPRDECTBL .M.M2CRDEADDSPTDUEXDBY INPUT=b.Q..Nc.YP O*d O#'.TH{"z{E{F TImT*{ z{G "$T({ {GTkRz{(39H DECISION TABLE MAINTENANCE PROGRAM IN ) h\Rz{\(38H INPUT CR/DE/AD/DS/PT/DU/EX TO EITHER,/,52H CREATE A COMPLETE TABLE, DELETE A TEST, ADD A TEST,/,50H DISPLAY A TEST, PRINT THE TABLE, DUMP THE TABLE,,/,16H END PROCESSING,/) {D T{Iy{JTHz{K{7{L{K{={M{N{={. w{4 "{CdyTd{Hy{O{O {/ }ܔ{0 }Ք{1 }Δ{2 ~qǔ{3 ~{5 ̨ h l?TkZ(z|q dy{<Ȓ T\ H T dbTX TT\T````a````` h3HHd#hd$DhhdTFKhh hHL8@ hk"ThhTc} hy"  b hqT PިXM H֨CbCwΨ U hS Va `hL1D{lEwe& ?!RX"ȭ ȩ!0XHyl'e #!6X Ȍ TkTz `h XX\\ TaH #h! TT hBDhEhBhBhDhwh:8# `h9 V1a Dh/X+)*h+DT  #%  # Dj A Dh h h  Hhh&aH3[HX" L!`Ψh TT aH> 3 DH-j+̾Ⱥ(j'% hȲDhT̝Ȟ̘nΙlؘؚș _ U h HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBH j `0N S'd n̬ hrHr s"htjqh hDh`Hah`I/O REQUEST dǻT     X XX*EX XX&X+@XXX< XwhHh h,h*X" h$ h!X h hX ThX TcHX0 / TL `u HehdhgXlXvhb"aTYZWDT hUHUHRRQ  pJf XNXXhEn HAXHXR(?R!39h9X?XInhTK  NX0h+ h n ;ln  H T` + ȋXh؆1   HhH㞚  TT hhhhdkhhuXh̺ (BDb n&ȫd ȫ  hJIEhE h h  hh h8H60TXXX h%`" "h*hTޅ;<= T h hhh ll X# Xhh@4i` Xj TT Cr q d Y hUDhT XHXhNXhXh:a62Hl20X), H,)H& XXh a&hh۸nX X h H   HShhh<@ T\H $T\h9Dh5TFh122-3 T**%!!TX TF \TbTW \T  H+h* r Gh hlBhHX"9" "hh0" TY+TXX% hT\H `CT T\@ TFhTXh XX TXTk 2X X' h$  X0X XzШ Xhˠ T Tk H= X H8X H0pTuX*@) m\TJ   hTHkSTOP PAUSE h\H jN qDhQ`hS \hL!:R hJE hBEOi:Dh =2 h7  h- hT{Hv hhܘ!/ (1#TkZ hȝGhTؖ (1TA(40A2) h\ГHvfGدȬ $ȢfH\Z lGh\ђ (1\Ȓ \Hvpl\Z lрGh\ (1\u dsz\Z\q\ lHTyT h h\hhhh\hNZ**%%\- ((26Hl> =2 h7  h- hTHv hNULL.EQ..LE..GT..NE..WE..OS..AND. .OR. ؖ (1T2) \ГHvfG TV "N0hT*yvȹ(h\zwȲ!h\{x h h hTkZT\v\w\xTA1s(/,/,34H DECISION TABLE TEST NUMBER -,I4,10H LVL - ,I1,10H, NLVL - ,I1,8H, NP - ,I1)\R%(/,64H PRM NUM OPERATOR VALUE 1 VALUE 2 CONNECTOR ) V lI d}x"T{syTepsfe  d~ df $y d d؜  l lTkZT}dߜ9Vh\{ d-oh\ 1 lrh\ڔx 1d8fh\ABTA(8X,I1,10X,2A2,6X,1H*,3A2,1H*,5X,1H*,3A2,1H*,7X,3A2)}p\Z"̯h\RM̩h\PE\$(/,31H NUMBER OF RESULT VALUES - ,A2,22H, CURRENT POSITION - ,A2)khT*,h\ Th%\$ d d dTkZ)(l9̖hTܐTA(15H RESULTS - ,2A2,9(1H,2A2))\R+? (/,12H END OF TEST,//) ll.H+TyT hgh] h)hh\ hh\hhJ\hChhh?hh\h RMh\<hUhmhh h\hY\h+\hh\ h h h\ h h' h{ hz\ h hL ho hn\hhd 1ǜ ! TF \TbTW \T  H+h* r Gh hlBhHX"9" "hh0" TY+TXX% hT\H `CT T\@ TFNULL.EQ..LE..GT..NE..WE..OS..AND. .OR. ,,CCS 2.0 $ X 0X  XzШ dD 2dh 2fh 2eh 2nhTkZ h ,̀hT 1\\\\TA'(1H1,43X,5A2,37H DECISION TABLE CONTENTS DATE ,A2,1H/,A2,1H/,A2,I5)\RCA(122H0 TEST LEVEL NEXT NO. OF PARAM PARAM PARAM PARAM PARAM NO. OF RETURN CURRENT RETURNED VALUES)TkR9(106H NO LEVEL PARAMS NO. OPERATOR VALUE 1 VALUE 2 CONNECTOR VALUES RET VAL )DTϙЙϔ dќ!_ d ,hWTfn 1 ,oh ,ThT1H/,  d ,h2`-fC ,h(%n $ l ,h`f ,hf ,h fܞRR l ,ḥfܙ 1 d6d7d" dTJՙә8 1 KKd٬H$d ld d d 3 d)d \ʙߙ8 lhT*dә\ߙ8ܴ 1Ϝ 7 !T l̙ \TkZE(TD\\\\ d $ΌBh\ 1 d ,Sh\ 1 d ,ߌnh\RR 1 d ,όh\  1̤h\̟h\d d7h\ 1TA3(1H0,2X,I3,5X,I1,6X,I1,6X,I1,6X,I1,6X,2A2,5X,1H*,3A2,1H*,2X,1H*,3A2,1H*,3X,3A2,9X,A2,11X,A2,5X,12A2)7 "TkZIT d ,Bh\ 1 d ,݌Sh\\ 1 d ,͌nh\ 1 d ,h\ 1 d7h\\ 1TA&(32X,I1,6X,2A2,5X,1H*,3A2,1H*,2X,1H*,3A2,1H*,3X,3A2,9X,2X,11X,2X,5X,12A2) TkZL l€7hTI1ܻ 1\(104X,12A2) K d6=\ZU\\\,(1H0,17H END OF TABLE ,21H TOTAL TABLE LENGTH =,I4,24H MAXIMUM TABLE LENGTH =,I4) 1@0H-H*TyT hY hjhh h h hI h\hhhhKhhqhiT,&2X,I1,6X,2E "p8(d>h (  h hT* 8 h h hܘ!) h\     ؽTJȴ س lȮlHTyThh\h\h\h DECTBL n $"3 l: 8j6 412h l.T* !*T ! T(Ԝ !  hhƘ9 n d ȺlȺlȸlHTyTh\ h h h h\hh Hq``X`HX " hHhB4 "c"  hhhhhT THTyTh\hh\hh!+ )(,/.XH0123456789AREF$ID'*Z9n d ȺlȺl ȸ  h l : T: l ll h l \ hlElh hhhh hhT h hظȶ趖 ,Ȱ"!& 1 ,j!#%')/ 1TT2t6 l44 l2 / ! + !l d9d l!!   dd dT % Ddd Ⱥl\\  l !  ldl l l l l\Ɵ d :6l D :"TT2t 6T: l d d d l ll  T\T̙ l !  ddT\ޟ l ! d̹ $ l, l dd( ldl d l l l l l l d ̘  l̒ \̹  O̱  OT\̡  O̙  OT2H/TyThV\hD\hB\hhh\hh\h\h\h#h\h\hhl4 l2 / ! + !l d9d l!!   dd dTX % Ddd Ⱥl\\'d !  ldl l-0 \ƟF d ED.l D *:"T T h jظ 1 h " < )P d^ h\ ds̼ !Tu 9ludRl̩ l  dwTAsw\ư  lxdRlyl dz d{\ɡu    !> ḷ l !& !/ l 9!/̫ !+̧ h$~l !( l 5Tu l̻ ̵dl\zwgTtT2tu  0l\\ ldd dq:\͡u  ld 9!. !* hzĈl̨ l 3\u    dw !TAzw l F7̣ 4̠ l̜  0lTtT2t ddld{ddd dq f' 1Tuu  l   l  l %\ݡul^ ,$~ lLdgdzl+,lLlll ̲ l*,܌lLlެll),Ќld l ̓ l %Tuu B > : 6  93 % u  l 95 2v  0lo  d dlX̺ ̷ ^ ̯  Edr l D\u̠ ̜  du  9! ! dg$~l c" l Tu u 0l d-̱ k3 dl՜ldVdW(dX)dY*dZd[^ D l+l,d\d]l T)-̻ r  l{  dldldl dwTA)w l\*w l\+wṊl T)--  ̚dl̛dl l\ա)w l\С*w)" < ) EHp d^; dsl\sw ! !lHduylTu̘l\u l\u l  Hll\uˬl d l dhdidj dq n 1 d +d{d dwTAhw l\iw̗  l\jwdndldmʤd  -lܺdldl^ dl T kTdkdpvl  -ldlld d /̼dod$~l,ldlLdgllLld߬lw,l,ތl,l,l  ,Llجٌl̶dlLlͬlڌlLdԬlܦf-^ ̜ !̗ ! d.  dqn 1  p l 7 -ldl  Ԝl Όl d !Y 1TΫ n !M̷ d̳  l!̩ l- !5 n̜ ܡ, dB̥  ̦ l 7 +l̞dlܚ dn 1 lA 0n 1 dq 0n 1 d  dl Ôpl̿ !i̻  l̶8Tx l{ \{ ld dl !-  0ṉ-h\ ܫ l̹ l\̡̳ l  2\}̥ l 2-h\5 l l 2\ l !d  dq8Tx l{ \{ l\}\ l  ̳-h\ܭ l^ \֡ l\ѡ\ϡpdnd+ !" 8 % l\}ܨ 1P\}\BJ\B\CDdwd ddld dql`p=l  lܹ 0fA.lۜll 1  +d{ dlTAwld dl -l l l  l 0dBd !#  l5Txܘ \| lڜ9qAh\ lӜ4\ᡞ dw\w̨ld dddl *#l ̬ l̩d ,\x̤ l ! l l윳4\}ܯm l`p5cdgl 0eA 4 n ḽḷlq 1 l l  1 d "% l +Tx l ! d " ll 8̽Ah\ܷ "% l  l\ѡ̥ l !\šx̶ l !b@aH^H[TyThh\hhhFhhhh{hhh\hhhhhhhah\hqhhvhhI\hgh\hch\h_h\h[h\hWh\hShAd T` h/&hHgaV`H _H H M A cTXFRXB H H\۩T۩۪=:\ة۪۪/  HI&Aa%acAD aa h h HR hh H TԺ hHXhxhy`Xhh{ HfL#dhtHg ! lbag4lZ a``]cTX^RXZ I^HTvv HG9Qs>L1a: Lw T&RH5 I  vR  LaT\vT HI& hh Huhi[G M^@BPCE}GN HJzLLK@  `a` ` `X,8A"C  x&LpsX;a*XFXXȰ,` Ȱ#`X `Ȱ#`X`Ȱ#`XXhbXO`Ƞ$d `d`Ȱ.`X XXLbb Ƞ$`S@@`Ϡ *`@ed`d`X` `Ƞ4`n Ƞ$Ȱ$>a.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  T"" R1 H XRRt`p X` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\\@T:\ TԮB  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR X t H XԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HT"" HsLoAAd]TԮZB |LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaXk\"Xc N[ hhhuhi f[G ߂M^@BPCE}GN HJzLLK@H bb@`"" HsLoAAd]TX X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XTXbX&)+25,Ȱ#`X TXA a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9TXbbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! Ta a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XTXbȰ#`X`!dB2 @rdR@`/@oHh HX l` `"i Hh HX ` `"i  h7nA kH TyT h\h`  l l l`/l l* 1($ #hT*紈h\d l l׈ h\ l Ⱦl llHTyT h h h h h\h\h\hh}&D h?!9 h XTLS(Rzhi (hsXX ChFXEXtTL(i - j Q  hTL(Lh.hXEX)ȧ hh*COPIED*X hh^ hhhTh)/h/hM h`h\hh8h5hhhhhhh^XZX (    pho lm 2 1( hd Flao/hkV/hR"Y/"HU ZGWM UX=EXXXRXXdX hh`"aaaȹ XشX2X} X*X^XXYRIh`Hh`HhH| XtXnX hXtXXXohXX^XXeXXXXSXXZXȨ! ȣXXȚ1 Xȋ1X}XȌhȋhXXXpXX؃XX%X hzXX}XX uhSh hn@"XXXXRh0h hKaa"aaa9'?S\X"5hh h.aa, X,hGX@$X aaaX!8XShTL XXIRH H%u bbhTL(d bbTL+ **Rhheh ?X!T`DTH(RhTH(I1p`bg "$Ƞ g"Ⱦ g"ahhXrahTH((RTL2(RXhHXbbX| &hh۸nX X h H   HShhh<@ T\H $T\h9Dh5TFh122-3 T**%!!TX SUMHIST ADDACT OPENING READING DELETING BSTHy}}} hj 1 dyT~y}yy !c hj 1 hʴj 1 h l\y}y !CT~yyyyը~ l !1y hyf}fy؎ 1 lT~yyyy̧ ;T~yyy !l̝ 1̒}d}̍}Dd} , d} d} d}Tz)~d}9}hTl8}h\\yT*(/,17H FILE ERROR WHEN ,4A2,2X,4A2,11H; STATUS = ,$4,/,21H **** JOB TERMINATED ,/)T~yy\yyTImT2tX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh` H]h\hRhMhRKuXihKJhAHFv" c h8"5T39cT\h.h;X7H&8%#T$h$h`  T^T  l TF TT4h255؈ȇXh&ڨ*IhTTp=H ' &eh @ȫTȨXȞ Tȡ`><Ȓ T H TE kd T TETT  h3HHd͐hdDhhd9TFKhh hHL8@ hk"ThT } hy"  b hqT* PިXM H֨CbCwΨ U hS Va `hL1D{lEwe& ?!RX"ȭ ȩ!0XHyl'e #!6X Ȍ TT$ `h XX\\ TaH #h! T^T hBDhEhBhBhDhwh:8# `h9 V1a Dh/X+)*h+DTE  #%  # Dj A Dh h h  Hhh&aH3[HX" L!`Ψh T^T aH> 3 DH-j+̾Ⱥ(j'% hȲDhTE̝Ȟ̘nΙlؘؚș _ U h HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBH j `0\ @'d   hrHr s"htjqh hDh`Hah`I/O REQUEST  /     X XX*EX XX&X+@XXX< XwhHh h,sh*X" gh$ h!X ph hX ThX T HX  TL `u HehdhgXlXvhb"aTZWDT hUHUHRRQ  pJf XNXXhEn HAXHXR(?R!39h9X?XInhTK  NX0h+J HGh n ;ln  H T` + ȋX?h؆1   HhH㞚  T^T hhhhdhhuX h̺ (BD n&ȫdȫ  hJIEhE h h  hh h8H6k0TXX h%`" "h*hT΃ T h hhh ll X# Xhh@4i` Xj T^T Cr q d Y hUDhT XHXhNXhXh:a62Hl20X), H,)H& XXh a&hh۸nX X h H   HShhh<@ TH $T\h9Dh5TFh122-3 T^**%!!T TF \T T \T  H+h* r Gh hlBhHX7"9" "hh0" T+TX% hT\H `CT T@ TFhTh XX TT 2X X' h$  X0X XzШ Xhˠ T^ T H= X H8X H0TX*@) \TJ   hTHSTOP PAUSE h\H jN qDhQ`hS \hL!:R hJE hBEOi:Dh ḷ l !& !/ l 9!/̫ !+̧ h$nl !( l 5T:e  l̻ ̵dl\jggTMdT2te  0l\o\ ldpdq da:\͉e  ldr 9!. !* hjĈl̨ l 3\e    dg !Tjg l F7̣ 4̠ l̜  0lTMdT2t dtduldkdvdwdx da f 1T:ee  l    l  l \݉elN $n lLdWydjzl,lLlll ̲ l,܌lLlެll,Ќl{dq |l ̓ l T:ee B > : 6  93 % ew x l 95 2v  0lo  d dtlX̺ ̷ N ̯  Edb l D\e̠ ̜  dve  9! ! dWu$nl c"t l T:e e 0l ḏ k3 dl՜xldFdGdHdIdJdKN D lldLdMl T̻ tb  lk  dldldl dgTg l\g l\gṊl Tۉ t ̚dl̛dl l\Չg l\Љg)" < ) EHp dN; dcl\cg ! !lHdeilT:e̘l\e l\e l  Hll\eˬl d l dXdYdZ da n 1 d +dkdv dgTXg l\Yg̗  l\Zgd^d\d]ʤd  -lܺdldlN dl T[TT[d`fl  -ldlld d /̼d_d$nl,ldzlLdWyllLld߬lg,l,ތl,l,l  ,Llجٌl̶dlLlͬlڌlLdԬlܦfN ̜ !̗ ! d  dan 1v  ` l 7 -ldl  Ԝl Όl d !Y 1TΫ n !M̷ d̳  l!̩ l !5 n̜ ܡ, d2̥  ̦ l 7 +l̞dlܚ dqn 1 l1 0n 1 da 0n 1 dp   dlv Ô`l̿ !i̻  l̶8T:h lk \k ld dl !  0ṉh\ܫ l̹ l\̳̉ l  2\m̥ l 2ph\ l l 2\ l !dq  da8T:h lk \k l\m\ l  ̳h\ܭ lN \։~ l\щ}\ωv`d^d+ !" 8 % l\mܨ 1P\m\2J\2\3Ddgd ddldq dal`p=l  lܹ 0f1.lۜll 1  +dk dlT뉏gld dl -l l l  l 0d2d !#  l5T:hܘ \l lڜ9a1h\ lӜ4\቎ dg\g̨ld dddl *l ̬ l̩d ,\h̤ l ! l l윳4\mܯm l`p5SdWyl 0e1 4 n ḽḷla 1 l l  1 d " l +T:h l ! dq " ll 8̽1h\ܷ " l  l\щs̥ l !\ʼnh̶ l !b@aH^H[TT(hh\hhhFhhhh{hhh\hhhhhhhah\hqhhvhhI\hgh\hch\h_h\h[h\hWh\hShAdr T` h/&hHgaV`H _H H M A cTXFRXB H H\ˑTˑ˒{=:\ؑ˒}˒{/  HI&Aa%acAD aa h h HR hh H TԺ hHXhxhy`Xhh{ HfL#dhtHg ! lbag4lZ a``]cTX^RXZ I^HTff HG9Qs>L1a: Lw T&RH5 I  vR  LaT\fT HI& hh H{uhi[G M^@BPCE}GN HJzLLK@  `a` ` `X,8A"C  x&LpsX;a*XFXXȰ,` Ȱ#`X `Ȱ#`X`Ȱ#`XXhbXO`Ƞ$d `d`Ȱ.`X XXLbb Ƞ$`S@@`Ϡ *`@ed`d`X` `Ƞ4`n Ƞ$Ȱ$>a.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  T"" R1 H XRRt`p X` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\\@T:\ TԾԖB  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR X t H XԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HTԹ HsLoAAd]TԖJB |LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaXk\Xc N[ hhhuhi f[G ߂M^@BPCE}GN HJzLLK@H bb@` HsLoAAd]TX X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XTHbX&)+25,Ȱ#`X THA a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9THbbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! T|a a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XTHbȰ#`X`!dB2 @rdR@`/@oh Hq``Xb`HXZ" hh}INACCT ACTFIL DELQMST COSIGNER UX=EXXXRXXdX hh`"aaaȹ XشX2X} X*X^XXYRIh`Hh`HhH| XtXnX hXtXXXohXX^XXeXXXXSXXZXȨ! ȣXXȚ1 Xȋ1X}XȌhȋhXXXpXX؃XX%X hzXX}XX uhSh hn@"XXXXRh0h hKaa"aaa9'?S\X"5hh h.aa, X,hGX@$X aaaX!8XShTL XXIRH H%u bbhTL(d bbTL+ **Rhheh ?X!T`DTH(RhTH(I1p`bg "$Ƞ g"Ⱦ g"ahhXrahTH((RTL2(RXhHXbbX| h\H jN qDhQ`hS \hL!:R hJE hBEOi:DhTt}y}}y}\y?y}}T4yy}}y}}̤ }}œ} 2~ lT~y?y} 2~ d}\y}}}T~y?}\y}\yW}\yo}TImT2tX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`H3h2 HX/ l* "  f  ` ` `"i H"h! HX @    ` `"i  FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7B?- TtT ! ! , h\̀  Kh \\ 9hTH  HTUTch\h\h\hh Hq``X`HX " hl\HhB4 "c"H h HX  sD  1  : E /` `"i MIINP eMT25U0MT25U1IOPR JJBFLV4DOUT FBASV4MTBFE0 MTBFE1EXITF 0FMSAVAJPFLV4TzȐ1`b) "$Ƞ g" g"aXQ d UUUUUUhXSXV:Xmhghh|h ?X8T`DTH(RrIhCXXXX>X X hJX^XX h<X6 X /حX X X0i-f*c [hZhYhSQOX` X"H0hQ hMKhIhhhhhhhTL(PMHDELEPQ8STP PGMIN OPENFLFILERRNGETS CCSMVADELRECREADR 3CCSCSTCLOSFLPGMOUT&D h?!9 h XTLS(Rzhi (hsXX ChFXEXtTL(i - j Q  hTL(Lh.hXEX)ȧ hh*COPIED*X hh^ hhhTh)/h/hM h`h\hh8h5hhhhhhh^XZX (    pho lm 2 1( hd Flao/hkV/hR"Y/"HU ZGWM UX=EXXXRXXdX hh`"aaaȹ XشX2X} X*X^XXYRIh`Hh`HhH| XtXnX hXtXXXohXX^XXeXXXXSXXZXȨ! ȣXXȚ1 Xȋ1X}XȌhȋhXXXpXX؃XX%X hzXX}XX uhSh hn@"XXXXRh0h hKaa"aaa9'?S\X"5hh h.aa, X,hGX@$X aaaX!8XShTL XXIRH H%u bbhTL(d bbTL+ **Rhheh ?X!T`DTH(RhTH(I1p`bg "$Ƞ g"Ⱦ g"ahhXrahTH((RTL2(RXhHXbbX| h\H jN qDhQ`hS \hL!:R hJE hBEOi:Dhz2z '\z>zzz\z-T}yPyAz '\yAzzz\z-\yPyzz̹z̳ -T~#yAzzzT}yPzTIaz-\yPz dzy 4zLdzzHdzzDdzzdz !  !  :  4  1TIm l fyOܸ 1 dz\T2tX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`H"h! HX @    ` `"i  FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7?- T}R}}}}}T~i} ! ! , h\}}}}}} Kh \}}}}}} 9hTH}}}}}}}HT~3T~Ah\h\h\hh Hq``X`HX " hHhB4 "c"H h HX  sD  1  : E /` `"i eMNUPRO UTIFIL IOPR JJBFLV4DOUT RPTG THyy\y]y^ hTyyy y` )Tzy yay`y\TIayTyyy0yZy`ۨܘ +\y ycy`y\Tyyy`\yȤ hTyyy0y` h\yy`ȹ \yTImT2tX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh` FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL70?- T{"z zzz5zTzz2 ! ! , h\z6zuzlzzmzl Kh \zzozqzzpzq 9hTHzszznztztztzuHTzTzh\h\h\h*h Hq``X`HX " hHhB4 "c"H h HX  sD  1  : E /` `"i H"h! HX @    ` `"i UTIFIL DELQMST RPTTBL RPTPGM RPTWKE TSMENDMJPCHGE*9ALCLGH89SCHS PA14FMPARPT000FMPA16FMPA17FMPA18FMPA19FMPL10uMTBFS0, MTBFS1 CWSEC0CWSEC1BUSY C$FMPL16pUCTABL"oRFMPL18o-FMPL19r%MAXCOPLOBDTBUPBDTB. PAGNBRSYFAILUBPROT ERROR IN FILE REQUEST, ISTAT = $ ERROR IN UTIFIL--RPTG RECORD NOT FOUND OR INVALID JOB ABORTED  PRCWRK RPTWKP RPTG,OPENFLGETS PUTS CLOSFLLOKFILUPDRECCLOSFLUTIFILMNUPRO  YT .4TH{}}k}l ~TyMy}m "~\\yey}m "~\\y}y }m "~\\}|}m "~\\yy/}mȽ "~\\yy>}mȴ "~\\}2}#}mȫ "~\T|~`~~T~`阐~cT☆wޘvTؔ}qo{d{{d{{d{}nd{y}r{d{{d{{d{TyM{}m}m !M7d|d|d|T)|b}sd|bd|cd|d 2ed|e 2fd|f 2dd|gTf{}J}u|b}v}uTy|b|}m 9 d}l l l l l l l d}kd}w}Nf| 1T9}m|TH}||}x}M}M}M| \}||}y}M}M}M|\}||}z}M}M}M|TyM}m\ye}m\y}}m\y}m\y}m\}2}m\}}m l fyf}1 f}ܫ 1T}|}m\yy>}m\}2}#}mTIa}g\yM}m}m (y}rz\ye}m !\y}}m\y}m !\y}m !\}2}m !\}}m ! !TImH]f H(hhl d H TTh\hdd dd;hp8(dhp8hp8(dhp8hp8(dhp8hp8(dh 0h 0Ȉ l 0h 0Ȉl  H TTh\h h X%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`h Hq``X`HX " h!HhB4 "c"H h" "" H h HX  sD  1  : E /` `"i H"h! HX @    ` `"i RPTG, PRINT DATA NAME LIST? ENTER Y OR N SAVE GENERATED REPORT PROGRAM? ENTER Y OR N ENTER SORT FIELD NAME (KEY1,A,KEY2,D (CR)) MAJOR TO MINOR A(ASCENDING) OR D(DESCENDING) MAX OF 3 NAMES PER LINE ENTER REPEAT TO REENTER ALL SORT FIELDS OR ENTER C TO CONTINUE OR ENTER A TO ABORT ENTER LEVEL BREAK NAMES (LVL1,LVL2,LVL3 (CR)) OR ENTER REPEAT TO REENTER ALL LEVEL BREAKS OR ENTER C TO CONTINUE OR ENTER A TO ABORT SELECT RECORDS. ENTER ALL OR (CR) ENTER OPERATION (EQ,NE,GT,LT,GE,LE,RANGE (CR)) OR ENTER REPEAT TO REENTER ALL SELECTIONS OR ENTER C TO CONTINUE OR ENTER A TO ABORT ENTER DATA NAME FOR COMPARISON (NAME1 (CR)) IS 2ND COMPARISON FIELD A DATA NAME? ENTER Y OR N ENTER COMPARISON VALUE (VALUE1 (CR)) OR ENTER RANGE (VALUE1,VALUE2 (CR)) OR ENTER 2ND DATA NAME (NAME2 (CR) ENTER DATA NAMES FOR RPT (NAME1,NAME2 (CR)) OR MAX OF 3 NAMES PER LINE ENTER REPEAT TO REENTER ALL DATA NAMES OR ENTER C TO CONTINUE OR ENTER A TO ABORT ENTER REPORT TITLE - 30 CHARACTERS MAX ENTER REPEAT TO REENTER REPORT TITLE OR ENTER C TO CONTINUE OR ENTER A TO ABORT NEXT ENTER Y IF ALL CONDITIONS MUST BE MET FOR SELECTION ENTER N IF 1 CONDITION IS SUFFICIENT FOR SELECTION INVALID RESPONSE REENTER NO PGM NAMES AVAIL CAN NOT SAVE UNTIL RPTPGM IS PURGED RPT000 IS USED LAST PGM NAME AVAIL. PURGE RPTPGM BEFORE ANY OTHER PROGRAM IS SAVED INVALID NAME XXXXXX REENTER ENTIRE LINE NAME EXCEEDS 6 CHARACTERS REENTER EXCEEDS MAX OF 3 PER LINE-1ST 3 ONLY PROCESSED NAME MUST BE FOLLOWED BY AN A OR D REENTER # OF SORT FIELDS EXCEEDS THE MAX OF 10 ENTER REPEAT OR C OR A # OF LEVEL BREAKS EXCEEDS THE MAX OF 3 ENTER REPEAT OR C OR A # OF OPERATION CODES EXCEEDS THE MAX OF 10 ENTER REPEAT OR C OR A VALUE DOES NOT CORRESPOND TO DATA NAME DESC REENTER VALUE EXCEEDS THE MAX OF 13 CHARACTERS REENTER INVALID OPERATION CODE REENTER VALUE 2 NOT GREATER THAN VALUE 1 REENTER DATA EXCEEDS PRINT POSITIONS AVAILABLE ON RPT REENTER ALL DATA NAMES QUOTE ILLEGAL IN REPORT TITLE REENTER 2 VALUES NOT VALID UNLESS OPERATION CODE IS RA REENTER MUST ENTER 2 VALUES FOR OPERATION CODE RA REENTER (0(06*V8tlLJ.&0BBF84$.J2*<6NY RPT00019 x%.$ ),% DN,  MALTEQNEGTLTGELERA" A  ^f OPTdT hȹ ȵ 1ȱ AȬ Dȧ Ȣ TH}|񀛄|yŅ|ȖyŘȏT\}|񀯄|yŅ|TyM{Ӏ## " dy!"{֔$ {ה% '{" &" \}| |ld{d{d{d{d{d{ d(lT3{||T||`|ald|d|d|\y|b|#̋ ! 1TH}|C |̖l̡l!dy#)T)yŅ*\}|DŽ|yŅ+|Dd|\y, d} d-TR-y l l |h| d.d/yd|2 2~Ռ !Ќ l\yŅ*\}|Å|yŅ+| .̡?)̜@$̗A̒ByŔCDT)yŅ*TH}|^|yŅ+|}! =\yŅ*\}||yŅ+|/fz+\yŅ*\}|ԅ|yŅ+|0d|d|d|yd|2Tfyŀ|2||2dpdqdrTy}||#|/45#  \yŅ*\}|h |yŅ+|fz,fz-fz.έD T)yŅ*TH}||yŅ+| yŔ! " fz/\yŅ*\}||yŅ+|| d|4|d|5|d|3yd|2/  d2 dE}!$F d1 d(TyŅ(2 - 2q 93 " lT21z+ \yŅ*\}|D|yŅ+|̺ l 1$7 lz*DT)yŅ*TH}||yŅ+|̯ dG̔ l̠, l dH\yŅG2 |2 1 923 # dE1\21z+  l 1( l lT3|5| |" l|3 J \yŅ*\}|(|yŅ+|7✬ !ݜ !}!$F l̲ Tz+1(z+1|, l\z+1Hz+1|, lTz+1(z+1|, d1\z+1Hz+1|, dL, dM dNdO d(̐!Tz+LN\z+MO ! 4T)yŅ*TH}|p|yŅ+| l̉$7 lz*D\yŅ*\}|߅|yŅ+|T3|5| |" l|3 JE  "}!$F d1  Tz+1(z+1|~Tz+1(z+1|u0d|d|d|yd|2 " lTfyŀ|2||2dpdqdrTy}||#|/45# T)yŅ*TH}|h |yŅ+| ̍h|   |3J|5| |4| ̱/fz0̯fz1̯fz2 l}!\yŅ*\}|A|yŅ+|\zՅP\{UQ\{R d}dSd}"Ad| d-TR-y l l |h| d.ldTdUyd|2 2L d|?d|@TfPm|6 ld dll\Vm|6 3 d| d| d| l lll\|i|6i 1}! C dh dqd d l휶"F doTz+oh  l\z+oi|6i7 lTfz+oi|iTy}||ee "d|8\Ym|6d|Kd|Ll d|MT3|| |" ldT||`\|`m|6m\|y|6z|W " lq l  do\z+o|6dg& 2,̻ l l  lTfz+o|6,ld|8\Gm|6d|Kd|Ll d|M |" l̩ l̪ ̣  l\z+o|6 'dhTh|6 "l\ho|6l 1( lq  do    l\z+o|6 'l\Ϗh|6 "l\ȏho|6̘d|F̙d|G̚ d|Hdgd|8 lTfz+oi|6yi\\m|6l dd|d|d|z*lllllllڔllҔ ̾ll̺ll\|i|6iιd Fdgd|8d|:Tfm|6m\_m|6d|Fd|G\鏈m|6mll\ۏVm|6\ԏm|6m lHl̼ld|>d|?d|@\Pm|6l ${ʔ8l̗l ld|<\Jm|6d|Pd|Qq "lA d d}! ɔdgl dpld!Nd|8̬ d|9Tfm|6mܐќ !\񏈏m|6mœ ?\㏈m|6m̵ 2,\ԏJm|6llll ̳ld|;d|<\Vm|6d|Pd|Qll̓l\Jm|6lldgz+ d|8TfJm|6llllld|:̿l\_m|6d|Fd|G*ll\ΏJm|6ll@l̸ld|>d|?\Pm|6d|9ld|;ld|=d|CZlidg dq d d| dl}!.d|8TfzՏqi|6i{TdhT3hlT||`\|`v|6v l l)d|6l d|llH lRPTG,UTIFIL IC F 80R04AI 1 DISK PGEXTR IPE F 132 DISK PRINT O F 132 PRINTERC BEGIN TAG C 50 GOTO AROUND C MOVE HDR1 UTKEY 4 C UTKEY CHAINUTIFIL 11C MOVEAHEADER HDR,1 C MOVE HDR2 UTKEY 4 C UTKEY CHAINUTIFIL 11C MOVEAHEADER HDR,2 C MOVE HDR3 UTKEY 4 C UTKEY CHAINUTIFIL C MOVEAHEADER HDR,3 C SETON 50 MOVE SETON Z-ADD TAG ADD SETOF MOVEL COMP GOTO EXCPTT|yRPTP F  EHDR 3 40 IUTIFILAA015 44 HEADERBB02TyŅ*54,0 2 'H& CHLB01 303132 0 T0TRCN5063LNT 20 AROUND l30l121 TRCNTHT1931632KLVL HLB !LVL DL \8 1 LNCN3ENNDLR\PRIN OE 11' .TOTALS "( 2'RECORCOT' Z%'FALOTS'8 R0ZDR,1'PAGE' P,2 DAT UDATE Y,3 7 ' 8 A$ // /* T}2|6CC "T)|6DH HdFTFG|6Hd|[Id|\{d|]dE7l dJLd|8 , dM dOdPn 1 1SlQlRd|CSd|DTd|IUd|JolVlWd|9Xd|:Yd|;Zd|=[d|?|ll\d|M]d|N^d|O_d|P`d|Qad|R]llTfєb|6bbcldlHdE l de dg dh dJ}!F̜d|8\zՖPG|6iG dM\{UM|6kTg|`\|`f|6lfπ{UhT3,|̈́|l\h|`\|`f|6mf̼lP l̲ lܶ'l ll\Po|6Go̧ ̤ ̡  qd|F 'dFTFr|6 2l܌ 1} \dE dJ!Q$K lz!d|z"d|z#d|Ty}||CC "sd|8Tf%jt|6ut|l| d|G| d|Hvd|Kwd|L\|x|6k\|nK|6yKaܬll\͖(jt|6utzd|P{d|Q|d|R}d|SAl}" J lJ!E̡l\+jt|6ut~d|FlTJ|`|al $p dP\{PjFjT3F||\||`Tf|`Kj|6oj\{P|6kܺdEsd|8\+jt|6ut̶ld|Kd|L̰d|Md|O;ll\Ė+jt|6utlllllYlld|>d|?d|@d|A\.jt|6utul̥lUd|<\+jt|6ut~d|Fḷllv } 2 dJ" ddsd|8lTf+jt|6utld|Kd|Ld|Md|OdE7l}" H dO!Cll\Ζ+jt|6ut̛l̽lTO|`|al $p dP\{PjFjT3F||\||`\|`Kj|6oj\{P|6kܺJv}dFlsd|8d|d|?d|@\ݖj|6}" 7dE l!/̽l̿l\1jt|6utlTJ|`|ad|G̢lll\j|6\|`Kj|6Njj܄ľl\4jt|6utd|d|d|Tf|G|6GFlsd|8\4jt|6utlUll\|G|6G&ld|>d|?d|@\ʖ.jt|6utdE } V dJ"̼llll 0dFTF|6\:jt|6ut$G dM\z"MG|6G dd|d|Tf|f|6f+lsd|8d|<\%jt|6ut\z"MG|6Gvd|Kwd|LNl̗ l̾ l\Ė(jt|6ut̳l̰ lJ ̈l\|f|6f{dEp, l̬l̓ l\%jt|6utMA dz!M\z"MG|6G̠l̢ ll@̽$G l !2sd|8 d|d|?d|@\.jt|6ut}d 2Tl "̆ dd dsd|8d| 0J l\Fj|6\|`Kj|6Nj/} ;dEsd|8d|slXl\1jt|6utd|Fd|?d|@ l̇ld|>d|?d|@Tf:jt|6ut[d|F_l}l$ljd|8d|:md|;\ݖ=jt|6utd|Fjd|Gcd|?\.jt|6ut} u h}!qJ $h!hhl6d|9d|Pd|?Md|@\Ėj|6}" Nh h}"!Dd|8Fd|9 d|<\1jt|6utd|FTO|`|ad|Gd|K|ad|Ld|>Tfj|6\|`Kj|6NjI1hsd|8d|9\ܖ4jt|6uth\іj|6j"} 7hs hu}q!-d|8d|9\(jt|6ut] h\j|6jhK\Fj|6jDh:̢d|8d|9Tf@jt|6ut}"p4} hd|9d|:Td|;}  h} "od|8ld|=id|>;}h4d|CnhId|`d|a\|`f|6f}h@d|80d|Jd|K}( h.d|Ld|S\z"PG|6G#d|P d|Qd|RIۄ}h hh hd|}" s h}"!md|8} hyTfFj|6jTO|`\|`Kj|6j{T|d|\||`\|`f|6f|Z hT\{UM|6rN hHT{UMF:  U hR; h8J hG)h#, h)$d|8d|=d|>Qd|CQhfd|`d|a\|`f|6fh]d|8Md|Jd|K]d|LZd|MWd|Nd|OPd|Pd|QId|Rlh/d|8d|Ed|Fd|G0d|H 0} hTfFj|6Ɣd|Jd|K:d|8d|=d|>d|Ch| hvd|8d|Jd|Kd|Ld|Md|Nd|Od|Pd|Qd|R hThg hEd|}" n h?}";!hd|8hht\j|6jTJ|`Tf|`Kj|6j7{T|d|\||`\|`f|6f| h\{UM|6r hT{UMF  h huh h hv:d|8d|= d|>(d|Ch]$d|8d|J3d|K+d|Ld|M$d|N$d|Od|Pd|Qd|R d|Sd|Td|Uh#hyd|8d|Ed|Fd|Gd|Hd|Jvd|Kd|8d|=d|>cd|?Yd|ChCd|8d|Ed|Fd|GGd|Jdd|K"h%d|8d|Jd|Kd|Ld|Md|N@hrd|8d|Ed|Fgd|Gsd|H8d|Jd|KbhPd|8"d|=d|Cxhs:d|8d|ELd|FNd|Gd|Jd|KhUd|8d|J+d|Kd|Ld|M)d|N&d|Od|Ph/d|8d|Ed|Fd|G d|Hd|Jd|Khi d|8d|=d|>id|ChSd|8d|Ed|Fd|GWd|Jtd|Kh5d|8rd|=d|>5d|C(hd|8d|JLd|Kd|Ld|VTf{N|6NJhhd|8d|J*d|K_d|Ld|Q\{|6khGd|8d|=Jd|>d|Chj d| hh h}"d|8|Ȇ{Ud|{V;:{XhT3h -1) h&|"h T|`\||`Tf|`f|6f h {T{U {Vh M7 3 h D7 3 h| d|d|Ld|O\zՖeG|6GQ hN/qd|8gd|=d|>cd|C3h h/ d|h h }!Zld|8|{Td|T||`Tf|`f|6f|\zՖeG|6G h\{UM|6r|Hl  h\ؖFj|6r0d|LZd|MWd|OJd|P hOFd|6hB d| 9d|5d|H-|RPTG, * BEGIN EXTRACTRPTEXX * EXTRACT COMPLETE * BEGIN SORT INPUT=PRFPG0XXDSORT FN=PGEXTR,CCS20 F2=PGEXTR,CCS20,OP=T,F,AKF= * SORT COMPLETE * BEGIN PRINTRPTPXX * PRINT COMPLETE PGCNT2SL=IUTILFLUSH,HO=LOCL,DO=-EXMNUPRO@Tll F T}|` "T)|a{ddhTfåL|Lh\˥M|Mh\ΥN|Nh} \إإO|Oh\ͥߥP|Ph\¥楾Q|Qh\饾R|Rh\񥾦S|Sdb\T|Tl} dc dd̰![ d| dedf}! Tycgzզeghh {XhT3iބil l dj$g  lTf{UekyjkT||`\|`kyck ,l̪ lThjy̢ lܢ} $l dm E" El\y楾mkm\ʥU|Uxdb, l E/ l\ynm|ml\;[|[l\V|Vl\%W|WlTf,X|Xl\/Y|Yl\8Z|Zl\ۥߥP|Pl\Ϧ=\|\l\æ?]|]dbu\H^|^li\I_|_l] d|olHN ECAREPEAT    l m|m l lHTTh\h h h hl\%W|WlTf,00X| hj 1 h hh h!TwvTvsdl hh h=\dsv\vwؿHTTh\h\h\h\h\h_l] d|olHT)Ψ hh h?TߨTި h h=\Ψ\ިHTTh\h\h\h\h\h%W|HDR1HDR2HDR3 PAGE 01 DATE RUN MM/DD/YY  PGGEN REPORT GENERATOR DATA NAME LIST STARTING DATA EDIT DEC SUB SUB SUB SUB SUB NAME POSITION LENGTH TYPE CODE POS DESCRIPTION NAME1 NAME2 NAME3 NAME4 NAME5EGIN PRINTRPTPXX * PRINT COMPLETE PGCNT2SL=IUTILFLUSH,HO=LOCL,DO=-EXMNUPRO@Tll F T(`"vw Da ")LTyM{ө+ 8Tf{Ӫ1\yM{ө- 7 h{fr 1\yM{ө/ȹ 6 hfش 1 :h d 2ed 2dd 2fh hT(Ts\s d|d|d|Ty}|| "|/ "ܿT|`|adk dd d0f B1TTl lrn B1l ln B1l ln B1lT)l l8nܫ 71l lonܜ 71 l\ڪ d|d| d| d| d| d| d|dT|T\|\\|\\| \ d d d|f 1 Ml 1l lTf| l l 1pd%HnX/X+X'X# XX}X`XfXa"a XS" XIb XFb XCa X@b bX)XXC/H Lbb@ H `Hch Hq``X`HX " hTHhB4 "c"H h" "" Hh HX l` `"i H h HX  sD  1  : E /` `"i H"h! HX @    ` `"i Hh HX ` `"i zUTIFIL IOPR JJBFLV4DOUT $$RGMENU$$ FMSAVAJPFLV4TzRPTPGM JPCHGE*9ALCLGH89SCHSTKLSTLOC BWMPFLAGpDATSEP/ PLEASE ENTER: REPORT NUMBER (01-19) TO DELETE OR "END" TO TERMINATE INVALID RESPONSE - PLEASE REENTER PROGRAM " " ENTER: "OK" TO CONTINUE OR "NO" TO BYPASS REPORT XX DELETED OKNOEN@,\oRPTGRPT0XXREPORT XX AVAILABLE PRFPG000CCS20 {* V&d:THyzzzT{yy z (T|y zzzT{yy1zzѨҘ '\y zzzy6h\yhyYzȼ '\yYzzz\yyzȮ '\yzzzTHzzyzzzxzzzxzw {hH dy 3 +\zzz$zzzxzz.dz\yyzzz !T|yzzz7zz\zzz7zzzxzz̿zu ̺zv T{yyzҔz "lT{yhyyz !dz\zyzyzzT{yhyz̲dzT{zzz̪dznTHzzzizzzxyzmdy6\yy1zT{yz\yhz\yzTImT2tX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`H"h! HX @    ` `"i  FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7?- T||J|K|L|r|KT}2|o ! ! , h\|s|||L|| Kh \|L|||L|| 9hTH||L|||||HT|T} h\h\h\hh Hq``X`HX " hHhB4 "c"H h HX  sD  1  : E /` `"i MT25U0MT25U1TAPEARC IOPR JJBFLV4DOUT FBASV4MTBFE0 MTBFE1EXITF 0KICKOFUTIFIL TMTH0000ALCLGH89SCHSTKTLd FLAGpTHyAyyy2hh2ghTyEyT|#z { h׀yDhTLT 1 hɀyXh\ 1 dyyh\ 1 hȮylh\ب 1T|T{yyy hț "z\yy2y hȐ "zT{yyyy dyyy "zyvyyHhnyy$yhhH$yb`dyT{yyyy lѬҜj !Zy#hIH,܈Ddyy%h>H,ш9dyydyydy ,l !T|#z& {c dyyhT 1T|T{yyy dyy >\r+{\r, { T=y2yyy\yyyy\r1 {T{yyTImW(1H1,20A2,6X,39HACCOUNTS BEING PURGED FROM THE TAPEARC ,4HFILE,/,1X,20A2,14X,10HRUN DATE: ,A2,1H/,A2,1H/,A2,/,1X,20A2,//,35X,14HACCOUNT NUMBER,10X,18HARCHIVE TAPE DATES,/) 8(34X,8A2,2X,A2,1H/,A2,1H/,A2,2X,A2,1H/,A2,1H/,A2,2X,A2,1H/,A2,1H/,A2,2X,A2,1H/,A2,1H/,A2,2X,A2,1H/,A2,1H/,A2) (//,52X,21H*** END OF REPORT ***) (/,34H ERROR WHEN UTIFIL RECORD NO FOUND) T2tX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh` H]h\hRhMhRKuXhKJhAHFv" c h8"5T39cTjh.h;X7H&8%#T$h$h`  TlT  TF T}T}4h255؈ȇXh&ڨ*IhTTr|||p=H ' &eh @ȫTȨXȞ T|ȡ`><Ȓ T H T}S |yd}T T}STT}}}}}}}}}} h3HHd}ېhd}Dhhd~GTFKhh hHL8@ hk"T~ hT~} hy"  b hqT8 PިXM H֨CbCwΨ U hS Va `hL1D{lEwe& ?!RX"ȭ ȩ!0XHyl'e #!6X Ȍ T~#T~2 `h XX\\ TaH #h! TlT hBDhEhBhBhDhw~h:8# `h9 V1a Dh/X+)*h+DT}S  #%  # Dj A Dh h h  Hhh&aH3[HX" L!`Ψh TlT aH> 3 DH-j+̾Ⱥ(j'% hȲDhT}S̝Ȟ̘nΙlؘؚș _ U h HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBH j `0# dE'd "lT hrHr s"htjqh hDh`Hah`I/O REQUEST !     X XX*EX XX&X+@XXX< XwhHh h,h*X" uh$ h!X ~h hX ThX T~HX " TL `u HehdhgXlXvhb"aTZWDT hUHUHRRQ  pJf XNXXhEn HAXHXR(?R!39h9X?XInhTK  NX0h+X VUh n ;ln  H T` + ȋXh؆1   HhH㞚  TlT hhhhd}|#hhuXh̺ (BD} n&ȫd}ȫ  hJIEhE h h  hh h8H6|y0TXeX h%`" "h*hTr T~ h hhh ll X# Xhh@4i` Xj TlT Cr q d Y hUDhT XHXhNXhXh:a62Hl20X), H,)H& XX_h a&hh۸nX X h H   HShhh<@ TH $T\h9Dh5TFh122-3 Tl**%!!T TF \TT \T  H+h* r Gh hlBhHX"9" "hh0" T+TX% hT\H `CT T@ TFhTh XX TT# 2X X' h$  X0X XzШ Xhˠ Tl T# H= X H8X H0(T-X*@) %\TJ   hTH#0STOP PAUSE # h\H jN qDhQ`hS \hL!:R hJE hBEOi:Dh ḷ l !& !/ l 9!/̫ !+̧ h$l !(= l 5T~H r l̻ ̵dl\ gT[T2t  0l\\ ldd d:\͈  ld 9!. !* hĈl̨ l 3\     d !T  l F7̣ 4̠ l̜  0lT[T2t ddldddd d f 1T~H = l   l  l \݈ >l $ lLddl,lLlll ̲ l,܌lLlެll,Ќld  l ̓ l T~H B > : 6  93 %    l 95 2v  0lo  d> dlX̺ ̷  ̯  Ed= l D\ ̠ ̜  d  9! ! d$l c" l T~H   0l ḏ k3 dl՜l>dddddd D llddl TJ̻   l  dldldl d T l\ l\ Ṋl T  ̚dl̛dl l\Շ l\Ї )?" < ) EHp d; dl\ = ! !lHd lT~H ̘l\  l\ l  Hll\ ˬl d$ l ddd d n 1 d% +dd d T l\ ̗  l\ dddʤ'd&  -lܺdldl dl TTd l  -ldlld( d) /̼d*d+$l,ld,lLdllLld-߬l ,l,ތl,l,l  ,Llجٌl̶d.lLlͬlڌlLd/Ԭlܦf ̜ !̗ !> d0  dn 1   l 7 -ldl?  Ԝl Όl d) !Y 1TΫ n !M̷ d1̳  l!̩ l !5 n̜ ܡ, d̥  ̦ l 7 +l̞dlܚ dn 1 l 0n 1 d 0n 1 d?  >$d=l Ôl̿ !i̻  l̶8T~H l \ ld% dl !  0ṉh\ܫ l̹ l\̈#̳ l  2\̥ l 2h\̝) l= l 2\2 l>$ !d  d8T~H l \ l\\# l  ̳h\ܭ l \ֈ" l\ш!\ψd3d4+ 1!" 8 % l\ܨ 1P\\J\\Dd d/ d(d.ld dl`p=l  lܹ 0f.lۜll 1  +d d$lT3 l3'd& dl -l l l1  l 0d=d5 !#  l5T~H ܘ \ lڜ9h\h  lӜ4\2 d \3 ̨ld/ d(d.d0l *l q̬ l̩d6 ,\ ̤ l ! l l윳4\ܯm l1`p5dl 0e 4 n ḽḷl 1 l l  1 =d5 " l +T~H l ! d " ll 8̽h\,1ܷ " l  l\ш̥ l !\ň ̶ l !b@aH^H[T Thh\hhhFhhhh{hhh\hhhhhhhah\hqhhvhhI\hgh\hch\h_h\h[h\hWh\hShA T3` h/&hHgaV`H _H H M A cTXFRXB H H\ooT3ooq=:\ؐo!oq/  HI&Aa%acAD aa h h HR PGMIN H T3Ժ hHXhxhy`Xhh{ HfL#dhtHg ! lbag4lZ a``]cTX^RXZ I^HT3 HG9Qs>L1a: Lw T&RH5 I  vR  LaTw\ Tw HI& hh Huhi[G M^@BPCE}GN HJzLLK@  `a` ` `X,8A"C  x&LpsX;a*XFXXȰ,` Ȱ#`X `Ȱ#`X`Ȱ#`XXhbXO`Ƞ$d `d`Ȱ.`X XXLbb Ƞ$`S@@`Ϡ *`@ed`d`X` `Ƞ4`n Ƞ$Ȱ$>a.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  T3"" R1 H XRRt`p X` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\::\:1:@T:\ :141:Txԕ:1:B  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR X t H XԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HTx HsLoAAd]Tԕ::B |LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaXk\Xc N[ hhh1uhi f[G ߂M^@BPCE}GN HJzLLK@H Vbb@` HsLoAAd]TX X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XTbX&)+25,Ȱ#`X TA a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9Tbbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! T a a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XTbȰ#`X`!dB2 @rdR@`/@oH h HX  sD  1  : E /` `"i H"h! HX @    ` `"i {AMT25U0MT25U1IOPR JJBFLV4DOUT FBASV4MTBFE0 MTBFE1EXITF 0FMSAVAJPFLV4TzKICKOFTSMENDMJPCHGE*9ALCLGH89SCHSTKLSTLOC BWMPFLAGpDATSEP/TSLOFFSTRBASDUMALTkRCOVERiN15 >0LQV[`ejot $).38=BGy..SUMHIST @Y|,Y*kO*ΰB*ΰ3*˨*˨*{*UTIFIL SMTH0000n INVALID STATUS 2*V*\2.g .Q.Q,\j?.O=.NY*̒.\o.R S W M2.d Q.THzx{+{,{-2hh2ghT/z{T~z } hՀzhT 1 hǀzh\ 1 dy{h\ 1 hȬ{h\ئ 1T~T}z|z{2 hș "|\yzi{2 hȎ "|T}z|zz{2 d{3{2{4 "|{5|z{6h{8H${9hz${7ֈdzzHhz,hH,dzzhH,hz,ԈdzT}yy{ {2 l̢}̜ "|Ty'yyzy{; d{<zҔ{( ̯l{) ̾l{* l py${6hi{8H${9bd{=y&h\H,Wd{>{.d{?{0d{@ ,l !T~z3 }u d{1yhT 1\y' lyh\PR 1 lzh\ 1T~T}yy{2 d{3{2 !N[Tzy{:zy{:\z9 }u l̴yh\ ܮ 1\y' l̥yh\ܟ 1 l̘zh\ܒ 1\Tz{:T~r<}\r= } Tvzi{3{2{+\z{3{2{+\rB }T}y{2TIme(1H1,20A2,12X,39HACCOUNTS BEING PURGED FROM THE SUMHIST ,4HFILE,/,1X,20A2,20X,10HRUN DATE: ,A2,1H/,A2,1H/,A2,/,1X,20A2,//,35X,14HACCOUNT NUMBER,5X,13HINACTIVE DATE,5X,6HSTATUS,15X,14HBORROWERS NAME,/)(35X,8A2,7X,A2,1H/,A2,1H/,A2,9X,A1,10X,R1,14A2,A1,10X,7A2)(//,54X,21H*** END OF REPORT ***) (/,34H ERROR WHEN UTIFIL RECORD NO FOUND) T2tX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh` H]h\hRhMhRKuX >hKJhAHFv" c h8"5T 39cTdh.h;X7H&8%#T$h$h`  TfT  TF TT4h255؈ȇXh&ڨ*IhTT~~~p=H ' &eh @ȫTȨXȞ T~ȡ`><Ȓ T H TM ~sdT  TMTT h3HHdՐhdDhhdATFKhh hHL8@ hk"ThT} hy"  b hqT2 PިXM H֨CbCwΨ U hS Va `hL1D{lEwe& ?!RX"ȭ ȩ!0XHyl'e #!6X Ȍ TT, `h XX\\ TaH #h! TfT hBDhEhBhBhDhwh:8# `h9 V1a Dh/X+)*h+DTM  #%  # Dj A Dh h h  Hhh&aH3[HX" L!`Ψh TfT aH> 3 DH-j+̾Ⱥ(j'% hȲDhTM̝Ȟ̘nΙlؘؚș _ U h HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBH j `0 d )'d μIl hrHr s"htjqh hDh`Hah`I/O REQUEST mN     X XX*EX XX&X+@XXX< XwhHh h,{h*X" oh$ h!X xh hX ThX THXM TL `u HehdhgXlXvhb"aT ZWDT hUHUHRRQ  pJf XNXXhEn HAXHXR(?R!39h9X?XInhTK  NX0h+R POh n ;ln  H T` + ȋXh؆1   HhH㞚  TfT hhhhd~hhuXh̺ (BD n&ȫdȫ  hJIEhE h h  hh h8H6~s0T XX h%`" "h*hT T h hhh ll X# Xhh@4i` Xj TfT Cr q d Y hUDhT XHXhNXhXh:a62Hl20X), H,)H& XXh a&hh۸nX X h H   HShhh<@ TH $T\h9Dh5TFh122-3 Tf**%!!T  TF \TT  \T  H+h* r Gh hlBhHX "9" "hh0" T +T X% hT\H `CT T@ TFhT h XX T T 2X X' h$  X0X XzШ Xhˠ Tf T H= X H8X H0"T'X*@) \TJ   hTHiSTOP PAUSE Y h\H jN qDhQ`hS \hL!:R hJE hBEOi:Dh ḷ l !& !/ l 9!/̫ !+̧ h$Kl !(v l 5TBB l̻ ̵dl\GDgTUAT2tB  0l\L\ ldMdN d>:\͊B  ldO 9!. !* hGĈl̨ l 3\B    dD !TGD l F7̣ 4̠ l̜  0lTUAT2t dQdRldHdSdTdU d> f 1TBBB v l   l  l \݊Bwl+ $K lLd4VdGWl,lLlll ̲ l,܌lLlެll,ЌlXdN Yl ̓ l TBBB B > : 6  93 % BT U l 95 2v  0lo  dw dQlX̺ ̷ + ̯  Ed?v l D\B̠ ̜  dSB  9! ! d4R$Kl c"Q l TBB B 0l ḏ k3 dl՜Ulwd#d$d%d&d'd(+ D lld)d*l T̻ Q?  lH  dldldl dDTD l\D l\DṊl T Q ̚dl̛dl l\ՉD l\ЉD)x" < ) EHp d+; d@l\@Dv ! !lHdBFlTBB̘l\B l\B l  Hll\Bˬl d] l d5d6d7 d> n 1 d^ +dHdS dDT5D l\6D̗  l\7Dd;d9d:ʤ`d_  -lܺdldl+ dl Tڊ8T18d=Cl  -ldllda db /̼dcn 1S  = l 7 -ldlx  Ԝl Όl db !Y 1TΫ n !M̷ dj̳  l!̩ l !5 n̜ ܡ, d̥  ̦ l 7 +l̞dlܚ dNn 1 l 0n 1 d> 0n 1 dMx  w]dvlS Ô=l̿ !i̻  l̶8TBE lH \H ld^ dl !  0ṉh\ܫ l̹ l\̊\̳ l  2\J̥ l 2Mh\BSb lv l 2\k lw] !dN  d>8TBE lH \H l\J\\ l  ̳h\ITܭ l+ \֊[ l\ъZ\ϊS=dl;dm+ j!" 8 % l\Jܨ 1P\J\J\\DdDdh dadgldN d>l`p=l  lܹ 0f.lۜll 1  +dH d]lTlDll`d_ dl -l l lj  l 0dvdn !#  l5TBEܘ \I lڜ9>h\ lӜ4\k dD\lD̨ldh dadgdil *l ̬ l̩do ,\E̤ l ! l l윳4\Jܯm lj`p50d4Vl 0e 4 n ḽḷl> 1 l l  1 vdn " l +TBE l ! dN " ll 8̽h\㜎ܷ " l  l\ъP̥ l !\ŊE̶ l !b@aH^H[TFTThh\hhhFhhhh{hhh\hhhhhhhah\hqhhvhhI\hgh\hch\h_h\h[h\hWh\hShA1 Tl` h/&hHgaV`H _H H M A cTXFRXB H H\TlX=:\ؒZX/  HI&Aa%acAD aa h h HR hh H TlԺ hHXhxhy`Xhh{ HfL#dhtHg ! lbag4lZ a``]cTX^RXZ I^HTlCC HG9Qs>L1a: Lw T&RH5 I  vR  LaT\CT HI& hh HXuhi[G M^@BPCE}GN HJzLLK@  `a` ` `X,8A"C  x&LpsX;a*XFXXȰ,` Ȱ#`X `Ȱ#`X`Ȱ#`XXhbXO`Ƞ$d `d`Ȱ.`X XXLbb Ƞ$`S@@`Ϡ *`@ed`d`X` `Ƞ4`n Ƞ$Ȱ$>a.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  Tl"" R1 H XRRt`p X` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\ss\sjs@T:\ sjmjsTԗsjsB  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR X t H XԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HT HsLoAAd]Tԗs'sB |LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaXk\Xc N[ hhhjuhi f[G ߂M^@BPCE}GN HJzLLK@H bb@` HsLoAAd]TX X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XT%bX&)+25,Ȱ#`X T%A a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9T%bbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! TYa a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XT%bȰ#`X`!dB2 @rdR@`/@oH h HX  sD  1  : E /` `"i MIINP eMT25U0MT25U1IOPR J TRNSFL NDMJPCHGE* L01ALTHyyyyTzyyy "z zTzyyyyyz֨ט} !}Tzyyyyyy e hyyH Vؼ 1yyT 7yyS 0؞y 0lTzyyIyȘ !D hnؔ E1ydyydy dyfy 1y yդyh Ȥyl l̷l̮l̲l̩l dy dyTzyyTImT2tX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`H"h! HX @    ` `"i d^MIINP eMT25U0MT25U1IOPR JJBFLV4DOUT FBASV4MTBFE0 MTBFE1EXITF 0FMSAVAJPFLV4TzKICKEXCOSIGNERCCS20 DELQMST CCS20 SCRNFILECCS20 TSEP/TSLOFFSTRBASDUMALTkRCOVERiN15 >0LQV[`ejot $).38=BGy..0 @, "Xa bX\ kJ " H\ss\sjs@T:\ sjmjsTԗsjsB  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR X t H XԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HT HsLoAAd]Tԗs'sB |LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaXk\Xc N[ hhhjuhi f[G ߂M^@BPCE}GN HJzLLK@H bb@` HsLoAAd]TX X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XT%bX&)+25,Ȱ#`X T%A a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9T%bbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.IDLER ,RESET >P d T TF" C A lTyT l)"C O CPT\T MƐONT \TTشT. lT# ) .40 06 e/ 8AaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XT%bȰ#`X`!dB2 @rdR@`/@oH h HX  sD  1  : E /` `"i dl l l l l\Ƈ d^ 6l  "TUT2t 6T~ l d d d l ll  TBT\pTId )M μIl,ll\̗lT @m m Um̴mN n/ MTӏ̊dl lT{T d!% \ ld l dTF 0 B  ^\ɏldTM \ @Sm̡Pnܟ% " "\̓ \ l dENTER NUMBER OF SCREEN TO BE PRINTED OR EXIT SCREEN NO. IS NOT VALID ENTER THE SCREEN NAME DOUBLE SPACE - YES OR NO PLEASE ENTER ACCOUNT NO. ACCT. NO. NOT AVAILABLE \0d00THyz]^T~Fyzz /T0yzzT;yŜ 9THzy y \z_y~^\z#`yy TyhT~F~saz̿ ̹ 1 \z\\z$\y~^\z#`zd~T:y~~~_~~\z2\y~^\z#`̪dy\z@\y~^THz#` % d]bfy 1Tyyy~_~~sa  ^lT~F~saz\y~zy~cy M l f~- 1T~.yzz + d^T0yǂ^zzT;\~.y yzyŜ  T~.zk ( l\yǂ^zz\\y yy~_~~s\~.z d] f~ 1\~yz̴ # l3T~zyz̨ /̢ )̜ # lTzyy~_~~s\~za  ^l\~F~sazlT0yւ^zzT;\~zTHzN\T~FzTImT2t @ 9 / # 99999999990000000000000000*  lǼhǼ/0 /20 \ُW l&Tu @ HHHWhbH HNhYLHFh5hEBAH32@=:9h, h*5h)R a> R+ q )0dhh bh h h TH)`H\D A n qH   >Dh}>w8 0` h !aH + _N ȯ "ج Q#uMrJF (jj AXBfB B 0l ḏ k3 dl՜Ulwd#d$d%d&d'd(+ D lld)d*l T̻ Q?  lH  dldldl dDTD l\D l\DṊl T Q ̚dl̛dl l\ՉD l\ЉD)x" < ) EHp d+; d@l\@Dv ! !lHdBFlTBB̘l\B l\B l  Hll\Bˬl d] l d5d6d7 d> n 1 d^ +dHdS dDT5D l\6D̗  l\7Dd;d9d:ʤ`d_  -lܺdldl+ dl Tڊ8T18d=Cl  -ldllda db /̼dcn 1S  = l 7 -ldlx  Ԝl Όl db !Y 1TΫ n !M̷ dj̳  l!̩ l !5 n̜ ܡ, d̥  ̦ l 7 +l̞dlܚ dNn 1 l 0n 1 d> 0n 1 dMx  w]dvlS Ô=l̿ !i̻  l̶8TBE lH \H ld^ dl !  0ṉh\ܫ l̹ l\̊\̳ l  2\J̥ l 2Mh\BSb lv l 0  EM NS 8K 12I 1,C %2  TӘT @m m l̹  H* P@C>AD9 lTʄ Yd |hTf OOTtlT P  h hĘ>h\ OO\طl hȳf خ 81h\DŽ OO\\ ddB dh\ OO\ 1\ZT dU l  W0 l-XH d $Yd!ddN dR"! ,n D [fA@ T_T Z ZR 1^ *\N R ! !\N R̷ !U $T:NZ!v툶hToNZ!jTiW\W MZ!M^Ո h\>NZ!RΑ dK lM L lN l\ KZ!K A!dM +TN\LVZMV lT: KZ!K l (d dR dl8Yn l (lddB dOTf OOTtP Tʄ ll$l\ OO\ 1\ ll la a a a a"a !RA aX x H h" "" H3h2 HX/ l* "  f  ` ` `"i Hh HX l` `"i H"h! HX @    ` `"i H%h$"h Hh2n @ 8 0 0Fh `&`Hh"h H  F` 4@ 9 -099/99/9999999.999/999-9999-99-99993t /"l+ "l&h lh hh!+ΈhTǎ ۘ  hT%ێ  +h\ h\ێ ػػ H hȝ!∭h\ Ȩ ׈h\͍Ž ؜Έh\ٍ 1! # l 3l\ۍ̰ hT: \Í HTwTh\h\hhhhhhhhh\hh\hO  FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7?- \T:T ! ! , h\获펐 Kh F\ݎ򎐎 9hTH􎐎HTwTh\h\h\hK fV dFSK " !o @mI 2@mA d#DŽPnܬ\̢ au h h HR X t H XԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HT HsLoAAd]Tԗs'sB |LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaXk\Xc N[ hhhjuhi f[G ߂M^@BPCE}GN HJzLLK@H bb@` HsLoAAd]TX X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XT%bX&)+25,Ȱ#`X T%A a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9T%bbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! TYa a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XT%bȰ#`X`!dB2 @rdR@`/@oH h HX  sD  1  : E /` `"i d]TX X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XT%bX&)+25,Ȱ#`X T%A a!llll ̳ld|;d|<\Vm|6d|Pd|Qll̓l\Jm|6lldgz+ d|8TfJm|6llllld|:̿l\_m|6d|Fd|G*ll\ΏJm|6ll@l̸ld|>d|?\Pm|6d|9ld|;ld|=d|CZlidg dq d d| dl}!.d|8TfzՏqi|6i{TdhT3hlT||`\|`v|6v l l)d|6l d|llH lRPTG,UTIFIL IC F 80R04AI 1 DISK PGEXTR IPE F 132 DISK PRINT O F 132 PRINTERC BEGIN TAG C 50 GOTO AROUND C MOVE HDR1 UTKEY 4 C UTKEY CHAINUTIFIL 11C MOVEAHEADER HDR,1 C . \\"dl d "!7 132?EX @h`X``` a` a` `/" 4 A *a A    gR@R@ -A` .a ` a! a"Xi a! a"XX@TMX -`" ` c1Xd 2QTMqX c1XjTM[Zd@X #  a` aܐ!XsTMYD]@XX a Ea a! a"X a! a"X, a  +a `"d` 5 aX aaXa `aBP@@#4$h h` ` ``TMBP@#dRAR`B@ @"si`  dr$Rd`@$dR@ R  DA ) H f H g AddRAa  `a` ` `X,8A"C  x&LpsX;a*XFXXȰ,` Ȱ#`X `Ȱ#`X`Ȱ#`XXhbXO`Ƞ$d `d`Ȱ.`X XXLbb Ƞ$`S@@`Ϡ *`@ed`d`X` `Ƞ4`n Ƞ$Ȱ$>a.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  T"" R1 H XRRt`ppACCAGE IOPR JJBFLV4DOUT  PLEASE ENTER "AS OF" DATE FOR TREND ANALYSIS CALCULATION - ENTER : MMDDYY OR CARRIAGE RETURN TO USE SYSTEM DATE Mx #RTHyTyyyTzyyy (T|ayyyyTImTzyy*yXyѨҘ$ '\yyyyT{Ty*yyȹ Tzyy*yȴ 1\yyyyTHyyydyyy`yyȨ y`yc T{y`h y! !\yal ! ! 2el 2fdya 2ddybT{yXyTzyy*yXyyy9 'T|ayyyyJ\yXyT{yXyyy*yyy̷ T{ty*yyy*yy\y`yyy*yyTzyy*y 1"\yyyy\y*y\yXy\y`yyy*yyTzyy*yXy̮ %\yyyyTzyyTImT2tX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`H h" "" H3h2 HX/ l* "  f  ` ` `"i Hh HX l` `"i H"h! HX @    ` `"i Hh"h H  F` 4@ FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7?- T{t{{{{{T|{ ! ! , h\{|'|{|| Kh \{|!|#{|"|# 9hTH|%{| |&|&|&|'HT|qT|h\h\h\hh Hq``X`HX " hREHhB4 "c"H h HX  sD  1  : E /` `"i iDELQMST COSIGNER TRANFL SCRNFILE ADDACT ˢ*\`**CC*n ^ ą Ĭ2*V*\2.g .Q.Q,\j?.O=.NY*̒.\o.M.M.M2.NάL.Qb.QE lH \H ld^ dl !  0ṉh\ܫ l̹ l\̊\̳ l  2\J̥ l 2Mh\BSb lv l 0  EM NS 8K 12I 1,C %2  TӘT @m m l̹  H* P@C>AD9 lTʄ Yd |hTf OOTtlT P  h hĘ>h\ OO\طl hȳf خ 81h\DŽ OO\\ ddB dh\ OO\ 1\ZT dU l  W0 l-XH d $Yd!ddN dR"! ,n D [fA@ T_T Z ZR 1^ *\N R ! !\N R̷ !U $T:NZ!v툶hToNZ!jTiW\W MZ!M^Ո h\>NZ!RΑ dK lM L lN l\ KZ!K A!dM +TN\LVZMV lT: KZ!K l (d dR dl8Yn l (lddB dOTf OOTtP Tʄ ll$l\ OO\ 1\ ll l_' Tyy= (T'y>=*I\y+yC=ȿ '\yC>=*I\yRyj=ȱ '\yj>=*I\yyy=ȣ '\y>=*I\yy=ȕ '\y>=*ITyyz?==~ & "&Txzy\yyz@= & "&\zz#\yyzA=լ֜ & "&\zz~Tyy= 2ed 2fd 2ddTyR~#=̭Cp̦ ?~DET'yjF=*+ !ITyz~==~  "T~GH~yH\~IJ~KJ\~LM~IMT~{T~N\~OPzQP\~RSzTS\~UPzVP~$ \~WPzXP\~YSzZS\yyz[y\~GPz\P&~ ! 1 1+ 1` 1p:T~d] ,hyDd^ ,h yl d`_ \~ l ,hz"Dl ,hz#lTy+z~==~ a "aT~,azy^Ty+z= "a\~ l ,hz}Dl ,hz~l l \~ l ll l\yz~=̷ ̰ "̎  yǔ) \zcPzdP\~,azy^ $< d] ded!/, % - ,-hT~%az ^ . +ۀ.h\yPzP ` 1 \yPzfP\'yyzgy̛ \~y_~y_\(yb~IbTy~y== "iTyz= 2!T'yK=*TFz  dy~hT  1\~T(9HACCOUNT ,8A2,8H CODE ,A2,14H NOT UPDATED) + "$\yK=*\r1(39HREPLACE SCREEN FILE AND RESTART PROGRAM)TIm\rO(29HFILE ERRORS...PROGRAM ABORTED)T'yCK=*\yh=*yTyR=\y=\y+=\y=TFzT\&\\TG(26HTOTAL ACTIVITIES UPDATED ,I4,/,27HTOTAL CHANGES UPDATED ,I4,/,26HTOTAL OTHER RECORDS ,I4,/,26HTOTAL NOT UPDATED ,I4)TImT2tHH#X%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh` H]h\hRhMhRKuX fhKJhAHFv" c h8"5T439cTh.h;X7H&8%#T$h$h`  TT P TF T?T4h255؈ȇX h&ڨ*IhTTp=H ' &eh @ȫTȨXȞ Tȡ`><Ȓ T7 H Tv d=T3 TvT7T;;;;<;;;;; h3HHdhdDhhdjTFKhh hHL8@ hk"TChT>} hy"  b hqT[ PިXM H֨CbCwΨ U hS Va `hL1D{lEwe& ?!RX"ȭ ȩ!0XHyl'e #!6X Ȍ TFTU `h XX\\ TaH #h! TT hBDhEhBhBhDhwh:8# `h9 V1a Dh/X+)*h+DTv  #%  # Dj A Dh h h  Hhh&aH3[HX" L!`Ψh TT aH> 3 DH-j+̾Ⱥ(j'% hȲDhTv̝Ȟ̘nΙlؘؚș _ U h HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBH j `0B 41 'd  `3 hrHr s"htjqh hDh`Hah`I/O REQUEST       X XX*EX XX&X+@XXX< XwhHh h,h*X" h$ h!X h hX ThX T>HX hy TL `u HehdhgXlXvhb"aT4ZWDT hUHUHRRQ  pJf XNXXhEn HAXHXR(?R!39h9X?XInhTK  NX0h+{ yxh n ;ln  H T` + ȋX l/, l ddF ld0l d l l l l l l d+̘  l̒ \6̹  m̱  mT6\6 ̡  m̙  mTk62H/TThV\hD\hB\hhh\hh\h\h\h#h\h\hh!6 <READR  J ,P-UTIME  h l'h d +dMAKQ 'd  #LOCF W *BS CDRC-0 ALC BFADEV SED.ؾQXT L ̿R9*X1R9 T h jظ 1 h " < )P d| h \ d̼ !Tk 9ldRl̩ l  dT\㐓̛  ldRll d d\ɐ    !> ḷ l !& !/ l 9!/̫ !+̧ h$l !( l 5Tk l̻ ̵dl\gT~T2t  0l\\ ldd d:\͐  ld 9!. !* hĈl̨ l 3\    d !T l F7̣ 4̠ l̜  0lT~T2t ddldddd d fE 1Tk  l ;  l  l C\ݐȌl| J$ lLddlI,lLlll ̲ lH,܌lLlެllG,Ќld l ̓ l CTk B > : 6  93 %   l 95 2v  0lo  d dlX̺ ̷ | ̯  Ed l D\̠ ̜  d  9! ! d$l c" l Tk  0l dḴ k3 dl՜ldtduFdvGdwHdxdy| D lIlJdzd{l TԐGK̻   l  dldldl dTG l\H l\IṊl T GKK  ̚dl̛dl l\ՐG l\АH)" < ) EHp d|; dl\ ! !lHdlTk̘l\ l\ l  Hll\搓ˬl d l ddd d n 1 d +dd dT l\̗  l\򐈐dddʤd  -lܺdldl| dl T+Tdl  -ldlld d /̼dd$l,ldlLdllLld߬l,l,ތl,l,l  ,Llجٌl̶dlLlͬlڌlLdԬlܦfK| ̜ !̗ ! dL  dn 1  l 7 -ldl  Ԝl Όl d !Y 1TΫ n !M̷ d̳  l!̩ lK !5 n̜ ܡ, d`̥  ̦ l 7 +l̞dlܚ dn 1 l_ 0n 1 d 0n 1 d ; ;Ȅdl Ôl̿ !i̻  l̶8Tk l \ ld dl !K  0ṉKh\ ܫ l̹ l\̳̐ l  2\̥ l 2Kh\5 l l 2\ lȔ !d  d8Tk l \ l\\퐭 l  ̳Kh\ܭ l| \֐ l\ѐ\ϐdd+ !" 8 % l\ܨ 1P\\`J\`\aDdd ddld dl`p=l  lܹ 0f_.lۜll 1  +d dlTld dl -l l l  l 0d`ǜd !#  l5Tkܘ \ lڜ9_h\ lӜ4\ᐼ d\̨ld dddl *Al ̬ l̩d ,\̤ l ! l l윳4\ܯm l`p5dl 0e_ 4 n ḽḷl 1 l l  1 ǜd "C l +Tk l ! d " ll 8̽_h\ܷ "C l  l\ѐ̥ l !\Ő̶ l !b@aH^H[TThh\hhhFhhhh{hhh\hhhhhhhah\hqhhvhhI\hgh\hch\h_h\h[h\hWh\hShA T` h/&hHgaV`H _H H M A cTXFRXB H H\T=:\ؘ/  HI&Aa%acAD aa h h HR !( H TԺ hHXhxhy`Xhh{ HfL#dhtHg ! lbag4lZ a``]cTX^RXZ I^HT HG9Qs>L1a: Lw T&RH5 I  vR  LaT\T HI& hh Huhi[G M^@BPCE}GN HJzLLK@  `a` ` `X,8A"C  x&LpsX;a*XFXXȰ,` Ȱ#`X `Ȱ#`X`Ȱ#`XXhbXO`Ƞ$d `d`Ȱ.`X XXLbb Ƞ$`S@@`Ϡ *`@ed`d`X` `Ƞ4`n Ƞ$Ȱ$>a.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  T"" R1 H XRRt`p X` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\ĝ\Ğ@T:\ ĞTԝĞB  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR X t H XԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HT@@ HsLoAAd]TԝĝxB |LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaXk\@Xc N[ hhhuhi f[G ߂M^@BPCE}GN HJzLLK@H bb@`@@ HsLoAAd]TX X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XTvbX&)+25,Ȱ#`X TvA a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9Tvbbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! Ta a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XTvbȰ#`X`!dB2 @rdR@`/@oH h HX  sD  1  : E /` `"i THyyyyTImT2trACTIVE MIINP e RESPOND WITH "YES" IF ANY DELETES,ELSE (CR) ENTER USER ID TO DELETE OR "END" 0YE $END THy.y^y_y`Tzyyya (Tyybyay^Tzr z\R y^z:Tzyyy2yaɨƘ3 &\yydyay^o\z zW hȶyhTpد 1T{\Zy^zf hȡyh\؛ 1\THy^yfy4ygyfy.yhyiy.7ȋldy/\y^yfyLylyfy.ymyiyoyn!Tzyyy.yaya 'Tyypyay^Tz|yyya 1\yyqyay^TzyyaTIm(1H1,5X,15HUSERS OF COLECT,/,3X,2HID,3X,4HPORT,3X,4HTIME/)(20X,15HUSERS OF COLECT,/,10X,2HID,5X,4HPORT,5X,4HTIME) (2X,2A2,3X,I4,4X,A2,1H:,A2) (9X,2A2,5X,I4,6X,A2,1H:,A2) T2tX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh` H]h\hRhMhRKuX?hKJhAHFv" c h8"5T}39cTh.h;X7H&8%#T$h$h`  T~T MM2 TF T{T|4h255؈ȇXh&ڨ*IhTOTd{w{x{yp=H ' &eh @ȫT]ȨXȞ T{ȡ`><Ȓ T H T| {+d{T  T|TTx{{{{{{{{{{ h3HHd|hd|Dhhd|TFKhh hHL8@ hk"T|hT|͘} hy"  b hqT PިXM H֨CbCwΨ U hS Va `hL1D{lEwe& ?!RX"ȭ ȩ!0XHyl'e #!6X Ȍ T|T| `h XX\\ TaH #h! T~T hBDhEhBhBhDhw}ch:8# `h9 V1a Dh/X+)*h+DT|  #%  # Dj A Dh h h  Hhh&aH3[HX" L!`Ψh T~T aH> 3 DH-j+̾Ⱥ(j'% hȲDhT|̝Ȟ̘nΙlؘؚș _ U h HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBH j `0 'd  hrHr s"htjqh hDh`Hah`I/O REQUEST     X XX*EX XX&X+@XXX< XwhHh h,~3h*X" ~'h$ h!X ~0h hX TLhX T|HX TL `u HehdhgXlXvhb"aT}ZWDT hUHUHRRQ  pJf XNXXhEn HAXHXR(?R!39h9X?XInhTK  NX0h+  h n ;ln  H T` + ȋXh؆1   HhH㞚  T~T hhhhd|rzhhuXh̺ (BD{ n&ȫd|sȫ  hJIEhE h h  hh h8H6{+0T XX h%`" "h*hTd T}C h hhh ll X# Xhh@4i` Xj T~T Cr q d Y hUDhT XHXhNXhXh:a62Hl20X), H,)H& XXh a&hh۸nX X h H   HShhh<@ TH $T\h9Dh5TFh122-3 T~**%!!T  TF \T|T \T  H+h* r Gh hlBhHX "9" "hh0" T}+TX% hT\H `CT T@ TFhTh XX T T 2X X' h$  X0X XzШ Xhˠ T~ T H= X H8X H0TX*@) \TJ   hTHSTOP PAUSE ܟ h\H jN qDhQ`hS \hL!:R hJE hBEOi:Dh ḷ l !& !/ l 9!/̫ !+̧ h$l !(/ l 5T| l̻ ̵dl\gT~ T2t  0l\\ ldd d:\ͅ  ld 9!. !* hĈl̨ l 3\    d !T l F7̣ 4̠ l̜  0lT~ T2t d d ldd d d d f 1T| / l   l  l \݅0l $ lLddl,lLlll ̲ l,܌lLlެll,Ќld l ̓ l T| B > : 6  93 %   l 95 2v  0lo  d0 d lX̺ ̷  ̯  Ed/ l D\̠ ̜  d   9! ! d $l c" l T|  0l ḏ k3 dl՜l0dddddd D llddl T<̻   l  dldldl dT l\ l\Ṋl Tq  ̚dl̛dl l\Յ l\Ѕ)1" < ) EHp d; dl\/ ! !lHdlT|̘l\ l\ l  Hll\ˬl d l ddd d n 1 d +dd dT l\̗  l\dddʤd  -lܺdldl dl TTdl  -ldlld d /̼dd$l,ldlLdllLld߬l,l,ތl,l,l  ,Llجٌl̶d lLlͬlڌlLd!Ԭlܦf ̜ !̗ !0 d"  dn 1  l 7 -ldl1  Ԝl Όl d !Y 1TΫ n !M̷ d#̳  l!̩ l !5 n̜ ܡ, d̥  ̦ l 7 +l̞dlܚ dn 1 l 0n 1 d 0n 1 d1  0d/l Ôl̿ !i̻  l̶8T| l \ ld dl !  0ṉh\ ܫ l̹ l\̳̆ l  2\̥ l 2h\ l/ l 2\$ l0 !d  d8T| l \ l\\ l  ̳h\ܭ l \ֆ l\ц\φ d%d&+ #!" 8 % l\ܨ 1P\\J\\Ddd! dd ld dl`p=l  lܹ 0f.lۜll 1  +d dlT%wl%d dl -l l l#  l 0d/d' !#  l5T|ܘ \ lڜ9h\ lӜ4\$ d\%̨ld! dd d"l *l c̬ l̩d( ,\̤ l ! l l윳4\ܯm l#`p5dl 0e 4 n ḽḷl 1 l l  1 /d' " l +T| l ! d " ll 8̽h\jܷ " l  l\ц ̥ l !\Ņ̶ l !b@aH^H[TT hh\hhhFhhhh{hhh\hhhhhhhah\hqhhvhhI\hgh\hch\h_h\h[h\hWh\hShA T%` h/&hHgaV`H _H H M A cTXFRXB H H\aaT%aac=:\؎aac/  HI&Aa%acAD aa h h HR HUSERS O H T%Ժ hHXhxhy`Xhh{ HfL#dhtHg ! lbag4lZ a``]cTX^RXZ I^HT% HG9Qs>L1a: Lw T&RH5 I  vR  LaTi\Ti hMMREL CM hh Huhi[G M^@BPCE}GN HJzLLK@  `a` ` `X,8A"C  x&LpsX;a*XFXXȰ,` Ȱ#`X `Ȱ#`X`Ȱ#`XXhbXO`Ƞ$d `d`Ȱ.`X XXLbb Ƞ$`S@@`Ϡ *`@ed`d`X` `Ƞ4`n Ƞ$Ȱ$>a.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  T%"" R1 H XRRt`p X` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\,,\,#,@T:\ ,#&#,Tjԓ,#,B  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR X t H XԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HTj HsLoAAd]Tԓ,,B |LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaXk\Xc N[ hhh#uhi f[G ߂M^@BPCE}GN HJzLLK@H Hbb@` HsLoAAd]TX X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XTbX&)+25,Ȱ#`X TA a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9Tbbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! Ta a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XTbȰ#`X`!dB2 @rdR@`/@oH h HX  sD  1  : E /` `"i H"h! HX @    ` `"i MT25U1IOPR JJBUTIFIL FBASV4MTBFE0 MTBFE1EXITF 0ACTCRESCSMTHTMTHUPDYDALTHDR1HDR2HDR3SALCRSW1OLPMRPTGLTRFADD UPD DEL END   LCKOFRPTHyyyyT~R y{T}yyJy (TkyJyyyTIm\Ry|yh{ h (hyY  ؼ 1\Ry|<Ȱ {\Ry|Lzh{ hȘ! (hyZy  (h y {yN1yyyT~Zy|h dyyhT 1T~}Ydy #}sl 6 3}Tl 6 3}l̺ }*l̴ ̱ }l̫ }l̥ }l̟ }l\B*yyTyYyyyyyzdy{\yyyy yy\yYyyy yyT}yy yyy (TkyJyyyT~Z4y| dyyhT 1T~ۤy y y 6 # ,\Z7y|\yY\yZ\}Ydy 6 3}Tl 6 3}l }*l  }l }l̿ }lT~B@yy\ZAy} dyyhT (1T~{Tdyx Ldyy dy  FlTyYyyy yyT}yy yy (TkyJyyyl\ZKy|\y \y!\`y d  ,\ZNy|\yY\yZ\FT}yy y '\yJyyy7T~ZTy|\yY\yZ\*T}yy̮ 2TIm\yJyyy\TyYyTHyyyyyyYyyyYdyyZdyT}yy yyy" 8 %C>(/,38H UTILITY FILE MODIFICATION PROGRAM IN ,//)(55HINPUT , "ADD" TO ADD, "UPD" TO UPDATE, "DEL" TO DELETE,,22H OR "END" TO TERMINATE,/)(24H INVALID CODE - REENTER ,/) (49HINPUT FOUR (4) CHARACTER KEY OF RECORD TO PROCESS,/)(9H RECORD -,2A2,28H- ALREADY EXISTS, CANNOT ADD,/) (/9H RECORD -,2A2,20H- ADDED SUCCESSFULLY,/)(9H RECORD -,2A2,30H- DOES NOT EXIST OR CANNOT BE ,7HUPDATED,/) (/,9H RECORD -,2A2,22H- UPDATED SUCCESSFULLY,/) (9H RECORD -,2A2,30H- DOES NOT EXIST OR CANNOT BE ,7HDELETED,/) (/9H RECORD -,2A2,22H- DELETED SUCCESSFULLY,/)(/,40H----------------------------------------) (/,14HR---,S---,W---) (/,47HCODE 1--CODE 2--CODE 3--CODE 4--CODE 5--CODE6--,24HCODE 7--CODE 8--CODE 9--,/)(/,4H--- )(/,45HNAME ISPHONE EXT CSUP QUEUES...)(/,46H5678901234567890123456789012345678901234567890) (/,12HRL--,P--,C--) (/,8H RPT001)(/,26H9-------------------------) (38A2)X%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh` H]h\hRhMhRKuX~hKJhAHFv" c h8"5T39cTYh.h;X7H&8%#T$h$h`  T[T  TF T T4h255؈ȇXh&ڨ*IhTT~~~p=H ' &eh @ȫTȨXȞ T~ȡ`><Ȓ T H TB ~hd T TBTT h3HHdʐhdDhhd6TFKhh hHL8@ hk"ThT } hy"  b hqT' PިXM H֨CbCwΨ U hS Va `hL1D{lEwe& ?!RX"ȭ ȩ!0XHyl'e #!6X Ȍ TT! `h XX\\ TaH #h! T[T hBDhEhBhBhDhwh:8# `h9 V1a Dh/X+)*h+DTB  #%  # Dj A Dh h h  Hhh&aH3[HX" L!`Ψh T[T aH> 3 DH-j+̾Ⱥ(j'% hȲDhTB̝Ȟ̘nΙlؘؚș _ U h HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBH j `0ܬ ̢ 'd Id hrHr s"htjqh hDh`Hah`I/O REQUEST U     X XX*EX XX&X+@XXX< XwhHh h,ph*X" dh$ h!X mh hX ThX T HX\ɏ TL `u HehdhgXlXvhb"aTZWDT hUHUHRRQ  pJf XNXXhEn HAXHXR(?R!39h9X?XInhTK  NX0h+G EDh n ;ln  H T` + ȋXTh؆1   HhH㞚  T[T hhhhd~hhuX!h̺ (BD n&ȫdȫ  hJIEhE h h  hh h8H6~h0TXX h%`" "h*hT T h hhh ll X# Xhh@4i` Xj T[T Cr q d Y hUDhT XHX hNXhXh:a62Hl20X), H,)H& XXh a&hh۸nX X h H   HShhh<@ TH $T\h9Dh5TFh122-3 T[**%!!T TF \T T \T  H+h* r Gh hlBhHXL"9" "hh0" T+TX% hT\H `CT T@ TFhTh XX TT 2X X' h$  X0X XzШ Xhˠ T[ T H= X H8X H0TX*@) \TJ   hTHXSTOP PAUSE  h\H jN qDhQ`hS \hL!:R hJE hBEOi:Dh?-0 ^_Fh" ED.#n #l`*H s T h jظ 1 h " < )P d` h\ du̼ !T7w 9lwdRl̩ l  dyTuy\w̛  lzdRl{l d| d}\ɉw    !> ḷ l !& !/ l 9!/̫ !+̧ h$l !( l 5T7w l̻ ̵dl\|ygTJvT2tw  0l\\ ldd ds:\͉w  ld 9!. !* h|Ĉl̨ l 3\w    dy !T|y l F7̣ 4̠ l̜  0lTJvT2t ddld}ddd ds f) 1T7ww  l   l  l '\݉wl` .$ lLdid|l-,lLlll ̲ l,,܌lLlެll+,Ќld l ̓ l 'T7ww B > : 6  93 % w  l 95 2v  0lo  d dlX̺ ̷ ` ̯  Edt l D\w̠ ̜  dw  9! ! di$l c" l T7w w 0l d/̱ k3 dl՜ldXdY*dZ+d[,d\d]` D l-l.d^d_l T+/̻ t  l}  dldldl dyT+y l\,y l\-yṊl T+//  ̚dl̛dl l\Չ+y l\Љ,y)" < ) EHp d`; dul\uy ! !lHdw{lT7w̘l\w l\w l  Hll\wˬl d l djdkdl ds n 1 d +d}d dyTjy l\ky̗  l\lydpdndoʤd  -lܺdldl` dl TmTfmdrxl  -ldlld d /̼dqd$l,ldlLdillLld߬ly,l,ތl,l,l  ,Llجٌl̶dlLlͬlڌlLdԬlܦf/` ̜ !̗ ! d0  dsn 1  r l 7 -ldl  Ԝl Όl d !Y 1TΫ n !M̷ d̳  l!̩ l/ !5 n̜ ܡ, dD̥  ̦ l 7 +l̞dlܚ dn 1 lC 0n 1 ds 0n 1 d  dl Ôrl̿ !i̻  l̶8T7z l} \} ld dl !/  0ṉ/h\ܫ l̹ l\̳̉ l  2\̥ l 2/h\y l l 2\ l !d  ds8T7z l} \} l\\퉑 l  ̳/h\yܭ l` \։ l\щ\ωrdpd+ !" 8 % l\ܨ 1P\\DJ\D\EDdyd ddld dsl`p=l  lܹ 0fC.lۜll 1  +d} dlT艡yld dl -l l l  l 0dDd !#  l5T7zܘ \~ lڜ9sCh\  lӜ4\በ dy\y̨ld dddl *%l ̬ l̩d ,\z̤ l ! l l윳4\ܯm l`p5edil 0eC 4 n ḽḷls 1 l l  1 d "' l +T7z l ! d " ll 8̽Ch\QBܷ "' l  l\щ̥ l !\ʼnz̶ l !b@aH^H[T{Thh\hhhFhhhh{hhh\hhhhhhhah\hqhhvhhI\hgh\hch\h_h\h[h\hWh\hShA1 T` h/&hHgaV`H _H H M A cTXFRXB H H\ݑTݑݒ=:\ؑݒݒ/  HI&Aa%acAD aa h h HR hh H TԺ hHXhxhy`Xhh{ HfL#dhtHg ! lbag4lZ a``]cTX^RXZ I^HTxx HG9Qs>L1a: Lw T&RH5 I  vR  LaT\xT HI& hh Huhi[G M^@BPCE}GN HJzLLK@  `a` ` `X,8A"C  x&LpsX;a*XFXXȰ,` Ȱ#`X `Ȱ#`X`Ȱ#`XXhbXO`Ƞ$d `d`Ȱ.`X XXLbb Ƞ$`S@@`Ϡ *`@ed`d`X` `Ƞ4`n Ƞ$Ȱ$>a.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  T"" R1 H XRRt`p X` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\\@T:\ TԖB  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR X t H XԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HT$$ HsLoAAd]TԖ\B |LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaXk\$Xc N[ hhhuhi f[G ߂M^@BPCE}GN HJzLLK@H bb@`$$ HsLoAAd]TX X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XTZbX&)+25,Ȱ#`X TZA a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9TZbbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! Ta a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XTZbȰ#`X`!dB2 @rdR@`/@oH h HX  sD  1  : E /` `"i h$h#H  THyyyyyXwhTI:ySy!X[ h `h0H.h.H'h&-h,h,h,X-!hTI:ySy! ?KhHX3E jXM  "h `   2uM%  !"h X " XXyA"T{S$yH>;TI1 }f2oύ-/Ύ  Ty&-...... '' z4CALL' *B 'STRACE' *B 'CHUPD1' *B 'R9ELOC' *T *K,I8 *N,CHUPD1,,,B *K,I6 *Z *V #T_ h h  hDhBySySByT "h-h*-h-&F q -  " $T,hhh y l  n zz{S HK!"hE!dhDH3  j;T}|{{4"T|||{{*!vT||{ H H  -X~| H   #3T Xo H  Xy|$$SYMSGF$$ \"Xq HI HXG|  X\Xn H: H X8|  X|\ H(X)|o H$X4| \ȵ" \bT||{ ȮX2whth \|w h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :X|o H"A HB0Fh  0X|o { 00j qa! -" hh! u  HTLD|||HHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`Xga"aHh j qhykK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L?@@@@@@@@@@: ="X)"H @Tn&& !Tyz-&  +&$\y&TIa&Hk DADCDFNARLCSEADSP1P2P3NQOASS h9  _ > h/8  h)hֈh 1ȿ Ȼ ȸ  ȵ Ȳ ȯ  h ȩ   h|   l HTTh!@ALL _ 7{IH .0  1  h h ( h   h T 1 hȽH TTh hRLCSEADS hhTPQP hTAPEARC 0 .0G€m8m ZZ! B Z8m Z 6m 6m m 6Z J6Z m2>2D2TPX, mm2 hT0X3&_XPh:L h4 ,X*h6X N + g_  JHX666X g<2"5"/"c m4- .X "a\6pc6p/5acR/aC2>a/X*md6O&! j5 /6 jtj4+-/F6\6p DR 1B1mmhhX0m. hxh0>"F2d6OUPREQ H 2 =*( hr4mF6jtjrh<2BEGSR RLABL 4TAG ADD "#dT\]^^ 6 ȸh|h|o r T chzh YhT̛z\\cfzfu h"d! %̥ ̠ #`l h0\ěcdzudT"h%\"lTzd$alJ[ 7 4 6T8R\Tcz~T=z~iz}i' ' $\㛰\ߛzp  |PRINT " CND V)D g4~|C7>@ @ SIP@ cY`@ipD"D"D"D""D(" @ Z $  $  $  Z  ((ލP)@ H`)@ Hp)@ H)@ H)@ H+   x1@(8F@@@8xň}}?3   x1@(87@zBBLG   x1@((sT@@ x18 @8 (@@88@@8z 0@1@ aapaap)aap3aap=aapGG @1@ 8<@@@8Z\\\@Z @1@ 8<@@@8Z\\\@Z`18A\\\@@@@\\\A @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 3l & J#"#&#(#*#,#<#@'#h######'#'#'$hBlFH?z 7H55 8r`- dhT,(% zTy& z! dydzTy&yA" ydy"h%h$h#h" cdhE"h "hdyT{Syhy`h$h#H  THyyyyyXwhTI:ySy!X[ h `h0H.h.H'h&-h,h,h,X-!hTI:ySy! ?KhHX3E jXM  "h `   2uM%  !"h X " XXyA"T{S$yH>;TI1N>R}f ЂHG  Ty&...... '' z4CALL' *B 'STRACE' *B 'COLCHG' *B 'R9ELOC' *T *K,I8 *N,COLCHG,,,B *K,I6 *Z *V #T_ h h  hDhBySySByT "h-h*-h-&F q -  " $T,hhh y l  n zz{S HK!"hE!dhDH3  j;T}|{{4"T|||{{*!vT||{ H H  -X~| H   #3T Xo H  Xy|$$SYMSGF$$ \"Xq HI HXG|  X\Xn H: H X8|  X|\ H(X)|o H$X4| \ȵ" \bT||{ ȮX2whth \|w h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :X|o H"A HB0Fh  0X|o { 00j qa! -" hh! u  HTLD|||HHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`Xga"aHh j qhykK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L~|(.1@ @ D @ @ >4;)@@ ..$//N$//N/$//N?   !!! ! ( ( }̂  X @(8E}@@@8M8xň}} X /@(8;@DD X ?@(("  X 8@8#@8<@`8O@8r@r'@ @ !H 28<8< 8 >@ _@  (@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ n ' P T V X Z j n p  ' ԁhBlFH?z 7H55 8r7`- dhT<,(% zTy& z! dydzTy&yA" ydy"h%h$h#h" cdhE"h "hdyT{Sefyhy`h$h#H  THyyyyyXwhTI:ySy!X[ h `h0H.h.H'h&-h,h,h,X-!hTI:ySy! ?KhHX3E jXM  "h `   2uM%  !"h X " XXyA"T{S$yH>;TI1:#7[h}fۗn-RR,ց؃>3іԖӖ S Ty&...... '' z4CALL' *B 'STRACE' *B 'COLSTS' *B 'R9ELOC' *T *K,I8 *N,COLSTS,,,B *K,I6 *Z *V #T_ h h  hDhBySySByT "h-h*-h-&F q -  " $T,hhh y l  n zz{S HK!"hE!dhDH3  j;T}|{{4"T|||{{*!vT||{ H H  -X~| H   #3T Xo H  Xy|$$SYMSGF$$ \"Xq HI HXG|  X\Xn H: H X8|  X|\ H(X)|o H$X4| \ȵ" \bT||{ ȮX2whth \|w h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :X|o H"A HB0Fh  0X|o { 00j qa! -" hh! u  HTLD|||HHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`Xga"aHh j qhykK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L?@@@@@@@@@@: ="X)"H @Tnyhy`h$h#H  THyyyyyXwhTI:ySy!X[ h `h0H.h.H'h&-h,h,h,X-!hTI:ySy! ?KhHX3E jXM  "h `   2uM%  !"h X " XXyA"T{S$yH>;TI1}f ܎ ۑ}  Ty&...... '' z4CALL' *B 'STRACE' *B 'DALIST' *B 'R9ELOC' *T *K,I8 *N,DALIST,,,B *K,I6 *Z *V #T_ h h  hDhBySySByT "h-h*-h-&F q -  " $T,hhh y l  n zz{S HK!"hE!dhDH3  j;T}|{{4"T|||{{*!vT||{ H H  -X~| H   #3T Xo H  Xy|$$SYMSGF$$ \"Xq HI HXG|  X\Xn H: H X8|  X|\ H(X)|o H$X4| \ȵ" \bT||{ ȮX2whth \|w h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :X|o H"A HB0Fh  0X|o { 00j qa! -" hh! u  HTLD|||HHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`Xga"aHh j qhykK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L?@@@@@@@@@@: ="X)"H @Tn2D2TPX, mm2 hT0X3&_XPh:L h4 ,X*h6X N + g_  JHX666X g<2"5"/"c m4- .X "a\6pc6p/5acR/aC2>a/X*md6O&! j5 /6 jtj4+-/F6\6p DR 1B1mmhhX0m. hxh0>"F2d6O$ j( 4tjX"m4'\>i hxhX(m6m|>CONS  P8(`L 4TAG ADD "# Z-ADD "! SUB "# Z-SUB "!MULT "#DIV "#XFOOT "!SQRT "!MVR "MOVE &aMOVEL &aMOVEA $AMHLZO &AMLHZO $aMHHZO $AMLLZO &a COMP '!TESTZ $" TESTN $# TESTB %$ LOKUP '%LOKUP )'&!SETON 'SETOF (BITON %)BITOF %*GOTO +EXIT ,ENDSR -EXSR PRINT " C=ME "6EXITF 7@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@(2@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@eT Q~|D`@&&&@@"N@@@ /@!M@"k@#D$@%@&D'@(@)D*@+`2$D,jD-vD.@ V/010 /10 188 144@@@ 15521: `266 `27777? 2:(2:31 3V?/ /6V//$  4$  5$  65$//5/7NNVO/N /N8   89 4:535;5 P;$5$3P;&<? <  < (9(7 4(:43 :c! !!c! =>? ?> >  H=H=@A@BACA BH= BH= CH= CH=O =(= !c!c(<_ < < zz/8 z ;DP;DH;DH; ;&(;&H~$R18 \\\\\98%@@8+@811N 1@4) 8J@@ 8P @8V8K@@8T8xňE}}_S1@5)8D@zMMid1@6))n41@)8 A@-U8va@.41@8?@aap,R8 r@aap*ۏ41@ 8G@@P@K ``p$T8U`@%Y8n@+41@!8?K@@&ff41@"@#8GK@@P@K ``p'T8U`@(YYC418 @@@8"@@@8 1`8K\\\\\@@@@\\\\\KhH41 aat D  D  D D - Dmmm41 /aat /D  /D  /D /D - /Dmm41 ?aat ?D  ?D  ?D ?D - ?Dmmא41 Oaat OD  OD  OD OD - ODmm418+\\\\\\\\\\\\\\\\\\\\\\\\8C\\\\\\\\\\\\\\\\\\\\\\\\8[\\\\\\\\\\\\\\\\\\\\\\\\8p\\\\\\\\\\\\\\\\\\\\\p @1@A%18 @@ 84@@@@F18+\\\\\\\\\\\\\\\\\\\\\\\\8C\\\\\\\\\\\\\\\\\\\\\\\\8[\\\\\\\\\\\\\\\\\\\\\\\\8p\\\\\\\\\\\\\\\\\\\\\p`1@`1@ 186\\\\\8O@@z7V8\\\\\\\đ`1@Α`1@ 1/8\\\@@@/8/@`@@\\\ /8O`@@@@`O)8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@d*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*+ @@@@@@@@+@@@@@@@@+$@@@@@@@@+6@@@@@@@@@@@@@@@@+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@,$@@@,@@@@@@`@kk@@@@@@@@@@@@@@@`@@k@k@@@@@@@@@@@@@@@@@`@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@`@@-@@@-&@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@-@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@.@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@., @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@ @@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Qx 2 a#)8 G) *+ + + +* +> 7," ,* ;- -& - - ....2.4.6.8.:'.b.r.v...... .//! /'/+ /5/9/=/A)/F)/K;/////'/'/'00 00000000"02 0<0B0F0NhBlFH?z 7H55 8r``- dhTe,(% zTy& z! dydzTy&yA" ydy"h%h$h#h" cdhE"h "hdyT{Syhy`HpX0 HjXLXXXc hd 'jb PALGO"#2@2 hGh X A ,#)$h.}f@@" T ""  (h @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P Ǡ#"2X"2Ȱ h hh( h 0Fȼ&  x&dhwu Ggb# gY ` ` 0H_V Q JXG"yh+* h%yh%$h!-H}fhy}fh1h  h @h$h#H  THyyyyyXwhTI:ySy!X[ h `h0H.h.H'h&-h,h,h,X-!hTI:ySy! ?KhHX3E jXM  "h `   2uM%  !"h X " XXyA"T{S$yH>;TI1ԏ/}fg++ݏbd*(3657 , Ty&b...... '' z4CALL' *B 'STRACE' *B 'DHUPDT' *B 'R9ELOC' *T *K,I8 *N,DHUPDT,,,B *K,I6 *Z *V #T_ h h  hDhBySySByT "h-h*-h-&F q -  " $T#,hhh y l  n zz{S HK!"hE!dhDH3  j;T}|{{4"T|||{{*!vT||{ H H  -X~| H   #3T Xo H  Xy|$$SYMSGF$$ \"Xq HI HXG|  X\Xn H: H X8|  X|\ H(X)|o H$X4| \ȵ" \bT||{ ȮX2whth \|w h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :X|o H"A HB0Fh  0X|o { 00j qa! -" hh! u  HTLD|||HHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`Xga"aHh j qhykK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L?@@@@@@@@@@: ="X)"H @Tnm ,,,d6,>n , ,  ,d6 ,, ,d6,6B,,UTIFIL 0 P(6 0<6б 2 H,d< J0,,d6 ,d6 . /.@BF 36 H8363 8464 :5 2 3  4  5 0362 H < = > BNBAX/ A@XE/ DXE0B , B 0/ Hd< J. "fH^f <(f6f d<2 g"h"i"e:ű(e0:(i0:(h00^g )gg<2d6d6d62S O R T E D F I E L D N A M E S NAME TYPE LENGTH DPS O R T E D L DELQMST 0 ІR:bRE NEVERUSED TO CONDITION OPERATIONSTHE FOLLOWING INDICATORS WERE USED TO CONDITION OPERATIONSBUT WERE NEVER SETTHE FOLLOWING INDICATORS APPEARED IN THIS PROGRAM 01020304050607080910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394@P,1 ?aat ?D  ?D  ?D ?D - ?Dmm@P'L@PL4@PMQ@PQ1 Oaat OD  OD  OD OD - ODmm@PLq@Pq4@Prv@Pv1+\\\\\\\\\\\\\\\\\\\\\\\\@Pw8@PC\\\\\\\\\\\\\\\\\\\\\\\\@P8@P[\\\\\\\\\\\\\\\\\\\\\\\\@P8@Pp\\\\\\\\\\\\\\\\\\\\\@P8@Pp@Pq@P@@PPRINT " C~|{lx@ D@@@5@S@q@@@@` @(@F@d@@@ Z $ N$ N/$ N? Z    )D2 888|Jd0d@)@M@k@@@@@@@@@H    x1 @(8P@@8d@@8ň   x1 /@(8K@z UUА   x1 ?@(( @@ x18 @8 -@8 K@8 _@8s@@s 4` D`1@ @7@E]nn-`18<\\\@@@@\\\<(@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@h)v@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ W=' '(2 #))))))))))**'*, *6*T *b***'*+hBlFH?z 7H55 8rj`- dhTo,(% zTy& z! dydzTy&yA" ydy"h%h$h#h" cdhE"h "hdyT{Syhy`h$h#H  THyyyyyXwhTI:ySy!X[ h `h0H.h.H'h&-h,h,h,X-!hTI:ySy! ?KhHX3E jXM  "h `   2uM%  !"h X " XXyA"T{S$yH>;TI1}fvqs  Ty&q...... '' z4CALL' *B 'STRACE' *B 'DMPMST' *B 'R9ELOC' *T *K,I8 *N,DMPMST,,,B *K,I6 *Z *V #T_ h h  hDhBySySByT "h-h*-h-&F q -  " $T,hhh y l  n zz{S HK!"hE!dhDH3  j;T}|{{4"T|||{{*!vT||{ H H  -X~| H   #3T Xo H  Xy|$$SYMSGF$$ \"Xq HI HXG|  X\Xn H: H X8|  X|\ H(X)|o H$X4| \ȵ" \bT||{ ȮX2whth \|w h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :X|o H"A HB0Fh  0X|o { 00j qa! -" hh! u  HTLD|||HHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`Xga"aHh j qhykK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L"h2"//a bTAPE  Ї苁/62V  /,*/2DR X X XXm J2>2 [ a"`V:(`0^a [a a`^a [`YHJ2N V|e2H2PQ48L2t B  7 7 /88 80/ / / StS/ / StSt/6 =  B( * 70/t/ 7B 8, @@&F@&HJ2 B  7t 6 =  B( @Pj@@ t@Pq x@Pkr@Pr1@@Ps8 @P|-@@P|8 @PK@@P8 @P_@@P8 @Ps@@@P8@Ps@Pj@P 4` D`@P@P1@ @7@E]nn`~|{` @ @+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  $ ,X,\,^,`hBlFH?z 7H55 8r`- dhT,(% zTy& z! dydzTy&yA" ydy"h%h$h#h" cdhE"h "hdyT{Syhy`h$h#H  THyyyyyXwhTI:ySy!X[ h `h0H.h.H'h&-h,h,h,X-!hTI:ySy! ?KhHX3E jXM  "h `   2uM%  !"h X " XXyA"T{S$yH>;TI1}fupr  Ty&p...... '' z4CALL' *B 'STRACE' *B 'LODMST' *B 'R9ELOC' *T *K,I8 *N,LODMST,,,B *K,I6 *Z *V #T_ h h  hDhBySySByT "h-h*-h-&F q -  " $T,hhh y l  n zz{S HK!"hE!dhDH3  j;T}|{{4"T|||{{*!vT||{ H H  -X~| H   #3T Xo H  Xy|$$SYMSGF$$ \"Xq HI HXG|  X\Xn H: H X8|  X|\ H(X)|o H$X4| \ȵ" \bT||{ ȮX2whth \|w h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :X|o H"A HB0Fh  0X|o { 00j qa! -" hh! u  HTLD|||HHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`Xga"aHh j qhykK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L"h2"//a b6H 6/ Ї苁/62V  /,*/2DR X X XXm J2>2 [ a"`V:(`0^a [a a`^a [`YHJ2N V|e2H2PQ48L2t B  7 7 /88 80/ / / StS/ / StSt/6 =  B( * 70/t/ 7B 8, @@&F@&HJ2 B  7t 6 =  B( @Pj@@ t@Pq x@Pkr@Pr1@@Ps8 @P|-@@P|8 @PK@@P8 @P_@@P8 @Ps@@@P8@Ps@Pj@P 4` D`@P@P1@ @7@E]nn`~|z` @ @+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  P$ ,V,Z,\,^hBlFH?z 7H55 8r`- dhT,(% zTy& z! dydzTy&yA" ydy"h%h$h#h" cdhE"h "hdyT{Syhy`LODMSTPGCMPR>PGLIST>PGUPTB>SRNDMP? SRNLOD? SUMACL?7TIMUSE3TRENDE3GTRENDP?UPDATEw?UPD400@WRTOFE@AMh$h#H  THyyyyyXwhTI:ySy!X[ h `h0H.h.H'h&-h,h,h,X-!hTI:ySy! ?KhHX3E jXM  "h `   2uM%  !"h X " XXyA"T{S$yH>;TI18L}fBAޏuxwy  Ty&...... '' z4CALL' *B 'STRACE' *B 'LTRBLD' *B 'R9ELOC' *T *K,I8 *N,LTRBLD,,,B *K,I6 *Z *V #T_ h h  hDhBySySByT "h-h*-h-&F q -  " $T$,hhh y l  n zz{S HK!"hE!dhDH3  j;T}|{{4"T|||{{*!vT||{ H H  -X~| H   #3T Xo H  Xy|$$SYMSGF$$ \"Xq HI HXG|  X\Xn H: H X8|  X|\ H(X)|o H$X4| \ȵ" \bT||{ ȮX2whth \|w h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :X|o H"A HB0Fh  0X|o { 00j qa! -" hh! u  HTLD|||HHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`Xga"aHh j qhykK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L?@@@@@@@@@@: ="X)"H @Tn;TI1}f΀ۀހ݀  Ty&...... '' z4CALL' *B 'STRACE' *B 'LTRDMP' *B 'R9ELOC' *T *K,I8 *N,LTRDMP,,,B *K,I6 *Z *V #T_ h h  hDhBySySByT "h-h*-h-&F q -  " $T,hhh y l  n zz{S HK!"hE!dhDH3  j;T}|{{4"T|||{{*!vT||{ H H  -X~| H   #3T Xo H  Xy|$$SYMSGF$$ \"Xq HI HXG|  X\Xn H: H X8|  X|\ H(X)|o H$X4| \ȵ" \bT||{ ȮX2whth \|w h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :X|o H"A HB0Fh  0X|o { 00j qa! -" hh! u  HTLD|||HHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`Xga"aHh j qhykK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L?@@@@@@@@@@: ="X)"H @Tn;TI1u}ff~ac  Ty&a...... '' z4CALL' *B 'STRACE' *B 'LTRLOD' *B 'R9ELOC' *T *K,I8 *N,LTRLOD,,,B *K,I6 *Z *V #T_ h h  hDhBySySByT "h-h*-h-&F q -  " $T,hhh y l  n zz{S HK!"hE!dhDH3  j;T}|{{4"T|||{{*!vT||{ H H  -X~| H   #3T Xo H  Xy|$$SYMSGF$$ \"Xq HI HXG|  X\Xn H: H X8|  X|\ H(X)|o H$X4| \ȵ" \bT||{ ȮX2whth \|w h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :X|o H"A HB0Fh  0X|o { 00j qa! -" hh! u  HTLD|||HHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`Xga"aHh j qhykK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L?@@@@@@@@@@: ="X)"H @Tn;TI1q}f+WW&(V^a`b X Ty&&...... '' z4CALL' *B 'STRACE' *B 'LTRPRT' *B 'R9ELOC' *T *K,I8 *N,LTRPRT,,,B *K,I6 *Z *V #T_ h h  hDhBySySByT "h-h*-h-&F q -  " $T,hhh y l  n zz{S HK!"hE!dhDH3  j;T}|{{4"T|||{{*!vT||{ H H  -X~| H   #3T Xo H  Xy|$$SYMSGF$$ \"Xq HI HXG|  X\Xn H: H X8|  X|\ H(X)|o H$X4| \ȵ" \bT||{ ȮX2whth \|w h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :X|o H"A HB0Fh  0X|o { 00j qa! -" hh! u  HTLD|||HHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`Xga"aHh j qhykK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L? ?> >  H=H=@A@BACA BH= BH= CH= CH=O =(= !c!c(<_ < < zz/8 z ;DP;DH;DH; ;&(;&H~$R18 \\\\\98%@@8+@811N 1@4) 8J@@ 8P @8V8K@@8T8xňE}}_S1@5)8D@zMMid1@6))n41@)8 A@-U8va@.41@8?@aap,R8 r@aap*ۏ41@ 8G@@P@K ``p$T8U`@%Y8n@+41@!8?K@@&ff41@"@#8GK@@P@K ``p'T8U`@(YYC418 @@@8"@@@8 1`8K\\\\\@@@@\\\\\KhH41 aat D  D  D D - Dmmm41 /aat /D  /D  /D /D - /Dmm41 ?aat ?D  ?D  ?D ?D - ?Dmmא41 Oaat OD  OD  OD OD - ODmm418+\\\\\\\\\\\\\\\\\\\\\\\\8C\\\\\\\\\\\\\\\\\\\\\\\\8[\\\\\\\\\\\\\\\\\\\\\\\\8p\\\\\\\\\\\\\\\\\\\\\p @1@A%18 @@ 84@@@@F18+\\\\\\\\\\\\\\\\\\\\\\\\8C\\\\\\\\\\\\\\\\\\\\\\\\8[\\\\\\\\\\\\\\\\\\\\\\\\8p\\\\\\\\\\\\\\\\\\\\\p`1@`1@ 186\\\\\8O@@z7V8\\\\\\\đ`1@Α`1@ 1/8\\\@@@/8/@`@@\\\ /8O`@@@@`O)8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@d*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@COSIGNER0 jE m 6m m 6Z J6Z m2>2D2TPX, mm2 hT0X3@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@,$@@@,@@@@@@`@kk@@@@@@@@@@@@@@@`@@k@k@@@@@@@@@@@@@@@@@`@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@`@@-@@@-&@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@-@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@.@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@., @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LTRFIL 0 ahpART ROR yD @@@@@@@@@@@@@@@@@@@@@@@@@@ Qx 2 a#)8 G) *+ + + +* +> 7," ,* ;- -& - - ....2.4.6.8.:'.b.r.v...... .//! /'/+ /5/9/=/A)/F)/K;/////'/'/'00 00000000"02 0<0B0F0NhBlFH?z 7H55 8r``- dhTe,(% zTy& z! dydzTy&yA" ydy"h%h$h#h" cdhE"h "hdyT{Syhy`HpX0 HjXLXXXc hd 'jb PALGO"#2@2 hGh X A ,#)$h.}f@@" T ""  (h @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P Ǡ#"2X"2Ȱ h hh( h 0Fȼ&  x&dhwu Ggb# gY ` ` 0H_V Q JXG"yh+* h%yh%$h!-H}fhy}fh1h  h @@@@@P Ǡ#"2X"2Ȱ h hh( h 0Fȼ&  x&dhwu Ggb# gY ` ` 0H_V Q JXGh , l "Zl%̲  ̠h $l ̑h $l̋Wl̊  l dXT7YXYU " d " dlV  l[ "| l$H!TThfhh?h\h_hF\h[h1\hWh\hThe+QR e h# d%TF0 ,TӿE/  [}\ \FM P\G  CTu d!_T N@Sm  @m@m 2@mׄPn̦ ̖ \F"\ @m̾nܱ B1̬ lD TӿH l\I @ HH_"d d d#  l lT H@PAaaph aapiaaplaapj*@\3aap]A@`@PLAR <AM <AM =K 6=0R 6=nR BAR CONS  P(AR KN K"L K`L KpS IKF OKST LDY LATE  QONTH QAY  QEAR  QCTFGQCCT QID R T RR RAC RA RRT R#CCT2R$ID R3AM R7I RFAL RGH1 RHPRINT " CGRtCTFGRCCT RLCD RAM RDR1 RDR2 S S S(P S<NM SAAD S_CS S}ZP SCTFGSACT SLC1 SFG S1 S1 S1 S1 SLC2 SFG S2 T2 T2 T<2 TPLC3 TUFG TV3 TW3 Tu3 T3 TN TL TY ~|R0> @ @!@"@#@$("2@%h@&i@'@(xX_@)@*@+@,@-@.@/@0@1@2@3@4~@5@6@7@8@9/@:M"6@;k@<@=@>@?@@`@A@B@C@D"3@E@F1@GO@Hc@I@J"4@K@L@M@N@O@P"5@Q@R@S5@TIDUDV`5`9(@ W W`` 1&& 1'&'&X2\[_]^bcz #FFF2\ 'GGY YZZ4Z % % % % % ![[ !\\ $]] "^^(P(@Z[\Z\ [ \P))-+,.*11//--++**,, zN_&N!'N(-.-+ N=N  N9N>NFNLNR6 6N:6 N;N?NGNMNSN<N@NHNNNT zNN +- -](V-+,V ]??  P]f_ +f_ ,f_ -+,-+@N_(] -+,- VN-+ +--+B  N +N? *BN ,,+ N-`N?NO.`NN/@@@@ 000 000N_0N0 +-N_X +\'cb`z 8 E K Q   ^k `^ ^ X^(^    _(^ ^ @ `^@ `^ _(^   H_P^(^(_  H_! #"$%  ^_/`&H` `^ `^  `^! !(^N P^(^N/ P^(^N P^(^N/ P^abacdce(^ HeP^O e""(e"fgf(^!h P^ hoh PbHdPg(d(gHdPg(daHd(d(gHdPg(d(gHdPg(daHd(d(gHdPg(d(gHdPg [Hd /e (dHdPg  e# #(e (d #(g # KHd (d (gHdPg (d (gHdPg dc (d  Pd i  `i   i  (i  Hd HdPi!eHdPg!e h$!(d!(g(e!$_ _%(_(^ Hb%jCjIjOj7j7Bj, j     Pjk k==k=@ `k<<(k<</(k  Hk(hm n%q.ʚT/Pv 9(8\(82@@\@@(8B@@@(8T@(8]] 9@ `9@ ɚ 9@ 9*85*>.@@@ $9b8\\\\\\\\\\Z82@@@@Z8=@[8 $@@[8'{[8'{[8'{[8<@@@@[@!J\82@@@@@\8:@@\@!J]8 @@]@$"]86@@@@^8 #@@^@"'^8;@@@@`8-@@`8=@@J4 8\<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ =@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ =+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@=0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@&B_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ C @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ C@@@@@@@@@@ C-@@@@@@@@@@d K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@K @@K@@K@@@@ KX@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Ki@@@@@@@@@@ K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@K@@@@\@@@@@@K@}}@@k@@@@@@@@@@LJ@@k@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@d Q@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@ @@ @@@@  < < = =0 6=n 6B B C C$ C8 K K K K" K` Kp K IK OL L QQQQQQR RRRRR#R$R3R7RFRGRHRKRNRRRVRWRpRtGRRRRRS S(S<SAS_S}SSSSSSSSSSSTTT<TPTUTVTWTuTTTTTTTTTIU"U$U&U(U*U,U.U0U2U4U5U9U<U=U?U@hBlFH?z 7H55 8r$`- dhT),(% zTy& z! dydzTy&yA" ydy"h%h$h#h" cdhE"h "hdyT{SRSyhy`h$h#H  THyyyyyXwhTI:ySy!X[ h `h0H.h.H'h&-h,h,h,X-!hTI:ySy! ?KhHX3E jXM  "h `   2uM%  !"h X " XXyA"T{S$yH>;TI1ҟ}f-C~~۟(*}Ϫ  Ty&(...... '' z4CALL' *B 'STRACE' *B 'MHUPDT' *B 'R9ELOC' *T *K,I8 *N,MHUPDT,,,B *K,I6 *Z *V #T_ h h  hDhBySySByT "h-h*-h-&F q -  " $T,hhh y l  n zz{S HK!"hE!dhDH3  j;T}|{{4"T|||{{*!vT||{ H H  -X~| H   #3T Xo H  Xy|$$SYMSGF$$ \"Xq HI HXG|  X\Xn H: H X8|  X|\ H(X)|o H$X4| \ȵ" \bT||{ ȮX2whth \|w h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :X|o H"A HB0Fh  0X|o { 00j qa! -" hh! u  HTLD|||HHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`Xga"aHh j qhykK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L? ?> >  H=H=@A@BACA BH= BH= CH= CH=O =(= !c!c(<_ < < zz/8 z ;DP;DH;DH; ;&(;&H~$R18 \\\\\98%@@8+@811N 1@4) 8J@@ 8P @8V8K@@8T8xňE}}_S1@5)8D@zMMid1@6))n41@)8 A@-U8va@.41@8?@aap,R8 r@aap*ۏ41@ 8G@@P@K ``p$T8U`@%Y8n@+41@!8?K@@&ff41@"@#8GK@@P@K ``p'T8U`@(YYC418 @@@8"@@@8 1`8K\\\\\@@@@\\\\\KhH41 aat D  D  D D - Dmmm41 /aat /D  /D  /D /D - /Dmm41 ?aat ?D  ?D  ?D ?D - ?Dmmא41 Oaat OD  OD  OD OD - ODmm418+\\\\\\\\\\\\\\\\\\\\\\\\8C\\\\\\\\\\\\\\\\\\\\\\\\8[\\\\\\\\\\\\\\\\\\\\\\\\8p\\\\\\\\\\\\\\\\\\\\\p @1@A%18 @@ 84@@@@F18+\\\\\\\\\\\\\\\\\\\\\\\\8C\\\\\\\\\\\\\\\\\\\\\\\\8[\\\\\\\\\\\\\\\\\\\\\\\\8p\\\\\\\\\\\\\\\\\\\\\p`1@`1@ 186\\\\\8O@@z7V8\\\\\\\đ`1@Α`1@ 1/8\\\@@@/8/@`@@\\\ /8O`@@@@`O)8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@d*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@COSIGNER0 jE m 6m m 6Z J6Z m2>2D2TPX, mm2 hT0X3@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@,$@@@,@@@@@@`@kk@@@@@@@@@@@@@@@`@@k@k@@@@@@@@@@@@@@@@@`@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@`@@-@@@-&@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@-@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@.@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@., @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@&_XPh:L h4 ,X*h6X N + g_  JHX666X g<2"5"/"c m4- .X "a\6pc6p/5acR/aCOSIGNER0 j$X0m. hxh0>"F2d6O$ j( 4tjX"m4'\>i hxhX(m6m|>2X4'm a^aD( hr4mF6jtjrh<2BEGSR RLABL 4TAG ADD "# /5/9/=/A)/F)/K;/////'/'/'00 00000000"02 0<0B0F0NhBlFH?z 7H55 8r``- dhTe,(% zTy& z! dydzTy&yA" ydy"h%h$h#h" cdhE"h "hdyT{Syhy`HpX0 HjXLXXXc hd 'jb PALGO"#2@2 hGh X A ,#)$h.}f@@" T ""  (h @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P Ǡ#"2X"2Ȱ h#CT $SCHK#SS3 #PEAT#SS4 #ER $ACTFIL  JDl hh( h 0Fȼ&  x&dhwu Ggb# gY ` ` 0H_V Q JXGh , l "Zl%̲  ̠h $l ̑h $l̋Wl̊  l dXT7YXYU " d " dlV  l[ "| l$H!TThfhh?h\h_hF\h[h1\hWh\hThe+QR e h# d%TF0 ,TӿE/  [}\ \FM P\G  CTu d!_T N@Sm  @m@m 2@mׄPn̦ ̖ \F"\ @m̾nUTIFIL 0 P(?SUMHIST x DMCCT QID R T RR RAC RA RRT R#CCT2R$ID R3AM R7I RFAL RGH1 RHPRINT " CGRtCTFGRCCT RLCD RAM RDR1 RDR2 S S S(P S<NM SAAD S_CS S}ZP SCTFGSACT SLC1 SFG S1 S1 S1 S1 SLC2 SFG S2 T2 T2 T<2 TPLC3 TUFG TV3 TW3 Tu3 T3 TN TL TY ~|R0> @ @!@"@#@$("2@%h@&i@'@(xX_@)@*@+@,@-@.@/@0@1@2@3@4~@5@6@7@8@9/@:M"6@;k@<@=@>@?@@`@A@B@C@D"3@E@F1@GO@Hc@I@J"4@K@L@M@N@O@P"5@Q@R@S5@TIDUDV`5`9(@ W W`` 1&& 1'&'&X2\[_]^bcz #FFF2\ 'GGY YZZ4Z % % % % % ![[ !\\ $]] "^^(P(@Z[\Z\ [ \P))-+,.*11//--++**,, zN_&N!'N(-.-+ N=N  N9N>NFNLNR6 6N:6 N;N?NGNMNSN<N@NHNNNT zNN +- -](V-+,V ]??  P]f_ +f_ ,f_ -+,-+@N_(] -+,- VN-+ +--+B  N +N? *BN ,,+ N-`N?NO.`NN/@@@@ 000 000N_0N0 +-N_X TAPE  ЖX@&H` `^ `^  `^! !(^N P^(^N/ P^(^N P^(^N/ P^abacdce(^ HeP^O e""(e"fgf(^!h P^ hoh PbHdPg(d(gHdPg(daHd(d(gHdPg(d(gHdPg(daHd(d(gHdPg(d(gHdPg [Hd /e (dHdPg  e# #(e (d #(g # KHd (d (gHdPg (d (gHdPg dc (d  Pd i  `i   i  (i  Hd HdPi!eHdPg!e h$!(d!(g(e!$_ _%(_(^ Hb%jCjIjOj7j7Bj, j     Pjk k==k=@ `k<<(k<</(k  Hk(hm n%q.ʚT/Pv 9(8\(82@@\@@(8B@@@(8T@(8]] 9@ `9@ ɚ 9@ 9*85*>.@@@ $9b8\\\\\\\\\\Z82@@@@Z8=@[8 $@@[8'{[8'{[8'{[8<@@@@[@!J\82@@@@@\8:@@\@!J]8 @@]@$"]86@@@@^8 #@@^@"'^8;@@@@`8-@@`8=@@J4 8\<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ =@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ =+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@=0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@&B_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ C @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ C@@@@@@@@@@ C-@@@@@@@@@@d K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PRINT " C[ [ [PD [CT [GE [~|U2H [ ^ ad@@DDDDgn` @@@@@@1`2@ p@!` @"@#` ` D$D% D&@'@  $ N'$ N/'$ N?'$ z  ($)%*&FF+,-.<</ (/(/0(0/qq<<1/ (/(/1(1/21 0c_ 2 c_(2 ( 2 ) 2 * 2 @  (+ (, (-(. )))f_@@@@@@ 222V_3 VON_ V?NO V/N? VN/ N (() !!  44 4No  N  No  !N  No  N  No    "  #Te i<:@c{D 88 q88TAD D СdAHϡd9@H@@@@@@!@ @ס@ ..@H I @)8A@8 L@8zň5~~ I /@)8>@zHHN I ?@)8A@z@(D8Tk@)X8jk@`*n8ssvS@I88)8I8V8 i@@i{ I88$8H8X8l@@l1  I@@= 8 K@@@ 8 K@@ 8 K`X23ddݢ`I8@I8Ĉ+ I8, I8 `-@I8 @8@@.]6@I8 \\\@@"85@@@8 A@8p\\\@pc@I8\\\@@@8*@@@8 6@\\\6@I8\\\@@@\\\@I8L\\\@@@@\\\LL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@T8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UU@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Yn@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Z@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@ Z` A < L L cT V cX YY 'ZDZHZJZLZNZ^Z_ZcZeZgZiZ|[[" [0[4[5[D[H[X[Z[\[^[`'[[[[[[[[[[[[[[hBlFH?z 7H55 8r`- dhT,(% zTy& z! dydzTy&yA" ydy"h%h$h#h" cdhE"h "hdyT{S$%yhy`h$h#H  THyyyyyXwhTI:ySy!X[ h `h0H.h.H'h&-h,h,h,X-!hTI:ySy! ?KhHX3E jXM  "h `   2uM%  !"h X " XXyA"T{S$yH>;TI1̂}fP   Ty&...... '' z4CALL' *B 'STRACE' *B 'PGCMPR' *B 'R9ELOC' *T *K,I8 *N,PGCMPR,,,B *K,I6 *Z *V #T_ h h  hDhBySySByT "h-h*-h-&F q -  " $Tl,hhh y l  n zz{S HK!"hE!dhDH3  j;T}|{{4"T|||{{*!vT||{ H H  -X~| H   #3T Xo H  Xy|$$SYMSGF$$ \"Xq HI HXG|  X\Xn H: H X8|  X|\ H(X)|o H$X4| \ȵ" \bT||{ ȮX2whth \|w h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :X|o H"A HB0Fh  0X|o { 00j qa! -" hh! u  HTLD|||HHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`Xga"aHh j qhykK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L?@@@@@@@@@@: ="X)"H @Tn;TI12}f턚('ꂛK   Ty&...... '' z4CALL' *B 'STRACE' *B 'PGLIST' *B 'R9ELOC' *T *K,I8 *N,PGLIST,,,B *K,I6 *Z *V #T_ h h  hDhBySySByT "h-h*-h-&F q -  " $T,hhh y l  n zz{S HK!"hE!dhDH3  j;T}|{{4"T|||{{*!vT||{ H H  -X~| H   #3T Xo H  Xy|$$SYMSGF$$ \"Xq HI HXG|  X\Xn H: H X8|  X|\ H(X)|o H$X4| \ȵ" \bT||{ ȮX2whth \|w h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :X|o H"A HB0Fh  0X|o { 00j qa! -" hh! u  HTLD|||HHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`Xga"aHh j qhykK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L?@@@@@@@@@@: ="X)"H @Tn;TI1 }fӉ$'&(  Ty&...... '' z4CALL' *B 'STRACE' *B 'PGUPTB' *B 'R9ELOC' *T *K,I8 *N,PGUPTB,,,B *K,I6 *Z *V #T_ h h  hDhBySySByT "h-h*-h-&F q -  " $T&,hhh y l  n zz{S HK!"hE!dhDH3  j;T}|{{4"T|||{{*!vT||{ H H  -X~| H   #3T Xo H  Xy|$$SYMSGF$$ \"Xq HI HXG|  X\Xn H: H X8|  X|\ H(X)|o H$X4| \ȵ" \bT||{ ȮX2whth \|w h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :X|o H"A HB0Fh  0X|o { 00j qa! -" hh! u  HTLD|||HHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`Xga"aHh j qhykK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L?@@@@@@@@@@: ="X)"H @Tn7"hhh "rXDhhl X bbbH h !h TL2D Bn搾H /H=h7:o B0%H4"3h h33 h* C. h&#l#$%h"(L !1h(lRPTTBL p PO(wd*T @P >  H=H=@A@BACA BH= BH= CH= CH=O =(= !c!c(<_ < < zz/8 z ;DP;DH;DH; ;&(;&H~$R18 \\\\\98%@@8+@811N 1@4) 8J@@ 8P @8V8K@@8T8xňE}}_S1@5)8D@zMMid1@6))n41@)8 A@-U8va@.41@8?@aap,R8 r@aap*ۏ41@ 8G@@P@K ``p$T8U`@%Y8n@+46l>m ,,,d6,>n , ,  ,d6 ,, ,d6,6B,,d6 ,6 Ed6 <6 H8<6< 8=6=:> 2 <PRINT " C?@BF 36 H8363 8464 :5 2 3  4  5 0362 H < = > BNBAX/ A@XE/ DXE0B , B 0/ Hd< J. "fH^f <(f6f d<2 g"h"i"e:ű(e0:(i0:(h00^g )gg<2d6d6d62S O R T E D F I E L D ~| @@@@@@@@ @@@@@@1@1@7@=@C@ I@!@"@#@$ @%@&@'@(@)@*0@+0@,6@-<@.B@/H@0O@ ZzzZ1 1 N N1 1 N/ N/1 1 N? N?2345?6 7 8 9 : ; < = > ? @ A B C D EfE 7E 7 7 7 7Ef/E 8EEf?E 9EEfOE :EEf_E ;EEfoE <EEfE >EEfE ?EEfE @EEfE AEEf/E BEEf?E CEEfOE DEf_E FE F 423756:89=;<@>?FA(G 7 7 72  8   FF 0GGGG FG3FG3FGFG FG  4  0GG4GG    955 95555  :66 :6666 G9H:IH G I7777 F ;FF ;FF ;FF8F8 F@ FFG >GGF >GGF ;G ;FG; V ? (J JQ/ JR? JSO JT_ JUQKARKBSKCTKDU 8  0 (2(4(3(5(6 6((6L2(L4(L3ML(M5(6 6([ 'Ї$@?0@@6@A<@BB@CH@DN8P@Pd0)@!P@7PP?D)@8@9 @:@;@<@=@>@?0@@6@A<@BB@CH@DN8P@PQD 1 @(8qňNvveV1 /@(8q@Հ {{qj1 ?@((v188?@@@@8W@@@WȊ188 #@@8c@@@@@@@@@@@@@8u@@@@@@u18@@@@8 #@@8 8@@8b@@@@@@8t@@@@tDTdt1@8@9 @:@;@<@>"@?K@@S@AZ@Ba@Ch@Do@"@# @$@%@&@("@)K@+S@,Z@-a@.h@/o@7s28 @@38 @@@@48 @@@58 @@68 @@@78 @@@88 @@98 @@:8 @@;8 @@@=8 @@@>8 @@@?8 @@@@8 @@@A8 @@@@18@@@2 1840%183@518@@LPE185U18@@MJ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@v@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ #,@@@@@@@@k@@@k@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@`@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@`@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@k@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@k`k`k`k@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@{@@@@M]@@`@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@@@@@@@@@@@@@@@@@@@@@@@``@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@ QG % 'v O O#|####O##'$O$R$S$Y$]$a$b$c$d$e$$$$$$$O%%%%%%% %!%?%]%c%i%o%u%{%|%%%%%%%%%%%%%%%%%%%%O&-&/&2&5&8&9&?&B&EhBlFH?z 7H55 8rm`- dhTr,(% zTy& z! dydzTy&yA" ydy"h%h$h#h" cdhE"h "hdyT{Syhy`h$h#H  THyyyyyXwhTI:ySy!X[ h `h0H.h.H'h&-h,h,h,X-!hTI:ySy! ?KhHX3E jXM  "h `   2uM%  !"h X " XXyA"T{S$yH>;TI1}f瀥  Ty&...... '' z4CALL' *B 'STRACE' *B 'SRNDMP' *B 'R9ELOC' *T *K,I8 *N,SRNDMP,,,B *K,I6 *Z *V #T_ h h  hDhBySySByT "h-h*-h-&F q -  " $T,hhh y l  n zz{S HK!"hE!dhDH3  j;T}|{{4"T|||{{*!vT||{ H H  -X~| H   #3T Xo H  Xy|$$SYMSGF$$ \"Xq HI HXG|  X\Xn H: H X8|  X|\ H(X)|o H$X4| \ȵ" \bT||{ ȮX2whth \|w h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :X|o H"A HB0Fh  0X|o { 00j qa! -" hh! u  HTLD|||HHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`Xga"aHh j qhykK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L?@@@@@@@@@@: ="X)"H @Tn`- dhTC,(% zTy& z! dydzTy&yA" ydy"h%h$h#h" cdhE"h "hdyT{Slmyhy`h$h#H  THyyyyyXwhTI:ySy!X[ h `h0H.h.H'h&-h,h,h,X-!hTI:ySy! ?KhHX3E jXM  "h `   2uM%  !"h X " XXyA"T{S$yH>;TI1u}ff~ac  Ty&a...... '' z4CALL' *B 'STRACE' *B 'SRNLOD' *B 'R9ELOC' *T *K,I8 *N,SRNLOD,,,B *K,I6 *Z *V #T_ h h  hDhBySySByT "h-h*-h-&F q -  " $T,hhh y l  n zz{S HK!"hE!dhDH3  j;T}|{{4"T|||{{*!vT||{ H H  -X~| H   #3T Xo H  Xy|$$SYMSGF$$ \"Xq HI HXG|  X\Xn H: H X8|  X|\ H(X)|o H$X4| \ȵ" \bT||{ ȮX2whth \|w h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :X|o H"A HB0Fh  0X|o { 00j qa! -" hh! u  HTLD|||HHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`Xga"aHh j qhykK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L?@@@@@@@@@@: ="X)"H @Tn;TI1 }fmʉhjEHGI  Ty&h...... '' z4CALL' *B 'STRACE' *B 'SUMACL' *B 'R9ELOC' *T *K,I8 *N,SUMACL,,,B *K,I6 *Z *V #T_ h h  hDhBySySByT "h-h*-h-&F q -  " $T,hhh y l  n zz{S HK!"hE!dhDH3  j;T}|{{4"T|||{{*!vT||{ H H  -X~| H   #3T Xo H  Xy|$$SYMSGF$$ \"Xq HI HXG|  X\Xn H: H X8|  X|\ H(X)|o H$X4| \ȵ" \bT||{ ȮX2whth \|w h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :X|o H"A HB0Fh  0X|o { 00j qa! -" hh! u  HTLD|||HHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`Xga"aHh j qhykK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L"h2"//a bUTIFIL 0 P(n*/2DR X X XXm J2>2 [ a"`V:(`0^a [a a`^a [`YHJ2N V|e2H2PQ48L2t B  7 7 /88 80/ / / StS/ / StSt/6 =  B( * 70/t/ 7B 8, @@&F@&HJ2 B  7t 6 =  B( 7* /tt// 7B 8,J @@&F@&H7 / B  >T SxS*/2*/x0x2>O K J <<<T>L H>J:08n6L cxcJX*<2>O D K J<M "N<< ED64-EXL >J:08p6L J *N2 K J <>J9 >T cxc*<2 K K J  <0>JK cxc*<>J>K cxc26(n 2Be  S(  erSdc d2~||ry@111@ @ D jD vD @DDD@@ Z  Z$ $ $ ( ( (.   x@(8E@8 Q@8{ňB6   x@(8B@zKKOJ   x@((W   x8 @8 #@8H@@8[@@@8m@@8 @@@@Ê   x898F8S@8m@@@@@8 @@@ 4@ @ 1 ; G S@[aapdoy@~~`8  @8@@.. @8@../ @8@@..4`8N\\\@@@@\\\N @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@   €Āƀ'")'),04)9=>'f'',,ĀȁhBlFH?z 7H55 8rE`- dhTJ,(% zTy& z! dydzTy&yA" ydy"h%h$h#h" cdhE"h "hdyT{Sstyhy`h#h"H  THyyyyyX{hTI:yRy X[ h `h0H.h.H'h&-h,h,h,X-!hTI:yRy ?KhLX3I jXQ  "h `      2u!X"h X " XXyA"T{V$yH>;TI1H\U}dۈROOQք؆%q\P Ty%......  ,z7 ,XH BXF(%f"$b#b"b"hhh HH  H  H,TIMUSE , Hh n  B  *P,F,2,RPGFIL *B 'R9CNTR' *BDhBByR yRyS "h-h*-h-&F q   " $T,hhh y l  n zz{V HM!"hG!dhFH5  j9 qT}|{{4"T|||{{*!vT}|{ H H  -Xz| H   #3T Xk H  Xu|$$SYMSGF$$ SYSVOL \"Xm HE HXC|  X\Xj H6 H X4|  X|] H$X%|p H X0| \ȵ" \` ȲX2whth \|x h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :X|p H"A HB0Fh  0X|p { 00j qa! 1" hh! u  HTLD|||HHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH2 H-3>72"4` aADe Daa AA a a Vh`b"bHh j qhykK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L.bT}T,Q;h)CLA1**2 NO TERMINATOR (**) ON LAST CLA(N) KEY IN UTIFIL.*aT5N;" "."8. ,$A1aT5A1b ?/b3T5:*aA1bPDLYWRK  (cwP :Xdhhh`"e"aaa h X h|h`BhHXẌ`"e"aaȿaȿ h XȹX1` h۔hhh T X_/l XMH5S0h XX(RPGOS0 PRINT " HCanЖٖH  6"l"m"n ^l^l^l^l^lm^l^l^l^l^ln^l (l6l>m ,,,d6,>n , ,  ,d6 ,, ,d6,6B,,d6 ,6 Ed6 <6 H8<6< 8=6=:> 2 < = > 0<6б 2 H,d< J0,,d6 ,d6 . /.@BF 36 H8363 8464 :5 2 3  4 ~z@ @ D D DDDD@@@$@&@(@*Db@1#  *DD D7>@@@$")D J G 2(z  $!$"$# q($r  < = >@ ??>?<=% (%& (& '& % '22'((') '**)2 (++ ,+, ,(((FFG,,Gr) (r-r-)r(r.$r$r .r $܅bYdH HHfd@,H HHx@$)8 `@@zp-&& $)8.&&   x " )@!((ц   x " )@"(8K@@8yň/~~   x " )@#(8A@zJJ @@ x@" )8 z@ 8k @%%<@@ x@" )888!8&8/858:8@@uI   x " )888!8&8/858:8@8IIЇz )q@ 2 >zp= >zp2zp!2zp*&aap/@5@:@@@~~LJ`)8F\\\@@@@\\\F$@H PP!@ H)8@@ )@ @@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@ i}s 0468;=?BDJLNP7'р''%'MPSVY]_bhoruhBlFH?z 7H55 8rE`- dhTJ,(% zTy% z! dydzTy%yA" ydy"h%h$h#h" cdhE"h "hdyT{Vstyhy`h#h"H  THyyyyyX{hTI:yRy X[ h `h0H.h.H'h&-h,h,h,X-!hTI:yRy ?KhLX3I jXQ  "h `      2u!X"h X " XXyA"T{V$yH>;TI1}d_YȊZ\#&%'\ Ty%Z......  ,z7 ,XH BXF(%f"$b#b"b"hhh HH  H  H,TRENDE , Hh n  B  *P,F,2,RPGFIL *B 'R9CNTR' *BDhBByR yRyS "h-h*-h-&F q   " $T,hhh y l  n zz{V HM!"hG!dhFH5  j9 qT}|{{4"T|||{{*!vT}|{ H H  -Xz| H   #3T Xk H  Xu|$$SYMSGF$$ SYSVOL \"Xm HE HXC|  X\Xj H6 H X4|  X|] H$X%|p H X0| \ȵ" \` ȲX2whth \|x h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :X|p H"A HB0Fh  0X|p { 00j qa! 1" hh! u  HTLD|||HHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH2 H-3>72"4` aADe Daa AA a a Vh`b"bHh j qhykK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L"h2"//a b6H 6/ a6/ACCAGE p R)9!JRXm J2>2 [ a"`V:(`0^a [a a`^a [`YHJ2N V|e2H2PQ48L2t B  7 7 /88 80/ / / StS/ / StSt/6 =  B( * 70/t/ 7B 8, @@&F@&HJ2 B  7t 6 =  B( 7* /tt// 7B 8,J @@&F@&H@P /@P 8 cxc*<>J>K cxc26(n 2Be  S(  erSdc d2@@@@@@@@@@@@@@@@~zdk@ @ @ @ j@j@l@n@@v@1@@"@%@1@CDDD . NN/N?NN/N? V?.  NN/N? V?    6o( 6_( f?    6_(      \Z[V! !ZZ/ !ZZ(P!V/(f/ [f?O" [ \[\(\Z[튃Êd@ @ @@ @ "@%@(@1@:@C@L@MM$@ @ @ @ "@%@1@C@MM^ !/$?'?0O3Ohn@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  Hdn ~ۀ݀߀hBlFH?z 7H55 8r`- dhT,(% zTy% z! dydzTy%yA" ydy"h%h$h#h" cdhE"h "hdyT{Vyhy`h$h#H  THyyyyyXwhTI:ySy!X[ h `h0H.h.H'h&-h,h,h,X-!hTI:ySy! ?KhHX3E jXM  "h `   2uM%  !"h X " XXyA"T{S$yH>;TI12F0}fq<;%(')  Ty&...... '' z4CALL' *B 'STRACE' *B 'TRENDP' *B 'R9ELOC' *T *K,I8 *N,TRENDP,,,B *K,I6 *Z *V #T_ h h  hDhBySySByT "h-h*-h-&F q -  " $T,hhh y l  n zz{S HK!"hE!dhDH3  j;T}|{{4"T|||{{*!vT||{ H H  -X~| H   #3T Xo H  Xy|$$SYMSGF$$ \"Xq HI HXG|  X\Xn H: H X8|  X|\ H(X)|o H$X4| \ȵ" \bT||{ ȮX2whth \|w h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :X|o H"A HB0Fh  0X|o { 00j qa! -" hh! u  HTLD|||HHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`Xga"aHh j qhykK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L?@@@@@@@@@@: ="X)"H @Tn;TI1^rd}fhUTg SOMPOQ V Ty& ...... '' z4CALL' *B 'STRACE' *B 'UPDATE' *B 'R9ELOC' *T *K,I8 *N,UPDATE,,,B *K,I6 *Z *V #T_ h h  hDhBySySByT "h-h*-h-&F q -  " $Th,hhh y l  n zz{S HK!"hE!dhDH3  j;T}|{{4"T|||{{*!vT||{ H H  -X~| H   #3T Xo H  Xy|$$SYMSGF$$ \"Xq HI HXG|  X\Xn H: H X8|  X|\ H(X)|o H$X4| \ȵ" \bT||{ ȮX2whth \|w h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :X|o H"A HB0Fh  0X|o { 00j qa! -" hh! u  HTLD|||HHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`Xga"aHh j qhykK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L.@@@ $9b8\\\\\\\\\\Z82@@@@Z8=@[8 $@@[8'{[8'{[8'{[8<@@@@[@!J\82@@@@@\8:@@\@!J]8 @@]@$"]86@@@@^8 #@@^@"'^8;@@@@`8-@@`8=@@J4 8\<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ =@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ =+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@=0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@&B_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ C @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ C@@@@@@@@@@ C-@@@@@@@@@@d K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PRINT " C[ [ [PD [CT [GE [INDICATORS WERE SPECIFIED BUT WERE NEVERUSED TO CONDITION OPERATIONSTHE FOLLOWING INUTIFIL 0 P(!PPEARED IN THIS PROGRAM 010203040506070809101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899 1PL0L1L2L3L4L5L6L7L8L9LR H1H2H3H4H5H6H7H8H9 OAOBOCODOEOFOGOV U1U2U3U4U5U6U7U8 MR / /  / B / /t/ 0VTjjMfVTV=DELQMST p Їv~0>1b >0a StS(//62V  /,*/2DR X X XXm J2>2 [ a"`V:(`0^a [a a`^a [`YHJ2N V|e2H2PQ48L2t B  7 7 /88 80/ / / StS/ / StSt/6 =  B( * 70/t/ 7B 8, @@&F@&HJ2 B  7t 6 =  B( No  N  No  !N  No  N  No    "  #Te i<:@c{D 88 q88TAD D СdAHϡd9@H@@@@@@!@ @ס@ ..@H I @)8A@8 L@8zň5~~ I /@)8>@zHHN I ?@)8A@z@(D8Tk@)X8jk@`*n8ssvS@I88)8I8V8 i@@i{ I88$8H8X8l@@l1  I@@= 8 K@@@ 8 K@@ 8 K`X23ddݢ`I8@I8Ĉ+ I8, I8 `-@I8 @8@@.]6@I8 \\\@@"85@@@8 A@8p\\\@pc@I8\\\@@@8*@@@8 6@\\\6@I8\\\@@@\\\@I8L\\\@@@@\\\LL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@T8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UU@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@W@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Yn@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Z@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@ Z` A < L L cT V cX YY 'ZDZHZJZLZNZ^Z_ZcZeZgZiZ|[[" [0[4[5[D[H[X[Z[\[^[`'[[[[[[[[[[[[[[hBlFH?z 7H55 8r`- dhT,(% zTy& z! dydzTy&yA" ydy"h%h$h#h" cdhE"h "hdyT{S$%yhy`СdAHϡd9@H@@@@@@!@ @ס@ ..@H I @)8A@8 L@8zň5~~ I /@)8>@zHHN I ?@)8A@z@(D8Tk@)X8jk@@P8H2 VwHE2 V}B2 VBE2 VSLC3V3FG VN3 VA3 VS3 VZ3 VH3 VHE3 VB3 VBE3 VCTFGVCC VLCD WAM WDR1 W$DR2 WBS W`P WtHN COSIGNERp ja^WPL WOC W ddǹhhh dƁTF1  d0/  /# w   HTӱdz fP fQ dDz ) " \"AhNSKd !̴  `̦ ̣ ܼ nlldq Ɓn̮ 4H\& "TTF1  d l0  ? ll l/ DzlM ΓK NSh-A)  K Tӱ @ml fPܑ̝Ɓ !\ԄPnC  fOdǸ̦ <κ 6αId,#      lΙH  SI  l6dnDz 3Tӱdǹ NIlI ] ]rId je dλId 2|αIlQ̻ 2̶ 2\ǸlƁ / ΍ d d - d& "TfPl"! 1J 4765432VU`_qR   1 l Dz7 #Tӱ dz "\Ǵ \'#  \<   d T( "Tٴ h3 lǶd  l &̫ 8̨  2\ l ̯ yTF0 / Ɓdz ƀdǹ lDz 6 2 !FOdNTKS d̼ #  Tӱ\̺ ̵ l\ fPl̯ d& "T fQܢܡ̨ b̩ bbd0 n܋ ǵ  l dǹ dǴ Dz8ALT XPDY XTC XRK XK YK1 YK2 Y Y UT Y'DS Y0DLQ  Y3YOF  Y8S Y=DLQ  Y@YOF  YEFS YJTTO  ADDACT H  GE Ye̹ *̵ < \f fPU  @m  \Աu?ՄdzdǶ ddƃ dƂƁ n fQ l̗fOg"dM T nNSI 0 2@m d " 8 $&"Gl" 8 $7TxIdǹPdDzl/ l l- \,UE WTC WAD1 WAD2 XCS X8ZC XLTDT XOPDT XSM XYD X[Y X]CDT X_LDT XcPDT XgDLQ  INACCT H   XTS XBR XON XCD XD3 XD6 XD9 XDF 'XYDL XNAM XS 'X~lǹfƂfƃ l , 1&̥!,dl0 -dl .dlT ƁfN̞  l llM !T N@Sm  @m @m #fP19dGǶ e/ lȤ K    Tӱ nΣK Ɓ޵lΰdǸDLQ  UWBAL  U\YOF  UaPGD UfPA  UjAMT  UoMN UtTS UuBR UwON U|CD UD3 UD6 UD9 UPRINT " }C UZ1 V H1 VHE1 VB1 VBE1 VSLC2V"2FG V#N2 V$A2 VBS2 V`Z2 VtK ~|+@;@"JD"J@@@@DDD@@2@P@nDD @!@"@#@$D%D&@'@(D)@*@+@,3@-Q@.eD/jD0pD1vD2D3D4D5D6D7"KD8@9@:@;D<D=D>@?@@` DADB@C@D@EDFDG@HDI@JDKDL@M@N2@OPDPdDQi@RsDSw@TDUDV@W@X@YDZD[@\D]@^?@_@`Da@b@c/@dM@ek@fDg@h@i@j@k@lDm@n@oDp@q@r1@s@t@u0DvDDwX@x^Dy^Dz`D{bD|dD}jD~pDvDDDDDDD@@@DDD@D@`  LERY@D@ M;LNOU-Z#PQV>FFU$IIN $IIN/ $IIN? $]]]zz@IHGTJO;;JJL;; GG HGH IGHIMMM;N; -M-Q;;M-M-M- @@@@@@ x   { ?  6_ (  (   y (z   c ##b VVVb r<< r<< r<<@ ;K- TK-T>;;GHI;H-G;IM;;ZMb@`-@@@@@-M;@@GH@I@-(-(1-(3-M;(-M;(1-M;(3G(G(H(H(I(I(;(ZRߞ`p䞾-h$ MH MV@/ M@M M@k M@ MH MH  M@! M@" M@# M@$ MH% MH& M@' M@( MH)@2 M#@c M#@d0 M#@eD M#@fI MH^MH^ MH/p MH0v MH1MH MH2 MH3 MH4 MH5 MH6 MH7 MH8 M@9 M@: M@; MH< MH= MH> M@? M@@ MV@ M@ Р1$Ѐ@H@/@M@k@HH @!@"@#@$H%H&@'@(H)@*H@2@+@,0@-D@.IHjH/pH0vH1H2H3H4H5H6H7H8@9@:@;H<H=H>@?@@@ РT!٠TЀ!@HAHB@C1@DO@EcHFhHGr@HvHI@JHKHL@M@N@OHPHQ@RHS@THUHV@W@X5@YIHZNH[X@\\H]f@^jjd)@-8 -V8ԃ1@@H  T  x9 @ ((5T x9 /@ (8I@@@8P@8{ňF=T x9 ?@ (EEvN T  x9888'8 E8 Q8\\~ T  x9888$8B8O8[8gg 9@8\\\@@9aap/DMD1R3^M^@jL8@@@@L8N8|@@@O8@@@@Q8@@@@8{`@@8P8@@@aP8>8@@>8\T@98$$|a@988"8(8-8:: 98"/== 98"/==@98Ĉ"==Ȣ 98"==ۢ 98 ƈ"==@98Ĉ""` 9]8\\\@@@]8/@`@@@/`98L\\\@@@@\\\L K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ L<  !/$?'?0O3O L\ /?O_o/d P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@d S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@ @@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@ @@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@ @@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@ @@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  &K K 'L$LDLf P S΀SҀSԀSրSSڀSSSSST)TT T'TETcTwTz TTTTTԀT׀ TTT TTUU6UJUOUSUW)U\)Ua)UfUj)Uo)UtUuUwU|UUUUU'UUUUUUV V VV VV"V#V$VBV`VtVw V}V VVVVVVV݀V VV VVVWWW$WBW`WtWy WWWWWW؀ WWW WWWXX8XLXOXSXYX[X]X_XcXgXk)Xp)Xu)XzX~)X)XXXXXXXXX'XʀXX'XXXXYYYY Y'Y0Y3)Y8)Y=Y@)YE)YJYM)YRYU)YZY])YbYehBlFH?z 7H55 8r`- dhT,(% zTy& z! dydzTy&yA" ydy"h%h$h#h" cdhE"h "hdyT{Sݫyhy`Hh$h#H  THyyyyyXwhTI:ySy!X[ h `h0H.h.H'h&-h,h,h,X-!hTI:ySy! ?KhHX3E jXM  "h `   2uM%  !"h X " XXyA"T{S$yH>;TI1e}f@[Z𔇔Y!Ǚʙə \ Ty&...... '' z4CALL' *B 'STRACE' *B 'UPD400' *B 'R9ELOC' *T *K,I8 *N,UPD400,,,B *K,I6 *Z *V #T_ h h  hDhBySySByT "h-h*-h-&F q -  " $T,hhh y l  n zz{S HK!"hE!dhDH3  j;T}|{{4"T|||{{*!vT||{ H H  -X~| H   #3T Xo H  Xy|$$SYMSGF$$ \"Xq HI HXG|  X\Xn H: H X8|  X|\ H(X)|o H$X4| \ȵ" \bT||{ ȮX2whth \|w h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :X|o H"A HB0Fh  0X|o { 00j qa! -" hh! u  HTLD|||HHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`Xga"aHh j qhykK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L%B@P%B9@P%C8@P%I"==@P%=%O@P%O @P%S@P%P%T@P%T9ŀ@P%U8@P%\"==@P%O%b@P%b @P%f@P%c%g@P%g9ր@P%h8 INDICATORS WERE SPECIFIED BUT WERE NEVERUSED TO CONDITION OPERATIONSTHE FOLLOWING INUTIFIL 0 P(!PPEARED IN THIS PROGRAM 010203040506070809101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899 1PL0L1L2L3L4L5L6L7L8L9LR H1H2H3H4H5H6H7H8H9 OAOBOCODOEOFOGOV U1U2U3U4U5U6U7U8 MR / /  / B / /t/ 0VTjjMfVTV=DELQMST 0 Ї苸0>1b >0a StS(//62V  /,*/2DR X X XXm J2>2 [ a"`V:(`0^a [a a`^a [`YHJ2N V|e2H2PQ48L2t B  7 7 /88 80/ / / StS/ / StSt/6 =  B( * 70/t/ 7B 8, @@&F@&HJ2 B  7t 6 =  B( @P%{8@P%""@P%u%@P%` @P%@P%%@P%9]\\\@@@ɀ@P%8@P%]/@`@@@@P%8@P%/@P%%@P%`@P%@P%%@P%9L\\\@@@@\\\@P%8PR9TOTL!R9LSTR!R9FTNX!R9LABL!R9OTBG!R9DOTT!R9TOTT$R9EOTTR9PAGER9FTOVR9BINTR9ZCODR9YCOD@P%L K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@P%@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ L<COSIGNER0 jJ@P&@P&$/@P&@P&%?ADDACT H  K 8(R '8JATE  8ONTH 8AY  8EAR  8D 8D1 8D3 8CCT 8CC @P& @P&'_:SLC2:2FG :N2 :A2 :S2 ;Z2 ;%H2 ;(HE2 ;.B2 ;2BE2 ;8SLC3;<3FG ;=N3 PRINT " C<BE3 ;UT ;S ;JS ;GE ;~|@;@ "JD"J@@@@@@@@@ ;LOU-Z[AFFU$IIN$IIN/$IIN?IJL;; ---[;;2 3422?3@4 5644A5B6 7866C7D8 8;8E;O;;-;ZF@`F;@@F;(G;(HZ4 ?1N8Xi$H@/@M@k@HH@@ @!@"H# H$!@%"@&#H'@-T! H( H) @*1 @+O@,cH-hH.r@/vH0@1$H2%H3&@4'@5(@6)H7*H8+@9,H:.@;/H<0H=1@>2@?53@@I4HAN5HBX6@C\7HDf8@Ejj:2T)@8IB T  x1 @((xQT x1 /@(8I@@@8]@@@@8{ňIT x1 ?@( HH T  x1888'8H@HȘ T  x1888$8gg 1@@ -@9L @9@Z@FjL8 w@O8|@@@[8@@@@8 w`@@@A8}@@.&@18$$A3@188""QF 18G""aV@18ĈH""f`18L\\\@@@@\\\L 8E@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@ @@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@ @@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@ @@@@@@@@@@@@@  "8( 8J '8€8ƀ8Ȁ8ʀ88΀888899.9L9R'9z9|999999 99::4:H:K :Q:U:e :j:k:l:::: ::ɀ ::Ӏ:Ԁ::;;%;( ;.;2 ;8;<;=;>;\;z;; ;; ;;;;;hBlFH?z 7H55 8r`- dhT ,(% zTy& z! dydzTy&yA" ydy"h%h$h#h" cdhE"h "hdyT{SIJyhy`h$h#H  THyyyyyXwhTI:ySy!X[ h `h0H.h.H'h&-h,h,h,X-!hTI:ySy! ?KhHX3E jXM  "h `   2uM%  !"h X " XXyA"T{S$yH>;TI1G[}fFQ썈P  Ty&...... '' z4CALL' *B 'STRACE' *B 'WRTOFE' *B 'R9ELOC' *T *K,I8 *N,WRTOFE,,,B *K,I6 *Z *V #T_ h h  hDhBySySByT "h-h*-h-&F q -  " $T,hhh y l  n zz{S HK!"hE!dhDH3  j;T}|{{4"T|||{{*!vT||{ H H  -X~| H   #3T Xo H  Xy|$$SYMSGF$$ \"Xq HI HXG|  X\Xn H: H X8|  X|\ H(X)|o H$X4| \ȵ" \bT||{ ȮX2whth \|w h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :X|o H"A HB0Fh  0X|o { 00j qa! -" hh! u  HTLD|||HHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`Xga"aHh j qhykK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L;\;z;; ;; ;;@Ph;;;PR9FDTBPR9RPRTMHLD01!PR9RPGX*T h$h#H  THyyyyyXwhTI:ySy!X[ h `h0H.h.H'h&-h,h,h,X-!hTI:ySy! ?KhHX3E jXM  "h `   2uM%  !"h X " XXyA"T{S$yH>;TI1e}f@[Z𔇔Y!Ǚʙə \ Ty&...... '' z4CALL' *B 'STRACE' *B 'UPD400' *B 'R9ELOC' *T *K,I8 *N,UPD400,,,B *K,I6 *Z *V #T_ h h  hDhBySySByT "h-h*-h-&F q -  " $T,hhh y l  n zz{S HK!"hE!dhDH3  j;T}|{{4"T|||{{*!vT||{ H H  -X~| H   #3T Xo H  Xy|$$SYMSGF$$ \"Xq HI HXG|  X\Xn H: H X8|  X|\ H(X)|o H$X4| \ȵ" \bT||{ ȮX2whth \|w h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :X|o H"A HB0Fh  0X|o { 00j qa! -" hh! u  HTLD|||HHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`Xga"aHh j qhykK[\`@Nal@@9596979899 1PL0L1L2L3L4L5L6L7L8L9LR H1H2H3H4H5H6H7H8H9 OAOBOCODOEOFOGOV U1U2U3U4U5U6U7U8 MR / /  / B / /t/ 0VTjjMfVTV= / 4 0X*/! "0>"h2"//a bWOEF  s:/62V  /,*/2DR X X XXm J2>2 [ a"`V:(`0^a [a a`^a [`YHJ2N V|e2H2PQ48L2t B  7 7 /88 80/ / / StS/ / StSt/6 =  B( * 70/t/ 7B 8, @@&F@&HJ2 B  7t 6 =  B( 7* /tt// 7B 8,J @@&F@&H7 / B  >T SxS*/2*/x0x2>O K J <<<T>L H>J:08n6L cxcJX*<2>O D K J<M "N<<CONS  P( cxcJ(NX*<0R%ER+oJ M D6 DX4-EE cxcXE Ӏ PJL >J:08p6L J *N2 K J <>J9 >T cxc*<2 K K J  <0>JK cxc*<>J>K cxc26(n 2Be  S(  erSdc d2@ ``@~|"@@@@@#@1DXDXDZD\DjDjDlDn@v@@@@ 2 !! ` "! " "#$f?$ %$%PQV&V' &PP &PP 'PP 'PPV/&PV/'P &PP &PP 'PP 'PPV?&PV?'P &PP &PP 'PP 'PPf PPf PPf/ PPf/ PPf? PPf? PPf QQPf/ PPf/ P!fO! "!(!PQ)"&"')*) &PP &PP 'PP 'PP *PP *PPf/ P!f_! "! " "## f/ $fo$ %$%PQV&V' &PP &PP 'PP 'PPV/&PV/'P &PP &PP 'PP 'PPV?&PV?'P &PP &PP 'PP 'PPf PPf PPf/ PPf/ PPf? PPf? PPf QQPf/ PP V?++ )*)* , ))***)f/  ,V/,*)!f! "! " " !f! "! "  " !f! "! "! "! !-! f/  !f! "! "" """-"- "- "-VN V/N/ V?N? /.VN V/N/ V?N? 01234.2  = > ?=>?@PN N/ N? V?+V? +Z[[Z 5\Z\6o(.Z\6_(.\Z[6. /( 6PPP 768 = > ?=N N/ N? V?+f?+ Z[Z Z[4 . 8 @@@@7=(0>(1?(2=>?(3?=>\Z[f  1f/  2f?  0fO  3\Z[V9 . 9ZZ/ 9ZZ(.P9V/(. f/ [f?O: 5[ 5\[\(.\Z[[b\ۋۊˌ7xCč%ٍh\ @@@@ @ @!8@@@@!8@@@@@@@!@?HE@N@W@8]H7`Hf@o@#p@-q@ss!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@%@@`@@@Ma]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@`@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@``@@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@`@@@Ma]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@`@@@@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@k@@@Ma]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@k@@@Ma]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Ma]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Ma]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@``@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@``@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@``@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@``@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@&V !/$?'?0O3O&`&j&t @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@ @ @@@@@@   ! O" J&@&\ &f &p&v&z&|&~&&&&&&&&&&&&À&ŀ&ǀ&&&&&&O':'='>O''''''''''''''''''''''hBlFH?z 7H55 8r`- dhT,(% zTy& z! dydzTy&yA" ydy"h%h$h#h" cdhE"h "hdyT{S12yhy`h$h#H  THyyyyyXwhTI:ySy!X[ h `h0H.h.H'h&-h,h,h,X-!hTI:ySy! ?KhHX3E jXM  "h `   2uM%  !"h X " XXyA"T{S$yH>;TI1G[U}fQ P qQTSU  Ty&...... '' z4CALL' *B 'STRACE' *B 'WRTOFP' *B 'R9ELOC' *T *K,I8 *N,WRTOFP,,,B *K,I6 *Z *V #T_ h h  hDhBySySByT "h-h*-h-&F q -  " $T,hhh y l  n zz{S HK!"hE!dhDH3  j;T}|{{4"T|||{{*!vT||{ H H  -X~| H   #3T Xo H  Xy|$$SYMSGF$$ \"Xq HI HXG|  X\Xn H: H X8|  X|\ H(X)|o H$X4| \ȵ" \bT||{ ȮX2whth \|w h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :X|o H"A HB0Fh  0X|o { 00j qa! -" hh! u  HTLD|||HHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`Xga"aHh j qhykK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L@F8J@@RR x$4 ?@(8E@zNN 4 $    x8 @@@@@@  ! "8 @@@@@@8H8V@8\8c8k8y8@G4$ x8 @  ! "8 @88&8H8U8\8b8k8y8@aL@  " !@ @  " !@ @ @@JW\@alz{``8 AK8 Y@@8n@@8 }@}τ8 \\8@@@@ 8@8@\\AY l!||`8 AK@8 Y@@8n@@8 }@}/ 8 \\\\8@  "8@@@@!8@@@@@@@@@8 @\\\\A"Y#l$ll4` /8\\\@@@8I\\\\@@@@\\\\I[`8 AK@8 Y@@8n@@8 }@}8 \\8@@@@ 8@8@\\AY l!||օ`Ć8 AK@8 Y@@8n@@8 }@} Ć8 \\\\8@  "8@@@@!8@@@@@@@@@8 @\\\\A"Y#l$||@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ^[^ 'րڀ܀ހ#)()-137)<=>@'hln s x+~+++++hBlFH?z 7H55 8rG`- dhTL,(% zTy& z! dydzTy&yA" ydy"h%h$h#h" cdhE"h "hdyT{Suvyhy`WRTOFPA&DACRTEANDTLLSTBvDCMENUBHSMENUBMTMENUBRPMENUCRGMENUC DELQMST DLYASSN FBASV4MTBFE0 MTBFE1EXITF 0FMSAVAJPFLV4Tz MENDMJPCHGE*9ALCLGH89SCHSTKLSTLOC BWMPFLAGpDATSEP/TSLOFFSTRBASDUMALTkRCOVERiN15 >0LQV[`ejot $).38=BGy..0 @,@P8@PU@P8@P\ŀ@P8@Pbր@P8@Pk@P8@Py@P8@P@a@P8@P@P@P@P@P@  " !@ @  " !@ @ @@JW\@alz`@P@P`@P@P @PAK@P8 @PY@@@P8 @P&n@@@P&8@P0}@Հ@P08 @P8}@P :@P:@P>@P@@PB@P;D@PD \\@PE8@PH@@@@@PH8@PO @Ā@PP8@PW@\\@PX8@P_AY l!||@P:i@Pi`@Pm@Pjn@PnAK@@Po8 @PwY@@@Pw8 @Pn@@@P8@P}@Հ@P8 @P}@Pi@P @P@P@P \\\\@P8@P@@P8@P  "@@@@@P8@P!@@@@@@@@@@P8@P @\\\\@P8 @PA"Y#l$ll@P@P`  @P@P@P/\\\@@@ɀ@P8@PI\\\\@@@@\\\\@P8@PI`@P@PAK@@P8 @PY@@@P8 @Pn@@@P8@P}@Հ@P8 @P}@P@P@P @P  \\@P!8@P$@@@@@P$8@P+ @Ā@P,8@P3@\\@P48@P;AY l!||@PE@PE`Ć@PFK@PKAK@@PL8 @PTY@@@PT8 @P\n@@@P\8@Pf}@Հ@Pf8 @Pn}@PEp@Pp Ć@Pqv@Pv \\\\@Pw8@P{@@P{8@P  "@@@@@P8@P!@@@@@@@@@@P8@P @\\\\@P8 PR9TOTLR9LSTRR9FTNXR9LABLR9OTBGR9DOTTR9TOTT R9EOTTR9PAGER9FTOVR9BINTR9ZCODR9YCOD@PA"Y#l$||@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PR9XCODR9EDCNR9ECODR9FSTLR9FNBGR9ALSQR9CARAR9MARAMHLD01R9UDATR9UMTHR9UDAYR9UYER@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  @@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  @P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  @P I ^[^ 'րڀ܀ހ#)()@P t-137)<=>@'hln s x+~+++++PR9FDTB NPR9RPRTMHLD01!PR9RPGX*T h$h#H  THyyyyyXwhTI:ySy!X[ h `h0H.h.H'h&-h,h,h,X-!hTI:ySy! ?KhHX3E jXM  "h `   2uM%  !"h X " XXyA"T{S$yH>;TI1G[U}fQ P qQTSU  Ty&...... '' z4CALL' *B 'STRACE' *B 'WRTOFP' *B 'R9ELOC' *T *K,I8 *N,WRTOFP,,,B *K,I6 *Z *V #T_ h h  hDhBySySByT "h-h*-h-&F q -  " $T,hhh y l  n zz{S HK!"hE!dhDH3  j;T}|{{4"T|||{{*!vT||{ H H  -X~| H   #3T Xo H  Xy|$$SYMSGF$$ \"Xq HI HXG|  X\Xn H: H X8|  X|\ H(X)|o H$X4| \ȵ" \bT||{ ȮX2whth \|w h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :X|o H"A HB0Fh  0X|o { 00j qa! -" hh! u  HTLD|||HHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`Xga"aHh j qhykK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L@F8J@@RR x$4 ?@(8E@zNN 4 $    x8 @@@@@@  ! "8 @@@@@@8H8V@8\8c8k8y8@G4$ x8 @  ! "8 @88&8H8U8\8b8k8y8@aL@  " !@ @  " !@ @ @@JW\@alz{``8 AK8 Y@@8n@@8 }@} \e? \_E \YK \SQ \MW \G] \Ac \;i \5o \/u \){ \# \ \ \ \  \8 Y@@8n@@8 }@}8 \\8@@@@ 8@8@\\AY l!||օ`Ć8 AK@8 Y@@8n@@8 }@} Ć8 \\\\8@  "8@@@@!8@@@@@@@@@8 @\\\\A"Y#l$||@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ^[^ 'րڀ܀ހ#)()-137)<=>@'hln s x+~+++++hBlFH?z 7H55 8rG`- dhTL,(% zTy& z! dydzTy&yA" ydy"h%h$h#h" cdhE"h "hdyT{Suvyhy`2>2 [ a"`V:(`0^a [a a`^a [`YHJ2N V|e2H2PQ48L2t B  7 7 /88 80/ / / StS/ / StSt/6 =  B( * 70/t/ 7B 8, @@&F@&HJ2 B  7t 6 =  B( COSIGNER0 jJ@P&@P&$/@P&@P&%?ADDACT H  K 8(R '8JATE  8ONTH 8AY  8EAR  8D 8D1 8D3 8CCT 8CC @P& @P&'_:SLC2:2FG :N2 :A2 :S2 ;Z2 ;%H2 ;(HE2 ;.B2 ;2BE2 ;8SLC3;<3FG ;=N3 PRINT " C<BE3 ;UT ;S ;JS ;GE ;~|@;@ "JD"J@@@@@@@@@ ;LOU-Z[AFFU$IIN$IIN/$IIN?IJL;; ---[;;2 3422?3@4 5644A5B6 7866C7D8 8;8E;O;;-;ZF@`F;@@F;(G;(HZ4 ?1N8Xi$H@/@M@k@HH@@ @!@"H# H$!@%"@&#H'@-T! H( H) @*1 @+O@,cH-hH.r@/vH0@1$H2%H3&@4'@5(@6)H7*H8+@9,H:.@;/H<0H=1@>2@?53@@I4HAN5HBX6@C\7HDf8@Ejj:2T)@8IB T  x1 @((xQT x1 /@(8I@@@8]@@@@8{ňIT x1 ?@( HH T  x1888'8H@HȘ T  x1888$8gg 1@@ -@9L @9@Z@FjL8 w@O8|@@@[8@@@@8 w`@@@A8}@@.&@18$$A3@188""QF 18G""aV@18ĈH""f`18L\\\@@@@\\\L 8E@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Hߺ_ h T TH T T_ T  Th \Ac T T \/u \){ \# \ \ \ \  \E @BBP)a*PX Y ,(-' @h hhTF0 /   h\ 4Tӱ hh˘6 fő  \\  \  ̵h hhM TNShAhK  K \L @mۄPn lJ #\# "N/  G  !Tӱ főfŒfœfŔl n lTF0 \䱯  S  \̱l dd4 ̪ \, 3 \'̙  9 !5  3\ dfō/  \̘ ̴ Q̯  {D % lTӱ̬nܗ ̓    d d $\۱̰ ʼndNTK@Umm# Sm d O Id $\z2  I Tӱ @mC \\ d/ N @ HH& W d/ddzd7d-d.T!2/,81  l 2 -Tӳ"! ,1PONMLK\賚" ; (K Dܶ "\г̯ l̮d6̩ "\ij, \  d9dT72 l l4 \(81 %2 1 dz Tӳ.  \̷ A d!HS1 $ hTF0 S/ S\ !N X$ hhd#!- , Č " >dh h+nصض 1ӌl̼  dT ̳ 1 lȜlTӴP\̤ ̠  lO l\Q̥lTF +/4 1 HofP5W,0 hhh dNSh $Lh"p8 hh Hhըh h h 'TӴ l=7TF , $0 \ȶh "\jت/ Ƞ  \Ѵȕ @-h %-܈DŽl @HH l'!"#%&:;<>?@[\]^_ lT5 J ll d̮ SUU ̡ ,=l 03[0  \.2.dT hnh hh hhTF0 / ؽTӵ[ M TNSI 2@mK-  @mk K K \C K \οO κE \dή  Tӵ[l d f| 1 ddddNPdSIdlHk    l`笚d Um $Lh(p8% dlƬ Hll ldn l ܘA !/ dddTdd d  d̞lTF0 M TNSI 2@mK(  @mI Tӵ[K ̈́Pf| l̍ /  4\ܵ[̟ l  ll l dT4 TF̓d \  , $0 \[f}\ 1 ؞ !Ι !f~̚ \ 1 f/ ̙ l l ̩ lܗ Tӵ[\̫    dddd̳d  $d ,$d$l nf!f" l !) n d m l/ eT4 ] \[ l̝l̩l 1̜l 1̎d 1   n"̖dll d dTF̧ 0  , 2zl\ u u u Tӵ/ Q l d d9T4   l\ᵕ[ "d dd(d /$?@[\]^_\1\l7 hT4  h    l d9 h h\ TӼ lx!   ȿ  ػȻ1ȵlȴ h \޼9To hn  ܨȤnhTe&7d؛ 1 d!7T4(l /$Fl\&7ܚ lvl /#l\&7  l  El  $lHTThhh\hyH AEFHI.)R$/X,(0B  l3 l2l2l2l2hhhT7YX h     h h "! 'UT\ Ƚ d 1Ⱥ !" : ' hȣ裖G " ; '_zyw Z 1 ̷" 8 $ ̥" 8 $ " 8 $`["! 1umfvmxJmkGEvtf̧ d[ !g"! *[Z7XZ l ̵W  1@"! )F542F76>YUd dV m l d l l l lܿ l l ll l lьl l l l l̻h , l "Zl%̲  ̠h $l ̑h $l̋Wl̊  l dXT7YXYU " d " dlV  l[ "| l$H!TThfhh?h\h_hF\h[h1\hWh\hThe+QR e h# d%TF0 ,TӿE/  [}\ \FM P\G  CTu d!_T N@Sm  @m@m 2@mׄPn̦ ̖ \F"\ @m̾nܱ B1̬ lD TӿH l\I @ HH_"d d d#  l lT H@P-hV VV VVVWWW$WBW`WtWy WWWWWW؀ WWW@P- WWWXX8XLXOXSXYX[X]X_XcXgXk)Xp)Xu)XzX~)X)X@P-XXXXXXXY3036000  %+199'+Y MA0mKB u0FPTHyV^hTݣבȵhTyZySȧdy@ hTbyy3ȧ (Ty3+TfyyBȗ '\yBy+\yyBȉ '\yB+TNyyˤΜ+Ϝ dyR '\y3+ d" ($ d,d , dyМ zh zihTٗ_ٿzb js dܾTyܾ|yyt dܾ\yܾ}yu dܾ\yܾ~yv dܾ\yܾyw dܾ\yܾـyx dܾ\yܾفyy dܾ\yܾقyz dܾ\yܾكy{ dܾ\yܾلyTryyyҖzX y̖zW 2*̄dܾDŽdܿTyܿyܾ̺dܾ\ySyyܾ̮dܾ\yyyܾم l\yَܾyyن l\yُܾyه l\yِܾyو l\yّܾyى l\yْܾyي l\yܾٓyً dܾ\yܾٔyٌ hTyܾٕyٍ h\yܾٖyTryyyϔyΜ ̨h\yyyܾz^̑hTݳyܾySyՄh\yܾyS &  " & 2ׄ hфh\yܿyܾ !r̾ hk̹hh\yܿyܾ̭ h[̩hX\yܿyܾ 5 G{֤ 1nd 9'nՄh,TByܾd l-z[d 9%nhTޯyܾڄhT"ܾy{׬ 1nd 9%n̿h\ܾyTyב h̬h\yܿבܾ{ l !TTyב 'TyB"TLyy '\y3Tݣy\i\ב lyR KT`y\yTImT2tHH X%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`H h" "" H3h2 HX/ l* "  f  ` ` `"i H"h! HX @    ` `"i Hh HX ` `"i H_h^HG H[X[X6FF rDHLhKH4 HHXHX.  `'X F" X4i  ; )  4"   2 1 m  `"i HhH HX %00hh  d " dh  0F 0 04hȻ 0F 0 04h  `­é @HpX0 HjXLXXXc hd 'jb PALGO"#2@2 hGh X A ,#)$h.9@@" T@ ""  (h k Pe Ǡ#"2X"2Ȱ h hh( h 0Fȼ&  x&dhwu Ggb# gY ` ` 0H_V Q JXG FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7A?-  T@T= ! ! , h\Awxw Kh  \z|{| 9hTH~yHT2T@h\h\h\heǺdǼl. l\=я 1 ll l\\=4ܖ  d Tӏl dT l lǼhǼ/0 /20 \ُW l&Tu @ HHHWhbHTFPNf!/  yh   \ lTӲ,M T2@Sm#  KI Ξ !O'h=E.8  ֬h,K((  @m̗ iTF/ 0 T4ld+, l!dNTKΛH  SI- I lI ,lf"T҄P nM T @m*l3 )( !׌n l 1/ 2 L lTӲ/ >4 c  n 0\ '̩  NT  \ײ0\ @SmEn  nPf!\1E  d*T̶  d) n̫ " d( #! nlTF0 ,n   d! l\!T 99T  h h6 fT k h dT-h hԘ!(TȿhȢ  (hT (h ș j (hȒjت 2T ǘ  \Ș #T d\ 6 ll HT2T@ h\h hd  <;TI1EYk}fSOaaN`>Ҝ՜Ԝ b Ty&...... '' z4CALL' *B 'STRACE' *B 'DTLLST' *B 'R9ELOC' *T *K,I8 *N,DTLLST,,,B *K,I6 *Z *V #T_ h h  hDhBySySByT "h-h*-h-&F q -  " $Ta,hhh y l  n zz{S HK!"hE!dhDH3  j;T}|{{4"T|||{{*!vT||{ H H  -X~| H   #3T Xo H  Xy|$$SYMSGF$$ \"Xq HI HXG|  X\Xn H: H X8|  X|\ H(X)|o H$X4| \ȵ" \bT||{ ȮX2whth \|w h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :X|o H"A HB0Fh  0X|o { 00j qa! -" hh! u  HTLD|||HHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`Xga"aHh j qhykK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L?@@@@@@@@@@: ="X)"H @Tn 2 < = > 0<6б 2 H,d< J0,,d6 ,d6 . /.@BF 36 H8363 8464 :5 2 3  4  5 0362 H < = > BNBAX/ A@XE/ DXE0B    2uM%  !"h X " XXyA"T{S$yH>;TI1G[U}fQ P qQTSU  Ty&...... '' z4CALL' *B 'STRACE' *B 'WRTOFP' *B 'R9ELOC' *T *K,I8 *N,WRTOFP,,,B *K,I6 *Z *V #T_ h h  hDhBySySByT "h-h*-h-&F q -  " $T,hhh y 9596979899 1PL0L1L2L3L4L5L6L7L8L9LR H1H2H3H4H5H6H7H8H9 OAOBOCODOEOFOGOV U1U2U3U4U5U6U7U8 MR / /  /DELQMST 0 Ї苗6H 6/$$SYMSGF$$ \"Xq HI HXG|  X\Xn H: H X8|  X|\ H(X)|o H$X4| \ȵ" \bT||{ ȮX2whth \|w h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :X|o H"A HB0Fh  0X|o { 00j qa! -" hh! u  HTLD|||HHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`Xga"aHh j qhykK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L@F8J@@RR x$4 ?@(8E@zNN 4 $    x8 @@@@@@  ! "8 @@@@@@8H8V@8\8c8kUTIFIL 0 Pi( \e? \_E \YK \SQ \MW \G] \Ac \;i \5o \/u \){ \# \ \ \ \  \PRINT " jCxINACCT ACTFIL d1DELQMST `A UTIFIL `AP_PRINT &~|  @j@@@@DD@@1@ODcDh@h@hDv@ v@!vD"D#@$@%@&D'D(@)@*D+@,@-D.D/@0@1@25D3ID4N@5N@6ND7\@8\@9\|pw@:@;@:@<@=` 5 @>@?@@DA@B@C/@DM@Ek@F@GDH@I@J@K@L@M@N@ODP@Q@R@SDT@UDV@W@XDY@Z@["@\'D]+@^1@_@`@a@b@c@d0@eDDfIDgODhXDi^DjdDkjDlpDmvDnDoDpDqDrDs@tDu@v@w@xDyDzD{@|D}D~DD;B@@ .$ N $ N/ $ N? .  SQRVTU WX   < <   : GQ OR : S T )U ,V 5W 8X :      =   VN  VN/  VN?  V/NO  V?N_  VONo  V_N  VoN  VN  VN  VN  VN/  VN?  V/NO  V?N_  VONo  V_N  VoN  VN  VN  VN  VN/  VN?  V/NO  V?N_  VONo  V_N  VoN  VN  VN  .. FFz^X-toD!@<z A @ )8C@8L8 gz@;l8ňA /@ )8=@ FFǕA ?@ )) A8 8 '81898G@8P8f@@8q8vK8 @M A8 K8 (@K81K8;8F8P8Y8g8o8v8 @@uR A@@@S*@v1@w;mHaapkRaapf\gh@UoHuvrz@A8@B08B@HAD8 b@@Kʖ A8 @@C08F@@K ``pTR8 `K@@L A8 @@D08CK@@HsE8 caa@Mz@NF A8 aa@E&@F08 >@z Q ``pHK Q8L`@JPQ@IM8d@z R ``pPr R8s`@RwR@QtwK@A8 88 "@8+818 @@8 N@8d@@@b— A8888 "@@@@8*828>@8 N@8d@@@c AaapV @W@xHyHzH{"@^(@X1aap~>N8 `aa@dz@eD@A8 88 +@8 9@8 E8N8e\@\@@@@@@@@8@@@@@@@@@@@8\@\pI A8 88 +@868BKK8P@Pu An oaapp'q9@ZBaapP@|ژ@A88@88*@838@8 S\@\@\@\@\@\8f@@@@@@@@8 w@@@@@@8 \@\@\@\@\@\ A8888)@838 C@@_2 Aaaph aapiaaplaapj*@\3aap]A@`<7 A@aB@PA8@@@@@@@@8@@@8 ,@@@@@8 <@@@@@@8T@@@@a@@@@@8[@@8o@@@@@@@@@8@@@K@@@@@@™ PA@@?@UH[ S```pnS@k T```pT@! PA@$@%?@&UH'[ U```p(nU@*k V```p+V@-* PA@0@1?@2UH3[ W```p4nW@6k X```p7X@9V0 A @ )8K@8 g@;l8ňj\A /@ )8?@ HHwpA ?@ ))Ś} A8 8#8+838;8F8W\@\@\@\@\@\@\@\8o@@@@@@@@@@@@@@8\@\@\@\@\@\@\@\@\@\ A8 K8!8*828:8DK@KD dA@ @ 8a /@ 8!a ?@ # O@ ) _@ 1 o@ 9 @ A @ C@ dA8 8 @K@:-8 9@@9C`A8K\\\\@@@@\\\\K<.@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@d >@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@>Z@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@ @@@@@ @@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@ @@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Qx _; <8 > >` '>؀>܀>ހ>>O?2?3?B?R?S?T?U?s????? ??? ?ր?׀??@@(@+@3@4 @B@J@K @Y@Z@[@y@@@@@ @ŀ@@ @@@@AAAA!A"A@A^A|AAA A AAAAAAB B BBB$ B)B-B1B5B6B7B;B@BDBHBIBgBBBBBBB)CCC C CC)C)C)C$C()C-)C2C3C;C=CBCJCNCPCRCT'C|C~C)CC'CCCCCہhBlFH?z 7H55 8r`- dhT,(% zTy& z! dydzTy&yA" ydy"h%h$h#h" cdhE"h "hdyT{S֠yhy`HpX0 HjXLXXXc hd 'jb PALGO"#2@2 hGh X A ,#)$h.}f@@" T ""  (h 8 +@868BKK8P@Pu An oaPU Ǡ#"2X"2Ȱ h hh( h 0Fȼ&  x&dhwu Ggb# gY ` ` 0H_V Q JXG"yh+* h%yh%$h!-H}fhy}fh1h  h @ * DAILY CYCLE MENU * DCCOLACT A - DAILY COLLECTOR ACTIVITY REPORTS iDCPRTLTR B - PRINT REQUESTED LETTERS DCACTADD C - ADD THE COLLECTOR ACTIVITIES TO THE ACTIVITY FILE )DCUPDTAP D - PROCESS COMPLETE UPDATE TAPE(S) FROM A/R SYSTEM DCNFINUP E - PROCESS 400 SERIES NON-FINANCIAL UPDATE (TAPE)S DCFINUPD F - PROCESS 500 SERIES FINANCIAL UPDATE TAPE(S) IRPDRCIAC G - DELINQUENT RECORD CONTENT REPORT - (INACTIVE ACCOUNTS) RPDRCSRQ H - DELINQUENT RECORD CONTENT REPORT - (SUPERVISOR REQUESTS) DCUPDHIS I - UPDATE ACCOUNTS FROM HISTORY iDCDUMMIE J** THE FOLLOWING PROCEDURES ARE TO BE RUN WHEN THE COLLECTORS DCDUMDUM K** ARE FINISHED WITH THE DAYS ACTIVITIES )DCSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT DCBLDDAS M - CREATE DAILY ASSIGNMENT FILES Z - EXIT I * HISTORY SYSTEM MENU * HSMOVHIS A - MOVE INACTIVE ACCOUNTS TO HISTORY FILES iHSUPDTAP B - UPDATE ACTIVE ACCOUNTS FROM THE TAPE ARCHIVES HSPRGHIS C - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE )HSPRGTAP D - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE MTPRGMST E - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) Z - EXIT I * FILE MAINTENANCE MENU * MTRDRLTR A - LOAD THE LETTER DEFINITION FILE iMTCONLTR B - CREATE THE LETTER FILE AND SAVE THE DEFINITIONS MTUTIFIL C - UTILITY FILE MAINTENANCE - ADD OR UPDATE UTILITY RECORDS )MTDECTBL D - DECISION TABLE MAINTENANCE MTAVMDMP E - PRINT ACTIVITY VERIFICATION TABLE MTACTMTX F - CREATE THE ACTIVITY VERIFICATION TABLE IMTSPCAUD G - FILE SPACE AUDIT- REPORTS PERCENTAGE OF UNUSED FILE SPACE HSPRGHIS H - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE HSPRGTAP I - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE iMTLDSCRN J - LOAD SCREEN DEFINITION FILE MTSVSCRN K - CREATE THE SCREEN FILE AND SAVE THE DEFINITIONS )MTPRGMST L - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) MTACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT MTUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE IMTDETCRD O - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CARD INPUT MTDETCON P - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT MTPDFMTN Q - REPORT GENERATOR PROGRAM DIRECTORY FILE MAINTENANCE iMTSCNPRT R - SCREEN FILE PRINT UTILITY Z - EXIT ) * ON DEMAND REPORT MENU * RPDRCIAC A - DELINQUENT RECORD CONTENT REPORT (INACTIVE ACCOUNTS) iRPDRCSRQ B - DELINQUENT RECORD CONTENT REPORT (SUPERVISOR REQUESTS) RPTAPRRN C - TREND ANALYSIS-CALCULATE AGE- RUN BEFORE SELECTION D OR E )RPTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE RPTAPTTY E - TREND ANALYSIS REPORT PRINTED BY PRODUCT TYPE RPWRTOFF F - ELIGIBLE/ACTUAL WRITE-OFF REPORT IRPDLYASN G - DAILY ASSIGNMENT LIST RPSUMACT H - SUMMARY ACCOUNT LIST REPORT RPWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT iRPMCOLST J - MONTHLY COLLECTOR STATISTICS REPORT RPTCNTRL K - CREATE REPORT GENERATOR PROGRAM )PRFPG000 L - EXECUTE REPORT GENERATOR PROGRAM Z - EXIT  * REPORT GENERATOR - REPORT DIRECTORY * PRFPG001 A - R.G. REPORT 1 - (AVAILABLE) iPRFPG002 B - R.G. REPORT 2 - (AVAILABLE) PRFPG003 C - R.G. REPORT 3 - (AVAILABLE) )PRFPG004 D - R.G. REPORT 4 - (AVAILABLE) PRFPG005 E - R.G. REPORT 5 - (AVAILABLE) PRFPG006 F - R.G. REPORT 6 - (AVAILABLE) IPRFPG007 G - R.G. REPORT 7 - (AVAILABLE) PRFPG008 H - R.G. REPORT 8 - (AVAILABLE) PRFPG009 I - R.G. REPORT 9 - (AVAILABLE) iPRFPG010 J - R.G. REPORT 10 - (AVAILABLE) PRFPG011 K - R.G. REPORT 11 - (AVAILABLE) )PRFPG012 L - R.G. REPORT 12 - (AVAILABLE) PRFPG013 M - R.G. REPORT 13 - (AVAILABLE) PRFPG014 N - R.G. REPORT 14 - (AVAILABLE) IPRFPG015 O - R.G. REPORT 15 - (AVAILABLE) PRFPG016 P - R.G. REPORT 16 - (AVAILABLE) PRFPG017 Q - R.G. REPORT 17 - (AVAILABLE) iPRFPG018 R - R.G. REPORT 18 - (AVAILABLE) PRFPG019 S - R.G. REPORT 19 - (AVAILABLE) ) Z - EXIT CARDPRO READER TAPEPRO TAPE0 DCCOLACT PRFDC001 iDCPRTLTR PRFDC002 DCACTADD PRFDC003 )DCUPDTAP PRFDC004 DCNFINUP PRFDC005 DCFINUPD PRFDC006 IDCUPDHIS PRFDC007 DCDUMMIE PRFDC008 DCDUMDUM PRFDC009 iDCSRTTRN PRFDC010 DCBLDDAS PRFDC011 )HSMOVHIS PRFHS001 HSUPDTAP PRFHS002 HSPRGHIS PRFHS003 IHSPRGTAP PRFHS004 MTRDRLTR PRFMT001 MTCONLTR PRFMT002 iMTUTIFIL PRFMT003 MTDECTBL PRFMT004 )MTAVMDMP PRFMT005 MTACTMTX PRFMT006 MTSPCAUD PRFMT007 IMTLDSCRN PRFMT008 MTSVSCRN PRFMT009 MTPRGMST PRFMT010 iMTACTMTN PRFMT011 MTUSEMTN PRFMT012 )MTDETCRD PRFMT013 MTDETCON PRFMT014 MTPDFMTN PRFMT015 IMTSCNPRT PRFMT016 RPDRCIAC PRFRP001 RPDRCSRQ PRFRP002 iRPTAPRRN PRFRP003 RPTAPTQU PRFRP004 )RPTAPTTY PRFRP005 RPWRTOFF PRFRP006 RPDLYASN PRFRP007 IRPSUMACT PRFRP008 RPWCOLST PRFRP009 RPMCOLST PRFRP010 iRPTCNTRL PRFCNTRL PRFPG000 PRFPG000 )PRFPG001 PRFPG001 PRFPG002 PRFPG002 PRFPG003 PRFPG003 IPRFPG004 PRFPG004 PRFPG005 PRFPG005 PRFPG006 PRFPG006 iPRFPG007 PRFPG007 PRFPG008 PRFPG008 )PRFPG009 PRFPG009 PRFPG010 PRFPG010 PRFPG011 PRFPG011 IPRFPG012 PRFPG012 PRFPG013 PRFPG013 PRFPG014 PRFPG014 iPRFPG015 PRFPG015 PRFPG016 PRFPG016 )PRFPG017 PRFPG017 PRFPG018 PRFPG018 PRFPG019 PRFPG019 I 00 01 COLECT 02 COLECT i 03 COLECT 04 COLECT ) 05 COLECT 06 COLECT 07 COLECT I 08 COLECT 09 COLECT  10 COLECT i 11 COLECT 12 COLECT ) 13 COLECT 14 COLECT 15 COLECT I 16 COLECT 17 COLECT 18 COLECT i 19 COLECT 20 COLECT ) 21 COLECT 22 COLECT 23 COLECT I 24 COLECT 25 COLECT 26 COLECT i 27 COLECT 28 COLECT )CCS20 00 J @X<yH@l?X6yH:l9X0yH4l3y@yIyh*)yH&%yH! $E"yHa.aBdyB0F P))4/rv]b4HohmhlHj lhghed_h^ h] WHW!  hUHQQhQJT}flHEFHTqK* dzsh9H32 l0/29XOzs(h* h'!HX, %*HX"lh hhlhhXhhH hؠ l nѐhB@'d  giy`951-)%!]YUQMIEA=  @ Tzs@z Dz 3 hH !hHT   " '&#$%("yh+* h%yh%$h!-H}fhy}fh1h  h @HV!HR O@LTJT{G1 0B@dRa9:}fh6h5 yDy+`+)X & !`#!Xh0}~`XhThT  h h Dh b2@yh yTy&|GZ"}fy"dy"+HkLgMh\cJh__H h]T VhVTQ@STK0. DhF}fdyT 6T4h2,@ST&0T h TH hDa hTz[\ Tz[yh87 "dH1+1yAh'TH%"H#TH!h!H1Ah nh@T}f}fTy&h,H, h&H% H$h$!H"h"H* h!d #hh(4h%Tq"TTH!Hl hhlh h H T̠hlzs"yhAyhy}fH@hD XXXX$  $T+  $T+}fh T9 h\h[hZhYhXhWV"(3>FXIJ@yTy@dy>6yTfy/dyR+yThy%dyG yTeDy?yTyhyTfy dyyTf ydyyTyhzs dzs}o dzsTQEA"T̠ ʀ/hzs!dzszs1Ⱦ/+$hThThثثحȣ/Ȧ! Ȣ!yT .bȋb HH" fAyl^ l][ "-LV?S"}f" LO TE +F@dRa> 2u%T*/#  zsh>h; h:7A4h3 5a h31h/.Ġh,(h'((dRh#T Hhhhh h  TlTfzs&TQ&TJzs&Th z&Ta&TZHh/,TH*(b$TH#h# l H1Ahbb0 h bbhBlFH?z 7H55 8r@`- dhTV,(% zTy& z! dydzTy&yA" yh T:h h y hhLh z hEhzh>zshTU TV,T !HhDnHecnXT}VT}V`#TV #TV  .;TV3#a  5TVT  1.:*a /0B2a2Db 2%1bXw2bDbA2  bgaBH,HWhP, hTV 7'aϠ2h=1DhA 4h hTo*(dhToe  b2Db0 b1T}V  Db TET}V`#TV 6TVO .;TV3#a?/b  1.:*a02 B2a2Db~ 21bXn2bDb"XohY6?/b hTV 7'aϠ2h@1DhA 4h hTo-(dhToI  b2 Dbb b: 4 DbT}V(  Dbb b T19b  b T  hT}V`#TV &$TV.TV BG T ,.0,TTBb @b/TV@ A?b/+ b/h1) " b h h Dh hToA2  D hhA4 h h #2hTo a bd m b1b b #A 2 A 2 a! TV7'aah  !4h h #2hTo a  bd :*a2a3#aT}VT}V`#TV $<96TV96TV ?/b 3#aT}V  Z1Ϡ2hhA h""^ :*b hTo Ab  "Db1 b 1 1:blDb A1b2 h hToY B2a3)h h hohT( ooQ-y+ @0b"+B2a(:*aT}V 3#aF A!7b"Db8T}V`#TV 3#aT}V%&'TV%.,TV   Rb![)h(#H oh  hT (ooQ%!%@0a2%>.a 42:*a?/bDbbh  h hTo 2Db bT}VM Hdddh]]ddhUT%rJE"4hE@+; 52 H/H-+(!!n!  ةFA h &Ah#HT}Va#H#2  1b>.b T}VQ;h2h0>b#$&1 -N, <,b 01^ >.bTVN8Z "." 2"8. . , ?/b$TV/Ҡ  @0b",TV >.b h bXT}VJX  bB2b  bb #HT}Va#H1  AbT h9 Ab>.bT}V,Q;h)>b#$11A1a 03 1<:*aTVN> "." 2"8. ,$A1aTVA1b ?/b3TV:*aA1b2Db b bb T}VRdy"h%h$h#h" cdhE"h "hdyT{Syhy`XXXXXXXX, MOUNT XXXXXX ON LU XX, RING,READY? HDR1 0001000100 YYDDD YYDDD 000000 HDR1VOL1"8. ,$A1aTA1b ?/b3T RING #"a# h& h& Dn q h  n q n q n  n  nT(o "&K$$MOUNTS  h!n qX":31B2a3 h h hT (oH " hToo* h h hT(o hX2%<,b h hT(o H hTo/To .  ""B0F4Ȁ00h6+NO hTLT2!BH0!0T=-b *:*bTT'TVA1*TU(h` h h ``h ` h h ``TVEFT41.TV -*TU(h` h h ``h` h h `` !HT(R4TVB hhDh hSHBH 0hB FhTVC.T)TT' )V8h` h h ``To@T\1TVHT2UNTToB0FHB0F00HB0F4Ȁ00hTo@ToTToTot *DTU(T T8(aT}VyTTVIT2U$.TV)TT' )V8h` #"a#.)-T:8EOȿV1B2aE,XCBb @b6-# /T,TeT"X"Ab @?bA1a,TX TT}VT b T8(aTy0HohXlh HXgh (h h!2 S Q H0%A h^ XJh HXEhXBhd(h (h /ȱnm" $ȧ 62 2 hHȜ- h+ h h"  h2  ؒ-h hF2 ?bA1a,Td0hH hhh H0%A 0FhHшHl hƐ$" uЈh h Ȼ8h 0FhHȵhhȮ nȪhhȣ nȣȥh hثȘDhh h}h|y B0FHfB0Fb00H_B0FH[B0FW00HTB0F200HL "hTo F1LBV1h!Gb *DTU(T h ToNEOh*EOV1 $"HL\Hh" a!HA hh (h&hhh aT`HhA Hh(hTo Ⱦa h l lTHD$h lu"% AlhhH |HX hXl q" d   *#C:r> " r < H E A a1"@Z{[lP}M]\Nk`Kaz^L~no|_m [ABCDEFGHI.<(+&]JKLMNOPQR!$*);^-\/STUVWXYZ,%_>?0123456789:#@'="XXXXXXXXXXH5 h1A"}Bh-hTl)(l&%"h!l ll}|||}||||J ߃۠TDD=T4ييTTyTTTTTT:TT?;#TT\?DD=T____DD____HTFr{؇؊؞إتحسضWr*?rږli!4l))?,l4XchX_ dX_^]W"qqv`XM  CGB: ŀ ^hQ741//h*$h#a}f"  Tݘ X Xݘ4?JU  { dy ȷ nXL  ]X; dz1Ȣh$Ȟh! X  b T١b ȌX  h "a}f hbH_ Dy EA"hWhT_ hhH"h @T h  hh2HhTT=Llh H h TT=LzsHs hqHnf i* l\[aTVSZTlX'T@TO}fhLhK bH@"DT}f@<@=:Ty3* /-Th+&@GTTTl*@dRayyyy}s}r}mHDhhCehCHA l?>=8h8[6h7Wh3Th40 Fl.-.%)h#XJ&%FC.@h=h lX5 h  1 h!hHM HThȈzshhH h bтb Hݘ#*1TyTyT dzyTƀ,HYhXUTR HP !}f " TڛC-ݘ7<'}fh8h<&h62/h31/@/T(%#$T3zsh !h}mT ` TTy&z- Wdz z-TDz`l%Tr"(TThT Tz-TTy&ydz2 z@ Tz f"  <" z2z2"dz2yTyz2"bQ! yz2T!yz2Tydz2y(Ty&Ty& hz2"h1X hIh 3HhTh 6$z2z2"1I 3 ~z2z2z2z2"hdx_"8"+Hzs h hI-GE1*z2 }fl9,6 b1A hj*bAb#DbB h}Xz2 }fzbb!@dRaB he6 hgTHehf1$^[b^.lTX`QTfKbN*JFbAbGDb@ ;h<89T3Th401T+Th,yH'"h%y#"h!h}rhhT T TݘTsyfyHT ydyTzdyyyl ll 1@ TT2 Ty&yyz,TDzl21Tz,T%T  dz Tz hT TTy&TyXHjHix he'Hd}rHbHbHl[&g#}ohW a&}phQ}qhMLXYKXWEhI}khG}jHEy$?h?H=6h=yDh9,5h*,h*)}mh.-X3*h(y QhX%5 h% h h }mXzs HThhXy"}nH1Xh֐hʠ$X(TgThɔ}x1}m6XȹTny1ȵh}lT2ȨTإXH`ih_H_yy h[4hZHWXc"xU2 Q!N?"XOM2=XKXOD2Al;:8h>=<9h75&"h4,1(h&%X,X0!F#!T X h}q}o}m}r}n}l}rzsTh! HTh HXDh  tT TTbTTy& ydyTTy& Tƀ)y Tƀ)" ""h H " \ݘz2y@z Dz 3 hH !hHT   " '&#$%("yh+* h%yh%$h!-H}fhy}fh1h  h @hHhyh Tzl \ Tzlh<}fh8h7H33y}fh)`(T$@"T@GTTzfy Fh\Tzfyh bTƀ-H "0HDz ݘh8 h7H48b2z-T ydyXyX!bzBdzhCTH hHV!HR O@LTJTdG1 0B@dRa9:}fh6h5 yDy+`+)X & !`#!Xh0}~`XhThT  h Tƀ+z2z3f"z,z3b dz3zRT Tƀ(z, yh%$dz2Tƀ*z3$dz3z32Tz3z,z3"dz2ݘ H?h?`'y;\m50aH0/,b!,+b"@+\]- @#\U0M)h&hDh ` T@.-.@\(0)*'&"`'"&T`TTd0.}frTx Htsyhsryfy Hiqzy(HbTT(0(QTMT1%T" Bdz T y7T 1bz y &TH#zy z"T*THzz H Q dz 0"z"0H TH TH26y THdzz z"HQ)TTyT)z   dz Ty&ydRdyTy&T bh Dh b2@y dz yh&%ydzHTbH@"a HAy^bbTy&HHh"HR}fhMh   17 Td!.TTD,-THh hH~|hȾ     htX@kihnX:e hc `hfTHZhbYTKHVX( hX O}f`J TKHFXC S>d:9h=749h2+Jh2)0h/ }xh+ l- zc@ T `Q":"h zs hhT`}rhTh1XDT3Ah׈ hhA TTA h  q TȼTTHTشhX̲ lȫ}o lXTآhȝT7ȚhH hDa hTzf\ TzfLl(T@ T , @dRayyHRhRHPTHOhOHM#JAGhIHEFhF>>Th=@:Th9 41 0)T9&b$h#    @@dRa h 9 bb h#4h$$H !ThhThh Th  Ttzs hzz"HA ydzh0 h l+0L'! @ TT l T@Tr 0 lyyLzlyHr h holKhl )i" ,?G\E _1n X UXbP  h GTC+@>+:9H 3 1 -1b) 'dy$}fdyyA hTHH h B `}fh67 h`TdyhWhX-hW hR ڐ}fhII lRA h@TLHdy0H7 `3TKH- +h)*Tf hH# h 1&TyTxȟ ? }@hȖ߾ hpho "AHfXmA haTT3Wh XP$hNTGEEhCXJB@@@Tzsh>h; h:7A4h3 5a h31h/.Ġh,(h'((dRh#T Hhhhh h  Tlhy+HzsHTh l T3HH~ lx lw lw vlsthtrqylhl g & l] lZ]!ZC lTVMlO lP OlLhM  HFEC lAAMl<> 8D h7Th4 .!*1'&#Ch!THhH#L 1T @ T!}yyyyfhhhhhhh hT4hhhllll hGHH1T WH#.H@dRa,T OH T @Tؘȡ}f@hT@Tȕl'L%% ! @lT}fl}mT}f@GT $lbyyyHN+HK*hH.>b#h?>}f9h9 h6 `1/X,`,*X '@$T"Tdh 0}~`XhThH T  hH[HZYHYVb hTQbOb hLJEBbA@ e<:h<}f5h6 1h42T}fh0*.0 h+$-h$"}r }| }o}{}m}yh h h +h+# h110 bh{h@TT hm! HTƀ0Ty&h%z+ z,TDz-TDz.TD! z,hz-h z.hTTƀ%z+ hh TDݘTsH@yhdRey  zdRdzhS HPy&  FbEBlCC TD@>1@h:9T6}fh2}i/T}f)@GT "b bTb 4 XhT b2lzlbLT ! b 7  T[yyhBlFH?z 7H55 8r`- dhTu,(% zTy& z! dydzTy&yA" yTƀ1HR"'}fhM&HIIhJhI$CT?%?zsh.a 42:*a?/bDbbh  h hT 2Db bT}VM#T}V`#Tu 3#aT}V#Tu-6Tu  1T}V !!bDb 1b*h*$ah$h hTu7'a h Π1h A hTbb 0 A 1XT}Vf#A2 "f"  b ! T #T}V`#Tu 3#a(TuS-Tu1q !!bDb 1b A  < hTuQy7'aDH h Π1h A hTbb 0 A !# A2 " f"  bb bTT}V_ #T}V`#Tu %Tu -Tu3#aT}V1T}V !1b 8(aT}V A1bDb Ah ah A hTb 0A 2XT}V bbB8a5)h 5h oh a hT( oo%A1a%:*a3#a#T}V`#Tu &Tu& -,Tu3#aT}V @0aTu)1 !ߠ1b)h oh h  hT(oo!2!(:*aT}Vh h  h hT b )h oh  hT(o Db2DboT}VT:*ax#T}V`#Tu 6Tu/-),Tu3#aT}V1   ahhh  aH2hTh  hT )h oh h  hT( ooT}V&A1a!%:*a%=-a#T}V`#Tu (TuP ,Tu3#a/Tu?/a1T}Vb. h TuQ,7'a?9)b hhDh h9"aHA1hT7 !  b9b T  2Db?b#T}V`6Tu  ;Tu93#aa&Tu;!)hhohDa h DbT(oo"(12!(:*aT}V%B2a3#a1 @0bbDb 2bB?bT}V~#HT}Va#H#2  1b>.b T}VQ;h2h0>b#$&1 -N, <,b 01^ >.bTuNWZ "." 2"8. . , ?/b$Tu/Ҡ  @0b",Tu >.b h bXT}VJX  bB2b  bb #HT}Va#H1  Ab h9 Ab>.bT}V,Q;h)>b#$11A1a 03 1<:*aTuN>< "." 2"8. ,$A1aTuA1b ?/b3Tu:*aA1b2Db b bb T}VRdy"h%h$h#h" cdhE"h "hdyT{Syhy`@ a ag@2h0 ah)b[&&d2h X"HhbTXHhh"H hgb B  0%#T}V`#Tu BTu ,Tu3#a/Tu?/a1T}V',h H HHTTu3;+a  8(ab A1bDb  b h hhT )hhohT)o b2Db?bo{:*aXXXXXXXXXXH5 h1A"}Bh-hTl)(l&%"h!l ll}|||}||||l *Th$h#H  THyyyyyXwhTI:ySy!X[ h `h0H.h.H'h&-h,h,h,X-!hTI:ySy! ?KhHX3E jXM  "h `   2uM%  !"h X " XXyA"T{S$yH>;TI1EYk}fSOaaN`>Ҝ՜Ԝ b Ty&...... '' z4CALL' *B 'STRACE' *B 'DTLLST' *B 'R9ELOC' *T *K,I8 *N,DTLLST,,,B *K,I6 *Z *V #T_ h h  hDhBySySByT "h-h*-h-&F q -  " $Ta,hhh y l  n zz{S HK!"hE!dhDH3  j;T}|{{4"T|||{{*!vT||{ H H  -X~| H   #3T Xo H  Xy|$$SYMSGF$$ \"Xq HI HXG|  X\Xn H: H X8|  X|\ H(X)|o H$X4| \ȵ" \bT||{ ȮX2whth \|w h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :X|o H"A HB0Fh  0X|o { 00j qa! -" hh! u  HTLD|||HHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH5h H-32"4` aADe Daaߘ AA a a Vh`Xga"aHh j qhykK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L?@@@@@@@@@@: ="X)"H @Tn