The Sydney Affair: SYDNEY.B

  1 INK 7: PAPER 7: BORDER 7: POKE 23624,63: CLEAR 32767: RANDOMIZE USR 15619: REM : LOAD "sydney1"CODE 
  2 RANDOMIZE USR 32768: RANDOMIZE USR 15619: REM : LOAD "sydney2"CODE 
  3 RANDOMIZE USR 15619: REM : LOAD "sydney3"CODE 
  4 RANDOMIZE USR 65380
  5 LET t=PEEK 65409: POKE 23659,t
  6 GO SUB 9999
  10 GO TO 30
  15 RANDOMIZE USR ion
  16 POKE 23658,8: LET a$=INKEY$: IF a$="" THEN  GO TO 16
  17 RANDOMIZE USR iof: RETURN 
  19 RANDOMIZE USR 15619: REM : LOAD "sydney4"CODE 
  21 POKE 23659,2: INK 7: PAPER 7: BORDER 7: POKE 23624,63: CLEAR 49999: POKE 50002,2: RANDOMIZE USR 50000
  24 PRINT AT 5,19; INK 0;"THE SIDNEY";AT 7,21;"AFFAIR"
  25 INK 0: PAPER 0
  28 RANDOMIZE USR 15619: REM : LOAD "sydney5"
  29 RETURN 
  30 LET s$="": LET zz=0: LET att=0: LET clef=0: PAPER 0: INK 0: BORDER 0: POKE 23624,0: GO SUB 47
  35 GO SUB 9999
  40 LET adpho=65400: LET adem=adpho+1: LET adme=adem+1: LET addo=adme+1
  42 GO SUB 45: GO TO 50
  45 LET ins=64265: LET noi=64455: LET scr=64510: LET prn=64646: LET iof=65363: LET ion=65365: LET ref=65367: LET lib=32768: RETURN 
  47 GO SUB 9999: POKE 23659,2: CLS : LET t=PEEK 65409: POKE 23659,t: RETURN 
  50 GO SUB 9999: GO SUB 700: GO SUB 9999: GO SUB 800
  60 POKE ins-8,224: POKE ins-6,2: POKE ins-5,16: POKE ins-4,8: POKE ins-3,1: POKE ins-2,15: POKE ins-1,16
  65 GO SUB 9999
  70 FOR n=1 TO 4: BEEP .353,26: BEEP .353,10: NEXT n: RANDOMIZE USR iof: GO TO 90
  80 LET z1=INT (z/10): LET z2=z-(10*z1): IF z1=zz THEN  GO TO 86
  84 LET zz=z1: POKE lib+2,z1: POKE lib+123,224: POKE lib+196,248: RANDOMIZE USR iof: RANDOMIZE USR lib: POKE lib+123,64: POKE lib+196,88
  86 POKE ins-7,z2: RANDOMIZE USR ins: RETURN 
  90 BORDER 2: PAPER 2: INK 0: BRIGHT 0: GO SUB 47: BRIGHT 1: LET fene=0: LET aa=3: LET x=13: LET y=6
  95 GO SUB 9999
  100 PAPER 8: INK 8: OVER 1
  105 POKE 32770,aa: POKE 32891,192: POKE 32964,216: RANDOMIZE USR iof: RANDOMIZE USR 32768: POKE 32891,64: POKE 32964,88: GO SUB 200
  110 GO SUB 15
  120 IF (a$=CHR$ 9 OR a$="8") AND ((y<11 AND x<23) OR x<20) THEN  LET x=x+1: GO SUB 200: GO TO 110
  130 IF (a$=CHR$ 8 OR a$="5") AND x>2 THEN  LET x=x-1: GO SUB 200: GO TO 110
  140 IF (a$=CHR$ 11 OR a$="7") AND y>1 THEN  LET y=y-1: GO SUB 200: GO TO 110
  145 GO SUB 9999
  150 IF (a$=CHR$ 10 OR a$="6") AND ((x<21 AND y<12) OR y<10) THEN  LET y=y+1: GO SUB 200: GO TO 110
  160 IF a$=" " THEN  GO TO 320
  170 IF a$<>CHR$ 13 THEN  GO TO 110
  172  IF fene=1 THEN  GO TO 900
  174 LET fene=1: BORDER 6: PAPER 6: BRIGHT 0: GO SUB 47: BRIGHT 1: LET aa=4: LET x=19: LET y=6
  175 GO SUB 9999
  180 GO TO 100
  190 CLS : STOP 
  200 RANDOMIZE USR ref: PRINT AT y,x;e$;AT y+1,x;f$: RETURN 
  210 READ a$: LET a=LEN a$: LET a1=a-16*(INT (a/16))
  220 FOR t=0 TO INT (a/16)-1
  230 LET s$=a$(16*t+1 TO 16*t+16)
  240 PRINT AT 13+t,24;: RANDOMIZE USR prn
  250 NEXT t: IF a1=0 THEN  GO TO 310
  260 LET s$=a$(16*t+1 TO )
  270 PRINT AT 13+t,24;: RANDOMIZE USR prn
  310 RETURN 
  320 IF fene=1 THEN  GO TO 360
  325 IF x=18 AND y=9 THEN  GO TO 400
  330 IF x=20 AND y=7 THEN  GO TO 410
  340 IF x=15 AND y=1 THEN  GO TO 420
  350 IF x>=10 AND x<=11 AND y=9 THEN  GO TO 430
  355 GO TO 110
  360 IF x=4 AND y=6 THEN  GO TO 470
  370 IF x=14 AND y=9 THEN  GO TO 480
  380 IF x=10 AND y=12 THEN  GO TO 490
  390 GO TO 110
  400 LET z=52: GO SUB 80: LET clef=1: RESTORE 510: GO SUB 210: GO TO 110
  410 LET z=55: GO SUB 80: RESTORE 520: GO SUB 210: GO TO 110
  420 LET z=56: GO SUB 80: RESTORE 530: GO SUB 210: GO TO 110
  430 IF att=0 OR clef=0 THEN  LET z=51: GO SUB 80: RESTORE 540: LET att=1: GO SUB 210: GO TO 110
  440 GO SUB 200: LET z=53: GO SUB 80: RESTORE 550: GO SUB 210
  450 GO SUB 15
  455 IF a$<>" " THEN  GO TO 120
  460 GO SUB 200: LET z=54: GO SUB 80: RESTORE 560: GO SUB 210: POKE adpho,1: GO TO 110
  470 LET z=61: GO SUB 80: RESTORE 570: GO SUB 210: POKE adem,1: GO TO 110
  480 LET z=62: GO SUB 80: RESTORE 580: GO SUB 210: POKE adme,1: GO TO 110
  490 LET z=63: GO SUB 80: RESTORE 590: GO SUB 210: POKE addo,1: GO TO 110
  510 DATA "A key with the  initials SJ."
  520 DATA "Wallet with     driving licence,ID and Visa     cards of James  Sidney, married with 2 children and living at 5 St James Square,Clermont."
  530 DATA "A bullet hole   in the house    wall."
  540 DATA "A locked brief- case, marked SJ."
  550 DATA "Contents include a diary with   entries:        Maitre Decol,   Jade Place,     Clermont                        J.Renard,       (7) 803 1846"
  560 DATA "Black and white photograph,     impossible to   identify the    kissing couple."
  570 DATA "A fingerprint   on the window."
  580 DATA "Cigarette butt, marked CAMEL,   stubbed out in  the plant-pot."
  590 DATA "Spent cartridge, 7x64, still    smelling of     cordite."
  700 RESTORE 790: FOR i=79 TO 84
  710 FOR j=0 TO 7: READ a: POKE (USR CHR$ i)+j,a: NEXT j
  720 NEXT i
  730 LET e$=CHR$ 158+CHR$ 159+CHR$ 160
  735 LET f$=CHR$ 161+CHR$ 162+CHR$ 163
  740 RETURN 
  790 DATA 3,15,28,48,96,97,192,192
  791 DATA 224,248,28,6,3,131,65,33
  792 DATA 0,0,0,0,0,0,128,255
  793 DATA 192,192,224,96,112,60,15,3
  794 DATA 1,1,3,3,7,30,248,224
  795 DATA 255,255,128,0,0,0,0,0
  800 REM 
  810 POKE 32770,1: RANDOMIZE USR iof: RANDOMIZE USR 32768
  820 POKE ins-6,4: POKE ins-5,8: POKE ins-4,10: POKE ins-3,22: POKE ins-2,3: POKE ins-1,7
  830 LET z=21: GO SUB 80
  840 FOR i=1 TO 200: NEXT i
  845 BEEP .01=,20: RANDOMIZE USR noi
  850 FOR z=22 TO 28: GO SUB 80: FOR i=1 TO 15: NEXT i: NEXT z
  860 FOR i=1 TO 100: NEXT i
  880 RETURN 
  900 PAPER 7: INK 2: BRIGHT 1: OVER 0: LET b$=CHR$ 143
  905 RANDOMIZE USR ref: PRINT AT 3,4;b$;: FOR t=0 TO 23: PRINT b$;: NEXT t
  910 FOR t=4 TO 20: PRINT AT t,4;b$: PRINT AT t,28;b$: NEXT t
  915 PRINT AT 21,4;b$;: FOR t=0 TO 23: PRINT b$;: NEXT t
  920 INK 2
  930 PRINT AT 4,5;" All evidence must be  "
  935 PRINT AT 5,5;" examined every time   "
  940 PRINT AT 6,5;" before you leave the  "
  945 PRINT AT 7,5;" scene of the crime.   "
  950 PRINT AT 8,5;" The course of the     "
  955 PRINT AT 9,5;" investigation depends "
  960 PRINT AT 10,5;" on your care....      "
  962 PRINT AT 11,5;" _____________________ "
  964 PRINT AT 12,5;"                       "
  965 PRINT AT 13,5;" To leave this part of "
  970 PRINT AT 14,5;" the investigation,    "
  975 PRINT AT 15,5;"    press  'ENTER'.    "
  977 PRINT AT 16,5;"                       "
  980 PRINT AT 17,5;" Otherwise, if you wish"
  985 PRINT AT 18,5;" to review the scenes  "
  990 PRINT AT 19,5;" of crime, press 'R'.  "
  995 PRINT AT 20,5;"                       "
  1000 GO SUB 15
  1010 PAPER 7: INK 2
  1020 IF a$=CHR$ 13 THEN  GO TO 1050
  1030 IF a$="R" THEN  GO TO 90
  1040 GO TO 1000
  1050 FOR t=4 TO 20: PRINT AT t,5;"                       ": NEXT t
  1060 PRINT AT 6,7;"POSITION  TAPE AT";AT 7,8;"START OF SIDE 2"
  1070 PRINT AT 11,8;"NOW PRESS ANY KEY";AT 12,10;"AND START TAPE";AT 13,7;"TO LOAD SECOND PART"
  1080 PRINT AT 16,7;"GOOD LUCK WITH YOUR";AT 17,10;"INVESTIGATIONS!"
  1090 GO SUB 15
  1100 FOR t=1 TO 80: NEXT t: INK 7: PRINT AT 18,5;
  1110 RANDOMIZE USR ion: GO TO 18
  8000 REM 7/4/87
  9000 REM  THEO DEVIL-6513841 
  9999 LET OOPS=IN 159: RETURN