|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC3600/RC7000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC3600/RC7000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1222 (0x4c6)
Types: TextFile
Notes: DIM , FORLIST::DIM
Names: »DIM«
└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
└─⟦this⟧ »FORLIST::DIM«
«ff» 0010 REM PROGRAM NR. 28121980 0020 REM ----------------------------------------------------------------------- VARIABLER FOR ELEVDATA 0030 DIM CPR$(13),ENAVN$(14),FNAVN$(14),MNAVN$(14),NAVN$(42) 0040 REM ----------------------------------------------------------------------- DIVERSE STRING VARIABLER 0050 DIM FUNKVALG$(2),CHECKL$(4),KLTRIN$(4),BREV$(2),KLKODE$(60) 0060 DIM KLASSE$(10),OMRÅDE$(2),GREN$(5),MÅNEDER$(128),MÅNED$(10),XY$(80) 0070 DIM GRENKODE$(50),HOLD$(2),OMRÅDER$(10),GRENE$(10) 0080 REM ----------------------------------------------------------------------- NUMERISKE VARIABLER 0090 DIM ENRRNR(1,30),GRENMAT(20) 0100 REM ----------------------------------------------------------------------- TILDELING AF KONSTANTE VÆRDIER 0110 LET XY$="<96><97><98><99><100><101><102><103><104><105><106>" 0120 LET XY$=XY$,"<107><108><109><110><111><112><113><114><115><116>" 0130 LET XY$=XY$,"<117><118><119><120><121><122><123><124><125><126>" 0140 LET XY$=XY$,"<127>" 0150 LET XY$=XY$,"@ABCDEFGHIJKLMNOPQRSTUVWXYZÆØÅ^_" 0160 LET XY$=XY$," !<34>#$%&'()*+,-./" 0170 REM -----------------------------------------------------------------------TILDELING AF FUNKTIONER