1 :' Lean letters
2 :' by Michael Smith
3 :' Amstrad Action March 88
10 :' <<< SMALL CHARACTER SET >>>
20 :'
30 SYMBOL AFTER 215:FOR n=215 TO 250:READ a,b,c,d,e
40 SYMBOL n,0,0,0,a,b,c,d,e:NEXT n:MODE 0
50 :'
60 :' << DISPLAY CHARACTER SET >>
70 :'
80 PRINT:FOR n=215 TO 250:PRINT CHR$(n);:NEXT
90 :'
100 :' << DISPLAY NORMAL SET >>
110 :'
120 PRINT:PRINT:FOR n=48 TO 57:PRINT CHR$(n);:NEXT 
130 FOR n=65 TO 90:PRINT CHR$(n);:NEXT 
140 :' 
150 :' << EXAMPLE USE OF CHARACTERS >>
160 :' 
170 x=0:y=294:TAG:FOR t=215 TO 242:ORIGIN x,y:PRINT CHR$(t); 
180 x=x+23:NEXT:x=0:y=278:FOR t=243 TO 250:ORIGIN x,y 
190 PRINT CHR$(t);:x=x+23:NEXT:LOCATE 1,24:TAGOFF 
200 LOCATE 1,24
210 :' 
220 :' < DATA FOR CHARACTERS 1-0 > 
230 :' 
240 DATA 96,144,144,144,96,192,64,64,64,224,96,144,32,64 
250 DATA 240,224,16,224,16,224,32,96,160,240,32,240,128,224 
260 DATA 16,224,96,128,224,144,96,240,144,32,64,64,96,144 
270 DATA 96,144,96,96,144,112,16,16
280 :' 
290 :' < DATA FOR CHARACTERS A-Z >
300 :' 
310 DATA 96,144,240,144,144,224,144,224,144,224
320 DATA 112,128,128,128,112,224,144,144,144,224
330 DATA 240,128,240,128,240,240,128,240,128,128
340 DATA 240,128,176,144,240,144,144,240,144,144
350 DATA 224,64,64,64,224,248,32,32,32,224
360 DATA 144,160,192,160,144,128,128,128,128,240
370 DATA 248,168,168,168,168,136,200,168,152,136
380 DATA 96,144,144,144,96,240,144,240,128,128
390 DATA 96,144,144,96,16,240,144,240,160,144
400 DATA 240,128,240,16,240,248,32,32,32,32
410 DATA 144,144,144,144,96,136,136,80,80,32
420 DATA 168,168,168,168,80,136,80,32,80,136
430 DATA 136,136,80,32,32,240,16,32,64,240