-
Notifications
You must be signed in to change notification settings - Fork 11
/
castlequest.ocr.txt
4143 lines (3842 loc) · 330 KB
/
castlequest.ocr.txt
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
@@1@@
LEVEL 2.3.0 (JUNE 78) OS/360 FORTRAN H EXTENDED DATE 81.295/09.29.52 PAGE 1
REQUESTED OPTIONS: SOURCE NOOBJECT
OPTIONS IN EFFECT: NAME(MAIN) NOOPTIMIZE LINECOUNT(60) SIZE(MAX) AUTODBL(NONE)
SOURCE EBCDIC NOLIST NODECK NOOBJECT NOMAP NOFORMAT NOGOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I)
C CAS00010
C CASTLEQUEST BY MICHAEL S. HOLTZMAN/MARK A. KERSHENBLATT 2/80 CAS00020
C Modified to run under IBM's CP/CMS, 9/81, by M. Holtzman CAS00030
C CAS00040
C-------------------------------------------------------------- CAS00050
C ITEMS = LOCATIONS OF THE ITEMS CAS00060
C VERBS = LIST OF ALLOWABLE VERBS. CAS00070
C NOUNS = LIST OF ALLOWABLE NOUNS. CAS00080
C ROOM = CURRENT ROOM CAS00090
C LROOM = LAST ROOM CAS00100
C NUMB = NUMBER OF ITEMS BEING CARRIED. CAS00110
C GUN = STAUS OF GUN (0=NOTHING,1=LOADED) CAS00120
C LOCK = 0=LOCKED,1=1ST #,2=2ND #,3=OPEN. CAS00130
C WIND1 = WINDOW IN ROOM 1 (0=NAILED,1=BROKEN,2=BARRED,3=OPEN) CAS00140
C DOOR(I)= DOOR IN ROOM I (0=LOCKED,1=CLOSED,2=OPEN) CAS00150
C SHUTTR = STATUS OF SHUTTER (0=CLOSED, 1=OPEN) CAS00160
C BUT = BUTLER(0=SLEEPING,1=AWAKE,2=HOLDING NOTE,3=GONE FOR GOOD,CAS00170
C 4=DEAD AS A DOORNAIL. CAS00180
C BAT = STATUS OF BAT (0=GONE,1=BLOCKING WAY,HUNGRY) CAS00190
C NOTE = NUMBER OF NOTE BUTLER IS HOLDING. CAS00200
C NDEATH = NUMBER OF TIMES PLAYER HAS DIED. CAS00210
C LAMP =STATUS OF LAMP (0=OFF,1=ON,2=DIM,3=EMPTY) CAS00220
C ROPE = (0=LOOSE,1=TIED TO BED,2=HANGING,-2=GONE,3=TIED TO HOOK) CAS00230
C VALUE = POINT VALUE OF FINDING EACH TREASURE. CAS00240
C HUNCH = HUNCHBACK(0=HUNGRY,1=FOLLOWING,2=GONE) CAS00250
C BOTTLE = BOTTLE FILLED? CAS00260
C BLOOD = BLOOD IN BOTTLE? CAS00270
C WATER = WATER IN BOTTLE? CAS00280
C MELT = HOLE MELTED IN ICE? CAS00290
C HOLE = CYCLOPS SHAPED HOLE IN DOOR? CAS00300
C WIZ = WIZARD STILL AROUND? CAS00310
C TORCH = IS TORCH LIT? CAS00320
C FIRE = IS FIRE BURNING? CAS00330
C SUN = IS SUN UP(0=UP,1=SETTING) CAS00340
C MASTER = (0=IN COFFIN,1=ASLEEP,2=PINNED,3=UP,4=DEAD) CAS00350
C LMOVE = # MOVES WITH LAMP LIT. CAS00360
C MMOVE = # MOVES WITH MATCHES LIT. CAS00370
C MATCH = MATCHES(0=UNLIT,1=LIT,2=GONE) CAS00380
C SCORE = ACCUMULATED SCORE. CAS00390
C MAS1,2,3,4 = MASTER SECTION STATUS (LOGICAL) CAS00400
C-------------------------------------------------------------- CAS00410
C CAS00420
ISN 0002 INTEGER ACTION(2), OBJECT, PREV(100) /100*-1/ CAS00430
ISN 0003 INTEGER INST(50,20), LEAVE(100), ENTER(100) CAS00440
C CAS00450
ISN 0004 INTEGER FORM(100,20),FORM2(60,20),LONG(400,20),HINT(50,20) CAS00460
C CAS00470
ISN 0005 INTEGER PW /'.. '/ CAS00480
C INTEGER PARLEN,PARMAX/25/,NUMCOM/0/ CAS00490
C INTEGER SIGID,AWCC/'AWCC'/,A6L2/'A6L2'/,A3TB/'A3TB'/ CAS00500
C CAS00510
C CAS00520
ISN 0006 INTEGER ITEMS(30), VALUE(30), WHER(10), DOOR(100), SAVAR(400) CAS00530
@@2@@
LEVEL 2.3.0 (JUNE 78) MAIN OS/360 FORTRAN H EXTENDED DATE 81.295/09.29.52 PAGE 2
C CAS00540
ISN 0007 INTEGER ROOM, LROOM, SHUTTR, ROPE, CAS00550
2 HUNCH, MATCH, MASTER, NOTVAL, LOKVAL, BUTVAL, CAS00560
3 ROPVAL, WIND1, WIND2, SCORE, SUN, CAS00570
4 NUMOVE, NUMB, NOTE, IPASS, LAMP, CAS00580
5 MMOVE, LMOVE, MAX, MAXSCR, BUT CAS00590
C CAS00600
ISN 0008 LOGICAL BOTTLE, BLOOD, WATER, DEBUG, GNOME,SAVE, WIZ CAS00610
ISN 0009 LOGICAL WOLF, GUN, BAT, PREC, EQUC, HOLE, MELT, TORCH CAS00620
ISN 0010 LOGICAL MASECT, FIRE, MAS1, MAS2, MAS3, MAS4 CAS00630
ISN 0011 LOGICAL*1 PARSTG(25),PAR1(8),PAR2(8),PAR3(8),COMMA/','/ CAS00640
ISN 0012 LOGICAL*1 DEBU(4)/'D','E','B','U'/,REST(4)/'R','E','S','T'/, CAS00650
1FAST(4)/'F','A','S','T'/ CAS00660
C CAS00670
C CAS00680
ISN 0013 EXTERNAL RDM CAS00690
C CAS00700
ISN 0014 EQUIVALENCE (SAVAR( 1),ITEMS(1)),(SAVAR( 31), VALUE(1)), CAS00710
2 (SAVAR( 61), ROOM ),(SAVAR( 62), LROOM ), CAS00720
3 (SAVAR( 63), GUN ),(SAVAR( 64), BAT ), CAS00730
4 (SAVAR( 65), BUT ),(SAVAR( 66), SHUTTR ), CAS00740
5 (SAVAR( 67), ROPE ),(SAVAR( 68), HUNCH ), CAS00750
6 (SAVAR( 69), MATCH ),(SAVAR( 70), MASTER ), CAS00760
7 (SAVAR( 71), WHER(1)),(SAVAR( 81), NOTVAL ), CAS00770
8 (SAVAR( 82), LOKVAL ),(SAVAR( 83), BUTVAL ), CAS00780
9 (SAVAR( 84), ROPVAL ),(SAVAR( 85), FIRE ), CAS00790
X (SAVAR( 86), PREC ),(SAVAR( 87), WIND1 ), CAS00800
1 (SAVAR( 88), WIND2 ),(SAVAR( 89), SCORE ), CAS00810
2 (SAVAR( 90), NUMOVE ),(SAVAR( 91), BLOOD ), CAS00820
3 (SAVAR( 92), BOTTLE ),(SAVAR( 93), WATER ), CAS00830
4 (SAVAR( 94), SUN ),(SAVAR( 95), NUMB ), CAS00840
5 (SAVAR( 96), NOTE ),(SAVAR( 97), IPASS ), CAS00850
6 (SAVAR( 98), LAMP ),(SAVAR( 99), MMOVE ), CAS00860
7 (SAVAR(100), LMOVE ),(SAVAR(101),DOOR(1) ), CAS00870
8 (SAVAR(201), NDEATH ),(SAVAR(202), MAX ), CAS00880
9 (SAVAR(203), MAXSCR ),(SAVAR(204), IBRIEF ), CAS00890
X (SAVAR(205), GNOME ),(SAVAR(206), WOLF ) CAS00900
C CAS00910
ISN 0015 EQUIVALENCE (SAVAR(207), HOLE),(SAVAR(208), MELT), CAS00920
X (SAVAR(209), TORCH),(SAVAR(210), WIZ), CAS00930
2 (SAVAR(211), MASECT),(SAVAR(212), MAS1), CAS00940
3 (SAVAR(213), MAS2),(SAVAR(214), MAS3), CAS00950
4 (SAVAR(215), MAS4) CAS00960
ISN 0016 DATA NITEMS /30/ CAS00970
C CAS00980
ISN 0017 DATA LEAVE /7,0,0,3,0,0,7,0,0,1,1,0,7,0,3,0,5,0,3,10, CAS00990
2 0,7,0,0,3,0,0,0,0,0,5,5,5,0,2,0,0,10,0,0, CAS01000
3 0,9,3,9,1,0,0,0,0,0,6,3,3,0,6,0,0,0,0,0, CAS01010
4 1,9,9,1,0,0,10,7,1,7,7,3,0,0,1,10,3,0,0,0, CAS01020
5 0,3,3,0,7,3,7,1,7,0,3,0,0,3,0,0,0,0,7,0 / CAS01030
C CAS01040
ISN 0018 DATA ENTER /0,0,1,0,0,3,0,0,0,0,0,3,10,0,0,0,10,1,0,1, CAS01050
2 3,0,0,7,0,0,0,7,0,0,0,0,0,0,0,8,0,0,0,0, CAS01060
3 7,0,0,5,0,0,0,1,0,0,2,0,7,0,0,0,0,0,0,0, CAS01070
4 19,9,1,1,1,0,7,3,3,0,3,5,0,1,0,0,0,0,7,9, CAS01080
5 0,3,0,3,0,5,1,0,0,9,1,0,7,0,0,0,0,0,7,0 / CAS01090
C CAS01100
ISN 0019 COMMON DEBUG, ISEED CAS01110
@@3@@
LEVEL 2.3.0 (JUNE 78) MAIN OS/360 FORTRAN H EXTENDED DATE 81.295/09.29.52 PAGE 3
ISN 0020 COMMON /BLOCK1/ FORM, FORM2, INST, LONG, HINT CAS01120
ISN 0021 COMMON /BLOCK2/ SAVAR CAS01130
C CAS01140
ISN 0022 EQUIVALENCE (ACTION(2), OBJECT) CAS01150
C CAS01160
ISN 0023 CALL INIT CAS01170
ISN 0024 SEED = FLOAT(ISEED) CAS01180
C CAS01190
ISN 0025 SAVE=.FALSE. CAS01200
ISN 0026 MAXABS = MAXSCR CAS01210
C*** CAS01220
Comment out the parameter fetch and check code: CAS01230
C CALL PAR(PARSTG,PARLEN,PARMAX,1,1) CAS01240
C DO 2 JJ=1,PARLEN CAS01250
C IF(EQUC(PARSTG(JJ),COMMA)) NUMCOM=NUMCOM+1 CAS01260
C IF(EQUC(PARSTG(JJ),COMMA)) GOTO 2 CAS01270
C GOTO(7,9),NUMCOM CAS01280
C PAR1(JJ)=PARSTG(JJ) CAS01290
C GOTO 2 CAS01300
C 7 CONTINUE CAS01310
C PAR2(JJ=FLAG)=PARSTG(JJ) CAS01320
C GOTO 2 CAS01330
C 9 CONTINUE CAS01340
C PAR3(JJ=FLAG)=PARSTG(JJ) CAS01350
C 2 CONTINUE CAS01360
C IF(LCOMC(4,PAR1(1),DEBU(1)) .EQ.0.OR. CAS01370
C 1LCOMC(4,PAR2(1),DEBU(1)) .EQ. 0 .OR. CAS01380
C 2LCOMC(4,PAR3(1),DEBU(1)) .EQ. 0) DEBUG=.TRUE. CAS01390
C IF(LCOMC(4,PAR1(1),REST(1)) .EQ. 0.OR. CAS01400
C 1LCOMC(4,PAR2(1),REST(1)) .EQ.0 .OR. CAS01410
C 2LCOMC(4,PAR3(1),REST(1)) .EQ.0) GOTO 158 CAS01420
C***** CAS01430
C CAS01440
ISN 0027 1 WRITE(6,1001) CAS01450
ISN 0028 CALL YORN(II) CAS01460
ISN 0029 IF (II .EQ. 0) GOTO 10 CAS01470
ISN 0031 CALL HELP(0,ROOM) CAS01480
ISN 0032 10 CONTINUE CAS01490
C CAS01500
C CAS01510
ISN 0033 20 CONTINUE CAS01520
ISN 0034 IF (DEBUG) WRITE(6,6301) CAS01530
ISN 0036 6301 FORMAT('0 TOP OF LOOP (STATEMENT 20)') CAS01540
C CAS01550
ISN 0037 IF (ROOM .LE. 40 .OR. CAS01560
2 ROOM .GE. 95 .OR. CAS01570
3 ((LAMP.EQ.1.OR.LAMP.EQ.2) .AND. CAS01580
4 (ITEMS(21).EQ.-1.OR.ITEMS(21).EQ.ROOM)) .OR. CAS01590
5 (MATCH.EQ.1 .AND. CAS01600
6 (ITEMS(15).EQ.-1.OR.ITEMS(15).EQ.ROOM))) GOTO 22 CAS01610
ISN 0039 WRITE(6,1064) CAS01620
ISN 0040 GOTO 25 CAS01630
ISN 0041 22 CONTINUE CAS01640
ISN 0042 NUMOVE = NUMOVE + 1 CAS01650
ISN 0043 IF (DEBUG) WRITE(6,6302) NUMOVE CAS01660
ISN 0045 6302 FORMAT('0 NUMBER OF MOVES IS ',I3) CAS01670
ISN 0046 IF (ITEMS( 8) .GE. 57 .AND. ITEMS( 8) .LE. 64) CAS01680
2 ITEMS(8)=IFIX(RDM(SEED)*7. + 57.) CAS01690
@@4@@
LEVEL 2.3.0 (JUNE 78) MAIN OS/360 FORTRAN H EXTENDED DATE 81.295/09.29.52 PAGE 4
ISN 0048 IF (NUMOVE.GT.100.AND.SUN.EQ.0.AND.MASTER.LT.4) WRITE(6,1089) CAS01700
ISN 0050 IF (NUMOVE .GT. 100) SUN = 1 CAS01710
ISN 0052 IF (MATCH .NE. 1) GOTO 404 CAS01720
ISN 0054 MMOVE = MMOVE + 1 CAS01730
ISN 0055 IF (MMOVE .LT. 10) GOTO 404 CAS01740
ISN 0057 MATCH = 2 CAS01750
ISN 0058 IF (ITEMS(15) .EQ. -1) NUMB = NUMB - 1 CAS01760
ISN 0060 ITEMS(15) = 0 CAS01770
ISN 0061 WRITE(6,1088) CAS01780
Check to see if glacier is melted yet, and if cyclops has crashed CAS01790
C through the door yet. (These both require the match). If not, decreaseCAS01800
C MAX because match is needed to get them. (MAX determines when CAS01810
C the player has found everything). CAS01820
ISN 0062 IF (.NOT. HOLE) MAX=MAX-10 CAS01830
ISN 0064 IF (.NOT. MELT) MAX=MAX-10 CAS01840
ISN 0066 GOTO 20 CAS01850
ISN 0067 404 CONTINUE CAS01860
ISN 0068 IF (LAMP .EQ. 0 .OR. LAMP .EQ. 3) GOTO 410 CAS01870
ISN 0070 LMOVE = LMOVE + 1 CAS01880
ISN 0071 IF (LMOVE .LT. 75) GOTO 410 CAS01890
ISN 0073 IF (LMOVE .NE. 100)GOTO 405 CAS01900
ISN 0075 LAMP = 3 CAS01910
ISN 0076 WRITE(6,1009) CAS01920
ISN 0077 WRITE(6,1064) CAS01930
ISN 0078 GOTO 25 CAS01940
ISN 0079 405 CONTINUE CAS01950
ISN 0080 IF (LMOVE .NE. 75) GOTO 410 CAS01960
ISN 0082 LAMP = 2 CAS01970
ISN 0083 WRITE(6,1083) CAS01980
ISN 0084 IF (ITEMS(1) .NE. -1 .OR. ITEMS(21) .NE. -1) GOTO 410 CAS01990
ISN 0086 WRITE(6,1085) CAS02000
ISN 0087 ITEMS(1) = 0 CAS02010
ISN 0088 NUMB = NUMB - 1 CAS02020
ISN 0089 LMOVE = -75 CAS02030
ISN 0090 LAMP = 1 CAS02040
ISN 0091 410 CONTINUE CAS02050
ISN 0092 II = ROOM + 200*ISIG(PREV(ROOM)) CAS02060
ISN 0093 IF (DEBUG) WRITE(6,6303) II CAS02070
ISN 0095 6303 FORMAT('0 ABOUT TO CALL "DES": II IS ', I3) CAS02080
ISN 0096 CALL DES(II) CAS02090
ISN 0097 IF (ITEMS(8) .EQ. -1) CALL DES(421) CAS02100
ISN 0099 IF (ROOM .EQ. 100) GOTO 9100 CAS02110
ISN 0101 23 CONTINUE CAS02120
C ...SPECIAL ROOM CONDITIONS... CAS02130
ISN 0102 II = 0 CAS02140
ISN 0103 IF (ROOM .NE. 8) GOTO 501 CAS02150
ISN 0105 II = 400 + BUT CAS02160
ISN 0106 GOTO 550 CAS02170
ISN 0107 501 CONTINUE CAS02180
ISN 0108 IF (ROOM .NE. 1) GOTO 505 CAS02190
ISN 0110 IF (SHUTTR .EQ. 0) GOTO 502 CAS02200
ISN 0112 II = WIND1 + 405 CAS02210
ISN 0113 CALL DES(II) CAS02220
ISN 0114 IF (ITEMS(17) .EQ. 29) CALL DES(428) CAS02230
ISN 0116 II=0 CAS02240
ISN 0117 GOTO 504 CAS02250
ISN 0118 502 CONTINUE CAS02260
ISN 0119 CALL DES(417) CAS02270
@@5@@
LEVEL 2.3.0 (JUNE 78) MAIN OS/360 FORTRAN H EXTENDED DATE 81.295/09.29.52 PAGE 5
ISN 0120 504 IF (ROPE .EQ. 2) II=413 CAS02280
ISN 0122 GOTO 550 CAS02290
ISN 0123 505 CONTINUE CAS02300
ISN 0124 IF (ROOM .NE. 10) GOTO 507 CAS02310
ISN 0126 II = 405 + WIND2 CAS02320
ISN 0127 GOTO 550 CAS02330
ISN 0128 507 CONTINUE CAS02340
ISN 0129 IF (ROOM .NE. 13 .AND. ROOM .NE. 17) GOTO 509 CAS02350
ISN 0131 IF (ROOM .EQ. 13) WRITE(6,1098) CAS02360
ISN 0133 II = 412 * IPASS CAS02370
ISN 0134 GOTO 550 CAS02380
ISN 0135 509 CONTINUE CAS02390
ISN 0136 IF (ROOM .NE. 29) GOTO 511 CAS02400
ISN 0138 IF (ROPE .NE. 2) GOTO 511 CAS02410
ISN 0140 II = 413 CAS02420
ISN 0141 511 CONTINUE CAS02430
ISN 0142 IF (ROOM .NE. 43) GOTO 513 CAS02440
ISN 0144 II = 423 + MASTER CAS02450
ISN 0145 513 CONTINUE CAS02460
ISN 0146 IF (ROOM .NE. 47) GOTO 515 CAS02470
ISN 0148 IF (FIRE) WRITE(6,1100) CAS02480
ISN 0150 GOTO 550 CAS02490
ISN 0151 515 CONTINUE CAS02500
ISN 0152 IF (ROOM .NE. 40) GOTO 517 CAS02510
ISN 0154 IF (DOOR(80) .EQ. 2) WRITE(6,1110) CAS02520
ISN 0156 GOTO 551 CAS02530
ISN 0157 517 CONTINUE CAS02540
ISN 0158 IF (ROOM .NE. 83 .AND. ROOM .NE. 84) GOTO 519 CAS02550
ISN 0160 IF (PREC) WRITE(6,1011) CAS02560
ISN 0162 GOTO 550 CAS02570
ISN 0163 519 CONTINUE CAS02580
ISN 0164 IF (ROOM .NE. 65) GOTO 521 CAS02590
ISN 0166 IF (MELT) WRITE(6,1116) CAS02600
ISN 0168 GOTO 550 CAS02610
ISN 0169 521 CONTINUE CAS02620
C ...CYCLOPS IN ROOM... CAS02630
ISN 0170 IF (ROOM .NE. 86) GOTO 523 CAS02640
ISN 0172 IF (HOLE) WRITE(6,1117) CAS02650
ISN 0174 IF (.NOT. HOLE .AND. ITEMS(27) .NE. -3) WRITE(6,1118) CAS02660
ISN 0176 IF (.NOT. HOLE .AND. ITEMS(27) .EQ. -3) WRITE(6,1119) CAS02670
ISN 0178 GOTO 550 CAS02680
ISN 0179 523 CONTINUE CAS02690
ISN 0180 IF (ROOM .NE. 93) GOTO 525 CAS02700
ISN 0182 IF (WIZ) WRITE(6,1128) CAS02710
ISN 0184 GOTO 550 CAS02720
ISN 0185 525 CONTINUE CAS02730
ISN 0186 IF (ROOM .NE. 99) GOTO 527 CAS02740
ISN 0188 IF (MASECT ) WRITE(6,1136) CAS02750
ISN 0190 GOTO 550 CAS02760
ISN 0191 527 CONTINUE CAS02770
ISN 0192 IF (ITEMS(4) .GT. -2) NOTE = 1 CAS02780
ISN 0194 549 CONTINUE CAS02790
ISN 0195 IF (ROOM .LE. 90 .OR. ROOM .GE. 94) GOTO 550 CAS02800
ISN 0197 IF (ITEMS(12).NE.-1 .OR. .NOT.WIZ) GOTO 550 CAS02810
ISN 0199 CALL DES(318+ROOM) CAS02820
ISN 0200 550 CONTINUE CAS02830
ISN 0201 IF (II .EQ. 0) GOTO 551 CAS02840
ISN 0203 CALL DES(II) CAS02850
@@6@@
LEVEL 2.3.0 (JUNE 78) MAIN OS/360 FORTRAN H EXTENDED DATE 81.295/09.29.52 PAGE 6
ISN 0204 551 CONTINUE CAS02860
ISN 0205 IF (ROOM .LE. 99 .AND. ROOM .GE. 95 .AND. CAS02870
2 ITEMS(3) .EQ. -1) WRITE(6,1141) CAS02880
ISN 0207 II = 0 CAS02890
ISN 0208 CALL OBJ(ITEMS,ROOM,SCORE,VALUE) CAS02900
ISN 0209 IF ((NUMOVE.GT.15 .AND. (ROOM.LE.25.AND.ROOM.GE.4)) CAS02910
2 .OR. WOLF) CALL WWOLF(II,WOLF) CAS02920
ISN 0211 IF ((ROOM.GE.45.AND.ROOM.LE.92) .OR. GNOME) CALL GGNOME(II,GNOME) CAS02930
ISN 0213 IF (II .GT. 0) GOTO 902 CAS02940
ISN 0215 IF (.NOT. WOLF .OR. ITEMS( 8) .NE. -1) GOTO 24 CAS02950
ISN 0217 CALL DES(429) CAS02960
ISN 0218 HUNCH = 2 CAS02970
ISN 0219 ITEMS( 8) = 0 CAS02980
ISN 0220 WOLF = .FALSE. CAS02990
ISN 0221 NUMB = NUMB - 1 CAS03000
ISN 0222 24 CONTINUE CAS03010
ISN 0223 IF (RDM(SEED) .LT. 0.008) WRITE(6,1145) CAS03020
ISN 0225 25 CALL INPUT(ACTION) CAS03030
C CAS03040
C BRANCH DEPENDING ON VERB READ. CAS03050
C CAS03060
ISN 0226 J = ACTION(1) CAS03070
ISN 0227 26 GOTO (101,101,101,101,101,101,101,101,101,101, CAS03080
2 111,112,113,114,115,116,117,118,119,120, CAS03090
3 121,122,123,124,125,126,127,128,129,130, CAS03100
4 131,132,133,134,135,136,137,138,139,140, CAS03110
5 141,142,143,144,145,146,147,148,149,150, CAS03120
6 151,152,153,154,155,156,157,158,159,160, CAS03130
7 161), J CAS03140
C CAS03150
ISN 0228 101 CONTINUE CAS03160
ISN 0229 IF (ROOM .LE. 40 .OR. ROOM .GE. 95 .OR. CAS03170
2 ((LAMP.EQ. 1 .OR. LAMP.EQ. 2) CAS03180
3 .AND. (ITEMS(21).EQ. ROOM .OR. ITEMS(21).EQ.-1))) CAS03190
4 GOTO 420 CAS03200
ISN 0231 IF ((ITEMS(15) .EQ. -1 .OR. ITEMS(15) .EQ. ROOM) .AND. CAS03210
2 MATCH .EQ. 1) GOTO 420 CAS03220
ISN 0233 WRITE(6,1077) CAS03230
ISN 0234 GOTO 902 CAS03240
ISN 0235 420 II = LROOM CAS03250
ISN 0236 LROOM = ROOM CAS03260
ISN 0237 CALL MOVE(ROOM, J) CAS03270
ISN 0238 428 IF (DEBUG) WRITE(6,9501) ROOM,LROOM CAS03280
ISN 0240 9501 FORMAT('0 RETURN FROM MOVE: ROOM=',I8,' LROOM =',I8) CAS03290
ISN 0241 IF (ROOM.GE.57 .AND. ROOM.LE.64) LROOM=IFIX(RDM(SEED)*6.+58.) CAS03300
ISN 0243 IF (ROOM .GE. 0) GOTO 102 CAS03310
ISN 0245 ROOM = (-ROOM) CAS03320
ISN 0246 IF (ROOM .LE. 0) ROOM=0 CAS03330
ISN 0248 IF (ROOM .EQ. 0) GOTO 102 CAS03340
ISN 0250 IF ((LROOM .NE. 2 .OR. ROOM .NE. 4) .AND. CAS03350
2 (LROOM .NE. 4 .OR. ROOM .NE. 2)) GOTO 601 CAS03360
ISN 0252 IF (DOOR(2) .GE. 2) GOTO 103 CAS03370
ISN 0254 IF (DOOR(2) .EQ. 0) WRITE(6,1019) CAS03380
ISN 0256 IF (DOOR(2) .EQ. 1) WRITE(6,1042) CAS03390
ISN 0258 GOTO 106 CAS03400
ISN 0259 601 CONTINUE CAS03410
C ...KITCHEN... CAS03420
ISN 0260 IF (ROOM .NE. 7) GOTO 605 CAS03430
@@7@@
LEVEL 2.3.0 (JUNE 78) MAIN OS/360 FORTRAN H EXTENDED DATE 81.295/09.29.52 PAGE 7
ISN 0262 IF (DOOR(6) .EQ. 2) GOTO 103 CAS03440
ISN 0264 IF (DOOR(6) .EQ. 0) WRITE(6,1021) CAS03450
ISN 0266 IF (DOOR(6) .EQ. 1) WRITE(6,1042) CAS03460
ISN 0268 GOTO 106 CAS03470
ISN 0269 605 CONTINUE CAS03480
C ...SECRET PASSAGE... CAS03490
ISN 0270 IF ((ROOM .NE. 13 .OR. LROOM .NE. 17) .AND. CAS03500
2 (ROOM .NE. 17 .OR. LROOM .NE. 13)) GOTO 609 CAS03510
ISN 0272 IF (IPASS .EQ. 0) ROOM=0 CAS03520
ISN 0274 GOTO 102 CAS03530
ISN 0275 609 CONTINUE CAS03540
C ...TRAP DOOR... CAS03550
ISN 0276 IF (ROOM .NE. 2 .OR. LROOM .NE. 3) GOTO 613 CAS03560
ISN 0278 IF (ITEMS(4) .NE. -1) GOTO 103 CAS03570
ISN 0280 ROOM = 16 CAS03580
ISN 0281 LROOM= 0 CAS03590
ISN 0282 WRITE(6,1043) CAS03600
ISN 0283 GOTO 103 CAS03610
ISN 0284 613 CONTINUE CAS03620
C ...ATTIC... CAS03630
ISN 0285 IF ((ROOM .NE. 21 .OR. LROOM .NE. 20) .AND. CAS03640
2 (ROOM .NE. 20 .OR. LROOM .NE. 21)) GOTO 615 CAS03650
ISN 0287 IF (.NOT. BAT) GOTO 103 CAS03660
ISN 0289 WRITE(6,1049) CAS03670
ISN 0290 GOTO 106 CAS03680
ISN 0291 615 CONTINUE CAS03690
C ...COMBINATION LOCK... CAS03700
ISN 0292 IF (ROOM .NE. 23 .OR. LROOM .NE. 21) GOTO 617 CAS03710
ISN 0294 IF (LOCK .EQ. 3) GOTO 103 CAS03720
ISN 0296 WRITE(6,1066) CAS03730
ISN 0297 GOTO 106 CAS03740
ISN 0298 617 CONTINUE CAS03750
C ...MIRROR ROOM... CAS03760
ISN 0299 IF (LROOM .NE. 27) GOTO 619 CAS03770
ISN 0301 IF (RDM(SEED) .LT. 0.20) GOTO 618 CAS03780
ISN 0303 ROOM = 27 CAS03790
ISN 0304 LROOM= 27 CAS03800
ISN 0305 PREV(ROOM) = 1 CAS03810
ISN 0306 GOTO 20 CAS03820
ISN 0307 618 ROOM = WHER(IFIX(RDM(SEED)*9+1)) CAS03830
ISN 0308 GOTO 103 CAS03840
ISN 0309 619 CONTINUE CAS03850
C ...ROPE OUT WINDOW... CAS03860
ISN 0310 IF ((ROOM .NE. 29 .OR. LROOM .NE. 1) .AND. CAS03870
2 (ROOM .NE. 1 .OR. LROOM .NE. 29)) GOTO 621 CAS03880
ISN 0312 IF (ROPE .EQ. 2) GOTO 103 CAS03890
ISN 0314 WRITE(6,1006) CAS03900
ISN 0315 GOTO 106 CAS03910
ISN 0316 621 CONTINUE CAS03920
C ...JUMP FROM SMOKING ROOM... CAS03930
ISN 0317 IF (ROOM .NE. 39 .OR. LROOM .NE. 10) GOTO 623 CAS03940
ISN 0319 622 IF (WIND2 .EQ. 3) LROOM = 0 CAS03950
ISN 0321 IF (WIND2 .EQ. 3) GOTO 103 CAS03960
ISN 0323 WRITE(6,1006) CAS03970
ISN 0324 GOTO 106 CAS03980
ISN 0325 623 CONTINUE CAS03990
C ...FIRE... CAS04000
ISN 0326 IF (ROOM .NE. 48 .OR. LROOM .NE. 47) GOTO 625 CAS04010
@@8@@
LEVEL 2.3.0 (JUNE 78) MAIN OS/360 FORTRAN H EXTENDED DATE 81.295/09.29.52 PAGE 8
ISN 0328 IF (.NOT. FIRE) GOTO 103 CAS04020
ISN 0330 WRITE(6,1101) CAS04030
ISN 0331 GOTO 106 CAS04040
ISN 0332 625 CONTINUE CAS04050
C ...END OF GAME... CAS04060
ISN 0333 IF (ROOM .NE. 70 .OR. LROOM .NE. 71) GOTO 626 CAS04070
ISN 0335 DO 628 K=1,NITEMS CAS04080
ISN 0336 IF (ITEMS(K) .EQ. 71) ITEMS(K)=70 CAS04090
ISN 0338 628 CONTINUE CAS04100
ISN 0339 GOTO 630 CAS04110
ISN 0340 626 IF (ROOM .NE. 71 .OR. LROOM .NE. 70) GOTO 627 CAS04120
ISN 0342 DO 632 K=1,NITEMS CAS04130
ISN 0343 IF (ITEMS(K) .EQ. 70) ITEMS(K)=71 CAS04140
ISN 0345 632 CONTINUE CAS04150
ISN 0346 630 CONTINUE CAS04160
ISN 0347 CALL ADSCOR(II) CAS04170
ISN 0348 IF (II .LT. MAX) GOTO 103 CAS04180
ISN 0350 IF (ITEMS( 3) .NE. -1) GOTO 103 CAS04190
ISN 0352 ROOM = 99 CAS04200
ISN 0353 LROOM = 0 CAS04210
ISN 0354 GOTO 103 CAS04220
ISN 0355 627 CONTINUE CAS04230
C ...HATCH (GOING DOWN)... CAS04240
ISN 0356 IF (ROOM .NE. 80 .OR. LROOM .NE. 40) GOTO 629 CAS04250
ISN 0358 IF (DOOR(80) .EQ. 2) GOTO 103 CAS04260
ISN 0360 ROOM = 0 CAS04270
ISN 0361 GOTO 102 CAS04280
ISN 0362 629 CONTINUE CAS04290
C ...HATCH (GOING UP)... CAS04300
ISN 0363 IF (ROOM .NE. 40 .OR. LROOM .NE. 80) GOTO 631 CAS04310
ISN 0365 IF (DOOR(80) .EQ. 2) GOTO 103 CAS04320
ISN 0367 ROOM = 0 CAS04330
ISN 0368 WRITE(6,1042) CAS04340
ISN 0369 GOTO 106 CAS04350
ISN 0370 631 CONTINUE CAS04360
C ...PRECIPICE... CAS04370
ISN 0371 IF ((ROOM .NE. 83 .OR. LROOM .NE. 84) .AND. CAS04380
2 (ROOM .NE. 84 .OR. LROOM .NE. 83)) GOTO 633 CAS04390
ISN 0373 IF (.NOT. PREC) ROOM=0 CAS04400
ISN 0375 GOTO 102 CAS04410
ISN 0376 633 CONTINUE CAS04420
C ...MELT ICE ... CAS04430
ISN 0377 IF (ROOM .NE. 90 .OR. LROOM .NE. 65) GOTO 635 CAS04440
ISN 0379 IF (.NOT. MELT) ROOM = 0 CAS04450
ISN 0381 GOTO 102 CAS04460
ISN 0382 635 CONTINUE CAS04470
C ...CYCLOPS SHAPED HOLE... CAS04480
ISN 0383 IF (ROOM .NE. 88 .OR. LROOM .NE. 86) GOTO 637 CAS04490
ISN 0385 IF (.NOT. HOLE) ROOM = 0 CAS04500
ISN 0387 GOTO 102 CAS04510
ISN 0388 637 CONTINUE CAS04520
ISN 0389 IF (ROOM .NE. 93 .OR. LROOM .NE. 92) GOTO 639 CAS04530
ISN 0391 IF (ITEMS(12) .EQ. -1) GOTO 103 CAS04540
ISN 0393 ROOM = 0 CAS04550
ISN 0394 WRITE(6,1127) CAS04560
ISN 0395 GOTO 106 CAS04570
ISN 0396 639 CONTINUE CAS04580
C ...WIZARD. . . CAS04590
@@9@@
LEVEL 2.3.0 (JUNE 78) MAIN OS/360 FORTRAN H EXTENDED DATE 81.295/09.29.52 PAGE 9
ISN 0397 IF (ROOM .NE. 94 .OR. LROOM .NE. 93) GOTO 641 CAS04600
ISN 0399 IF (.NOT. WIZ) GOTO 102 CAS04610
ISN 0401 WRITE(6,1128) CAS04620
ISN 0402 ROOM = 0 CAS04630
ISN 0403 GOTO 106 CAS04640
ISN 0404 641 CONTINUE CAS04650
ISN 0405 IF (ROOM .NE. 70 .OR. LROOM .NE. 71) GOTO 643 CAS04660
ISN 0407 IF (ITEMS(3) .NE. -1) GOTO 102 CAS04670
ISN 0409 CALL ADSCOR(II) CAS04680
ISN 0410 IF (II .LT. MAX) GOTO 102 CAS04690
ISN 0412 ROOM = 99 CAS04700
ISN 0413 LROOM = 0 CAS04710
ISN 0414 GOTO 102 CAS04720
ISN 0415 643 CONTINUE CAS04730
ISN 0416 IF (ROOM .NE. 95 .OR. LROOM .NE. 99) GOTO 645 CAS04740
ISN 0418 IF (MASECT) GOTO 102 CAS04750
ISN 0420 ROOM = 0 CAS04760
ISN 0421 GOTO 102 CAS04770
ISN 0422 645 CONTINUE CAS04780
ISN 0423 WRITE(6,8005) LROOM, ROOM CAS04790
ISN 0424 8005 FORMAT('0 SPECIAL MOVE FROM ',I3,' TO ',I3) CAS04800
ISN 0425 GOTO 20 CAS04810
ISN 0426 102 IF (ROOM .NE. 0) GOTO 103 CAS04820
ISN 0428 WRITE(6,1006) CAS04830
ISN 0429 106 ROOM = LROOM CAS04840
ISN 0430 LROOM= II CAS04850
ISN 0431 GOTO 25 CAS04860
ISN 0432 103 CONTINUE CAS04870
C ...BOAT IN CASTLE... CAS04880
ISN 0433 IF((ROOM .NE. 8 .OR. LROOM .NE. 12) .AND. CAS04890
1 (ROOM .NE. 1 .OR. LROOM .NE. 29)) GOTO 28 CAS04900
ISN 0435 IF(ITEMS(14) .NE. -1) GOTO 29 CAS04910
ISN 0437 WRITE(6,1081) CAS04920
ISN 0438 GOTO 106 CAS04930
ISN 0439 28 CONTINUE CAS04940
C ...MASTER AWAKE... CAS04950
ISN 0440 IF (ROOM .NE. 41 .OR. LROOM .NE. 43) GOTO 29 CAS04960
ISN 0442 IF (MASTER .NE. 3) GOTO 29 CAS04970
ISN 0444 WRITE(6,1094) CAS04980
ISN 0445 GOTO 902 CAS04990
ISN 0446 29 CONTINUE CAS05000
ISN 0447 IF (MASTER .EQ. 1 .OR. MASTER .EQ. 2) MASTER = 3 CAS05010
ISN 0449 PREV(ROOM) = PREV(ROOM) + 1 + IBRIEF CAS05020
ISN 0450 IF (PREV(ROOM) .GT. 5) PREV(ROOM)=0 + IBRIEF CAS05030
ISN 0452 GOTO 20 CAS05040
C CAS05050
ISN 0453 111 CONTINUE CAS05060
C ---TAKE--- CAS05070
ISN 0454 IF (NUMB.LT.10.OR.OBJECT.EQ.26.OR.OBJECT.EQ.5) GOTO 206 CAS05080
ISN 0456 WRITE(6,1012) CAS05090
ISN 0457 GOTO 25 CAS05100
ISN 0458 206 IF (OBJECT .EQ. 31) GOTO 207 CAS05110
ISN 0460 IF (OBJECT .EQ. 8 .AND. HUNCH .EQ. 1) GOTO 204 CAS05120
ISN 0462 IF (OBJECT.EQ.46 .AND. (ROOM.NE.13.AND.ROOM.NE.10)) GOTO 201 CAS05130
ISN 0464 IF (OBJECT .EQ. 9 .AND. ROPE .EQ. 2) GOTO 454 CAS05140
ISN 0466 IF (OBJECT .EQ. 9 .AND. ROPE .EQ. 3) GOTO 452 CAS05150
ISN 0468 IF (OBJECT .EQ.16 .AND. ROPE .EQ. 3) GOTO 452 CAS05160
ISN 0470 IF (OBJECT.EQ.26.AND.(ROOM.EQ.32.OR.ROOM.EQ.40.OR.ROOM.EQ.68 CAS05170
@@10@@
LEVEL 2.3.0 (JUNE 78) MAIN OS/360 FORTRAN H EXTENDED DATE 81.295/09.29.52 PAGE 10
2 .OR.ROOM.EQ.81)) GOTO 215 CAS05180
ISN 0472 203 IF (OBJECT .NE. 49) GOTO 766 CAS05190
ISN 0474 IF (BUT .NE. 4) WRITE(6,1034) CAS05200
ISN 0476 IF (BUT .EQ. 4) WRITE(6,1146) CAS05210
ISN 0478 766 IF (OBJECT .EQ. 46) WRITE(6,1033) CAS05220
ISN 0480 IF (OBJECT .EQ. 52) WRITE(6,1045) CAS05230
ISN 0482 IF (OBJECT .EQ. 8) WRITE(6,1093) CAS05240
ISN 0484 IF (OBJECT .EQ. 49 .OR. OBJECT .EQ. 46 .OR. CAS05250
2 OBJECT .EQ. 52 .OR. OBJECT .EQ. 8) GOTO 25 CAS05260
ISN 0486 IF (OBJECT .GT. NITEMS) GOTO 730 CAS05270
ISN 0488 IF (ITEMS(OBJECT) .EQ. -1) GOTO 750 CAS05280
ISN 0490 IF (OBJECT .EQ. 20 .AND. ROOM .EQ. 3) GOTO 204 CAS05290
ISN 0492 IF (OBJECT .EQ. 6 .AND. ROOM .EQ. 12) GOTO 204 CAS05300
ISN 0494 IF (ITEMS(OBJECT).NE.ROOM .AND.ITEMS(OBJECT).NE.-2) GOTO 201 CAS05310
ISN 0496 IF (OBJECT .EQ. 26 .OR. OBJECT .EQ. 5) GOTO 215 CAS05320
ISN 0498 204 ITEMS(OBJECT) = -1 CAS05330
ISN 0499 NUMB = NUMB + 1 CAS05340
ISN 0500 GOTO 800 CAS05350
ISN 0501 201 CONTINUE CAS05360
ISN 0502 WRITE(6,1003) CAS05370
ISN 0503 205 GOTO 25 CAS05380
ISN 0504 454 ROPE = 0 CAS05390
ISN 0505 ITEMS(9) = -1 CAS05400
ISN 0506 NUMB = NUMB + 1 CAS05410
ISN 0507 GOTO 800 CAS05420
ISN 0508 452 CONTINUE CAS05430
ISN 0509 IF (PREC .AND. ROOM .EQ. 83) GOTO 303 CAS05440
ISN 0511 IF (ITEMS(9).NE.ROOM .OR. ITEMS(16).NE.ROOM) GOTO 201 CAS05450
ISN 0513 ITEMS( 9) = -1 CAS05460
ISN 0514 ITEMS(16) = -1 CAS05470
ISN 0515 NUMB = NUMB + 2 CAS05480
ISN 0516 IF (PREC) PREC=.FALSE. CAS05490
ISN 0518 GOTO 800 CAS05500
ISN 0519 207 CONTINUE CAS05510
C TAKE ALL -- pick up everything in the room, except blood or water. CAS05520
ISN 0520 DO 208 II=1,NITEMS CAS05530
ISN 0521 IF (II .EQ. 5 .OR. II .EQ. 26) GOTO 208 CAS05540
ISN 0523 IF (ITEMS(II) .NE. ROOM) GOTO 208 CAS05550
ISN 0525 ITEMS(II) = -1 CAS05560
ISN 0526 NUMB = NUMB + 1 CAS05570
ISN 0527 IF (NUMB .LT. 10) GOTO 208 CAS05580
ISN 0529 WRITE(6,1012) CAS05590
ISN 0530 GOTO 25 CAS05600
ISN 0531 208 CONTINUE CAS05610
ISN 0532 GOTO 800 CAS05620
ISN 0533 215 CONTINUE CAS05630
ISN 0534 IF (ITEMS(18) .NE. -1) GOTO 216 CAS05640
ISN 0536 IF (BOTTLE) GOTO 218 CAS05650
ISN 0538 ITEMS(OBJECT) = -1 CAS05660
ISN 0539 BOTTLE = .TRUE. CAS05670
ISN 0540 IF (OBJECT .EQ. 5) BLOOD = .TRUE. CAS05680
ISN 0542 IF (OBJECT .EQ. 26) WATER = .TRUE. CAS05690
ISN 0544 GOTO 800 CAS05700
ISN 0545 216 WRITE(6,1074) CAS05710
ISN 0546 GOTO 25 CAS05720
ISN 0547 218 WRITE(6,1099) CAS05730
ISN 0548 GOTO 25 CAS05740
C CAS05750
@@11@@
LEVEL 2.3.0 (JUNE 78) MAIN OS/360 FORTRAN H EXTENDED DATE 81.295/09.29.52 PAGE 11
ISN 0549 112 CONTINUE CAS05760
C ---DROP--- CAS05770
ISN 0550 IF (OBJECT .EQ. 31) GOTO 211 CAS05780
ISN 0552 IF (OBJECT .GT. NITEMS) GOTO 700 CAS05790
ISN 0554 IF ((OBJECT.EQ.9.OR.OBJECT.EQ.16).AND.ROPE.EQ.3) GOTO 453 CAS05800
ISN 0556 IF (ITEMS(OBJECT) .NE. -1) GOTO 210 CAS05810
ISN 0558 217 ITEMS(OBJECT) = ROOM CAS05820
C If in MIRROR MAZE, put object in the upstairs hallway CAS05830
ISN 0559 IF (ROOM .EQ. 27) ITEMS(OBJECT) = 9 CAS05840
ISN 0561 IF (OBJECT .EQ. 5 .OR. OBJECT .EQ. 26) GOTO 220 CAS05850
ISN 0563 IF ((OBJECT.EQ.2.OR.OBJECT.EQ.20).AND.GUN) GOTO 221 CAS05860
ISN 0565 NUMB = NUMB - 1 CAS05870
ISN 0566 IF (OBJECT .EQ. 18 .AND. BOTTLE) GOTO 222 CAS05880
ISN 0568 IF (ROOM.NE. 8) GOTO 800 CAS05890
ISN 0570 IF (BUT .EQ. 0 .OR. BUT .GE. 3) GOTO 800 CAS05900
ISN 0572 IF (ITEMS(11) .NE. 8 .OR. CAS05910
2 ITEMS(10) .NE. 8) GOTO 800 CAS05920
ISN 0574 ITEMS(10)=-3 CAS05930
ISN 0575 ITEMS(11)=-3 CAS05940
ISN 0576 BUT = 2 CAS05950
ISN 0577 CALL DES(402) CAS05960
ISN 0578 GOTO 25 CAS05970
ISN 0579 210 WRITE(6,1004) CAS05980
ISN 0580 GOTO 25 CAS05990
ISN 0581 453 IF (ITEMS(9).NE.-1 .OR. ITEMS(16).NE.-1) GOTO 720 CAS06000
ISN 0583 ITEMS( 9) = ROOM CAS06010
ISN 0584 ITEMS(16) = ROOM CAS06020
ISN 0585 NUMB = NUMB - 2 CAS06030
ISN 0586 IF (ROOM .NE. 84) WRITE(6,1112) CAS06040
ISN 0588 IF (ROOM .EQ. 84) PREC=.TRUE. CAS06050
ISN 0590 IF (ROOM .EQ. 84) WRITE(6,1011) CAS06060
ISN 0592 GOTO 25 CAS06070
ISN 0593 211 CONTINUE CAS06080
ISN 0594 DO 212 II=1,30 CAS06090
ISN 0595 IF (ITEMS(II) .NE. -1) GOTO 212 CAS06100
ISN 0597 ITEMS(II) = ROOM CAS06110
ISN 0598 212 CONTINUE CAS06120
ISN 0599 IF (BOTTLE) BOTTLE=.FALSE. CAS06130
ISN 0601 IF (WATER ) WATER =.FALSE. CAS06140
ISN 0603 IF (BLOOD ) BLOOD =.FALSE. CAS06150
ISN 0605 IF (GUN ) GUN =.FALSE. CAS06160
ISN 0607 NUMB = 0 CAS06170
ISN 0608 GOTO 800 CAS06180
ISN 0609 220 BOTTLE = .FALSE. CAS06190
ISN 0610 IF (OBJECT .EQ. 5) BLOOD = .FALSE. CAS06200
ISN 0612 IF (OBJECT .EQ. 26) WATER = .FALSE. CAS06210
ISN 0614 GOTO 800 CAS06220
ISN 0615 221 CONTINUE CAS06230
ISN 0616 GUN = .FALSE. CAS06240
ISN 0617 IF (OBJECT .EQ. 20) NUMB=NUMB-1 CAS06250
ISN 0619 IF (OBJECT .EQ. 20) ITEMS( 2)=ROOM CAS06260
ISN 0621 GOTO 800 CAS06270
ISN 0622 222 IF (.NOT. BLOOD) GOTO 223 CAS06280
ISN 0624 BLOOD = .FALSE. CAS06290
ISN 0625 BOTTLE= .FALSE. CAS06300
ISN 0626 ITEMS( 5) = ROOM CAS06310
ISN 0627 GOTO 800 CAS06320
ISN 0628 223 WATER = .FALSE. CAS06330
@@12@@
LEVEL 2.3.0 (JUNE 78) MAIN OS/360 FORTRAN H EXTENDED DATE 81.295/09.29.52 PAGE 12
ISN 0629 BOTTLE = .FALSE. CAS06340
ISN 0630 ITEMS(26) = ROOM CAS06350
ISN 0631 GOTO 800 CAS06360
C CAS06370
ISN 0632 113 CONTINUE CAS06380
C ---ENTER--- CAS06390
ISN 0633 J = ENTER(ROOM) CAS06400
ISN 0634 IF (J .EQ. 0) GOTO 314 CAS06410
ISN 0636 NUMOVE = NUMOVE + 1 CAS06420
ISN 0637 GOTO 26 CAS06430
ISN 0638 114 CONTINUE CAS06440
C ---LEAVE--- CAS06450
ISN 0639 IF (LEAVE(ROOM) .EQ. 0) GOTO 140 CAS06460
ISN 0641 J=LEAVE(ROOM) CAS06470
ISN 0642 NUMOVE = NUMOVE + 1 CAS06480
ISN 0643 GOTO 26 CAS06490
ISN 0644 115 CONTINUE CAS06500
C ---ATTACK--- CAS06510
ISN 0645 IF (GNOME .AND. OBJECT .EQ. 77) GOTO 760 CAS06520
ISN 0647 IF (OBJECT .NE. 76 .AND. OBJECT .NE. 49 .AND. CAS06530
2 OBJECT .NE. 55 ) GOTO 229 CAS06540
ISN 0649 IF (OBJECT.EQ.55.AND.(ROOM.NE.20.OR.(.NOT.BAT))) GOTO 201 CAS06550
ISN 0651 IF (OBJECT.EQ.49.AND.(ROOM.NE.8.OR.BUT.EQ.4)) GOTO 201 CAS06560
ISN 0653 IF (OBJECT .EQ. 76 .AND. (.NOT. WOLF)) GOTO 201 CAS06570
ISN 0655 WRITE(6,1039) CAS06580
ISN 0656 CALL YORN(II) CAS06590
ISN 0657 IF (II .EQ. 0) GOTO 25 CAS06600
ISN 0659 IF (OBJECT .EQ. 76) CALL DES(414) CAS06610
ISN 0661 IF (OBJECT .EQ. 49) CALL DES(415) CAS06620
ISN 0663 IF (OBJECT .EQ. 55) CALL DES(416) CAS06630
ISN 0665 GOTO 25 CAS06640
ISN 0666 229 CONTINUE CAS06650
ISN 0667 IF (OBJECT .NE. 8) GOTO 230 CAS06660
ISN 0669 WRITE(6,1039) CAS06670
ISN 0670 CALL YORN(II) CAS06680
ISN 0671 IF (II .EQ. 0) GOTO 25 CAS06690
ISN 0673 IF (ITEMS(8).NE.ROOM.AND.ITEMS(8).NE.-1)GOTO 201 CAS06700
ISN 0675 IF (ITEMS(8) .EQ. -1) NUMB=NUMB-1 CAS06710
ISN 0677 ITEMS(8) = 0 CAS06720
ISN 0678 CALL DES(422) CAS06730
ISN 0679 GOTO 25 CAS06740
ISN 0680 230 CONTINUE CAS06750
ISN 0681 IF (OBJECT .NE. 78) GOTO 231 CAS06760
ISN 0683 IF (ROOM .NE. 86 .OR. HOLE) GOTO 201 CAS06770
ISN 0685 WRITE(6,1122) CAS06780
ISN 0686 GOTO 25 CAS06790
ISN 0687 231 CONTINUE CAS06800
ISN 0688 IF (OBJECT .NE. 39) GOTO 234 CAS06810
ISN 0690 IF (MASTER .EQ. 4) GOTO 234 CAS06820
ISN 0692 WRITE(6,1039) CAS06830
ISN 0693 CALL YORN(II) CAS06840
ISN 0694 IF (II .EQ. 0) GOTO 25 CAS06850
ISN 0696 WRITE(6,1086) CAS06860
ISN 0697 GOTO 25 CAS06870
ISN 0698 234 CONTINUE CAS06880
ISN 0699 IF (OBJECT .NE. 80) GOTO 236 CAS06890
ISN 0701 IF (ROOM .NE. 93 .OR. .NOT. WIZ) GOTO 201 CAS06900
ISN 0703 235 WRITE(6,1129) CAS06910
@@13@@
LEVEL 2.3.0 (JUNE 78) MAIN OS/360 FORTRAN H EXTENDED DATE 81.295/09.29.52 PAGE 13
ISN 0704 GOTO 25 CAS06920
ISN 0705 236 CONTINUE CAS06930
ISN 0706 CALL DES(418) CAS06940
ISN 0707 GOTO 25 CAS06950
ISN 0708 116 CONTINUE CAS06960
C ---KILL--- CAS06970
ISN 0709 GOTO 115 CAS06980
ISN 0710 117 CONTINUE CAS06990
C ---THROW--- CAS07000
ISN 0711 IF (ROOM .EQ. 47 .AND. OBJECT .EQ. 26) GOTO 391 CAS07010
ISN 0713 IF (OBJECT .EQ. 16) GOTO 241 CAS07020
ISN 0715 IF (OBJECT .EQ. 9) GOTO 240 CAS07030
ISN 0717 IF (OBJECT .GT. NITEMS) GOTO 740 CAS07040
ISN 0719 IF (ITEMS(OBJECT).NE.-1 .AND. ITEMS(OBJECT).NE.ROOM) GOTO 720 CAS07050
ISN 0721 IF (OBJECT .EQ. 12) GOTO 380 CAS07060
ISN 0723 IF (OBJECT .EQ. 3) GOTO 380 CAS07070
ISN 0725 IF (OBJECT .EQ. 6 .AND. ROOM .EQ. 43) GOTO 247 CAS07080
ISN 0727 IF (OBJECT .NE. 25) GOTO 240 CAS07090
ISN 0729 IF (ITEMS(25) .NE. -1) GOTO 720 CAS07100
ISN 0731 NUMB = NUMB - 1 CAS07110
ISN 0732 IF (ROOM .NE. 1) GOTO 232 CAS07120
ISN 0734 IF (SHUTTR .EQ. 0) GOTO 238 CAS07130
ISN 0736 WIND1 = 3 CAS07140
ISN 0737 WRITE(6,1061) CAS07150
ISN 0738 ITEMS(25) = 0 CAS07160
ISN 0739 GOTO 25 CAS07170
ISN 0740 232 IF (.NOT. WOLF) GOTO 233 CAS07180
ISN 0742 WRITE(6,1062) CAS07190
ISN 0743 WOLF = .FALSE. CAS07200
ISN 0744 ITEMS(25) = 0 CAS07210
C Reduce MAX by ten, because the acid is needed to CAS07220
C get passed the bars and retrieve the statue. CAS07230
ISN 0745 MAX = MAX - 10 CAS07240
ISN 0746 GOTO 25 CAS07250
ISN 0747 233 CONTINUE CAS07260
ISN 0748 IF (ROOM .NE. 10) GOTO 238 CAS07270
ISN 0750 IF (WIND2 .LT. 1) GOTO 238 CAS07280
ISN 0752 WIND2 = 3 CAS07290
ISN 0753 WRITE(6,1061) CAS07300
ISN 0754 GOTO 25 CAS07310
ISN 0755 238 CONTINUE CAS07320
ISN 0756 WRITE(6,1063) CAS07330
ISN 0757 ITEMS(25) = 0 CAS07340
ISN 0758 MAX = MAX - 10 CAS07350
ISN 0759 GOTO 25 CAS07360
ISN 0760 240 CONTINUE CAS07370
ISN 0761 IF (OBJECT .NE. 9) GOTO 241 CAS07380
ISN 0763 IF (ROPE .EQ. 3) GOTO 472 CAS07390
ISN 0765 IF (ROOM .NE. 1) GOTO 112 CAS07400
ISN 0767 IF (WIND1.NE. 3) GOTO 217 CAS07410
ISN 0769 IF (ROPE .GT. 0) GOTO 242 CAS07420
ISN 0771 ROPE = -2 CAS07430
ISN 0772 NUMB = NUMB - 1 CAS07440
ISN 0773 ITEMS(9) = 0 CAS07450
ISN 0774 WRITE(6,1071) CAS07460
ISN 0775 GOTO 25 CAS07470
ISN 0776 242 IF (ROPE .GT. 1) GOTO 243 CAS07480
ISN 0778 ROPE = 2 CAS07490
@@14@@
LEVEL 2.3.0 (JUNE 78) MAIN OS/360 FORTRAN H EXTENDED DATE 81.295/09.29.52 PAGE 14
ISN 0779 WRITE(6,1070) CAS07500
ISN 0780 SCORE = SCORE + ROPVAL CAS07510
ISN 0781 ROPVAL = 0 CAS07520
ISN 0782 NUMB = NUMB - 1 CAS07530
ISN 0783 ITEMS(9) = ROOM CAS07540
ISN 0784 GOTO 25 CAS07550
ISN 0785 243 WRITE(6,1072) CAS07560
ISN 0786 GOTO 25 CAS07570
ISN 0787 241 CONTINUE CAS07580
ISN 0788 IF (OBJECT .NE. 16) GOTO 474 CAS07590
ISN 0790 472 IF (ROOM .NE. 83) GOTO 112 CAS07600
ISN 0792 PREC = .TRUE. CAS07610
ISN 0793 ITEMS(16) = 84 CAS07620
ISN 0794 ITEMS( 9) = 84 CAS07630
ISN 0795 NUMB = NUMB - 2 CAS07640
ISN 0796 WRITE(6,1011) CAS07650
ISN 0797 GOTO 25 CAS07660
ISN 0798 474 CONTINUE CAS07670
ISN 0799 IF (OBJECT .NE. 27) GOTO 475 CAS07680
ISN 0801 IF (ROOM .NE. 86 .OR. HOLE) GOTO 112 CAS07690
ISN 0803 ITEMS(27) = -3 CAS07700
ISN 0804 NUMB = NUMB - 1 CAS07710
ISN 0805 WRITE(6,1119) CAS07720
ISN 0806 GOTO 25 CAS07730
ISN 0807 475 CONTINUE CAS07740
ISN 0808 GOTO 112 CAS07750
ISN 0809 380 CONTINUE CAS07760
ISN 0810 IF (OBJECT.EQ.12 .AND. ROOM.EQ.99 .AND. (.NOT.MASECT)) GOTO 767 CAS07770
ISN 0812 IF (OBJECT.EQ.12 .AND. ROOM.EQ.93 .AND. WIZ) GOTO 765 CAS07780
ISN 0814 IF (GNOME) GOTO 770 CAS07790
ISN 0816 IF (OBJECT .EQ. 12) ITEMS(12)=ROOM CAS07800
ISN 0818 IF (OBJECT .EQ. 3 .AND. ROOM.LT.95) ITEMS( 3) = ROOM CAS07810
ISN 0820 NUMB = NUMB -1 CAS07820
ISN 0821 IF (WOLF) OBJECT=76 CAS07830
ISN 0823 IF (ITEMS( 8) .EQ. ROOM .OR. ITEMS( 8) .EQ. -1) OBJECT=8 CAS07840
ISN 0825 IF (ROOM .EQ. 8) OBJECT = 49 CAS07850
ISN 0827 IF (ROOM .EQ. 20) OBJECT=55 CAS07860
ISN 0829 IF (ROOM .EQ. 86) OBJECT=78 CAS07870
ISN 0831 IF (ROOM .EQ. 93 .AND. WIZ) GOTO 235 CAS07880
ISN 0833 IF (ROOM .EQ. 6) OBJECT = 56 CAS07890
ISN 0835 IF (ROOM .EQ. 6) GOTO 137 CAS07900
ISN 0837 GOTO 379 CAS07910
ISN 0838 118 CONTINUE CAS07920
C ---LOAD--- CAS07930
ISN 0839 IF (OBJECT .EQ. 0) OBJECT=20 CAS07940
ISN 0841 IF (OBJECT .NE. 20) GOTO 700 CAS07950
ISN 0843 IF (ITEMS(20) .NE. -1) GOTO 720 CAS07960
ISN 0845 IF (ITEMS( 2) .EQ. -1) GOTO 274 CAS07970
ISN 0847 WRITE(6,1007) CAS07980
ISN 0848 GOTO 25 CAS07990
ISN 0849 274 IF (.NOT. GUN) NUMB=NUMB-1 CAS08000
ISN 0851 GUN = .TRUE. CAS08010
ISN 0852 GOTO 800 CAS08020
ISN 0853 119 CONTINUE CAS08030
C ---FUCK--- CAS08040
ISN 0854 IF (OBJECT .NE. 0) GOTO 261 CAS08050
ISN 0856 WRITE(6,1047) CAS08060
ISN 0857 GOTO 25 CAS08070
@@15@@
LEVEL 2.3.0 (JUNE 78) MAIN OS/360 FORTRAN H EXTENDED DATE 81.295/09.29.52 PAGE 15
ISN 0858 261 WRITE(6,1079) CAS08080
ISN 0859 GOTO 25 CAS08090
ISN 0860 120 CONTINUE CAS08100
C ---WAVE--- CAS08110
ISN 0861 IF (ITEMS(OBJECT) .NE. -1) GOTO 720 CAS08120
ISN 0863 IF (ROOM .LT. 95 .OR. OBJECT .NE. 3) GOTO 264 CAS08130
ISN 0865 IF (ROOM .EQ. 99) GOTO 264 CAS08140
ISN 0867 IF (ROOM .NE. 95) GOTO 813 CAS08150
ISN 0869 IF (MAS1) GOTO 262 CAS08160
ISN 0871 WRITE(6,1137) CAS08170
ISN 0872 MAS1 = .TRUE. CAS08180
ISN 0873 SCORE= SCORE + 3 CAS08190
ISN 0874 GOTO 25 CAS08200
ISN 0875 813 IF (ROOM .NE. 96) GOTO 814 CAS08210
ISN 0877 IF (MAS2) GOTO 262 CAS08220
ISN 0879 WRITE(6,1138) CAS08230
ISN 0880 MAS2 = .TRUE. CAS08240
ISN 0881 SCORE= SCORE + 2 CAS08250
ISN 0882 GOTO 25 CAS08260
ISN 0883 814 IF (ROOM .NE. 97) GOTO 815 CAS08270
ISN 0885 IF (MAS3) GOTO 262 CAS08280
ISN 0887 WRITE(6,1139) CAS08290
ISN 0888 MAS3 = .TRUE. CAS08300
ISN 0889 SCORE= SCORE + 3 CAS08310
ISN 0890 GOTO 25 CAS08320
ISN 0891 815 IF (MAS4) GOTO 262 CAS08330
ISN 0893 WRITE(6,1140) CAS08340
ISN 0894 MAS4 = .TRUE. CAS08350
ISN 0895 SCORE= SCORE + 2 CAS08360
ISN 0896 GOTO 25 CAS08370
ISN 0897 264 CONTINUE CAS08380
ISN 0898 IF (ROOM .NE. 93) GOTO 263 CAS08390
ISN 0900 IF (.NOT. WIZ) GOTO 262 CAS08400
ISN 0902 WRITE(6,1134) CAS08410
ISN 0903 WRITE(6,1135) CAS08420
ISN 0904 WIZ = .FALSE. CAS08430
ISN 0905 GOTO 25 CAS08440
ISN 0906 263 IF (ROOM .NE. 43) GOTO 262 CAS08450
ISN 0908 IF (MASTER.EQ.0 .OR. MASTER.EQ.4) GOTO 262 CAS08460
ISN 0910 IF (OBJECT .NE. 19) GOTO 262 CAS08470
ISN 0912 IF (ITEMS(19) .NE. -1) GOTO 720 CAS08480
ISN 0914 MASTER = 2 CAS08490
ISN 0915 CALL DES(425) CAS08500
ISN 0916 GOTO 25 CAS08510
ISN 0917 262 WRITE(6,1095) CAS08520
ISN 0918 GOTO 25 CAS08530
ISN 0919 121 CONTINUE CAS08540
C ---STAB--- CAS08550
ISN 0920 IF (OBJECT .EQ. 39) GOTO 247 CAS08560
ISN 0922 IF (OBJECT .EQ. 80) GOTO 765 CAS08570
ISN 0924 IF (ITEMS(12) .NE. -1) GOTO 246 CAS08580
ISN 0926 IF (GNOME .AND. OBJECT .EQ. 77) GOTO 770 CAS08590
ISN 0928 ITEMS(12) = ROOM CAS08600
ISN 0929 NUMB = NUMB - 1 CAS08610
ISN 0930 379 IF (OBJECT .NE. 49 .AND. OBJECT .NE. 76 .AND. CAS08620
2 OBJECT .NE. 55 .AND. OBJECT .NE. 78 .AND. CAS08630
3 OBJECT .NE. 8) GOTO 730 CAS08640
ISN 0932 IF (OBJECT .NE. 55) GOTO 381 CAS08650
@@16@@
LEVEL 2.3.0 (JUNE 78) MAIN OS/360 FORTRAN H EXTENDED DATE 81.295/09.29.52 PAGE 16
ISN 0934 IF (ROOM.NE.20.OR.(.NOT.BAT)) GOTO 201 CAS08660
ISN 0936 CALL DES(419) CAS08670
ISN 0937 GOTO 25 CAS08680
ISN 0938 381 CONTINUE CAS08690
ISN 0939 IF (OBJECT .NE. 76) GOTO 382 CAS08700
ISN 0941 IF (.NOT. WOLF) GOTO 201 CAS08710
ISN 0943 CALL DES(420) CAS08720
ISN 0944 GOTO 25 CAS08730
ISN 0945 382 CONTINUE CAS08740
ISN 0946 IF (OBJECT .NE. 49) GOTO 244 CAS08750
ISN 0948 IF (ROOM .NE. 8 ) GOTO 201 CAS08760
ISN 0950 IF (BUT .EQ. 4 ) GOTO 740 CAS08770
ISN 0952 BUT = 4 CAS08780
ISN 0953 WRITE(6,1055) CAS08790
ISN 0954 GOTO 25 CAS08800
ISN 0955 244 IF (OBJECT .NE. 8) GOTO 266 CAS08810
ISN 0957 IF (ITEMS(8).NE.ROOM .AND. ITEMS(8).NE.-1) GOTO 201 CAS08820
ISN 0959 HUNCH = 2 CAS08830
ISN 0960 IF (ITEMS(8) .EQ. -1) NUMB=NUMB-1 CAS08840
ISN 0962 WRITE(6,1056) CAS08850
ISN 0963 245 ITEMS(OBJECT) = 0 CAS08860
ISN 0964 GOTO 25 CAS08870
ISN 0965 266 IF (OBJECT .NE. 78) GOTO 730 CAS08880
ISN 0967 IF (ROOM .NE. 86 .OR. HOLE) GOTO 201 CAS08890
ISN 0969 WRITE(6,1123) CAS08900
ISN 0970 GOTO 25 CAS08910
ISN 0971 246 WRITE(6,1060) CAS08920
ISN 0972 GOTO 25 CAS08930
ISN 0973 247 CONTINUE CAS08940
ISN 0974 IF (MASTER .EQ. 0) GOTO 201 CAS08950
ISN 0976 IF (MASTER .EQ. 4 .OR. ROOM .NE. 43) GOTO 740 CAS08960
ISN 0978 IF (ITEMS( 6) .NE. -1) GOTO 250 CAS08970
ISN 0980 WRITE(6,1087) CAS08980
ISN 0981 MASTER = 4 CAS08990
ISN 0982 ITEMS( 6) = 0 CAS09000
ISN 0983 NUMB = NUMB - 1 CAS09010
ISN 0984 SCORE=SCORE+25 CAS09020
ISN 0985 DO 252 II=1,10 CAS09030
ISN 0986 WHER(II) = 2 CAS09040
ISN 0987 252 CONTINUE CAS09050
ISN 0988 WRITE(6,1130) CAS09060
ISN 0989 WRITE(6,1131) CAS09070
ISN 0990 WRITE(6,1132) CAS09080
ISN 0991 GOTO 25 CAS09090
ISN 0992 250 WRITE(6,1086) CAS09100
ISN 0993 GOTO 25 CAS09110
ISN 0994 122 CONTINUE CAS09120
C ---FEED--- CAS09130
ISN 0995 IF (OBJECT .NE. 55) GOTO 251 CAS09140
ISN 0997 IF (ROOM .NE. 20) GOTO 201 CAS09150
ISN 0999 IF (ITEMS( 5) .EQ. -1) GOTO 248 CAS09160
ISN 1001 IF (ITEMS(22) .EQ. -1) GOTO 249 CAS09170
ISN 1003 WRITE(6,1050) CAS09180
ISN 1004 GOTO 25 CAS09190
ISN 1005 248 ITEMS( 5) = 0 CAS09200
ISN 1006 BAT = .FALSE. CAS09210
ISN 1007 BOTTLE = .FALSE. CAS09220
ISN 1008 BLOOD = .FALSE. CAS09230
@@17@@
LEVEL 2.3.0 (JUNE 78) MAIN OS/360 FORTRAN H EXTENDED DATE 81.295/09.29.52 PAGE 17
ISN 1009 WRITE(6,1051) CAS09240
ISN 1010 GOTO 25 CAS09250
ISN 1011 249 WRITE(6,1052) CAS09260
ISN 1012 GOTO 25 CAS09270
ISN 1013 251 CONTINUE CAS09280