home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 March / VPR9703A.ISO / FWINDOWS / Win95 / Qxvzm10 / QXVZM10.LZH / QVZ1.MAC < prev    next >
Text File  |  1996-12-22  |  788b  |  47 lines
  1. 'VZページングモード
  2. '*QMVZ.HLP
  3.  
  4. proc ChangePagingMode
  5.     dim a$
  6.     a$ = @@Global$("pagingmode")
  7.     if a$ = "1" or a$ = "" then
  8.         a$ = "2"
  9.         print "C 論理ページングモード"
  10.     elseif a$ = "2" then
  11.         a$ = "3"
  12.         print "S 文字列検索モード"
  13.     else
  14.         a$ = "1"
  15.         print "P 表示ページングモード"
  16.     end if
  17.     @@Global$("pagingmode") = a$
  18. end proc
  19.  
  20. proc PagingScrollDown
  21.     dim a$
  22.  
  23.     a$ = @@Global$("pagingmode")
  24.     if a$ = "1" or a$ = "" then
  25.         @ScrollDownPage
  26.     elseif a$ = "2" then
  27.         @SearchBracketDown
  28.     else
  29.         @SearchRepeatDown
  30.     end if
  31.     stopdestroykey 1
  32. end proc
  33.  
  34. proc PagingScrollUp
  35.     dim a$
  36.  
  37.     a$ = @@Global$("pagingmode")
  38.     if a$ = "1" or a$ = "" then
  39.         @ScrollUpPage
  40.     elseif a$ = "2" then
  41.         @SearchBracketUp
  42.     else
  43.         @SearchRepeatUp
  44.     end if
  45.     stopdestroykey 1
  46. end proc
  47.