* PROM.FMT - Format file for entry types
@  1,10 SAY TMARK + "  " + CNAME
@  3,10 SAY MTITLE
@  5,10 SAY "Entry types provide information about the balancing account, journals "
@  6,10 SAY "and ledgers to be updated. This information is very important!"
@  7,10 SAY "Entry type name "                     GET PROM:DESC
@  8,10 SAY "Journal "                             GET JOURNAL PICTURE "!!"
@  8,23 SAY "(CR,CD,IN,CP,GJ)"
@  8,41 SAY "Type of document "                    GET TYPE:DOC
@  9,10 SAY "Ledger  "                             GET LEDGER PICTURE "!!"
@  9,23 SAY "(AR,AP,blank)"
@  9,41 SAY "Affect on ledger? "                   GET LEDG:TYPE 
@  9,65 SAY "(UP,DN,blank)"
@ 10,10 SAY " The following two lines refer to the balancing entry:"
@ 11,10 SAY "Account "                             GET CTRL:ACCT
@ 11,32 SAY "Account Desc "                        GET CTRL:DESC
@ 12,10 SAY "DB or CR entry? "                     GET CTRL:TYPE PICTURE "!!"
@ 12,32 SAY "Reference    "                        GET CTRL:REF
@ 13,10 SAY " Account      Description                            Amount"
@ 14,10 GET ACCOUNT1
@ 14,23 GET DESC1
@ 14,58 GET AMOUNT1
@ 15,10 GET ACCOUNT2
@ 15,23 GET DESC2
@ 15,58 GET AMOUNT2
@ 16,10 GET ACCOUNT3
@ 16,23 GET DESC3
@ 16,58 GET AMOUNT3
@ 17,10 GET ACCOUNT4
@ 17,23 GET DESC4
@ 17,58 GET AMOUNT4
@ 18,10 GET ACCOUNT5
@ 18,23 GET DESC5
@ 18,58 GET AMOUNT5
@ 19,10 GET ACCOUNT6
@ 19,23 GET DESC6
@ 19,58 GET AMOUNT6
@ 20,10 SAY '***<CTL> KEYS*************************************'
@ 21,10 SAY 'D - NEXT CHR ** E - PREV FLD ** W - NEXT SCREEN'   
@ 22,10 SAY 'S - PREV CHR ** C - NEXT RCD ** V - INSERT ON/OFF' 
@ 23,10 SAY 'X - NEXT FLD ** R - PREV RCD ** G - DELETE CHAR'