1  REM  ****  HP BASIC PROGRAM LIBRARY **********************************
2  REM
3  REM        PLOTWD:  WORD PLOTTER
4  REM
5  REM        36288 REV B -- 10/73
6  REM
7  REM  ****  CONTRIBUTED PROGRAM  *******************************
10  O7=7
20  O1=O7/O7
30  O2=O1+O1
40  DIM A$[72],B$[72],C$[72],D$[72]
50  A$=" !#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ["'92"]^"
60  D$='10'10'10'10'10'10'10'10'10'10'13
70  PRINT "INPUT WORD";
80  INPUT B$
90  PRINT D$
100  IF B$#'26 THEN 120
110  B$=A$
120  FOR X=O1 TO O7-O2
130  X9=10 MIN LEN(B$)
140  FOR Y=O1 TO X9
150  RESTORE 
160  IF TYP(O1-O1)#O2 THEN 210
170  READ C$
180  IF B$[Y,Y]=C$[O1,O1] THEN 220
190  C$=C$[O7]
200  GOTO O1+ NOT LEN(C$) OF 180,160
210  C$="      "
220  FOR A=31 TO 62
230  IF C$[X+O1,X+O1]=A$[A,A] THEN 250
240  NEXT A
250  A=A-31
260  C$[O2]=" "
270  FOR B=O2+O2 TO O1-O1 STEP -O1
280  M=A >= O2^B
290  PRINT TAB(O7*Y-O7);C$[O2-M,O2-M];D$[12-O2*(Y=X9 AND  NOT B)];
300  A=A-O2^B*M
310  NEXT B
320  NEXT Y
330  NEXT X
340  B$=B$[X9+O1]
350  PRINT D$[O7+O1-O7* NOT LEN(B$)]
360  IF LEN(B$) THEN 120
370  DATA " ?????!MMC?C#D^I^S$NSMD]%XYCJR&GSHUH'MMC??(GOOOG)A@@@A*TM^MT+CC^CC"
380  DATA ",???GW-??^??.???WW/@ACGO0NRTX]1CKCCM2MPAC^3MPEPM4QQ^AA5^O]@]6CGUXM"
390  DATA "7^@AAA8MPMPM9MRLAC:WW?WW;WW?GW<ACGCA=?M?M?>GCACG?MPE?C@MT^UNAMP^PP"
400  DATA "B]P]P]CMPOPMD]PPP]E^O[O^F^O[OOGMOVPMHPP^PPIMCCCMJ@@@PMKPQ[QPLOOOO^"
410  DATA "MPZTPPNPXTRPOMPPPMP]P]OOQMPPRNR]P]QPSMOM@MT^CCCCUPPPPMVPPPICWPPTZP"
420  DATA "XPICIPYPICCCZ^ACG^[WOOOW"'92"OGCA@]B@@@B^CMTCC"
430  END 
