1 ' Double-width characters
2 ' by Ewen Flint
3 ' Amstrad Action   March 1987
10 DATA 21,09,A0,01,0D,A0,C3,D1
20 DATA BC,00,00,00,00,11,A0,18
30 DATA 07,57,50,52,49,4E,D4,00
40 DATA FE,01,D8,28,06,DD,7E,02
50 DATA CD,B4,BB,DD,6E,00,DD,66
60 DATA 01,46,23,5E,23,56,EB,E5
70 DATA C5,CD,3A,A0,C1,E1,23,10
80 DATA F6,C9,7E,FE,20,38,39,DD
90 DATA 21,A0,AB,CD,A5,BB,E5,CD
100 DATA 06,B9,E1,06,08,C5,7E,06
110 DATA 04,07,F5,CB,12,F1,CB,12
120 DATA 10,F7,06,04,07,F5,CB,13
130 DATA F1,CB,13,10,F7,DD,72,00
140 DATA DD,73,08,DD,23,23,C1,10
150 DATA DC,3E,FE,CD,5A,BB,3E,FF
160 DATA CD,5A,BB,C9
170 MEMORY &9FFF
180 FOR a=&A000 TO &A07B:READ a$
190 POKE a,VAL("&"+a$):NEXT
200 CALL &A000:b$="WPRINT OPERATIONAL"
210 ¨WPRINT,Ób$:NEW