これでどうだ、うりゃーーー

100 CLS
110 MA=10:MB=15:SC=3:US$=STRING$(SC,"#")
120 '
130 LOCATE 0,1:PRINT "A"
140 FOR A=1 TO MA:PRINT MID$(STR$(A),2):NEXT A
150 LOCATE 3,0:PRINT "B";
160 FOR B=1 TO MB:PRINT RIGHT$(SPACE$(SC)+STR$(B),SC);:NEXT B
170 '
180 FOR A=1 TO MA:FOR B=1 TO MB
190 LOCATE SC*(B-1)+4,A+1:PRINT USING US$;(A+B)
200 NEXT B:NEXT A
210 '
220 END