10 REM ** 'PICTURE PAIRS' for AMSTRAD ACTION by David Hall **
20 REM ** SET UP VARIABLES/DATA + SCREEN ** 30 DIM a(40):BORDER 0 40 MODE 1:INK 0,0:PEN 2:PAPER 0:CLS 50 LOCATE 6,13:PRINT "Reading Data....PLEASE WAIT" 60 MEMORY 19999:GOSUB 3490 70 go=1:ga=5:INK 14,9:GOSUB 1200 80 sc$(1)="00":sc$(2)="00" 90 INK 15,7:INK 5,15 100 MODE 0:INK 0,0:BORDER 0:PAPER 0:CLS 110 FOR t=1 TO 150:PLOT RND*640,RND*400,4:NEXT 120 FOR t=1 TO 152:PLOT 104,80+2*t,8:DRAWR 420,0:NEXT 130 PLOT 100,386:a=428:b=306:FOR k=1 TO 5:DRAWR a,0,3:DRAWR 0,-b,5:DRAWR -a,0:DRAWR 0,b,3:a=a+8:b=b+4:MOVER -4,2:NEXT 140 PLOT 48,368,14:TAG:FOR k=1 TO 6:PRINT CHR$(55-k);:MOVER -32,-52:NEXT 150 PLOT 124,64,15:FOR k=1 TO 6:PRINT CHR$(48+k);:MOVER 40,0:NEXT:TAGOFF 160 PEN 10:LOCATE 1,23:PRINT "player 1" 170 PEN 13:LOCATE 13,23:PRINT "player 2" 180 WINDOW #1,19,19,4,19 190 PEN #1,7:PRINT #1,"game "go" of "ga; 200 PEN 6:LOCATE 3,24:PRINT sc$(1) 210 PEN 9:LOCATE 16,24:PRINT sc$(2) 220 CALL 38000 230 REM ******* MIX UP OBJECTS ******** 240 LOCATE 1,25:PEN 10:PRINT "* wait *" 250 LOCATE 13,25:PEN 13:PRINT "* wait *"; 260 l=1:FOR t=1 TO 18:a(l)=t:a(l+1)=t:l=l+2:NEXT 270 FOR x=1 TO huh 280 c=INT(RND*36)+1 290 b=INT(RND*36)+1 300 IF c=b THEN GOTO 280 310 l=a(c):a(c)=a(b):a(b)=l:NEXT 320 g=26999:FOR x=1 TO 36:POKE g+x,a(x):NEXT 330 LOCATE 1,25:PRINT " " 340 LOCATE 13,25:PRINT " "; 350 REM ******* PLAYER 1 SELECT 2 LOCATIONS ****** 360 GOSUB 1580 370 IF dave=255 THEN 70 380 IF dave=100 THEN 120 390 PEN 10:q=1:m=1:GOSUB 700 400 POKE 27036,VAL(b$):POKE 27037,VAL(a$) 410 q=26993:q=q+VAL(b$)+(VAL(a$)*6) 420 f=INT(q/256):POKE 27041,f:POKE 27042,q-f*256 430 IF PEEK(q)=19 THEN PRINT CHR$(7);:GOTO 360 440 GOSUB 840 450 q=0:m=6:GOSUB 710 460 POKE 27038,VAL(b$):POKE 27039,VAL(a$) 470 q=26993:q=q+VAL(b$)+(VAL(a$)*6) 480 f=INT(q/256):POKE 27043,f:POKE 27044,q-f*256 490 IF PEEK(27036)=PEEK(27038) AND PEEK(27037)=PEEK(27039) THEN LOCATE 6,25:PRINT "--":GOTO 450 500 IF PEEK(q)=19 THEN PRINT CHR$(7);:LOCATE 6,25:PRINT "--":GOTO 450 510 p=1:GOSUB 880:IF xl=0 THEN 360 520 REM ******* PLAYER 2 SELECT 2 LOCATIONS ** 530 GOSUB 1580 540 IF dave=255 THEN 70 550 IF dave=100 THEN 120 560 PEN 13:Q=1:m=14:GOSUB 700 570 POKE 27036,VAL(b$):POKE 27037,VAL(a$) 580 q=26993:q=q+VAL(b$)+(VAL(a$)*6) 590 f=INT(q/256):POKE 27041,f:POKE 27042,q-f*256 600 IF PEEK(q)=19 THEN PRINT CHR$(7);:GOTO 530 610 GOSUB 840 620 Q=0:m=19:GOSUB 710 630 POKE 27038,VAL(b$):POKE 27039,VAL(a$) 640 q=26993:q=q+VAL(b$)+(VAL(a$)*6) 650 f=INT(q/256):POKE 27043,f:POKE 27044,q-f*256 660 IF PEEK(27036)=PEEK(27038) AND PEEK(27037)=PEEK(27039) THEN LOCATE 19,25:PRINT "--";:GOTO 620 670 IF PEEK(q)=19 THEN PRINT CHR$(7);:LOCATE 19,25:PRINT "--";:GOTO 620 680 p=2:GOSUB 880:IF xl=0 THEN 530 ELSE 360 690 REM ****** SELECTION OF CO-ORDINATES ******* 700 LOCATE m,25:PRINT "-- & --"; 710 INK 14,9,22:LOCATE m,25 720 IF q=1 THEN WHILE INKEY$<>"":WEND 730 a$=INKEY$:IF a$="" THEN 730 740 IF a$<"1" OR a$>"6" THEN PRINT CHR$(7);:GOTO 730 750 SOUND 1,350,15,15 760 PRINT a$; 770 INK 14,9:INK 15,3,7 780 b$=INKEY$:IF b$="" THEN 780 790 IF b$<"1" OR b$>"6" THEN PRINT CHR$(7);:GOTO 780 800 SOUND 1,350,15,15 810 PRINT b$;:INK 15,7 820 RETURN 830 REM *** REVEAL CHOSEN PICTURES *** 840 FOR t=200 TO 100 STEP -5 850 SOUND 1,t,7:SOUND 2,t+2,7:NEXT 860 CALL &94E2 870 RETURN 880 FOR t=100 TO 0 STEP -5 890 SOUND 1,t,7:SOUND 2,t+2,7:NEXT 900 CALL &94B3 910 FOR g=1 TO 500:NEXT 920 a=PEEK(27042)+(PEEK(27041)*256) 930 b=PEEK(27044)+(PEEK(27043)*256) 940 IF PEEK(27045)=19 THEN 960 950 IF PEEK(27045)=PEEK(27046) THEN 1030 960 LOCATE -10+p*11,25:PEN 3+3*P:PRINT "no match"; 970 FOR t=1 TO 1000 980 SOUND 1,t+10,6:SOUND 2,t,6:t=t+t/3:NEXT 990 g=PEEK(a):m=PEEK(b):POKE a,20:POKE b,20 1000 CALL &94E2:CALL &94B3:xl=255 1010 POKE a,g:POKE b,m:FOR k=1 TO 700:NEXT 1020 LOCATE -10+p*11,25:PRINT " ";:RETURN 1030 FOR t=1 TO 9:FOR n=1 TO 15 1040 SOUND 1,0,2,15,0,0,n 1050 NEXT:NEXT 1060 sc=VAL(sc$(p)):sc=sc+1 1070 LOCATE -10+p*11,25:PEN 7+3*P:PRINT "* match *"; 1080 IF sc<10 THEN sc$(p)="0"+RIGHT$(STR$(sc),1) ELSE sc$(p)=RIGHT$(STR$(sc),2) 1090 PEN 3+3*P:LOCATE -10+13*p,24:PRINT sc$(p) 1100 SOUND 1,2000 1110 POKE a,19:CALL &94E2 1120 POKE b,19:CALL &94B3 1130 SOUND 1,60,30,15:SOUND 1,62,30,15 1140 FOR h=1 TO 800:NEXT 1150 SOUND 1,50,20,15:SOUND 1,30,20,15 1160 FOR k=1 TO 500:NEXT 1170 LOCATE -10+p*11,25:PRINT " "; 1180 xl=0:RETURN 1190 REM *** TITLE SCREEN *** 1200 PAPER 0:PEN 2:MODE 1:CLS:BORDER 3 1210 INK 1,15:LOCATE 12,2 1220 PRINT "PICTURE PAIRS" 1230 PEN 3:LOCATE 12,1:a$=CHR$(203) 1240 FOR t=1 TO 15:b$=b$+a$:NEXT 1250 PRINT b$:LOCATE 12,3:PRINT b$ 1260 PRINT 1270 PEN 2:PRINT "Game Objective:-" 1280 PEN 3:PRINT b$ 1290 PEN 1:PRINT:PRINT " In this two player game you must both" 1300 PRINT "try to score as many points as possible" 1310 PRINT " This is done by finding as many of the" 1320 PRINT "18 pairs of items in the 6 * 6 grid as" 1330 PRINT "you can." 1340 PRINT " Each player takes it in turns to type" 1350 PRINT "in two grid co-ordinates , if the " 1360 PRINT "pictures revealed are identical then" 1370 PRINT "the player scores a point and has " 1380 PRINT "another go (otherwise if wrong the other"; 1390 PRINT "player has his/her try)." 1400 PEN 3:PRINT:PRINT b$;b$:PEN 2 1410 PRINT "No. of games in a match 1-9 :-" 1420 huh=100:a=0:z=0:nu$="5" 1430 PEN 3:PRINT b$;b$ 1440 PRINT:PRINT:PEN 2 1450 PRINT " ** select 1 - 9 or 'space' to start **" 1460 PEN 2:c$=CHR$(233) 1470 FOR g=20 TO 22 1480 LOCATE 35,g:PRINT c$c$c$:NEXT 1490 LOCATE 36,21:PRINT nu$ 1500 i$=INKEY$:IF i$="" THEN huh=huh+1:IF huh>300 THEN huh=140:GOTO 1540 ELSE 1540 1510 IF i$=CHR$(32) AND huh>139 THEN ga=VAL(nu$):BORDER 0:CLS:INK 1,24:RETURN 1520 IF i$<"1" OR i$>"9" THEN GOTO 1540 1530 nu$=i$:GOTO 1490 1540 z=z+1:IF z<>20 THEN 1490 1550 a=a+1:IF a>3 THEN a=1 1560 v=v+1:IF v>10 THEN v=0:w=w+1:BORDER w:IF w>20 THEN w=1 1570 z=0:PEN a:GOTO 1490 1580 c=0:q=27000:FOR t=1 TO 36 1590 IF PEEK(q)=19 THEN c=c+1 1600 q=q+1 1610 NEXT:IF c<>36 THEN dave=0:RETURN 1620 go=go+1:IF ga<>go-1 THEN 1720 1630 REM ** END OF MATCH ** 1640 PEN 3:LOCATE 7,9:PRINT "G A M E" 1650 PEN 5:LOCATE 7,13:PRINT "O V E R" 1660 IF VAL(sc$(1))<=VAL(sc$(2)) THEN INK 9,12,22:INK 13,22,12:PEN 13:LOCATE 13,25:PRINT ".winner.";:PEN 10:LOCATE 1,25:PRINT ".loser.." 1670 IF VAL(sc$(1))>=VAL(sc$(2)) THEN INK 6,2,14:INK 10,14,2:PEN 10:LOCATE 1,25:PRINT ".winner.":PEN 13:LOCATE 13,25:PRINT ".loser.."; 1680 IF VAL(sc$(1))=VAL(sc$(2)) THEN PEN 13:LOCATE 13,25:PRINT ".winner."; 1690 i$=INKEY$ 1700 IF i$=" " THEN dave=255:INK 6,2:INK 10,14:INK 13,22:INK 9,12:RETURN 1710 SOUND 1,RND*20,1,15:GOTO 1690 1720 PEN 3:LOCATE 6,9:PRINT "PART ";go-1 1730 PEN 5:LOCATE 6,13:PRINT " FINISHED" 1740 FOR t=200 TO 1 STEP-1 1750 SOUND 1,t,2,15:SOUND 2,t+2,2,15:NEXT 1760 FOR h=1 TO 5000:NEXT 1770 CLS #1:PRINT #1,"game "go" of "ga; 1780 dave=100:RETURN 1790 REM ** DATA FOR GRAPHICS ** 1800 DATA 0F0F0F0FF30F0F0F0F0F0F5BA70F0F0F0F0F0F1B27 1810 DATA 0F0F0F0F0FF0F0F0F00F0F0F5AF0F0F0F0A50F0F5A 1820 DATA F0F0F0F0A50F0FF0C0F0F0C0F00F0FF0C0F0F0C0F0 1830 DATA 0F0FE0C0D0E0C0D00F5AE0C0D0E0C0D0A55AF0F0F0 1840 DATA F0F0F0A55AF0F0E0D0F0F0A55AF0F0E0D0F0F0A55A 1850 DATA F0F0C0C0F0F0A55AF0F0C0C0F0F0A55AF0D0F0F0E0 1860 DATA F00F0FF0C0E0E0E0F00F0FF0C0C0C0C0F00F0FF0C0 1870 DATA C0C0C0A50F0F5AE0E0F0D0A50F0F5AF0F0F0F00F0F 1880 DATA 0F0F5AF0F00F0F0FCCF054FCF0A0F0CCD8E0540303 1890 DATA A0D0E4F0C0540303A0C0F0E0D054A952A0E0D0C0F0 1900 DATA 00A95200F0C0D0E488A95244D8E0F0CC88A95244CC 1910 DATA F0E4C880A95240C4D8CCC080A95240C0CC000080A9 1920 DATA 5240000054FC00A95200F0A05456FCA952F0A1A054 1930 DATA 030313230303A054030313230303A0540303132303 1940 DATA 03A05456FCA952F0A1A054FC00A9520050A0000080 1950 DATA A952400000E0C054A952A0C0D0F0C0540303A0C0F0 1960 DATA D8E0540303A0D0E4CCF054FCF0A0F0CCCF8B030303 1970 DATA 0347CFCF03030F3C0303CF8B030F0F3C3C03470307 1980 DATA 0F3C0F3C290303071E3C0F1E2903030F3C3C0F0F3C 1990 DATA 03030F3C3C0F0F3C03030F3C3C0F0F3C03071E3C3C 2000 DATA 0F0F1E29071E3C3C0F0F1E29071E3C38250F1E2916 2010 DATA 2D0F1A343C2D0B162D0F0F3C3C2D0B162D0F0F3C3C 2020 DATA 2D0B162D0F0F3C3C0F03033C0F0F3C3C0F03033C0F 2030 DATA 0F3C3C0F03033C0F0F3C2D0B0303162D0F3C2D0B03 2040 DATA 8B163C3C0F0F0347CF03163C0F0B03CFCF8B030303 2050 DATA 0347CF0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F 2060 DATA 0F0F330F0F0F0F0F0F0F330F0F0F0F0F0F1B270F0F 2070 DATA 0F0F0F0F1B270F0F0F0F4E8D1B274E8D0F0FCCCC1B 2080 DATA 27CCCC0F0F98CC0F0F98CC0F4E64CC8D4E64CC8D4E 2090 DATA CCCC8D4ECCCC8D0FCCCC0F0FCCCC0F0FCCCC0F0FCC 2100 DATA CC0F0F4E8D4E8D4E8D0F0F0F0FCCCC0F0F0F0F0F0F 2110 DATA 98CC0F0F0F0F0F4E64CC8D0F0F0F0F4ECCCC8D0F0F 2120 DATA 0F0F0FCCCC0F0F0F0F0F0FCCCC0F0F0F0F0F0F4E8D 2130 DATA 0F0F0F0F0F0F0F0F0F0F0F00000000000000000000 2140 DATA 000000000000000000003300000000000000330000 2150 DATA 00005088112250880000E4E41122E4E40000D8D888 2160 DATA 50D8D80044E4E4E4E4E4E4A050D8D8D8D8D8D88844 2170 DATA E4E4E4E4E4E4A050D8D8D8D8D8D88844E4E4E4E4E4 2180 DATA E4A000D8D8D8D8D8D80000E4E4E4E4E4E4000050D8 2190 DATA D8D8D888000044E4E4E4E4A0000000D8D8D8D80000 2200 DATA 0000E4E4E4E40000000050D8D8880000000044E4E4 2210 DATA A00000000000D8D800000000000044A0000000CF9A 2220 DATA 65CF9A65CFCFCF659ACF6565CFCFCF9A9A9ACF65CF 2230 DATA CFCFCF653030CFCFCF9E2D1A381E2D1E6D8F1E381A 2240 DATA 301E2D4F8F1E251A2D342D4F9E2D1E381E2D1E6D9E 2250 DATA 2D1E381E2D1E6D8F1E2D1A2D1E2D4F8F1E2D1A2D1E 2260 DATA 2D4F9E2D1E381E2D1E6D9A303030303030658F1E2D 2270 DATA 1A2D1E2D4F8F1E2D1A2D1E2D4F9E2D1E381E2D1E6D 2280 DATA 9E2D1E381E2D1E6D8F1E2D1A2D1E2D4F8F1E2D1A2D 2290 DATA 1E2D4F9E2D1E381E2D1E6D9E2D1E381E2D1E6DCFCF 2300 DATA CFCFCFCFCFCF030303030303030303030346890303 2310 DATA 0303030398CC030303033303CCCC030F0313312346 2320 DATA 8907250B1333230303070F0B0333030303030F0303 2330 DATA 030303030303030303030303030303478B0352A103 2340 DATA 03039ACF03B0F0030303CFCF03F0F003C003478B03 2350 DATA 52A1426081030303030342C081030303030303C003 2360 DATA 03033C0303030303031634290303030303163C2903 2370 DATA FC030303033C035674A9030303030356FCA9030303 2380 DATA 030303FC03030303030303030303F0F0C3F0F0C3F0 2390 DATA F0F0F0C3F0F0C3F0F0E4D8C3E4D8C3E4D8E4D8F0E4 2400 DATA D8F0E4D8E4D8F0E4D8F0E4D8E4CCCCCCCCCCCCD8E4 2410 DATA CCCCCCCCCCCCD8E4CCCCCCCCCCCCD8F0F0F0F0F0F0 2420 DATA F0F0D2F0F0F0F0F0F0E1C3E4CCCCCCCCD8C3C3E4CC 2430 DATA CCCCCCD8C3C3E4CCCCCCCCD8C3C3E4CCCCCCCCD8C3 2440 DATA C3E4CCCCCCCCD8C3D2F0F0F0F0F0F0E1F0F0F0F0F0 2450 DATA F0F0F0E4CCCCCCCCCCCCD8E4CCCCCCCCCCCCD8E4CC 2460 DATA CCCCCCCCCCD8F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0 2470 DATA F0000000000000A0A0000000000000A0A0040C0C0C 2480 DATA 0C0CA4A40C0F0F0F0F0FA5B40D0F0F0F0F0FA5B40D 2490 DATA 0F0F0F0F0FA5B40D0F0F0F0F0FA5B40D4B0F3C3C3C 2500 DATA B4B40D8787381400A0A00D4B0F28140000000D8787 2510 DATA 3C284400000D4B0F28000000000D87872800888800 2520 DATA 0D4B0F2888CCCC441C0F1E2844884488143C3C0044 2530 DATA 000088000000444400008800000000CC0000880000 2540 DATA 0000CC8844880000000044CCCC44000000000088CC 2550 DATA 000000000044008888000000000000000000000033 2560 DATA 33000000000039333333000000143C333336280000 2570 DATA 14363933362800003C3C39333C3C0000363C33333C 2580 DATA 3C0000333C3333363C001136393333333C28143C39 2590 DATA 3333333C28143C393333333928143C3C3333363C28 2600 DATA 143C3C3933363C2814363C39333636281133363C33 2610 DATA 363C000033363C333633000033333C393C33000033 2620 DATA 333C3C3C2200001133363C332200001133333C3C00 2630 DATA 00000011333600000000000000000000000050A000 2640 DATA 00F000000000500050000000000000A0A000000050 2650 DATA F0F0F0F0F0F0A0F0F0F0F0F0F0F0F0F0F00FF0F00F 2660 DATA F0F0F0A5305AA5305AF0F0B0CC70B0CC70F0F0F0CC 2670 DATA F0F0CCF0F0F0F0F0F0F0F0F0F058F0F0F0F0F0F0A4 2680 DATA 0F0F5AE0D0A50F0F3C3C78E0D0B43C3C0C0C58F0F0 2690 DATA A40C0C0F0F5AF0F0A50F0F3C3C782020B43C3C0C0C 2700 DATA 580000A40C0C0F0F5A1010A50F0F143C78F0F0B43C 2710 DATA 28000000F0F00000000000500000A000000050F000 2720 DATA 00F0A0000300000102000000010200030000000010 2730 DATA 030112000000001021033000000000109812980003 2740 DATA 000000301020010300000000000003020000000000 2750 DATA 01030F0F4E00000003074E0FCC000001030F0FCC88 2760 DATA 000003074E0FCC00000103050FCC8800000302448D 2770 DATA CC000001030005CC88000003020044CC0000000300 2780 DATA 00448800000002000044006400000000000000CC00 2790 DATA 000000000000000000004400CC0088880044CCCCCC 2800 DATA CCCCCCCCCCCCCCCCCCCCCCCC030303030303030303 2810 DATA 030312210303030303032112030303030312030321 2820 DATA 03030303210303120303F0F0F0F0F0F0F0F0A50F0F 2830 DATA 0F0F0F0F4EA54A850F0F1A1A4EA5C0C00F0F0F254E 2840 DATA A5C0C01A1A0F0F4EA54A850F250F0F4EA50F0F0F0F 2850 DATA 0F0F4EA50F0F0F270F0F66A51B0F1B330F1B66A533 2860 DATA 273333273366B133113333331166B1223333333322 2870 DATA 66B111333333333344A033333333333366B1333333 2880 DATA 33333366B133333333333366E4CCCCCCCCCCCCCC3C 2890 DATA 3C010203023C3C3C34010303023438342801030302 2900 DATA 143C3C01030303030234382810303020143C3C2830 2910 DATA 303030143C3C283010203010383428303030301438 2920 DATA 342030303030103830203020103010302020903030 2930 DATA 6410104520C4C4C4C4008A450064C4C490008ACF10 2940 DATA 3060903020CF009A3064983065003045306090308A 2950 DATA 30301030CC30302030301030C030302030301030CC 2960 DATA 303020303010303030302030301030303030203030 2970 DATA 20303030301030C03C3C6CB43C3C3CC0686CCCE49C 2980 DATA 3C3CC03CE4D8CCCC3C3C9494F0F0CCCC3C3C3C78E4 2990 DATA D8E4D8B43C9478CCCCF0F09C3C3CF0CCCCF0F0CC3C 3000 DATA 1ED8E4D8E4D8F01E0FD8F0F0CCCCF00F4ED8F0F0CC 3010 DATA CCF0A54EF0E4D8E4D8F0A55AF0CCCCF0F0CCA5F0F0 3020 DATA CCCCF0E4CCD8E4D8E4D8F0E4CCD8CCCCF0F0CCF0CC 3030 DATA F0CCCCF0E4CCD8F0E40F0F0F1B870F0F0F0F0F0F1B 3040 DATA 870F0F0F0F0F0F1B870F0F0F1B1B1B1B931B1B1B33 3050 DATA 3333339333333322222233C32222220352E4F0F0F0 3060 DATA A10352F0F0F0D8D8F0A152F0D8F0F0F0D8A1F0D8F0 3070 DATA E4F0F0F0F0F0F0D8F0F0D8F0F0F0F0F0F0F0F0F0F0 3080 DATA F0F0F0F0F0F0F0F063636363636363639393939393 3090 DATA 939393636363636363636346CCCCCCCCCCCC89CCCC 3100 DATA CCCCCCCCCCCC46CCCCCCCCCCCC89C0C0C0C0C0C0C0 3110 DATA C0C0C0C0C0C0C0C0C042C0C0C0C0C0C081F0F0F0F0 3120 DATA F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0 3130 DATA F0F0F0F0F0F0F0F0F0F0F0F0F0F0F052F0F0F0F0F0 3140 DATA F0A1000000C0C00000000000C0C0C0C0000000C0C8 3150 DATA 9C3C68C00000C0C4CCC83C3C3C40C4C4CC3C68C080 3160 DATA 40C0C8CCC4C0C08040C00CCCC80CC080C0840CCC84 3170 DATA 0C48C0C0840CCC8C0C48C0C0840CCC840C48C0C0C0 3180 DATA 0CC4C00CC0C0C0C0C0C4C0C0C0C0C048C0C4C0C084 3190 DATA C0C048C0C4C0C084C0C048C0C4C0C084C04084C0C0 3200 DATA C0C048804084C0C0C0C0488040C00CC0C00CC08000 3210 DATA C0C00C0CC0C00000C0C0C0C0C0C0000000C0C0C0C0 3220 DATA 0000000000C0C00000000303033C3C03030303033C 3230 DATA 3C3C0F0303033C3C3C3C3C0F03033C3C3C3C3C0F03 3240 DATA 163C3C3C2D1E2D0B163C3C3C0F0F2D0B163C3C3C0F 3250 DATA 0F2D0B3C3C3C3C0F0F2D0F3C3C3C3C2D1E2D0F3C3C 3260 DATA 3C3C3C3C0F0F3C3C3C3C3C2D0F0F3C3C3C0F0F0F0F 3270 DATA 0F3C3C0F0F0F0F0F0F3C3C0F0F0F0F0F0F3C2D1E2D 3280 DATA 0F0F0F0F162D3C3C0F0F0F0B162D3C3C0F0F0F0B16 3290 DATA 2D3C3C0F0F0F0B032D1E2D0F0F0F03033C0F0F0F0F 3300 DATA 0F0303030F0F0F0F03030303030F0F030303000000 3310 DATA 000000000000000000000010000000000000000000 3320 DATA 000000000000000020000000000000000000000000 3330 DATA 000000000000000000000000000000000000000000 3340 DATA 000000000000000020000000000000000000000000 3350 DATA 000000000000000000000000000000000000000000 3360 DATA 000000000000000000000000000000000000000000 3370 DATA 000000001000000000000000000000000000000000 3380 DATA 000000000000000000000000200000000000000000 3390 DATA 00000000000F0F0F0F0F0F0F0F0F0F0F0F0F0F0F1E 3400 DATA 0F0303030303033C0F0303030303033C0F0303CCCC 3410 DATA 03033C0F0346CCCC89033C0F03CCCCCCCC033C0F03 3420 DATA CC8844CC033C0F03CD0103CC013C0F03CF0103CC01 3430 DATA 3C0F03020147CD013C0F030303CF8A033C0F030347 3440 DATA CF01033C0F0303478A03033C0F0303478A03033C0F 3450 DATA 0303030003033C0F0303468903033C0F0303478803 3460 DATA 033C0F0303030003033C0F0303030303033C0F3C3C 3470 DATA 3C3C3C3C3C1E3C3C3C3C3C3C3C0000000000000000 3480 DATA 000000000000000000000000000000000000000000 3490 l=30000:FOR m=1 TO 169:READ a$:FOR t=1 TO LEN(a$) STEP 2 3500 POKE l,VAL("&"+MID$(a$,t,2)):l=l+1:NEXT:NEXT 3510 l=&9470:FOR m=1 TO 10:READ a$:FOR t=1 TO LEN(a$) STEP 2 3520 POKE l,VAL("&"+MID$(a$,t,2)):l=l+1:NEXT:NEXT:RETURN 3530 REM ** MACHINE CODE DATA ** 3540 DATA 11607B2103C7CDA094210DF80E06E50606114082E5 3550 DATA C5CDA094C1E11109001910F0E111F00019CD26BCCD 3560 DATA 26BC0D20DFC90E16E506081A77231310FAE1CD26BC 3570 DATA 0D20F0C9215DCD3A9E691109003D28031918FA3A9F 3580 DATA 694705280A0E1ACD29BC0D20FA18F3EB3AA369673A 3590 DATA A4696F7E32A669182D215DCD3A9C691109003D2803 3600 DATA 1918FA3A9D694705280A0E1ACD29BC0D20FA18F3EB 3610 DATA 3AA169673AA2696F7E32A56921807401B000093D20 3620 DATA FCEBC3A09431342C30302C41302C41302C30442C34 3630 DATA 422C30462C32382C31342C30302C30302C30302C30 |