10 22FL #LIS K0FFFNORM>K0ALLGEO>0 16 22_= #SEG FFFNORM7 [ J BILLINGHAM 4 23DW # 11 23YG # FANTASTICALLY FAST FNORM. 11 24D6 # ------------------------- 4 24XQ # 20 25CB # THIS SEGMENT CONVERTS AN UN-QUALIFIED HELD IN A 21 25X2 # FILE/FNAME BLOCK INTO AN ABSOLUTE NAME IN A FILE/FABSNB BLOCK USING 17 26BL # THE MINIMUM NUMBER OF COORDINATIONS (NORMALLY NONE). 4 26W= # 9 27*W # EXITS ARE AS FOLLOWS - 4 27TG # 18 28*6 # DOWN+2 ALL IS WELL, FABSNB SET UP, REPLY 'OK' SET. 4 28SQ # 20 29#B # DOWN+1 SOMETHIG WRONG, NO FABSNB SET UP, NO ERROR MESSAGE. 4 29S2 # 15 2=?L # REPLY 'NAMEFORM' - A GENUINE SYNTAX ERROR 21 2=R= # REPLY 'ADJUNCTS' - LOOKS IF ADJUNCTS ARE PRESENT ( NOT CATERED FOR 17 2?=W # REPLY 'CHNUMERR' - ERROR IN A NUMBER SOMEWHERE. 4 2?QG # 6 2#=6 8HFFFNORM 4 2#PQ # 16 2*9B SEGENTRY K1FFFNORM,N1FFFNORM [ONLY ENTRY POINT 4 2*P2 # 4 2B8L # 20 2BN= # NUMBER CONVERSION ROUTINE. WORKS FASTEST IF THE NUMBER IS DECIMAL. 21 2C7W # OTHERWISE A CPB/CUNI MUST BE SET UP AND ONE OF THE CHNUMCON ROUTINES 21 2CMG # ENTERED. NOTE THAT ANY ERROR REQUIRES THE MESSAGE SUPPRESSED BECAUSE 17 2D76 # ONLY THE ESSENTIAL DETAILS OF THE CPB/CUNI ARE SET UP. 20 2DLQ # ENTERED AT NUMCON1 TO START AT CURRENT CHARACTER, NUMCON2 TO START 17 2F6B # AT NEXT CHARACTER. [X0] AND [X2] ARE UPDATED PROPERLY. 4 2FL2 # 5 2G5L NUMCON1 4 2GK= # 8 2H4W SBX 6 FX1 9 2HJG STO 6 AWRK1(1) 7 2J46 LDN 5 0 15 2JHQ LDX 6 2 [WE MUST SET 15 2K3B SLC 6 2 [ACOM5 TO THE 17 2KH2 SBN 6 1 [RELATIVE CHARACTER 17 2L2L SRC 6 2 [ADDRESS OF START IN 17 2LG= SBX 6 AWORK2(1) [CASE NON-NUMERIC AND 18 2L_W STO 6 ACOM5(1) [WE HAVE TO START AGEN 7 2MFG LDX 6 0 7 2M_6 ADN 6 1 17 2NDQ STO 6 ACOM3(1) [SAVE CHAR COUNT ALSO 7 2NYB LDN 6 0 8 2PD2 BNZ 0 N2 16 2PXL BRN M [ERROR NO MORE 4 2QC= # 5 2QWW NUMCON2 4 2RBG # 8 2RW6 SBX 6 FX1 9 2S*Q STO 6 AWRK1(1) 7 2STB LDN 5 0 9 2T*2 STO 2 ACOM5(1) 9 2TSL LDX 6 AWORK2(1) 17 2W#= SBS 6 ACOM5(1) [SAVE CHAR ADDRESS 16 2WRW STO 0 ACOM3(1) [AND CHAR COUNT 7 2X?G LDN 6 0 18 2XR6 N1 BZE 0 M [ERROR IF NO MORE LEFT 8 2Y=Q LDCH 7 0(2) 7 2YQB BCHX 2 / 7 2_=2 SBN 0 1 8 2_PL N2 LDN 4 #31 7 329= SBS 7 4 15 32NW BZE 4 N9 [END IF RP 7 338G ADN 4 3 15 33N6 BZE 4 N9 [END FI COMMA 7 347Q ADN 4 3 15 34MB BZE 4 N9 [END IF SLASH 14 3572 CDB 5 7 [CONVERT 14 35LL BCC N1 [J IF OK 4 366= # 21 36KW # TURNS OUT THAT THE EXPRESSION WAS NOT DECIMAL AFTER ALL. WE MUST DO A 18 375G # CHNUMCON WHICH INVOLVES SETTING UP A UNI-PARAMETER BLOCK. 4 37K6 # 21 384Q LDX 1 AWRK2(1) [HERE WE MAKE THE UNI BOOCK THESAME 21 38JB SETUPCORE ALOGL(1),3,CPB,CUNI[LENGTH AS THE FNAME (EASY WAY OUT) 9 3942 LDX 7 AWRK3(2) 17 39HL TESTMOVE 7,N3 [J IF NOTHING MOVED 15 3=3= CALL 5 UNT [HUNT BLOCKS 8 3=GW N3 LDX 1 FX2 16 3?2G LDX 0 ACOM3(1) [RESET POINTERS 9 3?G6 LDX 2 ACOM5(1) 9 3?_Q ADX 2 AWRK2(1) 15 3#FB LDN 1 APARA(3) [START OF O/P 8 3#_2 STOZ ANUM(3) 7 3*DL LDN 5 1 7 3*Y= LDN 6 0 8 3BCW BRN N40 7 3BXG N4 BCHX 2 / 7 3CC6 SBN 0 1 16 3CWQ N40 BZE 0 M [ERROR IF NO RP 8 3DBB LDCH 7 0(2) 7 3DW2 LDX 4 7 8 3F*L SBN 4 #30 14 3FT= BNZ 4 N6 [J NOT LP 14 3G#W ADN 6 1 [COUNT IT 8 3GSG N5 DCH 7 0(1) 16 3H#6 BCHX 1 / [INSERT IN CUNI 9 3HRQ ADS 5 ANUM(3) 7 3J?B BRN N4 9 3JR2 N6 ADN 4 #30-#20 15 3K=L BZE 4 N4 [IGNORE SPACE 9 3KQ= SBN 4 #31-#20 19 3L9W BNZ 4 N10 [IF RP AND NESTED CARRY ON 7 3LPG SBN 6 1 8 3M96 BPZ 6 N5 8 3MNQ N60 LDX 1 FX2 9 3N8B SBX 2 AWRK2(1) 9 3NN2 STO 2 ACOM5(1) 9 3P7L STO 0 ACOM3(1) 14 3PM= CHNUMCO1 1 [CONVERT 17 3Q6W FREECORE 3 [FREE THE CPB/CUNI 15 3QLG TESTRPN2 OK,NUMERR [J IF FAILED 9 3R66 LDX 7 AWRK3(2) 15 3RKQ TESTMOVE 7,N7 [J NOT MOVED 15 3S5B CALL 5 UNT [HUNT BLOCKS 8 3SK2 N7 LDX 1 FX2 9 3T4L LDX 0 ACOM3(1) 9 3TJ= LDX 2 ACOM5(1) 9 3W3W ADX 2 AWRK2(1) 8 3WHG LDCH 7 0(2) 16 3X36 BCHX 2 / [UPDATE POINTER 15 3XGQ SBN 0 1 [AND COUNT 9 3Y2B N8 LDX 6 AWRK1(1) 8 3YG2 ADX 6 FX1 7 3Y_L EXIT 6 0 9 3_F= N9 STO 6 ACOM1(1) 7 3_YW BRN N8 15 42DG N10 SBN 4 #34-#31 [J TO CONVERT 14 42Y6 BZE 4 N60 [IF COMMA 9 43CQ SBN 4 #37-#34 8 43XB BNZ 4 N5 18 44C2 BZE 6 N60 [SLASH IN PARENTHESIS? 8 44WL BRN N5 4 45B= # 10 45TW UNT MHUNT 1,FILE,FABSNB 9 46*G STO 1 AWRK4(2) 9 46T6 MHUNT 1,FILE,FNAME 7 47#Q PHOTO 7 9 47SB STO 1 AWRK2(2) 9 48#2 STO 7 AWRK3(2) 7 48RL EXIT 5 0 4 49?= #PAG 15 49QW TABLE [SYNTAX OF 6 4==G #REP #20 5 4=Q6 0 12 4?9Q TABDET [SYNTAX OF
6 4?PB #REP #20 5 4#92 0 13 4#NL O12 #12 [: 13 4*8= O30 #30 [( 13 4*MW O31 #31 [) 13 4B7G O34 #34 [, 13 4BM6 O36 #36 [. 4 4C6Q # 8 4CLB TAILS 12H00010001C1 4 4D62 # 18 4DKL N1FFFNORM [ENTRY FROM MACRO FFFNORM 4 4F5= # 16 4FJW MHUNT 3,FILE,FNAME [FIND NAME BLOCK 16 4G4G BNG 3 N [ERROR IF LOST 16 4GJ6 LDXC 4 ANUM(3) [PARAMETER LENGTH 16 4H3Q BCS N [ERROR IF NULL 16 4HHB BZE 4 N [ERROR IF EMPTY 20 4J32 ANDN 4 #7777 [CLEAR TYPE BITS (NOT NEEDED ) 7 4JGL PHOTO 7 16 4K2= STO 3 AWRK2(2) [STORE BLOCK'S 16 4KFW STO 7 AWRK3(2) [WHERE AND WHEN 16 4K_G SETREP2 OK [ONLY TENTATIVE 16 4LF6 LDN 3 APARA(3) [WE NOW HAVE TO 16 4LYQ LDN 5 0 [COUNT THE NUMBER 16 4MDB LDN 6 0 [OF FULL STOPS 15 4MY2 S1 LDCH 7 0(3) [AND COLONS 7 4NCL BCHX 3 / 9 4NX= BXU 7 O12(1),S2 15 4PBW ADN 6 1 [COUNT COLON 9 4PWG S2 BXU 7 O36(1),S3 16 4QB6 ADN 5 1 [COUNT FULL STOP 18 4QTQ S3 BXE 7 O30(1),S4 [FINISHED IF
8 4R*B BCT 4 S1 4 4RT2 # 20 4S#L # WE CAN NOW CALCULATE THE LENGTH OF TH FILE/FABSNB. ALGORITHM IS: 4 4SS= # 16 4T?W # ALOGLEN=6X(1+NUMBER OF STOPS-NUMBER OF COLONS)+4 4 4TRG # 7 4W?6 S4 LDN 0 1 19 4WQQ SBS 6 0 [ERROR IF TWO OR MORE COLONS 7 4X=B BNG 0 N 18 4XQ2 LDX 0 5 [CHECK IF ONE COLON BUT 14 4Y9L SBX 0 6 [NO STOPS 15 4YP= BNG 0 N [ERROR IF SO 9 4_8W STO 6 AWRK1(2) 7 4_NG LDN 7 6 15 5286 SBX 5 6 [CALCULATE 15 52MQ LDX 3 5 [CALCULATE 8 537B LDN 4 10 7 53M2 MPA 3 7 17 546L SETUPCORE 4,3,FILE,FABSNB [GET UPT PUT BLOCK 9 54L= STO 3 AWRK4(2) 15 555W LDX 0 ACES [MOVE SPACES 16 55KG LDN 6 HDREC+1(3) [INTO MOST OF THE 14 5656 LDN 7 HDREC+2(3) [WORDS 21 56JQ STO 0 HDREC+1(3) [AUTOMATICALLY MAKES LOCAL NAMES UP T 17 574B SMO 4 [TWELVE CHARACTERS 8 57J2 MOVE 6 -5 18 583L LDN 4 4 [INSERT ADDRESS OF FIRST 15 58H= STO 4 HDREC(3) [LOCAL NUME 9 592W LDX 6 AWRK1(2) 18 59GG BNZ 6 S5 [J IF USERNAME SPECIFIED 9 5=26 LDN 6 CPFIX(2) 17 5=FQ LDN 7 A1+1(3) [MOVE IN YOUR NAME 7 5=_B MOVE 6 3 18 5?F2 S5 BZE 5 S7 [J IF ONLY ONE LOCAL NAME 9 5?YL LDN 6 TAILS(1) 19 5#D= LDN 7 A1+7(3) [MOVE IN STANDARD
17 5#XW S6 MOVE 6 3 [FOR DIRECTORY NAMES 7 5*CG ADN 7 6 8 5*X6 BCT 5 S6 9 5BBQ S7 LDX 7 AWRK3(2) 9 5BWB LDX 2 AWRK2(2) 18 5CB2 TESTMOVE 7,S8 [SET UP NAME BLOCK AGAIN 9 5CTL MHUNT 2,FILE,FNAME 8 5D*= SMO FX2 8 5DSW STO 2 AWRK2 4 5F#G # 21 5FS6 # THE OUTPUT BLOCK IS NOW SET UP SO WE CAN START TO PROCESS NAME BLOCK. 20 5G?Q # [X0]=CHARACTERS LEFT; [X3]=ADDRESS OF NEXT CHARACTER TO ANALYSE; 17 5GRB # [X1]=ADDRESS OF NEXT CHARACTER IN LOCAL NAME (O/P). 4 5H?2 # 16 5HQL S8 LDN 1 0 [SET UP POINTERS 9 5J== LDX 0 ANUM(2) 9 5JPW LDN 2 APARA(2) 8 5K9G ANDN 0 #7777 17 5KP6 S9 LDCH 7 0(2) [SKIP INITIAL SPACES 8 5L8Q SBN 7 #20 15 5LNB BNZ 7 S10 [J NOT SPACE 7 5M82 BCHX 2 / 8 5MML BCT 0 S9 17 5N7= BRN M [ERROR IF ONLY SPACES 16 5NLW S10 BZE 0 TIDY [J IF FINISHED 7 5P6G STO 3 6 8 5PL6 LDCH 7 0(2) 7 5Q5Q BCHX 2 / 7 5QKB STO 7 3 7 5R52 SRC 3 2 8 5RJL ADX 3 FX1 16 5S4= LDCH 5 TABLE(3) [LOOK UP IN TABLE 7 5SHW SBN 0 1 8 5T3G ADX 5 FX1 7 5TH6 LDX 3 6 14 5W2Q EXIT 5 / [FANOUT 4 5WGB # 20 5X22 M FREECORE 3 [SYNTAX ERROR: FREE FILE/FABSNB 18 5XFL N SETREP NAMEFORM [REPLY INCOMPREHENSIBLE 14 5X_= UP [GIVE UP 4 5YDW # 14 5YYG OO IETS #20,OO-M,TABLE [SPACE 17 5_D6 BZE 1 S10 [IGNORE IF INITIAL 4 5_XQ # 17 62CB O IETS -,O-M [NUMERIC AND HYPHEN 11 62X2 IET 1,2,3,4,5,6,7,8,9,0 20 63BL BZE 1 M [NOT ALLOWED AS FIRST CHARACTER 4 63W= # 15 64*W P IETS A,P-M [ALPHABETIC 14 64TG IET B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q 11 65*6 IET R,S,T,U,V,W,X,Y,Z 7 65SQ LDN 4 3 7 66#B SBS 1 4 19 66S2 BZE 4 M [ERROR IF THIRTENTH CHARACTER 7 67?L ADX 1 3 9 67R= SMO HDREC(3) 15 68=W DCH 7 A1(1) [ELSE OK TO 7 68QG SBX 1 3 15 69=6 BCHX 1 / [SHOVE IT IN 8 69PQ BRN S10 4 6=9B # 18 6=P2 Q IETS (,Q-M [LP - STARTS
21 6?8L BNZ 1 QUALIF [ERROR IF PRECEEDED BY NULL NAME ELSE 17 6?N= BRN M [WORK OUT
4 6#7W # 19 6#MG R IETS :,R-M [COLON (INTRODUCES USETNAME) 7 6*76 LDN 6 1 8 6*LQ LDN 4 #1000 9 6B6B STO 6 HDREC(3) 19 6BL2 ANDX 4 ATYPE(3) [ERROR IF . (POSSIBLE) OR : ( 17 6C5L BNZ 4 M [POSSIBLE) ALREADY 8 6CK= R1 LDN 4 #1000 7 6D4W LDN 1 0 16 6DJG ORS 4 ATYPE(3) [MARK 'NOT LOCAL' 8 6F46 BRN S10 4 6FHQ # 10 6G3B SHRIEK IETS !,SHRIEK-M 17 6GH2 BNZ 1 M [ERROR IF NOT INITIAL 17 6H2L BNZ 0 SH1 [J IF NOT A LONE ! 7 6HG= LDN 5 0 8 6H_W BRN SH5 4 6JFG # 15 6J_6 S IETS .,S-M [FULL STOP 9 6KDQ LDX 4 HDREC(3) 7 6KYB SBN 4 1 19 6LD2 BZE 4 T [J IF ONLY USERNAME ANALYSED 7 6LXL LDN 4 6 19 6MC= ADS 4 HDREC(3) [LAST LOCAL NAME WAS 6 WORDS 17 6MWW BRN R1 [THEN AS FOR USERNAME 7 6NBG T LDN 4 4 9 6NW6 STO 4 HDREC(3) 7 6P*Q BRN R1 4 6PTB # 7 6Q*2 SH1 LDN 4 0 15 6QSL LDN 5 0 [INITIALISE 7 6R#= LDN 1 0 16 6RRW LDCH 7 0(2) [GET NEXT CHAR 7 6S?G BCHX 2 / 7 6SR6 SBN 0 1 7 6T=Q LDX 6 7 8 6TQB SBN 6 #35 15 6W=2 BNZ 6 SH3 [J IF NOT - 15 6WPL LDN 1 1 [MARK -VE 15 6X9= SH2 BZE 0 SH4 [J NO MORE 16 6XNW LDCH 7 0(2) [GET NEXT CHAR 7 6Y8G BCHX 2 / 16 6YN6 SBN 0 1 [DECREASE COUNT 7 6_7Q SH3 LDX 6 7 8 6_MB SBN 6 #20 15 7272 BZE 6 SH2 [J IF SPACE 7 72LL CDB 4 7 15 736= BCS M [NON-DECIMAL 15 73KW BVSR M [TOO MUCH 8 745G BRN SH2 14 74K6 SH4 BNZ 4 M [TOO BIG 15 754Q BZE 1 SH5 [J IF +VE 7 75JB NGX 5 5 16 7642 WORKNUMB 3 [IF NEG CALCULATE 16 76HL ADX 5 3 [POSITIVE COUNT 8 773= SH5 SMO FX2 17 77GW LDX 3 AWORK4 [ADDRESS OF FABSNB 17 782G STO 5 A1+1(3) [DEPTH OF WORKFILE 7 78G6 LDN 7 4 9 78_Q STO 7 HDREC(3) 9 79FB STOZ A1+2(3) 8 79_2 SMO FX2 15 7=DL LDX 7 JOBNO [JOB NUMBER 9 7=Y= STO 7 A1+3(3) 16 7?CW FINDWFL 2 [FIND WORKFILE 15 7?XG TESTREP OK,SH6 [J IF FOUND 17 7#C6 SETREP NOFILE [ELSE NON-EXISTANT 5 7#WQ UP 17 7*BB SH6 LDN 7 10 [SET UP 10 WD FABSNB 9 7*W2 STO 7 HDREC(3) 9 7B*L LDN 6 FUSER1(2) 9 7BT= LDN 7 A1+1(3) 7 7C#W MOVE 6 9 17 7CSG LDN 0 #200 [SET B16 OF ATYPE 16 7D#6 ORS 0 ATYPE(3) [SINCE WORKFILE 7 7DRQ UPPLUS 1 4 7F?B #PAG 4 7FR2 # 20 7G=L # WE HAVE ALLL THE INFORMATION IN THE ABSOLUTE NAME BLOCK EXEPT FOR 21 7GQ= #
WHIC ARE NOT SPECIFIED SO WE MUST INSERT DEFAULT SETTINGS. 4 7H9W # 4 7HPG TIDY 4 7J96 # 7 7JNQ LDN 6 6 17 7K8B LDX 2 HDREC(3) [SET LENGTH TO END 7 7KN2 ADS 3 2 9 7L7L ADS 6 HDREC(3) 14 7LM= STOZ A1+3(2) [ANY REEL 21 7M6W STOZ A1+4(2) [ANY GENERATION (UGH UGH UGH UGH UGH) 17 7MLG STOZ A1+5(2) [UNSPECIFIED LANGUAGE 4 7N66 # 5 7NKQ VRYTIDY 4 7P5B # 21 7PK2 LDN 6 #1000 [JUST BEFORE WE FINISH NOTE THATBWE 21 7Q4L ERS 6 ATYPE(3) [HAVE INVERTED .LOCAL NAME ONLY. BIT 18 7QJ= UPPLUS 1 [SO PUT IT BACK. BYE-EE. 4 7R3W # 17 7RHG UNCTS [LOOKS LIKE ADJUNCTS 4 7S36 # 9 7SGQ SETREP ADJUNCTS 4 7T2B # 16 7TG2 NUMERR [ERROR IN NUMBER 4 7T_L # 9 7WF= VFREE FILE,FABSNB 5 7WYW UP 4 7XDG #PAG 4 7XY6 # 21 7YCQ # QUALIF IS THE ROUTINE WHICH DISENTANGLES
. CHECKS ARE MADE 14 7YXB # ON ABSENCE OF (NOT HANDLED). 4 7_C2 # 5 7_WL QUALIF 4 82B= # 9 82TW LDX 1 HDREC(3) 7 83*G ADS 3 1 17 83T6 STOZ A1+3(1) [SET DEFAULT VALUES 9 84#Q STOZ A1+4(1) 17 84SB STOZ A1+5(1) [OF REEL, GEN & LANG. 8 85#2 LDX 1 FX2 15 85RL QUAL2 BZE 0 M [ERROR NO RP 8 86?= LDCH 7 0(2) 7 86QW BCHX 2 / 7 87=G SBN 0 1 7 87Q6 QUAL3 STO 3 6 7 889Q STO 7 3 7 88PB SRC 3 2 7 8992 SMO FX1 16 89NL LDCH 5 TABDET(3) [LOOK UP TABLE 7 8=8= LDX 3 6 8 8=MW ADX 5 FX1 14 8?7G EXIT 5 / [FANOUT 4 8?M6 # 14 8#6Q U BRN M [ERROR 4 8#LB # 16 8*62 V IETS #20,V-U,TABDET [SPACE, IGNORE 8 8*KL BRN QUAL2 4 8B5= # 15 8BJW UA IETS A,UA-U [ADJUNCTS? 13 8C4G IET B,C,D,E,F,G,H,I,J,K,L,M,N 13 8CJ6 IET O,P,Q,R,S,T,U,V,W,X,Y,Z,* 14 8D3Q BRN UNCTS [SORRY 4 8DHB # 17 8F32 W IETS +,W-U [GENERATION, RELATIVE 8 8FGL LDCT 6 #200 7 8G2= BRN X+1 4 8GFW # 17 8G_G X IETS -,X-U [GENERATION, RELATIVE 8 8HF6 LDCT 6 #400 8 8HYQ SMO HDREC(3) 9 8JDB STO 6 A1+4(3) 14 8JY2 CALL 6 NUMCON2 [CONVERT 9 8KCL LDX 3 AWRK4(1) 9 8KX= LDX 6 ACOM1(1) 9 8L74 ... BNG 6 NUMERR 8 8LBW SMO HDREC(3) 14 8LWG DLA 6 A1+4(3) [STORE 8 8MB6 BRN QUAL3 4 8MTQ # 17 8N*B Y IETS 0,Y-U [GENERATION, ABSOLUTE 13 8NT2 IET 1,2,3,4,5,6,7,8,9,(,],#23 9 8P#L IET #73 [IE [ 9 8PS= CALL 6 NUMCON1 9 8Q?W LDX 3 AWRK4(1) 9 8QRG LDX 6 ACOM1(1) 8 8R?6 SMO HDREC(3) 9 8RQQ STO 6 A1+4(3) 8 8S=B BRN QUAL3 4 8SQ2 # 16 8T9L Z IETS #34,Z-U [COMMA, IE REEL 14 8TP= CALL 6 NUMCON2 [CONVERT 9 8W8W LDX 3 AWRK4(1) 9 8WNG LDX 6 ACOM1(1) 17 8X86 BNZ 6 Z2 [IF ZERO SET BIT 2 18 8XMQ LDCT 6 #100 [BECAUSE ITS REALLY MEANT 8 8Y7B Z2 SMO HDREC(3) 14 8YM2 STO 6 A1+3(3) [STORE 8 8_6L LDN 6 #400 16 8_L= ORS 6 ATYPE(3) [MARK FOR GETDIR 8 925W BRN QUAL3 4 92KG # 16 9356 MM IETS /,MM-U [SLASH, LANGUAGE 7 93JQ LDN 6 5 8 944B LDX 5 ACES 7 94J2 LDN 1 0 15 953L MM1 BZE 0 M [ERROR NO RP 8 95H= LDCH 7 0(2) 7 962W BCHX 2 / 7 96GG SBN 0 1 7 9726 LDX 4 7 8 97FQ SBN 4 #20 15 97_B BZE 4 MM1 [IGNORE SPACE 9 98F2 SBN 4 #31-#20 15 98YL BZE 4 MM3 [END IF *31 9 99D= SBN 4 #34-#31 15 99XW BZE 4 MM3 [END IF *34 8 9=CG BCT 6 MM2 18 9=X6 BRN MM3 [J IF 4 CHARACTERS HAD 8 9?BQ MM2 DCH 7 5(1) 7 9?WB BCHX 1 / 7 9#B2 BRN MM1 8 9#TL MM3 SMO HDREC(3) 16 9**= STO 5 A1+5(3) [INSERT LANGUAGE 8 9*SW LDN 5 #100 17 9B#G ORS 5 ATYPE(3) [SET B17 FOR LANGUAGE 8 9BS6 LDX 1 FX2 8 9C?Q BRN QUAL3 4 9CRB # 14 9D?2 NN IETS ),NN-U [RP ENDS 7 9DQL LDN 6 6 16 9F== ADS 6 HDREC(3) [SET FINAL LENGTH 17 9FPW NN1 BZE 0 VRYTIDY [END IF END OF STRING 18 9G9G LDCH 7 0(2) [JUST A QUICK CHECK ON 18 9GP6 SBN 0 1 [WHAT FOLLOWS THE RP OF 17 9H8Q SBN 7 #30 [
. IF IT IS 19 9HNB BCHX 2 / [A LP IT COULD BE ADJUNCTS 18 9J82 BZE 7 UNCTS [WHICH IS A GREAT SHAME 16 9JML BRN NN1 [AT THIS POINT 4 9K7= # 9 9KLW MENDAREA 50,K100FFFNORM 4 9L6G #END 8 ____ ...63554023000200000000