10 REM Help!
20 REM By R.A.Waddilove
30 REM (c)Computing with the Amstrad
40 PRINT "—ROMS for list of ROMS."
50 PRINT "—HELP,n for list of ROM commands."
60 MEMORY &9FFF
70 address=&A000
80 FOR i=1 TO 21
90 sum=0:READ code$,check$
100 FOR j=1 TO 21 STEP 2
110 byte=VAL("&"+MID$(code$,j,2))
120 POKE address,byte
130 sum=sum+byte:address=address+1
140 NEXT
150 IF sum<>VAL("&"+check$) THEN PRINT "Error in line ";170+i*10
160 NEXT
170 CALL &A000
180 DATA 3E00A7C03C3201A001CDA0,422
190 DATA 21DEA0C3D1BCE17ECD5ABB,730
200 DATA 23B720F8E90E073E3081CD,4AC
210 DATA 5ABBCD15B9A7200FCD11A0,504
220 DATA 3A466F726567726F756E64,455
230 DATA 00FE80200ACD11A03A4261,403
240 DATA 736963003D200FCD11A03A,363
250 DATA 4261636B67726F756E6400,400
260 DATA 3D200ECD11A03A45787465,3B9
270 DATA 6E73696F6E00CD11A00D0A,3BC
280 DATA 000DF21DA0C9A7C8CD11A0,572
290 DATA 4E616D653A00DD4E00CD0F,3C2
300 DATA B9C53A00C0E680280BCD11,4EF
310 DATA A042415349430018312A04,279
320 DATA C07EE67FFE20D45ABBCB7E,6F3
330 DATA 2328F37EE67FFE203E0AD4,55B
340 DATA 5ABB3E0DCD5ABBEB3E15CD,54D
350 DATA 1EBB20F9EB7EA720D73E0A,541
360 DATA CD5ABBC1C318B9D5A0C374,6E3
370 DATA A0C31BA048454CD0524F4D,4B5
380 DATA D300000000000000000000,0D3