GERTABEND
(GIN Macro)
Defined in: MACSGERONIMO
Used in:
- GERTABEND.mac.txt
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