I MONITORjZTITLE$"Program Title Here"t : Put Program Exit HereZHELPSW%:ZCSW%:ZW%N# ,,: P:: BASE 1( -ZB1$(,):ZB2$(O,)/KZTOF$( ):ZENT$"("()ZSHL$ZSLR$")":ZTFACKP ZMENU$(),ZMLEN%()UZE$" Not Available at this Point":ZDT$:ZDT$(ZDT$,)"/"(ZDT$,,)"/"(ZDT$,)ZZ: d: '_ Branch TableUd ,,: Z s,,,,,%,>,R,\,p,,,,,,,,,,,,$,.,=,G,Q,`,e,o[ifn ZINsZD$"":ZN: `: e:ZR%:ZLEN%(ZFLD2$):ZTYPE%((Z$,ZPTR2%)):ZLEND%(ZFLD1$)x ,: O);" ": ,} ZFLD1$;" [";  ZPL$"" ! Pre-loaded input ZPL$;(ZLEN%(ZPL$),".");"]":ZD$ZPL$:ZCT%(ZPL$): ,ZLEND%ZCT%,:ZCPTR%ZCT%:  No Preload (ZLEN%,".");"]": ,ZLEND%,ZCT%:ZCPTR% ZIN Inkey ,,ZCH$: ZCH$"" 3Z%(ZCH$):ZL%(ZCH$): Z%~ U Exten'd or Edit Char. Trapg ZL%  Control Char. Trap Z%  Test Overstrike ZINS%   ZCPTR%ZCT%  Test GT maxZCT%ZCT%: ZCT%ZLEN% ZCT%ZCT%: t-ZCPTR%ZCT%G ZCT%  :  a Special First Char. (ZHELPSW%) (ZCH$"?") ZR%: ZCH$;:  ZCH$"?" ZCH$:Z: d: s ZCH$"+" ZR%: ZCH$;:    Normal Process:  (Z%`) (Z%{) (ZCSW%) ZCH$(Z% )N ZINS% &m ZCH$;:ZD$ZD$ZCH$:  Proc. Ctrl Char.ZCTL%Z%" ESC=abort' ZCTL% ZPL$"": s, ZCTL% : s1 ZCTL% v6 ZCTL% w; Proc. c/r/@ ZCT% ZR%: DE ZTYPE% XJ ZD$"0" tO ZTYPE% T : ^TZT(ZD$): ZT cYZN(ZD$): ZN (ZN) c : ^ZN(ZD$): ZN h : cZ: mhZmZSAVE$Z$: d:Z$ZSAVE$: s*r proc. B/UGw ZCTL% ZR%: W| Proc. BSr ZCTL%  :  Short BS ZCT% t ZCPTR%ZCT% ?ZCT%ZCT%:ZCPTR%ZCPTR%: ,ZLEND%ZCT%: ".";: ,ZLEND%ZCT%:ZD$(ZD$,(ZD$)): 6 Pass Control CharacterWZR%:ZNZCTL%:ZD$" ": n Proc Ext'd Char.ZXT%((ZCH$,)): ZXT%H ZR%:  ZIN Inner-field Editing ,,:ZBR%ZXT%J: ZBR%  ZBR% ,,,,,,,,?. : ZXT% XB ZXT%u bd (ZXT%:) (ZXT%E) ln ~ Curs left ZCPTR% t :ZCPTR%ZCPTR%: y Curs right ZCPTR%ZCT% t :ZCPTR%ZCPTR%: y  END KeyjZ%:Z : d: ,: "Press END key again to End, space bar to continue [.]": ,4ZCH9$: ZCH9$"" ZL%(ZCH9$): ZL% sZXT%((ZCH9$,)): ZXT%O Z: d s  INS Toggle  ZCT%ZLEN% t* ZINS%  : 4 D! INS Char.[& ZCT%ZLEN% t+ZDL$(ZD$,ZCPTR%):ZDR$(ZD$,ZCPTR%):ZDR$ZCH$ZDR$0ZD$ZDL$ZDR$:ZCT%ZCT%:ZCPTR%ZCPTR%5 ZDR$;(ZLEN%(ZD$),".");"]": y: Delete Char? ZCT%ZCPTR% tRD :ZDL$(ZD$,ZCPTR%):ZDR$(ZD$,ZCPTR%)IZD$ZDL$ZDR$:ZCT%ZCT%: ZDR$;".": yN S Back TabX :ZCPTR%: y] Ctrl-End!b :ZCT%ZCPTR%:ZD$(ZD$,ZCT%): ,ZLEND%ZCPTR%: (ZLEN%(ZD$),".");"]": y:g Pass Function KeysOlZCTL%ZXT%: `q Forw'd Tab~v :ZCPTR%ZCT%: y{ OverstrikeZDL$(ZD$,ZCPTR%): ZCPTR% ZDL$""ZDR$(ZD$,ZCPTR%): ZCPTR%ZCT% ZDR$"")ZD$ZDL$ZCH$ZDR$: ZCH$;:ZCPTR%ZCPTR%: : Common EndSZD$" ":ZN:ZINS%g :ZPL$"":s ZMENU `:ZROWX%(ZFLD1$): e:ZCOL%(ZFLD2$): ZROWX%,ZCOL%:ZLTST%(Z$) ZMNO% :ZPTR1%ZPTR2%: ZPTR2%   ZPTR2%ZLTST%   e?  ZMNO% ZPD$" " : ZPD$""l  ZCOL%);ZPD$;ZMNO%;"- ";ZFLD2$: ZMNO% : ZMNO% ZX$"2" : ZX$"1" ZSAVE$Z$:Z$" Enter Selection,"ZX$",2":Z: d: ZR% ,,,,!ZL:ZHZMNO%:Z$ZSAVE$:Z : d*! ZV% ,,^!ZSAVE$Z$:ZD$(ZN):Z: d:Z$ZSAVE$: d!p! ZTCLR! Z% :ZMENU$(Z%)"": Z%:! ZTMENU"ZPTR2%:ZPDL$(((NZW%))," "):ZPR%(NZW%): ZROW%,: ZMNO% :ZFLD$ZMENU$(ZMNO%): ZPTR2%(Z$) T"ZPTR1%ZPTR2%: e:ZMD$ZFLD2$:ZPTR1%ZPTR2%: e"ZTYPE%(ZFLD2$):ZMLEN%(ZMNO%)ZTYPE%: ZFLD$"" ZFLD$"["(ZTYPE%,".")"]""ZCOL%(ZFLD$): ZMNO% ZPD$" " : ZPD$"""# ZPDL$;ZPD$;(ZMNO%)". ";ZMD$;PZCOL%ZPR%);ZFLD$: ZMNO%(#7#  ZUPTMENU#ZPTR1%ZMLEN%(ZY%):ZPR%(NZW%): (ZROW%ZY%),(PZPTR1%ZPR%): O)#ZMENU$(ZY%)ZD$#ZCOL%(ZMENU$(ZY%)): (ZROW%ZY%),(PZCOL%ZPR%): ZMENU$(ZY%);O):#  ZBOX#$% ZB2$: ZB1$;();L);();ZB1$c$* ZB1$;();)((ZTITLE$)));ZTITLE$;L);();ZB1$$/ ZB1$;();L);();ZB1$: ZB2$:$4$9 ZLINE$> ,: $C ZTITLE$;H);ZDT$: $H$M ZAOK%%RZ : d:Z$"All ok? Y or N,1,1":Z: d:Z: d:Z: d:3%W ZTESTYN]%\ZV%: (ZD$"Y") (ZD$"y") ZV%%a (ZD$"N") (ZD$"n") ZV%%f%k ZNLIMIT%pZV%: ZLZN ZV%%u ZHZN ZV%%z (ZCTL%) (ZR%) ZV%%% ZSCREEN"& Z%Z% : Z%,: P);: Z%:/& ZBEEP<& 2,:F& ZUPT&ZCSW%:_& ZMIXm&ZCSW%:y& ZEND&:Z: d&  , ,: "";(,"");""& , : "";" End Program ";""& , : "";(,"");""' ,,: ' ZCTR ' : -' ZCTRR7' G' ,: T' ZCTRB^' m' : z' ZCTRU' ' ' ZFLD2$;: : O);:( ,:: `:ZFLD2$(Z$,ZPTR1%):Z%(ZFLD1$): Z%,,: (P(ZFLD2$)));:(  ZERRINV4(Z$"24,"ZD$" Is Invalid": VB( ZERRINTu(Z$"24,"ZD$" Is Not an Integer Number": V( ZERRNUM($Z$"24,"ZD$" Is Not Numeric": V() ZERRCTRL). ZCTL% ZDS2%ZCTL%::ZDS$"F"((ZDS2%),) : ZDS$"Control "(ZCTL%@)?)3Z$"24,Function Key = "ZDS$ZE$: VM)8 ZERRENTu)=Z$"24,ENTER-Only Entry "ZE$: V)B ZERRBACK)GZ$"24,Field Backup Entry "ZE$: V)L ZERRHELP)QZ$"24,HELP "ZE$*VZ: d:Z : d:ZY:Z: d:Z%:Z : d:*[ RoutinesO*`ZPTR1%(,Z$,","):ZFLD1$(Z$,ZPTR1%):*eZPTR2%(ZPTR1%,Z$,","):ZFLD2$(Z$,ZPTR1%,ZPTR2%ZPTR1%):*j ZDELAY*o ZX ZYZTFAC: ZX:*tZ : d: *y ,ZLEND%ZCPTR%,: +~ INS On+ZINS%: ,,,, :)+ INS OffB+ZINS%: ,,, , :U+(# Save Programo+2#ZPROG$"program name"+<# "Saving B:"ZPROG$".BAS"+F# "B:"ZPROG$+P# "Saving B:"ZPROG$".S"+Z# "B:"ZPROG$".S",A+d#+# Memory Displayo,#:  ,,:  );"Memory Statistics":: );"Remaining Memory: ";():: );"Program Length: ";Yp():,' Begin Program Here