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 |