DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

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

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦320a25ea5⟧ TextFile

    Length: 1024 (0x400)
    Types: TextFile
    Names: »KONVLIN.COP«

Derivation

└─⟦9c8e44efc⟧ Bits:30005957 Std. Rammesystem
    └─⟦this⟧ »KONVLIN.COP«

TextFile

*KONVLIN
*KONVERTERER ET FORUD ANGIVET LINIEANTAL FRA EN EXTERN FIL TIL ET TILSVARENDE
*ANTAL FELTER I EEN RECORD TIL EN INTERN FIL.

ERASE
USE

* EXTFIL.DBF INDEHOLDER LINIER, DER ER KLAR TIL AT BLIVE KONVERTERET
* EXTFIL.TXT INDEHOLDER FILTRANSPORTEREDE LINIER FRA F.EKS. RC8000
USE EXTFIL.DBF
DELETE ALL
PACK
APPEND FROM EXTFIL.TXT SDF

* ANTAL LINIER PR RECORD
STORE 4 TO LINPRREC

* ÅBEN HJÆLPE FIL HVOR MELLEM RESULTATET GEMMES UNDERVEJS, SOM SDF-RECORD
SET ALTERNATE TO HJLPFIL.TXT
SET ALTERNATE ON

DO WHILE .NOT. EOF
   STORE 1 TO LINIENR
   STORE ' ' TO RECORD
   DO WHILE LINIENR<=LINPRREC
      STORE  RECORD+"'"+TRIM(LINIE)+"'," TO RECORD
      SKIP +1
      STORE LINIENR+1 TO LINIENR
   ENDDO
   STORE LEN(RECORD)-1 TO RECLGD
   ? $(RECORD,2,RECLGD)
ENDDO

* LUK HJÆLPE FIL
SET ALTERNATE OFF
SET ALTERNATE TO

* INDLÆS HJÆLPE FIL TIL INTERN FIL

USE INTFIL
APPEND FROM HJLPFIL.TXT SDF DELIMITED
*
«eof»