(George Source)
0000 [??? SCFDESC SECT FILE FGN 15 DOC 2?QG #MAC SCFDESC 2#=6 [ DEFINE THE SCF 2#PQ [ %A = NAME 2*9B [ %B = TYPE (6,9,13,25) 2*P2 [ %C = CSN OF DISC IF GIVEN 2B8L #FRL 2BN= #DEF 19?+2=1? 2C7W #LIS 0 2CMG #DEF 19?+1=0 2D76 #DEF 19?+3=33? 2DBY ...#ALT K98BRADDATA=K96BRADDATA 2DLQ #MEN BRADSPLT 2F6B #STR %A 2FL2 ( 2G5L #TRA K98BRADSPLT 2GK= 12H%A [SET THE FILE NAME 2J46 #TRA K98BRADSPLT+4 2J?Y ...#STR %C 2JHQ #%C [SET THE DISC CSN IF GIVEN 2JRJ ...#STR %C 2K3B ...#SKI 2K?8 ... +0 2KH2 #STR 6,%B 2L2L #SKI 2LG= ( 2L^W #TRA K98BRADSPLT+3 2MFG +0 2M^6 #FID 0,5,%B [SET TYPE 6 2NDQ #END 2NYB #MEN BRADDATA 2PD2 #EXI 2PXL ) 2QC= #STR 9,%B 2QWW #SKI 2RBG ( 2RW6 #TRA K98BRADSPLT+3 2S*Q +0 2STB #FID 0,5,%B [SET TYPE 9 2T*2 #END 2TSL #MEN BRADDATA 2W#= #EXI 2WRW ) 2X?G #STR 13,%B 2XR6 #SKI 2Y=Q ( 2YQB #TRA K98BRADSPLT+3 2^=2 +0 2^PL #FID 0,5,%B [SET TYPE 13 329= #END 32NW #MEN BRADDATA 338G #EXI 33N6 ) 347Q #STR 25,%B 34MB #SKI 3572 ( 35LL #TRA K98BRADSPLT+3 366= +0 36KW #FID 0,5,%B [SET TYPE 26 375G #END 37K6 #MEN BRADDATA 384Q #EXI 38JB ) 3942 ! INVALID DEVICE TYPE ! 39HL #END 3=3= #MEN BRADDATA 3=GW #EXI 3?2G ) 3?G6 #END 3?^Q #MEN BRADDATA 3#FB #NOR 0000 [??? SCFISSUE SECT FILE FGN 15 DOC 3#^2 #MAC SCFISSUE 3*DL [ 3*Y= [ STANDARD ICL ISSUE OF CHPTERS TO BE PLACED ON THE SCF 3BCW [ 3BXG ... SCFCHAP CHANFILE,APPEND,ANALYSE,PERFCHAP,SUICIDE 3CC6 ... SCFCHAP DEMAND,VERBCLAS,PARAM,CLOSEONE,ANALYSEA 3CWQ ... SCFCHAP MONFILE,ORELMAIN,CLOSEDIR,CLOSEND,ORELHALF 3F*L SCFCHAP OPENTWO,PERUSFIL,ORELEND,SETMON,LOCATE,OPENREL,OPENFILE 3FT= ... SCFCHAP MONFIL,ALAS,CLEAN,COMPRO,ALASB,READFILE 3G#W ... SCFCHAP RELPER,IPQUAKER,IFEXPAN,DECODE,MESSBH 3HRQ #NOR 0000 [??? SCFCHAP SECT FILE FGN 15 DOC 3J?B #MAC SCFCHAP 3JR2 [ 3K=L [ PRINT DATA LINE(S) 3KQ= [ 3L9W #OPT Z%A=0 3LPG #SKI Z%A 3M96 #SKI 3MNQ ( 3MTY ...#UNS K%A 3N36 ...( 3N8B #FRE Z%A 3NN2 #DEF Z%A=1 3P7L #TRA K98BRADDATA 3PM= #DEF 19?+0=3? 3Q6W #ORD 3QLG #INT 3R66 XINF 12H%A 3RKQ 8H 3S5B 4HSIZE 3SK2 XLEN 8H 3T4L 12H 3TJ= 16HSCF TOTAL SIZE 3W3W XTOT 12H 3WHG 20H 3X36 28H 3XGQ XLNK +0 3Y2B XC10000 +10000 3YG2 XP1 +XLEN.1 3Y^L XP2 +XTOT.3 3^F= XC1000000 +1000000 3^YW #DEF 19?+1=19?+1]+((+L%A+3�)+127�) 42DG XRUN +19?+1] 42Y6 XNTRY STO 0 XLNK 43CQ LDN 5 L%A 43XB LDN 6 0 44C2 DVR 5 XC10000 44WL LDCT 7 #200 45B= LDN 1 4 45TW LDX 2 XP1 46*G MODE 1 46T6 XLA CBD 6 0(2) 47#Q BCHX 2 £ 47SB BCT 1 XLA 48#2 LDX 5 XRUN 48RL LDN 6 0 49?= DVR 5 XC1000000 49QW LDCT 7 #200 4==G LDN 1 6 4=Q6 LDX 2 XP2 4?9Q MODE 1 4?PB XLB CBD 6 0(2) 4#92 BCHX 2 £ 4#NL BCT 1 XLB 4*8= CALL 5 18?+2]+20] 4*MW LDX 5 18?+1]+62 4B7G LDN 4 XINF 4BM6 MOVE 4 30 4C6Q CALL 3 18?+2]+19] 4CLB LDX 0 XLNK 4D62 EXIT 0 0 4DKL #JUM XNTRY 4F5= #FRE XINF,XLEN,XTOT,XLNK,XC10000,XP1,XP2 4FJW #FRE XC1000000,XRUN,XNTRY,XLA,XLB 4G4G #DEF 3?=19?+0] 4GJ6 [ 4H3Q [ MEND BRADDATA 4HHB [ 4J32 #TRA K98BRADDATA 4JGL +K%A 4K2= #ALT K98BRADDATA=0? 4KFW #SKI (K97BRADDATA-(K98BRADDATA-1))� 4K^G ( 4LF6 ! TO MANY CALLS OF SCFCHAP LAST CHAPTER %A ! 4LYQ #EXI 4MDB ) 4MN8 ...) 4MNR ...#UNS K%A 4MPB ...#SKI 4MP^ ...( 4MQJ ...#DEF 19?+4=1? 4MR7 ...#LIS 4 4MRQ ...# **************************************** 4MS* ...# 4MSY ...# CHAPTER %A DOESN'T EXIST 4MTH ...# 4MW6 ...# **************************************** 4MWP ...#LIS 19?+4] 4MX# ...) 4MY2 ) 4NCL #STR %B 4NX= SCFCHAP %B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P 4PBW #NOR 0000 [??? SCFEND SECT FILE FGN 15 DOC 4PWG #MAC SCFEND 4QB6 [ 4QTQ [ TERMINATE SCF INFO 4R*B [ 4RT2 #TRA K98BRADDATA 4S#L +0 4SS= #END 4T?W #SKI 33?-(19?+3]) 4TRG ( 4W?6 #LIS 19?+2] 4WQQ ! ERRORS-SCF SYSTEM NOT SETUP! 4X=B #EXI 4XQ2 ) 4Y9L #SKI 33?-(19?+3]) 4YP= #SKI 4^8W ( 4^NG #MEN BRADSPLT 5286 #TRA K95BRADSPLT 52MQ NULL [SWITCH ON SCF 537B #END 53M2 #LIS 19?+2] 546L #EXI 54L= ) 555W #NOR ^^^^ ...522776610015