Personal Computer News


Amstrad Characters Double Up

 
Published in Personal Computer News #105

Amstrad Characters Double Up

This Amstrad routine gives double height characters in any mode and is relocatable as long as line 110 is maintained. X$ should contain the string to be printed in double height and the text cursor be positioned with the LOCATE command beforehand.

 10 MEMORY HIMEM=50:AD=HIMEM+1
 20 FOR I=AD TO AD+49
 30 READ A$:POKE I,VAL("&"+A$)
 40 NEXT
 50 DATA CD,06,B9,F5,3E,00,CD,A5,BB,DD,21,32
 60 DATA 90,06,0A,7E,DD,77,00,DD,77,01,23,DD,23,DD
 70 DATA 23,10,F2,F1,CD,0C,B9,3E,FE,21,32,90,CD
 80 DATA A8,BB,3E,FF,21,3A,90,CD,A8,BB,C9
 90 X$="MESSAGE":LOCATE 7,18
100 FOR I=1 TO LEN(X$)
110 POKE AD+5,ASC(MID$(X%,I,1)):CALL AD
120 PRINT CHR$(254);CHR$(10);CHR$(8);CHR$(255);CHR$(11);CHR$(9);
130 NEXT

James Marshallsea, Oldham, Lancs.

James Marshallsea