home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l216 / 1.ddi / VSCRHND.PRO < prev   
Encoding:
Text File  |  1987-03-23  |  15.9 KB  |  687 lines
  1. /****************************************************************
  2.  
  3.      Turbo Prolog Toolbox
  4.      (C) Copyright 1987 Borland International.
  5.  
  6.             VSCRHND
  7.             =======
  8.  
  9.  This module implements a screen handler for a virtual screen.
  10.  The handler is called by:
  11.                  scrhnd(TOPLINE,ENDKEY)
  12.  
  13.     TOPLINE = on/off  - decides if there should be a top line
  14.     ENDKEY            - Esc or F10 to select a field 
  15.  
  16. ****************************************************************/
  17.  
  18. /*
  19. DOMAINS
  20.   FNAME=SYMBOL
  21.   TYPE = int(); str(); real()
  22.   VALUE    = int(INTEGER); str(STRING); real(REAL)
  23.  
  24. DATABASE
  25.   /* Database declarations used in scrhnd */
  26.   insmode            /* Global insertmode */
  27.   actfield(FNAME)        /* Actual field */
  28.   screen(SYMBOL,DBASEDOM)    /* Saving different screens */
  29.   value(FNAME,STRING)        /* value of a field */
  30.   field(FNAME,TYPE,ROW,COL,LEN) /* Screen definition */
  31.   txtfield(ROW,COL,LEN,STRING)
  32.   windowsize(ROW,COL).
  33.   notopline
  34.  
  35.   /* DATABASE PREDICATES USED BY VSCRHND */
  36.   windowstart(ROW,COL)
  37.   mycursord(ROW,COL)
  38.  
  39.   /* Database declarations used in lineinp */
  40.   lineinpstate(STRING,COL)
  41. */
  42.  
  43.  
  44. PREDICATES
  45.   /* SCREEN DRIVER */
  46.   scrhnd(SYMBOL,KEY)
  47.   endkey(KEY)
  48.   scr(KEY)
  49.   writescr
  50.   showcursor
  51.   mkheader
  52.   showoverwrite
  53.  
  54.   ass_val(FNAME,STRING)
  55.   types(INTEGER,TYPE,STRING)
  56.  
  57.   valid(FNAME,TYPE,STRING)
  58.   typeerror
  59.   chng_actfield(FNAME)
  60.   field_action(FNAME)
  61.   field_value(FNAME,STRING)
  62.   noinput(FNAME)
  63.  
  64.  /***********************************************************************/
  65.  /*                        myfield_attr                               */
  66.  /* Sets only the attribute for fields inside the actual screen        */
  67.  /***********************************************************************/
  68.  
  69. PREDICATES
  70.   myfield_attr(ROW,COL,LEN,INTEGER)
  71.  
  72. CLAUSES
  73.   myfield_attr(R,C,LEN,ATTR):-
  74.     windowstart(RS,CS),windowsize(RR,CC),
  75.     R>=RS, R<=RS+RR,
  76.     C<=CS+CC, C+LEN>CS,!,
  77.     R1=R-RS,
  78.     max(C,CS,C1),
  79.     HH1=C+LEN, HH2=1+CS+CC,
  80.     min(HH1,HH2,HH),
  81.     L1=HH-C1,
  82.     C2=C1-CS,
  83.     field_attr(R1,C2,L1,ATTR).
  84.   myfield_attr(_,_,_,_).
  85.  
  86.  /***********************************************************************/
  87.  /*     myfield_str                               */
  88.  /* Prints only text inside the actual screen                */
  89.  /***********************************************************************/
  90.  
  91. PREDICATES
  92.   myfield_str(ROW,COL,LEN,STRING)
  93.   check_drop(INTEGER,STRING,STRING)
  94.  
  95. CLAUSES
  96.   check_drop(N,STR,STR):-N<=0,!.
  97.   check_drop(N,STR,STR1):-frontstr(N,STR,_,STR1).
  98.  
  99.   myfield_str(R,C,LEN,STR):-
  100.     windowstart(RS,CS),windowsize(RR,CC),
  101.     R>=RS, R<=RS+RR,
  102.     C+LEN>CS, C<=CS+CC, !,
  103.     R1=R-RS,
  104.     max(C,CS,C1),
  105.     HH1=C+LEN, HH2=1+CS+CC,
  106.     min(HH1,HH2,HH),
  107.     L1=HH-C1,
  108.     C2=C1-CS, MINUSLEN=CS-C,
  109.     check_drop(MINUSLEN,STR,STR1),
  110.     field_str(R1,C2,L1,STR1).
  111.   myfield_str(_,_,_,_).
  112.  
  113.  
  114.  
  115.  
  116.  /************************************************************************/
  117.  /*         MYCURSOR                            */
  118.  /************************************************************************/
  119. PREDICATES
  120.   mycursor(ROW,COL)
  121.   juststart(ROW,COL,ROW,COL,ROW,COL)
  122.   newstart(ROW,COL)
  123.  
  124.  
  125. CLAUSES
  126.   mycursor(R,C):-free(R),free(C),mycursord(R,C),!.
  127.  
  128.   mycursor(R,C):-bound(R),bound(C),
  129.      windowstart(RR,CC),
  130.      R>=RR, C>=CC,
  131.      windowsize(RS,CS),
  132.      R<=RR+RS, C<=CC+CS,!,
  133.      retract(mycursord(_,_)),!,
  134.      assert(mycursord(R,C)),
  135.      R1=R-RR, C1=C-CC,
  136.      cursor(R1,C1).
  137.  
  138.   mycursor(R,C):-bound(R),bound(C),
  139.      windowstart(RR,CC),
  140.      windowsize(RS,CS),!,
  141.      juststart(R,C,RR,CC,RS,CS),
  142.      mycursor(R,C).
  143.  
  144.  
  145.  PREDICATES
  146.   wrscr(ROW,ROW)
  147.   check_update(ROW,ROW)
  148.  
  149. CLAUSES
  150.   wrscr(_,_):-keypressed,!.
  151.   wrscr(SR,RS):-
  152.     txtfield(ROW,COL,LEN,STR),
  153.     ROW>SR,ROW<=RS,
  154.     myfield_str(ROW,COL,LEN,STR),
  155.     keypressed,!.
  156.   wrscr(SR,RS):-
  157.     field(FNAME,_,ROW,COL,LEN),
  158.     ROW>SR,ROW<=RS,
  159.     myfield_attr(ROW,COL,LEN,112),
  160.     field_value(FNAME,VAL),
  161.     myfield_str(ROW,COL,LEN,VAL),
  162.     keypressed,!.
  163.   wrscr(_,_).
  164.  
  165.   newstart(R,C):-retract(windowstart(OLDR,OLDC)),!,
  166.           assert(windowstart(R,C)),
  167.           SCROLLROW=R-OLDR,SCROLLCOL=C-OLDC,
  168.           scroll(SCROLLROW,SCROLLCOL),
  169.           check_update(R,SCROLLROW).
  170.  
  171.   check_update(R,ROWS):-
  172.         ROWS>0,!,
  173.           windowsize(NOOFROWS,_),!,
  174.           ENDROW=R+NOOFROWS,
  175.           STARTROW=ENDROW-ROWS,
  176.           wrscr(STARTROW,ENDROW).
  177.   check_update(R,ROWS):-
  178.         ROWS<0,!,
  179.           R1=R-1,
  180.           ENDROW=R1-ROWS,
  181.           wrscr(R1,ENDROW).
  182.   check_update(_,_).
  183.  
  184.  
  185.   /* juststart( ACTCURSOR, WINDSTART, WINDSIZE ) */
  186.   juststart(R,_,RR,CC,_,_):-R<RR,!,newstart(R,CC).
  187.   juststart(_,C,RR,CC,_,_):-C<CC,!,newstart(RR,C).
  188.   juststart(R,_,RR,CC,RS,_):-R>RR+RS,!,R1=R-RS,newstart(R1,CC).
  189.   juststart(_,C,RR,CC,_,CS):-C>CC+CS,!,C1=C-CS,newstart(RR,C1).
  190.  
  191.  
  192.  /***********************************************************************/
  193.  /*        Create the window                    */
  194.  /* This can be used to create the window automatically from        */
  195.  /* the windowsize predicate.                                */
  196.  /***********************************************************************/
  197.  
  198. PREDICATES
  199.   createwindow(SYMBOL)
  200.  
  201. CLAUSES
  202.   createwindow(off):-
  203.     windowsize(R,C),!,
  204.     R1=R+3, C1=C+3,
  205.     makewindow(81,66,23,"",0,0,R1,C1).
  206.   createwindow(on):-
  207.     windowsize(R,C),!,
  208.     R1=R+3, C1=C+3,
  209.     makewindow(85,112,0,"",0,0,1,C1),
  210.     makewindow(81,66,23,"",1,0,R1,C1).
  211.  
  212.  
  213.  /***********************************************************************/
  214.  /*        Intermediate predicates                    */
  215.  /***********************************************************************/
  216.  
  217. PREDICATES
  218.   trunc(LEN,STRING,STRING)
  219.   oldstr(FNAME,STRING)
  220.   settopline(SYMBOL)
  221.  
  222. CLAUSES
  223.   endkey(fkey(10)):-!.
  224.   endkey(esc).
  225.  
  226.   trunc(LEN,STR1,STR2):-str_len(STR1,L1),L1>LEN,!,frontstr(LEN,STR1,STR2,_).
  227.   trunc(_,STR,STR).
  228.  
  229.   settopline(_):-retract(notopline),fail.
  230.   settopline(off):-!,assert(notopline).
  231.   settopline(_).
  232.  
  233.   oldstr(FNAME,S):-    value(FNAME,S),!.
  234.   oldstr(_,"").
  235.  
  236.   ass_val(FNAME,_):- retract(value(FNAME,_)),fail.
  237.   ass_val(FNAME,VAL):-VAL><"",assert(value(FNAME,VAL)),fail.
  238.   ass_val(_,_).
  239.  
  240.   chng_actfield(_):-
  241.     retract(actfield(_)),fail.
  242.   chng_actfield(FNAME):-
  243.     assert(actfield(FNAME)).
  244.  
  245.   typeerror:-
  246.     actfield(FNAME),
  247.     field(FNAME,TYPE,_,_,_),
  248.     value(FNAME,VAL),
  249.     not(valid(FNAME,TYPE,VAL)),
  250.     beep,!.
  251.  
  252.   valid(_,str,_).
  253.   valid(_,int,STR):-str_int(STR,_).
  254.   valid(_,real,STR):-str_real(STR,_).
  255.  
  256.   /* The known types */
  257.   types(1,int,"integer").
  258.   types(2,real,"real").
  259.   types(3,str,"string").
  260.  
  261.  
  262.  /***********************************************************************/
  263.  /*        SCREEN DRIVER                           */
  264.  /*    Screen definition/input is repeated until F10 is pressed        */
  265.  /***********************************************************************/
  266.  
  267.   scrhnd(_,_):-retract(windowstart(_,_)),fail.
  268.   scrhnd(_,_):-retract(mycursord(_,_)),fail.
  269.   scrhnd(STATUSON,KEY):-
  270.     assert(windowstart(0,0)),
  271.     assert(mycursord(0,0)),
  272.     settopline(STATUSON),
  273.     mkheader,
  274.     field(FNAME,_,R,C,_),!,mycursor(R,C),
  275.     chng_actfield(FNAME),
  276.     showcursor,
  277.     repeat,
  278.     writescr,
  279.     keypressed,
  280.     /* Continuation until keypress means that time dependent
  281.         user functions can be updated */
  282.     readkey(KEY),
  283.     scr(KEY),
  284.     showcursor,
  285.     endkey(KEY),!.
  286.  
  287.  /*******************************************************************/
  288.  /*             Find the next field                */
  289.  /*******************************************************************/
  290.  
  291. PREDICATES
  292.   /* The predicates should be called with:
  293.      ACTROW, ACTCOL, MAXROW, MAXCOL, NEWROW, NEWCOL   */
  294.   best_right(ROW,COL,ROW,COL,ROW,COL)
  295.   best_left(ROW,COL,ROW,COL,ROW,COL)
  296.   best_down(ROW,COL,ROW,COL,LEN,ROW,COL)
  297.   best_up(ROW,COL,ROW,COL,LEN,ROW,COL)
  298.   better_right(ROW,COL,ROW,COL,ROW,COL)
  299.   better_left(ROW,COL,ROW,COL,ROW,COL)
  300.   better_field(ROW,COL,ROW,COL,LEN,ROW,COL,LEN)
  301.   calcdist(ROW,COL,ROW,COL,LEN,LEN)
  302.   move_left
  303.   move_right
  304.   nextfield(ROW,COL)
  305.   gtfield(ROW,ROW,COL,COL)
  306.   prevfield(ROW,COL)
  307.   chk_found(FNAME,ROW,COL,ROW,COL)
  308.   setlastfield
  309.   best_pgdown(ROW)
  310.   best_pgup(ROW)
  311.  
  312. CLAUSES
  313.   best_right(R0,C0,R1,C1,ROW,COL):-
  314.     field(_,_,R2,C2,_), C2>C0,
  315.     better_right(R0,C0,R1,C1,R2,C2),!,
  316.     best_right(R0,C0,R2,C2,ROW,COL).
  317.   best_right(_,_,R,C,R,C).
  318.  
  319.   better_right(R0,_,R1,_,R2,_):-abs(R2-R0)<abs(R1-R0),!.
  320.   better_right(R0,_,R1,C1,R2,C2):-abs(R2-R0)=abs(R1-R0),C2<C1.
  321.  
  322.   best_left(R0,C0,R1,C1,ROW,COL):-
  323.     field(_,_,R2,C2,_), C2<C0,
  324.     better_left(R0,C0,R1,C1,R2,C2),!,
  325.     best_left(R0,C0,R2,C2,ROW,COL).
  326.   best_left(_,_,R,C,R,C).
  327.  
  328.   better_left(R0,_,R1,_,R2,_):-abs(R2-R0)<abs(R1-R0),!.
  329.   better_left(R0,_,R1,C1,R2,C2):-abs(R2-R0)=abs(R1-R0),C2>C1.
  330.  
  331.   best_down(R0,C0,R1,C1,L1,ROW,COL):-
  332.     field(_,_,R2,C2,L2), R2>R0,
  333.     better_field(R0,C0,R1,C1,L1,R2,C2,L2),!,
  334.     best_down(R0,C0,R2,C2,L2,ROW,COL).
  335.   best_down(_,_,R,C,_,R,C).
  336.  
  337. PREDICATES
  338.   setfirstfield
  339.   check_better_up(ROW,COL,ROW,COL,LEN)
  340.  
  341. CLAUSES
  342.   setfirstfield:-field(FIRST,_,_,_,_),!,chng_actfield(FIRST).
  343.  
  344.   check_better_up(R0,C0,R2,C2,L2):-
  345.     actfield(FNAME),
  346.     field(FNAME,_,R1,C1,L1),!,
  347.     better_field(R0,C0,R1,C1,L1,R2,C2,L2).
  348.  
  349.   best_up(R0,C0,_,_,_,_,_):-
  350.     setfirstfield,
  351.     field(F1,_,R2,C2,L2), R2<R0,
  352.     check_better_up(R0,C0,R2,C2,L2),
  353.     chng_actfield(F1),
  354.     fail.
  355.   best_up(_,_,_,_,_,R,C):-
  356.     actfield(FNAME),
  357.     field(FNAME,_,R,C,_),
  358.     mycursor(R,C),!.
  359.  
  360.   better_field(R0,C0,R1,C1,L1,R2,C2,L2):-
  361.     calcdist(R0,C0,R1,C1,L1,DIST1),
  362.     calcdist(R0,C0,R2,C2,L2,DIST2),
  363.     DIST2<DIST1.
  364.  
  365.   calcdist(R0,C0,R1,C1,L1,DIST):-
  366.     C11=C1+L1,
  367.     max(C0,C1,H1),
  368.     min(H1,C11,H2),
  369.     DIST=3*abs(R1-R0)+abs(H2-C0).
  370.  
  371.   move_left:-
  372.     actfield(FNAME),
  373.     field(FNAME,_,R,C,_),!,
  374.     best_left(R,C,-100,-100,ROW,COL),
  375.     field(F1,_,ROW,COL,_),
  376.     chng_actfield(F1),!,
  377.     mycursor(ROW,COL).
  378.  
  379.   move_right:-
  380.     actfield(FNAME),
  381.     field(FNAME,_,R,C,_),!,
  382.     best_right(R,C,-100,-100,ROW,COL),
  383.     field(F1,_,ROW,COL,_),
  384.     chng_actfield(F1),!,
  385.     mycursor(ROW,COL).
  386.  
  387.   prevfield(R,C):-
  388.     field(FNAME,_,ROW,COL,_),
  389.     chk_found(FNAME,R,C,ROW,COL),!,
  390.     actfield(F1),
  391.     field(F1,_,RR,CC,_),!,
  392.     mycursor(RR,CC).
  393.  
  394.   chk_found(_,R,C,R,C):-!.
  395.   chk_found(FNAME,_,_,_,_):-chng_actfield(FNAME),fail.
  396.  
  397.   nextfield(R,C):-
  398.     field(FNAME,_,ROW,COL,_),gtfield(ROW,R,COL,C),
  399.     chng_actfield(FNAME),!,
  400.     mycursor(ROW,COL).
  401.   nextfield(_,_).
  402.  
  403.   gtfield(R1,R2,_,_):-R1>R2,!.
  404.   gtfield(R,R,C1,C2):-C1>C2.
  405.  
  406.   setlastfield:-
  407.     field(FNAME,_,_,_,_),
  408.     chng_actfield(FNAME),
  409.     fail.
  410.   setlastfield.
  411.  
  412.  
  413.   best_pgdown(R):-
  414.     windowsize(RR,_),
  415.     field(FNAME,_,ROW,_,_),
  416.     chng_actfield(FNAME),
  417.     ROW>=R+RR,!.
  418.   best_pgdown(_).
  419.  
  420.   best_pgup(R):-
  421.     windowsize(RR,_),
  422.     field(FNAME,_,ROW,_,_),
  423.     chng_actfield(FNAME),
  424.     ROW>=R-RR,!.
  425.   best_pgup(_).
  426.  
  427.  
  428.  /***********************************************************************/
  429.  /*        scr                               */
  430.  /***********************************************************************/
  431.  
  432.   /* Insert a new character in a field */
  433.   scr(char(T)):-actfield(FNAME),
  434.         not(noinput(FNAME)),
  435.         mycursor(_,C),
  436.         field(FNAME,_,ROW,COL,LEN),!,
  437.         POS=C-COL,
  438.         oldstr(FNAME,STR),
  439.         lin(char(T),POS,STR,STR1),
  440.         trunc(LEN,STR1,STR2),
  441.         ass_val(FNAME,STR2),
  442.         myfield_str(ROW,COL,LEN,STR2),
  443.         scr(right).
  444.         
  445.  
  446.   /* Delete character under cursor */
  447.   scr(del):-    actfield(FNAME),
  448.         not(noinput(FNAME)),
  449.         mycursor(_,C),
  450.         field(FNAME,_,ROW,COL,LEN),!,
  451.         POS=C-COL,
  452.         oldstr(FNAME,STR),
  453.         lin(del,POS,STR,STR1),
  454.         ass_val(FNAME,STR1),
  455.         myfield_str(ROW,COL,LEN,STR1).
  456.         
  457.   /* Delete character before cursor and move cursor to the left */
  458.   scr(bdel):-    actfield(FNAME),
  459.         not(noinput(FNAME)),
  460.         mycursor(_,C),
  461.         field(FNAME,_,ROW,COL,LEN),!,
  462.         POS=C-COL-1,
  463.         oldstr(FNAME,STR),
  464.         lin(del,POS,STR,STR1),
  465.         ass_val(FNAME,STR1),
  466.         myfield_str(ROW,COL,LEN,STR1),
  467.         scr(left).
  468.  
  469.  /*If there is an action - do it. Otherwise, go to next field*/
  470.   scr(cr):-
  471.     actfield(FNAME),
  472.     field_action(FNAME),
  473.     cursor(RR,CC),cursor(RR,CC),!.
  474.   scr(cr):-
  475.     scr(tab).
  476.  
  477.   /* Change between insertmode and overwritemode */
  478.   scr(ins):-changemode,showoverwrite.
  479.  
  480.   /* escape */
  481.   scr( esc ).
  482.  
  483.   /* F10: end of definition */
  484.   scr( fkey(10) ):-not(typeerror).
  485.  
  486.   scr(right):-
  487.     not(typeerror),
  488.     actfield(FNAME),
  489.     not(noinput(FNAME)),
  490.     field(FNAME,_,_,C,L),
  491.     mycursor(ROW,COL), COL<C+L-1,!,
  492.     COL1=COL+1,
  493.     mycursor(ROW,COL1).
  494.  
  495.   scr(right):-
  496.     not(typeerror),
  497.     move_right.
  498.  
  499.   scr(ctrlright):-
  500.     not(typeerror),
  501.     actfield(FNAME),
  502.     not(noinput(FNAME)),
  503.     field(FNAME,_,_,C,L),
  504.     mycursor(ROW,COL),
  505.     COL1=COL+5, COL1<C+L-1,!,
  506.     mycursor(ROW,COL1).
  507.  
  508.   scr(ctrlright):-
  509.     not(typeerror),
  510.     move_right.
  511.  
  512.   scr(left):-
  513.     not(typeerror),
  514.     actfield(FNAME), field(FNAME,_,_,C,_),
  515.     mycursor(ROW,COL),
  516.     COL>C,!,
  517.     COL1=COL-1,
  518.     mycursor(ROW,COL1).
  519.  
  520.   scr(left):-
  521.     not(typeerror),
  522.       move_left.
  523.  
  524.   scr(ctrlleft):-
  525.     not(typeerror),
  526.     actfield(FNAME), field(FNAME,_,_,C,_),
  527.     mycursor(ROW,COL),
  528.     COL1=COL-5, COL1>C,!,
  529.     mycursor(ROW,COL1).
  530.  
  531.   scr(ctrlleft):-
  532.     not(typeerror),
  533.       move_left.
  534.  
  535.   scr(tab):-
  536.     not(typeerror),
  537.     mycursor(R,C),
  538.     nextfield(R,C).
  539.  
  540.   scr(btab):-
  541.     not(typeerror),
  542.     mycursor(R,C),
  543.     prevfield(R,C).
  544.  
  545.   scr(up):-
  546.     not(typeerror),
  547.     mycursor(R,C),
  548.     trace(on),
  549.     best_up(R,C,-100,-100,1,ROW,COL),
  550.     mycursor(ROW,COL).
  551.  
  552.   scr(down):-
  553.     not(typeerror),
  554.     mycursor(R,C),
  555.     best_down(R,C,100,100,1,ROW,COL),
  556.     field(F1,_,ROW,COL,_),
  557.     chng_actfield(F1),!,
  558.     mycursor(ROW,COL).
  559.  
  560.   scr(pgdn):-
  561.     not(typeerror),
  562.     actfield(FNAME),
  563.     field(FNAME,_,R,_,_),
  564.     best_pgdown(R),
  565.     actfield(F1),
  566.     field(F1,_,ROW,COL,_),
  567.     chng_actfield(F1),!,
  568.     mycursor(ROW,COL).
  569.  
  570.   scr(pgup):-
  571.     not(typeerror),
  572.     actfield(FNAME),
  573.     field(FNAME,_,R,_,_),
  574.     best_pgup(R),
  575.     actfield(F1),
  576.     field(F1,_,ROW,COL,_),
  577.     chng_actfield(F1),!,
  578.     mycursor(ROW,COL).
  579.  
  580.   scr(home):-
  581.     not(typeerror),
  582.     field(F1,_,ROW,COL,_),
  583.     chng_actfield(F1),!,
  584.     mycursor(0,0),
  585.     mycursor(ROW,COL).
  586.  
  587.   scr(end):-
  588.     not(typeerror),
  589.     setlastfield,
  590.     actfield(FNAME),
  591.     field(FNAME,_,ROW,COL,_),!,
  592.     mycursor(ROW,COL).
  593.  
  594. /* scr(fkey(1)):-help.  If a help system is used. */
  595.  
  596.  /***********************************************************************/
  597.  /*    Predicates maintaining the top messages line                */
  598.  /***********************************************************************/
  599.  
  600.   mkheader:-notopline,!.
  601.   mkheader:-!,
  602.     shiftwindow(OLD),
  603.     gotowindow(85),
  604.     field_str(0,0,16,"ROW:      COL:"),
  605.     showoverwrite,
  606.     gotowindow(OLD).
  607.  
  608. PREDICATES
  609.   get_overwritestatus(STRING)
  610.   show_str(COL,LEN,STRING)
  611.   showfield
  612.  
  613. CLAUSES
  614.   get_overwritestatus(insert):-insmode,!.
  615.   get_overwritestatus(overwrite).
  616.  
  617.   show_str(C,L,STR):-
  618.     windowsize(_,COLS),
  619.     C<COLS,!,
  620.     MAXL=COLS-C,
  621.     min(L,MAXL,LL),
  622.     field_str(0,C,LL,STR).
  623.   show_str(_,_,_).
  624.  
  625.   showoverwrite:-notopline,!.
  626.   showoverwrite:-
  627.     shiftwindow(OLD),
  628.     gotowindow(85),
  629.     get_overwritestatus(OV),
  630.     show_str(20,9,OV),
  631.     gotowindow(OLD).
  632.  
  633.   showfield:-keypressed,!.
  634.   showfield:-
  635.     mycursor(R,C),
  636.     field(FNAME,TYP,ROW,COL,LEN),
  637.     ROW=R, COL<=C, C<COL+LEN,
  638.     types(_,TYP,TYPE),!,
  639.     show_str(30,8,TYPE),
  640.     STR=FNAME, show_str(38,42,STR).
  641.   showfield:-keypressed,!.
  642.   showfield:-
  643.     mycursor(R,C),
  644.     txtfield(ROW,COL,LEN,TXT),
  645.     ROW=R, COL<=C, C<=COL+LEN,!,
  646.     show_str(30,1,"\""),
  647.     show_str(31,49,TXT).
  648.   showfield:-show_str(30,50,"").
  649.  
  650.   showcursor:-keypressed,!.
  651.   showcursor:-notopline,!.
  652.   showcursor:-
  653.     shiftwindow(OLD),
  654.     gotowindow(85),
  655.     mycursor(R,C),!,
  656.     str_int(RSTR,R), str_int(CSTR,C), 
  657.     show_str(4,4,RSTR), show_str(14,4,CSTR),
  658.     showfield,
  659.     gotowindow(OLD),
  660.     cursor(RR,CC),
  661.     cursor(RR,CC).
  662.      
  663.  /***********************************************************************/
  664.  /*    update all fields on the screen                        */
  665.  /***********************************************************************/
  666.  
  667.   writescr:-
  668.     windowstart(SR,_), windowsize(RR,_),!,
  669.     RS=SR+RR,
  670.     wrscr(SR,RS).
  671.  
  672.  /***********************************************************************/
  673.  /*                 Shift screen                           */
  674.  /*               Can be used if needed                        */
  675.  /***********************************************************************/
  676. /*
  677. PREDICATES
  678.   shiftscreen(SYMBOL)
  679.  
  680. CLAUSES
  681.   shiftscreen(_):-retract(field(_,_,_,_,_)),fail.
  682.   shiftscreen(_):-retract(txtfield(_,_,_,_)),fail.
  683.   shiftscreen(_):-retract(windowsize(_,_)),fail.
  684.   shiftscreen(NAME):-screen(NAME,TERM),assert(TERM),fail.
  685.   shiftscreen(_).
  686. */
  687.