DataMuseum.dk

top - metrics - download

    Length: 1920 (0x780)
    Types: TextFile
    Names: »LISTE3A.CMD«

└─⟦871340d2f⟧ Bits:30005949 RC Organisationsplan Diskette A 15/01-86
    └─⟦this⟧ »LISTE3A.CMD« 

TextFile

*****************************************************************************
*    COMMANDO FILE TIL  RC   ORGANISATIONS  PLAN                            *
*    NAVN : LISTE3A.CMD    SIDST ÆNDRET   DATO: 86.01.07     KL..: 15.50    *
*    KALDES FRA LISTE3.CMD                                                  *
*****************************************************************************
USE PLAN INDEX FLIP
GO TOP
*
if '&fra' <> ' '
   store '&fra' to nogle
   find '&nogle'
   if # = 0
      @ 23,0 say '>>  FRA FUNKTION LISTE3A IKKE FUNDET !  TAST RETUR <<'
      RETURN
   endif
   store FLIP TO NOGLE
endif
*
store '     ' to tex1
store '     ' to tex2
store '     ' to tex3
store '     ' to tex4
store lini to gemlini
store gemlini to linie
store T to knud
*
DO WHILE KNUD
*
if lini = gemlini
   if posi = 101
      store text to tex1
   endif 101
   if posi = 126
      store text to tex2
   endif 126
   if posi = 151
      store text to tex3
   endif 151
   if posi = 176
      store text to tex4
   endif 176
endif samme lini
*
if lini <> gemlini
   @ linie,010 say tex1
   @ linie,042 say tex2
   @ linie,074 say tex3
   @ linie,106 say tex4
   store '     ' to tex1
   store '     ' to tex2
   store '     ' to tex3
   store '     ' to tex4
   if posi = 101
      store text to tex1
   endif 101
   if posi = 126
      store text to tex2
   endif 126
   if posi = 151
      store text to tex3
   endif 151
   if posi = 176
      store text to tex4
   endif 176
   store lini to gemlini
   store gemlini to linie
endif skriv linie
*
*
skip
if EOF
   store F to knud
endif sidste record laest
if funk > '&til'
   store F to knud
endif funk storre end til vaerdi
*
loop
ENDDO KNUD
*
@ linie,010 say tex1
@ linie,042 say tex2
use
return
«eof»