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 - metrics - download

⟦dcda18ab8⟧ TextFile

    Length: 524 (0x20c)
    Types: TextFile
    Notes: BREV::CONNKLAS, CONNKLAS
    Names: »CONNKLAS«

Derivation

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

TextFile

«ff»
  2100 REM -------------------------------------------------------------------------
  2110 PROC CONNKLAS
  2120   LET STED=3
  2130   REPEAT
  2140     PRINT "<134>";XY$(52);XY$(1);"TIL <30>";KLKODE$(STED-2,STED-1)
  2150     CONNECT KLKODE$(STED,STED+1),1
  2160     IF KLKODE$(STED-1)<>"@" THEN 
  2170       EXEC OPENFILS
  2180       EXEC KLASLÆS
  2190       CLOSE 
  2200     ENDIF
  2210     LET STED=STED+4
  2220   UNTIL STED=43
  2230   PRINT "<134>";XY$(52);XY$(1);"<30>"
  2240 ENDPROC CONNKLAS