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

⟦23cb029b8⟧ TextFile

    Length: 788 (0x314)
    Types: TextFile
    Notes: BREV::FORM, FORM    
    Names: »FORM«

Derivation

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

TextFile

«ff»
  0430 REM -------------------------------------------------------------------------
  0440 PROC FORM
  0450   PAGE=0
  0460   OPEN FILE(7,11)"$LPT"
  0470   PRINT FILE(7)"<10>";TAB(6);"FREDERIKSHAVN GYMNASIUM";TAB(45);DATO;"/";MÅNED;"-";ÅR
  0480   PRINT FILE(7)TAB(12);"OG HF-KURSUS"
  0490   PRINT FILE(7)"<10><10><10><10><10>"
  0500   PRINT FILE(7)TAB(8);MODTAGER$
  0510   PRINT FILE(7)TAB(8);FADR$
  0520   PRINT FILE(7)TAB(8);FPOGBY$
  0530   FOR I=1 TO 11
  0540     PRINT FILE(7)"<10>";
  0550   NEXT I
  0560   PRINT FILE(7)TAB(10);PTEKST$
  0570   FOR I=1 TO 8
  0580     PRINT FILE(7)"<10>";
  0590   NEXT I
  0600   PRINT FILE(7)TAB(50);"VENLIG HILSEN"
  0610   PRINT FILE(7)TAB(47);"JENS JØRGEN VINTHER<12>"
  0620   CLOSE FILE(7)
  0630 ENDPROC FORM