DataMuseum.dk

top - download

    Length: 1529 (0x5f9)
    Types: TextFile
    Notes: DIM     , OPDATER::DIM
    Names: »DIM«

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

TextFile

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