1  FILES CHAR
5  REM HP CONTRIBUTED LIBRARY, 2/75, USED WITH PROGRAM 'TITLE'.
6  REM CHRGEN CREATES FILE 'CHAR'.
10  GOTO TYP(0) OF 20,100,6000
20  READ A
30  PRINT #1;A
40  GOTO 10
100  READ A$
110  PRINT #1;A$
120  GOTO 10
280  DATA "1",0,40,20,60,20,0,0,0,40,0
290  DATA "2",0,60,40,60,40,30,20,30,0,0,40,0
5000  DATA " "
5010  DATA "A",0,0,20,60,40,0,30,30,10,30
5020  DATA "B",0,30,40,30,40,0,0,0,0,60,30,60,30,30
5030  DATA "C",40,0,0,0,0,60,40,60
5040  DATA "D",0,0,0,60,30,60,40,50,40,10,30,0,0,0
5050  DATA "E",40,0,0,0,0,30,20,30,0,30,0,60,40,60
5060  DATA "F",0,0,0,30,20,30,0,30,0,60,40,60
5070  DATA "G",20,30,40,30,40,0,0,0,0,60,40,60
5080  DATA "H",0,0,0,60,0,30,40,30,40,60,40,0
5090  DATA "I",10,0,30,0,20,0,20,60,10,60,30,60
5100  DATA "J",0,10,0,0,40,0,40,60
5110  DATA "K",0,0,0,60,0,20,40,60,10,30,40,0
5120  DATA "L",0,60,0,0,40,0
5130  DATA "M",0,0,0,60,20,0,40,60,40,0
5140  DATA "N",0,0,0,60,40,0,40,60
5150  DATA "O",20,40,40,60,0,60,0,0,40,0,40,60
5160  DATA "P",0,0,0,60,40,60,40,30,0,30
5170  DATA "Q",20,20,40,0,0,0,0,60,40,60,40,0
5180  DATA "R",0,0,0,60,40,60,40,30,0,30,20,30,40,0
5190  DATA "S",0,0,40,0,40,30,0,30,0,60,40,60
5200  DATA "T",20,0,20,60,0,60,40,60
5210  DATA "U",0,60,0,10,10,0,30,0,40,10,40,60
5220  DATA "V",0,60,20,0,40,60
5230  DATA "W",0,60,10,0,20,60,30,0,40,60
5240  DATA "X",0,60,40,0,-1,-1,0,0,40,60
5250  DATA "Y",0,60,20,30,20,0,20,30,40,60
5260  DATA "Z",0,60,40,60,0,0,40,0
5270  DATA "0",0,0,0,60,40,60,40,0,0,0
5280  DATA "1",0,40,20,60,20,0,0,0,40,0
5290  DATA "2",0,60,40,60,40,30,20,30,0,0,40,0
5300  DATA "3",0,60,40,60,20,30,40,30,40,0,0,0
5310  DATA "4",40,30,0,30,30,60,30,0
5320  DATA "5",40,60,0,60,0,30,20,30,40,0,0,0
5330  DATA "6",40,60,0,60,0,0,40,0,40,30,0,30
5340  DATA "7",0,60,40,60,20,20,20,0
5350  DATA "8",40,30,0,30,0,60,40,60,40,0,0,0,0,30
5360  DATA "9",0,0,40,0,40,60,0,60,0,30,40,30
5370  DATA ".",0,0,0,5,5,5,5,0,0,0
5380  DATA ",",5,0,0,0,0,5,5,5,5,0,0,-5
5390  DATA "+",5,30,35,30,-1,-1,20,10,20,50
5400  DATA "-",0,30,40,30
5410  DATA "?",0,60,40,60,40,30,10,30,10,5,5,5,5,0,15,0,15,5
5415  DATA 10,5
5420  DATA "=",0,40,40,40,-1,-1,0,20,40,20
5430  DATA "[",40,0,20,0,20,60,40,60
5440  DATA "/",0,0,40,60
5450  DATA "*",20,8,20,52,-1,-1,35,45,5,15,-1,-1,5,45,35,15
5460  DATA "$",0,0,40,0,40,30,0,30,0,60,40,60,25,60,25,0,15,0
5465  DATA 15,60
5470  DATA ">",0,0,40,30,0,60
5480  DATA "<",40,0,0,30,40,60
5490  DATA "]",0,0,20,0,20,60,0,60
5500  DATA "#",0,0,20,60,-1,-1,40,60,20,0,-1,-1,0,20,40,20,-1
5505  DATA -1,40,40,0,40
5510  DATA "(",40,0,25,30,40,60
5520  DATA ")",0,0,15,30,0,60
5530  DATA "%",14,60,14,40,0,40,0,60,14,60,-1,-1,30,60,10,0,-1
5535  DATA -1,40,0,40,20,26,20,26,0,40,0
5540  DATA "^",15,0,25,0,25,30,35,30,20,60,5,30,15,30,15,0
5550  DATA "'",20,40,20,60
5560  DATA " "
6000  END 
