`d *** PROGRAM SAVED AS ***A`n *** UPDATED 9-30-83 ***`x *** CORE PROGRAM TO PLOT A BOX AND PUT WORDING INTO IT ***` *** X=DISTANCE FROM LOWER LEFT TO CENTER OF BOX (INCHES) ***a *** Y=DISTANCE FROM LOWER LEFT TO CENTER OF BOX (INCHES) ***Aa *** W=WIDTH OF BOX IN INCHESia *** 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 LINESb *** L1$=TEXT FOR FIRST LINE, L2$ IS THE SECOND, ETC. ***Eb *** MAX PLOT SIZE IS 10X15 INCHES ***ub, *** LL=LENGTH OF LINE IN INCHES ***b@ *** LH=LETTER HEIGHT ***bT *** NL=NUMBER OF LETTERS IN THE TARGET STRING ***ch *** X1, Y1, H1, W1 ARE INTERMEDIATE VARIABLES ***Mc| *** C$=CARRIAGE RETURN TO RESTART PLOT ***c *** B=1 DRAW BOX, B=0 NO BOX, B=2 AUTO BOX ***c *** SWITCH OUTPUT TO THE PLOTTER AND INITIATE PLOT ROUTINE ***c ,@c ";: I 0D 10 H O A"cZ;d *** REQUIRED INFO X, Y, H, W, N, L1$, S1, B ***jd *** DATA STATEMENTS BEGIN HERE ***d ****************************************************************d0XdDYdXHdlWdNdBdL1$"THIS IS A TEST"eL2$"THIS IS THE SECOND LINE"4eL3$"AND A THIRD"=eS1FeS2Oe S3Ye  e4 ***************************************************************eH *** DATA STATEMENTS END HEREe\ ,epf ********************************************************af *** SUBROUTINE TO DRAW A BOX, AND PLACE LETTERING IT IT ***f *** INITIALIZE THE SIZE VARIABLESf S$()"S11"f S$()"S12"f4S$()"S13"fHS$()"S14"f\S$()"S15"g8 *** SUBROUTINE TO PRINT THE WORDS IN THE SHAPE ***agL *** COMPUTE THE LETTER HEIGHT, AND THE STRING LENGTH ***}g` LH1:LH2:LH3:LH4gt LH1(S1))\}g NL1(L1$)g LL1()LH1NL1g N  g NL2(L2$)g LH2(S2))\}h LL2()LH2NL2h N  'h NL3(L3$)>h( LH3(S3))\}Th< LL3()LH3NL3dhP N  thd NL4(L4$)hx LH4(S4))\}h LL4()LH4NL4h *** COMPUTE X AND Y OFFSET FROM CENTER OF BOX FOR LETTERING ***h X1(XLL1)i YT@(LH1LH2LH3LH4)5i Y1(YYTLH1)Ei N | Yi X2(XLL2)ii N | }i, X3(XLL3)i@ N | iT X4(XLL4)ih *** BEGIN PRINTING OF TEXT HERE ***i| "U ";X1,Y1i SS1i S$(S)j L1$j (_)j N  Dj *** PRINT SECOND LINE ***aj Y1Y1(LH1LH2)mj X2,Y1vj0 SS2jD S$(S)jX L2$jl (_)j N  j *** PRINT THIRD LINE ***j Y1Y1(LH2LH3)j SS3k X3,Y1 k S$(S)k L3$#k (_)3k N  Yk4 *** PRINT FOURTH LINE ***vkH Y1Y1(LH3LH4)k\ X4,Y1kp SS4k S$(S)k L4$k (_)k *** ROUTINE TO DRAW A BOX ***k B k B t"l *** COMPUTE LONGEST LINE LENGTH,l WLL1 TO DRAW BOX."em C$m *** MOVE TO LOWER LEFT CORNER OF BOX AND DRAW ***m "U ";X1,Y1m "R D ";W1,Z; Z,H1; W1,Z; Z,H1; " U A"%n *** DUMMY STATEMENT FOR IMPROPER BOX SELECTION (B) ***Nn *** END OF PRINT ROUTINE ***rn "INPUT TO CONTINUE PLOT"{n C$nn *** SUBROUTING TO DRAW A PARALLELOGRAM ***n "U ";X1,Y1o "R D ";W1,Z; L~W1,H1; W1,Z; L~W1,H1; " U A"o, 8 o@TO DRAW A PARALLELOGRAM ***n "U ";X1,Y1o "R D ";W1,Z; L~W1,H1; W1