10CLEAR :CLS :DIM M$(0)*24
20INPUT "Ó¼Þ=";M$(0)
30INPUT "Àà ÊÞ²ØÂ=";A
40INPUT "Öº ÊÞ²ØÂ=";B
50CLS :PRINT M$(0)
60FOR Y=0 TO 6
70FOR X=0 TO LEN M$(0)*6
80IF POINT (X,Y) LINE (X*B,Y*A+8)-(X*B+B-1,Y*A+A+7),BF
90NEXT :NEXT :CALL 48381:CLS :GOTO 20