`d *** PROGRAM SAVED AS ***c`x *** CORE PROGRAM TO PLOT A BOX AND PUT WORDING INTO IT ***` *** X=DISTANCE FROM LOWER LEFT TO CENTER OF BOX (INCHES) ***` *** Y=DISTAFROM LOWER LEFT TO CENTER OF BOX (INCHES) ***a *** W=WIDTH OF BOX IN INCHES@a *** H=HEIGTH OF BOX IN INCHESa *** S1-S4=LETTER SIZE (1=.07, 2=.14, 3=.28, 4=.56, 5=1.12)a *** N=NUMBER OF LINESa *** L1$=TEXT FOR FIRST LINE, L2$ IS THE SECOND, ETC. ***b *** MAX PLOT SIZE IS 10X15 INCHES ***Lb, *** LL=LENGTH OF LINE IN INCHES ***qb@ *** LH=LETTER HEIGHT ***bT *** NL=NUMBER OF LETTERS IN THE TARGET STRING ***bh *** X1, Y1, H1, W1 ARE INTERMEDIATE VARIABLES ***$c| *** C$=CARRIAGE RETURN TO RESTART PLOT ***oc *** SWITCH OUTPUT TO THE PLOTTER AND INITIATE PLOT ROUTINE ***zc ,@c ";: I 0D 10 H O A"cXcYcHcWcNc0ZcDL1$"THIS IS A TEST"cXL2$"THIS IS THE SECOND LINE"dlL3$"AND A THIRD"dS1&dS2/dS39d Cd ,Idd ********************************************************d *** SUBROUTINE TO DRAW A BOX, AND PLACE LETTERING IT IT ***d *** INITIALIZE THE SIZE VARIABLESe S$()"S11"e S$()"S12".e4S$()"S13">eHS$()"S14"Ne\S$()"S15"`epX1(XW)reY1(YH)~eW1WeH1He *** MOVE TO LOWER LEFT CORNER AND DRAW THE BOX ***e "U ";X1,Y1 f "R D "; W1,Z; Z,H1; W1,Z; Z,H1; " U A"f $ f Xf$ *** SUBROUTINE TO PRINT THE WORDS IN THE SHAPE ***f8 *** COMPUTE THE LETTER HEIGHT, AND THE STRING LENGTH ***fL LH1(S1))\}f` NL1(L1$)ft LL1()LH1NL1f N x f NL2(L2$)g LH2(S2))\}'g LL2()LH2NL27g N x Gg NL3(L3$)^g LH3(S3))\}tg LL3()LH3NL3g( N x g< NL4(L4$)gP LH4(S4))\}gd LL4()LH4NL4 hx *** COMPUTE X AND Y OFFSET FROM CENTER OF BOX FOR LETTERING ***h X1(XLL1)6h Y1(YYTLH1)Fh N @ Zh X2(XLL2)jh N @ ~h X3(XLL3)h N @ h X4(XLL4)h, *** BEGIN PRINTING OF TEXT HERE ***h@ "U ";X1,Y1hT S$(S)hh L1$i| (_)i N 4 TO CONTINUE PLOT"j\ C$jp k *** SUBROUTING TO DRAW A PARALLELOGRAM ***/k "U ";X1,Y1lk "R D ";W1,Z; L~W1,H1; W1,Z; L~W1,H1; " U A"vk $ |k TO DRAW A PARALLELOGRAM ***/k "U ";X1,Y1lk "R D ";W1,Z; L~W1,H1; W1,Z; L~W1,H1; " U A"