-
Notifications
You must be signed in to change notification settings - Fork 16
/
Copy pathplaces3.zap
1704 lines (1557 loc) · 51.8 KB
/
places3.zap
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
.FUNCT RT-AC-RM-221B-BAKER-ST,CONTEXT
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
ZERO? STACK \?CCL3
ZERO? CONTEXT \FALSE
EQUAL? GL-PRSA,V?ENTER \FALSE
EQUAL? GL-PLACE-CUR,RM-ENTRY-HALL \FALSE
ICALL2 RT-DO-WALK,P?EAST
RTRUE
?CCL3: EQUAL? CONTEXT,K-M-DESC-2 \?CND1
EQUAL? GL-PLACE-PRV,RM-ENTRY-HALL \?CCL14
PRINTI "You emerge from the house into"
JUMP ?CND12
?CCL14: PRINTI "You"
ICALL1 RT-DRIVE-WALK-MSG?
PRINTI "into"
?CND12: PRINTI " Baker Street."
CRLF
CRLF
?CND1: EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \?CND15
PRINTI "You are"
ICALL1 RT-IN-VEHICLE-MSG
CALL1 RT-TIME-OF-DAY
EQUAL? STACK,0,1,3 \?CND17
PRINTI "in the spill of a gas streetlight "
?CND17: PRINTI "outside Holmes's house. The street "
CALL1 RT-TIME-OF-DAY
ZERO? STACK \?CCL21
PRINTI "disappears into the fog"
JUMP ?CND19
?CCL21: PRINTI "continues"
?CND19: PRINTI " to the north and south. The door to the house is to the west."
CRLF
?CND15: EQUAL? CONTEXT,K-M-DESC-1 \?CCL24
FSET LG-BAKER-ST-DOOR,FL-SEEN
FSET CH-PLAYER,FL-SEEN
CRLF
PRINTR "You have come in response to an urgent summons from your old landlady, Mrs Hudson. As the fog swirls around you, you huddle into your coat and shiver in the predawn chill."
?CCL24: EQUAL? CONTEXT,K-M-DESC-3,K-M-DESC-2 \?CCL26
IN? CH-HOLMES,RM-221B-BAKER-ST \FALSE
ZERO? GL-PUPPY \FALSE
CRLF
ICALL2 RT-CTHEO-PRINT,CH-HOLMES
PRINTI " says, ""Ah, there you are Watson. While you were inside I gave our little problem some thought. Obviously the person who stole the Crown Jewels wanted the authorities to turn to me for help, and it is equally obvious that the thief has laid down a trail for me to follow, in hopes of somehow entrapping me."
CRLF
CRLF
PRINTI """So let's play his game, Doctor. But let's play it by our rules. The thief will have tried to anticipate the sequence of my actions, and I'm sure he has laid his trap accordingly. But if "
HLIGHT K-H-ITL
PRINTI "you"
HLIGHT K-H-NRM
PRINTI " were to guide the course of our investigations, he will certainly be thrown off the scent."
CRLF
CRLF
PRINTI """Therefore, let us take surprise onto our side and rely on your instincts as the man of action I know you to be - despite your frequent modest assertions to the contrary."" He steps to one side and says, ""Lead on, good Doctor. I will follow."" Holmes gestures for you to lead the way."
CRLF
SET 'GL-PUPPY,CH-HOLMES
SET 'GL-PUPPY-MSG?,FALSE-VALUE
RTRUE
?CCL26: EQUAL? CONTEXT,K-M-DESC-2,K-M-DESC-3 /FALSE
RFALSE
.FUNCT RT-AC-RM-ENTRY-HALL,CONTEXT
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
ZERO? STACK \?CCL3
ZERO? CONTEXT \FALSE
EQUAL? GL-PRSA,V?ENTER \FALSE
EQUAL? GL-PLACE-CUR,RM-221B-BAKER-ST \?CCL10
ICALL2 RT-DO-WALK,P?WEST
RTRUE
?CCL10: EQUAL? GL-PLACE-CUR,RM-PARLOUR \?CCL12
ICALL2 RT-DO-WALK,P?SOUTH
RTRUE
?CCL12: EQUAL? GL-PLACE-CUR,RM-VESTIBULE \?CCL14
ICALL2 RT-DO-WALK,P?DOWN
RTRUE
?CCL14: PRINTI "You'll have to be more explicit."
CRLF
RFALSE
?CCL3: EQUAL? CONTEXT,K-M-DESC-1 \?CCL16
FSET CH-HUDSON,FL-SEEN
FSET RM-ENTRY-HALL,FL-TOUCHED
CRLF
PRINTI "You step inside and Mrs Hudson closes the door behind you. The entry hall is just as you remember it - small, underheated, and lit by a feeble gas light. "
PRINT K-WELL-WORN-MSG
RTRUE
?CCL16: EQUAL? CONTEXT,K-M-DESC-2 \?CCL18
EQUAL? GL-PLACE-PRV,RM-221B-BAKER-ST \?CCL21
PRINTI "You enter the house and pause in the entry hall. "
PRINT K-WELL-WORN-MSG
CRLF
RFALSE
?CCL21: EQUAL? GL-PLACE-PRV,RM-VESTIBULE \?CCL23
PRINTI "You descend the stairs into the entry hall. The parlour door is to the north. "
ICALL2 RT-OPEN-CLOSED-MSG,LG-BAKER-ST-DOOR
CRLF
RFALSE
?CCL23: PRINTI "You walk out into the entry hall. "
ICALL2 RT-OPEN-CLOSED-MSG,LG-BAKER-ST-DOOR
CRLF
RFALSE
?CCL18: EQUAL? CONTEXT,K-M-DESC-3 \?CCL25
PRINT K-WELL-WORN-MSG
PRINTC 32
ICALL2 RT-OPEN-CLOSED-MSG,LG-BAKER-ST-DOOR
CRLF
RFALSE
?CCL25: GETP RM-ENTRY-HALL,P?OBJ-NOUN
EQUAL? STACK,W?HOUSE \FALSE
CALL1 RT-AC-LG-HOLMES-HOUSE
RSTACK
.FUNCT RT-AC-RM-PARLOUR,CONTEXT
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
ZERO? STACK \?CCL3
ZERO? CONTEXT \FALSE
EQUAL? GL-PRSA,V?ENTER \?CCL8
EQUAL? GL-PLACE-CUR,RM-ENTRY-HALL \FALSE
ICALL2 RT-DO-WALK,P?NORTH
RTRUE
?CCL8: EQUAL? GL-PRSA,V?EXIT \FALSE
EQUAL? GL-PLACE-CUR,RM-PARLOUR \FALSE
ICALL2 RT-DO-WALK,P?SOUTH
RTRUE
?CCL3: EQUAL? CONTEXT,K-M-DESC-1 \?CND1
FSET TH-MATCHBOOK,FL-SEEN
?CND1: EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL17
PRINTI "You walk into"
JUMP ?CND15
?CCL17: EQUAL? CONTEXT,K-M-DESC-3 \?CND15
PRINTI "You are in"
?CND15: PRINTI " a dreary, late Victorian Era parlour."
CRLF
RFALSE
.FUNCT RT-AC-RM-VESTIBULE,CONTEXT
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
ZERO? STACK \?CCL3
ZERO? CONTEXT \FALSE
EQUAL? GL-PRSA,V?ENTER \FALSE
EQUAL? GL-PLACE-CUR,RM-HOLMES-STUDY \?CCL10
ICALL2 RT-DO-WALK,P?SOUTH
RTRUE
?CCL10: EQUAL? GL-PLACE-CUR,RM-ENTRY-HALL \FALSE
ICALL2 RT-DO-WALK,P?UP
RTRUE
?CCL3: EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CND1
EQUAL? GL-PLACE-PRV,RM-ENTRY-HALL \?CCL15
PRINTI "You climb the stairs"
JUMP ?CND13
?CCL15: PRINTI "You leave the study"
?CND13: PRINTI " and pause outside the door"
EQUAL? CONTEXT,K-M-DESC-1 \?CCL18
FSET LG-HOLMES-STUDY-DOOR,FL-SEEN
PRINTI " to Holmes's study, nervous about what you might find inside. "
JUMP ?CND1
?CCL18: PRINTI ". "
?CND1: EQUAL? CONTEXT,K-M-DESC-2,K-M-DESC-3 \?CND19
PRINTI "You are on a landing at the top of the stairs."
?CND19: CRLF
CRLF
PRINTI "Holmes's study is to the north."
CRLF
RFALSE
.FUNCT RT-AC-RM-HOLMES-STUDY,CONTEXT
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
ZERO? STACK \?CCL3
ZERO? CONTEXT \FALSE
EQUAL? GL-PRSA,V?ENTER \FALSE
EQUAL? GL-PLACE-CUR,RM-VESTIBULE \?CCL10
ICALL2 RT-DO-WALK,P?NORTH
RTRUE
?CCL10: EQUAL? GL-PLACE-CUR,RM-HOLMES-BEDROOM \FALSE
ICALL2 RT-DO-WALK,P?EAST
RTRUE
?CCL3: EQUAL? CONTEXT,K-M-DESC-1 \?CND1
PRINTI "You step back through time to your bachelor days, when you shared these cluttered digs with the world's only consulting detective. Despite the mess, you can see that the room is unchanged. The fireplace to the north has a pile of letters transfixed to its mantelpiece by a jackknife. Next to them lies Holmes's six-shot revolver, the tobacco slipper, and Holmes's favorite pipe. The violin has been carelessly tossed onto a stack of obviously unread newspapers."
CRLF
CRLF
ICALL2 RT-AC-CH-HOLMES,K-M-DESCFCN
CRLF
FSET TH-MANTELPIECE,FL-SEEN
FSET TH-VIOLIN,FL-SEEN
FSET TH-NEWSPAPER,FL-SEEN
FSET TH-SYRINGE,FL-SEEN
FSET TH-PHIAL,FL-SEEN
FSET TH-MAIL,FL-SEEN
FSET TH-GUN,FL-SEEN
FSET TH-KNIFE,FL-SEEN
FSET TH-PERSIAN-SLIPPER,FL-SEEN
FSET TH-PIPE,FL-SEEN
FSET TH-LIQUID,FL-SEEN
FSET TH-MOROCCO-CASE,FL-SEEN
FSET TH-SOFA,FL-SEEN
FSET CH-HOLMES,FL-SEEN
FSET LG-HOLMES-BEDROOM-DOOR,FL-SEEN
?CND1: EQUAL? CONTEXT,K-M-DESC-2 \?CCL15
PRINTI "You return to Holmes's study, which"
JUMP ?CND13
?CCL15: EQUAL? CONTEXT,K-M-DESC-3 \?CND13
PRINTI "The study"
?CND13: EQUAL? CONTEXT,K-M-DESC-2,K-M-DESC-3 \?CND17
PRINTI " is in its usual disarray."
CRLF
FSET? CH-HOLMES,FL-ASLEEP \?CND19
CRLF
ICALL2 RT-AC-CH-HOLMES,K-M-DESCFCN
?CND19: IN? CH-PRIME-MINISTER,RM-HOLMES-STUDY \?CCL23
CRLF
FSET? CH-PRIME-MINISTER,FL-SEEN /?CCL26
FSET CH-PRIME-MINISTER,FL-SEEN
ICALL2 RT-THIS-IS-IT,CH-PRIME-MINISTER
PRINTI "You see a distinguished-looking visitor sitting in the armchair. "
JUMP ?CND17
?CCL26: PRINTI "The visitor fidgets nervously in his chair. "
JUMP ?CND17
?CCL23: CRLF
?CND17: ICALL2 RT-CTHEO-PRINT,LG-HOLMES-BEDROOM-DOOR
PRINTI " to the west is "
FSET? LG-HOLMES-BEDROOM-DOOR,FL-OPENED \?CCL29
PRINTI "open"
JUMP ?CND27
?CCL29: PRINTI "closed"
?CND27: PRINTI ". The only other exit is the door to the south."
CRLF
EQUAL? CONTEXT,K-M-DESC-1 /TRUE
EQUAL? CONTEXT,K-M-DESC-2,K-M-DESC-3 /FALSE
RFALSE
.FUNCT RT-AC-RM-HOLMES-BEDROOM,CONTEXT
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
ZERO? STACK \?CND1
ZERO? CONTEXT \FALSE
EQUAL? GL-PRSA,V?ENTER \FALSE
EQUAL? GL-PLACE-CUR,RM-HOLMES-STUDY \FALSE
ICALL2 RT-DO-WALK,P?WEST
RTRUE
?CND1: PRINTI "This is a sparsely furnished room, whose walls are adorned only by scores of pictures of famous criminals. On a disorderly workbench in the corner, a jumble of laboratory equipment suggests that Holmes is in the middle of one of his chemical experiments. "
IN? TH-ETHERIUM-AMPOULE,TH-WORKBENCH \?CND9
PRINTI "Set off to one side is a single ampoule with a neatly lettered label affixed to it. "
?CND9: PRINTI "The room's only exit is to the east."
CRLF
EQUAL? CONTEXT,K-M-DESC-1 \?CCL13
FSET TH-BED,FL-SEEN
FSET TH-BEDSIDE-TABLE,FL-SEEN
FSET TH-ETHERIUM-AMPOULE,FL-SEEN
FSET TH-LAB-EQUIPMENT,FL-SEEN
FSET TH-WORKBENCH,FL-SEEN
FSET TH-LAMP,FL-SEEN
FSET TH-MAGNIFYING-GLASS,FL-SEEN
CRLF
PRINTR "Next to the bed there is a table, on which you see a lamp and Holmes's favorite magnifying glass. "
?CCL13: EQUAL? CONTEXT,K-M-DESC-2,K-M-DESC-3 /FALSE
RFALSE
.FUNCT RT-AC-RM-YORK-PLACE,CONTEXT
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
ZERO? STACK /FALSE
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \?CND1
CALL1 RT-TIME-OF-DAY
ZERO? STACK \?CCL7
PRINTI "Through the mist you see"
JUMP ?CND5
?CCL7: PRINTI "This is"
?CND5: PRINTI " a quiet, residential street, lined with undistinguished, four storey Georgian houses. To the south, York Place opens up into Baker Street, and Marylebone Road comes in from the east."
CRLF
?CND1: CALL1 RT-TIME-OF-DAY
EQUAL? STACK,1,2,3 \FALSE
CRLF
PRINTI "The street isn't as quiet as usual, due to the surging crowds of tourists."
CRLF
RFALSE
.FUNCT RT-AC-RM-MARYLEBONE-RD,CONTEXT,WHO
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
ZERO? STACK \?CND1
ZERO? CONTEXT \FALSE
EQUAL? GL-PRSA,V?ENTER \FALSE
EQUAL? GL-PLACE-CUR,RM-MADAME-TUSSAUDS \FALSE
ICALL2 RT-DO-WALK,P?SOUTH
RTRUE
?CND1: CALL1 RT-WHO-SAYS? >WHO
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL11
EQUAL? GL-PLACE-PRV,RM-MADAME-TUSSAUDS \?CCL14
PRINTI "You go out the door and are now"
JUMP ?CND9
?CCL14: PRINTI "You find yourself"
JUMP ?CND9
?CCL11: PRINTI "You are"
?CND9: ICALL1 RT-IN-VEHICLE-MSG
PRINTI "in front of Madame Tussaud's famous wax museum. From here the street continues east and west."
CRLF
CRLF
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL17
PRINTI "The museum is closed for renovations, and there is a guard and a dog patrolling the street outside the entrance, which is just to the north of you. The guard "
RANDOM 100
LESS? 33,STACK /?CCL20
PRINTI "lights"
JUMP ?CND18
?CCL20: RANDOM 100
LESS? 50,STACK /?CCL22
PRINTI "puffs on"
JUMP ?CND18
?CCL22: PRINTI "puts out"
?CND18: PRINTI " a cigarette, tips his hat, and says, """
EQUAL? GL-PLACE-PRV,RM-MADAME-TUSSAUDS \?CCL25
PRINTI "Goodbye"
JUMP ?CND23
?CCL25: CALL1 RT-TIME-OF-DAY
ZERO? STACK \?CCL27
PRINTI "Hello"
JUMP ?CND23
?CCL27: CALL1 RT-TIME-OF-DAY
EQUAL? STACK,1 \?CCL29
PRINTI "Top of the morning to you"
JUMP ?CND23
?CCL29: CALL1 RT-TIME-OF-DAY
EQUAL? STACK,2 \?CCL31
PRINTI "Good day"
JUMP ?CND23
?CCL31: CALL1 RT-TIME-OF-DAY
EQUAL? STACK,3 \?CND23
PRINTI "Good evening"
?CND23: EQUAL? WHO,CH-HOLMES \?CCL35
PRINTI ", Mr Holmes"
JUMP ?CND33
?CCL35: PRINTI ", Doctor Watson"
?CND33: PRINTI "."""
CRLF
JUMP ?CND15
?CCL17: EQUAL? CONTEXT,K-M-DESC-3 \?CND15
PRINTI "The guard and the dog are still here, and they show no signs of leaving."
CRLF
?CND15: IN? CH-PLAYER,TH-HANSOM-CAB /?CND37
IN? CH-PLAYER,TH-GROWLER-CAB /?CND37
ICALL2 SOUNDS,S-GROWL
CRLF
PRINTI "The dog growls at you."
CRLF
?CND37: EQUAL? CONTEXT,K-M-DESC-1 \FALSE
FSET CH-TUSSAUDS-GUARD,FL-SEEN
FSET CH-MATCH-SNIFFING-DOG,FL-SEEN
FSET TH-CIGARETTE,FL-SEEN
RTRUE
.FUNCT RT-AC-RM-CHAMBER-OF-HORRORS,CONTEXT
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
ZERO? STACK \?CCL3
ZERO? CONTEXT \FALSE
EQUAL? GL-PRSA,V?ENTER \?CCL8
EQUAL? GL-PLACE-CUR,RM-MADAME-TUSSAUDS \FALSE
ICALL2 RT-DO-WALK,P?WEST
RTRUE
?CCL8: EQUAL? GL-PRSA,V?EXIT \FALSE
EQUAL? GL-PLACE-CUR,RM-CHAMBER-OF-HORRORS \FALSE
ICALL2 RT-DO-WALK,P?EAST
RTRUE
?CCL3: EQUAL? CONTEXT,K-M-DESC-1 \?CND1
FSET TH-CHARLES-STATUE,FL-SEEN
FSET TH-THOMAS-STATUE,FL-SEEN
FSET TH-FAWKES-STATUE,FL-SEEN
?CND1: EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL17
PRINTI "You enter"
JUMP ?CND15
?CCL17: PRINTI "You are in"
?CND15: PRINTI " the Chamber of Horrors. Scattered around the room are wax groupings of some of the most gruesome scenes from English history. The only exit is to the east."
CRLF
RFALSE
.FUNCT RT-AC-RM-TOTTENHAM-COURT-RD,CONTEXT
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
ZERO? STACK /FALSE
EQUAL? CONTEXT,K-M-DESC-1 \?CND1
FSET LG-SHOPS,FL-SEEN
?CND1: EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \?CND5
PRINTI "This part of London is known for its furniture dealers, but all the shops seem to be closed for the Jubilee."
CRLF
CRLF
PRINTI "Marylebone Road goes off to the west here, and Tottenham Court Road continues to the south."
CRLF
?CND5: CALL1 RT-TIME-OF-DAY
EQUAL? STACK,1,2,3 \?CCL9
CRLF
PRINTI "Throngs of shoppers peer in the windows of the closed shops."
CRLF
RFALSE
?CCL9: CRLF
ICALL1 RT-FOG-MSG
RFALSE
.FUNCT RT-AC-RM-ST-GILES-CIRCUS,CONTEXT
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
ZERO? STACK /FALSE
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \FALSE
PRINTI "You are"
ICALL1 RT-IN-VEHICLE-MSG
PRINTI "in St Giles Circus. Roads lead off in many directions."
CRLF
RFALSE
.FUNCT RT-AC-RM-OXFORD-ST,CONTEXT
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
ZERO? STACK /FALSE
PRINTI "Oxford Street is London's busiest shopping thoroughfare"
CALL1 RT-TIME-OF-DAY
ZERO? STACK \?CND3
PRINTI ", although at this hour the street is deserted"
?CND3: PRINTI ". Fashionable emporiums line the street on either side, offering goods from all over the British Empire. Unfortunately, they all seem to be closed for the Jubilee."
CRLF
CRLF
CALL1 RT-TIME-OF-DAY
EQUAL? STACK,1,2,3 \?CND5
PRINTI "Hoards of frustrated tourists mill about, peering in the windows of the closed shops."
CRLF
CRLF
?CND5: PRINTI "The street continues to the east and west."
CRLF
EQUAL? CONTEXT,K-M-DESC-1 \FALSE
FSET LG-SHOPS,FL-SEEN
CALL2 RT-META-LOC,TH-GROWLER-CAB
EQUAL? STACK,RM-OXFORD-ST \TRUE
IN? CH-PLAYER,TH-GROWLER-CAB /TRUE
FSET TH-GROWLER-CAB,FL-SEEN
CRLF
PRINTR "At a cabstand along the curb you see a growler cab."
.FUNCT RT-AC-RM-ORCHARD-ST,CONTEXT
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
ZERO? STACK /FALSE
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \?CND1
PRINTI "Orchard Street is the southern extension of Baker Street. From here you can see Oxford Street off to the east, Baker Street to the north, and Audley Street "
CALL1 RT-TIME-OF-DAY
ZERO? STACK \?CCL7
PRINTI "fading into the mists"
JUMP ?CND5
?CCL7: PRINTI "continuing"
?CND5: PRINTI " to the south."
CRLF
CRLF
?CND1: CALL1 RT-TIME-OF-DAY
EQUAL? STACK,1,2 \?CCL10
PRINTI "Crowds of tourists stream eastward, "
CALL1 RT-TIME-OF-DAY
EQUAL? STACK,1 \?CCL13
PRINTI "looking forward to spending the day in the shops along Oxford Street."
CRLF
RFALSE
?CCL13: PRINTI "intent on finding some bargains in the shops on Oxford Street."
CRLF
RFALSE
?CCL10: CALL1 RT-TIME-OF-DAY
EQUAL? STACK,3 \?CCL15
PRINTI "Frustrated tourists stream westward, angered by the closed shops in Oxford Street."
CRLF
RFALSE
?CCL15: ICALL1 RT-FOG-MSG
RFALSE
.FUNCT RT-AC-RM-AUDLEY-ST,CONTEXT
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
ZERO? STACK /FALSE
PRINTI "This is a pleasant street that winds through Mayfair, a fashionable district which takes its name from an ancient fair held there in May of each year."
CRLF
CRLF
PRINTI "To the south is Hyde Park Corner, and to the north is Orchard Street."
CRLF
CALL1 RT-TIME-OF-DAY
ZERO? STACK \FALSE
CRLF
ICALL1 RT-FOG-MSG
RFALSE
.FUNCT RT-AC-RM-HYDE-PARK-CORNER,CONTEXT
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
ZERO? STACK \?CND1
ZERO? CONTEXT \FALSE
EQUAL? GL-PRSA,V?ENTER \FALSE
EQUAL? GL-PLACE-CUR,RM-KENSINGTON-GARDENS \FALSE
ICALL2 RT-DO-WALK,P?SE
RTRUE
?CND1: EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \?CND9
PRINTI "Hyde Park Corner is dominated by the Wellington Arch, a soaring monument to the ""Iron Duke,"" who defeated Napoleon at the Battle of Waterloo."
CRLF
CRLF
?CND9: CALL1 RT-TIME-OF-DAY
EQUAL? STACK,1,2,3 \?CCL13
PRINTI "Huge crowds of tourists gape up at the Arch."
CRLF
CRLF
JUMP ?CND11
?CCL13: PRINTI "The arch is enshrouded in fog."
CRLF
CRLF
?CND11: PRINTI "Roads lead off in many directions."
CRLF
RFALSE
.FUNCT RT-AC-RM-KENSINGTON-GARDENS,CONTEXT
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
ZERO? STACK \?CCL3
ZERO? CONTEXT \FALSE
EQUAL? GL-PRSA,V?ENTER \FALSE
EQUAL? GL-PLACE-CUR,RM-HYDE-PARK-CORNER \FALSE
ICALL2 RT-DO-WALK,P?NW
RTRUE
?CCL3: EQUAL? CONTEXT,K-M-DESC-1 \?CND1
FSET CH-NANNIES,FL-SEEN
FSET TH-PRAMS,FL-SEEN
FSET TH-PARK-FLOWERS,FL-SEEN
?CND1: CALL1 RT-TIME-OF-DAY
EQUAL? STACK,1,2,3 \?CCL13
PRINTI "A tide of perambulators pushed by well-starched nannies surges along the crowded walk. Everywhere you look there are rows and rows of beautiful flowers."
CRLF
RFALSE
?CCL13: PRINTI "The flower gardens are deserted."
CRLF
CRLF
ICALL1 RT-FOG-MSG
RFALSE
.FUNCT RT-AC-RM-TRAFALGAR-SQUARE,CONTEXT
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
ZERO? STACK \?CCL3
ZERO? CONTEXT \FALSE
EQUAL? GL-PRSA,V?ENTER \FALSE
EQUAL? GL-PLACE-CUR,RM-DIOGENES-CLUB \FALSE
ICALL2 RT-DO-WALK,P?EAST
RTRUE
?CCL3: EQUAL? CONTEXT,K-M-DESC-1 \?CND1
FSET TH-PIGEONS,FL-SEEN
FSET TH-NELSON-COLUMN,FL-SEEN
FSET TH-NELSON-EYE,FL-SEEN
FSET TH-NELSON-STATUE,FL-SEEN
?CND1: EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \?CND11
PRINTI "Pigeons, pigeons, everywhere. You are"
ICALL1 RT-IN-VEHICLE-MSG
PRINTI "in one of the great open spaces of London, named for Nelson's naval victory over Napoleon in 1805. Streets come in and go out at all angles, and everywhere you look there are "
CALL1 RT-TIME-OF-DAY
EQUAL? STACK,1,2,3 \?CND13
PRINTI "people feeding "
?CND13: PRINTI "pigeons."
CRLF
CRLF
PRINTI "The square is dominated by Nelson's Column, a 167 foot tall Corinthian column with"
PRINT K-NELSON-STATUE-MSG
CRLF
CRLF
PRINTI "The entrance to the Diogenes Club is to the west."
CRLF
?CND11: CALL1 RT-TIME-OF-DAY
ZERO? STACK \FALSE
CRLF
ICALL1 RT-FOG-MSG
RFALSE
.FUNCT RT-AC-RM-DIOGENES-CLUB,CONTEXT
EQUAL? CONTEXT,K-M-ENTERED \?CCL3
ICALL SOUNDS,S-SNORE,S-START
JUMP ?CND1
?CCL3: EQUAL? CONTEXT,K-M-EXIT \?CND1
ICALL SOUNDS,S-SNORE,S-STOP
?CND1: CALL2 RT-DESCFCN-CONTEXT,CONTEXT
ZERO? STACK \?CCL7
ZERO? CONTEXT \FALSE
EQUAL? GL-PRSA,V?ENTER \FALSE
EQUAL? GL-PLACE-CUR,RM-TRAFALGAR-SQUARE \FALSE
ICALL2 RT-DO-WALK,P?WEST
RTRUE
?CCL7: EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL15
PRINTI "You enter the hushed atmosphere of the Diogenes Club. The furnishings are aging and opulent. The members are aging and asleep. The only exit is to the east."
CRLF
CRLF
FSET? CH-BUTLER,FL-ASLEEP /?CCL18
PRINTI "An ancient butler totters forward to greet you and says in a barely audible whisper, ""May I be of some assistance?"""
CRLF
JUMP ?CND5
?CCL18: PRINT K-EVERYONE-OUT-MSG
CRLF
JUMP ?CND5
?CCL15: PRINTI "You are in the Diogenes Club. "
FSET? CH-BUTLER,FL-ASLEEP /?CCL21
PRINTI "The butler is here, waiting to serve you."
JUMP ?CND19
?CCL21: PRINT K-EVERYONE-OUT-MSG
?CND19: CRLF
?CND5: EQUAL? CONTEXT,K-M-DESC-1 \FALSE
FSET CH-BUTLER,FL-SEEN
FSET CH-MEMBERS,FL-SEEN
RTRUE
.FUNCT RT-AC-RM-GREAT-RUSSELL-ST,CONTEXT
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \?CCL3
PRINTI "Great Russell Street is the home of the British Museum, the entrance of which is to the north. There is a sign next to the door."
CRLF
CRLF
PRINTI "To the southwest you can see St Giles Circus."
CRLF
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
EQUAL? GL-PRSA,V?ENTER \FALSE
EQUAL? GL-PLACE-CUR,RM-BRITISH-MUSEUM \FALSE
ICALL2 RT-DO-WALK,P?SOUTH
RTRUE
.FUNCT RT-AC-RM-BRITISH-MUSEUM,CONTEXT
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
ZERO? STACK \?CCL3
ZERO? CONTEXT \FALSE
EQUAL? GL-PRSA,V?ENTER \FALSE
EQUAL? GL-PLACE-CUR,RM-GREAT-RUSSELL-ST \?CCL10
ICALL2 RT-DO-WALK,P?NORTH
RTRUE
?CCL10: EQUAL? GL-PLACE-CUR,RM-MANUSCRIPT-ROOM \FALSE
ICALL2 RT-DO-WALK,P?WEST
RTRUE
?CCL3: EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL13
EQUAL? GL-PLACE-PRV,RM-GREAT-RUSSELL-ST \?CCL16
PRINTI "You walk up the grand staircase and into"
JUMP ?CND1
?CCL16: PRINTI "You walk back down the long corridor and return to"
JUMP ?CND1
?CCL13: PRINTI "You are standing in"
?CND1: PRINTI " the entrance hall of the museum. All the corridors leading to the exhibit halls are packed with tourists, and there is a steady stream of people going in and out of the street entrance to the south. Only the corridor to the east seems to be of no interest to the sightseers."
CRLF
RFALSE
.FUNCT RT-AC-RM-GROSVENOR-PLACE,CONTEXT
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
ZERO? STACK /FALSE
PRINTI "This is a pleasant but out-of-the-way street that runs northwest to southeast. Few tourists ever visit here. "
CALL1 RT-TIME-OF-DAY
EQUAL? STACK,1,3 \?CCL5
PRINTI "Despite the "
CALL1 RT-TIME-OF-DAY
EQUAL? STACK,1 \?CCL8
PRINTI "early"
JUMP ?CND6
?CCL8: PRINTI "late"
?CND6: PRINTI " hour, some"
JUMP ?CND3
?CCL5: CALL1 RT-TIME-OF-DAY
EQUAL? STACK,2 \?CND3
PRINTI "Some"
?CND3: CALL1 RT-TIME-OF-DAY
EQUAL? STACK,1,2,3 \?CCL12
PRINTI " people are standing on the corner."
CRLF
RFALSE
?CCL12: ICALL1 RT-FOG-MSG
RFALSE
.FUNCT RT-AC-RM-VICTORIA-SQUARE,CONTEXT
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
ZERO? STACK /FALSE
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL5
PRINTI "You come upon"
JUMP ?CND1
?CCL5: PRINTI "You are in"
?CND1: PRINTI " Victoria Square. Streets go off in many directions."
CRLF
RFALSE
.FUNCT RT-AC-RM-BROAD-SANCTUARY,CONTEXT
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \?CCL3
FSET LG-WESTMINSTER-DOOR,FL-SEEN
PRINTI "You are"
ICALL1 RT-IN-VEHICLE-MSG
CALL1 RT-TIME-OF-DAY
EQUAL? STACK,1,2,3 \?CND4
PRINTI "in the midst of a crowd of tourists "
?CND4: PRINTI "in front of the west door of Westminster Abbey. The towers of the Abbey"
CALL1 RT-TIME-OF-DAY
ZERO? STACK \?CCL8
PRINTI " loom in the fog"
JUMP ?CND6
?CCL8: PRINTI " soar high"
?CND6: PRINTI " above you, and you marvel at this perfect example of Gothic architecture, as generations have done before you."
CRLF
CRLF
ICALL2 RT-OPEN-CLOSED-MSG,LG-WESTMINSTER-DOOR
CRLF
CRLF
PRINTI "On the wall next to the door is a small, discreet sign."
CRLF
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
EQUAL? GL-PRSA,V?ENTER \FALSE
EQUAL? GL-PLACE-CUR,RM-NAVE \FALSE
CALL2 RT-DO-WALK,P?WEST
RSTACK
.FUNCT RT-AC-RM-PARLIAMENT-SQUARE,CONTEXT
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \?CCL3
PRINTI "This is an attractive square at the foot of Whitehall. "
CALL1 RT-TIME-OF-DAY
EQUAL? STACK,1,2,3 \?CCL6
PRINTI "Large crowds mill around"
JUMP ?CND4
?CCL6: PRINTI "Through the mist you see"
?CND4: PRINTI " the entrance to the Houses of Parliament to the southeast. To the west is Birdcage Walk. Broad Sanctuary goes off to the southwest, and Whitehall "
CALL1 RT-TIME-OF-DAY
ZERO? STACK \?CCL9
PRINTI "disappears into the gloom"
JUMP ?CND7
?CCL9: PRINTI "is"
?CND7: PRINTI " to the north."
CRLF
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
EQUAL? GL-PRSA,V?ENTER \FALSE
EQUAL? GL-PLACE-CUR,RM-PARLIAMENT \FALSE
ICALL2 RT-DO-WALK,P?NW
RFALSE
.FUNCT RT-AC-RM-PARLIAMENT,CONTEXT
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
ZERO? STACK \?CCL3
ZERO? CONTEXT \FALSE
EQUAL? GL-PRSA,V?ENTER \FALSE
EQUAL? GL-PLACE-CUR,RM-PARLIAMENT-SQUARE \FALSE
ICALL2 RT-DO-WALK,P?SE
RTRUE
?CCL3: EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL11
EQUAL? GL-PLACE-PRV,RM-PARLIAMENT-SQUARE \?CCL14
CALL1 RT-TIME-OF-DAY
ZERO? STACK \?CCL17
PRINTI "You enter"
JUMP ?CND1
?CCL17: PRINTI "You push your way into"
JUMP ?CND1
?CCL14: PRINTI "You descend the stairs into"
JUMP ?CND1
?CCL11: PRINTI "You are standing in"
?CND1: PRINTI " the "
CALL1 RT-TIME-OF-DAY
EQUAL? STACK,1,2,3 \?CND18
PRINTI "jam-packed "
?CND18: PRINTI "entrance hall of the House of Commons."
CRLF
CRLF
CALL1 RT-TIME-OF-DAY
EQUAL? STACK,1,2,3 \?CCL22
CALL1 RT-TIME-OF-DAY
EQUAL? STACK,1,3 \?CCL25
PRINTI "Despite the "
CALL1 RT-TIME-OF-DAY
EQUAL? STACK,1 \?CCL28
PRINTI "early"
JUMP ?CND26
?CCL28: PRINTI "late"
?CND26: PRINTI " hour, there"
JUMP ?CND23
?CCL25: PRINTI "There"
?CND23: PRINTI " are hundreds of people lined up to get in. But"
JUMP ?CND20
?CCL22: PRINTI "The Chamber is closed, but"
?CND20: PRINTI " off to one side you see a flight of old stone steps leading up into the darkness."
CRLF
RFALSE
.FUNCT RT-AC-RM-BUCKINGHAM-PALACE-RD,CONTEXT
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
ZERO? STACK /FALSE
PRINTI "Buckingham Palace Road connects Queens Gardens to the northeast with Victoria Square to the southwest."
CRLF
RFALSE
.FUNCT RT-AC-RM-QUEENS-GARDENS,CONTEXT
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
ZERO? STACK /FALSE
EQUAL? CONTEXT,K-M-DESC-1 \?CND1
FSET CH-PALACE-GUARD,FL-SEEN
?CND1: PRINTI "You are"
ICALL1 RT-IN-VEHICLE-MSG
PRINTI "outside the gate to Buckingham Palace."
CRLF
RFALSE
.FUNCT RT-AC-RM-BIRDCAGE-WALK,CONTEXT
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
ZERO? STACK /FALSE
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL5
PRINTI "As you enter Birdcage Walk, your attention is diverted to"
JUMP ?CND1
?CCL5: PRINTI "You see"
?CND1: PRINTI " a man who has set up a small souvenir stand near where the parade will pass on Tuesday. "
CALL1 RT-TIME-OF-DAY
ZERO? STACK \?CCL8
PRINTI "Oblivious to the fact that there are no crowds here to buy his wares"
JUMP ?CND6
?CCL8: PRINTI "Hoping to attract the attention of the crowd"
?CND6: PRINTI ", he is waving a handful of overpriced trinkets over his head."
CRLF
EQUAL? CONTEXT,K-M-DESC-1 \FALSE
FSET CH-VENDOR,FL-SEEN
FSET TH-TELESCOPE,FL-SEEN
FSET TH-TRINKETS,FL-SEEN
CRLF
PRINTI "As soon as he sees you, the salesman "
CALL1 RT-TIME-OF-DAY
EQUAL? STACK,1,2,3 \?CND12
PRINTI "ignores everyone else and "
?CND12: PRINTR "says, ""'Ere, Guv. Come early for the parade, 'ave you? There'll be thousands of people, you know. Now at the last Jubilee - about a year and a 'alf ago, as I remembers it - I could 'ardly see a fing. But if you was to buy one of my telescopes, you wouldn't 'ardly 'ave any problem, now would you? 'Ow 'bout it, Guv?"""
.FUNCT RT-AC-RM-THE-MALL,CONTEXT
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
ZERO? STACK /FALSE
PRINTI "The Mall runs southwest to northeast between the Queens Gardens and Trafalgar Square."
CRLF
RFALSE
.FUNCT RT-AC-RM-WHITEHALL,CONTEXT
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \?CCL3
PRINTI "Impressive government buildings line the street on either side. The street continues north and south, and the entrance to Scotland Yard is to the east."
CRLF
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
EQUAL? GL-PRSA,V?ENTER \FALSE
EQUAL? GL-PLACE-CUR,RM-SCOTLAND-YARD \FALSE
ICALL2 RT-DO-WALK,P?WEST
RTRUE
.FUNCT RT-AC-RM-SCOTLAND-YARD,CONTEXT
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
ZERO? STACK \?CCL3
ZERO? CONTEXT \FALSE
EQUAL? GL-PRSA,V?ENTER \?CCL8
EQUAL? GL-PLACE-CUR,RM-THE-BLACK-MUSEUM \?CCL11
ICALL1 RT-ALREADY-IN-ROOM-MSG
RTRUE
?CCL11: EQUAL? GL-PLACE-CUR,RM-WHITEHALL \FALSE
ICALL2 RT-DO-WALK,P?EAST
RTRUE
?CCL8: EQUAL? GL-PRSA,V?EXIT \FALSE
EQUAL? GL-PLACE-CUR,RM-SCOTLAND-YARD \?CCL16
ICALL2 RT-DO-WALK,P?WEST
RTRUE
?CCL16: EQUAL? GL-PLACE-CUR,RM-THE-BLACK-MUSEUM \FALSE
ICALL2 RT-DO-WALK,P?UP
RTRUE
?CCL3: EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL19
EQUAL? GL-PLACE-PRV,RM-WHITEHALL \?CCL22
PRINTI "You walk up the steps and into the building. Inside, it"
JUMP ?CND1
?CCL22: EQUAL? GL-PLACE-PRV,RM-THE-BLACK-MUSEUM \?CND1
PRINTI "You return to the ground floor. It"
JUMP ?CND1
?CCL19: PRINTI "It"
?CND1: PRINTI " looks just like any other government building - drab and worn. The door to the street is to the west, and you see some steps leading down."
CRLF
RFALSE
.FUNCT RT-AC-RM-THE-BLACK-MUSEUM,CONTEXT
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
ZERO? STACK \?CND1
ZERO? CONTEXT \FALSE
EQUAL? GL-PRSA,V?ENTER \?CCL7
EQUAL? GL-PLACE-CUR,RM-SCOTLAND-YARD \FALSE
ICALL2 RT-DO-WALK,P?DOWN
RTRUE
?CCL7: EQUAL? GL-PRSA,V?EXIT \FALSE
EQUAL? GL-PLACE-CUR,RM-THE-BLACK-MUSEUM \FALSE
ICALL2 RT-DO-WALK,P?UP
RTRUE
?CND1: FSET TH-BLIGH-BOAT,FL-SEEN
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2,K-M-DESC-3 \FALSE
PRINTI "This is the Black Museum, where the Yard keeps relics and mementos of famous crimes."
CRLF
CRLF
PRINTI "Along one wall is a full-size rowboat with a small sign attached to it."
CRLF
RFALSE
.FUNCT RT-AC-RM-NEW-OXFORD-ST,CONTEXT
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
ZERO? STACK /FALSE
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL5
EQUAL? GL-PLACE-PRV,RM-CHEAPSIDE,RM-ST-GILES-CIRCUS \?CCL8
PRINTI "The quality of the neighborhood seems to be "
EQUAL? GL-PLACE-PRV,RM-ST-GILES-CIRCUS \?CCL11
PRINTI "deteriorating"
JUMP ?CND9
?CCL11: PRINTI "improving"
?CND9: PRINTI " as you"
ICALL1 RT-DRIVE-WALK-MSG?
EQUAL? GL-PLACE-PRV,RM-ST-GILES-CIRCUS \?CCL14
PRINTI "eastward"
JUMP ?CND12
?CCL14: PRINTI "westward"
?CND12: PRINTI " along"
JUMP ?CND1
?CCL8: EQUAL? GL-PLACE-PRV,RM-COVENT-GARDEN \?CCL16
PRINTI "You leave Covent Garden and enter"
JUMP ?CND1
?CCL16: PRINTI "The cab stops in"
JUMP ?CND1
?CCL5: PRINTI "You are"
ICALL1 RT-IN-VEHICLE-MSG
PRINTI "in"
?CND1: PRINTI " New Oxford Street."
CRLF
RFALSE
.FUNCT RT-AC-RM-COVENT-GARDEN,CONTEXT
EQUAL? CONTEXT,K-M-ENTERED \?CCL3
ICALL SOUNDS,S-CROWD,S-START
JUMP ?CND1
?CCL3: EQUAL? CONTEXT,K-M-EXIT \?CND1
ICALL SOUNDS,S-CROWD,S-STOP
?CND1: CALL2 RT-DESCFCN-CONTEXT,CONTEXT
ZERO? STACK /FALSE
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL9
PRINTI "You enter"
JUMP ?CND5
?CCL9: PRINTI "You are in"
?CND5: PRINTI " Covent Garden, which is the central market for all of London. Everywhere you look there are stalls packed with produce from the English countryside."
CRLF
CRLF
CALL1 RT-TIME-OF-DAY
ZERO? STACK \?CCL12
PRINTI "Despite the hour, the"
JUMP ?CND10
?CCL12: PRINTI "The"
?CND10: PRINTI " open-air market is crowded with housewives who are shopping for fruits and vegetables."
CRLF
IN? CH-ELIZA-DOOLITTLE,RM-COVENT-GARDEN \?CND13
CRLF
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL17
PRINTI "After looking around for a few moments, you"
JUMP ?CND15
?CCL17: PRINTI "You"
?CND15: PRINTI " see a crowd of women gathered around a girl who has collapsed on the ground. Her lifeless hand clutches a bunch of flowers."
CRLF
?CND13: EQUAL? CONTEXT,K-M-DESC-1 \FALSE
FSET CH-ELIZA-DOOLITTLE,FL-SEEN
FSET CH-HOUSEWIVES,FL-SEEN
FSET TH-ELIZAS-FLOWERS,FL-SEEN
FSET TH-ELIZAS-MOUTH,FL-SEEN
RTRUE
.FUNCT RT-AC-RM-THE-STRAND,CONTEXT
CALL2 RT-DESCFCN-CONTEXT,CONTEXT
ZERO? STACK /FALSE
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL5
PRINTI "You enter"
JUMP ?CND3
?CCL5: PRINTI "You are lingering in"
?CND3: PRINTI " the Strand, which is the heart of London's theatre district"
CALL1 RT-TIME-OF-DAY
EQUAL? STACK,3 \?CCL8
EQUAL? CONTEXT,K-M-DESC-1,K-M-DESC-2 \?CCL11
PRINTI ", and fight your way through"
JUMP ?CND9
?CCL11: PRINTI ", and you are enjoying being in the midst of"
?CND9: PRINTI " the crowds of happy theatre goers"
JUMP ?CND6
?CCL8: CALL1 RT-TIME-OF-DAY
EQUAL? STACK,1,2 \?CND6
PRINTC 46
CRLF
CRLF
PRINTI "Crowds are gathering in front of the theatres, trying to select a show to see later in the day"
?CND6: PRINTI ". Streets lead off to the north, east, and southwest."
CRLF
CALL1 RT-TIME-OF-DAY