la LPRINT CHR$(27) "x"CHR$(l)

20 LPRINT CHR$(27)":"CHR$(I)CHR$(O)CHR$(0); 30 LPRINT CHR$(27)"%"CHR$(l)CHR$(O);

40 LPRINT CHR$(27)"&"CHR$(O)"<(";50 LPRINT CHR$(O)CHR$(lZ)CHR$(0);60 FOR X=1 TO 3670 READ C: LPRINT CHR$(C);80 NEXT X90 LPRINT "YOUR CHARACTER IN PICA: < < <"100 LrjRINT "IN EXPANDED EMPHASIZED PICA: ";110 LPRINT CHR$(27)"!*< < <"120 LPRINT CHR$(27)"!"CHR$(0)130 DATA 4,0,0,8,0,0,16,0,0,32,0,0140 DATA 64,0,0,255,255,192,64,0,0,32,0,0150 DATA 16,0,0,8,0,0,4,0,0,0,0,0

When you run this program for your own character, you find out whether or not it looks right to you. If it doesn’t, move the dots as needed, recalculate and change the data numbers, and run the program again.

Second NLQ definition program

When you are satisfied with the character you have created, enter and run the next program. Use your data numbers instead of the ones in lines 130-150. If you want to define more than one character, change line 10 so that J equals the total number of characters you are defining (the maximum is six) and enter the extra data numbers (36 for each character).

10 J=l: IF J>3 THEN A=58 ELSE A=6020 LPRINT CHR$(27)"x"CHR$(l)30 FOR X=58 TO 63: LPRINT CHR$(X)" ";: NEXT X 40 LPRINT

50 LPRINT CHR$(27)":"CHR$(I)CHR$(O)CHR$(0); 60 LPRINT CHR$(27)"%"CHR$(l)CHR$(0);

70 LPRINT CHR$(27)"&"CHR$(O)CHR$(A)CHR$(A-l+J); 80 FOR Y=l TO J

90 LPRINT CHR$(O)CHR$(12)CHR$(0);100 FOR X=1 TO 36110 READ C: LPRINT CHR$(C);120 NEXT X: NEXT Y130FOR X=58 TO 63: LPRINT CHR$(X)" ";: NEXT X140DATA 4,0,0,8,0,0,16,0,0,32,0,0150DATA 64,0,0,255,255,192,64,0,0,32,0,0160DATA 16,0,0,8,0,0,4,0,0,0,0,0

71