|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 8448 (0x2100)
Types: TextFile
Names: »ftngram «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »ftngram «
METASYMBOLS M1== M2=/ M3=< M4=!
PROGRAM SUBROUTINE FUNCTION ENTRY DATA COMMON
EQUIVALENC INTEGER LONG REAL DOUBLE PRECISION
COMPLEX LOGICAL DIMENSION ZONE EXTERNAL FORMAT
FORMATO ASSIGN TO GOTO GO CONTINUE
CALL RETURN STOP IF DO END
READ WRITE LT LE EQ NE
GE GT NOT AND OR SHIFT
TRUE FALSE . + - ** * :
/ ; $ ( ) ,
' PAUSE REWIND FIND
ENDFILE DEFINE FILE ERROR
= NAME KONST STRING EMPTY !
STRINGCH="!
METASYMBOLS M1== M2=/ M3=< M4=;
<PROGRAM< = <PROGRAM UNIT<
/ <PROCEDURE LIST<
/ <PROCEDURE LIST< <PROGRAM UNIT<
/ <PROGRAM UNIT< <PROCEDURE LIST< ;
<PROCEDURE LIST< = <PROCEDURE LIST< <PROCEDURE<
/ <PROCEDURE< ;
<PROCEDURE START< = <PROCEDURE DECL< <FIRSTPART<
/ <PROCEDURE DECL< ;
<PROCEDURE< = <PROCEDURE START< <STATEMENT PART< <SEPARATOR< END <SEPARATOR<
/ <PROCEDURE START< END <SEPARATOR< ;
<PROGRAM START< = <PRG< NAME <SEPARATOR< <FIRSTPART<
/ <prg< name <separator< ;
<PRG< = PROGRAM ;
<PROGRAM UNIT< = <PROGRAM START< <STATEMENT PART< <SEPARATOR< END <SEPARATOR<
/ <PROGRAM START< END <SEPARATOR< ;
<FIRSTPART< = <DECLARATIONPART< <SEPARATOR<
/ <EQUIVALENCEPART< <SEPARATOR<
/ <DECLARATIONPART< <SEPARATOR< <EQUIVALENCEPART< <SEPARATOR< ;
<DECLARATION PART< = <DECLARATION PART< <SEPARATOR< <DECLARATION<
/ <DECLARATION< ;
<DECLARATION< = DATA <INITIALIZATION LIST<
/ COMMON <COMMONLIST<
/ <TYPE< <VARIABLELIST<
/ <TYPE< ERROR / DATA ERROR/ COMMON ERROR/ DIMENSION ERROR /ZONE ERROR
/ EXTERNAL ERROR / DEFINE ERROR
/ DIMENSION <DIMENSION VAR LIST<
/ ZONE <ZONE DEFINITION LIST<
/ EXTERNAL <EXTERNAL LIST<
/ define file <file-def-list<
;
<file-def-list< = <file-def-list< , <file-def<
/ <file-def< ;
<file-def< = <unit< ( <noofrec< ,<max< , name , name );
<NOOFREC< = KONST ;
<MAX< = KONST ;
<STATEMENT PART< = <STATEMENT PART< <SEPARATOR< <STATEMENT<
/ <STATEMENT< ;
<PROCEDURE DECL< = SUBROUTINE <SUB-NAME< <SEPARATOR<
/ SUBROUTINE <SUB-NAME< ( <FORMAL PARAMETERS< ) <SEPARATOR<
/ FUNCTION <SUB-NAME< ( <FORMAL PARAMETERS< ) <SEPARATOR<
/ <TYPE< FUNCTION <SUB-NAME< ( <FORMAL PARAMETERS< ) <SEPARATOR<
/ ERROR ;
<SUB-NAME< = NAME ;
<FORMAL PARAMETERS< = <FORMAL PARAMETERS< , NAME
/ NAME ;
<COMMONLIST< = <COMMONLIST< <COMMON<
/ <COMMON< ;
METASYMBOLS M1== M2=? M3=< M4=!
<COMMON< = / NAME / <BOUNDED VAR LIST <
? / / <BOUNDED VAR LIST < !
<SEPARATOR< =
$
? ; !
METASYMBOLS M1== M2=/ M3=< M4=;
<BOUNDED VAR LIST< = <BOUNDED VAR LIST< , <BOUNDED VAR<
/ <BOUNDED VAR< ;
<BOUNDED VAR< = NAME
/ NAME ( <BOUNDS< ) ;
<BOUNDS< = <BOUNDS< , KONST
/ KONST;
<TYPE< = INTEGER
/ LONG
/ REAL
/ DOUBLE PRECISION
/ COMPLEX
/ LOGICAL ;
<VARIABLE LIST< = <VARIABLELIST< , <DECL VARIABLE<
/ <DECL VARIABLE< ;
<DECL VARIABLE< = NAME
/ NAME ( <BOUNDS1< ) ;
<BOUNDS1< = <BOUNDS1< , <BOUND1<
/ <BOUND1< ;
<BOUND1< = KONST
/ NAME ;
<DIMENSION VAR LIST< = < DIMENSIONVARLIST< , NAME ( <BOUNDS1< )
/ NAME ( <BOUNDS1< ) ;
<ZONE DEFINITION LIST< = <ZONE DEFINITION LIST< , <ZONE DEFINITION<
/ <ZONE DEFINITION< ;
<ZONE DEFINITION< = NAME ( KONST, KONST , NAME)
/ NAME ;
<EXTERNAL LIST< = <EXTERNAL LIST< , NAME
/ NAME ;
<F< = FORMAT
/ FORMATO ;
METASYMBOLS M1== M2=? M3=< M4=;
<FORMAT FIELD< = NAME ? KONST ? / ? ' ;
METASYMBOLS M1== M2=/ M3=< M4=;
<INITIALIZATION LIST< = <INITIALIZATION LIST< , <INITIALIZATION<
/ <INITIALIZATION< ;
METASYMBOLS M1== M2=! M3=< M4=;
<INITIALIZATION< = <BOUNDED VAR LIST< / <INIT CONST LIST< / ;
METASYMBOLS M1== M2=/ M3=< M4=;
<INIT CONST LIST< = <INIT CONST LIST< , <INIT CONSTANT<
/ <INIT CONSTANT< ;
<INIT CONSTANT< = KONST * <CONSTANT<
/ <CONSTANT<
/ KONST * STRING
/ STRING ;
<CONSTANT< = <NUMBER<
/ <LOGICAL< ;
<LOGICAL< = . TRUE .
/ . FALSE . ;
<NUMBER< =
<REAL-DOUBLE<
/ ( <REAL-DOUBLE< : <REAL-DOUBLE< ) ;
<STATEMENT< = <SIMPLE STATEMENT<
/ DO KONST NAME = <DO BOUNDS<
/ <CONDITIONAL STATEMENT<
/ <F< ( <FORMAT FIELD< )
/ ENTRY NAME
/ EMPTY ;
<SIMPLE STATEMENT< = <LEFTSIDE< <EXPR<
/ ASSIGN KONST TO NAME
/ <JUMP STATEMENT<
/ CONTINUE
/ <PROCEDURE STATEMENT<
/ RETURN
/ <PAUSE< KONST
/ <pause<
/ STOP KONST
/ STOP
/ <IN OUT STATEMENT<
/ ERROR
/ <REWIND< KONST
/ <ENDFILE< KONST
/ <FIND< ( KONST ' <EXPR< ) ;
<PAUSE< = PAUSE ;
<REWIND< = REWIND ;
<ENDFILE< = ENDFILE / end file ;
< FIND< = FIND ;
<LEFTSIDE< = <VARIABLE< =;
<DO BOUNDS< = <EXPR< , <EXPR<
/ <EXPR< , <EXPR< , <EXPR< ;
<VARIABLE< = NAME
/ NAME ( <ARRAY OR ZONE BOUNDS< ) ;
<ARRAY OR ZONE BOUNDS< = <ARRAY OR ZONE BOUNDS< , <EXPR<
/ <EXPR< ;
<JUMP STATEMENT< = <GOTO< KONST
/ <GOTO< NAME , ( <LABELLIST< )
/ <GOTO< ( <LABELLIST< ) , <EXPR< ;
<GOTO< = GO TO
/ GOTO ;
<LABELLIST< = <LABELLIST< , KONST
/ KONST ;
<CONDITIONAL STATEMENT< = <IF< ( <EXPR< ) KONST , KONST , KONST
/ <IF< ( <EXPR< ) <SIMPLE STATEMENT< ;
<IF< = IF ;
<PROCEDURE STATEMENT< = CALL NAME
/ CALL NAME ( <ACTUAL PARAM LIST< ) ;
<ACTUAL PARAM LIST< = <ACTUAL PARAM LIST< , <EXPR<
/ <EXPR< ;
<IN OUT STATEMENT< = READ ( <ZONE-UNIT< <I-O PARAM< ) <I-O-VARS<
/ WRITE ( <ZONE-UNIT< <I-O PARAM< ) <I-O-VARS<
/ <SPECIAL READ WRITE< <I-O-VARS<;
<ZONE-UNIT< = NAME / KONST ;
<SPECIAL READ WRITE< = <SPECIAL READ STATEM< <EXPR< )
/ <SPECIAL WRITE STATEM< <EXPR< ) ;
<SPECIAL READ STATEM< = READ ( <FILENO< ' ;
<SPECIAL WRITE STATEM< = WRITE ( <FILENO< ' ;
<FILENO< = KONST / name ;
<UNIT< = KONST ;
<I-O PARAM< = EMPTY
/ , KONST
/ , NAME ;
<I-O-VARS< = <I-O-VARS< , <I-O-VAR<
/ empty
/ <I-O-VAR< ;
<I-O-VAR< = <EXPR<
/ (<I-O-VARS< , NAME = <IMPLIED DO LIMITS< ) ;
<IMPLIED DO LIMITS< = <IMP DO< , <IMP DO< , <IMP DO<
/ <IMP DO< , <IMP DO< ;
<IMP-DO-VAR< = NAME
/ KONST
/ KONST * NAME ;
<IMP DO< = <IMP-DO-VAR<
/ <IMP-DO-VAR<+ KONST ;
<BASIC REAL< = KONST . KONST
/ KONST .
/ . KONST ;
<EXPONENT PART< = NAME + KONST
/ NAME - KONST ;
<REAL-DOUBLE< = KONST
/ <BASIC REAL<
/ KONST <EXPONENT PART<
/ <BASIC REAL< <EXPONENT PART< ;
<RELATIONAL OPERATOR< = LT
/ LE
/ EQ
/ NE
/ GE
/ GT
/ AND
/ OR
/ SHIFT ;
<EQUIVALENCE LIST< = <EQUIVALENCE LIST< , ( <EQ VAR LIST< )
/ ( <EQ VAR LIST< ) ;
<EQUIVALENCE PART< = EQUIVALENC <EQUIVALENCE LIST<
/ <equivalencepart< <separator< equivalenc
<equivalencelist< ;
<EQ VAR LIST< = <EQ VAR LIST< , <BOUNDED VAR<
/ <BOUNDED VAR< ;
<GENERALVAR< = <CONSTANT<
/ <VARIABLE<
/ STRING ;
<PRIM1< = <PRIM1< ** <GENERAL VAR<
/ ( <EXPR< )
/ <GENERALVAR< ;
METASYMBOLS M1== M2=# M3=< M4=;
<PRIM2< = <PRIM2< * <PRIM1<
# <PRIM2< / <PRIM1<
# <PRIM1< ;
<PRIM3< = <PRIM3< + <PRIM2<
# <PRIM3< - <PRIM2<
# + <PRIM2<
# - <PRIM2<
# <PRIM2< ;
METASYMBOLS M1== M2=/ M3=< M4=;
<PRIM4< = <PRIM4< <RELATIONAL OPERATOR< <PRIM3<
/ <PRIM3< ;
<PRIM5< = . NOT . <PRIM4<
/ <PRIM4< ;
<EXPR< = ERROR
/ <PRIM5< ;
;
▶1e◀▶EOF◀