DataMuseum.dk

top - metrics - download

    Length: 1623 (0x657)
    Types: TextFile
    Notes: BREV::DIM, DIM     
    Names: »DIM«

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

TextFile

«ff»
  0005 REM PROGRAM NR. 29121980
  0006 REM PROGRAMNAVN :  BREV
  0010 REM ----------------------------------------------------------------------- VARIABLER FOR ELEVDATA
  0020 DIM CPR$(13),ENAVN$(14),FNAVN$(14),MNAVN$(14),EADR$(30),POGBY$(14)
  0030 REM ----------------------------------------------------------------------- VARIABLER FOR FORÆLDREDATA
  0040 DIM FENAVN$(14),FFNAVN$(28),STILLING$(30),FADR$(30),FPOGBY$(14),KØN$(2)
  0050 REM ----------------------------------------------------------------------- BREVVARIABLER
  0060 DIM PJÆKS$(3),TEKST$(8,600)
  0070 DIM PJÆK$(4),PTEKST$(400),SØDA$(10),HAHU$(7),MÅNED$(9),MODTAGER$(60)
  0080 REM ----------------------------------------------------------------------- DIVERSE STRINGVARIABLER
  0090 DIM KLTRIN$(4),KLDISK$(10),SVAR$(4),SPROGFR$(2),SPROGET$(2),FUNKVALG$(2)
  0100 DIM CHECKL$(4),KLKODE$(60),NYKL$(2),KLASSE$(4),OMRÅDE$(2),GREN$(5)
  0110 DIM VALGFAG$(4),XY$(80),TEKSTFIL$(8),MÅNEDER$(120)
  0120 DIM DELTEKST$(10,65),GRENKODE$(50)
  0130 REM ----------------------------------------------------------------------- NUMERISKE VARIABLER
  0140 DIM ENRRNR(1,30),VARISTED(8,15),GRENMAT(20)
  0150 REM ----------------------------------------------------------------------- TILDELING AF KONSTANTE VÆRDIER
  0160 LET XY$="<96><97><98><99><100><101><102><103><104><105><106>"
  0170 LET XY$=XY$,"<107><108><109><110><111><112><113><114><115><116>"
  0180 LET XY$=XY$,"<117><118><119><120><121><123><124><125><126>"
  0190 LET XY$=XY$,"<127>"
  0200 LET XY$=XY$,"@ABCDEFGHIJKLMNOPQRSTUVWXYZÆØÅ^_"
  0210 LET XY$=XY$," !<34>#$%&'()*+,-./"