PROC WG(CHAR ARRAY TX CARD G,I BYTE A,B)›CLOSE(2)OPEN(2,TX,A,B)›IF A=4 THEN POKE($362,7) ELSE POKE($362,11) FI›POKEC($364,G)POKEC($368,I)›[162 32 32 $56 $E4 133 $A3]›CLOSE(2)›RETURN››;WG("D2:WORK.FNT",$9000,$1000,4,128)›››