1$16.0$256.0$4096.0$4.0$*@-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~NAD FEB. 13, 1980 NADNAD SYSTEM MENU6T7Ns@DA 7q@76QAQt67@6AQRt6ր:.!NAD" VER:3.0 #NAD$COPYRIGHT (C) 1979, STRUCTURED SYSTEMS GROUP, INCORPORATED %ND0000000&'()* R+R,R- .,/0*1R2##############3vMp4 6 JENTER NAD FILE DRIVE (@,A-F;RET=CURLOG) $dn;6h6)7o6@6(7~66s6A6B 6C 6D 6E 6F 6@ 71$JND010 INVALID DRIVE LETTER$d46)565t 7 7677 7 d468p99$T7888$9UQp996837l1$J!044 INVALID COMMAND SEQUENCE$d4:%UQ p::%UQ .p::%UQ .p::%UQ .p;:W%UQ@R%UQ@R% UQ@R; 7$1$J!045 INVALID COMMAND SEQUENCE$d4;2 7od4d4d4$$d4d4#$"$ SERIAL NUMBER: $;$d4$d4d4d4d4d467677 7d46w71(< <!NAD101 SUBPROGRAM NOT FOUND: <!NAD102 NOT NUMERIC<!NAD103 NOT ON MENU<!NAD104 INVALID DATE<!NAD105 INVALID RESPONSE<!NAD106 QSORT.COM NOT ON DISK<!NAD107 CORRECT .SRT FILE NOT ON DISK<!NAD108 UNEXPECTED EOF ON $$$ FILE <!NAD109 UNEXPECTED EOF ON $$$ FILE <!NAD110 INCORRECT LENGTH <!NAD111 INVALID CHARACTERS <!NAD112 TOO LONG <!NAD113 INVALID DRIVE<!NAD114 INCORRECT LENGTH<!NAD115 INVALID CHARACTERS<!NAD116 TOO LONG<!NAD117 INVALID DRIVE<!NAD118 NOT NUMERIC<!NAD119 OUT OF RANGE<!NAD120 EOF ON CREATE<!NAD121 EOF ON WRITE<!NAD122 66@&A7wABA ?@ 7dCD'ED CA 7F>=E\F7ӀD&CB!=EU6CB!=EFEUCCEF6?C?t6/2GTSG\GT 7&H'6+H&Ht6`I.pI.prpp7WJ&6\J'Jt6 mL'=K>/a7LM6MM 7GMB! 7L6NOB!X:PQB!X:RSB!X:NN  P P R Rc 7 LNN N  N  P 7 +LNIR2 P 7 HLNIR2 P 7 dLL&Lt6 00RpWV00NpWV00PpWVT 6 OT!UUQT!UUST!UUVT!/T!/T!VtWFXY  7 (OQS7 @OQSZYX[Z [!NADENTRY[!NADXTRAK[!NADPRINT[!NADLABEL[!(7 )2 7 π\v0000002j 7 S6 ]&] 7 6  (^7 6 _7 6 _7 6 _7 '!\6 _7 6&U6 _ 7 Ej6 _ 7 T*6 _ 7 c+6 _[!INT` aZ7 1$J<!$_[!(` a$d4& 6 π&&_[!(` ayblooey$d4b6 bb 7 $d46 JSTOP REQUESTED$d4d4d4d4d4'd4d4d4 J COMPLETED$d4d4d4d46 d4d4d4 J COMPLETED UNSUCCESSFULLY$d4 J! TERMINATING$d4d4d4d41$d46 d4d4d4 J TERMINATING AT OPERATOR'S REQUEST$d4d4d4d47 '!(` ay6 ( ̀J ENTER NUMBER OF FUNCTION DESIRED $dn;6h6)7 n6 (6,7 }^&#6\7 1$J<!$d46 +_6X:_Y_X 7 1$J<!$d46 +b6 bb 7 d46  *************** N A D ***************$d4 N A D S Y S T E M M E N U$d4d4d4d4d4J1 CREATE OR MODIFY A NAD FILE$d4J2 EXTRACT NAMES FROM ONE FILE TO ANOTHER$d4J3 PRINT A REPORT$d4J4 PRINT MAILING LABELS$d4J5 SORT A NAD FILE $d4J6 CREATE SORT PARAMETER FILE$d4J7 RESTORE FROM BACKUP/COMBINE FILES$d4J8 REFORMAT FILE/CONVERT TO STANDARD FORMAT$d4J9 CHANGE SYSTEM DATE$d4J10 CHANGE DATA DISK DRIVE$d4J11 DELETE OR RENAME NAD FILE$d4JESC STOP PROGRAM$d4JCR REFRESH MENU$d4d4d4d4d4\T76\\(6 O7c(MM/DD/YY)6c(DD/MM/YY)d4 JCURRENT VALUE: $U $d4 JENTER SYSTEM DATE $c$ $dn;6h6)7 600/00/007+0000002K6c 7K1$J<!$d46j p2d41$JPREVIOUS PROGRAM ENDED ABNORMALLY$d4JCONTINUE? (Y OR N) $dd7]&6]'d'e'f'g'^'n;6h6(766s6,7^&6)7f&6+7g&6Y6YES 6T 6TRUE 6OK 7Dd&6N6NO 6F 6FALSE 7qe&1$J<!$d46^'f'g'n;6h6(7h6s6h6h,7€^&h+7рg&6)7f&d4JdPARAMETER FILE NAMEn;i1' QPARM FEB. 20, 1979 jQPARM VER: 2.0 $COPYRIGHT (C) 1977 STRUCTURED SYSTEMS GROUP kplk] mk] nk] ok] pRqRrpspd4d4j$d4d4d4[?HO-ZRzd4d4QPARM COMPLETED$d4d4d4tp6'kt.t7Zt]m!pt]l!pt]n!At]o!N6d4ENTER THE NAME OF THE "SRT" FILE$d4ONLY THE FIRST PART OF THE NAME NEEDS TO BE ENTERED $duv.SRTd4ENTER THE INPUT FILE DRIVE (A-Z,RETURN=CURLOG) $d~wxd4ENTER THE NAME OF THE INPUT FILE $d4ONLY THE FIRST PART OF THE NAME NEEDS TO BE ENTERED $dyv SzNADd4ENTER THE OUTPUT FILE DRIVE (A-Z,RETURN=CURLOG) $d~{xd4ENTER THE NAME OF THE OUTPUT FILE$d4ONLY THE FIRST PART OF THE NAME NEEDS TO BE ENTERED $d|v S}NAD~pd4DO YOU WANT THE OUTPUT FILE TO BE BACKED UP? $dd4DO YOU WANT TO CHANGE THE OUTPUT DISKETTE? $d4IF YES, THE SORTED OUTPUT FILE WILL BE ON A DIFFERENT DISKETTE$d4THAN THE UNSORTED INPUT FILE. $dd4DO YOU WANT CONSOLE OUTPUT? $d4(SORT STATISTICS DISPLAYED AFTER THE PROGRAM HAS RUN)$dd4ENTER THE DRIVE WHERE THE TEMPORARY SORT$d4WORK FILES ARE PLACED (A-Z,RETURN=CURLOG) $d~x{r 7YOU CAN'T HAVE THE WORK AND OUTPUT FILES ON THE$d4SAME DISK DRIVE AFTER SPECIFYING THAT THE OUTPUT$d4DISKETTE NEEDS CHANGING$d46xd4tp6kt.t7l!p7THERE MUST BE AT LEAST ONE KEY.$d4PLEASE REENTER$d46t]l!p7 T6d4d4QPARM IS NOW BUILDING THE u PARAMETER FILE$d4wyz{|}q~:Rqqqqq:R:R:Rtp6kt.t7,t]l!:Rt]m!:Rt]n!t]o!6ـqqqqqqqqp&,?`eu-EOF ON PAR FILE$d4@n;6h6T7ONLY ONE CHARACTER IS ALLOWED$d46~67Ā6@x6Q Rx@xZ 7INVALID DRIVE. MUST BE A-Z OR @$d46~xxQ@Rn;vhvTvT 7SWRONG LENGTH. MUST BE 1-8 CHARS$d46p6svTp.7v:U@{ 7Q R0Z 9A 7INVALID CHARACTERS IN NAME. MUST BE A-Z,0-9$d466avn;hT79WRONG LENGTH. MUST BE 0-3 CHARS$d46T7L p6lTp.7:U@{ 7Q R0Z 9A 7INVALID CHARACTERS IN TYPE. MUST BE A-Z,0-9$d466Z Sn;h75ENTER A 'Y' OR AN 'N' ONLY$d46TESTINGtesting 7ZpQ RY7upN7pENTER 'Y' OR 'N' ONLY$d46d4ENTER KEY #$t# STARTING POSITION (0 TO END PROGRAM) $dn;"'~7EXCEEDS RECORD LENGTH. MAX LENGTH=$~#d46p7HNEGATIVE NUMBER INVALID$d46t]l!ENTER KEY #$t# LENGTH $dn;"'t]l!p~7KEY EXCEEDS RECORD LENGTH. MAX LENGTH=$~#d46Tp7NEGATIVE OR ZERO LENGTH INVALID$d46Tt]m!ENTER KEY #$t# ASCEND/DESCEND FLAG $dn;6h67@6A6Q RAD 7ht]n!ENTER 'A' OR 'D' ONLY$d46ENTER KEY #$t# ALPHA/NUMERIC FLAG $dn;6h67ŀ6N6Q RAN 7t]o!ENTER 'A' OR 'N' ONLY$d46R$RQSORTCOM Z7 W1$J<!$d4iSRT Z7 1$J<!$d4`!5$$$SUB kCRUN2 ! U `!G&c&TR,?QSORT iSRT &c&TR,?@1$J<!$d41$J <!$d4@6!q 7!vd46!dJUTILITY FOR COMBINING NAD FILES$d4d4JFUNCTIONS ARE:$d4d4J(1) RESTORE FILE FROM DISKETTE BACKUP$d4J(2) COMBINE ON-LINE FILES$d4d4d4JdENTER FUNCTION: n;6h6)7"/76X:77 7"XJINVALID$d46"7^96"d6$JdENTER DISKETTE BACKUP NAME:n;1'JdENTER DISKETTE DRIVE:n;1'JdENTER NAME OF FILE TO BE CONSTRUCTED:n;1'JdENTER OUTPUT FILE DRIVE:n;1':.NADJdENTER NUMBER OF VOLUMES:n;":'-JINSERT FIRST VOLUME IN DRIVE $$ AND TYPE RET$d4xw7#6#6#6# 7$c6:pW.NAD64j`$ &********>&,,,,,,,,?6#ƀ@7$6$cJINSERT NEXT VOLUME IN DRIVE $$d AND TYPE RET..$d4xw7$]6$`6$V6#JFUNCTION COMPLETE - EOJ$d4JdOUTPUT FILE NAME?n;1'JdOUTPUT FILE DRIVE?n;1':.NADkJdFIRST INPUT FILE NAME?n;1'JdFIRST INPUT FILE DRIVE?n;1'6:.NAD6j`%&********>&,,,,,,,,?6%H@JdNEXT INPUT FILE (ESC IF DONE)?n;1'R7%6$cJdNEXT INPUT FILE DRIVE?n;1'6:.NAD6j`&O&********>&,,,,,,,,?6& @6%p6&op.7&td46&^pJTHIS PROGRAM CONVERTS ANY STANDARD NAD FILE$d4J(IE 8 FIELDS) TO THE FORMAT USED IN THIS SET$d4JOF PROGRAMS. IT WILL ALSO RECONSTITUTE FILES$d4JTHAT HAVE CRASHED IN MANY CASES. YOU CANNOT$d4JOUTPUT TO THE SAME FILE NAME AS THE INPUT -$d4JUSE A TEMP FILE FOR THE OUTPUT STORAGE AND$d4JCHECK THE RESULTS BEFORE ERASING THE ORIGINAL$d4JFILE.....$d4d4JdSOURCE FILE NAME?n;h)7(d4JdDRIVE?n;1':.NADd4JdDESTINATION FILE NAME?n;1'd4JdDRIVE?n;1':.NADjk`*?  &v********>p  Sv\7)6)$vvS\7):6)ES\7)[6)fS\7)|6)SvTTTTO7)6*`O7)6)vv6) WV  S S&v,,,,,,,,?RECORD $#PROCESSED$d46(d4Jd# RECORDS PROCESSED$d4d4JdRECORD $#DELETED, TOO LONG$d46(p6*p.7*d46*J$ IS THE CURRENT DATA FILE DRIVE$d4d4JENTER NEW DRIVE (C/R=NO CHANGE): $dn;6h6)7+62p6+2p.7+7d46+!JDELETE/RENAME FUNCTION - NAD FILES ONLY$d4d4JFUNCTIONS ARE:$d4JD - DELETE FILE$d4JR - RENAME FILE$d4JC/R - RETURN TO MENU$d4d4JENTER FUNCTION:$dn;6h6)7+6D7+6,*6R7, 6,d4JINVALID FUNCTION!$d46+f`,d4JFILE TO DELETE:$dn;6h6)7,[6+d4JENTER DRIVE:$dn;h)7,6+:6.NADjed4J$ DOES NOT EXIST$d46,*d4JFILE TO RENAME:$dn;6h6)7,6+d4JDRIVE:$dn;h)7-6+:6.NAD`-j@`-d4JNEW NAME:$dn;6h6)7-e6+:6.NADj@d4J$ ALREADY EXISTS$d46-?Y7-d4JRENAME FAILED - -$d46,d4J$ DOES NOT EXIST - -$d46,E): $dn;6h6)7+62p