{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: GERTABINIT)}}
====== GERTABINIT ======
(GIN Macro)
**Defined in:** [[george:source:MACSGERONIMO|MACSGERONIMO]]
**Used in:**
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
4F5= GERLABEL QZOLCP
4FJW 8HOL *CP,
4G4G GERLABEL QZOLCPNM
4GJ6 #STR %A
4H3Q #STR
4HHB 24HVIDEOPARAM
4J32 #STR %A
4JGL 24H%A
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?#= ... 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