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,EC,A6,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 |