DUMMYA867
(George Source)
Macros used: COOR3, ERRORX, FINDPEREC, GROPEREC, JANON, JENVNOT, JPROP, JSWOUT, JSWOVER, LGEOG, LTYPE, MHUNT, OUTNUM, OUTPARAM, SEGENTRY, UP, UPPLUS
- DUMMYA867.txt
22FL #SEG DUMMYA 22^= # 23DW # 23YG #OPT K0DUMMYA=0 24D6 #LIS K0DUMMYA>K0ALLGEO 24XQ 8HDUMMYA 25CB # 25X2 # 26BL # 26W= # 27*W # 27TG # 28*6 SEGENTRY K1DUMMYA,X1DUMMYA 28SQ # 29#B # 29S2 TDMNEM 4HTR 2=?L 4HTP 2=R= 4HLP 2?=W 4HCR 2?QG 4HCP 2#=6 4HMC 2#PQ 4HGP 2*9B 4HED 2*P2 4HFD 2B8L 4H 2BN= TDTYPE +0 2C7W +1 2CMG +2 2D76 +3 2DLQ +4 2F6B +5 2FL2 +20 2G5L +26 2GK= +26 2H4W 4H 2HJG X26 +26 2J46 X512 +512 2JHQ XED 4HED 2K3B XFD 4HFD 2KH2 # 2L2L ZJINVDMN +JINVDMN 2LG= ZJNOTTYPE +JNOTTYPE 2L^W # 2MFG # 2M^6 X1DUMMYA 2NDQ LDX 0 ACOMMUNE1(2) 2NYB STO 0 AWORK1(2) 2PD2 MHUNT 3,CPB,CUNI 2PXL CALL 0 XGETMN 2QC= BRN SDMNUP1 2QWW CALL 0 XVALMN 2RBG BRN NDMN 2RW6 SDEVMN 2S*Q # 2STB CALL 0 XCONMN 2T*2 LDX 2 7 2TSL CALL 0 ZCONV 2W#= BRN SDMNUP1 2WRW BZE 7 SDMNUP1 2X?G TXL 7 X512(1) 2XR6 BCC SDMNUP2 2Y=Q LDX 2 FX2 2YQB LDX 0 AWORK3(2) 2^=2 SLL 0 18 2^PL ORX 0 7 329= STO 0 AWORK3(2) 32NW CALL 6 XFINDPEREC 338G BNG 3 SDMN1 33N6 LDX 6 AWORK3(2) 347Q SRL 6 18 34MB LTYPE 3,0 3572 TXU 0 6 35LL BCS NDTY 366= TXU 6 X26(1) 36KW BCS SDMN1 375G LDX 6 AWORK4(2) 37K6 JPROP 3,SDMNFD,SDMNFD 384Q LDX 1 FX1 38JB TXU 6 XED(1) 3942 BCS NDTY 39HL BRN SDMN1 3=3= SDMNFD 3=GW LDX 1 FX1 3?2G TXU 6 XFD(1) 3?G6 BCS NDTY 3?^Q SDMN1 STO 3 6 3#FB MHUNT 3,CPB,CUNI 3#^2 LDX 4 JPARNUM(3) 3*DL CALL 7 SETUP 3*Y= LDX 1 6 3BCW STO 1 JSCEP(3) 3BXG BNG 1 SDMN2 3CC6 LTYPE 1,0 3CWQ DCH 0 JSCEA(3) 3DBB LGEOG 1,0 3DW2 DEX 0 JSCEA(3) 3F*L BRN SDMN3 3FT= SDMN2 LDX 0 AWORK3(2) 3G#W STO 0 JSCEA(3) 3GSG SDMN3 LDX 0 AWORK4(2) 3H#6 SRL 0 12 3HRQ STO 0 JSCEB(3) 3J?B SDMNUP 3JR2 UP 3K=L SDMNUP1 3KQ= UPPLUS 1 3L9W SDMNUP2 3LPG UPPLUS 2 3M96 SDMNUP3 3MNQ UPPLUS 3 3N8B # 3NN2 NDMN 3P7L LDX 1 FX1 3PM= LDX 6 ZJINVDMN(1) 3Q6W BRN REPORTB 3QLG NDTY 3R66 LDX 1 FX1 3RKQ LDX 6 ZJNOTTYPE(1) 3S5B REPORTA 3SK2 LGEOG 3,4 3T4L OUTNUM 4,0 3TJ= REPORTB 3W3W MHUNT 3,CPB,CUNI 3WHG LDN 0 2 3X36 OUTPARAM 0,APARA,CPB,CUNI 3XGQ ERRORX 6 3Y2B BRN SDMNUP 3YG2 # 3Y^L XCONMN 3^F= # 3^YW # 42DG # 42Y6 LDN 1 0 43CQ LDN 6 0 43XB XCMN1 SMO FX1 44C2 LDX 4 TDMNEM(1) 44WL TXU 4 ACES 45B= BCC XCMN3 45TW TXU 4 AWORK4(2) 46*G BCC XCMN2 46T6 ADN 1 1 47#Q BRN XCMN1 47SB XCMN2 SMO FX1 48#2 LDX 6 TDTYPE(1) 48RL XCMN3 STO 6 AWORK3(2) 49?= LDX 1 FX1 49QW BRN (0) 4==G # 4=Q6 XGETMN 4?9Q # 4?PB # 4#92 # 4#NL # 4*8= # 4*MW # 4B7G LDX 4 ACES 4BM6 STO 4 AWORK4(2) 4C6Q LDX 5 ANUM(3) 4CLB ANDN 5 #7777 4D62 LDN 2 APARA(3) 4DKL SMO FX2 4F5= LDN 3 AWORK4 4FJW LDN 6 2 4G4G XGMN1 LDCH 4 0(2) 4GJ6 SBN 4 #41 4H3Q BNG 4 (0) 4HHB ADN 4 #41 4J32 DCH 4 0(3) 4JGL SBN 5 1 4K2= BCHX 2 £ 4KFW BCHX 3 £ 4K^G BCT 6 XGMN1 4LF6 EXIT 0 1 4LYQ # 4MDB XVALMN 4MY2 # 4NCL # 4NX= LDN 1 0 4PBW STO 2 7 4PWG LDX 2 FX2 4QB6 XVMN1 SMO FX1 4QTQ LDX 4 TDMNEM(1) 4R*B TXU 4 ACES 4RT2 BCC XVMN2 4S#L TXU 4 AWORK4(2) 4SS= BCC XVMN3 4T?W ADN 1 1 4TRG BRN XVMN1 4W?6 XVMN2 LDX 1 FX1 4WQQ EXIT 0 0 4X=B XVMN3 LDX 1 FX1 4XQ2 EXIT 0 1 4Y9L # 4YP= ZCONV 4^8W # 4^NG # 5286 # 52MQ LDN 6 0 537B LDN 7 0 53M2 NXCHAR 546L CDB 6 0(2) 54L= BCS (0) 555W BCHX 2 £ 55KG BCT 5 NXCHAR 5656 EXIT 0 1 56JQ # 574B XFINDPEREC 57J2 # 583L # 58H= # 592W #UNS AV7900S 59GG FINDPEREC 3,APGEOG,7,,AV7900,XSWOUT 5=26 #UNS AV7900S 5=FQ #SKI 5=^B FINDPERE 3,APGEOG,7,,,XSWOUT 5?F2 BPZ 3 (6) 5?YL XFAN 5#D= JENVNOT XFAN1,CMESTAR 5#XW LDX 0 AWORK1(2) 5*CG ANDN 0 BDEVMN 5*X6 BZE 0 SDMNUP2 5BBQ LDX 0 AWORK4(2) 5BWB BZE 0 SDMNUP2 5CB2 BRN (6) 5CTL XFAN1 5D*= LDX 0 AWORK1(2) 5DSW ANDN 0 BGROPE 5F#G BZE 0 SDMNUP2 5FS6 JENVNOT SDMNUP2,CME 5G?Q LDX 0 GANON 5GRB BZE 0 SDMNUP2 5H?2 SBX 6 FX1 5HQL GROPEREC 3,APGEOG,7 5J== ADX 6 FX1 5JPW BNG 3 SDMNUP2 5K9G JSWOUT 3,XSWOUT 5KP6 BRN (6) 5L8Q XSWOUT 5LNB LDX 0 AWORK1(2) 5M82 ANDN 0 BINCOUT 5MML BNZ 0 XINOUT 5N7= NGN 3 4095 5NLW BRN SDMNUP3 5P6G XINOUT 5PL6 JENVNOT XINOUT1,CMESTAR 5Q5Q BRN (6) 5QKB XINOUT1 5R52 JSWOVER 3,XSWAIT 5RJL JANON 3,XFAN 5S4= BRN (6) 5SHW XSWAIT 5T3G SBX 6 FX1 5TH6 COOR3 #62 5W2Q ADX 6 FX1 5WGB BRN XINOUT 5X22 # 5XFL SETUP 5X^= # 5YDW # 5YYG # 5^D6 # 5^XQ SBX 7 FX1 62CB LDX 5 ALOGLEN(3) 62X2 ADN 5 JSCER-A1-2 63BL SETUPCOR 5,3,CPAR,JSCE 63W= MHUNT 2,CPB,CUNI 64*W LDX 5 ANUM(2) 64TG ANDN 5 #7777 65*6 SLL 4 12 65SQ ORX 4 5 66#B STO 4 JSCEQ(3) 66S2 STOZ JSCEA(3) 67?L STOZ JSCEB(3) 67R= STOZ JSCEC(3) 68=W NGN 0 1 68QG STO 0 JSCEK(3) 69=6 ADN 2 APARA 69PQ ADN 3 JSCER 6=9B ADN 5 3 6=P2 SRL 5 2 6?8L SMO 5 6?N= MOVE 2 0 6#7W SBN 3 JSCER 6#MG ADX 7 FX1 6*76 LDX 2 FX2 6*LQ BRN (7) 6B6B # 6BL2 #END ^^^^ ...467053440004