| 1 |
90 |
ja_rd |
#ifdef __MSDOS__ /* define fopen modes for binary files */
|
| 2 |
|
|
#define READ_MODE "rb"
|
| 3 |
|
|
#define WRITE_MODE "wb"
|
| 4 |
|
|
#else
|
| 5 |
|
|
#define READ_MODE "r"
|
| 6 |
|
|
#define WRITE_MODE "w"
|
| 7 |
|
|
#endif
|
| 8 |
|
|
|
| 9 |
|
|
extern void fSPEAK(long);
|
| 10 |
|
|
#define SPEAK(N) fSPEAK(N)
|
| 11 |
|
|
extern void fPSPEAK(long,long);
|
| 12 |
|
|
#define PSPEAK(MSG,SKIP) fPSPEAK(MSG,SKIP)
|
| 13 |
|
|
extern void fRSPEAK(long);
|
| 14 |
|
|
#define RSPEAK(I) fRSPEAK(I)
|
| 15 |
|
|
extern void fSETPRM(long,long,long);
|
| 16 |
|
|
#define SETPRM(FIRST,P1,P2) fSETPRM(FIRST,P1,P2)
|
| 17 |
|
|
extern void fGETIN(long*,long*,long*,long*);
|
| 18 |
|
|
#define GETIN(WORD1,WORD1X,WORD2,WORD2X) fGETIN(&WORD1,&WORD1X,&WORD2,&WORD2X)
|
| 19 |
|
|
extern long fYES(long,long,long);
|
| 20 |
|
|
#define YES(X,Y,Z) fYES(X,Y,Z)
|
| 21 |
|
|
extern long fGETNUM(long);
|
| 22 |
|
|
#define GETNUM(K) fGETNUM(K)
|
| 23 |
|
|
extern long fGETTXT(long,long,long,long);
|
| 24 |
|
|
#define GETTXT(SKIP,ONEWRD,UPPER,HASH) fGETTXT(SKIP,ONEWRD,UPPER,HASH)
|
| 25 |
|
|
extern long fMAKEWD(long);
|
| 26 |
|
|
#define MAKEWD(LETTRS) fMAKEWD(LETTRS)
|
| 27 |
|
|
extern void fPUTTXT(long,long*,long,long);
|
| 28 |
|
|
#define PUTTXT(WORD,STATE,CASE,HASH) fPUTTXT(WORD,&STATE,CASE,HASH)
|
| 29 |
|
|
extern void fSHFTXT(long,long);
|
| 30 |
|
|
#define SHFTXT(FROM,DELTA) fSHFTXT(FROM,DELTA)
|
| 31 |
|
|
extern void fTYPE0();
|
| 32 |
|
|
#define TYPE0() fTYPE0()
|
| 33 |
|
|
extern void fSAVWDS(long*,long*,long*,long*,long*,long*,long*);
|
| 34 |
|
|
#define SAVWDS(W1,W2,W3,W4,W5,W6,W7) fSAVWDS(&W1,&W2,&W3,&W4,&W5,&W6,&W7)
|
| 35 |
|
|
extern void fSAVARR(long*,long);
|
| 36 |
|
|
#define SAVARR(ARR,N) fSAVARR(ARR,N)
|
| 37 |
|
|
extern void fSAVWRD(long,long*);
|
| 38 |
|
|
#define SAVWRD(OP,WORD) fSAVWRD(OP,&WORD)
|
| 39 |
|
|
extern long fVOCAB(long,long);
|
| 40 |
|
|
#define VOCAB(ID,INIT) fVOCAB(ID,INIT)
|
| 41 |
|
|
extern void fDSTROY(long);
|
| 42 |
|
|
#define DSTROY(OBJECT) fDSTROY(OBJECT)
|
| 43 |
|
|
extern void fJUGGLE(long);
|
| 44 |
|
|
#define JUGGLE(OBJECT) fJUGGLE(OBJECT)
|
| 45 |
|
|
extern void fMOVE(long,long);
|
| 46 |
|
|
#define MOVE(OBJECT,WHERE) fMOVE(OBJECT,WHERE)
|
| 47 |
|
|
extern long fPUT(long,long,long);
|
| 48 |
|
|
#define PUT(OBJECT,WHERE,PVAL) fPUT(OBJECT,WHERE,PVAL)
|
| 49 |
|
|
extern void fCARRY(long,long);
|
| 50 |
|
|
#define CARRY(OBJECT,WHERE) fCARRY(OBJECT,WHERE)
|
| 51 |
|
|
extern void fDROP(long,long);
|
| 52 |
|
|
#define DROP(OBJECT,WHERE) fDROP(OBJECT,WHERE)
|
| 53 |
|
|
extern long fATDWRF(long);
|
| 54 |
|
|
#define ATDWRF(WHERE) fATDWRF(WHERE)
|
| 55 |
|
|
extern long fSETBIT(long);
|
| 56 |
|
|
#define SETBIT(BIT) fSETBIT(BIT)
|
| 57 |
|
|
extern long fTSTBIT(long,long);
|
| 58 |
|
|
#define TSTBIT(MASK,BIT) fTSTBIT(MASK,BIT)
|
| 59 |
|
|
extern long fRAN(long);
|
| 60 |
|
|
#define RAN(RANGE) fRAN(RANGE)
|
| 61 |
|
|
extern long fRNDVOC(long,long);
|
| 62 |
|
|
#define RNDVOC(CHAR,FORCE) fRNDVOC(CHAR,FORCE)
|
| 63 |
|
|
extern void fBUG(long);
|
| 64 |
|
|
#define BUG(NUM) fBUG(NUM)
|
| 65 |
|
|
extern void fMAPLIN(long);
|
| 66 |
|
|
#define MAPLIN(FIL) fMAPLIN(FIL)
|
| 67 |
|
|
extern void fTYPE();
|
| 68 |
|
|
#define TYPE() fTYPE()
|
| 69 |
|
|
extern void fMPINIT();
|
| 70 |
|
|
#define MPINIT() fMPINIT()
|
| 71 |
|
|
extern void fSAVEIO(long,long,long*);
|
| 72 |
|
|
#define SAVEIO(OP,IN,ARR) fSAVEIO(OP,IN,ARR)
|
| 73 |
|
|
extern void fDATIME(long*,long*);
|
| 74 |
|
|
#define DATIME(D,T) fDATIME(&D,&T)
|
| 75 |
|
|
extern long fIABS(long);
|
| 76 |
|
|
#define IABS(N) fIABS(N)
|
| 77 |
|
|
extern long fMOD(long,long);
|
| 78 |
|
|
#define MOD(N,M) fMOD(N,M)
|
