{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: BMOUTPUT867)}}
====== BMOUTPUT867 ======
(George Source)
**Macros used:** [[george:macro:ACROSS|ACROSS]], [[george:macro:APPEND|APPEND]], [[george:macro:ASSMESS|ASSMESS]], [[george:macro:BACKSPACE|BACKSPACE]], [[george:macro:BMINDEX|BMINDEX]], [[george:macro:BMSTATS|BMSTATS]], [[george:macro:BS|BS]], [[george:macro:BSJ|BSJ]], [[george:macro:BXL|BXL]], [[george:macro:CLOSEDIR|CLOSEDIR]], [[george:macro:CLOSETOP|CLOSETOP]], [[george:macro:CREATEB|CREATEB]], [[george:macro:DELETE|DELETE]], [[george:macro:ERASE|ERASE]], [[george:macro:FASTREWIND|FASTREWIND]], [[george:macro:FILEMOVE|FILEMOVE]], [[george:macro:FON|FON]], [[george:macro:FREECORE|FREECORE]], [[george:macro:FULLBPAS|FULLBPAS]], [[george:macro:GEOERR|GEOERR]], [[george:macro:HUNTMISB|HUNTMISB]], [[george:macro:JBC|JBC]], [[george:macro:JBS|JBS]], [[george:macro:JMBAC|JMBAC]], [[george:macro:JMBS|JMBS]], [[george:macro:MBS|MBS]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MFREE|MFREE]], [[george:macro:MFREEW|MFREEW]], [[george:macro:MHUNT|MHUNT]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:MONOUT|MONOUT]], [[george:macro:MONOUTX|MONOUTX]], [[george:macro:NAME|NAME]], [[george:macro:OPEN|OPEN]], [[george:macro:OPENDIR|OPENDIR]], [[george:macro:OUTPACK|OUTPACK]], [[george:macro:OUTPACKX|OUTPACKX]], [[george:macro:READ|READ]], [[george:macro:READAGAIN|READAGAIN]], [[george:macro:READBACK|READBACK]], [[george:macro:READDICT|READDICT]], [[george:macro:REPLACE|REPLACE]], [[george:macro:REWRITE|REWRITE]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:SKIP|SKIP]], [[george:macro:STEP|STEP]], [[george:macro:STEPAGAIN|STEPAGAIN]], [[george:macro:STEPREWRITE|STEPREWRITE]], [[george:macro:SUICIDE|SUICIDE]], [[george:macro:TESTREP2|TESTREP2]], [[george:macro:TESTRPN2|TESTRPN2]], [[george:macro:TOPFCB2|TOPFCB2]], [[george:macro:VFREE|VFREE]]
22FL SEG BMOUTPUT,84,EDWARD MOON,BMAP,G252
22^= [
23DW [ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982
23YG [ THIS EXCLUDES CODE UNDER #SKI G252
24D6 [
24XQ #OPT G252 = 0
25CB #SKI G252&1
25X2 # WITH UGUG EDIT M252 (RETAIN TO-BE-ERASED STATUS)
26BL SEGENTRY K1BMOUTPUT,Z1BMOUTPUT
26W= SEGENTRY K2BMOUTPUT,OUTPUTNOW
27*W #SKI G252&1
27TG (
28*6 [ BIRMINGHAM UNIVERSITY CHANGES:
28SQ [ SETS 'ERASE' BIT IN DIRECTORY ENTRY
29#B [ IF 'EU' SET TO 1 FOR AN ENTRY IN :SYSTEM.OUTPUT.
29S2 [ THIS IS TO PREVENT LOSS OF ERASE STATUS OVER A BREAK.
2=?L [ SEE ALSO SEGMENT BMAPONE.
2=R= [
2?=W [ COPYRIGHT UNIVERSITY OF BIRMINGHAM.
2?QG [ USE SUBJECT TO CONDITIONS OF LICENCE.
2#=6 [
2#PQ )
2*9B [
2*P2 [
2B8L [
2BN= [ THIS SEGMENT SCANS SERIALLY THROUGH :SYSTEN.OUTPUT.
2C7W [ IT WAS,UTTIL MARK8,THE LATTER PART OF BMJLIST.
2CMG [
2D76 [
2DLQ #SKI JSKI38
2F6B MBITS #23405760 [MASK FOR GLASGOW SPECS.
2FL2 #SKI JSKI38-1
2G5L MBITS #23461760 [MASK FOR UNWANTED GMODE BITS
2GK= NOUTPUT
2H4W +10
2HJG 12HSYSTEM
2J46 12HOUTPUT
2JHQ +1
2K3B #20000000
2KH2 4HB1
2L2L [
2LG= NLIST +10
2L^W 12HSYSTEM
2MFG 12HLISTLOSTFILE
2M^6 1,1,4HB1
2NDQ NLISTJOB
2NYB +10
2PD2 12HSYSTEM
2PXL 12HLISTLOSTJOB
2QC= 1,1,4HB1
2QWW NBMLOSTJOB
2RBG +BMLOSTJOB
2RW6 NOUTLOST +BMOUTLOST
2S*Q NHEAD
2STB 13,4H000I
2T*2 32HTHE FOLLOWING NON MOP JOBS HAVE
2TSL 12HBEEN LOST
2W#= TYPE #40000012
2WRW X4M #20000000
2X?G [
2XR6 STEPREWRITE
2Y=Q STEPREWRITE
2YQB EXIT 5 0
2^=2 OUTPACK
2^PL SBX 7 FX1
329= OUTPACKX 2,5,6
32NW ADX 7 FX1
338G EXIT 7 0
33N6 [
347Q SUB
34MB MHUNT 2,FILE,FRB
3572 EXIT 1 0
35LL [
366= UPJOBCOUNT
36KW ADX 3 AWORK1(2) [RELATIVE ADDRESS OF USERNAME
375G SBX 7 FX1
37K6 LDN 1 1 [DEPTH FOR READDICT
384Q READDICT 1,0(3) [PICK MP DICT ENT OF THIS USER
38JB TESTRPN2 OK,XBR
3942 MHUNTW 1,FILE,ADICTENT [COPY OF DICT ENTRY
39HL LDN 0 1
3=3= ADS 0 CJOBCT(1)
3=GW NAME 1,FILE,FWB
3?2G REWRITE 1 [UPDATED COPY OF DICT ENT
3?G6 MFREEW FILE,FWB
3?^Q STEPAGAIN
3#FB ADX 7 FX1
3#^2 EXIT 7 0
3*DL Z1BMOUTPUT [ENTRY ACROSS FROM BNJLIST
3*Y= [
3BCW HUNTMISB 2,FI,FUSER
3BXG LDN 6 6
3CC6 LDX 7 A1(2)
3CWQ FREECORE 2
3DBB LDX 2 FX2
3DW2 BMSTATS 6,7
3F*L MHUNTW 2,FILE,FABSNB
3FT= ADN 1 NLISTJOB
3G#W ADN 2 A1
3GSG MOVE 1 10 [TO SEE IF LISTLOSTJOB EXISTS
3H#6 BMOPENDI XBR,NOLLJOB,QLLJLOST,QLLJLOST
3HRQ FREECORE 1 [UNWANTED ENT BLOCK
3J?B CLOSETOP [SYSTEM
3JR2 OPEN XBR,GENERAL,EMPTY
3K=L TESTRPN2 OK,XBR
3KQ= BRN SYSLLJOPEN
3L9W QLLJLOST
3LPG LDEX 3 ECOPS(1)
3M96 ADX 3 ENUSE(1)
3MNQ LDN 7 1(3)
3N8B FREECORE 1
3NN2 BZE 3 QDELLJ
3P7L SKIP ,0(3)
3PM= QDELLJ
3Q6W DELETE
3QLG BCT 7 QDELLJ
3R66 CLOSETOP
3RKQ NOLLJOB
3S5B CREATEB 2
3SK2 LDX 0 TYPE(1)
3T4L STO 0 CETM(2)
3TJ= OPEN XBR,GENERAL,CREATE
3W3W TESTRPN2 OK,XBR
3WHG SYSLLJOPEN
3X36 FILEMOVE 0,2
3XGQ SETNCORE 15,2,FILE,FAPB
3Y2B LDX 1 FX1
3YG2 ADN 1 NHEAD
3Y^L ADN 2 A1
3^F= MOVE 1 15
3^YW APPEND -1
42DG MFREEW FILE,FAPB
42Y6 FASTREWIND 1 [SYSTEM JOBLIST
43CQ LDX 4 JOBNUMBER
43XB STEP [TO TEMPLATE RECORD
44C2 NEXJLREC
44WL STEP [TO NEXT PROPER RECORD
45B= BNZ 3 NOWCHECK [TO CHECK REC IF THERE IS ONE
45TW CLOSETOP [SYSTEM JOBLIST
46*G CLOSETOP [DICTIONARY
46T6 FASTREWI 1
47#Q STEP
47SB STEP
48#2 CLOSETOP
48RL BNZ 3 NOERLLJOB
49?= ERASE
49QW NOERLLJOB
4==G BRN NOWENDJL
4=Q6 NOWCHECK
4?9Q JBC RECCHECKED,3,JLBCHECKED
4?PB JBS NOTWANTED,3,JLBNEW
4#92 BS 3,JLBNEW
4#NL CALL 7 UPJOBCOUNT
4*8= NOWCLBITS
4*MW CALL 5 STEPREWRITE
4B7G MBS 3,JLBCHECKED,JLBNEW
4BM6 LDX 4 JLJOBNO(3)
4C6Q LDX 0 JOBNUMBER
4CLB BZE 0 SETX4
4D62 SBX 0 4
4DKL BPZ 0 SET1
4F5= SMO FX1
4FJW ADX 0 X4M
4G4G BNG 0 NOSET
4GJ6 BRN SETX4
4H3Q SET1
4HHB SMO FX1
4J32 SBX 0 X4M
4JGL BNG 0 NOSET
4K2= SETX4
4KFW STO 4 JOBNUMBER
4K^G NOSET
4LF6 LDN 0 1
4LYQ ADS 0 JOBCOUNT
4MDB NOUPJOBNUM
4MY2 BRN NEXJLREC
4NCL RECCHECKED
4NX= BSJ NOADD1
4PBW CALL 7 UPJOBCOUNT
4PWG NOADD1
4QB6 BRN NOWCLBITS
4QTQ NOTWANTED
4R*B STEPAGAIN
4RT2 ADX 3 JOBDATASIZE
4S#L SBX 3 AWORK3(2)
4SS= JMBAC NOTHISTOLLJ,3,JLBJB,JLBRJ
4T?W JBS NOTHISTOLLJ,3,JLBSYSIS
4TRG STEPAGAIN
4W?6 LDN 2 JLUSER(3)
4WQQ LDN 5 3
4X=B LDN 6 3
4XQ2 CALL 7 OUTPACK
4Y9L STEPAGAIN
4YP= LDN 2 JLJOBNAME(3)
4^8W LDN 5 3
4^NG LDN 6 4
5286 CALL 7 OUTPACK
52MQ LDX 7 NBMLOSTJOB(1)
537B ASSMESS 7
53M2 MHUNTW 3,GMON,AOUT
546L LDX 0 A1(3)
54L= ADN 0 11
555W SRL 0 2
55KG STO 0 A1(3)
5656 LDN 0 #41
56JQ STO 0 A1+1(3)
574B NAME 3,FILE,FAPB
57J2 APPEND -1
583L MFREEW FILE,FAPB
58H= NOTHISTOLLJ
592W DELETE [THIS SJL RECORD
59GG BRN NEXJLREC
5=26 NOWENDJL
5=FQ HUNTMISB 3,FI,FLIST
5=^B LDN 0 1
5?F2 SBS 0 A1+1(3)
5?YL FON BMAPACT
5#D= SUICIDE
5#XW OUTPUTNOW
5*CG LDN 0 7
5*X6 BMSTATS 0
5BBQ MHUNT 2,FILE,FABSNB [SET :SYSTEM LISTLOSTFILE FABSNB
5BWB ADN 1 NLIST
5CB2 ADN 2 A1
5CTL MOVE 1 10
5D*= BMOPENDI XBR,NOLIST,QLOST,QLOST [ENTRY IN SYSTEM
5DSW FREECORE 1 [UNPANTED ENT BLOCK
5F#G CLOSETOP [SYSTEM
5FS6 OPEN XBR,GENERAL,EMPTY [SYSTEM LISTLOSTFILE
5G?Q TESTRPN2 OK,XBR
5GRB BRN SYSOUTOPEN [OPEN OUTPUT IF LISTLOSTFILE OK
5H?2 MHUNT 2,FILE,FABSNB [SET :SYSTEM LISTLOSTFILE FABSNB
5HQL ADN 1 NLIST
5J== ADN 2 A1
5JPW MOVE 1 10
5K9G BMOPENDI XBR,NOLIST,QLOST,QLOST [ENTRY IN SYSTEM
5KP6 FREECORE 1 [UNPANTED ENT BLOCK
5L8Q CLOSETOP [SYSTEM
5LNB OPEN XBR,GENERAL,EMPTY [SYSTEM LISTLOSTFILE
5M82 TESTRPN2 OK,XBR
5MML BRN SYSOUTOPEN [OPEN OUTPUT IF LISTLOSTFILE OK
5N7= QLOST
5NLW LDEX 3 ECOPS(1)
5P6G ADX 3 ENUSE(1)
5PL6 LDN 7 1(3) [NUMBER OF RECS IN DIRENT
5Q5Q FREECORE 1 [UNWANTED ENT BLOCK
5QKB BZE 3 QDEL [IF OFFLINE AND NO TRAPS
5R52 SKIP ,0(3) [TO END OF DIRENT
5RJL QDEL
5S4= DELETE [THE DIRENT
5SHW BCT 7 QDEL
5T3G CLOSETOP [SYSTEM
5TH6 NOLIST
5W2Q CREATEB 2 [TO SET UP INITIALISED
5WGB LDX 0 TYPE(1) [ -FOR LOSTLISTFILE
5X22 STO 0 CETM(2)
5XFL OPEN XBR,GENERAL,CREATE [LISTLOSTFILE
5X^= TESTRPN2 OK,XBR
5YDW SYSOUTOPEN
5YYG
5^D6 MHUNT 2,FILE,FABSNB [SET :SYSTEM.OUTPUT FABSNB
5^XQ ADN 2 A1
62CB ADN 1 NOUTPUT
62X2 MOVE 1 10
63BL BMOPENDI XBR,NOUT,NQLOST,NQLOST
63W= [J IF NOFILE,LOST,OR OFFLINE
64*W TOPFCB2 3
64TG JBS SYSTPR,3,BFPARTRES
65*6 LDX 0 GINCTSN
65SQ [
66#B SEGENTRY K93BMOUTPUT [FOR NEWDUUP AND BMOUT MEND MACS
66S2 BZE 0 NERASE [NULLED BY MACROS
67?L SYSTPR
67R= LDCT 0 #777
68=W ANDX 0 ECOPS(1)
68QG BZE 0 NQLOST
69=6 READ
69PQ MHUNTW 1,FILE,FRB
6=9B NAME 1,BSTB,FULLB
6=P2 FULLBPAS 1,2 [CHAIN FULLB IN FILE CHAIN (USING X2)
6?8L BACKSPACE
6?N= MHUNTW 1,FILE,ENT
6#7W BRN NQLOST
6#MG NERASE
6*76 BMOPENRE XBR
6*LQ #SKI K6BMOUTPUT>199-199
6B6B TESTRPN2 OK,XBR
6BL2 BACKSPAC 1 [TO NAME REC
6C5L TOPFCB2 1
6CK= BS 1,BFCORE [KEEP USAGE BLOCKS IN CORE DURING BMI
6D4W LDN 0 INDEXOUT
6DJG BMINDEX 0
6F46 TESTREP2 OK,OUTIXOK [INDEX CHECKED OK OR SET UP
6FHQ CLOSETOP [OUTPUT
6G3B READAGAIN [OUTPUT DIRENT
6GH2 MHUNTW 1,FILE,FRB
6H2L BRN NQLOST [DELETE FILE & RECREATE
6HG= OUTIXOK
6H^W CLOSEDIR [:SYSTEM
6JFG BRN OUTPUT
6J^6 OUTSJ
6KDQ MFREE FILE,FWB [FROM INFO RECORD
6KYB MFREE FILE,FABSNB
6LD2 BZE 6 NOSETUPFAB [IF THERE WAS NO SETUP FILE
6LXL MFREE FILE,FABSNB
6MC= NOSETUPFAB
6MWW LDX 0 AWORK1(2)
6NBG BXL 0 JOBNUMBER,NBIGJOB [ENSURE STARTING JOBNUMBER NOT ALREAD
6NW6 STO 0 JOBNUMBER [KNOWN TO SYSTEM
6P*Q NBIGJOB
6PTB MONOUT BMLISTSAVE,AWORK1(2)
6Q*2 [FOR LISTFILE ACCOUNTING
6QSL OUTPUT
6R#= STEP
6RRW BZE 3 OUTEND
6S?G LDCT 7 #540 [B0-ONLINE; B2-SETUP; B3-PROPERTY
6SR6 [
6T=Q [ BEWARE GMODE CHANGING VALUE DURING DEVELOPMENT OF NEW MARK - USE B
6TQB [
6W=2 ANDX 7 GMODE-A1(3)
6WPL LDCT 6 #100
6X9= ANDX 6 7 [X6=0 IF NO SETUP
6XNW SLC 6 3
6Y8G LDCT 4 #40
6YN6 ANDX 4 7 [X4=0 IF NOPROP
6^7Q SLC 4 4
6^MB BPZ 7 OFFLINE [J UNLESS ONLINE
7272 LDX 3 4
72LL ADX 3 6
736= LDN 7 1(3) [NUMBER OF RECORDS IN ENTRY
73KW BZE 3 ONDEL
745G SKIP ,0(3) [REMAINING RECORDS IN ENTRY
74K6 ONDEL
754Q DELETE
75JB BCT 7 ONDEL
7642 VFREE FILE,FWB [ INFO REC. IF IT WAS READ
76HL BRN OUTPUT
773= OFFLINE
77GW READAGAIN [INFO RECORD
782G MHUNTW 3,FILE,FRB
78G6 LDX 0 GJOBS(3)
78^Q STO 0 AWORK1(2)
79FB LDX 0 MBITS(1)
79^2 ANDX 0 GMODE(3)
7=DL ERS 0 GMODE(3)
7=Y= NAME 3,FILE,FWB [TO UPDATE INFO RECORD
7?CW REPLACE [INFO RECORD
7?XG BZE 4 NOPROP
7#C6 STEP [MISS PROPERTY RECORD
7#WQ NOPROP
7*BB LDN 7 0
7*W2 OPF READ
7B*L OPSET
7BT= MHUNTW 1,FILE,FRB
7C#W NAME 1,FILE,FABSNB
7CSG #SKI G252&1
7D#6 (
7DRQ OPENDIR XBR,GENERAL,CAREFUL,QUERY,ERASING
7F?B TESTRPN2 OK,NOFILE2
7FR2 MHUNTW 1,FILE,ENT
7G=L LDEX 0 ECOPS(1)
7GQ= BZE 0 ZBHAM2
7H9W BACKSPACE
7HPG MHUNTW 1,FILE,ENT
7J96 ZBHAM2
7JNQ JMBS NOFILE1,1,BEBMUWB,BEBM
7K8B )
7KN2 #SKI G252&1$1
7L7L BMOPENDI XBR,NOFILE2,NOFILE1 [OPENDIR FILE
7LM= FREECORE 1 [ENT
7M6W TOPFCB2 1
7MLG JBS PRLF,1,BFPARTRES
7N66 STEPAGAIN
7NKQ #SKI G252&1
7P5B (
7PK2 LDN 0 1 [ SEE IF EU BIT SET TO 1
7Q4L ANDX 0 EUN(3)
7QJ= BZE 0 ZBHAM1 [ BRANCH IF EU NOT 1
7R3W ERS 0 EUN(3) [ CLEAR IT
7RHG BS 3,BNERASE [RESET ERASE BIT
7S36 CALL 5 STEPREWRITE
7SGQ ZBHAM1
7T2B )
7TG2 LDEX 0 7
7T^L BZE 0 YFREEZE [ J. UNLESS SETUPFILE
7WF= MHUNTW 1,FILE,FWB [ INFO RECORD
7WYW LDX 0 GMODE(1)
7XDG ANDN 0 #10 [ CHECK IF NEED TO FREEZE
7XY6 BNZ 0 NOFREEZE
7YCQ YFREEZE
7YXB CALL 5 STEPREWRITE
7^C2 LDN 0 1
7^WL BNG 7 OPTHAW [J IF THAWING MAIN FILE
82B= ADS 0 EAUTOCOUNT-A1(3) [FREEZE FAIL
82TW NOFREEZE
83*G LDX 5 ESAVECOUNTN(3)
83T6 ANDX 5 HALFTOP [ GET WRITE SAVE COUNT
84#Q CLOSETOP
84SB BZE 5 NOTWRITSAVE
85#2 LDX 3 4
85RL ADX 3 7 [ 0 IF MAIN: 1 IF SETUP
86?= ADN 3 1
86QW SAVEBS
87=G BACKSPACE [ TO INFO RECORD
87Q6 BCT 3 SAVEBS
889Q STEPAGAIN
88PB LDCT 0 #20 [ BIT 4
8992 SMO 7
89NL SRL 0 1 [TO BIT 5 IF MAIN : 6 IF SETUP
8=8= ORS 0 GMODE-A1(3)
8=MW CALL 5 STEPREWRITE
8?7G LDX 3 4
8?M6 ADX 3 7
8#6Q ADN 3 1
8#LB SKIP ,0(3) [ BACK TO WHERE WE WERE
8*62 NOTWRITSAVE
8*KL LDEX 0 7
8B5= BNZ 0 OUTSJ [J IF FINISHED WITH SETUP
8BJW BZE 6 OUTSJ [OR MAIN FILE & NO SETUP
8C4G ORN 7 1
8CJ6 BRN OPF [TO FREEZE SETUP
8D3Q NOFILE1
8DHB FREECORE 1 [ENT
8F32 PRLF
8FGL CLOSETOP
8G2= NOFILE2
8GFW MHUNTW 3,FILE,FWB [INFO RECORD
8G^G NAME 3,FILE,FAPB [FOR APPENDING TO LISTLOSTFILE
8HF6 LDN 0 1
8HYQ STO 0 A1+1(3)
8JDB STOZ A1+2(3) [SWITCH FOR EXTRA RECORDS
8JY2 LDEX 5 7
8KCL BZE 5 NOMAINFILE
8KX= LDN 0 1
8LBW STO 0 A1+2(3)
8LWG NOMAINFILE
8MB6 APPEND 1 [TO LISTLOSTFILE
8MTQ MHUNTW 3,FILE,FAPB
8N*B NAME 3,FILE,FWB [ MAY NEED IF FAIL ON SETUP
8NT2 BZE 5 NOMOREAPEND [IF ONLY 1 RECORD TO APPEND TO LLF
8P#L MHUNT 3,FILE,FABSNB
8PS= NAME 3,FILE,FAPB
8Q?W APPEND 1 [2ND RECORD TO LISTLOSTFILE
8QRG MFREE FILE,FAPB
8R?6 MFREE FILE,FABSNB [FREE THE MAIN FILES FABSNB
8RQQ NOMOREAPEND
8S=B LDEX 0 7
8SQ2 BZE 0 OFDEL [J IF FAILED ON MAIN FILE
8T9L READBACK [GO BACK TO MAIN FILE IF FAILED ON SE
8TP= ORX 7 GSIGN
8W8W ERN 7 1
8WNG BRN OPSET [THAW MAIN FILE
8X86 OPTHAW
8XMQ SBS 0 EAUTOCOUNT-A1(3)
8Y7B CLOSETOP
8YM2 OFDEL
8^6L LDN 7 2
8^L= ADX 7 4
925W ADX 7 6 [NUMBER OF RECORDS IN ENTRY
92KG BZE 6 ONDEL [J IF NO SETUP
9356 STEP [OVER SETUP
93JQ BRN ONDEL [DELETE OTHER RECORDS
944B NQLOST [OFFLINE - DELETE & RECREATE
94J2 LDEX 3 ECOPS(1)
953L ADX 3 ENUSE(1)
95H= JBC NOINDEX,1,BEINDEX
962W ADN 3 1 [ALLOW FOR INDX RECORD
96GG NOINDEX
9726 LDN 7 1(3)
97FQ FREECORE 1
97^B BZE 3 NQDEL
98F2 SKIP ,0(3)
98YL NQDEL
99D= DELETE
99XW BCT 7 NQDEL
9=CG NQDELX
9=X6 CLOSETOP
9?BQ BRN NOUT1
9?WB NOUT
9#B2 #SKI K6BMOUTPUT>199-199
9#TL TESTREPN NOFILE,XBR
9**= NOUT1
9*SW CREATEB 1
9B#G MBS 1,CEINDEXF,CEONLINE
9BS6 LDN 0 INDEXOUT
9C?Q STO 0 CEINDEX(1) [CREATE INDEXED FILE
9CRB SMO FX1
9D?2 LDX 3 NOUTLOST
9DQL MONOUTX 3
9F== OPEN XBR,GENERAL,CREATE
9FPW OUTEND
9G9G CLOSETOP
9GP6 CLOSETOP [LISTLOSTFILE
9H8Q ACROSS BMAPTWO,1
9HNB [
9J82 XBR
9JML GEOERR 1,BMOUTPUT
9K7= [
9KLW MENDAREA BMAPGAP,K99BMOUTPUT
9L6G #END
^^^^ ...727561100001