| Es parte de la publicación: | The Sydney Affair |
| Tamaño del archivo: | 20375 |
| md5: | ca16473fda949d9c26979ff0aa5476ef |
1 LET t=PEEK 65409: POKE 23659,t
2 GO SUB 9999
3 GO SUB 3000: GO TO 60
8 RANDOMIZE USR prn: RETURN
10 POKE 23659,0: RETURN
12 LET t=PEEK 65409: POKE 23659,t: RETURN
14 POKE 23659,0: PRINT AT 21,0;" ";: GO TO 12
15 IF (o$>CHR$ 31) AND (o$<CHR$ 123) THEN LET b$=b$+o$: GO TO 25
20 GO SUB 9999: LET b$="": LET o$="": LET x$="_": GO TO 22
21 RANDOMIZE USR ion: POKE 23658,8: LET o$=INKEY$: IF o$="" THEN GO TO 21
22 RANDOMIZE USR iof: IF (o$>CHR$ 31) AND (o$<CHR$ 123) THEN LET b$=b$+o$: GO TO 25
23 GO SUB 9999: IF o$=CHR$ 12 THEN IF LEN b$>0 THEN LET b$=b$( TO (LEN (b$)-1)): LET s$=""+b$+x$+" ": GO TO 28
24 GO SUB 9999: IF o$=CHR$ 13 THEN LET x$=" ": GO TO 27
25 LET b=LEN b$: IF (b>20 AND r=3) OR (b>26 AND r<22) OR b>57 THEN LET x$=""
27 LET s$=""+b$+x$
28 BEEP .01=,10: PRINT AT r,t;: GO SUB 8: IF x$="_" THEN GO TO 21
29 RETURN
30 GO SUB 80: GO SUB 1360: GO SUB 1390: RETURN
60 LET adpho=par: LET adem=adpho+1: LET adme=adem+1: LET addo=adme+1: IF PEEK adpho=1 THEN LET pho=1
62 IF PEEK adem=1 THEN LET em=1
64 IF PEEK adme=1 THEN LET me=1: LET ca=1
66 IF PEEK addo=1 THEN LET do=1
68 POKE ins-8,224: POKE ins-6,4: POKE ins-5,7: POKE ins-4,10: POKE ins-3,24: POKE ins-2,2: POKE ins-1,7
70 DIM a(39): GO TO 90
80 IF z>2 THEN GO TO 84
82 POKE 50123,64: POKE 50196,88: POKE 50002,z: GO TO 89
84 LET z1=INT (z/10): LET z2=z-(10*z1): IF z1=zz THEN GO TO 88
86 LET zz=z1: POKE 50002,z1: POKE 50123,224: POKE 50196,248: GO SUB 89
88 POKE ins-7,z2: RANDOMIZE USR ins: RETURN
89 RANDOMIZE USR iof: RANDOMIZE USR 50000: RETURN
100 GO SUB 9999: GO SUB 110: GO SUB 570: GO SUB 9999: GO TO 120
110 LET z=2: LET w=14: LET xx=0: GO TO 117
115 LET z=1: LET w=18: LET xx=1
117 GO SUB 80: POKE scr-2,w: LET x=0: LET S$="": GO SUB 510: RETURN
120 GO SUB 280
125 RANDOMIZE USR ion: POKE 23658,8: LET b$=INKEY$: IF b$="" THEN GO TO 125
130 RANDOMIZE USR iof: IF b$="M" THEN GO SUB 110: GO SUB 340: GO SUB 750: GO TO 590
140 GO SUB 9999: IF b$="S" THEN GO SUB 115: GO TO 840
150 GO SUB 9999: IF b$="E" THEN GO SUB 115: GO TO 1620
160 GO SUB 9999: IF b$="P" THEN GO SUB 300
170 GO SUB 9999: IF b$="C" THEN GO SUB 115: GO SUB 9999: GO TO 1440
180 IF b$="A" THEN GO SUB 115: GO TO 1710
190 GO SUB 9999: GO TO 120
280 PRINT AT 21,0;: LET S$=" M = Message S = Statement ": GO SUB 8: GO SUB 310
290 GO SUB 10: PRINT : LET s$=" E = Examination C = Comparison A = Arrest ": GO SUB 8: GO SUB 12: RETURN
300 LET i=i+1
310 IF i=2 OR i=0 THEN LET i=0: GO TO 330
320 PRINT AT 21,26;: LET s$="P = printer"+CHR$ 129: GO SUB 8: RETURN
330 PRINT AT 21,26;: LET s$="P = printer": GO SUB 8: RETURN
340 PRINT AT 2,17;: LET s$="ORIG GIE CLERMONT-FD": GO SUB 8: PRINT AT 3,17;: LET s$="DEST": GO SUB 8: PRINT AT 4,17;: LET s$="--------------------------": GO SUB 8
350 LET R=3: LET T=20: GO SUB 20: LET c$=b$: LET r$=""
370 LET R=5: LET T=17
380 GO SUB 20: LET r$=r$+B$: LET R=R+1
390 IF R=12 THEN GO TO 410
400 IF O$<>CHR$ 13 THEN GO TO 380
410 PRINT AT R,T;: LET S$=".STOP.": GO SUB 8: LET b$=r$: RETURN
510 LET x=x OR xx: IF x=1 THEN LET x=0: GO TO 540
520 LET x$=CHR$ 130+CHR$ 131: LET y$=CHR$ 132+CHR$ 133: LET X=1
530 RANDOMIZE USR noi: PRINT AT 19,2;: RANDOMIZE USR prn: POKE scr-5,8: RANDOMIZE USR scr
532 IF i=1 THEN LPRINT s$
535 IF xx=0 THEN PRINT AT 19,1;: LET s$=x$: RANDOMIZE USR prn: PRINT AT 19,14;: LET s$=y$: RANDOMIZE USR prn
537 RETURN
540 LET x$=CHR$ 128+" ": LET y$=" "+CHR$ 129: GO TO 530
570 RANDOMIZE USR noi: FOR u=1 TO 10: NEXT u: RETURN
590 REM FOR t=1 TO 1000: NEXT t
600 IF a(30)=1 THEN GO TO 650
610 IF a(31)=1 OR a(39)=1 THEN GO TO 680
620 IF a(32)=1 THEN GO TO 700
630 IF a(33)=1 THEN GO TO 720
640 LET s$="ADDRESSEE NOT KNOWN": GO TO 670
650 IF A(34)=1 AND A(18)=1 THEN GO SUB 730: RESTORE 2530: GO TO 1430
660 LET s$="ADDRESSEE NOT APPLICABLE"
670 GO SUB 560: GO SUB 510: LET S$=".STOP.": GO SUB 510
675 LET s$="": GO SUB 510: GO TO 120
680 IF a(34)=1 THEN LET b$="Hey, Boss, aren't you/ awake yet ?": GO SUB 1391: GO TO 675
690 IF a(17)=1 AND a(18)=1 THEN LET c$="GIE ST-CHELY": GO SUB 730: RESTORE 2550: GO TO 1430
700 IF a(36)=0 THEN GO TO 660
710 IF ((a(17)=1 AND a(18)=1) OR a(19)=1) THEN LET id=1: POKE ins-3,17: LET z=33: GO SUB 80: POKE ins-3,24: LET z=32: GO SUB 80: GO SUB 730: RESTORE 2520: GO TO 1430
720 IF a(34)=1 AND a(18)=1 THEN GO SUB 730: RESTORE 2540: GO TO 1430
725 GO TO 660
730 LET s$="ORIG "+C$: GO SUB 510: LET s$="DEST GIE CLERMONT-FD": GO SUB 510: LET s$="": GO SUB 510: RETURN
740 LET s$="": GO SUB 510: RETURN
750 RANDOMIZE USR iof: FOR t=1 TO 39: LET a(t)=0: NEXT t
755 IF b$="" THEN GO TO 790
758 RESTORE 2140
760 LET T=1
765 READ z$: LET P=USR ist
770 IF p>0 THEN LET a(t)=1
780 LET t=t+1: IF t<=25 THEN GO TO 765
790 IF c$="" THEN GO TO 830
795 RESTORE 2150: LET b$=c$
800 LET t=26
805 READ z$: LET P=USR ist
810 IF p>0 THEN LET a(t)=1
820 LET t=t+1: IF t<=39 THEN GO TO 805
830 RANDOMIZE USR ion: RETURN
840 LET v$=" STATEMENT": GO SUB 10: PRINT AT 21,0;: LET r=22: LET t=1: LET s$="Whose statement ?": GO SUB 8: GO SUB 20: LET r$=b$: GO SUB 14
850 GO SUB 10: PRINT AT 21,0;: LET s$="Where can this person be found ?": GO SUB 8: GO SUB 20: LET c$=b$: GO SUB 14: LET b$=r$: GO SUB 750
860 IF a(1)=0 AND a(2)=0 AND a(3)=0 THEN GO TO 890
865 LET z=41: RESTORE 1870: GO SUB 30
870 IF pa>0 THEN LET jea=2: RESTORE 1900: GO TO 1430
880 RESTORE 1880: GO SUB 1390: GO TO 1430
890 IF (a(4)=0 AND a(5)=0) OR a(27)=0 THEN GO TO 940
900 LET z=42: LET re=1: RESTORE 1910: GO SUB 30
910 IF pho=0 THEN RESTORE 1920: GO TO 1430
920 LET re=2: RESTORE 1930: GO TO 1430
940 IF ((a(6)=0 OR a(7)=0) AND a(8)=0) OR a(26)=0 THEN GO TO 1010
945 LET z=37: RESTORE 1940: GO SUB 30
950 IF mar=1 AND sy=2 THEN RESTORE 2130: GO TO 1430
960 IF mar=0 THEN LET mar=1: RESTORE 1950: GO TO 1430
970 IF de=1 THEN RESTORE 1970: GO SUB 1390
980 IF re=2 THEN RESTORE 1980: GO TO 1430
990 IF re=1 THEN RESTORE 1990: GO SUB 1390
1000 RESTORE 1960: GO TO 1430
1010 IF (a(10)=0 AND (a(9)=0 OR a(7)=0)) OR a(26)=0 THEN GO TO 1060
1015 LET z=34: RESTORE 2000: GO SUB 30
1020 IF sy=0 THEN LET sy=1: RESTORE 2010: GO TO 1430
1030 IF re=2 AND pe=2 THEN LET sy=2: RESTORE 2030: GO SUB 1390
1040 IF re=2 AND pe<2 THEN RESTORE 2020: GO SUB 1390
1050 RESTORE 2380: GO TO 1430
1060 IF (a(13)=0 AND a(14)=0) OR a(29)=0 THEN GO TO 1140
1065 LET z=43: RESTORE 2260: GO SUB 30
1070 IF pa>4 AND tin>4 AND gagne=1 THEN LET tin=6: RESTORE 2330: GO SUB 1390: GO TO 1430
1080 IF do2=1 AND em1=1 AND ba2=1 AND tin>3 THEN LET tin=5: RESTORE 2320: GO TO 1430
1090 IF pa>0 THEN LET tin=4: RESTORE 2310: GO TO 1430
1100 IF tin=0 THEN LET tin=1: RESTORE 2270: GO TO 1430
1110 IF lu=3 THEN LET tin=3: RESTORE 2300: GO TO 1430
1120 IF lu=2 THEN LET tin=2: RESTORE 2280: GO TO 1430
1130 RESTORE 2290: GO TO 1430
1140 IF A(15)=0 OR A(28)=0 THEN GO TO 1170
1145 LET z=38: RESTORE 2040: GO SUB 30
1150 IF de=0 THEN LET de=1: RESTORE 2050: GO TO 1430
1160 IF de=1 THEN RESTORE 2060: GO TO 1430
1170 IF A(12)=0 AND (a(11)=0 OR a(7)=0) THEN GO TO 1220
1175 LET z=35: RESTORE 2350: GO SUB 30
1180 IF lu=0 THEN LET lu=1: RESTORE 2360: GO TO 1430
1190 IF tin=1 THEN LET lu=2: RESTORE 2370: GO TO 1430
1200 IF tin=2 THEN LET lu=3: RESTORE 2390: GO TO 1430
1210 RESTORE 2380: GO TO 1430
1220 IF (a(17)=0 AND a(18)=0) OR a(35)=0 OR id=0 THEN GO TO 1300
1225 LET z=32: RESTORE 2160: GO SUB 30
1230 IF tin<=5 THEN GO TO 1250
1235 LET pa=6: RESTORE 2220: GO SUB 1390: GO SUB 1390
1240 LET o$=INKEY$: IF o$="" THEN GO TO 1240
1245 GO SUB 1350: RESTORE 2240: GO SUB 1390: GO TO 1430
1250 IF pa=0 THEN LET pa=1: RESTORE 2170: GO TO 1430
1260 IF ba1=1 THEN LET pa=5: RESTORE 2210: GO SUB 1390
1270 IF em1=1 THEN RESTORE 2190: GO SUB 1390
1280 IF do2=1 THEN RESTORE 2200: GO SUB 1390
1290 RESTORE 2180: GO TO 1430
1300 IF (a(20)=0 AND a(21)=0 AND a(22)=0) OR a(26)=0 THEN GO TO 1330
1305 LET z=36: RESTORE 2070: GO SUB 30
1310 IF pe>0 AND re=2 THEN LET pe=2: RESTORE 2090: GO TO 1430
1320 LET pe=1: RESTORE 2080: GO TO 1430
1330 IF (a(24)=0 AND a(25)=0) OR a(26)=0 THEN GO TO 120
1335 LET z=31: LET he=he+1: RESTORE 2100: GO SUB 30: GO SUB 1390
1340 IF he>1 THEN RESTORE 2120: GO SUB 1390
1345 GO TO 120
1350 RETURN
1360 LET s$="Department of NATIONAL POLICE": GO SUB 510
1370 LET s$="Research ---------": GO SUB 510: LET s$="CLERMONT "+v$: GO SUB 510
1380 LET s$="-------- ---------": GO SUB 510: RETURN
1390 READ b$
1391 LET Z$="/"
1392 LET p=USR ist: IF p=0 THEN GO TO 1400
1396 LET t$=b$(p+1 TO ): LET b$=b$( TO p-1): GO SUB 1400: LET b$=t$: GO TO 1392
1400 LET b=LEN b$
1401 LET w1=2*w-4: LET b1=b-w1*(INT (b/w1))
1402 IF b=0 THEN LET s$=b$: GO TO 1414
1403 IF b<w1 THEN LET s$=b$: GO TO 1413
1404 LET t=0: LET t1=INT (b/w1)-1
1406 LET s$=b$(w1*t+1 TO w1*(t+1))
1407 IF s$( TO 1)=" " THEN LET s$=s$(2 TO )
1408 GO SUB 510
1409 LET t=t+1: IF t<=t1 THEN GO TO 1406
1410 IF b1=0 THEN GO TO 1420
1412 LET s$=b$(w1*t+1 TO )
1413 IF s$( TO 1)=" " THEN LET s$=s$(2 TO )
1414 GO SUB 510
1420 RETURN
1430 GO SUB 1390: GO TO 120
1440 GO SUB 14: GO SUB 10: PRINT AT 21,0;: LET s$="Correlation of evidence with whom ?": GO SUB 8: LET r=22: LET t=1: GO SUB 20: LET c$="": GO SUB 14: GO SUB 750
1450 IF (a(17)=1 OR a(18)=1) AND pa>0 THEN GO TO 1470
1460 IF (a(14)=1 OR a(13)=1) AND tin>0 THEN GO TO 1560
1465 GO TO 1600
1470 RESTORE 2400: GO SUB 1390: GO SUB 1390
1480 IF jea=2 THEN LET rec=1: RESTORE 2420: GO SUB 1390
1490 IF do=1 THEN LET do1=1: RESTORE 2430: GO SUB 1390
1500 IF do2=1 THEN RESTORE 2440: GO SUB 1390
1510 IF em=1 THEN LET em1=1: RESTORE 2450: GO SUB 1390
1520 IF ca=1 THEN RESTORE 2460: GO SUB 1390
1530 IF tin>3 THEN LET ba1=1: RESTORE 2470: GO SUB 1390
1540 IF rec=1 AND do1=1 AND do2=1 AND em1=1 AND ca=1 AND ba1=1 THEN LET gagne=1
1550 GO TO 120
1560 RESTORE 2480: GO SUB 1390: GO SUB 1390
1570 IF tin1=1 AND ba1=1 THEN LET ba2=1: RESTORE 2510: GO SUB 1390
1580 IF pa>0 THEN LET tin1=1: RESTORE 2500: GO SUB 1390
1590 GO TO 120
1600 GO SUB 10: PRINT AT 21,0;: LET s$="Of no interest.": GO SUB 8
1610 GO SUB 10: LET s$="NEXT==>": PRINT AT 22,28;: GO SUB 8: GO SUB 12: FOR R=1 TO 60: NEXT R: RANDOMIZE USR ion: PAUSE 100: PAUSE 0: GO TO 120
1620 GO SUB 14: GO SUB 10: PRINT AT 21,0;: LET s$="Which examination ?": GO SUB 8: LET r=22: LET t=1: GO SUB 20: LET c$=b$: GO SUB 14: GO SUB 750
1630 IF a(37)=1 AND a(7)=1 THEN GO TO 1650
1640 IF a(38)=1 THEN GO TO 1660
1645 GO TO 1600
1650 LET v$=" AUTOPSY": LET aut=1: GO SUB 1360: RESTORE 1810: GO SUB 1390: GO TO 1430
1660 LET v$=" BALLISTICS": GO SUB 1360: RESTORE 1830: GO SUB 1390
1670 IF aut=1 THEN RESTORE 1840: GO SUB 1390
1680 IF do=1 AND do1=0 THEN RESTORE 1850: GO SUB 1390
1690 IF do1=1 THEN LET do2=1: RESTORE 1860: GO SUB 1390
1700 GO TO 120
1710 GO SUB 14: GO SUB 10: PRINT AT 21,0;: LET s$="Who do you want to arrest ?": GO SUB 8: LET r=22: LET t=1: GO SUB 20: LET c$="": GO SUB 14: GO SUB 750: LET ga=0: GO SUB 10: PRINT AT 21,0;
1720 IF (a(17)=1 OR a(18)=1) AND pa=6 THEN LET ga=ga+10
1730 IF (a(13)=1 OR a(14)=1) AND tin=6 THEN LET ga=ga+10
1740 GO TO 1750+ga
1750 LET s$="You lack enough evidence to support your suspicions.": GO SUB 8: PRINT : LET s$="A miscarriage of justice would be unforgiveable.": GO SUB 8: GO TO 1610
1760 LET s$="This arrest is not sufficient.": GO SUB 8: GO TO 1610
1770 GO SUB 115: LET v$=" CONGRATULATIONS": GO SUB 1360: RESTORE 2560: GO SUB 1390: GO SUB 1390
1800 GO TO 120
1810 DATA "/The victim, James Sidney, died/from perforation of the cranium/ and partial destruction of the/ brain. The projectile pierced/ the front and exited close to/ the Rachidean Bulb./ - Death was instantaneous."
1820 DATA "The absence of burn marks and/powder traces around the entry/point indicate that the bullet/was fired from a distance in/excess of 5 metres."
1830 DATA "/From the information we have we/are able to deduce that the/shot was fired from the fourth/floor flat of No. 9, Republic/Square."
1840 DATA "/The autopsy of the victim con-/cludes that it was a long range/shot, and our ballistic report/confirms this."
1850 DATA "/The 7 x 64 calibre cartridge/discovered was fired from a/long-range, automatic weapon."
1860 DATA "/The 7 x 64 calibre cartridge/found in the appartment was/fired from the Remington rifle/belonging to Languille."
1870 DATA "Jeannot Estrade,/Republic Square,/Clermont (63)."
1880 DATA "/I heard a gunshot and saw a man/fall down. A few minutes later"
1890 DATA "I saw a man running from No. 9/carrying a large sports holdall. He ran off in the direction of/the main road."
1900 DATA "/I am convinced that the man who/came from No. 9 a few minutes/after the murder was Patrick/Languille."
1910 DATA "Robert Renard,/336 Blatin Street,/Clermont (63)//- Private Detective//- Mr Sidney hired me to watch/his wife as he suspected her/of being unfaithful."
1920 DATA "Up till now, I have been unable/to confirm his suspicions."
1930 DATA "I took the picture you found./It is Mrs Sidney with her lover."
1940 DATA "Marianne Sidney (nee Dupuis),/St James Square,/Clermont (63)"
1950 DATA "/I don't know who could have/murdered my husband, or why./He was on his way to work when/it happened. He had no enemies."
1960 DATA "/I have nothing more to add, and/I am very tired since my/husband's death. Please don't/insist."
1970 DATA "/I asked my husband for a/divorce, but he refused."
1980 DATA "/This photo doesn't bother me at/all. It's easy to see that/this young lady has long hair,/while mine is short."
1990 DATA "/I ignored the fact that my/husband hired a private eye to/watch me."
2000 DATA "Sylvie Sidney,/St James Square,/Clermont (63)"
2010 DATA "/I can't believe that my father/has been murdered, he was such/a quiet man. All he wanted was/to have a happy family life."
2020 DATA "/I don't recognise the people in/silhouette in this photo."
2030 DATA "/In this photo I recognise my/mother with a family friend,/Tino di Nallo."
2040 DATA "Hubert Decol, Solicitor,/Jade Place,/Clermont (63)"
2050 DATA "/Mr Sidney placed his divorce/file with me. It was suggested/by his wife and he asked me/to draw it up."
2060 DATA "/I think Mr Sidney wanted to hire/a private detective, but I/don't know why."
2070 DATA "Peggy Gachet, house keeper,/St James Square,/Clermont (63)"
2080 DATA "/I have been in service for over/a year with the Sidney family/and I can't see anyone wanting/to kill my employer."
2090 DATA "/It could be Mrs Sidney in this/photo, because she has recently/had her hair cut."
2100 DATA "Henri Lajoie, caretaker,/St James Square,/Clermont (63)"
2110 DATA "/Mr Sidney was a quiet man who/always gave me a tip when I/called a cab for him from my/house."
2120 DATA "The day before yesterday he/called a cab to take him to/Blatin Street, Clermont."
2130 DATA "/I have seen Tino di Nallo quite/often during the last six/months, but this has nothing/to do with my husband's death./Tino lives in Dores Square,/Cournon."
2140 DATA "WITNESS","JEANNOT","ESTRADE","RENARD","ROBERT","MRS","SIDNEY","MARIANNE"
2141 DATA "DAUGHTER","SYLVIE","SON","LUDOVIC","TINO","NALLO","DECOL","HUBERT","PATRICK","LANGUILLE"
2142 DATA "SERGEANT","PEGGY","GACHET","SERVANT","SEEK","LAJOIE","CARETAKER"
2150 DATA "JAMES","BLATIN","JADE","DORES","CIAT","GIE","CRRJ","BDRJ","CLERMONT","CHELY","LYON","AUTOPSY","BALLISTIC","DG"
2160 DATA "Patrick Languille, unemployed,/Hotel 'Gevaudan',/St-Chely (48)"
2170 DATA "/I don't know either Tino di/Nallo or James Sidney./I have nothing to do with your/enquiries."
2180 DATA "/I have nothing to say about/this affair."
2190 DATA "You tell me that you have found/my fingerprints on a window in/the flat that the shot was/fired from."
2200 DATA "You insist that the cartridge/found in the room came from my/rifle."
2210 DATA "/I don't have to explain where/the 20,000 francs in my bank/account came from."
2220 DATA "/Since Tino has talked, I admit/it. I threw the Camel cigarette/butt in the vase and the/cartridge came from my rifle./Tino offered me 30,000 francs/to kill Sidney."
2230 DATA "I was out of work so I accepted./I found an unoccupied flat/opposite Sidney's route to work/and broke in. Then I waited."
2240 DATA "/With the telescopic sights on my/rifle, I had no trouble in/hitting the target with a/single shot. Then I ran away/with my rifle in a sports bag.//I put some money in the bank"
2250 DATA "and kept the rest handy to have/some fun."
2260 DATA "Tino di Nallo, salesman,/Dores Square,/Cournon (63)"
2270 DATA "/I admit having an affair with/Marianne for the last few/months. Since Marianne had/asked her husband for a divorce/I had no need to kill him. At/the time of his death I was/with some customers in Lyon."
2280 DATA "/I did my National Service in/1975 with the 91st Division/at Clermont."
2290 DATA "/You have already interrogated/me and I have nothing further/to add."
2300 DATA "/Ludovic is talking rubbish./I don't know this 'Sergeant' he/is talking about."
2310 DATA "/I have known Languille for a/long time, although I haven't/seen him for ages. I don't see/how he could be involved in/the murder of Sidney."
2320 DATA "/A short time before the murder/I had 30,000 francs in my/account, but I had some/gambling debts that I don't/wish to discuss."
2330 DATA "/I was responsible for the murder/of Marianne's husband./He didn't want the divorce to/take place so I decided to kill/him. I contacted Patrick who/had often told me that he would"
2340 DATA "kill anyone for enough money./I gave him 30,000 francs to/kill Sidney on the day I was in/Lyon. Which is what he did."
2350 DATA "Ludovic Sidney, student,/St James Square,/Clermont (63)"
2360 DATA "/I can't understand why my/father has been killed./Perhaps it was a mistake."
2370 DATA "/I know Tino very well, he is/quite often at the house. I get/on well with him, and he often/ talks about his National/ Service and about motorbikes."
2380 DATA "/I have no information which/could be of any use in your/enquiries."
2390 DATA "/One day Tino told me about a/friend of his from the/ Regiment, called 'Sergeant'./He was the best shot in the/Company."
2400 DATA "/ COMPARISON WITH/ PATRICK LANGUILLE./"
2410 DATA "HE SERVED IN THE SAME REGIMENT/AS TINO DI NALLO."
2420 DATA "HE HAS BEEN IDENTIFIED BY THE/WITNESS, ESTRADE."
2430 DATA "HE OWNS AN AUTOMATIC 7 X 64/ REMINGTON RIFLE."
2440 DATA "THE BALLISTIC REPORT CONFIRMS/THAT IT IS THE WEAPON USED IN/THE SIDNEY SHOOTING."
2450 DATA "HIS FINGERPRINTS CORRESPOND TO/THOSE FOUND IN THE FLAT."
2460 DATA "HE SMOKES CAMEL CIGARETTES."
2470 DATA "ON THE 24TH SEPTEMBER HE PAID/20,000 FRANCS INTO HIS BANK/ACCOUNT."
2480 DATA "COMPARISON WITH TINO DI NALLO./"
2490 DATA "AT THE TIME OF THE MURDER HE WAS/IN LYON."
2500 DATA "HE WAS A ROOM-MATE OF PATRICK/LANGUILLE."
2510 DATA "HE WITHDREW 30,000 FRANCS IN/CASH FROM HIS BANK ACCOUNT ON/THE 20TH OF SEPTEMBER."
2520 DATA "PATRICK LANGUILLE, A.K.A/SERGEANT, SENTENCED TO/ONE YEAR IMPRISONMENT/FOR THE ILLEGAL POSSESS-/ION OF ARMS (4TH/CATEGORY), AFFAIR DEALT/WITH BY CIAT CLERMONT."
2530 DATA "PATRICK LANGUILLE WAS/DETAINED FOR STREET/FIGHTING. HE WAS FOUND/TO BE CARRYING A 357/MAGNUM AND HE NEVER/REVEALED WHERE HE GOT/THE GUN FROM."
2540 DATA "PATRICK LANGUILLE IS NOT/WANTED BY ANY FORCE AT/PRESENT."
2550 DATA "OUR UNIT HAS JUST QUEST-/IONED PATRICK LANGUILLE/WHILE CARRYING OUT A/ROUTINE TRAFFIC ENQUIRY./HE IS AVAILABLE AT OUR/STATION IF YOU REQUIRE/HIM."
2560 DATA "The author congratulates you on solving this mystery. You showed perseverance, intelligence, and an ability for police work in clearing up 'The Sidney Affair'."
2570 DATA "/You will now be promoted - Ready for your next case."
3000 LET s$="": LET Z$="": LET B$="": LET C$="": LET t=0: LET zz=t: LET i=t: LET pho=t: LET em=t: LET me=t: LET ca=t: LET do=t
3010 LET ins=64265: LET noi=64455: LET scr=64510: LET prn=64646: LET iof=65363: LET ion=65365: LET par=65400: LET ist=65225
3020 LET pa=t: LET mar=t: LET sy=t: LET de=t: LET re=t: LET pe=t: LET tin=t
3030 LET gagne=t: LET do1=t: LET do2=t: LET em1=t: LET ba1=t: LET ba2=t: LET lu=t
3040 LET id=t: LET he=t: LET jea=t: LET rec=t: LET tin1=t: LET aut=0
3050 POKE 23624,BIN 00111000: INK 0: PAPER 7: BRIGHT 0
3060 POKE SCR-6,0: POKE scr-5,8: POKE scr-4,1: POKE scr-3,0: POKE scr-1,159
3070 RETURN
4000 LET st=256*PEEK 23654 + PEEK 23653
4020 SAVE " "CODE 23552,st-23500
4050 RANDOMIZE USR 65380
4060 GO TO 1
8000 REM 7/4/87
9000 REM THEO DEVIL-6513841
9999 LET OOPS=IN 159: RETURN
46068
0tZCINT IF iVAL h LOAD RND GO SUB TAB RESTORE [T] LLIST [U] LOAD POINT n NEXT CLS VAL$ o DIM <= CLS COS c PAUSE RETURN CLS VAL r INPUT ▚ DRAW POINT o NEW S COPY POINT o INPUT U COPY VAL a PAUSE x COPY POINT s POKE <> RETURN VAL LLIST TAB a PAUSE COS RANDOMIZE [U] RESTORE SIN RESTORE VAL RESTORE TAN i INPUT PIagn RESTORE [U]oLEN [U]oSIN RNDmLEN [S]aLEN [S]aSIN AT PRINT POINT DATA FN RESTORE SCREEN$ e LLIST SIN e READ TAN inLEN [R]u POKE [R]dph LOAD x COPY [R]de GO SUB y COPY [R]dm RESTORE z COPY [R]dd LOAD { COPY ▝ AND 'zwxX▘Y▗ PRINT :SA E = Examination C = Comparison A = Arrest B
