|
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: 2048 (0x800)
Types: TextFile
Names: »BRUKAT.CMD«
└─⟦c2fe28dee⟧ Bits:30008867 CORN 2 851210 CORN 3Z (RC org. database?)
└─⟦this⟧ »BRUKAT.CMD«
* brukat.CMD -MAIN PROGRAM
* DATABASE NAME IS brukat
* DATABASE IS KEYED
SET INTENSITY OFF
SET TALK OFF
SET FORMAT TO SCREEN
SELECT PRIMARY
STORE FILE('brukat.NDX') TO MQ:NDX
IF .NOT. MQ:NDX
ERASE
@ 21,10 SAY ' FILE IS NOW BEING INDEXED '
DO brukat.GO
ENDIF
USE brukat INDEX brukat
STORE T TO MQ:MORE
DO WHILE MQ:MORE
ERASE
@ 5,27 SAY '+--------------------+'
@ 6,27 SAY '! SYSTEM:'
@ 6,37 SAY 'brukat'
@ 6,48 SAY '!'
@ 7,27 SAY '! FILE:'
@ 7,36 SAY 'brukat'
@ 7,48 SAY '!'
@ 8,11 SAY '+---------------+--------------------+---------------+'
@ 9,11 SAY '! PLEASE CHOOSE ONE:'
@ 9,64 SAY '!'
@ 10,11 SAY '!'
@ 10,26 SAY 'A to ADD data'
@ 10,64 SAY '!'
@ 11,11 SAY '!'
@ 11,26 SAY 'G to GET/EDIT data'
@ 11,64 SAY '!'
@ 12,11 SAY '!'
@ 12,26 SAY 'R to RUN report'
@ 12,64 SAY '!'
@ 13,11 SAY '!'
@ 13,26 SAY 'K TO UDSKRIV KONTROLLISTE'
@ 13,64 SAY '!'
@ 14,11 SAY '!'
@ 14,26 SAY 'L to print mailing LABELS/forms'
@ 14,64 SAY '!'
@ 15,11 SAY '!'
@ 15,26 SAY 'I to INDEX database'
@ 15,64 SAY '!'
@ 16,11 SAY '!'
@ 16,64 SAY '!'
@ 17,11 SAY '! Q to QUIT (exit to CP/M)'
@ 17,64 SAY '!'
@ 18,11 SAY '+----------------------------------------------------+'
@ 21,10 SAY ' '
SET CONSOLE OFF
WAIT TO MQ:COMMAND
SET CONSOLE ON
IF !(MQ:COMMAND)= 'A'
DO brukat.ADD
ELSE
IF !(MQ:COMMAND)= 'G'
DO brukat.GET
ELSE
IF !(MQ:COMMAND)= 'K'
DO brudif
ELSE
IF !(MQ:COMMAND)='R'
DO brukat.RPT
ELSE
IF !(MQ:COMMAND)='L'
DO brukat.LBL
ELSE
IF !(MQ:COMMAND)='I'
@ 21,10 SAY ' FILE IS NOW BEING INDEXED '
DO brukat.GO
ELSE
IF !(MQ:COMMAND)='Q'
QUIT
ENDIF QUIT
ENDIF GO
ENDIF LABEL
ENDIF BRUDIF
ENDIF REPORT
ENDIF GET
ENDIF ADD
ENDDO
RELEASE MQ:MORE,MQ:COMMAND,MQ:NDX
«eof»