1 ' Excat 2.0
2 ' By Matt Cawley // CPCRULEz 3 ' 10 addr=&9000:MEMORY &8FFF:chk=0:ln=100 20 chk=0:FOR count=0 TO 15 30 READ byte$:IF byte$="end" THEN 90 40 byte=VAL("&"+byte$) 50 POKE addr+count,byte:chk=chk+byte 60 NEXT count 70 READ check$:IF VAL("&"+check$)<>chk THEN PRINT"Error in line";ln:STOP 80 ln=ln+10:addr=addr+16:GOTO 20 90 CALL &9000 100 DATA 3e,02,cd,0e,bc,3e,01,cd,90,bb,af,cd,96,bb,cd,02,07ca 110 DATA bc,3e,01,cd,6b,bc,3e,01,cd,90,bb,21,71,91,cd,b1,07e7 120 DATA 90,cd,a7,90,3a,f5,91,47,21,e4,91,11,00,80,cd,77,0806 130 DATA bc,22,de,91,26,0d,2e,03,cd,75,bb,21,e4,91,cd,b1,07c2 140 DATA 90,26,0e,2e,04,cd,75,bb,2a,de,91,01,16,00,09,7e,052a 150 DATA cd,54,91,2b,7e,cd,54,91,26,0e,2e,05,cd,75,bb,2a,069b 160 DATA de,91,01,19,00,09,7e,cd,54,91,2b,7e,cd,54,91,26,0643 170 DATA 0e,2e,06,cd,75,bb,2a,de,91,01,1b,00,09,7e,cd,54,059c 180 DATA 91,2b,7e,cd,54,91,26,0d,2e,07,cd,75,bb,2a,de,91,06ea 190 DATA 01,12,00,09,7e,cd,54,91,3e,0a,cd,5a,bb,cd,5a,bb,0658 200 DATA cd,5a,bb,cd,7a,bc,c9,21,f6,91,cd,b1,90,cd,bb,90,0a7c 210 DATA c9,7e,23,fe,ff,c8,cd,5a,bb,18,f6,ed,73,e2,91,cd,0abf 220 DATA 81,bb,21,e4,91,06,00,cd,18,bb,fe,7f,20,14,78,a7,0748 230 DATA 28,0e,3e,08,cd,5a,bb,3e,10,cd,5a,bb,05,2b,18,e7,05bd 240 DATA 18,e5,77,fe,0d,28,0e,4f,78,fe,10,28,f3,79,cd,5a,0745 250 DATA bb,04,23,18,d2,0e,00,11,00,00,21,e4,91,e5,7e,fe,05e2 260 DATA 0d,28,2e,d6,30,38,3b,fe,0a,30,37,f5,21,00,00,3e,049f 270 DATA 0a,06,08,29,cb,7c,20,2a,17,30,05,19,cb,7c,20,22,03c0 280 DATA 10,f1,f1,85,5f,3e,00,8c,57,cb,7a,20,15,e1,23,18,068d 290 DATA cc,cb,79,28,07,21,00,00,a7,ed,52,eb,ed,53,e0,91,07e2 300 DATA 18,06,21,00,00,22,e0,91,ed,7b,e2,91,78,32,f5,91,06dd 310 DATA cd,84,bb,c9,06,02,4f,1f,1f,1f,1f,e6,0f,fe,0a,30,05d5 320 DATA 07,c6,30,cd,5a,bb,18,05,c6,37,cd,5a,bb,79,10,eb,074f 330 DATA c9,45,78,63,61,74,20,76,65,72,20,32,2e,30,20,20,051b 340 DATA a4,31,39,38,38,20,4d,61,74,74,20,43,61,77,6c,65,0540 350 DATA 79,0d,0a,0a,46,69,6c,65,6e,61,6d,65,20,20,20,3a,0455 360 DATA 0d,0a,53,74,61,72,74,20,61,64,64,72,2e,3a,26,0d,047b 370 DATA 0a,4c,65,6e,67,74,68,20,20,20,20,20,3a,26,0d,0a,0383 380 DATA 45,78,65,63,2e,20,61,64,64,72,2e,3a,26,0d,0a,46,0459 390 DATA 69,6c,65,20,74,79,70,65,20,20,3a,0d,0a,ff,00,00,04ac 400 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0000 410 DATA 00,00,00,00,ff,00,0d,0a,46,49,4c,45,4e,41,4d,45,0357 420 DATA 3a,20,ff,00,00,00,00,00,00,00,00,00,00,00,00,00,0159 430 DATA end |