100 REM CHPRINT--CHARACTER SET PRINTOUT›110 TRAP 340›120 OPEN #1,4,0,"D:FONT":REM YOUR FILENAME HERE›130 OPEN #2,8,0,"P:":REM CHANGE TO "E:" FOR SCREEN›140 PRINT "± HEX OR ² DECIMAL";:INPUT TYPE›150 DIM HEX$(16),F$(3)›160 HEX$="0123456789ABCDEF"›165 LSB=-1›170 FOR I=0 TO 1023 STEP 8›180 F$=" ":C=INT(I/8)›190 IF TYPE=2 THEN F$(1,LEN(STR$(C)))=STR$(C):PRINT #2;F$;":";:GOTO 250›200 LSB=LSB+1:IF LSB=256 THEN LSB=0:MSB=MSB+1›210 PRINT #2;"$";HEX$(MSB+1,MSB+1);›230 HINYB=INT(LSB/16):LONYB=LSB-16*HINYB›240 PRINT #2;HEX$(HINYB+1,HINYB+1);HEX$(LONYB+1,LONYB+1);": ";›250 FOR J=0 TO 7›260 GET #1,A›270 F$=" ":IF TYPE=2 THEN F$(1,LEN(STR$(A)))=STR$(A):PRINT #2;" ";F$;:GOTO 310›290 HINYB=INT(A/16):LONYB=A-16*HINYB›300 PRINT #2;HEX$(HINYB+1,HINYB+1);HEX$(LONYB+1,LONYB+1);" ";›310 NEXT J›320 PRINT #2›330 NEXT I›340 CLOSE #1:CLOSE #2›