home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 4 / AACD04.ISO / AACD / Programming / CanDo / Decks1 / EZ-UU / OPS.sub.ctx < prev    next >
Encoding:
Text File  |  1998-08-22  |  80.9 KB  |  3,581 lines
  1. *************
  2. * Deck "OPS.sub"
  3. *************
  4.  
  5. *************
  6. * Card(s) in deck.
  7. *  Card "ACTION"
  8. *  Card "CFG"
  9. *  Card "DECODEops"
  10. *  Card "ENCODEops"
  11. *  Card "INST"
  12. *  Card "JOIN"
  13. *  Card "SPLITops"
  14. *************
  15. * 7 Card(s), 7 were printed.
  16. *************
  17.  
  18. *************
  19. * Natural order of Cards
  20. *  Card "ENCODEops"
  21. *  Card "DECODEops"
  22. *  Card "SPLITops"
  23. *  Card "CFG"
  24. *  Card "JOIN"
  25. *  Card "ACTION"
  26. *  Card "INST"
  27. *************
  28.  
  29. *************
  30. * Global Routine(s) in deck.
  31. *  Routine "HELP"
  32. *  Routine "LESS"
  33. *  Routine "MORE"
  34. *  Routine "SUBreq"
  35. *************
  36. * 4 Global routines(s), 4 were printed.
  37. *************
  38.  
  39. *************
  40. * Card "ACTION"
  41.     NoAttach
  42.     Routine "DATA"
  43.         If ARG1 = "PRE"
  44.             If index > 0 AND Objectstate("UPDATE") = TRUE
  45.                 Do "DATA","UPDATE"
  46.             EndIf
  47.             ExitScript
  48.         EndIf
  49.         If ARG1 = "INSERT"
  50.             WorkWithDocument "actiondoc"
  51.             MoveCursorTo STARTOF LINE 
  52.             SplitLine
  53.             MoveCursor UP ,1
  54.             InsertArrayEntry CFG[9],index
  55.             Let CFG[9,index] = GetDBObjects
  56.             SetInteger "currentfield",index
  57.             SetInteger "HOWMANYfield",LASTarrayIndex(CFG[9])
  58.             Do "DATA","REFRESH"
  59.             ExitScript
  60.         EndIf
  61.         If ARG1 = "ADD"
  62.             WorkWithDocument "actiondoc"
  63.             MoveCursorTo ENDOF DOCUMENT 
  64.             If theLine <> ""
  65.                 NewLine
  66.             EndIf
  67.             Let index = LASTarrayIndex(CFG[9]) + 1
  68.             SetInteger "Currentfield",index
  69.             Let CFG[9,index] = getdbobjects
  70.             SetInteger "HOWMANYfield",LASTarrayIndex(CFG[9])
  71.             Do "DATA","REFRESH"
  72.             ExitScript
  73.         EndIf
  74.         If ARG1 = "UPDATE"
  75.             MoveCursorTo STARTOF LINE 
  76.             WorkWithDocument "ACTIONdoc"
  77.             PositionOnLine index
  78.             MoveCursorTo STARTOF LINE 
  79.             SplitLine
  80.             Delete LINE 
  81.             MoveCursor UP ,1
  82.             SetInteger "Currentfield",index
  83.             Let CFG[9,index] = getdbobjects
  84.             Do "DATA","REFRESH"
  85.             ExitScript
  86.         EndIf
  87.         If ARG1 = "DELETE"
  88.             WorkWithDocument "ACTIONdoc"
  89.             Delete LINE 
  90.             If TheLine = ""
  91.                 MoveCursor UP ,1
  92.             EndIf
  93.             DeleteArrayEntry CFG[9],index
  94.             If VarType(CFG[9,index]) = "Nothing"
  95.                 Let index = LastArrayIndex(CFG[9])
  96.             EndIf
  97.             SetDBObjects CFG[9,index]
  98.             SetInteger "currentfield",index
  99.             SetInteger "HOWMANYfield",LASTarrayIndex(CFG[9])
  100.             If NOT index > 0
  101.                 SetText ".VORTEXfield","SPLIT"
  102.             EndIf
  103.             ExitScript
  104.         EndIf
  105.         If ARG1 = "ON"
  106.             Let index = TheLineNumber
  107.             SetInteger "CURRENTfield",TheLineNumber
  108.             SetDBObjects CFG[9,index]
  109.             WorkWithDocument "actiondoc"
  110.             MoveCursorTo STARTOF LINE 
  111.             If TheWord = "ON"
  112.                 Delete CHARACTER ,3
  113.                 Type "OFF "
  114.                 SetObjectState (".on"),FALSE
  115.             ElseIf theword = "OFF"
  116.                 Delete CHARACTER ,4
  117.                 Type "ON "
  118.                 SetObjectState (".on"),TRUE
  119.             EndIf
  120.             Let CFG[9,index] = getdbobjects
  121.             ExitScript
  122.         EndIf
  123.         If ARG1 = "REFRESH"
  124.             If Objectstate(".ON") = TRUE
  125.                 Type "ON "
  126.             Else
  127.                 Type "OFF "
  128.             EndIf
  129.             Type "( "||Textfrom(".EXT1")||" ) "
  130.             If Objectstate(".DOS1") = TRUE
  131.                 Let THIS1 = Getword(Textfrom(".DOS1field"),1)
  132.                 Type " ["||THIS1||"]"
  133.                 If Objectstate(".ONCE1") = TRUE
  134.                     Type " {ONCE}"
  135.                 EndIf
  136.             EndIf
  137.             If Objectstate(".DOS2") = TRUE
  138.                 Let THIS2 = GetWord(Textfrom(".DOS2field"),1)
  139.                 Type " ["||THIS2||"]"
  140.                 If Objectstate(".ONCE2") = TRUE
  141.                     Type " {ONCE}"
  142.                 EndIf
  143.             EndIf
  144.             If Objectstate(".VORTEX") = TRUE
  145.                 Type " <"||CFG[9,index].VORTEXfield||">"
  146.             EndIf
  147.         EndIf
  148.     EndScript
  149.     Routine "SCAN"
  150.         Loop
  151.             SetSearchArrayFlags NOCASE FORWARD SUBSTRING 
  152.             Let WHICH = Searcharray(CFG[9],ARG1,".EXT1",NUM)
  153.             If searchfound
  154.                 SetText ".DOS3field",Textfrom(".DOS3field")||" "||SEARCHFOUND||" "||WHICH||" "||ARG2
  155.                 Let NUM = WHICH + 1
  156.             EndIf
  157.         Until NOT searchfound
  158.         Let NUM = 1
  159.     EndScript
  160.     Routine "VCYCLE"
  161.         If VC = 1
  162.             Let MODE = "SPLIT"
  163.         ElseIf VC = 2
  164.             Let MODE = "JOIN"
  165.         ElseIf VC = 3
  166.             Let MODE = "ENCODE"
  167.         ElseIf VC = 4
  168.             Let MODE = "DECODE"
  169.         EndIf
  170.         SetText ".VORTEXfield",MODE
  171.     EndScript
  172.     AfterAttachment
  173.         WorkWithDocument "actiondoc"
  174.         PositionOnLine 1
  175.         If Vartype(ARG1) <> "Nothing"
  176.             Let CFG[9] = ARG1
  177.             Type CFG[9,1].ALLTEXT
  178.             Let index = 1
  179.             SetInteger "currentfield",index
  180.             SetInteger "howmanyfield",lastarrayindex(CFG[9])
  181.             SetDBObjects CFG[9,1]
  182.             PositionOnLine 1
  183.         EndIf
  184.         SetPrintFont "topaz",8
  185.         SetPrintStyle SHADOW ,3,3
  186.         SetPen 2,0
  187.         SetDrawMode JAM1 
  188.         PrintText "EXT:",44,138
  189.         PrintText "DOS:",44,154
  190.         PrintText "DOS:",44,169
  191.         PrintText "VORTEX:",448,139
  192.         DrawBorder 518,118,53,11,BEVEL ,1,2
  193.         DrawBorder 576,118,53,11,BEVEL ,1,2
  194.         DrawBorder 7,130,625,55,BEVEL ,2,1
  195.         Let VC = 1
  196.         SetText ".VORTEXfield","SPLIT"
  197.     EndScript
  198.     MessageFromSubDeck
  199.         If ARG1 = "PATH&FILE"
  200.             Let INFILE = ARG2
  201.             Let LASTDIR1 = ARG3
  202.             If ARG4 <> ""
  203.                 Let WhichField = ARG4
  204.                 If Textfrom(WhichField) <> ""
  205.                     SetText WhichField,Textfrom(WhichField)||" "||INFILE
  206.                 Else
  207.                     SetText WhichField,INFILE
  208.                 EndIf
  209.             EndIf
  210.             ExitScript
  211.         EndIf
  212.         Let WHICH = ARG2
  213.         SetText WHICH,textfrom(WHICH)||" "||ARG3
  214.     EndScript
  215.     Window "UserWindow"
  216.         Definition
  217.             Origin 0,0
  218.             Size 640,200
  219.             Title "                      \\//ortex //\\ction ||=ditor"
  220.             NumberOfColors 4
  221.             DefaultColors 0,1,0
  222.             WindowObjects DEPTHBUTTONS DRAGBAR 
  223.             WindowFlags ACTIVATE TOFRONT 
  224.             VisualEffects NONE ,WAIT 
  225.         EndScript
  226.     EndObject
  227.     List "ACTION"
  228.         Definition
  229.             Origin 11,14
  230.             Size 617,101
  231.             Font "topaz",8 ; FontName, PointSize
  232.             Style PLAIN ,2,3
  233.             TextColors 1,0,JAM2  ; PenA, PenB, DrawMode
  234.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  235.             ListDocument "ACTIONdoc" ; where the text comes from
  236.         EndScript
  237.         OnClick
  238.             If NOT index > 0
  239.                 ExitScript
  240.             EndIf
  241.             If TheLine = "" AND TheLineNumber = 1
  242.                 ExitScript
  243.             EndIf
  244.             If TheLine = "" AND TheLineNumber <> 1
  245.                 MoveCursor UP ,1
  246.             EndIf
  247.             If Objectstate("COPY") = TRUE
  248.                 Let index = TheLineNumber
  249.                 Do "DATA","INSERT"
  250.                 SetObjectState ("COPY"),FALSE
  251.                 SetPointer
  252.             EndIf
  253.             If Objectstate("MOVE") = TRUE
  254.                 Let OLDindex = index
  255.                 Let index = TheLineNumber
  256.                 Let NEWindex = index - 1
  257.                 Do "DATA","INSERT"
  258.                 PositionOnLine OLDindex
  259.                 Let index = TheLineNumber
  260.                 Do "DATA","DELETE"
  261.                 SetObjectState ("MOVE"),FALSE
  262.                 PositionOnLine NEWindex
  263.                 SetPointer
  264.             EndIf
  265.             Let index = TheLineNumber
  266.             SetInteger "CURRENTfield",TheLineNumber
  267.             SetDBObjects CFG[9,index]
  268.         EndScript
  269.         OnDoubleClick
  270.             If TheLine = "" AND TheLineNumber = 1
  271.                 ExitScript
  272.             EndIf
  273.             Do "DATA","ON"
  274.         EndScript
  275.     EndObject
  276.     TextButton "ADD"
  277.         Definition
  278.             Origin 8,118
  279.             Font "topaz",8 ; FontName, PointSize
  280.             Style SHADOW ,3,3
  281.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  282.             Text " ADD "
  283.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  284.             Highlight COMPLEMENT 
  285.             ButtonFlags NONE 
  286.         EndScript
  287.         OnClick
  288.             Do "DATA","ADD"
  289.         EndScript
  290.     EndObject
  291.     TextButton "INSERT"
  292.         Definition
  293.             Origin 54,118
  294.             Font "topaz",8 ; FontName, PointSize
  295.             Style SHADOW ,3,3
  296.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  297.             Text " INSERT "
  298.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  299.             Highlight COMPLEMENT 
  300.             ButtonFlags NONE 
  301.         EndScript
  302.         OnClick
  303.             Do "DATA","INSERT"
  304.         EndScript
  305.     EndObject
  306.     TextButton "Update"
  307.         Definition
  308.             Origin 148,118
  309.             Font "topaz",8 ; FontName, PointSize
  310.             Style SHADOW ,3,3
  311.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  312.             Text " QIK "
  313.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  314.             Highlight COMPLEMENT 
  315.             ButtonFlags BUTTONTOGGLES 
  316.         EndScript
  317.         OnClick
  318.             Do "DATA","PRE"
  319.         EndScript
  320.     EndObject
  321.     TextButton "DELETE"
  322.         Definition
  323.             Origin 194,118
  324.             Font "topaz",8 ; FontName, PointSize
  325.             Style SHADOW ,3,3
  326.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  327.             Text " DEL "
  328.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  329.             Highlight COMPLEMENT 
  330.             ButtonFlags NONE 
  331.         EndScript
  332.         OnClick
  333.             Do "DATA","DELETE"
  334.         EndScript
  335.     EndObject
  336.     TextButton "COPY"
  337.         Definition
  338.             Origin 240,118
  339.             Font "topaz",8 ; FontName, PointSize
  340.             Style SHADOW ,3,3
  341.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  342.             Text " COPY "
  343.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  344.             Highlight COMPLEMENT 
  345.             ButtonFlags BUTTONTOGGLES 
  346.         EndScript
  347.         OnClick
  348.             If Objectstate("COPY") = TRUE AND index > 0
  349.                 SetPointer "DTP:EZ-UU/copyto.brush"
  350.             ElseIf Objectstate("COPY") = FALSE AND index >0
  351.                 SetPointer
  352.             EndIf
  353.             If Objectstate("MOVE") = TRUE
  354.                 SetObjectState ("MOVE"),FALSE
  355.             EndIf
  356.         EndScript
  357.     EndObject
  358.     TextButton "Move"
  359.         Definition
  360.             Origin 294,118
  361.             Font "topaz",8 ; FontName, PointSize
  362.             Style SHADOW ,3,3
  363.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  364.             Text " MOVE "
  365.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  366.             Highlight COMPLEMENT 
  367.             ButtonFlags BUTTONTOGGLES 
  368.         EndScript
  369.         OnClick
  370.             If Objectstate("MOVE") = TRUE AND index > 0
  371.                 SetPointer "DTP:EZ-UU/Moveto.brush"
  372.             ElseIf Objectstate("MOVE") = FALSE AND index > 0
  373.                 SetPointer
  374.             EndIf
  375.             If Objectstate("COPY") = TRUE
  376.                 SetObjectState ("COPY"),FALSE
  377.             EndIf
  378.         EndScript
  379.     EndObject
  380.     TextButton "FIRST"
  381.         Definition
  382.             Origin 348,118
  383.             Font "topaz",8 ; FontName, PointSize
  384.             Style SHADOW ,3,3
  385.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  386.             Text " ||< "
  387.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  388.             Highlight COMPLEMENT 
  389.             ButtonFlags NONE 
  390.         EndScript
  391.         OnRelease
  392.             If index > 0
  393.                 Let index = FirstArrayIndex(CFG[9])
  394.                 SetDBObjects CFG[9,index]
  395.                 SetInteger "currentfield",index
  396.                 PositionOnLine index
  397.             EndIf
  398.         EndScript
  399.     EndObject
  400.     TextButton "PREV"
  401.         Definition
  402.             Origin 394,118
  403.             Font "topaz",8 ; FontName, PointSize
  404.             Style SHADOW ,3,3
  405.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  406.             Text " << "
  407.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  408.             Highlight COMPLEMENT 
  409.             ButtonFlags NONE 
  410.         EndScript
  411.         OnRelease
  412.             If index > 0
  413.                 Let index = PreviousArrayIndex(CFG[9],index)
  414.                 If Not Searchfound
  415.                     Let index = LASTArrayIndex(CFG[9])
  416.                 EndIf
  417.                 SetDBObjects CFG[9,index]
  418.                 SetInteger "currentfield",index
  419.                 PositionOnLine index
  420.             EndIf
  421.         EndScript
  422.     EndObject
  423.     TextButton "NEXT"
  424.         Definition
  425.             Origin 432,118
  426.             Font "topaz",8 ; FontName, PointSize
  427.             Style SHADOW ,3,3
  428.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  429.             Text " >> "
  430.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  431.             Highlight COMPLEMENT 
  432.             ButtonFlags NONE 
  433.         EndScript
  434.         OnRelease
  435.             If index > 0
  436.                 Let index = NextArrayIndex(CFG[9],index)
  437.                 If Not Searchfound
  438.                     Let index = FirstArrayIndex(CFG[9])
  439.                 EndIf
  440.                 SetDBObjects CFG[9,index]
  441.                 SetInteger "currentfield",index
  442.                 PositionOnLine index
  443.             EndIf
  444.         EndScript
  445.     EndObject
  446.     TextButton "LAST"
  447.         Definition
  448.             Origin 470,118
  449.             Font "topaz",8 ; FontName, PointSize
  450.             Style SHADOW ,3,3
  451.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  452.             Text " >|| "
  453.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  454.             Highlight COMPLEMENT 
  455.             ButtonFlags NONE 
  456.         EndScript
  457.         OnRelease
  458.             If index > 0
  459.                 Let index = LASTArrayIndex(CFG[9])
  460.                 SetDBObjects CFG[9,index]
  461.                 SetInteger "currentfield",index
  462.                 PositionOnLine index
  463.             EndIf
  464.         EndScript
  465.     EndObject
  466.     IntegerField "CURRENTfield"
  467.         Definition
  468.             Origin 520,120
  469.             Size 49,8
  470.             Justification LEFT 
  471.             MaxFieldLength 9
  472.             Limits 0,999999999
  473.             InitialInteger 0
  474.             Border NONE ,1,1 ; BorderStyle, MainPen, ExtraPen
  475.         EndScript
  476.     EndObject
  477.     IntegerField "HOWMANYfield"
  478.         Definition
  479.             Origin 578,120
  480.             Size 49,8
  481.             Justification LEFT 
  482.             MaxFieldLength 9
  483.             Limits 0,999999999
  484.             InitialInteger 0
  485.             Border NONE ,1,1 ; BorderStyle, MainPen, ExtraPen
  486.         EndScript
  487.     EndObject
  488.     TextField ".EXT1"
  489.         Definition
  490.             Origin 84,138
  491.             Size 318,8
  492.             Justification LEFT 
  493.             MaxFieldLength 256
  494.             InitialText ""
  495.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  496.         EndScript
  497.         OnRelease
  498.             Do "DATA","PRE"
  499.             SetObjectState (".DOS1field"),TRUE
  500.         EndScript
  501.     EndObject
  502.     AreaButton ".DOS1"
  503.         Definition
  504.             Origin 14,152
  505.             Size 30,13
  506.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  507.             Highlight COMPLEMENT 
  508.             ButtonFlags BUTTONTOGGLES 
  509.         EndScript
  510.         OnRelease
  511.             Do "DATA","PRE"
  512.             SetObjectState ".DOS1field",TRUE
  513.         EndScript
  514.     EndObject
  515.     TextField ".DOS1field"
  516.         Definition
  517.             Origin 140,153
  518.             Size 418,8
  519.             Justification LEFT 
  520.             MaxFieldLength 256
  521.             InitialText ""
  522.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  523.         EndScript
  524.         OnRelease
  525.             Do "DATA","PRE"
  526.             SetObjectState (".DOS2field"),TRUE
  527.         EndScript
  528.     EndObject
  529.     AreaButton ".VORTEX"
  530.         Definition
  531.             Origin 413,137
  532.             Size 30,13
  533.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  534.             Highlight COMPLEMENT 
  535.             ButtonFlags BUTTONTOGGLES 
  536.         EndScript
  537.         OnClick
  538.             Do "DATA","PRE"
  539.         EndScript
  540.     EndObject
  541.     TextField ".DOS2field"
  542.         Definition
  543.             Origin 140,168
  544.             Size 418,8
  545.             Justification LEFT 
  546.             MaxFieldLength 256
  547.             InitialText ""
  548.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  549.         EndScript
  550.         OnRelease
  551.             Do "DATA","PRE"
  552.         EndScript
  553.     EndObject
  554.     TextField ".VORTEXfield"
  555.         Definition
  556.             Origin 547,139
  557.             Size 71,8
  558.             Justification LEFT 
  559.             MaxFieldLength 256
  560.             InitialText ""
  561.             Border NONE ,2,1 ; BorderStyle, MainPen, ExtraPen
  562.         EndScript
  563.     EndObject
  564.     AreaButton ".ON"
  565.         Definition
  566.             Origin 14,137
  567.             Size 30,13
  568.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  569.             Highlight COMPLEMENT 
  570.             ButtonFlags BUTTONTOGGLES 
  571.         EndScript
  572.         OnRelease
  573.             Do "DATA","PRE"
  574.             SetObjectState ".EXT1",TRUE
  575.         EndScript
  576.     EndObject
  577.     TextButton "CLEAR2"
  578.         Definition
  579.             Origin 602,167
  580.             Font "topaz",8 ; FontName, PointSize
  581.             Style PLAIN ,1,3
  582.             TextColors 1,0,JAM1  ; PenA, PenB, DrawMode
  583.             Text "<|"
  584.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  585.             Highlight COMPLEMENT 
  586.             ButtonFlags NONE 
  587.         EndScript
  588.         OnClick
  589.             SetText ".DOS2field",""
  590.         EndScript
  591.     EndObject
  592.     TextButton "USE"
  593.         Definition
  594.             Origin 7,186
  595.             Font "topaz",8 ; FontName, PointSize
  596.             Style SHADOW ,1,3
  597.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  598.             Text " USE "
  599.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  600.             Highlight COMPLEMENT 
  601.             ButtonFlags NONE 
  602.         EndScript
  603.         OnRelease
  604.             Let CFG[9,1].ALLtext = Textfromdocument("actiondoc")
  605.             SendToParentDeck "OPS",CFG[9]
  606.             Quit
  607.         EndScript
  608.     EndObject
  609.     TextButton "SAVE"
  610.         Definition
  611.             Origin 273,186
  612.             Font "topaz",8 ; FontName, PointSize
  613.             Style SHADOW ,1,3
  614.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  615.             Text " SAVE "
  616.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  617.             Highlight COMPLEMENT 
  618.             ButtonFlags NONE 
  619.         EndScript
  620.         OnClick
  621.             Let CFG[9,1].ALLtext = Textfromdocument("actiondoc")
  622.             SendToParentDeck "OPS",CFG[9],"SAVE"
  623.             Quit
  624.         EndScript
  625.     EndObject
  626.     TextButton "ABORT"
  627.         Definition
  628.             Origin 570,186
  629.             Font "topaz",8 ; FontName, PointSize
  630.             Style SHADOW ,1,3
  631.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  632.             Text " ABORT "
  633.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  634.             Highlight COMPLEMENT 
  635.             ButtonFlags NONE 
  636.         EndScript
  637.         OnClick
  638.             Quit
  639.         EndScript
  640.     EndObject
  641.     AreaButton ".DOS2"
  642.         Definition
  643.             Origin 14,167
  644.             Size 30,13
  645.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  646.             Highlight COMPLEMENT 
  647.             ButtonFlags BUTTONTOGGLES 
  648.         EndScript
  649.         OnRelease
  650.             Do "DATA","PRE"
  651.             SetObjectState ".DOS2field",TRUE
  652.         EndScript
  653.     EndObject
  654.     TextButton "CLEAR1"
  655.         Definition
  656.             Origin 602,152
  657.             Font "topaz",8 ; FontName, PointSize
  658.             Style PLAIN ,1,3
  659.             TextColors 1,0,JAM1  ; PenA, PenB, DrawMode
  660.             Text "<|"
  661.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  662.             Highlight COMPLEMENT 
  663.             ButtonFlags NONE 
  664.         EndScript
  665.         OnClick
  666.             SetText ".DOS1field",""
  667.         EndScript
  668.     EndObject
  669.     TextButton ".ONCE1"
  670.         Definition
  671.             Origin 564,152
  672.             Font "topaz",8 ; FontName, PointSize
  673.             Style PLAIN ,2,3
  674.             TextColors 1,0,JAM1  ; PenA, PenB, DrawMode
  675.             Text "ONCE"
  676.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  677.             Highlight COMPLEMENT 
  678.             ButtonFlags BUTTONTOGGLES 
  679.         EndScript
  680.         OnRelease
  681.             Do "DATA","PRE"
  682.         EndScript
  683.     EndObject
  684.     TextButton ".ONCE2"
  685.         Definition
  686.             Origin 564,167
  687.             Font "topaz",8 ; FontName, PointSize
  688.             Style PLAIN ,2,3
  689.             TextColors 1,0,JAM1  ; PenA, PenB, DrawMode
  690.             Text "ONCE"
  691.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  692.             Highlight COMPLEMENT 
  693.             ButtonFlags BUTTONTOGGLES 
  694.         EndScript
  695.         OnRelease
  696.             Do "DATA","PRE"
  697.         EndScript
  698.     EndObject
  699.     AKey "CLEAR"
  700.         Definition
  701.             QualifiersPressed NONE 
  702.             KeyPressed DELETE 
  703.         EndScript
  704.         OnDown
  705.             If Objectstate("UPDATE") = TRUE AND index > 0
  706.                 Do "DATA","DELETE"
  707.                 ExitScript
  708.             EndIf
  709.             SetObjectState (".ON"),FALSE
  710.             SetObjectState (".DOS1"),FALSE
  711.             SetObjectState (".DOS2"),FALSE
  712.             SetObjectState (".VORTEX"),FALSE
  713.             SetObjectState (".ONCE1"),FALSE
  714.             SetObjectState (".ONCE2"),FALSE
  715.             SetText ".DOS1field",""
  716.             SetText ".DOS2field",""
  717.             SetText ".EXT1",""
  718.         EndScript
  719.     EndObject
  720.     AKey "HELP"
  721.         Definition
  722.             QualifiersPressed NONE 
  723.             KeyPressed HELP 
  724.         EndScript
  725.         OnDown
  726.             Do "HELP","HL",">>ACTION<<"
  727.         EndScript
  728.     EndObject
  729.     AreaButton "FTYPE1"
  730.         Definition
  731.             Origin 44,138
  732.             Size 28,9
  733.             Border NONE ,2,1 ; BorderStyle, MainPen, ExtraPen
  734.             Highlight COMPLEMENT 
  735.             ButtonFlags NONE 
  736.         EndScript
  737.         OnClick
  738.             Do "HELP","FT",".EXT1"
  739.         EndScript
  740.     EndObject
  741.     AreaButton "ROLLO"
  742.         Definition
  743.             Origin 509,136
  744.             Size 113,13
  745.             Border ROLLO ,2,1 ; BorderStyle, MainPen, ExtraPen
  746.             Highlight NONE 
  747.             ButtonFlags NONE 
  748.         EndScript
  749.         OnClick
  750.             If VC = 4
  751.                 Let VC = 1
  752.             Else
  753.                 Let VC = VC + 1
  754.             EndIf
  755.             Do "VCYCLE"
  756.             Do "DATA","PRE"
  757.         EndScript
  758.     EndObject
  759.     AreaButton "FREQ"
  760.         Definition
  761.             Origin 45,153
  762.             Size 27,9
  763.             Border NONE ,2,1 ; BorderStyle, MainPen, ExtraPen
  764.             Highlight COMPLEMENT 
  765.             ButtonFlags NONE 
  766.         EndScript
  767.         OnClick
  768.             LoadSubDeck "DTP:EZ-UU/FREQ.sub","FREQ"
  769.             OpenRequester "FREQ","REQ","PATH&FILE",LASTDIR1,"DoubleClick a File...",".DOS1field"
  770.         EndScript
  771.     EndObject
  772.     AreaButton "FREQ2"
  773.         Definition
  774.             Origin 45,168
  775.             Size 27,9
  776.             Border NONE ,2,1 ; BorderStyle, MainPen, ExtraPen
  777.             Highlight COMPLEMENT 
  778.             ButtonFlags NONE 
  779.         EndScript
  780.         OnClick
  781.             LoadSubDeck "DTP:EZ-UU/FREQ.sub","FREQ"
  782.             OpenRequester "FREQ","REQ","PATH&FILE",LASTDIR1,"DoubleClick a File...",".DOS2field"
  783.         EndScript
  784.     EndObject
  785.     TextButton "UP"
  786.         Definition
  787.             Origin 125,118
  788.             Font "topaz",8 ; FontName, PointSize
  789.             Style SHADOW ,3,3
  790.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  791.             Text "^^"
  792.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  793.             Highlight COMPLEMENT 
  794.             ButtonFlags NONE 
  795.         EndScript
  796.         OnClick
  797.             If index > 0
  798.                 Do "DATA","UPDATE"
  799.             EndIf
  800.         EndScript
  801.     EndObject
  802.     IntegerField ".STACK1"
  803.         Definition
  804.             Origin 84,153
  805.             Size 47,8
  806.             Justification LEFT 
  807.             MaxFieldLength 9
  808.             Limits 4096,999999999
  809.             InitialInteger 4096
  810.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  811.         EndScript
  812.     EndObject
  813.     IntegerField ".STACK2"
  814.         Definition
  815.             Origin 84,168
  816.             Size 47,8
  817.             Justification LEFT 
  818.             MaxFieldLength 9
  819.             Limits 4096,999999999
  820.             InitialInteger 4096
  821.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  822.         EndScript
  823.     EndObject
  824. * End of Card "ACTION"
  825. *************
  826.  
  827. *************
  828. * Card "CFG"
  829.     NoAttach
  830.     Routine "Rollo"
  831.         If ARG1 = "Init"
  832.             Nop; If we don't have ANY CFG[NUM] settings.. then use
  833.             Nop; these. Probably never have to. Only if CFG is missing.
  834.             If CFG[NUM].DSKfscan = ""
  835.                 Let CFG[NUM].DSKfscan = "RECURSIVE"
  836.             EndIf
  837.             If CFG[NUM].DSKflist = ""
  838.                 Let CFG[NUM].DSKflist = "ALL"
  839.             EndIf
  840.             If CFG[NUM].DIRfscan = ""
  841.                 Let CFG[NUM].DIRfscan = "ROOT"
  842.             EndIf
  843.             If CFG[NUM].DIRflist = ""
  844.                 Let CFG[NUM].DIRflist = "SELECTIVE"
  845.             EndIf
  846.             If CFG[NUM].DROPgo = ""
  847.                 Let CFG[NUM].DROPgo = TRUE
  848.             EndIf
  849.             If CFG[NUM].DROPlist = ""
  850.                 Let CFG[NUM].DROPlist = "ADD"
  851.             EndIf
  852.             If CFG[NUM].DROPinfo = ""
  853.                 Let CFG[NUM].DROPinfo = TRUE
  854.             EndIf
  855.             Nop; setup the rollo buttons to there CFG[NUM] settings
  856.             Nop; rollo buttons cannot be DBO's.. so we do it manually.
  857.             PrintText " "||CFG[NUM].DSKfscan||"      ",173,19
  858.             PrintText " "||CFG[NUM].DSKflist||"      ",173,34
  859.             PrintText " "||CFG[NUM].DIRfscan||"      ",173,84
  860.             PrintText " "||CFG[NUM].DIRflist||"      ",173,99
  861.             If CFG[NUM].DROPgo = TRUE
  862.                 PrintText " DROP AND AUTO-GO!           ",44,145
  863.             Else
  864.                 PrintText " DROP AND WAIT FOR USER INPUT",44,145
  865.             EndIf
  866.             If CFG[NUM].DROPlist = "ADD"
  867.                 PrintText " ADD/APPEND TO LIST ON DROP",44,159
  868.             Else
  869.                 PrintText " MAKE NEW LIST ON DROP     ",44,159
  870.             EndIf
  871.             If CFG[NUM].DROPinfo = TRUE
  872.                 PrintText " LIST .info of DROPPED icon(s)",44,173
  873.             Else
  874.                 PrintText " NO .info of DROPPED icon(s)  ",44,173
  875.             EndIf
  876.         EndIf
  877.     EndScript
  878.     AfterAttachment
  879.         Let NUM = ARG2
  880.         Let CFG[NUM] = ARG1
  881.         SetDBObjects CFG[NUM].DB
  882.         DrawBorder 7,12,306,64,BEVEL ,2,1
  883.         DrawBorder 7,76,306,64,BEVEL ,2,1
  884.         SetPrintFont "topaz",8
  885.         SetDrawMode JAM2 
  886.         SetPrintStyle PLAIN ,2,3
  887.         SetPen 1,0
  888.         PrintText "DISK-FILESCAN:",14,19
  889.         PrintText "DISK-FILELIST:",14,34
  890.         PrintText "MATCH:",42,50
  891.         PrintText "EXCLD:",42,62
  892.         PrintText "DIR-FILESCAN:",14,84
  893.         PrintText "DIR-FILELIST:",14,99
  894.         PrintText "MATCH:",42,116
  895.         PrintText "EXCLD:",42,127
  896.         Do "Rollo","Init"
  897.         SetDrawMode JAM2 
  898.     EndScript
  899.     MessageFromSubDeck
  900.         If ARG1 = "SEARCH" AND ARG3 = "DSK"
  901.             Let CFG[NUM].DSK = ARG2
  902.         EndIf
  903.         If ARG1 = "SEARCH" AND ARG3 = "DIR"
  904.             Let CFG[NUM].DIR = ARG2
  905.         EndIf
  906.         If ARG1 <> "SEARCH"
  907.             Let WHICH = ARG2
  908.             SetText WHICH,textfrom(WHICH)||" "||ARG3
  909.         EndIf
  910.     EndScript
  911.     Window "UserWindow"
  912.         Definition
  913.             Origin 100,0
  914.             Size 320,200
  915.             Title "        \\//ortex: DROPtions"
  916.             NumberOfColors 4
  917.             DefaultColors 0,1,0
  918.             WindowObjects DRAGBAR 
  919.             WindowFlags ACTIVATE TOFRONT 
  920.             VisualEffects NONE ,WAIT 
  921.         EndScript
  922.     EndObject
  923.     AreaButton "DSKfilescan"
  924.         Definition
  925.             Origin 139,16
  926.             Size 165,13
  927.             Border ROLLO ,2,1 ; BorderStyle, MainPen, ExtraPen
  928.             Highlight NONE 
  929.             ButtonFlags NONE 
  930.         EndScript
  931.         OnClick
  932.             If CFG[NUM].DSKfscan = "RECURSIVE"
  933.                 Let CFG[NUM].DSKfscan = "ROOT"
  934.             ElseIf CFG[NUM].DSKfscan = "ROOT"
  935.                 Let CFG[NUM].DSKfscan = "RECURSIVE"
  936.             EndIf
  937.             PrintText " "||CFG[NUM].DSKfscan||"      ",173,19
  938.         EndScript
  939.     EndObject
  940.     AreaButton "DSKfilelist"
  941.         Definition
  942.             Origin 139,31
  943.             Size 165,13
  944.             Border ROLLO ,2,1 ; BorderStyle, MainPen, ExtraPen
  945.             Highlight NONE 
  946.             ButtonFlags NONE 
  947.         EndScript
  948.         OnClick
  949.             If CFG[NUM].DSKflist = "ALL"
  950.                 Let CFG[NUM].DSKflist = "SELECTIVE"
  951.             ElseIf CFG[NUM].DSKflist = "SELECTIVE"
  952.                 Let CFG[NUM].DSKflist = "ALL"
  953.                 SetObjectState (".DSKmatch"),FALSE
  954.                 SetObjectState (".DSKexcl"),FALSE
  955.             EndIf
  956.             PrintText " "||CFG[NUM].DSKflist||"      ",173,34
  957.         EndScript
  958.     EndObject
  959.     TextField ".DSKmatchfield"
  960.         Definition
  961.             Origin 96,49
  962.             Size 181,8
  963.             Justification LEFT 
  964.             MaxFieldLength 100
  965.             InitialText ""
  966.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  967.         EndScript
  968.     EndObject
  969.     AreaButton ".DSKmatch"
  970.         Definition
  971.             Origin 12,48
  972.             Size 28,11
  973.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  974.             Highlight COMPLEMENT 
  975.             ButtonFlags BUTTONTOGGLES 
  976.         EndScript
  977.         OnRelease
  978.             If CFG[NUM].DSKflist = "ALL"
  979.                 SetObjectState (".DSKmatch"),FALSE
  980.             Else
  981.                 SetObjectState ".DSKmatchfield",TRUE
  982.             EndIf
  983.         EndScript
  984.     EndObject
  985.     AreaButton ".DSKexcl"
  986.         Definition
  987.             Origin 12,60
  988.             Size 28,11
  989.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  990.             Highlight COMPLEMENT 
  991.             ButtonFlags BUTTONTOGGLES 
  992.         EndScript
  993.         OnRelease
  994.             If CFG[NUM].DSKflist = "ALL"
  995.                 SetObjectState (".DSKexcl"),FALSE
  996.             Else
  997.                 SetObjectState ".DSKexclField",TRUE
  998.             EndIf
  999.         EndScript
  1000.     EndObject
  1001.     TextField ".DSKexclField"
  1002.         Definition
  1003.             Origin 96,62
  1004.             Size 181,8
  1005.             Justification LEFT 
  1006.             MaxFieldLength 100
  1007.             InitialText ""
  1008.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  1009.         EndScript
  1010.     EndObject
  1011.     AreaButton "DIRfilescan"
  1012.         Definition
  1013.             Origin 139,81
  1014.             Size 165,13
  1015.             Border ROLLO ,2,1 ; BorderStyle, MainPen, ExtraPen
  1016.             Highlight NONE 
  1017.             ButtonFlags NONE 
  1018.         EndScript
  1019.         OnClick
  1020.             If CFG[NUM].DIRfscan = "ROOT"
  1021.                 Let CFG[NUM].DIRfscan = "RECURSIVE"
  1022.             ElseIf CFG[NUM].DIRfscan = "RECURSIVE"
  1023.                 Let CFG[NUM].DIRfscan = "ROOT"
  1024.             EndIf
  1025.             PrintText " "||CFG[NUM].DIRfscan||"      ",173,84
  1026.         EndScript
  1027.     EndObject
  1028.     AreaButton "DIRfilelist"
  1029.         Definition
  1030.             Origin 139,96
  1031.             Size 165,13
  1032.             Border ROLLO ,2,1 ; BorderStyle, MainPen, ExtraPen
  1033.             Highlight NONE 
  1034.             ButtonFlags NONE 
  1035.         EndScript
  1036.         OnClick
  1037.             If CFG[NUM].DIRflist = "ALL"
  1038.                 Let CFG[NUM].DIRflist = "SELECTIVE"
  1039.             ElseIf CFG[NUM].DIRflist = "SELECTIVE"
  1040.                 Let CFG[NUM].DIRflist = "ALL"
  1041.                 SetObjectState (".DIRmatch"),FALSE
  1042.                 SetObjectState (".DIRexcl"),FALSE
  1043.             EndIf
  1044.             PrintText " "||CFG[NUM].DIRflist||"      ",173,99
  1045.         EndScript
  1046.     EndObject
  1047.     AreaButton ".DIRmatch"
  1048.         Definition
  1049.             Origin 12,113
  1050.             Size 28,11
  1051.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  1052.             Highlight COMPLEMENT 
  1053.             ButtonFlags BUTTONTOGGLES 
  1054.         EndScript
  1055.         OnRelease
  1056.             If CFG[NUM].DIRflist = "ALL"
  1057.                 SetObjectState (".DIRmatch"),FALSE
  1058.             Else
  1059.                 SetObjectState ".DIRmatchfield",TRUE
  1060.             EndIf
  1061.         EndScript
  1062.     EndObject
  1063.     AreaButton ".DIRexcl"
  1064.         Definition
  1065.             Origin 12,125
  1066.             Size 28,11
  1067.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  1068.             Highlight COMPLEMENT 
  1069.             ButtonFlags BUTTONTOGGLES 
  1070.         EndScript
  1071.         OnRelease
  1072.             If CFG[NUM].DIRflist = "ALL"
  1073.                 SetObjectState (".DIRexcl"),FALSE
  1074.             Else
  1075.                 SetObjectState ".DIRexclField",TRUE
  1076.             EndIf
  1077.         EndScript
  1078.     EndObject
  1079.     TextField ".DIRmatchfield"
  1080.         Definition
  1081.             Origin 96,114
  1082.             Size 181,8
  1083.             Justification LEFT 
  1084.             MaxFieldLength 100
  1085.             InitialText ""
  1086.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  1087.         EndScript
  1088.     EndObject
  1089.     TextField ".DIRexclField"
  1090.         Definition
  1091.             Origin 96,127
  1092.             Size 181,8
  1093.             Justification LEFT 
  1094.             MaxFieldLength 100
  1095.             InitialText ""
  1096.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  1097.         EndScript
  1098.     EndObject
  1099.     AreaButton "DROPgo"
  1100.         Definition
  1101.             Origin 15,142
  1102.             Size 289,13
  1103.             Border ROLLO ,2,1 ; BorderStyle, MainPen, ExtraPen
  1104.             Highlight NONE 
  1105.             ButtonFlags NONE 
  1106.         EndScript
  1107.         OnClick
  1108.             If CFG[NUM].DROPgo = TRUE
  1109.                 Let CFG[NUM].DROPgo = FALSE
  1110.                 PrintText " DROP AND WAIT FOR USER INPUT",44,145
  1111.             ElseIf CFG[NUM].DROPgo = FALSE
  1112.                 Let CFG[NUM].DROPgo = TRUE
  1113.                 PrintText " DROP AND AUTO-GO!           ",44,145
  1114.             EndIf
  1115.         EndScript
  1116.     EndObject
  1117.     AreaButton "ADDlist"
  1118.         Definition
  1119.             Origin 15,156
  1120.             Size 289,13
  1121.             Border ROLLO ,2,1 ; BorderStyle, MainPen, ExtraPen
  1122.             Highlight NONE 
  1123.             ButtonFlags NONE 
  1124.         EndScript
  1125.         OnClick
  1126.             If CFG[NUM].DROPlist = "ADD"
  1127.                 Let CFG[NUM].DROPlist = "NEW"
  1128.                 PrintText " MAKE NEW LIST ON DROP     ",44,159
  1129.             ElseIf CFG[NUM].DROPlist = "NEW"
  1130.                 Let CFG[NUM].DROPlist = "ADD"
  1131.                 PrintText " ADD/APPEND TO LIST ON DROP",44,159
  1132.             EndIf
  1133.         EndScript
  1134.     EndObject
  1135.     AreaButton "info"
  1136.         Definition
  1137.             Origin 15,170
  1138.             Size 289,13
  1139.             Border ROLLO ,2,1 ; BorderStyle, MainPen, ExtraPen
  1140.             Highlight NONE 
  1141.             ButtonFlags NONE 
  1142.         EndScript
  1143.         OnClick
  1144.             If CFG[NUM].DROPinfo = TRUE
  1145.                 Let CFG[NUM].DROPinfo = FALSE
  1146.                 PrintText " NO .info of DROPPED icon(s)  ",44,173
  1147.             ElseIf CFG[NUM].DROPinfo = FALSE
  1148.                 Let CFG[NUM].DROPinfo = TRUE
  1149.                 PrintText " LIST .info of DROPPED icon(s)",44,173
  1150.             EndIf
  1151.         EndScript
  1152.     EndObject
  1153.     TextButton "USE"
  1154.         Definition
  1155.             Origin 10,185
  1156.             Font "topaz",8 ; FontName, PointSize
  1157.             Style SHADOW ,1,3
  1158.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  1159.             Text " USE "
  1160.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  1161.             Highlight COMPLEMENT 
  1162.             ButtonFlags NONE 
  1163.         EndScript
  1164.         OnClick
  1165.             Let CFG[NUM].DB = GetDBObjects
  1166.             SendToParentDeck "DROPTIONS",CFG[NUM]
  1167.             Quit
  1168.         EndScript
  1169.     EndObject
  1170.     TextButton "SAVE"
  1171.         Definition
  1172.             Origin 127,185
  1173.             Font "topaz",8 ; FontName, PointSize
  1174.             Style SHADOW ,1,3
  1175.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  1176.             Text " SAVE "
  1177.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  1178.             Highlight COMPLEMENT 
  1179.             ButtonFlags NONE 
  1180.         EndScript
  1181.         OnRelease
  1182.             Let CFG[NUM].DB = GetDBObjects
  1183.             SendToParentDeck "DROPTIONS",CFG[NUM],"SAVE"
  1184.             Quit
  1185.         EndScript
  1186.     EndObject
  1187.     TextButton "ABORT"
  1188.         Definition
  1189.             Origin 248,185
  1190.             Font "topaz",8 ; FontName, PointSize
  1191.             Style SHADOW ,1,3
  1192.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  1193.             Text " ABORT "
  1194.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  1195.             Highlight COMPLEMENT 
  1196.             ButtonFlags NONE 
  1197.         EndScript
  1198.         OnClick
  1199.             Quit
  1200.         EndScript
  1201.     EndObject
  1202.     AKey "HELP"
  1203.         Definition
  1204.             QualifiersPressed NONE 
  1205.             KeyPressed HELP 
  1206.         EndScript
  1207.         OnDown
  1208.             Do "HELP","HL",">>DROPtions<<"
  1209.         EndScript
  1210.     EndObject
  1211.     AreaButton "Ftype1"
  1212.         Definition
  1213.             Origin 42,48
  1214.             Size 45,9
  1215.             Border NONE ,2,1 ; BorderStyle, MainPen, ExtraPen
  1216.             Highlight COMPLEMENT 
  1217.             ButtonFlags NONE 
  1218.         EndScript
  1219.         OnClick
  1220.             Do "HELP","FT",".DSKmatchfield"
  1221.         EndScript
  1222.     EndObject
  1223.     AreaButton "Ftype2"
  1224.         Definition
  1225.             Origin 41,61
  1226.             Size 45,9
  1227.             Border NONE ,2,1 ; BorderStyle, MainPen, ExtraPen
  1228.             Highlight COMPLEMENT 
  1229.             ButtonFlags NONE 
  1230.         EndScript
  1231.         OnClick
  1232.             Do "HELP","FT",".DSKexclField"
  1233.         EndScript
  1234.     EndObject
  1235.     AreaButton "Ftype3"
  1236.         Definition
  1237.             Origin 42,115
  1238.             Size 45,9
  1239.             Border NONE ,2,1 ; BorderStyle, MainPen, ExtraPen
  1240.             Highlight COMPLEMENT 
  1241.             ButtonFlags NONE 
  1242.         EndScript
  1243.         OnClick
  1244.             Do "HELP","FT",".DIRmatchfield"
  1245.         EndScript
  1246.     EndObject
  1247.     AreaButton "Ftype4"
  1248.         Definition
  1249.             Origin 43,126
  1250.             Size 45,9
  1251.             Border NONE ,2,1 ; BorderStyle, MainPen, ExtraPen
  1252.             Highlight COMPLEMENT 
  1253.             ButtonFlags NONE 
  1254.         EndScript
  1255.         OnClick
  1256.             Do "HELP","FT",".DIRexclField"
  1257.         EndScript
  1258.     EndObject
  1259.     TextButton "Clear1"
  1260.         Definition
  1261.             Origin 284,48
  1262.             Font "topaz",8 ; FontName, PointSize
  1263.             Style PLAIN ,2,3
  1264.             TextColors 1,0,JAM1  ; PenA, PenB, DrawMode
  1265.             Text "<|"
  1266.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  1267.             Highlight COMPLEMENT 
  1268.             ButtonFlags NONE 
  1269.         EndScript
  1270.         OnClick
  1271.             SetText ".DSKmatchField",""
  1272.         EndScript
  1273.     EndObject
  1274.     TextButton "Clear2"
  1275.         Definition
  1276.             Origin 284,61
  1277.             Font "topaz",8 ; FontName, PointSize
  1278.             Style PLAIN ,2,3
  1279.             TextColors 1,0,JAM1  ; PenA, PenB, DrawMode
  1280.             Text "<|"
  1281.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  1282.             Highlight COMPLEMENT 
  1283.             ButtonFlags NONE 
  1284.         EndScript
  1285.         OnClick
  1286.             SetText ".DSKexclField",""
  1287.         EndScript
  1288.     EndObject
  1289.     TextButton "Clear3"
  1290.         Definition
  1291.             Origin 284,113
  1292.             Font "topaz",8 ; FontName, PointSize
  1293.             Style PLAIN ,2,3
  1294.             TextColors 1,0,JAM1  ; PenA, PenB, DrawMode
  1295.             Text "<|"
  1296.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  1297.             Highlight COMPLEMENT 
  1298.             ButtonFlags NONE 
  1299.         EndScript
  1300.         OnClick
  1301.             SetText ".DIRmatchField",""
  1302.         EndScript
  1303.     EndObject
  1304.     TextButton "Clear4"
  1305.         Definition
  1306.             Origin 284,126
  1307.             Font "topaz",8 ; FontName, PointSize
  1308.             Style PLAIN ,2,3
  1309.             TextColors 1,0,JAM1  ; PenA, PenB, DrawMode
  1310.             Text "<|"
  1311.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  1312.             Highlight COMPLEMENT 
  1313.             ButtonFlags NONE 
  1314.         EndScript
  1315.         OnClick
  1316.             SetText ".DIRexclField",""
  1317.         EndScript
  1318.     EndObject
  1319.     AreaButton "OPS"
  1320.         Definition
  1321.             Origin 14,98
  1322.             Size 101,10
  1323.             Border NONE ,2,1 ; BorderStyle, MainPen, ExtraPen
  1324.             Highlight COMPLEMENT 
  1325.             ButtonFlags NONE 
  1326.         EndScript
  1327.         OnRelease
  1328.             LoadSubDeck "DTP:EZ-UU/FLOPPY.sub","OPS"
  1329.             OpenRequester "OPS","SEARCH",CFG[NUM].DIR,"DIR"
  1330.         EndScript
  1331.     EndObject
  1332.     AreaButton "OPS2"
  1333.         Definition
  1334.             Origin 14,33
  1335.             Size 108,9
  1336.             Border NONE ,2,1 ; BorderStyle, MainPen, ExtraPen
  1337.             Highlight COMPLEMENT 
  1338.             ButtonFlags NONE 
  1339.         EndScript
  1340.         OnRelease
  1341.             LoadSubDeck "DTP:EZ-UU/FLOPPY.sub","OPS"
  1342.             OpenRequester "OPS","SEARCH",CFG[NUM].DSK,"DSK"
  1343.         EndScript
  1344.     EndObject
  1345. * End of Card "CFG"
  1346. *************
  1347.  
  1348. *************
  1349. * Card "DECODEops"
  1350.     NoAttach
  1351.     AfterAttachment
  1352.         SetDBObjects ARG1
  1353.         DrawBorder 6,12,308,19,BEVEL ,2,1
  1354.         DrawBorder 6,31,308,35,BEVEL ,2,1
  1355.         DrawBorder 6,66,308,19,BEVEL ,2,1
  1356.         DrawBorder 6,85,308,25,BEVEL ,2,1
  1357.         DrawBorder 6,110,308,20,BEVEL ,2,1
  1358.         SetPrintFont "topaz",8
  1359.         SetPrintStyle SHADOW ,3,3
  1360.         SetPen 2,0
  1361.         SetDrawMode JAM1 
  1362.         PrintText "UN-ARCHIVE FILES",46,18
  1363.         PrintText "DELETE ARC",214,18
  1364.         PrintText "ACTION ALL DECODED FILES",46,37
  1365.         PrintText "MATCHING:",46,52
  1366.         PrintText "DISPLAY CONTENTS",46,72
  1367.         PrintText "& SIZE INFO",214,72
  1368.         PrintText "DECODER:",56,94
  1369.         PrintText "BUFFER:",46,117
  1370.         PrintText "FILES ONLY",214,117
  1371.     EndScript
  1372.     MessageFromSubDeck
  1373.         Let WHICH = ARG2
  1374.         SetText WHICH,textfrom(WHICH)||" "||ARG3
  1375.     EndScript
  1376.     Window "UserWindow"
  1377.         Definition
  1378.             Origin 155,19
  1379.             Size 320,145
  1380.             Title "      \\//ortex UUdecode Options"
  1381.             NumberOfColors 4
  1382.             DefaultColors 0,1,0
  1383.             WindowObjects DRAGBAR 
  1384.             WindowFlags ACTIVATE TOFRONT 
  1385.             VisualEffects NONE ,WAIT 
  1386.         EndScript
  1387.     EndObject
  1388.     TextButton "USE"
  1389.         Definition
  1390.             Origin 6,131
  1391.             Font "topaz",8 ; FontName, PointSize
  1392.             Style SHADOW ,1,3
  1393.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  1394.             Text " USE "
  1395.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  1396.             Highlight COMPLEMENT 
  1397.             ButtonFlags NONE 
  1398.         EndScript
  1399.         OnClick
  1400.             Let CFG = GetDBObjects
  1401.             SendToParentDeck "OPS",CFG
  1402.             Quit
  1403.         EndScript
  1404.     EndObject
  1405.     TextButton "ABORT"
  1406.         Definition
  1407.             Origin 245,131
  1408.             Font "topaz",8 ; FontName, PointSize
  1409.             Style SHADOW ,1,3
  1410.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  1411.             Text " ABORT! "
  1412.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  1413.             Highlight COMPLEMENT 
  1414.             ButtonFlags NONE 
  1415.         EndScript
  1416.         OnClick
  1417.             Quit
  1418.         EndScript
  1419.     EndObject
  1420.     AreaButton ".UNARC"
  1421.         Definition
  1422.             Origin 15,16
  1423.             Size 30,10
  1424.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  1425.             Highlight COMPLEMENT 
  1426.             ButtonFlags BUTTONTOGGLES 
  1427.         EndScript
  1428.         OnClick
  1429.             If Objectstate(".UNARC") = TRUE
  1430.                 SetObjectState (".CONTENTS"),FALSE
  1431.             EndIf
  1432.         EndScript
  1433.     EndObject
  1434.     AreaButton ".DELarc"
  1435.         Definition
  1436.             Origin 184,16
  1437.             Size 30,10
  1438.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  1439.             Highlight COMPLEMENT 
  1440.             ButtonFlags BUTTONTOGGLES 
  1441.         EndScript
  1442.     EndObject
  1443.     AreaButton ".ACT"
  1444.         Definition
  1445.             Origin 15,35
  1446.             Size 30,10
  1447.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  1448.             Highlight COMPLEMENT 
  1449.             ButtonFlags BUTTONTOGGLES 
  1450.         EndScript
  1451.         OnClick
  1452.             If Objectstate(".ACT") = TRUE
  1453.                 SetObjectState (".ACTmatch"),FALSE
  1454.                 SetObjectState (".CONTENTS"),FALSE
  1455.             EndIf
  1456.         EndScript
  1457.     EndObject
  1458.     AreaButton ".ACTmatch"
  1459.         Definition
  1460.             Origin 15,50
  1461.             Size 30,10
  1462.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  1463.             Highlight COMPLEMENT 
  1464.             ButtonFlags BUTTONTOGGLES 
  1465.         EndScript
  1466.         OnRelease
  1467.             If Objectstate(".ACTmatch") = TRUE
  1468.                 SetObjectState ".ACTfield",TRUE
  1469.                 SetObjectState (".ACT"),FALSE
  1470.                 SetObjectState (".CONTENTS"),FALSE
  1471.             EndIf
  1472.         EndScript
  1473.     EndObject
  1474.     AreaButton ".CONTENTS"
  1475.         Definition
  1476.             Origin 15,70
  1477.             Size 30,10
  1478.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  1479.             Highlight COMPLEMENT 
  1480.             ButtonFlags BUTTONTOGGLES 
  1481.         EndScript
  1482.         OnClick
  1483.             If Objectstate(".CONTENTS") = TRUE
  1484.                 SetObjectState (".ACT"),FALSE
  1485.                 SetObjectState (".ACTmatch"),FALSE
  1486.                 SetObjectState (".UNARC"),FALSE
  1487.                 SetObjectState (".DELARC"),FALSE
  1488.             EndIf
  1489.         EndScript
  1490.     EndObject
  1491.     AKey "HELP"
  1492.         Definition
  1493.             QualifiersPressed NONE 
  1494.             KeyPressed HELP 
  1495.         EndScript
  1496.         OnDown
  1497.             Do "HELP","HL",">>UUdecode<<"
  1498.         EndScript
  1499.     EndObject
  1500.     TextField ".DECfield"
  1501.         Definition
  1502.             Origin 151,94
  1503.             Size 42,8
  1504.             Justification LEFT 
  1505.             MaxFieldLength 32
  1506.             InitialText "UUXT"
  1507.             Border NONE ,2,1 ; BorderStyle, MainPen, ExtraPen
  1508.         EndScript
  1509.     EndObject
  1510.     TextField ".ACTfield"
  1511.         Definition
  1512.             Origin 126,52
  1513.             Size 157,8
  1514.             Justification LEFT 
  1515.             MaxFieldLength 256
  1516.             InitialText ""
  1517.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  1518.         EndScript
  1519.     EndObject
  1520.     TextButton "SAVE"
  1521.         Definition
  1522.             Origin 128,131
  1523.             Font "topaz",8 ; FontName, PointSize
  1524.             Style SHADOW ,1,3
  1525.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  1526.             Text " SAVE "
  1527.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  1528.             Highlight COMPLEMENT 
  1529.             ButtonFlags NONE 
  1530.         EndScript
  1531.         OnClick
  1532.             Let CFG = GetDBObjects
  1533.             SendToParentDeck "OPS",CFG,"SAVE"
  1534.             Quit
  1535.         EndScript
  1536.     EndObject
  1537.     AreaButton ".SIZE"
  1538.         Definition
  1539.             Origin 184,70
  1540.             Size 30,10
  1541.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  1542.             Highlight COMPLEMENT 
  1543.             ButtonFlags BUTTONTOGGLES 
  1544.         EndScript
  1545.         OnClick
  1546.             If Objectstate(".CONTENTS") = TRUE
  1547.                 SetObjectState (".ACT"),FALSE
  1548.                 SetObjectState (".ACTmatch"),FALSE
  1549.                 SetObjectState (".UNARC"),FALSE
  1550.                 SetObjectState (".DELARC"),FALSE
  1551.             EndIf
  1552.         EndScript
  1553.     EndObject
  1554.     TextButton "clear"
  1555.         Definition
  1556.             Origin 289,51
  1557.             Font "topaz",8 ; FontName, PointSize
  1558.             Style PLAIN ,2,3
  1559.             TextColors 1,0,JAM1  ; PenA, PenB, DrawMode
  1560.             Text "<|"
  1561.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  1562.             Highlight COMPLEMENT 
  1563.             ButtonFlags NONE 
  1564.         EndScript
  1565.         OnClick
  1566.             SetText ".ACTfield",""
  1567.         EndScript
  1568.     EndObject
  1569.     AreaButton "HELPer"
  1570.         Definition
  1571.             Origin 45,51
  1572.             Size 69,9
  1573.             Border NONE ,2,1 ; BorderStyle, MainPen, ExtraPen
  1574.             Highlight COMPLEMENT 
  1575.             ButtonFlags NONE 
  1576.         EndScript
  1577.         OnRelease
  1578.             Do "HELP","FT",".ACTfield"
  1579.         EndScript
  1580.     EndObject
  1581.     AreaButton ".BUF"
  1582.         Definition
  1583.             Origin 15,115
  1584.             Size 30,10
  1585.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  1586.             Highlight COMPLEMENT 
  1587.             ButtonFlags BUTTONTOGGLES 
  1588.         EndScript
  1589.     EndObject
  1590.     AreaButton ".FILES"
  1591.         Definition
  1592.             Origin 184,115
  1593.             Size 30,10
  1594.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  1595.             Highlight COMPLEMENT 
  1596.             ButtonFlags BUTTONTOGGLES 
  1597.         EndScript
  1598.     EndObject
  1599.     IntegerField ".BUFfield"
  1600.         Definition
  1601.             Origin 107,117
  1602.             Size 34,8
  1603.             Justification LEFT 
  1604.             MaxFieldLength 9
  1605.             Limits 0,999999999
  1606.             InitialInteger 0
  1607.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  1608.         EndScript
  1609.     EndObject
  1610.     TextButton "PREV"
  1611.         Definition
  1612.             Origin 147,115
  1613.             Font "topaz",8 ; FontName, PointSize
  1614.             Style OUTLINE ,1,3
  1615.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  1616.             Text "<"
  1617.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  1618.             Highlight COMPLEMENT 
  1619.             ButtonFlags NONE 
  1620.         EndScript
  1621.         OnClick
  1622.             Do "LESS",".BUFfield","PREV",1,5
  1623.         EndScript
  1624.     EndObject
  1625.     TextButton "NEXT"
  1626.         Definition
  1627.             Origin 163,115
  1628.             Font "topaz",8 ; FontName, PointSize
  1629.             Style OUTLINE ,1,3
  1630.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  1631.             Text ">"
  1632.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  1633.             Highlight COMPLEMENT 
  1634.             ButtonFlags NONE 
  1635.         EndScript
  1636.         OnClick
  1637.             Do "MORE",".BUFfield","NEXT",1,5
  1638.         EndScript
  1639.     EndObject
  1640.     AreaButton "ROLL"
  1641.         Definition
  1642.             Origin 128,91
  1643.             Size 68,13
  1644.             Border ROLLO ,2,1 ; BorderStyle, MainPen, ExtraPen
  1645.             Highlight NONE 
  1646.             ButtonFlags NONE 
  1647.         EndScript
  1648.         OnClick
  1649.             If Textfrom(".DECfield") = "UUXT"
  1650.                 SetText ".DECfield","UUout"
  1651.             Else
  1652.                 SetText ".DECfield","UUXT"
  1653.             EndIf
  1654.         EndScript
  1655.     EndObject
  1656. * End of Card "DECODEops"
  1657. *************
  1658.  
  1659. *************
  1660. * Card "ENCODEops"
  1661.     AfterAttachment
  1662.         SetDBObjects ARG1
  1663.         DrawBorder 7,12,306,32,BEVEL ,2,1
  1664.         DrawBorder 7,44,306,32,BEVEL ,2,1
  1665.         DrawBorder 7,76,306,72,BEVEL ,2,1
  1666.         DrawBorder 7,148,306,23,BEVEL ,2,1
  1667.         SetPrintFont "topaz",8
  1668.         SetPrintStyle SHADOW ,3,3
  1669.         SetPen 2,0
  1670.         SetDrawMode JAM1 
  1671.         PrintText "Encode to ONE",45,18
  1672.         PrintText "Encode to EACH",45,31
  1673.         PrintText "Pre-Arc ALL",45,50
  1674.         PrintText "Pre-Arc EACH",45,63
  1675.         PrintText "With .info",202,63
  1676.         PrintText "Split-MaxBytes:",45,82
  1677.         PrintText "Split-MaxLines:",45,95
  1678.         PrintText "Add # of # ----Cut Here----",45,108
  1679.         PrintText "PAD",45,121
  1680.         PrintText "NO-RNM",111,121
  1681.         PrintText "BUFF",195,121
  1682.         PrintText "1st Line:",45,134
  1683.         PrintText "ARC:",23,156
  1684.         PrintText "ENC:",153,156
  1685.     EndScript
  1686.     MessageFromSubDeck
  1687.         If ARG1 = "LINE"
  1688.             SetText ".Addfield",ARG2
  1689.             ExitScript
  1690.         EndIf
  1691.     EndScript
  1692.     Window "UserWindow"
  1693.         Definition
  1694.             Origin 124,0
  1695.             Size 320,186
  1696.             Title "      \\//ortex UUencode Options"
  1697.             NumberOfColors 4
  1698.             DefaultColors 0,1,0
  1699.             WindowObjects DRAGBAR 
  1700.             WindowFlags ACTIVATE TOFRONT 
  1701.             VisualEffects NONE ,WAIT 
  1702.         EndScript
  1703.     EndObject
  1704.     TextButton "USE"
  1705.         Definition
  1706.             Origin 8,172
  1707.             Font "topaz",8 ; FontName, PointSize
  1708.             Style SHADOW ,1,3
  1709.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  1710.             Text " USE "
  1711.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  1712.             Highlight COMPLEMENT 
  1713.             ButtonFlags NONE 
  1714.         EndScript
  1715.         OnClick
  1716.             Let CFG[1] = GetDBObjects
  1717.             SendToParentDeck "OPS",CFG[1]
  1718.             Quit
  1719.         EndScript
  1720.     EndObject
  1721.     TextButton "ABORT"
  1722.         Definition
  1723.             Origin 243,172
  1724.             Font "topaz",8 ; FontName, PointSize
  1725.             Style SHADOW ,1,3
  1726.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  1727.             Text " ABORT! "
  1728.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  1729.             Highlight COMPLEMENT 
  1730.             ButtonFlags NONE 
  1731.         EndScript
  1732.         OnClick
  1733.             Quit
  1734.         EndScript
  1735.     EndObject
  1736.     AreaButton ".Bytes"
  1737.         Definition
  1738.             Origin 15,80
  1739.             Size 30,10
  1740.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  1741.             Highlight COMPLEMENT 
  1742.             ButtonFlags BUTTONTOGGLES 
  1743.         EndScript
  1744.         OnRelease
  1745.             If Objectstate(".bytes") = TRUE
  1746.                 SetObjectState ".lines",FALSE
  1747.             EndIf
  1748.         EndScript
  1749.     EndObject
  1750.     AreaButton ".Lines"
  1751.         Definition
  1752.             Origin 15,93
  1753.             Size 30,10
  1754.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  1755.             Highlight COMPLEMENT 
  1756.             ButtonFlags BUTTONTOGGLES 
  1757.         EndScript
  1758.         OnRelease
  1759.             If Objectstate(".Lines") = TRUE
  1760.                 SetObjectState ".bytes",FALSE
  1761.             EndIf
  1762.         EndScript
  1763.     EndObject
  1764.     TextField ".ENCfield"
  1765.         Definition
  1766.             Origin 213,156
  1767.             Size 42,8
  1768.             Justification LEFT 
  1769.             MaxFieldLength 256
  1770.             InitialText "UUXT"
  1771.             Border NONE ,2,1 ; BorderStyle, MainPen, ExtraPen
  1772.         EndScript
  1773.     EndObject
  1774.     TextField ".ArcField"
  1775.         Definition
  1776.             Origin 83,156
  1777.             Size 42,8
  1778.             Justification LEFT 
  1779.             MaxFieldLength 256
  1780.             InitialText "LHA"
  1781.             Border NONE ,2,1 ; BorderStyle, MainPen, ExtraPen
  1782.         EndScript
  1783.     EndObject
  1784.     IntegerField ".Bytesfield"
  1785.         Definition
  1786.             Origin 174,82
  1787.             Size 95,8
  1788.             Justification LEFT 
  1789.             MaxFieldLength 10
  1790.             Limits 0,1999999999
  1791.             InitialInteger 0
  1792.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  1793.         EndScript
  1794.     EndObject
  1795.     IntegerField ".Linesfield"
  1796.         Definition
  1797.             Origin 174,95
  1798.             Size 95,8
  1799.             Justification LEFT 
  1800.             MaxFieldLength 10
  1801.             Limits 0,1999999999
  1802.             InitialInteger 0
  1803.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  1804.         EndScript
  1805.     EndObject
  1806.     AreaButton ".Add"
  1807.         Definition
  1808.             Origin 15,132
  1809.             Size 30,10
  1810.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  1811.             Highlight COMPLEMENT 
  1812.             ButtonFlags BUTTONTOGGLES 
  1813.         EndScript
  1814.         OnRelease
  1815.             SetObjectState ".Addfield",TRUE
  1816.         EndScript
  1817.     EndObject
  1818.     TextField ".Addfield"
  1819.         Definition
  1820.             Origin 128,134
  1821.             Size 149,8
  1822.             Justification LEFT 
  1823.             MaxFieldLength 256
  1824.             InitialText ""
  1825.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  1826.         EndScript
  1827.     EndObject
  1828.     AreaButton ".CUT"
  1829.         Definition
  1830.             Origin 15,106
  1831.             Size 30,10
  1832.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  1833.             Highlight COMPLEMENT 
  1834.             ButtonFlags BUTTONTOGGLES 
  1835.         EndScript
  1836.     EndObject
  1837.     AreaButton ".ARCall"
  1838.         Definition
  1839.             Origin 15,48
  1840.             Size 30,10
  1841.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  1842.             Highlight COMPLEMENT 
  1843.             ButtonFlags BUTTONTOGGLES 
  1844.         EndScript
  1845.         OnRelease
  1846.             If Objectstate(".ARCall") = TRUE
  1847.                 SetObjectState (".ARCeach"),FALSE
  1848.                 If Objectstate(".ENCeach") = TRUE
  1849.                     SetObjectState (".ENCall"),TRUE
  1850.                     SetObjectState (".ENCeach"),FALSE
  1851.                 EndIf
  1852.             EndIf
  1853.             SetObjectState (".ARCallField"),TRUE
  1854.         EndScript
  1855.     EndObject
  1856.     AreaButton ".ARCeach"
  1857.         Definition
  1858.             Origin 15,61
  1859.             Size 30,10
  1860.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  1861.             Highlight COMPLEMENT 
  1862.             ButtonFlags BUTTONTOGGLES 
  1863.         EndScript
  1864.         OnRelease
  1865.             If Objectstate(".ARCeach") = TRUE
  1866.                 SetObjectState (".ARCall"),FALSE
  1867.             EndIf
  1868.         EndScript
  1869.     EndObject
  1870.     AreaButton ".ARCInfo"
  1871.         Definition
  1872.             Origin 170,61
  1873.             Size 30,10
  1874.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  1875.             Highlight COMPLEMENT 
  1876.             ButtonFlags BUTTONTOGGLES 
  1877.         EndScript
  1878.         OnRelease
  1879.             Nop
  1880.         EndScript
  1881.     EndObject
  1882.     TextButton "ADDRESS"
  1883.         Definition
  1884.             Origin 283,132
  1885.             Font "topaz",8 ; FontName, PointSize
  1886.             Style OUTLINE ,1,3
  1887.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  1888.             Text "<?"
  1889.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  1890.             Highlight COMPLEMENT 
  1891.             ButtonFlags NONE 
  1892.         EndScript
  1893.         OnClick
  1894.             LoadSubDeck "DTP:EZ-UU/FREQ.sub","FREQ"
  1895.             OpenRequester "FREQ","LIST"
  1896.         EndScript
  1897.     EndObject
  1898.     TextButton "SAVE"
  1899.         Definition
  1900.             Origin 125,172
  1901.             Font "topaz",8 ; FontName, PointSize
  1902.             Style SHADOW ,1,3
  1903.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  1904.             Text " SAVE "
  1905.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  1906.             Highlight COMPLEMENT 
  1907.             ButtonFlags NONE 
  1908.         EndScript
  1909.         OnClick
  1910.             Let CFG[1] = GetDBObjects
  1911.             SendToParentDeck "OPS",CFG[1],"SAVE"
  1912.             Quit
  1913.         EndScript
  1914.     EndObject
  1915.     AreaButton ".ENCall"
  1916.         Definition
  1917.             Origin 15,16
  1918.             Size 30,10
  1919.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  1920.             Highlight COMPLEMENT 
  1921.             ButtonFlags BUTTONTOGGLES 
  1922.         EndScript
  1923.         OnRelease
  1924.             If Objectstate(".ENCall") = TRUE
  1925.                 SetObjectState ".ENCeach",FALSE
  1926.             ElseIf Objectstate(".ENCall") = FALSE
  1927.                 SetObjectState (".ENCall"),TRUE
  1928.             EndIf
  1929.             SetObjectState (".ENCallField"),TRUE
  1930.         EndScript
  1931.     EndObject
  1932.     TextField ".ENCallField"
  1933.         Definition
  1934.             Origin 174,18
  1935.             Size 125,8
  1936.             Justification LEFT 
  1937.             MaxFieldLength 256
  1938.             InitialText ""
  1939.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  1940.         EndScript
  1941.     EndObject
  1942.     TextField ".ARCallField"
  1943.         Definition
  1944.             Origin 174,50
  1945.             Size 125,8
  1946.             Justification LEFT 
  1947.             MaxFieldLength 256
  1948.             InitialText ""
  1949.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  1950.         EndScript
  1951.     EndObject
  1952.     AreaButton ".ENCeach"
  1953.         Definition
  1954.             Origin 15,29
  1955.             Size 30,10
  1956.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  1957.             Highlight COMPLEMENT 
  1958.             ButtonFlags BUTTONTOGGLES 
  1959.         EndScript
  1960.         OnRelease
  1961.             If Objectstate(".ENCeach") = TRUE
  1962.                 SetObjectState ".ENCall",FALSE
  1963.                 If Objectstate(".ARCall") = TRUE
  1964.                     SetObjectState (".ARCeach"),TRUE
  1965.                     SetObjectState (".ARCall"),FALSE
  1966.                 EndIf
  1967.             ElseIf Objectstate(".ENCeach") = FALSE
  1968.                 SetObjectState (".ENCeach"),TRUE
  1969.             EndIf
  1970.         EndScript
  1971.     EndObject
  1972.     AKey "HELP"
  1973.         Definition
  1974.             QualifiersPressed NONE 
  1975.             KeyPressed HELP 
  1976.         EndScript
  1977.         OnDown
  1978.             Do "HELP","HL",">>UUencode<<"
  1979.         EndScript
  1980.     EndObject
  1981.     AreaButton ".PAD"
  1982.         Definition
  1983.             Origin 15,119
  1984.             Size 30,10
  1985.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  1986.             Highlight COMPLEMENT 
  1987.             ButtonFlags BUTTONTOGGLES 
  1988.         EndScript
  1989.     EndObject
  1990.     TextButton "PREV1"
  1991.         Definition
  1992.             Origin 275,80
  1993.             Font "topaz",8 ; FontName, PointSize
  1994.             Style OUTLINE ,1,3
  1995.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  1996.             Text "<"
  1997.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  1998.             Highlight COMPLEMENT 
  1999.             ButtonFlags NONE 
  2000.         EndScript
  2001.         OnClick
  2002.             Do "LESS",".Bytesfield","PREV1",1,10
  2003.         EndScript
  2004.     EndObject
  2005.     TextButton "NEXT1"
  2006.         Definition
  2007.             Origin 289,80
  2008.             Font "topaz",8 ; FontName, PointSize
  2009.             Style OUTLINE ,1,3
  2010.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  2011.             Text ">"
  2012.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2013.             Highlight COMPLEMENT 
  2014.             ButtonFlags NONE 
  2015.         EndScript
  2016.         OnClick
  2017.             Do "MORE",".Bytesfield","NEXT1",1,10
  2018.         EndScript
  2019.     EndObject
  2020.     TextButton "PREV2"
  2021.         Definition
  2022.             Origin 275,93
  2023.             Font "topaz",8 ; FontName, PointSize
  2024.             Style OUTLINE ,1,3
  2025.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  2026.             Text "<"
  2027.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2028.             Highlight COMPLEMENT 
  2029.             ButtonFlags NONE 
  2030.         EndScript
  2031.         OnClick
  2032.             Do "LESS",".Linesfield","PREV2",1,5
  2033.         EndScript
  2034.     EndObject
  2035.     TextButton "NEXT2"
  2036.         Definition
  2037.             Origin 289,93
  2038.             Font "topaz",8 ; FontName, PointSize
  2039.             Style OUTLINE ,1,3
  2040.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  2041.             Text ">"
  2042.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2043.             Highlight COMPLEMENT 
  2044.             ButtonFlags NONE 
  2045.         EndScript
  2046.         OnClick
  2047.             Do "MORE",".Linesfield","NEXT2",1,5
  2048.         EndScript
  2049.     EndObject
  2050.     AreaButton ".RNM"
  2051.         Definition
  2052.             Origin 80,119
  2053.             Size 30,10
  2054.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  2055.             Highlight COMPLEMENT 
  2056.             ButtonFlags BUTTONTOGGLES 
  2057.         EndScript
  2058.     EndObject
  2059.     AreaButton ".BUF"
  2060.         Definition
  2061.             Origin 164,119
  2062.             Size 30,10
  2063.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  2064.             Highlight COMPLEMENT 
  2065.             ButtonFlags BUTTONTOGGLES 
  2066.         EndScript
  2067.     EndObject
  2068.     IntegerField ".BUFfield"
  2069.         Definition
  2070.             Origin 235,120
  2071.             Size 34,8
  2072.             Justification LEFT 
  2073.             MaxFieldLength 9
  2074.             Limits 0,999999999
  2075.             InitialInteger 32
  2076.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2077.         EndScript
  2078.     EndObject
  2079.     TextButton "PREV3"
  2080.         Definition
  2081.             Origin 275,118
  2082.             Font "topaz",8 ; FontName, PointSize
  2083.             Style OUTLINE ,1,3
  2084.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  2085.             Text "<"
  2086.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2087.             Highlight COMPLEMENT 
  2088.             ButtonFlags NONE 
  2089.         EndScript
  2090.         OnClick
  2091.             Do "LESS",".BUFfield","PREV3",1,5
  2092.         EndScript
  2093.     EndObject
  2094.     TextButton "NEXT3"
  2095.         Definition
  2096.             Origin 290,118
  2097.             Font "topaz",8 ; FontName, PointSize
  2098.             Style OUTLINE ,1,3
  2099.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  2100.             Text ">"
  2101.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2102.             Highlight COMPLEMENT 
  2103.             ButtonFlags NONE 
  2104.         EndScript
  2105.         OnClick
  2106.             Do "MORE",".BUFfield","NEXT3",1,5
  2107.         EndScript
  2108.     EndObject
  2109.     AreaButton "ROLL1"
  2110.         Definition
  2111.             Origin 60,153
  2112.             Size 68,13
  2113.             Border ROLLO ,2,1 ; BorderStyle, MainPen, ExtraPen
  2114.             Highlight NONE 
  2115.             ButtonFlags NONE 
  2116.         EndScript
  2117.         OnClick
  2118.             If Textfrom(".ARCfield") = "LHA"
  2119.                 SetText ".ARCfield","ZIP"
  2120.                 ExitScript
  2121.             ElseIf TEXTfrom(".ARCfield") = "ZIP"
  2122.                 SetText ".ARCfield","LZX"
  2123.                 ExitScript
  2124.             ElseIf TEXTfrom(".ARCfield") = "LZX"
  2125.                 SetText ".ARCfield","LHA"
  2126.                 ExitScript
  2127.             EndIf
  2128.         EndScript
  2129.     EndObject
  2130.     AreaButton "ROLL2"
  2131.         Definition
  2132.             Origin 190,153
  2133.             Size 68,13
  2134.             Border ROLLO ,2,1 ; BorderStyle, MainPen, ExtraPen
  2135.             Highlight NONE 
  2136.             ButtonFlags NONE 
  2137.         EndScript
  2138.         OnClick
  2139.             If Textfrom(".ENCfield") = "UUXT"
  2140.                 SetText ".ENCfield","UUIN"
  2141.             Else
  2142.                 SetText ".ENCfield","UUXT"
  2143.             EndIf
  2144.         EndScript
  2145.     EndObject
  2146. * End of Card "ENCODEops"
  2147. *************
  2148.  
  2149. *************
  2150. * Card "INST"
  2151.     NoAttach
  2152.     MessageFromSubDeck
  2153.         If ARG1 = "LINE"
  2154.             SetText "LINE",ARG2
  2155.             ExitScript
  2156.         EndIf
  2157.         Let WHICH = ARG2
  2158.         SetText WHICH,textfrom(WHICH)||" "||ARG3
  2159.     EndScript
  2160.     AfterAttachment
  2161.         Let CFG = ARG1
  2162.         SetDBObjects CFG
  2163.         DrawBorder 6,12,353,125,BEVEL ,2,1
  2164.     EndScript
  2165.     Window "UserWindow"
  2166.         Definition
  2167.             Origin 124,38
  2168.             Size 365,152
  2169.             Title "     \\//ortex ||nstant //\\ctions"
  2170.             NumberOfColors 4
  2171.             DefaultColors 0,1,0
  2172.             WindowObjects CLOSEBUTTON DRAGBAR 
  2173.             WindowFlags ACTIVATE TOFRONT 
  2174.             VisualEffects NONE ,WAIT 
  2175.         EndScript
  2176.         OnCloseButton
  2177.             Quit
  2178.         EndScript
  2179.     EndObject
  2180.     TextButton "COPY"
  2181.         Definition
  2182.             Origin 13,16
  2183.             Font "topaz",8 ; FontName, PointSize
  2184.             Style SHADOW ,0,1
  2185.             TextColors 1,0,JAM1  ; PenA, PenB, DrawMode
  2186.             Text "    COPY    "
  2187.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2188.             Highlight COMPLEMENT 
  2189.             ButtonFlags NONE 
  2190.         EndScript
  2191.         OnClick
  2192.             SendToParentDeck "INSTANT","COPY",Objectstate(".COPY2"),textfrom(".MATCH1")
  2193.         EndScript
  2194.     EndObject
  2195.     AreaButton ".COPY2"
  2196.         Definition
  2197.             Origin 119,16
  2198.             Size 29,11
  2199.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  2200.             Highlight COMPLEMENT 
  2201.             ButtonFlags BUTTONTOGGLES 
  2202.         EndScript
  2203.         OnRelease
  2204.             SetObjectState ".MATCH1",TRUE
  2205.         EndScript
  2206.     EndObject
  2207.     TextButton "MOVE"
  2208.         Definition
  2209.             Origin 13,29
  2210.             Font "topaz",8 ; FontName, PointSize
  2211.             Style SHADOW ,0,3
  2212.             TextColors 1,0,JAM1  ; PenA, PenB, DrawMode
  2213.             Text "    MOVE    "
  2214.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2215.             Highlight COMPLEMENT 
  2216.             ButtonFlags NONE 
  2217.         EndScript
  2218.         OnClick
  2219.             SendToParentDeck "INSTANT","MOVE",Objectstate(".MOVE2"),textfrom(".MATCH2")
  2220.         EndScript
  2221.     EndObject
  2222.     AreaButton ".MOVE2"
  2223.         Definition
  2224.             Origin 119,29
  2225.             Size 29,11
  2226.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  2227.             Highlight COMPLEMENT 
  2228.             ButtonFlags BUTTONTOGGLES 
  2229.         EndScript
  2230.         OnRelease
  2231.             SetObjectState ".MATCH2",TRUE
  2232.         EndScript
  2233.     EndObject
  2234.     TextField ".MATCH1"
  2235.         Definition
  2236.             Origin 155,18
  2237.             Size 175,8
  2238.             Justification LEFT 
  2239.             MaxFieldLength 256
  2240.             InitialText ""
  2241.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2242.         EndScript
  2243.     EndObject
  2244.     TextField ".MATCH2"
  2245.         Definition
  2246.             Origin 155,31
  2247.             Size 175,8
  2248.             Justification LEFT 
  2249.             MaxFieldLength 256
  2250.             InitialText ""
  2251.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2252.         EndScript
  2253.     EndObject
  2254.     TextButton "DELETE"
  2255.         Definition
  2256.             Origin 13,42
  2257.             Font "topaz",8 ; FontName, PointSize
  2258.             Style SHADOW ,0,3
  2259.             TextColors 1,0,JAM1  ; PenA, PenB, DrawMode
  2260.             Text "   DELETE   "
  2261.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2262.             Highlight COMPLEMENT 
  2263.             ButtonFlags NONE 
  2264.         EndScript
  2265.         OnClick
  2266.             SendToParentDeck "INSTANT","DELETE",objectstate(".DELETE2"),textfrom(".MATCH3")
  2267.         EndScript
  2268.     EndObject
  2269.     AreaButton ".DELETE2"
  2270.         Definition
  2271.             Origin 119,42
  2272.             Size 31,10
  2273.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  2274.             Highlight COMPLEMENT 
  2275.             ButtonFlags BUTTONTOGGLES 
  2276.         EndScript
  2277.         OnRelease
  2278.             SetObjectState ".MATCH3",TRUE
  2279.         EndScript
  2280.     EndObject
  2281.     TextButton "LHA"
  2282.         Definition
  2283.             Origin 13,55
  2284.             Font "topaz",8 ; FontName, PointSize
  2285.             Style SHADOW ,0,3
  2286.             TextColors 1,0,JAM1  ; PenA, PenB, DrawMode
  2287.             Text " LHA > EACH "
  2288.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2289.             Highlight COMPLEMENT 
  2290.             ButtonFlags NONE 
  2291.         EndScript
  2292.         OnClick
  2293.             SendToParentDeck "INSTANT","LHAeach",Objectstate(".LHA2"),textfrom(".MATCH4")
  2294.         EndScript
  2295.     EndObject
  2296.     AreaButton ".LHA2"
  2297.         Definition
  2298.             Origin 119,55
  2299.             Size 30,11
  2300.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  2301.             Highlight COMPLEMENT 
  2302.             ButtonFlags BUTTONTOGGLES 
  2303.         EndScript
  2304.         OnRelease
  2305.             SetObjectState ".MATCH4",TRUE
  2306.         EndScript
  2307.     EndObject
  2308.     TextButton "ZIP"
  2309.         Definition
  2310.             Origin 13,68
  2311.             Font "topaz",8 ; FontName, PointSize
  2312.             Style SHADOW ,0,3
  2313.             TextColors 1,0,JAM1  ; PenA, PenB, DrawMode
  2314.             Text " ZIP > EACH "
  2315.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2316.             Highlight COMPLEMENT 
  2317.             ButtonFlags NONE 
  2318.         EndScript
  2319.         OnClick
  2320.             SendToParentDeck "INSTANT","ZIPeach",objectstate(".ZIP2"),textfrom(".MATCH5")
  2321.         EndScript
  2322.     EndObject
  2323.     AreaButton ".ZIP2"
  2324.         Definition
  2325.             Origin 119,68
  2326.             Size 30,11
  2327.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  2328.             Highlight COMPLEMENT 
  2329.             ButtonFlags BUTTONTOGGLES 
  2330.         EndScript
  2331.         OnRelease
  2332.             SetObjectState ".MATCH5",TRUE
  2333.         EndScript
  2334.     EndObject
  2335.     TextButton "LHAx"
  2336.         Definition
  2337.             Origin 13,81
  2338.             Font "topaz",8 ; FontName, PointSize
  2339.             Style SHADOW ,0,3
  2340.             TextColors 1,0,JAM1  ; PenA, PenB, DrawMode
  2341.             Text " LHA EXTRACT "
  2342.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2343.             Highlight COMPLEMENT 
  2344.             ButtonFlags NONE 
  2345.         EndScript
  2346.         OnClick
  2347.             SendToParentDeck "INSTANT","LHAx"
  2348.         EndScript
  2349.     EndObject
  2350.     TextButton "ZIPx"
  2351.         Definition
  2352.             Origin 127,81
  2353.             Font "topaz",8 ; FontName, PointSize
  2354.             Style SHADOW ,0,3
  2355.             TextColors 1,0,JAM1  ; PenA, PenB, DrawMode
  2356.             Text " ZIP EXTRACT "
  2357.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2358.             Highlight COMPLEMENT 
  2359.             ButtonFlags NONE 
  2360.         EndScript
  2361.         OnClick
  2362.             SendToParentDeck "INSTANT","ZIPx"
  2363.         EndScript
  2364.     EndObject
  2365.     TextButton "LZXx"
  2366.         Definition
  2367.             Origin 241,81
  2368.             Font "topaz",8 ; FontName, PointSize
  2369.             Style SHADOW ,0,3
  2370.             TextColors 1,0,JAM1  ; PenA, PenB, DrawMode
  2371.             Text " LZX EXTRACT "
  2372.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2373.             Highlight COMPLEMENT 
  2374.             ButtonFlags NONE 
  2375.         EndScript
  2376.         OnClick
  2377.             SendToParentDeck "INSTANT","LZXx"
  2378.         EndScript
  2379.     EndObject
  2380.     TextButton "ADDLINE"
  2381.         Definition
  2382.             Origin 13,120
  2383.             Font "topaz",8 ; FontName, PointSize
  2384.             Style SHADOW ,0,3
  2385.             TextColors 1,0,JAM1  ; PenA, PenB, DrawMode
  2386.             Text " ADD 1st LINE "
  2387.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2388.             Highlight COMPLEMENT 
  2389.             ButtonFlags NONE 
  2390.         EndScript
  2391.         OnClick
  2392.             SendToParentDeck "INSTANT","ADDLINE",textfrom(".LINE")
  2393.         EndScript
  2394.     EndObject
  2395.     TextField ".MATCH3"
  2396.         Definition
  2397.             Origin 155,44
  2398.             Size 175,8
  2399.             Justification LEFT 
  2400.             MaxFieldLength 256
  2401.             InitialText ""
  2402.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2403.         EndScript
  2404.     EndObject
  2405.     TextField ".MATCH4"
  2406.         Definition
  2407.             Origin 155,57
  2408.             Size 175,8
  2409.             Justification LEFT 
  2410.             MaxFieldLength 256
  2411.             InitialText ""
  2412.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2413.         EndScript
  2414.     EndObject
  2415.     TextField ".MATCH5"
  2416.         Definition
  2417.             Origin 155,70
  2418.             Size 175,8
  2419.             Justification LEFT 
  2420.             MaxFieldLength 256
  2421.             InitialText ""
  2422.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2423.         EndScript
  2424.     EndObject
  2425.     TextField ".MATCH6"
  2426.         Definition
  2427.             Origin 255,96
  2428.             Size 75,8
  2429.             Justification LEFT 
  2430.             MaxFieldLength 256
  2431.             InitialText ""
  2432.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2433.         EndScript
  2434.     EndObject
  2435.     TextField ".LINE"
  2436.         Definition
  2437.             Origin 137,122
  2438.             Size 193,8
  2439.             Justification LEFT 
  2440.             MaxFieldLength 256
  2441.             InitialText ""
  2442.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2443.         EndScript
  2444.     EndObject
  2445.     TextButton "LHAone"
  2446.         Definition
  2447.             Origin 13,94
  2448.             Font "topaz",8 ; FontName, PointSize
  2449.             Style SHADOW ,0,3
  2450.             TextColors 1,0,JAM1  ; PenA, PenB, DrawMode
  2451.             Text " LHA > ONE "
  2452.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2453.             Highlight COMPLEMENT 
  2454.             ButtonFlags NONE 
  2455.         EndScript
  2456.         OnClick
  2457.             SendToParentDeck "INSTANT","LHAone",objectstate(".LHAone2"),textfrom(".LHAfield"),textfrom(".MATCH6")
  2458.         EndScript
  2459.     EndObject
  2460.     TextField ".LHAfield"
  2461.         Definition
  2462.             Origin 114,96
  2463.             Size 100,8
  2464.             Justification LEFT 
  2465.             MaxFieldLength 256
  2466.             InitialText ""
  2467.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2468.         EndScript
  2469.     EndObject
  2470.     TextField ".ZIPfield"
  2471.         Definition
  2472.             Origin 114,109
  2473.             Size 100,8
  2474.             Justification LEFT 
  2475.             MaxFieldLength 256
  2476.             InitialText ""
  2477.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2478.         EndScript
  2479.     EndObject
  2480.     TextButton "ZIPone"
  2481.         Definition
  2482.             Origin 13,107
  2483.             Font "topaz",8 ; FontName, PointSize
  2484.             Style SHADOW ,0,3
  2485.             TextColors 1,0,JAM1  ; PenA, PenB, DrawMode
  2486.             Text " ZIP > ONE "
  2487.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2488.             Highlight COMPLEMENT 
  2489.             ButtonFlags NONE 
  2490.         EndScript
  2491.         OnClick
  2492.             SendToParentDeck "INSTANT","ZIPone",objectstate(".ZIPone2"),textfrom(".ZIPfield"),textfrom(".MATCH7")
  2493.         EndScript
  2494.     EndObject
  2495.     AreaButton ".LHAone2"
  2496.         Definition
  2497.             Origin 221,94
  2498.             Size 30,11
  2499.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  2500.             Highlight COMPLEMENT 
  2501.             ButtonFlags BUTTONTOGGLES 
  2502.         EndScript
  2503.         OnRelease
  2504.             SetObjectState ".MATCH6",TRUE
  2505.         EndScript
  2506.     EndObject
  2507.     AreaButton ".ZIPone2"
  2508.         Definition
  2509.             Origin 221,107
  2510.             Size 30,11
  2511.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  2512.             Highlight COMPLEMENT 
  2513.             ButtonFlags BUTTONTOGGLES 
  2514.         EndScript
  2515.         OnRelease
  2516.             SetObjectState ".MATCH7",TRUE
  2517.         EndScript
  2518.     EndObject
  2519.     TextButton "GET1"
  2520.         Definition
  2521.             Origin 338,16
  2522.             Font "topaz",8 ; FontName, PointSize
  2523.             Style OUTLINE ,1,3
  2524.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  2525.             Text "?"
  2526.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2527.             Highlight COMPLEMENT 
  2528.             ButtonFlags NONE 
  2529.         EndScript
  2530.         OnClick
  2531.             Do "HELP","FT",".MATCH1"
  2532.         EndScript
  2533.     EndObject
  2534.     TextButton "GET2"
  2535.         Definition
  2536.             Origin 338,29
  2537.             Font "topaz",8 ; FontName, PointSize
  2538.             Style OUTLINE ,1,3
  2539.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  2540.             Text "?"
  2541.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2542.             Highlight COMPLEMENT 
  2543.             ButtonFlags NONE 
  2544.         EndScript
  2545.         OnClick
  2546.             Do "HELP","FT",".MATCH2"
  2547.         EndScript
  2548.     EndObject
  2549.     TextButton "GET3"
  2550.         Definition
  2551.             Origin 338,42
  2552.             Font "topaz",8 ; FontName, PointSize
  2553.             Style OUTLINE ,1,3
  2554.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  2555.             Text "?"
  2556.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2557.             Highlight COMPLEMENT 
  2558.             ButtonFlags NONE 
  2559.         EndScript
  2560.         OnClick
  2561.             Do "HELP","FT",".MATCH3"
  2562.         EndScript
  2563.     EndObject
  2564.     TextButton "GET4"
  2565.         Definition
  2566.             Origin 338,55
  2567.             Font "topaz",8 ; FontName, PointSize
  2568.             Style OUTLINE ,1,3
  2569.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  2570.             Text "?"
  2571.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2572.             Highlight COMPLEMENT 
  2573.             ButtonFlags NONE 
  2574.         EndScript
  2575.         OnClick
  2576.             Do "HELP","FT",".MATCH4"
  2577.         EndScript
  2578.     EndObject
  2579.     TextButton "GET5"
  2580.         Definition
  2581.             Origin 338,68
  2582.             Font "topaz",8 ; FontName, PointSize
  2583.             Style OUTLINE ,1,3
  2584.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  2585.             Text "?"
  2586.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2587.             Highlight COMPLEMENT 
  2588.             ButtonFlags NONE 
  2589.         EndScript
  2590.         OnClick
  2591.             Do "HELP","FT",".MATCH5"
  2592.         EndScript
  2593.     EndObject
  2594.     TextButton "GET6"
  2595.         Definition
  2596.             Origin 338,120
  2597.             Font "topaz",8 ; FontName, PointSize
  2598.             Style OUTLINE ,1,3
  2599.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  2600.             Text "?"
  2601.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2602.             Highlight COMPLEMENT 
  2603.             ButtonFlags NONE 
  2604.         EndScript
  2605.         OnClick
  2606.             LoadSubDeck "DTP:EZ-UU/FREQ.sub","FREQ"
  2607.             OpenRequester "FREQ","LIST"
  2608.         EndScript
  2609.     EndObject
  2610.     TextButton "GET7"
  2611.         Definition
  2612.             Origin 338,94
  2613.             Font "topaz",8 ; FontName, PointSize
  2614.             Style OUTLINE ,1,3
  2615.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  2616.             Text "?"
  2617.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2618.             Highlight COMPLEMENT 
  2619.             ButtonFlags NONE 
  2620.         EndScript
  2621.         OnClick
  2622.             Do "HELP","FT",".MATCH6"
  2623.         EndScript
  2624.     EndObject
  2625.     TextButton "GET8"
  2626.         Definition
  2627.             Origin 338,107
  2628.             Font "topaz",8 ; FontName, PointSize
  2629.             Style OUTLINE ,1,3
  2630.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  2631.             Text "?"
  2632.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2633.             Highlight COMPLEMENT 
  2634.             ButtonFlags NONE 
  2635.         EndScript
  2636.         OnClick
  2637.             Do "HELP","FT",".MATCH7"
  2638.         EndScript
  2639.     EndObject
  2640.     TextField ".MATCH7"
  2641.         Definition
  2642.             Origin 255,109
  2643.             Size 75,8
  2644.             Justification LEFT 
  2645.             MaxFieldLength 256
  2646.             InitialText ""
  2647.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2648.         EndScript
  2649.     EndObject
  2650.     TextButton "USE"
  2651.         Definition
  2652.             Origin 7,138
  2653.             Font "topaz",8 ; FontName, PointSize
  2654.             Style SHADOW ,1,3
  2655.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  2656.             Text " USE "
  2657.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2658.             Highlight COMPLEMENT 
  2659.             ButtonFlags NONE 
  2660.         EndScript
  2661.         OnClick
  2662.             Let CFG = GetDBObjects
  2663.             SendToParentDeck "IACT",CFG
  2664.             Quit
  2665.         EndScript
  2666.     EndObject
  2667.     TextButton "SAVE"
  2668.         Definition
  2669.             Origin 156,138
  2670.             Font "topaz",8 ; FontName, PointSize
  2671.             Style SHADOW ,1,3
  2672.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  2673.             Text " SAVE "
  2674.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2675.             Highlight COMPLEMENT 
  2676.             ButtonFlags NONE 
  2677.         EndScript
  2678.         OnClick
  2679.             Let CFG = GetDBObjects
  2680.             SendToParentDeck "IACT",CFG,"SAVE"
  2681.             Quit
  2682.         EndScript
  2683.     EndObject
  2684.     TextButton "ABORT"
  2685.         Definition
  2686.             Origin 297,138
  2687.             Font "topaz",8 ; FontName, PointSize
  2688.             Style SHADOW ,1,3
  2689.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  2690.             Text " ABORT "
  2691.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2692.             Highlight COMPLEMENT 
  2693.             ButtonFlags NONE 
  2694.         EndScript
  2695.         OnClick
  2696.             Quit
  2697.         EndScript
  2698.     EndObject
  2699.     AKey "HELP"
  2700.         Definition
  2701.             QualifiersPressed NONE 
  2702.             KeyPressed HELP 
  2703.         EndScript
  2704.         OnDown
  2705.             Do "HELP","HL",">>INSTANT_ACTIONS<<"
  2706.         EndScript
  2707.     EndObject
  2708. * End of Card "INST"
  2709. *************
  2710.  
  2711. *************
  2712. * Card "JOIN"
  2713.     NoAttach
  2714.     AfterAttachment
  2715.         SetDBObjects ARG1
  2716.         DrawBorder 6,12,308,21,BEVEL ,2,1
  2717.         DrawBorder 6,33,308,21,BEVEL ,2,1
  2718.         DrawBorder 6,54,308,21,BEVEL ,2,1
  2719.         SetPrintFont "topaz",8
  2720.         SetPrintStyle SHADOW ,3,3
  2721.         SetPen 2,0
  2722.         SetDrawMode JAM1 
  2723.         PrintText "JOIN ALL TO ONE",47,19
  2724.         PrintText "REBUILD SPLITS TO DEST",47,40
  2725.         PrintText "REBUILD SPLITS TO OWN DIR",47,61
  2726.     EndScript
  2727.     Window "UserWindow"
  2728.         Definition
  2729.             Origin 140,38
  2730.             Size 320,90
  2731.             Title "       \\//ortex Join Options"
  2732.             NumberOfColors 4
  2733.             DefaultColors 0,1,0
  2734.             WindowObjects DRAGBAR 
  2735.             WindowFlags ACTIVATE TOFRONT 
  2736.             VisualEffects NONE ,WAIT 
  2737.         EndScript
  2738.     EndObject
  2739.     AreaButton ".JOIN"
  2740.         Definition
  2741.             Origin 15,17
  2742.             Size 30,10
  2743.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  2744.             Highlight COMPLEMENT 
  2745.             ButtonFlags BUTTONTOGGLES 
  2746.         EndScript
  2747.         OnRelease
  2748.             If Objectstate(".JOIN") = TRUE
  2749.                 SetObjectState ".RebuildDEST",FALSE
  2750.                 SetObjectState ".RebuildOwn",FALSE
  2751.                 SetObjectState ".JOINField",TRUE
  2752.             ElseIf Objectstate(".JOIN") = FALSE
  2753.                 SetObjectState ".JOIN",TRUE
  2754.             EndIf
  2755.         EndScript
  2756.     EndObject
  2757.     AreaButton ".RebuildDest"
  2758.         Definition
  2759.             Origin 15,38
  2760.             Size 30,10
  2761.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  2762.             Highlight COMPLEMENT 
  2763.             ButtonFlags BUTTONTOGGLES 
  2764.         EndScript
  2765.         OnRelease
  2766.             If Objectstate(".RebuildDest") = TRUE
  2767.                 SetObjectState ".Join",FALSE
  2768.                 SetObjectState ".RebuildOwn",FALSE
  2769.             ElseIf Objectstate(".RebuildDest") = FALSE
  2770.                 SetObjectState ".RebuildDest",TRUE
  2771.             EndIf
  2772.         EndScript
  2773.     EndObject
  2774.     AreaButton ".RebuildOwn"
  2775.         Definition
  2776.             Origin 15,59
  2777.             Size 30,10
  2778.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  2779.             Highlight COMPLEMENT 
  2780.             ButtonFlags BUTTONTOGGLES 
  2781.         EndScript
  2782.         OnRelease
  2783.             If Objectstate(".RebuildOwn") = TRUE
  2784.                 SetObjectState ".RebuildDEST",FALSE
  2785.                 SetObjectState ".Join",FALSE
  2786.             ElseIf Objectstate(".RebuildOwn") = FALSE
  2787.                 SetObjectState ".RebuildOwn",TRUE
  2788.             EndIf
  2789.         EndScript
  2790.     EndObject
  2791.     TextField ".JOINField"
  2792.         Definition
  2793.             Origin 184,18
  2794.             Size 120,8
  2795.             Justification LEFT 
  2796.             MaxFieldLength 256
  2797.             InitialText ""
  2798.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2799.         EndScript
  2800.     EndObject
  2801.     TextButton "USE"
  2802.         Definition
  2803.             Origin 7,76
  2804.             Font "topaz",8 ; FontName, PointSize
  2805.             Style SHADOW ,1,3
  2806.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  2807.             Text " USE "
  2808.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2809.             Highlight COMPLEMENT 
  2810.             ButtonFlags NONE 
  2811.         EndScript
  2812.         OnClick
  2813.             Let CFG[7] = GetDBObjects
  2814.             SendToParentDeck "OPS",CFG[7]
  2815.             Quit
  2816.         EndScript
  2817.     EndObject
  2818.     TextButton "SAVE"
  2819.         Definition
  2820.             Origin 125,76
  2821.             Font "topaz",8 ; FontName, PointSize
  2822.             Style SHADOW ,1,3
  2823.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  2824.             Text " SAVE "
  2825.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2826.             Highlight COMPLEMENT 
  2827.             ButtonFlags NONE 
  2828.         EndScript
  2829.         OnRelease
  2830.             Let CFG[7] = GetDBObjects
  2831.             SendToParentDeck "OPS",CFG[7],"SAVE"
  2832.             Quit
  2833.         EndScript
  2834.     EndObject
  2835.     TextButton "ABORT"
  2836.         Definition
  2837.             Origin 252,76
  2838.             Font "topaz",8 ; FontName, PointSize
  2839.             Style SHADOW ,1,3
  2840.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  2841.             Text " ABORT "
  2842.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2843.             Highlight COMPLEMENT 
  2844.             ButtonFlags NONE 
  2845.         EndScript
  2846.         OnClick
  2847.             Quit
  2848.         EndScript
  2849.     EndObject
  2850.     AKey "HELP"
  2851.         Definition
  2852.             QualifiersPressed NONE 
  2853.             KeyPressed HELP 
  2854.         EndScript
  2855.         OnDown
  2856.             Do "HELP","HL",">>JOIN<<"
  2857.         EndScript
  2858.     EndObject
  2859. * End of Card "JOIN"
  2860. *************
  2861.  
  2862. *************
  2863. * Card "SPLITops"
  2864.     NoAttach
  2865.     AfterAttachment
  2866.         SetDBObjects ARG1
  2867.         DrawBorder 7,12,306,33,BEVEL ,2,1
  2868.         DrawBorder 7,45,306,48,BEVEL ,2,1
  2869.         DrawBorder 7,93,306,48,BEVEL ,2,1
  2870.         DrawBorder 7,141,306,44,BEVEL ,2,1
  2871.         SetPrintFont "topaz",8
  2872.         SetPrintStyle SHADOW ,3,3
  2873.         SetPen 2,0
  2874.         SetDrawMode JAM1 
  2875.         PrintText "NUMBER of Splits:",45,17
  2876.         PrintText "Bytes per Split:",45,32
  2877.         PrintText "Number Of Bytes:",45,50
  2878.         PrintText "Starting Offset:",45,65
  2879.         PrintText "Save REST:",45,80
  2880.         PrintText "FLOPPY:",45,98
  2881.         PrintText "Auto-Create FLog",45,113
  2882.         PrintText "Auto-Relabel disks",45,128
  2883.         PrintText "ASCII Max-Lines:",45,146
  2884.         PrintText "ASCII Max-Bytes:",45,159
  2885.         PrintText "1st Line:",46,172
  2886.     EndScript
  2887.     MessageFromSubDeck
  2888.         If ARG1 = "LINE"
  2889.             SetText ".TXTFirstfield",ARG2
  2890.             ExitScript
  2891.         EndIf
  2892.         Let ONE = ARG1
  2893.         Let TWO = ARG2
  2894.         Let THREE = ARG3
  2895.         Let FOUR = ARG4
  2896.         Let FIVE = ARG5
  2897.         Do "SUBreq",ONE,TWO,THREE,FOUR,FIVE
  2898.     EndScript
  2899.     Window "UserWindow"
  2900.         Definition
  2901.             Origin 150,0
  2902.             Size 320,200
  2903.             Title "       \\//ortex SPLIT OPTIONS"
  2904.             NumberOfColors 4
  2905.             DefaultColors 0,1,0
  2906.             WindowObjects DRAGBAR 
  2907.             WindowFlags ACTIVATE TOFRONT 
  2908.             VisualEffects NONE ,WAIT 
  2909.         EndScript
  2910.     EndObject
  2911.     TextField ".DRIVE"
  2912.         Definition
  2913.             Origin 110,98
  2914.             Size 49,8
  2915.             Justification LEFT 
  2916.             MaxFieldLength 256
  2917.             InitialText ""
  2918.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2919.         EndScript
  2920.     EndObject
  2921.     IntegerField ".FBYTESfield"
  2922.         Definition
  2923.             Origin 179,98
  2924.             Size 89,8
  2925.             Justification LEFT 
  2926.             MaxFieldLength 10
  2927.             Limits 0,1999999999
  2928.             InitialInteger 0
  2929.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  2930.         EndScript
  2931.     EndObject
  2932.     AreaButton ".NUMBER"
  2933.         Definition
  2934.             Origin 15,15
  2935.             Size 22,10
  2936.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  2937.             Highlight COMPLEMENT 
  2938.             ButtonFlags BUTTONTOGGLES 
  2939.         EndScript
  2940.         OnRelease
  2941.             If Objectstate(".NUMBER") = TRUE
  2942.                 SetObjectState ".BYTES",FALSE
  2943.                 SetObjectState ".Nbytes",FALSE
  2944.                 SetObjectState ".Offset",FALSE
  2945.                 SetObjectState ".Rest",FALSE
  2946.                 SetObjectState ".Floppy",FALSE
  2947.                 SetObjectState ".LOG",FALSE
  2948.                 SetObjectState ".RNM",FALSE
  2949.                 SetObjectState ".TXTlines",FALSE
  2950.                 SetObjectState ".TXTbytes",FALSE
  2951.                 SetObjectState ".TXTfirst",FALSE
  2952.             ElseIf OBJECTSTATE(".NUMBER") = FALSE
  2953.                 SetObjectState ".NUMBER",TRUE
  2954.             EndIf
  2955.         EndScript
  2956.     EndObject
  2957.     AreaButton ".BYTES"
  2958.         Definition
  2959.             Origin 15,30
  2960.             Size 22,10
  2961.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  2962.             Highlight COMPLEMENT 
  2963.             ButtonFlags BUTTONTOGGLES 
  2964.         EndScript
  2965.         OnRelease
  2966.             If Objectstate(".BYTES") = TRUE
  2967.                 SetObjectState ".NUMBER",FALSE
  2968.                 SetObjectState ".Nbytes",FALSE
  2969.                 SetObjectState ".Offset",FALSE
  2970.                 SetObjectState ".Rest",FALSE
  2971.                 SetObjectState ".Floppy",FALSE
  2972.                 SetObjectState ".LOG",FALSE
  2973.                 SetObjectState ".RNM",FALSE
  2974.                 SetObjectState ".TXTlines",FALSE
  2975.                 SetObjectState ".TXTbytes",FALSE
  2976.                 SetObjectState ".TXTfirst",FALSE
  2977.             ElseIf OBJECTSTATE(".BYTES") = FALSE
  2978.                 SetObjectState ".BYTES",TRUE
  2979.             EndIf
  2980.         EndScript
  2981.     EndObject
  2982.     AreaButton ".Nbytes"
  2983.         Definition
  2984.             Origin 15,48
  2985.             Size 22,10
  2986.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  2987.             Highlight COMPLEMENT 
  2988.             ButtonFlags BUTTONTOGGLES 
  2989.         EndScript
  2990.         OnRelease
  2991.             If Objectstate(".Nbytes") = TRUE
  2992.                 SetObjectState ".NUMBER",FALSE
  2993.                 SetObjectState ".BYTES",FALSE
  2994.                 SetObjectState ".Floppy",FALSE
  2995.                 SetObjectState ".LOG",FALSE
  2996.                 SetObjectState ".RNM",FALSE
  2997.                 SetObjectState ".TXTlines",FALSE
  2998.                 SetObjectState ".TXTbytes",FALSE
  2999.                 SetObjectState ".TXTfirst",FALSE
  3000.             ElseIf OBJECTSTATE(".Nbytes") = FALSE
  3001.                 SetObjectState ".Nbytes",TRUE
  3002.             EndIf
  3003.         EndScript
  3004.     EndObject
  3005.     AreaButton ".Offset"
  3006.         Definition
  3007.             Origin 15,63
  3008.             Size 22,10
  3009.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  3010.             Highlight COMPLEMENT 
  3011.             ButtonFlags BUTTONTOGGLES 
  3012.         EndScript
  3013.     EndObject
  3014.     AreaButton ".Rest"
  3015.         Definition
  3016.             Origin 15,78
  3017.             Size 22,10
  3018.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  3019.             Highlight COMPLEMENT 
  3020.             ButtonFlags BUTTONTOGGLES 
  3021.         EndScript
  3022.         OnRelease
  3023.             SetObjectState ".RESTfield",TRUE
  3024.         EndScript
  3025.     EndObject
  3026.     AreaButton ".Floppy"
  3027.         Definition
  3028.             Origin 15,96
  3029.             Size 22,10
  3030.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  3031.             Highlight COMPLEMENT 
  3032.             ButtonFlags BUTTONTOGGLES 
  3033.         EndScript
  3034.         OnRelease
  3035.             If Objectstate(".FLOPPY") = TRUE
  3036.                 SetObjectState ".NUMBER",FALSE
  3037.                 SetObjectState ".Nbytes",FALSE
  3038.                 SetObjectState ".Offset",FALSE
  3039.                 SetObjectState ".Rest",FALSE
  3040.                 SetObjectState ".BYTES",FALSE
  3041.                 SetObjectState ".TXTlines",FALSE
  3042.                 SetObjectState ".TXTbytes",FALSE
  3043.                 SetObjectState ".TXTfirst",FALSE
  3044.             ElseIf OBJECTSTATE(".FLOPPY") = FALSE
  3045.                 SetObjectState ".FLOPPY",TRUE
  3046.             EndIf
  3047.         EndScript
  3048.     EndObject
  3049.     AreaButton ".LOG"
  3050.         Definition
  3051.             Origin 15,111
  3052.             Size 22,10
  3053.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  3054.             Highlight COMPLEMENT 
  3055.             ButtonFlags BUTTONTOGGLES 
  3056.         EndScript
  3057.     EndObject
  3058.     AreaButton ".RNM"
  3059.         Definition
  3060.             Origin 15,126
  3061.             Size 22,10
  3062.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  3063.             Highlight COMPLEMENT 
  3064.             ButtonFlags BUTTONTOGGLES 
  3065.         EndScript
  3066.     EndObject
  3067.     IntegerField ".NUMBERfield"
  3068.         Definition
  3069.             Origin 187,17
  3070.             Size 81,8
  3071.             Justification LEFT 
  3072.             MaxFieldLength 10
  3073.             Limits 2,1999999999
  3074.             InitialInteger 2
  3075.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  3076.         EndScript
  3077.     EndObject
  3078.     TextButton "LESS"
  3079.         Definition
  3080.             Origin 275,15
  3081.             Font "topaz",8 ; FontName, PointSize
  3082.             Style OUTLINE ,1,3
  3083.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  3084.             Text "<"
  3085.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  3086.             Highlight COMPLEMENT 
  3087.             ButtonFlags NONE 
  3088.         EndScript
  3089.         OnClick
  3090.             Do "LESS",".numberfield","LESS",1,10
  3091.         EndScript
  3092.     EndObject
  3093.     TextButton "MORE"
  3094.         Definition
  3095.             Origin 291,15
  3096.             Font "topaz",8 ; FontName, PointSize
  3097.             Style OUTLINE ,1,3
  3098.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  3099.             Text ">"
  3100.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  3101.             Highlight COMPLEMENT 
  3102.             ButtonFlags NONE 
  3103.         EndScript
  3104.         OnClick
  3105.             Do "MORE",".NUMBERfield","MORE",1,5
  3106.         EndScript
  3107.     EndObject
  3108.     IntegerField ".BYTESfield"
  3109.         Definition
  3110.             Origin 179,32
  3111.             Size 89,8
  3112.             Justification LEFT 
  3113.             MaxFieldLength 10
  3114.             Limits 0,1999999999
  3115.             InitialInteger 0
  3116.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  3117.         EndScript
  3118.     EndObject
  3119.     IntegerField ".Nbytesfield"
  3120.         Definition
  3121.             Origin 179,50
  3122.             Size 89,8
  3123.             Justification LEFT 
  3124.             MaxFieldLength 10
  3125.             Limits 0,1999999999
  3126.             InitialInteger 0
  3127.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  3128.         EndScript
  3129.     EndObject
  3130.     IntegerField ".Offsetfield"
  3131.         Definition
  3132.             Origin 179,65
  3133.             Size 89,8
  3134.             Justification LEFT 
  3135.             MaxFieldLength 10
  3136.             Limits 0,1999999999
  3137.             InitialInteger 0
  3138.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  3139.         EndScript
  3140.     EndObject
  3141.     TextField ".RESTfield"
  3142.         Definition
  3143.             Origin 131,80
  3144.             Size 146,8
  3145.             Justification LEFT 
  3146.             MaxFieldLength 256
  3147.             InitialText ""
  3148.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  3149.         EndScript
  3150.     EndObject
  3151.     TextButton "USE"
  3152.         Definition
  3153.             Origin 8,186
  3154.             Font "topaz",8 ; FontName, PointSize
  3155.             Style SHADOW ,1,3
  3156.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  3157.             Text " USE "
  3158.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  3159.             Highlight COMPLEMENT 
  3160.             ButtonFlags NONE 
  3161.         EndScript
  3162.         OnRelease
  3163.             Let CFG[5] = GetDBObjects
  3164.             SendToParentDeck "OPS",CFG[5]
  3165.             Quit
  3166.         EndScript
  3167.     EndObject
  3168.     TextButton "ABORT"
  3169.         Definition
  3170.             Origin 251,186
  3171.             Font "topaz",8 ; FontName, PointSize
  3172.             Style SHADOW ,1,3
  3173.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  3174.             Text " ABORT "
  3175.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  3176.             Highlight COMPLEMENT 
  3177.             ButtonFlags NONE 
  3178.         EndScript
  3179.         OnRelease
  3180.             Quit
  3181.         EndScript
  3182.     EndObject
  3183.     TextButton "SAVE"
  3184.         Definition
  3185.             Origin 127,186
  3186.             Font "topaz",8 ; FontName, PointSize
  3187.             Style SHADOW ,1,3
  3188.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  3189.             Text " SAVE "
  3190.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  3191.             Highlight COMPLEMENT 
  3192.             ButtonFlags NONE 
  3193.         EndScript
  3194.         OnRelease
  3195.             Let CFG[5] = GetDBObjects
  3196.             SendToParentDeck "OPS",CFG[5],"SAVE"
  3197.             Quit
  3198.         EndScript
  3199.     EndObject
  3200.     TextButton "FSEL"
  3201.         Definition
  3202.             Origin 284,78
  3203.             Font "topaz",8 ; FontName, PointSize
  3204.             Style OUTLINE ,1,3
  3205.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  3206.             Text "<?"
  3207.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  3208.             Highlight COMPLEMENT 
  3209.             ButtonFlags NONE 
  3210.         EndScript
  3211.         OnRelease
  3212.             LoadSubDeck "DTP:EZ-UU/FREQ.sub","FREQ"
  3213.             OpenRequester "FREQ","REQ","PATH",LASTDIR1,"Enter SAVE Path...",".RESTfield",""
  3214.         EndScript
  3215.     EndObject
  3216.     AreaButton ".TXTlines"
  3217.         Definition
  3218.             Origin 15,144
  3219.             Size 22,10
  3220.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  3221.             Highlight COMPLEMENT 
  3222.             ButtonFlags BUTTONTOGGLES 
  3223.         EndScript
  3224.         OnRelease
  3225.             If Objectstate(".TXTlines") = TRUE
  3226.                 SetObjectState ".NUMBER",FALSE
  3227.                 SetObjectState ".BYTES",FALSE
  3228.                 SetObjectState ".Nbytes",FALSE
  3229.                 SetObjectState ".Offset",FALSE
  3230.                 SetObjectState ".Rest",FALSE
  3231.                 SetObjectState ".Floppy",FALSE
  3232.                 SetObjectState ".LOG",FALSE
  3233.                 SetObjectState ".RNM",FALSE
  3234.                 SetObjectState ".TXTbytes",FALSE
  3235.             ElseIf OBJECTSTATE(".TXTlines") = FALSE
  3236.                 SetObjectState ".TXTlines",TRUE
  3237.             EndIf
  3238.         EndScript
  3239.     EndObject
  3240.     AreaButton ".TXTbytes"
  3241.         Definition
  3242.             Origin 15,157
  3243.             Size 22,10
  3244.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  3245.             Highlight COMPLEMENT 
  3246.             ButtonFlags BUTTONTOGGLES 
  3247.         EndScript
  3248.         OnRelease
  3249.             If Objectstate(".TXTbytes") = TRUE
  3250.                 SetObjectState ".NUMBER",FALSE
  3251.                 SetObjectState ".BYTES",FALSE
  3252.                 SetObjectState ".Nbytes",FALSE
  3253.                 SetObjectState ".Offset",FALSE
  3254.                 SetObjectState ".Rest",FALSE
  3255.                 SetObjectState ".Floppy",FALSE
  3256.                 SetObjectState ".LOG",FALSE
  3257.                 SetObjectState ".RNM",FALSE
  3258.                 SetObjectState ".TXTlines",FALSE
  3259.             ElseIf OBJECTSTATE(".TXTbytes") = FALSE
  3260.                 SetObjectState ".TXTbytes",TRUE
  3261.             EndIf
  3262.         EndScript
  3263.     EndObject
  3264.     AreaButton ".TXTfirst"
  3265.         Definition
  3266.             Origin 15,170
  3267.             Size 22,10
  3268.             Border CHECK ,2,1 ; BorderStyle, MainPen, ExtraPen
  3269.             Highlight COMPLEMENT 
  3270.             ButtonFlags BUTTONTOGGLES 
  3271.         EndScript
  3272.     EndObject
  3273.     IntegerField ".TXTlinesfield"
  3274.         Definition
  3275.             Origin 179,146
  3276.             Size 89,8
  3277.             Justification LEFT 
  3278.             MaxFieldLength 9
  3279.             Limits 0,999999999
  3280.             InitialInteger 0
  3281.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  3282.         EndScript
  3283.     EndObject
  3284.     IntegerField ".TXTbytesfield"
  3285.         Definition
  3286.             Origin 179,159
  3287.             Size 89,8
  3288.             Justification LEFT 
  3289.             MaxFieldLength 9
  3290.             Limits 0,999999999
  3291.             InitialInteger 0
  3292.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  3293.         EndScript
  3294.     EndObject
  3295.     TextField ".TXTFirstfield"
  3296.         Definition
  3297.             Origin 125,172
  3298.             Size 152,8
  3299.             Justification LEFT 
  3300.             MaxFieldLength 256
  3301.             InitialText ""
  3302.             Border DOUBLEBEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  3303.         EndScript
  3304.     EndObject
  3305.     TextButton "FSEL2"
  3306.         Definition
  3307.             Origin 284,170
  3308.             Font "topaz",8 ; FontName, PointSize
  3309.             Style OUTLINE ,1,3
  3310.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  3311.             Text "<?"
  3312.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  3313.             Highlight COMPLEMENT 
  3314.             ButtonFlags NONE 
  3315.         EndScript
  3316.         OnClick
  3317.             LoadSubDeck "DTP:EZ-UU/FREQ.sub","FREQ"
  3318.             OpenRequester "FREQ","LIST"
  3319.         EndScript
  3320.     EndObject
  3321.     AKey "HELP"
  3322.         Definition
  3323.             QualifiersPressed NONE 
  3324.             KeyPressed HELP 
  3325.         EndScript
  3326.         OnDown
  3327.             Do "HELP","HL",">>SPLIT<<"
  3328.         EndScript
  3329.     EndObject
  3330.     TextButton "LESS2"
  3331.         Definition
  3332.             Origin 275,30
  3333.             Font "topaz",8 ; FontName, PointSize
  3334.             Style OUTLINE ,1,3
  3335.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  3336.             Text "<"
  3337.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  3338.             Highlight COMPLEMENT 
  3339.             ButtonFlags NONE 
  3340.         EndScript
  3341.         OnClick
  3342.             Do "LESS",".bytesfield","LESS2",1000,5000
  3343.         EndScript
  3344.     EndObject
  3345.     TextButton "MORE2"
  3346.         Definition
  3347.             Origin 291,30
  3348.             Font "topaz",8 ; FontName, PointSize
  3349.             Style OUTLINE ,1,3
  3350.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  3351.             Text ">"
  3352.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  3353.             Highlight COMPLEMENT 
  3354.             ButtonFlags NONE 
  3355.         EndScript
  3356.         OnClick
  3357.             Do "MORE",".bytesfield","MORE2",1000,5000
  3358.         EndScript
  3359.     EndObject
  3360.     TextButton "LESS3"
  3361.         Definition
  3362.             Origin 275,48
  3363.             Font "topaz",8 ; FontName, PointSize
  3364.             Style OUTLINE ,1,3
  3365.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  3366.             Text "<"
  3367.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  3368.             Highlight COMPLEMENT 
  3369.             ButtonFlags NONE 
  3370.         EndScript
  3371.         OnClick
  3372.             Do "LESS",".Nbytesfield","LESS3",1000,5000
  3373.         EndScript
  3374.     EndObject
  3375.     TextButton "MORE3"
  3376.         Definition
  3377.             Origin 291,48
  3378.             Font "topaz",8 ; FontName, PointSize
  3379.             Style OUTLINE ,1,3
  3380.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  3381.             Text ">"
  3382.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  3383.             Highlight COMPLEMENT 
  3384.             ButtonFlags NONE 
  3385.         EndScript
  3386.         OnClick
  3387.             Do "MORE",".Nbytesfield","MORE3",1000,5000
  3388.         EndScript
  3389.     EndObject
  3390.     TextButton "LESS4"
  3391.         Definition
  3392.             Origin 275,63
  3393.             Font "topaz",8 ; FontName, PointSize
  3394.             Style OUTLINE ,1,3
  3395.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  3396.             Text "<"
  3397.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  3398.             Highlight COMPLEMENT 
  3399.             ButtonFlags NONE 
  3400.         EndScript
  3401.         OnClick
  3402.             Do "LESS",".OffsetField","LESS4",1000,5000
  3403.         EndScript
  3404.     EndObject
  3405.     TextButton "MORE4"
  3406.         Definition
  3407.             Origin 291,63
  3408.             Font "topaz",8 ; FontName, PointSize
  3409.             Style OUTLINE ,1,3
  3410.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  3411.             Text ">"
  3412.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  3413.             Highlight COMPLEMENT 
  3414.             ButtonFlags NONE 
  3415.         EndScript
  3416.         OnClick
  3417.             Do "MORE",".Offsetfield","MORE4",1000,5000
  3418.         EndScript
  3419.     EndObject
  3420.     TextButton "LESS5"
  3421.         Definition
  3422.             Origin 275,96
  3423.             Font "topaz",8 ; FontName, PointSize
  3424.             Style OUTLINE ,1,3
  3425.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  3426.             Text "<"
  3427.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  3428.             Highlight COMPLEMENT 
  3429.             ButtonFlags NONE 
  3430.         EndScript
  3431.         OnClick
  3432.             Do "LESS",".FBYTESfield","LESS5",1000,10000
  3433.         EndScript
  3434.     EndObject
  3435.     TextButton "MORE5"
  3436.         Definition
  3437.             Origin 291,96
  3438.             Font "topaz",8 ; FontName, PointSize
  3439.             Style OUTLINE ,1,3
  3440.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  3441.             Text ">"
  3442.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  3443.             Highlight COMPLEMENT 
  3444.             ButtonFlags NONE 
  3445.         EndScript
  3446.         OnClick
  3447.             Do "MORE",".FBYTESfield","MORE5",1000,10000
  3448.         EndScript
  3449.     EndObject
  3450.     TextButton "LESS6"
  3451.         Definition
  3452.             Origin 275,144
  3453.             Font "topaz",8 ; FontName, PointSize
  3454.             Style OUTLINE ,1,3
  3455.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  3456.             Text "<"
  3457.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  3458.             Highlight COMPLEMENT 
  3459.             ButtonFlags NONE 
  3460.         EndScript
  3461.         OnClick
  3462.             Do "LESS",".TXTlinesfield","LESS6",1,10
  3463.         EndScript
  3464.     EndObject
  3465.     TextButton "MORE6"
  3466.         Definition
  3467.             Origin 291,144
  3468.             Font "topaz",8 ; FontName, PointSize
  3469.             Style OUTLINE ,1,3
  3470.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  3471.             Text ">"
  3472.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  3473.             Highlight COMPLEMENT 
  3474.             ButtonFlags NONE 
  3475.         EndScript
  3476.         OnClick
  3477.             Do "MORE",".TXTlinesfield","MORE6",1,5
  3478.         EndScript
  3479.     EndObject
  3480.     TextButton "LESS7"
  3481.         Definition
  3482.             Origin 275,157
  3483.             Font "topaz",8 ; FontName, PointSize
  3484.             Style OUTLINE ,1,3
  3485.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  3486.             Text "<"
  3487.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  3488.             Highlight COMPLEMENT 
  3489.             ButtonFlags NONE 
  3490.         EndScript
  3491.         OnClick
  3492.             Do "LESS",".TXTbytesfield","LESS7",1000,5000
  3493.         EndScript
  3494.     EndObject
  3495.     TextButton "MORE7"
  3496.         Definition
  3497.             Origin 291,157
  3498.             Font "topaz",8 ; FontName, PointSize
  3499.             Style OUTLINE ,1,3
  3500.             TextColors 2,0,JAM1  ; PenA, PenB, DrawMode
  3501.             Text ">"
  3502.             Border BEVEL ,2,1 ; BorderStyle, MainPen, ExtraPen
  3503.             Highlight COMPLEMENT 
  3504.             ButtonFlags NONE 
  3505.         EndScript
  3506.         OnClick
  3507.             Do "MORE",".TXTbytesfield","MORE7",1000,5000
  3508.         EndScript
  3509.     EndObject
  3510. * End of Card "SPLITops"
  3511. *************
  3512.  
  3513. *************
  3514. * Global routine "HELP"
  3515.     LoadSubDeck "DTP:EZ-UU/FREQ.sub","FREQ"
  3516.     If ARG1 = "HL"
  3517.         OpenRequester "FREQ","HELP",ARG2
  3518.     ElseIf ARG1 = "FT"
  3519.         OpenRequester "FREQ","FTYPE",ARG2
  3520.     EndIf
  3521. * End of routine "HELP"
  3522. *************
  3523.  
  3524. *************
  3525. * Global routine "LESS"
  3526.     If IntegerFrom(ARG1) > 0
  3527.         SetInteger ARG1,integerfrom(ARG1) - ARG3
  3528.         Delay 0,0,5
  3529.     EndIf
  3530.     While Objectstate(ARG2) = TRUE AND IntegerFrom(ARG1) > 0
  3531.         SetInteger ARG1,integerfrom(ARg1) - ARG4
  3532.         Delay 0,0,3
  3533.     EndLoop
  3534. * End of routine "LESS"
  3535. *************
  3536.  
  3537. *************
  3538. * Global routine "MORE"
  3539.     If IntegerFrom(ARG1) < MaxInteger
  3540.         SetInteger ARG1,integerfrom(ARG1) + ARG3
  3541.         Delay 0,0,5
  3542.     EndIf
  3543.     While Objectstate(ARG2) = TRUE AND IntegerFrom(ARG1) < MAXinteger
  3544.         SetInteger ARG1,integerfrom(ARg1) + ARG4
  3545.         Delay 0,0,3
  3546.     EndLoop
  3547. * End of routine "MORE"
  3548. *************
  3549.  
  3550. *************
  3551. * Global routine "SUBreq"
  3552.     If ARG1 = "PATH&FILE"   ; check if we got a path and file
  3553.         Let INFILE = ARG2   ; get the path and filename
  3554.         Let LASTDIR2 = ARG3  ; get & HOLD directory for next FREQ
  3555.         If ARG4 <> ""
  3556.             Let WhichField = ARG4
  3557.             SetText WhichField,INFILE   ; set the correct field
  3558.         EndIf
  3559.         If ARG5 <> ""   ; if this is NOT "" then a DO is expected.
  3560.             Do ARG5     ; do the argument
  3561.         EndIf
  3562.         ExitScript
  3563.     EndIf
  3564.     Nop; ###### PATH Requester routine ######
  3565.     Nop;
  3566.     If ARG1 = "PATH"
  3567.         Let INFILE = ARG2
  3568.         Let LASTDIR1 = ARG3
  3569.         If ARG4 <> ""
  3570.             Let WhichField = ARG4
  3571.             SetText Whichfield,INFILE
  3572.         EndIf
  3573.         If ARG5 <> ""
  3574.             Do ARG5
  3575.         EndIf
  3576.         ExitScript
  3577.     EndIf
  3578. * End of routine "SUBreq"
  3579. *************
  3580.  
  3581.