|
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 - download
Length: 1060 (0x424)
Types: TextFile
Notes: DIM , FORSØM::DIM
Names: »DIM«
└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
└─⟦this⟧
«ff» 0005 REM PROGRAM NR. 28121980 0010 REM ----------------------------------------------------------------------- VARIABLER FOR ELEVDATA 0020 DIM CPR$(13),ENAVN$(14),FNAVN$(14),MNAVN$(14),NAVN$(28) 0030 DIM POGBY$(14),ETLF$(6) 0040 REM ----------------------------------------------------------------------- DIVERSE STRING VARIABLER 0050 DIM CHECKL$(4),KLTRIN$(4),KLKODE$(60),KLASSE$(4),OMRÅDE$(4) 0060 DIM GREN$(5),PROCEDUR$(80),VALG$(10),XY$(80) 0070 REM ----------------------------------------------------------------------- NUMERISKE VARIABLER 0080 DIM ENRRNR(1,30),GRENMAT(20) 0090 REM ----------------------------------------------------------------------- TILDELING AF KONSTANTE VÆRDIER 0100 LET XY$="<96><97><98><99><100><101><102><103><104><105><106>" 0110 LET XY$=XY$,"<107><108><109><110><111><112><113><114><115><116>" 0120 LET XY$=XY$,"<117><118><119><120><121><123><124><125><126>" 0130 LET XY$=XY$,"<127>" 0140 LET XY$=XY$,"@ABCDEFGHIJKLMNOPQRSTUVWXYZÆØÅ^_" 0150 LET XY$=XY$," !<34>#$%&'()*+,-./"