/original-bsd/contrib/dungeon/ |
H A D | clockr.F | 70 IF(HERE.EQ.MAINT) CALL JIGSUP(81) 274 RFLAG(HERE)=or(RFLAG(HERE),RMUNG) 275 RRAND(HERE)=114 322 IF(HERE.EQ.LEDG4) GO TO 9100 358 IF(HERE.EQ.MUNGRM) GO TO 10100 453 IF(HERE.NE.CRYPT) RETURN 455 IF(.NOT.LIT(HERE)) GO TO 20100 511 IF((HERE.EQ.INMIR).OR.(MRHERE(HERE).EQ.1)) 537 IF((HERE.NE.CELL).AND.(HERE.NE.PCELL)) GO TO 24100 552 CALL NEWSTA(MASTER,0,HERE,0,0) [all …]
|
H A D | nobjs.F | 91 IF(HERE.EQ.BKBOX) GO TO 2600 233 I=HERE 249 7000 IF((IABS(HERE-MLOC).NE.1).OR.(MRHERE(HERE).NE.0).OR. 275 9000 IF(HERE.NE.CPUZZ) GO TO 9500 318 CALL PRINCR(.TRUE.,HERE) 320 RFLAG(HERE)=or(RFLAG(HERE),RSEEN) 323 9500 IF(HERE.NE.SCOLAC) GO TO 9700 332 9700 IF(HERE.NE.BKBOX) GO TO 10 421 CALL NEWSTA(I,0,HERE,0,0) 428 IF(QHERE(J,HERE)) I=762 [all …]
|
H A D | sverbs.F | 126 67000 CALL RSPEAK(RDESC2-HERE) 194 IF(and(RFLAG(HERE),(RWATER+RFILL)).EQ.0) 201 7000 IF(HERE.EQ.MBARR) GO TO 7100 213 8000 IF((HERE.EQ.MCYCL).AND.QHERE(CYCLO,HERE)) GO TO 8100 242 10000 IF(HERE.NE.TEMP2) GO TO 10050 257 11000 IF(HERE.NE.TEMP1) GO TO 11050 268 12000 IF(HERE.NE.TREAS) GO TO 12050 332 17100 IF(HERE.NE.SCOLAC) GO TO 17300 477 IF(QHERE(PRSO,HERE)) GO TO 22100 513 TRAVEL(REXIT(HERE)+1)=214 [all …]
|
H A D | dverb1.F | 53 500 IF((X.NE.0).OR. QHERE(PRSO,HERE)) GO TO 600 126 400 CALL NEWSTA(PRSO,0,HERE,0,0) 128 IF(HERE.EQ.MTREE) CALL NEWSTA(PRSO,0,FORE3,0,0) 141 IF((I.NE.0).AND.(HERE.EQ.MTREE)) I=659 215 725 IF(QHERE(J,HERE)) GO TO 750 282 IF(.NOT.LIT(HERE)) GO TO 4000 288 SAVEH=HERE 295 IF(.NOT.QHERE(PRSO,HERE).OR. 304 IF(SAVEH.NE.HERE) RETURN 316 IF(SAVEH.NE.HERE) RETURN [all …]
|
H A D | objcts.F | 76 2000 IF(HERE.NE.MMACH) GO TO 10 341 IF(HERE.EQ.MRAIN) GO TO 39500 343 IF((HERE.EQ.POG).OR.(HERE.EQ.FALLS)) GO TO 39200 420 CALL NEWSTA(CAGE,0,HERE,0,0) 468 49100 RFLAG(HERE)=or(RFLAG(HERE),RMUNG) 469 RRAND(HERE)=271 538 52300 IF((HERE.NE.ALICE).AND.(HERE.NE.ALISM).AND.(HERE.NE.ALITR)) 544 RFLAG(HERE)=or(RFLAG(HERE),RMUNG) 545 RRAND(HERE)=281 554 IF(HERE.NE.ALISM) GO TO 52500 [all …]
|
H A D | sobjs.F | 91 6000 IF(HERE.EQ.DOME) GO TO 6100 159 CALL NEWSTA(BLAMP,142,HERE,0,0) 204 MROOM=xor(HERE,1) 207 IF(OROOM(I).EQ.HERE) OROOM(I)=-1 369 IF(HERE.NE.CLEAR) I=216 381 29000 IF(HERE.NE.LROOM) GO TO 29100 387 29100 IF(HERE.NE.CELLA) GO TO 10 474 34100 RFLAG(HERE)=xor(RFLAG(HERE),RLIGHT) 516 CALL NEWSTA(RBOAT,236,HERE,0,0) 552 CALL NEWSTA(DBOAT,240,HERE,0,0) [all …]
|
H A D | dgame.F | 70 350 IF(.NOT.ECHOF.AND.(HERE.EQ.ECHOR)) GO TO 1000 71 F=RAPPLI(RACTIO(HERE)) 75 IF(.NOT.LIT(HERE)) PRSCON=1 114 IF(FINDXT(PRSO,HERE)) GO TO 300 144 HERE=AROOM(WINNER) 156 HERE=AROOM(WINNER) 166 2350 F=RAPPLI(RACTIO(HERE))
|
H A D | villns.F | 29 IF(.NOT.QHERE(AXE,HERE)) GO TO 1050 34 1050 IF(QHERE(TROLL,HERE)) CALL RSPEAK(I) 60 IF(QHERE(TROLL,HERE)) CALL RSPEAK(437) 238 IF(QHERE(THIEF,HERE)) CALL RSPEAK(498) 244 IF(QHERE(THIEF,HERE)) CALL RSPEAK(499) 263 IF((I.EQ.CHALI).OR.(I.EQ.THIEF).OR.(HERE.NE.TREAS) 271 135 IF(OADV(I).EQ.-THIEF) CALL NEWSTA(I,0,HERE,0,0) 297 IF(QHERE(THIEF,HERE)) CALL RSPEAK(505) 304 IF((HERE.EQ.TREAS).AND.QHERE(CHALI,HERE)) 329 CALL NEWSTA(I,0,HERE,0,0)
|
H A D | verbs.F | 82 18000 IF(LIT(HERE)) GO TO 18100 297 42400 CALL NEWSTA(I,0,HERE,0,0) 310 IF(QHERE(PRSO,HERE)) I=399 318 44000 F=LIT(HERE) 335 44300 IF(.NOT.F .AND.LIT(HERE)) F=RMDESC(0) 356 45300 IF(.NOT.LIT(HERE)) CALL RSPEAK(406) 418 IF(QHERE(PRSO,HERE)) GO TO 48300 430 IF(QHERE(J,HERE)) GO TO 48100 467 51100 IF(QHERE(PRSO,HERE)) GO TO 51200 497 IF(and(RFLAG(HERE),RLAND).NE.0) GO TO 52200 [all …]
|
H A D | nrooms.F | 71 43000 IF(PRSA.EQ.LOOKW) CALL EWTELL(HERE,683) 76 44000 IF(PRSA.EQ.LOOKW) CALL EWTELL(HERE,686) 81 45000 IF(PRSA.EQ.LOOKW) CALL EWTELL(HERE,687) 117 IF(QHERE(J,HERE).AND.(J.NE.RBEAM)) GO TO 47200 297 IF(IABS(MLOC-HERE).NE.1) GO TO 200 310 100 M1=MRHERE(HERE)
|
H A D | dsub.F | 326 IF(QHERE(J,HERE)) OFLAG2(J)=and(OFLAG2(J),not(FITEBT)) 471 50 IF(HERE.EQ.AROOM(PLAYER)) GO TO 100 479 100 IF(LIT(HERE)) GO TO 300 486 300 RA=RACTIO(HERE) 490 I=RDESC2-HERE 502 I=RDESC1(HERE) 518 600 IF(FULL.NE.2) CALL PRINCR(FULL.NE.0,HERE) 519 RFLAG(HERE)=or(RFLAG(HERE),RSEEN)
|
H A D | dverb2.F | 90 WRITE(1) WINNER,HERE,THFPOS,TELFLG,THFFLG,THFACT, 200 READ(1) WINNER,HERE,THFPOS,TELFLG,THFFLG,THFACT, 252 IF((WINNER.NE.PLAYER).OR.LIT(HERE).OR.PROB(25,25)) 254 IF(.NOT.FINDXT(PRSO,HERE)) GO TO 450 288 500 IF(FINDXT(PRSO,HERE)) GO TO 550 296 IF(and(RFLAG(HERE),RNWALL).NE.0) XSTRNG=524 380 XROOM1=and(TRAVEL(REXIT(HERE)+I),XRMASK) 459 9000 IF(MRHERE(HERE).NE.1) GO TO 9100
|
H A D | rooms.F | 300 IF((HERE.NE.BSHAF).OR.(.NOT.LIT(HERE))) RETURN 396 21600 IF(QHERE(GHOST,HERE)) GO TO 21700 491 IF(OROOM(THIEF).NE.HERE) 493 THFPOS=HERE 496 IF(OROOM(CHALI).EQ.HERE) 504 IF((I.EQ.CHALI).OR.(I.EQ.THIEF).OR..NOT.QHERE(I,HERE)) 567 IF(.NOT. QHERE(GUANO,HERE)) GO TO 32100
|
H A D | dso2.F | 22 LHR=and(RFLAG(HERE),RLAND).NE.0 57 HERE=NR 58 AROOM(WHO)=HERE
|
H A D | ballop.F | 49 IF(FINDXT(PRSO,HERE)) GO TO 250 77 500 IF((PRSA.NE.UNBOAW).OR.(and(RFLAG(HERE),RLAND).EQ.0))
|
H A D | np2.F | 34 IF(.NOT.LIT(HERE)) GO TO 200 37 OBJ=SCHLST(OIDX,AIDX,HERE,0,0,SPCOBJ) 103 IF(.NOT.GHERE(I,HERE)) GO TO 1200
|
H A D | gamestate.h | 5 COMMON /PLAY/ WINNER,HERE,TELFLG
|
/original-bsd/old/uudiff/ |
H A D | remdiff | 15 set HERE=`pwd` 29 set LOCAL=`$UUDIR/lenrem $LOCAL $HERE` 30 set REMOTE=`$UUDIR/lenrem $REMOTE $HERE` 51 cp zzb$pid $HERE/zzc$pid 54 uucp -f -w $SYS!zzb$pid $HERE/zzc$pid 59 $HERE/zzc$pid 61 chdir $HERE 83 chdir $HERE 99 echo $HERE/\$f.$pid >>zzm$pid 111 echo uudiff$pid arrived in $HERE "|" mail $ME
|
/original-bsd/usr.bin/f77/f77.tahoe/ |
H A D | pathnames.h | 30 #if HERE!=TARGET || FAMILY!=PCC || (HERE!=VAX && HERE!=TAHOE)
|
H A D | f77.c | 195 #if HERE==PDP11 || HERE==VAX || HERE==TAHOE 198 #if HERE == INTERDATA 556 #if HERE==PDP11 || HERE==VAX || HERE==TAHOE 805 #if HERE==PDP11 && TARGET!=PDP11 844 #if HERE==PDP11 || HERE==INTERDATA || HERE==VAX || HERE==TAHOE 854 #if HERE==INTERDATA
|
/original-bsd/usr.bin/f77/f77.vax/ |
H A D | pathnames.h | 30 #if HERE!=TARGET || FAMILY!=PCC || (HERE!=VAX && HERE!=TAHOE)
|
/original-bsd/usr.bin/f77/pass1.tahoe/ |
H A D | conv.h | 28 #if HERE == VAX 33 #if HERE == TAHOE
|
H A D | tahoe.c | 37 #if HERE == VAX || HERE == TAHOE 356 #if HERE == VAX 363 #if HERE == TAHOE 383 #if HERE == VAX 406 #if HERE == VAX 440 #if HERE == VAX 469 #if HERE == VAX 490 #if HERE == VAX
|
/original-bsd/lib/libc/regex/ |
H A D | regcomp.c | 129 #define HERE() (p->slen) macro 269 conc = HERE(); 286 prevfwd = HERE(); 316 pos = HERE(); 323 p->pbegin[subno] = HERE(); 328 p->pend[subno] = HERE(); 543 p->pbegin[subno] = HERE(); 549 p->pend[subno] = HERE(); 1409 register sopno ret = HERE(); 1472 sn = HERE(); [all …]
|
/original-bsd/usr.bin/f77/include.vax/ |
H A D | defines.h | 39 #ifndef HERE 40 HERE NOT DEFINED !!!! 41 Here = HERE
|