DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen RC3600/RC7000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RegneCentralen RC3600/RC7000

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦4c966df6e⟧ TextFile

    Length: 442 (0x1ba)
    Types: TextFile
    Notes: BREVVALG, FORLIST::BREVVALG
    Names: »BREVVALG«

Derivation

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

TextFile

«ff»
  0180 DEF FNX(X)=X*10-9
  0190 REM -------------------------------------------------------------------------
  0200 PROC BREVVALG
  0210   IF ÅRPRO<=15 THEN 
  0220     IF MÅNEDPRO>=20 THEN 
  0230       LET BREV$="A"
  0240     ELSE
  0250       LET BREV$=" "
  0260     ENDIF
  0270   ELSE
  0280     IF ÅRPRO<=20 THEN 
  0290       LET BREV$="B"
  0300     ELSE
  0310       LET BREV$="C"
  0320     ENDIF
  0330   ENDIF