DataMuseum.dk

top - metrics - download

    Length: 2944 (0xb80)
    Types: TextFile
    Names: »EDTYPES.SRC«

└─⟦295c4021d⟧ Bits:30008920 MT+ SPP 3/3
    └─⟦this⟧ »EDTYPES.SRC« 

TextFile

(*  VERSION 0008 *)

(* LAST CHANGE - MARCH 16, 1981 *)

CONST
        XINSRT = 0;             XADJST = 1;             XCHINS= 2;
        XSRCHSAME= 3;           XPGEFWD = 4;            XPGEBACK = 5;
        XCBUFF = 6;             XSRCH = 7;              XRPLCE = 8;
        XCUP = 9;               XCDOWN = 10;            XCRIGHT = 11;
        XCLEFT = 12;            XINSLINE = 13;          XDCHR = 14;
        XDLINE = 15;            XDTOEOL = 16;           XBEGEND = 17;
        XTOPBOT = 18;           XTAB    = 19;           XWRDRIGHT = 20;
        XWRDLEFT = 21;          XSUPERCMD = 22;         XDELWORD = 23;

        LFTWORD = $01;   æAå
        END_BEG = $02;   æBå
        PGEFWD  = $03;   æCå
        RTWORD  = $04;   æDå
        SRCHSAME= $05;   æEå
        INSRT   = $06;   æFå
        DCHR    = $07;   æGå
        CLEFT   = $08;   æHå
        TAB_CHR = $09;   æIå
        CDOWN   = $0A;   æJå
        CUP     = $0B;   æKå
        CRIGHT  = $0C;   æLå
        CR      = $0D;   æM = CARRAIGE RETURNå
        INSLINE = $0E;   æNå
        DELWRD  = $0F;   æOå
        D_TO_EOL= $10;   æPå
        SUPER   = $11;   æQå
        PGEBACK = $12;   æRå
        SRCH    = $13;   æSå
        BOT_TOP = $14;   æTå
        ADJST   = $15;   æUå
        ACCEPT  = $16;   æVå
        CBUFF   = $17;   æWå
        RPLCE   = $18;   æXå
        DLINE   = $19;   æYå
        CHINS   = $1A;   æZå
        ESC     = $1B;   æESCå
        QUIT    = $FE;   æSPECIAL CHARACTER FOR QUITTINGå

        CMDSZ = 23;      æUPPER BOUND ON COMMAND ARRAYå

        LF = $0A;        æLINE FEEDå
        CNTRLZ = $1A;   
        ESCAPE = $1B;
        NOMATCH = -10;  æOUT OF RANGE OF BUFFER INDICATING NO MATCH å
        HALFSCREEN = 11;æUSED IN PAGING BACK AND FORWARD å

        STATUSCOL = 0;  æSTART POSITION FOR STAT REPORTS å
        FIRSTROW = 0;   æFIRST ROW OF SCREEN OR BUF å

        FIRSTLINE = 0;  
        STRLEN = 30;    æUPPER BOUND ON EDSTRINGå

        MAXLNSIZE = 255;        (* MAX ALLOWED SIZE OF LINESZ *)
        
        CPMLINESZ = 127;æFOR MT+ FILE NAMEINGå

        MAXCH = 79;
        
TYPE
        FILENAME = STRINGÆ127Å;         æFOR GETTING FILENAMEå

        DIRECTION = (RIGHT, BACKWARD);  æDIRECTION TO TRAVEL IN BUFFERå

        CURSORPOS = (FIRSTCH,LASTCH,ZEROPOS,LASTPOS,XPOS);

        SEARCHKIND = (EQUAL, NOTEQUAL);

        EDSTRING = ARRAYÆ1..STRLENÅ OF CHAR;
     

        RWFILE = (RESETT,REWRITTE);
        (* FOR DOFILE, OPENING AND CREATING FILES*)

        FYLE = FILE;                    æFOR FILESå

        SSTRING = RECORD                æUSED FOR SEARCH AND REPLACEå
                    LEN : BYTE;
                    DATA : ARRAYÆ1..MAXCHÅ OF CHAR;
                  END;

        STATREC = RECORD
                    OCCUPIED : BOOLEAN; (* TRUE IF BUF CONTAINS TEXT *)
                  END;
«eof»