Commodore VIC-20 - Designing Characters

100 PIX$(0)=" ": PIX$(1 )="111 !"
110 PRINT "XHARACTER MAGNIFIER"
120 REM GET A CHARACTER
130 PRINT"SELECT A CHARACTER";
140 GET KV$: IF KV$="" THEN 140
150
GOSUB 420
160 REM IGNORE UNPRINTABLE CHARACTERS
170 IF SC=128 THEN 140
Chapter 6 Graphics 197
180 REM FIND CHARACTER'S DEFINITION IN CHARACTER MEMORY
190 CB=32768+8*SC
200 PRINT ":'l:HARACTER: ";KV$
210 PRINT "ASCII VALUE: "; ASC(KV$)
220 PR I NT "SCREEN VALUE: "; SC
230 PRINT "CHARACTER STARTS AT: ";CB
240 PRINT
250 REM PRINT MAGNIFIED VIEW
260 PRINT "11111
270 FOR I=CB TO CB+7
280 RmJ=PEEK ( I )
290 FR$=RIGHT$( (" "+STR$(ROW»" 6)
3130 OS$= "Ilal !!I"
310 REM TRANSLATE A ROW OF BITS TO A STRING
320 FOR J=7 TO 0 STEP -1
330 BIT=SGN(ROW AND 2tJ)
340 OS$=OS$+PIX$(BIT)
350 NEXT J
360 OS$"OS$+" 11111 m"
370 PRINT OS$+FR$
380 NEXT I
390 PRINT "lUll rI"
400 PRINT:PRINT:PRINT:OOTO 130
410 REM TRANSLATE KEYSTROKE TO SCREEN CODE
420 SC=ASC (, KV$ )
430 IF SC < 32 THEN SC"128: RETURN
440 IF SC < 64 THEN RETURN
450 IF SC < 96 THEN SC=SC-64: RETURN
460 IF SC ( 128 THEN SC=SC-32 : RETURN
470 IF SC < 160 THEN SC=128: ~ETURN
480 IF SC < 192 THEN SC=SC-64 : RETURN
490 IF SC ( 255 THEN SC=SC-129: RETURN
500 SC=94: RETURN
This program will also be helpful in providing practical examples for
the next section, so you should save a copy
of it.
Designing Characters
A good way to start designing characters is with a sheet of graph paper
(4 or 5 lines per inch works best). Draw a square enclosing an area with eight