From | RON TUYNMAN
/---------------------------------------
> It's not a great deal, but I don't want to program it again if not
> absolutely nescessary...
\---------------------------------------
   To | ALL
I think you will have to convert them manually...but, it shouldn't be
too difficult once you have a few examples to work from.  I'll do a few
of the more difficult ones that you have, and leave the others for you:
// f1      macro_begin save_file quit escape
// f2      ToggleBoxType
// f3      ToggleBoxDraw
// f4      dup_line
// f5      Macro_Begin "@ROW(" cursor_right ",COL("  cursor_right " SAY "
// f6      Macro_Begin "@PROW(" cursor_right ",PCOL("  cursor_right " SAY "
// f9      Macro_begin quit quit quit quit escape
// f10     shell
// f12     nextwindow
    SaveFile() QuitFile() Escape()
    LineTypeMenu()
    DrawBox()
    DupLine()
    InsertText("@ROW(") Right() InsertText(",COL(") Right()
        InsertText(" SAY ")
    InsertText("@PROW(") Right() InsertText(",PCOL(") Right()
        InsertText(" SAY ")
    QuitFile() QuitFile() QuitFile() QuitFile() Escape()
   DosShell()
   NextWindow()
// #f4     macro_begin Flip cursor_right
// #f12     Horizontalwindow
//
// ^f4     get_prev
// ^f8    DeleteBlock
// ^f12     ZoomWindow
  Flip() Right()
 HorizontalWindow()
   mCopyCharAbove() // This is a macro in the standard TSE.UI file
   DelBlock()
  ZoomWindow()
// @f4     get_prev
// @f5     macro_begin "@ROW(),COL() SAY "    end_line cursor_left 
ursor_left
// del_to_eol
// @f6     macro_begin "@PROW(),PCOL() SAY "  end_line cursor_left 
ursor_left
// del_to_eol
// @f12    ZoomWindow
    mCopyCharAbove()
    InsertText("@ROW(),COL() SAY ") EndLine() Left(2) DelToEol()
    InsertText("@PROW(),PCOL() SAY ") EndLine() Left(2) DelToEol()
   ZoomWindow()
// ^end            del_to_eol
// ^pgdn           end_file
// ^pgup           beg_file
  DelToEol()
 EndFile()
 BegFile()
// ^e              macro_begin "IF LastKey(" Cursor_right " == 27 " return  "
//                 TONE ( 500 , 0 " end_line return "MELD( 'Procedure 
onderbroken door
//                 gebruiker' , 1"  end_line return "Return" Return beg_line
//                 "ENDIF" return
proc LstKey()
    InsertText("IF LastKey(") Right()
    InsertText(" == 27 ") CReturn()
    InsertText("TONE ( 500 , 0") EndLine() CReturn()
    InsertText("MELD( 'Procedure onderbroken door gebruiker' , 1")
    EndLine() CReturn() "Return" CReturn() BegLine()
    "ENDIF" CReturn()
end
    LstKey()
// ^ins    Macro_begin HorizontalWindow NextWindow ZoomWindow
// ^tab    Macro_Begin NextWindow Zoomwindow
proc ZoomNewWindow()
    HWindow()
    NextWindow()
    ZoomWindow()
end
proc ZoomNextWindow()
úÿ [ Continued In Next Message... ]
 -- SPEED 2.0h #10: TSE Jr, MEM-RES, OS/2 & The SemWare Editor Professional
--- FidoPCB v1.4 [ff151/a]
---------------