NEW

10 LPRINT CHR$(27)"x"CHR$(l)20LPRINT CHR$(27) ":"CHR$(0)CHR$(0)CHR$(0);30LPRINT CHR$(27)"%"CHR$(l)CHR$(0);40LPRINT CHR$(27)"&"CHR$(0)"<<";50LPRINT CHR$(0)CHR$(l2)CHR$(0);60FOR X=1 TO 3670READ C: LPRINT CHR$(C);80NEXT X90LPRINT "YOUR CHARACTER IN PICA: <<<"100LPRINT "IN EXPANDED EMPHASIZED PICA: ";110LPRINT CHR$(27)"!*<<<"120 LPRINT CHR$(27)"!" CHR$(0)130 DATA 0,1,0,0,3,128,0,3,128,7,255,0140 DATA 4,128,0,4,128,0,4,130,0,4,135,0150 DATA 4,135,0,7,253,0,0,0,0,0,0,0YOUR CHARACTER IN PICA: IN EXPANDED EMPHASIZED PICA:

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

NLQ definition program 2

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).

51