{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: LISTDIR867)}}
====== LISTDIR867 ======
(George Source)
**Macros used:** [[george:macro:ABANDCOM|ABANDCOM]], [[george:macro:ACROSS|ACROSS]], [[george:macro:ALTLEND|ALTLEND]], [[george:macro:APPEND|APPEND]], [[george:macro:BS|BS]], [[george:macro:BXE|BXE]], [[george:macro:CLOSE|CLOSE]], [[george:macro:CLOSETOP|CLOSETOP]], [[george:macro:COMBRKIN|COMBRKIN]], [[george:macro:COMERRX|COMERRX]], [[george:macro:CONSERNO|CONSERNO]], [[george:macro:CREATEB|CREATEB]], [[george:macro:DUMP|DUMP]], [[george:macro:EMPTY|EMPTY]], [[george:macro:ENDCOM|ENDCOM]], [[george:macro:ERASEWORK|ERASEWORK]], [[george:macro:FREECORE|FREECORE]], [[george:macro:FRIGMONF|FRIGMONF]], [[george:macro:GEOERR|GEOERR]], [[george:macro:HUNT|HUNT]], [[george:macro:ISSUCOMB|ISSUCOMB]], [[george:macro:JBC|JBC]], [[george:macro:JBS|JBS]], [[george:macro:JMBAC|JMBAC]], [[george:macro:LOBSFILE|LOBSFILE]], [[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:NAME|NAME]], [[george:macro:NAMETOP|NAMETOP]], [[george:macro:NEXTENT|NEXTENT]], [[george:macro:OPENDIR|OPENDIR]], [[george:macro:PARAPASS|PARAPASS]], [[george:macro:PHOTO|PHOTO]], [[george:macro:READ|READ]], [[george:macro:READAGAIN|READAGAIN]], [[george:macro:REPERR2|REPERR2]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETMODE|SETMODE]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:SPACECT|SPACECT]], [[george:macro:SPARAPAS|SPARAPAS]], [[george:macro:STEP|STEP]], [[george:macro:TESTBRKIN|TESTBRKIN]], [[george:macro:TESTMOVE|TESTMOVE]], [[george:macro:TESTRACE|TESTRACE]], [[george:macro:TESTRPN2|TESTRPN2]], [[george:macro:TOPFCB|TOPFCB]], [[george:macro:USEROPEN|USEROPEN]], [[george:macro:USEROPEX|USEROPEX]], [[george:macro:VFREEW|VFREEW]]
22#C ... SEG LISTDIR,,,FILESTORE,G233
22LS ...[
22^9 ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982
23?L ...[ THIS EXCLUDES CODE UNDER #SKI G233
23L3 ...[
23YD ...#OPT G233 = 0
24=T ...#SKI G233&1
24K= ...# WITH UGUG EDIT M233 (COMPACT LISTDIR HIGH)
24XQ SEGENTRY K1LISTDIR,Z1LISTDIR
25CB SEGENTRY K2LISTDIR,Z2LISTDIR
25X2 SEGENTRY K3LISTDIR,ZDIRECTORY
26BL SEGENTRY K4LISTDIR,ZBRKIN
27*W ZJERNULLP +JERNULLP
27TG ZERTEMP +ERTEMP
28*6 ZJLDIRER +JLDIRER
28SQ ZJPARMIS +JPARMIS
29#B SHIGH 4HHIGH
29S2 SLOW 4HLOW
2=?L SHEAD 40H TYPE NAME GEN.NO. LANG. REEL
2=R= 32H.NO. SERIAL NO.
2?=W SDIR 32H LISTDIR LISTING OF DIRECTORY
2?QG SCUR 20HCURRENT DIRECTORY
2#=6 SEMPT 20HDIRECTORY IS EMPTY
2#C# SDIRY 4HDIR
2#JG SPSEU 4HPSEU
2#PQ SFILE 4HFILE
2*9B SMULT 4HMULT
2*P2 SMAG 4HMAGS
2*YS SEXO 8HEXOFILE
2B8L STEMP 4H(T)
2BN= SERASE 4H(E)
2C7W SRETURN 4H(R)
2CMG SFROZEN 4H(F)
2D76 W +10000
2DLQ SASTER 4H*LP
2DN7 ...#SKI G233&1
2DPJ ...(
2DQ^ ...# HEADINGS FOR COMPACT 'HIGH'
2DSB ...XHHD 32HLOCAL NAME FGN/LANG TYPE
2DTR ... 40H BLKS LAST DUMP INC. ON/OFF
2DX8 ... 48H LAST ACCESS LAST WRITTEN RES FORMULA
2DYK ...XHEDS 5:SEMPT
2F22 ... 18:SHEAD
2F3C ... 30:XHHD
2F4S ...)
2F6B SLF 8HLF !,*LP
2FL2 TYPEMODE #40000012 [ GRAPHIC
2GK= XCHARSIN
2H4W T12 DCH 5 0(1) [INSERT CHAR
2HJG SRL 5 6
2J46 BZE 5 (0) [JIF NO MORE
2JHQ SLC 1 2
2K3B SBN 1 1 [ALTER CHAR INDEX
2KH2 SRC 1 2
2L2L BRN T12
2M^6 SPARAPAS
2NDQ SBX 7 FX1
2NYB SPARAPAS
2PD2 BRN PAREXIT
2PXL PARAPASS
2QC= SBX 7 FX1
2QWW PARAPASS
2RBG PAREXIT
2RW6 MHUNT 3,CPB,CUNI
2S*Q ADX 7 1
2STB EXIT 7 0
2T*2 PEND
2TSL SBX 3 FX1
2TT2 MHUNT 2,FILE,FAPB
2TTB LDX 7 A1(2)
2TTQ LDN 0 2
2TW6 BXE 7 0,NULLREC
2TWG SBN 7 1
2TWW NEXTONE
2TX= SMO 7
2TXL LDX 0 A1(2)
2TY2 SMO 7
2TYB STO 0 A1+1(2)
2TYQ BCT 7 NEXTONE
2T^6 LDN 0 1
2T^G ADS 0 A1(2) [ EXTRA WORD FOR PFCC
2T^W LDX 0 A1(2)
2W2= SBN 0 1
2W2L PREVWORD
2W32 SMO 0
2W3B LDX 7 A1(2)
2W3Q SPACECT 7,6,SPACEALL
2W46 STOZ 0
2W4G BZE 6 NOSPACES
2W4W LDN 0 4
2W5= SBX 0 6
2W5L SRC 0 2
2W62 NOSPACES
2W6B LDN 7 #41
2W6Q ADS 7 0
2W76 STO 0 A1+1(2) [ STORE PFCC
2W7G BRN NOWAPPEND
2W7W SPACEALL
2W8= SBN 0 1
2W8L LDN 6 1
2W92 SBS 6 A1(2)
2W9B BRN PREVWORD
2W9Q NULLREC
2W=6 LDN 0 #41
2W=G STO 0 A1+1(2)
2W=W NOWAPPEND
2W#= APPEND 1,FORCED
2WRW ADX 3 1
2X?G EXIT 3 0
2XR6
2Y=Q [
2YQB Z1LISTDIR [LISTDIR COMMAND ENTRY
2^=2 [
2^PL STOZ AWORK1(2)
329= CALL 7 SPARAPAS
32NW LDX 6 ANUM(3)
338G BNG 6 TA1 [J IF NO PARAMETERS
33N6 BZE 6 TA1 [J IF NULL PARAMETER
347Q NAMETOP 3,FILE,FNAME [RENAME CPB/CUNI BLOCK
34MB LDN 4 0 [DIRECTORY NAME GIVEN
35LL T16
35WD LDN 5 0
366= SETMODE 0,READ,DIRONLY
36KW OPENDIR
375G USEROPEX YBRKIN,0
37K6 REPERR2 T2
384Q ZENDCOM
38JB T99
3942 ENDCOM
39HL [
3=3= ZDIRECTORY [DIRECTORY CMMAND ENTRY
3=GW [
3?2G NGN 5 1 [DY COMMAND
3?G6 CALL 7 SPARAPAS
3?^Q NGX 0 ANUM(3)
3#FB BPZ 0 NPAR [COMERR IF PARAMETER NULL OR ABSENT
3#^2 NAMETOP 3,FILE,FNAME [FOR USEROPEX
3*DL SETMODE 0,READ,DIR,DIRONLY,UNTRAP
3*Y= BRN OPENDIR
3BCW ZDYOK
3BXG MHUNTW 1,FILE,ENT
3CC6 ADN 1 EUSE1
3CWQ ADN 2 CPREFIX
3DBB MOVE 1 3 [SET REQUESTED NAME AS CURRENT DIRECT
3DW2 BRN ZENDCOM
3F*L [
3FT= TA1 PHOTO 5
3G#W ALTLEND 3,7,CPB,CUNI
3GSG TESTMOVE 5,X1
3H#6 MHUNT 3,CPB,CUNI
3HRQ X1 LDN 0 1 [FIRST WORD OF CPB/CUNI BLOCK SHOULD
3J?B STO 0 JPARNUM(3)
3JR2 LDN 0 17 [SECOND WORD SHOULD CONTAIN COUNT OF
3K=L STO 0 ANUM(3)
3KQ= LDN 2 SCUR(1) [PUT IN WORDS-CURRENT DIRECTORY-SO IF
3L9W ADN 3 APARA
3LPG MOVE 2 5 [MESSAGE IS CORRECT
3M96 SETNCORE 4,3,FILE,FABSNB [FABSNB FOR OPENING FILE
3MNQ LDN 0 4
3N8B STO 0 A1(3)
3NN2 ADN 2 CPREFIX [PUT CURRENT PREFIX AS NAME OF
3P7L ADN 3 A1+1 [DIRECTORY TO BE LISTED
3PM= MOVE 2 3
3Q6W NGN 4 1 [INDICATE NO DIRECTORY GIVEN
3QLG BRN T16
3R66 T20 LDN 0 19 [
3RKQ STO 0 A1(3)
3S5B ADN 3 A1+1
3SK2 LDN 2 SDIR(1)
3T4L MOVE 2 8 [TO BE LISTED
3TJ= ADN 3 8
3W3W HUNT 2,CPB,CUNI
3WHG LDX 6 ANUM(2) [LOAD IN NUMBER OF CHARS IN
3X36 ANDN 6 #7777 [DIRECTORY NAME PROVIDED BY USER
3XGQ LDN 1 40
3Y2B TXL 1 6 [CHECK THAT CHARS WILL FIT INTO ONE
3YG2 BCS T22 [LINE OF PRINT
3Y^L LDX 1 6 [IF SO X1 IS NUMBER OF CHARS
3^F= T22 LDN 2 APARA(2)
3^YW MVCH 2 0(1) [MOVE DIRECTORY NAME
423F TOPFCB 1
4264 JBC T21,1,BFUSERFREZ
428M SMO FX1
42?= LDN 2 SFROZEN
42*T MVCH 2 3
42DG BRN T21
42Y6 T2 CLOSETOP [CLOSE DIRECTORY
43CQ BNG 5 ZDYOK [J IF DY COMMAND
43G* CREATEB 3
43JY LDX 0 TYPEMODE(1)
43MH STO 0 CETM(3)
43Q6 BS 3,CESERIAL
43SP STOZ AWORK2(2)
43XB BNG 6 TA5 [J IF NO PARAMETERS
44C2 CALL 7 PARAPASS
44WL LDX 6 ANUM(3)
45B= BZE 6 T4
45TW BNG 6 T4
46*G LDX 0 APARA(3)
46T6 SBX 0 SLOW(1)
47#Q BZE 0 T4
47SB LDX 0 APARA(3)
48#2 SBX 0 SHIGH(1)
48RL BNZ 0 X2
49?= LDX 0 GSIGN
49QW ORS 0 AWORK1(2)
4==G T4 FREECORE 3
4=Q6 TA5 LDN 5 0
4?9Q BNG 6 TB3
4?PB CALL 7 PARAPASS
4#92 NGX 0 ANUM(3)
4#NL BPZ 0 TB2 [J IF NO PARAMETER GIVEN
4*8= LDN 5 1
4*MW LDX 0 APARA(3)
4B7G SBX 0 SASTER(1)
4BM6 BZE 0 TB2
4BPY NAMETOP 3,FILE,FNAME
4BSQ USEROPEN YBRKIN,APPEND,CREATE,EMPTY
4BXJ MFREE FILE,FABSNB
4C2B REPERR2 NAMEOK
4C58 ENDCOM
4C82 NAMEOK
4C=S MFREE CPB,CUNI
4C*L NGN 5 1
4CDD STO 5 AWORK2(2)
4CH= BRN TOPEN
4CLB TB
4D62 ZCOMERRX
4DKL COMERRX 3
4F5= [
4FJW NPAR
4G4G LDX 3 ZJPARMIS(1)
4GJ6 BRN ZCOMERRX
4H3Q [
4HHB TB1 TESTBRKIN YBRKIN [J IF FRIGMONF FAILS DUE TO BREAKIN
4J32 LDX 3 ZERTEMP(1)
4JGL BRN TB
4K2= TB2 FREECORE 3
4KFW TB3
4K^G ORS 5 AWORK1(2)
4LF6 BNZ 5 TTOK [J IO *LP
4LYQ LDN 5 4 [MASK FOR LISTING CATEGORY
4MDB TESTRACE 5,TTT
4MY2 BRN TTOK
4NCL TTT
4NX= MONOUT JMTRACE1
4PBW BRN T99
4PWG TTOK
4QB6 FRIGMONF TB1,LEVEL0 [CREATE & OPEN WORKFILE @ LEVEL 0
4QTQ MFREE FILE,FABSNB [ FROM FRIGMONF
4R*B LOBSFILE
4RGJ TOPEN
4RMQ VFREEW FILE,CREATE
4RT2 USEROPEN XBRKIN,READ,DIRONLY
4S#L MFREE FILE,FABSNB
4SS= REPERR2 TB4
4T?W BRN XBRKIN
4TRG TB4 CALL 6 SPACE
4W?6 CALL 3 PEND
4WQQ HUNT 3,FILE,FAPB
4X=B BPZ 4 T20 [J IF DIRECTORY NAME SPECIFIED
4XQ2 LDN 2 13
4Y9L STO 2 A1(3)
4YP= ADN 3 A1+1 [MOVE HEADING OF DIRECTORY BEING
4^8W LDN 2 SDIR(1) [LISTED TO OUTPUT BLOCK
4^NG MOVE 2 8
5286 ADN 3 8
52MQ LDN 0 10 [LOAD COLON TO PLACE
537B LDCT 1 384 [BEFORE USER NAME OF DIRECTORY
53M2 ADX 1 3
546L DCH 0 0(1)
54L= ADN 3 1
555W SMO FX2 [MOVE IN NAME OF CURRENT
55KG LDN 2 CPREFIX [DIRECTORY
5656 MOVE 2 3
56JQ T21
574B CALL 3 PEND
57J2 HUNT 3,FILE,FAPB
583L LDN 6 2
58H= STO 6 A1(3)
592W LDX 6 ACES
59GG STO 6 A1+1(3)
5=26 CALL 3 PEND
5=FQ READ [READ FIRST BLOCK OF DIRECTORY
5=^B MHUNTW 2,FILE,FRB
5?F2 LDX 5 A1(2)
5?YL MHUNTW 3,FILE,FAPB
5?^8 ...#SKI G233&1
5?^Q ...(
5#2# ... SMO FX2
5#2W ... LDXC 0 AWORK1
5#3D ... BCC T21A
5#42 ... ALTLEND 3,32,FILE,FAPB [ IF NEW HIGH LEVEL OUTPUT,
5#4J ... MHUNTW 3,FILE,FAPB [ 32 WORDS REQ'D IN FILE/FAPB
5#56 ...T21A NGXC 0 5
5#5N ... NGN 6 0 [ 0 IF EMPTY, ELSE -1
5#6= ... SMO FX2
5#6S ... LDXC 0 AWORK1
5#7B ... LDN 0 1 [ 1 LOW 2 HIGH
5#7Y ... ANDX 0 6 [ 0 EMPTY 1 LOW 2 HIGH
5#8G ... SMO 0
5#94 ... LDX 7 XHEDS(1) [ APPROPRIATE OUTPUT LINE
5#9L ... LDEX 2 7 [ STRING ADDRESS
5#=8 ... SRL 7 15
5#=Q ... NGNC 0 1 [ X7 = OUTPUT LINE SIZE
5#?# ... STO 7 A1(3) [ STRING LENGTH + 1
5#?W ... ADN 3 A1+1
5##D ... ADX 2 1
5#*2 ... SMO 7
5#*J ... MOVE 2 0 [ RIGHT LINE INTO FILE/FAPB
5#B6 ...)
5#BN ...#SKI G233&1$1
5#C= ...(
5#D= LDN 2 19
5#XW BNZ 5 T26 [J IF DIRECTORY NOT EMPTY
5*CG LDN 2 6
5*X6 T26 STO 2 A1(3)
5BBQ ADN 3 A1+1
5BWB BNZ 5 T23
5CB2 LDN 2 SEMPT(1) [PUT IN DIRECTORY EMPTY MESSAGE
5CTL MOVE 2 5
5D*= BRN T24
5DSW T23 LDN 2 SHEAD(1) [PUT IN TITLE LINE
5F#G MOVE 2 18
5FJ# ...)
5FS6 T24
5G?Q CALL 3 PEND
5GRB MHUNTW 3,FILE,FAPB
5H?2 LDN 6 2
5HQL STO 6 A1(3)
5J== LDX 6 ACES
5JPW STO 6 A1+1(3)
5K9G CALL 3 PEND
5KP6 BZE 5 T5
5L8Q BRN T25
5LNB [
5M82 Z2LISTDIR [ENTRY FROM LISTDIRF
5MML [
5N7= T6
5N87 ...#SKI G233&1
5N94 ...(
5N9^ ... STEP [ STEP FORWARD TO NAME RECORD
5N=W ... BZE 3 T5 [ CAUTIOUSLY BECAUSE
5N?R ... LDX 0 1(3) [ BLOCKS RECORD MAY HAVE
5N#N ... BNZ 0 T6 [ BEEN STEPPED ALREADY
5N*K ... MHUNTW 2,FILE,FRB
5NBG ... LDN 4 A1(2)
5NCC ... SMO 0(3) [ GET RECORD INTO
5ND# ... MOVE 3 0 [ SAME FILE/FRB
5NF9 ...T25 SMO FX2
5NG6 ... LDX 0 AWORK1
5NH3 ... BNG 0 T25HI [ NEW HIGH DOESN'T WANT OLD LOW
5NHY ...)
5NJT ...#SKI G233&1$1
5NKQ ...(
5NLW MHUNTW 1,FILE,FRB
5P6G NAME 1,FILE,ENT
5PL6 NEXTENT
5Q5Q MFREEW FILE,ENT
5QKB BZE 3 T5
5R52 READAGAIN
5RJL T25
5RSD ...)
5S4= MHUNTW 3,FILE,FAPB
5SHW CALL 6 SPACA
5T3G MHUNTW 2,FILE,FRB
5TH6 LDN 0 19
5W2Q STO 0 A1(3) [RECORD HEADER
5WGB LDX 7 ACES
5X22 JBS MAGTAPE,2,BELIB
5X9S LDN 4 0
5X*P JBS XOFILE,2,BEEXO
5XFL JBC NOTTEMP,2,BETEMP
5X^= LDX 7 STEMP(1) [(T)
5YDW NOTTEMP
5YJR JBC NOTFROZEN,2,BEUSERFREZ
5YNN LDX 7 SFROZEN(1)
5YSK NOTFROZEN
5YYG JBC NOTERASED,2,BEERASE
62X2 LDX 7 SERASE(1) [(E)
63BL NOTERASED
63HS LDX 0 EUSE1(2)
63P2 BNZ 0 XDIR
63W= LDX 6 SFILE(1) ['FILE'
64*W JMBAC ND,2,BEMDF,BEMULT
67?L LDX 6 SMULT(1) ['MULT'
67R= BRN ND
67RN XDIR
67S6 LDX 6 SDIRY(1)
67SJ JBC NOTPSEU,2,BEPSEUDO
67T2 LDX 6 SPSEU(1)
67TD NOTPSEU
67TW BRN ND
67WB XOFILE
67^G LDX 6 SEXO(1)
684L LDX 7 SEXO+1(1)
687Q BRN ND
68=W MAGTAPE
68GN LDN 4 1
68QG LDX 6 SMAG(1) ['MAGS'
69=6 JBC ND,2,BEERASE
69PQ LDX 7 SRETURN(1) [(R)
6?N= ND
6#7W STO 6 A1+1(3)
6#MG STO 7 A1+2(3)
6*76 LDN 6 ELOC1(2)
6*LQ LDN 7 A1+3(3)
6B6B MOVE 6 3 [LOCAL NAME
6BL2 BZE 4 T8
6C5L LDX 5 EREEL(2) [REEL NUMBER IF MAGTAPE
6CK= CALL 1 T9 [CONVERT TO CHARACTER FORM
6D4W LDCT 1 #600
6DJG ADN 1 A1+10(3) [REEL NO
6F46 CALL 0 XCHARSIN
6FHQ T8 LDX 5 EGEN(2) [GENERATION NO
6G3B CALL 1 T9
6GH2 LDN 1 A1+7(3)
6H2L CALL 0 XCHARSIN
6HG= BNZ 4 T14 [J IF MAGTAPE
6JFG LDX 5 ELAN(2) [LANGUAGE
6J^6 T11 LDCT 1 384
6KDQ ADN 1 A1+8(3) [LANGUAGE
6KYB CALL 0 XCHARSIN
6K^M LDX 0 EUSE1(2)
6L2Y BZE 0 T19
6L49 LDN 0 #12 [ :
6L5G LDN 1 A1+10(3)
6L6R SLC 1 2
6L84 ADN 1 3
6L9* SRC 1 2
6L=L DCH 0 0(1)
6L?X BCHX 1 £
6L*8 LDN 0 EUSE1(2)
6LBF MOVE 0 3 [ USERNAME
6LD2 BRN T19
6LXL T14 CONSERNO ESER(2),ACOMMUNE1
6MC= MHUNTW 1,FILE,FAPB
6MWW LDN 3 A1+13(1)
6NBG LDX 0 ACOMMUNE1(2)
6NW6 ADN 2 ACOMMUNE2
6P*Q SMO 0
6PTB MVCH 2 0
6Q*2 T19
6QSL CALL 3 PEND
6QWJ ...#SKI G233&1
6QYG ...(
6R2D ... BRN T6 [ GO TO NEXT - MUST BE 'LOW'
6R4B ...T25HI
6R6# ...)
6R8= ...#SKI G233&1$1
6R=8 ...(
6R#= LDX 7 AWORK1(2)
6RRW BPZ 7 T6
6S3N ...)
6S?G ACROSS LISTDIRF,1 [FOR FULL LISTING
6SDN [ [RETURN TO Z2LISTDIR
6SKW [
6SM3 T5
6T9H CLOSETOP
6T=Q CLOSE [CLOSE WORKFILE
6T#S LDX 0 AWORK2(2)
6TBW BNG 0 T99
6TF2 MHUNT 3,CPB,CALAS
6TM= LDX 7 ALOGLEN(3)
6TTG ADN 7 2
6W3Q SETUPCOR 7,3,ADATA,CREADL
6W=2 LDX 0 SLF(1)
6WPL STO 0 CPDATA(3) [LF
6W^D LDN 7 1
6X9= LDN 4 4 [CHAR COUNT IF NOT *LP
6XNW LDEX 0 AWORK1(2)
6Y8G BZE 0 TNOLPA [J IF NOT *LP
6YN6 LDX 0 SLF+1(1)
6^7Q STO 0 CPDATA+1(3)
6^CJ ADN 7 1
6^MB LDN 4 8
6^P^ TNOLPA
6^SJ SMO 7
6^X7 LDN 7 CPDATA
6^^Q STO 7 ACOMMUNE3(2)
724* TNOLP
7272 CALL 7 SPARAPAS
72LL LDX 1 3
736= MHUNTW 3,ADATA,CREADL
73B4 LDX 6 3
73KW NGX 5 ANUM(1)
745G BPZ 5 T51
74K6 NGX 5 5
754Q ANDN 5 #7777
75JB ADX 4 5
7642 ADN 4 1
76HL ADX 3 ACOMMUNE3(2)
79FB T501 LDN 0 #34
79^2 DCH 0 0(3)
7=Y= BCHX 3 £
7?84 LDX 2 1
7?CW LDX 1 ANUM(2)
7?XG ADN 2 APARA
7#C6 MVCH 2 0(1)
7#KB SBX 3 6
7#RL SMO FX2
7#^W STO 3 ACOMMUNE3
7*86 BRN TNOLP
7*BB T51 STO 4 A1(3) [CHARACTER COUNT
7*W2 T511
7B*L ISSUCOMB T52,T60
7BT= T52 CALL 6 TER [SET UP & ISSUE COMMAND ER !
7C#W BRN T99
7CSG T60 CALL 6 TER
7D#6 ABANDCOM
7DRQ SPACA SBX 6 FX1
7F?B BRN T18
7FR2 SPACE SBX 6 FX1
7G=L SETNCORE 21,3,FILE,FAPB
7HPG LDN 0 2
7J96 STO 0 A1(3) [& RECORD HEADER
7JNQ T18 LDN 0 20
7K8B LDX 2 ACES [FILL WITH SPACES
7KN2 T15 SMO 0
7L7L STO 2 A1(3)
7LM= BCT 0 T15
7M6W ADX 6 FX1
7MLG EXIT 6 0
7N66 T9
7NKQ STOZ 6 [BINARY TO DECIMAL CONVERSION
7P5B SMO FX1 [SUBROUTINE
7PK2 DVR 5 W
7Q4L LDCT 7 #200
7QJ= LDN 2 5
7R3W MODE 1 [SUPPRESS ZEROS ON FIRST THREE
7RHG LDN 0 3 [CHARACTERS
7S36 T10 CBD 6 0(2) [CONVERT TO DECIMAL
7SGQ BCHX 2 T17
7T2B T17 BCT 0 T10
7TG2 MODE 0 [CHANGE MODE TO NON-ZERO SUPPRESSION
7T^L CBD 6 0(2) [FOR LAST CHARACTER AND CONVERT IT
7WF= HUNT 2,FILE,FRB
7WYW EXIT 1 0
7XDG X2 LDX 3 ZJLDIRER(1)
7XY6 BRN TB
7YCQ TER SBX 6 1 [LINK - FX1
7YXB SETNCORE 10,3,FILE,FABSNB
7^C2 LDN 0 10
7^WL STO 0 A1(3)
7^YJ LDX 2 BWORKRING(2)
822HP...#SKI IFS
826DP... ADN 2 FUSER1-FCBRING
82=*P...#SKI IFS<1$1
82TW ADN 2 FUSER1
83*G ADN 3 A1+1
83T6 MOVE 2 9
84#Q ERASEWORK
84SB TESTRPN2 OK,ZONK
85#2 T53 ADX 6 1 [RESET LINK
85RL EXIT 6 0
86?= # BREAKIN
86QW ZBRKIN
87=G CLOSETOP [DIR
87Q6 XBRKIN
889Q CLOSE
88PB CALL 6 TER
8992 YBRKIN
89NL COMBRKIN
8=8= ZONK
8=MW GEOERR 1,LDERWORK
8?7G [
8?M6 MENDAREA 20,K99LISTDIR
8#6Q #END
^^^^ ...01270452000100000000