1  REM ***  HP BASIC PROGRAM LIBRARY ******************************
2  REM
3  REM      PLOTWD:  WORD PLOTTER
4  REM
5  REM      36228  REV A
6  REM
7  REM ***  CONTRIBUTED PROGRAM ***********************************
8  REM
9  REM
10  DIM A$[72],B$[72],C$[72]
20  C$="ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890.-+*/:;,"'92"^!#$%()[]=<>?' &@"
30  PRINT '10'10'10'10'10'10'10'10'10'10"PRINTABLE CHARACTERS ARE:"'13'10'10;C$
40  PRINT "INPUT WORD";
50  INPUT A$
60  PRINT '10'10'10
70  IF A$#'26 THEN 90
80  A$=C$
90  FOR D=1 TO 5
100  IF LEN(A$)<1 THEN 400
110  B$="                                                                      "
120  X=1
130  FOR A=1 TO LEN(A$) MIN 10
140  FOR B=1 TO LEN(C$)
150  IF A$[A,A]=C$[B,B] THEN 180
160  NEXT B
170  STOP 
180  RESTORE 
190  FOR C=1 TO (B-1)*5+D
200  READ M
210  NEXT C
220  MAT X=ZER[5]
230  FOR C=5 TO 1 STEP -1
240  X[C]=M/2-INT(M/2)
250  M=INT(M/2)
260  NEXT C
270  FOR C=1 TO 5
280  IF X[C]=0 THEN 300
290  B$[X,X]=A$[A,A]
300  X=X+1
310  NEXT C
320  X=X+2
330  NEXT A
340  PRINT B$[1,X]
350  NEXT D
360  IF LEN(A$)<11 THEN 400
370  A$=A$[11]
380  PRINT '10'10
390  GOTO 90
400  PRINT '10'10'10'10'10'10'10'10'10'10'10'10"GO AGAIN";
410  INPUT B$
420  IF B$="YES" THEN 40
430  DATA 14,17,31,17,17,30,17,30,17,30
440  DATA 15,16,16,16,15,30,17,17,17,30,31,16
450  DATA 28,16,31,31,16,28,16,16,14,16,23,17,14,17,17,31,17,17,31,4,4,4
460  DATA 31,31,4,4,20,28,17,18,28,18,17,16,16,16,16,31
470  DATA 17,27,21,17,17,17,25,21,19,17,14,17,17,17,14,30,17,30,16,16,14
480  DATA 17,17,19,15,30,17,30,18,17,15,16,14,1,30,31,4,4,4,4,17,17,17,17
490  DATA 14,17,17,17,10,4,17,17,21,27,17,17,10,4,10,17
500  DATA 17,10,4,4,4,31,2,4,8,31,4,12,4,4,31,14,17,2,4,31,31,2,6,1,30
510  DATA 18,18,31,2,2,31,16,30,1,30,4,8,22,25,14,31,1,2,2,2,14,17,14
520  DATA 17,14,14,19,13,2,4,15,19,21,25,30
530  DATA 0,0,0,6,6,0,0,31,0,0,4,4,31,4,4,21,14,31,14,21,1,2,4,8,16,0,12,0
540  DATA 12,0,0,12,0,4,12,0,0,0,4,12,16,8,4,2,1,4,14,21,4,4,14,14,4,0,4,5,31
550  DATA 10,31,20,15,20,14,5,30,25,26,4,11,19,4,8,8,8,4,4,2,2,2,4,12,8,8
560  DATA 8,12,6,2,2,2,6,0,14,0,14,0,2,4,8,4,2,8,4,2,4,8,14,17,6,0,4
570  DATA 14,14,4,0,0,0,0,0,0,0,0,0,0,0,31,14,21,27,22,15
580  END 
