10 REM Program Status
20 REM By R.A.Waddilove 30 REM (c)Computing with the Amstrad 40 REM CALL &A000 50 MEMORY &9FFF 60 address=&A000 70 FOR i=1 TO 27 80 sum=0:READ code$,check$ 90 FOR j=1 TO 21 STEP 2 100 byte=VAL("&"+MID$(code$,j,2)) 110 POKE address,byte 120 sum=sum+byte:address=address+1 130 NEXT 140 IF sum<>VAL("&"+check$) THEN PRINT "Error in line ";150+i*10:END 150 NEXT 160 DATA CDD6A00D0A2A2A2A205354,39F 170 DATA 41545553202A2A2A0D0A48,23A 180 DATA 494D454D3D26002A7BAEE5,3C3 190 DATA CDE0A0CDD6A00D0A4C4F4D,58F 200 DATA 454D3D26002A89AEE5CDE0,4E8 210 DATA A0CDD6A00D0A544F503D26,450 220 DATA 002A85AEE5CDE0A0CDD6A0,6D2 230 DATA 0D0A504147453D26002A81,242 240 DATA AEE5CDE0A0CDD6A00D0A50,68A 250 DATA 726F6772616D3D00D1E1E5,55C 260 DATA ED52CDF9A0CDD6A0206279,6E3 270 DATA 7465730D0A566172696162,3B8 280 DATA 6C65733D00D1E1ED52CDF9,638 290 DATA A0CDD6A02062797465730D,537 300 DATA 0A537472696E67733D00E1,412 310 DATA ED5B8DB0D5ED52CDF9A0CD,7CC 320 DATA D6A02062797465730D0A46,41A 330 DATA 5245453D00ED5B89AEE1ED,566 340 DATA 52CDF9A0CDD6A020627974,66A 350 DATA 65730A00C9E17ECD5ABB23,50F 360 DATA B720F8E97CCDE5A07DF50F,707 370 DATA 0F0F0FCDEEA0F1E60FC690,5C4 380 DATA 27CE4027C35ABB06001110,35B 390 DATA 27CD18A111E803CD18A111,440 400 DATA 6400CD18A11E0ACD18A13E,3D6 410 DATA 3085C35ABB3E2FA7043CED,4CE 420 DATA 5230FA1905C25ABBC90000,43A 430 PRINT"Is this a CPC464 or CPC6128 ?" 440 PRINT:PRINT"Press 4 or 6..." 450 k$=INKEY$ 460 IF k$="4" THEN CALL &A000:END 470 IF k$<>"6" THEN 450 480 FOR i=1 TO 6 490 READ a,b 500 POKE &A000+a,b 510 NEXT 520 DATA &1E,&5E, &32,&6C, &44,&68 530 DATA &57,&64, &A7,&71, &C2,&6C 540 CALL &A000 |