100 DIM CHARSET$(152)¢110 FOR CHAR=1 TO 152:READ DAT:CHARSET$(CHAR,CHAR)=CHR$(DAT):NEXT CHAR¢120 FOR LINE=0 TO 1¢130 START=LINE*76+1:PRINT 290+10*LINE;" CHARSET$(";START;",";START+75;")=";¢140 PRINT CHR$(34);¢150 FOR CHAR=0 TO 75:PRINT CHR$(27);CHARSET$(START+CHAR,START+CHAR);:NEXT CHAR¢160 PRINT CHR$(34)¢170 NEXT LINE¢1000 DATA 0,0,0,0,0,0,0,0,0,3,5,11,11,11,5,3,0,240,232,212,244,132,232,240,4,9,11,19,19,17¢1010 DATA 16,31,16,200,200,136,200,200,8,248,1,3,7,14,28,56,60,60,128,192,192,224,96,112,60,60,7,11,23,23¢1020 DATA 23,11,7,8,224,208,168,232,8,208,224,16,9,17,17,17,16,16,31,3,208,200,200,232,232,8,248,192,3,3¢1030 DATA 15,62,120,112,56,24,192,192,192,192,192,192,240,240,7,11,23,23,23,11,7,8,224,208,168,232,8,208,224,16¢1040 DATA 9,9,17,16,16,16,31,3,200,200,232,248,120,8,248,192,3,7,7,7,15,15,15,15,224,224,192,128,128,192,192,0¢
