10 REM Page utility
20 REM By R.A.Waddilove 30 REM(c)Computing With The Amstrad 40 REM CALL &A000 to enable 50 MEMORY &9FFF:address=&A000 60 FOR i=1 TO 44 70 sum=0:READ code$,check$ 80 FOR j=1 TO 21 STEP 2 90 byte=VAL("&"+MID$(code$,j,2)) 100 POKE address,byte 110 sum=sum+byte:address=address+1 120 NEXT 130 IF sum<>VAL("&"+check$) THEN PRINT "Error in data in line ";140+i*10 140 NEXT 150 DATA 21E7A1CB4EC0CBCE0199A1,656 160 DATA 21E3A1CDD1BCCD00B9F53A,6B4 170 DATA 02C0A728422164AE229CA0,464 180 DATA 22BAA02214A122E4A02117,431 190 DATA AE229FA022BDA0215EAE22,4DD 200 DATA 87A02166AE22C9A022F6A0,59F 210 DATA 2168AE22CCA0216AAE22CF,4EF 220 DATA A0216CAE22D2A02200A121,453 230 DATA 1DAE2267A1F1CD0CB9CD04,549 240 DATA A150616765205574696C69,445 250 DATA 7479206F6B2E070D0A00C9,2FC 260 DATA 3DC285A1CD66A1DD5E00DD,611 270 DATA 56012A7BAE25E5A7ED52DA,574 280 DATA 45A1216C01ED52EBD1D22F,570 290 DATA A12281AE2230AE7EA72014,44B 300 DATA 234E234678A7200CB12817,315 310 DATA 2B09E5A7ED52E138ED2A81,5B0 320 DATA AE2230AE36002336002336,296 330 DATA 00232283AE2285AE2287AE,422 340 DATA 2289AECD04A16F6B0D0A07,3C3 350 DATA 00C93DC285A1ED5B81AEDD,642 360 DATA 6E00DD6601732372C93DC2,482 370 DATA 85A1ED5B83AE18EC3DC285,627 380 DATA A1ED5B89AE18E2E17ECD5A,6A0 390 DATA BB23B720F8E93E26CD5ABB,5DC 400 DATA 2A81AE7CCD1BA17DF50F0F,4EE 410 DATA 0F0FCD24A1F1E60FC69027,513 420 DATA CE4027C35ABBCD04A14361,523 430 DATA 6E277420646F2074686174,3CD 440 DATA 210D0A0700C9E1CD04A14E,3A9 450 DATA 6F20726F6F6D0D0A0700C9,333 460 DATA CD04A1525358206572726F,447 470 DATA 720D0A0700C92A36AE7CB5,398 480 DATA C8E1CD04A150726F677261,586 490 DATA 6D2072756E6E696E67210D,3BC 500 DATA 0A0700C9CD04A1466F7267,3DA 510 DATA 6F742050414745210D0A07,25F 520 DATA 00C9ADA1C30EA1C3B9A0C3,668 530 DATA 79A0C3DEA0C3F0A0C3FAA0,80A 540 DATA 5052494E542E504147C54E,3A6 550 DATA 45572E50524F475241CD53,3B5 560 DATA 45542E504147C54745542E,372 570 DATA 504147C54745542E544FD0,41E 580 DATA 4745542E4C4F4D45CD0000,308 |