home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR2 / ADDQBE25.ZIP / QBETEST.PRG < prev    next >
Text File  |  1993-08-16  |  16KB  |  593 lines
  1. *       ╓─────────────────────────────────────────────────────────╖
  2. *       ║                                                         ║
  3. *       ║ 08/16/93             QBETEST.PRG               20:44:03 ║
  4. *       ║                                                         ║
  5. *       ╟─────────────────────────────────────────────────────────╢
  6. *       ║                                                         ║
  7. *       ║ Harold Chattaway                                        ║
  8. *       ║                                                         ║
  9. *       ║ Copyright (c) 1993 EAGLE Software Engineering           ║
  10. *       ║ 3 Old Northfield Rd                                     ║
  11. *       ║ Ashby, MA  01431                                        ║
  12. *       ║                                                         ║
  13. *       ║ Description:                                            ║
  14. *       ║ This program was automatically generated by GENSCRN.    ║
  15. *       ║                                                         ║
  16. *       ╙─────────────────────────────────────────────────────────╜
  17.  
  18. DO CASE
  19. CASE _WINDOWS
  20.  
  21.     
  22.     #REGION 0
  23.     REGIONAL m.currarea, m.talkstat, m.compstat
  24.     
  25.     IF SET("TALK") = "ON"
  26.         SET TALK OFF
  27.         m.talkstat = "ON"
  28.     ELSE
  29.         m.talkstat = "OFF"
  30.     ENDIF
  31.     m.compstat = SET("COMPATIBLE")
  32.     SET COMPATIBLE FOXPLUS
  33.     
  34.     m.rborder = SET("READBORDER")
  35.     SET READBORDER ON
  36.     
  37.     *       ╓─────────────────────────────────────────────────────────╖
  38.     *       ║                                                         ║
  39.     *       ║               Windows Window definitions                ║
  40.     *       ║                                                         ║
  41.     *       ╙─────────────────────────────────────────────────────────╜
  42.     *
  43.     
  44.     IF NOT WEXIST("sqltest") ;
  45.         OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.PJX" ;
  46.         OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.SCX" ;
  47.         OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.MNX" ;
  48.         OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.PRG" ;
  49.         OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.FRX" ;
  50.         OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.QPR"
  51.         DEFINE WINDOW sqltest ;
  52.             AT  5.000, 5.000  ;
  53.             SIZE 26.615,93.667 ;
  54.             TITLE " Test of the Add On Query By Example  Application  F10 to Activate ADDONQBE" ;
  55.             FONT "MS Sans Serif", 8 ;
  56.             STYLE "B" ;
  57.             NOFLOAT ;
  58.             NOCLOSE ;
  59.             NOMINIMIZE ;
  60.             COLOR RGB(,,,0,0,255)
  61.         MOVE WINDOW sqltest CENTER
  62.     ENDIF
  63.     
  64.     
  65.     *       ╓─────────────────────────────────────────────────────────╖
  66.     *       ║                                                         ║
  67.     *       ║         QBETEST/Windows Setup Code - SECTION 2          ║
  68.     *       ║                                                         ║
  69.     *       ╙─────────────────────────────────────────────────────────╜
  70.     *
  71.     
  72.     #REGION 1
  73.     expopt = ""
  74.     action = ""
  75.     use customer
  76.     scatter memvar memo
  77.     push key
  78.     on key label F10 do addonqbe.app with wontop(), varread()
  79.     on key label F3 do prev
  80.     on key label F4 do next
  81.     =rand(-1)
  82.     
  83.     *       ╓─────────────────────────────────────────────────────────╖
  84.     *       ║                                                         ║
  85.     *       ║              QBETEST/Windows Screen Layout              ║
  86.     *       ║                                                         ║
  87.     *       ╙─────────────────────────────────────────────────────────╜
  88.     *
  89.     
  90.     #REGION 1
  91.     IF WVISIBLE("sqltest")
  92.         ACTIVATE WINDOW sqltest SAME
  93.     ELSE
  94.         ACTIVATE WINDOW sqltest NOSHOW
  95.     ENDIF
  96.     @ 8.308,8.833 TO 14.923,85.500 ;
  97.         PATTERN 1 ;
  98.         PEN 2, 8 ;
  99.         STYLE "32" ;
  100.         COLOR RGB(0,255,255,0,0,255)
  101.     @ 3.000,28.500 GET m.custcode ;
  102.         SIZE 0.938,4.000 ;
  103.         DEFAULT 0 ;
  104.         FONT "Times New Roman", 9 ;
  105.         STYLE "B" ;
  106.         COLOR ,RGB(255,255,255,,,,)
  107.     @ 3.077,49.167 GET custname ;
  108.         SIZE 0.938,30.000 ;
  109.         DEFAULT " " ;
  110.         FONT "Times New Roman", 9 ;
  111.         STYLE "B" ;
  112.         COLOR ,RGB(255,255,255,,,,)
  113.     @ 8.923,32.333 GET m.street ;
  114.         SIZE 0.938,35.000 ;
  115.         DEFAULT " " ;
  116.         FONT "Times New Roman", 9 ;
  117.         STYLE "B" ;
  118.         COLOR ,RGB(255,255,255,,,,)
  119.     @ 10.231,32.500 GET m.city ;
  120.         SIZE 0.938,26.000 ;
  121.         DEFAULT " " ;
  122.         FONT "Times New Roman", 9 ;
  123.         STYLE "B" ;
  124.         COLOR ,RGB(255,255,255,,,,)
  125.     @ 11.538,32.500 GET m.state ;
  126.         SIZE 0.938,4.200 ;
  127.         DEFAULT " " ;
  128.         FONT "Times New Roman", 9 ;
  129.         STYLE "B" ;
  130.         COLOR ,RGB(255,255,255,,,,)
  131.     @ 11.692,49.667 GET m.zipcode ;
  132.         SIZE 0.938,17.600 ;
  133.         DEFAULT " " ;
  134.         FONT "Times New Roman", 9 ;
  135.         STYLE "B" ;
  136.         COLOR ,RGB(255,255,255,,,,)
  137.     @ 13.077,32.333 GET m.phone ;
  138.         SIZE 0.938,22.400 ;
  139.         DEFAULT " " ;
  140.         FONT "Times New Roman", 9 ;
  141.         STYLE "B" ;
  142.         PICTURE "@R (999)999-9999" ;
  143.         COLOR ,RGB(255,255,255,,,,)
  144.     @ 18.462,28.667 GET m.lastpaymnt ;
  145.         SIZE 0.938,14.200 ;
  146.         DEFAULT {  /  /  } ;
  147.         FONT "Times New Roman", 9 ;
  148.         STYLE "B" ;
  149.         COLOR ,RGB(255,255,255,,,,)
  150.     @ 18.231,69.167 GET m.stmtdate ;
  151.         SIZE 0.938,15.400 ;
  152.         DEFAULT {  /  /  } ;
  153.         FONT "Times New Roman", 9 ;
  154.         STYLE "B" ;
  155.         COLOR ,RGB(255,255,255,,,,)
  156.     @ 20.000,28.833 GET m.stmtbal ;
  157.         SIZE 0.938,14.000 ;
  158.         DEFAULT 0 ;
  159.         FONT "Times New Roman", 9 ;
  160.         STYLE "B" ;
  161.         COLOR ,RGB(255,255,255,,,,)
  162.     @ 19.846,69.333 GET m.chrgtax ;
  163.         SIZE 0.938,1.200 ;
  164.         DEFAULT .F. ;
  165.         FONT "Times New Roman", 9 ;
  166.         STYLE "B" ;
  167.         COLOR ,RGB(255,255,255,,,,)
  168.     @ 2.769,19.667 SAY "Cust #:"  ;
  169.         FONT "Times New Roman", 12 ;
  170.         STYLE "B" ;
  171.         COLOR RGB(255,255,255,,,,)
  172.     @ 2.846,36.500 SAY "Customer:"  ;
  173.         FONT "Times New Roman", 12 ;
  174.         STYLE "B" ;
  175.         COLOR RGB(255,255,255,,,,)
  176.     @ 8.846,23.000 SAY "Street:"  ;
  177.         FONT "Times New Roman", 12 ;
  178.         STYLE "B" ;
  179.         COLOR RGB(255,255,255,,,,)
  180.     @ 10.231,25.167 SAY "City:"  ;
  181.         FONT "Times New Roman", 12 ;
  182.         STYLE "B" ;
  183.         COLOR RGB(255,255,255,0,0,255)
  184.     @ 11.462,24.000 SAY "State:"  ;
  185.         FONT "Times New Roman", 12 ;
  186.         STYLE "B" ;
  187.         COLOR RGB(255,255,255,,,,)
  188.     @ 11.538,44.667 SAY "Zip:"  ;
  189.         FONT "Times New Roman", 11 ;
  190.         STYLE "B" ;
  191.         COLOR RGB(255,255,255,,,,)
  192.     @ 12.923,21.000 SAY "Phone #:"  ;
  193.         FONT "Times New Roman", 12 ;
  194.         STYLE "B" ;
  195.         COLOR RGB(255,255,255,,,,)
  196.     @ 18.154,11.167 SAY "Last Payment:"  ;
  197.         FONT "Times New Roman", 12 ;
  198.         STYLE "B" ;
  199.         COLOR RGB(255,255,255,,,,)
  200.     @ 18.077,49.500 SAY "Statement Date:"  ;
  201.         FONT "Times New Roman", 12 ;
  202.         STYLE "B" ;
  203.         COLOR RGB(255,255,255,,,,)
  204.     @ 19.692,10.667 SAY "Statement Bal:"  ;
  205.         FONT "Times New Roman", 12 ;
  206.         STYLE "B" ;
  207.         COLOR RGB(255,255,255,,,,)
  208.     @ 19.615,53.833 SAY "Charge Tax:"  ;
  209.         FONT "Times New Roman", 12 ;
  210.         STYLE "B" ;
  211.         COLOR RGB(255,255,255,,,,)
  212.     @ 1.538,17.167 SAY " "  ;
  213.         FONT "MS Sans Serif", 8 ;
  214.         STYLE "BT"
  215.     @ 1.538,22.167 SAY " "  ;
  216.         FONT "MS Sans Serif", 8 ;
  217.         STYLE "BT"
  218.     @ 7.846,20.333 SAY " "  ;
  219.         FONT "MS Sans Serif", 8 ;
  220.         STYLE "BT"
  221.     @ 17.385,9.667 SAY " "  ;
  222.         FONT "MS Sans Serif", 8 ;
  223.         STYLE "BT"
  224.     @ 17.385,24.833 SAY " "  ;
  225.         FONT "MS Sans Serif", 8 ;
  226.         STYLE "BT"
  227.     @ 8.154,42.167 SAY " "  ;
  228.         FONT "MS Sans Serif", 8 ;
  229.         STYLE "BT"
  230.     @ 23.615,5.500 GET action ;
  231.         PICTURE "@*HN \<Next;\<Prev;\<Top ;\<Bottom;\<Quit" ;
  232.         SIZE 1.150,12.000,2.000 ;
  233.         DEFAULT 1 ;
  234.         FONT "Times New Roman", 12 ;
  235.         STYLE "B" ;
  236.         VALID _qif18fyko() ;
  237.         COLOR ,,,,,,,,RGB(255,0,255,,,,)
  238.     @ 1.923,8.667 TO 5.461,85.000 ;
  239.         PEN 2, 8 ;
  240.         STYLE "32" ;
  241.         COLOR RGB(0,255,255,,,,)
  242.     @ 17.000,5.667 TO 22.077,88.000 ;
  243.         PEN 2, 8 ;
  244.         STYLE "32" ;
  245.         COLOR RGB(0,255,255,,,,)
  246.     @ 1.538,13.000 SAY "Keys"  ;
  247.         FONT "Terminal", 9 ;
  248.         STYLE "B" ;
  249.         COLOR RGB(255,255,0,,,,)
  250.     @ 7.846,13.167 SAY "Address"  ;
  251.         FONT "Terminal", 9 ;
  252.         STYLE "B" ;
  253.         COLOR RGB(255,255,0,,,,)
  254.     @ 16.615,10.000 SAY "Financial Info"  ;
  255.         FONT "Terminal", 9 ;
  256.         STYLE "B" ;
  257.         COLOR RGB(255,255,0,,,,)
  258.     
  259.     IF NOT WVISIBLE("sqltest")
  260.         ACTIVATE WINDOW sqltest
  261.     ENDIF
  262.     
  263.     READ CYCLE
  264.     
  265.     RELEASE WINDOW sqltest
  266.     
  267.     #REGION 0
  268.     
  269.     SET READBORDER &rborder
  270.     
  271.     IF m.talkstat = "ON"
  272.         SET TALK ON
  273.     ENDIF
  274.     IF m.compstat = "ON"
  275.         SET COMPATIBLE ON
  276.     ENDIF
  277.     
  278.     
  279.     *       ╓─────────────────────────────────────────────────────────╖
  280.     *       ║                                                         ║
  281.     *       ║              QBETEST/Windows Cleanup Code               ║
  282.     *       ║                                                         ║
  283.     *       ╙─────────────────────────────────────────────────────────╜
  284.     *
  285.     
  286.     #REGION 1
  287.     pop key
  288.     close databases
  289.     return
  290.     
  291.  
  292. CASE _DOS
  293.  
  294.     
  295.     #REGION 0
  296.     REGIONAL m.currarea, m.talkstat, m.compstat
  297.     
  298.     IF SET("TALK") = "ON"
  299.         SET TALK OFF
  300.         m.talkstat = "ON"
  301.     ELSE
  302.         m.talkstat = "OFF"
  303.     ENDIF
  304.     m.compstat = SET("COMPATIBLE")
  305.     SET COMPATIBLE FOXPLUS
  306.     
  307.     *       ╓─────────────────────────────────────────────────────────╖
  308.     *       ║                                                         ║
  309.     *       ║                MS-DOS Window definitions                ║
  310.     *       ║                                                         ║
  311.     *       ╙─────────────────────────────────────────────────────────╜
  312.     *
  313.     
  314.     IF NOT WEXIST("sqltest") ;
  315.         OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.PJX" ;
  316.         OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.SCX" ;
  317.         OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.MNX" ;
  318.         OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.PRG" ;
  319.         OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.FRX" ;
  320.         OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.QPR"
  321.         DEFINE WINDOW sqltest ;
  322.             FROM INT((SROW()-21)/2),INT((SCOL()-74)/2) ;
  323.             TO INT((SROW()-21)/2)+20,INT((SCOL()-74)/2)+73 ;
  324.             TITLE "┤ Test of the Add On Query By Example  Application ├" ;
  325.             FOOTER "┤  F10=Add On Query By Example ├" ;
  326.             NOFLOAT ;
  327.             NOCLOSE ;
  328.             SHADOW ;
  329.             NOMINIMIZE ;
  330.             COLOR SCHEME 5
  331.     ENDIF
  332.     
  333.     
  334.     *       ╓─────────────────────────────────────────────────────────╖
  335.     *       ║                                                         ║
  336.     *       ║          QBETEST/MS-DOS Setup Code - SECTION 2          ║
  337.     *       ║                                                         ║
  338.     *       ╙─────────────────────────────────────────────────────────╜
  339.     *
  340.     
  341.     #REGION 1
  342.     expopt = ""
  343.     action = ""
  344.     use customer
  345.     scatter memvar memo
  346.     push key
  347.     on key label F10 do addonqbe.app with wontop(), varread()
  348.     on key label F3 do prev
  349.     on key label F4 do next
  350.     =rand(-1)
  351.     
  352.     *       ╓─────────────────────────────────────────────────────────╖
  353.     *       ║                                                         ║
  354.     *       ║              QBETEST/MS-DOS Screen Layout               ║
  355.     *       ║                                                         ║
  356.     *       ╙─────────────────────────────────────────────────────────╜
  357.     *
  358.     
  359.     #REGION 1
  360.     IF WVISIBLE("sqltest")
  361.         ACTIVATE WINDOW sqltest SAME
  362.     ELSE
  363.         ACTIVATE WINDOW sqltest NOSHOW
  364.     ENDIF
  365.     @ 2,14 GET m.custcode ;
  366.         SIZE 1,4 ;
  367.         DEFAULT 0
  368.     @ 2,31 GET custname ;
  369.         SIZE 1,30 ;
  370.         DEFAULT " "
  371.     @ 6,19 GET m.street ;
  372.         SIZE 1,35 ;
  373.         DEFAULT " "
  374.     @ 7,19 GET m.city ;
  375.         SIZE 1,15 ;
  376.         DEFAULT " "
  377.     @ 8,19 GET m.state ;
  378.         SIZE 1,2 ;
  379.         DEFAULT " "
  380.     @ 8,28 GET m.zipcode ;
  381.         SIZE 1,9 ;
  382.         DEFAULT " "
  383.     @ 9,19 GET m.phone ;
  384.         SIZE 1,13 ;
  385.         DEFAULT " " ;
  386.         PICTURE "@R (999)999-9999"
  387.     @ 13,23 GET m.lastpaymnt ;
  388.         SIZE 1,8 ;
  389.         DEFAULT {  /  /  }
  390.     @ 13,50 GET m.stmtdate ;
  391.         SIZE 1,8 ;
  392.         DEFAULT {  /  /  }
  393.     @ 14,23 GET m.stmtbal ;
  394.         SIZE 1,8 ;
  395.         DEFAULT 0
  396.     @ 14,50 GET m.chrgtax ;
  397.         SIZE 1,1 ;
  398.         DEFAULT .F.
  399.     @ 2,5 SAY "Cust #:" ;
  400.         SIZE 1,7, 0
  401.     @ 2,21 SAY "Customer:" ;
  402.         SIZE 1,9, 0
  403.     @ 1,3 TO 3,62
  404.     @ 6,11 SAY "Street:" ;
  405.         SIZE 1,7, 0
  406.     @ 7,13 SAY "City:" ;
  407.         SIZE 1,5, 0
  408.     @ 8,12 SAY "State:" ;
  409.         SIZE 1,6, 0
  410.     @ 8,23 SAY "Zip:" ;
  411.         SIZE 1,4, 0
  412.     @ 9,10 SAY "Phone #:" ;
  413.         SIZE 1,8, 0
  414.     @ 5,8 TO 10,57
  415.     @ 13,8 SAY "Last Payment:" ;
  416.         SIZE 1,13, 0
  417.     @ 13,34 SAY "Statement Date:" ;
  418.         SIZE 1,15, 0
  419.     @ 14,7 SAY "Statement Bal:" ;
  420.         SIZE 1,14, 0
  421.     @ 14,38 SAY "Charge Tax:" ;
  422.         SIZE 1,11, 0
  423.     @ 12,4 TO 15,62
  424.     @ 1,6 SAY "┤" ;
  425.         SIZE 1,1, 0
  426.     @ 1,11 SAY "├" ;
  427.         SIZE 1,1, 0
  428.     @ 5,10 SAY "┤" ;
  429.         SIZE 1,1, 0
  430.     @ 12,7 SAY "┤" ;
  431.         SIZE 1,1, 0
  432.     @ 12,21 SAY "├" ;
  433.         SIZE 1,1, 0
  434.     @ 5,24 SAY "├" ;
  435.         SIZE 1,1, 0
  436.     @ 12,8 SAY "Billing Info " ;
  437.         SIZE 1,13, 0
  438.     @ 1,7 SAY "Keys" ;
  439.         SIZE 1,4, 0
  440.     @ 5,11 SAY "Customer Info" ;
  441.         SIZE 1,13, 0
  442.     @ 17,1 GET action ;
  443.         PICTURE "@*HN \<Next;\<Prev;\<Top ;\<Bottom;\<Quit" ;
  444.         SIZE 1,12,2 ;
  445.         DEFAULT 1 ;
  446.         VALID _qif18g38s()
  447.     
  448.     IF NOT WVISIBLE("sqltest")
  449.         ACTIVATE WINDOW sqltest
  450.     ENDIF
  451.     
  452.     READ CYCLE
  453.     
  454.     RELEASE WINDOW sqltest
  455.     
  456.     #REGION 0
  457.     IF m.talkstat = "ON"
  458.         SET TALK ON
  459.     ENDIF
  460.     IF m.compstat = "ON"
  461.         SET COMPATIBLE ON
  462.     ENDIF
  463.     
  464.     
  465.     *       ╓─────────────────────────────────────────────────────────╖
  466.     *       ║                                                         ║
  467.     *       ║               QBETEST/MS-DOS Cleanup Code               ║
  468.     *       ║                                                         ║
  469.     *       ╙─────────────────────────────────────────────────────────╜
  470.     *
  471.     
  472.     #REGION 1
  473.     pop key
  474.     close databases
  475.     return
  476.     
  477.  
  478. ENDCASE
  479.  
  480.  
  481. *       ╓─────────────────────────────────────────────────────────╖
  482. *       ║                                                         ║
  483. *       ║ _QIF18FYKO           action VALID                       ║
  484. *       ║                                                         ║
  485. *       ║ Function Origin:                                        ║
  486. *       ║                                                         ║
  487. *       ║ From Platform:       Windows                            ║
  488. *       ║ From Screen:         QBETEST,     Record Number:   31   ║
  489. *       ║ Variable:            action                             ║
  490. *       ║ Called By:           VALID Clause                       ║
  491. *       ║ Object Type:         Push Button                        ║
  492. *       ║ Snippet Number:      1                                  ║
  493. *       ║                                                         ║
  494. *       ╙─────────────────────────────────────────────────────────╜
  495. *
  496. FUNCTION _qif18fyko     &&  action VALID
  497. #REGION 1
  498. do case
  499.    case action = "Next"
  500.       do next
  501.  
  502.    case action = "Prev"
  503.       do prev
  504.  
  505.    case action = "Top"
  506.       go top
  507.       scatter memvar memo
  508.       show gets
  509.       wait "Top of File..." window nowait
  510.  
  511.    case action = "Bottom"
  512.       go bottom
  513.       scatter memvar memo
  514.       show gets
  515.       wait "Bottom of File..." window nowait
  516.  
  517.    case action = "Quit"
  518.       clear read
  519.  
  520. endcase
  521.  
  522.  
  523. *       ╓─────────────────────────────────────────────────────────╖
  524. *       ║                                                         ║
  525. *       ║ _QIF18G38S           action VALID                       ║
  526. *       ║                                                         ║
  527. *       ║ Function Origin:                                        ║
  528. *       ║                                                         ║
  529. *       ║ From Platform:       MS-DOS                             ║
  530. *       ║ From Screen:         QBETEST,     Record Number:   77   ║
  531. *       ║ Variable:            action                             ║
  532. *       ║ Called By:           VALID Clause                       ║
  533. *       ║ Object Type:         Push Button                        ║
  534. *       ║ Snippet Number:      2                                  ║
  535. *       ║                                                         ║
  536. *       ╙─────────────────────────────────────────────────────────╜
  537. *
  538. FUNCTION _qif18g38s     &&  action VALID
  539. #REGION 1
  540. do case
  541.    case action = "Next"
  542.       do next
  543.  
  544.    case action = "Prev"
  545.       do prev
  546.  
  547.    case action = "Top"
  548.       go top
  549.       scatter memvar memo
  550.       show gets
  551.       wait "Top of File..." window nowait
  552.  
  553.    case action = "Bottom"
  554.       go bottom
  555.       scatter memvar memo
  556.       show gets
  557.       wait "Bottom of File..." window nowait
  558.  
  559.    case action = "Quit"
  560.       clear read
  561.  
  562. endcase
  563.  
  564.  
  565.  
  566. *       ╓─────────────────────────────────────────────────────────╖
  567. *       ║                                                         ║
  568. *       ║   QBETEST/MS-DOS Supporting Procedures and Functions    ║
  569. *       ║                                                         ║
  570. *       ╙─────────────────────────────────────────────────────────╜
  571. *
  572.  
  573. #REGION 1
  574. procedure next
  575. if !eof()
  576.    skip
  577. else
  578.    go bottom
  579. endif
  580. scatter memvar memo
  581. show gets
  582. return
  583.  
  584. procedure prev
  585. if !bof()
  586.   skip -1
  587. else
  588.   go top
  589. endif
  590. scatter memvar memo
  591. show gets
  592. return
  593.