1 ' Double-column print 2 ' by Helen Packer 3 ' Amstrad Action March 88 10 MEMORY &7FFF:WIDTH 63 20 FOR t=&8000 TO &813F:READ a$:v=VAL("&"+a$) 30 POKE t,v:chk=chk+v:NEXT t 40 IF chk<>29280 THEN PRINT"DATA error":END 50 CALL &811E 60 DATA C5,D5,E5,CD,0B,80,37,E1,D1,C1,C9,FE,20,30,27,FE 70 DATA 0A,C8,FE,0D,28,05,FE,0C,28,0D,C9,3A,42,81,FE,01 80 DATA 20,2C,2A,40,81,18,47,3A,42,81,FE,02,28,7C,3E,45 90 DATA 2A,40,81,77,18,55,2A,3E,81,77,23,22,3E,81,2A,40 100 DATA 81,7E,3C,FE,41,28,27,FE,85,28,02,77,C9,77,2A,40 110 DATA 81,11,85,00,19,22,40,81,3E,45,77,5F,16,00,19,22 120 DATA 3E,81,3A,43,81,FE,3E,28,41,3C,32,43,81,C9,3E,45 130 DATA 77,3A,43,81,FE,3E,28,13,3C,32,43,81,2A,40,81,11 140 DATA 85,00,19,22,40,81,23,22,3E,81,C9,3E,01,32,43,81 150 DATA 21,44,81,22,40,81,7E,FE,01,20,03,3E,45,77,21,89 160 DATA 81,22,3E,81,3E,02,32,42,81,C9,21,44,81,06,3E,C5 170 DATA CD,F0,80,C1,30,0A,10,F7,3E,0C,CD,15,81,C3,C8,80 180 DATA 3E,0C,CD,15,81,C3,C8,80,06,3E,21,44,81,3E,01,77 190 DATA 48,06,84,3E,20,23,77,10,FC,41,23,10,F0,21,44,81 200 DATA 22,40,81,23,22,3E,81,3E,01,32,42,81,32,43,81,C9 210 DATA E5,7E,B7,28,19,23,47,7E,CD,15,81,23,10,F9,E1,11 220 DATA 85,00,19,3E,0D,CD,15,81,3E,0A,CD,15,81,C9,E1,11 230 DATA 85,00,19,B7,C9,CD,1B,81,D8,18,FA,00,00,00,3E,0F 240 DATA CD,2B,BD,21,2B,BD,11,1B,81,01,03,00,ED,B0,21,2B 250 DATA BD,3E,C3,77,23,11,00,80,73,23,72,C3,C8,80,00,00