9 	SUBROUTINE GDT  subroutine
83 c GDT, PAGE 2A  argument
105 200	FORMAT('GDT>',$)  argument
107 200	FORMAT(' GDT>',$)  argument
109 210	FORMAT(A2)
111 220	FORMAT('?')
113 220	FORMAT(' ?')
115 230	FORMAT(2I6)
116 240	FORMAT(I6)
118 225	FORMAT('Limits:   ',$)
119 235	FORMAT('Entry:    ',$)
120 245	FORMAT('Idx,Ary:  ',$)
122 225	FORMAT(' Limits:   ',$)
123 235	FORMAT(' Entry:    ',$)
124 245	FORMAT(' Idx,Ary:  ',$)
127 2300	GO TO (2400,2500,2600,2700),ARGTYP(I)+1
152 C GDT, PAGE 3  argument
156 10000	IF(.NOT.VALID2(J,K,RLNT)) GO TO 2200
162 10100	CONTINUE
166 300	FORMAT('RM#  DESC1  EXITS ACTION  VALUE  FLAGS')
167 310	FORMAT(I3,4(1X,I6),1X,I6)
169 300	FORMAT(' RM#  DESC1  EXITS ACTION  VALUE  FLAGS')
170 310	FORMAT(1X,I3,4(1X,I6),1X,I6)
175 11000	IF(.NOT.VALID2(J,K,OLNT)) GO TO 2200
181 11100	CONTINUE
185 320	FORMAT('OB# DESC1 DESC2 DESCO ACT FLAGS1 FLAGS2 FVL TVL
189 320	FORMAT(' OB# DESC1 DESC2 DESCO ACT FLAGS1 FLAGS2 FVL TVL
196 12000	IF(.NOT.VALID2(J,K,ALNT)) GO TO 2200
201 12100	CONTINUE
205 340	FORMAT('AD#   ROOM  SCORE  VEHIC OBJECT ACTION  STREN  FLAGS')
206 350	FORMAT(I3,6(1X,I6),1X,I6)
208 340	FORMAT(' AD#   ROOM  SCORE  VEHIC OBJECT ACTION  STREN  FLAGS')
209 350	FORMAT(1X,I3,6(1X,I6),1X,I6)
214 13000	IF(.NOT.VALID2(J,K,CLNT)) GO TO 2200
219 13100	CONTINUE
223 360	FORMAT('CL#   TICK ACTION  FLAG')
224 370	FORMAT(I3,1X,I6,1X,I6,5X,L1)
226 360	FORMAT(' CL#   TICK ACTION  FLAG')
227 370	FORMAT(1X,I3,1X,I6,1X,I6,5X,L1)
232 14000	IF(.NOT.VALID2(J,K,XLNT)) GO TO 2200
241 14100	CONTINUE
245 380	FORMAT('  RANGE   CONTENTS')
246 390	FORMAT(I3,'-',I3,3X,10I7)
248 380	FORMAT('   RANGE   CONTENTS')
249 390	FORMAT(1X,I3,'-',I3,3X,10I7)
254 15000	WRITE(OUTCH,400) THFPOS,THFFLG,THFACT,SWDACT,SWDSTA
258 400	FORMAT('THFPOS=',I6,', THFFLG=',L2,',THFACT=',L2/
261 400	FORMAT(' THFPOS=',I6,', THFFLG=',L2,',THFACT=',L2/
267 16000	WRITE(OUTCH,410) RLNT,XLNT,OLNT,CLNT,VLNT,ALNT,MLNT,R2LNT,
272 410	FORMAT('R=',I6,', X=',I6,', O=',I6,', C=',I6/
276 410	FORMAT(' R=',I6,', X=',I6,', O=',I6,', C=',I6/
283 17000	IF(.NOT.VALID2(J,K,VLNT)) GO TO 2200
289 17100	CONTINUE
293 420	FORMAT('VL# OBJECT   PROB   OPPS   BEST  MELEE')
294 430	FORMAT(I3,5(1X,I6))
296 420	FORMAT(' VL# OBJECT   PROB   OPPS   BEST  MELEE')
297 430	FORMAT(1X,I3,5(1X,I6))
302 18000	IF(.NOT.VALID2(J,K,FMAX)) GO TO 2200
306 18100	CONTINUE
310 440	FORMAT('Flag #',I2,' = ',L1)
335 C GDT, PAGE 4  argument
339 20000	IF(.NOT.VALID1(J,FMAX)) GO TO 2200
347 480	FORMAT('Old=',L2,6X,'New= ',$)
349 480	FORMAT(' Old=',L2,6X,'New= ',$)
351 490	FORMAT(L1)
355 21000	WRITE(OUTCH,900)
359 900	FORMAT('Valid commands are:'/'AA- Alter ADVS'/
376 900	FORMAT(' Valid commands are:'/' AA- Alter ADVS'/
396 22000	THFFLG=.FALSE.
405 500	FORMAT('No robber.')
407 500	FORMAT(' No robber.')
412 23000	TROLLF=.TRUE.
418 510	FORMAT('No troll.')
420 510	FORMAT(' No troll.')
425 24000	CYCLOF=.TRUE.
431 520	FORMAT('No cyclops.')
433 520	FORMAT(' No cyclops.')
438 25000	DBGFLG=1
443 530	FORMAT('No deaths.')
445 530	FORMAT(' No deaths.')
450 26000	THFACT=.TRUE.
455 540	FORMAT('Restored robber.')
457 540	FORMAT(' Restored robber.')
462 27000	TROLLF=.FALSE.
468 550	FORMAT('Restored troll.')
470 550	FORMAT(' Restored troll.')
498 C GDT, PAGE 5  argument
502 30000	IF(.NOT.VALID1(J,OLNT)) GO TO 2200
511 580	FORMAT('Taken.')
513 580	FORMAT(' Taken.')
518 31000	PRSCON=1
523 32000	IF(.NOT.VALID3(J,RLNT,K,5)) GO TO 2200
531 590	FORMAT('Old= ',I6,6X,'New= ',$)
533 590	FORMAT(' Old= ',I6,6X,'New= ',$)
535 600	FORMAT(I6)
539 33000	IF(.NOT.VALID3(J,OLNT,K,14)) GO TO 2200
566 C GDT, PAGE 6  argument
570 36000	IF(.NOT.VALID1(J,XLNT)) GO TO 2200
577 610	FORMAT('Old= ',I6,6X,'New= ',$)
579 610	FORMAT(' Old= ',I6,6X,'New= ',$)
581 620	FORMAT(I6)
585 37000	IF(.NOT.VALID3(J,VLNT,K,5)) GO TO 2200
593 38000	IF(.NOT.VALID2(J,K,R2LNT)) GO TO 2200
596 38100	CONTINUE
600 630	FORMAT('#',I2,'   Room=',I6,'   Obj=',I6)
602 630	FORMAT(' #',I2,'   Room=',I6,'   Obj=',I6)
607 39000	IF(.NOT.VALID2(J,K,SMAX)) GO TO 2200
611 39100	CONTINUE
615 640	FORMAT('Switch #',I2,' = ',I6)
617 640	FORMAT(' Switch #',I2,' = ',I6)
622 40000	IF(.NOT.VALID1(J,SMAX)) GO TO 2200
630 41000	IF(.NOT.VALID2(J,K,MLNT)) GO TO 2200
636 41100	CONTINUE
640 650	FORMAT(I3,'-',I3,3X,10(1X,I6))
642 650	FORMAT(1X,I3,'-',I3,3X,10(1X,I6))
647 42000	CALL RSPEAK(J)
652 43000	WRITE(OUTCH,590) HERE
659 44000	WRITE(OUTCH,660) ORP,LASTIT,PVEC,SYN
663 660	FORMAT('ORPHS= ',I7,I7,4I7/
666 660	FORMAT(' ORPHS= ',I7,I7,4I7/
672 45000	WRITE(OUTCH,610) PRSFLG
679 46000	DO 46100 I=1,64,8
682 46100	CONTINUE
686 670	FORMAT(1X,8I3)
688 670	FORMAT(2X,8I3)
693 47000	IF(.NOT.VALID1(J,64)) GO TO 2200