**********
*promcost*
**********
use costrep                 
append blank
*van recordvariabelen naar geheugen variabelen
*
store val($(adv,1,10)) TO afpp     
store val($(adv,12,10)) to aact    
*store val($(adv,24,10)) to fpp:act
*store val($(adv,36,10)) to act:fpp
*store val($(adv,48,10)) to per:tot
*
store val($(ic,1,10)) to ifpp  
store val($(ic,12,10)) to iact  
*store val($(ic,24,10)) to ipp:iact
*store val($(ic,36,10)) to iact:ipp
*store val($(ic,48,10)) to iper:tot
*
erase
store "." to akk
do while .not. (akk $ "jJ")
   store "." to akk
   @ 1,10 say "--READER'S DIGEST PROMOTION COST CONTROL SYSTEM--"
   @ 2,10 say "----------------BY T.T. JANSSEN------------------"  
   @ 4,10 SAY "FINAL PROM.PLAN"
   @ 4,26 SAY "ACTUAL COSTS"
   @ 6,0  SAY "ADV"
   @ 7,0  SAY "IC"
   @ 6,10 GET Afpp  PICTURE "#######.##"
   @ 6,24 GET Aact  PICTURE "#######.##"
 *  @ 6,36 GET FPP:ACT PICTURE "#######.##"
  * @ 6,48 GET ACT:FPP PICTURE "#######.##"
   *@ 6,60 GET PER:TOT PICTURE "#######.##"
   @ 7,10 GET Ifpp PICTURE "#######.##"
   @ 7,24 GET Iact PICTURE "#######.##"
   *@ 7,36 GET IPP:IACT PICTURE "#######.##"
   *@ 7,48 GET IACT:IPP PICTURE "#######.##"
   *@ 7,60 GET IPER:TOT PICTURE "#######.##"
   @ 21,60 SAY "AKKOORD"
   @ 21,68 GET AKK PICTURE "!"
   READ
   CLEAR GETS
   DO WHILE .NOT. (AKK $ "jJnN")
      store "." to akk
      @ 21,68 get akk picture "!"
      read
      clear gets
   enddo
enddo
*
* van geheugen variabelen naar record variabelen
replace adv with  str(afpp,10,2) + ":" + str(aact,10,2)
* + ":" + STR(adv:act,10,2) + ":" + STR(FPP:ACT,10,2) + ":" + STR(ACT:FPP,10,2) + ":" + STR(PER:TOT,10,2)                     
replace ic with STR(ifpp,10,2) + ":" +STR(iact,10,2)  
*8+ ":" STR(IPP:IACT,10,2) + ":" + STR(IACT:IPP,10,2) + ":" + STR(IPER:TOT,10,2)          
*
* geef geheugen variabelen vrij
*
*release adv:fpp,adv:act,fpp:act,act:fpp,per:tot,ic:fpp,ic:act,ipp:iact,iact:ipp,iper:tot
*
use costrep
return 
einde programma 
