1 ' Window saver
2 ' David Lincoln
3 ' Amstrad Action   Feb 87
10 FOR t=&A080 TO &A080+&F9:READ a$
20 b=b+VAL("&"+a$)
30 POKE t,VAL("&"+a$):NEXT t
40 IF b=27766 THEN 60
50 PRINT"ERROR IN DATA":STOP
60 PRINT"New commands available:"
70 PRINT"—W.SAVE,<a>,<b>,<c>,<d>,<e>"
80 PRINT"—W.LOAD,<a>,<b>,<c>,<d>,<e>"
90 CALL &A080:END
100 DATA 01,66,A1,21,7B,A1,CD,D1,BC,C9
110 DATA 2E,01,26,00,22,7E,A0,C3,9A,A0
120 DATA 21,00,00,22,7E,A0,DD,6E,00,DD
130 DATA 66,01,22,78,A0,DD,7E,02,DD,46
140 DATA 04,90,3C,6F,26,00,22,7C,A0,DD
150 DATA 66,08,25,DD,6E,04,2D,CD,1A,BC
160 DATA 22,76,A0,E5,DD,66,06,25,DD,6E
170 DATA 04,2D,CD,1A,BC,50,C1,7D,91,82
180 DATA 6F,26,00,22,7A,A0,2A,7E,A0,7D
190 DATA B7,CA,24,A1,0E,08,2A,7A,A0,45
200 DATA 2A,76,A0,ED,5B,78,A0,7E,12,23
210 DATA 13,10,FA,0D,79,B7,28,13,2A,76
220 DATA A0,CD,26,BC,22,76,A0,2A,7A,A0
230 DATA 45,2A,76,A0,C3,EB,A0,2A,7C,A0
240 DATA 7D,3D,6F,22,7C,A0,B7,C8,2A,76
250 DATA A0,CD,26,BC,22,76,A0,ED,53,78
260 DATA A0,C3,DE,A0,0E,08,2A,7A,A0,45
270 DATA 2A,76,A0,ED,5B,78,A0,1A,77,23
280 DATA 13,10,FA,0D,79,B7,28,10,2A,7A
290 DATA A0,45,2A,76,A0,CD,26,BC,22,76
300 DATA A0,C3,31,A1,2A,7C,A0,2B,7D,B7
310 DATA C8,22,7C,A0,ED,53,78,A0,2A,76
320 DATA A0,CD,26,BC,22,76,A0,C3,24,A1
330 DATA 6E,A1,C3,8A,A0,C3,94,A0,57,2E
340 DATA 53,41,56,C5,57,2E,4C,4F,41,C4