{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: DUMMYB867)}}
====== DUMMYB867 ======
(George Source)
**Macros used:** [[george:macro:ABANDCOM|ABANDCOM]], [[george:macro:BXGE|BXGE]], [[george:macro:CCOUT|CCOUT]], [[george:macro:CLWTBSW|CLWTBSW]], [[george:macro:CLWTBWR|CLWTBWR]], [[george:macro:COMERRX|COMERRX]], [[george:macro:COOR3|COOR3]], [[george:macro:DFJUMPS|DFJUMPS]], [[george:macro:DOWN|DOWN]], [[george:macro:ENDCOM|ENDCOM]], [[george:macro:ERRORX|ERRORX]], [[george:macro:FPUT|FPUT]], [[george:macro:FREECORE|FREECORE]], [[george:macro:GEOERR|GEOERR]], [[george:macro:GETACT|GETACT]], [[george:macro:HUNTW|HUNTW]], [[george:macro:INFORMX|INFORMX]], [[george:macro:IPBANON|IPBANON]], [[george:macro:JALLOC|JALLOC]], [[george:macro:JANON|JANON]], [[george:macro:JCAFSDV|JCAFSDV]], [[george:macro:JENV|JENV]], [[george:macro:JENVNOT|JENVNOT]], [[george:macro:JEXOTIC|JEXOTIC]], [[george:macro:JMNBWR|JMNBWR]], [[george:macro:JMT|JMT]], [[george:macro:JSWOUT|JSWOUT]], [[george:macro:JV7900|JV7900]], [[george:macro:JWRONG|JWRONG]], [[george:macro:JWTBSW|JWTBSW]], [[george:macro:LADDP|LADDP]], [[george:macro:LAMOP|LAMOP]], [[george:macro:LGEOG|LGEOG]], [[george:macro:LINKSET|LINKSET]], [[george:macro:LINT|LINT]], [[george:macro:LONGWAIT|LONGWAIT]], [[george:macro:LTYPE|LTYPE]], [[george:macro:MFREEW|MFREEW]], [[george:macro:MHUNT|MHUNT]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:MONOUTX|MONOUTX]], [[george:macro:MOPSTATE|MOPSTATE]], [[george:macro:OUTNUM|OUTNUM]], [[george:macro:OUTPARAM|OUTPARAM]], [[george:macro:OUTPER|OUTPER]], [[george:macro:PAIR|PAIR]], [[george:macro:PARAMOVE|PARAMOVE]], [[george:macro:PARANUMB|PARANUMB]], [[george:macro:PARSORT|PARSORT]], [[george:macro:PMT|PMT]], [[george:macro:SAWCEJX|SAWCEJX]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETALLOC|SETALLOC]], [[george:macro:SETWTBSW|SETWTBSW]], [[george:macro:SETWTBWR|SETWTBWR]], [[george:macro:SWOUT|SWOUT]], [[george:macro:SWOUTLIN|SWOUTLIN]], [[george:macro:TWAIT|TWAIT]], [[george:macro:UNLOAD|UNLOAD]], [[george:macro:WRONG|WRONG]], [[george:macro:YWRONG|YWRONG]]
22FL #SEG DUMMYB
22^= [ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1983
23DW [
23YG #OPT K0DUMMYB=0
24D6 #LIS K0DUMMYB>K0ALLGEO
24XQ 8HDUMMYB
25CB [
25X2
26BL SEGENTRY K1DUMMYB,X1DUMMYB
26W=
27*W
27TG
28*6 #DEF REDONBIT=#100
28SQ PMT +5
29#B PSMLCC +11
29S2 PIPB +24
2=?L PDA +26
2=R= PTEN +10
2?=W PDMNXX 4H00XX
2?QG PLINK
2#=6 PAIR CARTCONT,5
2#PQ PJWATWR +JWATWR
2*9B PJWATSW +JWATSW
2*P2 PJCANTSW +JCANTSW
2B8L PJENVNOT +JENVMUSTNT
2BN= PJENVNOTS +JENVNOTS
2C7W PESYS +ESYS
2CMG PERED +ERED
2D76 PECG +ECG
2DLQ PCAFS +ECAFS
2F6B PJMOP +JMOPONER
2FL2 PSWOU +JUNITSWO
2G5L +JUNITCSWO
2GK= PJWR +JWRONG
2H4W PJNMO +JUNLMSWO
2HJG PJOREJ +JSWOREJ
2J46 PJEMUL +JEMULC
2JHQ PJNOTC1 +JNOTCLUS1
2K3B PJMTDK +JMTDECK
2KH2 PJNUNFD +JNUNITFD
2L2L PJMPOI +JMPOFFINO
2LG= PJST +JRES1
2L^W PJCC +JCCUSE
2MFG PJREQ +JSWOREQ
2M^6 PJMU +JMOPUNIT
2NDQ PJCCE +JNOTCCE
2NYB PJNREM +JNREMOTE
2PD2 PJMREJ +JMOPREJ
2PXL PJBSW +JBESWOUT
2QC= #
2QWW PDEVS
2RBG #HAL AMXOR+ADEVS,0
2RW6
2S*Q
2STB X1DUMMYB
2T*2 LDN 6 0
2TSL PARANUMB 4,6
2W#= STO 4 AWORK1(2)
2WRW MHUNT 3,CPB,CUNI
2X?G LDX 0 ANUM(3)
2XR6 ANDN 0 #7777
2Y=Q PARAMOVE 0
2YQB LDX 0 CONTEXT(2)
2^=2 ANDN 0 #210
2^PL BZE 0 SPAR
329= JENVNOT YENV1,CMESTAR
32NW LDX 0 AWORK1(2)
338G STOZ AWORK1(2)
33N6 SBN 0 1
347Q BZE 0 W7900E
35LL SPAR PARSORT YBRKN,ALL,INCOUT,SMLCC,GROPE,DEVMN
366= STOZ AWORK1(2)
36KW SNEXT
375G HUNTW 3,CPAR,JSCE
37K6 BNG 3 SEND
384Q SAWCEJX JSCEB(3),S1,S2,S1
38JB S1
3942 LDX 0 CONTEXT(2)
39HL ANDN 0 #210
3=3= BNZ 0 YNREM
3=GW LDX 0 JSCEB(3)
3?2G STO 0 AWORK4(2)
3?G6 LDX 3 JSCEP(3)
3?^Q BRN TOUT
3#FB S2
3#^2 JENV YENVN,CME,EXCL
3*DL BRN WPARAM
3*Y= SEND
3BCW ENDCOM
3BXG
3CC6
3CWQ
3DBB
3DW2 TOUT
3F*L JENV TOUT3,CME,EXCL
3FT= BNG 3 YNFND
3G#W LTYPE 3,4
3GSG TXU 4 PIPB(1)
3H#6 BCS TOUT1
3HRQ LAMOP 3,5
3J?B J7900E 5,Y7900E
3JR2 TOUT1
3K=L TXU 4 PMT(1)
3KQ= BCS TOUT3
3L9W HUNTW 3,CPAR,JSCE
3LPG LDX 0 JSCEB(3)
3M96 TXU 0 PDMNXX(1)
3MNQ BCC YMTDK
3N8B LDX 3 JSCEP(3)
3NN2 JNFSTCL 3,YMT
3P7L LNOMTCL 3,5
3PM= STO 5 AWORK4(2)
3Q6W TOUT3
3QLG LGEOG 3,4
3R66 BZE 4 Y3
3RKQ JSWOUT 3,TMESS
3S5B LTYPE 3,4
3SK2 TXU 4 PSMLCC(1)
3T4L BCC TLINE
3TJ= STO 3 AWORK3(2)
3W3W HUNTW 3,CPAR,JSCE
3WHG STOZ JSCEB(3)
3X36 LDX 3 AWORK3(2)
3XGQ TXU 4 PDA(1)
3Y2B BCC TCART
3YG2 TXU 4 PIPB(1)
3Y^L BCC T7900
3^F= TOUT4
3^YW JALLOC 3,TALLOC
42DG JWRONG 3,TSWITCH
42Y6 JMT 3,TSWMT
43CQ JEXOTIC 3,TDIS
43XB CHECKFLA 3,TDIS
44C2 BRN Y3
44WL
45B= TDIS
45TW DISENGPE 3
46*G TWR
46T6 CLWTBWR 3
47#Q WRONG 3
47SB TWR1
48#2 LDX 6 PJWR(1)
48RL CALL 7 ZMESS
49?= TSWITCH
49QW JENV TSWOUT,CME,EXCL
4==G JMT 3,TSWMT1
4=Q6 BRN TSWOUT
4?9Q TSWMT1
4?PB SETWTBSW 3
4#92 STO 3 AWORK1(2)
4#NL LDX 3 AWORK3(2)
4*8= LNOMTCL 3,5
4*MW JWRONG 3,TSWMT2
4B7G BRN TSWMT6
4BM6 TSWMT2
4C6Q SBN 5 1
4CLB BZE 5 TSWMT3
4D62 CALL 7 ZNXTDK
4DKL BRN TSWMT3
4F5= JWRONG 3,TSWMT2
4FJW BRN TSWMT6
4G4G TSWMT3
4GJ6 LDX 3 AWORK3(2)
4H3Q LNOMTCL 3,5
4HHB TSWMT4
4J32 SBN 5 1
4JGL BZE 5 TSWMT5
4K2= CALL 7 ZNXTDK
4KFW BRN TSWMT5
4K^G CLWTBSW 3
4LF6 BRN TSWMT4
4LYQ TSWMT5
4MDB LDX 3 AWORK3(2)
4MY2 BRN TSWOUT
4NCL TSWMT6
4NX= LDX 3 AWORK1(2)
4PBW LDX 6 PJWATSW(1)
4PWG CALL 7 ZMESS
4QB6 BRN TFREE
4QTQ TSWOUT
4R*B CLWTBSW 3
4RT2 SWOUT 3,YBRKN,TREJ
4S#L TMESS
4SS= STOZ 4
4T?W JENV TMESS2,CME,EXCL
4TRG JMT 3,TMESS1
4W?6 BRN TMESS2
4WQQ TMESS1
4X=B ADN 4 1
4XQ2 TMESS2
4Y9L SMO 4
4YP= LDX 6 PSWOU(1)
4^8W CALL 7 ZMESS
4^NG TFREE
5286 JENV TFREE1,CME,EXCL
52MQ LTYPE 3,4
537B TXU 4 PMT(1)
53M2 BCS TFREE1
546L JSWOUT 3,TFREE1
54L= TNXTMT
555W LDN 0 1
55KG SBS 0 AWORK4(2)
5656 LDX 0 AWORK4(2)
56JQ BZE 0 TFREE1
574B CALL 7 ZNXTDK
57J2 BRN TFREE1
583L JANON 3,TNXTMT
58H= BRN TOUT4
592W TFREE1
59GG MFREEW CPAR,JSCE
5=26 BRN SNEXT
5=FQ
5=^B
5?F2 TCART
5?YL JWTBSW 3,TWTBSW
5#D= LADDP 3,2
5#XW LDXC 0 BSUNIT2(2)
5*CG BCS YUSSY
5*X6 JCAFSDV 3,YCAFS
5BBQ LDCT 0 REDONBIT
5BWB ANDX 0 BSUNIT(2)
5CB2 BNZ 0 YRED
5CTL LDN 0 BCGCOM
5D*= ANDX 0 BSUNIT3(2)
5DSW BNZ 0 YCART
5F#G LDX 0 BSUNIT3(2)
5FS6 SRC 0 4
5G?Q BNG 0 YTWIN
5GRB SETWTBSW 3
5H?2 LDN 0 BSWOUT
5HQL ORS 0 BSUNIT3(2)
5J== GETACT ACTDOC
5JPW LDX 2 BPTR(2)
5K9G STO 3 CPPTR(2)
5KP6 LINKSET 2,PLINK(1)
5L8Q FPUT
5LNB BRN TFREE
5M82
5MML
5N7= TLINE
5NLW JENV YENVN,CMESTAR
5P6G HUNTW 2,CPAR,JSCE
5PL6 LDX 5 JSCEB(2)
5Q5Q BPZ 5 Y3
5QKB SRL 5 9
5R52 ANDN 5 #77
5RJL LDX 2 FX2
5S4= SWOUTLIN 3,5
5SHW LDX 6 PJNMO(1)
5T3G CALL 7 ZMSSL
5TH6 BRN TFREE
5W2Q
5WGB
5X22 T7900
5XFL JV7900 3,Y3
5X^= MOPSTATE 3,6,AMOP,2
5YDW LDX 5 2
5YYG LDX 2 FX2
5^D6 BNG 6 T79WR
5^XQ BZE 6 YMPON
62CB LDX 7 6
62X2 SBN 7 5
63BL BZE 7 T79WR
63W= ANDN 6 1
64*W BNZ 6 YMPON
64TG BRN TALLOC
65*6 T79WR
65SQ LDX 2 5
66#B IPBANON TWAIT
66S2 YWRONG YBRKN,Y3,3
67?L BRN TDIS
67R= TWAIT
68=W COOR3 #62
68QG BRN T79WR
69=6
69PQ
6=9B TALLOC
6=P2 JMNBWR 3,TWTBSW
6?8L SETWTBWR 3
6?N= LDX 6 PJWATWR(1)
6#7W CALL 7 ZMESS
6#MG TWTBSW
6*76 SETWTBSW 3
6*LQ LDX 6 PJWATSW(1)
6B6B CALL 7 ZMESS
6BL2 BRN TFREE
6C5L
6CK=
6D4W TSWMT
6DJG DFJUMPS 3,LOAD,TTAPE
6F46 BRN TWR
6FHQ TTAPE
6G3B SETALLOC 3
6GH2 SETWTBWR 3
6H2L SETWTBSW 3
6HG= UNLOAD 3,,,UNL
6H^W BRN TFREE
6JFG
6J^6
6KDQ TREJ
6KYB LDX 6 PJOREJ(1)
6LD2 CALL 7 ZMESS
6LXL BRN TFREE
6MC=
6MWW
6NBG W7900E
6NW6 STOZ AWORK2(2)
6P*Q HUNTW 2,AMXOR,ADCB
6PTB BNG 2 WOPER
6Q*2 LDX 3 IADIN(2)
6QSL JN7900E 3,YCCE
6R#= LDX 6 IDENTNO(2)
6RRW LDX 4 A1+FPTR(2)
6S?G CALL 5 ZDEVS
6SR6 BRN YMPOI
6T=Q SBX 4 2
6TQB ADX 2 4
6W=2 CALL 7 ZREL
6WPL BRN WMOP
6X9= DOWN IPBMOPB,1
6XNW MHUNTW 2,AMXOR,ADCB
6Y8G STOZ A1+BPTR(2)
6YN6 LDX 2 A1+FPTR(2)
6^7Q STOZ BPTR(2)
6^MB LDX 2 FX2
7272 MFREEW AMXOR,ADCB
72LL ENDCOM
736= WMOP
73KW LDX 6 PJMREJ(1)
745G MONOUTX 6
74K6 ENDCOM
754Q
75JB
7642
76HL WOPER
773= LDX 2 FX2
77GW LAMOP CPPTR(2),3
782G JN7900E 3,YCCE
78G6 LDX 6 JSOURCE1(2)
78^Q ANDN 6 #7777
79FB BRN WBATCH
79^2
7=DL WPARAM
7=Y= STOZ AWORK2(2)
7?CW LDX 2 3
7?XG LDCT 0 #600
7#C6 ERS 0 JSCEP(2)
7#WQ LAMOP JSCEP(2),3
7*BB JN7900E 3,YCCE
7*W2 LDX 6 JSCEA(2)
7B*L ANDN 6 #7777
7BT=
7C#W WBATCH
7CSG CALL 5 ZDEVS
7D#6 BRN YMPOI
7DRQ LDX 4 6
7F?B SBX 4 A1+FOURTHWD(2)
7FR2 SLL 4 2
7G=L ADN 4 A1
7GQ=
7H9W ADX 2 4
7HPG LDX 0 FOURTHWD(2)
7J96 ANDN 0 #17
7JNQ BZE 0 YMU
7K8B SBN 0 10
7KN2 BZE 0 YMU
7L7L ADN 0 5
7LM= BNZ 0 WB1
7M6W LDX 0 GSIGN
7MLG SMO FX2
7N66 STO 0 AWORK2
7NKQ WB1
7P5B LDX 0 FOURTHWD(2)
7PK2 SLC 0 1
7Q4L BNG 0 YCC
7QJ= SLC 0 7
7R3W BNG 0 YCC
7RHG SLC 0 3
7S36 BNG 0 WMESS
7SGQ SLC 0 5
7T2B BNG 0 YREQ
7TG2 SRC 0 10
7T^L ANDN 0 3
7WF= BZE 0 WB2
7WYW LONGWAIT WBI,#62
7XDG CALL 5 ZDEVS
7XY6 BRN YMPOI
7YCQ ADX 2 4
7YXB BRN WB1
7^C2 WB2
7^WL SMO FX2
82B= LDX 0 AWORK2
82TW BNG 0 WB3
83*G LDX 0 BPTR(2)
83T6 BZE 0 WB3
84#Q LDX 0 FOURTHWD(2)
84SB BNG 0 YST
85#2 WB3
85RL CALL 7 ZREL
86?= BRN WREJ
86QW SMO FX2
87=G LDX 0 AWORK2
87Q6 BZE 0 WMESS
889Q LDX 0 BPTR(2)
88PB BZE 0 WMESS
8992 SBN 0 A1+FPTR
89NL SMO 0
8=8= LDXC 5 IWAIT
8=MW BCC WMESS
8?7G LDX 1 0
8?M6 WACT
8#6Q LDX 1 BPTR(1)
8#LB LDX 0 ATYPE(1)
8*62 TXL 0 CACT
8*KL BCS WACT
8B5= LDX 2 1
8BJW LDX 1 FX1
8C4G FPUT
8CJ6 WMESS
8D3Q LDX 6 PSWOU(1)
8DHB BRN WMESS1
8F32 WREJ
8FGL LDX 6 PJOREJ(1)
8G2= WMESS1
8GFW LDX 2 FX2
8G^G LDN 5 #210
8HF6 ANDX 5 CONTEXT(2)
8HYQ BZE 5 WOUTC
8J5Y ... LDX 0 AWORK2(2)
8J?6 ... BNG 0 WOUTC
8JDB LDN 5 0
8JY2 BRN WOUT
8KCL WOUTC
8KX= LDN 5 1
8LBW WOUT
8LWG CALL 7 ZIPAR
8MB6 CALL 7 ZMSID
8MTQ HUNTW 3,CPAR,JSCE
8N*B BNG 3 SNEXT
8NT2 FREECORE 3
8P#L BRN SNEXT
8PS= WBI
8Q?W LDN 5 #10
8QRG ANDX 5 CONTEXT(2)
8R?6 BZE 5 WBIAB
8RQQ LDX 6 PJBSW(1)
8S=B LDN 5 1
8SQ2 CALL 7 ZIPAR
8T9L CALL 7 ZMSID
8TP= WBIAB
8W8W ABANDCOM
8WNG
8X86
8XMQ
8Y7B
8YM2
8^6L YENV1
8^L= LDX 6 PJENVNOT(1)
925W COMERRX 6
92KG YBRKN
9356 GEOERR 1,BISWITCH
93JQ Y3
944B LDX 6 PJCANTSW(1)
94J2 BRN YERRS
953L
95H= YUSSY
962W LDX 6 PESYS(1)
96GG BRN YERRS
9726 YCAFS
97FQ LDX 6 PCAFS(1)
97^B BRN YERRS
98F2 YRED
98YL LDX 6 PERED(1)
99D= BRN YERRS
99XW YCART
9=CG LDX 6 PECG(1)
9=X6 BRN YERRS
9?BQ YMT
9?WB LDX 6 PJNOTC1(1)
9#B2 BRN YERRS
9#TL YMTDK
9**= LDX 6 PJMTDK(1)
9*SW BRN YERRS
9B#G Y7900E
9BS6 LDX 6 PJEMUL(1)
9C?Q BRN YERRS
9CRB YNFND
9D?2 LDX 6 PJNUNFD(1)
9DQL BRN YERRS
9F== YENVN
9FPW LDX 6 PJENVNOTS(1)
9G9G BRN YERRS
9GP6 YNREM
9H8Q LDX 6 PJNREM(1)
9HNB BRN YERRS
9J82 YTWIN
9JML GEOERR 1,NOTCME
9K7= YMPON
9KLW LDX 6 PJMOP(1)
9L6G BRN YERRS
9LL6 YCCE
9M5Q LDX 6 PJCCE(1)
9MKB BRN YERRS
9N52 YMU
9NJL LDX 6 PJMU(1)
9P4= BRN YERRS
9PHW YMPOI
9Q3G LDX 6 PJMPOI(1)
9QH6 BRN YERRS
9R2Q YCC
9RGB LDX 6 PJCC(1)
9S22 BRN YERRS
9SFL YREQ
9S^= LDX 6 PJREQ(1)
9TDW BRN YERRS
9TYG YST
9WD6 LDX 6 PJST(1)
9WXQ BRN YERRS
9XCB
9XX2 YERRS
9YBL CALL 7 ZIPAR
9YW= YERR2
9^*W ERRORX 6
9^TG MFREEW CPAR,JSCE
=2*6 BRN SNEXT
=2SQ
=3#B
=3S2
=4?L
=4R=
=5=W ZMESS
=5QG LGEOG 3,4
=6=6 ZMSS
=6PQ SBX 7 FX1
=79B OUTNUM 4,0
=7P2 ZMS1
=88L LDN 5 0
=8N= ZMS1A
=97W INFORMX 5,6,1
=9MG ADX 7 FX1
==76 EXIT 7 0
==LQ ZMS2
=?6B SBX 7 FX1
=?L2 BRN ZMS1
=#5L ZMSSL
=#K= SBX 7 FX1
=*4W LGEOG 3,4
=*JG OUTNUM 4,0
=B46 OUTNUM 5,0
=BHQ BRN ZMS1
=C3B ZMSID
=CH2 SBX 7 FX1
=D2L BRN ZMS1A
=DG=
=D^W
=FFG ZNXTDK
=F^6 LCHLP 3,6
=GDQ LINT 3,4
=GYB ADN 4 1
=HD2 TXL 4 BDTL
=HXL BCC ZNXTD1
=JC= LDX 3 BDTP
=JWW SMO 4
=KBG LDX 3 0(3)
=KW6 LCHLP 3,4
=L*Q TXU 4 6
=LTB BCS ZNXTD1
=M*2 EXIT 7 1
=MSL ZNXTD1
=N#= EXIT 7 0
=NRW
=P?G
=PR6
=Q=Q ZDEVS
=QQB LDX 2 3
=R=2 ZDE
=RPL LDX 2 FPTR(2)
=S9= LDX 0 ATYPE(2)
=SNW BXGE 0 CACT,(5)
=T8G TXU 0 PDEVS(1)
=TN6 BCS ZDE
=W7Q EXIT 5 1
=WMB
=X72
=XLL ZIPAR
=Y6= SBX 7 FX1
=YKW HUNTW 3,CPAR,JSCE
=^5G BNG 3 ZIP1
=^K6 LDX 0 JSCEQ(3)
?24Q ANDN 0 #7777
?2JB OUTPARAM 0,JSCER,CPAR,JSCE
?342 BRN ZIP2
?3HL ZIP1
?43= OUTPER
?4GW ZIP2
?52G ADX 7 FX1
?5G6 EXIT 7 0
?5^Q
?6FB
?6^2
?7DL
?7Y=
?8CW
?8XG ZREL
?9C6 SBX 7 FX1
?9WQ LDCT 0 #420
?=BB ANDX 0 IPBSW(3)
?=W2 BNZ 0 YMPOI
??*L LDN 0 #200
??T= ORS 0 FOURTHWD(2)
?##W LDX 2 FX2
?#SG LDN 0 #133
?*#6 STO 0 ACOMMUNE1(2)
?*RQ CCOUT 6,3
?B?B ZR1
?BR2 CALL 5 ZDEVS
?C=L BRN YMPOI
?CQ= ADX 2 4
?D9W LDN 0 #200
?DPG ANDX 0 FOURTHWD(2)
?F96 BZE 0 ZR2
?FNQ LDCT 0 #20
?G8B SMO IPBRING(3)
?GN2 ANDX 0 IPBSW-IPBRING
?H7L BNZ 0 ZR3
?HM= LONGWAIT WBI,IPBRELWS
?J6W BRN ZR1
?JLG ZR2
?K66 ADX 7 FX1
?KKQ LDX 0 FOURTHWD(2)
?L5B SLL 0 11
?LK2 BPZ 0 (7)
?M4L EXIT 7 1
?MJ= ZR3
?N3W ADX 7 FX1
?NHG EXIT 7 0
?P36
?PGQ #END
^^^^ ...317573310008