10 REM Split Modes
20 REM By R.A.Waddilove 30 REM(c)Computing with the Amstrad 40 MEMORY &9FFF 50 GOSUB 200 60 CALL &A000:REM enable 70 MODE 1:CLS 80 FOR i=1 TO 20 90 PEN (i MOD 3)+1 100 PRINT "Mode1"; 110 NEXT 120 MODE 0 130 LOCATE 1,15 140 FOR i=1 TO 15 150 PEN i 160 PRINT "Mode2"; 170 NEXT 180 END 190 : 200 REM Machine code 210 IF PEEK(&BDEC)=&17 THEN POKE &BDEC,&2E 220 IF PEEK(&BDEC)=&F7 THEN POKE &BDEC,&E:POKE &BDED,&B 230 address=&A000 240 FOR i=1 TO 8 250 sum=0:READ code$,check$ 260 FOR j=1 TO 21 STEP 2 270 byte=VAL("&"+MID$(code$,j,2)) 280 POKE address,byte 290 sum=sum+byte:address=address+1 300 NEXT 310 IF sum<>VAL("&"+check$) THEN PRINT "Error in data in line ";340+i*10 320 NEXT 330 RETURN 340 : 350 DATA 3A15A0A7C03D3215A02116,3B1 360 DATA A006811129A0CDD7BCC900,52A 370 DATA 0000000000000000000000,000 380 DATA 0000000000000000F3D9CB,297 390 DATA C1CB89ED49D9FB3E033228,5BA 400 DATA A0211FA006811143A0C3E0,49E 410 DATA BC2128A035C0F3D9CB81CB,67D 420 DATA 89ED49D9FB2143A0C3E6BC,6FC |