打印任意一个图形的小程序

张强
1993-05-21

        本程序采用了三个控制变量，“A＄”变量控制打印所组成图形形状的字符，“N”变量控制着图形打印每行第一个字符A＄变量起点位置，“D”变量控制A＄变量在每一行打印的个数。三个变量中，“A＄”变量只需在每次打印时一次性输入，用来确定本次打印图形采用什么字符组成，“N”和“D”变量是通过程序中的READ语句读DATA语句中的数据得到。
        DATA语句中的数据输入，是由所要组成图形决定的，每两个数据为一组，两两一对，前一个数值决定打印位置，第二个数值决定连续打印字符的个数，在打印中用(0，0)控制打印机换行，最后用(-1，-1)结束全部程序的打印。
        打印米老鼠图形的DATA数据程序较长，在此略。(需要该数据程序者与作者联系)(辽宁朝阳电业局计划科张强)
        1  WIDTH＂LPT1：＂，132
        5  CLS：INPUT＂请输入一个字符！＂，A＄
        10  READN，D
        20  IF  N=-1  THEN  GOTO  90
        30  IF  N=0  THEN  LPRINT
        40  LPRINT  TAB(N)；
        50  FOR  J=1  TO  D
        60  LPRIN  TA＄；
        70  NEXT  J
        80  GOTO  10
        90  END
        100  DATA……
 
 