home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST176.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  4.8 KB  |  157 lines
  1. ********************
  2.  
  3. PROCEDURE Cleanrptup
  4.  
  5.    SELECT &ret_area
  6.    STORE "" TO thru_what, with_file, ret_area, ssthead1, ssthead2
  7.    STORE "" TO ssthead3, ssthead4, ssthead5, ssthead6, sstfoot1, sstfoot2
  8.    STORE "" TO sstfoot3, sstcon1, sstcon2, sstcon3, sstcon4, sstcon5, sstcon6
  9.    STORE "" TO sstcon7, sstcon8, sstcon9, sstcon10, sstcon11, sstcon12
  10.    STORE "" TO sst_filter, sstfile, ssttotal1, ssttotal2, ssttotal3
  11.    STORE "" TO sststot1, sststot2, sststot3, ssthcnt, sstfcnt, sstccnt, sst_spec
  12.    STORE "" TO sstdate, ssttime, sst_tog1, sstpage, sst_f_str, sst_ndx, sst_t_file
  13.    STORE "" TO sstgroup, sstsgroup, sst_newg, sstgname, brch, macplus, which_sst
  14.    STORE "" TO macplus, ret_area, which_sst, the_area, old_color, eext, get_file, ny
  15.    STORE "" TO ext, go_file, v, return_to, ok_file, extt, tteqw, thekey, tteqww, the_ww_rd
  16.  
  17.    RELEASE thru_what, with_file, ret_area, ssthead1, ssthead2
  18.    RELEASE ssthead3, ssthead4, ssthead5, ssthead6, sstfoot1, sstfoot2
  19.    RELEASE sstfoot3, sstcon1, sstcon2, sstcon3, sstcon4, sstcon5, sstcon6
  20.    RELEASE sstcon7, sstcon8, sstcon9, sstcon10, sstcon11, sstcon12
  21.    RELEASE sst_filter, sstfile, ssttotal1, ssttotal2, ssttotal3
  22.    RELEASE sststot1, sststot2, sststot3, ssthcnt, sstfcnt, sstccnt, sst_spec
  23.    RELEASE sstdate, ssttime, sst_tog1, sstpage, sst_f_str, sst_ndx, sst_t_file
  24.    RELEASE sstgroup, sstsgroup, sst_newg, sstgname, brch, ny
  25.    RELEASE macplus, ret_area, which_sst, the_area, old_color, eext, get_file
  26.    RELEASE ext, go_file, v, return_to, ok_file, extt, tteqw, thekey, tteqww, the_ww_rd
  27.  
  28.    RESTORE FROM Holding.sys ADDITIVE
  29.  
  30.    IF FILE("Noname.grp")
  31.       ERASE Noname.grp
  32.    ENDIF
  33.  
  34.    ERASE Holding.sys
  35.  
  36.    IF TYPE("allscreens") != "U" 
  37.       IF FILE("all*.arr")
  38.          PUBLIC allscreens[DEC_ARRAY("Array1")]
  39.          PUBLIC allcolor[LEN(allscreens)], allwindows[LEN(allscreens)]
  40.          RESTARRAY("Array1", allscreens)
  41.          RESTARRAY("Array2", allcolor)
  42.          RESTARRAY("Array3", allwindows)
  43.          ERASE Array1.arr
  44.          ERASE Array2.arr
  45.          ERASE Array3.arr
  46.       ENDIF
  47.    ENDIF
  48.  
  49. ********************
  50.  
  51. FUNCTION Fields_in
  52.  
  53.    PARAMETERS a_number, row_corner, col_corner
  54.  
  55.    IF EMPTY(sst_t_file)
  56.       _oldcolor = SETCOLOR()
  57.       SETCOLOR(Reverse())
  58.       @ 24,01 SAY "A database MUST be selected FIRST.  Any Key..."
  59.       INKEY(0)
  60.       SETCOLOR(_oldcolor)
  61.       @ 24,00
  62.       RETURN("")
  63.    ENDIF
  64.       
  65.    EXTERNAL Pan_down, Pan_up
  66.  
  67.    SET KEY 3 TO Pan_down
  68.    SET KEY 18 TO Pan_up
  69.    STORE 1 TO start_with, base_count
  70.    STORE FCOUNT() TO end_with
  71.    STORE .F. TO up, down
  72.    Wpush(row_corner, col_corner, 14+row_corner, 15+col_corner)
  73.    DO WHILE .T.
  74.       the_row = row_corner + 1
  75.       base_count = start_with - 1
  76.       FOR the_count = start_with TO start_with + 10
  77.          @ the_row, col_corner+1 PROMPT " " + Fill_out(FIELDNAME(the_count), 12) + SHOW_CHAR(a_number, TYPE(FIELDNAME(the_count)))
  78.          the_row = the_row + 1
  79.          IF EMPTY(FIELDNAME(the_count + 1))
  80.             the_count = the_count + 1
  81.             EXIT
  82.          ENDIF
  83.       NEXT
  84.       the_count = the_count - 1          && This backs it off one position from the FOR NEXT loop counter!
  85.       IF the_count > 12
  86.          @ the_row + 1, col_corner+1 SAY "PgUp - More"
  87.       ENDIF
  88.       IF the_count != FCOUNT()
  89.          @ the_row + 1, col_corner+1 SAY "PgDn - More"
  90.       ENDIF
  91.       MENU TO what_ever
  92.       IF what_ever = 0
  93.          IF !up .AND. !down
  94.             pass_back = ""
  95.             EXIT
  96.          ELSE
  97.             IF up
  98.                start_with = start_with - IF(start_with < 10, 0, 9)
  99.             ELSE
  100.                start_with = start_with + IF(start_with + 9 > end_with, 0, 9)
  101.             ENDIF
  102.             STORE .F. TO up, down
  103.          ENDIF
  104.       ELSE
  105.          IF !EMPTY(Show_char(a_number, TYPE(FIELDNAME(what_ever + base_count))))
  106.             pass_back = FIELDNAME(what_ever + base_count)
  107.             EXIT
  108.          ENDIF
  109.       ENDIF
  110.       Clear_area()
  111.    ENDDO
  112.    Wpop()
  113.  
  114.    EXTERNAL Pan_down, Pan_up
  115.  
  116.    SET KEY 3 TO Pan_down
  117.    SET KEY 18 TO Pan_up
  118.    RETURN(pass_back)
  119.   
  120. *******************
  121.  
  122. FUNCTION Show_char
  123.  
  124.    PARAMETERS show_a, show_b
  125.  
  126.    DO CASE
  127.    CASE show_a = 0
  128.       RETURN(CHR(17))
  129.    CASE show_a = 1
  130.       RETURN(IF(show_b = 'C', CHR(17), " "))
  131.    CASE show_a = 2
  132.       RETURN(IF(show_b = 'N', CHR(17), " "))
  133.    CASE show_a = 3
  134.       RETURN(IF(show_b = 'D', CHR(17), " "))
  135.    CASE show_a = 4
  136.       RETURN(IF(show_b = 'L', CHR(17), " "))
  137.    OTHERWISE
  138.       RETURN(" ")
  139.    ENDCASE
  140.  
  141. **********************
  142.  
  143. PROCEDURE Assignmac
  144.  
  145.    macplus[1] = "Double"
  146.    macplus[2] = "Single"
  147.    macplus[3] = "Begin Macro"
  148.    macplus[4] = "End Macro"
  149.    macplus[5] = "Dashes"
  150.    macplus[6] = "Page No."
  151.    macplus[7] = "Date"
  152.    macplus[8] = "Time"
  153.  
  154. * End of File
  155.  
  156.  
  157.