HPAD0|J Text Editortf=MEhandler help; begin go to pg 1 of pad "textedit.hlp"; end;M7textedit.hlp1*B%5-handler select; begin help; end; 57X  :*H0FNF1=Helpon1GGp0Wy_handler askSave; begin if page field "textEdit" is not empty then begin answer "Save changes to:" && page field "fileName" with "Yes","No","Cancel"; if it is "Yes" then send "select" to page button id 3 else if it is not "No" then exit to HyperPAD; end; end; handler setFileName(fname); begin put fname into page field "fileName"; put length(fname) into l; get (40 - l / 2); set the rect of page field "fileName" to it,2,it + l + 1,2; end; handler cancel; begin askSave; go home; end; handler editText; begin set the focus to page field "textEdit"; end; y  $ asksave7XtextEdit%##.hCancelNoYesXfileName%##Save changes to:- XUYesX+selectX3N $ NoX.0**$ setfilename87XXfileName%X XX   : XXX2 "40 XXXXfileName%  )21  2  P*7X asksave;:*$ edittext7XtextEdit% h*_& HyperPAD 2.2 Brightbil-Roberts & Co. Text Editor p0އ0@r> (H|handler openField; begin set the edgeType of me to 2; end; handler closeField; begin set the edgeType of me to 1; end;7fg 2 P*7fg 1 P*PP textEditipphandler error(m); begin answer m with "Ok"; exit to HyperPAD; end; handler select; begin askSave; put page field "FileName" into lastName; if "\" is in lastName then get getDirPart(lastName) else get the directory; if the last char of it is not "\" then put "\" after it; put "*." & getExt(lastName) after it; get openFile("Edit File","File to edit:",it); if it is empty then exit; if fileSize(it) > 30000 then error "File to large."; put open(it) into fh; if the result is not empty then error "Can't open file."; setFileName it; read from fh until end; put it into page field "textEdit"; close fh; editText; end; $error87OkX  U0**7X asksave;:XFileName%## XXX \w#   getdirpart;:XXXX$X  #:XXXX\XXl>. \XXX    getext;:*.,XXX Edit FileFile to edit:X   N:XXXXX+*30000X   :3File to large.  error;:X   T: XXXX  :.!Can't open file.  error;:X  setfilename;: XzXXtextEdit%X X    :X edittext;:*H  1-Getlen1p1x0@8handler select; begin get page field "fileName"; if it is "UNTITLED.TXT" then get empty; ask "Save changes to:" with it; if it is empty then exit to HyperPAD; put fullName(it) into fname; if "." is not in fname then put ".TXT" after fname; if fileExists(fname) then begin answer "File already exists. Ok to overwrite?"; if it is not "Ok" then exit to HyperPAD; end; setFileName fname; put create(fname) into fh; if the result is not empty then exit; write page field "textEdit" to fh; close fh; editText; end;@7XfileName%##XXXXUNTITLED.TXTX+ XXXXXSave changes to: XTX+0*X   a: XXX .x.TXT XX     ;:7File already exists. Ok to overwrite?XXUOkX.0*   setfilename;:    U: XXXX  :.* XtextEdit%##{    :X edittext;:*H t2-Saveen1p2yHxnew.txtP@!/fileName      A!00ppRhandler select; begin answer "Ok to print" && page field "fileName" && "to" && the printDevice; if it is not "Ok" then exit; set the printer to on; print (page field "textEdit"); set the printer to off; end;7X ctoXfileName%##Ok to print---XXUOkX.*X  PXtextEdit%##}X  P*H,3-Printn1p3zD'7/handler select; begin cancel; end; 77X  :*HINHomeuttont;:XXXX$X  #:1GGpXcskhandler select; begin set the lockScreen to true; set the lockMessages to true; push this page; go to pad "clipb"; get page field 1; pop page; if it is not empty then put it into char (the insertPoint of page field "textEdit") of page field "textEdit" else answer "Nothing to paste."; set the lockMessages to false; editText; end;s7X " PX  P`]clipb X1%##XXXX^X./XXtextEdit%XXtextEdit%  c X$Nothing to paste.XXUX PX edittext;:*H 'M4-Paste Special1p4{v~handler select; begin askSave; setFileName "UNTITLED.TXT"; put empty into pg fld "textedit"; editText; end;7X asksave;:UNTITLED.TXT  setfilename;:Xtextedit%X XX edittext;:*H *.5-Newe Special1p5|e :Use TAB to move highlight,  to move cursor, ALT for comands.9   esd