{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MACSGERONIMO)}} ====== MACSGERONIMO ====== (George Source) 22FL [ 22^= [ 23DW [ RETURN TO KEITH H MARTIN 8OPAW 23YG [ 24D6 [ 24XQ [ 25CB [CONTENTS LIST:- 25X2 [ 26BL [ GERLABEL 26W= [ GERTABEND 27*W [ GERTABEXTRA 27TG [ GERTABFILL 28*6 [ GERTABINIT 28SQ [ GERTABLE 29#B [ 29S2 [END OF LIST. 2=?L [ 2=HD ...[??? GERLABEL SECT COMM FGN 7 DOC 2=R= #MAC GERLABEL 2?=W #DEF %A=37?+0? 2?QG #NOR 2#2# ...[??? GERTABEN SECT COMM FGN 7 DOC 2#=6 [ 2#PQ [ 2*9B [ 2*P2 [ 2B8L #MAC GERTABEND 2BN= #DEF 20?=20?+1 2C7W GERLABEL QZSTARS 2CMG 16H**** 2D76 GERLABEL QZBUFF 2DLQ #REP 20 2F6B 4H 2FL2 ...[ 2G5L ...[ 2GK= ...[ 2H4W GERLABEL QZCPTPER 2HJG DISTY QZAB 2J46 BRN QZENDERR 2JHQ ...[ 2K3B ...[ 2KH2 ...[ 2L2L GERLABEL QZNEWL 2LG= PERI 0 QZNEWLINE 2L^W SUSBY 0 1 2MFG LDCT 0 #77 2M^6 ANDN 0 QZNEWLINE+1 2NDQ BNZ 0 QZCPTPER 2NYB EXIT 6 0 2PD2 ...[ 2PXL ...[ 2QC= ...[ 2QWW GERLABEL QZRUNO 2RBG PERI 0 QZBLANKS 2RW6 SUSBY 0 1 2S*Q LDCT 0 #77 2STB ANDN 0 QZBLANKS+1 2T*2 BNZ 0 QZCPTPER 2TSL EXIT 6 0 2W#= ...[ 2WRW ...[ 2X?G ...[ 2XR6 GERLABEL QZEND 2Y=Q BZE 3 QZTP [J IF TP 2YQB LDX 4 QZNULL 2^=2 STO 4 QZ1 2^PL STO 4 QZ2 329= STO 4 QZ3 32NW STO 4 QZ4 338G BNZ 3 QZCP [J IF CP 33N6 GERLABEL QZTP 347Q LDN 4 #10 34MB STO 4 QZCPTPCA [SET GRAPHIC 3572 GERLABEL QZCP 35LL LDCT 2 1(3) [1 FOR TP 4 FOR CP 366= ADS 2 QZCPTPCA 36KW GERLABEL QZ1 36PR ...#STR %A 36TN ...#STR 36^K ...( 375G CALL 6 QZRUNO [ NULL IF CP 37K6 LDN 4 QZNAME 384Q LDN 5 QZBUFF 38JB MOVE 4 11 3942 PERI 0 QZCPTPCA 39HL SUSBY 0 1(3) 3=3= LDCT 0 #77 3=GW ANDN 0 QZCPTPCA+1 3?2G BNZ 0 QZCPTPER 3?G6 LDN 4 QZBUFF+12 3?^Q LDN 5 QZBUFF+4 3#FB MOVE 4 7 3#P8 ...) 3#^2 GERLABEL QZ2 3*DL CALL 6 QZNEWL [ NULL IF CP 3*Y= GERLABEL QZ3 3BCW CALL 6 QZRUNO [ NULL IF CP 3BXG LDN 2 20? [LINE COUNT 3CC6 LDN 5 QZBUFF [WRITE FROM HERE 3CWQ LDN 4 QZLINE1 3DBB BNZ 3 QZLOOP [J IF CP 3DW2 LDN 7 16 3F*L STO 7 QZCPTPCA+2 [ONLY PUNCH 16 CHS IF TP 3FT= GERLABEL QZLOOP 3G#W MOVE 4 4 [NEQZT STANDARD LINE 3GSG PERI 0 QZCPTPCA 3H#6 SUSBY 0 1(3) 3HRQ LDCT 0 #77 3J?B ANDN 0 QZCPTPCA+1 3JR2 BNZ 0 QZCPTPER 3K=L GERLABEL QZ4 3KQ= CALL 6 QZNEWL [ NULL IF CP 3L9W ADN 4 4 [LINE LENGTH 3LPG BCT 2 QZLOOP [PUNCH EBERY LINE 3M96 GERLABEL QZCPTPEND 3MNQ DISTY QZCOMP [DONE 3N8B GERLABEL QZENDERR 3NN2 REL 0 1(3) 3P7L LDX 0 QZLINK 3PM= EXIT 0 0 3Q6W #JUM QZENTRY 3QBN ...#EXT 3QLG #NOR 3QW# ...[??? GERTABEX SECT COMM FGN 7 DOC 3R66 [ 3RKQ [ 3S5B [ 3SK2 [ 3T4L #MAC GERTABEXTRA 3TJ= #STR %A 3W3W ( 3WHG GERTABFILL %A 3X36 GERTABEXTRA %B,%C,%D,%E,%F,%G,%H,%I,%J 3XGQ ) 3Y2B #NOR 3Y=8 ...[??? GERTABFI SECT COMM FGN 7 DOC 3YG2 [ 3Y^L [ 3^F= [ 3^YW [ 42DG #MAC GERTABFILL 42Y6 #DEF 20?=20?+1 43CQ 12H%A 43JY ...#UNSET %A 43Q6 ...( 43XB +%A 4478 ...) 448F ...#UNSET %A 449Q ...#STR 44?3 ...( 44## ... +0 44*K ...) 44C2 #NOR 44LS ...[??? GERTABIN SECT COMM FGN 7 DOC 44WL [ 45B= [ 45TW [ 46*G [ 46T6 #MAC GERTABINIT 47#Q #FRL 47SB #ORD 48#2 #INT 48RL GERLABEL QZLINK 49?= 0 49QW GERLABEL QZNULL 4==G NULL 4=Q6 GERLABEL QZCPTPCA 4?9Q 0,0,80,+QZBUFF 4?PB GERLABEL QZONLINE 4#92 60:1,0,32,0 4##X ...#STR %B 4#DS ...#STR 4#JP ...( 4#NL GERLABEL QZOLTP 4*8= 8HOL *TP, 4*MW GERLABEL QZOLTPNM 4B7G #STR %A 4BM6 #STR 4C6Q 24HVIDEOPARAM 4CLB #STR %A 4D62 24H%A 4DKL 4F5= GERLABEL QZOLCP 4FJW 8HOL *CP, 4G4G GERLABEL QZOLCPNM 4GJ6 #STR %A 4H3Q #STR 4HHB 24HVIDEOPARAM 4J32 #STR %A 4JGL 24H%A 4K2= 4K=4 ...) 4KFW GERLABEL QZBLANKS 4K^G 1:20,0,60,0 4LF6 GERLABEL QZNEWLINE 4LYQ 1:0,0,2,+QZNEWLINE+4,4H^* 4MDB GERLABEL QZNOSP 4MY2 40:QZNOSP+1 4NCL #STR %A 4NX= #STR 4PBW ... 40HUNABLE TO OUTPUT 'VIDEOPARAM' 4PWG #STR %A 4QB6 ... 40HUNABLE TO OUTPUT '%A' 4QTQ GERLABEL QZAB 4R*B 40:QZAB+1 4RT2 #STR %A 4S#L #STR 4SS= 40HOUTPUT OF 'VIDEOPARAM' ABANDONED 4T?W #STR %A 4TRG 40HOUTPUT OF '%A' ABANDONED 4W?6 GERLABEL QZCOMP 4WQQ 40:QZCOMP+1 4X=B #STR %A 4XQ2 #STR 4Y9L 40HOUTPUT OF 'VIDEOPARAM' COMPLETED 4YP= #STR %A 4^8W 40HOUTPUT OF '%A' COMPLETED 4^NG GERLABEL QZTEN 5286 10 52MQ ...[ 537B ...[ 53M2 ...[ 546L GERLABEL QZENTRY 54L= STO 0 QZLINK 555W LDN 7 G3ISSUE 55KG DVS 6 QZTEN [X7=1 FOR 10,1 FOR 15,2 FOR 20,ETC 5656 LDN 4 G3MARK 56JQ SLL 4 6 574B ADX 4 7 57J2 STO 4 QZLINE1+3 583L LDN 3 27? 58H= STO 3 QZLINE1+2 592W #STR %A 59GG #STR 5=26 ( 5=FQ LDN 2 QZNAME+6 5=^B DCH 3 0(2) 5?F2 BCHX 2 £ 5?YL LDN 4 G3MARK 5#D= DCH 4 0(2) 5#XW BCHX 2 £ 5*CG DCH 7 0(2) 5*X6 BCHX 2 £ 5BBQ LDN 3 #31 [A ) 5BWB DCH 3 0(2) 5CB2 ) 5CTL GIVE 4 5 [GEORGE OR OPS 5D*= ANDN 4 #7 [3 OR 4 FOR GEORGE 5DSW BZE 4 QZOPSEXEC [J IF OPS 5F#G ...[ 5FS6 ...[ 5G?Q ...[ 5GRB GERLABEL QZGEORGE 5GTK ...#STR %B 5GXS ...( 5H23 ... LDN 4 QZNAME 5H4= ... LDN 3 3 [SET CP 5H6F ... BRN QZCPONLY 5H8N ...) 5H?2 LDN 3 0 [O FOR TP 5HQL GERLABEL QZNOWTRY 5J== LDN 4 QZOLTP 5JPW GERLABEL QZCPONLY 5K9G STO 4 QZONLINE+3 5KP6 PERI 0 QZONLINE 5L8Q LDX 4 QZONLINE+1 [REPLY 5LNB SLC 4 4 5M82 BPZ 4 QZEND [J IF OK 5MML BZE 3 QZTRYCPNEXT [J IF NOT TRIED CP 5N7= DISTY QZNOSP 5NLW LDX 0 QZLINK 5P6G EXIT 0 0 5PL6 GERLABEL QZTRYCPNEXT 5Q5Q LDN 3 3 [TRY CP NEQZT 5QKB LDN 4 QZOLCP 5R52 BRN QZCPONLY [J I TO DO OL 5RJL # 5S4= # 5SHW # 5T3G GERLABEL QZOPSEXEC 5TH6 LDN 3 0 [0 FOR TP 5W2Q GERLABEL QZALLOTS 5WGB ALLOT 0 1(3) [TRY CP-TP 5X22 LDX 4 9 5XFL BPZ 4 QZEND 5X^= BZE 3 QZNOTGOTTP [J IF NOT TRIED CP 5YDW DISTY QZNOSP 5YYG LDX 0 QZLINK 5^D6 EXIT 0 0 5^XQ GERLABEL QZNOTGOTTP 62CB LDN 3 3 [3 FPR CP 62X2 BRN QZALLOTS 63BL ...[ 63W= ...[ 64*W ...[ 64TG GERLABEL QZNAME 652N ...#STR %B 657W ...#STR 65*6 12HIN :MANAGER, 65G# ...#STR %B 65MG ... 12HAS *CP, 65SQ GERLABEL QZFILENAME 66#B #STR %A 66S2 #STR 67?L 24HVIDEOPARAM( 67R= #STR %A 68=W 24H%A 68QG ... 8H 69=6 GERLABEL QZLINE1 69PQ 16HGEORGE 6=9B GERLABEL QZLINE2 6=P2 12HOPINF+SYREQ 6?8L CATMASK OPINF,SYSREQ 6?=D ... 6?#= ... 12HSYSREQ 6?B4 ... CATMASK SYSREQ 6?CW ... 12HARVSET 6?FN ... +0 6?HG ...#FID BIFDTO% BIFDTO% 1 6?K# ... 12HARVCLEAR 6?M6 ... +0 6?NY ...#FID BIFDTOW% BIFDTOW% 1 6?QQ ...#FID BIFDTUW% BIFDTUW% 1 6?SJ ...#FID BIFDTJL% BIFDTJL% 1 6?WB ...#FID BIFDTCL% BIFDTCL% 1 6?Y8 ... 12HARVWPR 6#22 ... +0 6#3S ...#FID BIFDTNW% BIFDTNW% 1 6#5L ...#DEF 20?=6 6#7W #NOR 6#CN ...[??? GERTABLE SECT COMM FGN 7 DOC 6#MG [ 6*76 [ 6*LQ [ 6B6B [ 6BL2 #MAC GERTABLE 6C5L ... GERTABINIT %B,%A 6CK= GERTABFILL BJOBQ 6D4W GERTABFILL JOBNUM 6DJG GERTABFILL AJBRING+BPTR 6F46 GERTABFILL JOBRING 6F?Y ... GERTABFILL JSOURCE1 6FHQ GERTABFILL JSOURCE2 6G3B GERTABFILL JOBNO 6GH2 GERTABFILL JOBQE 6H2L GERTABFILL CPAT 6HG= GERTABFILL ACC6 6H^W GERTABFILL ATYPE 6JFG GERTABFILL FLOWQ 6J^6 GERTABFILL CHAINADD 6KDQ GERTABFILL BACKCHAN 6KYB GERTABFILL BACT 6LD2 GERTABFILL GMON+AOUT 6LXL GERTABFILL A1+1 6MC= GERTABFILL COREUSE 6MWW GERTABFILL AFREE 6NBG GERTABFILL COBJUSE 6NW6 GERTABFILL ACHAP 6P*Q GERTABFILL CFREE 6PTB GERTABFILL CWAIT 6Q*2 GERTABFILL ACTPROGS 6QSL GERTABFILL JOBCOUNT 6R#= GERTABFILL HLSCOUNT 6RRW GERTABFILL GEOTIME 6S?G GERTABFILL GPROGTIME 6SR6 GERTABFILL CHCHCOUNT 6T=Q GERTABFILL APROGAREA 6TQB GERTABFILL BSFSR 6W=2 GERTABFILL BSFSW 6WPL GERTABFILL BSONLY 6X9= GERTABFILL BSAPS 6XNW GERTABFILL BSCHCH 6XQS ... 6XSQ ... GERTABFILL FILE+FDT 6XWN ... GERTABFILL FDTLEN 6XYL ... GERTABFILL FDSN 6Y2J ... GERTABFILL FDST 6Y4G ... GERTABFILL A1 6Y6D ... GERTABFILL BOLC 6Y8G ... GERTABEXTRA %C,%D,%E,%F,%G,%H,%I,%J,%K,%L 6YN6 ... GERTABEND %A 6^7Q #NOR ^^^^ ...670321710008