5 "'1?/'$#! 7 )),? 7 Q)7/NONE/ 7 1)=00 9 9)?^ 9 9)B^ 9 Y)E^P 9 9)T^ 9 9)W^ 9 I)Z^Z 7 )*!* 9 9*%^ 7 Y*+RECORD 9 Q*2^Y 7 )*8 OF FILE 7 Q*A/NONE/ 7 !1*G, RECORD LENGTH= 7 9*Y510 7 9* CHARACTERS 9 1+)^] 7 )++7 7 )+,8 7 )+-6 7 9+.001 9 1+1^] 9 )+5^^ 9 )+6^^ 9 Q+7^Y 9 )+=^^ 7 9+>001 7 9+A510 7 9+D509 9 )+G^^ 7 )+H1 7 )+I2 7 )+J3 7 9+K050 7 9+N001 7 9+Q001 7 9+T130 9 9+W^ 9 )+Z^^ 9 )+[^^ 7 1+ 02 7 9+^00Q 9 ),!^^ 7 %1-K 1 2 3 4 5 7 %1.= 6 7 8 9 0 7 %1// 1 2 3 4 5 7 %10! 6 7 8 9 0 7 #!0S 1 2 3 7 %11512345678901234567890123456789012345678901234567890 7 %12'12345678901234567890123456789012345678901234567890 7 %12Y12345678901234567890123456789012345678901234567890 7 "A3MEND OF INPUT FILE AT RECORD 9 Q4)^Y 7 !I41DATA FOUND IN RECORD 9 I4F^Z 7 I4MOUTPUT FILE: 7 Q4Z/NONE/ 7 Q5#UNIT: 9 15)^] 7 I5-KEY=< 7 952001 7 )55, 7 956509 7 )59> 7 A5=INPUT FILE: 7 Q5YUNIT: 9 16^] 0 7* ^Z'@ 7 18)55 0 (/6^Z'( 7 98+'' 0 (03^Z'& 7 )8/3 0 (1/'3^ZH27*9'W)^Z'O 7 )801 0 (46^Z'T(4% H5^Z 7 )810 0 (6(6'1<^ZP7^Z'<'$.H87*WA 7 982129 0 (: 7 )852 0 (; 7 )864 0 (^Z';'O/%& 7 18833 0 (?9^Z'; 7 )8:5 0 (@$% H3^Z@A^Z';*,HBHCHDHEH8HFHGHHHIH7HJHKH7^Z'; 7 18;13 0 (V#**H7HLHMHNHOHPHQHRHSHTHU7+:'= 7 Q8=''BAD COMMAND. 0 (W.G^ZH37+I'C(6%0@X^Z@Y^Z'K')'*;-/^Z'9')3^Z(+'*6^Z() 7 A8KOPEN 0 (Z3^Z'S)7,,'8(66^Z': 7 98O510 0 ( 6^Z'C(46^ZH]7,@'K1^Z+7,O'D(6%0H^^Z@Y^Z'L')'*;-?^Z(!')3^Z(#'*6^Z'D(46^Z'E)^ZH37-7'= 7 "18S''OUTPUT FILE ALREADY OPEN 0 ).G^ZH37-F'D(6%0H^^Z'C(6%0@X^Z@Y^Z'K')'*;-O^Z'S(46^Z'D(46^Z'E(66^Z(+'*6^Z(#'*6^Z() 7 A9-UPDT 0 ) 3^Z'9')3^Z(!')3^ZH[7.GA!^ZH37.Q'C(4%0I"^Z'8(6% I#^Z'W(6%PA$7/ 'S(6%0I%^Z'K'!.I&7/*'8'8(487//': 7 A914096 0 )) 7 19564 0 )*(1/ & #('= 7 !!97''NO INPUT FILE. 0 )+.G^ZH37/H'8'8(487/MQ-^Z'K(4':(;!7!'8/^ZAI(7/ ']'86^Z'=' .G^Z'C)^Z() 7 A9GTHRU 0 ).3^ZH3705'= 7 "Y9K''ILLEGAL RECORD - CLOSING FILE 0 )/.G^ZHF70D'D(4%0I0^Z'S(6%0I1^Z':(6% I"^Z'L(4':(;!7!.G^Z'E'E(48^Z+71"'= 7 !!:+''NO OUTPUT FILE 0 )2.G^ZH371,'K(4':(;!7!'80^Z+71;'O/% 7 ):; 0 )3%/+^Z'O'O(48^ZH>^Z71OA4^Z'0'-6^ZA571^A!^Z'0'0(49^Z'0(6%PI6^ZH3727'S(6% I7^ZA4^Z'-'8'-9^Z'-(6%@I8^Z'8'-6^ZI972U'= 7 #Q:=''CANT BACKSPACE WITH SEQUENTIAL INPUT 0 ):.G^ZH373'= 7 #A;#''CANT BACKSPACE PAST BEGIN OF FILE. 0 );.G^ZH373.A4^Z'0'-6^Z'W(46^ZI673GA<^ZA=^Z'H':%PI>^Z'G'H7"(^Z'G'H7"(4'?7X3^ZH374%'= 7 "I;G''KEY EXTENDS PAST RECORD END 0 )?.G^ZH3744A4^Z'- 7 9<%130 0 )@%PIA^Z'J(4% IB^Z'N'-6^ZH374M'F(4'F9^ZH374W'= 7 !I<)''EXCESSIVE GRID SIZE 0 )C.G^ZH375&'D(6% ,^Z'= 7 "! DATA 0 )L.G^Z'= 7 9=K''DISPLAY N 0 )M.G^Z'= 7 Q=W''EXIT 0 )N.G^Z'= 7 !=]''FINI + 0 )O.G^Z'= 7 )>%''GOTO N+ 0 )P.G^Z'= 7 Q>/''HELP 0 )Q.G^Z'= 7 !1>5''INPUT LABEL/UNIT 0 )R.G^Z'= 7 )>G''KEY A,B 0 )S.G^Z'= 7 I>Q''LIST N KEY+ 0 )T.G^Z'= 7 !9?''OUTPUT LABEL/UNIT 0 )U.G^Z'= 7 Y?3''PUT N 0 )V.G^Z'= 7 Y?;''QUERY 0 )W.G^Z'= 7 !?C''REWIND 0 )X.G^Z'= 7 !I?K''SEARCH DATA + 0 )Y.G^Z'= 7 Y@!''TYPE N + 0 )Z.G^Z'= 7 !9@1''UPDATE LABEL/UNIT 0 )[.G^Z'= 7 )@E''VERSION 0 ) .G^Z'= 7 )@O''WRITE N 0 )].G^Z'= 7 9@Y''X 0 )^.G^ZH379 B^Z(%'G6^Z(&'H6^ZH37:5A4^Z'J(4% J ^Z'O/% 7 )@], 0 *!%/J"^Z'G'-6^Z'O'O(48^ZA4^Z'H'-6^Z'H'G$@J"^Z'H( %@+7;"'= 7 )A''BAD KEY 0 *#.G^Z'G(46^Z'H( 6^ZH37;;'U'>6^ZB$^ZH37;J'G(46^Z'H( 6^Z+7;^'8(6% I"^ZA4^Z'0'-6^ZA<^ZA57<7B&^Z'P'G6^Z'Q'P'N!(49^Z'I'H6^Z'G':%PJ'^Z'H':%PB(7/'U(4'R(1!8,.G^Z+7>9'U 7 #)A)''KEY ENTIRELY PAST END OF RECORD 0 */.G^ZJ,7>C'I':6^Z+7>R'2'P(49^Z(.'6(4!'6'R!7Z3^Z'2'P6^Z'3(4(47Q% J0^Z 7 9AK100 0 *1'6#*1'6#8.'3(4!47?+(-'34^Z(4(48.'44^Z(- 7 )AN0 0 *2%/J3^Z(-(7??'2'Q6^Z'R'R8.'44^Z'U(4'R(1!8,.G^Z'2'P(49^Z(.'5(4!'5'R!7[3^Z(-(^ZJ.7@'A4^Z'0'-67@1A$^Z'0'0(49^Z'0(6%PJ4^ZH37@E(('93^Z'=('.G^Z'=(*.G^Z'=( .G^Z'=(".G^Z'=($.G^Z'U'=6^ZB&^ZHS7A2'S(6% J5^Z'8(46^ZI97AA'C(6% I"^Z'K 0 1^Z'K'9(+;-/^Z'8(66^ZH]7BA<^ZA=^ZA57B.'G'H7"(4'?7X%J77B3A!^ZJ67B='H':%PJ8^Z('86^Z'='^.G^ZH37BV'U'=6^ZB$^ZH37C%'M'$.H2^Z(4 7 9AO126 0 *97%(1 7 9AR128 0 *:7%3^Z'=(4(:(;(^Z'O'O(48^ZB^Z'O/% 7 )B*> 0 *?%/J"^Z'O'O(48^Z@>^Z+7DS'G(%6^Z'H(&6^Z+^Z7E''O'O(48^Z'O/%(=%+^Z'O/%)3%/HA^Z@>^Z+7EE@>^Z'+'O67EO'B'O/%3^Z'B)3%JA^Z'B*2$?JA^Z'B 7 )B+9 0 *B%OJA^Z'O'O(48^ZJ@7F-','O(49^Z@>^Z','+$@JC^Z'J(66^ZRD^Z'-'+',7%5^ZA'-(6%P+7FP'= 7 !IB-''NUMBER TOO BIG OR 0 0 *E.G^Z'= 7 !!BC''0 NOT ALLOWED. 0 *F.G^ZH37G'-(46^Z'J(46^Z+7G.'.'O67G3'A'O/%3^Z'O'O(48^Z'A)3%JH^Z'A(=%JH^Z'A 7 )BS/ 0 *I%/JG^Z'/'O(;9^ZA4^Z'*'-6^ZJJ7H '*(66^Z'/'O(;97H*'/'.$@JK^Z')(^Z')'.'/7%3^Z+7H>'= 7 !!BU''NO LABEL NAME. 0 *L.G^ZH37HH@>^Z'O/% 7 )C%+ 0 *M%JN^Z+7HW'W(46^Z'O'O(48^Z@>^Z'O/%(=%+^Z'= 7 IC'''EXTRA CHARS 0 *O.G^ZH37I5'O/%'&%JP^Z'O/%)3%JQ^Z'+'O67ID'O/%(=%JS^Z'O'O(48^ZJR7IS','O(49^Z'?'H'G#(48^Z'?*1%PJT^ZRU^Z(4'?7Y'+',7%5^ZA+7J1'= 7 !9C5''BAD DIGIT IN DATA 0 *V.G^Z+7J;'= 7 )CI''NO DATA 0 *W.G^Z+7JE'O'O(48^Z'+'O67JO'O/%'&%JY^Z'O'O(48^ZJX7J^','O(49^Z'O'O(48^Z'?'H'G#(48^Z'?*1%PJT^Z(4'?7X(^Z(4'?7X'+',7%3^Z+7KA'= 7 ICS''KEY TOO BIG 0 *Z.G^ZH37KKB&^ZH37KZ'U(0.G^Z'U'7.G^Z'U(0.G^Z+^Z, 3 "[ 0 10 !!#)%)'%/1'')')))+))/9)1Q)71)=9)?9)B Y)E9)T9)WI)Z)*!9*%)*%)*&)*'1*&&Q*)Q*2Q*A9*Y1+))++)+,)+-9+.1+1)+3)+4)+5)+6Q+7)+=9+>9+A9+D)+G)+H)+I)+J9+K9+N9+Q9+T9+W)+Z)+[1+ 9+^),!+A,%+A,%%1-K%115#A3KQ4)"A4/I4F!I4KQ4Z 15!15) Y5+952956"A5;Q5IA5S 15W16/Y6!)6#/A6$18)9 +)8/(F4(1Q)80(EW)81(3*(:L(2*982)85)86)87(8,188)8:(G=(8;(8S(9H(:)(:Y(<((9(?=(4%(CI(D(DE(E'(EN(4M(FL(9;(M418; Q8=(4(I-A8K(3P98O(5C(4E"18SA9-(5H(6@(5X(78(6H(6](6#(6)A91195!!97(6N(70A9G"Y9K(7X(8 !!:+):;(GS(J<(8D(9+(93(<6#Q:=#A;#(FT(K (:!"I;G9<%(:D(:%Q>/!1>5 )>G I>Q!9?Y?3Y?; !?C!I?K Y@!!9@1 )@E )@O9@Y(>F(?F)@](?- )A(?Q(@!(M9(AX(B (@=(@X(A3(A$(B'(AL#)A)(BN9AK)AN(C!(CP(DQ(E.(E=(E89AO9AR(FB!9AU)B)(G1)B*(GZ(H6)B+(I"(HU!IB-!!BC(I2(IY)BS(J#(J4!!BU)C%(JG IC'(L.( &(K1(K?(M,(K^!9C5 )CI(L8(LF ICS 3443 ICK INREC I TRICK2COMMANCOM QUOTE TRICK4TR4 NAME UNIT LEFT RIGHT NUMBR LFT RT RECNO TRICK3D3 HUNS TENS UNITS D2 INFO RECNUMRECNAMRECLENK KBD TTY LPT LENG LINCOULETTR CHAR INFLG OUTFLGOUTKNTGRID KEYLOWKEYHI KYHI LAG IN OUT SYS GRIDLESCAN LOW HIGH DIF UPFLAGSYSFLGDEVICEOLDLENPLUS DATA NDATA GRIDA GRIDB EOFMSGEOFRECFOUNDMFNOM QOUT OUTNAMQOUTU OUTUN QKEY KEYL KEYH QIN RICN STATUSQINU INUNITGBUFF PAD GBUF .. Note: Lines longer than 256 characters were wrapped