|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 7680 (0x1e00)
Types: TextFile
Names: »LISTE2.CMD«
└─⟦871340d2f⟧ Bits:30005949 RC Organisationsplan Diskette A 15/01-86
└─⟦this⟧ »LISTE2.CMD«
*****************************************************************************
* COMMANDO FILE TIL RC ORGANISATIONS PLAN *
* NAVN : LISTE2.CMD SIDST ÆNDRET DATO: 86.01.07 KL..: 15.42 *
* KALDES I START.CMD VIA O1.MEN OG O5.MEN *
*****************************************************************************
SET TALK OFF
SET ESCAPE ON
STORE T TO LOKS
*
DO WHILE LOKS
store ' ' to SVARS
store ' ' to svar
store ' ' to ok
store ' ' to begyn
store ' ' to til
store ' ' to dagsdato
erase
text
*** RC ORGANISATIONS PLAN LISTE 2 ***
-----------------------------------------------------------------------------
RC KORTFATTET OVERSIGT.
-----------------------------------------------------------------------------
0 = SLUT PÅ LISTE 2 OG RETUR
2 = SKRIV OVERSIGT
-----------------------------------------------------------------------------
endtext
@ 19,0 say '* TAST * nummer ......................... ' get svar
read
*
if SVAR = '0'
store F to LOKS
loop
endif 8.0
*
IF !(svar) = '2'
store '2' to svars
endif a
if svars = ' '
loop
endif ej ok
*
USE ORG INDEX PLAN
GO TOP
*
@ 20,0 say ' ---- udskrifts dato ................. ' get dagsdato
@ 21,0 say ' ---- OK hvis printer er klar ....... ' get ok
read
if !(OK) <> 'OK'
LOOP
ENDIF
store ' ' to fra
store ' ' to OK
store ' 0 1 ' to gem1
store ' 0 2 ' to gem2
store ' 0 3 ' to gem3
store T to forste
store T to lokke1
store T to lokke2
store T to lokke3
store T to loppe1
store T to loppe2
store T to loppe3
store T to slut1
store T to slut2
store T to slut3
store ' ' to nogle
*
@ 23,0 say ' **** LISTEN ER PÅ VEJ , VENT ****'
store '2' to plist
store 'KORTFATTET OVERSIGT' TO PTEX1
store ' ' TO PTEX2
store ' ' TO PTEX3
SET CONSOLE OFF
do fside
store 99 to linie
set print on
set format to print
store 'nex' to funk
store ' ' to TEXT1
store 'BEST. FORMAND KJ' to TEXT2
store ' ' to TEXT3
DO WHILE FUNK <> ' '
*
*******************************************************************************
*** funk = nex næste record læses ***
*******************************************************************************
if funk = 'nex'
*
if linie > 60
store 01 to linie
? CHR(30)
? chr(31)
@ linie,08 say 'RC ORGANISATIONS PLAN'
store linie + 2 to linie
? CHR(30)
@ linie,08 say 'LISTE 2'
@ linie,56 say 'UDSKRIFTS DATO'
@ linie,72 say dagsdato using 'XXXXXX'
store linie + 2 to linie
endif ny side
*
@ linie,01 say TEXT1 using 'XXXXXXXXXXXXXXXXXXXXXXXXX'
@ linie,28 say TEXT2 using 'XXXXXXXXXXXXXXXXXXXXXXXXX'
@ linie,54 say TEXT3 using 'XXXXXXXXXXXXXXXXXXXXXXXXX'
store linie + 2 to linie
store ' ' to TEXT1
store ' ' to TEXT2
store ' ' to TEXT3
*
if forste
store linie + 1 to linie
store 'ØKONOMI DIREKTØR ..... ON' to TEXT1
store 'ADM. DIREKTØR ........ JR' to TEXT2
store 'TEKNISK DIREKTØR ..... KS' to TEXT3
store F to forste
loop
endif forste
*
if slut1
store T to lokke1
endif 1
if slut2
store T to lokke2
endif 2
if slut3
store T to lokke3
endif 3
*
**** RÆKKE 1 - ØKONOMI ***
do while lokke1
find '&gem1'
if # = 0
@ linie,10 '>>>>> genlæs org ej ok lokke 1 <<<<<'
store F to lokke1
store 'END' to funk
loop
endif
skip
if EOF
store F to slut1
store F to lokke1
loop
endif sidste record lokke1
do while loppe1
if $(plan,2,1) <> '1'
skip
loop
else
store F to loppe1
endif loppe1
enddo loppe1
if $(plan,2,1) <> '1'
store F to slut1
store F to lokke1
loop
endif slut for 1
if $(plan,5,2) = ' '
store afnu + ' ' + navn to text1
else
if $(plan,7,2) = ' '
store ' ' + afnu + ' ' + navn to text1
else
store ' ' + afnu + ' ' + navn to text1
endif
endif
store plan to gem1
store F to lokke1
enddo lokke1
*** slut lokke 1 ***
*
*
**** RÆKKE 2 - ADM. ***
do while lokke2
find '&gem2'
if # = 0
@ linie,10 '>>>>> genlæs org ej ok lokke 2 <<<<<'
store F to lokke2
store 'END' to funk
loop
endif
skip
if EOF
store F to slut2
store F to lokke2
loop
endif sidste record lokke2
do while loppe2
if $(plan,2,1) <> '2'
skip
loop
else
store F to loppe2
endif loppe2
enddo loppe2
if $(plan,2,1) <> '2'
store F to slut2
store F to lokke2
loop
endif slut for 2
if $(plan,5,2) = ' '
store afnu + ' ' + navn to text2
else
if $(plan,7,2) = ' '
store ' ' + afnu + ' ' + navn to text2
else
store ' ' + afnu + ' ' + navn to text2
endif
endif
store plan to gem2
store F to lokke2
enddo lokke2
*** slut lokke 2 ***
*
*
**** RÆKKE 3 - TEKNISK ***
do while lokke3
find '&gem3'
if # = 0
@ linie,10 '>>>>> genlæs org ej ok lokke 3 <<<<<'
store F to lokke3
store 'END' to funk
loop
endif
skip
if EOF
store F to slut3
store F to lokke3
loop
endif sidste record lokke3
do while loppe3
if $(plan,2,1) <> '3'
skip
loop
else
store F to loppe3
endif loppe3
enddo loppe3
if $(plan,2,1) <> '3'
store F to slut3
store F to lokke3
loop
endif slut for 3
if $(plan,5,2) = ' '
store afnu + ' ' + navn to text3
else
if $(plan,7,2) = ' '
store ' ' + afnu + ' ' + navn to text3
else
store ' ' + afnu + ' ' + navn to text3
endif
endif
store plan to gem3
store F to lokke3
enddo lokke3
*** slut lokke 3 ***
*
if slut1
loop
endif 1
IF slut2
loop
endif 2
if slut3
loop
endif 3
*
store 'END' to funk
endif nex
*
*******************************************************************************
*** funk = end slut på liste ***
*******************************************************************************
if funk = 'END'
? chr(30)
eject
set print off
set format to screen
do lside
SET CONSOLE ON
@ 23,0 say '**** LISTE 2 ER FÆRDIG ----->> TAST RETUR !!' get ok
read
store ' ' to funk
loop
endif end
*
ENDDO FUNK
ENDDO LOKS
*
release LOKS, FUNK, GEM, PLIST, PTEX1, PTEX2, PTEX3, TEXT1, TEXT2, TEXT3
release gem1, gem2, gem3, svar, svars, begyn, fra, til, dagsdato
release forste, lokke1, lokke2, lokke3, slut1, slut2, slut3, linie, nogle
release loppe1, loppe2, loppe3
store ' ' to ok
SET ESCAPE OFF
use
return
«eof»