1  REM ****  HP BASIC PROGRAM LIBRARY  ******************************
2  REM
3  REM       GTAPID: PAPER TAPE TITLER
4  REM
5  REM       36548 REV A
6  REM
7  REM ****  CONTRIBUTED PROGRAM  ***********************************
40  DIM X$[2]
41  LET X$="@@"
50  DIM A$[72],B$[72],C$[72],D$[20],Z$[5]
80  REM -- CHARACTER REPRESENTATIONS
81  DIM C[39,9]
90  REM -- STRING OF CHARACTERS
91  LET A$="                                                   "
95  REM -- BINARY REPRESENTATIONS
96  LET C$='1'2"@"'4'5'6'7'8'9'10'11'12"@@@"'16'17'18"@"'20'21'22'23'24'25'26"@"'28'29'30'31"@!@#$%&'()*+,"'92"./@123456789:;<=>?@"
97  LET C$[45,45]="-"
100  REM -- LOAD CHARACTER REPRESENTATIONS
101  I=0
105  I=I+1
106  READ Z$
107  IF Z$="END" THEN 150
109  A$[I,I]=Z$[1,1]
110  J=1
112  READ C[I,J]
114  IF C[I,J]=0 THEN 105
116  J=J+1
118  GOTO 112
150  REM Z- CHARACTERS ALL READ IN
200  REM -- GET TEXT
210  PRINT "TITLE -- ";
220  INPUT B$
300  REM -- PRINT HEADER
310  LET D$="@@@@@@@@@@"
320  PRINT  USING "#,10A";D$
400  REM -- PRINT TEXT
405  N=10
410  FOR I=1 TO LEN(B$)
420  FOR J=1 TO LEN(A$)
425  IF B$[I,I]=A$[J,J] THEN 440
430  NEXT J
435  GOTO 495
440  REM -- J'TH CHARACTER FOUND
445  K=1
450  IF C[J,K]=0 THEN 480
455  PRINT  USING "#,1A";C$[C[J,K],C[J,K]]
457  K=K+1
459  GOTO 450
480  REM -- CHARACTER PRINTED
485  PRINT  USING "#,2A";X$
495  NEXT I
500  REM -- PRINT TRAILER
510  PRINT  USING "#,10A";D$
900  DATA "A",56,6,5,6,56,0
901  DATA "B",63,45,45,18,0
902  DATA "C",30,33,33,33,0
903  DATA "D",63,33,33,18,12,0
904  DATA "E",63,45,45,45,0
905  DATA "F",63,5,5,5,0
906  DATA "G",30,33,41,57,0
907  DATA "H",63,12,12,63,0
908  DATA "I",33,33,63,33,33,0
909  DATA "J",49,33,63,1,1,0
910  DATA "K",63,12,18,33,0
911  DATA "L",63,56,56,56,56,0
912  DATA "M",63,6,8,6,63,0
913  DATA "N",63,6,24,63,0
914  DATA "O",30,33,33,30,0
915  DATA "P",63,5,5,2,0
916  DATA "Q",30,33,49,49,62,0
917  DATA "R",63,5,5,58,0
918  DATA "S",38,37,41,25,0
919  DATA "T",1,1,63,1,1,0
920  DATA "U",31,56,56,31,0
921  DATA "V",7,28,56,28,7,0
922  DATA "W",7,28,56,28,28,56,28,7,0
923  DATA "X",33,18,12,18,33,0
924  DATA "Y",1,6,60,6,1,0
925  DATA "Z",33,49,45,35,33,0
926  DATA "2",50,49,41,38,0
927  DATA "3",18,33,45,45,18,0
928  DATA "4",7,4,4,63,0
929  DATA "5",39,37,37,25,0
930  DATA "6",30,41,40,16,0
931  DATA "7",33,17,9,7,0
932  DATA "8",26,37,37,26,0
933  DATA "9",2,5,5,63,0
934  DATA "-",12,12,12,12,0
936  DATA " ",64,64,64,64,0
937  DATA "1",64,64,63,64,64,0
938  DATA "0",30,33,33,33,30,0
939  DATA "END"
999  END 
