home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1B / DATAFILE_PDCD1B.iso / _pocketbk / pocketbook / 003 / settab_zip / TESTTABS.OPL < prev    next >
Text File  |  1992-10-12  |  519b  |  32 lines
  1. proc testtabs:
  2. local m%,i%
  3. cls
  4. do
  5.   minit
  6.   mcard "Tab Test","Vertical",%v,"Horizontal",%h,"Exit",%x
  7.   m%=menu
  8.   if m%=%v
  9.     lopen "PAR:A"
  10.     lprint "Vertical Tab Test"
  11.     i%=1
  12.     while i%<5
  13.       lprint chr$(11);"VTAB",i%;
  14.       i%=i%+1
  15.     endwh
  16.     lprint chr$(12);
  17.     lclose
  18.   elseif m%=%h
  19.     lopen "PAR:A"
  20.     lprint "Horizontal Tab Test"
  21.     i%=1
  22.     while i%<5
  23.       lprint chr$(9);"VTAB",i%;
  24.       i%=i%+1
  25.     endwh
  26.     lprint chr$(12);
  27.     lclose
  28.   endif
  29. until m%=%x
  30. endp
  31.  
  32.