**********
* PCSYFI *
**********
USE &opdracht
GO TOP
COUNT FOR * TO nr:del
GO BOTTOM
STORE # TO nr:opd
USE &oplage
GO BOTTOM
STORE # TO nr:opl
USE &planning
GO BOTTOM
STORE # TO nr:plan
USE &offertes
GO BOTTOM
STORE # TO nr:off
USE &calcdat
GO BOTTOM
STORE # TO nr:calc
USE
@  7,11 SAY "DIT PROGRAMMA GEEFT DE GROOTTE IN HET AANTAL RECORDS VAN"
@  8,11 SAY "DE BESTANDEN DIE DOOR PACS WORDEN GEBRUIKT."
@ 10,29 SAY "OPDRACHT"
@ 10,40 SAY STR(nr:opd,5)
@ 10,47 SAY "(" + STR(nr:del,5) + " VERWIJDERD)"
@ 11,29 SAY "OPLAGE"
@ 11,40 SAY STR(nr:opl,5)
@ 12,29 SAY "PLANNING"
@ 12,40 SAY STR(nr:plan,5)
@ 13,29 SAY "OFFERTES"
@ 13,40 SAY STR(nr:off,5)
@ 14,29 SAY "KOSTEN"
@ 14,40 SAY STR(nr:calc,5)
@ 16,25 SAY "DRUK RETURN VOOR VERVOLG"
STORE "." TO akk
@ 16,50 GET akk
READ
RETURN
*
* EINDE PROGRAMMA
*
