16 22FL #SEG DELCON8 [PHILIP TURNER. 16 22PD ... [ (C) INTERNATIONAL COMPUTERS LIMITED 1982 7 22_= #OPT K0DELCON=0 14 23DW #LIS K0DELCON>K0ALLGEO>K0GREATGEO>K0COMMAND 7 23YG 8HDELCON 4 24D6 # 4 24XQ # 14 25CB # ENTRY FOR ^CANCEL CONCEPTUAL^ COMMAND. 4 25X2 # 11 26BL SEGENTRY K1DELCON,X1DELCON 4 26W= # 21 27*W # ENTRY DOWN FROM CONCEPT TO CLEAR ATTACHMENTS WHEN CHANGING SIZE. 4 27TG # 11 28*6 SEGENTRY K2DELCON,X2DELCON 4 28SQ # 18 28XW ...# ENTRY POINT TO DO 'ERASE' MACRO FOR A M/C 'B' COMMAND 4 2932 ...# 14 2966 ... FSHENTRY K3DELCON,X3DELCON,,X3DELCON 4 299= ...# 4 29#B # 4 29S2 # 9 2=?L MASK #37777000 9 2=R= #37777777 9 2?=W #7777777 9 2?QG #1000000 9 2#=6 ZJPARAM +JPARMIS 9 2#PQ ZJPARNAM +JPARNAM 9 2*9B ZJSETP1 +JSETP1 9 2*P2 ZJDELON +JDELON 9 2B8L ZJDELEX +JDELEX 4 2BN= # 18 2C7W # THIS PART DEALS WITH DELETING A COMPLETE CONCEPTUAL. 4 2CMG # 4 2D76 XMXB 8 2DLQ SBX 7 FX1 8 2F6B LDX 2 FX2 7 2FL2 MXB 2 8 2G5L ADX 7 FX1 7 2GK= EXIT 7 0 5 2H4W XNEWMXB 8 2HJG SBX 7 FX1 8 2J46 LDX 2 FX2 7 2JHQ NEWMXB 2 8 2K3B ADX 7 FX1 7 2KH2 EXIT 7 0 6 2L2L XFREECELL 8 2LG= SBX 7 FX1 8 2L_W MFREECELL 2,3 8 2MFG ADX 7 FX1 7 2M_6 EXIT 7 0 5 2NDQ XNAME 8 2NYB SBX 7 FX1 15 2PD2 MNAME 2,3 [CHECK NAME 8 2PXL ADX 7 FX1 7 2QC= EXIT 7 0 5 2QWW X1DELCON 5 2RBG XPARAM 7 2RW6 SPARAPASS 17 2S*Q MHUNT 3,CPB,CUNI [ANALYSE PARAMETERS. 9 2STB LDX 2 ANUM(3) 16 2T*2 BNG 2 XCOM2 [NO PARAMETERS. 16 2TSL BZE 2 XCOM2 [NULL PARAMETERS. 9 2W#= LDCH 4 APARA(3) 8 2WRW SBN 4 #41 8 2X?G BNG 4 XCOM1 9 2XR6 SBN 4 #73-#41 18 2Y=Q BPZ 4 XCOM1 [FIRST CHAR. NOT A LETTER 7 2YQB SRL 2 2 7 2_=2 SBN 2 4 20 2_PL BPZ 2 XCOM1 [ERROR CONCEPTUAL NAME > 3WDS. 7 2_SQ ...#UNS IDFMARK8 9 2_XW ... IDFOPEN ZBRKINI 7 3232 ...#UNS IDFMARK8 4 3266 ...#SKI 18 329= IDFOPEN [CALL MACRO TO OPEN IDF. 7 32NW LDN 3 0 8 338G XNA SMO FX2 20 33N6 STOZ ACOMMUNE1 [TO INDICATE IN CPB/CUNI BLK. 18 347Q CALL 7 XNAME [HUNT FOR CONCEPTUAL NAME 4 34MB XOK 8 3572 SMO FX2 20 35LL LDX 0 ACOMMUNE1 [OK IF NAME IN CORE ERROR IF NOT 8 366= BZE 0 XCOM3 7 36KW SMO 3 8 375G LDX 5 4(2) 18 37K6 BNG 5 XCOM4 [J. IF -VE ONLINED ERR. 8 384Q SMO FX2 9 38JB STO 5 AWORK4 17 3942 LDX 5 BRECNO(2) [LD. CURRENT REC.NO. 7 39HL SLL 5 9 7 3=3= ADX 5 3 8 3=GW SMO FX2 18 3?2G STO 5 AWORK2 [ST. PTR. TO NAME CELL. 7 3?G6 SMO 3 8 3?_Q LDX 5 5(2) 8 3#FB BZE 5 XNON 21 3#_2 CALL 0 XUSE [CALL ROUTINE WHICH FREES PTRS. TO LN 4 3*DL # 21 3*Y= # ROUTINE TO ERASE DIRECTORY ENTRY FOR ^OWNED^ CONCEPTUAL. 4 3BCW # 4 3BXG XNON 8 3CC6 LDX 2 FX2 20 3CWQ LDX 3 AWORK2(2) [PTR.TO THE 1ST CONCEPTUAL CELL 21 3DBB LDX 4 3 [NO OF THE RECORD WHICH CONTAINS THE 20 3DW2 SRL 4 9 [1ST CELL OF THE TO BE CANCELLED 15 3F*L ANDN 4 #777 [CONCEPTUAL 10 3FT= STO 4 ACOMMUNE3(2) 21 3G#W CALL 7 XMXB [X2-ABSOLUTE POINTER TO THE RECORD 21 3GSG ANDN 3 #777 [X3-REL.PTR TO THE 1ST CONCEP.CELL 7 3H#6 LDX 4 3 20 3HRQ ADX 3 2 [X3-ABS.PTR TO THE 1ST CONCEP,CEL 20 3J?B LDX 5 7(3) [X5-PTR TO THE 2ND CONCEP CELL 20 3JR2 BPZ 5 SARE [WHEN 2ND CONCEP,CELL IN THE SAME 13 3K=L [REC.JUMP ELSE SEARCH FOR ANOTHER 7 3KQ= LDXC 0 5 15 3L9W SRL 0 9 [NEXT REC.NO 8 3LPG SMO FX2 9 3M96 STO 0 ACOMMUNE3 19 3MNQ CALL 7 XMXB [X2-ABS,PTR TO THE NEXT REC 7 3N8B SARE LDEX 1 5 21 3NN2 LDX 3 4 [X3-REL.PTR TO THE 1ST CONCEP CELL 20 3P7L ADX 1 2 [ABS. PTR TO THE 2ND CONCEPT CELL 17 3PM= LDX 0 0(1) [IS USERNAME PRESENT? 8 3Q6W BZE 0 SECNO 4 3QLG # 21 3R66 LDN 5 0(1) [MOVE USERNAME FROM 2ND CONCEPT CELL 16 3RKQ SMO FX2 [TO ACOMMUNE1,2,3 9 3S5B LDN 6 ACOMMUNE1 7 3SK2 MOVE 5 3 16 3T4L LDX 4 BRECNO(2) [PRESERVE REC.NO 17 3TJ= SETNCORE 10,1,FILE,FABSNB [CREATE FILE FABSNB 8 3W3W LDN 0 10 8 3WHG STO 0 A1(1) 9 3X36 STOZ A1+7(1) 9 3XGQ STOZ A1+8(1) 9 3Y2B STOZ A1+9(1) 16 3YG2 LDN 5 ACOMMUNE1(2) [MOVE USERNAME 9 3Y_L LDN 6 A1+1(1) 7 3_F= MOVE 5 3 19 3_YW STO 4 ACOMMUNE3(2) [X2 ABS POINTER TO THE RECORD 7 42DG NEW 2 7 42Y6 ADX 2 3 18 43CQ LDN 5 1(2) [MOVE CONCEP,FILE NAME 9 43XB LDN 6 A1+4(1) 7 44C2 MOVE 5 3 20 44T5 ...X3DELCON [ ENTRY FROM M/C B TO DO 'ERASE' 6 44WL ERASE 4 45B= # 18 45TW # ROUTINE TO FIND THE CELL IN THE CONCEPTUAL LIST WHICH 16 46*G # POINTS TO THE CONCEPTUAL WHICH WE ARE FREEING 4 46T6 # 8 47#Q SECNO LDN 3 BCONT 8 47SB SMO FX2 9 48#2 STOZ ACOMMUNE3 15 48RL XM CALL 7 XMXB [HUNT REC. 7 49?= SMO 3 19 49QW LDXC 6 0(2) [X6 = PTR. TO NEXT CONCEPTUAL 17 4==G LDEX 5 6 [X5 = CELL POINTER. 8 4=Q6 XTS SMO FX2 21 4?9Q TXU 6 AWORK2 [J. IF EQUAL TO THE ONE TO BE FREED 8 4?PB BCC XIT 20 4#92 SBX 6 5 [X6=REC.NO. OF NEXT CONCEPTUAL. 20 4#NL LDX 3 5 [X3=CELL PTR. OF NEXT CONCEPTUAL 7 4*8= SRL 6 9 8 4*MW SMO FX2 15 4B7G STO 6 ACOMMUNE3 [ST. REC.NO. 18 4BM6 BRN XM [J. BACK FOR NEXT PTR. 15 4C6Q XIT LDX 6 BRECNO(2) [LD.REC.NO. 7 4CLB SLL 6 9 16 4D62 ADX 6 3 [AD. IN CELL PTR. 8 4DKL SMO FX2 21 4F5= STO 6 AWORK1 [ST. REC.NO. AND CELL PTR IN AWORK1 4 4FJW # 18 4G4G # GO THROUGH FREEING CELLS CONNECTED TO THIS CONCEPTUAC 4 4GJ6 # 8 4H3Q XHT SMO FX2 21 4HHB LDX 3 AWORK2 [LD. PTR. TO CONCEPTUAL TO BE FREED. 17 4J32 LDX 6 3 [BIT 0 IS NEVER SET. 7 4JGL SRL 6 9 8 4K2= SMO FX2 18 4KFW STO 6 ACOMMUNE3 [ST. REC.NO. FOR HUNT. 17 4K_G CALL 7 XNEWMXB [HUNT REC. IN CORE. 16 4LF6 ANDN 3 #777 [X3= CELL PTR. 7 4LYQ ADN 3 7 21 4MDB ADX 3 2 [X3= PTR. TO LAST WD. IN BASE OF CONC 8 4MY2 XHTA LDXC 6 0(3) 20 4NCL BCS XAP [J. IF -VE. AS IN ANOTHER REC. 16 4NX= XAB ANDN 6 #777 [X6 = CELL PTR. 19 4PBW SMO 6 [X2 = ABSOLUTE PTR. TO CELL. 17 4PWG LDXC 4 7(2) [LD. LAST WD. OF CELL 16 4QB6 LDN 0 0 [CLEAR C IF SET. 8 4QTQ SMO FX2 20 4R*B STO 4 AWORK4 [ST. PTR. TO NEXT CELL IN AWORK4. 8 4RT2 SMO FX2 17 4S#L LDX 3 AWORK2 [LD. PTR. FROM AWORK2 7 4SS= LDXC 6 3 7 4T?W SRL 6 9 8 4TRG SMO FX2 16 4W?6 STO 6 ACOMMUNE3 [REC.NO. FOR HUNT 17 4WQQ CALL 7 XNEWMXB [HUNT REC. IN CORE 8 4X=B ANDN 3 #777 19 4XQ2 ADN 3 7 [X3=PTR. TO LAST WD. OF CELL 8 4Y9L SMO FX2 19 4YP= LDX 6 AWORK4 [LD. NEXT CELL TO BE FREED 15 4_8W CALL 7 XFREECELL [FREE CELL 16 4_NG BZE 6 XFR [J. END OF CHAIN. 15 5286 LDX 7 6 [MUST BE +VE. 7 52MQ SRL 7 9 20 537B BXE 7 BRECNO(2),XST4 [J. IF EQUAL TO CONCEPT REC.NO. 16 53M2 LDCT 7 #400 [LD. INDICATOR. 21 546L ADX 6 7 [SET INDICATOR TO SAY IN ANOTHER REC. 7 54L= XST4 ADX 3 2 13 555W STO 6 0(3) [CELL 14 55KG BRN XHTA [J. BACK 16 5656 XAP LDX 3 6 [IN ANOTHER REC. 19 56JQ SRL 6 9 [BUT X6 IS +VE. 'COS OF LDXC. 8 574B SMO FX2 15 57J2 STO 6 ACOMMUNE3 [ST. REC.NO. 15 583L CALL 7 XMXB [HUNT REC. 15 58H= LDX 6 3 [X6=CELL PTR. 8 592W BRN XAB 21 59GG XFR LDX 2 FX2 [END PIECE TO FREE THE BASE CONCEPT. 21 5=26 LDX 3 AWORK1(2) [PTR. TO CELL BEFORE CONCEPT. IN AWK1 7 5=FQ LDXC 6 3 7 5=_B SRL 6 9 10 5?F2 STO 6 ACOMMUNE3(2) 16 5?YL CALL 7 XNEWMXB [HUNT FOR REC. 15 5#D= ANDN 3 #777 [X3=CELL PTR. 15 5#XW CALL 7 XFREECELL [FREE CELL 9 5*CG XEND CALL 6 SUBWRITE 17 5*X6 MFREE CPB,CUNI [FREE PARAMETER BLOCK 6 5BBQ ENDCOM 4 5BWB # 20 5CB2 # ROUTINE TO GO DOWN THROUGH CONCEPTUAL FREEING PTRS. 4 5CTL # 4 5D*= XUSE 8 5DSW SBX 0 FX1 8 5F#G LDX 2 FX2 15 5FS6 STO 0 ACOMMUNE6(2) [STORE LINK 10 5G?Q STOZ ACOMMUNE4(2) 7 5GRB ADX 5 5 11 5H?2 SETUPCORE 5,3,IDF,CONCEP 7 5HQL SRL 5 1 20 5J== XUA STO 5 AWORK1(2) [ST. IN AWORK1 NO. OF LINES USED 10 5JPW STOZ ACOMMUNE1(2) 21 5K9G LDX 3 AWORK2(2) [LD. WD. CONTAIN PTR TO CONCEPT NAME 15 5KP6 STO 3 AWORK3(2) [ST. ABOVE 9 5L8Q LDX 0 AWORK4(2) 17 5LNB STO 0 ACOMMUNE5(2) [FOR A NEW CONCEPTUAL 7 5M82 LDXC 4 3 7 5MML SRL 4 9 15 5N7= STO 4 ACOMMUNE3(2) [ST. REC NO. 15 5NLW CALL 7 XMXB [HUNT REC. 17 5P6G ANDN 3 #777 [MASK OUT CELL PTR 7 5PL6 ADX 3 2 4 5Q5Q # 8 5QKB SMO FX2 9 5R52 LDX 0 ACOMMUNE4 8 5RJL BZE 0 VYFR 19 5S4= STOZ 5(3) [CLEAR NO OF ATTACHED LINES 8 5SHW VYFR LDX 0 4(3) 20 5T3G SMO FX2 [SIZE OF THE ORIGINAL CONCEPTUAL 9 5TH6 STO 0 AWORK4 15 5W2Q LDN 4 2 [SET MARKER 21 5WGB RYSA LDN 1 7(3) [ONE MUST FIND IN MARK6 THE SECOND 19 5X22 LDX 3 0(1) [SUBSIDIARY CELL BECAUSE THE 8 5XFL SMO FX2 9 5X_= STO 3 AWORK3 21 5YDW BPZ 3 RFRAN [CONCEPTUAL CELL SUBSIDIARY POINTERS 15 5YYG LDXC 5 3 [START THERE 7 5_D6 SRL 5 9 8 5_XQ SMO FX2 9 62CB STO 5 ACOMMUNE3 8 62X2 CALL 7 XMXB 20 63BL RFRAN ANDN 3 #777 [CREATE ABSOLUTE ADDRESS OF THE 20 63W= ADX 3 2 [1ST WORD OF THE 2ND SUBSIDIARY 21 64*W BCT 4 RYSA [J. BACK TO STEP OVER USER NAME CELL. 4 64TG # 20 65*6 SMO FX2 [IN TOP BITS POSITION IN THE CELL 21 65SQ LDX 6 AWORK4 [IN THE BOTTOM BITS IS THE SIZE OF 18 66#B [THE ORIGINAL CONCEPTUAL 19 66S2 LDN 1 0(3) [LOAD POINTER TO THE 1ST WORD 17 67?L BRN XUS [OF SUSIDIARY CELL 4 67R= # 15 68=W XUSEA LDX 7 BRECNO(2) [LD. REC.NO. 8 68QG SMO FX2 19 69=6 STO 7 ACOMMUNE3 [ACOMMUNE3 = CURRENT REC.NO. 17 69PQ XUS LDX 3 0(1) [LD. PTR. TO LINE. 8 6=9B SMO FX2 9 6=P2 LDX 0 ACOMMUNE4 8 6?8L BZE 0 XUAB 15 6?N= STOZ 0(1) [STOZ PTR. 15 6#7W XUAB BPZ 3 XUSA [IN THIS REC 17 6#MG LDXC 5 3 [MASK OUT REC. NO. 7 6*76 SRL 5 9 8 6*LQ SMO FX2 16 6B6B STO 5 ACOMMUNE3 [ST. NEW REC.NO. 8 6BL2 XUSA BZE 3 XUSX 8 6C5L ANDN 3 #777 16 6CK= CALL 7 XMXB [HUNT FOR REC. 16 6D4W ADX 3 2 [X3=PTR.TO CELL. 8 6DJG SMO FX2 9 6F46 LDX 0 ACOMMUNE4 8 6FHQ BZE 0 XAAX 21 6G3B STOZ CONTCEP(3) [ZEROISE PTR. TO CONCEP. IN LINE CELL 8 6GH2 XUSX LDX 2 FX2 8 6H2L LDX 1 FX1 21 6HG= LDX 6 AWORK4(2) [AWORK=POSIT.DOWN CELL/CT.OF NO. LNS 8 6H_W LDCT 7 #700 19 6JFG ANDX 6 7 [MASK OUT POSITION DOWN CELL. 7 6J_6 SLC 6 3 17 6KDQ ADN 6 1 [INCREASE CT. BY ONE. 17 6KYB LDN 7 7 [POSITION DOWN CELL. 7 6LD2 SBX 7 6 19 6LXL BZE 7 XABX [REACHED THE END OF A CELL. 7 6MC= LDX 0 6 7 6MWW SRC 6 3 9 6NBG LDX 4 AWORK4(2) 17 6NW6 ANDX 4 MASK+2(1) [MASK OUT TOP BITS 7 6P*Q SBN 4 1 8 6PTB BZE 4 XITA 19 6Q*2 ADX 4 6 [ADD IN NEW PTR. DOWN CELL 7 6QSL LDX 6 0 9 6R#= STO 4 AWORK4(2) 8 6RRW BZE 3 XUX 7 6S?G LDN 7 1 20 6SR6 SBS 7 AWORK1(2) [DECREASE CT. OF NO. LINES USED 9 6T=Q LDX 7 AWORK1(2) 21 6TQB BZE 7 XITA [J. BACK IF ZERO WE HAVE UNSET ALL PT 9 6W=2 XUX LDX 3 AWORK3(2) 17 6WPL LDXC 5 3 [MASK OUT REC. NO. 7 6X9= SRL 5 9 15 6XNW STO 5 ACOMMUNE3(2) [ST. REC.NO. 8 6Y8G ANDN 3 #777 8 6YN6 CALL 7 XMXB 7 6_7Q ADX 3 2 7 6_MB LDX 1 6 7 7272 ADX 1 3 8 72LL BRN XUSEA 8 736= XITA SMO FX2 9 73KW LDX 0 ACOMMUNE4 8 745G BZE 0 XJOHN 8 74K6 SMO FX2 9 754Q LDX 0 ACOMMUNE5 8 75JB SMO FX2 9 7642 STO 0 AWORK4 8 76HL SMO FX2 9 773= LDX 0 ACOMMUNE6 8 77GW ADX 0 FX1 7 782G EXIT 0 0 12 78G6 XAAX MHUNTW 2,IDF,CONCEP [ 9 78_Q LDX 6 BTYPE(3) 8 79FB SMO FX2 9 79_2 LDX 7 ACOMMUNE1 7 7=DL SMO 7 8 7=Y= STO 6 A1(2) 9 7?CW LDX 6 BNO(3) 7 7?XG SMO 7 9 7#C6 STO 6 A1+1(2) 7 7#WQ LDN 7 2 8 7*BB SMO FX2 9 7*W2 ADS 7 ACOMMUNE1 8 7B*L BRN XUSX 5 7BT= XJOHN 8 7C#W LDX 2 FX2 10 7CSG LDX 0 ACOMMUNE5(2) 9 7D#6 STO 0 AWORK4(2) 9 7DRQ ... DOWN DETACHB,1 9 7F?B LDX 3 AWORK2(2) 7 7FR2 LDX 4 3 8 7G=L SMO FX1 8 7GQ= ANDX 4 MASK 7 7H9W SRL 4 9 10 7HPG STO 4 ACOMMUNE3(2) 8 7J96 CALL 7 XMXB 8 7JNQ ANDN 3 #777 7 7K8B SMO 3 8 7KN2 LDX 5 5(2) 8 7L7L LDX 2 FX2 18 7LM= STO 5 ACOMMUNE4(2) [SET PTR. THE OTHER WAY. 8 7M6W BRN XUA 21 7MLG [THIS PIECE IS FOR GETTING ANOTHER 16 7N66 XABX LDX 4 AWORK4(2) [CONCEPTUAL CELL. 18 7NKQ ANDX 4 MASK+2(1) [ZEROISE PTR. DOWN CELL 7 7P5B SBN 4 1 8 7PK2 BZE 4 XITA 9 7Q4L STO 4 AWORK4(2) 8 7QJ= BZE 3 XAX 7 7R3W LDN 7 1 20 7RHG SBS 7 AWORK1(2) [DECREASE CT. OF NO. LINES USED 9 7S36 LDX 7 AWORK1(2) 21 7SGQ BZE 7 XITA [WE HAVE REACHED THE END OF LNS. USED 18 7T2B XAX LDX 3 AWORK3(2) [LD.PTR. TO CURRENT CELL. 7 7TG2 LDX 5 3 16 7T_L ANDX 5 MASK(1) [MASK OUT REC NO. 7 7WF= SRL 5 9 15 7WYW STO 5 ACOMMUNE3(2) [ST. REC.NO. 8 7XDG ANDN 3 #777 16 7XY6 CALL 7 XMXB [HUNT FOR CELL 7 7YCQ SMO 2 8 7YXB LDX 4 7(3) 7 7_C2 LDX 3 4 9 7_WL ANDX 4 MASK(1) 7 82B= SRL 4 9 8 82TW SMO FX2 9 83*G STO 4 ACOMMUNE3 15 83T6 CALL 7 XMXB [HUNT REC. 15 84#Q LDX 4 BRECNO(2) [LD. REC.NO. 7 84SB SLL 4 9 15 85#2 ANDN 3 #777 [X3=CELL PTR. 7 85RL ADX 4 3 8 86?= SMO FX2 20 86QW STO 4 AWORK3 [ST. CURRENT REC.NO./CELL PTR. 7 87=G ADX 3 2 8 87Q6 LDN 1 0(3) 8 889Q BRN XUS 5 88PB X2DELCON 8 8992 CALL 0 XUSE 5 89NL UP 4 8=8= # 4 8=MW # 21 8?7G SUBWRITE [SUBROUTINE TO WRITE AWAY ALTERED BLOCKS. 8 8?M6 SBX 6 FX1 7 8#6Q IDFWRITE 6 8#LB CLOSE 7 8*62 ADX 6 1 7 8*KL EXIT 6 0 4 8B5= # 4 8BJW # 5 8BN2 ...ZBRKINI 7 8BR6 ... COMBRKIN 4 8BW= ...[ 4 8B_B ...[ 17 8C4G XCOM1 LDX 5 ZJSETP1(1) [EXPRESSION INVALID 9 8CJ6 BRN XCOMERR1 18 8D3Q XCOM2 LDX 5 ZJPARAM(1) [ERROR PARAMETER MISSING 17 8DHB LDX 7 ZJPARNAM(1) [SUBMESSAGE - NO NAME 8 8F32 COMERRX 5,7 18 8FGL XCOM3 LDX 5 ZJDELEX(1) [ERROR - DOES NOT EXIST 9 8G2= BRN XCOMERR 19 8GFW XCOM4 LDX 5 ZJDELON(1) [ERROR CONCEPT/UNIT ONLINED. 5 8G_G XCOMERR 9 8HF6 CALL 6 SUBWRITE 5 8HYQ XCOMERR1 7 8JDB COMERRX 5 4 8JY2 # 4 8KCL # 4 8KX= # 10 8LBW MENDAREA 50,K100DELCON 4 8LWG # 4 8MB6 # 4 8MTQ # 4 8N*B #END 8 ____ ...51550432000200000000