DataMuseum.dk

top - metrics - download

    Length: 1592 (0x638)
    Types: TextFile
    Notes: DIM     , ELEVRET::DIM
    Names: »DIM«

└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
    └─⟦this⟧ »ELEVRET::DIM« 

TextFile

«ff»
  0010 REM ----------------------------------------------------------------------- VARIABLER FOR ELEVDATA
  0020 DIM CPR$(13),ENAVN$(14),FNAVN$(14),MNAVN$(14),NAVN$(28),EADR$(30)
  0030 DIM CCPR$(13),CENAVN$(14),CFNAVN$(14),CMNAVN$(14)
  0040 DIM POGBY$(14),ETLF$(6)
  0050 REM ----------------------------------------------------------------------- VARIABLER FOR FORÆLDREDATA
  0060 DIM FENAVN$(14),FFNAVN$(28),STILLING$(30),FADR$(30),FPOGBY$(14)
  0070 DIM FTLF$(6),KØN$(2)
  0080 REM ----------------------------------------------------------------------- DIVERSE STRING VARIABLER
  0090 DIM SPROGET$(2),SPROGFR$(2),FUNKVALG$(2),CHECKL$(4),KLTRIN$(4)
  0100 DIM KLKODE$(60),FLNAVNE$(60),KLASSE$(4),GREN$(5),POSTTEXT$(400)
  0110 DIM FORMUS$(4),VALGFAG$(4),TEKST$(520),PROCEDUR$(80),UDLÆG$(20)
  0120 DIM VALG$(10),SPRING$(2),TITAL$(10),XY$(80)
  0130 DIM GRENKODE$(128)
  0140 REM ----------------------------------------------------------------------- NUMERISKE VARIABLER
  0150 DIM ENRRNR(1,30),RNRKONTL(1,30),FLYT(1,30),XYTEKST(2,20),GRENMAT(20)
  0160 DIM FINDER(3),POSTMAT(4,30)
  0170 REM ----------------------------------------------------------------------- TILDELING AF KONSTANTE VÆRDIER
  0180 LET XY$="<96><97><98><99><100><101><102><103><104><105><106>"
  0190 LET XY$=XY$,"<107><108><109><110><111><112><113><114><115><116>"
  0200 LET XY$=XY$,"<117><118><119><120><121><122><123><124><125><126>"
  0210 LET XY$=XY$,"<127>"
  0220 LET XY$=XY$,"@ABCDEFGHIJKLMNOPQRSTUVWXYZÆØÅ^_"
  0230 LET XY$=XY$," !<34>#$%&'()*+,-./"
  0240 LET TITAL$="0123456789"