DataMuseum.dk

top - metrics - download

    Length: 1761 (0x6e1)
    Types: TextFile
    Notes: DIM     , KLLISTE::DIM
    Names: »DIM«

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

TextFile

«ff»
  0005 REM  PROGRAM NR. 29121980
  0006 REM  PROGRAMNAVN :  KLLISTER
  0010 REM ----------------------------------------------------------------------- VARIABLER FOR ELEVDATA
  0020 DIM GREN$(5),ENAVN$(14),FNAVN$(14),MNAVN$(14),NAVN$(28)
  0030 DIM EADR$(30),POGBY$(14),CPR$(13),ETLF$(7),ADR$(44)
  0040 REM ----------------------------------------------------------------------- DIVERSE VARIABLER
  0050 DIM KLKODE$(60),KLTRIN$(3),HOLDKODE$(80),FUNKVALG$(2),KLASSE$(8),CHECKL$(4)
  0060 DIM GRENKODE$(50),OBJECT$(7),KLAS$(3),CHECGREN$(2),MÅNEDER$(120),MÅNED$(10)
  0070 DIM OMRÅDE$(2),KLDISK$(9),FORMAT$(118),XY$(80),SVAR$(5),MYNDIG$(23)
  0075 DIM OVERLINE$(118)
  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><123><124><125><126>"
  0140 LET XY$=XY$,"<127>"
  0150 LET XY$=XY$,"@ABCDEFGHIJKLMNOPQRSTUVWXYZÆØÅ^_"
  0160 LET XY$=XY$," !<34>#$%&'()*+,-./"
  0165 LET OVERLINE$="<110><114> <103><114> <109><121>/<117><109><121>   <99><112><114>"
  0166 LET OVERLINE$=OVERLINE$,"       <101><102><116><101><114><110><97><118><110>      <102><111><114><110><97><118><110>"
  0167 LET OVERLINE$=OVERLINE$,"                      <97><100><114><101><115><115><101>                           <116><108><102>.<110><114>."
  0170 LET FORMAT$="## #  ##  ###########  ##############, ####################  ########################################  ######"