10 'Type-Writer
20 'by Pat McDonald 30 'Amstrad Action June 1989 40 flag=0:PRINT:INPUT "Am I a 464? (y/n)";h$ 50 a=HIMEM-93:MEMORY a-1:RESTORE 200 60 FOR b=a TO a+&5D 70 READ c$:d=VAL("&"+c$) 80 POKE b,d:e=e+d 90 NEXT b 100 IF e <> 10566 THEN PRINT "Error in data. Please Check.":END 110 IF LEFT$(h$,1)="y" OR LEFT$(c$,1)="Y" THEN POKE a+8,&A4 120 z=a+34:e=0 130 f=ABS(INT(z/256)) 140 g=ABS(((z/256)-f)*256) 150 POKE a+40,g:POKE a+41,f:POKE a+45,g 160 POKE a+46,f:POKE a+57,g:POKE a+58,f 170 POKE a+65,g:POKE a+66,f:POKE a+77,g 180 POKE a+78,f:POKE a+85,g:POKE a+86,f 190 POKE a+90,g:POKE a+91,f 200 DATA e5,c5,f5,fe,0d,20,18,21 210 DATA 8a,ac,01,00,06,51,59,7e 220 DATA fe,00,28,11,47,81,10,fd 230 DATA 4f,eb,09,eb,23,18,f0,f1 240 DATA c1,e1,cf,fe,93,3e,20,cd 250 DATA 22,90,3e,7b,cd,22,90,7b 260 DATA 07,07,07,07,e6,0f,c6,41 270 DATA cd,22,90,7b,e6,0f,c6,69 280 DATA cd,22,90,7a,07,07,07,07 290 DATA e6,0f,c6,41,cd,22,90,7a 300 DATA e6,0f,c6,69,cd,22,90,3e 310 DATA 7d,cd,22,90,18,c1,4d,61 320 g=g-34 330 IF flag=0 THEN flag=1 ELSE GOTO 370 340 POKE a+35,PEEK(&BB5B):POKE a+36,PEEK(&BB5C) 350 POKE &BB5A,&C3:POKE &BB5B,g:POKE &BB5C,f 360 GOTO 50 370 POKE a+35,PEEK(&BD2C):POKE a+36,PEEK(&BD2D) 380 POKE &BB2B,&C3:POKE &BD2C,g:POKE &BD2D,f |