`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 ***Kc *** B=1 DRAW BOX, B=0 NO BOXc *** SWITCH OUTPUT TO THE PLOTTER AND INITIATE PLOT ROUTINE ***c ,@c ";: I 0D 10 H O A"cZc *** REQUIRED INFO X, Y, H, W, N, L1$, S1, B ***-d *** DATA STATEMENTS BEGIN HERE ***vd ****************************************************************~d0XdDYdXHdlWdNdBdL1$"THIS IS A TEST"dL2$"THIS IS THE SECOND LINE"dL3$"AND A THIRD"eS1 eS2e S3e  de4 ***************************************************************eH *** DATA STATEMENTS END HEREe\ ,epe ********************************************************$f *** SUBROUTINE TO DRAW A BOX, AND PLACE LETTERING IT IT ***Pf *** INITIALIZE THE SIZE VARIABLES`f S$()"S11"pf S$()"S12"f4S$()"S13"fHS$()"S14"f\S$()"S15"fpX1(XW)fY1(YH)fW1Wf B  fH1H+g *** MOVE TO LOWER LEFT CORNER AND DRAW THE BOX *** TO CONTINUE PLOT"l C$l l *** SUBROUTING TO DRAW A PARALLELOGRAM ***l$ "U ";X1,Y1-m8 "R D ";W1,Z; L~W1,H1; W1,Z; L~W1,H1; " U A"7mL 8 =m`TO DRAW A PARALLELOGRAM ***l$ "U ";X1