printny="N"
? "要打印吗？Y/N"
@ row() , col() say "要打印吗？Y/N" get printny
read
if (printny="Y") .or. (printny="y")
set devi to printer
set print on

? " "
? " "
i=0
j=0
for k=1 to 240 step 1
if i=0
? " "
endif
*****
if i=10
?? " "
endif
*****
if j=6
if i=0
? " "
? " "
? " "
endif
endif

??str(bb(k),3)
i=i+1
if i=20
j=j+1
i=0
endif
endfo

?" "
?" "
?" "
for k=1 to 26 step 1
??str(k,3)
endfor
for m1=1 to 4 step 1
? " "
for n1=1 to 26 setp 1
?? str(aa(n1,m1),3)
endfor
endfor

set print off
endif

*wait("")
*@ 0,0clea scre
clea all

retu
请大家帮忙！