Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : TN8904.ZIP
Filename : SETFO_L1.ASC

Listing 1, Changes for SetForm.COD

1 //
c 2 // Module Name: SETFORM.COD
c 3 // Author ....: Jeffrey McCrimon
a 4 // Version....: dBASE IV 1.0
a 5 // Date.......: April 9, 1989
a 6 // Description: This module is for producing dBASE IV .PRG
files
a 7 // that operate similar to multiple-page .FMT
files
a 8 // when used with SET FORMAT.
9 //
10
c 11 SET FORMAT (.PRG) File Template
12 ---------------------------
c 13 by Jeffrey McCrimon
c 14 Ashton-Tate


97 *--- Version.: dBASE IV, Format {Frame_ver}.0
a 98 *--- Created by Setform.GEN
c 99 *--- Notes...: This program uses "" as character string delimiters!


102
c 103 *-- Program initialization code --------------------------------------------
104 { case display of


185 *--- Format Page: {page_cnt}
186
a 187 *--- Store current format page.
a 188 scr_page = {page_cnt}
a 189 DO WHILE scr_page <> 0
a 190 IF scr_page = {page_cnt}
a 191 CLEAR
192 {line_cnt = wnd_cnt = 0;


198 }
a 199 {LMARG(1)}
c 200 READ
a 201 xit_key = READKEY()
a 202 DO CASE
a 203 *--- User pressed Return or PgDn key
a 204 CASE xit_key = 7 .OR. xit_key = 263 .OR. xit_key =
15 .OR. xit_key = 27
a 205 scr_page = {page_cnt}
a 206 *--- User pressed Ctrl-End or Esc key
a 207 CASE xit_key = 270 .OR. xit_key = 12
a 208 scr_page = 0
a 209 { if (page_cnt-1) > 1 then}
a 210 *--- User pressed PgUp key
a 211 CASE xit_key = 6 .OR. xit_key = 262
a 212 scr_page = {page_cnt-2}
a 213 LOOP
a 214 {endif}
a 215 ENDCASE
a 216 ENDIF
217
218 *-- Format Page: {page_cnt}
a 219 IF scr_page = {page_cnt}
a 220 CLEAR
221 { endif
222 //
a 223 LMARG(7);
224 if Element_type == @Text_element or Element_type == @Fld_element
then


348 }
a 349 {LMARG(1)}
a 350 READ
a 351 xit_key = READKEY()
a 352 DO CASE
a 353 *--- User pressed PgUp key
a 354 CASE xit_key = 6 .OR. xit_key = 262
a 355 scr_page = {page_cnt-1}
a 356 LOOP
a 357 *--- User pressed Return, Ctrl-End, Esc, or PgDn key
a 358 CASE xit_key = 7 .OR. xit_key = 263 .OR. xit_key =
15 .OR. ;
a 359 xit_key = 271 .OR. xit_key = 270 .OR. xit_key
= 261 .OR. ;
a 360 xit_key = 12
a 361 scr_page = 0
a 362 ENDCASE
a 363 ENDIF
a 364 ENDDO
c 365 *-- Format program exit code ---------------------------------------------------
366



388
c 389 RELEASE {if carry_flg then}lc_carry,{endif}lc_status
a 390 RETURN
c 391 *-- EOP: {filename(fmt_name)}PRG
392 {if cnt == 0 then


510 }
c 511 // EOP: SETFORM.COD