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 |