@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ХйдСз@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@хжгё@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@цШФйё@дЦй@ТСуУШ@ё`Те@@@@@ёђј@№ё№№ё@№ѓ№ђі@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@№ѓ№ђё@ћяFiџDУи+YFˆ&™є.Ч<џhY[Fˆ#„№Ч]„р™ 4 YТа#YkFˆ#$€H>A$H>D.Y… 4 YF SA$ hxУиHХ<`[6.Ч$DА86.ч6 п6.ќ6ћ6.ч6пУ<џhv ыєFQАH„ 8FKFQаFQиТ<„0H@ УнцаЧАhv њF Fш6.ќ6ћыє86.ч6п0FЁhи 6.ч6п F‡6.ќ6ћыєЧАh 6.ч6пџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ С>ё6јшђќF ћ086. Чај6ЧрјьђчF п0FQјF Та+Dшџї‡ј6<.УјФ@$ўр€€ФрУˆи0ТаHћ ХАh3ѕ.Dљ 6<.п6=чFODIFOнц6.Я86.љ0Эж.ѕСВht Fs`lF D`Ф‚рУ‰иФ’рУ™и86.ч6п0„рУ иЦєрХыи†єрыиЯF–ЧЙ F–Та+DЁ86. Чја6Ч џ і їіяє8аFQјF ТHћDТ.Ё>ќ6?ћ6<Ч<hСЁFСFСšFС6>.Ё>ч6?п6..Ё.Fc6P.ЁPч6Qп86P.ЁPќ6Qћ0&.Ё. FcёFџјqп6џ@џнџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0,ƒFILE POPEN$ PRINT$ PCLOSE$ PSUSP$  PRESTRT$ џ0'‚pqDСЇDС"DС$DС†DСЛ*00000001 PRINT FILE 00000000 q&@Ё@6..Ё.Fc&.Ё.6”.Fc&”6@.Ё@Fc0§6.ЁгFTзјТгFZУиЦ№HС/6.Ё FQП F Ц<+DСJ.&Ф€рУˆиФ€№УˆшЦ€№ХˆшФ†рУиFQ0„рУ иТаHС_FTАhџ0/џ0*‚з.Ёз0јF Ц<пHСу ФрУи`С6о.ЁоЧј<:`Ся0јFDСў6з.Ёз ЧFWF Ц<пHС1 6P.ЁPЧ @СI6".Ё"FС6#.Ё#FС6#.Ё#FС6#.Ё#FС6..Ё.FС†FС6–.Ч6—я№ўF8ЈFW< HСbFСš&FHFKF]FСF0HСлцнFџ@ FSDIR DIM 8 SYSTEM SUBDIRECTORY DRFPFNM DIM 3 PHYSICAL FILE NUMBER DRFSCTF DIM 5 NUMBER OF SECTORS FREE DRFFILF DIM 3 NUMBER OF FILES FREE DRFDRIV DIM 2 NUMBER OF DRIVE . DSBACK DIM 7 ROLLOUT REUTURN . SYSNAME DIM 16 NAME OF FIпя@CAL POSITION PAGECNT FORM 3 PAGE COUNT LINECNT FORM 3 LINE COUNT F61 FORM "61" 60 LINES PER PAGE F25 FORM "25" NEXT VERICAL POSITION FPTR FORM 2 REPRESENTS THE FORM POINTER LPTR FORM 2 REPRESENTS THE LOGICAL LENGTH POINTER FPTR2 FOпя@+ . . PROGRAM TO ALLOW INQUIRY TO THE GENERAL DISK DIRECTORY. . INC COMMON .REVISE INIT "1.0 10/31/80" PBW - INITIAL VERSION .REVISE INIT "2.0 3/20/81" JET - SEARCHES FOR GENERIC FILE NAME . )PLUS BUILDS ITS OWN CHAIN FILE. REVISE INIпя@ PRTLINE DIM 127 THE LINE OF FILE NAMES THAT WILL BE PRINTED. . DRFFILE IFILE SYSTEM DIRECTORY FILE - INDEXED DRFOPN INIT "N" INDEXED FILE OPEN (Y/N) DRFFILES FILE SYSTEM DIRECTORY FILE - SEQUENTIAL DRFOPNS INIT "N" SEQUENTIAL FILE OPEN пя@ FORM 2 FORM3 FORM 3 FORM4 FORM 4 FORM5 FORM 5 FORM6 FORM 6 FORM7 FORM 7 FORM8 FORM 8 FORM9 FORM 9 FORM10 FORM 10 . F0 FORM "0" F1 FORM "1" F2 FORM "2" F3 FORM "3" F4 FORM "4" F5 FORM "5" F6 FORM "6" F7 FORM "7" F8пя@LE "SYSTEM0/SYS" FILELINE DIM 50 FILES LINE IN ROLLOUT FILE. DIRLINE DIM 50 OUTPUT FILE FOR FILES COMMAND SORTLINE DIM 50 SORT LINE IN ROLLOUT FILE. LIMLINE DIM 50 LIMITED SORT LINE. SAPPLINE DIM 50 SAPP LINE IN ROLLOUT FILE. DRNUM DIM пя@ RM 2 THE FORM POINTER FOR EXT. PATT. MATCHING LPTR2 FORM 2 THE LL POINTER FOR SUBDIR. PATT. MATCHING FPTR3 FORM 2 THE FORM POINTER FOR EXT. PATT. MATCHING LPTR3 FORM 2 THE LL POINTER FOR SUBDIR. PATT. MATCHING FPTRDISP FORM 2 THE FORM POпя@T "3.0 3/31/81" JET - PUT DATE ON REPORT AND REDUCE . )SEARCH TIME FOR FILE NAME SEARCH . * . . MISCELLANEOUS WORK VARIABLES . FILENAME DIM 21 SEQ FORM "-1" SEQ2 FORM "-2" ZPAD INIT " 0" BLANK INIT " (" 40 LETTERS INIT "ABCDEFGHIJKLпя@ (Y/N) DRFKEY DIM 20 KEY FOR FILE . DRFRECD DIM 80 RECORD FROM DIRECTORY FILE DRFSAVE DIM 80 SAVE THE OLD DIRECTORY RECORD DRFDUPL FORM "0" FLAG TO SHOW DUPLICATES DRFNAME DIM 8 NAME OF FILE OR DRIVE DRFEXTN DIM 4 FILES EXTENSION DRпя@ FORM "8" F9 FORM "9" F10 FORM "10" . QNAME DIM 20 QCOM COMLST 2 QROUTE DIM 3 QFUNC DIM 1 QPARM DIM 30 * . . VARIABLES USED FOR THIS PROGRAM. . HOR FORM 3 HORIZONTAL POSITION SCRNLMT FORM "24" SCRN LIMIT VER FORM 3 VERTIпяУSYSTEM6 SYSџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@ INTER FOR DISPLAYING THE SEARCH STRING LPTRDISP FORM 2 THE LL POINTER FOR DISPLAYING THE SEARCH STRING F28 FORM "28" FOR POSITION OF PATT. MATCHING SUBDIRECTORY . BLANKS INIT " " 20 BLANKS . PRTNAME DIM 24 THE FILE NAME ON PRINTED OUTPUTпя@MNOPQRSTUVWXYZ0123456789$+-." . DIM1 DIM 1 DIM2 DIM 2 DIM3 DIM 3 DIM3A DIM 3 USED FOR KEYIN OF SUBDIRECTORY DIM4 DIM 4 DIM5 DIM 5 DIM6 DIM 6 DIM7 DIM 7 DIM8 DIM 8 DIM9 DIM 9 DIM10 DIM 10 DIM11 DIM 11 . FORM1 FORM 1 FORM2пя@2 DRIVE NUMBER IN ROLLOUT FILE. TMPDRNUM INIT "01" TEMPORARY DRIVE NUMBER . SPLFILE INIT "DISKDUMP/PRT" THE SPOOL FILE F32 FORM "32" MAXIMUM NUMBER OF DRIVES . SYSFILE FILE FILE "SYSTEM0/SYS" DIRFILE FILE THE NEWLY BUILT DIRECTORY FILE пя@:24,"Are You Mounted On All Drives (Y/N) ?": *P37:24,DIM1 CMATCH "=",DIM1 GOTO KYCHOI IF EOS GOTO KYCHOI IF EQUAL CMATCH "N",DIM1 GOTO KYCHOI IF EQUAL CMATCH "Y",DIM1 GOTO GENRAT IF NOT EQUAL * . . WE WANT TO GENERATE THE MAпя@DIM11 TO 5 MOVE DIM11 TO DSBACK RESET DIM11 * . . FORM TODAY'S DATE. . TRAP BADCLOCK IF IO OPEN ARCCLOCK,"ARCCLOCK/TXT" TRAPCLR IO READ ARCCLOCK,SEQ2;DIM9 CLEAR DATE SETLPTR DIM9 TO 6 RESET DIM9 TO 5 APPEND DIM9 TOпя@F A DRIVE WAS MOUNTED, CHECK IF WE CAN OPEN A . FILE CALLED "SYSTEM0/SYS", WHICH EXISTS ON EVERY MOUNTED DRIVE. . ELSE, JUST JUMP OUT OF THE LOOP. . GENLOOP MOVE FORM2 TO DRNUM REPLACE ZPAD IN DRNUM DISPLAY *P78:24,FORM2 RESET SYSNAME пя@ries": *P1:6," 4) Show All Drives With Bad Entries": *P1:7," 5) Search For Specified Entries": *P1:8," Your Choice ?": *P29:8,DIM1 . CMATCH "=",DIM1 GOTO EXIT IF EOS GOTO EXIT IF EQUAL TYPE DIM1 GOTO BADCHOI IF NOT EQUAL пя@CMDFILE FILE THE ROLLOUT FILE . ARCCLOCK FILE "ARCCLOCK/TXT" DATE DIM 8 TODAY'S DATE SLASH INIT "/" . DIM8Q DIM 8 FOR PRINTING THE VALUE OF THE SEARCH STRINGS. DIM3Q DIM 3 FOR PRINTING THE VALUE OF THE SEARCH STRINGS. DIM3AQ DIM 3 пя@STER DIRECTORY. PREPARE THE FILE . WHICH WILL LIST THEM. . MOVE F0 TO FORM2 MOVE "SYSTEM0/SYS:DR" TO SYSNAME PREPARE DIRFILE,"DIRSYS/TXT:DR0" * . . NOW PREPARE THE CHAIN FILE WHICH WILL FIND ALL OF THE FILES . ON ALL MOUNTED DRIVES. . пя@ DATE APPEND SLASH TO DATE SETLPTR DIM9 TO 9 RESET DIM9 TO 8 APPEND DIM9 TO DATE APPEND SLASH TO DATE SETLPTR DIM9 TO 3 RESET DIM9 TO 2 APPEND DIM9 TO DATE RESET DATE * . . TELL THE OPERATOR WHO WE ARE AND ACCEPT THE ACTпяBSYSTEM7 SYSџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@MOVE DIM1,FORM1 * . . NOW BRANCH TO THE CORRECT ROUTINE. . BRANCH FORM1 OF GENRAT,DRIVES,DUPLIC,INVALN,SEARCH GOTO BADCHOI * . . WE WANT TO GENRATE A NEW SYSTEM MASTER DIRECTORY. . GENRAT KEYIN *P1:3,*EF,"Directory Generation": *P1пя@FOR PRINTING THE VALUE OF THE SEARCH STRINGS. + . . START OF THE PROGRAM . START DISPLAY *ES,"System Directory Maintenance System": *P60:1,"Vers. ",REVISE * . . GET THE CORRECT ROLLOUT RETURN COMMAND. . CLOCK VERSION TO DIM11 RESET пя@ . THE FIRST RECORDS IN OUR NEWLY PREPARED FILE SHOULD BE A FREE. . . PREPARE CMDFILE,"DISKDUMP/CHN" WRITE CMDFILE,SEQ2;"FREE" WRITE CMDFILE,SEQ2;"//LOGOFF" WRITE CMDFILE,SEQ2;"COPY SYSLOG/SYS,DIRSYS/TXT:DR0" * . . IN ORDER TO SEE Iпя@ION CHOICE. . KYCHOI TRAP ABORT IF INT TRAP FORMAT IF FORMAT TRAP PARITY IF PARITY KEYIN *P1:2,*EF: *P1:3,"Choices Are: 1) Generate a New System ": "Directory": *P1:4," 2) Show All Drives Used": *P1:5," 3) Show All Duplicate Entпяџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@" DONE LOOKING THROUGH ALL 32 DRIVES, THEN GO DIRECTLY . TO THE PART OF THE PROGRAM (GENEND) WHICH CLOSES OUT THE ROLLOUT FILE. . GENLOOP1 ADD F1 TO FORM2 COMPARE F32 TO FORM2 GOTO GENLOOP IF LESS * . . WE HAVE NOW DONE THE FILE DIRECTORIпя@ . MOVE "DIRSYS/TMP:DR" TO DIRLINE ENDSET DIRLINE APPEND TMPDRNUM TO DIRLINE RESET DIRLINE WRITE CMDFILE,SEQ2;DIRLINE * . . BUILD THE LINE WHICH SORTS THE FILES OUTPUT FILE. . MOVE "SORT DIRSYS/TMP,DIRSYS/SRT:DR" TO SORTLINE пя@%llout? (Y/N) ": DIM1 CMATCH "N" TO DIM1 GOTO KYCHOI IF EOS GOTO KYCHOI IF EQUAL ROLLOUT "CHAIN DISKDUMP/CHN;OP=G" GOTO KYCHOI + . . WE WANT TO SHOW ALL THE DRIVES THAT WERE USED FOR THE CURRENT RUN . DRIVES DISPLAY *P1:3,*EF,"Sпя@ IRSYS/SRT:DR" TO SAPPLINE ENDSET SAPPLINE APPEND TMPDRNUM TO SAPPLINE APPEND ",DIRSYS/TXT:DR0" TO SAPPLINE RESET SAPPLINE WRITE CMDFILE,SEQ2;SAPPLINE * . . BUILD THE LINES WHICH KILL THE TEMPORARY AND SORTED DIRSYS FILES. . WRITEпя@TO 14 APPEND DRNUM TO SYSNAME RESET SYSNAME TRAP GENLOOP0 IF IO OPEN SYSFILE,SYSNAME DISPLAY *P1:4,"Now building D.O.S. commands for Drive Number ": FORM2 * . . BUILD THE LINE THAT PERFORMS THE FILES COMMAND . MOVE "FILES :DR"пя@#ES FOR ALL OF THE MOUNTED . DRIVES. INDEX THE NEW DIRECTORY FILE AND THEN KILL THE LOGGING . FILE. CLOSE THE COMMAND FILE, THEN ROLLOUT TO IT. . GENEND WRITE CMDFILE,SEQ2;"INDEX DIRSYS/TXT,:DR0,:DR1,:DR1;": "P9=/,1-8,10-12,16-17,20-22" WRIпя@ENDSET SORTLINE APPEND TMPDRNUM TO SORTLINE APPEND ",:DR1;L1-12" TO SORTLINE RESET SORTLINE WRITE CMDFILE,SEQ2;SORTLINE * . . SINCE THIS IS A LIMITED SORT, WE MUST WRITE THE NEXT LINE. . MOVE "1-12,':DR" TO LIMLINE ENDSET LIMLIпя@&how All Drives" CMATCH "N",DRFOPNS CALL OPNDRFS IF EQUAL READ DRFFILES,F0;; DISPLAY *P1:5,"Drive Volume Sectors Files ": *P40:5,"Drive Volume Sectors Files ": *P1:6,"Number I.D. Free Free ": *P40:6,"Number I.D. Free Fпя@! CMDFILE,SEQ2;"KILL DIRSYS/TMP" WRITE CMDFILE,SEQ2;"Y" WRITE CMDFILE,SEQ2;"KILL DIRSYS/SRT" WRITE CMDFILE,SEQ2;"Y" GOTO GENLOOP1 * . . "SYSTEM0/SYS" WAS NOT FOUND, SO HERE IS WHERE WE GO TO. . GENLOOP0 NORETURN * . . IF WE ARE ALLпя@ TO FILELINE ENDSET FILELINE APPEND DRNUM TO FILELINE RESET FILELINE WRITE CMDFILE,SEQ2;FILELINE WRITE CMDFILE,SEQ2;"Y" WRITE CMDFILE,SEQ2;"Y" * . . BUILD THE LINE THAT SHOWS WHICH FILE THE FILES COMMAND OUTPUT . WAS WRITTEN TO.пя@$TE CMDFILE,SEQ2;"KILL SYSLOG/SYS" WRITE CMDFILE,SEQ2;"Y" WRITE CMDFILE,SEQ2;"KILL DISKDUMP/CHN" WRITE CMDFILE,SEQ2;"Y" WRITE CMDFILE,SEQ2;DSBACK,";R" WEOF CMDFILE,SEQ2 CLOSE CMDFILE KEYIN *P1:5,"Are you ready for a nice, long roпя@NE APPEND DRNUM TO LIMLINE APPEND "',13-32" TO LIMLINE RESET LIMLINE WRITE CMDFILE,SEQ2;LIMLINE * . . BUILD THE LINE WHICH SAPPS THE SORTED FILE TO THE FILE WHICH . CONTAINS ALL FILES OBTAINED SO FAR. . MOVE "SAPP DIRSYS/TXT:DR0,Dпя@2 SRCHLL IF NOT EQUAL ADD F1 TO FPTR BUMP DIM8 GOTO SRCHFP IF NOT EOS MOVE F1 TO FPTR MOVE F9 TO LPTR GOTO SEARCH1 * . . NOW, GET THE NUMBER OF THE LOGICAL LENGTH POINTER. . SRCHLL MOVE FPTR TO LPTR SRCHLL1 ADD F1 TO LPTR пя@-RESET DRFRECD,9 MATCH DRFEXTN,DRFRECD GOTO DUPLIC2 IF EQUAL MOVE DRFRECD,DRFEXTN GOTO DUPLIC0 * . . WE HAD A DUPLICATE, SHOW THE OPERATOR. . DUPLIC2 BRANCH DRFDUPL OF DUPLIC3 DISPLAY *PHOR:VER,DRFSAVE MOVE F1,DRFDUPL ADD F1пя@( GOTO DRIVES0 IF NOT EQUAL * . . WE HAVE A DRIVE, NOW PRINT THE NUMBER, VOLUME NAME, NUMBER OF SECTORS . AND NUMBER OF FILES . RESET DRFRECD,15 MOVE DRFRECD,DRFDRIV RESET DRFRECD,28 MOVE DRFRECD,DRFNAME REPLACE "( ) ",DRFNAME пя@0ALIZE THE PRINT LINE. . CLEAR PRTLINE APPEND BLANK TO PRTLINE APPEND BLANK TO PRTLINE APPEND BLANK TO PRTLINE APPEND BLANK TO PRTLINE RESET PRTLINE * . . IF ALL QUESTION MARKS WERE TYPED IN, THEN GO IMMEDIATELY . TO THE KEYINGпя@+ EXTENSION. . DUPLIC DISPLAY *P1:3,*EF,"Show All Duplicates" MOVE F1,HOR MOVE F4,VER CMATCH "N",DRFOPN CALL OPNDRF IF EQUAL MOVE BLANKS,DRFKEY MOVE BLANKS,DRFNAME READ DRFFILE,DRFKEY;; . DUPLIC0 CALL RKDRF GOTO DUPLICND пяџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@.,VER CALL ASKMORE . DUPLIC3 DISPLAY *PHOR:VER,DRFRECD ADD F1,VER CALL ASKMORE GOTO DUPLIC0 . DUPLICND KEYIN *P1:24,"Hit 'ENTER' to continue ",DIM1 GOTO KYCHOI * . . THIS IS CHOICE NUMBER FOUR FROM THE MENU. . INVALN GOTO KYCHпя@) RESET DRFRECD,39 MOVE DRFRECD,DRFSCTF RESET DRFRECD,54 MOVE DRFRECD,DRFFILF BRANCH FORM1 OF DRIVES1 DISPLAY " ": DRFDRIV," ",DRFNAME," ",DRFSCTF," ",DRFFILF; MOVE F1,FORM1 GOTO DRIVES0 . DRIVES1 DISPLAY " => ": DRпя@1 IN OF THE DESIRED EXTENSION. . MATCH "????????" TO DIM8 GOTO SEARCH11 IF EQUAL * . . FIND THE PATTERN MATCHING FILE NAME HERE. . MOVE F1 TO FPTR * . . FIRST, GET THE NUMBER OF THE FORM POINTER. . SRCHFP CMATCH "?" TO DIM8 GOTOпя@,IF OVER MATCH DRFNAME,DRFRECD GOTO DUPLIC1 IF EQUAL MOVE DRFRECD,DRFSAVE MOVE DRFRECD,DRFNAME RESET DRFRECD,9 MOVE DRFRECD,DRFEXTN MOVE F0,DRFDUPL GOTO DUPLIC0 * . . WE HAD A DUPLICATE NAME, CHECK THE EXTENSION . DUPLIC1 пя@'ree ": *P1:7,"====== ======== ======= ====== ": *P40:7,"====== ======== ======= ====== " MOVE F0,FORM1 . DRIVES0 CALL RSDRFS GOTO DRIVESND IF OVER MATCH "//LOGOFF",DRFRECD GOTO DRIVESND IF EQUAL MATCH "LOGICAL ",DRFRECDпя@/OI + . . SHOW ALL FILES WITH THE GIVEN PARAMETERS. . SEARCH DISPLAY *P1:3,*EF,"Search For Specified Entries" SEARCH0 KEYIN *P1:4,"File: ????????",*EL,*P7:4,DIM8 CMATCH "{" TO DIM8 GOTO KYCHOI IF EOS GOTO KYCHOI IF EQUAL * . . INITIпя@*FDRIV," ",DRFNAME," ",DRFSCTF," ",DRFFILF MOVE F0,FORM1 GOTO DRIVES0 . DRIVESND KEYIN *P1:24,"Press 'ENTER' to continue ",DIM1 GOTO KYCHOI + . . WE NOW SEARCH HERE FOR DUPLICATE ENTRIES. THIS MEANS THE NAME MATCHES . EXACTLY THRU THEпя@=GOFF" TO DRFRECD GOTO SEARCH34 IF EQUAL PRINT DRFRECD ADD F1 TO LINECNT GOTO SEARCHLP * . . NOW WE ARE READY TO START PRINTING OUT THE LIST OF FILES. . . ?-PAD THE SEARCH STRINGS FOR OUTPUT CLARITY. . SEARCH34 MOVE "????????" TO DIпя@8"?" TO DIM3A GOTO SRCHLL3 IF NOT EQUAL ADD F1 TO FPTR3 BUMP DIM3A GOTO SRCHFP3 IF NOT EOS MOVE F1 TO FPTR3 MOVE F4 TO LPTR3 GOTO SEARCH3 . SRCHLL3 MOVE FPTR3 TO LPTR3 SRCHLL31 ADD F1 TO LPTR3 BUMP DIM3A GOTO SEARCH3 IF Eпя@3BUMP DIM8 GOTO SEARCH1 IF EOS CMATCH "?" TO DIM8 GOTO SRCHLL1 IF NOT EQUAL * . . GET THE FILE EXTENSION. . SEARCH1 SUB F1 FROM LPTR SETLPTR DIM8 TO LPTR RESET DIM8 TO FPTR MOVE " " TO DIM3 . SEARCH11 KEYIN *P17:4,"Extensionпя@;" . GIVEN IN THE FIRST RECORDS OF THE FILE. PUT THIS ON THE FIRST . PAGE OF THE REPORT . PRINT *F,*3,"REPORT DATE: ",DATE: *55,"DATASHARE DISKDUMP SEARCH",*110,"PAGE 1": *N,*N,*N,"DRIVES USED FOR THESE FILE LISTINGS:": *N,*N TRAP BAпя@6O DIM3 GOTO SRCHLL21 IF NOT EQUAL * . . NOW OBTAIN THE FILE'S SUBDIRECTORY. . SEARCH2 SUB F1 FROM LPTR2 SETLPTR DIM3 TO LPTR2 RESET DIM3 TO FPTR2 ADD F9 TO LPTR2 ADD F9 TO FPTR2 MOVE " " TO DIM3A . SEARCH22 KEYIN *P33:4,"Suпя@>M8Q MOVE "???" TO DIM3Q MOVE "???" TO DIM3AQ . MOVE FPTR TO FPTRDISP SUB F1 FROM FPTRDISP RESET DIM8Q TO FPTRDISP APPEND DIM8 TO DIM8Q RESET DIM8Q TO 8 RESET DIM8Q . MOVE FPTR2 TO FPTRDISP SUB F1 FROM FPTRDISP RESETпя@9OS CMATCH "?" TO DIM3A GOTO SRCHLL31 IF NOT EQUAL * . . NOW READ EACH RECORD IN THE DIRECTORY FILE SEQUENTIALLY . AND MATCH EACH FILE NAME WITH THE PATTERN CREATED ABOVE. . SEARCH3 SUB F1 FROM LPTR3 SETLPTR DIM3A TO LPTR3 RESET DIMпя@4: ???",*EL,*P28:4,DIM3 CMATCH "{" TO DIM3 GOTO SEARCH22 IF EOS GOTO SEARCH0 IF EQUAL MATCH "???" TO DIM3 GOTO SEARCH22 IF EQUAL * . . FIND THE PATTERN MATCHING EXTENSION HERE. . MOVE F1 TO FPTR2 SRCHFP2 CMATCH "?" TO DIM3 GOпя@<DIO IF IO .. CMATCH "N" TO DRFOPNS .. CALL OPNDRFS IF EQUAL CALL OPNDRFS CALL RSDRFS CALL RSDRFS CALL RSDRFS CALL RSDRFS PRINT DRFRECD CALL RSDRFS PRINT DRFRECD MOVE F8 TO LINECNT . SEARCHLP CALL RSDRFS MATCH "//LOпя@7bdirectory: ???",*EL,*P47:4,DIM3A CMATCH "{" TO DIM3A GOTO SEARCH33 IF EOS GOTO SEARCH0 IF EQUAL MATCH "???" TO DIM3A GOTO SEARCH33 IF EQUAL * . . FIND THE PATTERN MATCHIMG SUBDIRECTORY HERE. . MOVE F1 TO FPTR3 SRCHFP3 CMATCH пяџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@:3A TO FPTR3 ADD F28 TO LPTR3 ADD F28 TO FPTR3 . SEARCH33 DISPLAY *P1:5,*EF,"Spooling the file names on file DISKDUMP/PRT": *P1:6,"Files found: " SPLOPEN SPLFILE,"Q" * . . OPEN THE SEQUENTIAL FILE AND PRINT OUT THE LISTING OF THE "FREEпя@5TO SRCHLL2 IF NOT EQUAL ADD F1 TO FPTR2 BUMP DIM3 GOTO SRCHFP2 IF NOT EOS MOVE F1 TO FPTR2 MOVE F4 TO FPTR2 GOTO SEARCH2 . SRCHLL2 MOVE FPTR2 TO LPTR2 SRCHLL21 ADD F1 TO LPTR2 BUMP DIM3 GOTO SEARCH2 IF EOS CMATCH "?" Tпя@? DIM3Q TO FPTRDISP APPEND DIM3 TO DIM3Q RESET DIM3Q TO 3 RESET DIM3Q . MOVE FPTR3 TO FPTRDISP SUB F1 FROM FPTRDISP RESET DIM3AQ TO FPTRDISP APPEND DIM3A TO DIM3AQ RESET DIM3AQ TO 3 RESET DIM3AQ . MOVE F1 TO PAGECNT пя@GE IF CURRENT FILE NAME MATCHES IT. ELSE, READ . THE NEXT RECORD. . SEARCH41 CMATCH " " TO DIM3 GOTO SEARCH42 IF EOS MATCH "???" TO DIM3 GOTO SEARCH42 IF EQUAL SETLPTR DRFRECD TO LPTR2 RESET DRFRECD TO FPTR2 MATCH DIM3 TO DRFRECпя@B F1 TO FPTR GOTO SEARCH35 IF NOT EQUAL APPEND DIM8 TO DRFKEY . SEARCH35 APPEND BLANK TO DRFKEY RESET DRFKEY READ DRFFILE,DRFKEY;; * . . HERE'S THE LOOP WHICH READS THE FILE NAMES AND CHECKS THEM . FOR ANY MATCHING PARAMETERS. . SEпя@JN THE . SCREEN AS A CONFIDENCE MESSAGE TO THE OPERATOR. . SEARCH5 CLEAR PRTNAME APPEND BLANK TO PRTNAME CLEAR PRTNAME CLEAR DRFRECD SETLPTR DRFRECD TO 18 RESET DRFRECD APPEND DRFRECD TO PRTNAME SETLPTR DRFRECD TO 33 RESET пя@EY MORE MATCHES, SO WE CAN . JUST JUMP TO THE END OF THE SEARCH. . COMPARE F1 TO FPTR GOTO SEARCH40 IF NOT EQUAL MATCH DIM8 TO DRFRECD GOTO SEARCHND IF NOT EQUAL GOTO SEARCH41 * . . ELSE, IF THE FORM POINTER WAS NOT SET TO ONE, THEпя@@PRINT *N,*N,*N,*55,"DATASHARE DISKDUMP SEARCH": *N,*N,*38,"FILE NAME = ",DIM8Q: " EXTENSION = ",DIM3Q: " SUBDIRECTORY = ",DIM3AQ,*N,*N ADD F7 TO LINECNT MOVE F1 TO VER * . . OPEN THE FILE DIRSYS/ISI . .. CMATCH "N" TO DRFOPN .. пя@HD GOTO SEARCH4 IF NOT EQUAL * . . DO THE SAME THING AS WE DID IN CHECKING FOR A MATCH IN THE . EXTENSION, EXCEPT NOW DO IT FOR THE SUBDIRECTORY NAME. . SEARCH42 CMATCH " " TO DIM3A GOTO SEARCH5 IF EOS MATCH "???" TO DIM3A GOTO SEARпя@CARCH4 CALL RKDRF GOTO SEARCHND IF OVER DISPLAY *P1:24,*EL,DRFRECD * . . IF WE TYPED IN ALL QUESTION MARKS FOR THE FILE NAME, FORGET THE . PATTERN MATCHING AND GO DIRECTLY TO THE EXTENSION MATCHING. . MATCH "????????" TO DIM8 GOTO Sпяџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@FN JUST CONTINUE . THE SEARCH, CHECKING FOR EXTENSION AND SUBDIRECTORY. . SEARCH40 MATCH DIM8 TO DRFRECD GOTO SEARCH4 IF NOT EQUAL * . . FOR THE FILE NAME: . WE FOUND THE PATTERN TO MATCH. NOW, IF THE OPERATOR KEYED IN . AN EXTENSION, SEпя@ACALL OPNDRF IF EQUAL CALL OPNDRF * . . NOW, IF THE FORM POINTER OF THE FILE NAME SEARCH STRING IS 1, . WE CAN REDUCE THE AMOUNT OF OUR SEARCHING BY KEYING INTO THE . "DIRSYS" FILE AND READING FROM THAT POINT ON. . CLEAR DRFKEY COMPAREпя@ICH5 IF EQUAL SETLPTR DRFRECD TO LPTR3 RESET DRFRECD TO FPTR3 MATCH DIM3A TO DRFRECD GOTO SEARCH4 IF NOT EQUAL * . . WE HAVE JUST FOUND A FILENAME THAT SUCCEEDED IN MATCHING WHAT . WE WANTED IT TO MATCH. PRINT IT OUT, AND DISPLAY IT Oпя@DEARCH41 IF EQUAL SETLPTR DRFRECD TO LPTR RESET DRFRECD TO FPTR * . . IF THE FORM POINTER OF THE SEARCH STRING WAS SET TO ONE, AND WE . DID NOT GET A MATCH HERE, THEN FROM THIS POINT ON TO THE END OF . THE DIRECTORY FILE WE WILL NOT FIND ANпяџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@RE,"DIRSYS" MOVE "Y",DRFOPN RETURN . OPNDRFS OPEN DRFFILES,"DIRSYS" MOVE "Y",DRFOPNS RETURN . HDING PRINT *3,"REPORT DATE: ",DATE: *55,"DATASHARE DISKDUMP SEARCH": *110,"PAGE ",PAGECNT: *N,*N,*38,"FILE NAME = ",DIM8Q: " EXTENSпя@M BLANK TO PRTLINE APPEND BLANK TO PRTLINE * . . DO WE HAVE ANY MORE ROOM ON THIS PAGE? . COMPARE F61 TO LINECNT GOTO SEARCH7 IF LESS ADD F1 TO PAGECNT MOVE F7 TO LINECNT PRINT *F; CALL HDING . SEARCH7 DISPLAY *P14:6,*EL,Pпя@U "40",HOR RESET DIM1,0 RETURN . ASKMORE0 KEYIN *P1:24,*EL,"See More ?",*P10:24,DIM1 CMATCH "Y",DIM1 GOTO ASKMORE1 IF EOS GOTO ASKMORE1 IF EQUAL CMATCH "N",DIM1 GOTO ASKMORE IF NOT EQUAL * . . WE ARE THRU AND WE DON'T WANT ANпя@PYCHOI . FORMAT NORETURN BEEP DISPLAY *P1:24,*EL,"A FORMAT ERROR HAS OCCURRED" PAUSE F3 DISPLAY *P1:24,*EL GOTO KYCHOI . PARITY NORETURN BEEP DISPLAY *P1:24,*EL,"A PARITY ERROR HAS OCCURRED" PAUSE F3 DISPLAY *P1:24,*EL Gпя@KDRFRECD TO 28 APPEND DRFRECD TO PRTNAME * . . CHECK WHICH VERTICAL COLUMN WE SHOULD PRINT THE FILE NAME ON THE . PAPER. . SEARCH6 RESET PRTNAME CLEAR DRFRECD APPEND BLANK TO DRFRECD APPEND BLANK TO DRFRECD RESET DRFRECD * . .пя@SION = ",DIM3Q: " SUBDIRECTORY = ",DIM3AQ,*N,*N RETURN * . . KEY-SEQUENTIAL READS HERE. . RKDRF READKS DRFFILE;DRFRECD RETURN * . . SEQUENTIAL READS HERE. . RSDRFS READ DRFFILES,SEQ2;DRFRECD RETURN * . . CHECK IF THE SCREEN FILLпя@NRTNAME RESET PRTLINE TO VER APPEND PRTNAME TO PRTLINE ADD F25 TO VER GOTO SEARCH4 * . . END OF THE DIRECTORY FILE. . SEARCHND RESET PRTLINE PRINT *4,PRTLINE KEYIN *P1:24,"Hit 'ENTER' to continue ",DIM1 SPLCLOSE GOTO KYCHOIпя@VY MORE. . RESET DIM1,2 RETURN * . . WE WANT MORE RECORDS. . ASKMORE1 DISPLAY *P1:4,*EF MOVE F4,VER MOVE F1,HOR RESET DIM1,0 RETURN  EQUAL CMATCH "N",DIM1 GOTO ASKMORE IF NOT EQUAL * . . WE ARE THRU AND WE DON'T WANT ANпя@QOTO KYCHOI . BADIO NORETURN BEEP DISPLAY *P1:24,*EL,"THE FILE DIRSYS WAS NOT FOUND" PAUSE F3 DISPLAY *P1:24,*EL GOTO KYCHOI . BADCLOCK NORETURN MOVE "00/00/00" TO DATE GOTO KYCHOI . * . . SUBROUTINES. . OPNDRF OPEN DRFFILпя@L HAVE WE COME TO THE END OF A PRINT LINE? . COMPARE "102" TO VER GOTO SEARCH7 IF LESS ADD F1 TO LINECNT MOVE F1 TO VER RESET PRTLINE PRINT *4,PRTLINE CLEAR PRTLINE APPEND BLANK TO PRTLINE APPEND BLANK TO PRTLINE APPENDпя@TED UP. IF SO, ASK THE OPERATOR TO SEE MORE. . RETURN WITH EOS IF NO. RETURN WITH NOT EOS AND THE NEW SCREEN . POSITIONS IF YES. . ASKMORE COMPARE SCRNLMT,VER RETURN IF LESS COMPARE "40",HOR GOTO ASKMORE0 IF EQUAL MOVE F4,VER MOVEпя@O * . . ABORT TRAP . ABORT NORETURN GOTO ABORT IF NOT OVER GOTO KYCHOI * . . WE ARE ALL THRU, STOP DEAD. . EXIT DSCNCT STOP * . . ERROR MESSAGES. . BADCHOI DISPLAY *P1:24,*EL,*B,"INVALID CHOICE - PLEASE TRY AGAIN",*W2 GOTO Kпя џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ @W . RESET DIM1,2 RETURN * . . WE WANT MORE RECORDS. . ASKMORE1 DISPLAY *P1:4,*EF MOVE F4,VER MOVE F1,HOR RESET DIM1,0 RETURN  EQUAL CMATCH "N",DIM1 GOTO ASKMORE IF NOT EQUAL * . . WE ARE THRU AND WE DON'T WANT ANпя џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ SYSTEM0 SYSџCAT CMDџUTILITY LNKџСUTILITY RELџРDISKDUMPROFџ@COFIX ROFџ&DUMPFIX TXTџ"€SEARCHC ROFџ$@SEARCHW ROFџ(@DUMPFIX DBCџ)€DUMPFIX DBSџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ CSYSTEM1 SYSџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ УSYSTEM2 SYSџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџы є  (WDFk Ј(Y џѓсD- D4 D; DB 6 DF 6DF 6DF 6%F)FID^ FI08Эж6. њ6 љ6. з6 ЯђщяТаСˆШ6&OF Х а$Ш6&F 6^. 8FЪ& Fk Y(Fxс QРA$h— ЈYU(Aр6$. F ЧМHТ F ї8. АHА Фш0`ї <@ї №С€€€ШТа$БШџ№ћі0цнDЪF>F>H FЪD FM0FMСШH1DЪFQFЪ.+DFQС$0+Шe№.Ч<џ+FЪDFŠ`г`ЮУboBщn№ќF ћe№Ч4 јиуFŠТ @ЃТ$РаЧ$?ВјУАp№DP6.П6+DЧ8єыјF цн0F џ‚аHИС6.јd№.&Fc6.ч6пФ6—рУ6 ŸHW6 .ЧFФК@W6џ Э2ё. јFсQРA 6 . Ч]M[6 з6 ЯFћ љ6 њ6 Чјhžџ№Т86d.ј6fљ6hњ6jћ6lќ0нц6n.ћ6pќ6„Пh`6r&dFcъ6+Ч6s.јD†йрFHFK6„.FT$јFT€€€€‡ј†№@J6…8&.6џ РР6+.зн&ЭF6`ЕFK6d.&rFc6у.&7FcD76П.FrD` џёљРУš@Ш„р‹иFŠFЮ`ЩF*`*FQ6ЏаFQ6ЏВаFQ6ЏВHУDžhЙDсFŠ`ЮFЮ`\6ЧFW6ЧFW6ЧFWF-@žhОDсFЪ` D8F>#6dЧ6eзF<hс<hЙ<hЩ<hУЈDйF>#6dЧ6eзDСf№.аЧјђЧ јЪ5ј06ь.ј6юљ6№њ6ђћ6єќ6ыDіF­@ъi06Ъ8&86+.џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ с ѓіТ$јЖа& Fk Х(WУ

а6Ч,>ВH* 6O.ј&6NFc6џ.F Ч< HЩ8ј& 6Fr0 јDu6џ.Ч$яјF6Я.H›& 6.PFoDu0F?СШH Ј6*.ј6.Ч< hл<*h0<:H< ј6*.ј6.&dF'F'F'F'6.Ч,#а6Ч, Вhl6n.Ч< цн6Ь.jc6.њ6i.886d.Ч6.џТ=юіљ„6=.ј‹6>ј6BЧј<§#`6@Ч6AЗH6CЧHW6<ј6=ј6Bз6HЧ6Gя№њDDFCHк<~H6CЧ<@мŠ6?јFC+`6?ЧА†h0FFwFC+`FF6?Ч<ŠhV<џh0јD\6CЧ<h.ŠD0{6?јFC`Ь 6=јЈ6>ј6@ј6AјFCH“6=Яј6>Чљ6@Яј6Aљ`Ь6>Ч,џ6=ПH <Уhc<H FC6AЧ,џ6@ПH џn‘фіФрТ$№аFT<џ+6K.&Fh‘FTD…Т$№ аFT< hДи/FУ&FhДFTDЈ F(F8Т$№64.‡и$&0$0FhуУиDб)FА6џ.Ч$ с Q(A$+F8i0D§6+.зD6-.Я6.яёЧ< +<;+ШF Ц86-.ј0Х6..ј4С A6Žј6EЧ$16˜ј6FrD`6=.Чј6>Чјџш–D,D‰DDIDDНDвDDeDjDsDЈDБDWDцABS NAMENAME/EXT (PFN)  NO SUCH NAME NAME REQ'D INVALID DRIVE Rџ Т=№$ DOS FUNCTION LIBRARY NOT FOUND FcџяЬDœDœDœDœ DœD'DD8D,DqDD’DЁ6<.Ч 6;Чџd~c3<8~F$ < +FF.D~ * ERROR X ON DECK Y *цн6I.јF 6Eљ6Fњ6Gћ6HќЁШ6IЗ6;ПHШ6<њ6;П+ЧАRxџ‚}ці<ўh6+.ј<џhЦШF!6л.8б&fF6`;6›.86d.Ч0АhО<`6e.зD6*.ЧАhтFFFFQF6›.DF6.ЧАHёFFF6.ЧАHFQDлF!6+.зDF!џ&fF6`.0DЊ6d.&сDc6с.&dDcF!6+.зDVF!6+.зDVF!џ&F6`.6d.&Fc 6.&уFџИGэіШС ШТˆа@М6FЧК`cFF6CјDWFCH6@јFCH,џ6@ПHШ6CЧ<h=С6FП`WhŒD FC+`Ь6?ЧА†h FFqFF6?ЧDeD>D>6FљD0цн6f.ќ6gћF№QРA$+. HeUРADeF6=.Чј 6<ЧАh.Fs @Ё&ˆ6=ќ6>ћFF`ћ @ЁFяDЈ6=јF6=.Чџd›уі7@0јF 8Таh„F F7`i0ыєјF F7`„D6A.Ч, Ш6:Ч< џ+,DБh 6d.&ёFc68ж6.њ&F*`№6r.љ6:.FQПH№F BОHбF0жD6:.јD90†№<`ЕFў6ё.&dDcа6;ЧћFFя№QA}џ6;.јЈ6<јD6CјDWF6=.Чј 6<ЧАh6?јy6HЧ6=ј6GЧ 6>јЈ6Bј6@јFC# <h<УHFCHк<пєыџx‡хі`.6.ќ6Ÿћ6–.&Fc0D6.&F``86:.DcСr№.Ч.щ6њ& !F*#ќFTА66.јђ8F0жщ6њ& !F*#ќ66.ЧFZF-#"F-#D6‚.86Ђ.hr6Л.DrF]DЁЧ<§@баF уТ`YаЧЋиФЏрFDEЧаќFћF<јFУјD FœF 6FзDЁF Т6Lј,џ6Mј6JDТ€$\№.ќ№ћF џџїіFП ѓFџј6.Ч6Зh_ F™ `к Џ$РHB„аFT№„аFT86Џа0Ц6ЏВhlF™ `к $РаЧ$ВдFZФа6ЧFZФа6ЧFZFЌ 6Ч$ +F‹ 6ч6пЈ6ј6јFT`N <џ+FT$№€†№86‡ј6Ч јФ6—У6Ÿ0@„86Ч0–6ј6ЧјТ6јаFT6 јFT6 ј6Ч6—рЈаŠа§„р`к6 Ч$’hP иЧ$РВј$Рџі їіЯF' F' F' Т< H F' 6 Чр6 пFф ` 6Ч$и& Fэ ` 6Ч$№а6 Fђ F' F' 6ђ.ЧАhc 6єїш Fђ 6.Ч$№ЯF' & Fф ` №ƒиF-` 6Ч4 ј6ј6јЈ6ј6 ј6ј6ј6ј6ј6ј6ю.Чdр6.FcЈ6ЯF' ЫF' F' џF' 6 ЯF' 6 ЯF' џF' џF' 6 Чƒр6 пD-& џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџСџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџAџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџCSYSTEM5 SYSџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџь іі!D*‚рЯF' F ТМHє  D h Т6№.ј€< Q YТ_аU(A< Q YТ_аС(W&.џ8800Та6ю.Чdр6.FcЈ6.Ч<џ+џј6ј6ј6ј6јD! 6№.ј€: Хѕ< Q YТ_аU(Aўї 6ј6ј6ј6јЈ6ј6ј6јџ6 ј6ђ.ЧАhэ 6џ.Ч$Hэ .F: <џ‰Ш‚а@‰ 6Ч$*№. ЧЙhэ љ< Q(A$Hэ & !Fш ` 6.Ч$Шьа*№. ЧFZF-` ƒиF-` Dэ D*џт ѕ№.њ€ўї6.зFT`t <џht 6јFT6ј$6ј6зџFZџFZ6њ6Ч$РаїТа`O У иD6 6зFZЧјї6зFTЃр6Ч`j јУ иФ@C DU 6зФFZD№ & !F-#"F-6ю.Я.6 п6 чF*`й Ј§FT6ЏрўFTД+0Dп & F-`й №ƒиF-`й d№.&Dc Dс 0Dс 0Hс 6џі їЈ Ш@ёТ 0јВ0јF 8D 0Д0јФ$0јFФ $рУ и$рДрУ$иџ‚аHN ўїIVE NUMBERINVALID TRAP NUMBERFAILURE IN SYSTEM DATAINVALID PHYSICAL FILE NUMBER* INTERNAL SџџAџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џЯР Ј6П.0јп>>>>>>>>.:>>*>>>8>>>:.>>>.>> >>>>>џі їі6=.Fr6 .Fr6.Fr6.Ч$<@$6.ј062.ј6.Ч$и& 63.ќ64ћF*`g 6.зF.FF 64.јFl 6K.FrD6.86(.Dr‘ Ќ Ш м ї  ( 8 G ] y Ž Ђ Й ж PARITY FAILURE DURING READPARITY FAILURE DURING WRITERECORD FORMAT ERRORRECORD NUMBER OUџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџСџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџAџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџBSYSTEM7 SYSџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџь ііT OF RANGEWRITE PROTECT VIOLATIONDELETE PROTECT VIOLATIONFILE SPACE FULLDRIVE OFF LINELOGICAL FILE NOT OPENINVALID LOGICAL FILE NUMBERINVALID DRIVE NUMBERINVALID TRAP NUMBERFAILURE IN SYSTEM DATAINVALID PHYSICAL FILE NUMBER* INTERNAL SџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџСџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџїіDG AT XXXXXX *** LFN X. LRN 0.  DRIVE ?. NAME  *** §„рџ‹и6 .FN 6ю.Ч8d№.&Fc6№.Ч6Л.ј6џ.Ч$яј6.Ч6с.ј0Ч $06.ј6.Чр6Чи6!.Fњ F$џ‚а`А €`Ц<`Ш6s. & F зF яђFcF@іi6с.Ч$јDоџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџB@BLLCA@HFAKO@@FIIO@LCB@HFBMO@F@A@J@DDCFO@FCE@NB@@KOF@O@DJD@AAHMFBL@FCIMNBO@HOFDJBB@DDCFO@FDIIO@CBF@@ODJHCFCFANB@@HO@CFA@AFDGBB@HOFDI@B@BLDAA@@MHDALO@DDCFO@FDIIO@CBHCDMF@@@FCDCNBGAHOFDNAGAF@C@HO@CHFCFO@MMFNFCKDNBGAFADAFDCFB@F@A@@KDDCFO@@@@@@@@@@@@@   япq^ A  ~!  6AAAA6€ ~п.CHARSET SYS6+.з& F9 6.F 6џ.Ч4јŒ sп`AA@ ьр$  ?H _џE@BLD@NOCBHENHO@@KG@@KG@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  SYSTEM MAIN  0ЯсЦ>>.:>*>>8>>:.>>.> >.:>>.:>.:.:.:*>.:8>.::..:>..: >*>>>*>>*>.:*>*>*>8>*>:.*>>.*> >ypp**$cdc9M2 @"AA">>`>EIQ>і с*!#EEI1BAIU" $rQQQN)IIF@GHP`6III61IIџC@NBO@F@LOBHCB@OGOHCG@FDHJO@CBF@D@FCBGNBC@HONB@@EOFDLLO@C@DLFDK@B@DDMIO@AMN@@@FDFCB@@FCFO@FCLFNBC@OMFCMFGNFCEFOLFCE@NB@@IOMLF@@LDJ@NFDJBB@DDCFO@HCFCBGNBC@GLD@OO@CC@N@@@FDAEB@LCOOC@@MFDAEB@HLDBOAD@A@@N@HDH@NF@@LAJB@B@B@HLF@@H@HHMBLG@@@@@@@@@OHHJLKLL  џGџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџF@FCFONBO@HCBLD@DOCBD@FJ@OGOHCF@AN@BAEF@A@G@MKILMLGMMMOMJNKNLNMNNNINHBFDHGB@F@AN@BAEADJ@@DFJO@DLMED@DOCBCLKED@@KG@ADDBL@J@J@J@L@C@JGHGB@G@ADDBB@G@ADDBB@KBEEADFCDFHOG@FDJJO@ALGEG@F@FOD@J@FCLFHOHJFCJFHOG@HJ@H@H@H@HHLFDJJO@CBALIEG@HBDDCFO@ @@@@@@@@@@  A@BLLCA@HFDKO@@FJJO@LCC@HFFMO@@FMLO@LCE@HFBNO@@FLMO@LCG@HFNNO@@FHNO@F@A@J@G@FBL@NAAAF@O@AJCHHMG@FAABFBL@NAAALOFDI@B@KOFDI@B@F@A@CHHMJK@FJKO@DDCFO@FAAANAA@FBL@DDJKO@FBL@NAAB@KG@NABBFBL@@KG@FBL@NACB@KG@NADBFBL@@KG@NAA@FBL@DDNJO@@@@@@@@@@@@@@@@@@@@@@@   прЬJ<"AA" @EH0>A]UAAA"AA"IIIAHHH@>AAI.AAA~@"A  0>AAA>HHH0>AEB=HLJ11IIIF@@@@~~p  p ccppCEIQaAA`AA@ ьр$  ?H _џD@BLLCIAHFDKO@LCJAHFIKO@HCFCKINBO@FDK@B@GL@CG@CDBCDCMDC@MDB@@L@DC@B@C@D@D@HA@@@@@@@B@B@@@@@@@@@@FBA@NA@@G@FBDINA@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  џGџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџOOFB@ANAGBIFKFDLDAA@@N@DJHO@CLDAA@HM@DJHO@F@OOJ@DDCFO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  M@FBDFNAC@FA@AFDCFB@N@@@IMANFCKNNBO@LOFCMNKOFDHDB@FDKDB@FDAEB@LCOOCBFDAEB@LC@HHDJOO@FDAEB@FDAEB@FCKNNBO@HOFDAEB@FCMNHOF@G@FCOOHO@MFDIFO@KNDO@KNAI@JFI@B@FDDEB@@NF@OOCHHMHFAOO@DLOKHFMLO@FCOONBO@GLD@J@@DCLO@FB@@NA@@DDJIO@FDDEB@HMFAB@DDDEB@F@OOB@HMG@G@   H@FCILNBO@JOFCJLKOFCKLLOFBOJNAO@AMFDABB@FDHGB@FCILNBO@GLFCJLGJFCKLGJLCOOHDHIO@HJDDCFO@FCKLNBO@GLDAA@HOC@FCJLGLLA@@HOC@FCILGLLA@@HOC@DDNAB@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  @AF@AH@HG@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@   K@BLLCA@HFDJO@@FIIO@LCB@HFCMO@F@A@J@DDCFO@FDDJO@K@GLLC@HHDIIO@G@F@AN@BAEADDB@ALB@AK@GL@K@EGKO@HLFDI@B@FBE@ALDBOGOEGLDBOGGEFDI@B@DLDAA@@NHDMKO@HBIEALD@A@HLHJG@FCOONBB@GLDBMOHOHJG@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџN@FBDFNAC@FA@AFDCFB@FDCFO@N@@@CLLCOOHFLMO@FDHDB@FDKDB@FDAEB@@KHFNJO@LCOOHFLIO@F@A@G@FDAEB@@OFDAEB@HNFDAEB@NJ@NFDAEB@MJDJLCOO@FKJO@FDAEB@@KKB@MFDAEB@HOFDI@B@F@OOBH@MHDKLO@DDOIO@FCFNNBO@FDBGB@DD@FB@I@@@K@K@CADDODCEFD@CACDC@BADBDODBEDEM@@@@@@@@@@@@@@@   I@BLD@NOCBHE@IO@F@@H@HG@HJ@HG@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  OOFB@ANAGBIFKFDLDAA@@N@DJHO@CLDAA@HM@DJHO@F@OOJ@DDCFO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  L@F@AH@HG@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@   G@FCOONBB@FLM@NKHFDIO@MAGLDCH@HOHBF@AN@BAEADJ@BDHGB@@DDIO@F@@AHBIENB@@EOMMFBA@FDDOO@HFCFO@FMELJ@J@HLDLKJFDJEB@FDGNO@HDKJO@FDDOO@HFCFO@FMELJ@J@HLFDDEB@KJLJHDCFO@FDGNO@HDALO@CLLBOOHMHDKJO@DLJ@@NDDKJO@F@@DEHHNK@DLJ@@NF@A@FH@OG@F@AN@BAEHBADLBB@DBB@G@   O@FDCFO@BLDBOG@KHFHIO@LCA@HFEKO@F@AH@HG@FDHDB@FDKDB@FDAEB@LCAHHDDIO@FACBFDDEB@@NFDDEB@HMFAIODDDEB@HCFC@@NBH@GLLCHC@CHFA@H@FBIFNAB@FCLFNBB@LOFCMFKOFBDONAO@FCKBNB@@GMFDICB@@FBNO@FDCFO@DDA@H@FCLNNBO@FDBGB@DDDIO@I@@@K@K@CANDOD@BEEDEIDLDIDDEIE@BLDNDKDM@   J@BLD@NOCBKCNB@AFC@@@BOLHCNNGM@CF@A@AHHOHCNNJO@COKHBIOELHDKJO@D@A@HNLC@N@FNHO@J@J@DBOCFC@NNBO@HON@@DFAMOFDDEB@HMN@@@FDDEB@D@A@FDJEB@N@@DFDDEB@KKF@@AHFCMO@F@D@FCANHO@KFDCFO@FCOMNBO@G@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  `џкџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPўПпяїћ§ўПпяїћ§ўПпяїћ§ўПпяїћ§ўПпяїћ§ўПпяїћ§ўПпяїћ§ўПпяїћ§ўПпяїћ§ўПпяїћ§ўПпяїћ§ўПпяїћ§ўПпяїћ§ўПпяїћ§ўПпяїћ§ўПпяїћ§ўПпяїћ§ўПп€@ €@ €@ €@ €@ €@ €@ €@ €@ €@ €@ €@ €@ €@ OOFB@ANAGBIFKFDLDAA@@N@DJHO@CLDAA@HM@DJHO@F@OOJ@DDCFO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  P MOVE FORM6 TO COCNUM CALL WTCOS GOTO NEXT STOP BEEP DISPLAY *P1:24,"***DONE***" WEOF COFILES,SEQ CLOSE COFILES STOP INC COIO  TO COUNT DISPLAY *P1:24,COUNT TYPE COCNUM GOTO NEXT2 IF NOT EQUAL MOVE COCNUM T@ PџAџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`AџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP INC COMMON INC CODEF INC WRKDEF COUNT FORM "000" START CALL OPCO PREP COFILES,"CONEW/TXT:DR2" NEXT CALL RKCO GOTO STOP IF OVER ADD "1" TO COUNT DISPLAY *P1:24,COUNT TYPE COCNUM GOTO NEXT2 IF NOT EQUAL MOVE COCNUM T@ OOFB@ANAGBIFKFDLDAA@@N@DJHO@CLDAA@HM@DJHO@F@OOJ@DDCFO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  `џкџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPџAџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPO FORM6 MOVE FORM6 TO COCNUM CALL WTCOS GOTO NEXT STOP BEEP DISPLAY *P1:24,"***DONE***" WEOF COFILES,SEQ CLOSE COFILES STOP INC COIO  TO COUNT DISPLAY *P1:24,COUNT TYPE COCNUM GOTO NEXT2 IF NOT EQUAL MOVE COCNUM T@ AGBIFKFDLDAA@@N@DJHO@CLDAA@HM@DJHO@F@OOJ@DDCFO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  `* . . MAINTENANCE PROGRAM FOR THE WORK ORDER HEADER . . INC COMMON INC WOHDEF INC CMDEF INC CODEF INC CMPDEF INC RCDEF INC WNDEF INC WRKDEF REVISE INIT "Rev.072681" * . . FLAGS . BCNT FORM 2 CERRFLG INIT "0" 1=CONTRACT ` ASKOPT ADDF1 NORETURN GOTO ADDF1 IF NOT OVER CALL DISPLAY GOTO ADD * . . FIND FUNCTION . FIND CALL REWRITE CMOVE "0" TO NEWFLG CALL KYKEY CALL RDWOH GOTO BADFIND IF OVER CALL BKWOH CMOVE "1" TO RECFLG CALL DISPLAY `2 CALL OPCO CALL OPCO2 CALL OPCO3 CALL OPCMP CALL OPRC CALL OPCM CALL OPWN CALL TRAPCLR CALL FORMAT MOVE F0 TO WOHVFLG MOVE F0 TO WOHPFLG * . . ASK WHICH FUNCTION TO DO . ASKOPT TRAP ABORT IF F5 KEYIN *P1:22,*EF,`E YOU WANT TO VOID THIS ": "RECORD ? (Y/N)",*P43:22,DIM1 CMATCH "Y" TO DIM1 GOTO ASKOPT IF NOT EQUAL CMOVE "1" TO WOHVFLG CMOVE "1" TO WOHPFLG CALL UPWOH CALL DISPLAY CMOVE "0" TO RECFLG GOTO ASKOPT * . . REACTIVATE A VOI` ATCH "S" TO OPTION GOTO SEARCH IF EQUAL BEEP GOTO ASKOPT * . . CHANGE A FIELD . CHG CMATCH "0" TO RECFLG GOTO BADCHG IF EQUAL CMOVE "1" TO EDTFLG CMOVE "1" TO CHGFLG MOVE OPTION TO FLDCNT CALL KEYIN GOTO ASKOPT * . . ADD `NOT ON FILE CHGFLG INIT "0" DIM15 DIM 15 EDTFLG INIT "0" KY2FLG INIT "0" NEWFLG INIT "0" RECFLG INIT "0" * . . MISC VARIABLES . OPTION DIM 8 FLDCNT FORM 2 H FORM 2 V FORM 2 EDTVAL DIM 80 EOSFLG INIT "0" DSPVAL DIM 80 DIM12 ` GOTO ASKOPT * . . GET NEXT RECORD FUNCTION . NEXT CALL REWRITE CALL RKWOH GOTO BADNEXT IF OVER CALL BKWOH CMOVE "0" TO NEWFLG CMOVE "1" TO RECFLG CALL DISPLAY CALL BKWOH GOTO ASKOPT * . . VOID THE CURRENTLY DISPLAYED RECO`"Select an item for modification or a command": " from the list below ______": *P1:23,"ADD VOID REACTIVATE EXIT FIND NEXT ": "SEARCH ": *P67:22,OPTION TYPE OPTION GOTO CHG IF EQUAL CMATCH "A" TO OPTION GOTO ADD IF EQUAL Gџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ` A NEW RECORD . ADD CALL REWRITE CMOVE "1" TO NEWFLG CALL CLEARVAL CALL KYKEY CALL RDWOH GOTO BADADD IF NOT OVER CMOVE "0" TO EDTFLG CMOVE "1" TO RECFLG MOVE F1 TO FLDCNT TRAP ADDF1 IF F1 CALL KEYIN TRAPCLR F1 GOTO`DIM 12 DIM20 DIM 20 DIM40 DIM 40 + . . MAIN PROGRAM STARTS HERE . START DISPLAY *ES,*P24:1,CANAME: *P29:2,"WORK ORDER HEADER ENTRY": *P70:1,REVISE TRAP ESCAPE IF "^" TRAP ESCAPE IF INT TRAP NOFILE IF IO CALL OPWOH CALL OPWOH` RD . VOID CMATCH "1" TO NEWFLG GOTO VOID2 IF NOT EQUAL CALL REWRITE CALL RDWOH CMOVE "1" TO RECFLG VOID2 CMATCH "0" TO RECFLG GOTO BADVOID IF EQUAL CMATCH "1" TO WOHVFLG GOTO BADVOID1 IF EQUAL KEYIN *P1:22,*EF,"ARE YOU SUR`OTO ADD IF F1 CMATCH "V" TO OPTION GOTO VOID IF EQUAL CMATCH "R" TO OPTION GOTO REACT IF EQUAL CMATCH "E" TO OPTION GOTO EXIT IF EQUAL CMATCH "F" TO OPTION GOTO FIND IF EQUAL CMATCH "N" TO OPTION GOTO NEXT IF EQUAL CMџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`FLDCNT * . . ENTER THE WORK ORDER TYPE . KYTYPE KEYIN *P1:24,*EL,*DV,WOHTYPE: *P39:5,*EL,"_",*P39:5,DIM1 CMATCH " " TO DIM1 GOTO KYTYPE1 IF NOT EOS MOVE "S" TO DIM1 KYTYPE1 CMATCH "S" TO DIM1 GOTO KYTYPE2 IF EQUAL CMATCH "I" T`ASKOPT IF NOT EQUAL CMATCH "1" TO NEWFLG GOTO DEL1 IF EQUAL CALL DLCM DEL1 CALL ERASE CMOVE "0" TO RECFLG GOTO ASKOPT * . . ABORT TRAP . ABORT NORETURN GOTO ABORT IF NOT OVER CMOVE "0" TO RECFLG CALL ERASE GOTO ASKOPT * ` *P1:24,*EL,*DV,WOHWEDT: *P39:6,*EL,"______ ",*P39:6,DIM6 CMATCH " " TO DIM6 GOTO KYWEDT1 IF NOT EOS MOVE WOHWEDT TO DIM6 KYWEDT1 MOVE DIM6 TO EDTVAL CLEAR DSPVAL MOVE "45" TO H MOVE "06" TO V CALL EDTMDY GOTO KYWEDT IF ` WNWNUM TO WOHWNUM KYKEYOK CMOVE "1" TO EDTFLG CALL KYWNUM CALL BKWOH CMOVE "0" TO KY2FLG RETURN + . . KEYIN ROUTINES . . KEYIN WORK ORDER NUMBER . KYWNUM KEYIN *P1:24,*EL,*DV,WOHWNUM: *P39:4,*EL,"______",*P39:4,*DE,*JR,DIM6 CMATC`DED RECORD . REACT CALL REWRITE MOVE "0" TO WOHVFLG MOVE "0" TO WOHPFLG CALL UPWOH CALL DISPLAY GOTO ASKOPT * . . DELETE A RECORD . . NOTE: THIS OPTION IS INDEFINATELY DISABLED....DO NOT ENABLE IT UNLESS . A ROUTINE IS WRITTEN T`O DIM1 GOTO KYTYPE2 IF EQUAL CMATCH "E" TO DIM1 GOTO KYTYPE2 IF EQUAL CMATCH "M" TO DIM1 GOTO KYTYPE2 IF EQUAL CMATCH "X" TO DIM1 GOTO KYTYPE2 IF EQUAL CMATCH "Z" TO DIM1 GOTO KYTYPE2 IF EQUAL BEEP DISPLAY *P1:24,*EL,"`. . END OF PROGRAM . EXIT CALL REWRITE CHAIN CAEXIT * . . BRANCH TO APPROPRIATE KEYIN . KEYIN BRANCH FLDCNT OF KYTYPE,KYWEDT,KYCNUM,KYANUM,KYCPER,KYRTEL,KYPNUM: KYCCOD,KYDES1,KYDES2,KYRCOD,KYSRL1,KYSRL2,KYLNUM: KYWCDT,KYACDT,KYBCOD BEEP `EOS MOVE EDTVAL TO WOHWEDT DISPLAY *P39:6,*+,DSPVAL CMATCH "1" TO EDTFLG RETURN IF EQUAL ADD F1 TO FLDCNT * . . KEYIN CONTRACT NUMBER . KYCNUM KEYIN *P39:7,*EL,"______" KYCNUMB MOVE WOHCNUM TO HLDCNUM KEYIN *P1:24,*EL,*DV,WOHCNU`H " " TO DIM6 GOTO KYWNUM1 IF NOT EOS MOVE WOHWNUM TO DIM6 KYWNUM1 MATCH BLANK TO DIM6 GOTO BADWNUM IF EQUAL MOVE DIM6 TO WOHWNUM CMOVE "1" TO KY2FLG DISPLAY *P39:4,WOHWNUM CMATCH "1" TO EDTFLG RETURN IF EQUAL ADD F1 TO `O CHECK ALL DETAIL FILES (WOE,WOD,WOP) . BEFORE DELETING THE HEADER. . DELETE CMATCH "0" TO RECFLG GOTO BADDEL IF EQUAL KEYIN *P1:22,*EF,"ARE YOU SURE YOU WANT TO DELETE THIS ": "RECORD ? (Y/N)",*P45:22,DIM1 CMATCH "Y" TO DIM1 GOTO `WORK ORDER TYPE MUST BE S,I,E,M,X OR Z !!!" PAUSE F4 GOTO KYTYPE KYTYPE2 MOVE DIM1 TO WOHTYPE DISPLAY *P39:5,WOHTYPE CMATCH "1" TO EDTFLG RETURN IF EQUAL ADD F1 TO FLDCNT * . . ENTER THE WORK ORDER DATE (MMDDYY) . KYWEDT KEYIN` RETURN * . . KEYIN THE KEY FIELDS . KYKEY CALL ERASE CMATCH "1" TO NEWFLG GOTO KYKEYADD IF EQUAL DISPLAY *P1:22,*EF,"FIND MODE" GOTO KYKEYOK KYKEYADD DISPLAY *P1:22,*EF,"ADD MODE" CALL RDWN ADD F1 TO WNWNUM CALL WTWN MOVE`& CMATCH " " TO DIM15 GOTO KYPNUM1 IF NOT EOS MOVE WOHPNUM TO DIM15 KYPNUM1 ENDSET DIM15 APPEND BLANK TO DIM15 RESET DIM15 MOVE DIM15 TO WOHPNUM DISPLAY *P39:11,WOHPNUM CMATCH "1" TO EDTFLG RETURN IF EQUAL ADD F1 TO FLDC`! CALL BKCM1 MOVE "NOT IN CUSTOMER MASTER !!!" TO CMNAME CALL RDCM KYANUM3 DISPLAY *P39:8,CMANUM,*P48:8,CMNAME CMATCH "1" TO EDTFLG RETURN IF EQUAL ADD F1 TO FLDCNT * . . KEYIN PERSON CALLING IN . KYCPER KEYIN *P1:24,*EL,*DV,WOHCP` RESET DIM6 MATCH BLANK TO DIM6 GOTO KYCNUM1A IF NOT EQUAL . BLANK CONTRACT NUMBERS ARE INVALID BEEP DISPLAY *P1:24,*EL,"A BLANK CONTRACT NUMBER IS NOT ALLOWED !!!" PAUSE F4 GOTO KYCNUM KYCNUM1A MOVE DIM6 TO WOHCNUM MOVE DIM6 T`$YRTEL1 MOVE DIM10 TO WOHRTEL CMATCH " " TO WOHRTEL GOTO KYRTEL2 IF NOT EQUAL CMATCH "1" TO EOSFLG GOTO BADTEL IF NOT EQUAL KYRTEL2 MOVE BLANK TO DIM12 MATCH BLANK TO WOHRTEL GOTO KYRTEL3 IF EQUAL MOVE "AAA-AAA-AAAA" TO DIM12 `ANUM TO DIM6 KYANUM1 ENDSET DIM6 APPEND BLANK TO DIM6 RESET DIM6 MOVE DIM6 TO CMANUM CALL BKCM CALL RDCM GOTO BADANUM IF OVER DISPLAY *P39:8,CMANUM,*P48:8,CMNAME MOVE WOHCNUM TO COCNUM MOVE CMANUM TO COANUM CALL BKCO .џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`"ER: *P39:9,*EL,"____________________",*P39:9,DIM20 CMATCH " " TO DIM20 GOTO KYCPER1 IF NOT EOS MOVE WOHCPER TO DIM20 KYCPER1 MOVE DIM20 TO WOHCPER DISPLAY *P39:9,WOHCPER CMATCH "1" TO EDTFLG RETURN IF EQUAL ADD F1 TO FLDCNT *`O COCNUM CMOVE "0" TO CERRFLG CALL BKCO1 CALL RDCO GOTO KYCNUM2 IF NOT OVER GOTO BADCNUM KYCNUM2 MOVE DIM6 TO WOHCNUM DISPLAY *P39:7,WOHCNUM MOVE F0 TO BCNT . ENTER THE CUSTOMER NUMBER IF INVALID CONTRACT ENTERED CMATCH "1" `% EDIT WOHRTEL TO DIM12 KYRTEL3 DISPLAY *P39:10,DIM12 CMATCH "1" TO EDTFLG RETURN IF EQUAL ADD F1 TO FLDCNT * . . KEYIN CUSTOMER PURCHASE ORDER NUMBER . KYPNUM KEYIN *P1:24,*EL,*DV,WOHPNUM: *P39:11,*EL,"_______________",*P39:11,DIM15 ` IF CONTRACT ALREADY ON FILE THEN BYPASS WRITE CALL RDCO GOTO KYANUM2 IF NOT OVER DISPLAY *P1:24,*EL,"NOW CREATING CONTRACT HEADER...." PAUSE F2 CALL WTCO KYANUM2 DISPLAY *P1:24,*EL MOVE COBCOD TO WOHBCOD MOVE COANUM TO CMANUM `M,*P39:7,DIM6 CMATCH " " TO DIM6 GOTO KYCNUM1 IF NOT EOS MOVE WOHCNUM TO DIM6 COMPARE F0 TO BCNT GOTO KYCNUM1 IF NOT EQUAL BEEP DISPLAY *P48:7,"*REQUIRED*" PAUSE F4 GOTO KYCNUM KYCNUM1 ENDSET DIM6 APPEND BLANK TO DIM6 `# . . KEYIN REFERENCE TELEPHONE NUMBER . KYRTEL KEYIN *P1:24,*EL,*DV,WOHRTEL: *P39:10,*EL,"__________",*P39:10,*JR,*DE,DIM10 CMOVE "0" TO EOSFLG CMATCH " " TO DIM10 GOTO KYRTEL1 IF NOT EOS CMOVE "1" TO EOSFLG MOVE WOHRTEL TO DIM10 K`TO CERRFLG GOTO KYANUM2 IF NOT EQUAL * . . IF CONTRACT IS NOT ON FILE THEN ENTER CUSTOMER NUMBER AND CREATE ONE . KYANUM KEYIN *P39:8,"______",*EL,*P39:8,*DE,*JR,DIM6,*P39:8,*DV,DIM6 CMATCH " " TO DIM6 GOTO KYANUM1 IF NOT EOS MOVE CM`1EOS MOVE WOHSRL2 TO DIM40 KYSRL21 MOVE DIM40 TO WOHSRL2 DISPLAY *P39:17,WOHSRL2 CMATCH "1" TO EDTFLG RETURN IF EQUAL ADD F1 TO FLDCNT * . . KEYIN ADMINISTRATIVE LOCATION CODE . KYLNUM KEYIN *P1:24,*EL,*DV,WOHLNUM: *P39:18,*EL,"__`, *P39:14,WOHDES2 CMATCH "1" TO EDTFLG RETURN IF EQUAL ADD F1 TO FLDCNT * . . KEYIN REPAIR CODE . KYRCOD KEYIN *P1:24,*EL,*DV,WOHRCOD: *P39:15,*EL,"__",*P39:15,*JR,*DE,DIM2 CMATCH " " TO DIM2 GOTO KYRCOD1 IF NOT EOS MOVE WOHRCOD`'NT * . . KEYIN COMPLAINT CODE . KYCCOD KEYIN *P1:24,*EL,*DV,WOHCCOD: *P39:12,*EL,"__",*P39:12,*JR,DIM2 CMATCH " " TO DIM2 GOTO KYCCOD1 IF NOT EOS MOVE WOHCCOD TO DIM2 MATCH BLANK TO DIM2 GOTO KYCCOD2 IF EQUAL KYCCOD1 MOVE DIM2 TO`/ *P1:24,*EL,*DV,WOHSRL1: *P39:16,*EL,"_______________________________": "_________",*P39:16,DIM40 CMATCH " " TO DIM40 GOTO KYSRL11 IF NOT EOS MOVE WOHSRL1 TO DIM40 KYSRL11 MOVE DIM40 TO WOHSRL1 DISPLAY *P39:16,WOHSRL1 CMATCH "1"`* "_________",*P39:13,DIM40 CMATCH " " TO DIM40 GOTO KYDES11 IF NOT EOS MOVE WOHDES1 TO DIM40 KYDES11 MOVE DIM40 TO WOHDES1 DISPLAY *P39:13,WOHDES1 CMATCH "1" TO EDTFLG RETURN IF EQUAL ADD F1 TO FLDCNT * . . KEYIN COMPLAINT DES`2",*P39:18,*JR,*DE,DIM2 CMATCH " " TO DIM2 GOTO KYLNUM1 IF NOT EOS MOVE WOHLNUM TO DIM2 KYLNUM1 MOVE DIM2 TO WOHLNUM DISPLAY *P39:18,WOHLNUM CMATCH "1" TO EDTFLG RETURN IF EQUAL ADD F1 TO FLDCNT * . . KEYIN WORK ORDER COMPLETION`- TO DIM2 MATCH BLANK TO DIM2 GOTO KYRCOD2 IF EQUAL KYRCOD1 MOVE DIM2 TO RCCODE CALL BKRC1 CALL RDRC GOTO BADRCOD IF OVER MOVE DIM2 TO WOHRCOD MOVE RCDES1 TO WOHSRL1 MOVE RCDES2 TO WOHSRL2 DISPLAY *P39:15,WOHRCOD,*P39:16,W`( CMPCODE CALL BKCMP1 CALL RDCMP GOTO BADCCOD IF OVER MOVE DIM2 TO WOHCCOD MOVE CMPDES1 TO WOHDES1 MOVE CMPDES2 TO WOHDES2 DISPLAY *P39:12,WOHCCOD,*P39:13,WOHDES1,*P39:14,WOHDES2 CMATCH "1" TO EDTFLG RETURN IF EQUAL ADD F`0 TO EDTFLG RETURN IF EQUAL ADD F1 TO FLDCNT * . . KEYIN SERVICE RENDERED LINE 2 . KYSRL2 KEYIN *P1:24,*EL,*DV,WOHSRL2: *P39:17,*EL,"_______________________________": "_________",*P39:17,DIM40 CMATCH " " TO DIM40 GOTO KYSRL21 IF NOT `+CRIPTION LINE 2 . KYDES2 KEYIN *P1:24,*EL,*DV,WOHDES2: *P39:14,*EL,"_______________________________": "_________",*P39:14,DIM40 CMATCH " " TO DIM40 GOTO KYDES21 IF NOT EOS MOVE WOHDES2 TO DIM40 KYDES21 MOVE DIM40 TO WOHDES2 DISPLAYџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`.OHSRL1,*P39:17,WOHSRL2 CMATCH "1" TO EDTFLG RETURN IF EQUAL ADD F3 TO FLDCNT GOTO KYLNUM KYRCOD2 DISPLAY *P39:15,WOHRCOD CMATCH "1" TO EDTFLG RETURN IF EQUAL ADD F1 TO FLDCNT * . . KEYIN SERVICE RENDERED LINE 1 . KYSRL1 KEYIN`)3 TO FLDCNT RETURN KYCCOD2 DISPLAY *P39:12,WOHCCOD CMATCH "1" TO EDTFLG RETURN IF EQUAL ADD F1 TO FLDCNT * . . KEYIN COMPLAINT DESCRIPTION LINE 1 . KYDES1 KEYIN *P1:24,*EL,*DV,WOHDES1: *P39:13,*EL,"_______________________________": `3 DATE . KYWCDT KEYIN *P1:24,*EL,*DV,WOHWCDT: *P39:19,*EL,"______",*P39:19,DIM6 CMATCH " " TO DIM6 GOTO KYWCDT1 IF NOT EOS MOVE WOHWCDT TO DIM6 KYWCDT1 MOVE DIM6 TO EDTVAL CLEAR DSPVAL MOVE "45" TO H MOVE "19" TO V CALL EDTM`;E/NONBILLABLE CODE........." RETURN + . . DISPLAY ROUTINE . DISPLAY DISPLAY *P1:24,*EL: *P39:4,WOHWNUM,*EL MOVE " ***VOID***" TO DSPVAL CMATCH "1" TO WOHVFLG GOTO DISPLAY1 IF EQUAL MOVE BLANK TO DSPVAL DISPLAY1 DISPLAY *P50:4,DSPV`6SPVAL CMATCH "1" TO EDTFLG RETURN IF EQUAL ADD F1 TO FLDCNT * . . KEYIN BILLABLE/NONBILLABLE CODE . KYBCOD KEYIN *P1:24,*EL,*DV,WOHBCOD: *P39:21,*EL,"_",*P39:21,DIM1 CMATCH " " TO DIM1 GOTO KYBCOD1 IF NOT EOS MOVE WOHBCOD TO DIM`>EL TO DIM12 DISPLAY3 DISPLAY *P39:9,WOHCPER: *P39:10,DIM12: *P39:11,WOHPNUM: *P39:12,WOHCCOD: *P39:13,WOHDES1: *P39:14,WOHDES2: *P39:15,WOHRCOD: *P39:16,WOHSRL1: *P39:17,WOHSRL2: *P39:18,WOHLNUM MOVE "15" TO FLDCNT MOVE BLANK`9 ORDER NUMBER....": *P1:12," 8 COMPLAINT CODE....................": *P1:13," 9 COMPLAINT DESCRIPTION LINE 1......": *P1:14," 10 COMPLAINT DESCRIPTION LINE 2......": *P1:15," 11 REPAIR CODE.......................": *P1:16," 12 REPAIR DESCR`4DY GOTO KYWCDT IF EOS MOVE EDTVAL TO WOHWCDT DISPLAY *P39:19,*+,DSPVAL CMATCH "1" TO EDTFLG RETURN IF EQUAL ADD F1 TO FLDCNT * . . KEYIN ACCOUNTING COMPLETION DATE . KYACDT KEYIN *P1:24,*EL,*DV,WOHACDT: *P39:20,*EL,"______",*P39`<AL MOVE WOHWEDT TO EDTVAL MOVE BLANK TO DSPVAL CLEAR DSPVAL CALL EDTMDY CALL BADDISP IF EOS DISPLAY *P39:5,WOHTYPE: *P39:6,DSPVAL: *P39:7,WOHCNUM MOVE "*CONTRACT/CUSTOMER N/A*" TO CMNAME MATCH BLANK TO WOHCNUM MOVE WOHC`71 KYBCOD1 MOVE DIM1 TO WOHBCOD DISPLAY *P39:21,WOHBCOD RETURN + . . FORMAT ROUTINE . FORMAT DISPLAY *P1:3,*EF: *P1:4," WORK ORDER NUMBER.................": *P1:5," 1 TYPE..............................": *P1:6," 2 ENTRY DATE.........џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`:IPTION LINE 1.........": *P1:17," 13 REPAIR DESCRIPTION LINE 2.........": *P1:18," 14 ADMINISTRATIVE LOCATION CODE......": *P1:19," 15 WORK ORDER COMPLETION DATE........": *P1:20," 16 ACCOUNTING COMPLETION DATE........": *P1:21," 17 BILLABL`5:20,DIM6 CMATCH " " TO DIM6 GOTO KYACDT1 IF NOT EOS MOVE WOHACDT TO DIM6 KYACDT1 MOVE DIM6 TO EDTVAL CLEAR DSPVAL MOVE "45" TO H MOVE "20" TO V CALL EDTMDY GOTO KYACDT IF EOS MOVE EDTVAL TO WOHACDT DISPLAY *P39:20,*+,D`=NUM TO COCNUM CALL BKCO CALL RDCO MOVE COANUM TO CMANUM CALL BKCM CALL RDCM DISPLAY *P39:8,COANUM,*P48:8,CMNAME MOVE BLANK TO DIM12 MATCH BLANK TO WOHRTEL GOTO DISPLAY3 IF EQUAL MOVE "AAA-AAA-AAAA" TO DIM12 EDIT WOHRT`8...............": *P1:7," 3 CONTRACT NUMBER...................": *P1:8," 4 CUSTOMER NUMBER...................": *P1:9," 5 PERSON CALLING IN.................": *P1:10," 6 REFERENCE TELEPHONE NUMBER........": *P1:11," 7 CUSTOMER PURCHASEџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ `FUSTOMER MASTER !!!" GOTO KYANUM * . . CONTRACT NOT ON FILE . BADCNUM CMOVE "1" TO CERRFLG COMPARE F0 TO BCNT GOTO BADCNUM2 IF EQUAL MATCH HLDCNUM TO WOHCNUM GOTO KYCNUM2 IF EQUAL MOVE F0 TO BCNT BADCNUM2 ADD F1 TO BCNT BEEP `A *P39:18,*EL: *P39:19,*EL: *P39:20,*EL: *P39:21,*EL RETURN * . . INITIALIZE VALUES . CLEARVAL MOVE "S" TO WOHTYPE MOVE BLANK TO WOHWNUM MOVE BLANK TO WOHCNUM CMOVE "0" TO WOHVFLG MOVE BLANK TO WOHLNUM MOVE BLANK TO WOHPNUM `I GOTO BADRET BADADD BEEP DISPLAY *P1:24,"THAT RECORD ALREADY EXISTS" GOTO BADRET BADNEXT BEEP DISPLAY *P1:24,"THERE ARE NO MORE RECORDS IN THE FILE" CALL ERASE BADRCOD BEEP DISPLAY *P1:24,*EL,"REPAIR CODE IS NOT IN THE REPAIR CODE`D "0" TO WOHPFLG RETURN * . . WRITE OR REWRITE RECORD TO FILE . REWRITE CMATCH "0" TO RECFLG RETURN IF EQUAL CMOVE "0" TO RECFLG CMATCH "1" TO NEWFLG GOTO REWRITE1 IF EQUAL CMATCH "0" TO CHGFLG RETURN IF EQUAL CALL UPWOH CM`? TO DSPVAL CLEAR DSPVAL MOVE WOHWCDT TO EDTVAL CALL EDTMDY DISPLAY *P39:19,*+,DSPVAL MOVE BLANK TO DSPVAL CLEAR DSPVAL MOVE WOHACDT TO EDTVAL MOVE "16" TO FLDCNT CALL EDTMDY DISPLAY *P39:20,*+,DSPVAL: *P39:21,WOHBCOD `G DISPLAY *P48:7,*EL,"*NOT ON FILE*" PAUSE F4 GOTO KYCNUMB . BADDISP RESET DSPVAL TO 8 APPEND " *INVALID ENTRY DATE*" TO DSPVAL RESET DSPVAL RETURN . BADPNUM BEEP GOTO KYPNUM BADCPER BEEP GOTO KYCPER BADCCOD BEEP DISPLAY`BMOVE BLANK TO WOHCPER MOVE BLANK TO WOHRTEL MOVE BLANK TO WOHCCOD MOVE BLANK TO WOHDES1 MOVE BLANK TO WOHDES2 MOVE BLANK TO WOHRCOD MOVE BLANK TO WOHSRL1 MOVE BLANK TO WOHSRL2 CLEAR WOHWEDT MOVE MO TO DIM2 APPEND DIM2 T`J ": "FILE !!!" PAUSE F4 GOTO KYRCOD BADVOID BEEP DISPLAY *P1:24,"THERE IS NO RECORD CURRENTLY DISPLAYED" GOTO BADRET BADDEL BEEP DISPLAY *P1:24,"THERE IS NO RECORD CURRENTLY DISPLAYED" GOTO BADRET BADVOID1 BEEP DISPLAY *P1:24`EATCH "1" TO KY2FLG CALL CKWOH2 IF EQUAL RETURN REWRITE1 CALL BKWOH CALL WTWOH RETURN * . . RESET PAGE COUNTER TO PAGE ONE . PAGEONE RETURN + . . ERRORS . BADWNUM BEEP GOTO KYWNUM BADANUM BEEP DISPLAY *P1:24,*EL,"CUSTOMER NOT IN C`@ RETURN + . . ERASE ROUTINE . ERASE DISPLAY *P39:4,*EL: *P39:5,*EL: *P39:6,*EL: *P39:7,*EL: *P39:8,*EL: *P39:9,*EL: *P39:10,*EL: *P39:11,*EL: *P39:12,*EL: *P39:13,*EL: *P39:14,*EL: *P39:15,*EL: *P39:16,*EL: *P39:17,*EL: `H *P1:24,*EL,"COMPLAINT CODE NOT IN THE COMPLAINT ": "CODE FILE !!!" PAUSE F4 GOTO KYCCOD BADDES1 BEEP GOTO KYDES1 BADDES2 BEEP GOTO KYDES2 BADCHG BEEP GOTO ASKOPT BADFIND BEEP DISPLAY *P1:24,"THAT RECORD COULD NOT BE FOUND" `CO WOHWEDT MOVE DAY TO DIM2 REPLACE ZPAD IN DIM2 APPEND DIM2 TO WOHWEDT MOVE YEAR TO DIM2 REPLACE ZPAD IN DIM2 APPEND DIM2 TO WOHWEDT RESET WOHWEDT MOVE BLANK TO WOHWCDT MOVE BLANK TO WOHACDT MOVE BLANK TO WOHBCOD CMOVEpP69:7,"==",*P72:7,"====" CMATCH "Y" TO FIRSTFLG GOTO SRCKY1A IF EQUAL * . . KEYIN SITE/CUSTOMER NUMBER . SRCKY1 KEYIN *P1:24,*EL,*P12:4,"______",*P12:4,*DE,*JR,DIM6 CMATCH " " TO DIM6 GOTO SRCEXIT IF EOS MOVE DIM6 TO CMANUM SRCKY1pџ"†џџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`LF4 GOTO KYRTEL * . . VOID THIS WORK ORDER IF ESCAPE REQUESTED . ESCAPE NORETURN CMATCH "1" TO NEWFLG GOTO ESCAPE2 IF NOT EQUAL CMOVE "1" TO RECFLG CMOVE "1" TO WOHVFLG CMOVE "1" TO WOHPFLG CALL REWRITE ESCAPE2 CALL ERASE p+ . . ROUTINE TO PERFORM SEARCH . SEARCH CALL REWRITE CMOVE "Y" TO FIRSTFLG MOVE WOHWNUM TO HLDWNUM MOVE WOHCNUM TO HLDCNUM SEARCH2 DISPLAY *P1:3,*EF: *P4:4,"SITE ##: ________": *P1:6,"Ln",*P4:6,"Contr##",*P11:6,"Typ": *P17:6,"I џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ pџ"†џџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`MTRAP ESCAPE IF "^" TRAP ESCAPE IF INT GOTO ASKOPT INC WRKIO INC WRKEDT INC SEARCHC INC SEARCHW INC WOHIO INC CMIO INC COIO INC CMPIO INC RCIO INC WNIO CMOVE "1" TO WOHPFLG CALL REWRITE ESCAPE2 CALL ERASE pnstallation address",*P41:6,"Inst.date": *P51:6,"WXP.date",*P60:6,"MXP.date": *P69:6,"TM",*P72:6,"B/NB": *P1:7,"==",*P4:7,"======",*P11:7,"===": *P15:7,"=========================": *P41:7,"=========",*P51:7,"========",*P60:7,"========": * `K,*EL,"THIS WORK ORDER HAS ALREADY BEEN PRINTED...": "VOID NOT ALLOWED !!!" GOTO BADRET BADRET PAUSE F3 DISPLAY *P1:24,*EL GOTO ASKOPT BADTEL BEEP DISPLAY *P1:24,*EL,"TELEPHONE MUST BE FILLED AND INCLUDE AREA ": "CODE !!!" PAUSE pкџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`NSCAPE IF "^" TRAP ESCAPE IF INT GOTO ASKOPT INC WRKIO INC WRKEDT INC SEARCHC INC SEARCHW INC WOHIO INC CMIO INC COIO INC CMPIO INC RCIO INC WNIO CMOVE "1" TO WOHPFLG CALL REWRITE ESCAPE2 CALL ERASE p CALL DISPLAY GOTO ASKOPT . SRCEXIT2 CALL FORMAT GOTO ASKOPT * . . ROUTINE TO BLANK OUT SCREEN VARIABLES . SRCBLNK MOVE BLANK TO SRLN01 MOVE BLANK TO SRLN02 MOVE BLANK TO SRLN03 MOVE BLANK TO SRLN04 MOVE BLANK TO SRLN05 p SRLN04,SRLN05,SRLN06,SRLN07 MATCH BLANK TO DIM12 GOTO SRCERR1 IF EQUAL RESET DIM12 TO 7 MOVE DIM12 TO WOHCNUM RESET DIM12 CMOVE "Y" TO FIRSTFLG GOTO SEARCHW .ACTIVATE WHEN SEARCHW COMPLETED * . . INITIALIZE SCREEN VARIABLES pA CALL BKCM1 CALL RDCM GOTO SRCERR2 IF OVER MOVE CMANUM TO COANUM DISPLAY *P12:4,*EL,COANUM,*P28:4,CMNAME * . . BEGIN SEARCH . SRCSTRT MOVE BLANK TO COCNUM CALL BKCO2 READ COFILE2,COKEY2;; MOVE F0 TO SRLINE CALL SRCBLNKpDSPVAL CALL EDTMDY GOTO SRCDSPL4 IF EOS DISPLAY *P60:V,*+,DSPVAL SRCDSPL4 DISPLAY *P69:V,COTMCD: *P73:V,COBCOD CALL BKCO2 STORE COKEY2 INTO SRLINE OF SRLN01,SRLN02,SRLN03: SRLN04,SRLN05,SRLN06,SRLN07 GOTO SRCNEXT * . . END OFp TO DIM8 GOTO SRCINIT IF EQUAL MATCH "EXIT" TO DIM8 GOTO SRCEXIT IF EQUAL MATCH "RESTART" TO DIM8 GOTO SRCASK2 IF NOT EQUAL CMOVE "N" TO FIRSTFLG GOTO SEARCH2 . SEE IF VALID LINE NO WAS ENTERED SRCASK2 TYPE DIM8 GOTO SRCERR1pMOVE BLANK TO SRLN06 MOVE BLANK TO SRLN07 RETURN * . . ERROR EXITS . SRCERR1 BEEP GOTO SRCASK . SRCERR2 BEEP DISPLAY *P1:24,*EL,"CUSTOMER NOT IN CUSTOMER MASTER !!!" PAUSE F4 GOTO SRCKY1 K TO SRLN04 MOVE BLANK TO SRLN05 p . SRCINIT CALL SRCBLNK * . . COMPUTE VERTICAL POSITION AND DISPLAY LINE . SRCDSPL MOVE SRLINE TO V SUB F1 FROM V MULT F2 BY V ADD F8 TO V DISPLAY *P1:V,*EF: *P1:V,SRLINE,*P4:V,COCNUM,*P12:V,COLSCD: *P15:V,COADR1 MOVE COIDATp * . . READ NEXT RECORD FROM FILE . SRCNEXT CALL RKCO2 GOTO SRCDONE IF OVER MATCH COANUM TO CMANUM GOTO SRCDONE IF NOT EQUAL * . . INCREMENT LINE & CHECK FOR END OF SCREEN . SRCINCR ADD F1 TO SRLINE COMPARE F8 TO SRLINE GOTO p SEARCH . SRCDONE BEEP DISPLAY *P1:22,*EF: "END OF SEARCH." PAUSE F2 GOTO SRCASK * . . EXIT FROM SEARCH . SRCEXIT MOVE HLDWNUM TO WOHWNUM MOVE HLDCNUM TO WOHCNUM CALL BKWOH CALL RDWOH GOTO SRCEXIT2 IF OVER CALL FORMATp IF NOT EQUAL MOVE F0 TO SRPNTR MOVE DIM8 TO SRPNTR COMPARE F1 TO SRPNTR GOTO SRCERR1 IF LESS COMPARE F8 TO SRPNTR GOTO SRCERR1 IF NOT LESS . LOAD CUSTOMER, DISPLAY & GO TO ASKOPT LOAD DIM12 FROM SRPNTR OF SRLN01,SRLN02,SRLN03: џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџp TO EDTVAL CLEAR DSPVAL CALL EDTMDY GOTO SRCDSPL2 IF EOS DISPLAY *P41:V,*+,DSPVAL SRCDSPL2 MOVE COWXDT TO EDTVAL CLEAR DSPVAL CALL EDTMDY GOTO SRCDSPL3 IF EOS DISPLAY *P51:V,*+,DSPVAL SRCDSPL3 MOVE COMXDT TO EDTVAL CLEAR pSRCDSPL IF LESS MOVE F1 TO SRLINE * . . END OF SCREEN - ASK FOR CONTINUE . SRCASK KEYIN *P1:22,*EF: "Select line number or a command from the ": "list below ________": *P1:23,"CONTINUE EXIT RESTART": *P53:22,DIM8 MATCH "CONTINUE"pLANK TO SRLN06 MOVE BLANK TO SRLN07 RETURN * . . ERROR EXITS . SRCERR1 BEEP GOTO SRCASK . SRCERR2 BEEP DISPLAY *P1:24,*EL,"CUSTOMER NOT IN CUSTOMER MASTER !!!" PAUSE F4 GOTO SRCKY1 K TO SRLN04 MOVE BLANK TO SRLN05 €KEYIN CONTRACT NUMBER . SRKY1 KEYIN *P1:24,*EL,*P13:4,"______",*P13:4,DIM6 CMATCH " " TO DIM6 GOTO SREXIT IF EOS MOVE DIM6 TO COCNUM SRKY1A CALL BKCO1 CALL RDCO GOTO SRERR2 IF OVER MOVE COCNUM TO WOHCNUM MOVE COANUM TO CMANU€џ$Fџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ €E & CHECK FOR END OF SCREEN . SRINCR ADD F1 TO SRLINE COMPARE F8 TO SRLINE GOTO SRDSPL IF LESS MOVE F1 TO SRLINE * . . END OF SCREEN - ASK FOR CONTINUE . SRASK KEYIN *P1:22,*EF: "Select line number or a command from the ": "list €+ . . ROUTINE TO PERFORM SEARCH . SEARCHW CALL REWRITE CMOVE "Y" TO FIRSTFLG MOVE WOHCNUM TO COCNUM SEARCHW2 DISPLAY *P1:3,*EF: *P1:4,"CONTRACT ##: ______": *P1:6,"Ln",*P4:6,"W.O.##",*P11:6,"Typ": *P15:6,"Loc",*P29:6,"Service render €M MOVE BLANK TO CMNAME MOVE "*CUSTOMER N/A*" TO CMNAME CALL BKCM1 CALL RDCM DISPLAY *P13:4,*EL,WOHCNUM,*P28:4,CMNAME: *P62:4,"SITE ## ",CMANUM * . . BEGIN SEARCH . SRSTRT MOVE BLANK TO WOHWNUM CALL BKWOH2 READ WOHFILE2,WOH€џ$Fџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€ed": *P60:6,"Entered",*P69:6,"Complete": *P1:7,"==",*P4:7,"======",*P11:7,"===": *P15:7,"===": *P19:7,"========================================": *P60:7,"========",*P69:7,"========" CMATCH "Y" TO FIRSTFLG GOTO SRKY1A IF EQUAL * . .  €KEY2;; MOVE F0 TO SRLINE CALL SRBLNK * . . READ NEXT RECORD FROM FILE . SRNEXT CALL RKWOH2 GOTO SRDONE IF OVER MATCH COCNUM TO WOHCNUM GOTO SRDONE IF NOT EQUAL CMATCH "1" TO WOHVFLG GOTO SRNEXT IF EQUAL * . . INCREMENT LIN€"†џџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ €L FORMAT CALL DISPLAY GOTO ASKOPT . SREXIT3 CALL FORMAT GOTO ASKOPT * . . ROUTINE TO BLANK OUT SCREEN VARIABLES . SRBLNK MOVE BLANK TO SRLN01 MOVE BLANK TO SRLN02 MOVE BLANK TO SRLN03 MOVE BLANK TO SRLN04 MOVE BLANK TO S€ OMER, DISPLAY & GO TO ASKOPT LOAD DIM12 FROM SRPNTR OF SRLN01,SRLN02,SRLN03: SRLN04,SRLN05,SRLN06,SRLN07 MATCH BLANK TO DIM12 GOTO SRERR1 IF EQUAL RESET DIM12 TO 7 MOVE DIM12 TO WOHWNUM RESET DIM12 SETLPTR DIM12 TO 6 MOVE DI €SPVAL SRDSPL2 MOVE WOHWCDT TO EDTVAL CLEAR DSPVAL CALL EDTMDY GOTO SRDSPL3 IF EOS DISPLAY *P69:V,*+,DSPVAL SRDSPL3 CALL BKWOH2 STORE WOHKEY2 INTO SRLINE OF SRLN01,SRLN02,SRLN03: SRLN04,SRLN05,SRLN06,SRLN07 GOTO SRNEXT * . . € below ________": *P1:23,"CONTINUE EXIT RESTART": *P53:22,DIM8 MATCH "CONTINUE" TO DIM8 GOTO SRINIT IF EQUAL MATCH "EXIT" TO DIM8 GOTO SREXIT IF EQUAL MATCH "RESTART" TO DIM8 GOTO SRASK2 IF NOT EQUAL CMOVE "N" TO FIRSTFLG €RLN05 MOVE BLANK TO SRLN06 MOVE BLANK TO SRLN07 RETURN * . . ERROR EXITS . SRERR1 BEEP GOTO SRASK . SRERR2 BEEP DISPLAY *P1:24,*EL,"CONTRACT NOT IN CONTRACT HEADER FILE !!!" PAUSE F4 GOTO SRKY1  TO SRLN04 MOVE BLANK TO S€ M12 TO WOHCNUM SETLPTR DIM12 TO 12 GOTO SREXIT2 * . . INITIALIZE SCREEN VARIABLES . SRINIT CALL SRBLNK * . . COMPUTE VERTICAL POSITION AND DISPLAY LINE . SRDSPL MOVE SRLINE TO V SUB F1 FROM V MULT F2 BY V ADD F8 TO V MOVE  €END OF SEARCH . SRDONE BEEP DISPLAY *P1:22,*EF: "END OF SEARCH." PAUSE F2 GOTO SRASK * . . EXIT FROM SEARCH . SREXIT MOVE HLDWNUM TO WOHWNUM MOVE HLDCNUM TO WOHCNUM SREXIT2 CALL BKWOH CALL RDWOH GOTO SREXIT3 IF OVER CAL€ GOTO SEARCHW2 . SEE IF VALID LINE NO WAS ENTERED SRASK2 TYPE DIM8 GOTO SRERR1 IF NOT EQUAL MOVE F0 TO SRPNTR MOVE DIM8 TO SRPNTR COMPARE F1 TO SRPNTR GOTO SRERR1 IF LESS COMPARE F8 TO SRPNTR GOTO SRERR1 IF NOT LESS . LOAD CUST€ MOVE BLANK TO SRLN06 MOVE BLANK TO SRLN07 RETURN * . . ERROR EXITS . SRERR1 BEEP GOTO SRASK . SRERR2 BEEP DISPLAY *P1:24,*EL,"CONTRACT NOT IN CONTRACT HEADER FILE !!!" PAUSE F4 GOTO SRKY1  TO SRLN04 MOVE BLANK TO S€ V TO FORM2 ADD F1 TO FORM2 DISPLAY *P1:V,*EF: *P1:V,SRLINE,*P4:V,WOHWNUM,*P12:V,WOHTYPE: *P15:V,WOHLNUM,*P19:V,WOHSRL1,*P19:FORM2,WOHSRL2 MOVE WOHWEDT TO EDTVAL CLEAR DSPVAL CALL EDTMDY GOTO SRDSPL2 IF EOS DISPLAY *P60:V,*+,D` 6 RESET S4,1 8 CALL X20 9 CMATCH "1",S7 6 GOTO X21 IF ZERO 1 MOVE S4,N4 7 MOVE S5,S4 7 CALL X20 9 CMATCH "1",S7 6 GOTO X21 IF ZERO 1 MOVE S5,N5 7 COMPARE N5,N4 7 GOTO X21 IF NOT LESS - MOVE "X",S8 6 GOTO X22` X4 : X3 KEYIN *P1:3,*EL,*P1:6,*EL,*P1:9,*EL,*P1:12,*EL,*P25:1: S2 : DISPLAY *P25:1,S2 3 TRAP X5 IF RANGE 1 TRAP X6 IF IO 4 TYPE S2 : GOTO X7 IF ZERO 2 CMATCH "*",S2 6 GOTO X4 IF ZERO 2 DISPLAY *P50:12,*EL,"THAT'S A NO `џ&џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ` GOTO X13 9 X9 MOVE "@",S11 5 GOTO X14 9 X11 MOVE "1",N6 6 ADD "3",N7 6 GOTO X12 9 X10 KEYIN *P50:12,*EL,"WHICH BYTE? ",S6  CMATCH "*",S6 6 GOTO X3 IF ZERO 2 MATCH "EOF",S6 4 GOTO X15 IF NOT ZERO - GOTO X15 IF LESS 1 `1^^^^^^^^21^^^^^^^^31^^^^^^^^41^^^^^^^^51": "^^^^^^^^61^^^^^^^^71^^^^^^^^",*P1:5,"81^^^^^": "^^^91^^^^^^^^101^^^^^^^111^^^^^^^121^^^^^^^1": "31^^^^^^^141^^^^^^^151^^^^^^^",*P1:8,"161^^^": "^^^^171^^^^^^^181^^^^^^^191^^^^^^^201^^^^^^^" `NO!"  GOTO X3 : X7 MOVE S2,N2 7 MOVE "1",N3 6 MOVE "3",N7 6 MOVE "1",N6 6 TABPAGE ? X12 READ F1,N2;*N3,S11; . GOTO X8 IF OVER 2 X13 CMATCH "~",S11 5 GOTO X9 IF NOT LESS . CMATCH " ",S11 5 GOTO X9 IF LESS 2 MATCH S1`N1 FORM *34 9 F1 FILE B S1 DIM 8 ; N2 FORM "00000" 5 S2 DIM 5 ; S3 DIM 1 ; N3 FORM "000" 7 N4 FORM "000" 7 N5 FORM "000" 7 S4 DIM 4 ; S5 DIM 3 ; S6 DIM 7 ; S7 DIM 1 ; S8 DIM 1 ; S9 DIM 3 ; S10 DIM 1 ; S11 DIM 1 ; S12` GOTO X16 9 X15 MOVE " ",S8 6 MOVE "000",S4 4 X19 CMATCH "-",S6 6 GOTO X3 IF EOS 3 GOTO X17 IF ZERO 1 MOVE S6,S3 7 APPEND S3,S4 7 BUMP S6,1 8 GOTO X18 IF EOS 2 GOTO X19 9 X17 BUMP S6,1 8 MOVE S6,S5 7 CMOVE "0",S7`: "211^^^^^^^221^^^^^^^231^^^^^^^",*P1:11,"241^": "^^^^^^" 4 X4 TRAP X1 IF IO 4 KEYIN *P7:1,S1 4 CMATCH "*",S1 6 GOTO X2 IF ZERO 2 DISPLAY *P7:1,S1 4 OPEN F1,S1 7 GOTO X3 : X1 DISPLAY *P50:12,*EL,"NO SUCH FILE" " GOTO`џ&џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ `2,S11 5 GOTO X9 IF ZERO 2 X14 DISPLAY *PN6:N7,S11 1 ADD "1",N3 6 COMPARE "250",N3 4 GOTO X10 IF ZERO 1 ADD "1",N6 6 COMPARE "81",N6 5 GOTO X11 IF ZERO 1 GOTO X12 9 X8 DISPLAY *P70:12,"EOF AT ",N3 ( KEYIN *P80:12,S14 1 ` INIT "|" 9 S13 INIT " N6 FORM "00" 8 N7 FORM "00" 8 N8 FORM "000" 7 N9 FORM "000" 7 N10 FORM "000" 7 S14 DIM 1 ; + DISPLAY *ES,*P35:1,"DUMP/FIX",*P1:1,"FILE: filename ": " LRN: ",*P70:1,"RDD A.C.A",*P1:2,"1^^^^^^^": "^^1` X10 9 X24 MOVE "3",N7 6 MOVE N3,N10 6 X67 COMPARE "81",N10 4 GOTO X66 IF LESS 1 SUB "80",N10 4 ADD "3",N7 6 GOTO X67 9 X66 MOVE N10,N6 6 X69 KEYIN *PN6:N7,*+,S10 . CMATCH S10,S10 5 GOTO X10 IF EOS 2 WRITAB F1,N2;*N3,`25 9 X48 CMOVE "%",S9 6 GOTO X25 9 X49 CMOVE "%",S9 6 GOTO X25 9 X50 CMOVE "%",S9 6 GOTO X25 9 X51 CMOVE "%",S9 6 GOTO X25 9 X52 CMOVE "%",S9 6 GOTO X25 9 X53 CMOVE "%",S9 6 GOTO X25 9 X54 CMOVE "%",S9 6 GOTO X25 9 ` 9 X18 RESET S6,1 8 MOVE S6,S4 7 CALL X20 9 CMATCH "1",S7 6 GOTO X21 IF ZERO 1 MOVE S4,N3 7 MOVE " ",S8 6 TABPAGE ? X22 KEYIN *P50:12,*EL,"TO WHAT? ",S9 " MATCH "CHA",S9 4 GOTO X23 IF NOT ZERO - GOTO X23 IF LESS 1 G` WRITAB F1,N2;*N3,S10; . CALL X61 9 COMPARE N5,N3 7 GOTO X10 IF ZERO 1 ADD "1",N3 6 GOTO X62 9 X61 MOVE "3",N7 6 MOVE N3,N10 6 X64 COMPARE "81",N10 4 GOTO X63 IF LESS 1 SUB "80",N10 4 ADD "3",N7 6 GOTO X64 9 X63 ` GOTO X25 9 X29 CMOVE "MOVE "%",S9 , GOTO X25 9 X35 CMOVE "%",S9 6 GOTO X25 9 X36 CMOVE " ",S9  GOTO X25 9 X37 CMOVE "%",S9 6 GOTO X25 9 X38 CMOVE "%",S9 6 GOTO X25 9 X39 CMOVE "%",S9 6 GOTO X25 9 X40 CMOVE " GO`S10; . ADD "1",N3 6 COMPARE "251",N3 4 GOTO X10 IF ZERO 1 ADD "1",N6 6 COMPARE "81",N6 5 GOTO X68 IF ZERO 1 GOTO X69 9 X68 MOVE "1",N6 6 ADD "3",N7 6 GOTO X69 9 X5 KEYIN *P50:12,"FORMAT-DO YOU WISH TO CLEAR ",S9  CMA`X55 CMOVE "%",S9 6 GOTO X25 9 X56 CMOVE "%",S9 6 GOTO X25 9 X57 CMOVE "%",S9 6 GOTO X25 9 X58 CMOVE "%",S9 6 GOTO X25 9 X20 TYPE S4 : GOTO X59 IF NOT ZERO - MOVE S4,N3 7 COMPARE "251",N3 4 GOTO X59 IF NOT LESS - CO` OTO X24 9 X23 CMOVE " ",S14 5 RESET S9,3 8 GOTO X25 IF EOS 2 RESET S9,1 8 TYPE S9 : GOTO X25 IF NOT ZERO - MOVE S9,N9 7 MOVE "Y",S14 5 COMPARE "000",N9 4 GOTO X26 IF ZERO 1 BRANCH N9 OF X27,X28,X29,X30,X31,X32,X33,X34`MOVE N10,N6 6 CMATCH "Y",S14 5 GOTO X65 IF NOT ZERO - MOVE "@",S10 5 X65 DISPLAY *PN6:N7,S10 1 RETURN @ X16 WEOF F1,N2 7 DISPLAY *P1:3,"@@@@@@@" - GOTO X10 9 X21 KEYIN *P50:12,*EL,"THATS A NO NO!",S9  MOVE " ",S7 6 GOTO`TO X25 9 X41 CMOVE "%",S9 6 GOTO X25 9 X42 CMOVE "%",S9 6 GOTO X25 9 X43 CMOVE "%",S9 6 GOTO X25 9 X44 CMOVE "%",S9 6 GOTO X25 9 X45 CMOVE "%",S9 6 GOTO X25 9 X46 CMOVE "%",S9 6 GOTO X25 9 X47 CMOVE "%",S9 6 GOTO X `MPARE "1",N3 6 GOTO X59 IF LESS 1 RETURN @ X59 MOVE "1",S7 6 RETURN @ X25 RESET S9,1 8 MOVE S9,S10 6 CMATCH "X",S8 6 GOTO X60 IF ZERO 1 WRITAB F1,N2;*N3,S10; . CALL X61 9 GOTO X10 9 X60 MOVE N4,N3 7 X62 MOVE S9,S10 6`,X34,X35:  X36,X37,X38,X39,X40,X41,X42,X34,X34,X43,X44,X45: X46,X47,X48,X49,X50,X34,X34,X51,X52,X53,X54,X55: X56,X57,X58 1 X34 BEEP B GOTO X22 9 X26 CMOVE "%",S9 6 GOTO X25 9 X27 CMOVE "%",S9 6 GOTO X25 9 X28 CMOVE "%",S9 6`TCH "Y",S9 6 GOTO X3 IF NOT ZERO . WRITE F1,N2;; 5 DISPLAY *P50:12,*EL,"FORMAT AT ",N2," CLEARED"  KEYIN *P80:12,S9 2 RETURN @ X2 STOP B X6 KEYIN *P60:12,"IO ERROR",S9 ' STOP B STOP B ,"FORMAT-DO YOU WISH TO CLEAR ",S9  CMA ^191^^^^^^^201^^^^^^^211^^^^^^^221^^^^^^^231^^^^^^^ 241^^^^^^^џзƒd`€5џУ*€5й‰аa€5џф€$€5˜ƒya1 NO SUCH FILEџ˜ƒB` €Gџa€Gџз‰}з‰б‰€GйƒЦУ*€GйƒBa1 THAT'S A NO NO!џ˜ƒyЭ€G€@Џџџ€1ƒаџџ€SЏџџ€3ƒаџџ€›Џџџ€1ƒаџџ€—lllllllllllllll‘џџ(Dџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  `1 TO WHAT? €џЏџџCHAƒСџџ€й†+Aй†+˜ˆЦТ €ЎХ€й‡жХ€‰€й‡жAЭ€€ЄЏџџYƒРџџ€ЎЏџџ€000ƒбџџ€Єй†Ж–€Є†Н†Ф†Ы†в†й†р†ч†В†В†ю†ѕ‡‡ ‡‡‡‡%†В†В‡,‡3‡:‡A‡H‡O‡V‡]†В†В‡d‡k‡r‡y‡€‡‡‡Ž‡•џj˜†Т€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ €˜‡‘џ ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўџџџџџџџџџџџџџџџџ ƒ€00000ƒ ƒ ƒ€000ƒ€000ƒ€000ƒ ƒ ƒ ƒ ƒ ƒ ƒ ƒ ƒ|ƒ ƒ€00ƒ€00ƒ€000ƒ€000ƒ€000ƒ ƒўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўџ`",S9 6 GOTO X3 IF NOT ZERO . WRITE F1,N2;; 5 DISPLAY *P50:12,*EL,"FORMAT AT ",N2," CLEARED"  KEYIN *P80:12,S9 2 RETURN @ X2 STOP B X6 KEYIN *P60:12,"IO ERROR",S9 ' STOP B STOP B ,"FORMAT-DO YOU WISH TO CLEAR ",S9  CMA ц€$€@€S€‹ўй„lУ~€‹й„„BУ €‹й„„С€€‹й„„a€—€›€‹џЏџџ€1ƒвџџ€SЏџџ€250ƒбџџ€Sй„ЌЏџџ€1ƒвџџ€—Џџџ€81ƒбџџ€—й„“˜„aE EOF AT €Sџ`O €Ўџ˜„Џџџ@ƒРџџ€‹˜„)Џџџ€1ƒаџџ€—Џџџ€3ƒвџџ€›˜„`1 WHICH BYTE? €oџУ*€oйƒyЏџџEOFƒСџџ€oй„сAй„с˜ˆŒЏџџ ƒРџџ€}Џџџ000ƒРџџ€b‘џџ(Dџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ   a"DUMP/FIXFILE: filename LRN: ERDD A.C.A1^^^^^^^^^11^^^^^^^^21^^^^^^^^31^^^^^^^^41^^^^^^^^51^^^^^^^^61^^^^^^^^71^^^^^^^^81^^^^^^^^91^^^^^^^^101^^^^^^^111^^^^^^^121^^^^^^^131^^^^^^^141^^^^^^^151^^^^^^^161^^^^^^^171^^^^^^^181^^^^^^‘џ`RETN GOTO SPLERR 31.1 + ERROR ROUTINES . THE USER GAVE SOME BAD OPTIONS. FOR EXAMPLE, THE FILE NAME, EXTENSION, . VOLID, OR USER NAME WAS BLANK! SPLBADST MOVE "5" TO SPLRETN RETURN . THE FOLLOWING ROUTINE IS EXECUTED WHEN AN UNEXPECTE У-€oйƒyй…"Р€o€OФ€O€b†€oй…p˜…†€oР€o€iТ0€yХ€bš‡œУ1€yйˆЁЭ€b€XР€i€bš‡œУ1€yйˆЁЭ€i€]б€]€XйˆЁBЏџџXƒРџџ€}˜†Х€oР€o€bš‡œУ1€yйˆЁЭ€b€SЏџџ ƒРџџ€}llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll‘џ ВMџ§ іџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  џ)„џџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  €›˜ˆжа€Љ€—`€—€›€‡џУ€‡€‡й„Ќч€$€@€S€‡ўЏџџ€1ƒвџџ€SЏџџ€251ƒбџџ€Sй„ЌЏџџ€1ƒвџџ€—Џџџ€81ƒбџџ€—й‰d˜‰ Џџџ€1ƒаџџ€—Џџџ€3ƒвџџ€›˜‰ `1 FORMAT-DO YOU WISH TO CLEAR €џУY€йƒyAч€$€@ўa1 FORMAT AT €@ CLEAREDџ`O €џ\^`; IO ERROR€џ^^џ  a"DUMP/FIXFILE: filename LRN: ERDD A.C.A1^^^^^^^^^11^^^^^^^^21^^^^^^^^31^^^^^^^^41^^^^^^^^51^^^^^^^^61^^^^^^^^71^^^^^^^^81^^^^^^^^91^^^^^^^^101^^^^^^^111^^^^^^^121^^^^^^^131^^^^^^^141^^^^^^^151^^^^^^^161^^^^^^^171^^^^^^^181^^^^^^‘џDIST . CALL SPOOLIT . . END OF JOB ROUTINES . . END WEOF anyfiles . SPLCLOSE . STOP . . SUBROUTINES . BADSPL BEEP DISPLAY *P1:24,"SPOOL FILE ",SPLFILNM," NOT FOUND !!!": *W,*W,*W,*P1:24,*EL GOTO END . ***************************** жТ €˜‡жТ €˜‡жТ €˜‡жТ €˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡ж‰€bй‡ЩAЭ€b€SЏџџ€251ƒбџџ€Sй‡ЩBЏџџ€1ƒбџџ€Sй‡Щ\Џџџ1ƒРџџ€y\Х€Р€€‡УX€}й‡љч€$€@€S€‡ўšˆ/˜„Ќа€‘џ  ВMџ§ іџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ €Љ€—`€—€›€‡џУ€‡€‡й„Ќч€$€@€S€‡ўЏџџ€1ƒвџџ€SЏџџ€251ƒбџџ€Sй„ЌЏџџ€1ƒвџџ€—Џџџ€81ƒбџџ€—й‰d˜‰ Џџџ€1ƒаџџ€—Џџџ€3ƒвџџ€›˜‰ `1 FORMAT-DO YOU WISH TO CLEAR €џУY€йƒyAч€$€@ўa1 FORMAT AT €@ CLEAREDџ`O €џ\^`; IO ERROR€џ^^џ  ^191^^^^^^^201^^^^^^^211^^^^^^^221^^^^^^^231^^^^^^^ 241^^^^^^^џзƒd`€5џУ*€5й‰аa€5џф€$€5˜ƒya1 NO SUCH FILEџ˜ƒB` €Gџa€Gџз‰}з‰б‰€GйƒЦУ*€GйƒBa1 THAT'S A NO NO!џ˜ƒyЭ€G€@Џџџ€1ƒаџџ€SЏџџ€3ƒаџџ€›Џџџ€1ƒаџџ€—lllllllllllllll‘џ џ)„џџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  X€SР€€‡ч€$€@€S€‡ўšˆ/б€]€Sй„ЌЏџџ€1ƒвџџ€S˜ˆЏџџ€3ƒаџџ€›а€S€ЉЏџџ€81ƒбџџ€ЉйˆiЏџџ€80ƒгџџ€ЉЏџџ€3ƒвџџ€›˜ˆ?а€Љ€—УY€Ўйˆ‚AЏџџ@ƒРџџ€‡a€—€›€‡џ\ч€$€@a@@@@@@@џ˜„Ќ`1 THATS A NO NO!€џЏџџ ƒРџџ€y˜„ЌЏџџ€3ƒаџџ€›а€S€ЉЏџџ€81ƒбџџ€Љй‰Џџџ€80ƒгџџ€ЉЏџџ€3ƒвџџ‘џ  ўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўџџџџџџџџџџџџџџџџ ƒ€00000ƒ ƒ ƒ€000ƒ€000ƒ€000ƒ ƒ ƒ ƒ ƒ ƒ ƒ ƒ ƒ|ƒ ƒ€00ƒ€00ƒ€000ƒ€000ƒ€000ƒ ƒўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўўџ LFNME INIT "progname/PRT:drive" . . OPEN SPOOL FILE . . TRAP END IF INT . MOVE SPLFNME TO SPLFILNM . TRAP BADSPL IF SPOOL . OPEN SPLFNME,"Q" . . WHEN DONE PROCESSING MAINLINE EXITS TO HERE . . ADD2SQ MOVE "distribution message" TO SPL   €Љ€—`€—€›€‡џУ€‡€‡й„Ќч€$€@€S€‡ўЏџџ€1ƒвџџ€SЏџџ€251ƒбџџ€Sй„ЌЏџџ€1ƒвџџ€—Џџџ€81ƒбџџ€—й‰d˜‰ Џџџ€1ƒаџџ€—Џџџ€3ƒвџџ€›˜‰ `1 FORMAT-DO YOU WISH TO CLEAR €џУY€йƒyAч€$€@ўa1 FORMAT AT €@ CLEAREDџ`O €џ\^`; IO ERROR€џ^^џ  У-€oйƒyй…"Р€o€OФ€O€b†€oй…p˜…†€oР€o€iТ0€yХ€bš‡œУ1€yйˆЁЭ€b€XР€i€bš‡œУ1€yйˆЁЭ€i€]б€]€XйˆЁBЏџџXƒРџџ€}˜†Х€oР€o€bš‡œУ1€yйˆЁЭ€b€SЏџџ ƒРџџ€}llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll‘џ   X€SР€€‡ч€$€@€S€‡ўšˆ/б€]€Sй„ЌЏџџ€1ƒвџџ€S˜ˆЏџџ€3ƒаџџ€›а€S€ЉЏџџ€81ƒбџџ€ЉйˆiЏџџ€80ƒгџџ€ЉЏџџ€3ƒвџџ€›˜ˆ?а€Љ€—УY€Ўйˆ‚AЏџџ@ƒРџџ€‡a€—€›€‡џ\ч€$€@a@@@@@@@џ˜„Ќ`1 THATS A NO NO!€џЏџџ ƒРџџ€y˜„ЌЏџџ€3ƒаџџ€›а€S€ЉЏџџ€81ƒбџџ€Љй‰Џџџ€80ƒгџџ€ЉЏџџ€3ƒвџџ‘џ     `1 TO WHAT? €џЏџџCHAƒСџџ€й†+Aй†+˜ˆЦТ €ЎХ€й‡жХ€‰€й‡жAЭ€€ЄЏџџYƒРџџ€ЎЏџџ€000ƒбџџ€Єй†Ж–€Є†Н†Ф†Ы†в†й†р†ч†В†В†ю†ѕ‡‡ ‡‡‡‡%†В†В‡,‡3‡:‡A‡H‡O‡V‡]†В†В‡d‡k‡r‡y‡€‡‡‡Ž‡•џj˜†Т€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ €˜‡‘џ   €›˜ˆжа€Љ€—`€—€›€‡џУ€‡€‡й„Ќч€$€@€S€‡ўЏџџ€1ƒвџџ€SЏџџ€251ƒбџџ€Sй„ЌЏџџ€1ƒвџџ€—Џџџ€81ƒбџџ€—й‰d˜‰ Џџџ€1ƒаџџ€—Џџџ€3ƒвџџ€›˜‰ `1 FORMAT-DO YOU WISH TO CLEAR €џУY€йƒyAч€$€@ўa1 FORMAT AT €@ CLEAREDџ`O €џ\^`; IO ERROR€џ^^џ  ц€$€@€S€‹ўй„lУ~€‹й„„BУ €‹й„„С€€‹й„„a€—€›€‹џЏџџ€1ƒвџџ€SЏџџ€250ƒбџџ€Sй„ЌЏџџ€1ƒвџџ€—Џџџ€81ƒбџџ€—й„“˜„aE EOF AT €Sџ`O €Ўџ˜„Џџџ@ƒРџџ€‹˜„)Џџџ€1ƒаџџ€—Џџџ€3ƒвџџ€›˜„`1 WHICH BYTE? €oџУ*€oйƒyЏџџEOFƒСџџ€oй„сAй„с˜ˆŒЏџџ ƒРџџ€}Џџџ000ƒРџџ€b‘џ    жТ €˜‡жТ €˜‡жТ €˜‡жТ €˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡жТ€˜‡ж‰€bй‡ЩAЭ€b€SЏџџ€251ƒбџџ€Sй‡ЩBЏџџ€1ƒбџџ€Sй‡Щ\Џџџ1ƒРџџ€y\Х€Р€€‡УX€}й‡љч€$€@€S€‡ўšˆ/˜„Ќа€‘џ