*---------------------------------------------------------------------
* Name.......: TAKSA.FMT
* Date.......: 2-07-95
* Version....: dBASE IV, Format 1.5
* Notes......: Format files use "" as delimiters!
*---------------------------------------------------------------------

*-- Format file initialization code --------------------------------------------

*-- Some of these PRIVATE variables are created based on CodeGen and may not 
*-- be used by your particular .fmt file
PRIVATE ll_talk, ll_cursor, lc_display, lc_status, ll_carry, lc_proc

IF SET("TALK") = "ON"
  SET TALK OFF
  ll_talk = .T.
ELSE
  ll_talk = .F.
ENDIF
ll_cursor = SET("CURSOR") = "ON"
SET CURSOR ON

lc_status = SET("STATUS")
*-- SET STATUS was ON when you went into the Forms Designer.
IF lc_status = "OFF"
   SET STATUS ON
ENDIF


*-- @ SAY GETS Processing. -----------------------------------------------------

*--  Format Page: 1
@ 0,0 TO 19,79 DOUBLE 
@ 1,8 SAY "Puhelintaksat" 
@ 1,22 GET Paikka PICTURE "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" 
@ 1,64 SAY "Kortti:" 
*-- Calculated field:  - 
@ 1,72 SAY recno() PICTURE "999" 
@ 1,75 SAY "/" 
*-- Calculated field:  - 
@ 1,76 SAY reccount() PICTURE "999" 
@ 2,1 SAY "══════════════════════════════════════════════════════════════════════════════" 
@ 3,8 SAY "Paikallispuhelumaksu" 
@ 3,29 GET Ppm PICTURE "999.99" 
@ 3,36 SAY "p/puhelu (avausmaksu)" 
@ 4,8 SAY "Paikallispuhelun suuntanumerot:" 
@ 4,40 GET Kauko1 PICTURE "999" 
@ 4,44 SAY "-" 
@ 4,46 GET Kauko2 PICTURE "999" 
@ 5,1 TO 12,78 
@ 5,8 SAY "Arkipäivä" 
@ 5,38 SAY "─┬─Viikonloppu" 
@ 6,9 SAY "Al-" 
@ 6,22 SAY "Al-" 
@ 6,39 SAY "│" 
@ 6,47 SAY "Al-" 
@ 6,60 SAY "Al-" 
@ 7,9 SAY "kaa" 
@ 7,13 SAY "Paikal-" 
@ 7,22 SAY "kaa" 
@ 7,26 SAY "Kauko-" 
@ 7,39 SAY "│" 
@ 7,47 SAY "kaa" 
@ 7,51 SAY "Paikal-" 
@ 7,60 SAY "kaa" 
@ 7,64 SAY "Kauko-" 
@ 8,9 SAY "klo" 
@ 8,13 SAY "lispuh." 
@ 8,22 SAY "klo" 
@ 8,26 SAY "puhelu" 
@ 8,39 SAY "│" 
@ 8,47 SAY "klo" 
@ 8,51 SAY "lispuh." 
@ 8,60 SAY "klo" 
@ 8,64 SAY "puhelu" 
@ 9,3 SAY "päivä" 
@ 9,10 GET Arki_a PICTURE "99" 
@ 9,14 GET Arki_pp PICTURE "999.99" 
@ 9,23 GET Arki_kpa PICTURE "99" 
@ 9,26 GET Arki_kp PICTURE "999.99" 
@ 9,33 SAY "p/min" 
@ 9,39 SAY "│" 
@ 9,41 SAY "päivä" 
@ 9,48 GET Vl_pv_a PICTURE "99" 
@ 9,52 GET Vl_pv_pp PICTURE "999.99" 
@ 9,61 GET Vl_pv_kpa PICTURE "99" 
@ 9,64 GET Vl_pv_kp PICTURE "999.99" 
@ 9,71 SAY "p/min" 
@ 10,4 SAY "ilta" 
@ 10,10 GET Ilta_a PICTURE "99" 
@ 10,14 GET Ilta_pp PICTURE "999.99" 
@ 10,23 GET Ilta_kpa PICTURE "99" 
@ 10,26 GET Ilta_kp PICTURE "999.99" 
@ 10,33 SAY "p/min" 
@ 10,39 SAY "│" 
@ 10,42 SAY "ilta" 
@ 10,48 GET Vl_il_a PICTURE "99" 
@ 10,52 GET Vl_il_pp PICTURE "999.99" 
@ 10,61 GET Vl_il_kpa PICTURE "99" 
@ 10,64 GET Vl_il_kp PICTURE "999.99" 
@ 10,71 SAY "p/min" 
@ 11,6 SAY "yö" 
@ 11,10 GET Yö_a PICTURE "99" 
@ 11,14 GET Yö_pp PICTURE "999.99" 
@ 11,23 GET Yö_kpa PICTURE "99" 
@ 11,26 GET Yö_kp PICTURE "999.99" 
@ 11,33 SAY "p/min" 
@ 11,39 SAY "│" 
@ 11,44 SAY "yö" 
@ 11,48 GET Vl_yö_a PICTURE "99" 
@ 11,52 GET Vl_yö_pp PICTURE "999.99" 
@ 11,61 GET Vl_yö_kpa PICTURE "99" 
@ 11,64 GET Vl_yö_kp PICTURE "999.99" 
@ 11,71 SAY "p/min" 
@ 12,38 SAY "─┴" 
@ 13,9 SAY "Täytä taulukko paikkakuntasi puhelintaksoilla ja aikarajoilla." 
@ 14,7 SAY "Voit täyttää uuden taulukon painamalla PageDown ja vastaamalla Y." 
@ 15,8 SAY "Voit selata talletettuja taksakortteja PageUp/-Down näppäimillä." 
@ 19,1 SAY "(c) PV-Soft, Petri Voutilainen" 
@ 19,70 SAY "7.2.1995" 
*-- Format file exit code -----------------------------------------------------

*-- SET STATUS was ON when you went into the Forms Designer.
IF lc_status = "OFF"  && Entered form with status off
   SET STATUS OFF     && Turn STATUS "OFF" on the way out
ENDIF
IF .NOT. ll_cursor
  SET CURSOR OFF
ENDIF

RELEASE lc_fields,lc_status
*-- EOP: TAKSA.FMT