DataMuseum.dk

top - download

    Length: 1004 (0x3ec)
    Types: TextFile
    Notes: ENSPLT01
    Names: »ENSPLT01«

└─⟦714f3848e⟧ Bits:30006597 ALM Copy 24.9.79
    └─ ⟦this⟧ »BASIC::ENSPLT01« 

TextFile

«ff»
  0010 REM CB ENKELTSPALTE LAGERANALYSE / ALLE MODULER I OMRÅDE / 12.12.79 «so»CLPRG111
  0020 REM DETTE PROGRAM ER DELT OP I 2 !!!
  0030 REM KØRT 12.12.79 KL CA 18 / PL
  0040 CONNECT "ASS",2610
  0060 REM MAINPROC START  LAGERUD  // CB 12.11.79
  0070 CLOSE 
  0080 PAGE=0
  0090 DIM DAT$(8),UD$(15),UDSKRIFT$(80),UDSK$(13),T$(12,8),HJÆLP$(10),RAD$(5),PIL$(5),ADR(2,280)
  0100 LET EA=279; PA=138; RAD$="     "; UDSK$="                                 "
  0110 OPEN FILE(0,4)"CO10.ENT"
  0120 OPEN FILE(1,4)"CO...PSE"
  0130 OPEN FILE(3,4)"CO...STA"
  0140 OPEN FILE(4,4)"CO...USE"
  0150 FOR S=1 TO EA+1
  0160   READ FILE(0,S)ADR(1,S)
  0170   IF S<=PA THEN READ FILE(1,S)ADR(2,S)
  0180   IF S<=12 THEN READ T$(S)
  0190 NEXT S
  0200 DATA " ZOC"," LRS"," SCP","BNBZDNDZ","    ",",SKP",",SZC",",SNC",",SZR",",SNR",",SEZ",",SBN"
  0210 ENTER "CLPRG102"

  0200 DATA " ZOC"NTER "CLPRG102"

  0360 DATA " ZOC"," LRS"," SCP","BNBZDNDZ","    ",",SKP",",SZC",",SNC",",SZR",",SNR",",S