{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: NORMERR860)}}
====== NORMERR860 ======
(George Source)
**Macros used:** [[george:macro:ACROSS|ACROSS]], [[george:macro:BBUS|BBUS]], [[george:macro:CHAIN|CHAIN]], [[george:macro:ERROR|ERROR]], [[george:macro:ERRORX|ERRORX]], [[george:macro:HUNT|HUNT]], [[george:macro:JANAL|JANAL]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MFREE|MFREE]], [[george:macro:MONOUTX|MONOUTX]], [[george:macro:NAMETOP|NAMETOP]], [[george:macro:OUTMESSX|OUTMESSX]], [[george:macro:OUTNULL|OUTNULL]], [[george:macro:OUTPARAM|OUTPARAM]], [[george:macro:PARAFREE|PARAFREE]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETREP|SETREP]], [[george:macro:SPARANOT|SPARANOT]], [[george:macro:TESTREP|TESTREP]], [[george:macro:TRACE|TRACE]], [[george:macro:UP|UP]], [[george:macro:VFREE|VFREE]]
22FL #OPT K0NORMERR=0
22^= #LIS K0NORMERR>K0ALLGEO>K0GREATGEO>K0FILESTORE
23DW #OPT K6NORMERR=K6ALLGEO>K6GREATGEO>K6FILESTORE
23YG #SEG NORMERR5 [ TONY HAMILTON
24D6 8HNORMERR
24XQ # THIS SEGMENT IS AN OVERFLOW SEGMENT FROM NORMALUS TO HOLD
25CB # ERROR 1ROUTINES
25X2 #
26BL SEGENTRY K1NORMERR,X1
26W= SEGENTRY K2NORMERR,X2
27*W SEGENTRY K3NORMERR,X3
27TG SEGENTRY K4NORMERR,X4
28*6 SEGENTRY K5NORMERR,X5
28SQ SEGENTRY K7NORMERR,X7
29#B SEGENTRY K8NORMERR,X8
29S2 SEGENTRY K9NORMERR,X9
2=?L SEGENTRY K10NORMERR,X10
2=R= SEGENTRY K11NORMERR,X11
2?=W SEGENTRY K12NORMERR,X12
2?QG SEGENTRY K13NORMERR,X13
2#=6 SEGENTRY K14NORMERR,X14
2#PQ SEGENTRY K15NORMERR,X15
2*9B SEGENTRY K16NORMERR,X16
2*P2 SEGENTRY K17NORMERR,X17
2B8L SEGENTRY K18NORMERR,X18
2BN= SEGENTRY K19NORMERR,X19
2C7W ...[
2CMG SEGENTRY K21NORMERR,X21
2D76 SEGENTRY K22NORMERR,X22
2DLQ SEGENTRY K23NORMERR,X23
2F6B SEGENTRY K24NORMERR,X24
2FL2 SEGENTRY K25NORMERR,X25
2G5L SEGENTRY K26NORMERR,X26
2GK= SEGENTRY K27NORMERR,X27
2H4W SEGENTRY K28NORMERR,X28
2HJG SEGENTRY K29NORMERR,X29
2J46 SEGENTRY K30NORMERR,X30
2JHQ SEGENTRY K31NORMERR,X31
2K3B SEGENTRY K32NORMERR,X32
2KH2 SEGENTRY K33NORMERR,X33
2L2L [
2LG= SEGENTRY K36NORMERR,X36
2L^W SEGENTRY K37NORMERR,X37
2MFG SEGENTRY K38NORMERR,X38
2M^6 SEGENTRY K39NORMERR,X39
2NDQ SEGENTRY K40NORMERR,X40
2NYB SEGENTRY K41NORMERR,X41
2PD2 SEGENTRY K42NORMERR,X42
2PXL SEGENTRY K43NORMERR,X43
2QC= SEGENTRY K44NORMERR,X44
2QWW SEGENTRY K45NORMERR,X45
2RBG SEGENTRY K46NORMERR,X46
2RW6 [
2S*Q SEGENTRY K60NORMERR,X60
2STB SEGENTRY K61NORMERR,X61
2T*2 SEGENTRY K62NORMERR,X62
2TSL SEGENTRY K63NORMERR,X63
2W#= SEGENTRY K64NORMERR,X64
2WRW SEGENTRY K65NORMERR,X65
2X?G SEGENTRY K66NORMERR,X66
2XR6 [
2Y=Q SEGENTRY K68NORMERR,X68
2YQB SEGENTRY K69NORMERR,X69
2^=2 SEGENTRY K70NORMERR,X70
2^PL [
329= SEGENTRY K87NORMERR,X87
32NW [
338G SEGENTRY K89NORMERR,X89
33N6 [
347Q SEGENTRY K96NORMERR,X96
34?M ... SEGENTRY K20NORMERR,X20
34CJ ... SEGENTRY K34NORMERR,X34
34HF ... SEGENTRY K35NORMERR,X35
34MB #
3572 UNIVERSALS
35LL UNILONG
366= +ENTLONG
36KW UNINUMB
375G +ENTNUMB
37K6 UNILANG
384Q +ALANGERR
38JB UNIRET
3942 +AREPLARGE
39HL UNILL
3=3= +ENTNILL
3=GW UNIGEN
3?2G +AGENERR
3?G6 UNIUSE
3?^Q +ENTNUSE
3#FB UNIAIL
3#^2 +JDETAIL
3*DL UNIFORE
3*Y= +JBEFORE
3BCW UNIJQ
3BXG +JQUALIFIER
3CC6 UNINOTPR
3CWQ +JNOTPAIR
3DBB UNIMAST
3DW2 +AMAST
3F*L UNIFORM
3FT= +FORMTSN
3G#W UNIJONLY
3GSG +JONLYONE
3H#6 UNIPROP
3HRQ +JWFTRAP
3J?B UNIJUNS
3JR2 +KUNSTYLE
3K=L UNIPARMI
3KQ= +JPARMIS
3L9W UNIPARMA
3LPG +KPARMIS
3M96 UNITRAPN
3MNQ +JTRAPST
3N8B UNIENT
3NN2 +JFENTRANT
3P7L UNIDEFO
3PM= +ADEFORM
3Q6W UNIQUAL
3QLG +ALQUAL
3QRN ...UNIMTLG
3QYW ... +ALANGXX
3R66 UNISIZQ
3RKQ +ANOSIZQ
3S5B UNIDEV
3SK2 +ADEVIOUS
3T4L UNICOMB
3TJ= +ILLCOMB
3W3W UNIBIK
3WHG +BIGKW
3X36 UNI2Q
3XGQ +ADOUBLEQ
3Y2B UNIDISQ
3YG2 +ADISQUIET
3Y^L UNIBING
3^F= +BUCKING
3^YW UNIBREK
42DG +BANDREC
42Y6 UNIKLER
43CQ +AKEYLER
43XB UNI0LIM
44C2 +ERZERLIM
44WL UNISTRIM
45B= +ENTNILL
45TW UNILDET
46*G +ILLDETAIL
46T6 UNIHOWL
47#Q +ASHRIEKLES
47SB UNIREEL
48#2 +EELREEL
48RL UNISUBQ
49?= +JSUBQUAL
49QW UNIDIRD
4==G +ADJDIRLES
4=Q6 UNIBRAK
4?9Q +ILLBRAC
4?PB UNIDESTC
4#92 +ERRDESTC
4#NL +0
4#RQ ...UNIMAX
4#WW ... +JMAXPAR
4*22 ...UNINCPLT
4*56 ... +JINCPLT
4*8= NAM
4*MW +ERNAMEFORM
4B7G +ERUSERFORM
4BM6 +ERUNPAIR
4C6Q +ERNOUSER
4CLB +0
4CN5 ...ZFNORMED
4CPS ...# CALLED ON X2
4CRH ...# USED TO SUPPRESS ERROR MESSAGES
4CSB ... JANAL XITNOMESS [J IF STILL PROCESSING COMMAND
4CT= ... HUNT 1,FI,FNORM [ FIND MARKER BLOCK
4CW^ ... BNG 1 XITF [ EXIT IF NOT THERE
4CYN ... BBUS 17,A1(1),XITF [ OR BIT CLEAR
4C^H ...XITNOMESS
4D2C ... EXIT 2 0 [ EXIT TO BRN OVER MESSAGE
4D46 ...XITF EXIT 2 1 [ EXIT TO OUTPUT MESSAGE
4D62 X69
4DKL # MESSAGE :"ILLEGAL CHARACTER AFTER BRACKET"
4F5= LDX 7 UNIBRAK(1)
4FJW BRN YESFREE
4G4G X68
4GJ6 # MESSAGE :"DETAILS & ADJUNCTS NOT ALLOWED TO DIRECTORY NAMES
4H3Q LDX 7 UNIDIRD(1)
4HHB BRN YESFREE
4J32 X63
4JGL LDX 6 UNIPARMI(1)
4K2= LDX 7 UNIENT(1)
4K7D ... CALL 2 ZFNORMED [ ERROR SUPPRESSING
4K#L ... BRN Z1
4KFW ERRORX 6,7
4KPN ...Z1
4K^G SETREP NAMEFORM
4LF6 MFREE CPB,CUNI
4LYQ BRN UP
4MDB X1
4MY2 # MESSAGE:-USERNAME/LOCALNAME TOO LONG
4NCL LDX 0 AWORK4(2) [J IF ERROR SUPPRESSION
4NX= BPZ 0 N71
4PBW SETREP LONG
4PWG BRN UP
4QB6 N71
4QTQ LDX 7 UNIVERSALS(1)
4R*B BRN NOFREE
4RT2 X2
4S#L # MESSAGE:-LOCALNAME:1ST CHARACTER MUST BE LETTER
4SS= LDX 7 UNIVERSALS+1(1)
4T?W BRN NOFREE
4TRG X5
4W?6 # MESSAGE:-ILLEGAL CHARACTER IN USERNAME/LOCALNAME
4WQQ LDX 0 AWORK4(2) [J IF ERROR SUPPRESSION
4X=B BPZ 0 N72
4XQ2 SETREP CHAR
4Y9L BRN UP
4YP= N72
4^8W LDX 7 UNIVERSALS+4(1)
4^NG BRN NOFREE
5286 X7
52MQ # MESSAGE:-USERNAME:2ND CHARACTER MUST BE LETTER
537B LDX 0 AWORK4(2) [J IF ERROR SUPPRESSION
53M2 BPZ 0 N73
546L SETREP FIRST
54L= BRN UP
555W N73
55KG LDX 7 UNIVERSALS+6(1)
5656 BRN NOFREE
56JQ X3
574B # MESSAGE:-LANGUAGE CODE NOT IN CORRECT FORMAT
57J2 LDX 7 UNIVERSALS+2(1)
583L BRN YESFREE
58H= X4
592W # MESSAGE:-RETENTION PERIOD OUT OF RANGE
59GG LDX 7 UNIVERSALS+3(1)
5=26 BRN YESFREE
5=FQ X96
5=^B # MESSAGE:-GENERATION NUMBER OUT OF RANGE
5?F2 LDX 7 UNIVERSALS+5(1)
5?YL YESFREE
5#5S ... CALL 2 ZFNORMED
5#?2 ... BRN X12
5#D= MONOUTX 7
5#XW X12
5*CG MFREE CPB,CUNI
5*X6 BRN XAINX
5BBQ NOFREE
5BWB X15
5CB2 BPZ 4 YESFREE
5CH8 ... CALL 2 ZFNORMED
5CNB ... BRN X14
5CTL MONOUTX 7
5D*= X14
5DSW # MESSAGE:-ERROR %B,%A,%C IS NOT A CORRECT USERNAME FORMAT
5F#G VFREE FILE,ADICT
5FS6 LDX 1 FX1 [IN CASE ADICT WASN'T THERE
5G?Q LDX 7 NAM+1(1)
5GDY ... CALL 2 ZFNORMED [ ERROR SUPPRESSING
5GL6 ... BRN UND
5GRB ERRORX 7
5H?2 UND
5HQL SETREP USERFORM
5J== BRN UP
5JPW X8
5K9G # MESSAGE:-ONLY ONE SET OF DETAILS MAY BE GIVEN
5KP6 LDX 7 UNIVERSALS+7(1)
5L8Q BRN XAIN
5LNB X9
5M82 # MESSAGE:-DETAILS MUST COME BEFORE QUALIFIERS
5MML LDX 7 UNIVERSALS+8(1)
5N7= BRN XAIN
5NLW X10
5P6G # MESSAGE:-ONLY ONE SET OF QUALIFIERS MAY BE GIVEN
5PL6 LDX 0 AWORK4(2) [J IF ERROR SUPPRESSION
5Q5Q BPZ 0 N74
5QKB SETREP MASTER
5R52 BRN UP
5RJL N74
5S4= LDX 7 UNIVERSALS+9(1)
5SHW BRN XAIN
5T3G X60
5TH6 # MESSAGE:"ILLEGAL DETAIL HAS BEEN GIVEN"
5W2Q LDX 7 UNILDET(1)
5WGB BRN YESFREE
5X22 X61
5XFL # MESSAGE:"DETAILS CAN'T BE GIVEN WITH TEMP. FILE NAMES"
5X^= LDX 7 UNIHOWL(1)
5YDW BRN YESFREE
5YYG X62
5^D6 # MESSAGE:"REEL NO. OUT OF RANGE"
5^XQ LDX 7 UNIREEL(1)
62CB BRN YESFREE
62X2 X11
63BL # MESSAGE:-DELIMITERS MUST BE PAIRED
63W= LDX 7 UNIVERSALS+10(1)
64*W XAIN
64H4 ... CALL 2 ZFNORMED
64N= ... BRN X13
64TG MONOUTX 7
65*6 X13
65SQ # MESSAGE:-ERROR %A,%B,%C IS AN INCORRECT ENTRANT DESCRIPTION FORMAT
66#B XAINX
66S2 HUNT 1,FILE,FNAME
67?L NAMETOP 1,CPB,CUNI
67R= LDX 2 FX2
68=W CHAIN 1,2
68QG LDX 7 NAM(1)
68XN ... CALL 2 ZFNORMED [ ERROR SUPPRESSING
694W ... BRN Z10
69=6 ERRORX 7
69FY ...Z10
69PQ HUNT 1,CPB,CUNI
6=9B NAMETOP 1,FILE,FNAME
6=P2 SETREP
6=YS ... LDX 2 FX2
6?8L LDX 0 AWORK3(2)
6?N= BPZ 0 N83
6#7W MFREE FILE,FABSNB
6#MG STOZ AWORK3(2)
6*76 N83
6*LQ SETREP NAMEFORM
6B6B UP
6BL2 ACROSS DECODE,3
6C5L X16
6CK= # MESSAGE:- "SPECIAL CASE,:MASTER NOT ALLOWED"
6D4W STOZ 6
6DJG BNG 7 USERN0
6F46 LDN 6 1
6FHQ USERN0
6G3B USERNO
6GH2 LDX 7 UNIMAST(1)
6GN8 ... CALL 2 ZFNORMED
6GTB ... BRN Z2
6H2L MONOUTX 7
6H=D ...Z2
6HG= BZE 6 UND
6H^W BNG 4 UND
6JFG BRN XAINX
6J^6 X89
6KDQ # ENTRANT DESCRIPTION FORMAT INDICATES WRONG ENTRANT TYPE
6KKY ... CALL 2 ZFNORMED [ ERROR SUPPRESSING
6KR6 ... BRN Z3
6KYB ERROR ERVRYWRONG
6L88 ...Z3
6LD2 MFREE FILE,FABSNB
6LXL STOZ AWORK3(2)
6MC= ...Z35 SETREP NAMEFORM
6MWW BRN UP
6M^F ...X35
6N44 ...# THIS ENTRANT DESC. IS INCOMPLTE
6N6M ... LDX 6 UNINCPLT(1)
6N9= ... MONOUTX 6
6N?T ... BRN Z35
6NBG X17
6NW6 # MESSAGE:- FORMAT ERROR IN SERIAL NUMBER
6P*Q LDX 6 UNIFORM(1)
6PTB MFREE CPB,CUNI
6Q*2 BRN TRONG1A
6QSL X18
6R#= # MESS ERROR %A,%B,:%C CONTAINSAN UNPNPAIRED DELIMITER
6RRW HUNT 3,FILE,FNAME
6S?G NAMETOP 3,CPB,CUNI
6SR6 CHAIN 3,2
6T=Q LDX 7 NAM+2(1)
6TCY ... CALL 2 ZFNORMED [ ERROR SUPPRESSING
6TK6 ... BRN Z11
6TQB ERRORX 7
6W28 ...Z11
6W=2 HUNT 1,CPB,CUNI
6WPL NAMETOP 1,FILE,FNAME
6X9= BRN TRONG1B
6XNW X19
6Y8G # MESSAGE:- ONLY ONE SERIAL NUMBER ALLOWED
6YN6 LDX 6 UNIJONLY(1)
6^7Q TRONG1A
6^#Y ... CALL 2 ZFNORMED
6^G6 ... BRN X33
6^MB MONOUTX 6
7272 X33
72LL HUNT 2,FILE,FNAME
736= NAMETOP 2,CPB,CUNI
73KW CHAIN 2,FX2
73R4 ... CALL 2 ZFNORMED [ ERROR SUPPRESSING
73Y= ... BRN Z4
745G ERROR ERNAMEFORM
74*# ...Z4
74K6 HUNT 2,CPB,CUNI
754Q NAMETOP 2,FILE,FNAME
75JB X32
7642 TRONG1B
76HL LDX 1 FX2
773= LDEX 6 EXPEDIENT(1)
77GW PARAFREE 6
782G REPLY
78G6 #SKI K6DECODE>599-599
78^Q TRACE EXEC2(2),! FORMAT
79FB LDX 2 FX2
79^2 LDX 0 AWORK3(2)
7=DL BPZ 0 N88
7=Y= VFREE FILE,FABSNB
7?CW STOZ AWORK3(2)
7?XG N88
7#C6 LDN 0 #20
7#WQ ANDX 0 7
7*BB BZE 0 NFORM
7*W2 TESTREP NOFILE,NOFILE
7B*L NFORM
7BT= SETREP NAMEFORM
7C#W NOFILE
7CSG BRN UP
7D#6 X87
7DF# ... CALL 2 ZFNORMED [ ERROR SUPPRESSING
7DLG ... BRN REPLY
7DRQ ERROR ERNAMEFORM
7F?B BRN REPLY
7FR2 X31
7G=L MFREE CPB,CUNI
7GQ= LDX 6 UNISTRIM(1)
7H9W BRN TRONG1A
7HPG X21
7J96 # ENTRY FROM ADJUNCTS.FREE CUNI & THRU TO K22
7JNQ MFREE CPB,CUNI
7K8B X22
7KN2 # FREE ADJUNCTS BLOCK IF THERE & REPORT NAMEFORM
7L7L Q2 VFREE FILE,ADJUNCTS
7LM= BRN XAINX
7M6W X64
7MLG VFREE FILE,ADJUNCTS
7N66 BRN SETREP
7NKQ X66
7P5B # MESSAGE :-"AN ILLEGAL SUBQUALIFIER HAS BEEN GIVEN"
7PK2 LDX 6 UNISUBQ(1)
7Q4L BRN Q21
7QJ= X30
7R3W X23
7RHG # MESSAGE-:"DELIMITERS MUST BE PAIRED"
7S36 LDX 6 UNINOTPR(1)
7SGQ BRN Q21
7SK* ...X34
7SMY ...# MORE THAN 24 PARAMETERS
7SQH ... LDX 6 UNIMAX(1)
7ST6 ... OUTNULL
7SXP ... BRN Q21
7T2B X70
7TG2 # FRED IS A PSEUDO-USER & MAY NOT BE GIVEN TRAPS
7T^L SPARANOT 1
7WF= LDX 6 XMEN(1)
7WYW YMEN HUNT 1,CPB,CUNI
7XDG LDEX 0 ANUM(1)
7XY6 OUTPARAM 0,APARA,CPB,CUNI
7YCQ BRN Q21X
7YXB XMEN +JPSEUTRAP
7^C2 X65
7^WL # TRAPS ON WORKFILES MAY ONLY BE GIVEN TO THE PROPER USER
82B= LDX 6 UNIPROP(1)
82TW BRN YMEN
83*G X24
83T6 # MESSAGE:"UNRECOGNISED TRAPSTYLE PARAMETERS"
84#Q LDX 6 UNIJUNS(1)
84SB ... BRN YMEN
85#2 X25
85RL # MESSAGE:- "USERNAME NOT IN DICTIONARY"
86?= LDX 6 NAM+3(1)
86DD ... CALL 2 ZFNORMED [ ERROR SUPPRESSING
86KL ... BRN Z5
86QW ERRORX 6
872N ...Z5
87=G SETREP NAMEFORM
87Q6 BRN UP
889Q X26
88PB # MESSAGE:- "UNRECOGNIZED TRAPSTYLE PARAMETER"
8992 LDX 6 UNIPARMA(1)
89NL LDX 7 UNITRAPN(1)
8=8= QDUBL
8=?P ... CALL 2 ZFNORMED
8=C8 ... BRN Q2
8=GM ... OUTMESSX 7
8=T4 ... MONOUTX 6
8?7G BRN Q2
8?M6 X27
8#6Q # MESSAGE:-"DEVICE TYPE QUALIFIER INCORRECT"
8#LB LDX 6 UNIDEFO(1)
8*62 BRN Q21X
8*KL X28
8B5= # MESSAGE:-"AN ILLEGAL QUALIFIER HAS BEEN GIVEN"
8BJW LDX 6 UNIQUAL(1)
8C4G BRN Q21X
8C7L ...X20
8C=Q ...# MESSAGE:-"A LANGUAGE CODE HAS BEEN GIVEN WITH *MT"
8C*W ... LDX 6 UNIMTLG(1)
8CF2 ... BRN Q21X
8CJ6 X29
8D3Q # MESSAGE:-"A SIZE QUALIFIER IS INCORRECT"
8DHB LDX 6 UNISIZQ(1)
8F32 Q21X
8FGL MFREE CPB,CUNI
8G2=
8GFW Q21
8GM4 ... CALL 2 ZFNORMED
8GS= ... BRN Q2
8G^G MONOUTX 6
8HF6 BRN Q2
8HYQ X36
8JDB # MESSAGE :-"AN APPROPRIATE DEVICE TYPE MUST BE GIVEN"
8JY2 LDX 6 UNIDEV(1)
8KCL BRN OUTADJCHEC
8KX= X37
8LBW # MESSAGE :-"ILLEGAL COMBINATION OF QUALIFIERS"
8LWG LDX 6 UNICOMB(1)
8MB6 BRN OUTADJCHEC
8MTQ X38
8N*B # MESSAGE :-"AN ILLEGAL QUALIFIER HAS BEEN GIVEN"
8NT2 LDX 6 UNIQUAL(1)
8P#L BRN OUTADJCHEC
8PS= # MESSAGE:-"UNRECOGNIZED TRAPSTYLE"
8Q?W X39
8QRG # MESSAGE :-"KWORDS TOO BIG"
8R?6 LDX 6 UNIBIK(1)
8RQQ BRN OUTADJCHEC
8S=B X40
8SQ2 # MESSAGE :-"A QUALIFIER HAS BEEN GIVEN TWICE"
8T9L LDX 6 UNI2Q(1)
8TP= BRN OUTADJCHEC
8W8W X41
8WNG # MESSAGE :-"DISC FILE QUALIFIER SIZE IS INCORRECT"
8X86 LDX 6 UNIDISQ(1)
8XMQ BRN OUTADJCHEC
8Y7B X42
8YM2 # MESSAGE :-"BUCKET SIZE INCORRECT"
8^6L LDX 6 UNIBING(1)
8^L= BRN OUTADJCHEC
925W X43
92KG # MESSAGE :-"BUCKET &RECORD SIZE INCOMPATIBLE"
9356 LDX 6 UNIBREK(1)
93JQ BRN OUTADJCHEC
944B X44
94J2 # MESSAGE :-"KEYLENGTH/KEYPLACE INCOMPATIBLE WITH RECORD SIZE"
953L LDX 6 UNIKLER(1)
95H= BRN OUTADJCHEC
962W X45
96GG # MESSAGE :-"LIMIT ADJUNCT MUST BE POSITIVE & <8388608"
9726 LDX 6 UNI0LIM(1)
97FQ BRN OUTADJCHEC
97^B X46
98F2 # "DEST. COMM. QUALIFIER OUT OF RANGE"
98YL LDX 6 UNIDESTC(1)
99D= OUTADJCHEC
99KD ... CALL 2 ZFNORMED
99QL ... BRN Z6
99XW MONOUTX 6
9=7N ...Z6
9=CG MFREE FILE,ADJUNCTS
9=X6 BRN XAINX
9?BQ [
9?WB MENDAREA 20,K99NORMERR
9#B2 #END
^^^^ ...73543207000600000000