|
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: 4864 (0x1300)
Types: TextFile
Names: »LISTE3.CMD«
└─⟦871340d2f⟧ Bits:30005949 RC Organisationsplan Diskette A 15/01-86
└─⟦this⟧ »LISTE3.CMD«
*****************************************************************************
* COMMANDO FILE TIL RC ORGANISATIONS PLAN *
* NAVN : LISTE3.CMD SIDST ÆNDRET DATO: 86.01.07 KL..: 15.47 *
* 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 3 ***
-----------------------------------------------------------------------------
RC UDVIDET OVERSIGT
-----------------------------------------------------------------------------
0 = SLUT PÅ LISTE 3 OG RETUR
3 = SKRIV LISTEN
HVIS ALT ØNSKES SKREVET UD SÅ TAST $ I FRA FUNKTIONS OMRÅDE
ELLER TAST ØNSKET FUNKTIONS OMRÅDE NUMMER I FRA- OG TIL-VÆRDI,
ØKONOMI = 1 - SALG = 2 - TEKNISK = 3 !!!
-----------------------------------------------------------------------------
endtext
@ 19,0 say '* TAST * nummer ......................... ' get svar
read
*
if SVAR = '0'
store F to LOKS
loop
endif 8.0
*
IF !(svar) = '3'
store '3' to svars
endif 3
if svars = ' '
loop
endif ej ok
*
@ 20,0 say ' ---- udskrifts dato ................. ' get dagsdato
@ 21,0 say ' ---- FRA funktions område nummer .... ' get begyn
@ 22,0 say ' ---- TIL funktions område nummer .... ' get til
@ 23,0 say ' ---- OK hvis printer er klar ....... ' get ok
read
if !(OK) <> 'OK'
LOOP
ENDIF
store ' ' to fra
store ' ' to OK
*
USE PLAN INDEX FLIP
GO TOP
*
if $(begyn,1,1) <> '$' .and. fra = ' '
store begyn to fra
endif
*
if '&begyn' = '$'
store ' ' to nogle
store ' ' to fra
store '9' to til
endif
*
if '&fra' <> ' '
store '&fra' to nogle
find '&nogle'
if # = 0
@ 23,0 say '>> FRA FUNKTIONS NUMMER IKKE FUNDET ! TAST RETUR <<' get ok
read
loop
endif
store FLIP TO NOGLE
endif
*
@ 23,0 say ' **** LISTEN ER PÅ VEJ , VENT ****'
store '3' to plist
store 'UDVIDET OVERSIGT' TO PTEX1
store 'FRA FUNKTIONS OMRÅDE NR ..:' TO PTEX2
store 'TIL FUNKTIONS OMRÅDE NR ..:' TO PTEX3
store ' ' to tex1
store ' ' to tex2
store ' ' to tex3
store ' ' to tex4
store lini to gemlini
SET CONSOLE OFF
do fside
store 99 to linie
set print on
? chr(29)
set format to print
store 'nex' to knuf
store gemlini to linie
*
DO WHILE KNUF <> ' '
*
*******************************************************************************
*** knuf = nex næste record læses ***
*******************************************************************************
if knuf = 'nex'
*
if lini = gemlini
if posi = 1
store text to tex1
endif 1
if posi = 26
store text to tex2
endif 26
if posi = 51
store text to tex3
endif 51
if posi = 76
store text to tex4
endif 76
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 = 1
store text to tex1
endif 1
if posi = 26
store text to tex2
endif 26
if posi = 51
store text to tex3
endif 51
if posi = 76
store text to tex4
endif 76
store lini to gemlini
store gemlini to linie
endif skriv linie
*
skip
if EOF
store 'END' to knuf
endif sidste record laest
if funk > '&til'
store 'END' to knuf
endif funk storre end til vaerdi
*
loop
endif nex
*
*******************************************************************************
*** knuf = end slut på liste ***
*******************************************************************************
if knuf = 'END'
@ linie,010 say tex1
@ linie,042 say tex2
@ linie,074 say tex3
@ linie,106 say tex4
DO LISTE3A
? chr(30)
eject
set print off
set format to screen
do lside
SET CONSOLE ON
@ 23,0 say '**** LISTE 3 ER FÆRDIG ----->> TAST RETUR !!' get ok
read
store ' ' to knuf
loop
endif end
*
ENDDO KNUF
ENDDO LOKS
*
release LOKS, KNUF, KNUD, PLIST, PTEX1, PTEX2, PTEX3, tex1, tex2, tex3, tex4
release gem, gemlini, svar, svars, begyn, fra, til, dagsdato, nogle, linie
store ' ' to ok
SET ESCAPE OFF
use
return
«eof»