10 MODE 2:s=&6000:l=210:v$="0123456789abcdef":MEMORY &5FFF
20 t=0:l=l+10 30 LOCATE 1,1:PRINT"Please wait...." 40 FOR i=1 TO 8 50 READ a$:IF a$="*" THEN 170 60 GOSUB 140 70 u=VAL("&"+a$) 80 POKE s,u:t=t+u:s=s+1 90 NEXT 100 READ a$ 110 GOSUB 130:IF VAL("&"+a$)=t THEN 20 120 PRINT:PRINT"Error in Line"l:END 130 IF INSTR(v$,LOWER$(MID$(a$,2,1)))=0 THEN 120 140 IF INSTR(v$,LOWER$(LEFT$(a$,1)))=0 THEN 120 150 IF INSTR(v$,LOWER$(RIGHT$(a$,1)))=0 THEN 120 160 RETURN 170 PRINT:PRINT"Coding complete." 190 CALL &6000:END 220 DATA 3E,00,CD,0E,BC,21,9E,62,2F6 230 DATA 06,27,CD,21,62,01,D0,07,255 240 DATA C5,06,00,10,FE,C1,0B,78,31D 250 DATA B1,20,F5,21,16,63,01,B0,311 260 DATA 0E,11,17,63,36,00,ED,B0,26C 270 DATA AF,32,16,72,06,05,21,9D,232 280 DATA 62,36,30,2B,10,FB,3E,02,23E 290 DATA CD,0E,BC,2E,18,26,01,CD,2D1 300 DATA 75,BB,21,4F,62,06,4F,CD,324 310 DATA 21,62,21,02,01,CD,75,BB,2A4 320 DATA 2A,17,72,11,16,63,B7,ED,2E1 330 DATA 52,7C,B5,F5,CC,37,62,CD,4AA 340 DATA 81,BB,21,66,63,CD,1B,BB,3C9 350 DATA 30,FB,22,1B,72,FE,F0,28,3F0 360 DATA 2A,FE,F1,28,38,FE,F2,28,491 370 DATA 40,FE,F3,28,45,FE,E0,28,4A4 380 DATA 4A,FE,0B,28,16,FE,0A,28,2C1 390 DATA 24,FE,08,28,2C,FE,09,28,2AD 400 DATA 31,FE,58,28,36,FE,20,28,32B 410 DATA 5E,18,CA,11,50,00,B7,ED,345 420 DATA 52,CD,DB,60,E5,3E,0B,CD,455 430 DATA 5A,BB,E1,18,B8,11,50,00,327 440 DATA 19,CD,DB,60,E5,3E,0A,18,366 450 DATA EE,2B,CD,DB,60,E5,3E,08,44C 460 DATA 18,E5,23,CD,DB,60,E5,3E,44B 470 DATA 09,18,DC,7E,EE,01,77,3D,31E 480 DATA C4,FE,61,E5,CD,5D,BB,3E,52B 490 DATA 08,18,CC,E5,11,16,63,B7,312 500 DATA ED,52,30,08,E1,E1,2A,1B,37E 510 DATA 72,C3,65,60,19,11,46,6A,2D4 520 DATA B7,ED,52,30,EF,E1,C9,F1,5B0 530 DATA CC,43,62,CD,84,BB,CD,96,4E0 540 DATA 61,01,30,07,E5,DD,E1,CD,409 550 DATA 7C,61,FE,01,28,08,FE,02,30C 560 DATA 28,61,FE,03,28,61,AF,12,2D4 570 DATA 23,13,0B,78,B1,20,E5,CD,33C 580 DATA B8,61,3A,16,72,2F,32,16,252 590 DATA 72,3A,C5,62,B7,28,13,CD,392 600 DATA 1B,BB,30,FB,FE,20,28,C6,40D 610 DATA AF,32,C5,62,01,01,01,CD,2D8 620 DATA 38,BC,CD,1B,BB,30,B7,FE,47C 630 DATA 61,38,02,D6,20,FE,45,CA,39E 640 DATA 4A,60,FE,43,CA,1B,60,FE,42E 650 DATA 53,28,0A,FE,51,C2,FE,60,3F4 660 DATA 3E,02,C3,0E,BC,3E,01,32,23E 670 DATA C5,62,01,00,00,CD,38,BC,2E9 680 DATA C3,FE,60,7E,12,18,A1,3E,3A8 690 DATA 01,12,18,9C,AF,DD,86,AF,388 700 DATA DD,86,B0,DD,86,B1,DD,86,58A 710 DATA FF,DD,86,01,DD,86,4F,DD,4F2 720 DATA 86,50,DD,86,51,C9,3A,16,3A3 730 DATA 72,B7,28,0E,11,16,63,ED,2D6 740 DATA 53,19,72,21,96,6A,22,17,238 750 DATA 72,C9,21,16,63,22,17,72,280 760 DATA 11,96,6A,ED,53,19,72,C9,3A5 770 DATA 21,01,01,22,1B,72,CD,75,214 780 DATA BB,ED,5B,17,72,06,17,2A,2D3 790 DATA 19,72,C5,06,50,C5,7E,EB,3D4 800 DATA BE,EB,23,13,28,0B,E5,D5,3CC 810 DATA 3D,C4,FE,61,CD,01,62,D1,461 820 DATA E1,3A,1C,72,3C,32,1C,72,2A5 830 DATA C1,10,E2,3E,01,32,1C,72,2B2 840 DATA 3A,1B,72,3C,32,1B,72,C1,283 850 DATA 10,D0,CD,0C,62,C9,3E,20,342 860 DATA C9,F5,2A,1B,72,CD,75,BB,472 870 DATA F1,C3,5D,BB,21,9D,62,CD,4B9 880 DATA 2D,62,2B,28,FA,2E,18,26,248 890 DATA 4B,CD,75,BB,21,99,62,06,36A 900 DATA 05,C5,E5,7E,CD,5A,BB,E1,4F0 910 DATA 23,C1,10,F5,C9,7E,3C,FE,46A 920 DATA 3A,20,02,3E,30,77,C9,21,22B 930 DATA 96,6A,11,16,63,01,30,07,1C2 940 DATA ED,B0,C9,21,16,63,11,96,3A7 950 DATA 6A,01,30,07,ED,B0,C9,51,359 960 DATA 20,3D,20,51,75,69,74,20,240 970 DATA 20,45,20,3D,20,45,64,69,1F4 980 DATA 74,20,20,43,20,3D,20,43,1B7 990 DATA 6C,65,61,72,20,70,61,74,309 1000 DATA 74,65,72,6E,20,20,53,20,26C 1010 DATA 3D,20,53,69,6E,67,6C,65,2BF 1020 DATA 20,53,74,65,70,20,20,20,21C 1030 DATA 20,20,20,20,20,47,65,6E,1BA 1040 DATA 65,72,61,74,69,6F,6E,20,312 1050 DATA 20,30,30,30,30,30,1F,03,132 1060 DATA 09,54,68,65,20,47,61,6D,25F 1070 DATA 65,20,6F,66,20,4C,69,66,295 1080 DATA 65,0A,0D,0A,0A,20,20,20,0F0 1090 DATA 20,42,79,20,4B,49,57,49,22F 1100 DATA 53,4F,46,54,2E,00,00,00,16A 1110 DATA * |