> .Extras.Source Squished by Lofty's !Shrink vsn 3.01 on 21-Sep-96 &406C2: $;" at line "+ &406C0: &400EC,-1,-1 LR%:tP%=1<<&A:pK%=&8000+LR%: =pK%+tP%: =pK%: iF(".",pK%): nC:e%= dC:e%= _shell_VBFile_Init:e%= _shell_Menu_TID_Init:e%= fC:e%= yC:e%= _shell_Menu_Cats_Init:e%= _shell_Menu_Chan_Init:e%= _shell_Menu_Title_Init _shell_Menu_TLen_Init:e%= _shell_Menu_TFmat_Init:e%= _shell_Menu_TMake_Init:e%= _shell_Menu_HMDis_Init:e%= _shell_Idx_Recs_Init:e%= _shell_Idx_Sel_Init:e%= _shell_Idx_Tapes_Init:e%= _shell_Idx_Gaps_Init:e%= QC:e%= _shell_Win_MWPane_Init:e%= MC:e%= XC:e%= YC:e%= _shell_Win_ERec_Init:e%= aC:e%= _shell_Win_PInfo_Init:e%= IC:e%= FC:e%= KC:e%= _shell_Options_Init:e%= CD:e%= _shell_Win_NotePa_Init:e%= NC:e%= _shell_CalLib_Init:e%= _shell_DatePick_Init:e%= _shell_Fonts_Init e}e%= _shell_ShareBan_Init:e%= _shell_Scrap_Init:uK%= iC(&C8,"Video Tape Index"): O):_closedown%= &406C1: jC(1,uK%)): _closedown%: bD("_VBFile_PreQuitHandler"): _dis_fn(oB%,QC%): I$:I$= 60)+"h"+ "00"+ 60),2):=I$ _decode_dis(a$): i%:i%= (a$)*60+ a$,2)): _dis_fn2(oB%,QC%):= "00000"+ (oB%),5) _decode_dis2(a$): i%:i%= (a$):=i% _dis_fn3(oB%,QC%): 60)+"h"+ "00"+ 60),2) _dis_fn2(oB%,QC%) _decode_dis3(a$): (a$)*60+ a$,2)) FG:FD$= LC:_T%=1:WT%=1:iP%= B(4):RS%= B(4):!iP%=0:!RS%=0:eS%=0: _CompFN(KC$,bC$): (KC$)< (bC$) _GetTerm(cA%): AO%:AO%= aA(cA%):= e(AO%)) qC:=&CCD jA(iC$,F): ZD%,I$,i%: ("Set Module$Check Y"): ("RMEnsure "+iC$+" "+ F+" Set Module$Check N"): 35,"Module$Check",CF%,256,0,0 ,,ZD%:CF%?ZD%=&D: ("Unset Module$Check"):I$=$CF%: I$="N" BB(F):= jA("UtilityModule",F) L(TA$): MC%,J,i%:J=5: 8,J,TA$ MC%=0 _U%!44<>-1 #(_U%!44):_U%!44=-1 JC:=iL% p%,g%:g%=_U%!&E8: g%?p%>0: &40082,p%:g%?p%-=1: RF(IC%): _U%!&64 "WimpExt_Initialise",&E,IC% &600DD,IC%,&4B534154: &A1683,IC%: _U%!&64 "XImpulse_CloseDown",_U%!&94 ZE%:ZE%=_U%!68: &61504,ZE%: &2001E,7,,ZE%: &606C2: &600D0,,-1: RF(_U%!&94): g%:g%=_U%!&C4:=$g% BB(DC$): jG%:!_ERRORS_ERR_BLK%= :$(_ERRORS_ERR_BLK%+4)=DC$+ =_ERRNR_NONFATAL =_ERRNR_CLAIMMEM &600DF,_ERRORS_ERR_BLK%,17,"Message from "+ &600DF,_ERRORS_ERR_BLK%,1, &606C2: BB(3) L("Resources:$.Resources.Edit.ThrowBack") 1<<31) ("Set Basic$File <"+ O+"$BasicFile>"): "Edit:ThrowBack" BB("Unexpected error:- "+ $+" Internal error code "+ iF(w$,vP%): _heap_code%900: ("LOAD "+w$+"heapcode "+ ~_heap_code%): _heap_code%+0,vP%: _shell_Bumpers_Init:JR%=2:ER%=4:gP%=8:=0 _shell_CaretMove_Init:dU%=20: HQ%4: OQ%4:!HQ%=0:!OQ%=0:DU%=0:gS%=20: NP%4: VP%4:!NP%=0:!VP%=0:hS%=0:=0 UB(H): aK%,k$,b%:k$="":b%=0: aK%?b%<>0:k$+= (aK%?b%):b%+=1: 1:k$= 34)+1):k$= 34)+2) YA(TA$): 8,5,TA$ ,,MC%:MC%=(MC% &FFF00)>>>8:=MC% _shell_DataLoad_Init:aM%=-1:fD%=24:XE%=-1:FA$="":EH%=-1:_L%=-1:u$="":XB$= UB(1): XB$<>"" :OP%= YA(XB$) :OP%=-1 mB%4: wK%4:!mB%=0:!wK%=0:_EVNTS_DATALOAD_DATAOFFSET%=0: YT%4:=0 _shell_DataSave_Init: JI%4: KK%4:!JI%=0:!KK%=0:LP%=0:yB$="":oK%=-1:xF%=-1:CB$="":s$="":wL%=-1:wG%=-1:pD%=-1:KB$="":oR%=-1:UG%=-1:lF%=-1:tJ%=-1:rR%=-1:LH%=-1:AG%= :DF%= :LD$="SHELLMSG29":jC$="SHELLMSG28":ND$="SHELLMSG19":xC$="SHELLMSG21" a,CD$="SHELLMSG39":vU%=6:SU%=&64:vR%=32:=0 _shell_Debug_Init:=0 _shell_Errors_Init:_ERRNR_NONFATAL=&D00:_ERRNR_CLAIMMEM=&903: _ERRORS_ERR_BLK%256:=0 _shell_Evnts_Init:eA%=8:EE%=-1: AH%256: BA%&BB8: _EVNTS_CLICKSELECT_ANCHOR%4: _EVNTS_CLICKADJUST_ANCHOR%4: _EVNTS_CLICKMENU_ANCHOR%4: _EVNTS_HELPTAG_ANCHOR%4: _EVNTS_POPUPS_ANCHOR%4: _EVNTS_PANES_ANCHOR%4: _EVNTS_SLIDERS_ANCHOR%4 _EVNTS_POINTERIN_ANCHOR%4: _EVNTS_POINTEROUT_ANCHOR%4: _EVNTS_DATASAVE_ANCHOR%4: _EVNTS_REDRAW_ANCHOR%4: _EVNTS_DRAG_ANCHOR%4: _EVNTS_BUMP_ANCHOR%4: _EVNTS_WINDOWOPEN_ANCHOR%4: _EVNTS_WINDOWCLOSE_ANCHOR%4: _EVNTS_ICONWATCH_ANCHOR%4 _EVNTS_MENUHELPTAG_ANCHOR%4:!_EVNTS_CLICKSELECT_ANCHOR%=0:!_EVNTS_CLICKADJUST_ANCHOR%=0:!_EVNTS_CLICKMENU_ANCHOR%=0:!_EVNTS_HELPTAG_ANCHOR%=0:!_EVNTS_POPUPS_ANCHOR%=0:!_EVNTS_SLIDERS_ANCHOR%=0:!_EVNTS_PANES_ANCHOR%=0:!_EVNTS_POINTERIN_ANCHOR%=0 !_EVNTS_POINTEROUT_ANCHOR%=0:!_EVNTS_DATASAVE_ANCHOR%=0:!_EVNTS_REDRAW_ANCHOR%=0:!_EVNTS_DRAG_ANCHOR%=0:!_EVNTS_BUMP_ANCHOR%=0:!_EVNTS_WINDOWOPEN_ANCHOR%=0:!_EVNTS_WINDOWCLOSE_ANCHOR%=0:!_EVNTS_ICONWATCH_ANCHOR%=0:!_EVNTS_MENUHELPTAG_ANCHOR%=0 _EVNTS_CLICKSELECT_DATA%4: _EVNTS_CLICKADJUST_DATA%4: _EVNTS_CLICKMENU_DATA%4: _EVNTS_HELPTAG_DATA%4: _EVNTS_POPUPS_DATA%4: _EVNTS_PANES_DATA%4: _EVNTS_SLIDERS_DATA%4: _EVNTS_POINTERIN_DATA%4: _EVNTS_POINTEROUT_DATA%4: _EVNTS_DATASAVE_DATA%4 _EVNTS_REDRAW_DATA%4: _EVNTS_DRAG_DATA%4: _EVNTS_BUMP_DATA%4: _EVNTS_WINDOWOPEN_DATA%4: _EVNTS_WINDOWCLOSE_DATA%4: _EVNTS_ICONWATCH_DATA%4: _EVNTS_MENUHELPTAG_DATA%4:!_EVNTS_CLICKSELECT_DATA%=0:!_EVNTS_CLICKADJUST_DATA%=0:!_EVNTS_CLICKMENU_DATA%=0 !_EVNTS_HELPTAG_DATA%=0:!_EVNTS_POPUPS_DATA%=0:!_EVNTS_PANES_DATA%=0:!_EVNTS_POINTERIN_DATA%=0:!_EVNTS_POINTEROUT_DATA%=0:!_EVNTS_DATASAVE_DATA%=0:!_EVNTS_REDRAW_DATA%=0:!_EVNTS_DRAG_DATA%=0:!_EVNTS_BUMP_DATA%=0:!_EVNTS_WINDOWOPEN_DATA%=0 !_EVNTS_WINDOWCLOSE_DATA%=0:!_EVNTS_SLIDERS_DATA%=0:!_EVNTS_ICONWATCH_DATA%=0:!_EVNTS_MENUHELPTAG_DATA%=0:_EVNTS_CLICKSELECT_REC_SIZE%=20:_EVNTS_CLICKADJUST_REC_SIZE%=20:_EVNTS_CLICKMENU_REC_SIZE%=24:_EVNTS_HELPTAG_REC_SIZE%=20 _EVNTS_POPUPS_REC_SIZE%=36:_EVNTS_PANES_REC_SIZE%=32:_EVNTS_POINTERIN_REC_SIZE%=20:_EVNTS_POINTEROUT_REC_SIZE%=20:_EVNTS_DATASAVE_REC_SIZE%=20:_EVNTS_REDRAW_REC_SIZE%=20:_EVNTS_DRAG_REC_SIZE%=28:_EVNTS_BUMP_REC_SIZE%=44:_EVNTS_SLIDERS_REC_SIZE%=40 _EVNTS_WINDOWOPEN_REC_SIZE%=20:_EVNTS_WINDOWCLOSE_REC_SIZE%=20:_EVNTS_ICONWATCH_REC_SIZE%=24:_EVNTS_MENUHELPTAG_REC_SIZE%=20:_EVNTS_CLICKSELECT_DATAOFFSET%=0:_EVNTS_CLICKADJUST_DATAOFFSET%=0:_EVNTS_CLICKMENU_DATAOFFSET%=0:_EVNTS_HELPTAG_DATAOFFSET%=0 _EVNTS_POPUPS_DATAOFFSET%=0:_EVNTS_PANES_DATAOFFSET%=0:_EVNTS_POINTERIN_DATAOFFSET%=0:_EVNTS_POINTEROUT_DATAOFFSET%=0:_EVNTS_DATASAVE_DATAOFFSET%=0:_EVNTS_REDRAW_DATAOFFSET%=0:_EVNTS_DRAG_DATAOFFSET%=0:_EVNTS_BUMP_DATAOFFSET%=0 _EVNTS_SLIDERS_DATAOFFSET%=0:_EVNTS_WINDOWOPEN_DATAOFFSET%=0:_EVNTS_WINDOWCLOSE_DATAOFFSET%=0:_EVNTS_ICONWATCH_DATAOFFSET%=0:_EVNTS_MENUHELPTAG_DATAOFFSET%=0:_EVNTS_LAST_MOUSEBUTTON%=0:_EVNTS_LAST_MOUSEXPOS%=0:_EVNTS_LAST_MOUSEYPOS%=0 _EVNTS_LAST_ICONCLICKED%=-1:_EVNTS_LAST_WINDOWCLICKED%=-1:_EVNTS_LAST_MENUMAKER_FN$="":NQ%=-1:oD%=-1:JE%=-1:yL%=-1:sM%=-1:kE%=-1:sE%=-1:yG%= :WK%=0:fK%=0:bI%=0:YI%=0:nK%=0:eK%=0:WL%=0:GN%=0:EO%=0:oL%=0:iM%=0:KO%=0:yD%=32:jJ%= :sR%=&64: A$(sR%-1) A$()="":=0 _shell_ExReg_Init:PP%= :IR%= :oT%= :BP%= :iL%= :YU%= :rM%= :CP%= :zQ%= _shell_Files_Init:=0 _shell_Iconbar_Init:=0 _shell_Icons_Init:PM%=5:tN%=0:OM%=0:GO%=&7FFFFFFF:HM%=&7FFFFFFF:HR%=&85:UC$="SHELLMSG12":zC$="SHELLMSG19":QC$="SHELLMSG24":FR%=0:EQ%=&F: mF%16: AA%40: zK%24:RR%= _shell_IntHelp_Init:eQ%=&83400:RU%=0:pR%=1:uT%=2:AR%= _shell_Memory_Init:XU%=0:IT%=0:CU%=0:QT%=0:=0 _shell_Menus_Init:HO%=&A:BF%=-1:eP%=-1:hR%=0:SS%=0:pI%= :_G%=-1:=0 _shell_MenuList_Init:zF%=4:CG%=-1:LB%=-1:qE%=0:=0 _shell_Messages_Init: _MESSAGES_WORK_BLK%256:_MESSAGE_QUIT=0:_MESSAGE_DATASAVE=1:_MESSAGE_DATASAVEACK=2:_MESSAGE_DATALOAD=3:_MESSAGE_DATALOADACK=4:_MESSAGE_RAMFETCH=6:_MESSAGE_RAMTRANSMIT=7:_MESSAGE_PREQUIT=8:_MESSAGE_PALETTECHANGE=9 _MESSAGE_SAVEDESKTOP=&A:_MESSAGE_SHUTDOWN=&E:_MESSAGE_HELP=&502:_MESSAGE_MENUWARNING=&400C0:_MESSAGE_MODECHANGE=&400C1:_MESSAGE_TASKINIT=&400C2:_MESSAGE_TASKCLOSEDOWN=&400C3:_MESSAGE_TASKNAMEIS=&400C7:_MESSAGE_DESKFONT_CHANGED=&400CF `_MESSAGE_COLOURPICKERCOLOURCHOICE=&47700:_MESSAGE_COLOURPICKERCLOSEDIALOGUEREQUEST=&47702:=0 _shell_OS_Init:XN%=256: CF%XN%:WU%= jA("UtilityModule",3.1):=0 _shell_Pointer_Init:fR%=20: DH%4: DL%4:!DH%=0:!DL%=0:wR%=0:hQ%=20: VH%4: YJ%4:!VH%=0:!YJ%=0:dR%=0:yS%=36:AT%=2:jN%= :oC$="": xT%4: DE%20:=0 CB(bK%):_POLL_INTERVAL%=bK%: DB(bK%):_POLL_PREVINTERVAL%=bK%: _shell_Poll_Init: LU%256:_POLL_EARLIEST_TIME%=0:_POLL_INTERVAL%=&64:_POLL_PREVINTERVAL%=0: CB(_POLL_INTERVAL%): DB(_POLL_INTERVAL%): _POLL_EARLIEST_TIME%:_POLL_EARLIEST_TIME%+=_POLL_INTERVAL%:qF%=0:=0 _shell_PopUps_Init:=0 _shell_ProgEvnts_Init:JM%=-1:LB$="":aB$="":gB$="":zB$="":tB$="":pB$="":ZB$="":qA$="":=0 _shell_Sliders_Init:jL%=-1:aI%= :rI%=-1:kN%=-1:gM%=-1:aD%=-1:rE%=-1:EB$="":_Q%=-1: WB%50: UA%50: GH%20: MP%50:=0 _shell_Sprites_Init:fN%=16:DT%=9:vT%=&A:GT%=40:XT%=54:SD$="Either a sprite name or a pointer to a sprite must be given":=0 _shell_Strings_Init:=0 _shell_StaticList_Init:dB%=0:=0 _shell_WindowList_Init:=0 _shell_Windows_Init: XB%36: tK%88: vK%20: nF%20: kU%52:tS%=-1:ZU%=-1:=0 e%:e%= _shell_Bumpers_Init:e%= _shell_CaretMove_Init:e%= _shell_DataLoad_Init:e%= _shell_DataSave_Init:e%= _shell_Debug_Init:e%= _shell_Errors_Init:e%= _shell_Evnts_Init:e%= _shell_ExReg_Init:e%= _shell_Files_Init:e%= _shell_Iconbar_Init _shell_Icons_Init:e%= _shell_IntHelp_Init:e%= _shell_Memory_Init:e%= _shell_Menus_Init:e%= _shell_MenuList_Init:e%= _shell_Messages_Init:e%= _shell_OS_Init:e%= _shell_Pointer_Init:e%= _shell_Poll_Init:e%= _shell_PopUps_Init _shell_ProgEvnts_Init:e%= _shell_Sliders_Init:e%= _shell_Sprites_Init:e%= _shell_Strings_Init:e%= _shell_StaticList_Init:e%= _shell_WindowList_Init:e%= _shell_Windows_Init: hG:_MSE_SELECTBUT=4:_MSE_MENUBUT=2:_MSE_ADJUSTBUT=1:_EVENT_NULL=0:_EVENT_REDRAWWIN=1:_EVENT_OPENWIN=2:_EVENT_CLOSEWIN=3:_EVENT_PTRLEAVING=4:_EVENT_PTRENTERING=5:_EVNT_MSECLICK=6:_EVNT_DRAGEND=7:_POPUP_TYPE_TEXT=0:_POPUP_TYPE_WIMPCOLOUR=1 _POPUP_TYPE_DATEPICK=2:_POPUP_TYPE_CALCULATOR=3:_POPUP_TYPE_FONTPICK=4:_POPUP_TYPE_LINEFONT=5:_POPUP_TYPE_FONTMENU=6:_POPUP_TYPE_TIMEPICK=7:_POPUP_TYPE_COLOUR24=8:_IBAR_RIGHT%=-1:_IBAR_LEFT%=-2:_BUTTON_TYPE_NEVER=0:_BUTTON_TYPE_CLICK=3 _BUTTON_TYPE_MENU=9: B(wI%): _heap_code%+4,mA%,wI%:=mA% jB(bH%,uL%,LD%): I%,wH%,XK%:wH%=uL% 4:XK%=uL% wH%>0 (wH%*4) 4:bH%!(I%-1)=LD%: XK%>0 .bH%=bH%+(wH%*4): XK%-1:bH%?I%=LD%: DB(lA$,I): pA$,D,cQ%,p%: &20023,lA$,CF%,XN%,0,-3*(I=-1) ,,D,cQ%: D-1:pA$=pA$+ (CF%?p%): p%:=pA$ yA(w$): w$,"."):w$= w$,".")+1): vA(aF%): 29,6,!(_heap_code%+28),aF% ,,,E:=E q(mA%): mA%<&8000 99,"No heapblock defined at this address" vA(mA%): aF%): q(aF%) _heap_code%+8,aF% aF%=0: d%,ZD%,I$,s%:d%= B(256): ("Set RO3$Check Y"): ("RMEnsure UtilityModule 3.00 Set RO3$Check N"): 35,"RO3$Check",d%,256,0,0 ,,ZD%:d%?ZD%=&D: ("Unset RO3$Check"):I$=$d%: B(d%): I$="N" WE:AR%= vB%,p%,g%,z$: H$,L$,xG%: pE:_poll_called%=0: hG:_SHELL_SENDDATALOAD_MY_REF%=0:_SHELL_SENDDATALOAD_FILE$="": _U%360,_shell_blk%260:_Q%= B(&BB8):vB%= B(48):vB%!0=0:vB%!4=0:vB%!8=0:vB%!&C=0:vB%!16=0:vB%!20=0:vB%!24=0:vB%!28=0:vB%!32=0:vB%!36=0 vB%!40=0:vB%!44=0:_U%!0=0:_U%!4=0:_U%!8=0:_U%!&C=vB%:_U%!16=1:_U%!20=0:_U%!44=-1:_U%!48=0:_U%!52=0:_U%!56=0:_U%!60=0:_U%!64=0:_U%!68=0:_U%!72=0:_U%!76= B(256):_U%!80=0:_U%!84=-1:_U%!88=0:_U%!92=0:_U%!96=0:_U%!&64=0:_U%!&6C=-1:_U%!&70=-1:_U%!&74=-1 _U%!&78=-1:_U%!&7C=-1:_U%!&80=0:_U%!&84=0:_U%!&88=-1:_U%!&8C=-1:_U%!&90=-1:_U%!&94=0:_U%!&98=0:_U%!&9C=0:_U%!&B0=0:_U%!&B4=0:_U%!&B8=0:_U%!&BC=0:_U%!&C0=0:_U%!&C4=0:_U%!&C8=0:_U%!&CC=0:_U%!&D0=-1:_U%!&D4=-1:_U%!&D8=0:_U%!&DC=0:_U%!&E0=0:_U%!&E4=0 _U%!&E8= B(256):_U%!&EC= B(256):_U%!&F0=-1:_U%!&F4=0:_U%!&FC=0:_U%!256=0:_U%!260=1:_U%!264=0:_U%!268=0:_U%!272=0:_U%!276=0:_U%!280=0:_U%!284=0:_U%!304=0:_U%!308=0:_U%!316=0:_U%!324=0:_U%!336=0:_U%!340=0:_U%!344=0: jB(_U%!&E8,256,0): jB(_U%!&EC,256,0) DB("Obey$Dir",1):L$= yA(H$),2):_U%!&BC= H$)+1):_U%!&C4= L$)+1):g%=_U%!&BC:$g%=H$:g%=_U%!&C4:$g%=L$:g%= jA("WimpExtension",1.98): _U%!&64=_U%!&64 I&g%= _U%!&64=_U%!&64 1<<&A WE:xG%=&64: CB(xG%): DB(xG%): _POLL_EARLIEST_TIME%:_POLL_EARLIEST_TIME%+=xG%:z$= UB(1): z$<>"" V9_U%!&64=_U%!&64 1<<5:g%= z$+1):$(g%)=z$:_U%!324=g% dC:FB$="convfile":GB$="WVFORMAT":MB$="WVDATA":IB$="WVCALDATA":QQ%=&FFD:mC$="_ConvFile_LoadFile":fA$="":bO%=-1:CM%=-1:sI%= YC:y%=-1:jT%= :dJ%= :VA$="":wJ%= _shell_VBFile_Init:VM%=&C8:CR%=&C8:qM%=&64:xH%=32:yH%=48:UT%=1:MQ%=0: YC:=0 _shell_Menu_TID_Init:VB$="TIDTitle":fG%=-1:fE%=fG%:FC$="TID_Menu":=0 fC:_c_Menu_Main_NotCreated%=-1:jE%=_c_Menu_Main_NotCreated%:VC$="Main_Menu":_N%=0:TS%=0:KR%=0:QU%=0:iN%=0:DM%=0:PR%=0:VT%=0:IM%=0:yN%=-1:jP%=0:hN%=0:UL%=0:bR%=0:kR%=0:yP%=0:RL%=0:SL%=0:aN%=0:ZL%=0:=0 yC:_c_Menu_IBar_NotCreated%=-1:aL%=_c_Menu_IBar_NotCreated%:tC$="IconBar_Menu":WC$="VideoBase":bL%=0:tR%=0:JP%=0:KP%=0:=0 _shell_Menu_Cats_Init:lC$="cats":XG%=-1:SF%=XG%:pC$="Category_Menu":AC$="VideoBaseRes:Cats":=0 _shell_Menu_Chan_Init:_c_Menu_Chan_MessTag_Title$="channels":_c_Menu_Chan_MenuNotCreated%=-1:_c_Menu_Chan_FileName$=".UserData.Channels":aE%=_c_Menu_Chan_MenuNotCreated%:fB$="Channels_Menu":=0 _shell_Menu_Title_Init:_c_Menu_Title_MessTag_Title$="titles":_c_Menu_Title_MenuNotCreated%=-1:_c_Menu_Title_FileName$=".UserData.Titles":ZG%=_c_Menu_Title_MenuNotCreated%:hC$="Titles_Menu":=0 _shell_Menu_TLen_Init:_c_Menu_TLen_MessTag_Title$="atlen":_c_Menu_TLen_NotCreated%=-1:_c_Menu_TLen_FileName$=".UserData.TapeLngts":_c_Menu_TLen_Default_Len$="E240":_c_Menu_TLen_WritableValidation$="AE0-9" |_c_Menu_TLen_WritableStateOn%=1:_c_Menu_TLen_WritableBufferLen%=20:cE%=_c_Menu_TLen_NotCreated%:nC$="TapeLength_Menu":=0 _shell_Menu_TFmat_Init:LC$="atfmt":kG%=-1:wA$=".UserData.TapeFmts":fF%=kG%:JC$="TapeFormat_Menu":=0 _shell_Menu_TMake_Init:_c_Menu_TMake_MessTag_Title$="atmake":_c_Menu_TMake_FileName$=".UserData.TapeMakes":_c_Menu_TMake_NotCreated%=-1:gF%=_c_Menu_TMake_NotCreated%:kC$="TapeMake_Menu":=0 _shell_Menu_HMDis_Init:RH%=-1:KG%=RH%:pO%= _shell_Idx_Recs_Init:_c_Idx_Recs_ListTerminator%=-1:_c_Idx_Recs_ClaimSize%=&C8:_c_Idx_Recs_UnusedSlots%=0:tU%=0:=0 _shell_Idx_Sel_Init:_c_Idx_Sel_ListTerminator%=-1:=0 _shell_Idx_Tapes_Init:_c_Idx_Tape_ListTerminator%=-1:XI%= _shell_Idx_Gaps_Init:_c_Idx_Gaps_ListTerminator%=-1:=0 QC:_B$="mainw":KD$="mw":CD%=-1:QR%=&F:uP%=8:DR%=&66:eR%=&BE:GJ%=&F0:IU%=860:kS%=38:PC%=32:SA%=CD%:HF%=0:cJ%=0:LG%=0:lH%=-1:OF%=-1:hM%= :mM%=0:zM%= :YG%= _shell_Win_MWPane_Init:_c_WinMWPane_TemplateName$="mainwp":_c_WinMWPane_TapeID_Icon%=1:_c_WinMWPane_TNrInc_Icon%=3:_c_WinMWPane_TNrDec_Icon%=4:_c_WinMWPane_Save_Icon%=6:_c_WinMWPane_AddTape_Icon%=7:_c_WinMWPane_DelTape_Icon%=8 _c_WinMWPane_NewRec_Icon%=9:_c_WinMWPane_Select_Icon%=&A:_c_WinMWPane_Report_Icon%=&B:_c_WinMWPane_TMake_Icon%=19:_c_WinMWPane_TMakeM_Icon%=21:_c_WinMWPane_TLen_Icon%=24:_c_WinMWPane_TLenM_Icon%=26:_c_WinMWPane_Renum_Icon%=&C _c_WinMWPane_IHelp_Icon%=20:_c_WinMWPane_Subject_Icon%=17:_c_WinMWPane_Notes_Icon%=27:_c_WinMWPane_HelpTag_Win$="mwp":_c_WinMWPane_NotCreated%=-1:_c_WinMWPane_PanePos%=2:_c_WinMWPane_XPos%=0:_c_WinMWPane_YPos%=0:u%=_c_WinMWPane_NotCreated%:dG%=0:xQ%=0 rN%=0:=0 U(uN%,wI%): _heap_code%+&C,uN%,wI%:=uN% gA(x%): z%,t%:z%=-1:t%=0: dB%<>0 dB%!t%<>-1: dB%!t%=x% z%=t% :t%+=4: TA(a%): -1,-2:i%= _U%!20:i%= gA(a%)>-1 bA(P$,LA$,oA$): o%,L%,DA$,oG%,ZE%: P$,8)="SHELLMSG" oG%=_U%!284:ZE%=_U%!280 oG%=_U%!64:ZE%=_U%!68 &61502,ZE%,P$,oG%,256,LA$,oA$ ,,,L%;o%: oG%?L%=&D:DA$=$(oG%) :=DA$ A(P$):= bA(P$,"","") Y(hB$,dF%,eF%,uG%,t$,l%,n$,o$): YB%,b%,g%,fB%,MB%,MJ%:MJ%= _U%!60=0 _U%!60= B(24):b%=0:_U%!&B4=1 b%=_U%!&B4*24:_U%!60= U(_U%!60,24):_U%!&B4=(_U%!&B4)+1 :YB%=_U%!60: "F1":MB%=385 "F2":MB%=386 "F3":MB%=387 "F4":MB%=388 "F5":MB%=389 "F6":MB%=390 "F7":MB%=391 "F8":MB%=392 "F9":MB%=393 "F10":MB%=458 "F11":MB%=459 MB%=( hB$)-64:MJ%= MB%+=16 MB%+=32 :g%=YB%+b%:g%!0=MB%:g%?4=dF%:g%?5=eF%:g%?6=uG%:g%!8= t$+1):fB%=g%!8:$fB%=t$: TA(l%)= A("SHELLMSG09") :g%!&C=l%:g%!16= n$+1):fB%=g%!16:$fB%=n$:g%!20= o$+1):fB%=g%!20:$fB%=o$: nC:_c_WinSave_TemplateName$="xfer_send":_c_WinSave_DefaultFileName$="VBFile":_c_WinSave_NotCreated%=-1:_c_WinSave_MessTag_Save$="save":_c_WinSave_MessTag_Cancel$="cancel":_c_WinSave_MessTag_Win$="savewin":_c_WinSave_OK_Icon%=0 _c_WinSave_FileName_Icon%=2:_c_WinSave_FileIcon_Icon%=3:_c_WinSave_Cancel_Icon%=4:_c_WinSave_NoIcon%=-1:_c_WinSave_FileType%=836:ET%=_c_WinSave_NotCreated%:JT%=0:uU%=0: Y("F3", ,_c_WinSave_TemplateName$,0,"_PreOpen_Xfer",""):=0 MC:HH%=-1:vL%= :IP%= :nB%=HH%:=0 XC:DG%=-1:oI%= :wB%=DG%:qI%= YC:kM%=-1:BN%= :ZC%=kM%:=0 _shell_Win_ERec_Init:_c_Win_ERec_WindowNotCreated%=-1:RJ%= :pA%=_c_Win_ERec_WindowNotCreated%:gJ%= aC:MG%=-1:sC$="newtape":eU%=17:CK%=7:uS%=22:dQ%=21:gT%=25:pT%=24:tM%=&B:dT%=9:cS%=&F:hP%=18:PU%=16:iK%=&E:eN%=8:sU%=&A:aS%=0:qS%=19:SR%=27:FO%=2:iR%=1:JD$="A":bT%= :NB%=MG%:yA$="":=0 _shell_Win_PInfo_Init:_c_PInfo_MessTag_Prog$="progInfo0":_c_PInfo_MessTag_Purpose$="progInfo1":_c_PInfo_MessTag_Author$="progInfo2":_c_PInfo_MessTag_Version$="progInfo3":=0 IC:_c_WinIBar_MessTag$="iconbar":_c_WinIBar_IconSide%=-1:qT%=-1:TO%=-1:=0 FC:SI%=-1:cO%= :DD%=SI%:=0 KC:_c_WinFSp_NotCreated%=-1:QL%= :LL%= :CB%=_c_WinFSp_NotCreated%:bD%=_c_WinFSp_NotCreated%:=0 FA(TA$): 8,5,TA$ ,,,,DB%:=DB% A("wop_stsmin")) mB(JL%): :FA%!52=JL%: PC(a%,f%):AA%!0=a%:AA%!4=f%: &400CE,,AA%: ZF(a%,f%, sA%): PC(a%,f%):fA%=AA%!8:qA%=AA%!&C:rA%=AA%!16:sA%=AA%!20: g(E$): (E$)>0 (E$): E$,p%,1)>="a" E$,p%,1)<="z" E$,p%,1)= E$,p%,1)) oB(FH%,EC$): I%,I$: FH%<=0 I$="" g($FH%),";"+ g(EC$)): I$="" $(FH%+I%), $(FH%+I%)+";",";")-1) eC:=_U%!16 EG(o%,R$,v$): nA%,eB%,pC%,cD%,AC%,aC%:dD%=0:eD%=0: R$<>"" &40084,o%>>24 ,,eB%,,cD%: &40097,, (o%>>24)+R$ ,nA%,,pC%: &40088,,nA% ,nA%: &40088,,pC% ,pC%:dD%=pC%-nA%:eD%=cD%-eB% dD%=6*AC%+16* R$:eD%=32 4eD%+=2*aC% v$<>"" &2002E,296, eC,v$ ,,,AC%,aC%,,CO%;P%: &20035,CO%,4 ,,TR%:AC%=AC%<dD%dD%=AC% aC%>eD%eD%=aC% GC(x%,nA%,eB%,pC%,cD%,o%,zP%,VR%,iQ%,bC%): gH%,yA%,R$,v$,dD%,eD%:yA%= B(60):!yA%=x%:yA%!20=o%:yA%!24=zP%:yA%!28=VR%:yA%!32=iQ%:R$="":v$="": 256R$=$(yA%!24) R$=$(yA%+24) oB(yA%!28,"S") v$=$(yA%+24) EG(o%,R$,v$): pC%-nA%_c_WinMWPane_NotCreated% ZF(u%,_c_WinMWPane_Subject_Icon%,EN%,HN%,LN%,MN%):_c_WinMWPane_Subject_Icon%= HC(u%,_c_WinMWPane_Subject_Icon%, WA-8,HN%, WA+(LN%-EN%)-8,MN%) A("wop_stsdef"))): pA(BC%): FA%?3=1 FA%?3=0 d(a%,f%,AQ%,bQ%):mF%!0=a%:mF%!4=f%:mF%!8=AQ%:mF%!&C=bQ%: &600CD,,mF%: KB(oF%,pF%): d(oF%,pF%,0,&200000): x(oF%,pF%): d(oF%,pF%,&200000,&200000): K(l%,MA%,RC%): RC%=0 KB(l%,MA%) x(l%,MA%) FA%?3=1 WC(yQ%): pI%= VA%<>gD% K(VA%,xK%, FA%!36<>-1 YE:FA%!36=-1:FA%!40=-1:FA%!44=-1:FA%!48=-1: VA%<>gD% K(VA%,LI%, yB(ZB%):FA%!28=ZB%: yB(50): hC(ZB%):FA%!32=ZB%: hC(42): TB:FA%?0=1:FA%?1=1:FA%?2=0:FA%!4=1:FA%!8=8:FA%!&C=&C:FA%!16=8:FA%!20=&B:FA%!24=0: L(".Options") ("LOAD .Options "+ ~FA%): FA(".Options").Options")=52 _shell_Options_Init:BL%=56:gD%=-1:FL%= :VA%=gD%: FA%BL%: OD:=0 CD:_c_Win_RenTap_NotCreated%=-1:PO%= :WO%= :SC%=_c_Win_RenTap_NotCreated%:=0 _shell_Win_NotePa_Init:_c_Win_NotePa_NotCreated%=-1:aO%= :yR%= :rF%=_c_Win_NotePa_NotCreated%:=0 NC:xN%=-1:DO%= :dP%=xN%:=0 _shell_CalLib_Init:_m_Calendar_MonthStr$="JanFebMarAprMayJunJulAugSepOctNovDec":_m_Calendar_DayStr$="SunMonTueWedThuFriSat":_c_Calendar_MonthStrErr%=99:_c_Calendar_MonthStrLen%= (_m_Calendar_MonthStr$) _c_Calendar_MonthStrErr$="String passed to CalendarSetMonthString must be "+ (_c_Calendar_MonthStrLen%)+" characters long":_c_Calendar_MonthInvalid$="***":_c_Calendar_DayInvalid$="***":_c_Calendar_DateInvalid$="" _c_Calendar_DayStrLen%= (_m_Calendar_DayStr$):_c_Calendar_DayStrErr$="String passed to CalendarSetDayString must be "+ (_c_Calendar_DayStrLen%)+" characters long":= _shell_DatePick_Init:_c_DatePick_TodayIcon%=0:_c_DatePick_FirstIcon%=&B:_c_DatePick_LastIcon%=53:_c_DatePick_MonthIcon%=1:_c_DatePick_MonthIncIcon%=3:_c_DatePick_MonthDecIcon%=4:_c_DatePick_YearIcon%=2:_c_DatePick_YearIncIcon%=55 _c_DatePick_YearDecIcon%=54:_c_DatePick_FirstWeekDayIcon%=5:_c_DatePick_ESG%=1:_c_DatePick_Sep$=".":_c_DatePick_TemplateName$="datepicker":_m_DatePick_DBoxHandle%=-1:_m_DatePick_NotifyFN$="":_m_DatePick_WindowHandle%=-1:_m_DatePick_DisplayIcon%=-1 hQ_m_DatePick_CurrDay%=-1:_m_DatePick_CurrMonth%=-1:_m_DatePick_CurrYear%=-1:=0 YD:iL%= _shell_Fonts_Init:_c_Fonts_DeskTopFont_NotKnown%=-1:_c_Fonts_ReadDeskTopFont_Reason%=8:_c_Fonts_CurrentDeskTopFont%=_c_Fonts_DeskTopFont_NotKnown%: YD:=0 lD:rM%= _shell_ShareBan_Init: _c_ShareBan_CodeNr%4:_c_ShareBan_ErrNoTemplate$="Template file has been corrupted, exiting....":_c_ShareBan_BannerName$="sharebanner":_m_ShareBan_User$="Unregistered":_m_ShareBan_WindowHandle%=-1: lD:=0 _shell_Scrap_Init:=0 VC(hD%,WA$): gI%,IC%: gI%4:!gI%=0: BB(3.1) 2hD%=310: &400C0,hD%,&4B534154,WA$,gI% hD%,IC% hD%=&C8: &400C0,hD%,&4B534154,WA$ hD%,IC% _U%!&64 "WimpExt_Initialise",&E,IC% :_U%!&94=IC%:=IC% iC(hD%,WA$): IC%:IC%= VC(hD%,WA$): &81682,IC%:=IC% g%:g%=_U%!&BC:=$g% y(lA$): &20023,lA$,CF%,-1,0,0 e(M$, VL%): pB%,o%: 3,"Cannot open message file '"+M$+"'" &41500,,M$ o%,,pB%: VL%=0 B(pB%) 30,6,,,17+ ,,vG%:$(vG%+16)=M$: &41501,vG%,vG%+16: eA(M$): iD%,S%,T%:S%= (M$):T%= #S%+16: #S%:iD%= B(T%):!iD%=T%:iD%!4=0:iD%!8=fN%:iD%!&C=fN%: 46,521,iD%: 46,522,iD%,M$:=iD% oB%,_3d%: _U%!&64 (1<<&A) 6,&A1,&8C ,,oB%: _3d%= _3d%= _3d%= :=_3d% VE(M$, cA%,FE%,ED%,TC%: t%,zG%,eI%,xB%,sF%,o%:cA%=0:bA%=0:FE%=0:ED%=0:zA%= B(&D): &400D9,,M$: :$zA%="*": &400DB,,-1,,,,zA%,cA% ,CC%,UP%,,,,cA%: cA%<>0 CC%>ED% ED%=CC% FE%+=UP%:bA%+=1 cA%=0: &400DA:CC%=ED%+FE%: B(zA%): QB(TC%,o%,HJ%,X%): pB%,_M%,t%,zG%: &800100)=256 "pB%=HJ%!8: (HJ%!4<>-1) A_M%=HJ%!4: #X%=TC%+_M%:t%=0: :zG%= #X%:t%+=1: zG%<32:pB%+=+t% pB%=0 :=pB% XE(M$, cA%,FE%,ED%: zA%,X%,FD%,BR%: t%,zG%,eI%,xB%,sF%,o%:cA%=0:bA%=0:FE%=0:ED%=0:i%=0: L(M$) i%=-1 YA(M$)<>&FEC i%=-2 *BzA%= B(&D):X%= (M$): #X%=16: &C,4,X%,zA%,4:TC%=!zA%: TC%>0 bA%+=1:LJ%=0: &C,4,X%,zA%,4:FD%=!zA%: &C,4,X%,zA%,4:BR%=!zA%: &C,4,X%,zA%,&C:eI%= #X%=TC%+56: &C,4,X%,zA%,4:o%=!zA%: #X%=TC%+72: &C,4,X%,zA%,&C:LJ%+= QB(TC%,o%,zA%,X%): #X%=TC%+84: &C,4,X%,zA%,4:xB%=!zA%: xB%>0 sF%=0 xB%-1: #X%=TC%+88+(sF%*32)+16: &C,4,X%,zA%,4:o%=!zA%: #X%=TC%+88+(sF%*32)+20: &C,4,X%,zA%,&C:LJ%+= QB(TC%,o%,zA%,X%): #X%=eI%:FE%+=LJ%: FD%>ED% ED%=FD% TC%=0: B(zA%):CC%=ED%+FE% dE(M$, tE%:tE%= VE(M$,CC%,bA%,i%) XE(M$,CC%,bA%,i%) zA(P$,LA$,oA$):= bA(P$,LA$,oA$) s(EA$, _R%): tF%,VJ%,TL%,CC%: uF%,cA%,BH%,MA$,bA%,cL%,i%: dL%,vF%:BH%= B(&C):cA%=0:bA%=0:uF%= FA(EA$):FQ%= B(uF%):tF%=FQ%: dE(EA$,CC%,bA%,i%): iwF%= B(4+(20*bA%)):_U%!4=wF%:zL%= B(CC%):VJ%=zL%:TL%=zL%+CC%:bA%=0:vF%=4: &600D9,,EA$ ;cL%: zA("SHELLMSG34","template",EA$) :$BH%="*": &400DB,,tF%,VJ%,TL%,_U%!&E8,BH%,cA% ,,VJ%,,,MA$,cA%: cA%<>0 ]wF%!vF%=tF%:$(wF%+vF%+4)=MA$:wF%!(vF%+16)=-1:vF%+=20:dL%=(tF%!84)*32:tF%+=(88+dL%):bA%+=1 cA%=0: &400DA:_U%!0=bA% zA("SHELLMSG35","template",EA$) zA("SHELLMSG36",EA$,"template") B(BH%):_R%=0:!wF%=bA%: F(h%,CH%,qJ%, aB%): KM%,qC%,k%,qC%,FD%,rC%: !CH%<>0 B(!CH%) !qJ%<>0 B(!qJ%) KM%=1 B(eA%): &C,4,h%,k%,eA%:qC%=!k%:k%= U(k%,qC%): &C,4,h%,k%+eA%,qC%:!CH%=k%: &C,4,h%,AH%,4:FD%=!AH%: FD%>0 2rC%= B(FD%): &C,4,h%,rC%,FD%:!qJ%=rC%:aB%=FD% !CH%=0 SF(h%): F(h%,DH%,DL%,wR%): F(h%,VH%,YJ%,dR%): TF(B$): h%,k%,KA%,cC%:h%= (B$): F(h%,_EVNTS_CLICKSELECT_ANCHOR%,_EVNTS_CLICKSELECT_DATA%,_EVNTS_CLICKSELECT_DATAOFFSET%): F(h%,_EVNTS_CLICKADJUST_ANCHOR%,_EVNTS_CLICKADJUST_DATA%,_EVNTS_CLICKADJUST_DATAOFFSET%) F(h%,_EVNTS_CLICKMENU_ANCHOR%,_EVNTS_CLICKMENU_DATA%,_EVNTS_CLICKMENU_DATAOFFSET%): F(h%,_EVNTS_HELPTAG_ANCHOR%,_EVNTS_HELPTAG_DATA%,_EVNTS_HELPTAG_DATAOFFSET%): SF(h%): F(h%,_EVNTS_REDRAW_ANCHOR%,_EVNTS_REDRAW_DATA%,_EVNTS_REDRAW_DATAOFFSET%) F(h%,_EVNTS_WINDOWCLOSE_ANCHOR%,_EVNTS_WINDOWCLOSE_DATA%,_EVNTS_WINDOWCLOSE_DATAOFFSET%): F(h%,_EVNTS_PANES_ANCHOR%,_EVNTS_PANES_DATA%,_EVNTS_PANES_DATAOFFSET%): F(h%,_EVNTS_POPUPS_ANCHOR%,_EVNTS_POPUPS_DATA%,_EVNTS_POPUPS_DATAOFFSET%) F(h%,_EVNTS_SLIDERS_ANCHOR%,_EVNTS_SLIDERS_DATA%,_EVNTS_SLIDERS_DATAOFFSET%): F(h%,_EVNTS_BUMP_ANCHOR%,_EVNTS_BUMP_DATA%,_EVNTS_BUMP_DATAOFFSET%): F(h%,_EVNTS_DRAG_ANCHOR%,_EVNTS_DRAG_DATA%,_EVNTS_DRAG_DATAOFFSET%): F(h%,JI%,KK%,LP%) F(h%,_EVNTS_ICONWATCH_ANCHOR%,_EVNTS_ICONWATCH_DATA%,_EVNTS_ICONWATCH_DATAOFFSET%): F(h%,mB%,wK%,TT%): fB:=rM% b(P$,LA$):= bA(P$,LA$,"") k:=_U%!4 WA%:WA%= k:=!WA% lA(K$): b%,bA%,DC%,t%: (K$)>&B b("SHELLMSG02",K$) ;bA%= UA:DC%= k+4:t%=0:b%=-1: $(((DC%)+(20*t%))+4)=K$ b%=t%*20 :t%+=1: b%<>-1 t%>(bA%-1):=b% GB(K$): b%,NK%:b%= lA(K$): b%>=0 J%,QK%,UK%,NB$,ZD%,uE%,h%:h%= W+".User"):ZD%= #h%:uE%= #h%:_c_ShareBan_CodeNr%?0= #h%:_c_ShareBan_CodeNr%?1= #h%:_c_ShareBan_CodeNr%?2= #h%:_c_ShareBan_CodeNr%?3= #h%:NB$="":QK%=1: uE%:UK%= J%:UK%= #h%:NB$+= (UK%):QK%+=1: QK%>ZD% #h%:=NB$ F%,vE%,nS%,MC%,uF%: uE%,dN%,gN%:vE%= W+".User") W+".User"):uF%= W+".User"):F%= W+".User"):gN%= #F%:uE%= #F%:e%= #F%:e%= #F%:e%= #F%:e%= #F%:dN%=(uE%+1)*gN%+2+uE%+4: MC%<>&FFD dN%<>uF% M vE%= #F%:_m_ShareBan_User$= &3E8)<>!_c_ShareBan_CodeNr% R*_m_ShareBan_User$="Unregistered":vE%= :=vE% sA(K$): b%,EC%,DC%:b%= lA(K$): 99,K$+":"+ b%>=0 EC%=DC%!b% b("SHELLMSG03",K$) :=EC% jF(x%): b%,t%,g%: dB%=0 B(8):dB%!0=x%:dB%!4=-1 gA(x%): b%=-1 gA(0): b%=-1 Et%=0: dB%!t%<>-1:t%+=4: :dB%= U(dB%,4):g%=dB%+t%:g%!0=x%:g%!4=-1 g%=dB%+b%:g%!0=x% kC(K$,a%): mN%,WA%,c%,qK%: K$="" 99,"Bad window name passed to WindowListAddHandle" )mN%= lA(K$)+16:WA%= k+4+mN%: !WA%=-1 &!WA%= B(8):c%=!WA%:c%!0=a%:c%!4=-1 WA%!16<>-1 /OA%=!WA%:c%=0:qK%= OA%!c%<>-1: OA%!c%=0 OA%!c%=a%:qK%= :c%+=4: R!WA%= U(!WA%,4):DC%=!WA%:c%=0: DC%!c%<>-1:c%+=4: :DC%!(c%+0)=a%:DC%!(c%+4)=-1 E(K$, GE%:GE%= sA(K$):GE%!64=_U%!16: &400C1,,GE% jF(a%): kC(K$,a%): z(l%): wE%,tE%,xB%: (_U%!&64 1<<&A) l%=-1 l%=-2 1wE%= B(88):!tK%=l%: &400CC,,tK%+1:xB%=tK%!88 B(6000): $!wE%=l%: &400CC,,wE%:xB%=wE%!88 B(wE%) :=xB% _(a%):= B(&64+( z(a%)*32)) I(x%): WA%,bA%,c%,t%,NA$:bA%= UA:WA%= k+4:NA$="": -1,-2:NA$="iconbar" WA%!16<>-1 8OA%=WA%!16:c%=0: OA%!c%<>-1: OA%!c%=x% NA$=$(WA%+4) c%+=4: :t%+=1:WA%+=20: NA$<>"" t%=bA% :=NA$ E(A$,f%,m%,ZA%,gB%): HB%,c%,z%,b%,qB%,FC%: A$="IconBar" f%=-1:A$="iconbar" :b%=0: (!m%=0 1 b%=-2 A$="" 4 b%=-1 (!m%=0) :o!m%= B(ZA%+eA%):qB%=!m%:qB%!0=ZA%:qB%!4=1:$(qB%+eA%)="": p%=&C (ZA%-4) 4:qB%!(p%+eA%)=-1: p%:EE%=eA%:b%=eA% b%<>eA% HHqB%=!m%:HB%=!qB%:c%=eA%:z%= :b%=-1:gR%=-1:FC%=!m%: ($(FC%+c%)=A$) FC%!(c%+&C)=f% b%=c%:z%= c%+=ZA% c%+=ZA% ((c%>=(HB%+eA%)) (b%=-1 ekb%=HB%+eA%:!m%= U(!m%,ZA%):dC%=!m%:dC%!0+=ZA%:dC%!4+=1:dC%+=b%:$(dC%)="": p%=&C (ZA%-4) 4:dC%!p%=-1: :EE%=b% MA(K$): b%,OA%,DC%:b%= lA(K$):DC%= b%>=0 OA%=!(DC%+b%+16) b("SHELLMSG03",K$) :=OA% f(_window_handle%,GL%,yF%): b%,ZO%,GD%,yB%,ZB%: eC%,rO%,YM%: A$,m%,hA%,HA%: D$,e%,IB%,HE%,GC%,xE%: _F%,OA%,jD%,ZI%: fL%:A$= I(_window_handle%):GD%=_Q%!28:b%= E(A$,-1,_EVNTS_WINDOWOPEN_ANCHOR%,_EVNTS_WINDOWOPEN_REC_SIZE%, b%>=0 rm%=!_EVNTS_WINDOWOPEN_ANCHOR%+b%:hA%=m%!16:HA%=!_EVNTS_WINDOWOPEN_DATA%:D$=$(HA%+hA%):e%= ("FN"+D$+"("+A$+")") :eC%= :XB%!0=_window_handle%: &400CB,,XB%: (XB%!32 &80000)=&80000 &400CF,,vK%:_Q%!0=_window_handle%: &400CB,,_Q% &400C5,,_Q% :HE%= E(A$,IB%,_EVNTS_PANES_ANCHOR%,_EVNTS_PANES_REC_SIZE%, b%>=0 !_Q%!0=_window_handle%: yF%>0 GD%=yF% GD%=-1 GD%=_Q%!28 &400C5,,_Q%: &400CB,,_Q%: &400C6,,_Q% :IB%=0: E(A$,IB%,_EVNTS_PANES_ANCHOR%,_EVNTS_PANES_REC_SIZE%, )>-1:b%=EE%:m%=!_EVNTS_PANES_ANCHOR%+b%:IE%=m%!16:HA%=!_EVNTS_PANES_DATA%:e$=$(HA%+IE%):GC%=m%!20:ZI%= :xE%=m%!24:_F%=m%!28: (1<<8) :GC%=GC% (1<<8) :OA%= MA(e$):jD%=!OA%:BA%!0=jD%: ZO%=0 ZO%=BA%!0 9rO%=BA%!0: &400CB,,BA%: vK%!16=-9 vK%!16>-5 0,1:yB%=BA%!16-BA%!8:ZB%=BA%!&C-BA%!4:BA%!4=_Q%!4+xE%:BA%!&C=BA%!4+ZB%:BA%!16=_Q%!16+_F%:BA%!8=BA%!16-yB% 2:yB%=BA%!16-BA%!8:ZB%=_Q%!&C-_Q%!4:BA%!4=_Q%!4+xE%:BA%!&C=_Q%!&C:BA%!16=_Q%!16+_F%:BA%!8=BA%!16-yB% 3:yB%=_Q%!16-_Q%!8:ZB%=BA%!&C-BA%!4:BA%!4=_Q%!4+xE%:BA%!&C=BA%!4+ZB%:BA%!16=_Q%!16:BA%!8=_Q%!8+_F% 4:yB%=BA%!16-BA%!8:ZB%=_Q%!&C-_Q%!4:BA%!4=_Q%!4+xE%:BA%!&C=_Q%!&C:BA%!16=_Q%!8+yB%+_F%:BA%!8=BA%!16+yB% 5:yB%=_Q%!16-_Q%!8:ZB%=BA%!&C-BA%!4:BA%!4=_Q%!&C-ZB%+xE%:BA%!&C=BA%!4+ZB%:BA%!16=_Q%!16:BA%!8=_Q%!8 :fL%=BA%!28: IB%=0 BA%!28=GD% BA%!28=YM% &400C5,,BA% BA%!0=fL% :YM%=BA%!0:IB%+=1: _Q%!28=rO%: &400C5,,_Q% _Q%!0=_window_handle%: &400CB,,_Q% GD%=-2 _Q%!28=-2 yF%=-1 _Q%!28=-1 &400C5,,_Q% P(x%): TA(x%)= f(x%,0,-1) LA(l%,UC%,VC%): e%,yE%:yE%= B(20):_U%!20=l%: &400CF,,yE%: &400D4,,l%,yE%!0+UC%,yE%!4+VC%: B(yE%): g(aA%): B(aA%): MA(l%,uA%,vA%): AM%,BM%,b%,d%:d%= _(l%):d%!0=l%: &400CC,,d%:AM%=d%!&C-d%!4:BM%=d%!16-d%!8:d%!4=uA%:d%!8=vA%:d%!&C=uA%+AM%:d%!16=vA%+BM%: &400C5,,d%: &400C6,,d%: TA(l%) P(l%) LA(l%,0,0) g(d%): lC(EA%): jA%,IH%,JH%,ZB%,yB%,BG%,KE%: &20035,-1,4 ,,BG%: &20035,-1,5 ,,KE%: &20035,-1,&B ,,IH%: &20035,-1,&C ,,JH%:IH%=IH%<0 z$=$(_U%!324) L(MC%,MA$): zB%:zB%= B(256):zB%!0=256:zB%!4=0:zB%!&C=0:zB%!16=5:zB%!20=0:zB%!28=0:zB%!32=0:zB%!36=0:zB%!40=MC%:$(zB%+44)=MA$+ &400E7,18,zB%,0:_SHELL_SENDDATALOAD_MY_REF%=zB%!8:_SHELL_SENDDATALOAD_FILE$=MA$: B(zB%): b%,k%,KA%,cC%:b%= E("iconbar",aM%,mB%,fD%, b%>-1 FA$<>"" -1 B(LB%):LB%=-1:qE%=0 WB:LB%= B(8):LB%!4=CG%: cD(_%,f$): c%,hB%: LB%=-1 U(LB%,4) :c%=qE%*4:LB%!c%= B(zF%+ (f$)+1):hB%=LB%!c%:hB%!0=_%:$(hB%+zF%)=f$:qE%+=1:LB%!(qE%*4)=CG%: t(J$,f$,dI%): dI%"" &45BC2,x%,wB$,U$ &45BC2,x%,wB$ :=rB% NA(ME%,t$,TB$,UB$): d%,g%,mA%: GB(t$) b("SHELLMSG03",t$) B(&C):d%!0= t$+1):g%=d%!0:$g%=t$:d%!4= TB$+1):g%=d%!4:$g%=TB$:d%!8= UB$+1):g%=d%!8:$g%=UB$: &45BCE,ME%,d%: &45BCC,, iD:aL%= t(WC$,tC$,0):bL%= A("Info"),""):tR%= A("Help"),"_MenuSelect_Help"):JP%= A("Options"),"_Options_MenuSelect"):KP%= A("Quit"),"_MenuSelect_Quit"): NA(bL%,"progInfo","_PreOpenInfo",""): iD:_%=aL%: G(PC$): _ERRNR_NONFATAL,PC$ tB(_%): c%,f$,hB%: LB%<>-1 ,c%=0: LB%!c%<>CG%:hB%=LB%!c%: hB%!0=_% f$=$(hB%+zF%) :c%+=4: Z(l%,MA%,lD%): lD%=&C lD%=&D b("SHELLMSG23","PROCshell_IconSetButtonType") lD%<0 lD%>&F b("SHELLMSG22","PROCshell_IconSetButtonType") d(l%,MA%,lD%<<&C,&F000): Q(iA%,mD%, aB%,T$): !iA%=-1 >!iA%=aB%:!mD%= U(!mD%, (T$)+1):$(!mD%+aB%)=T$:aB%+= (T$)+1 mA$=$(!mD%+!iA%): mA$<>T$ (T$)<= (mA$) $(!mD%+!iA%)=T$ !mD%= U(!mD%, (T$)+1):$(!mD%+aB%)=T$:!iA%=aB%:aB%+= (T$)+1 oB(A$,nD%,tA%,_%,S$,g$,AF%): b%,k%,b$:b%= E(A$,nD%,_EVNTS_POPUPS_ANCHOR%,_EVNTS_POPUPS_REC_SIZE%, ):k%=!_EVNTS_POPUPS_ANCHOR%:k%+=b%:$k%=A$:k%!&C=nD%:k%!20=tA%:k%!24=AF%: !_EVNTS_POPUPS_DATA%=0 .$!_EVNTS_POPUPS_DATA%= (b$)+1) S$<>"" 2FiA%=k%+16: Q(iA%,_EVNTS_POPUPS_DATA%,_EVNTS_POPUPS_DATAOFFSET%,S$) k%!16=-1 tB(_%): b$<>"" ;FiA%=k%+28: Q(iA%,_EVNTS_POPUPS_DATA%,_EVNTS_POPUPS_DATAOFFSET%,b$) g$<>"" !_EVNTS_POPUPS_DATA%=0 A$!_EVNTS_POPUPS_DATA%= (g$)+1) :iA%=k%+32: Q(iA%,_EVNTS_POPUPS_DATA%,_EVNTS_POPUPS_DATAOFFSET%,g$) k%!32=-1 bE(a%,f%,_%,dF%,eF%,uG%): b%,k%,A$,fI%: TA(a%)= A("SHELLMSG30")) R'A$= I(a%):b$= tB(_%): A$="iconbar" V f%=-1 f%>=0 Z(a%,f%,_BUTTON_TYPE_CLICK): oB(A$,f%,-1,_%,"","",_POPUP_TYPE_TEXT) E(A$,f%,_EVNTS_CLICKMENU_ANCHOR%,_EVNTS_CLICKMENU_REC_SIZE%, b%>=0 a fI%= E(A$,f%,_EVNTS_CLICKMENU_ANCHOR%,_EVNTS_CLICKMENU_REC_SIZE%, ):k%=!_EVNTS_CLICKMENU_ANCHOR%:k%+=b%:$k%=A$:k%!&C=f%: !_EVNTS_CLICKMENU_DATA%=0 m!!_EVNTS_CLICKMENU_DATA%= :iA%=k%+16: Q(iA%,_EVNTS_CLICKMENU_DATA%,_EVNTS_CLICKMENU_DATAOFFSET%,b$): tLiA%=k%+20: Q(iA%,_EVNTS_CLICKMENU_DATA%,_EVNTS_CLICKMENU_DATAOFFSET%,"") hE(a%,f%): d(a%,f%,0,0): mC(a%,f%,YA$): MH%,hI%,iI%,jI%:AA%!0=a%:AA%!4=f%: &400CE,,AA%: (AA%!24 (1<<1)) hI%= (AA%!24 iI%= (AA%!24 (1<<8)) jI%= AA%!24 $(AA%!32)="S"+YA$ $(AA%!28)=YA$:AA%!36= (YA$) :MH%=f% &400C4,,AA%:AA%!4=AA%!8:AA%!8=AA%!&C:AA%!&C=AA%!16:AA%!16=AA%!20:AA%!20=AA%!24:$(AA%+24)=YA$: &400C2,,AA% hE(a%,MH%):=MH% vC(cA%,dB$,R$,ZB%,sC%,dF%,eF%,uG%): x%,aA%,kI%,lI%:aA%= B(36): kI%20: lI%20:!aA%=cA%:aA%!4=0:aA%!&C=96: R$<>"" /aA%!&C=ZB%:aA%!8=-16:aA%!16=92:aA%!32= aA%!8=0:aA%!16=70:aA%!32=&C :aA%!20=&1700310B:aA%!24=kI%:aA%!28=lI%:$kI%=R$:$lI%=dB$: &400C2,,aA% bE(-2,x%,sC%,dF%,eF%,uG%): B(aA%):= mC(cA%,x%,dB$) BF(oS%,f%): mI%,nI%,_%,nA$: oD (_%):TO%= vC(_c_WinIBar_IconSide%,"!"+ O,"",&78,_%,0,0,0): BF(_c_WinIBar_IconSide%,TO%): g%:g%=_U%!&C0:=$g% AA:=dJ% l:=y%!28 NH%,sB%:NH%= NH%<>-1 sB%= :=sB% u(mA%):y%!28=mA%: u(-1) G:=y%!40 PA%,sB%:PA%= PA%<>-1 D sB%= :=sB% PA(mA%):y%!40=mA%: PA(-1) q%,kA%: &406C0:q%= G:kA%=0: q%!kA%<>_c_Idx_Recs_ListTerminator%:kA%+=4: &406C1 c:=y%!88 WC%,sB%:WC%= WC%<>-1 s sB%= :=sB% QA(mA%):y%!88=mA%: h:y%!84=0:y%!88=-1: QA(-1): y%<>-1 h:=_EVNTS_LAST_WINDOWCLICKED% jG(HD%,ID%): b%:b%= gA(HD%):dB%!b%=ID%: fC(HD%,ID%): WA%,bA%,I%,c%:bA%= UA:WA%= WA%!16<>-1 7OA%=WA%!16:c%=0: OA%!c%<>-1: OA%!c%=HD% OA%!c%=ID% c%+=4: :WA%+=20: w(HD%,ID%): ID%<>HD% h=HD% _EVNTS_LAST_WINDOWCLICKED%=ID% !_Q%=HD% !_Q%=ID% jG(HD%,ID%): fC(HD%,ID%) BB%,C$): g%,IA%,x%,EM%:IA%= _(BB%):IA%!0=BB%: &400CC,,IA%: ((IA%!60) 256)=0 Dg%=IA%+76:$g%= C$,&B): &400C3,,IA%: &400C1,,IA%+4 x%<>BB% w(BB%,x%):BB%=x% EM%=IA%!84:$(!(IA%+76))= C$,EM%-1): ((IA%!32) (1<<16))<>0 &400D1,-1,IA%!4,IA%!16,IA%!&C,IA%!16+44 g(IA%) _WinSave_GetDefaultFileName:=_c_WinSave_DefaultFileName$ SA%<>CD% i(SA%, _WinSave_GetDefaultFileName) jB(a%,f%): fC%,BB%,i%: &400D3,,zK%:BB%=zK%!0:fC%=zK%!4: (fC%=f% BB%=a%) C(l%,MA%,RC%): RC%<>0 RC%=1<<22 d(l%,MA%,RC%,1<<22): RC%<>0 jB(l%,MA%) &400D2,-1 u%<>_c_WinMWPane_NotCreated% C(u%,_c_WinMWPane_TNrInc_Icon%, C(u%,_c_WinMWPane_TNrDec_Icon%, C(u%,_c_WinMWPane_DelTape_Icon%, C(u%,_c_WinMWPane_Save_Icon%, C(u%,_c_WinMWPane_TapeID_Icon%, C(u%,_c_WinMWPane_NewRec_Icon%, C(u%,_c_WinMWPane_Select_Icon%, C(u%,_c_WinMWPane_Report_Icon%, C(u%,_c_WinMWPane_TMake_Icon%, C(u%,_c_WinMWPane_TMakeM_Icon%, C(u%,_c_WinMWPane_Renum_Icon%, C(u%,_c_WinMWPane_TLen_Icon%, C(u%,_c_WinMWPane_TLenM_Icon%, C(u%,_c_WinMWPane_Notes_Icon%, C(a%,f%): a%<-2 _U%!&64 "WimpExt_GetIcon",,,a%,f% ,,,I$ AA%!0=a%:AA%!4=f%: &400CE,,AA%: (AA%!24 (1<<8))<>0 I$=$(AA%!28) I$=$(AA%+28) mB(a%,RP%): A$,b%,IB%,HE%,OH%,e$: OA%,IE%,m%,HA%,jD%: GC%:IB%=0:OH%=0:HE%= I(a%):b%= E(A$,IB%,_EVNTS_PANES_ANCHOR%,_EVNTS_PANES_REC_SIZE%, b%>=0 E(A$,IB%,_EVNTS_PANES_ANCHOR%,_EVNTS_PANES_REC_SIZE%, )>-1:b%=EE%:m%=!_EVNTS_PANES_ANCHOR%+b%:GC%=m%!20: GC%=RP% JrIE%=m%!16:GC%=m%!20:HA%=!_EVNTS_PANES_DATA%:e$=$(HA%+IE%):OA%= MA(e$):jD%=!OA%:BA%!0=jD%: &400CB,,BA%: OH%=0 OH%=BA%!16-BA%!8 :IB%+=1: :=OH% KB(a%):= mB(a%,4) LB(a%):= mB(a%,2) NB(a%): o%:XB%!0=a%: &400CB,,XB%:o%=XB%!32:=o% BA(a%): i%:i%= NB(a%) 1<<16) a%=-1 a%=-2 V(a%,tI%,uI%): QA%:QA%= B(36):!QA%=a%: &400CB,,QA%:QA%!20+=tI%:QA%!24+=uI%: BA(a%) &400C5,,QA% &400C5,,QA%: &400C6,,QA% B(QA%): W(a%,f%): tC%,JD%,QM%: RM%,SM%,TM%: xI%,yI%,zI%,_I%: AJ%,BJ%: WM%,XM%: CJ%,DJ%: EJ%,FJ%: f%>=0 B(36):JD%= B(40):!tC%=a%: &400CB,,tC%:QM%=tC%!4:RM%=tC%!8:SM%=tC%!&C:TM%=tC%!16:AJ%=tC%!20:BJ%=tC%!24:XM%=SM%-QM%:WM%=TM%-RM%:JD%!0=a%:JD%!4=f%: &400CE,,JD%:xI%=JD%!8:yI%=JD%!&C:zI%=JD%!16:_I%=JD%!20:CJ%=AJ%:FJ%=BJ%:EJ%=AJ%+XM%:DJ%=BJ%-WM% /NE%= KB(a%)+8:EF%= LB(a%)+8: yI%<(DJ%+NE%) V(a%,0,yI%-DJ%-NE%) _I%>(FJ%-EF%-NE%) V(a%,0,_I%-FJ%+EF%+NE%+&C) zI%>EJ% V(a%,zI%-EJ%,0) xI%mB$ :AA%!0=BB%:AA%!4=fC%: &400CE,,AA%: (AA%!24 (1<<8))<>0 T$>AA%!36 A(UC$) :$(AA%!28)=T$ $(AA%+28)= T$,&B) jB(BB%,fC%) hD(BB%,fC%,-1,-1,-1, (T$)) "AA%!8=0:AA%!&C=0: &400CD,,AA% u%<>_c_WinMWPane_NotCreated% A(u%,_c_WinMWPane_TapeID_Icon%,"", PH%,XA%: PH%= A("filemod"), O,""): XA%=2 PH%= v:y%= B(VM%):$y%="VBaseData ":y%!&C=0:y%!16=0:y%!20=-1:y%!24=0:y%!28=-1:y%!32=-1:y%!36=-1:y%!40=-1:y%!44=qM%:y%!48=CR%:y%!52=0:y%!56=qM%:y%!60=0:y%!64=0:y%!68=0:y%!72=0:y%!76=0:y%!80=0:y%!84=0:y%!88=-1: bD(OA$): OA$<>"" qA$=OA$ dB:qF%=qF% AC(GA$): L("."+GA$) ("Wipe ."+GA$+" ~CFR~V") zD:AG%= :DF%= cA%,ZA$: &606C2: <>_ERRNR_NONFATAL <>_ERRNR_CLAIMMEM 1<<31) BB(3) L("Resources:$.Resources.Edit.ThrowBack") ("Set Basic$File <"+ O+"$BasicFile>"): "Edit:ThrowBack" BB("Unexpected error:- "+ $+" (Internal error code "+ +")") $:cA%= $,"in "+ 34+"EvntShell:ShellLib"): cA%>0 $,cA%-1) o1ZA$+=" (Internal error code "+ +")": BB(ZA$) WC:=BP% ZA:=LL% _decode_dis_fsp(a$): (a$)*60+ a$,2)) :=OE% OB(a%,QH%): AN%,FF%,CN%,FN%:FF%= B(8):AN%=(QH%<<16)+(1<<21):FN%=(31<<16)+(1<<21): &400D6,a%,FF%,FN%,AN%:CN%=!FF%: B(FF%):=CN% OB(CB%,bP%) fD:=IJ% DC:=JJ% AE(DB%):IJ%=DB%: cE(BQ%):JJ%=BQ%: uE(GF%):KJ%=GF%: v:=y%!24 J(CA%): l$,o%:o%=CA%?8: 1<<1) l$="L" l$="S" F(CA%):=CA%!24 n%,lA%,pS%,gC%,h$,I%,QE%: EG%,XC%,iB%: HC%:QE%= QE%>0 xEG%= _decode_dis_fsp( C(CB%,uC%)):XC%= u:gC%= l:RE%=0: QE%-1:n%=gC%!(I%*4):h$= J(n%):HC%= F(n%): h$="L" u=SH% HC%=HC%/2 h$="S" u=TH% HC%=HC%*2 HC%>=EG% RE%+=1 :=RE% TA(BB%,GR%,MR%,NR%,OR%,UH%): FG%:FG%= _(BB%):nF%!0=GR%:nF%!4=MR%:nF%!8=NR%:nF%!&C=OR%: &400D7,BB%,nF%: )FG%!0=BB%: &400CC,,FG%: &400C5,,FG% g(FG%): EB(a%,tI%,uI%): QA%:QA%= B(36):!QA%=a%: &400CB,,QA%:QA%!20=tI%:QA%!24=uI%: BA(a%) &400C5,,QA% &400C5,,QA%: &400C6,,QA% B(QA%): &400D1,bD%,0,-&2710,GG%,0: #NJ%= ((OJ%+(HG%*NJ%))>PJ%) TA(bD%,0,-(OJ%+(HG%*NJ%)),GG%,0, TA(bD%,0,-PJ%,GG%,0, EB(bD%,0,0): QJ%,XC%,OO%,QO%: -TQJ%= _decode_dis_fsp( C(CB%,uC%)):XC%= u:OO%= fD:QO%= (QJ%<>OO%) (XC%<>QO%) AE(QJ%): cE(XC%): uE(1): VB:=aI% FB(SE%,_value%): k%,k%,VO%,YO%,tA%: OA%,rA$,v%,JU%,KU%: TU%,bU%,cU%,e%,rA$: S$,hC%,WH%,SJ%: SE%<0 Nsk%=!_EVNTS_SLIDERS_ANCHOR%:k%+=SE%:VO%=k%!&C:YO%=k%!16:tA%=k%!20:WH%=k%!36:rA$=$k%:OA%= MA(rA$):a%=!OA%: a%<=0 a%=OA%!4 :WB%!0=a%:WB%!4=YO%: &400CE,,WB%:UJ%=WB%!16:XH%=WB%!8:YH%=WB%!&C:WJ%=WB%!20:SJ%= (YH%)- (WJ%):TJ%=UJ%-XH%:WB%!4=VO%: &400CE,,WB%: &400C4,,WB%:WB%!4=a%: _value%>&64 _value%=&64 _value%<=0 _value%=0: TJ%>SJ% WB%!16=WB%!8 WB%!20=WB%!&C TJ%>SJ% z6WB%!16=XH%+(UJ%*(_value%/&64))-(XH%*(_value%/&64)) WB%!20=YH%+(WJ%*(_value%/&64))-(YH%*(_value%/&64)) :k%!36=_value%: &400C2,,WB%+4: &400D1,a%,XH%,YH%,UJ%,WJ%:hC%=!_EVNTS_SLIDERS_DATA%: hC%>0 S$=$(hC%+k%!32) S$<>"" ("FN"+S$+"("+ _value%+")") tA%>=0 A(a%,tA%, (_value%), a%,IG%,uA%,d%,e%,ZH%,vA%: &400CF,,GH%:a%=GH%!&C:IG%=!GH%:ZH%=GH%!4: IG%<>rI% ZH%<>kN% ~rI%=IG%:kN%=ZH%:d%=MP%:!d%=a%: &400CB,,d%:uA%=IG%-d%!4:vA%=ZH%-d%!16:d%!4=gM%: &400CE,,d%: &400C4,,d%:d%!4=a%: aD%>rE% pd%!16=uA%: &400C2,,d%+4: &400D1,a%,d%!8,d%!&C,d%!8+aD%,d%!20:_value%=((uA%-d%!8)*&64)/aD%: FB(jL%,_value%) d%!20=vA%: &400C2,,d%+4: &400D1,a%,d%!8,d%!&C,d%!8+aD%,d%!20+rE%:_value%=((vA%-d%!&C)*&64)/rE% EB$<>"" ("FN"+EB$+"("+ _value%+")") :rI%=IG% hB:=eA% m%,ZA%,aH%,c%,p%,f%,A$,fT%: OA%,a%,aA$,xB$,D$,hA%: HA%,iA%:m%=!_EVNTS_ICONWATCH_ANCHOR%:ZA%=_EVNTS_ICONWATCH_REC_SIZE%:aH%=m%!4: c%=eA%: aH%:A$=$(m%+c%):f%=m%!(c%+&C):hA%=m%!(c%+16):HA%=!_EVNTS_ICONWATCH_DATA%:D$=$(HA%+hA%):xB$=A$( (c%- _EVNTS_ICONWATCH_REC_SIZE%):OA%= MA(A$): OA%<>-1 t%=0: :a%=OA%!t%: BA(a%)= #aA$= C(a%,f%): D$<>"" aA$<>xB$ ("FN"+D$+"( "+ (34)+aA$+ (34)+" )"):A$( (c%- _EVNTS_ICONWATCH_REC_SIZE%)=aA$ :t%+=4: OA%!t%=-1 :c%+=_EVNTS_ICONWATCH_REC_SIZE%: kC:=yG% FB%): &400CF,,DE%:jB%=DE%!0:FB%=DE%!4: &400CF,,DE%:a%=DE%!&C: SD(XL%,YL%,jB%,FB%, jC%):iC%=jB%-XL%:jC%=FB%-YL%:qD%= :rD%= :tD%= :sD%= (iC%)> (jC%) jB%>XL% tD%= FB%0 jC%<>0 $3WL%=qD%:GN%=rD%:EO%=sD%:oL%=tD%:iM%=iC%:KO%=jC% jC%):qD%=WL%:rD%=GN%:sD%=EO%:tD%=oL%:iC%=iM%:jC%=KO%: o:=kE% yE%,a%,FB%,jB%: qD%,rD%,sD%,tD%,iC%,jC%,EF%: VA(jB%,FB%): ND(a%): SD(nK%,eK%,jB%,FB%,qD%,rD%,sD%,tD%,iC%,jC%): iC%<>0 jC%<>0 nK%=jB%:eK%=FB% VD(qD%,rD%,sD%,tD%,iC%,jC%): iC%<>0 jC%<>0 jB%>(bI%-yD%) o,jB%-(bI%-yD%),0) jB%<(WK%+yD%) o,jB%-(WK%+yD%),0) :NE%= FB%<(fK%+yD%+NE%) o,0,FB%-(fK%+yD%+ :EF%= FB%>(YI%-yD%-EF%) o,0,FB%-(YI%-yD%- oC:=zQ% fD(_window_handle%,d%,nA%,eB%): A$,b%,D$,m%,HA%,e%:A$= I(_window_handle%):b%= E(A$,-1,_EVNTS_REDRAW_ANCHOR%,_EVNTS_REDRAW_REC_SIZE%, b%>=0 nZm%=!_EVNTS_REDRAW_ANCHOR%+b%:hA%=m%!16:HA%=!_EVNTS_REDRAW_DATA%:D$=$(HA%+hA%): D$<>"" u/e%= ("FN"+D$+"("+ d%+","+ nA%+","+ eB%+")") HB(x%): XJ%,uC$,nA%,eB%,d%: x%<>-1 B(&64):d%!0=x%: &400C8,,d% XJ%:nA%=d%!4-d%!20:eB%=d%!16-d%!24: &81681,,d%: fD(x%,d%,nA%,eB%): &400CA,,d% B(d%) H(a%): b%,IA%,sS%,IB%,IE%,A$: m%,e$,OA%,jD%:A$= I(a%): IB%=0: E(A$,IB%,_EVNTS_PANES_ANCHOR%,_EVNTS_PANES_REC_SIZE%, )>-1:b%=EE%:m%=!_EVNTS_PANES_ANCHOR%+b%:IE%=m%!16:HA%=!_EVNTS_PANES_DATA%:e$=$(HA%+IE%):OA%= MA(e$): OA%<>-1 $jD%=!OA%:BA%!0=jD%: &400C6,,BA% :IB%+=1: :BA%!0=a%: &400C6,,BA% qD(_window_handle%): A$,b%,D$,m%,HA%,KD%:A$= I(_window_handle%):b%= E(A$,-1,_EVNTS_WINDOWCLOSE_ANCHOR%,_EVNTS_WINDOWCLOSE_REC_SIZE%, ):KD%= b%>=0 dm%=!_EVNTS_WINDOWCLOSE_ANCHOR%+b%:hA%=m%!16:HA%=!_EVNTS_WINDOWCLOSE_DATA%:D$=$(HA%+hA%): D$<>"" .KD%= ("FN"+D$+"("+ (_window_handle%)+" )") H(_window_handle%) ("Pointer"):jN%= :oC$="" uD(_window_handle%): A$,b%,m%,hA%,HA%,D$: e%:A$= I(_window_handle%): A$<>"" E(A$,-1,VH%,hQ%, b%>=0 Sm%=!VH%+b%:hA%=m%!16:HA%=!YJ%:D$=$(HA%+hA%):e%= ("FN"+D$+"( _window_handle% )") wD(_window_handle%): A$,b%,m%,hA%,HA%,D$: e%:A$= I(_window_handle%): A$<>"" E(A$,-1,DH%,fR%, b%>=0 Sm%=!DH%+b%:hA%=m%!16:HA%=!DL%:D$=$(HA%+hA%):e%= ("FN"+D$+"( _window_handle% )") NA:=_U%!20 cA(a%): i%,WA%,z%,I%,bA%,x%: +bA%= UA:WA%= WA%!16<>-1 2OA%=WA%!16:c%=0: OA%!c%<>-1:x%=OA%!c%: x%=a% :c%+=4: :WA%+=20: sB(a%,f%): o%:AA%!0=a%:AA%!4=f%: &400CE,,AA%:o%=AA%!24:=o% ND(a%,f%): o%,i%,vC%,s%: cA(a%)= 0:vC%=(1<<&D)+(1<<&E):o%= sB(a%,f%):i%=(o% vC%): i%=vC% Y:=_EVNTS_LAST_ICONCLICKED% JB(a%,f%): v%,C,A,o%,cH%:v%= B(&64+( z(a%)*32)):!v%=a%: &400CC,,v%:C=v%!4-v%!20:A=v%!16-v%!24:v%!4=f%: &400CE,,v%:v%!0=a%:v%!4=PM%:o%=v%!24:cH%=v%!32:v%!8=v%!8+C:v%!&C=v%!&C+A:v%!16=v%!16+C:v%!20=v%!20+A:v%!24=tN%:v%!28=OM%:v%!32=GO%:v%!36=HM% &400D0,,v%: B(v%): PD:=RR% wB(a%,f%): o%,i%,vC%: cA(a%)= i0vC%=1<<&F:o%= sB(a%,f%):i%=(o% vC%): i%=vC% n(a%, sA%):!XB%=a%: &400CB,,XB%:fA%=XB%!4:qA%=XB%!8:rA%=XB%!&C:sA%=XB%!16: _D(a%,f%): hA%,HA%,A$,b%:A$= I(a%):b%= E(A$,f%,_EVNTS_DRAG_ANCHOR%,_EVNTS_DRAG_REC_SIZE%, b%>=0 JB(a%,f%):kE%=a%:sE%=f% wB(a%,f%) JB(a%,f%):kE%=a%:sE%=f%:yG%= n(a%,WK%,fK%,bI%,YI%): VA(nK%,eK%) XD:=DF% LB(a%,f%): A$,k%,eL%,tA%: JC%,S$,hC%,WH%,b%:A$= I(a%):k%=!_EVNTS_SLIDERS_ANCHOR%:b%= E(A$,f%,_EVNTS_SLIDERS_ANCHOR%,_EVNTS_SLIDERS_REC_SIZE%, b%=-1 Hf%+=1:b%= E(A$,f%,_EVNTS_SLIDERS_ANCHOR%,_EVNTS_SLIDERS_REC_SIZE%, :jL%=b%: b%>-1 YJC%=k%+b%:eL%=!(JC%+16):tA%=!(JC%+20):WH%=!(JC%+36):hC%=!_EVNTS_SLIDERS_DATA%: hC%>0 S$=$(hC%+JC%!32) :UA%!0=a%:UA%!4=eL%: &400CE,,UA%:aD%=UA%!16-UA%!8:rE%=UA%!20-UA%!&C:gM%=f%:hT%=tA%:EB$=S$:_Q%=WH%:UA%!0=a%: &400CB,,UA%:uA%=UA%!4-UA%!20:vA%=UA%!16-UA%!24:UA%!4=f%: &400CE,,UA%:UA%!4=7:UA%!8+=uA%:UA%!&C+=vA%:UA%!16+=uA%:UA%!20+=vA%:UA%!24=UA%!8 UA%!28=UA%!&C: aD%>rE% #UA%!32=UA%!24+aD%:UA%!36=UA%!20 UA%!32=UA%!24+aD%:UA%!36=UA%!28+rE% &400D0,,UA%:aI%= WA(a%,f%): A$,b%,m%,hA%,HA%,D$,e%: fS%,v%,C,A,gL%,o%,cH%,hL%,JG%,sA$:v%= B(&64+( z(a%)*32)):!v%=a%: &400CC,,v%:C=v%!4-v%!20:A=v%!16-v%!24:gL%=v%!68:v%!4=f%: &400CE,,v%:v%!0=a%:v%!4=PM%:o%=v%!24:cH%=v%!32:v%!8=v%!8+C:v%!&C=v%!&C+A:v%!16=v%!16+C jv%!20=v%!20+A:v%!24=tN%:v%!28=OM%:v%!32=GO%:v%!36=HM%: 6,&A1,28 ,,JG%:hL%=((JG% 2)=2):AG%= JG%=o%: oB(cH%,"s") A(zC$)) sA$<>"" &42400,HR%,gL%,sA$,v%+8:AG%= &400D0,,v% &400D0,,v% B(v%): LB(a%,f%): RE(a%,f%): hA%,HA%:DF%= :yB$= I(a%):oK%= E(yB$,f%,JI%,vR%, oK%>=0 )lxF%=!JI%+oK%:wG%=xF%!16:wL%=xF%!20:pD%=xF%!24:HA%=!KK%:hA%=xF%!28:KB$=$(HA%+hA%):CB$= C(a%,wL%): CB$="" A(jC$)) :DF%= WA(a%,f%) eD(a%): b%,f%,m%,hA%,HA%: KC%,jB%,FB%,A$,ZJ%: aJ%:aJ%= :f%=-1:A$= I(a%):b%= E(A$,f%,_EVNTS_DRAG_ANCHOR%,_EVNTS_DRAG_REC_SIZE%, b%>=0 m%=!_EVNTS_DRAG_ANCHOR%+b%:hA%=m%!16:HA%=!_EVNTS_DRAG_DATA%:yC$=$(HA%+hA%):OD$=A$:uR%=a%:KC%= B(40):KC%!0=a%:KC%!4=6: VA(jB%,FB%):KC%!8=jB%:KC%!&C=FB%:KC%!16=jB%:KC%!20=FB%: n(a%,kL%,BS%,AP%,lL%):KC%!24=kL%:KC%!28=BS%:KC%!32=AP%:KC%!36=lL% &400D0,,KC%:jJ%= B(KC%):aJ%= :=aJ% SE(a%,f%,BT%,GP%): dH%,i%:dH%= Y):dH%= GP%=_MSE_ADJUSTBUT z mL%= :dH%= eD(a%) pA(f$): c%,_%,hB%: LB%<>-1 1c%=0: LB%!c%<>CG%:hB%=LB%!c%: $(hB%+zF%)=f$ _%=!hB% :c%+=4: AC:=PP% XA(uA%,vA%,_%): &400D4,,_%,uA%-64,vA% _Q%!0=uA%:_Q%!4=vA%: &65BC5,_%,_Q% _Q%!0=uA%:_Q%!4=vA%: &65BC5,_%,_Q% :BF%=_%:hR%=uA%:SS%=vA%:_U%!52=_U%!28:_U%!56=_U%!32: pC:=pI% MB(_Q%,sC%,l%,MA%,WP%): gA%,jA%: XA(_Q%!0,_Q%!4,sC%) B(50):jA%= B(36):gA%!0=l%:gA%!4=MA%: &400CE,,gA%:jA%!0=l%: &400CB,,jA%: XA(jA%!4+gA%!16+64,_Q%!4,sC%): jA%!4+gA%!16+64,_Q%!4 B(gA%): B(jA%) TD(x%):=-1 fE(x%): WA%,bA%,I%,c%:bA%= UA:WA%= WA%!16<>-1 ,OA%=WA%!16:c%=0: OA%!c%<>-1: OA%!c%=x% OA%!c%=0 :c%+=4: :WA%+=20: kE(a%): b%,t%,z%:z%= :t%=0: dB%>0 dB%!t%=a% :dB%!t%=0 :t%+=4: dB%!t%<>-1 dA(x%): IA%:IA%= B(20): TD(x%) fE(x%): x%=_U%!20 _U%!20=0 kE(x%) :IA%!0=x%: &600C3,,IA%:x%=0 B(IA%):=x% YA(K$, GE%:GE%= sA(K$):GE%!64=_U%!16: &400C1,,GE% kC(K$,a%): NB(IC$,RB$,SB$): EA%,UC%,VC%,bJ%:bJ%= bJ%<>0 &400D4,,-1:e%= dA(bJ%) YA(IC$,EA%):XB%!0=EA%: &400CB,,XB%:UC%=(XB%!4-XB%!&C)/2:VC%=(XB%!16-XB%!8)/2:_U%!20=EA%: RB$<>"" ("FN"+RB$+"("+ EA%+")") LA(EA%,UC%,VC%): SB$<>"" ("FN"+SB$+"("+ EA%+")") yE(a%,f%,nL%): TE%,EC%,pL%,qL%,rL%,sL%: tL%:TE%= B(40):TE%!0=a%:TE%!4=f%: &400CE,,TE%:pL%=TE%!16:qL%=TE%!20:EC%= B(40):EC%!0=a%: &400CB,,EC%:rL%=EC%!4:sL%=EC%!16:EC%!0=nL%: &400CB,,EC%:tL%=EC%!16-EC%!8: MA(nL%,rL%+pL%,sL%+qL%-(tL%/2)): B(TE%) B(EC%): EF(a%,tA%,nD%,S$):_m_DatePick_WindowHandle%=a%:_m_DatePick_DisplayIcon%=tA%:_m_DatePick_NotifyFN$=S$: NB(_c_DatePick_TemplateName$,"_DatePicker_PreOpen",""): yE(a%,nD%, OB(_window_handle%,_icon_handle%): A$,b%,HA%,aB%,m%,eH%,_%: gU%,S$,g$,e%,b$:A$= I(_window_handle%):b%= E(A$,_icon_handle%,_EVNTS_POPUPS_ANCHOR%,_EVNTS_POPUPS_REC_SIZE%, b%>=0 pxm%=!_EVNTS_POPUPS_ANCHOR%+b%:aB%=m%!16:HA%=!_EVNTS_POPUPS_DATA%:nD%=m%!&C:tA%=m%!20:eH%=m%!24: eH%=_POPUP_TYPE_TEXT aB%=m%!28: aB%>=0 b$=$(HA%+aB%) pA(b$) b$="":_%=0 aB%>=0 S$=$(HA%+aB%) :aB%=m%!32: aB%>=0 ,g$=$(HA%+aB%): eH%=_POPUP_TYPE_FONTMENU ("FN"+g$+"("+ bC)+")") ("FN"+g$+"("+ (_%)+")") _POPUP_TYPE_TEXT: MB(_Q%,_%,_window_handle%,_icon_handle%, _POPUP_TYPE_WIMPCOLOUR: _G%=-1 &45BCF,,"",S$ MB(_Q%,_G%,_window_handle%,_icon_handle%, _POPUP_TYPE_COLOUR24: jH(_window_handle%,tA%,nD%,S$,g$) _POPUP_TYPE_FONTMENU: lH(_Q%,_window_handle%,_icon_handle%, _POPUP_TYPE_FONTPICK: oH(_window_handle%,tA%,nD%,S$,g$) _POPUP_TYPE_DATEPICK: EF(_window_handle%,tA%,nD%,S$) 99,"Unknown popup type detected!" EC:=_EVNTS_LAST_MOUSEBUTTON% PB(_window_handle%,_icon_handle%): A$,b%,m%,fH%: kC%,IF%,wC%,xC%,UE%,eJ%,fJ%: JF%,hJ%,_new_val$,_new_val%,iA%,tA$,uA$: vA$:A$= I(_window_handle%):b%= E(A$,_icon_handle%,_EVNTS_BUMP_ANCHOR%,_EVNTS_BUMP_REC_SIZE%, ):UE%= b%>=0 8m%=!_EVNTS_BUMP_ANCHOR%+b%: m%!40 (1<<2) m%!40 (1<<0) m%-=_EVNTS_BUMP_REC_SIZE% IkC%=m%!16:IF%=m%!20:wC%=m%!24:xC%=m%!28:eJ%= (-1):fJ%= (-2): kC%=kC%*gP% kC%=kC%*JR% kC%=kC%*ER% :hC%=!_EVNTS_BUMP_DATA%: hC%>0 m%!32>=0 tA$=$(hC%+m%!32) m%!36>=0 uA$=$(hC%+m%!36) :vA$= C(_window_handle%,IF%): uA$<>"" )JF%= ("FN"+uA$+"( "+ 34+vA$+ 34+" )") (vA$) UE%=_MSE_ADJUSTBUT _new_val%=JF%+kC% _new_val%=JF%-kC% UE%=_MSE_ADJUSTBUT _new_val%=JF%-kC% _new_val%=JF%+kC% _new_val%>xC% _new_val%=xC% _new_val%xC% _new_val%=wC% _new_val%"" 0_new_val$= ("FN"+tA$+"(_new_val%,"+ UE%+")") _new_val$= _new_val% A(_window_handle%,IF%,_new_val$, QF(_window_handle%,_icon_handle%): A$,b%,D$,m%,HA%,i%,HA$:A$= I(_window_handle%): A$="iconbar" _icon_handle%=-1 E(A$,_icon_handle%,_EVNTS_CLICKSELECT_ANCHOR%,_EVNTS_CLICKSELECT_REC_SIZE%, E(A$,-1,_EVNTS_CLICKSELECT_ANCHOR%,_EVNTS_CLICKSELECT_REC_SIZE%, b%>=0 m%=!_EVNTS_CLICKSELECT_ANCHOR%+b%:hA%=m%!16:HA%=!_EVNTS_CLICKSELECT_DATA%:D$=$(HA%+hA%):e%= ("FN"+D$+"( _window_handle%, _icon_handle% )"): _icon_handle%=0 _window_handle%=_U%!20 H(_window_handle%) _icon_handle%>=0 A$<>"iconbar" OB(_window_handle%,_icon_handle%): PB(_window_handle%,_icon_handle%) UF(_window_handle%,_icon_handle%): A$,b%,m%,xL%,x$,iJ%,e%: KF%:A$= I(_window_handle%): A$="iconbar" _icon_handle%=-1 E(A$,_icon_handle%,_EVNTS_CLICKMENU_ANCHOR%,_EVNTS_CLICKMENU_REC_SIZE%, E(A$,-1,_EVNTS_CLICKMENU_ANCHOR%,_EVNTS_CLICKMENU_REC_SIZE%, b%>=0 m%=!_EVNTS_CLICKMENU_ANCHOR%+b%:KF%=m%!16:xL%=m%!20:iJ%=!_EVNTS_CLICKMENU_DATA%:_%= pA($(iJ%+KF%)):x$=$(iJ%+xL%):_EVNTS_LAST_MENUMAKER_FN$=x$: x$<>"" Y@e%= ("FN"+x$+"( "+ _window_handle%+", "+ _icon_handle%+" )") XA(_Q%!0,_Q%!4,_%) _window_handle%>0 OB(_window_handle%,_icon_handle%) WF(_window_handle%,_icon_handle%): A$,b%,D$,m%,HA%:A$= I(_window_handle%): A$="iconbar" _icon_handle%=-1 E(A$,_icon_handle%,_EVNTS_CLICKADJUST_ANCHOR%,_EVNTS_CLICKADJUST_REC_SIZE%, E(A$,-1,_EVNTS_CLICKADJUST_ANCHOR%,_EVNTS_CLICKADJUST_REC_SIZE%, b%>=0 m%=!_EVNTS_CLICKADJUST_ANCHOR%+b%:hA%=m%!16:HA%=!_EVNTS_CLICKADJUST_DATA%:D$=$(HA%+hA%):e%= ("FN"+D$+"(_window_handle%,_icon_handle%)") _window_handle%>0 PB(_window_handle%,_icon_handle%) kB%,A$,b%,m%,hA%,HA%: e%,D$,xA$,WB$,NG%,kJ%:A$= I(kE%):b%= E(A$,sE%,_EVNTS_DRAG_ANCHOR%,_EVNTS_DRAG_REC_SIZE%, ):kB%= B(30): &400CF,,kB%:yL%=kB%!0:sM%=kB%!4:oD%=kB%!&C:JE%=kB%!16: B(kB%): b%>=0 m%=!_EVNTS_DRAG_ANCHOR%+b%:hA%=m%!16:HA%=!_EVNTS_DRAG_DATA%:D$=$(HA%+hA%):e%= ("FN"+D$+"("+ NQ%+","+ oD%+","+ JE%+","+ yL%+","+ sM%+")") !yG%= wB(oD%,JE%) cA(oD%) +xA$= C(kE%,sE%):WB$= C(oD%,JE%): A(kE%,sE%,"", (oD%<>kE%) NG%= (JE%<>sE%) kJ%= (NG%= (NG%= A(oD%,JE%,WB$+xA$, A(oD%,JE%,xA$, kB%,lB%,lJ%: &42401:AG%= :DF%= :kB%= B(30): &400CF,,kB%:oR%=kB%!4:UG%=kB%!&C:lF%=kB%!16:tJ%=kB%!0:rR%=kB%!4: pD%>&8000 vA(pD%)-4 lJ%=pD% :lB%= B(60):lB%!0=60:lB%!&C=0:lB%!16=1:lB%!20=UG%:lB%!24=lF%:lB%!28=tJ%:lB%!32=tJ%:lB%!36=lJ%:lB%!40=wG%:$(lB%+44)= yA(CB$): &400E7,18,lB%,UG%,lF%:LH%=lB%!8: B(kB%): B(lB%) dF:aI%= PC:=jJ% eF(hH%,iH%,mJ%,nJ%): oJ%,pJ%,FM%,GM%: e%:jJ%= mJ%=HB%: ^-g%=YB%+c%:bA$=$(g%!8): (bA$<>"" g%!&C=0) YA(bA$,EA%):IA%= B(36):IA%!0=EA%: &400CB,,IA%:UC%=(IA%!4-IA%!&C)/2:VC%=(IA%!16-IA%!8)/2: B(IA%) :n$=$(g%!16): n$<>"" g%!&C>0 o e%= ("FN"+n$+"("+ g%!&C+")") ("FN"+n$+"("+ EA%+")") TA(g%!&C) P(g%!&C) g%!&C>0 A("SHELLMSG09") LA(EA%,UC%,VC%) :o$=$(g%!20): o$<>"" g%!&C>0 ("FN"+o$+"("+ g%!&C+")") ("FN"+o$+"("+ EA%+")") bA$="":n$="":o$="":i%= UE%): &400CF,,DE%:UE%=DE%!8: ZC(_%,sJ%): OG%,c%,R$:OG%= B(8):OG%!0=sJ%:OG%!4=-1: &45BC4,_%,OG% ,,c%:R$=$(c%!&C): B(OG%):=R$ a(a%,f%,PG%): PG%EQ% b(QC$,"PROCshell_IconSetBGColour") d(a%,f%,PG%<<28,&F0000000): kF(VE%): A$,b%,m%,Z$,_%,LF%: rC%,mH%,i%,cA$: tA%,aP%,LM%,KF%:A$= CA):b%= E(A$, qA,_EVNTS_POPUPS_ANCHOR%,_EVNTS_POPUPS_REC_SIZE%, b%>=0 A$<>"iconbar" }m%=!_EVNTS_POPUPS_ANCHOR%+b%:LF%=m%!24:rC%=!_EVNTS_POPUPS_DATA%:mH%=m%!16:tA%=m%!20: VE%!4<>-1 LF%<>_POPUP_TYPE_FONTMENU 99,"Unable to handle popup with submenus!" LF%=_POPUP_TYPE_TEXT KF%=m%!28: KF%>=0 b$=$(rC%+KF%) pA(b$) LF%=_POPUP_TYPE_FONTMENU mD(VE%) ZC(_%,!VE%) :i%=0: mH%>-1 cA$=$(rC%+mH%): Z$<>"" ("FN"+cA$+"("+ CA)+","+ tA%+","+ (34)+Z$+ (34)+")") i%<>0 mH%=-1 tA%>=0 _POPUP_TYPE_TEXT: CA,tA%,Z$, _POPUP_TYPE_WIMPCOLOUR: CA,tA%,!VE%) _POPUP_TYPE_FONTMENU: Z$<>"" CA,tA%,Z$, 99,"Unknown Popup type in PROCshell_EvntHandle_PopupSelect (type was "+ LF%+")" pF(EA%,cP%): ("FN"+$EA%+"("+ cP%+")") &65BC5,BF%: wF(VE%): uJ%,o%: hF (_EVNTS_LAST_MOUSEBUTTON%): qA>=0 kF(VE%) &65BC4,BF%,VE% uJ%,,AH%;o%: o%<>1 pF(uJ%,AH%) S=_MSE_ADJUSTBUT _EVNTS_LAST_MENUMAKER_FN$<>"" ("FN"+_EVNTS_LAST_MENUMAKER_FN$+"( _U%!52, _U%!56 )") _U%!&64 xF(_Q%): g%,b%,d%,p%: _Q%!4<>_U%!&94 4-b%= kD(_Q%!20,_Q%!24,_U%+96,16, b%>-1 6%d%=_U%!96+b%: lD(_Q%!40,d%!8, <`_Q%!0=256:_Q%!&C=_Q%!8:_Q%!36=-1:_Q%!16=2:$(_Q%+44)= W+".ScrapFile"+ &400E7,18,_Q%,_Q%!4 B(_U%!&9C):_U%!&9C= B((_Q%!0)+8):g%=_U%!&9C: _Q%!0 4:g%!p%=_Q%!p%: p%:_EVNTS_LAST_WINDOWCLICKED%=_Q%!20:_EVNTS_LAST_ICONCLICKED%=_Q%!24:_U%!&80=0:_U%!&84=_Q%!36:_U%!&98= B(_Q%!36):_Q%!0=28:_Q%!&C=_Q%!8:_Q%!16=6:_Q%!20=_U%!&98+_U%!&80 W6_Q%!24=_U%!&84: &400E7,18,_Q%,_Q%!4:_U%!&70=_Q%!8 p(MM%): YB$,nH%: ((MM%?nH%)>31 nH%<&FF):YB$+= (MM%?nH%):nH%+=1: :=YB$ &400D4,,-1: GG(aA%): NM%,e%:NM%=aA%!&C: NM%=LH% p(aA%+44): KB$<>"" ("FN"+KB$+"( "+ 34+s$+ 34+" )") q(pD%) 8,&A,s$,wG%,,pD%,pD%+ vA(pD%)+1 A(xC$) :aA%!16=3:aA%!0=256:aA%!20=UG%:aA%!24=lF%:aA%!40=wG%:aA%!36= FA(s$):aA%!&C=aA%!8:$(aA%+44)=s$+ &400E7,18,aA%,UG%,lF%:LH%=aA%!8: _U%!80<>0 B(_U%!80) +_U%!80= s$+1):$(_U%!80)=s$: OA(zA$): cA%,_A$,g%: zA$,".")=0 _A$="" g%=0: :cA%=g%+1:g%= zA$,".",cA%): g%=0:_A$= zA$,cA%-2) :=_A$ gC(oH%): i%,bB$,cB$: DB("Alias$@RunType_"+ ~XE%,1):cB$= OA(bB$): yA(cB$)="!"+ hC(pH%):=((pH% 1)=1) lC(CT%): AB$,vJ%,pH%,MD%:AB$= p(_Q%+44):vJ%= FA(AB$): vJ%<0 A("SHELLMSG16")) 5MD%= B(vJ%): &20008,16,AB$,MD%,0 ;pH%: hC(pH%) B(MD%) :=MD% JG(MD%,KA%,_file_size%,k%): e%,xJ%,BB$,rC%:xJ%=k%!20: xJ%>-1 %rC%=!wK%:BB$=$(rC%+xJ%): BB$<>"" ("FN"+BB$+"("+ MD%+","+ XE%+","+ 34+FA$+ 34+","+ _file_size%+")") QB(b%): KA%,cC%: b%>-1 (k%=!mB%:k%+=b%:KA%=k%!16: 1<<31 _U%!&64=_U%!&64 :cC%=KA% (1<<31): cC%=XE% KA%=-1 '@wP%=_Q%!&C:_Q%!&C=_Q%!8:_Q%!16=4: &400E7,18,_Q%,_Q%!4: MD%=-1:_U%!&64=_U%!&64 lC(wP%=_U%!&6C) JG(MD%,XE%,_Q%!36,k%): _U%!&9C<>0 B(_U%!&9C):_U%!&9C=0 b%:b%= E("iconbar",aM%,mB%,fD%, QB(b%): DA(A$,f%,KA%,m%,ZA%,gB%): HB%,c%,z%,b%,qB%,FC%: p%,cC%: A$="IconBar" f%=-1:A$="iconbar" (!m%=0 A$="" (!m%=0) \o!m%= B(ZA%+eA%):qB%=!m%:qB%!0=ZA%:qB%!4=1:$(qB%+eA%)="": p%=&C (ZA%-4) 4:qB%!(p%+eA%)=-1: p%:EE%=eA%:b%=eA% b%<>eA% jHqB%=!m%:HB%=!qB%:c%=eA%:z%= :b%=-1:gR%=-1:FC%=!m%: ($(FC%+c%)=A$) {7cC%=(FC%!(c%+16)) (1<<31): FC%!(c%+&C)=f% cC%=KA% b%=c%:z%= c%+=ZA% c%+=ZA% ((c%>=(HB%+eA%)) (b%=-1 kb%=HB%+eA%:!m%= U(!m%,ZA%):dC%=!m%:dC%!0+=ZA%:dC%!4+=1:dC%+=b%:$(dC%)="": p%=&C (ZA%-4) 4:dC%!p%=-1: :EE%=b% b%,xP%,cC%,c%:k%=!mB%:xP%=k%!0:b%= DA(u$,EH%,-1,mB%,fD%, b%=-1 DA(u$,EH%,-1 (1<<31),mB%,fD%, b%=-1 DA(u$,-1,-1,mB%,fD%, b%=-1 DA(u$,-1,-1 (1<<31),mB%,fD%, b%=-1 DA(u$,EH%,XE%,mB%,fD%, DA(u$,-1,XE%,mB%,fD%, ):k%=!mB% b%>-1 QB(b%) RB(qH%,oH%):XE%=qH%!40:_L%=qH%!20:EH%=qH%!24:FA$= p(qH%+44): gC(oH%) I(_L%): WG(_Q%): cG(_Q%): cT%,yJ%,zJ%:zJ%= _U%!&90>&8000 4_Q%!&C=_Q%!8:_Q%!16=7:yJ%=_U%!&88: _U%!&8C=&FF9 _U%!&90+=4 (yJ%-_U%!&80)<_Q%!24 _Q%!24=yJ%-_U%!&80:zJ%= &400F1,_U%!&94,_U%!&90+_U%!&80,_Q%!4,_Q%!20,_Q%!24: &400E7,17,_Q%,_Q%!4:_U%!&78=_Q%!8:_U%!&80+=_Q%!24: _U%!&80=0 dG(_Q%): b%,d%,eB$,g%: _Q%!&C=_U%!&70 $_U%!&80+=_Q%!24: _Q%!24<_U%!&84 Y,_U%+96,16, ):d%=_U%!96+b%:g%=_U%!&9C:eB$= p(g%+44): mH(g%!40,_U%!&98,d%!8,eB$,_U%!&84,d%) _U%!&80>_U%!&84 '_U%!&98= U(_U%!&98,_U%!&80,_U%!&84) :_Q%!&C=_Q%!8:_Q%!16=6:_Q%!20=_U%!&98+_U%!&80:_Q%!24=_U%!&84: &400E7,18,_Q%,_Q%!4:_U%!&70=_Q%!8 B(_U%!&98):_U%!&98=0: A("SHELLMSG15")) eG(lB%): e%,d%,_J%,AK%,p%: qA$<>"" 2Vd%= B(256):_J%=lB%!0: 4:d%!p%=_Q%!p%: p%:AK%=d%!4: _J%<24 BK%=0 BK%=d%!20 =2d%!&C=d%!8: &400E7,19,d%,AK%: ("FN"+qA$)<>0 _closedown%= !d%=24:d%!24=508: &400E7,8,d%,AK%:_closedown%= B(d%) aB$<>"" ("FN"+aB$) vG(h%): zB$<>"" i"PA$= ("FN"+zB$)+ (&A): PA$="" PA$="Run "+ &C,2,h%,PA$, (PA$) ZB$<>"" ("FN"+ZB$) uC(b%): m%,MF%,NF%,c$:m%=!_EVNTS_HELPTAG_ANCHOR%+b%:MF%=m%!16:NF%=!_EVNTS_HELPTAG_DATA%:c$=$(NF%+MF%):=c$ zC:=BF% _C(_%,FF%): c%,rB%,o%:c%= B(40): &65BC4,_%,FF% ,,c%;o%: rB%=0 rB%=c%!8 B(c%):=rB% BD(DK%): c$,EK%,c%,rB%,b%: MF%,NF%:EK%= zC:c%=0: DK%!c%<>-1:PQ%=DK%!c%:c%+=4: :rB%= _C(EK%,DK%): rB%<>0 E("menu",rB%,_EVNTS_MENUHELPTAG_ANCHOR%,_EVNTS_MENUHELPTAG_REC_SIZE%, b%>=0 [m%=!_EVNTS_MENUHELPTAG_ANCHOR%+b%:MF%=m%!16:NF%=!_EVNTS_MENUHELPTAG_DATA%:c$=$(NF%+MF%) c$="" SB(_window_handle%,_icon_handle%, A$,b%,m%,NF%,MF%,rH%: o%,EK%,c%,PQ%,k%:A$= I(_window_handle%): A$="iconbar" _icon_handle%=-1 E(A$,_icon_handle%,_EVNTS_HELPTAG_ANCHOR%,_EVNTS_HELPTAG_REC_SIZE%, b%>=0 uC(b%) B(96): &600F4,1,rH%,_window_handle%,_icon_handle% o%<>1 _window_handle%<> cA(_window_handle%) BD(rH%) B(rH%) ID(a%,f%): W$,o%: f%=-1 0 W$=$(AA%!32) KD(y$): V$,DA$,kA%:V$="": y$,"\")>0:kA%= y$,"\"):V$+= y$,kA%-1):DA$= y$,kA%+1,1):y$= y$,kA%+2): "A":V$+="Click ADJUST to" "a":V$+="ADJUST" "D":V$+="Drag with SELECT to" "d":V$+="Drag with ADJUST to" "G":V$+="This option is greyed out because" "R":V$+="Move the pointer right" "S":V$+="Click SELECT to" "s":V$+="SELECT" "T":V$+="This is the" "W":V$+="This window is" "w":V$+="window" V$+="\"+DA$ :=V$+y$ FH(_Q%): P$,HA$,W$,ND%,FK%,MD$,o%: SB(_Q%!32,_Q%!36,P$):W$= ID(_Q%!32,_Q%!36): W$<>"" W$,1))="I" W$,";"): ND%=0 W$,2) W$,2,ND%-2) g(W$), g(";i")):FK%= g(W$), g(";"),ND%+1): ND%>0 FK%>0 W$,ND%+2,FK%-ND%-2) W$,ND%+2) P$="" SB(_Q%!32,-1,P$) P$<>"" 9q_Q%!16=&503:_Q%!&C=_Q%!8:HA$= bA(P$,"",""):HA$= KD(HA$):$(_Q%+20)=HA$:!_Q%=( HA$+25) &400E7,17,_Q%,_Q%!4 LD(sC%,QG%): t%,WE%: &45BC7,sC% :WE%=sC%+28+((QG%!t%)*24):sC%=WE%!4:t%+=4: QG%!t%=-1:=WE% HH(mA%,uA%,vA%): g%,EA%,e%: R*g%=mA%!4: YA($g%!0,EA%): $g%!4<>"" X!e%= ("FN"+$g%!4+"("+ EA%+")") $g%!8<>"" \!e%= ("FN"+$g%!8+"("+ EA%+")") &400E8,,EA%,uA%,vA%:_U%!20=EA%: IH(rB%, i%,YB%,g%,b%,z%,HB%,fB%,t%: PF%:PF%=0:YB%=_U%!&DC:b%=0:z%= :O$="":PF%=0: q(YB%) :t%+=4: YB%!t%=-1:HB%=t%:t%=0: :g%=!(YB%+b%+0): g%<>-1 g%=rB% tFz%= :fB%=YB%!(b%+4):O$=$fB%:PF%=YB%!(b%+8):fB%=YB%!(b%+&C):U$=$fB% :b%+=16 b%=HB% b%>=HB% O$="":U$="" MD:=CP% QD:=_G% LH(GK%,uA%,vA%,O$,U$): e%,g%,nT%,t%:_shell_FontMenuSelFN$=U$: q(_U%!&E0) B(_U%!&E0) 0_U%!&E0= O$+1):g%=_U%!&E0:$g%=O$: O$<>"" ("FN"+O$+"(_U%!52,_U%!56)") &400E8,,GK%,uA%,vA%:eP%=GK%: QH(_Q%): LM%,uA%,vA%,e%,_temp%,aF%,O$,WE%,d%: U$:uA%=_Q%!24:vA%=_Q%!28:_U%!264=0: _U%!20<>0 dA(_U%!20) _Q%!20 _U%!&E4: i(_U%!&E4, A("warning")): A(_U%!&E4,1, A("SHELLMSG07"),0): &400E8,,_U%!&E4,uA%,vA% LD(BF%,_Q%+32): q(WE%!4) HH(WE%,uA%,vA%) B(32): &45BC4,BF%,_Q%+32 ,,d%: IH(d%!8,O$,U$): B(d%): LH(_Q%!20,uA%,vA%,O$,U$) gB$<>"" ("FN"+gB$) eH(HK%): e%:JM%=HK%: LB$<>"" ("FN"+LB$+"("+ JM%+")") RD:=IR% ID(nQ%):_c_Fonts_CurrentDeskTopFont%=nQ%: mC(IK%,fC$): tB$<>"" ("FN"+tB$+"("+ IK%+","+ (34)+fC$+ (34)+")") y(JK%,dA$): ZM%:ZM%=( (dA$)+30) 3:_MESSAGES_WORK_BLK%!&C=0:_MESSAGES_WORK_BLK%!16=JK%:$(_MESSAGES_WORK_BLK%+20)=dA$+ (0):_MESSAGES_WORK_BLK%!0=ZM%: &600E7,17,_MESSAGES_WORK_BLK%,0: UB(dA$): y(&43B00,dA$): pC(DB$): jS%,g%: _U%!&D0=-1 y("StrongHelp$Dir") &600DE,"": _U%!&D8<>0 B(_U%!&D8) ")_U%!&D8= DB$+1):g%=_U%!&D8:$g%=DB$ A("SHELLMSG11")) UB("Help_Word "+DB$) qC(IK%): pB$<>"" ("FN"+pB$+"("+ IK%+")") OD%,sH%:OD%= B(256): :OD%!&C=0: &400E7,19,OD%,-2,_U%!&D4 ,,sH%:_U%!&D4=_U%!&D4+1: sH%<>-1 (_U%!&D4)>64: sH%<>-1 Q@OD%!0=24:OD%!&C=0:OD%!16=&400C6:OD%!20=sH%: &400E7,17,OD%,0 B(OD%): sC(_Q%): tC(_Q%): uC(_Q%): vC(_Q%): wC:_U%!&64=_U%!&64 1<<9: y(&43B00,"ShellDBug:TraceOn"): (_U%!&64 (1<<9)) _U%!&64=_U%!&64 (1<<9) y(&43B00,"ShellDBug:TraceOff"): j(GD$,QA$): HB%,LA%,ZA%,c%,bB%,FC%: f%,D$,PB%,p%:LA%=!_EVNTS_CLICKSELECT_ANCHOR%:ZA%=_EVNTS_CLICKSELECT_REC_SIZE%:bB%=LA%!4: j ("ClickSelect","Window Icon FN"): LA%=0 c%=eA%: bB%:A$=$(LA%+c%):f%=LA%!(c%+&C):PB%=!_EVNTS_CLICKSELECT_DATA%: PB%>0 D$=$(PB%+LA%!(c%+16)) :c%+=_EVNTS_CLICKSELECT_REC_SIZE%: HB%,LA%,ZA%,c%,bB%,FC%,_%: f%,p%,x$:LA%=!_EVNTS_CLICKMENU_ANCHOR%:ZA%=_EVNTS_CLICKMENU_REC_SIZE%:bB%=LA%!4: j ("ClickMenu ","Window Icon Menu handle Maker FN"): LA%=0 c%=eA%: bB%:A$=$(LA%+c%):f%=LA%!(c%+&C):_%=LA%!(c%+16):PB%=!_EVNTS_CLICKMENU_DATA%: PB%>0 x$=$(PB%+LA%!(c%+20)) x$="None" :c%+=_EVNTS_CLICKMENU_REC_SIZE%: HB%,LA%,ZA%,c%,bB%,FC%: f%,D$,PB%,p%:LA%=!_EVNTS_CLICKADJUST_ANCHOR%:ZA%=_EVNTS_CLICKADJUST_REC_SIZE%:bB%=LA%!4: j ("ClickAdjust","Window Icon FN"): LA%=0 c%=eA%: bB%:A$=$(LA%+c%):f%=LA%!(c%+&C):PB%=!_EVNTS_CLICKADJUST_DATA%: PB%>0 D$=$(PB%+LA%!(c%+16)) :c%+=_EVNTS_CLICKADJUST_REC_SIZE%: HB%,LA%,ZA%,c%,bB%,FC%,D$: f%,PB%,p%:LA%=!_EVNTS_HELPTAG_ANCHOR%:ZA%=_EVNTS_HELPTAG_REC_SIZE%:bB%=LA%!4: j ("HelpTag ","Window Icon Help tag"): LA%=0 c%=eA%: bB%:A$=$(LA%+c%):f%=LA%!(c%+&C):PB%=!_EVNTS_HELPTAG_DATA%: PB%>0 D$=$(PB%+LA%!(c%+16)) :c%+=_EVNTS_HELPTAG_REC_SIZE%: SD(E$,RA$,DB%): (E$)0 1iB$=$(PB%+LA%!(c%+32)):rC$=$(PB%+LA%!(c%+36)) SD(A$,".",&C):m$+=" "+ RG%," ",3):m$+=" "+ SG%," ",3):m$+=" "+ IF%," ",4):m$+=" "+ cM%," ",4):m$+=" "+ wC%," ",5):m$+=" "+ xC%," ",5):m$+=" "+iB$:c%+=_EVNTS_BUMP_REC_SIZE%*2: m%,c%,aH%,t%,FT%,HT%: f%,p%,m$,ID$:m%=!mB%:aH%=m%!4: j ("DataLoad ","Window Icon Filetype NL LoadFN"): FD(_Q%): GD(_Q%): _Q%!16 &43B00:X$=$(_Q%+20): X$,30)="EvntShellLib:ShellDBug started" _U%!&64 kN_U%!&64=(_U%!&64 1<<4): y(&43B00,"ShellDBug:Init Debug messages from "+ X$,25)="EvntShellLib:TraceInitAck" _U%!&64=(_U%!&64 1<<4) X$,20)="EvntShellLib:TraceOn" X$,21)="EvntShellLib:TraceOff" X$,28)="EvntShellLib:ListClickSelect" X$,26)="EvntShellLib:ListClickMenu" X$,28)="EvntShellLib:ListClickAdjust" X$,25)="EvntShellLib:ListHelpTags" X$,24)="EvntShellLib:ListBumpers" X$,26)="EvntShellLib:ListPointerIn" X$,27)="EvntShellLib:ListPointerOut" X$,25)="EvntShellLib:ListDataLoad" X$,25)="EvntShellLib:ListDataSave" FD(_Q%): HD(_Q%): g%,e%,dM%: _Q%!16 _MESSAGE_QUIT: _MESSAGE_DATASAVE: xF(_Q%) _MESSAGE_DATASAVEACK: GG(_Q%) _MESSAGE_DATALOAD: RB(_Q%, _MESSAGE_DATALOADACK: WG(_Q%) RB(_Q%, _MESSAGE_RAMFETCH: cG(_Q%) _MESSAGE_RAMTRANSMIT: dG(_Q%) _MESSAGE_PREQUIT: eG(_Q%) _MESSAGE_PALETTECHANGE: _MESSAGE_SAVEDESKTOP: vG(_Q%!20) _MESSAGE_SHUTDOWN: _MESSAGE_HELP: FH(_Q%) _MESSAGE_MENUWARNING: QH(_Q%) _MESSAGE_MODECHANGE: _MESSAGE_COLOURPICKERCOLOURCHOICE:dM%=(_Q%!24 pH(_Q%!28,dM%) _MESSAGE_DESKFONT_CHANGED: eH(_Q%!20): ID(_Q%!20) _MESSAGE_TASKINIT: mC(_Q%!4, p(_Q%+28)): _U%!&D0=-1 p(_Q%+28)="StrongHelp" R_U%!&D0=_Q%!4: UB("Help_Install -DieWithTask "+ W+"."+ O):g%=_U%!&D8: $g%<>"" pC($g%): B(_U%!&D8):_U%!&D8=0 _MESSAGE_TASKCLOSEDOWN: qC(_Q%!4): _Q%!4=_U%!&D0 _U%!&D0=-1 _MESSAGE_TASKNAMEIS: p(_Q%+28)="StrongHelp" _U%!&D0=_Q%!20 &80140: sC(_Q%) &80143: tC(_Q%) &80145: uC(_Q%) &80147: vC(_Q%) &47700,&47702:UR%=-1 GD(_Q%) JD(_Q%): _Q%!&C<>LH% KD(_Q%): eM%,g%:g%=_U%!&9C: _Q%!&C<>_U%!&70 _U%!&80=0 &20023,"Wimp$Scrap",,-1,0,3 ,,eM%: eM%<>0 w$(g%+44)=""+ (0):g%!0=(49+ p(g%+44))) 3:g%!&C=g%!8:g%!16=2:g%!36=-1: &400E7,18,g%,g%!4:_U%!&6C=g%!8 A("SHELLMSG14")) B(_U%!&98):_U%!&98=0: G("SHELLMSG06") LD(_Q%): _Q%!16 JD(_Q%) KD(_Q%) _Q%!8=_SHELL_SENDDATALOAD_MY_REF% ("Filer_Run "+_SHELL_SENDDATALOAD_FILE$) ("Run "+_SHELL_SENDDATALOAD_FILE$) IB(aR%): uC$,sC%,PD$,ED$,LM%,AC%,aC%,LK%: l%,MA%,e%,_temp28%,_temp32%,_temp24%,_temp%,aP%: ST%,b%,fM%: _EVENT_NULL: _closedown%= (fM%-_POLL_EARLIEST_TIME%)>0:_POLL_EARLIEST_TIME%+=_POLL_INTERVAL%: _EVENT_REDRAWWIN: _Q%!0<>UR% HB(_Q%!0) HB(_Q%!0) _EVENT_OPENWIN: f(_Q%!0, _EVENT_CLOSEWIN: qD(_Q%!0) _EVENT_PTRLEAVING: uD(!_Q%) _EVENT_PTRENTERING: wD(!_Q%) _EVNT_MSECLICK:AC%=_Q%!0:aC%=_Q%!4:_EVNTS_LAST_MOUSEXPOS%=AC%:_EVNTS_LAST_MOUSEYPOS%=aC%:_U%!272=_Q%!0:_U%!276=_Q%!4: _Q%!8>4 _Q%!8<256 SE(_Q%!&C,_Q%!16,_Q%!8,_EVNTS_LAST_MOUSEBUTTON%) :_EVNTS_LAST_MOUSEBUTTON%=_Q%!8:_EVNTS_LAST_WINDOWCLICKED%=_Q%!&C:_EVNTS_LAST_ICONCLICKED%=_Q%!16: _Q%!8 4,&400: 2,512: 1,256: 7:_U%!&80=0: eF(_Q%!0,_Q%!4,_Q%!8,_Q%!&C) _Q%!24 &D,394,398,399,410,430,431:LK%= SC(_Q%!0,_Q%!4,_Q%!24) TC(_Q%!24) &400DC,_Q%!24 wF(_Q%) 17,18: HD(_Q%) LD(_Q%) jC(vC%,uK%): _U%!&64 "WimpExt_PrePoll" &400C7,qF%,_Q% _U%!&64 "WimpExt_Action",_U%!&94,_Q%,tH% &81686,tH%,,uK%:=tH% iH(l%,MK%,lR%,cA$,g$): GB(_c_DatePick_TemplateName$) MK%>=0 Z(l%,MK%,3) I(l%),MK%,lR%,-1,cA$,g$,_POPUP_TYPE_DATEPICK) b("SHELLMSG37",_c_DatePick_TemplateName$) tA(SA$): (SA$)<>3 _m_Calendar_MonthStr$,SA$) (i%=( _m_Calendar_MonthStr$,SA$)+2)/3 VB(_date$): _m_DatePick_NotifyFN$<>"" ("FN"+_m_DatePick_NotifyFN$+"(_date$)") _m_DatePick_DisplayIcon%>=0 A(_m_DatePick_WindowHandle%,_m_DatePick_DisplayIcon%,_date$, NA%):YC%= $,5)):NA%= $,&C)):dA%=( _m_Calendar_MonthStr$, $,8,3))+2) _DatePicker_Click(a%,f%): _date$,YC%,dA%,NA%,b%: f%>_c_DatePick_FirstIcon% f%<_c_DatePick_LastIcon% C(a%,_c_DatePick_MonthIcon%)):_date$= C(a%,f%),_c_DatePick_YearIcon%):_date$+=_c_DatePick_Sep$+ (dA%),2)+_c_DatePick_Sep$:_date$+= C(a%,_c_DatePick_YearIcon%),2): H(a%): VB(_date$) ZA(YC%,dA%,NA%):_date$= (YC%),2)+_c_DatePick_Sep$:_date$+= (dA%),2)+_c_DatePick_Sep$:_date$+= (NA%),2): H(a%): VB(_date$) _DatePicker_DecodeDate(SA$):= tA(SA$) gD(NA%): NA%>1 ,i%=((NA% ((NA% &64)>0 400)=0)) cC(QB%,NA%): QB%>0 NA%>0 QB%>=1 QB%<=&C 4,6,9,&B:QF%=30 gD(NA%) QF%=29 QF%=28 QF%=31 QF%=0 :=QF% zB(JB%,QB%,NA%): JB%<1 QB%<1 NA%<1 JB%>30 (QB%=4 QB%=6 QB%=9 QB%=&B) JB%>31 QB%>&C QB%=2 JB%>29 QB%=2 JB%=29 4)<>0 QB%=2 JB%=29 &64)=0 400)>0 NA%=&6D8 QB%=9 JB%>2 JB%<&E _B(YC%,dA%,NA%): Q%,N%,X%:N%=dA%:X%=NA%: dA%<=2 N%=dA%+&C:X%=NA%-1 !XaQ%=(YC%+2.6*(N%+1)+X%+(X% 4)-(X% &64)+(X% 400)) NA%<&6D8 (NA%=&6D8 (dA%<9 (dA%=9 YC%<3))) Q%=Q%-3 Q%=Q%+7 zB(YC%,dA%,NA%)) RB(QB%): QB%<1 QB%>&C =_c_Calendar_MonthInvalid$ _m_Calendar_MonthStr$,(QB%-1)*3+1,3) z(a%,f%,RC%): RC%=0 KB(a%,f%) x(a%,f%) aA(YC%,dA%,NA%): jM%,jB$,JB%,uH%,lM%: &406C0:lM%= cC(dA%,NA%):jM%= _B(1,dA%,NA%):jB$= RB(dA%): H(_m_DatePick_DBoxHandle%): A(_m_DatePick_DBoxHandle%,_c_DatePick_YearIcon%, (NA%), A(_m_DatePick_DBoxHandle%,_c_DatePick_MonthIcon%,jB$, uH%=_c_DatePick_FirstIcon%+jM%: YE%=1 Z(_m_DatePick_DBoxHandle%,YE%+_c_DatePick_FirstIcon%,0): A(_m_DatePick_DBoxHandle%,YE%+_c_DatePick_FirstIcon%,"", A(_m_DatePick_DBoxHandle%,YE%+39,"", Z(_m_DatePick_DBoxHandle%,YE%+39,0) Z(_m_DatePick_DBoxHandle%,YE%+46,0): A(_m_DatePick_DBoxHandle%,YE%+46,"", YE%:OK%= OB(_m_DatePick_DBoxHandle%,_c_DatePick_ESG%): OK%>=0 z(_m_DatePick_DBoxHandle%,OK%,0) JB%=1 A(_m_DatePick_DBoxHandle%,uH%+JB%-1, (JB%), Z(_m_DatePick_DBoxHandle%,uH%+JB%-1,3): JB%=_m_DatePick_CurrDay% dA%=_m_DatePick_CurrMonth% NA%=_m_DatePick_CurrYear% z(_m_DatePick_DBoxHandle%,uH%+JB%-1,1) f(_m_DatePick_DBoxHandle%, &406C1: _DatePicker_BumpHandler2(NA%,QC%): dA%:dA%= C(_m_DatePick_DBoxHandle%,_c_DatePick_MonthIcon%)): aA(1,dA%,NA%):= (NA%) _DatePicker_BumpHandler(dA%,QC%): NA%:NA%= C(_m_DatePick_DBoxHandle%,_c_DatePick_YearIcon%)): dA%<1 NA%-=1:dA%=&C dA%>&C NA%+=1:dA%=1 aA(1,dA%,NA%):= RB(dA%) BC(JB%): JB%<1 JB%>7 =_c_Calendar_DayInvalid$ _m_Calendar_DayStr$,(JB%-1)*3+1,3) CC(a%,f%): lD%,v%:v%= B(40):v%!0=a%:v%!4=f%: &400CE,,v%:lD%=(v%!24>>&C) B(v%):=lD% QD(a%,f%,D$): b%,k%,iA%,A$:A$= I(a%): A$="iconbar" f%=-1 E(A$,f%,_EVNTS_CLICKSELECT_ANCHOR%,_EVNTS_CLICKSELECT_REC_SIZE%, ):k%=!_EVNTS_CLICKSELECT_ANCHOR%:k%+=b%:$k%=A$:k%!&C=f%: !_EVNTS_CLICKSELECT_DATA%=0 )!_EVNTS_CLICKSELECT_DATA%= (D$)+1) :iA%=k%+16: Q(iA%,_EVNTS_CLICKSELECT_DATA%,_EVNTS_CLICKSELECT_DATAOFFSET%,D$): CC(a%,f%)=_BUTTON_TYPE_NEVER Z(a%,f%,_BUTTON_TYPE_CLICK) RD(a%,f%,c$): b%,k%,A$:A$= I(a%): A$="iconbar" f%=-1 E(A$,f%,_EVNTS_HELPTAG_ANCHOR%,_EVNTS_HELPTAG_REC_SIZE%, ):k%=!_EVNTS_HELPTAG_ANCHOR%:k%+=b%:$k%=A$:k%!&C=f%: !_EVNTS_HELPTAG_DATA%=0 %!_EVNTS_HELPTAG_DATA%= (c$)+1) :iA%=k%+16: Q(iA%,_EVNTS_HELPTAG_DATA%,_EVNTS_HELPTAG_DATAOFFSET%,c$): XB(a%,f%,nM%,oM%,wC%,xC%,AS%,pM%,kB$,lB$): k%,b%,A$:A$= I(a%):b%= E(A$,nM%,_EVNTS_BUMP_ANCHOR%,_EVNTS_BUMP_REC_SIZE%, ):k%=!_EVNTS_BUMP_ANCHOR%:k%+=b%:$k%=A$:k%!&C=nM%:k%!16=AS%:k%!20=f%:k%!24=wC%:k%!28=xC%: pM%=-1 k%!40=1 k%!40=0 !_EVNTS_BUMP_DATA%=0 !_EVNTS_BUMP_DATA%= :iA%=k%+32: kB$<>"" Q(iA%,_EVNTS_BUMP_DATA%,_EVNTS_BUMP_DATAOFFSET%,kB$) !iA%=-1 :iA%=k%+36: lB$<>"" Q(iA%,_EVNTS_BUMP_DATA%,_EVNTS_BUMP_DATAOFFSET%,lB$) !iA%=-1 E(A$,oM%,_EVNTS_BUMP_ANCHOR%,_EVNTS_BUMP_REC_SIZE%, ):k%=!_EVNTS_BUMP_ANCHOR%:k%+=b%:$k%=A$:k%!&C=oM%: pM%=-1 k%!40=1 k%!40=0 k%!40=k%!40 (1<<2): _DatePicker_PreOpen(a%): p%,RD$,TD$:_m_DatePick_DBoxHandle%=a%: &606C0: A(_m_DatePick_DBoxHandle%,_c_DatePick_FirstWeekDayIcon%+p%, BC(p%+1), A(_m_DatePick_DBoxHandle%,_c_DatePick_TodayIcon%, A("today"), QD(_m_DatePick_DBoxHandle%,-1,"_DatePicker_Click"): RD(_m_DatePick_DBoxHandle%,-1,"dpwin"): ZA(_m_DatePick_CurrDay%,_m_DatePick_CurrMonth%,_m_DatePick_CurrYear%): aA(_m_DatePick_CurrDay%,_m_DatePick_CurrMonth%,_m_DatePick_CurrYear%) XB(_m_DatePick_DBoxHandle%,_c_DatePick_MonthIcon%,_c_DatePick_MonthIncIcon%,_c_DatePick_MonthDecIcon%,-9999,9999,1, ,"_DatePicker_BumpHandler","_DatePicker_DecodeDate") XB(_m_DatePick_DBoxHandle%,_c_DatePick_YearIcon%,_c_DatePick_YearIncIcon%,_c_DatePick_YearDecIcon%,-9999,9999,1, ,"_DatePicker_BumpHandler2",""): &406C1:=0 _Win_CalTap_Click(a%,f%): &406C0: &406C1:=0 &406C0: A("wca_templ"):CS%= A("wca_iok")):DS%= A("wca_i60c1")):ES%= A("wca_i60t1")):GS%= A("wca_i60c2")):HS%= A("wca_i60t2")):IS%= A("wca_i120c1")):JS%= A("wca_i120t1")):KS%= A("wca_i120c2")):LS%= A("wca_i120t2")) A("wca_i180c1")):NS%= A("wca_i180t1")):OS%= A("wca_i180c2")):PS%= A("wca_i180t2")):QS%= A("wca_i240c1")):US%= A("wca_i240t1")):WS%= A("wca_i240c2")):DP%= A("wca_i240t2")):tO%= A("wca_i360c1")):uO%= A("wca_i360t1")) A("wca_i360c2")):wO%= A("wca_i360t2")):xO%= A("wca_i480c1")):yO%= A("wca_i480t1")):zO%= A("wca_i480c2")):_O%= A("wca_i480t2")):dP%=xN%:DO%= &406C1: PA:=y% mA%:mA%= PA+y%!44:=mA% k(PD%, UB%): wA%:wA%= 60:RB%=wA%!0:TB%=wA%!4:SB%=wA%!8:UB%=wA%!&C &78:RB%=wA%!16:TB%=wA%!20:SB%=wA%!24:UB%=wA%!28 &B4:RB%=wA%!32:TB%=wA%!36:SB%=wA%!40:UB%=wA%!44 &F0:RB%=wA%!48:TB%=wA%!52:SB%=wA%!56:UB%=wA%!60 360:RB%=wA%!64:TB%=wA%!68:SB%=wA%!72:UB%=wA%!76 480:RB%=wA%!80:TB%=wA%!84:SB%=wA%!88:UB%=wA%!92 55,"Unknown tape length" WD(a%): RB%,SB%,TB%,UB%: k(60,RB%,SB%,TB%,UB%): A(a%,DS%, (RB%), A(a%,ES%, (SB%), A(a%,GS%, (TB%), A(a%,HS%, (UB%), k(&78,RB%,SB%,TB%,UB%): A(a%,IS%, (RB%), A(a%,JS%, (SB%), A(a%,KS%, (TB%), A(a%,LS%, (UB%), k(&B4,RB%,SB%,TB%,UB%): A(a%,MS%, (RB%), A(a%,NS%, (SB%), A(a%,OS%, (TB%), A(a%,PS%, (UB%), k(&F0,RB%,SB%,TB%,UB%): A(a%,QS%, (RB%), A(a%,US%, (SB%), A(a%,WS%, (TB%), A(a%,DP%, (UB%), k(360,RB%,SB%,TB%,UB%): A(a%,tO%, (RB%), A(a%,uO%, (SB%), A(a%,vO%, (TB%), A(a%,wO%, (UB%), k(480,RB%,SB%,TB%,UB%): A(a%,xO%, (RB%), A(a%,yO%, (SB%), A(a%,zO%, (TB%), A(a%,_O%, (UB%), _Win_CalTap_PreOpen(a%): WD(a%):=0 _Win_NotePa_PreOpen(a%):=0 K:=y%!&C i(_search_term$,GC$,HC$,EP%,PK%): _pos%,RF%,_wp$,vH%,iT%,RK%,TG%,vM%,z%,SK%,i%:PK%+=1:SK%= :RF%=PK%:vH%=0:_pos%=RF% 2:TG%=EP%-1: TG%<0 TG%=0 :RK%=PK%: :_wp$= ("FN"+GC$+"( _pos% )"):TK%=_pos%: _search_term$=_wp$ ("FN"+HC$+"( _search_term$,_wp$ )")= #-+RK%=_pos%:RF%=_pos%-TG%:_pos%=RF% 2+vH% TG%=_pos%:vH%=_pos%:RF%=RK%-_pos%:_pos%=RF% 2+vH% vM%=TK% vM%=TK%: #= i%=-1 i%=TK% w(oA%): i%,xM%: oA%=0 oA%=1 #H3i%= oA%,"_GetTerm","_CompFN",0, K-1): i%>-1 :oA%+=1:i%= oA%,"_GetTerm","_CompFN",0, K-1): i%=-1 :xM%=oA%:=xM% fA(oA%): oA%=0 oA%=1 &406C0:i%= oA%,"_GetTerm","_CompFN",1, K-1): i%>-1 :oA%-=1:i%= oA%,"_GetTerm","_CompFN",1, K-1): i%=-1 oA%=1 &406C1:= w(oA%) _Win_RenTap_bump_id(oA%,QC%): Y=_c_Win_RenTap_IconHandle_Inc% w(oA%)) fA(oA%)) Y=_c_Win_RenTap_IconHandle_Inc% fA(oA%)) w(oA%)) ZB:WO%= H(SC%): d:=y%!36 aA(yC%): c%,GA%:c%=yC%*4:GA%= d:=GA%!c% e(RA%):=RA%!0 VG%,RA%:RA%= aA(0):VG%= e(RA%):=VG% WG%,GA%:GA%= d:WG%= e(GA%!(( K-1)*4)):=WG% hA(w%): N:=y%!16 _(a%, TP%): fA%,qA%,rA%,sA%: n(a%,fA%,qA%,rA%,sA%):SP%=rA%-fA%:TP%=sA%-qA%: ZD(l%, sA%): d%:d%= _(l%):d%!0=l%: &400CC,,d%:fA%=d%!44:qA%=d%!48:rA%=d%!52:sA%=d%!56: g(d%): iA:=rN%-16 V:=dG% D(CA%): q(CA%) w%=CA%!16 w%=-1 wD%,LC%,_A%,zC%,j%: wD%=0 G:_A%=OF%*4:zC%= V:wD%=0: _A%<>-4 :j%=LC%!_A%:wD%+=1:_A%+=4:xD%= D(j%): xD%<>zC% j%=-1 :=wD%-1 YK%,XP%,YP%,DN%,ZP%: _(SA%,HF%,cJ%): ZD(SA%,XP%,YP%,DN%,ZP%):HF%=DN%:YK%=( iA+(PC%*( RC+1))): cJ%_c_Idx_Tape_ListTerminator%: e(GA%!c%)=w% ZK%=GA%!c% :c%+=4: :=ZK% WB(w%): RA%,IA$:RA%= j(w%): RA%=-1 99,"Tape id not found in tape list" RA%!20=-1 IA$="" IA$=$(RA%!20) :=IA$ UC(w%): RA%:RA%= j(w%):=RA%!4 QA(TF%): TF%!&C=-1 $D p$="" p$=$(TF%!&C) p$="" dD(w%):y%!32=w%: I(GB%): hA(GB%)= A(u%,_c_WinMWPane_TapeID_Icon%, ):dG%=GB%: bA(GB%): C(u%,_c_WinMWPane_TNrInc_Icon%,0): C(u%,_c_WinMWPane_TNrDec_Icon%,0): C(u%,_c_WinMWPane_DelTape_Icon%,0): C(u%,_c_WinMWPane_Save_Icon%,0): C(u%,_c_WinMWPane_TapeID_Icon%,0): C(u%,_c_WinMWPane_NewRec_Icon%,0): C(u%,_c_WinMWPane_Select_Icon%,0) C(u%,_c_WinMWPane_Report_Icon%,0): C(u%,_c_WinMWPane_TMake_Icon%,0): C(u%,_c_WinMWPane_TMakeM_Icon%,0): C(u%,_c_WinMWPane_Renum_Icon%,0): C(u%,_c_WinMWPane_TLen_Icon%,0): C(u%,_c_WinMWPane_TLenM_Icon%,0) C(u%,_c_WinMWPane_TNrInc_Icon%,1): C(u%,_c_WinMWPane_TNrDec_Icon%,1) A(u%,_c_WinMWPane_TMake_Icon%, WB(GB%), A(u%,_c_WinMWPane_TLen_Icon%,"E"+ UC(GB%)), C(u%,_c_WinMWPane_TNrInc_Icon%,1): C(u%,_c_WinMWPane_TNrDec_Icon%,1): C(u%,_c_WinMWPane_DelTape_Icon%,1): C(u%,_c_WinMWPane_Save_Icon%,1): C(u%,_c_WinMWPane_TapeID_Icon%,1): C(u%,_c_WinMWPane_NewRec_Icon%,1): C(u%,_c_WinMWPane_Select_Icon%,1) C(u%,_c_WinMWPane_Report_Icon%,1): C(u%,_c_WinMWPane_TNrInc_Icon%,1): C(u%,_c_WinMWPane_TNrDec_Icon%,1): C(u%,_c_WinMWPane_TMake_Icon%,1): C(u%,_c_WinMWPane_TMakeM_Icon%,1): C(u%,_c_WinMWPane_Renum_Icon%,1): C(u%,_c_WinMWPane_TLen_Icon%,1) C(u%,_c_WinMWPane_TLenM_Icon%,1) C(u%,_c_WinMWPane_Notes_Icon%,( j(GB%))="")): dD(GB%): XB(w%):=( (w%)+":"+"0","_Win_Main_GetTerm","_Win_Main_Compare",0, N-1))*4 aB(JA%,_B%):JA%!16=_B%: gD(RA%,w%):RA%!0=w%: I%,AF%,zD%,IN%,JN%:zD%= :AF%= K-2:IN%=zD%!(I%*4):JN%=zD%!((I%+1)*4): e(IN%)> e(JN%) zD%!(I%*4),zD%!((I%+1)*4):AF%= r:=sI% H(JA%):=JA%!20 I%,QD%,tB%,RD%,SD%: &406C0: :QD%= N-2:RD%=tB%!(I%*4):SD%=tB%!((I%+1)*4): D(RD%)> D(SD%) tB%!(I%*4),tB%!((I%+1)*4):QD%= D(RD%)= D(SD%) H(RD%)> H(SD%) tB%!(I%*4),tB%!((I%+1)*4):QD%= &406C1: jD(_%): c%,hB%: qE%>0 qE%=1 c%=0: LB%!c%<>CG%:hB%=LB%!c%: hB%!0=_% $(hB%+zF%)="":hB%!0=0 :c%+=4: R(_%,fP%): c%,HB%,LA%: _%<>0 &65BC3,_%,fP%: jD(_%) fE%<>fG% R(fE%,0):fE%=fG% ZB(l%): C$,d%:d%= _(l%):d%!0=l%: &400CC,,d%: (d%!32 1<<26) ((d%!60) 256)=0 C$=$(d%+76) C$=$(!(d%+76)) g(d%):=C$ SA%<>CD% ZB(SA%): q$,2)<>" *" i(SA%,q$+" *") :YG%= eA:dJ%= rD(bE%,UF%): KN%,q%,aG%,VF%:KN%= XB(bE%):q%= G:aG%=KN%: aB(q%!aG%,UF%):aG%+=4: q%!aG%=-1 D(q%!aG%)<>bE%:VF%= j(bE%): gD(VF%,UF%): I(UF%): _Win_RenTap_Click(a%,f%): bE%,UF%: &406C0: _c_Win_RenTap_IconHandle_ok%: :bE%= C(SC%,_c_Win_RenTap_IconHandle_CurrID%)):UF%= C(SC%,_c_Win_RenTap_IconHandle_NewID%)): I(bE%): rD(bE%,UF%) _c_Win_RenTap_IconHandle_cancel%: &406C1:=0 S(EA%): jA%,bG%,UC%,VC%:bG%= B(20): &400CF,,bG%:IA%= B(36):IA%!0=EA%: &400CB,,IA%:UC%=(IA%!4-IA%!&C)/2:VC%=(IA%!16-IA%!8)/2: MA(EA%,bG%!0+UC%,bG%!4-VC%): B(IA%): B(bG%): _Win_RenTap_PreOpen(a%): SC%<>_c_Win_RenTap_NotCreated% S(SC%): A(SC%,_c_Win_RenTap_IconHandle_CurrID%, A(SC%,_c_Win_RenTap_IconHandle_NewID%, eB:cK%= A("wop_irealt")):LI%= A("wop_imwp")):xK%= A("wop_imp")):kP%= A("wop_ititles")):lP%= A("wop_isubs")):mP%= A("wop_itlen")):nP%= A("wop_itmake")):oP%= A("wop_ichann")):pP%= A("wop_itfmt")):qP%= A("wop_iset")) A("wop_ican")):NN%= A("wop_isave")):sP%= A("wop_idef")):ON%= A("wop_ibgo")):PN%= A("wop_ibge")):QN%= A("wop_ibgs")):RN%= A("wop_ifgo")):SN%= A("wop_ifge")):TN%= A("wop_ifgs")):KT%= A("wop_ibgom")):LT%= A("wop_ibgem")) {MT%= A("wop_ibgsm")):NT%= A("wop_ifgem")):OT%= A("wop_ifgom")):PT%= A("wop_ifgsm")):MC$= A("wop_templ"):FL%= VA%=gD% E(MC$,VA%) RA:=FA%!4 aB:=FA%!16 bB:=FA%!&C cB:=FA%!8 dB:=FA%!20 eB:=FA%!24 a(VA%,ON%, a(VA%,SN%, a(VA%,PN%, a(VA%,RN%, a(VA%,QN%, a(VA%,TN%, &406C0: VA%=gD% K(VA%,LI%, K(VA%,cK%,FA%?0=1): K(VA%,xK%, S(VA%): P(VA%): &406C1: _Options_ButtonBarClick(a%,f%): gB:=0 _Options_ColourMenu_PreOpen(_%): GA(l%,MA%): UN%,v%:v%= B(40):v%!0=l%:v%!4=MA%: &400CE,,v%:UN%=(v%!24>>28) B(v%):=UN% T(oF%,pF%): PC(oF%,pF%):o%=AA%!24:g%=(o% &200000): hB(fA%,qA%,rA%,sA%):FA%!36=fA%:FA%!40=qA%:FA%!44=rA%:FA%!48=sA%: sA%): SA%<>CD% n(SA%,fA%,qA%,rA%,sA%) fA%=-1:qA%=-1:rA%=-1:sA%=-1 fA%,qA%,rA%,sA%: VA%=gD% K(VA%,cK%,FA%?0=1): T(VA%,LI%)= hB(-1,-1,-1,-1) yD(fA%,qA%,rA%,sA%): hB(fA%,qA%,rA%,sA%) K(VA%,LI%, ("SAVE .Options "+ ~FA%+"+"+ ~BL%): ("STAMP .Options"): VA%<>gD% dA(VA%):VA%=gD% EA%,PG%): jA%,x%,VN%,GD%,xB%:xB%= z(EA%):VN%= BA(EA%):jA%= B(&64+(xB%*32)):jA%!0=EA%: &400CC,,jA%:jA%?39=PG%:_shell_open_behind%=jA%!28:GD%=jA%!28: &400C3,,jA%: &400C1,,jA%+4 x%:jA%!0=x%: &400CC,,jA%: EA%<>x% w(EA%,x%):EA%=x% f(x%,0,GD%) B(jA%): lB(WN%): SA%<>CD% kB(SA%,WN%):lH%=WN% ZG%<>_c_Menu_Title_MenuNotCreated% R(ZG%,0):ZG%=_c_Menu_Title_MenuNotCreated% L(&FFF,_c_Menu_Title_FileName$): SF%<>XG% R(SF%,0):SF%=XG% L(&FFF,AC$): cE%<>_c_Menu_TLen_NotCreated% R(cE%,0):cE%=_c_Menu_TLen_NotCreated% L(&FFF, W+".UserData.TapeLngts"): gF%=_c_Menu_TMake_NotCreated% R(gF%,0):gF%=_c_Menu_TMake_NotCreated% L(&FFF, W+".UserData.TapeMakes"): aE%<>_c_Menu_Chan_MenuNotCreated% R(aE%,0):aE%=_c_Menu_Chan_MenuNotCreated% L(&FFF, W+".UserData.Channels"): fF%<>kG% R(fF%,0):fF%=kG% L(&FFF,wA$): _Options_Click(a%,f%): qP%,NN%:FA%!4= GA(VA%,ON%):FA%!8= GA(VA%,RN%):FA%!&C= GA(VA%,PN%):FA%!16= GA(VA%,SN%):FA%!20= GA(VA%,QN%):FA%!24= GA(VA%,TN%): T(VA%,cK%) FA%?0=1 FA%?0=0 T(VA%,xK%) f%=NN% _Options_MenuSelect(d%): gB:=0 _dis_fn_fsp(oB%,QC%): 'N(HB$= 60)+"h"+ "00"+ 60),2) (oB%) :=HB$ 'WBNC$= A("hmd_id"):OC$= A("hmd_title"):pO%= :nB$= A("hmd_item1") KG%=RH% &406C0: OE:KG%= t(OC$,NC$,0):e%= A("hmd_item0"),""):e%= A("hmd_item1"),""): &406C1 gB:=nB$ cG%=-1 'w%cG%= _decode_dis_fsp( C(CB%,uC%)) :=cG% BA:qF%=qF% _Win_FSp_PreOpen(a%):IJ%= _A:JJ%= CB%<>_c_WinFSp_NotCreated% S(CB%) :cG%=-1: BA:=0 nB(l%,MA%): &400D2,l%,MA%,-1,-1,-1, C(l%,MA%)): _Win_FSp_PostOpen(EA%): nB(EA%,uC%):=0 e%,Y$: bD%=_c_WinFSp_NotCreated% E(RC$,bD%): _(bD%,GG%,PJ%): x(CB%,YN%): A(CB%,_P%, C(CB%,uC%): "h",Y$)=0 A(CB%,uC%, _dis_fn( (Y$),0), _Win_FSp_PreOpen(CB%): P(CB%):e%= _Win_FSp_PostOpen(CB%):LL%= _Win_FSp_ShowWindow(a%): hA:=0 _Win_FSpP_Click(a%,f%): _D%,QA%,FB%,A:_D%= B(20): &400CF,,_D%:FB%=_D%!4:QA%= B(40):!QA%=a%: &400CB,,QA%:A=QA%!16-QA%!24:KJ%=((A-FB%) HG%)+1: UA:=0 P:=dK% D(CA%,CQ%):CA%!24=CQ%: CA(CA%,BC%): CA%?8=CA%?8 (1<<1) CA%?8=CA%?8 (1<<1) Q(n%): q%,kA%,OE%:q%= G:kA%=-4: :kA%+=4: q%!kA%=n% q%!kA%=_c_Idx_Recs_ListTerminator%: q%!kA%=_c_Idx_Recs_ListTerminator% OE%=-1 OE%=kA%/4 :=OE% AB(j%): s%,yC%: Q(j%): Z(n%): q%,kA%:q%= G:kA%=0: q%!kA%<>n%:kA%+=4: kA%/4= 88,"attempt to access beyond the last record in database - not implemented!" :=q%!(kA%+4) HA(j%): s%,EB%: AB(j%) Z(j%): D(j%)= D(EB%) FA%?0=1 SA(j%): AB(j%) HA(j%) b(JA%,DQ%):JA%!20=DQ%: DA(j%): w%,AB%,q%,lC%,ZN%:w%= D(j%):AB%=( (w%)+":"+"0","_Win_Main_GetTerm","_Win_Main_Compare",0, N-1))*4:q%= HA(q%!AB%): H(q%!AB%)+ F(q%!AB%) SA(q%!AB%)= lC%=9999 H(q%!(AB%+4)) :ZN%= Z(q%!AB%): b(ZN%,lC%):AB%+=4: KG%<>RH% &406C0: R(KG%,0):KG%=RH%: &406C1 OD:=gJ% iB:=qI% jA:LL%= H(CB%): &406C0: A("wnr_iok")):gK%= A("wnr_itit")):fU%= A("wnr_ititm")):hK%= A("wnr_isub")):iU%= A("wnr_isubm")):IQ%= A("wnr_itid")):WF%= A("wnr_ilen")):ZS%= A("wnr_ileni")):bS%= A("wnr_ilend")):JQ%= A("wnr_ichan")):dS%= A("wnr_ichanm")) A("wnr_idate")):iS%= A("wnr_idatem")):KQ%= A("wnr_iclr")):LQ%= A("wnr_ican")):zH%= A("wnr_istar")):jK%= A("wnr_inote")):rS%= A("wnr_itit2")):TD%= A("wnr_isplp")):cN%= A("wnr_ilock")):_H%= A("wnr_iend")):vS%= A("wnr_iendd")) VwS%= A("wnr_iendi")):DG%=-1:SC$= A("wnr_templ"):wB%=DG%:XF%=-1: E(SC$,wB%):oI%= &406C1: IA(mA%): o%,s%,E: mA%<&8000 &2001D,6,!(_heap_code%+28),mA% ,,,E;o%: R(CA%): C$,DA%:DA%= IA(CA%)= CA%!0=-1 C$="*GAP*" IA(CA%!0) C$=$(CA%!0) 66," Bad title heapblock found.." 66," Bad record heapblock found.." n(j%): R(j%)="*GAP*" JA(C$,f$,TC$,oB$): _%,X%,E$,e%,kK%: L(oB$) (oB$):kK%=0: E$<>"" E$,1)<>"#" kK%+=1 #X%=0:_%= t(C$,f$,kK%): E$<>"" E$,1)<>"#" M(_%,E$,TC$) SF%=XG% &406C0:J$= A(lC$):SF%= JA(J$,pC$,"",AC$): &406C1 aE%=_c_Menu_Chan_MenuNotCreated% &406C0:J$= A(_c_Menu_Chan_MessTag_Title$): L(_c_Menu_Chan_FileName$)= ,aE%= t(J$,fB$,1):e%= M(aE%,"Unknown","") JA(J$,fB$,"_MenuSelect_Channel",_c_Menu_Chan_FileName$) &406C1 ZG%=_c_Menu_Title_MenuNotCreated% &406C0:J$= A(_c_Menu_Title_MessTag_Title$):ZG%= JA(J$,hC$,"",_c_Menu_Title_FileName$): &406C1 x(wB%,cN%): _Win_NRec_PreOpen(a%): r%,eA$,YC%,dA%,NA%,QD$: _$,lC%: &406C0: :XF%= n(XF%) A(a%,gK%,"", A(a%,hK%,"", C(a%,jK%, ZA(YC%,dA%,NA%):eA$= (YC%),2)+".":eA$+= (dA%),2)+".":eA$+= (NA%),2): A(a%,bN%,eA$, A(a%,IQ%, A(a%,zH%, _dis_fn( P),4), ):_$= _dis_fn(( _A),4): A(a%,_H%,_$, A(a%,zH%, _dis_fn2( P),4), lC%=9999 _dis_fn2(lC%,4): A(a%,_H%,_$, A(a%,WF%, _dis_fn( _A,4), P)="S" A(a%,TD%,"SP", A(a%,TD%,"LP", &406C1:=0 wB%=DG% _Win_NRec_PreOpen(wB%): S(wB%) P(wB%): BA:qI%= _Win_FSp_ClickSelect(a%,f%): AI%,lK%,XA%: RQ%:lK%= u:AI%= lK%=TH% P)="S" )h AI%= :XA%=0: lK%=SH% P)="L" )l AI%= )o XA%= A("chsplp"), O,"") XA%=1 P)="L" P)/2) P)*2) P,BC%): XA%<>2 _Win_FSpPane_UserRedraw(d%,nA%,eB%): QE%,EG%,XC%,TQ%,gC%: h$,I%,iB%,n%,HC%:QE%= QE%>0 _decode_dis_fsp( C(CB%,uC%)):XC%= u:gC%= l:RE%=0:iB%=eB%-OJ%-(RE%*HG%): QE%-1:n%=gC%!(I%*4):TQ%= J(n%):HC%= F(n%): h$="L" XC%=SH% HC%=HC%/2 h$="S" XC%=TH% HC%=HC%*2 HC%>=EG% RE%=KJ%-1 &400E6,UQ%: nA%,iB%+2,GG%,-30: &400E6,VQ%:dK%=n%:XC$=h$:WQ%= F(n%) &400E6,XQ% nA%+YQ%,iB%: " "+ D(n%)),3): nA%+ZQ%,iB%: _dis_fn( F(n%),0) " "+ F(n%)),4) nA%+aQ%,iB%: XC%<>YN% XC%=SH% h$="L" XC%=TH% h$="S" :iB%-=HG%:RE%+=1 _Win_FSp_MenuSelect(d%): hA:=0 FA:RT%= A(DD%,BI%,"", ):eG%=-1: H(DD%): s(CA%): mK%,o%:o%=CA%?8: mK%= :=mK% sC(w%): s%,q%,AB%: hA(w%)= &406C0:AB%=( (w%)+":"+"0","_Win_Main_GetTerm","_Win_Main_Compare",0, N-1))*4:q%= G:s%= HA(q%!AB%): s(q%!AB%)= :AB%+=4: &406C1 WG%:RA%= K-1):WG%= e(RA%):=WG% lB(w%): _C%,UD%,RA%: NC%:NC%=w%+1: :UD%= (NC%),"_GetTerm","_CompFN",0, K-1): UD%=-1 NC%+=1: _C%=NC% UD%<>-1 NC%=0 _C%<>0:=_C% mE(GF%):y%!16=GF%: O(CA%,BC%): o%:o%=CA%?8: o%=o% o%=o% :CA%?8=o%: oE(GF%): GF%<0 y%!24=0 y%!24=GF% DA%,I%,n%,gC%,gG%: lN%:lN%= v:gG%=0: B((lN%+30)*4)):gC%= l:DA%= G:I%=0: *J gG%=0 :n%=DA%!(I%*4): R(n%)="*GAP*" D(n%)<= O(n%, ):gC%!(gG%*4)=n%:gG%+=1 :I%+=1: DA%!(I%*4)=-1 oE(gG%):gC%!( v*4)=_c_Idx_Gaps_ListTerminator%: qE:y%!&C-=1: y%!&C<0 y%!&C=0 rE(w%): c%,GA%,z%:GA%= d:c%=0:z%= GA%!c%<>-1: e(GA%!c%)=w% GA%!c%=GA%!(c%+4) :c%+=4: tE(w%): q%,AB%,c%,YA%,eT%,p%,_C%: hA(w%)= &406C0:_C%= lB(w%):AB%=( (w%)+":"+"0","_Win_Main_GetTerm","_Win_Main_Compare",0, N-1))*4:q%= G:c%=AB%:YA%=0: :c%+=4:YA%+=1: q%!c%=-1 D(q%!c%)<>w%: &400F1,_U%!&94,q%+AB%+(YA%*4),_U%!&94,q%+AB%,(( N+1)*4)-(AB%+(YA%*4)): N-YA%): rE(w%) I(_C%): &406C1 _Win_DTape_ClickSelect(a%,f%): XA%,CI%: gQ%:eG%= C(a%,BI%)): hA(eG%)= I(eG%):CI%= sC(eG%) ,XA%= A("deltaplock"), O,""): XA%=1 CI%= tE(eG%) A(DD%,BI%, _Win_DTape_PreOpen(a%): &406C0: S(a%): A(DD%,BI%, &406C1:=0 sA%):fA%=FA%!36:qA%=FA%!40:rA%=FA%!44:sA%=FA%!48: vE(YC$,fA%,qA%,rA%,sA%): QA%:QA%= sA(YC$):QA%!0=fA%:QA%!4=qA%:QA%!8=rA%:QA%!&C=sA%: J(a%,f%): C(a%,f%,1): mI%,nI%,nA$: E(_c_WinMWPane_TemplateName$,u%): J(u%,_c_WinMWPane_TNrInc_Icon%): J(u%,_c_WinMWPane_TNrDec_Icon%): J(u%,_c_WinMWPane_TapeID_Icon%): J(u%,_c_WinMWPane_Save_Icon%): J(u%,_c_WinMWPane_DelTape_Icon%): J(u%,_c_WinMWPane_NewRec_Icon%) J(u%,_c_WinMWPane_Select_Icon%): J(u%,_c_WinMWPane_Report_Icon%): J(u%,_c_WinMWPane_TMake_Icon%): J(u%,_c_WinMWPane_TMakeM_Icon%): J(u%,_c_WinMWPane_Renum_Icon%): J(u%,_c_WinMWPane_TLen_Icon%): J(u%,_c_WinMWPane_TLenM_Icon%) J(u%,_c_WinMWPane_Notes_Icon%): _(u%,xQ%,rN%): l%,vC%): d%,o%,UH%,x%:UH%= BA(l%):d%= _(l%):d%!0=l%: &400CC,,d%:o%=d%!32:o%=(o% vC%):d%!32=o%: &400C3,,d%: &400C1,,d%+4 x%:!d%=x%: &400C5,,d% g(d%): x%<>l% w(l%,x%): fC(l%,x%):l%=x% zE(a%, DI%,o%,UC%,VC%): b%,k%,IB%,A$,e$,GC%:A$= I(a%):e$= I(DI%):IB%=0:GC%= NB(DI%): 1<<5)=0 uB(DI%,1<<5) 1<<1) uB(DI%,1<<1) E(A$,IB%,_EVNTS_PANES_ANCHOR%,_EVNTS_PANES_REC_SIZE%, )>-1:IB%+=1: E(A$,IB%,_EVNTS_PANES_ANCHOR%,_EVNTS_PANES_REC_SIZE%, ):k%=!_EVNTS_PANES_ANCHOR%:k%+=b%:$k%=A$:k%!&C=IB%:k%!20=o%:k%!24=UC%:k%!28=VC%: !_EVNTS_PANES_DATA%=0 +S#!_EVNTS_PANES_DATA%= (e$)+1) :iA%=k%+16: Q(iA%,_EVNTS_PANES_DATA%,_EVNTS_PANES_DATAOFFSET%,e$): _E(a%): _c_WinMWPane_NotCreated% zE(a%,u%,_c_WinMWPane_PanePos%,_c_WinMWPane_XPos%,_c_WinMWPane_YPos%): _WinSave_GetNativeFileType:=_c_WinSave_FileType% EB:=QQ% wC:=mC$ AF(OA$): jA("UtilityModule",3.5) OA$<>"" LB$=OA$ _c_Fonts_CurrentDeskTopFont%=_c_Fonts_DeskTopFont_NotKnown% &600F2,_c_Fonts_ReadDeskTopFont_Reason% _c_Fonts_CurrentDeskTopFont% :=_c_Fonts_CurrentDeskTopFont% mI%,nI%,nA$: fA%,qA%,rA%,sA%,QA%: &406C0: tB(fA%,qA%,rA%,sA%): fA%<>-1 vE(_B$,fA%,qA%,rA%,sA%) E(_B$,SA%): _E(SA%):mI%= _WinSave_GetNativeFileType:nI%= EB:nA$= AF("_Win_Main_DeskFontChanged"): _(SA%,HF%,cJ%): lH%=-1 kB(SA%,lH%):mM%= &406C1: CF(ME%,nN%,O$,U$): g%,fB%,t%,YB%: _U%!&DC=0 _U%!&DC= B(32):g%=_U%!&DC:g%!0=ME%:g%!4= O$+1):$(g%!4)=O$:g%!8=nN%:g%!&C= U$+1):$(g%!&C)=U$:g%!16=-1:g%!20=-1:g%!24=-1:g%!28=-1 U(_U%!&DC,32):_U%!&DC=YB%:t%=0: :t%+=16: YB%!t%=-1:g%=_U%!&DC:g%!t%=ME%:g%!(t%+4)= O$+1):fB%=g%!(t%+4):$(fB%)=O$:g%!(t%+8)=nN%:g%!(t%+&C)= U$+1):fB%=g%!(t%+&C):$(fB%)=U$:g%!(t%+16)=-1:g%!(t%+20)=-1:g%!(t%+24)=-1:g%!(t%+28)=-1 DF(ME%,PF%,O$): &45BCE,ME%,PF%: O$<>"" &45BCC,, CF(ME%,PF%,O$,"") &406C0:jE%= A("MainMenu"),VC$,0):_N%= A("AddTape"),"_MenuSelect_NewTape"):TS%= A("DelTape"),"_MenuSelect_DelTape"):KR%= A("RenumTape"),"_MenuSelect_RenTape"):iN%= A("Selection"),""):DM%= A("Reports"),"") A("NewRec"),"_Win_FSp_MenuSelect"):lT%= A("NotePad"),"_MenuSelect_NotePad"):IM%= A("SaveData"),""):yN%= A("SelMenu"),"Selection_Menu",0):jP%= A("SelAll"),"_MenuSelect_SelAll"):hN%= A("SelClear"),"_MenuSelect_SelClear") A("SelDel"),"_MenuSelect_SelDel"):bR%= A("SelCreate"),"_MenuSelect_SelCreate"):kR%= A("SelUnseen"),"_MenuSelect_SelUnseen"):yP%= A("SelLocked"),"_MenuSelect_SelLocked"):RL%= A("SetLocked"),"_MenuSelect_SelSetLocked") A("SetUnLockd"),"_MenuSelect_SelSetUnLocked"):aN%= A("SetUnseen"),"_MenuSelect_SelSetUnseen"):ZL%= A("SetSeen"),"_MenuSelect_SelSetSeen"): DF(iN%,yN%,""): NA(DM%,"report","_PreOpen_Report","") NA(IM%,"xfer_send","_PreOpen_Xfer",""): Y("A", ,"",0,"_MenuSelect_SelAll",""): Y("X", ,"",0,"_MenuSelect_SelDel",""): Y("Z", ,"",0,"_MenuSelect_SelClear",""): &406C1: FF(a%): jE%=_c_Menu_Main_NotCreated% mA(l%): OB%:OB%= B(&800): &400D6,l%,OB%,&40E000,&E000: !OB%<>-1 nB(l%,!OB%): W(l%,!OB%) B(OB%): &406C0: oN%=-1:ZC$= A("fsp_tempm"):RC$= A("fsp_tempp"):RQ%= A("fsp_ok")):uC%= A("fsp_find")):rT%= A("fsp_inc")):sT%= A("fsp_dec")):SQ%= A("fsp_can")):SH%= A("fsp_sp")):TH%= A("fsp_lp")):YN%= A("fsp_either")):_P%= A("fsp_hmdis")) A("fsp_hmdism")):bP%= A("fsp_esg")):aC$= A("fsp_hotk"):qB$= A("fsp_warnch"):zT%= A("fsp_panet")):AU%=&DC:EU%=-60:OJ%= A("fsp_sty")):HG%= A("fsp_ldep")):YQ%= A("fsp_idoff")):ZQ%= A("fsp_lnoff")):aQ%= A("fsp_spoff")):RE%=0:KJ%=1 ,OhIJ%=-1:JJ%=-1:XQ%=7:VQ%=0:UQ%=&B:dK%=-1:XC$="":WQ%=-1:CB%=oN%:bD%=oN%:GG%=0:PJ%=0:PE%= :cG%=-1:QL%= &406C1: CB%=_c_WinFSp_NotCreated% E(ZC$,CB%): Y(aC$, ,"",CB%,"_Win_FSp_ShowWindow","") &406C0: ,p{SI%=-1:gQ%= A("wdt_iok")):fQ%= A("wdt_ican")):BI%= A("wdt_iid")):FU%= A("wsel_iidm")):rB$= A("wdt_templ"):cO%= &406C1: DD%=SI% E(rB$,DD%) &406C0:sB$= A("wrep_templ"):cC$= A("wrep_hotk"):dC$="":eC$= A("wrep_defnam"):GU%= A("wrep_widdef")):HU%= A("wrep_sdef")):pN%= A("wrep_iall")):hG%= A("wrep_isel")):MU%= A("wrep_itext")):NU%= A("wrep_icsv")):OU%= A("wrep_itsv")) A("wrep_ifnam")):kQ%= A("wrep_ican")):lQ%= A("wrep_idir")):EI%= A("wrep_itwid")):FI%= A("wrep_iswid")):mQ%= A("wrep_iset")): Y(cC$, ,sB$,0,"_PreOpen_Report",""):qN%= :BN%= &406C1: &406C0: A("wsel_iok")):pQ%= A("wsel_ican")):qQ%= A("wsel_iadd")):rQ%= A("wsel_iunsee")):sQ%= A("wsel_ilock")):tQ%= A("wsel_itit")):jU%= A("wsel_ititm")):uQ%= A("wsel_isub")):rU%= A("wsel_isubm")):YF%= A("wsel_iall")) A("wsel_ifrom")):HI%= A("wsel_ito")):vQ%= A("wsel_ifromm")):wQ%= A("wsel_itom")):JB$= A("wsel_templ"):gC$= A("wsel_hotk"):vL%= &406C1: nB%=HH% E(JB$,nB%) Y(gC$, ,"",nB%,"_Win_Select_PreOpen",""): fA%,qA%,rA%,sA%: SA%=CD% tB(fA%,qA%,rA%,sA%): fA%=-1 lC(SA%) :hM%= FF(SA%): P(SA%): mA(SA%): SA%=CD% _ClickSelect_IconBar(a%,f%): NF:=0 kA:=VM% OF:y%!20=-1:y%!28=-1:y%!36=-1:y%!40=-1:y%!88=-1: GC:PA%= B(8):PA%!0=_c_Idx_Recs_ListTerminator%:PA%!4=_c_Idx_Recs_ListTerminator%: PA(PA%):_c_Idx_Recs_UnusedSlots%=1: KA(E$,RA$): E$,1)=RA$:E$= (E$)-1): nB(C$): uB$:uB$= KA(C$," "):=uB$ GA(JA%,C$):C$= nB(C$): C$<>"" JA%!0= C$+1):$(JA%!0)=C$ JA%!0=-1 T(CA%,BC%): o%:o%=CA%?9: o%=o% o%=o% :CA%?9=o%: AD(F$): vB$:vB$= KA(F$," "):=vB$ HA(JA%,F$):F$= AD(F$): F$<>"" JA%!4= F$+1):$(JA%!4)=F$ JA%!4=-1 IA(j%,Q$): Q$="Unknown" -Q Q$="" Q$<>"" -U!j%!36= (Q$)+1):$(j%!36)=Q$ j%!36=-1 x(CA%): CA%!32=-1 -b p$="" p$=$(CA%!32) oA(CA%,G$,ZF%): x(CA%)<>"" CA%!32=-1:CA%!44=-1 G$<>"" -q6dE%= (G$)+1):$(dE%)=G$:CA%!32=dE%:CA%!44=ZF%: l(CA%,BC%): q(CA%)= o%=CA%?9: o%=o% o%=o% (1<<7) :CA%?9=o% CC:y%!16=y%!16+1: PA%:PA%= _c_Idx_Recs_UnusedSlots%=0 aPA%= U(PA%,_c_Idx_Recs_ClaimSize%):_c_Idx_Recs_UnusedSlots%=_c_Idx_Recs_ClaimSize%/4: PA(PA%) XA:=wJ% DC(iG%): q%,YA%: XF:q%= G:YA%= &400F1,_U%!&94,q%,_U%!&94,q%+4,(YA%)*4:!q%=iG% q%!((YA%-1)*4)=iG%:q%!((YA%)*4)=_c_Idx_Recs_ListTerminator% :_c_Idx_Recs_UnusedSlots%-=1: qA(mA%):y%!36=mA%: aF(VB%): GA%:GA%= B((VB%*4)+8):GA%!0=_c_Idx_Tape_ListTerminator%:GA%!4=_c_Idx_Tape_ListTerminator%: qA(GA%): EC:y%!&C+=1: cF(II%): GA%,VB%:GA%= d:VB%= K:GA%!((VB%-1)*4)=II%:GA%!((VB%)*4)=_c_Idx_Tape_ListTerminator%: FC(w%,IA$): RA%:RA%= j(w%): RA%=-1 99,"Tape id not found in tape list" :RA%!20= (IA$)+1):$(RA%!20)=IA$: rA(TF%,G$): QA(TF%)<>"" TF%!&C=-1 G$<>"" +dE%= (G$)+1):$(dE%)=G$:TF%!&C=dE%: jA%,eE%,x%,sN%:sN%= BA(l%):jA%= B(&64+( z(l%)*32)):!jA%=l%: &400CC,,jA%:eE%=jA%!60: (1<<3)) eE%=eE% (1<<3) :eE%=eE% (1<<9):jA%!60=eE%: &400C3,,jA%: &400C1,,jA%+4 l%<>x% w(l%,x%):l%=x% f(x%,0,0) B(jA%): HC(B$): SA%=CD% i(SA%,B$): _WinSave_GetDefaultFileName fF(SA%) mA(SA%):zM%= :YG%= NB%<>MG% dA(NB%):NB%=MG% wB%<>DG% H(wB%) :qI%= DD:=y%!32 SA%<>CD% ZB(SA%): q$,2)=" *" i(SA%, q$-2)) :YG%= sA:dJ%= LC(mA%,ZF%,B$,pB%): i%,h%,YA%,VB%,n%,mC%: c%,rK%,XA%,VD%,Q$,PA%: r$,G$,sK%: .d VD%= A("filemodc"), O,""): XA%=2 .h VD%= _ClickSelect_IconBar(0,0): &406C0: t:wJ%= (B$):y%= &C,4,h%, ,,,,c%: OF:rK%= PA:VB%= K:YA%= N:rK%!&C=0:rK%!16=0: vN%=0 YA%-1:n%= B(yH%+16): &C,4,h%,n%,yH%: n%!0>&8000 GA(n%,C$) n%!0=-1: O(n%, T(n%, n%!4>&8000 n%!4=-1:F$= HA(n%,F$) n%!4=-1 n%!36>&8000 n%!36=-1:Q$= IA(n%,Q$) n%!36=-1 n%!32>&8000 %n%!32=-1:G$= oA(n%,G$,n%!44) n%!32=-1:n%!44=-1 l(n%, DC(n%):PA%= IA(PA%!(vN%*4))= aF(VB%): VB%-1:mC%= B(xH%+4): &C,4,h%,mC%,xH%: cF(mC%): mC%!20>&8000 e(mC%),r$) mC%!&C>&8000 rA(mC%,G$) :mS%= HC(B$): mF:VA$=B$: &406C1:wJ%= &406C1:sK%= sK%<>-1 I(sK%) _Win_IBar_LoadNativeType(mA%,ZF%,B$,pB%): LC(mA%,ZF%,B$,pB%):=0 ED:=_m_ShareBan_User$ _PreOpenInfo(a%): A(a%,0, A(_c_PInfo_MessTag_Prog$), A(a%,1, A(_c_PInfo_MessTag_Purpose$), A(a%,2, A(_c_PInfo_MessTag_Author$), A(a%,3, A(_c_PInfo_MessTag_Version$), A(a%,8, ED,0) _NT_bump_id(oA%,QC%): Y=eN% w(oA%)) fA(oA%)) Y=eN% fA(oA%)) w(oA%)) NB%<>MG% H(NB%) :yA$="": _ClickSelect_NTCan(a%,f%): MC:=0 GA%,sB%:GA%= GA%<>-1 /B sB%= :=sB% GA%,VB%: :GA%= d:VB%= K:GA%= U(GA%,4): qA(GA%): :GA%= B(8):GA%!0=_c_Idx_Tape_ListTerminator%:GA%!4=_c_Idx_Tape_ListTerminator%: qA(GA%): tF(II%): GA%,VB%: :GA%= d:VB%= &400F1,_U%!&94,GA%,_U%!&94,GA%+4,(VB%)*4:!GA%=II% GA%!((VB%-1)*4)=II%:GA%!((VB%)*4)=_c_Idx_Tape_ListTerminator% uF(w%): vF(wN%): I(wN%): C(u%,_c_WinMWPane_Notes_Icon%,( j(wN%))="")): NC(_B%,gE%,JA$): nC%:nC%= B(xH%):nC%!0=_B%:nC%!4=gE%:nC%!8=0:nC%!&C=-1:nC%!16=0: JA$="" nC%!20=-1 nC%!20= (JA$)+1):$(nC%!20)=JA$ :nC%!24=0: tF(nC%): uF(_B%): vF(_B%) OC:y%!24=y%!24+1: B(yH%) yF(JA%,AA$):AA$= nB(AA$): AA$<>"" #JA%!40= AA$+1):$(JA%!40)=AA$ JA%!40=-1 HD(N$): gA$:gA$= KA(N$," "):=gA$ tA(JA%,N$): N$<>"" MgA$= HD(N$):JA%?&C= N$,2)):JA%?&D= N$,4,2)):JA%?&E= N$,2)):JA%?&F=0 JA%?&C=0:JA%?&D=0:JA%?&E=0:JA%?&F=0 _F(w%): PA%:PA%= l:PA%= U(PA%,4): u(PA%): PA%:PA%= B(8):PA%!0=_c_Idx_Gaps_ListTerminator%:PA%!4=_c_Idx_Gaps_ListTerminator%: u(PA%): I%,QD%,tB%,RD%,SD%: &406C0: :QD%= v-2:RD%=tB%!(I%*4):SD%=tB%!((I%+1)*4): D(RD%)> D(SD%) tB%!(I%*4),tB%!((I%+1)*4):QD%= D(RD%)= D(SD%) H(RD%)> H(SD%) tB%!(I%*4),tB%!((I%+1)*4):QD%= &406C1: DG(iG%): q%,YA%: l:YA%= &400F1,_U%!&94,q%,_U%!&94,q%+4,(YA%)*4:!q%=iG% q%!((YA%-1)*4)=iG%:q%!((YA%)*4)=_c_Idx_Gaps_ListTerminator% uA(C$,AA$,F$,N$,w%,AD%,DB%,cB%,BD%,AE%,Q$): DB%>1 GA(JA%,C$): yF(JA%,AA$): HA(JA%,F$): tA(JA%,N$): aB(JA%,w%): b(JA%,AD%): D(JA%,DB%):JA%!8=0: CA(JA%,cB%): O(JA%,BD%): T(JA%,AE%):JA%!28=0:JA%!32=-1: IA(JA%,Q$):JA%!44=-1: _F(w%): DC(JA%): C$="*GAP*" C$="" DG(JA%) p(w%,AD%,DB%,cB%): uA("","","","",w%,AD%,DB%,cB%, ,""): pB:=MQ% _ClickSelect_NTOK(a%,f%): _B%,gE%,cB%,d$,p%,JA$: &406C0:_B%= C(a%,iK%)):JA$= C(a%,dQ%):d$= C(a%,CK%): (d$): (d$)=0 d$,2) p%:gE%= (d$): gE%<=0 A("atwinnolen") T(a%,tM%) cB%= NC(_B%,gE%,JA$): p(_B%, pB,gE%*2,cB%) p(_B%, pB,gE%,cB%) I(_B%): yA$<>"" j(_B%): rA(RA%,yA$): &406C1:=0 QC(l%,QH%, gA%): zN%:zN%=(QH%<<16)+(1<<21): &400D6,l%,gA%,zN%,(QH%<<16)+(1<<21): JD:=_c_Menu_TLen_Default_Len$ _PreOpen_NewTape(a%): oA%,gA%:gA%= B(60):FO%=2: QC(NB%,FO%,gA%): !gA%=-1 z(NB%,tM%, QC(NB%,iR%,gA%): gA%!0=-1 z(NB%,hP%, :oA%= C(NB%,iK%)): A(NB%,iK%, w(oA%)), C(NB%,CK%)="" A(NB%,CK%, C(NB%,SR%, S(NB%):=0 _EditRec_LinkFile(hE%,KA%,B$,iE%): oA(WD%,B$,KA%): C(pA%,_c_Win_ERec_IconHandle_Notes%, _EditRec_IconWatch_End(j$): oC%,XD%,TA%: (j$)=4 _decode_dis(j$):oC%= _decode_dis( C(pA%,_c_Win_ERec_IconHandle_Start%)):TA%=XD%-oC%: A(pA%,_c_Win_ERec_IconHandle_Length%, _dis_fn(TA%,0), _EditRec_IconWatch_Length(j$): oC%,TA%,lG%: (j$)=4 _decode_dis(j$):oC%= _decode_dis( C(pA%,_c_Win_ERec_IconHandle_Start%)):lG%=oC%+TA%: A(pA%,_c_Win_ERec_IconHandle_End%, _dis_fn(lG%,0), qB(j%): s%,EB%:EB%= Z(j%): n(EB%) HG(r%,EB%,xA%,TA%): XA%,BO%,yK%:XA%= A("werc_dln"), O,""): XA%=1 8BO%= F(EB%): D(EB%,BO%-(TA%-xA%)):yK%= H(EB%): b(EB%,yK%+(TA%-xA%)):yK%= H(EB%) IG(a%): BA$,qC$,KA$,UA$,CA$,d$,TA%: r%,EB%,xA%,bF%,w%,XA%,XD%,KI%: _K%:BA$= C(a%,_c_Win_ERec_IconHandle_Title%):KA$= C(a%,_c_Win_ERec_IconHandle_Subject%):UA$= C(a%,_c_Win_ERec_IconHandle_Date%):CA$= C(a%,_c_Win_ERec_IconHandle_Channel%) JXD%= _decode_dis3( C(a%,_c_Win_ERec_IconHandle_End%)):_K%= SA(WD%) KI%=9999 Z(WD%)) CA$="Unknown" CA$="" C(a%,_c_Win_ERec_IconHandle_Length%):TA%= _decode_dis(d$):r%=WD%: BA$="" A("notitle")) :EB%= Z(r%): F(r%) HA(r%)= F(EB%)+ F(r%))0 B(r%!0) r%!4>0 B(r%!4) r%!40>0 B(r%!40) GA(r%,BA$): HA(r%,KA$):xA%= F(r%): D(r%,TA%): IA(r%,CA$): T(a%,_c_Win_ERec_IconHandle_Locked%) O(r%, O(r%, T(a%,_c_Win_ERec_IconHandle_Seen%) T(r%, T(r%, tA(r%,UA$): F(r%)<>xA% HA(r%) qB(r%)= J(r%)= J(EB%) TA%<>xA% (TA%-xA%)> F(EB%) D(r%,xA%): A("werc_tlng") (TA%-xA%)= F(EB%) D(r%,xA%): A("werc_delgp") bF%=xA%-TA%: b(EB%, H(EB%)-bF%): D(EB%, F(EB%)+bF%) D(r%,xA%): A("werc_delgp") D(r%,xA%): A("werc_splp") TA%>xA% HG(r%,EB%,xA%,TA%):_K%= D(r%): p(w%, H(r%)+TA%,xA%-TA%,( J(r%)="L")) TA%>xA% D(r%):XA%= A("werc_incln"), O,""): XA%=1 D(r%,xA%): A("werc_incerr") D(r%): p(w%, H(r%)+TA%,xA%-TA%,( J(r%)="L")) XD%<>KI% KI%<>9999 Z(WD%),XD%) pA%<>_c_Win_ERec_WindowNotCreated% H(pA%) :gJ%= rB(CA%): CA%!32=-1 KA%=-1 KA%=CA%!44 :=KA% _EditRec_Click(a%,f%): _c_Win_ERec_IconHandle_OK%: IG(a%): _c_Win_ERec_IconHandle_Cancel%: _c_Win_ERec_IconHandle_Clear%: A(a%,_c_Win_ERec_IconHandle_Title%,"", A(a%,_c_Win_ERec_IconHandle_Subject%,"", _c_Win_ERec_IconHandle_Notes%: x(WD%)<>"" rB(WD%), x(WD%)) &406C0: _c_Win_ERec_IconHandle_OK%= A("werc_iok")):_c_Win_ERec_IconHandle_Title%= A("werc_itit")):_c_Win_ERec_IconHandle_Title_M%= A("werc_ititm")):_c_Win_ERec_IconHandle_Subject%= A("werc_isub")):_c_Win_ERec_IconHandle_Subject_M%= A("werc_isubm")) _c_Win_ERec_IconHandle_TID%= A("werc_itid")):_c_Win_ERec_IconHandle_Length%= A("werc_ilen")):_c_Win_ERec_IconHandle_LengthInc%= A("werc_ileni")):_c_Win_ERec_IconHandle_LengthDec%= A("werc_ilend")) _c_Win_ERec_IconHandle_Channel%= A("werc_ichan")):_c_Win_ERec_IconHandle_Channel_M%= A("werc_ichanm")):_c_Win_ERec_IconHandle_Date%= A("werc_idat")):_c_Win_ERec_IconHandle_Date_M%= A("werc_idatm")) _c_Win_ERec_IconHandle_Clear%= A("werc_iclr")):_c_Win_ERec_IconHandle_Cancel%= A("werc_ican")):_c_Win_ERec_IconHandle_Start%= A("werc_istart")):_c_Win_ERec_IconHandle_Notes%= A("werc_inotes")):_c_Win_ERec_IconHandle_Title2%= A("werc_itit2")) _c_Win_ERec_IconHandle_SPLP%= A("werc_isplp")):_c_Win_ERec_IconHandle_Locked%= A("werc_ilock")):_c_Win_ERec_IconHandle_Seen%= A("werc_iseen")):_c_Win_ERec_IconHandle_End%= A("werc_iend")):_c_Win_ERec_IconHandle_EndDec%= A("werc_iendi")) _c_Win_ERec_IconHandle_EndInc%= A("werc_iendd")):_c_Win_ERec_WindowNotCreated%=-1:_c_Win_ERec_WindowTemplateName$= A("werc_templ"):pA%=_c_Win_ERec_WindowNotCreated%:WD%=-1: E(_c_Win_ERec_WindowTemplateName$,pA%):RJ%= &406C1: FB(CA%): N$:N$= "00"+ (CA%?&C),2)+".":N$+= "00"+ (CA%?&D),2)+".":N$+= "00"+ (CA%?&E),2):=N$ LA(CA%): IA(CA%)= CA%!4=-1 28 F$="" IA(CA%!0)= F$=$(CA%!4) 66," Bad subject heapblock found.." 66," Bad record heapblock found.." HB(j%): IA(j%!36) Q$=$(j%!36) Q$="" IB(CA%): AL%,o%:o%=CA%?9: 2T AL%= :=AL% _Win_ERec_PreOpen(a%,j%): N$,_$: &406C0: C(a%,_c_Win_ERec_IconHandle_Title2%, x(j%)="" C(a%,_c_Win_ERec_IconHandle_Notes%, C(a%,_c_Win_ERec_IconHandle_Notes%, FB(j%): A(a%,_c_Win_ERec_IconHandle_Date%,N$, A(pA%,_c_Win_ERec_IconHandle_TID%, D(j%)), A(pA%,_c_Win_ERec_IconHandle_Start%, _dis_fn2( H(j%),4), SA(j%) lC%=9999 Z(j%)) A(pA%,_c_Win_ERec_IconHandle_End%, _dis_fn2(lC%,4), A(pA%,_c_Win_ERec_IconHandle_Start%, _dis_fn( H(j%),4), ):_$= _dis_fn(( H(j%)+ F(j%)),4): A(pA%,_c_Win_ERec_IconHandle_End%,_$, A(pA%,_c_Win_ERec_IconHandle_Title%, R(j%), A(pA%,_c_Win_ERec_IconHandle_Subject%, LA(j%), A(pA%,_c_Win_ERec_IconHandle_Length%, _dis_fn( F(j%),4), HB(j%)="" A(pA%,_c_Win_ERec_IconHandle_Channel%,"Unknown", A(pA%,_c_Win_ERec_IconHandle_Channel%, HB(j%), J(j%)="S" A(pA%,_c_Win_ERec_IconHandle_SPLP%,"SP", A(pA%,_c_Win_ERec_IconHandle_SPLP%,"LP", K(pA%,_c_Win_ERec_IconHandle_Locked%, s(j%)): K(pA%,_c_Win_ERec_IconHandle_Seen%, IB(j%)):WD%=j%:gJ%= &406C1: BA:=0 f:=y%!84 uB(yC%): q%:q%= c:=q%!(yC%*4) vB:=_c_Idx_Sel_ListTerminator% TC(KA%): KA%=&DFE (34);: D(j%));: (34);: #h%,","; " "+ D(j%)),3)+" "; KA%=&DFE (34);: R(j%);: (34);: #h%,","; R(j%)," ")+ mG%,"."),mG%); KA%=&DFE (34);: LA(j%);: (34);: #h%,","; #h%," "+ LA(j%)," ")+ cF%,"."),cF%); KA%=&DFE (34);: _dis_fn( H(j%),0);: (34);: #h%,","; " "+ _dis_fn( H(j%),0),5)+" "; KA%=&DFE (34);: _dis_fn( F(j%),0);: (34);: #h%,","; " "+ _dis_fn( F(j%),0),5)+" "; J(j%): l$="L" hA$="LP" hA$="SP" KA%=&DFE (34);: #h%,hA$;: (34);: #h%,","; #h%,hA$; KA%=&DFE (34);: FB(j%);: #h%," "+ FB(j%) JB(yC%): q%:q%= G:=q%!(yC%*4) UC(QG%,B$,KA%): h%,QA$,nG%: WC%,c%,j%,l$: hA$,mG%,cF%,PA%: &406C0:mG%= C(ZC%,EI%)):cF%= C(ZC%,FI%)):h%= (B$):QA$="VideoBase ": QA$+="Partial " KA%=&FFF QA$+="Report (Created "+ $+")": #h%,QA$: #h%,"": #h%," ID Title"+ mG%-4," ")+ "Subject"+ cF%," "),cF%)+"Start Length S/L Date": 31+mG%+cF%, A("wrep_sep")) :nG%=0:c%=0: 3 2WC%= uB(c%)<> vB:j%= uB(c%): D(j%)<>nG% #h%,&A:nG%= D(j%) TC(KA%):c%+=1: JB(c%)<>_c_Idx_Recs_ListTerminator%:j%= JB(c%): D(j%)<>nG% #h%,&A:nG%= D(j%) TC(KA%):c%+=1: &FFF: ("SetType "+B$+" FFF") &DFE: ("SetType "+B$+" DFE") &406C1: vA(B$,KA%): T(ZC%,hG%) ,B$,KA%) ,B$,KA%) _Win_Rep_DataSave_DFE(B$): vA(B$,&DFE):=0 _Win_Rep_DataSave_FFF(B$): vA(B$,&FFF):=0 UD:=FA%!28 VD:=FA%!32 _PreOpen_Report(EA%):M$=dC$: M$="" M$=eC$ A(EA%,jQ%,M$, C(EA%,EI%)="" A(EA%,EI%, C(EA%,FI%)="" A(EA%,FI%, K(EA%,hG%, K(EA%,pN%, C(EA%,hG%, K(EA%,pN%, K(EA%,hG%, C(EA%,hG%, :qN%= :ZC%=EA%:=0 ZC%=kM% E(sB$,ZC%) _PreOpen_Report(ZC%): _ClickSelect_BBReport(l%,MA%): S(ZC%):=0 wA:qN%= H(ZC%): TG(GA$): L("."+GA$) ("Wipe ."+GA$+" ~CFR~V") ("CDir ."+GA$): UG(l%): O):B$="."+ O+".VBReport": vA(B$,&FFF): L(&FFF,B$): VG(WR%,XR%): yB(WR%): hC(XR%): _Win_Rep_ClickSelect(l%,MA%): UG(l%): C(ZC%,EI%)), C(ZC%,FI%))) _NewRec_LinkFile(hE%,KA%,B$,iE%): oA(XF%,B$,KA%): C(wB%,jK%, _NewRec_IconWatch_End(j$): oC%,XD%,TA%: (j$)=4 `XD%= _decode_dis(j$):oC%= _decode_dis( C(wB%,zH%)):TA%=XD%-oC%: A(wB%,WF%, _dis_fn(TA%,0), _NewRec_IconWatch_Length(j$): oC%,TA%,lG%: (j$)=4 `TA%= _decode_dis(j$):oC%= _decode_dis( C(wB%,zH%)):lG%=oC%+TA%: A(wB%,_H%, _dis_fn(lG%,0), WD(YR%,ZR%): D(YR%)= D(ZR%) q:y%!16-=1: y%!16<0 y%!16=0 r:y%!24-=1: y%!24<0 y%!24=0 yA(lE%,MI%): IO%,JO%,DA%: WD(lE%,MI%) J(lE%)= J(MI%) F(lE%):JO%= F(MI%): D(lE%,IO%+JO%):DA%= &400F1,_U%!&94,DA%+(( Q(lE%))*4)+8,_U%!&94,DA%+(( Q(lE%))*4)+4,(( N+1)*4)-( Q(lE%)*4)+8: n(MI%) mA(n%): q%,kA%:q%= G:kA%=0: q%!kA%<>n%:kA%+=4: kA%/4>= 88,"attempt to access beyond the last record in database - not implemented!" :=q%!(kA%-4) ZG(a%): BA$,qC$,KA$,UA$,CA$: d$,TA%,r%,xA%,cB%: bF%,w%,AD%:BA$= C(a%,gK%):KA$= C(a%,hK%):UA$= C(a%,bN%):CA$= C(a%,JQ%):d$= C(a%,WF%):TA%= _decode_dis(d$):r%= BA$="" KA$<>"" A("notitle")) F(r%) r%!0>&8000 r%!0=-1 r%!4>&8000 r%!4=-1 r%!36>&8000 r%!36=-1 r%!40>&8000 r%!40=-1 GA(r%,BA$): HA(r%,KA$):xA%= F(r%): D(r%,TA%): T(a%,cN%) O(r%, O(r%, J(r%)="L" C(a%,TD%)="SP" D(r%,xA%/2): DA(r%) J(r%)="S" C(a%,TD%)="LP" D(r%,xA%*2): DA(r%) C(a%,TD%)="SP" CA(r%, CA(r%, tA(r%,UA$): T(r%, IA(r%,CA$): F(r%)"*GAP*" uA("","","","",w%,AD%,bF%,cB%, ,""): n(r%) qB(r%) yA(r%, Z(r%)) mA(r%)) mA(r%),r%) DA(r%): _NewRec_Click(a%,f%): &406C0: ZG(a%): A(a%,gK%,"", A(a%,hK%,"", TD%:CL%= _decode_dis( C(a%,WF%)): C(a%,TD%)="SP" A(a%,TD%,"LP", A(a%,WF%, _dis_fn3(CL%*2,0), A(a%,TD%,"SP", A(a%,WF%, _dis_fn3(CL%/2,0), x(XF%)<>"" rB(XF%), x(XF%)) &406C1:=0 _Win_Select_PreOpen(a%): nB%=HH% E(JB$,nB%) C(nB%,GI%)="" A(nB%,GI%, C(nB%,HI%)="" A(nB%,HI%, S(nB%):=0 nB%=HH% E(JB$,nB%) _Win_Select_PreOpen(nB%): _Win_Select_ShowWindow(a%): XC:=0 WC%,c%: AWC%= c:c%=0: WC%!c%<>_c_Idx_Sel_ListTerminator%: q(WC%!c%) l(WC%!c%, :c%+=4: YD(n%,C$): R(n%)), g(C$)) C$="" ZD(n%,F$): LA(n%)), g(F$)) F$="" PA%,c%,WC%: h:PA%= B(8):PA%!0=_c_Idx_Sel_ListTerminator%:PA%!4=_c_Idx_Sel_ListTerminator%: QA(PA%): aC:y%!84+=1: bC(KB%): &406C0: ZC:q%= c:!q%=KB%: l(KB%, &406C1: PA%:PA%= c:PA%= U(PA%,4): QA(PA%): m(KB%): q%,YA%,c%,z%,w%,NI%: AD%,: bC(KB%) aC:q%= c:YA%= f:z%=-1:NI%= D(KB%):LO%= H(KB%):c%=0: D(q%!((YA%-2)*4)) vB:w%= D(q%!c%): w%=NI% 5w!AD%= H(q%!c%): AD%>LO% z%=-1 5y z%=c% :c%+=4: z%=-1 z%=c% z%=(YA%-1)*4 2q%!z%=KB%:q%!(z%+4)=_c_Idx_Sel_ListTerminator% &400F1,_U%!&94,q%+z%,_U%!&94,q%+z%+4,(YA%*4)-(z%):q%!z%=KB% l(KB%, iG(gB%,OI%,PI%,AE%,BD%,C$,F$): lA%,DA%,uB%,mE%,nE%: &406C0: OI%>PI% OI%,PI% OI%=-1 mE%=OI% PI%=-1 nE%=PI% :DA%= :lA%=0: DA%!lA%<>_c_Idx_Sel_ListTerminator%: YD(DA%!lA%,C$) ZD(DA%!lA%,F$) D(DA%!lA%)>=mE% D(DA%!lA%)<=nE% n(DA%!lA%)= IB(DA%!lA%) s(DA%!lA%) m(DA%!lA%) m(DA%!lA%) :lA%+=4: &406C1: zA:IP%= H(nB%): _Win_Select_ClickSelect(a%,f%): mE%,nE%,gB%,MO%,BD%: C$,BC$: T(a%,YF%) m:nE%= C(a%,GI%)):nE%= C(a%,HI%)) :gB%= T(a%,qQ%):MO%= T(a%,rQ%):BD%= T(a%,sQ%):C$= C(a%,tQ%):BC$= C(a%,uQ%): iG(gB%,mE%,nE%,MO%,BD%,C$,BC$): C(a%,GI%, T(a%,YF%)): C(a%,HI%, T(a%,YF%)): C(a%,vQ%, T(a%,YF%)): C(a%,wQ%, T(a%,YF%)) _Win_Select_MenuSelect(d%): e%:e%= _Win_Select_PreOpen(nB%):=0 kG(B$): i(SA%,B$): lG(B$): DA%,h%,YA%,EL%,n%: VB%,zD%,C$,F$,Q$: r$,G$: &406C0:DA%= G:h%= (B$): &C,2,h%, kA:YA%= EL%=0 YA%-1:n%=DA%!(EL%*4): R(n%),5)="*GAP*" n%!0=-1 &C,2,h%,n%,yH%:C$= R(n%): C$<>"*GAP*" #h%,C$ LA(n%): F$<>"" #h%,F$ HB(n%): Q$<>"" #h%,Q$ x(n%): G$<>"" #h%,G$ EL%:VB%= K:zD%= VB%-1:mC%=zD%!(p%*4): &C,2,h%,mC%,xH%:r$= e(mC%)): r$<>"" #h%,r$ QA(mC%): G$<>"" #h%,G$ ("SetType "+B$+" "+ _WinSave_GetNativeFileType)): sA:VA$=B$: kG(VA$): &406C1: _DataSave_Xfer(vC$): lG(vC$):=0 _ClickSelect_Xfer(a%,f%): _c_WinSave_OK_Icon%:e%= _DataSave_Xfer( C(a%,_c_WinSave_FileName_Icon%)): H(a%): _c_WinSave_Cancel_Icon%: H(a%): aD:=VA$ _PreOpen_Xfer(a%): B$:B$= B$="" 6laB$=_c_WinSave_DefaultFileName$: A(a%,_c_WinSave_FileName_Icon%,_c_WinSave_DefaultFileName$, A(a%,_c_WinSave_FileName_Icon%,B$, A(a%,_c_WinSave_OK_Icon%, A(_c_WinSave_MessTag_Save$), A(a%,_c_WinSave_Cancel_Icon%, A(_c_WinSave_MessTag_Cancel$), _ClickSelect_BBSave(l%,MA%): NB(_c_WinSave_TemplateName$,"_PreOpen_Xfer",""):=0 _ClickSelect_mainwp_Notes(a%,f%): RA%,G$:RA%= V):G$= QA(RA%): G$<>"" YA(G$),G$) _Win_MWPane_LoadNativeType(mA%,ZF%,B$,pB%): LC(mA%,ZF%,B$,pB%):=0 mG(B$): OA(B$)+"."+IB$)=0 b(FB$,IB$)) OA(B$)+"."+GB$)=0 b(FB$,GB$)) OA(B$)+"."+MB$)=0 b(FB$,MB$)) h%,NO%,pG%,p%,LD%:pG%= SB:h%= (fA$+"."+IB$): #h%,LD%:pG%!(p%*4)=LD%: h%,NO%,pG%,e%: p%,mR%,PD%,nR%,w%:NO%= kA:pG%= PA:h%= (fA$+"."+GB$): #h%,e%: #h%,bO%: #h%,CM%: #h%,mR%: #h%,PD%: #h%,nR%: PD%<>0 NC(w%,PD%,"") h%,p%,C$,F$,iA$,GB%,qG%: DB%,N$,cB%,BD%,QI%,qR%: AE%:h%= (fA$+"."+MB$):QI%=0:qR%=-1: #h%,C$: #h%,F$: #h%,iA$: #h%,GB%: #h%,qG%: #h%,DB%: #h%,N$: qG%>HL% GB%<>QI% GB%<>0 iA$,2,1)="L" cB%= iA$,1)="*" BD%= iA$,1)="*" AE%= C$,5)="*GAP*" C$="" p(GB%,qG%,DB%,cB%) uA(C$,"",F$,N$,GB%,qG%,DB%,cB%,BD%,AE%,"") GB%<>QI% QI%=GB%: I(GB%) :HL%=qG% qG(wC$): h%,mT%,HL%,p%,pG%,LD%,e%:fA$=wC$: _WinSave_GetDefaultFileName): KC:HL%=-1: _ConvFile_LoadFile(mA%,MC%,B$,pB%): VD%,XA%: 7 VD%= A("filemodc"), O,""): XA%=2 7$ VD%= mG(B$): &406C0:sI%= OA(B$)):sI%= &406C1 _MWPane_DataLoad(hE%,KA%,B$,iE%): e%,RA%,G$: _WinSave_GetNativeFileType:e%= _Win_MWPane_LoadNativeType(hE%,KA%,B$,iE%) EB:e%= _ConvFile_LoadFile(hE%,KA%,B$,iE%) rA(RA%,B$): C(u%,_c_WinMWPane_Notes_Icon%, y("BubbleHelp$Running") rG(JK%): BE%:BE%= B(256):BE%!0=28:BE%!&C=0:BE%!16=eQ%:BE%!20=JK%:BE%!24=0: &400E7,18,BE%,0: B(BE%): rG(pR%): y("Help$Dir") y("Help$Start") &400DE,"" &400DE,"Resources:$.Apps.!Help" _ClickSelect_IntHelp(l%,MA%): tG:=0 &406C0: _c_Win_RenTap_WindowTemplateName$= A("wre_templ"):_c_Win_RenTap_IconHandle_ok%= A("wre_iok")):_c_Win_RenTap_IconHandle_cancel%= A("wre_ican")):_c_Win_RenTap_IconHandle_Inc%= A("wre_inewi")):_c_Win_RenTap_IconHandle_Dec%= A("wre_inewd")) _c_Win_RenTap_IconHandle_NewID%= A("wre_inew")):_c_Win_RenTap_IconHandle_CurrID%= A("wre_icurr")):SC%=_c_Win_RenTap_NotCreated%:PO%= &406C1: SC%=_c_Win_RenTap_NotCreated% E(_c_Win_RenTap_WindowTemplateName$,SC%) _Win_RenTap_PreOpen(SC%): P(SC%):WO%= _ClickSelect_Renum(l%,MA%): cC:=0 _ClickSelect_BBSelect(l%,MA%): XC:=0 _ClickSelect_BBAddRec(l%,MA%): hA:=0 cD:=_EVNTS_LAST_MOUSEXPOS% _ClickSelect_mainwp_Header(a%,f%): fA%,qA%,rA%,sA%,RO%: n(a%,fA%,qA%,rA%,sA%):RO%= cD:SO%=RO%-fA%: mB(SO%): DD%=SI% E(rB$,DD%) _Win_DTape_PreOpen(DD%): _ClickSelect_BBDelTape(a%,f%): dC:=0 &406C0: NB%=MG% E(sC$,NB%) _PreOpen_NewTape(NB%): P(NB%): &406C1: _ClickSelect_BBAddTape(a%,f%): &406C0: &406C1:=0 dD(w%): CE%,UD%,RA%: NC%,VG%:NC%=w%-1:VG%= :UD%= (NC%),"_GetTerm","_CompFN",0, K-1): UD%=-1 NC%-=1: NC%-1 NC%=0 CE%<>0:=CE% _ClickSelect_TND(a%,f%): CE%:CE%= dD(dG%): I(CE%):=0 _ClickSelect_TNI(a%,f%): _C%,UD%:_C%= lB(dG%): I(_C%):=0 _Win_Main_DeskFontChanged(HK%):mM%=HK%: bA(dG%):=0 _MainWin_DataLoad(hE%,KA%,B$,iE%): _WinSave_GetNativeFileType:e%= _Win_MWPane_LoadNativeType(hE%,KA%,B$,iE%) EB:e%= _ConvFile_LoadFile(hE%,KA%,B$,iE%) R(jE%,0):jE%=_c_Menu_Main_NotCreated%: _CloseWindow_MainW(a%): KD%,XA%: 8w KD%= A("filemodc"), O,""): XA%=2 8{ KD%= :=KD% _A(a%,hF%,UO%,RI%): &400D1,a%,0,-(RI%+((UO%+1)*hF%)+0),&FFFFF,-(RI%+((UO%+1)*hF%)-hF%-8): nA(CA%): IL%,o%:o%=CA%?9: 1<<7) IL%= :=IL% LC%,_A%,zC%,wD%,xD%: -LC%= G:_A%=(OF%*4):zC%= V:wD%=0: _A%<>-1 :j%=LC%!_A%:wD%+=1:_A%+=4:xD%= D(j%): nA(j%)= _A(SA%,PC%,wD%-1,rG%+PC%) xD%<>zC% j%=-1 AB(n%): wT%,OC%,yT%,XO%,DA%: l(n%, R(n%),5)<>"*GAP*" s(n%)= %sG%= Z(n%):xR%= D(sG%): n%!0<>-1 n%!4<>-1 :n%!0=-1:n%!4=-1: H(n%)=0 mA(n%):BU%= Q(OC%):XO%= D(OC%): R(OC%),5)="*GAP*" D(n%) J(n%)= J(OC%) D(OC%, F(n%)+ F(OC%)):DA%= &400F1,_U%!&94,DA%+( Q(OC%)*4)+8,_U%!&94,DA%+( Q(OC%)*4)+4,(( N+1)*4)-( Q(OC%)*4)+8: r:sG%= Z(OC%):n%=OC% AB(n%)= R(sG%),5)="*GAP*" D(n%) J(n%)= J(sG%) D(n%, F(n%)+ F(sG%)):DA%= Q(n%)=0 &400F1,_U%!&94,DA%+(( Q(n%))*4)+8,_U%!&94,DA%+(( Q(n%))*4)+4, &400F1,_U%!&94,DA%+(( Q(n%))*4)+8,_U%!&94,DA%+(( Q(n%))*4)+4,(( N+1)*4)-( Q(OC%)*4)+8 JH(j%): pA%=_c_Win_ERec_WindowNotCreated% _Win_ERec_PreOpen(pA%,j%): S(pA%): P(pA%): KH(j%):dK%=j%:cG%= F(j%): iC(j%): R(j%)<>"*GAP*" JH(j%) KH(j%) MH:y%!84-=1: y%!84<0 NH(KB%): q%,YA%,t%,z%: nA(KB%)= 9A)q%= c:YA%= f:t%=0:z%=-1: q%!t%=KB% 9G z%=t% :t%+=4: q%!t%=_c_Idx_Sel_ListTerminator% z%<>-1: &400F1,_U%!&94,q%+z%+4,_U%!&94,q%+z%,((YA%)*4)-z%: l(KB%, OH(j%): R(j%)<>"*GAP*" nA(j%)= m(j%) NH(j%) PH(j%): R(j%)<>"*GAP*" bC(j%) jC(ZJ%): _D%,QA%,A,iF%,rG%: tG%,DA%,oE%,zR%: mA(SA%):_D%= B(20): &400CF,,_D%:FB%=_D%!4: B(_D%):QA%= B(40):!QA%=l%: &400CB,,QA%:A=QA%!16-QA%!24: B(QA%):rG%= iA:iF%=(A-FB%-rG%-PC%) iF%>=0 iF%<=LG%-1 9|?_A%=OF%:LC%= G:_A%=(_A%+iF%)*4:j%=LC%!_A%: R(j%)<>"*GAP*" _A(SA%,PC%,iF%,rG%+PC%) _A(SA%,PC%,iF%,rG%+PC%) s(j%)= A("locked"), ,"",""): O(j%, T(j%, AB(j%) AB(j%): T(j%, iC(j%) OH(j%) PH(j%) iC(j%) SA(j%) tG%= mA(j%): J(j%)= J(tG%) D(tG%, F(tG%)+ F(j%)):DA%= &400F1,_U%!&94,DA%+(( Q(j%))*4)+4,_U%!&94,DA%+(( Q(j%))*4),(( N+1)*4)-( Q(tG%)*4)+8: Z(j%): J(j%)= J(oE%) izR%= H(oE%): b(oE%, H(j%)): b(j%, H(oE%)+ F(oE%)): M:KL%= Z(j%): n(KL%) J(oE%)= J(KL%)) yA(j%,KL%) 99,"Quick delete on a gap record, following record has different SP/LP setting!" _ClickAdjust_MainW(l%,MA%): _ClickSelect_MainW(l%,MA%): RH(TI%,hF%,RI%, UI%): ML%,dO%,eO%:ML%=TI%!16-TI%!24-RI%:dO%=ML%-TI%!40:eO%=ML%-TI%!32:jF%=dO% hF%-1: jF%<0 jF%=0 UI%=eO% _UserRedraw_Mainw(d%,nA%,eB%): eC%,fO%,FS%,gO%,hO%: iO%,jO%,j%,t%,zC%: C$,F$,xD%,_A%,jF%,UI%: NL%,LC%: @eC%=1:fO%= cB:FS%= RA:gO%= aB:hO%= bB:iO%= eB:jO%= NL%=uP% NL%=QR% :zC%= V:_A%=-1: zC%>0 _A%=OF% zC%>0 _A%>=0 _iB%=eB%- iA-PC%:LC%= G:_A%=_A%*4:j%=LC%!_A%:LG%=0: RH(d%,PC%, iA,jF%,UI%):t%=0: F(j%)>0 :"!eC%=eC% LG%>=jF% LG%<=UI% &400E6,hO%: nA%,iB%+2,HF%,-30: &400E6,gO% &400E6,fO% nA(j%)= &400E6,jO%: nA%,iB%+2,HF%,-30: &400E6,iO% R(j%):F$= LA(j%): nA%+NL%,iB%: _dis_fn( H(j%),0) "00000"+ H(j%)),5) nA%+DR%,iB%: _dis_fn( F(j%),0): nA%+eR%,iB%: J(j%): (C$)>(( WA-GJ%)/16) :M!C$= C$,(( WA-GJ%)/16)-2)+".." nA%+GJ%,iB%: WA,iB%: :LG%+=1:iB%-=PC% :_A%+=4:j%=LC%!_A%:t%+=4: LC%!_A%<>-1 D(j%) xD%<>zC% LC%!_A%=-1 _Win_Main_Compare(OB$,PB$): i%,UU%,VU%,kO%,lO%,cA%:mO%= (OB$):nO%= (PB$): :cA%= OB$,":"):kO%= OB$,cA%+1)):cA%= PB$,":"):lO%= PB$,cA%+1)): mO% C(CB%,uC%): "h",Y$)=0 A(CB%,uC%, _dis_fn( (Y$),0), A(CB%,uC%, _decode_dis(Y$)), _Menu_HMDisp_Selection(a%,tA%,Z$): SH(Z$):nB$=Z$:= _Menu_TMake_Selection(a%,tA%,r$): V,r$): gF%=_c_Menu_TMake_NotCreated% A(_c_Menu_TMake_MessTag_Title$):gF%= JA(J$,kC$,"",_c_Menu_TMake_FileName$) _Menu_TMake_AboutToBeShown(_%): gF%=_c_Menu_TMake_NotCreated% L(_c_Menu_TMake_FileName$) 99,"Unable to create menu" J$,OL%: fF%=kG% A(LC$):fF%= JA(J$,JC$,"",wA$) _Menu_TFmat_AboutToBeShown(_%): fF%=kG% L(wA$) 99,"Unable to create menu" yB(w%): PL%,q%,AB%,oO%:PL%= XB(w%):AB%=PL%: PL%>=0 HA(q%!AB%):AB%+=4: 99,"Invalid tape id passed to FNIdx_Recs_GetRecordBlockLastOnTape" :oO%=q%!AB%:=oO% hD(w%): s%,KB%:s%= :KB%= yB(w%): R(KB%),5)="*GAP*" VH(w%,DB%): RA%,VI%,qO%: pE%,l$,hU%,kF%: DA%:RA%= j(w%): RA%=-1 99,"Tape id not found in tape list" hD(w%)= G("Last recording on the tape is not a gap, unable to change tape length") :pE%= yB(w%):VI%= F(pE%):qO%=RA%!4:l$= J(pE%):kF%=DB%-qO%: l$="L" kF%=kF%*2 VI%+kF%=0 ;+lDA%= &400F1,_U%!&94,DA%+( Q(pE%)*4)+4,_U%!&94,DA%+( Q(pE%)*4)+0,(( N+1)*4)-( Q(pE%)*4)+4: VI%+kF%>0 D(pE%,VI%+kF%):RA%!4=DB%: G("Unable to change length of tape because last gap record is not long enough") _Menu_TLen_Selection(a%,tA%,Y$): p%,PD%: (Y$): (Y$)=0 Y$,2) p%:PD%= (Y$): PD%<=0 A("atwinnolen") V,PD%): WH(rB%,RC%,pB%,_C$): &45BCD,rB%,RC%,pB%,_C$: J$,OL%: cE%=_c_Menu_TLen_NotCreated% A(_c_Menu_TLen_MessTag_Title$):cE%= JA(J$,nC$,"",_c_Menu_TLen_FileName$):OL%= M(cE%,"",""): WH(OL%,_c_Menu_TLen_WritableStateOn%,_c_Menu_TLen_WritableBufferLen%,_c_Menu_TLen_WritableValidation$) _Menu_TLen_AboutToBeShown(_%): cE%=_c_Menu_TLen_NotCreated% L(_c_Menu_TLen_FileName$) 99,"Unable to create menu" _Menu_Cats_AboutToBeShown(_%): SF%=XG% _MenuSelect_Help(d%): L(&FFF, W+".!Help"):=0 _MenuSelect_Quit(d%): A("filemodq"), O,""): _closedown%= _closedown%= _closedown%= &406C0: Y_c_Win_NotePa_WindowTemplateName$= A("wnp_templ"):rF%=_c_Win_NotePa_NotCreated%:aO%= &406C1: rF%=_c_Win_NotePa_NotCreated% E(_c_Win_NotePa_WindowTemplateName$,rF%) _Win_NotePa_PreOpen(rF%): P(rF%):yR%= _MenuSelect_NotePad(d%): ZH:=0 _MenuSelect_RenTape(d%): cC:=0 _MenuSelect_DelTape(d%): dC:=0 KA(AD$): YD%,uB%,n%: &406C0:YD%=0:uB%= uB%!YD%<>_c_Idx_Sel_ListTerminator%:n%=uB%!YD%: "lock_selection": O(n%, "unlock_selection": O(n%, "set_selection_seen": T(n%, "set_selection_unseen": T(n%, :YD%+=4: &406C1: _MenuSelect_SelSetUnseen(d%): KA("set_selection_unseen"):=0 _MenuSelect_SelSetSeen(d%): KA("set_selection_seen"):=0 _MenuSelect_SelSetUnLocked(d%): KA("unlock_selection"):=0 _MenuSelect_SelSetLocked(d%): KA("lock_selection"):=0 bH(gB%): lA%,DA%,uB%: &406C0:lA%=0:DA%= DA%!lA%<>_c_Idx_Sel_ListTerminator%:n%=DA%!lA%: s(n%)= m(n%) :lA%+=4: &406C1: _MenuSelect_SelLocked(d%): cH(gB%): lA%,DA%: &406C0:lA%=0:DA%= DA%!lA%<>_c_Idx_Sel_ListTerminator%:n%=DA%!lA%: n(n%)= IB(n%)= m(n%) :lA%+=4: &406C1: _MenuSelect_SelUnseen(d%): _MenuSelect_SelCreate(d%): e%:e%= _Win_Select_MenuSelect(d%):=0 YD%,uB%,n%,i%: &406C0:YD%=0:uB%= c:i%= uB%!YD%<>_c_Idx_Sel_ListTerminator%:n%=uB%!YD%: s(n%)= :YD%+=4: &406C1:=i% _MenuSelect_SelDel(d%): uB%,I%,n%,DA%,WI%,lU%: mU%,nU%,lA%,oU%,t%,pU%: qU%,gC%,VS%,sO%: XA%:WI%= WI%=0 &406C0:VS%= N:uB%= c:DA%= G:gC%= l:sO%= iD:XA%=0: 2 O(uB%!(I%*4), XA%<>2 AB(uB%!(I%*4)) XA%<>2 &406C1:=0 _MenuSelect_SelClear(d%): dH(gB%,w%): lA%,DA%,uB%: &406C0:lA%=0:DA%= DA%!lA%<>_c_Idx_Sel_ListTerminator%:n%=DA%!lA%: D(n%)=w% n(n%)= m(n%) :lA%+=4: &406C1: _MenuSelect_SelAll(d%): _MenuSelect_NewTape(d%): eC:=0 U(x%,RC%): &45BCB,x%,RC%: fH(_%): U(_%, gH(_%): U(_%, _Menu_Main_AboutToBeShown(l%,MA%): jE%=_c_Menu_Main_NotCreated% fH(jE%): U(_N%,0) gH(jE%): U(hN%,( f=0)): U(UL%,( f=0)): U(RL%,( f=0)): U(SL%,( f=0)): U(aN%,( f=0)): U(ZL%,( f=0)) GA%,p%,Z$,XS%,w%: &406C0:J$= A(VB$): fE%=fG% GfE%= A(VB$),FC$, K):GA%= K-1:VF%=GA%!(p%*4): VF%<&8000 99,"Illegal element in tape list ("+ (VF%)+")" e(VF%))," "):XS%= M(fE%,Z$,"_Menu_TID_MenuSelect"): &406C1: _Menu_TID_AboutToBeShown(_%): fE%=fG% _Menu_TID_MenuSelect(l%,MA%,BD$): GB%:GB%= (BD$): I(GB%): bA(GB%):= _VBFile_PreQuitHandler: A("filemodq"), O,""): XA%=2 _Sliders_Drag(a%,f%): k%,bB%,ZA%,c%,A$: z%,qC%,SE%,tA%:k%=!_EVNTS_SLIDERS_ANCHOR%:ZA%=_EVNTS_SLIDERS_REC_SIZE%:qC%=k%!0:bB%=k%!4:c%=eA%:A$= I(a%):z%= $(k%+c%)=A$ k%!(c%+16)=f% :YS%=k%!(c%+&C):tA%=k%!(c%+20):SE%=c% :c%+=ZA%: c%>=qC% WA(a%,YS%): tA%<>-1 _Sliders_BackgroundClick(a%,f%): e%:e%= _Sliders_Drag(a%,f%):=0 _Sliders_BarClick(l%,MA%): WA(l%,MA%):=0 _Sliders_Bump(LD%,UE%): a%,f%,k%,JC%,bB%,qC%: z%,SE%,A$,RG%,SG%:a%= CA:f%= qA:A$= I(a%):k%=!_EVNTS_SLIDERS_ANCHOR%:qC%=k%!0:bB%=k%!4:JC%=eA%:z%= :RG%=k%!(JC%+24):SG%=k%!(JC%+28): A$=$(k%+JC%) RG%=f% SG%=f% :SE%=JC% :JC%+=_EVNTS_SLIDERS_REC_SIZE%: JC%>=qC% FB(SE%,LD%) (LD%)