home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / utilities / utilst / vbase2 / !VideoBase / !RunImage (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1996-09-21  |  146KB  |  6,300 lines
  1.  > <VideoBase$Dir>.Extras.Source 
  2.  Squished by Lofty's !Shrink vsn 3.01 on 21-Sep-96 
  3. &406C2:
  4. $;" at line "+
  5. &406C0:
  6. &400EC,-1,-1
  7. LR%:tP%=1<<&A:pK%=&8000+LR%:
  8. =pK%+tP%:
  9. =pK%:
  10. iF("<VideoBase$Dir>.",pK%):
  11. nC:e%=
  12. dC:e%=
  13. _shell_VBFile_Init:e%=
  14. _shell_Menu_TID_Init:e%=
  15. fC:e%=
  16. yC:e%=
  17. _shell_Menu_Cats_Init:e%=
  18. _shell_Menu_Chan_Init:e%=
  19. _shell_Menu_Title_Init
  20. _shell_Menu_TLen_Init:e%=
  21. _shell_Menu_TFmat_Init:e%=
  22. _shell_Menu_TMake_Init:e%=
  23. _shell_Menu_HMDis_Init:e%=
  24. _shell_Idx_Recs_Init:e%=
  25. _shell_Idx_Sel_Init:e%=
  26. _shell_Idx_Tapes_Init:e%=
  27. _shell_Idx_Gaps_Init:e%=
  28. QC:e%=
  29. _shell_Win_MWPane_Init:e%=
  30. MC:e%=
  31. XC:e%=
  32. YC:e%=
  33. _shell_Win_ERec_Init:e%=
  34. aC:e%=
  35. _shell_Win_PInfo_Init:e%=
  36. IC:e%=
  37. FC:e%=
  38. KC:e%=
  39. _shell_Options_Init:e%=
  40. CD:e%=
  41. _shell_Win_NotePa_Init:e%=
  42. NC:e%=
  43. _shell_CalLib_Init:e%=
  44. _shell_DatePick_Init:e%=
  45. _shell_Fonts_Init
  46. e}e%=
  47. _shell_ShareBan_Init:e%=
  48. _shell_Scrap_Init:uK%=
  49. iC(&C8,"Video Tape Index"):
  50. O):_closedown%=
  51. &406C1:
  52. jC(1,uK%)):
  53. _closedown%:
  54. bD("_VBFile_PreQuitHandler"):
  55. _dis_fn(oB%,QC%):
  56. I$:I$=
  57. 60)+"h"+
  58. "00"+
  59. 60),2):=I$
  60. _decode_dis(a$):
  61. i%:i%=
  62. (a$)*60+
  63. a$,2)):
  64. _dis_fn2(oB%,QC%):=
  65. "00000"+
  66. (oB%),5)
  67. _decode_dis2(a$):
  68. i%:i%=
  69. (a$):=i%
  70. _dis_fn3(oB%,QC%):
  71. 60)+"h"+
  72. "00"+
  73. 60),2)
  74. _dis_fn2(oB%,QC%)
  75. _decode_dis3(a$):
  76. (a$)*60+
  77. a$,2))
  78. FG:FD$=
  79. LC:_T%=1:WT%=1:iP%=
  80. B(4):RS%=
  81. B(4):!iP%=0:!RS%=0:eS%=0:
  82. _CompFN(KC$,bC$):
  83. (KC$)<
  84. (bC$)
  85. _GetTerm(cA%):
  86. AO%:AO%=
  87. aA(cA%):=
  88. e(AO%))
  89. qC:=&CCD
  90. jA(iC$,F):
  91. ZD%,I$,i%:
  92. ("Set Module$Check Y"):
  93. ("RMEnsure "+iC$+" "+
  94. F+" Set Module$Check N"):
  95. 35,"Module$Check",CF%,256,0,0
  96. ,,ZD%:CF%?ZD%=&D:
  97. ("Unset Module$Check"):I$=$CF%:
  98. I$="N"
  99. BB(F):=
  100. jA("UtilityModule",F)
  101. L(TA$):
  102. MC%,J,i%:J=5:
  103. 8,J,TA$
  104. MC%=0
  105. _U%!44<>-1
  106. #(_U%!44):_U%!44=-1
  107. JC:=iL%
  108. p%,g%:g%=_U%!&E8:
  109. g%?p%>0:
  110. &40082,p%:g%?p%-=1:
  111. RF(IC%):
  112. _U%!&64
  113. "WimpExt_Initialise",&E,IC%
  114. &600DD,IC%,&4B534154:
  115. &A1683,IC%:
  116. _U%!&64
  117. "XImpulse_CloseDown",_U%!&94
  118. ZE%:ZE%=_U%!68:
  119. &61504,ZE%:
  120. &2001E,7,,ZE%:
  121. &606C2:
  122. &600D0,,-1:
  123. RF(_U%!&94):
  124. g%:g%=_U%!&C4:=$g%
  125. BB(DC$):
  126. jG%:!_ERRORS_ERR_BLK%=
  127. :$(_ERRORS_ERR_BLK%+4)=DC$+
  128. =_ERRNR_NONFATAL
  129. =_ERRNR_CLAIMMEM
  130. &600DF,_ERRORS_ERR_BLK%,17,"Message from "+
  131. &600DF,_ERRORS_ERR_BLK%,1,
  132. &606C2:
  133. BB(3)
  134. L("Resources:$.Resources.Edit.ThrowBack")
  135. 1<<31)
  136. ("Set Basic$File <"+
  137. O+"$BasicFile>"):
  138. "Edit:ThrowBack"
  139. BB("Unexpected error:- "+
  140. $+" Internal error code "+
  141. iF(w$,vP%):
  142. _heap_code%900:
  143. ("LOAD "+w$+"heapcode "+
  144. ~_heap_code%):
  145. _heap_code%+0,vP%:
  146. _shell_Bumpers_Init:JR%=2:ER%=4:gP%=8:=0
  147. _shell_CaretMove_Init:dU%=20:
  148. HQ%4:
  149. OQ%4:!HQ%=0:!OQ%=0:DU%=0:gS%=20:
  150. NP%4:
  151. VP%4:!NP%=0:!VP%=0:hS%=0:=0
  152. UB(H):
  153. aK%,k$,b%:k$="":b%=0:
  154. aK%?b%<>0:k$+=
  155. (aK%?b%):b%+=1:
  156. 1:k$=
  157. 34)+1):k$=
  158. 34)+2)
  159. YA(TA$):
  160. 8,5,TA$
  161. ,,MC%:MC%=(MC%
  162. &FFF00)>>>8:=MC%
  163. _shell_DataLoad_Init:aM%=-1:fD%=24:XE%=-1:FA$="":EH%=-1:_L%=-1:u$="":XB$=
  164. UB(1):
  165. XB$<>""
  166. :OP%=
  167. YA(XB$)
  168. :OP%=-1
  169. mB%4:
  170. wK%4:!mB%=0:!wK%=0:_EVNTS_DATALOAD_DATAOFFSET%=0:
  171. YT%4:=0
  172. _shell_DataSave_Init:
  173. JI%4:
  174. 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%=
  175. :DF%=
  176. :LD$="SHELLMSG29":jC$="SHELLMSG28":ND$="SHELLMSG19":xC$="SHELLMSG21"
  177. a,CD$="SHELLMSG39":vU%=6:SU%=&64:vR%=32:=0
  178. _shell_Debug_Init:=0
  179. _shell_Errors_Init:_ERRNR_NONFATAL=&D00:_ERRNR_CLAIMMEM=&903:
  180. _ERRORS_ERR_BLK%256:=0
  181. _shell_Evnts_Init:eA%=8:EE%=-1:
  182. AH%256:
  183. BA%&BB8:
  184. _EVNTS_CLICKSELECT_ANCHOR%4:
  185. _EVNTS_CLICKADJUST_ANCHOR%4:
  186. _EVNTS_CLICKMENU_ANCHOR%4:
  187. _EVNTS_HELPTAG_ANCHOR%4:
  188. _EVNTS_POPUPS_ANCHOR%4:
  189. _EVNTS_PANES_ANCHOR%4:
  190. _EVNTS_SLIDERS_ANCHOR%4
  191. _EVNTS_POINTERIN_ANCHOR%4:
  192. _EVNTS_POINTEROUT_ANCHOR%4:
  193. _EVNTS_DATASAVE_ANCHOR%4:
  194. _EVNTS_REDRAW_ANCHOR%4:
  195. _EVNTS_DRAG_ANCHOR%4:
  196. _EVNTS_BUMP_ANCHOR%4:
  197. _EVNTS_WINDOWOPEN_ANCHOR%4:
  198. _EVNTS_WINDOWCLOSE_ANCHOR%4:
  199. _EVNTS_ICONWATCH_ANCHOR%4
  200. _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
  201. !_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
  202. _EVNTS_CLICKSELECT_DATA%4:
  203. _EVNTS_CLICKADJUST_DATA%4:
  204. _EVNTS_CLICKMENU_DATA%4:
  205. _EVNTS_HELPTAG_DATA%4:
  206. _EVNTS_POPUPS_DATA%4:
  207. _EVNTS_PANES_DATA%4:
  208. _EVNTS_SLIDERS_DATA%4:
  209. _EVNTS_POINTERIN_DATA%4:
  210. _EVNTS_POINTEROUT_DATA%4:
  211. _EVNTS_DATASAVE_DATA%4
  212. _EVNTS_REDRAW_DATA%4:
  213. _EVNTS_DRAG_DATA%4:
  214. _EVNTS_BUMP_DATA%4:
  215. _EVNTS_WINDOWOPEN_DATA%4:
  216. _EVNTS_WINDOWCLOSE_DATA%4:
  217. _EVNTS_ICONWATCH_DATA%4:
  218. _EVNTS_MENUHELPTAG_DATA%4:!_EVNTS_CLICKSELECT_DATA%=0:!_EVNTS_CLICKADJUST_DATA%=0:!_EVNTS_CLICKMENU_DATA%=0
  219. !_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
  220. !_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
  221. _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
  222. _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
  223. _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
  224. _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
  225. _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%=
  226. :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%=
  227. :sR%=&64:
  228. A$(sR%-1)
  229. A$()="":=0
  230. _shell_ExReg_Init:PP%=
  231. :IR%=
  232. :oT%=
  233. :BP%=
  234. :iL%=
  235. :YU%=
  236. :rM%=
  237. :CP%=
  238. :zQ%=
  239. _shell_Files_Init:=0
  240. _shell_Iconbar_Init:=0
  241. _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:
  242. mF%16:
  243. AA%40:
  244. zK%24:RR%=
  245. _shell_IntHelp_Init:eQ%=&83400:RU%=0:pR%=1:uT%=2:AR%=
  246. _shell_Memory_Init:XU%=0:IT%=0:CU%=0:QT%=0:=0
  247. _shell_Menus_Init:HO%=&A:BF%=-1:eP%=-1:hR%=0:SS%=0:pI%=
  248. :_G%=-1:=0
  249. _shell_MenuList_Init:zF%=4:CG%=-1:LB%=-1:qE%=0:=0
  250. _shell_Messages_Init:
  251. _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
  252. _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
  253. `_MESSAGE_COLOURPICKERCOLOURCHOICE=&47700:_MESSAGE_COLOURPICKERCLOSEDIALOGUEREQUEST=&47702:=0
  254. _shell_OS_Init:XN%=256:
  255. CF%XN%:WU%=
  256. jA("UtilityModule",3.1):=0
  257. _shell_Pointer_Init:fR%=20:
  258. DH%4:
  259. DL%4:!DH%=0:!DL%=0:wR%=0:hQ%=20:
  260. VH%4:
  261. YJ%4:!VH%=0:!YJ%=0:dR%=0:yS%=36:AT%=2:jN%=
  262. :oC$="":
  263. xT%4:
  264. DE%20:=0
  265. CB(bK%):_POLL_INTERVAL%=bK%:
  266. DB(bK%):_POLL_PREVINTERVAL%=bK%:
  267. _shell_Poll_Init:
  268. LU%256:_POLL_EARLIEST_TIME%=0:_POLL_INTERVAL%=&64:_POLL_PREVINTERVAL%=0:
  269. CB(_POLL_INTERVAL%):
  270. DB(_POLL_INTERVAL%):
  271. _POLL_EARLIEST_TIME%:_POLL_EARLIEST_TIME%+=_POLL_INTERVAL%:qF%=0:=0
  272. _shell_PopUps_Init:=0
  273. _shell_ProgEvnts_Init:JM%=-1:LB$="":aB$="":gB$="":zB$="":tB$="":pB$="":ZB$="":qA$="":=0
  274. _shell_Sliders_Init:jL%=-1:aI%=
  275. :rI%=-1:kN%=-1:gM%=-1:aD%=-1:rE%=-1:EB$="":_Q%=-1:
  276. WB%50:
  277. UA%50:
  278. GH%20:
  279. MP%50:=0
  280. _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
  281. _shell_Strings_Init:=0
  282. _shell_StaticList_Init:dB%=0:=0
  283. _shell_WindowList_Init:=0
  284. _shell_Windows_Init:
  285. XB%36:
  286. tK%88:
  287. vK%20:
  288. nF%20:
  289. kU%52:tS%=-1:ZU%=-1:=0
  290. e%:e%=
  291. _shell_Bumpers_Init:e%=
  292. _shell_CaretMove_Init:e%=
  293. _shell_DataLoad_Init:e%=
  294. _shell_DataSave_Init:e%=
  295. _shell_Debug_Init:e%=
  296. _shell_Errors_Init:e%=
  297. _shell_Evnts_Init:e%=
  298. _shell_ExReg_Init:e%=
  299. _shell_Files_Init:e%=
  300. _shell_Iconbar_Init
  301. _shell_Icons_Init:e%=
  302. _shell_IntHelp_Init:e%=
  303. _shell_Memory_Init:e%=
  304. _shell_Menus_Init:e%=
  305. _shell_MenuList_Init:e%=
  306. _shell_Messages_Init:e%=
  307. _shell_OS_Init:e%=
  308. _shell_Pointer_Init:e%=
  309. _shell_Poll_Init:e%=
  310. _shell_PopUps_Init
  311. _shell_ProgEvnts_Init:e%=
  312. _shell_Sliders_Init:e%=
  313. _shell_Sprites_Init:e%=
  314. _shell_Strings_Init:e%=
  315. _shell_StaticList_Init:e%=
  316. _shell_WindowList_Init:e%=
  317. _shell_Windows_Init:
  318. 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
  319. _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
  320. _BUTTON_TYPE_MENU=9:
  321. B(wI%):
  322. _heap_code%+4,mA%,wI%:=mA%
  323. jB(bH%,uL%,LD%):
  324. I%,wH%,XK%:wH%=uL%
  325. 4:XK%=uL%
  326. wH%>0
  327. (wH%*4)
  328. 4:bH%!(I%-1)=LD%:
  329. XK%>0
  330. .bH%=bH%+(wH%*4):
  331. XK%-1:bH%?I%=LD%:
  332. DB(lA$,I):
  333. pA$,D,cQ%,p%:
  334. &20023,lA$,CF%,XN%,0,-3*(I=-1)
  335. ,,D,cQ%:
  336. D-1:pA$=pA$+
  337. (CF%?p%):
  338. p%:=pA$
  339. yA(w$):
  340. w$,"."):w$=
  341. w$,".")+1):
  342. vA(aF%):
  343. 29,6,!(_heap_code%+28),aF%
  344. ,,,E:=E
  345. q(mA%):
  346. mA%<&8000
  347. 99,"No heapblock defined at this address"
  348. vA(mA%):
  349. aF%):
  350. q(aF%)
  351. _heap_code%+8,aF%
  352. aF%=0:
  353. d%,ZD%,I$,s%:d%=
  354. B(256):
  355. ("Set RO3$Check Y"):
  356. ("RMEnsure UtilityModule 3.00 Set RO3$Check N"):
  357. 35,"RO3$Check",d%,256,0,0
  358. ,,ZD%:d%?ZD%=&D:
  359. ("Unset RO3$Check"):I$=$d%:
  360. B(d%):
  361. I$="N"
  362. WE:AR%=
  363. vB%,p%,g%,z$:
  364. H$,L$,xG%:
  365. pE:_poll_called%=0:
  366. hG:_SHELL_SENDDATALOAD_MY_REF%=0:_SHELL_SENDDATALOAD_FILE$="":
  367. _U%360,_shell_blk%260:_Q%=
  368. B(&BB8):vB%=
  369. 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
  370. 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=
  371. 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
  372. _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
  373. _U%!&E8=
  374. B(256):_U%!&EC=
  375. 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:
  376. jB(_U%!&E8,256,0):
  377. jB(_U%!&EC,256,0)
  378. DB("Obey$Dir",1):L$=
  379. yA(H$),2):_U%!&BC=
  380. H$)+1):_U%!&C4=
  381. L$)+1):g%=_U%!&BC:$g%=H$:g%=_U%!&C4:$g%=L$:g%=
  382. jA("WimpExtension",1.98):
  383. _U%!&64=_U%!&64
  384. I&g%=
  385. _U%!&64=_U%!&64
  386. 1<<&A
  387. WE:xG%=&64:
  388. CB(xG%):
  389. DB(xG%):
  390. _POLL_EARLIEST_TIME%:_POLL_EARLIEST_TIME%+=xG%:z$=
  391. UB(1):
  392. z$<>""
  393. V9_U%!&64=_U%!&64
  394. 1<<5:g%=
  395. z$+1):$(g%)=z$:_U%!324=g%
  396. dC:FB$="convfile":GB$="WVFORMAT":MB$="WVDATA":IB$="WVCALDATA":QQ%=&FFD:mC$="_ConvFile_LoadFile":fA$="":bO%=-1:CM%=-1:sI%=
  397. YC:y%=-1:jT%=
  398. :dJ%=
  399. :VA$="":wJ%=
  400. _shell_VBFile_Init:VM%=&C8:CR%=&C8:qM%=&64:xH%=32:yH%=48:UT%=1:MQ%=0:
  401. YC:=0
  402. _shell_Menu_TID_Init:VB$="TIDTitle":fG%=-1:fE%=fG%:FC$="TID_Menu":=0
  403. 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
  404. 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
  405. _shell_Menu_Cats_Init:lC$="cats":XG%=-1:SF%=XG%:pC$="Category_Menu":AC$="VideoBaseRes:Cats":=0
  406. _shell_Menu_Chan_Init:_c_Menu_Chan_MessTag_Title$="channels":_c_Menu_Chan_MenuNotCreated%=-1:_c_Menu_Chan_FileName$="<VideoBase$Dir>.UserData.Channels":aE%=_c_Menu_Chan_MenuNotCreated%:fB$="Channels_Menu":=0
  407. _shell_Menu_Title_Init:_c_Menu_Title_MessTag_Title$="titles":_c_Menu_Title_MenuNotCreated%=-1:_c_Menu_Title_FileName$="<VideoBase$Dir>.UserData.Titles":ZG%=_c_Menu_Title_MenuNotCreated%:hC$="Titles_Menu":=0
  408. _shell_Menu_TLen_Init:_c_Menu_TLen_MessTag_Title$="atlen":_c_Menu_TLen_NotCreated%=-1:_c_Menu_TLen_FileName$="<VideoBase$Dir>.UserData.TapeLngts":_c_Menu_TLen_Default_Len$="E240":_c_Menu_TLen_WritableValidation$="AE0-9"
  409. |_c_Menu_TLen_WritableStateOn%=1:_c_Menu_TLen_WritableBufferLen%=20:cE%=_c_Menu_TLen_NotCreated%:nC$="TapeLength_Menu":=0
  410. _shell_Menu_TFmat_Init:LC$="atfmt":kG%=-1:wA$="<VideoBase$Dir>.UserData.TapeFmts":fF%=kG%:JC$="TapeFormat_Menu":=0
  411. _shell_Menu_TMake_Init:_c_Menu_TMake_MessTag_Title$="atmake":_c_Menu_TMake_FileName$="<VideoBase$Dir>.UserData.TapeMakes":_c_Menu_TMake_NotCreated%=-1:gF%=_c_Menu_TMake_NotCreated%:kC$="TapeMake_Menu":=0
  412. _shell_Menu_HMDis_Init:RH%=-1:KG%=RH%:pO%=
  413. _shell_Idx_Recs_Init:_c_Idx_Recs_ListTerminator%=-1:_c_Idx_Recs_ClaimSize%=&C8:_c_Idx_Recs_UnusedSlots%=0:tU%=0:=0
  414. _shell_Idx_Sel_Init:_c_Idx_Sel_ListTerminator%=-1:=0
  415. _shell_Idx_Tapes_Init:_c_Idx_Tape_ListTerminator%=-1:XI%=
  416. _shell_Idx_Gaps_Init:_c_Idx_Gaps_ListTerminator%=-1:=0
  417. 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%=
  418. :mM%=0:zM%=
  419. :YG%=
  420. _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
  421. _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
  422. _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
  423. rN%=0:=0
  424. U(uN%,wI%):
  425. _heap_code%+&C,uN%,wI%:=uN%
  426. gA(x%):
  427. z%,t%:z%=-1:t%=0:
  428. dB%<>0
  429. dB%!t%<>-1:
  430. dB%!t%=x%
  431.     z%=t%
  432. :t%+=4:
  433. TA(a%):
  434. -1,-2:i%=
  435. _U%!20:i%=
  436. gA(a%)>-1
  437. bA(P$,LA$,oA$):
  438. o%,L%,DA$,oG%,ZE%:
  439. P$,8)="SHELLMSG"
  440. oG%=_U%!284:ZE%=_U%!280
  441. oG%=_U%!64:ZE%=_U%!68
  442. &61502,ZE%,P$,oG%,256,LA$,oA$
  443. ,,,L%;o%:
  444. oG%?L%=&D:DA$=$(oG%)
  445. :=DA$
  446. A(P$):=
  447. bA(P$,"","")
  448. Y(hB$,dF%,eF%,uG%,t$,l%,n$,o$):
  449. YB%,b%,g%,fB%,MB%,MJ%:MJ%=
  450. _U%!60=0
  451.  _U%!60=
  452. B(24):b%=0:_U%!&B4=1
  453. b%=_U%!&B4*24:_U%!60=
  454. U(_U%!60,24):_U%!&B4=(_U%!&B4)+1
  455. :YB%=_U%!60:
  456. "F1":MB%=385
  457. "F2":MB%=386
  458. "F3":MB%=387
  459. "F4":MB%=388
  460. "F5":MB%=389
  461. "F6":MB%=390
  462. "F7":MB%=391
  463. "F8":MB%=392
  464. "F9":MB%=393
  465. "F10":MB%=458
  466. "F11":MB%=459
  467. MB%=(
  468. hB$)-64:MJ%=
  469. MB%+=16
  470. MB%+=32
  471. :g%=YB%+b%:g%!0=MB%:g%?4=dF%:g%?5=eF%:g%?6=uG%:g%!8=
  472. t$+1):fB%=g%!8:$fB%=t$:
  473. TA(l%)=
  474. A("SHELLMSG09")
  475. :g%!&C=l%:g%!16=
  476. n$+1):fB%=g%!16:$fB%=n$:g%!20=
  477. o$+1):fB%=g%!20:$fB%=o$:
  478. 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
  479. _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:
  480. Y("F3",
  481. ,_c_WinSave_TemplateName$,0,"_PreOpen_Xfer",""):=0
  482. MC:HH%=-1:vL%=
  483. :IP%=
  484. :nB%=HH%:=0
  485. XC:DG%=-1:oI%=
  486. :wB%=DG%:qI%=
  487. YC:kM%=-1:BN%=
  488. :ZC%=kM%:=0
  489. _shell_Win_ERec_Init:_c_Win_ERec_WindowNotCreated%=-1:RJ%=
  490. :pA%=_c_Win_ERec_WindowNotCreated%:gJ%=
  491. 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%=
  492. :NB%=MG%:yA$="":=0
  493. _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
  494. IC:_c_WinIBar_MessTag$="iconbar":_c_WinIBar_IconSide%=-1:qT%=-1:TO%=-1:=0
  495. FC:SI%=-1:cO%=
  496. :DD%=SI%:=0
  497. KC:_c_WinFSp_NotCreated%=-1:QL%=
  498. :LL%=
  499. :CB%=_c_WinFSp_NotCreated%:bD%=_c_WinFSp_NotCreated%:=0
  500. FA(TA$):
  501. 8,5,TA$
  502. ,,,,DB%:=DB%
  503. A("wop_stsmin"))
  504. mB(JL%):
  505. :FA%!52=JL%:
  506. PC(a%,f%):AA%!0=a%:AA%!4=f%:
  507. &400CE,,AA%:
  508. ZF(a%,f%,
  509. sA%):
  510. PC(a%,f%):fA%=AA%!8:qA%=AA%!&C:rA%=AA%!16:sA%=AA%!20:
  511. g(E$):
  512. (E$)>0
  513. (E$):
  514. E$,p%,1)>="a"
  515. E$,p%,1)<="z"
  516. E$,p%,1)=
  517. E$,p%,1))
  518. oB(FH%,EC$):
  519. I%,I$:
  520. FH%<=0
  521.     I$=""
  522. g($FH%),";"+
  523. g(EC$)):
  524.     I$=""
  525. $(FH%+I%),
  526. $(FH%+I%)+";",";")-1)
  527. eC:=_U%!16
  528. EG(o%,R$,v$):
  529. nA%,eB%,pC%,cD%,AC%,aC%:dD%=0:eD%=0:
  530. R$<>""
  531. &40084,o%>>24
  532. ,,eB%,,cD%:
  533. &40097,,
  534. (o%>>24)+R$
  535. ,nA%,,pC%:
  536. &40088,,nA%
  537. ,nA%:
  538. &40088,,pC%
  539. ,pC%:dD%=pC%-nA%:eD%=cD%-eB%
  540. dD%=6*AC%+16*
  541. R$:eD%=32
  542. 4eD%+=2*aC%
  543. v$<>""
  544. &2002E,296,
  545. eC,v$
  546. ,,,AC%,aC%,,CO%;P%:
  547. &20035,CO%,4
  548. ,,TR%:AC%=AC%<<TR%:
  549. &20035,CO%,5
  550. ,,cR%:aC%=aC%<<cR%:
  551. &800 AC%=AC%/2:aC%=aC%/2
  552. 539)=19AC%=dD%+AC%
  553. AC%>dD%dD%=AC%
  554. aC%>eD%eD%=aC%
  555. GC(x%,nA%,eB%,pC%,cD%,o%,zP%,VR%,iQ%,bC%):
  556. gH%,yA%,R$,v$,dD%,eD%:yA%=
  557. B(60):!yA%=x%:yA%!20=o%:yA%!24=zP%:yA%!28=VR%:yA%!32=iQ%:R$="":v$="":
  558. 256R$=$(yA%!24)
  559. R$=$(yA%+24)
  560. oB(yA%!28,"S")
  561. v$=$(yA%+24)
  562. EG(o%,R$,v$):
  563. pC%-nA%<dD%
  564. pC%=nA%+dD%
  565. cD%-eB%<eD%
  566. cD%=eB%+eD%
  567. yA%!4=nA%:yA%!8=eB%:yA%!&C=pC%:yA%!16=cD%:
  568. &400C2,,yA%
  569. &400D1,!yA%,yA%!4-bC%,yA%!8-bC%,yA%!&C+bC%,yA%!16+bC%:
  570. &400D3,,yA%:
  571. !yA%=x%:
  572. yA%!4=gH%:
  573. &400D2,x%,gH%,0,0,-1,0
  574. B(yA%):=gH%
  575. HC(l%,MA%,nA%,eB%,pC%,cD%):
  576. gA%,aT%,zS%,bC%,d%:
  577. bM%,uM%,wM%,yM%:gA%=
  578. B(40):d%=
  579. B(40):!gA%=l%:gA%!4=MA%:
  580. &400CE,,gA%:!d%=l%:d%!4=MA%:
  581. &400CE,,d%:
  582. &8168A,,d%+8:QP%=gA%!24:VK%=gA%+28:bM%=QP%:uM%=VK%!0:wM%=VK%!4:yM%=VK%!8:bC%=gA%!8-d%!8:
  583. &400C4,,gA%
  584. &400D1,!gA%,gA%!8-bC%,gA%!&C-bC%,gA%!16+bC%,gA%!20+bC%:MA%=
  585. GC(l%,nA%,eB%,pC%,cD%,bM%,uM%,wM%,yM%,bC%):
  586. B(gA%):
  587. B(d%):=MA%
  588. WA:=FA%!52
  589. EN%,HN%,LN%,MN%:
  590. u%<>_c_WinMWPane_NotCreated%
  591. ZF(u%,_c_WinMWPane_Subject_Icon%,EN%,HN%,LN%,MN%):_c_WinMWPane_Subject_Icon%=
  592. HC(u%,_c_WinMWPane_Subject_Icon%,
  593. WA-8,HN%,
  594. WA+(LN%-EN%)-8,MN%)
  595. A("wop_stsdef"))):
  596. pA(BC%):
  597. FA%?3=1
  598. FA%?3=0
  599. d(a%,f%,AQ%,bQ%):mF%!0=a%:mF%!4=f%:mF%!8=AQ%:mF%!&C=bQ%:
  600. &600CD,,mF%:
  601. KB(oF%,pF%):
  602. d(oF%,pF%,0,&200000):
  603. x(oF%,pF%):
  604. d(oF%,pF%,&200000,&200000):
  605. K(l%,MA%,RC%):
  606. RC%=0
  607. KB(l%,MA%)
  608. x(l%,MA%)
  609. FA%?3=1
  610. WC(yQ%):
  611.     pI%=
  612. VA%<>gD%
  613. K(VA%,xK%,
  614. FA%!36<>-1
  615. YE:FA%!36=-1:FA%!40=-1:FA%!44=-1:FA%!48=-1:
  616. VA%<>gD%
  617. K(VA%,LI%,
  618. yB(ZB%):FA%!28=ZB%:
  619. yB(50):
  620. hC(ZB%):FA%!32=ZB%:
  621. hC(42):
  622. 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:
  623. L("<VideoBase$Dir>.Options")
  624. ("LOAD <VideoBase$Dir>.Options "+
  625. ~FA%):
  626. FA("<VideoBase$Dir>.Options")<BL%
  627. FA("<VideoBase$Dir>.Options")=52
  628. _shell_Options_Init:BL%=56:gD%=-1:FL%=
  629. :VA%=gD%:
  630. FA%BL%:
  631. OD:=0
  632. CD:_c_Win_RenTap_NotCreated%=-1:PO%=
  633. :WO%=
  634. :SC%=_c_Win_RenTap_NotCreated%:=0
  635. _shell_Win_NotePa_Init:_c_Win_NotePa_NotCreated%=-1:aO%=
  636. :yR%=
  637. :rF%=_c_Win_NotePa_NotCreated%:=0
  638. NC:xN%=-1:DO%=
  639. :dP%=xN%:=0
  640. _shell_CalLib_Init:_m_Calendar_MonthStr$="JanFebMarAprMayJunJulAugSepOctNovDec":_m_Calendar_DayStr$="SunMonTueWedThuFriSat":_c_Calendar_MonthStrErr%=99:_c_Calendar_MonthStrLen%=
  641. (_m_Calendar_MonthStr$)
  642. _c_Calendar_MonthStrErr$="String passed to CalendarSetMonthString must be "+
  643. (_c_Calendar_MonthStrLen%)+" characters long":_c_Calendar_MonthInvalid$="***":_c_Calendar_DayInvalid$="***":_c_Calendar_DateInvalid$=""
  644. _c_Calendar_DayStrLen%=
  645. (_m_Calendar_DayStr$):_c_Calendar_DayStrErr$="String passed to CalendarSetDayString must be "+
  646. (_c_Calendar_DayStrLen%)+" characters long":=
  647. _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
  648. _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
  649.     hQ_m_DatePick_CurrDay%=-1:_m_DatePick_CurrMonth%=-1:_m_DatePick_CurrYear%=-1:=0
  650. YD:iL%=
  651. _shell_Fonts_Init:_c_Fonts_DeskTopFont_NotKnown%=-1:_c_Fonts_ReadDeskTopFont_Reason%=8:_c_Fonts_CurrentDeskTopFont%=_c_Fonts_DeskTopFont_NotKnown%:
  652. YD:=0
  653. lD:rM%=
  654. _shell_ShareBan_Init:
  655. _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:
  656. lD:=0
  657. _shell_Scrap_Init:=0
  658. VC(hD%,WA$):
  659. gI%,IC%:
  660. gI%4:!gI%=0:
  661. BB(3.1)
  662. 2hD%=310:
  663. &400C0,hD%,&4B534154,WA$,gI%
  664. hD%,IC%
  665. hD%=&C8:
  666. &400C0,hD%,&4B534154,WA$
  667. hD%,IC%
  668. _U%!&64
  669. "WimpExt_Initialise",&E,IC%
  670. :_U%!&94=IC%:=IC%
  671. iC(hD%,WA$):
  672. IC%:IC%=
  673. VC(hD%,WA$):
  674. &81682,IC%:=IC%
  675. g%:g%=_U%!&BC:=$g%
  676. y(lA$):
  677. &20023,lA$,CF%,-1,0,0
  678. e(M$,
  679. VL%):
  680. pB%,o%:
  681. 3,"Cannot open message file '"+M$+"'"
  682. &41500,,M$
  683. o%,,pB%:
  684. VL%=0
  685. B(pB%)
  686. 30,6,,,17+
  687. ,,vG%:$(vG%+16)=M$:
  688. &41501,vG%,vG%+16:
  689. eA(M$):
  690. iD%,S%,T%:S%=
  691. (M$):T%=
  692. #S%+16:
  693. #S%:iD%=
  694. B(T%):!iD%=T%:iD%!4=0:iD%!8=fN%:iD%!&C=fN%:
  695. 46,521,iD%:
  696. 46,522,iD%,M$:=iD%
  697. oB%,_3d%:
  698. _U%!&64
  699. (1<<&A)
  700. 6,&A1,&8C
  701. ,,oB%:
  702. _3d%=
  703. _3d%=
  704. _3d%=
  705. :=_3d%
  706. VE(M$,
  707. cA%,FE%,ED%,TC%:
  708. t%,zG%,eI%,xB%,sF%,o%:cA%=0:bA%=0:FE%=0:ED%=0:zA%=
  709. B(&D):
  710. &400D9,,M$:
  711. :$zA%="*":
  712. &400DB,,-1,,,,zA%,cA%
  713. ,CC%,UP%,,,,cA%:
  714. cA%<>0
  715. CC%>ED%
  716. ED%=CC%
  717. FE%+=UP%:bA%+=1
  718. cA%=0:
  719. &400DA:CC%=ED%+FE%:
  720. B(zA%):
  721. QB(TC%,o%,HJ%,X%):
  722. pB%,_M%,t%,zG%:
  723. &800100)=256
  724. "pB%=HJ%!8:
  725. (HJ%!4<>-1)
  726. A_M%=HJ%!4:
  727. #X%=TC%+_M%:t%=0:
  728. :zG%=
  729. #X%:t%+=1:
  730. zG%<32:pB%+=+t%
  731. pB%=0
  732. :=pB%
  733. XE(M$,
  734. cA%,FE%,ED%:
  735. zA%,X%,FD%,BR%:
  736. t%,zG%,eI%,xB%,sF%,o%:cA%=0:bA%=0:FE%=0:ED%=0:i%=0:
  737. L(M$)
  738. i%=-1
  739. YA(M$)<>&FEC
  740. i%=-2
  741. *BzA%=
  742. B(&D):X%=
  743. (M$):
  744. #X%=16:
  745. &C,4,X%,zA%,4:TC%=!zA%:
  746. TC%>0
  747. bA%+=1:LJ%=0:
  748. &C,4,X%,zA%,4:FD%=!zA%:
  749. &C,4,X%,zA%,4:BR%=!zA%:
  750. &C,4,X%,zA%,&C:eI%=
  751. #X%=TC%+56:
  752. &C,4,X%,zA%,4:o%=!zA%:
  753. #X%=TC%+72:
  754. &C,4,X%,zA%,&C:LJ%+=
  755. QB(TC%,o%,zA%,X%):
  756. #X%=TC%+84:
  757. &C,4,X%,zA%,4:xB%=!zA%:
  758. xB%>0
  759. sF%=0
  760. xB%-1:
  761. #X%=TC%+88+(sF%*32)+16:
  762. &C,4,X%,zA%,4:o%=!zA%:
  763. #X%=TC%+88+(sF%*32)+20:
  764. &C,4,X%,zA%,&C:LJ%+=
  765. QB(TC%,o%,zA%,X%):
  766. #X%=eI%:FE%+=LJ%:
  767. FD%>ED%
  768. ED%=FD%
  769. TC%=0:
  770. B(zA%):CC%=ED%+FE%
  771. dE(M$,
  772. tE%:tE%=
  773. VE(M$,CC%,bA%,i%)
  774. XE(M$,CC%,bA%,i%)
  775. zA(P$,LA$,oA$):=
  776. bA(P$,LA$,oA$)
  777. s(EA$,
  778. _R%):
  779. tF%,VJ%,TL%,CC%:
  780. uF%,cA%,BH%,MA$,bA%,cL%,i%:
  781. dL%,vF%:BH%=
  782. B(&C):cA%=0:bA%=0:uF%=
  783. FA(EA$):FQ%=
  784. B(uF%):tF%=FQ%:
  785. dE(EA$,CC%,bA%,i%):
  786. iwF%=
  787. B(4+(20*bA%)):_U%!4=wF%:zL%=
  788. B(CC%):VJ%=zL%:TL%=zL%+CC%:bA%=0:vF%=4:
  789. &600D9,,EA$
  790. ;cL%:
  791. zA("SHELLMSG34","template",EA$)
  792. :$BH%="*":
  793. &400DB,,tF%,VJ%,TL%,_U%!&E8,BH%,cA%
  794. ,,VJ%,,,MA$,cA%:
  795. cA%<>0
  796. ]wF%!vF%=tF%:$(wF%+vF%+4)=MA$:wF%!(vF%+16)=-1:vF%+=20:dL%=(tF%!84)*32:tF%+=(88+dL%):bA%+=1
  797. cA%=0:
  798. &400DA:_U%!0=bA%
  799. zA("SHELLMSG35","template",EA$)
  800. zA("SHELLMSG36",EA$,"template")
  801. B(BH%):_R%=0:!wF%=bA%:
  802. F(h%,CH%,qJ%,
  803. aB%):
  804. KM%,qC%,k%,qC%,FD%,rC%:
  805. !CH%<>0
  806. B(!CH%)
  807. !qJ%<>0
  808. B(!qJ%)
  809. KM%=1
  810. B(eA%):
  811. &C,4,h%,k%,eA%:qC%=!k%:k%=
  812. U(k%,qC%):
  813. &C,4,h%,k%+eA%,qC%:!CH%=k%:
  814. &C,4,h%,AH%,4:FD%=!AH%:
  815. FD%>0
  816. 2rC%=
  817. B(FD%):
  818. &C,4,h%,rC%,FD%:!qJ%=rC%:aB%=FD%
  819. !CH%=0
  820. SF(h%):
  821. F(h%,DH%,DL%,wR%):
  822. F(h%,VH%,YJ%,dR%):
  823. TF(B$):
  824. h%,k%,KA%,cC%:h%=
  825. (B$):
  826. F(h%,_EVNTS_CLICKSELECT_ANCHOR%,_EVNTS_CLICKSELECT_DATA%,_EVNTS_CLICKSELECT_DATAOFFSET%):
  827. F(h%,_EVNTS_CLICKADJUST_ANCHOR%,_EVNTS_CLICKADJUST_DATA%,_EVNTS_CLICKADJUST_DATAOFFSET%)
  828. F(h%,_EVNTS_CLICKMENU_ANCHOR%,_EVNTS_CLICKMENU_DATA%,_EVNTS_CLICKMENU_DATAOFFSET%):
  829. F(h%,_EVNTS_HELPTAG_ANCHOR%,_EVNTS_HELPTAG_DATA%,_EVNTS_HELPTAG_DATAOFFSET%):
  830. SF(h%):
  831. F(h%,_EVNTS_REDRAW_ANCHOR%,_EVNTS_REDRAW_DATA%,_EVNTS_REDRAW_DATAOFFSET%)
  832. F(h%,_EVNTS_WINDOWCLOSE_ANCHOR%,_EVNTS_WINDOWCLOSE_DATA%,_EVNTS_WINDOWCLOSE_DATAOFFSET%):
  833. F(h%,_EVNTS_PANES_ANCHOR%,_EVNTS_PANES_DATA%,_EVNTS_PANES_DATAOFFSET%):
  834. F(h%,_EVNTS_POPUPS_ANCHOR%,_EVNTS_POPUPS_DATA%,_EVNTS_POPUPS_DATAOFFSET%)
  835. F(h%,_EVNTS_SLIDERS_ANCHOR%,_EVNTS_SLIDERS_DATA%,_EVNTS_SLIDERS_DATAOFFSET%):
  836. F(h%,_EVNTS_BUMP_ANCHOR%,_EVNTS_BUMP_DATA%,_EVNTS_BUMP_DATAOFFSET%):
  837. F(h%,_EVNTS_DRAG_ANCHOR%,_EVNTS_DRAG_DATA%,_EVNTS_DRAG_DATAOFFSET%):
  838. F(h%,JI%,KK%,LP%)
  839. F(h%,_EVNTS_ICONWATCH_ANCHOR%,_EVNTS_ICONWATCH_DATA%,_EVNTS_ICONWATCH_DATAOFFSET%):
  840. F(h%,mB%,wK%,TT%):
  841. fB:=rM%
  842. b(P$,LA$):=
  843. bA(P$,LA$,"")
  844. k:=_U%!4
  845. WA%:WA%=
  846. k:=!WA%
  847. lA(K$):
  848. b%,bA%,DC%,t%:
  849. (K$)>&B
  850. b("SHELLMSG02",K$)
  851. ;bA%=
  852. UA:DC%=
  853. k+4:t%=0:b%=-1:
  854. $(((DC%)+(20*t%))+4)=K$
  855. b%=t%*20
  856. :t%+=1:
  857. b%<>-1
  858. t%>(bA%-1):=b%
  859. GB(K$):
  860. b%,NK%:b%=
  861. lA(K$):
  862. b%>=0
  863. J%,QK%,UK%,NB$,ZD%,uE%,h%:h%=
  864. W+".User"):ZD%=
  865. #h%:uE%=
  866. #h%:_c_ShareBan_CodeNr%?0=
  867. #h%:_c_ShareBan_CodeNr%?1=
  868. #h%:_c_ShareBan_CodeNr%?2=
  869. #h%:_c_ShareBan_CodeNr%?3=
  870. #h%:NB$="":QK%=1:
  871. uE%:UK%=
  872. J%:UK%=
  873. #h%:NB$+=
  874. (UK%):QK%+=1:
  875. QK%>ZD%
  876. #h%:=NB$
  877. F%,vE%,nS%,MC%,uF%:
  878. uE%,dN%,gN%:vE%=
  879. W+".User")
  880. W+".User"):uF%=
  881. W+".User"):F%=
  882. W+".User"):gN%=
  883. #F%:uE%=
  884. #F%:e%=
  885. #F%:e%=
  886. #F%:e%=
  887. #F%:e%=
  888. #F%:dN%=(uE%+1)*gN%+2+uE%+4:
  889. MC%<>&FFD
  890. dN%<>uF%
  891. M    vE%=
  892. #F%:_m_ShareBan_User$=
  893. &3E8)<>!_c_ShareBan_CodeNr%
  894. R*_m_ShareBan_User$="Unregistered":vE%=
  895. :=vE%
  896. sA(K$):
  897. b%,EC%,DC%:b%=
  898. lA(K$):
  899. 99,K$+":"+
  900. b%>=0
  901. EC%=DC%!b%
  902. b("SHELLMSG03",K$)
  903. :=EC%
  904. jF(x%):
  905. b%,t%,g%:
  906. dB%=0
  907. B(8):dB%!0=x%:dB%!4=-1
  908. gA(x%):
  909. b%=-1
  910. gA(0):
  911. b%=-1
  912. Et%=0:
  913. dB%!t%<>-1:t%+=4:
  914. :dB%=
  915. U(dB%,4):g%=dB%+t%:g%!0=x%:g%!4=-1
  916. g%=dB%+b%:g%!0=x%
  917. kC(K$,a%):
  918. mN%,WA%,c%,qK%:
  919. K$=""
  920. 99,"Bad window name passed to WindowListAddHandle"
  921. )mN%=
  922. lA(K$)+16:WA%=
  923. k+4+mN%:
  924. !WA%=-1
  925. &!WA%=
  926. B(8):c%=!WA%:c%!0=a%:c%!4=-1
  927. WA%!16<>-1
  928. /OA%=!WA%:c%=0:qK%=
  929. OA%!c%<>-1:
  930. OA%!c%=0
  931. OA%!c%=a%:qK%=
  932. :c%+=4:
  933. R!WA%=
  934. U(!WA%,4):DC%=!WA%:c%=0:
  935. DC%!c%<>-1:c%+=4:
  936. :DC%!(c%+0)=a%:DC%!(c%+4)=-1
  937. E(K$,
  938. GE%:GE%=
  939. sA(K$):GE%!64=_U%!16:
  940. &400C1,,GE%
  941. jF(a%):
  942. kC(K$,a%):
  943. z(l%):
  944. wE%,tE%,xB%:
  945. (_U%!&64
  946. 1<<&A)
  947. l%=-1
  948. l%=-2
  949. 1wE%=
  950. B(88):!tK%=l%:
  951. &400CC,,tK%+1:xB%=tK%!88
  952. B(6000):
  953. $!wE%=l%:
  954. &400CC,,wE%:xB%=wE%!88
  955. B(wE%)
  956. :=xB%
  957. _(a%):=
  958. B(&64+(
  959. z(a%)*32))
  960. I(x%):
  961. WA%,bA%,c%,t%,NA$:bA%=
  962. UA:WA%=
  963. k+4:NA$="":
  964. -1,-2:NA$="iconbar"
  965. WA%!16<>-1
  966. 8OA%=WA%!16:c%=0:
  967. OA%!c%<>-1:
  968. OA%!c%=x%
  969. NA$=$(WA%+4)
  970. c%+=4:
  971. :t%+=1:WA%+=20:
  972. NA$<>""
  973. t%=bA%
  974. :=NA$
  975. E(A$,f%,m%,ZA%,gB%):
  976. HB%,c%,z%,b%,qB%,FC%:
  977. A$="IconBar"
  978. f%=-1:A$="iconbar"
  979. :b%=0:
  980. (!m%=0
  981. 1    b%=-2
  982. A$=""
  983. 4    b%=-1
  984. (!m%=0)
  985. :o!m%=
  986. B(ZA%+eA%):qB%=!m%:qB%!0=ZA%:qB%!4=1:$(qB%+eA%)="":
  987. p%=&C
  988. (ZA%-4)
  989. 4:qB%!(p%+eA%)=-1:
  990. p%:EE%=eA%:b%=eA%
  991. b%<>eA%
  992. HHqB%=!m%:HB%=!qB%:c%=eA%:z%=
  993. :b%=-1:gR%=-1:FC%=!m%:
  994. ($(FC%+c%)=A$)
  995. FC%!(c%+&C)=f%
  996. b%=c%:z%=
  997. c%+=ZA%
  998. c%+=ZA%
  999. ((c%>=(HB%+eA%))
  1000. (b%=-1
  1001. ekb%=HB%+eA%:!m%=
  1002. U(!m%,ZA%):dC%=!m%:dC%!0+=ZA%:dC%!4+=1:dC%+=b%:$(dC%)="":
  1003. p%=&C
  1004. (ZA%-4)
  1005. 4:dC%!p%=-1:
  1006. :EE%=b%
  1007. MA(K$):
  1008. b%,OA%,DC%:b%=
  1009. lA(K$):DC%=
  1010. b%>=0
  1011. OA%=!(DC%+b%+16)
  1012. b("SHELLMSG03",K$)
  1013. :=OA%
  1014. f(_window_handle%,GL%,yF%):
  1015. b%,ZO%,GD%,yB%,ZB%:
  1016. eC%,rO%,YM%:
  1017. A$,m%,hA%,HA%:
  1018. D$,e%,IB%,HE%,GC%,xE%:
  1019. _F%,OA%,jD%,ZI%:
  1020. fL%:A$=
  1021. I(_window_handle%):GD%=_Q%!28:b%=
  1022. E(A$,-1,_EVNTS_WINDOWOPEN_ANCHOR%,_EVNTS_WINDOWOPEN_REC_SIZE%,
  1023. b%>=0
  1024. rm%=!_EVNTS_WINDOWOPEN_ANCHOR%+b%:hA%=m%!16:HA%=!_EVNTS_WINDOWOPEN_DATA%:D$=$(HA%+hA%):e%=
  1025. ("FN"+D$+"("+A$+")")
  1026. :eC%=
  1027. :XB%!0=_window_handle%:
  1028. &400CB,,XB%:
  1029. (XB%!32
  1030. &80000)=&80000
  1031. &400CF,,vK%:_Q%!0=_window_handle%:
  1032. &400CB,,_Q%
  1033. &400C5,,_Q%
  1034. :HE%=
  1035. E(A$,IB%,_EVNTS_PANES_ANCHOR%,_EVNTS_PANES_REC_SIZE%,
  1036. b%>=0
  1037. !_Q%!0=_window_handle%:
  1038. yF%>0
  1039. GD%=yF%
  1040. GD%=-1
  1041. GD%=_Q%!28
  1042. &400C5,,_Q%:
  1043. &400CB,,_Q%:
  1044. &400C6,,_Q%
  1045. :IB%=0:
  1046. E(A$,IB%,_EVNTS_PANES_ANCHOR%,_EVNTS_PANES_REC_SIZE%,
  1047. )>-1:b%=EE%:m%=!_EVNTS_PANES_ANCHOR%+b%:IE%=m%!16:HA%=!_EVNTS_PANES_DATA%:e$=$(HA%+IE%):GC%=m%!20:ZI%=
  1048. :xE%=m%!24:_F%=m%!28:
  1049. (1<<8)
  1050. :GC%=GC%
  1051. (1<<8)
  1052. :OA%=
  1053. MA(e$):jD%=!OA%:BA%!0=jD%:
  1054. ZO%=0
  1055. ZO%=BA%!0
  1056. 9rO%=BA%!0:
  1057. &400CB,,BA%:
  1058. vK%!16=-9
  1059. vK%!16>-5
  1060. 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%
  1061. 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%
  1062. 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%
  1063. 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%
  1064. 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
  1065. :fL%=BA%!28:
  1066. IB%=0
  1067. BA%!28=GD%
  1068. BA%!28=YM%
  1069. &400C5,,BA%
  1070. BA%!0=fL%
  1071. :YM%=BA%!0:IB%+=1:
  1072. _Q%!28=rO%:
  1073. &400C5,,_Q%
  1074. _Q%!0=_window_handle%:
  1075. &400CB,,_Q%
  1076. GD%=-2
  1077. _Q%!28=-2
  1078. yF%=-1
  1079. _Q%!28=-1
  1080. &400C5,,_Q%
  1081. P(x%):
  1082. TA(x%)=
  1083. f(x%,0,-1)
  1084. LA(l%,UC%,VC%):
  1085. e%,yE%:yE%=
  1086. B(20):_U%!20=l%:
  1087. &400CF,,yE%:
  1088. &400D4,,l%,yE%!0+UC%,yE%!4+VC%:
  1089. B(yE%):
  1090. g(aA%):
  1091. B(aA%):
  1092. MA(l%,uA%,vA%):
  1093. AM%,BM%,b%,d%:d%=
  1094. _(l%):d%!0=l%:
  1095. &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%:
  1096. &400C5,,d%:
  1097. &400C6,,d%:
  1098. TA(l%)
  1099. P(l%)
  1100. LA(l%,0,0)
  1101. g(d%):
  1102. lC(EA%):
  1103. jA%,IH%,JH%,ZB%,yB%,BG%,KE%:
  1104. &20035,-1,4
  1105. ,,BG%:
  1106. &20035,-1,5
  1107. ,,KE%:
  1108. &20035,-1,&B
  1109. ,,IH%:
  1110. &20035,-1,&C
  1111. ,,JH%:IH%=IH%<<BG%:JH%=JH%<<KE%:IA%=
  1112. B(36):IA%!0=EA%:
  1113. &400CB,,IA%:ZB%=(IA%!&C-IA%!4):yB%=(IA%!16-IA%!8)
  1114. MA(EA%,(IH%/2)-(ZB%/2),(JH%-yB%)/2):
  1115. B(IA%):
  1116. nD(uA%,vA%,UM%,EA%):
  1117. uA%,vA%,UM%,EA%:xS%=uA%:_S%=vA%:ZT%=UM%:kT%=EA%:
  1118. JF(BB%):
  1119. B(36):B!0=BB%:
  1120. &400CB,,B:
  1121. nD(B!4,B!8,B!&C-B!4,B!16-B!8):
  1122. B(B):
  1123. E(_c_ShareBan_BannerName$,_m_ShareBan_WindowHandle%):
  1124. lC(_m_ShareBan_WindowHandle%):
  1125. f(_m_ShareBan_WindowHandle%,
  1126. &400D2,_m_ShareBan_WindowHandle%,3,,-1,0:
  1127. &406C2:
  1128. JF(_m_ShareBan_WindowHandle%):
  1129. &C8,20:
  1130. LE%,kD%,jG%:LE%=0:kD%=
  1131. B(&800):
  1132. &400C7,,kD%
  1133. 6:LE%=kD%!16
  1134. kD%!24
  1135. &D:LE%=2
  1136. 27:LE%=1
  1137. 17,18:
  1138. kD%!16=0
  1139. LE%=1
  1140. LE%:kD%!0=_m_ShareBan_WindowHandle%:
  1141. &400C6,,kD%:
  1142. ("Pointer"):
  1143. LE%=1
  1144. &400DD:
  1145. B(kD%):
  1146. X(R$,jR%,jA$,XA$):
  1147. cI%,zE%:zE%=
  1148. B(260):!zE%=0:$(zE%+4)=R$+
  1149. jA$=""
  1150. XA$=""
  1151. XA$="Message from "+jA$
  1152. &400DF,zE%,19,XA$
  1153. &400DF,zE%,17,XA$
  1154. B(zE%):=cI%
  1155. GB(_c_ShareBan_BannerName$)
  1156. _m_ShareBan_User$=
  1157. X(_c_ShareBan_ErrNoTemplate$,
  1158. O,""):
  1159. _U%!324<>0
  1160. z$=$(_U%!324)
  1161. L(MC%,MA$):
  1162. zB%:zB%=
  1163. 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$+
  1164. &400E7,18,zB%,0:_SHELL_SENDDATALOAD_MY_REF%=zB%!8:_SHELL_SENDDATALOAD_FILE$=MA$:
  1165. B(zB%):
  1166. b%,k%,KA%,cC%:b%=
  1167. E("iconbar",aM%,mB%,fD%,
  1168. b%>-1
  1169. FA$<>""
  1170. <k%=!mB%:k%+=b%:KA%=k%!16:cC%=KA%
  1171. (1<<31):
  1172. YA(FA$)=cC%
  1173. L(cC%,FA$)
  1174. kA$,g%,L$,H$,KH%:
  1175. KE%,BG%,_E%:L$=
  1176. O:H$=
  1177. y(L$+"Res$Path")
  1178. _U%!&64=_U%!&64
  1179. y(L$+"Data$Dir")
  1180. DkA$=
  1181. DB(L$+"Data$Dir",1):_U%!&C0=
  1182. kA$)+1):g%=_U%!&C0:$g%=kA$
  1183. _U%!&C0=
  1184. H$)+1):g%=_U%!&C0:$g%=H$
  1185. :_E%=
  1186. _U%!&64
  1187. L(L$+"Res:Messages")
  1188. e(L$+"Res:Messages",_U%!68,_U%!64)
  1189. L(L$+"Res:ShellMsgs")
  1190. e(L$+"Res:ShellMsgs",_U%!280,_U%!284)
  1191. e("EvntShellRes:ShellMsgs",_U%!280,_U%!284)
  1192. &20035,-1,4
  1193. ,,BG%:
  1194. &20035,-1,5
  1195. ,,KE%:
  1196. KE%=1
  1197. L(L$+"Res:Sprites22")
  1198. #"_U%!16=
  1199. eA(L$+"Res:Sprites22")
  1200. L(L$+"Res:Sprites")
  1201. ' _U%!16=
  1202. eA(L$+"Res:Sprites")
  1203. _U%!16=1
  1204. :KH%=
  1205. L(L$+"Res:Templates3")
  1206. s(L$+"Res:Templates3",e%):_E%=
  1207. L(L$+"Res:Templates")
  1208. s(L$+"Res:Templates",e%):_E%=
  1209. L(H$+".Messages")
  1210. e(H$+".Messages",_U%!68,_U%!64)
  1211. L(H$+".ShellMsgs")
  1212. e(H$+".ShellMsgs",_U%!280,_U%!284)
  1213. e("EvntShellRes:ShellMsgs",_U%!280,_U%!284)
  1214. &20035,-1,4
  1215. ,,BG%:
  1216. &20035,-1,5
  1217. ,,KE%:
  1218. KE%=1
  1219. L(H$+".Sprites22")
  1220. _U%!16=
  1221. eA(H$+".Sprites22")
  1222. L(H$+".Sprites")
  1223. _U%!16=
  1224. eA(H$+".Sprites")
  1225. _U%!16=1
  1226. :KH%=
  1227. L(H$+".Templates3")
  1228. s(H$+".Templates3",e%):_E%=
  1229. L(H$+".Templates")
  1230. s(H$+".Templates",e%):_E%=
  1231. 99,"Unable to find templates file.."
  1232. &45BC0:
  1233. B(_Q%):_Q%=
  1234. B(&400):
  1235. L(H$+".EvntData")
  1236. TF(H$+".EvntData")
  1237. lE:vI%=
  1238. LB%<>-1
  1239. B(LB%):LB%=-1:qE%=0
  1240. WB:LB%=
  1241. B(8):LB%!4=CG%:
  1242. cD(_%,f$):
  1243. c%,hB%:
  1244. LB%=-1
  1245. U(LB%,4)
  1246. :c%=qE%*4:LB%!c%=
  1247. B(zF%+
  1248. (f$)+1):hB%=LB%!c%:hB%!0=_%:$(hB%+zF%)=f$:qE%+=1:LB%!(qE%*4)=CG%:
  1249. t(J$,f$,dI%):
  1250. dI%<HO%
  1251. dI%=HO%
  1252. &45BC1,,J$,dI%
  1253. cD(_%,f$):=_%
  1254. M(x%,wB$,U$):
  1255. U$<>""
  1256. &45BC2,x%,wB$,U$
  1257. &45BC2,x%,wB$
  1258. :=rB%
  1259. NA(ME%,t$,TB$,UB$):
  1260. d%,g%,mA%:
  1261. GB(t$)
  1262. b("SHELLMSG03",t$)
  1263. B(&C):d%!0=
  1264. t$+1):g%=d%!0:$g%=t$:d%!4=
  1265. TB$+1):g%=d%!4:$g%=TB$:d%!8=
  1266. UB$+1):g%=d%!8:$g%=UB$:
  1267. &45BCE,ME%,d%:
  1268. &45BCC,,
  1269. iD:aL%=
  1270. t(WC$,tC$,0):bL%=
  1271. A("Info"),""):tR%=
  1272. A("Help"),"_MenuSelect_Help"):JP%=
  1273. A("Options"),"_Options_MenuSelect"):KP%=
  1274. A("Quit"),"_MenuSelect_Quit"):
  1275. NA(bL%,"progInfo","_PreOpenInfo",""):
  1276. iD:_%=aL%:
  1277. G(PC$):
  1278. _ERRNR_NONFATAL,PC$
  1279. tB(_%):
  1280. c%,f$,hB%:
  1281. LB%<>-1
  1282. ,c%=0:
  1283. LB%!c%<>CG%:hB%=LB%!c%:
  1284. hB%!0=_%
  1285. f$=$(hB%+zF%)
  1286. :c%+=4:
  1287. Z(l%,MA%,lD%):
  1288. lD%=&C
  1289. lD%=&D
  1290. b("SHELLMSG23","PROCshell_IconSetButtonType")
  1291. lD%<0
  1292. lD%>&F
  1293. b("SHELLMSG22","PROCshell_IconSetButtonType")
  1294. d(l%,MA%,lD%<<&C,&F000):
  1295. Q(iA%,mD%,
  1296. aB%,T$):
  1297. !iA%=-1
  1298. >!iA%=aB%:!mD%=
  1299. U(!mD%,
  1300. (T$)+1):$(!mD%+aB%)=T$:aB%+=
  1301. (T$)+1
  1302. mA$=$(!mD%+!iA%):
  1303. mA$<>T$
  1304. (T$)<=
  1305. (mA$)
  1306. $(!mD%+!iA%)=T$
  1307. !mD%=
  1308. U(!mD%,
  1309. (T$)+1):$(!mD%+aB%)=T$:!iA%=aB%:aB%+=
  1310. (T$)+1
  1311. oB(A$,nD%,tA%,_%,S$,g$,AF%):
  1312. b%,k%,b$:b%=
  1313. E(A$,nD%,_EVNTS_POPUPS_ANCHOR%,_EVNTS_POPUPS_REC_SIZE%,
  1314. ):k%=!_EVNTS_POPUPS_ANCHOR%:k%+=b%:$k%=A$:k%!&C=nD%:k%!20=tA%:k%!24=AF%:
  1315. !_EVNTS_POPUPS_DATA%=0
  1316. .$!_EVNTS_POPUPS_DATA%=
  1317. (b$)+1)
  1318. S$<>""
  1319. 2FiA%=k%+16:
  1320. Q(iA%,_EVNTS_POPUPS_DATA%,_EVNTS_POPUPS_DATAOFFSET%,S$)
  1321. k%!16=-1
  1322. tB(_%):
  1323. b$<>""
  1324. ;FiA%=k%+28:
  1325. Q(iA%,_EVNTS_POPUPS_DATA%,_EVNTS_POPUPS_DATAOFFSET%,b$)
  1326. g$<>""
  1327. !_EVNTS_POPUPS_DATA%=0
  1328. A$!_EVNTS_POPUPS_DATA%=
  1329. (g$)+1)
  1330. :iA%=k%+32:
  1331. Q(iA%,_EVNTS_POPUPS_DATA%,_EVNTS_POPUPS_DATAOFFSET%,g$)
  1332. k%!32=-1
  1333. bE(a%,f%,_%,dF%,eF%,uG%):
  1334. b%,k%,A$,fI%:
  1335. TA(a%)=
  1336. A("SHELLMSG30"))
  1337. R'A$=
  1338. I(a%):b$=
  1339. tB(_%):
  1340. A$="iconbar"
  1341. V    f%=-1
  1342. f%>=0
  1343. Z(a%,f%,_BUTTON_TYPE_CLICK):
  1344. oB(A$,f%,-1,_%,"","",_POPUP_TYPE_TEXT)
  1345. E(A$,f%,_EVNTS_CLICKMENU_ANCHOR%,_EVNTS_CLICKMENU_REC_SIZE%,
  1346. b%>=0
  1347. a    fI%=
  1348. E(A$,f%,_EVNTS_CLICKMENU_ANCHOR%,_EVNTS_CLICKMENU_REC_SIZE%,
  1349. ):k%=!_EVNTS_CLICKMENU_ANCHOR%:k%+=b%:$k%=A$:k%!&C=f%:
  1350. !_EVNTS_CLICKMENU_DATA%=0
  1351. m!!_EVNTS_CLICKMENU_DATA%=
  1352. :iA%=k%+16:
  1353. Q(iA%,_EVNTS_CLICKMENU_DATA%,_EVNTS_CLICKMENU_DATAOFFSET%,b$):
  1354. tLiA%=k%+20:
  1355. Q(iA%,_EVNTS_CLICKMENU_DATA%,_EVNTS_CLICKMENU_DATAOFFSET%,"")
  1356. hE(a%,f%):
  1357. d(a%,f%,0,0):
  1358. mC(a%,f%,YA$):
  1359. MH%,hI%,iI%,jI%:AA%!0=a%:AA%!4=f%:
  1360. &400CE,,AA%:
  1361. (AA%!24
  1362. (1<<1))
  1363.     hI%=
  1364. (AA%!24
  1365.     iI%=
  1366. (AA%!24
  1367. (1<<8))
  1368.     jI%=
  1369. AA%!24
  1370. $(AA%!32)="S"+YA$
  1371. $(AA%!28)=YA$:AA%!36=
  1372. (YA$)
  1373. :MH%=f%
  1374. &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$:
  1375. &400C2,,AA%
  1376. hE(a%,MH%):=MH%
  1377. vC(cA%,dB$,R$,ZB%,sC%,dF%,eF%,uG%):
  1378. x%,aA%,kI%,lI%:aA%=
  1379. B(36):
  1380. kI%20:
  1381. lI%20:!aA%=cA%:aA%!4=0:aA%!&C=96:
  1382. R$<>""
  1383. /aA%!&C=ZB%:aA%!8=-16:aA%!16=92:aA%!32=
  1384. aA%!8=0:aA%!16=70:aA%!32=&C
  1385. :aA%!20=&1700310B:aA%!24=kI%:aA%!28=lI%:$kI%=R$:$lI%=dB$:
  1386. &400C2,,aA%
  1387. bE(-2,x%,sC%,dF%,eF%,uG%):
  1388. B(aA%):=
  1389. mC(cA%,x%,dB$)
  1390. BF(oS%,f%):
  1391. mI%,nI%,_%,nA$:
  1392. oD (_%):TO%=
  1393. vC(_c_WinIBar_IconSide%,"!"+
  1394. O,"",&78,_%,0,0,0):
  1395. BF(_c_WinIBar_IconSide%,TO%):
  1396. g%:g%=_U%!&C0:=$g%
  1397. AA:=dJ%
  1398. l:=y%!28
  1399. NH%,sB%:NH%=
  1400. NH%<>-1
  1401.     sB%=
  1402. :=sB%
  1403. u(mA%):y%!28=mA%:
  1404. u(-1)
  1405. G:=y%!40
  1406. PA%,sB%:PA%=
  1407. PA%<>-1
  1408. D    sB%=
  1409. :=sB%
  1410. PA(mA%):y%!40=mA%:
  1411. PA(-1)
  1412. q%,kA%:
  1413. &406C0:q%=
  1414. G:kA%=0:
  1415. q%!kA%<>_c_Idx_Recs_ListTerminator%:kA%+=4:
  1416. &406C1
  1417. c:=y%!88
  1418. WC%,sB%:WC%=
  1419. WC%<>-1
  1420. s    sB%=
  1421. :=sB%
  1422. QA(mA%):y%!88=mA%:
  1423. h:y%!84=0:y%!88=-1:
  1424. QA(-1):
  1425. y%<>-1
  1426. h:=_EVNTS_LAST_WINDOWCLICKED%
  1427. jG(HD%,ID%):
  1428. b%:b%=
  1429. gA(HD%):dB%!b%=ID%:
  1430. fC(HD%,ID%):
  1431. WA%,bA%,I%,c%:bA%=
  1432. UA:WA%=
  1433. WA%!16<>-1
  1434. 7OA%=WA%!16:c%=0:
  1435. OA%!c%<>-1:
  1436. OA%!c%=HD%
  1437. OA%!c%=ID%
  1438. c%+=4:
  1439. :WA%+=20:
  1440. w(HD%,ID%):
  1441. ID%<>HD%
  1442. h=HD%
  1443. _EVNTS_LAST_WINDOWCLICKED%=ID%
  1444. !_Q%=HD%
  1445. !_Q%=ID%
  1446. jG(HD%,ID%):
  1447. fC(HD%,ID%)
  1448. BB%,C$):
  1449. g%,IA%,x%,EM%:IA%=
  1450. _(BB%):IA%!0=BB%:
  1451. &400CC,,IA%:
  1452. ((IA%!60)
  1453. 256)=0
  1454. Dg%=IA%+76:$g%=
  1455. C$,&B):
  1456. &400C3,,IA%:
  1457. &400C1,,IA%+4
  1458. x%<>BB%
  1459. w(BB%,x%):BB%=x%
  1460. EM%=IA%!84:$(!(IA%+76))=
  1461. C$,EM%-1):
  1462. ((IA%!32)
  1463. (1<<16))<>0
  1464. &400D1,-1,IA%!4,IA%!16,IA%!&C,IA%!16+44
  1465. g(IA%)
  1466. _WinSave_GetDefaultFileName:=_c_WinSave_DefaultFileName$
  1467. SA%<>CD%
  1468. i(SA%,
  1469. _WinSave_GetDefaultFileName)
  1470. jB(a%,f%):
  1471. fC%,BB%,i%:
  1472. &400D3,,zK%:BB%=zK%!0:fC%=zK%!4:
  1473. (fC%=f%
  1474. BB%=a%)
  1475. C(l%,MA%,RC%):
  1476. RC%<>0
  1477. RC%=1<<22
  1478. d(l%,MA%,RC%,1<<22):
  1479. RC%<>0
  1480. jB(l%,MA%)
  1481. &400D2,-1
  1482. u%<>_c_WinMWPane_NotCreated%
  1483. C(u%,_c_WinMWPane_TNrInc_Icon%,
  1484. C(u%,_c_WinMWPane_TNrDec_Icon%,
  1485. C(u%,_c_WinMWPane_DelTape_Icon%,
  1486. C(u%,_c_WinMWPane_Save_Icon%,
  1487. C(u%,_c_WinMWPane_TapeID_Icon%,
  1488. C(u%,_c_WinMWPane_NewRec_Icon%,
  1489. C(u%,_c_WinMWPane_Select_Icon%,
  1490. C(u%,_c_WinMWPane_Report_Icon%,
  1491. C(u%,_c_WinMWPane_TMake_Icon%,
  1492. C(u%,_c_WinMWPane_TMakeM_Icon%,
  1493. C(u%,_c_WinMWPane_Renum_Icon%,
  1494. C(u%,_c_WinMWPane_TLen_Icon%,
  1495. C(u%,_c_WinMWPane_TLenM_Icon%,
  1496. C(u%,_c_WinMWPane_Notes_Icon%,
  1497. C(a%,f%):
  1498. a%<-2
  1499. _U%!&64
  1500. "WimpExt_GetIcon",,,a%,f%
  1501. ,,,I$
  1502. AA%!0=a%:AA%!4=f%:
  1503. &400CE,,AA%:
  1504. (AA%!24
  1505. (1<<8))<>0
  1506. I$=$(AA%!28)
  1507. I$=$(AA%+28)
  1508. mB(a%,RP%):
  1509. A$,b%,IB%,HE%,OH%,e$:
  1510. OA%,IE%,m%,HA%,jD%:
  1511. GC%:IB%=0:OH%=0:HE%=
  1512. I(a%):b%=
  1513. E(A$,IB%,_EVNTS_PANES_ANCHOR%,_EVNTS_PANES_REC_SIZE%,
  1514. b%>=0
  1515. E(A$,IB%,_EVNTS_PANES_ANCHOR%,_EVNTS_PANES_REC_SIZE%,
  1516. )>-1:b%=EE%:m%=!_EVNTS_PANES_ANCHOR%+b%:GC%=m%!20:
  1517. GC%=RP%
  1518. JrIE%=m%!16:GC%=m%!20:HA%=!_EVNTS_PANES_DATA%:e$=$(HA%+IE%):OA%=
  1519. MA(e$):jD%=!OA%:BA%!0=jD%:
  1520. &400CB,,BA%:
  1521. OH%=0
  1522. OH%=BA%!16-BA%!8
  1523. :IB%+=1:
  1524. :=OH%
  1525. KB(a%):=
  1526. mB(a%,4)
  1527. LB(a%):=
  1528. mB(a%,2)
  1529. NB(a%):
  1530. o%:XB%!0=a%:
  1531. &400CB,,XB%:o%=XB%!32:=o%
  1532. BA(a%):
  1533. i%:i%=
  1534. NB(a%)
  1535. 1<<16)
  1536. a%=-1
  1537. a%=-2
  1538. V(a%,tI%,uI%):
  1539. QA%:QA%=
  1540. B(36):!QA%=a%:
  1541. &400CB,,QA%:QA%!20+=tI%:QA%!24+=uI%:
  1542. BA(a%)
  1543. &400C5,,QA%
  1544. &400C5,,QA%:
  1545. &400C6,,QA%
  1546. B(QA%):
  1547. W(a%,f%):
  1548. tC%,JD%,QM%:
  1549. RM%,SM%,TM%:
  1550. xI%,yI%,zI%,_I%:
  1551. AJ%,BJ%:
  1552. WM%,XM%:
  1553. CJ%,DJ%:
  1554. EJ%,FJ%:
  1555. f%>=0
  1556. B(36):JD%=
  1557. B(40):!tC%=a%:
  1558. &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%:
  1559. &400CE,,JD%:xI%=JD%!8:yI%=JD%!&C:zI%=JD%!16:_I%=JD%!20:CJ%=AJ%:FJ%=BJ%:EJ%=AJ%+XM%:DJ%=BJ%-WM%
  1560. /NE%=
  1561. KB(a%)+8:EF%=
  1562. LB(a%)+8:
  1563. yI%<(DJ%+NE%)
  1564. V(a%,0,yI%-DJ%-NE%)
  1565. _I%>(FJ%-EF%-NE%)
  1566. V(a%,0,_I%-FJ%+EF%+NE%+&C)
  1567. zI%>EJ%
  1568. V(a%,zI%-EJ%,0)
  1569. xI%<CJ%
  1570. V(a%,xI%-CJ%,0)
  1571. B(tC%):
  1572. B(JD%)
  1573. hD(BB%,fC%,FP%,HP%,yB%,kA%):
  1574. &400D2,BB%,fC%,FP%,HP%,yB%,kA%:
  1575. W(BB%,fC%):
  1576. A(BB%,fC%,T$,G):
  1577. _U%!&64
  1578. "WimpExt_SetIconString",,,BB%,fC%,T$+
  1579. C(BB%,fC%):
  1580. T$<>mB$
  1581. :AA%!0=BB%:AA%!4=fC%:
  1582. &400CE,,AA%:
  1583. (AA%!24
  1584. (1<<8))<>0
  1585. T$>AA%!36
  1586. A(UC$)
  1587. :$(AA%!28)=T$
  1588. $(AA%+28)=
  1589. T$,&B)
  1590. jB(BB%,fC%)
  1591. hD(BB%,fC%,-1,-1,-1,
  1592. (T$))
  1593. "AA%!8=0:AA%!&C=0:
  1594. &400CD,,AA%
  1595. u%<>_c_WinMWPane_NotCreated%
  1596. A(u%,_c_WinMWPane_TapeID_Icon%,"",
  1597. PH%,XA%:
  1598.         PH%=
  1599. A("filemod"),
  1600. O,""):
  1601. XA%=2
  1602.     PH%=
  1603. v:y%=
  1604. 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:
  1605. bD(OA$):
  1606. OA$<>""
  1607. qA$=OA$
  1608. dB:qF%=qF%
  1609. AC(GA$):
  1610. L("<Wimp$ScrapDir>."+GA$)
  1611. ("Wipe <Wimp$ScrapDir>."+GA$+" ~CFR~V")
  1612. zD:AG%=
  1613. :DF%=
  1614. cA%,ZA$:
  1615. &606C2:
  1616. <>_ERRNR_NONFATAL
  1617. <>_ERRNR_CLAIMMEM
  1618. 1<<31)
  1619. BB(3)
  1620. L("Resources:$.Resources.Edit.ThrowBack")
  1621. ("Set Basic$File <"+
  1622. O+"$BasicFile>"):
  1623. "Edit:ThrowBack"
  1624. BB("Unexpected error:- "+
  1625. $+" (Internal error code "+
  1626. +")")
  1627. $:cA%=
  1628. $,"in "+
  1629. 34+"EvntShell:ShellLib"):
  1630. cA%>0
  1631. $,cA%-1)
  1632. o1ZA$+=" (Internal error code "+
  1633. +")":
  1634. BB(ZA$)
  1635. WC:=BP%
  1636. ZA:=LL%
  1637. _decode_dis_fsp(a$):
  1638. (a$)*60+
  1639. a$,2))
  1640. :=OE%
  1641. OB(a%,QH%):
  1642. AN%,FF%,CN%,FN%:FF%=
  1643. B(8):AN%=(QH%<<16)+(1<<21):FN%=(31<<16)+(1<<21):
  1644. &400D6,a%,FF%,FN%,AN%:CN%=!FF%:
  1645. B(FF%):=CN%
  1646. OB(CB%,bP%)
  1647. fD:=IJ%
  1648. DC:=JJ%
  1649. AE(DB%):IJ%=DB%:
  1650. cE(BQ%):JJ%=BQ%:
  1651. uE(GF%):KJ%=GF%:
  1652. v:=y%!24
  1653. J(CA%):
  1654. l$,o%:o%=CA%?8:
  1655. 1<<1)
  1656. l$="L"
  1657. l$="S"
  1658. F(CA%):=CA%!24
  1659. n%,lA%,pS%,gC%,h$,I%,QE%:
  1660. EG%,XC%,iB%:
  1661. HC%:QE%=
  1662. QE%>0
  1663. xEG%=
  1664. _decode_dis_fsp(
  1665. C(CB%,uC%)):XC%=
  1666. u:gC%=
  1667. l:RE%=0:
  1668. QE%-1:n%=gC%!(I%*4):h$=
  1669. J(n%):HC%=
  1670. F(n%):
  1671. h$="L"
  1672. u=SH%
  1673. HC%=HC%/2
  1674. h$="S"
  1675. u=TH%
  1676. HC%=HC%*2
  1677. HC%>=EG%
  1678. RE%+=1
  1679. :=RE%
  1680. TA(BB%,GR%,MR%,NR%,OR%,UH%):
  1681. FG%:FG%=
  1682. _(BB%):nF%!0=GR%:nF%!4=MR%:nF%!8=NR%:nF%!&C=OR%:
  1683. &400D7,BB%,nF%:
  1684. )FG%!0=BB%:
  1685. &400CC,,FG%:
  1686. &400C5,,FG%
  1687. g(FG%):
  1688. EB(a%,tI%,uI%):
  1689. QA%:QA%=
  1690. B(36):!QA%=a%:
  1691. &400CB,,QA%:QA%!20=tI%:QA%!24=uI%:
  1692. BA(a%)
  1693. &400C5,,QA%
  1694. &400C5,,QA%:
  1695. &400C6,,QA%
  1696. B(QA%):
  1697. &400D1,bD%,0,-&2710,GG%,0:
  1698. #NJ%=
  1699. ((OJ%+(HG%*NJ%))>PJ%)
  1700. TA(bD%,0,-(OJ%+(HG%*NJ%)),GG%,0,
  1701. TA(bD%,0,-PJ%,GG%,0,
  1702. EB(bD%,0,0):
  1703. QJ%,XC%,OO%,QO%:
  1704. -TQJ%=
  1705. _decode_dis_fsp(
  1706. C(CB%,uC%)):XC%=
  1707. u:OO%=
  1708. fD:QO%=
  1709. (QJ%<>OO%)
  1710. (XC%<>QO%)
  1711. AE(QJ%):
  1712. cE(XC%):
  1713. uE(1):
  1714. VB:=aI%
  1715. FB(SE%,_value%):
  1716. k%,k%,VO%,YO%,tA%:
  1717. OA%,rA$,v%,JU%,KU%:
  1718. TU%,bU%,cU%,e%,rA$:
  1719. S$,hC%,WH%,SJ%:
  1720. SE%<0
  1721. Nsk%=!_EVNTS_SLIDERS_ANCHOR%:k%+=SE%:VO%=k%!&C:YO%=k%!16:tA%=k%!20:WH%=k%!36:rA$=$k%:OA%=
  1722. MA(rA$):a%=!OA%:
  1723. a%<=0
  1724. a%=OA%!4
  1725. :WB%!0=a%:WB%!4=YO%:
  1726. &400CE,,WB%:UJ%=WB%!16:XH%=WB%!8:YH%=WB%!&C:WJ%=WB%!20:SJ%=
  1727. (YH%)-
  1728. (WJ%):TJ%=UJ%-XH%:WB%!4=VO%:
  1729. &400CE,,WB%:
  1730. &400C4,,WB%:WB%!4=a%:
  1731. _value%>&64
  1732. _value%=&64
  1733. _value%<=0
  1734. _value%=0:
  1735. TJ%>SJ%
  1736. WB%!16=WB%!8
  1737. WB%!20=WB%!&C
  1738. TJ%>SJ%
  1739. z6WB%!16=XH%+(UJ%*(_value%/&64))-(XH%*(_value%/&64))
  1740. WB%!20=YH%+(WJ%*(_value%/&64))-(YH%*(_value%/&64))
  1741. :k%!36=_value%:
  1742. &400C2,,WB%+4:
  1743. &400D1,a%,XH%,YH%,UJ%,WJ%:hC%=!_EVNTS_SLIDERS_DATA%:
  1744. hC%>0
  1745. S$=$(hC%+k%!32)
  1746. S$<>""
  1747. ("FN"+S$+"("+
  1748. _value%+")")
  1749. tA%>=0
  1750. A(a%,tA%,
  1751. (_value%),
  1752. a%,IG%,uA%,d%,e%,ZH%,vA%:
  1753. &400CF,,GH%:a%=GH%!&C:IG%=!GH%:ZH%=GH%!4:
  1754. IG%<>rI%
  1755. ZH%<>kN%
  1756. ~rI%=IG%:kN%=ZH%:d%=MP%:!d%=a%:
  1757. &400CB,,d%:uA%=IG%-d%!4:vA%=ZH%-d%!16:d%!4=gM%:
  1758. &400CE,,d%:
  1759. &400C4,,d%:d%!4=a%:
  1760. aD%>rE%
  1761. pd%!16=uA%:
  1762. &400C2,,d%+4:
  1763. &400D1,a%,d%!8,d%!&C,d%!8+aD%,d%!20:_value%=((uA%-d%!8)*&64)/aD%:
  1764. FB(jL%,_value%)
  1765. d%!20=vA%:
  1766. &400C2,,d%+4:
  1767. &400D1,a%,d%!8,d%!&C,d%!8+aD%,d%!20+rE%:_value%=((vA%-d%!&C)*&64)/rE%
  1768. EB$<>""
  1769. ("FN"+EB$+"("+
  1770. _value%+")")
  1771. :rI%=IG%
  1772. hB:=eA%
  1773. m%,ZA%,aH%,c%,p%,f%,A$,fT%:
  1774. OA%,a%,aA$,xB$,D$,hA%:
  1775. HA%,iA%:m%=!_EVNTS_ICONWATCH_ANCHOR%:ZA%=_EVNTS_ICONWATCH_REC_SIZE%:aH%=m%!4:
  1776. c%=eA%:
  1777. aH%:A$=$(m%+c%):f%=m%!(c%+&C):hA%=m%!(c%+16):HA%=!_EVNTS_ICONWATCH_DATA%:D$=$(HA%+hA%):xB$=A$( (c%-
  1778. _EVNTS_ICONWATCH_REC_SIZE%):OA%=
  1779. MA(A$):
  1780. OA%<>-1
  1781.  t%=0:
  1782. :a%=OA%!t%:
  1783. BA(a%)=
  1784. #aA$=
  1785. C(a%,f%):
  1786. D$<>""
  1787. aA$<>xB$
  1788. ("FN"+D$+"( "+
  1789. (34)+aA$+
  1790. (34)+" )"):A$( (c%-
  1791. _EVNTS_ICONWATCH_REC_SIZE%)=aA$
  1792. :t%+=4:
  1793. OA%!t%=-1
  1794. :c%+=_EVNTS_ICONWATCH_REC_SIZE%:
  1795. kC:=yG%
  1796. FB%):
  1797. &400CF,,DE%:jB%=DE%!0:FB%=DE%!4:
  1798. &400CF,,DE%:a%=DE%!&C:
  1799. SD(XL%,YL%,jB%,FB%,
  1800. jC%):iC%=jB%-XL%:jC%=FB%-YL%:qD%=
  1801. :rD%=
  1802. :tD%=
  1803. :sD%=
  1804. (iC%)>
  1805. (jC%)
  1806. jB%>XL%
  1807.     tD%=
  1808. FB%<YL%
  1809.     rD%=
  1810. iC%<>0
  1811. jC%<>0
  1812. $3WL%=qD%:GN%=rD%:EO%=sD%:oL%=tD%:iM%=iC%:KO%=jC%
  1813. jC%):qD%=WL%:rD%=GN%:sD%=EO%:tD%=oL%:iC%=iM%:jC%=KO%:
  1814. o:=kE%
  1815. yE%,a%,FB%,jB%:
  1816. qD%,rD%,sD%,tD%,iC%,jC%,EF%:
  1817. VA(jB%,FB%):
  1818. ND(a%):
  1819. SD(nK%,eK%,jB%,FB%,qD%,rD%,sD%,tD%,iC%,jC%):
  1820. iC%<>0
  1821. jC%<>0
  1822. nK%=jB%:eK%=FB%
  1823. VD(qD%,rD%,sD%,tD%,iC%,jC%):
  1824. iC%<>0
  1825. jC%<>0
  1826. jB%>(bI%-yD%)
  1827. o,jB%-(bI%-yD%),0)
  1828. jB%<(WK%+yD%)
  1829. o,jB%-(WK%+yD%),0)
  1830. :NE%=
  1831. FB%<(fK%+yD%+NE%)
  1832. o,0,FB%-(fK%+yD%+
  1833. :EF%=
  1834. FB%>(YI%-yD%-EF%)
  1835. o,0,FB%-(YI%-yD%-
  1836. oC:=zQ%
  1837. fD(_window_handle%,d%,nA%,eB%):
  1838. A$,b%,D$,m%,HA%,e%:A$=
  1839. I(_window_handle%):b%=
  1840. E(A$,-1,_EVNTS_REDRAW_ANCHOR%,_EVNTS_REDRAW_REC_SIZE%,
  1841. b%>=0
  1842. nZm%=!_EVNTS_REDRAW_ANCHOR%+b%:hA%=m%!16:HA%=!_EVNTS_REDRAW_DATA%:D$=$(HA%+hA%):
  1843. D$<>""
  1844. u/e%=
  1845. ("FN"+D$+"("+
  1846. d%+","+
  1847. nA%+","+
  1848. eB%+")")
  1849. HB(x%):
  1850. XJ%,uC$,nA%,eB%,d%:
  1851. x%<>-1
  1852. B(&64):d%!0=x%:
  1853. &400C8,,d%
  1854. XJ%:nA%=d%!4-d%!20:eB%=d%!16-d%!24:
  1855. &81681,,d%:
  1856. fD(x%,d%,nA%,eB%):
  1857. &400CA,,d%
  1858. B(d%)
  1859. H(a%):
  1860. b%,IA%,sS%,IB%,IE%,A$:
  1861. m%,e$,OA%,jD%:A$=
  1862. I(a%):
  1863. IB%=0:
  1864. E(A$,IB%,_EVNTS_PANES_ANCHOR%,_EVNTS_PANES_REC_SIZE%,
  1865. )>-1:b%=EE%:m%=!_EVNTS_PANES_ANCHOR%+b%:IE%=m%!16:HA%=!_EVNTS_PANES_DATA%:e$=$(HA%+IE%):OA%=
  1866. MA(e$):
  1867. OA%<>-1
  1868. $jD%=!OA%:BA%!0=jD%:
  1869. &400C6,,BA%
  1870. :IB%+=1:
  1871. :BA%!0=a%:
  1872. &400C6,,BA%
  1873. qD(_window_handle%):
  1874. A$,b%,D$,m%,HA%,KD%:A$=
  1875. I(_window_handle%):b%=
  1876. E(A$,-1,_EVNTS_WINDOWCLOSE_ANCHOR%,_EVNTS_WINDOWCLOSE_REC_SIZE%,
  1877. ):KD%=
  1878. b%>=0
  1879. dm%=!_EVNTS_WINDOWCLOSE_ANCHOR%+b%:hA%=m%!16:HA%=!_EVNTS_WINDOWCLOSE_DATA%:D$=$(HA%+hA%):
  1880. D$<>""
  1881. .KD%=
  1882. ("FN"+D$+"("+
  1883. (_window_handle%)+" )")
  1884. H(_window_handle%)
  1885. ("Pointer"):jN%=
  1886. :oC$=""
  1887. uD(_window_handle%):
  1888. A$,b%,m%,hA%,HA%,D$:
  1889. e%:A$=
  1890. I(_window_handle%):
  1891. A$<>""
  1892. E(A$,-1,VH%,hQ%,
  1893. b%>=0
  1894. Sm%=!VH%+b%:hA%=m%!16:HA%=!YJ%:D$=$(HA%+hA%):e%=
  1895. ("FN"+D$+"( _window_handle% )")
  1896. wD(_window_handle%):
  1897. A$,b%,m%,hA%,HA%,D$:
  1898. e%:A$=
  1899. I(_window_handle%):
  1900. A$<>""
  1901. E(A$,-1,DH%,fR%,
  1902. b%>=0
  1903. Sm%=!DH%+b%:hA%=m%!16:HA%=!DL%:D$=$(HA%+hA%):e%=
  1904. ("FN"+D$+"( _window_handle% )")
  1905. NA:=_U%!20
  1906. cA(a%):
  1907. i%,WA%,z%,I%,bA%,x%:
  1908. +bA%=
  1909. UA:WA%=
  1910. WA%!16<>-1
  1911. 2OA%=WA%!16:c%=0:
  1912. OA%!c%<>-1:x%=OA%!c%:
  1913. x%=a%
  1914. :c%+=4:
  1915. :WA%+=20:
  1916. sB(a%,f%):
  1917. o%:AA%!0=a%:AA%!4=f%:
  1918. &400CE,,AA%:o%=AA%!24:=o%
  1919. ND(a%,f%):
  1920. o%,i%,vC%,s%:
  1921. cA(a%)=
  1922. 0:vC%=(1<<&D)+(1<<&E):o%=
  1923. sB(a%,f%):i%=(o%
  1924. vC%):
  1925. i%=vC%
  1926. Y:=_EVNTS_LAST_ICONCLICKED%
  1927. JB(a%,f%):
  1928. v%,C,A,o%,cH%:v%=
  1929. B(&64+(
  1930. z(a%)*32)):!v%=a%:
  1931. &400CC,,v%:C=v%!4-v%!20:A=v%!16-v%!24:v%!4=f%:
  1932. &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%
  1933. &400D0,,v%:
  1934. B(v%):
  1935. PD:=RR%
  1936. wB(a%,f%):
  1937. o%,i%,vC%:
  1938. cA(a%)=
  1939. i0vC%=1<<&F:o%=
  1940. sB(a%,f%):i%=(o%
  1941. vC%):
  1942. i%=vC%
  1943. n(a%,
  1944. sA%):!XB%=a%:
  1945. &400CB,,XB%:fA%=XB%!4:qA%=XB%!8:rA%=XB%!&C:sA%=XB%!16:
  1946. _D(a%,f%):
  1947. hA%,HA%,A$,b%:A$=
  1948. I(a%):b%=
  1949. E(A$,f%,_EVNTS_DRAG_ANCHOR%,_EVNTS_DRAG_REC_SIZE%,
  1950. b%>=0
  1951. JB(a%,f%):kE%=a%:sE%=f%
  1952. wB(a%,f%)
  1953. JB(a%,f%):kE%=a%:sE%=f%:yG%=
  1954. n(a%,WK%,fK%,bI%,YI%):
  1955. VA(nK%,eK%)
  1956. XD:=DF%
  1957. LB(a%,f%):
  1958. A$,k%,eL%,tA%:
  1959. JC%,S$,hC%,WH%,b%:A$=
  1960. I(a%):k%=!_EVNTS_SLIDERS_ANCHOR%:b%=
  1961. E(A$,f%,_EVNTS_SLIDERS_ANCHOR%,_EVNTS_SLIDERS_REC_SIZE%,
  1962. b%=-1
  1963. Hf%+=1:b%=
  1964. E(A$,f%,_EVNTS_SLIDERS_ANCHOR%,_EVNTS_SLIDERS_REC_SIZE%,
  1965. :jL%=b%:
  1966. b%>-1
  1967. YJC%=k%+b%:eL%=!(JC%+16):tA%=!(JC%+20):WH%=!(JC%+36):hC%=!_EVNTS_SLIDERS_DATA%:
  1968. hC%>0
  1969. S$=$(hC%+JC%!32)
  1970. :UA%!0=a%:UA%!4=eL%:
  1971. &400CE,,UA%:aD%=UA%!16-UA%!8:rE%=UA%!20-UA%!&C:gM%=f%:hT%=tA%:EB$=S$:_Q%=WH%:UA%!0=a%:
  1972. &400CB,,UA%:uA%=UA%!4-UA%!20:vA%=UA%!16-UA%!24:UA%!4=f%:
  1973. &400CE,,UA%:UA%!4=7:UA%!8+=uA%:UA%!&C+=vA%:UA%!16+=uA%:UA%!20+=vA%:UA%!24=UA%!8
  1974. UA%!28=UA%!&C:
  1975. aD%>rE%
  1976. #UA%!32=UA%!24+aD%:UA%!36=UA%!20
  1977. UA%!32=UA%!24+aD%:UA%!36=UA%!28+rE%
  1978. &400D0,,UA%:aI%=
  1979. WA(a%,f%):
  1980. A$,b%,m%,hA%,HA%,D$,e%:
  1981. fS%,v%,C,A,gL%,o%,cH%,hL%,JG%,sA$:v%=
  1982. B(&64+(
  1983. z(a%)*32)):!v%=a%:
  1984. &400CC,,v%:C=v%!4-v%!20:A=v%!16-v%!24:gL%=v%!68:v%!4=f%:
  1985. &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
  1986. jv%!20=v%!20+A:v%!24=tN%:v%!28=OM%:v%!32=GO%:v%!36=HM%:
  1987. 6,&A1,28
  1988. ,,JG%:hL%=((JG%
  1989. 2)=2):AG%=
  1990. JG%=o%:
  1991. oB(cH%,"s")
  1992. A(zC$))
  1993. sA$<>""
  1994. &42400,HR%,gL%,sA$,v%+8:AG%=
  1995. &400D0,,v%
  1996. &400D0,,v%
  1997. B(v%):
  1998. LB(a%,f%):
  1999. RE(a%,f%):
  2000. hA%,HA%:DF%=
  2001. :yB$=
  2002. I(a%):oK%=
  2003. E(yB$,f%,JI%,vR%,
  2004. oK%>=0
  2005. )lxF%=!JI%+oK%:wG%=xF%!16:wL%=xF%!20:pD%=xF%!24:HA%=!KK%:hA%=xF%!28:KB$=$(HA%+hA%):CB$=
  2006. C(a%,wL%):
  2007. CB$=""
  2008. A(jC$))
  2009. :DF%=
  2010. WA(a%,f%)
  2011. eD(a%):
  2012. b%,f%,m%,hA%,HA%:
  2013. KC%,jB%,FB%,A$,ZJ%:
  2014. aJ%:aJ%=
  2015. :f%=-1:A$=
  2016. I(a%):b%=
  2017. E(A$,f%,_EVNTS_DRAG_ANCHOR%,_EVNTS_DRAG_REC_SIZE%,
  2018. b%>=0
  2019. m%=!_EVNTS_DRAG_ANCHOR%+b%:hA%=m%!16:HA%=!_EVNTS_DRAG_DATA%:yC$=$(HA%+hA%):OD$=A$:uR%=a%:KC%=
  2020. B(40):KC%!0=a%:KC%!4=6:
  2021. VA(jB%,FB%):KC%!8=jB%:KC%!&C=FB%:KC%!16=jB%:KC%!20=FB%:
  2022. n(a%,kL%,BS%,AP%,lL%):KC%!24=kL%:KC%!28=BS%:KC%!32=AP%:KC%!36=lL%
  2023. &400D0,,KC%:jJ%=
  2024. B(KC%):aJ%=
  2025. :=aJ%
  2026. SE(a%,f%,BT%,GP%):
  2027. dH%,i%:dH%=
  2028. Y):dH%=
  2029. GP%=_MSE_ADJUSTBUT
  2030. z    mL%=
  2031. :dH%=
  2032. eD(a%)
  2033. pA(f$):
  2034. c%,_%,hB%:
  2035. LB%<>-1
  2036. 1c%=0:
  2037. LB%!c%<>CG%:hB%=LB%!c%:
  2038. $(hB%+zF%)=f$
  2039. _%=!hB%
  2040. :c%+=4:
  2041. AC:=PP%
  2042. XA(uA%,vA%,_%):
  2043. &400D4,,_%,uA%-64,vA%
  2044. _Q%!0=uA%:_Q%!4=vA%:
  2045. &65BC5,_%,_Q%
  2046. _Q%!0=uA%:_Q%!4=vA%:
  2047. &65BC5,_%,_Q%
  2048. :BF%=_%:hR%=uA%:SS%=vA%:_U%!52=_U%!28:_U%!56=_U%!32:
  2049. pC:=pI%
  2050. MB(_Q%,sC%,l%,MA%,WP%):
  2051. gA%,jA%:
  2052. XA(_Q%!0,_Q%!4,sC%)
  2053. B(50):jA%=
  2054. B(36):gA%!0=l%:gA%!4=MA%:
  2055. &400CE,,gA%:jA%!0=l%:
  2056. &400CB,,jA%:
  2057. XA(jA%!4+gA%!16+64,_Q%!4,sC%):
  2058. jA%!4+gA%!16+64,_Q%!4
  2059. B(gA%):
  2060. B(jA%)
  2061. TD(x%):=-1
  2062. fE(x%):
  2063. WA%,bA%,I%,c%:bA%=
  2064. UA:WA%=
  2065. WA%!16<>-1
  2066. ,OA%=WA%!16:c%=0:
  2067. OA%!c%<>-1:
  2068. OA%!c%=x%
  2069. OA%!c%=0
  2070. :c%+=4:
  2071. :WA%+=20:
  2072. kE(a%):
  2073. b%,t%,z%:z%=
  2074. :t%=0:
  2075. dB%>0
  2076. dB%!t%=a%
  2077. :dB%!t%=0
  2078. :t%+=4:
  2079. dB%!t%<>-1
  2080. dA(x%):
  2081. IA%:IA%=
  2082. B(20):
  2083. TD(x%)
  2084. fE(x%):
  2085. x%=_U%!20
  2086. _U%!20=0
  2087. kE(x%)
  2088. :IA%!0=x%:
  2089. &600C3,,IA%:x%=0
  2090. B(IA%):=x%
  2091. YA(K$,
  2092. GE%:GE%=
  2093. sA(K$):GE%!64=_U%!16:
  2094. &400C1,,GE%
  2095. kC(K$,a%):
  2096. NB(IC$,RB$,SB$):
  2097. EA%,UC%,VC%,bJ%:bJ%=
  2098. bJ%<>0
  2099. &400D4,,-1:e%=
  2100. dA(bJ%)
  2101. YA(IC$,EA%):XB%!0=EA%:
  2102. &400CB,,XB%:UC%=(XB%!4-XB%!&C)/2:VC%=(XB%!16-XB%!8)/2:_U%!20=EA%:
  2103. RB$<>""
  2104. ("FN"+RB$+"("+
  2105. EA%+")")
  2106. LA(EA%,UC%,VC%):
  2107. SB$<>""
  2108. ("FN"+SB$+"("+
  2109. EA%+")")
  2110. yE(a%,f%,nL%):
  2111. TE%,EC%,pL%,qL%,rL%,sL%:
  2112. tL%:TE%=
  2113. B(40):TE%!0=a%:TE%!4=f%:
  2114. &400CE,,TE%:pL%=TE%!16:qL%=TE%!20:EC%=
  2115. B(40):EC%!0=a%:
  2116. &400CB,,EC%:rL%=EC%!4:sL%=EC%!16:EC%!0=nL%:
  2117. &400CB,,EC%:tL%=EC%!16-EC%!8:
  2118. MA(nL%,rL%+pL%,sL%+qL%-(tL%/2)):
  2119. B(TE%)
  2120. B(EC%):
  2121. EF(a%,tA%,nD%,S$):_m_DatePick_WindowHandle%=a%:_m_DatePick_DisplayIcon%=tA%:_m_DatePick_NotifyFN$=S$:
  2122. NB(_c_DatePick_TemplateName$,"_DatePicker_PreOpen",""):
  2123. yE(a%,nD%,
  2124. OB(_window_handle%,_icon_handle%):
  2125. A$,b%,HA%,aB%,m%,eH%,_%:
  2126. gU%,S$,g$,e%,b$:A$=
  2127. I(_window_handle%):b%=
  2128. E(A$,_icon_handle%,_EVNTS_POPUPS_ANCHOR%,_EVNTS_POPUPS_REC_SIZE%,
  2129. b%>=0
  2130. pxm%=!_EVNTS_POPUPS_ANCHOR%+b%:aB%=m%!16:HA%=!_EVNTS_POPUPS_DATA%:nD%=m%!&C:tA%=m%!20:eH%=m%!24:
  2131. eH%=_POPUP_TYPE_TEXT
  2132. aB%=m%!28:
  2133. aB%>=0
  2134. b$=$(HA%+aB%)
  2135. pA(b$)
  2136. b$="":_%=0
  2137. aB%>=0
  2138. S$=$(HA%+aB%)
  2139. :aB%=m%!32:
  2140. aB%>=0
  2141. ,g$=$(HA%+aB%):
  2142. eH%=_POPUP_TYPE_FONTMENU
  2143. ("FN"+g$+"("+
  2144. bC)+")")
  2145. ("FN"+g$+"("+
  2146. (_%)+")")
  2147. _POPUP_TYPE_TEXT:
  2148. MB(_Q%,_%,_window_handle%,_icon_handle%,
  2149. _POPUP_TYPE_WIMPCOLOUR:
  2150. _G%=-1
  2151. &45BCF,,"",S$
  2152. MB(_Q%,_G%,_window_handle%,_icon_handle%,
  2153. _POPUP_TYPE_COLOUR24:
  2154. jH(_window_handle%,tA%,nD%,S$,g$)
  2155. _POPUP_TYPE_FONTMENU:
  2156. lH(_Q%,_window_handle%,_icon_handle%,
  2157. _POPUP_TYPE_FONTPICK:
  2158. oH(_window_handle%,tA%,nD%,S$,g$)
  2159. _POPUP_TYPE_DATEPICK:
  2160. EF(_window_handle%,tA%,nD%,S$)
  2161. 99,"Unknown popup type detected!"
  2162. EC:=_EVNTS_LAST_MOUSEBUTTON%
  2163. PB(_window_handle%,_icon_handle%):
  2164. A$,b%,m%,fH%:
  2165. kC%,IF%,wC%,xC%,UE%,eJ%,fJ%:
  2166. JF%,hJ%,_new_val$,_new_val%,iA%,tA$,uA$:
  2167. vA$:A$=
  2168. I(_window_handle%):b%=
  2169. E(A$,_icon_handle%,_EVNTS_BUMP_ANCHOR%,_EVNTS_BUMP_REC_SIZE%,
  2170. ):UE%=
  2171. b%>=0
  2172. 8m%=!_EVNTS_BUMP_ANCHOR%+b%:
  2173. m%!40
  2174. (1<<2)
  2175. m%!40
  2176. (1<<0)
  2177. m%-=_EVNTS_BUMP_REC_SIZE%
  2178. IkC%=m%!16:IF%=m%!20:wC%=m%!24:xC%=m%!28:eJ%=
  2179. (-1):fJ%=
  2180. (-2):
  2181. kC%=kC%*gP%
  2182. kC%=kC%*JR%
  2183. kC%=kC%*ER%
  2184. :hC%=!_EVNTS_BUMP_DATA%:
  2185. hC%>0
  2186. m%!32>=0
  2187. tA$=$(hC%+m%!32)
  2188. m%!36>=0
  2189. uA$=$(hC%+m%!36)
  2190. :vA$=
  2191. C(_window_handle%,IF%):
  2192. uA$<>""
  2193. )JF%=
  2194. ("FN"+uA$+"( "+
  2195. 34+vA$+
  2196. 34+" )")
  2197. (vA$)
  2198. UE%=_MSE_ADJUSTBUT
  2199. _new_val%=JF%+kC%
  2200. _new_val%=JF%-kC%
  2201. UE%=_MSE_ADJUSTBUT
  2202. _new_val%=JF%-kC%
  2203. _new_val%=JF%+kC%
  2204. _new_val%>xC%
  2205. _new_val%=xC%
  2206. _new_val%<wC%
  2207. _new_val%=wC%
  2208. _new_val%>xC%
  2209. _new_val%=wC%
  2210. _new_val%<wC%
  2211. _new_val%=xC%
  2212. tA$<>""
  2213. 0_new_val$=
  2214. ("FN"+tA$+"(_new_val%,"+
  2215. UE%+")")
  2216. _new_val$=
  2217. _new_val%
  2218. A(_window_handle%,IF%,_new_val$,
  2219. QF(_window_handle%,_icon_handle%):
  2220. A$,b%,D$,m%,HA%,i%,HA$:A$=
  2221. I(_window_handle%):
  2222. A$="iconbar"
  2223. _icon_handle%=-1
  2224. E(A$,_icon_handle%,_EVNTS_CLICKSELECT_ANCHOR%,_EVNTS_CLICKSELECT_REC_SIZE%,
  2225. E(A$,-1,_EVNTS_CLICKSELECT_ANCHOR%,_EVNTS_CLICKSELECT_REC_SIZE%,
  2226. b%>=0
  2227. m%=!_EVNTS_CLICKSELECT_ANCHOR%+b%:hA%=m%!16:HA%=!_EVNTS_CLICKSELECT_DATA%:D$=$(HA%+hA%):e%=
  2228. ("FN"+D$+"( _window_handle%, _icon_handle% )"):
  2229. _icon_handle%=0
  2230. _window_handle%=_U%!20
  2231. H(_window_handle%)
  2232. _icon_handle%>=0
  2233. A$<>"iconbar"
  2234. OB(_window_handle%,_icon_handle%):
  2235. PB(_window_handle%,_icon_handle%)
  2236. UF(_window_handle%,_icon_handle%):
  2237. A$,b%,m%,xL%,x$,iJ%,e%:
  2238. KF%:A$=
  2239. I(_window_handle%):
  2240. A$="iconbar"
  2241. _icon_handle%=-1
  2242. E(A$,_icon_handle%,_EVNTS_CLICKMENU_ANCHOR%,_EVNTS_CLICKMENU_REC_SIZE%,
  2243. E(A$,-1,_EVNTS_CLICKMENU_ANCHOR%,_EVNTS_CLICKMENU_REC_SIZE%,
  2244. b%>=0
  2245. m%=!_EVNTS_CLICKMENU_ANCHOR%+b%:KF%=m%!16:xL%=m%!20:iJ%=!_EVNTS_CLICKMENU_DATA%:_%=
  2246. pA($(iJ%+KF%)):x$=$(iJ%+xL%):_EVNTS_LAST_MENUMAKER_FN$=x$:
  2247. x$<>""
  2248. Y@e%=
  2249. ("FN"+x$+"( "+
  2250. _window_handle%+", "+
  2251. _icon_handle%+" )")
  2252. XA(_Q%!0,_Q%!4,_%)
  2253. _window_handle%>0
  2254. OB(_window_handle%,_icon_handle%)
  2255. WF(_window_handle%,_icon_handle%):
  2256. A$,b%,D$,m%,HA%:A$=
  2257. I(_window_handle%):
  2258. A$="iconbar"
  2259. _icon_handle%=-1
  2260. E(A$,_icon_handle%,_EVNTS_CLICKADJUST_ANCHOR%,_EVNTS_CLICKADJUST_REC_SIZE%,
  2261. E(A$,-1,_EVNTS_CLICKADJUST_ANCHOR%,_EVNTS_CLICKADJUST_REC_SIZE%,
  2262. b%>=0
  2263. m%=!_EVNTS_CLICKADJUST_ANCHOR%+b%:hA%=m%!16:HA%=!_EVNTS_CLICKADJUST_DATA%:D$=$(HA%+hA%):e%=
  2264. ("FN"+D$+"(_window_handle%,_icon_handle%)")
  2265. _window_handle%>0
  2266. PB(_window_handle%,_icon_handle%)
  2267. kB%,A$,b%,m%,hA%,HA%:
  2268. e%,D$,xA$,WB$,NG%,kJ%:A$=
  2269. I(kE%):b%=
  2270. E(A$,sE%,_EVNTS_DRAG_ANCHOR%,_EVNTS_DRAG_REC_SIZE%,
  2271. ):kB%=
  2272. B(30):
  2273. &400CF,,kB%:yL%=kB%!0:sM%=kB%!4:oD%=kB%!&C:JE%=kB%!16:
  2274. B(kB%):
  2275. b%>=0
  2276. m%=!_EVNTS_DRAG_ANCHOR%+b%:hA%=m%!16:HA%=!_EVNTS_DRAG_DATA%:D$=$(HA%+hA%):e%=
  2277. ("FN"+D$+"("+
  2278. NQ%+","+
  2279. oD%+","+
  2280. JE%+","+
  2281. yL%+","+
  2282. sM%+")")
  2283. !yG%=
  2284. wB(oD%,JE%)
  2285. cA(oD%)
  2286. +xA$=
  2287. C(kE%,sE%):WB$=
  2288. C(oD%,JE%):
  2289. A(kE%,sE%,"",
  2290. (oD%<>kE%)
  2291.     NG%=
  2292. (JE%<>sE%)
  2293.     kJ%=
  2294. (NG%=
  2295. (NG%=
  2296. A(oD%,JE%,WB$+xA$,
  2297. A(oD%,JE%,xA$,
  2298. kB%,lB%,lJ%:
  2299. &42401:AG%=
  2300. :DF%=
  2301. :kB%=
  2302. B(30):
  2303. &400CF,,kB%:oR%=kB%!4:UG%=kB%!&C:lF%=kB%!16:tJ%=kB%!0:rR%=kB%!4:
  2304. pD%>&8000
  2305. vA(pD%)-4
  2306. lJ%=pD%
  2307. :lB%=
  2308. 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)=
  2309. yA(CB$):
  2310. &400E7,18,lB%,UG%,lF%:LH%=lB%!8:
  2311. B(kB%):
  2312. B(lB%)
  2313. dF:aI%=
  2314. PC:=jJ%
  2315. eF(hH%,iH%,mJ%,nJ%):
  2316. oJ%,pJ%,FM%,GM%:
  2317. e%:jJ%=
  2318. mJ%<hH%
  2319. mJ%,hH%
  2320. nJ%<iH%
  2321. nJ%,iH%
  2322. :oJ%=hH%-kL%:pJ%=iH%-lL%:FM%=oJ%+(mJ%-hH%):GM%=pJ%+(nJ%-iH%):e%=
  2323. ("FN"+yC$+"("+
  2324. (uR%)+","+
  2325. (oJ%)+","+
  2326. (pJ%)+","+
  2327. (FM%)+","+
  2328. (GM%)+","+
  2329. (mL%)+")"):
  2330. gF(l%,MA%,QC%):
  2331. 6,&F,1:_Q%!8=QC%:_Q%!&C=l%:_Q%!16=MA%:
  2332. IB(6):
  2333. SC(l%,MA%,MB%):
  2334. xB%,uD%,vD%,t%:
  2335. jH%,kH%,OB%,rJ%:rJ%=
  2336. :xB%=
  2337. z(l%):OB%=
  2338. B((xB%+1)*4):
  2339. &400D3,,OB%:
  2340. !OB%=-1
  2341. B(OB%):rJ%=
  2342. &400D6,l%,OB%,&40E000,&E000:uD%=!OB%:t%=0:
  2343. OB%!t%=MA%
  2344. )!jH%=OB%!(t%-4):kH%=OB%!(t%+4)
  2345. :t%+=4:
  2346. OB%!t%=-1:vD%=OB%!(t%-4):
  2347. gF(l%,0,4)
  2348. 398,394:
  2349. MA%=vD%
  2350. &400D2,l%,uD%,-1,-1,-1,
  2351. C(l%,uD%)):
  2352. W(l%,uD%)
  2353. &400D2,l%,kH%,-1,-1,-1,
  2354. C(l%,kH%)):
  2355. W(l%,kH%)
  2356. 399,410:
  2357. MA%=uD%
  2358. &400D2,l%,vD%,-1,-1,-1,
  2359. C(l%,vD%)):
  2360. W(l%,vD%)
  2361. &400D2,l%,jH%,-1,-1,-1,
  2362. C(l%,jH%)):
  2363. W(l%,jH%)
  2364. &400D2,l%,uD%,-1,-1,-1,
  2365. C(l%,uD%)):
  2366. W(l%,uD%)
  2367. &400D2,l%,vD%,-1,-1,-1,
  2368. C(l%,vD%)):
  2369. W(l%,vD%)
  2370. B(OB%)
  2371. TC(MB%):
  2372. YB%,HB%,z%,c%,EA%,bA$,n$,o$:
  2373. eF%,dF%,uG%,UC%,VC%,AF%,lS%,b%:
  2374. i%,IA%:YB%=_U%!60:HB%=_U%!&B4*24:z%=
  2375. :c%=0:
  2376. YB%!c%=MB%
  2377. c%+=24
  2378. c%>=HB%:
  2379. ^-g%=YB%+c%:bA$=$(g%!8):
  2380. (bA$<>""
  2381. g%!&C=0)
  2382. YA(bA$,EA%):IA%=
  2383. B(36):IA%!0=EA%:
  2384. &400CB,,IA%:UC%=(IA%!4-IA%!&C)/2:VC%=(IA%!16-IA%!8)/2:
  2385. B(IA%)
  2386. :n$=$(g%!16):
  2387. n$<>""
  2388. g%!&C>0
  2389. o e%=
  2390. ("FN"+n$+"("+
  2391. g%!&C+")")
  2392. ("FN"+n$+"("+
  2393. EA%+")")
  2394. TA(g%!&C)
  2395. P(g%!&C)
  2396. g%!&C>0
  2397. A("SHELLMSG09")
  2398. LA(EA%,UC%,VC%)
  2399. :o$=$(g%!20):
  2400. o$<>""
  2401. g%!&C>0
  2402. ("FN"+o$+"("+
  2403. g%!&C+")")
  2404. ("FN"+o$+"("+
  2405. EA%+")")
  2406. bA$="":n$="":o$="":i%=
  2407. UE%):
  2408. &400CF,,DE%:UE%=DE%!8:
  2409. ZC(_%,sJ%):
  2410. OG%,c%,R$:OG%=
  2411. B(8):OG%!0=sJ%:OG%!4=-1:
  2412. &45BC4,_%,OG%
  2413. ,,c%:R$=$(c%!&C):
  2414. B(OG%):=R$
  2415. a(a%,f%,PG%):
  2416. PG%<FR%
  2417. PG%>EQ%
  2418. b(QC$,"PROCshell_IconSetBGColour")
  2419. d(a%,f%,PG%<<28,&F0000000):
  2420. kF(VE%):
  2421. A$,b%,m%,Z$,_%,LF%:
  2422. rC%,mH%,i%,cA$:
  2423. tA%,aP%,LM%,KF%:A$=
  2424. CA):b%=
  2425. E(A$,
  2426. qA,_EVNTS_POPUPS_ANCHOR%,_EVNTS_POPUPS_REC_SIZE%,
  2427. b%>=0
  2428. A$<>"iconbar"
  2429. }m%=!_EVNTS_POPUPS_ANCHOR%+b%:LF%=m%!24:rC%=!_EVNTS_POPUPS_DATA%:mH%=m%!16:tA%=m%!20:
  2430. VE%!4<>-1
  2431. LF%<>_POPUP_TYPE_FONTMENU
  2432. 99,"Unable to handle popup with submenus!"
  2433. LF%=_POPUP_TYPE_TEXT
  2434. KF%=m%!28:
  2435. KF%>=0
  2436. b$=$(rC%+KF%)
  2437. pA(b$)
  2438. LF%=_POPUP_TYPE_FONTMENU
  2439. mD(VE%)
  2440. ZC(_%,!VE%)
  2441. :i%=0:
  2442. mH%>-1
  2443. cA$=$(rC%+mH%):
  2444. Z$<>""
  2445. ("FN"+cA$+"("+
  2446. CA)+","+
  2447. tA%+","+
  2448. (34)+Z$+
  2449. (34)+")")
  2450. i%<>0
  2451. mH%=-1
  2452. tA%>=0
  2453. _POPUP_TYPE_TEXT:
  2454. CA,tA%,Z$,
  2455. _POPUP_TYPE_WIMPCOLOUR:
  2456. CA,tA%,!VE%)
  2457. _POPUP_TYPE_FONTMENU:
  2458. Z$<>""
  2459. CA,tA%,Z$,
  2460. 99,"Unknown Popup type in PROCshell_EvntHandle_PopupSelect (type was "+
  2461. LF%+")"
  2462. pF(EA%,cP%):
  2463. ("FN"+$EA%+"("+
  2464. cP%+")")
  2465. &65BC5,BF%:
  2466. wF(VE%):
  2467. uJ%,o%:
  2468. hF (_EVNTS_LAST_MOUSEBUTTON%):
  2469. qA>=0
  2470. kF(VE%)
  2471. &65BC4,BF%,VE%
  2472. uJ%,,AH%;o%:
  2473. o%<>1
  2474. pF(uJ%,AH%)
  2475. S=_MSE_ADJUSTBUT
  2476. _EVNTS_LAST_MENUMAKER_FN$<>""
  2477. ("FN"+_EVNTS_LAST_MENUMAKER_FN$+"( _U%!52, _U%!56 )")
  2478. _U%!&64
  2479. xF(_Q%):
  2480. g%,b%,d%,p%:
  2481. _Q%!4<>_U%!&94
  2482. 4-b%=
  2483. kD(_Q%!20,_Q%!24,_U%+96,16,
  2484. b%>-1
  2485. 6%d%=_U%!96+b%:
  2486. lD(_Q%!40,d%!8,
  2487. <`_Q%!0=256:_Q%!&C=_Q%!8:_Q%!36=-1:_Q%!16=2:$(_Q%+44)=
  2488. W+".ScrapFile"+
  2489. &400E7,18,_Q%,_Q%!4
  2490. B(_U%!&9C):_U%!&9C=
  2491. B((_Q%!0)+8):g%=_U%!&9C:
  2492. _Q%!0
  2493. 4:g%!p%=_Q%!p%:
  2494. p%:_EVNTS_LAST_WINDOWCLICKED%=_Q%!20:_EVNTS_LAST_ICONCLICKED%=_Q%!24:_U%!&80=0:_U%!&84=_Q%!36:_U%!&98=
  2495. B(_Q%!36):_Q%!0=28:_Q%!&C=_Q%!8:_Q%!16=6:_Q%!20=_U%!&98+_U%!&80
  2496. W6_Q%!24=_U%!&84:
  2497. &400E7,18,_Q%,_Q%!4:_U%!&70=_Q%!8
  2498. p(MM%):
  2499. YB$,nH%:
  2500. ((MM%?nH%)>31
  2501. nH%<&FF):YB$+=
  2502. (MM%?nH%):nH%+=1:
  2503. :=YB$
  2504. &400D4,,-1:
  2505. GG(aA%):
  2506. NM%,e%:NM%=aA%!&C:
  2507. NM%=LH%
  2508. p(aA%+44):
  2509. KB$<>""
  2510. ("FN"+KB$+"( "+
  2511. 34+s$+
  2512. 34+" )")
  2513. q(pD%)
  2514. 8,&A,s$,wG%,,pD%,pD%+
  2515. vA(pD%)+1
  2516. A(xC$)
  2517. :aA%!16=3:aA%!0=256:aA%!20=UG%:aA%!24=lF%:aA%!40=wG%:aA%!36=
  2518. FA(s$):aA%!&C=aA%!8:$(aA%+44)=s$+
  2519. &400E7,18,aA%,UG%,lF%:LH%=aA%!8:
  2520. _U%!80<>0
  2521. B(_U%!80)
  2522. +_U%!80=
  2523. s$+1):$(_U%!80)=s$:
  2524. OA(zA$):
  2525. cA%,_A$,g%:
  2526. zA$,".")=0
  2527. _A$=""
  2528. g%=0:
  2529. :cA%=g%+1:g%=
  2530. zA$,".",cA%):
  2531. g%=0:_A$=
  2532. zA$,cA%-2)
  2533. :=_A$
  2534. gC(oH%):
  2535. i%,bB$,cB$:
  2536. DB("Alias$@RunType_"+
  2537. ~XE%,1):cB$=
  2538. OA(bB$):
  2539. yA(cB$)="!"+
  2540. hC(pH%):=((pH%
  2541. 1)=1)
  2542. lC(CT%):
  2543. AB$,vJ%,pH%,MD%:AB$=
  2544. p(_Q%+44):vJ%=
  2545. FA(AB$):
  2546. vJ%<0
  2547. A("SHELLMSG16"))
  2548. 5MD%=
  2549. B(vJ%):
  2550. &20008,16,AB$,MD%,0
  2551. ;pH%:
  2552. hC(pH%)
  2553. B(MD%)
  2554. :=MD%
  2555. JG(MD%,KA%,_file_size%,k%):
  2556. e%,xJ%,BB$,rC%:xJ%=k%!20:
  2557. xJ%>-1
  2558. %rC%=!wK%:BB$=$(rC%+xJ%):
  2559. BB$<>""
  2560. ("FN"+BB$+"("+
  2561. MD%+","+
  2562. XE%+","+
  2563. 34+FA$+
  2564. 34+","+
  2565. _file_size%+")")
  2566. QB(b%):
  2567. KA%,cC%:
  2568. b%>-1
  2569. (k%=!mB%:k%+=b%:KA%=k%!16:
  2570. 1<<31
  2571. _U%!&64=_U%!&64
  2572. :cC%=KA%
  2573. (1<<31):
  2574. cC%=XE%
  2575. KA%=-1
  2576. '@wP%=_Q%!&C:_Q%!&C=_Q%!8:_Q%!16=4:
  2577. &400E7,18,_Q%,_Q%!4:
  2578. MD%=-1:_U%!&64=_U%!&64
  2579. lC(wP%=_U%!&6C)
  2580. JG(MD%,XE%,_Q%!36,k%):
  2581. _U%!&9C<>0
  2582. B(_U%!&9C):_U%!&9C=0
  2583. b%:b%=
  2584. E("iconbar",aM%,mB%,fD%,
  2585. QB(b%):
  2586. DA(A$,f%,KA%,m%,ZA%,gB%):
  2587. HB%,c%,z%,b%,qB%,FC%:
  2588. p%,cC%:
  2589. A$="IconBar"
  2590. f%=-1:A$="iconbar"
  2591. (!m%=0
  2592. A$=""
  2593. (!m%=0)
  2594. \o!m%=
  2595. B(ZA%+eA%):qB%=!m%:qB%!0=ZA%:qB%!4=1:$(qB%+eA%)="":
  2596. p%=&C
  2597. (ZA%-4)
  2598. 4:qB%!(p%+eA%)=-1:
  2599. p%:EE%=eA%:b%=eA%
  2600. b%<>eA%
  2601. jHqB%=!m%:HB%=!qB%:c%=eA%:z%=
  2602. :b%=-1:gR%=-1:FC%=!m%:
  2603. ($(FC%+c%)=A$)
  2604. {7cC%=(FC%!(c%+16))
  2605. (1<<31):
  2606. FC%!(c%+&C)=f%
  2607. cC%=KA%
  2608. b%=c%:z%=
  2609. c%+=ZA%
  2610. c%+=ZA%
  2611. ((c%>=(HB%+eA%))
  2612. (b%=-1
  2613. kb%=HB%+eA%:!m%=
  2614. U(!m%,ZA%):dC%=!m%:dC%!0+=ZA%:dC%!4+=1:dC%+=b%:$(dC%)="":
  2615. p%=&C
  2616. (ZA%-4)
  2617. 4:dC%!p%=-1:
  2618. :EE%=b%
  2619. b%,xP%,cC%,c%:k%=!mB%:xP%=k%!0:b%=
  2620. DA(u$,EH%,-1,mB%,fD%,
  2621. b%=-1
  2622. DA(u$,EH%,-1
  2623. (1<<31),mB%,fD%,
  2624. b%=-1
  2625. DA(u$,-1,-1,mB%,fD%,
  2626. b%=-1
  2627. DA(u$,-1,-1
  2628. (1<<31),mB%,fD%,
  2629. b%=-1
  2630. DA(u$,EH%,XE%,mB%,fD%,
  2631. DA(u$,-1,XE%,mB%,fD%,
  2632. ):k%=!mB%
  2633. b%>-1
  2634. QB(b%)
  2635. RB(qH%,oH%):XE%=qH%!40:_L%=qH%!20:EH%=qH%!24:FA$=
  2636. p(qH%+44):
  2637. gC(oH%)
  2638. I(_L%):
  2639. WG(_Q%):
  2640. cG(_Q%):
  2641. cT%,yJ%,zJ%:zJ%=
  2642. _U%!&90>&8000
  2643. 4_Q%!&C=_Q%!8:_Q%!16=7:yJ%=_U%!&88:
  2644. _U%!&8C=&FF9
  2645. _U%!&90+=4
  2646. (yJ%-_U%!&80)<_Q%!24
  2647. _Q%!24=yJ%-_U%!&80:zJ%=
  2648. &400F1,_U%!&94,_U%!&90+_U%!&80,_Q%!4,_Q%!20,_Q%!24:
  2649. &400E7,17,_Q%,_Q%!4:_U%!&78=_Q%!8:_U%!&80+=_Q%!24:
  2650. _U%!&80=0
  2651. dG(_Q%):
  2652. b%,d%,eB$,g%:
  2653. _Q%!&C=_U%!&70
  2654. $_U%!&80+=_Q%!24:
  2655. _Q%!24<_U%!&84
  2656. Y,_U%+96,16,
  2657. ):d%=_U%!96+b%:g%=_U%!&9C:eB$=
  2658. p(g%+44):
  2659. mH(g%!40,_U%!&98,d%!8,eB$,_U%!&84,d%)
  2660. _U%!&80>_U%!&84
  2661. '_U%!&98=
  2662. U(_U%!&98,_U%!&80,_U%!&84)
  2663. :_Q%!&C=_Q%!8:_Q%!16=6:_Q%!20=_U%!&98+_U%!&80:_Q%!24=_U%!&84:
  2664. &400E7,18,_Q%,_Q%!4:_U%!&70=_Q%!8
  2665. B(_U%!&98):_U%!&98=0:
  2666. A("SHELLMSG15"))
  2667. eG(lB%):
  2668. e%,d%,_J%,AK%,p%:
  2669. qA$<>""
  2670. 2Vd%=
  2671. B(256):_J%=lB%!0:
  2672. 4:d%!p%=_Q%!p%:
  2673. p%:AK%=d%!4:
  2674. _J%<24
  2675. BK%=0
  2676. BK%=d%!20
  2677. =2d%!&C=d%!8:
  2678. &400E7,19,d%,AK%:
  2679. ("FN"+qA$)<>0
  2680. _closedown%=
  2681. !d%=24:d%!24=508:
  2682. &400E7,8,d%,AK%:_closedown%=
  2683. B(d%)
  2684. aB$<>""
  2685. ("FN"+aB$)
  2686. vG(h%):
  2687. zB$<>""
  2688. i"PA$=
  2689. ("FN"+zB$)+
  2690. (&A):
  2691. PA$=""
  2692. PA$="Run "+
  2693. &C,2,h%,PA$,
  2694. (PA$)
  2695. ZB$<>""
  2696. ("FN"+ZB$)
  2697. uC(b%):
  2698. m%,MF%,NF%,c$:m%=!_EVNTS_HELPTAG_ANCHOR%+b%:MF%=m%!16:NF%=!_EVNTS_HELPTAG_DATA%:c$=$(NF%+MF%):=c$
  2699. zC:=BF%
  2700. _C(_%,FF%):
  2701. c%,rB%,o%:c%=
  2702. B(40):
  2703. &65BC4,_%,FF%
  2704. ,,c%;o%:
  2705.     rB%=0
  2706. rB%=c%!8
  2707. B(c%):=rB%
  2708. BD(DK%):
  2709. c$,EK%,c%,rB%,b%:
  2710. MF%,NF%:EK%=
  2711. zC:c%=0:
  2712. DK%!c%<>-1:PQ%=DK%!c%:c%+=4:
  2713. :rB%=
  2714. _C(EK%,DK%):
  2715. rB%<>0
  2716. E("menu",rB%,_EVNTS_MENUHELPTAG_ANCHOR%,_EVNTS_MENUHELPTAG_REC_SIZE%,
  2717. b%>=0
  2718. [m%=!_EVNTS_MENUHELPTAG_ANCHOR%+b%:MF%=m%!16:NF%=!_EVNTS_MENUHELPTAG_DATA%:c$=$(NF%+MF%)
  2719. c$=""
  2720. SB(_window_handle%,_icon_handle%,
  2721. A$,b%,m%,NF%,MF%,rH%:
  2722. o%,EK%,c%,PQ%,k%:A$=
  2723. I(_window_handle%):
  2724. A$="iconbar"
  2725. _icon_handle%=-1
  2726. E(A$,_icon_handle%,_EVNTS_HELPTAG_ANCHOR%,_EVNTS_HELPTAG_REC_SIZE%,
  2727. b%>=0
  2728. uC(b%)
  2729. B(96):
  2730. &600F4,1,rH%,_window_handle%,_icon_handle%
  2731. o%<>1
  2732. _window_handle%<>
  2733. cA(_window_handle%)
  2734. BD(rH%)
  2735. B(rH%)
  2736. ID(a%,f%):
  2737. W$,o%:
  2738. f%=-1
  2739. <W$="":AA%!0=a%:AA%!4=f%:
  2740. &400CE,,AA%:o%=AA%!24:
  2741. AA%!32>0
  2742. W$=$(AA%!32)
  2743. KD(y$):
  2744. V$,DA$,kA%:V$="":
  2745. y$,"\")>0:kA%=
  2746. y$,"\"):V$+=
  2747. y$,kA%-1):DA$=
  2748. y$,kA%+1,1):y$=
  2749. y$,kA%+2):
  2750. "A":V$+="Click ADJUST to"
  2751. "a":V$+="ADJUST"
  2752. "D":V$+="Drag with SELECT to"
  2753. "d":V$+="Drag with ADJUST to"
  2754. "G":V$+="This option is greyed out because"
  2755. "R":V$+="Move the pointer right"
  2756. "S":V$+="Click SELECT to"
  2757. "s":V$+="SELECT"
  2758. "T":V$+="This is the"
  2759. "W":V$+="This window is"
  2760. "w":V$+="window"
  2761. V$+="\"+DA$
  2762. :=V$+y$
  2763. FH(_Q%):
  2764. P$,HA$,W$,ND%,FK%,MD$,o%:
  2765. SB(_Q%!32,_Q%!36,P$):W$=
  2766. ID(_Q%!32,_Q%!36):
  2767. W$<>""
  2768. W$,1))="I"
  2769. W$,";"):
  2770. ND%=0
  2771. W$,2)
  2772. W$,2,ND%-2)
  2773. g(W$),
  2774. g(";i")):FK%=
  2775. g(W$),
  2776. g(";"),ND%+1):
  2777. ND%>0
  2778. FK%>0
  2779. W$,ND%+2,FK%-ND%-2)
  2780. W$,ND%+2)
  2781. P$=""
  2782. SB(_Q%!32,-1,P$)
  2783. P$<>""
  2784. 9q_Q%!16=&503:_Q%!&C=_Q%!8:HA$=
  2785. bA(P$,"",""):HA$=
  2786. KD(HA$):$(_Q%+20)=HA$:!_Q%=(
  2787. HA$+25)
  2788. &400E7,17,_Q%,_Q%!4
  2789. LD(sC%,QG%):
  2790. t%,WE%:
  2791. &45BC7,sC%
  2792. :WE%=sC%+28+((QG%!t%)*24):sC%=WE%!4:t%+=4:
  2793. QG%!t%=-1:=WE%
  2794. HH(mA%,uA%,vA%):
  2795. g%,EA%,e%:
  2796. R*g%=mA%!4:
  2797. YA($g%!0,EA%):
  2798. $g%!4<>""
  2799. X!e%=
  2800. ("FN"+$g%!4+"("+
  2801. EA%+")")
  2802. $g%!8<>""
  2803. \!e%=
  2804. ("FN"+$g%!8+"("+
  2805. EA%+")")
  2806. &400E8,,EA%,uA%,vA%:_U%!20=EA%:
  2807. IH(rB%,
  2808. i%,YB%,g%,b%,z%,HB%,fB%,t%:
  2809. PF%:PF%=0:YB%=_U%!&DC:b%=0:z%=
  2810. :O$="":PF%=0:
  2811. q(YB%)
  2812. :t%+=4:
  2813. YB%!t%=-1:HB%=t%:t%=0:
  2814. :g%=!(YB%+b%+0):
  2815. g%<>-1
  2816. g%=rB%
  2817. tFz%=
  2818. :fB%=YB%!(b%+4):O$=$fB%:PF%=YB%!(b%+8):fB%=YB%!(b%+&C):U$=$fB%
  2819. :b%+=16
  2820. b%=HB%
  2821. b%>=HB%
  2822. O$="":U$=""
  2823. MD:=CP%
  2824. QD:=_G%
  2825. LH(GK%,uA%,vA%,O$,U$):
  2826. e%,g%,nT%,t%:_shell_FontMenuSelFN$=U$:
  2827. q(_U%!&E0)
  2828. B(_U%!&E0)
  2829. 0_U%!&E0=
  2830. O$+1):g%=_U%!&E0:$g%=O$:
  2831. O$<>""
  2832. ("FN"+O$+"(_U%!52,_U%!56)")
  2833. &400E8,,GK%,uA%,vA%:eP%=GK%:
  2834. QH(_Q%):
  2835. LM%,uA%,vA%,e%,_temp%,aF%,O$,WE%,d%:
  2836. U$:uA%=_Q%!24:vA%=_Q%!28:_U%!264=0:
  2837. _U%!20<>0
  2838. dA(_U%!20)
  2839. _Q%!20
  2840. _U%!&E4:
  2841. i(_U%!&E4,
  2842. A("warning")):
  2843. A(_U%!&E4,1,
  2844. A("SHELLMSG07"),0):
  2845. &400E8,,_U%!&E4,uA%,vA%
  2846. LD(BF%,_Q%+32):
  2847. q(WE%!4)
  2848. HH(WE%,uA%,vA%)
  2849. B(32):
  2850. &45BC4,BF%,_Q%+32
  2851. ,,d%:
  2852. IH(d%!8,O$,U$):
  2853. B(d%):
  2854. LH(_Q%!20,uA%,vA%,O$,U$)
  2855. gB$<>""
  2856. ("FN"+gB$)
  2857. eH(HK%):
  2858. e%:JM%=HK%:
  2859. LB$<>""
  2860. ("FN"+LB$+"("+
  2861. JM%+")")
  2862. RD:=IR%
  2863. ID(nQ%):_c_Fonts_CurrentDeskTopFont%=nQ%:
  2864. mC(IK%,fC$):
  2865. tB$<>""
  2866. ("FN"+tB$+"("+
  2867. IK%+","+
  2868. (34)+fC$+
  2869. (34)+")")
  2870. y(JK%,dA$):
  2871. ZM%:ZM%=(
  2872. (dA$)+30)
  2873. 3:_MESSAGES_WORK_BLK%!&C=0:_MESSAGES_WORK_BLK%!16=JK%:$(_MESSAGES_WORK_BLK%+20)=dA$+
  2874. (0):_MESSAGES_WORK_BLK%!0=ZM%:
  2875. &600E7,17,_MESSAGES_WORK_BLK%,0:
  2876. UB(dA$):
  2877. y(&43B00,dA$):
  2878. pC(DB$):
  2879. jS%,g%:
  2880. _U%!&D0=-1
  2881. y("StrongHelp$Dir")
  2882. &600DE,"<StrongHelp$Dir>":
  2883. _U%!&D8<>0
  2884. B(_U%!&D8)
  2885. ")_U%!&D8=
  2886. DB$+1):g%=_U%!&D8:$g%=DB$
  2887. A("SHELLMSG11"))
  2888. UB("Help_Word "+DB$)
  2889. qC(IK%):
  2890. pB$<>""
  2891. ("FN"+pB$+"("+
  2892. IK%+")")
  2893. OD%,sH%:OD%=
  2894. B(256):
  2895. :OD%!&C=0:
  2896. &400E7,19,OD%,-2,_U%!&D4
  2897. ,,sH%:_U%!&D4=_U%!&D4+1:
  2898. sH%<>-1
  2899. (_U%!&D4)>64:
  2900. sH%<>-1
  2901. Q@OD%!0=24:OD%!&C=0:OD%!16=&400C6:OD%!20=sH%:
  2902. &400E7,17,OD%,0
  2903. B(OD%):
  2904. sC(_Q%):
  2905. tC(_Q%):
  2906. uC(_Q%):
  2907. vC(_Q%):
  2908. wC:_U%!&64=_U%!&64
  2909. 1<<9:
  2910. y(&43B00,"ShellDBug:TraceOn"):
  2911. (_U%!&64
  2912. (1<<9))
  2913. _U%!&64=_U%!&64
  2914. (1<<9)
  2915. y(&43B00,"ShellDBug:TraceOff"):
  2916. j(GD$,QA$):
  2917. HB%,LA%,ZA%,c%,bB%,FC%:
  2918. f%,D$,PB%,p%:LA%=!_EVNTS_CLICKSELECT_ANCHOR%:ZA%=_EVNTS_CLICKSELECT_REC_SIZE%:bB%=LA%!4:
  2919. j ("ClickSelect","Window         Icon   FN"):
  2920. LA%=0
  2921. c%=eA%:
  2922. bB%:A$=$(LA%+c%):f%=LA%!(c%+&C):PB%=!_EVNTS_CLICKSELECT_DATA%:
  2923. PB%>0
  2924. D$=$(PB%+LA%!(c%+16))
  2925. :c%+=_EVNTS_CLICKSELECT_REC_SIZE%:
  2926. HB%,LA%,ZA%,c%,bB%,FC%,_%:
  2927. f%,p%,x$:LA%=!_EVNTS_CLICKMENU_ANCHOR%:ZA%=_EVNTS_CLICKMENU_REC_SIZE%:bB%=LA%!4:
  2928. j ("ClickMenu  ","Window         Icon   Menu handle  Maker FN"):
  2929. LA%=0
  2930. c%=eA%:
  2931. bB%:A$=$(LA%+c%):f%=LA%!(c%+&C):_%=LA%!(c%+16):PB%=!_EVNTS_CLICKMENU_DATA%:
  2932. PB%>0
  2933. x$=$(PB%+LA%!(c%+20))
  2934. x$="None"
  2935. :c%+=_EVNTS_CLICKMENU_REC_SIZE%:
  2936. HB%,LA%,ZA%,c%,bB%,FC%:
  2937. f%,D$,PB%,p%:LA%=!_EVNTS_CLICKADJUST_ANCHOR%:ZA%=_EVNTS_CLICKADJUST_REC_SIZE%:bB%=LA%!4:
  2938. j ("ClickAdjust","Window         Icon   FN"):
  2939. LA%=0
  2940. c%=eA%:
  2941. bB%:A$=$(LA%+c%):f%=LA%!(c%+&C):PB%=!_EVNTS_CLICKADJUST_DATA%:
  2942. PB%>0
  2943. D$=$(PB%+LA%!(c%+16))
  2944. :c%+=_EVNTS_CLICKADJUST_REC_SIZE%:
  2945. HB%,LA%,ZA%,c%,bB%,FC%,D$:
  2946. f%,PB%,p%:LA%=!_EVNTS_HELPTAG_ANCHOR%:ZA%=_EVNTS_HELPTAG_REC_SIZE%:bB%=LA%!4:
  2947. j ("HelpTag ","Window         Icon   Help tag"):
  2948. LA%=0
  2949. c%=eA%:
  2950. bB%:A$=$(LA%+c%):f%=LA%!(c%+&C):PB%=!_EVNTS_HELPTAG_DATA%:
  2951. PB%>0
  2952. D$=$(PB%+LA%!(c%+16))
  2953. :c%+=_EVNTS_HELPTAG_REC_SIZE%:
  2954. SD(E$,RA$,DB%):
  2955. (E$)<DB%:E$=E$+
  2956. (E$),RA$):
  2957. EA(E$,RA$,DB%):
  2958. (E$)<DB%:E$=
  2959. (E$),RA$)+E$:
  2960. HB%,LA%,ZA%,c%,bB%,FC%:
  2961. RG%,SG%,iB$,rC$,PB%,p%,m$:
  2962. cM%,IF%,wC%,xC%:LA%=!_EVNTS_BUMP_ANCHOR%:ZA%=_EVNTS_BUMP_REC_SIZE%:bB%=(LA%!4)/2:
  2963. j ("Bump ","Window       Inc Dec Disp Step Lower Upper Value Change FN"):
  2964. LA%=0
  2965. c%=eA%:
  2966. bB%:A$=$(LA%+c%):RG%=LA%!(c%+&C):SG%=LA%!(c%+&C+_EVNTS_BUMP_REC_SIZE%):cM%=LA%!(c%+16):IF%=LA%!(c%+20):wC%=LA%!(c%+24):xC%=LA%!(c%+28):PB%=!_EVNTS_BUMP_DATA%:
  2967. PB%>0
  2968. 1iB$=$(PB%+LA%!(c%+32)):rC$=$(PB%+LA%!(c%+36))
  2969. SD(A$,".",&C):m$+=" "+
  2970. RG%," ",3):m$+=" "+
  2971. SG%," ",3):m$+=" "+
  2972. IF%," ",4):m$+=" "+
  2973. cM%," ",4):m$+=" "+
  2974. wC%," ",5):m$+=" "+
  2975. xC%," ",5):m$+="   "+iB$:c%+=_EVNTS_BUMP_REC_SIZE%*2:
  2976. m%,c%,aH%,t%,FT%,HT%:
  2977. f%,p%,m$,ID$:m%=!mB%:aH%=m%!4:
  2978. j ("DataLoad ","Window       Icon  Filetype NL LoadFN"):
  2979. FD(_Q%):
  2980. GD(_Q%):
  2981. _Q%!16
  2982. &43B00:X$=$(_Q%+20):
  2983. X$,30)="EvntShellLib:ShellDBug started"
  2984. _U%!&64
  2985. kN_U%!&64=(_U%!&64
  2986. 1<<4):
  2987. y(&43B00,"ShellDBug:Init Debug messages from "+
  2988. X$,25)="EvntShellLib:TraceInitAck"
  2989. _U%!&64=(_U%!&64
  2990. 1<<4)
  2991. X$,20)="EvntShellLib:TraceOn"
  2992. X$,21)="EvntShellLib:TraceOff"
  2993. X$,28)="EvntShellLib:ListClickSelect"
  2994. X$,26)="EvntShellLib:ListClickMenu"
  2995. X$,28)="EvntShellLib:ListClickAdjust"
  2996. X$,25)="EvntShellLib:ListHelpTags"
  2997. X$,24)="EvntShellLib:ListBumpers"
  2998. X$,26)="EvntShellLib:ListPointerIn"
  2999. X$,27)="EvntShellLib:ListPointerOut"
  3000. X$,25)="EvntShellLib:ListDataLoad"
  3001. X$,25)="EvntShellLib:ListDataSave"
  3002. FD(_Q%):
  3003. HD(_Q%):
  3004. g%,e%,dM%:
  3005. _Q%!16
  3006. _MESSAGE_QUIT:
  3007. _MESSAGE_DATASAVE:
  3008. xF(_Q%)
  3009. _MESSAGE_DATASAVEACK:
  3010. GG(_Q%)
  3011. _MESSAGE_DATALOAD:
  3012. RB(_Q%,
  3013. _MESSAGE_DATALOADACK:
  3014. WG(_Q%)
  3015. RB(_Q%,
  3016. _MESSAGE_RAMFETCH:
  3017. cG(_Q%)
  3018. _MESSAGE_RAMTRANSMIT:
  3019. dG(_Q%)
  3020. _MESSAGE_PREQUIT:
  3021. eG(_Q%)
  3022. _MESSAGE_PALETTECHANGE:
  3023. _MESSAGE_SAVEDESKTOP:
  3024. vG(_Q%!20)
  3025. _MESSAGE_SHUTDOWN:
  3026. _MESSAGE_HELP:
  3027. FH(_Q%)
  3028. _MESSAGE_MENUWARNING:
  3029. QH(_Q%)
  3030. _MESSAGE_MODECHANGE:
  3031. _MESSAGE_COLOURPICKERCOLOURCHOICE:dM%=(_Q%!24
  3032. pH(_Q%!28,dM%)
  3033. _MESSAGE_DESKFONT_CHANGED:
  3034. eH(_Q%!20):
  3035. ID(_Q%!20)
  3036. _MESSAGE_TASKINIT:
  3037. mC(_Q%!4,
  3038. p(_Q%+28)):
  3039. _U%!&D0=-1
  3040. p(_Q%+28)="StrongHelp"
  3041. R_U%!&D0=_Q%!4:
  3042. UB("Help_Install -DieWithTask "+
  3043. W+"."+
  3044. O):g%=_U%!&D8:
  3045. $g%<>""
  3046. pC($g%):
  3047. B(_U%!&D8):_U%!&D8=0
  3048. _MESSAGE_TASKCLOSEDOWN:
  3049. qC(_Q%!4):
  3050. _Q%!4=_U%!&D0
  3051. _U%!&D0=-1
  3052. _MESSAGE_TASKNAMEIS:
  3053. p(_Q%+28)="StrongHelp"
  3054. _U%!&D0=_Q%!20
  3055. &80140:
  3056. sC(_Q%)
  3057. &80143:
  3058. tC(_Q%)
  3059. &80145:
  3060. uC(_Q%)
  3061. &80147:
  3062. vC(_Q%)
  3063. &47700,&47702:UR%=-1
  3064. GD(_Q%)
  3065. JD(_Q%):
  3066. _Q%!&C<>LH%
  3067. KD(_Q%):
  3068. eM%,g%:g%=_U%!&9C:
  3069. _Q%!&C<>_U%!&70
  3070. _U%!&80=0
  3071. &20023,"Wimp$Scrap",,-1,0,3
  3072. ,,eM%:
  3073. eM%<>0
  3074. w$(g%+44)="<Wimp$Scrap>"+
  3075. (0):g%!0=(49+
  3076. p(g%+44)))
  3077. 3:g%!&C=g%!8:g%!16=2:g%!36=-1:
  3078. &400E7,18,g%,g%!4:_U%!&6C=g%!8
  3079. A("SHELLMSG14"))
  3080. B(_U%!&98):_U%!&98=0:
  3081. G("SHELLMSG06")
  3082. LD(_Q%):
  3083. _Q%!16
  3084. JD(_Q%)
  3085. KD(_Q%)
  3086. _Q%!8=_SHELL_SENDDATALOAD_MY_REF%
  3087. ("Filer_Run "+_SHELL_SENDDATALOAD_FILE$)
  3088. ("Run "+_SHELL_SENDDATALOAD_FILE$)
  3089. IB(aR%):
  3090. uC$,sC%,PD$,ED$,LM%,AC%,aC%,LK%:
  3091. l%,MA%,e%,_temp28%,_temp32%,_temp24%,_temp%,aP%:
  3092. ST%,b%,fM%:
  3093. _EVENT_NULL:
  3094. _closedown%=
  3095. (fM%-_POLL_EARLIEST_TIME%)>0:_POLL_EARLIEST_TIME%+=_POLL_INTERVAL%:
  3096. _EVENT_REDRAWWIN:
  3097. _Q%!0<>UR%
  3098. HB(_Q%!0)
  3099. HB(_Q%!0)
  3100. _EVENT_OPENWIN:
  3101. f(_Q%!0,
  3102. _EVENT_CLOSEWIN:
  3103. qD(_Q%!0)
  3104. _EVENT_PTRLEAVING:
  3105. uD(!_Q%)
  3106. _EVENT_PTRENTERING:
  3107. wD(!_Q%)
  3108. _EVNT_MSECLICK:AC%=_Q%!0:aC%=_Q%!4:_EVNTS_LAST_MOUSEXPOS%=AC%:_EVNTS_LAST_MOUSEYPOS%=aC%:_U%!272=_Q%!0:_U%!276=_Q%!4:
  3109. _Q%!8>4
  3110. _Q%!8<256
  3111. SE(_Q%!&C,_Q%!16,_Q%!8,_EVNTS_LAST_MOUSEBUTTON%)
  3112. :_EVNTS_LAST_MOUSEBUTTON%=_Q%!8:_EVNTS_LAST_WINDOWCLICKED%=_Q%!&C:_EVNTS_LAST_ICONCLICKED%=_Q%!16:
  3113. _Q%!8
  3114. 4,&400:
  3115. 2,512:
  3116. 1,256:
  3117. 7:_U%!&80=0:
  3118. eF(_Q%!0,_Q%!4,_Q%!8,_Q%!&C)
  3119. _Q%!24
  3120. &D,394,398,399,410,430,431:LK%=
  3121. SC(_Q%!0,_Q%!4,_Q%!24)
  3122. TC(_Q%!24)
  3123. &400DC,_Q%!24
  3124. wF(_Q%)
  3125. 17,18:
  3126. HD(_Q%)
  3127. LD(_Q%)
  3128. jC(vC%,uK%):
  3129. _U%!&64
  3130. "WimpExt_PrePoll"
  3131. &400C7,qF%,_Q%
  3132. _U%!&64
  3133. "WimpExt_Action",_U%!&94,_Q%,tH%
  3134. &81686,tH%,,uK%:=tH%
  3135. iH(l%,MK%,lR%,cA$,g$):
  3136. GB(_c_DatePick_TemplateName$)
  3137. MK%>=0
  3138. Z(l%,MK%,3)
  3139. I(l%),MK%,lR%,-1,cA$,g$,_POPUP_TYPE_DATEPICK)
  3140. b("SHELLMSG37",_c_DatePick_TemplateName$)
  3141. tA(SA$):
  3142. (SA$)<>3
  3143. _m_Calendar_MonthStr$,SA$)
  3144. (i%=(
  3145. _m_Calendar_MonthStr$,SA$)+2)/3
  3146. VB(_date$):
  3147. _m_DatePick_NotifyFN$<>""
  3148. ("FN"+_m_DatePick_NotifyFN$+"(_date$)")
  3149. _m_DatePick_DisplayIcon%>=0
  3150. A(_m_DatePick_WindowHandle%,_m_DatePick_DisplayIcon%,_date$,
  3151. NA%):YC%=
  3152. $,5)):NA%=
  3153. $,&C)):dA%=(
  3154. _m_Calendar_MonthStr$,
  3155. $,8,3))+2)
  3156. _DatePicker_Click(a%,f%):
  3157. _date$,YC%,dA%,NA%,b%:
  3158. f%>_c_DatePick_FirstIcon%
  3159. f%<_c_DatePick_LastIcon%
  3160. C(a%,_c_DatePick_MonthIcon%)):_date$=
  3161. C(a%,f%),_c_DatePick_YearIcon%):_date$+=_c_DatePick_Sep$+
  3162. (dA%),2)+_c_DatePick_Sep$:_date$+=
  3163. C(a%,_c_DatePick_YearIcon%),2):
  3164. H(a%):
  3165. VB(_date$)
  3166. ZA(YC%,dA%,NA%):_date$=
  3167. (YC%),2)+_c_DatePick_Sep$:_date$+=
  3168. (dA%),2)+_c_DatePick_Sep$:_date$+=
  3169. (NA%),2):
  3170. H(a%):
  3171. VB(_date$)
  3172. _DatePicker_DecodeDate(SA$):=
  3173. tA(SA$)
  3174. gD(NA%):
  3175. NA%>1
  3176. ,i%=((NA%
  3177. ((NA%
  3178. &64)>0
  3179. 400)=0))
  3180. cC(QB%,NA%):
  3181. QB%>0
  3182. NA%>0
  3183. QB%>=1
  3184. QB%<=&C
  3185. 4,6,9,&B:QF%=30
  3186. gD(NA%)
  3187. QF%=29
  3188. QF%=28
  3189. QF%=31
  3190. QF%=0
  3191. :=QF%
  3192. zB(JB%,QB%,NA%):
  3193. JB%<1
  3194. QB%<1
  3195. NA%<1
  3196. JB%>30
  3197. (QB%=4
  3198. QB%=6
  3199. QB%=9
  3200. QB%=&B)
  3201. JB%>31
  3202. QB%>&C
  3203. QB%=2
  3204. JB%>29
  3205. QB%=2
  3206. JB%=29
  3207. 4)<>0
  3208. QB%=2
  3209. JB%=29
  3210. &64)=0
  3211. 400)>0
  3212. NA%=&6D8
  3213. QB%=9
  3214. JB%>2
  3215. JB%<&E
  3216. _B(YC%,dA%,NA%):
  3217. Q%,N%,X%:N%=dA%:X%=NA%:
  3218. dA%<=2
  3219. N%=dA%+&C:X%=NA%-1
  3220. !XaQ%=(YC%+2.6*(N%+1)+X%+(X%
  3221. 4)-(X%
  3222. &64)+(X%
  3223. 400))
  3224. NA%<&6D8
  3225. (NA%=&6D8
  3226. (dA%<9
  3227. (dA%=9
  3228. YC%<3)))
  3229. Q%=Q%-3
  3230. Q%=Q%+7
  3231. zB(YC%,dA%,NA%))
  3232. RB(QB%):
  3233. QB%<1
  3234. QB%>&C
  3235. =_c_Calendar_MonthInvalid$
  3236. _m_Calendar_MonthStr$,(QB%-1)*3+1,3)
  3237. z(a%,f%,RC%):
  3238. RC%=0
  3239. KB(a%,f%)
  3240. x(a%,f%)
  3241. aA(YC%,dA%,NA%):
  3242. jM%,jB$,JB%,uH%,lM%:
  3243. &406C0:lM%=
  3244. cC(dA%,NA%):jM%=
  3245. _B(1,dA%,NA%):jB$=
  3246. RB(dA%):
  3247. H(_m_DatePick_DBoxHandle%):
  3248. A(_m_DatePick_DBoxHandle%,_c_DatePick_YearIcon%,
  3249. (NA%),
  3250. A(_m_DatePick_DBoxHandle%,_c_DatePick_MonthIcon%,jB$,
  3251. uH%=_c_DatePick_FirstIcon%+jM%:
  3252. YE%=1
  3253. Z(_m_DatePick_DBoxHandle%,YE%+_c_DatePick_FirstIcon%,0):
  3254. A(_m_DatePick_DBoxHandle%,YE%+_c_DatePick_FirstIcon%,"",
  3255. A(_m_DatePick_DBoxHandle%,YE%+39,"",
  3256. Z(_m_DatePick_DBoxHandle%,YE%+39,0)
  3257. Z(_m_DatePick_DBoxHandle%,YE%+46,0):
  3258. A(_m_DatePick_DBoxHandle%,YE%+46,"",
  3259. YE%:OK%=
  3260. OB(_m_DatePick_DBoxHandle%,_c_DatePick_ESG%):
  3261. OK%>=0
  3262. z(_m_DatePick_DBoxHandle%,OK%,0)
  3263. JB%=1
  3264. A(_m_DatePick_DBoxHandle%,uH%+JB%-1,
  3265. (JB%),
  3266. Z(_m_DatePick_DBoxHandle%,uH%+JB%-1,3):
  3267. JB%=_m_DatePick_CurrDay%
  3268. dA%=_m_DatePick_CurrMonth%
  3269. NA%=_m_DatePick_CurrYear%
  3270. z(_m_DatePick_DBoxHandle%,uH%+JB%-1,1)
  3271. f(_m_DatePick_DBoxHandle%,
  3272. &406C1:
  3273. _DatePicker_BumpHandler2(NA%,QC%):
  3274. dA%:dA%=
  3275. C(_m_DatePick_DBoxHandle%,_c_DatePick_MonthIcon%)):
  3276. aA(1,dA%,NA%):=
  3277. (NA%)
  3278. _DatePicker_BumpHandler(dA%,QC%):
  3279. NA%:NA%=
  3280. C(_m_DatePick_DBoxHandle%,_c_DatePick_YearIcon%)):
  3281. dA%<1
  3282. NA%-=1:dA%=&C
  3283. dA%>&C
  3284. NA%+=1:dA%=1
  3285. aA(1,dA%,NA%):=
  3286. RB(dA%)
  3287. BC(JB%):
  3288. JB%<1
  3289. JB%>7
  3290. =_c_Calendar_DayInvalid$
  3291. _m_Calendar_DayStr$,(JB%-1)*3+1,3)
  3292. CC(a%,f%):
  3293. lD%,v%:v%=
  3294. B(40):v%!0=a%:v%!4=f%:
  3295. &400CE,,v%:lD%=(v%!24>>&C)
  3296. B(v%):=lD%
  3297. QD(a%,f%,D$):
  3298. b%,k%,iA%,A$:A$=
  3299. I(a%):
  3300. A$="iconbar"
  3301.     f%=-1
  3302. E(A$,f%,_EVNTS_CLICKSELECT_ANCHOR%,_EVNTS_CLICKSELECT_REC_SIZE%,
  3303. ):k%=!_EVNTS_CLICKSELECT_ANCHOR%:k%+=b%:$k%=A$:k%!&C=f%:
  3304. !_EVNTS_CLICKSELECT_DATA%=0
  3305. )!_EVNTS_CLICKSELECT_DATA%=
  3306. (D$)+1)
  3307. :iA%=k%+16:
  3308. Q(iA%,_EVNTS_CLICKSELECT_DATA%,_EVNTS_CLICKSELECT_DATAOFFSET%,D$):
  3309. CC(a%,f%)=_BUTTON_TYPE_NEVER
  3310. Z(a%,f%,_BUTTON_TYPE_CLICK)
  3311. RD(a%,f%,c$):
  3312. b%,k%,A$:A$=
  3313. I(a%):
  3314. A$="iconbar"
  3315.     f%=-1
  3316. E(A$,f%,_EVNTS_HELPTAG_ANCHOR%,_EVNTS_HELPTAG_REC_SIZE%,
  3317. ):k%=!_EVNTS_HELPTAG_ANCHOR%:k%+=b%:$k%=A$:k%!&C=f%:
  3318. !_EVNTS_HELPTAG_DATA%=0
  3319. %!_EVNTS_HELPTAG_DATA%=
  3320. (c$)+1)
  3321. :iA%=k%+16:
  3322. Q(iA%,_EVNTS_HELPTAG_DATA%,_EVNTS_HELPTAG_DATAOFFSET%,c$):
  3323. XB(a%,f%,nM%,oM%,wC%,xC%,AS%,pM%,kB$,lB$):
  3324. k%,b%,A$:A$=
  3325. I(a%):b%=
  3326. E(A$,nM%,_EVNTS_BUMP_ANCHOR%,_EVNTS_BUMP_REC_SIZE%,
  3327. ):k%=!_EVNTS_BUMP_ANCHOR%:k%+=b%:$k%=A$:k%!&C=nM%:k%!16=AS%:k%!20=f%:k%!24=wC%:k%!28=xC%:
  3328. pM%=-1
  3329. k%!40=1
  3330. k%!40=0
  3331. !_EVNTS_BUMP_DATA%=0
  3332. !_EVNTS_BUMP_DATA%=
  3333. :iA%=k%+32:
  3334. kB$<>""
  3335. Q(iA%,_EVNTS_BUMP_DATA%,_EVNTS_BUMP_DATAOFFSET%,kB$)
  3336. !iA%=-1
  3337. :iA%=k%+36:
  3338. lB$<>""
  3339. Q(iA%,_EVNTS_BUMP_DATA%,_EVNTS_BUMP_DATAOFFSET%,lB$)
  3340. !iA%=-1
  3341. E(A$,oM%,_EVNTS_BUMP_ANCHOR%,_EVNTS_BUMP_REC_SIZE%,
  3342. ):k%=!_EVNTS_BUMP_ANCHOR%:k%+=b%:$k%=A$:k%!&C=oM%:
  3343. pM%=-1
  3344. k%!40=1
  3345. k%!40=0
  3346. k%!40=k%!40
  3347. (1<<2):
  3348. _DatePicker_PreOpen(a%):
  3349. p%,RD$,TD$:_m_DatePick_DBoxHandle%=a%:
  3350. &606C0:
  3351. A(_m_DatePick_DBoxHandle%,_c_DatePick_FirstWeekDayIcon%+p%,
  3352. BC(p%+1),
  3353. A(_m_DatePick_DBoxHandle%,_c_DatePick_TodayIcon%,
  3354. A("today"),
  3355. QD(_m_DatePick_DBoxHandle%,-1,"_DatePicker_Click"):
  3356. RD(_m_DatePick_DBoxHandle%,-1,"dpwin"):
  3357. ZA(_m_DatePick_CurrDay%,_m_DatePick_CurrMonth%,_m_DatePick_CurrYear%):
  3358. aA(_m_DatePick_CurrDay%,_m_DatePick_CurrMonth%,_m_DatePick_CurrYear%)
  3359. XB(_m_DatePick_DBoxHandle%,_c_DatePick_MonthIcon%,_c_DatePick_MonthIncIcon%,_c_DatePick_MonthDecIcon%,-9999,9999,1,
  3360. ,"_DatePicker_BumpHandler","_DatePicker_DecodeDate")
  3361. XB(_m_DatePick_DBoxHandle%,_c_DatePick_YearIcon%,_c_DatePick_YearIncIcon%,_c_DatePick_YearDecIcon%,-9999,9999,1,
  3362. ,"_DatePicker_BumpHandler2",""):
  3363. &406C1:=0
  3364. _Win_CalTap_Click(a%,f%):
  3365. &406C0:
  3366. &406C1:=0
  3367. &406C0:
  3368. A("wca_templ"):CS%=
  3369. A("wca_iok")):DS%=
  3370. A("wca_i60c1")):ES%=
  3371. A("wca_i60t1")):GS%=
  3372. A("wca_i60c2")):HS%=
  3373. A("wca_i60t2")):IS%=
  3374. A("wca_i120c1")):JS%=
  3375. A("wca_i120t1")):KS%=
  3376. A("wca_i120c2")):LS%=
  3377. A("wca_i120t2"))
  3378. A("wca_i180c1")):NS%=
  3379. A("wca_i180t1")):OS%=
  3380. A("wca_i180c2")):PS%=
  3381. A("wca_i180t2")):QS%=
  3382. A("wca_i240c1")):US%=
  3383. A("wca_i240t1")):WS%=
  3384. A("wca_i240c2")):DP%=
  3385. A("wca_i240t2")):tO%=
  3386. A("wca_i360c1")):uO%=
  3387. A("wca_i360t1"))
  3388. A("wca_i360c2")):wO%=
  3389. A("wca_i360t2")):xO%=
  3390. A("wca_i480c1")):yO%=
  3391. A("wca_i480t1")):zO%=
  3392. A("wca_i480c2")):_O%=
  3393. A("wca_i480t2")):dP%=xN%:DO%=
  3394. &406C1:
  3395. PA:=y%
  3396. mA%:mA%=
  3397. PA+y%!44:=mA%
  3398. k(PD%,
  3399. UB%):
  3400. wA%:wA%=
  3401. 60:RB%=wA%!0:TB%=wA%!4:SB%=wA%!8:UB%=wA%!&C
  3402. &78:RB%=wA%!16:TB%=wA%!20:SB%=wA%!24:UB%=wA%!28
  3403. &B4:RB%=wA%!32:TB%=wA%!36:SB%=wA%!40:UB%=wA%!44
  3404. &F0:RB%=wA%!48:TB%=wA%!52:SB%=wA%!56:UB%=wA%!60
  3405. 360:RB%=wA%!64:TB%=wA%!68:SB%=wA%!72:UB%=wA%!76
  3406. 480:RB%=wA%!80:TB%=wA%!84:SB%=wA%!88:UB%=wA%!92
  3407. 55,"Unknown tape length"
  3408. WD(a%):
  3409. RB%,SB%,TB%,UB%:
  3410. k(60,RB%,SB%,TB%,UB%):
  3411. A(a%,DS%,
  3412. (RB%),
  3413. A(a%,ES%,
  3414. (SB%),
  3415. A(a%,GS%,
  3416. (TB%),
  3417. A(a%,HS%,
  3418. (UB%),
  3419. k(&78,RB%,SB%,TB%,UB%):
  3420. A(a%,IS%,
  3421. (RB%),
  3422. A(a%,JS%,
  3423. (SB%),
  3424. A(a%,KS%,
  3425. (TB%),
  3426. A(a%,LS%,
  3427. (UB%),
  3428. k(&B4,RB%,SB%,TB%,UB%):
  3429. A(a%,MS%,
  3430. (RB%),
  3431. A(a%,NS%,
  3432. (SB%),
  3433. A(a%,OS%,
  3434. (TB%),
  3435. A(a%,PS%,
  3436. (UB%),
  3437. k(&F0,RB%,SB%,TB%,UB%):
  3438. A(a%,QS%,
  3439. (RB%),
  3440. A(a%,US%,
  3441. (SB%),
  3442. A(a%,WS%,
  3443. (TB%),
  3444. A(a%,DP%,
  3445. (UB%),
  3446. k(360,RB%,SB%,TB%,UB%):
  3447. A(a%,tO%,
  3448. (RB%),
  3449. A(a%,uO%,
  3450. (SB%),
  3451. A(a%,vO%,
  3452. (TB%),
  3453. A(a%,wO%,
  3454. (UB%),
  3455. k(480,RB%,SB%,TB%,UB%):
  3456. A(a%,xO%,
  3457. (RB%),
  3458. A(a%,yO%,
  3459. (SB%),
  3460. A(a%,zO%,
  3461. (TB%),
  3462. A(a%,_O%,
  3463. (UB%),
  3464. _Win_CalTap_PreOpen(a%):
  3465. WD(a%):=0
  3466. _Win_NotePa_PreOpen(a%):=0
  3467. K:=y%!&C
  3468. i(_search_term$,GC$,HC$,EP%,PK%):
  3469. _pos%,RF%,_wp$,vH%,iT%,RK%,TG%,vM%,z%,SK%,i%:PK%+=1:SK%=
  3470. :RF%=PK%:vH%=0:_pos%=RF%
  3471. 2:TG%=EP%-1:
  3472. TG%<0
  3473.     TG%=0
  3474. :RK%=PK%:
  3475. :_wp$=
  3476. ("FN"+GC$+"( _pos% )"):TK%=_pos%:
  3477. _search_term$=_wp$
  3478. ("FN"+HC$+"( _search_term$,_wp$ )")=
  3479. #-+RK%=_pos%:RF%=_pos%-TG%:_pos%=RF%
  3480. 2+vH%
  3481. TG%=_pos%:vH%=_pos%:RF%=RK%-_pos%:_pos%=RF%
  3482. 2+vH%
  3483. vM%=TK%
  3484. vM%=TK%:
  3485. #=    i%=-1
  3486. i%=TK%
  3487. w(oA%):
  3488. i%,xM%:
  3489. oA%=0
  3490. oA%=1
  3491. #H3i%=
  3492. oA%,"_GetTerm","_CompFN",0,
  3493. K-1):
  3494. i%>-1
  3495. :oA%+=1:i%=
  3496. oA%,"_GetTerm","_CompFN",0,
  3497. K-1):
  3498. i%=-1
  3499. :xM%=oA%:=xM%
  3500. fA(oA%):
  3501. oA%=0
  3502. oA%=1
  3503. &406C0:i%=
  3504. oA%,"_GetTerm","_CompFN",1,
  3505. K-1):
  3506. i%>-1
  3507. :oA%-=1:i%=
  3508. oA%,"_GetTerm","_CompFN",1,
  3509. K-1):
  3510. i%=-1
  3511. oA%=1
  3512. &406C1:=
  3513. w(oA%)
  3514. _Win_RenTap_bump_id(oA%,QC%):
  3515. Y=_c_Win_RenTap_IconHandle_Inc%
  3516. w(oA%))
  3517. fA(oA%))
  3518. Y=_c_Win_RenTap_IconHandle_Inc%
  3519. fA(oA%))
  3520. w(oA%))
  3521. ZB:WO%=
  3522. H(SC%):
  3523. d:=y%!36
  3524. aA(yC%):
  3525. c%,GA%:c%=yC%*4:GA%=
  3526. d:=GA%!c%
  3527. e(RA%):=RA%!0
  3528. VG%,RA%:RA%=
  3529. aA(0):VG%=
  3530. e(RA%):=VG%
  3531. WG%,GA%:GA%=
  3532. d:WG%=
  3533. e(GA%!((
  3534. K-1)*4)):=WG%
  3535. hA(w%):
  3536. N:=y%!16
  3537. _(a%,
  3538. TP%):
  3539. fA%,qA%,rA%,sA%:
  3540. n(a%,fA%,qA%,rA%,sA%):SP%=rA%-fA%:TP%=sA%-qA%:
  3541. ZD(l%,
  3542. sA%):
  3543. d%:d%=
  3544. _(l%):d%!0=l%:
  3545. &400CC,,d%:fA%=d%!44:qA%=d%!48:rA%=d%!52:sA%=d%!56:
  3546. g(d%):
  3547. iA:=rN%-16
  3548. V:=dG%
  3549. D(CA%):
  3550. q(CA%)
  3551. w%=CA%!16
  3552. w%=-1
  3553. wD%,LC%,_A%,zC%,j%:
  3554.     wD%=0
  3555. G:_A%=OF%*4:zC%=
  3556. V:wD%=0:
  3557. _A%<>-4
  3558. :j%=LC%!_A%:wD%+=1:_A%+=4:xD%=
  3559. D(j%):
  3560. xD%<>zC%
  3561. j%=-1
  3562. :=wD%-1
  3563. YK%,XP%,YP%,DN%,ZP%:
  3564. _(SA%,HF%,cJ%):
  3565. ZD(SA%,XP%,YP%,DN%,ZP%):HF%=DN%:YK%=(
  3566. iA+(PC%*(
  3567. RC+1))):
  3568. cJ%<YK%
  3569. TA(SA%,0,-YK%,HF%,0,
  3570. &400D1,SA%,0,-&2710,&2710,0:
  3571. bA(_B%):
  3572. IOF%=
  3573. (_B%)+":"+"0","_Win_Main_GetTerm","_Win_Main_Compare",0,
  3574. OF%=-1
  3575. EB(SA%,0,0):
  3576. j(w%):
  3577. c%,GA%,ZK%:GA%=
  3578. d:ZK%=-1:
  3579. GA%!c%<>_c_Idx_Tape_ListTerminator%:
  3580. e(GA%!c%)=w%
  3581. ZK%=GA%!c%
  3582. :c%+=4:
  3583. :=ZK%
  3584. WB(w%):
  3585. RA%,IA$:RA%=
  3586. j(w%):
  3587. RA%=-1
  3588. 99,"Tape id not found in tape list"
  3589. RA%!20=-1
  3590. IA$=""
  3591. IA$=$(RA%!20)
  3592. :=IA$
  3593. UC(w%):
  3594. RA%:RA%=
  3595. j(w%):=RA%!4
  3596. QA(TF%):
  3597. TF%!&C=-1
  3598. $D    p$=""
  3599. p$=$(TF%!&C)
  3600. p$=""
  3601. dD(w%):y%!32=w%:
  3602. I(GB%):
  3603. hA(GB%)=
  3604. A(u%,_c_WinMWPane_TapeID_Icon%,
  3605. ):dG%=GB%:
  3606. bA(GB%):
  3607. C(u%,_c_WinMWPane_TNrInc_Icon%,0):
  3608. C(u%,_c_WinMWPane_TNrDec_Icon%,0):
  3609. C(u%,_c_WinMWPane_DelTape_Icon%,0):
  3610. C(u%,_c_WinMWPane_Save_Icon%,0):
  3611. C(u%,_c_WinMWPane_TapeID_Icon%,0):
  3612. C(u%,_c_WinMWPane_NewRec_Icon%,0):
  3613. C(u%,_c_WinMWPane_Select_Icon%,0)
  3614. C(u%,_c_WinMWPane_Report_Icon%,0):
  3615. C(u%,_c_WinMWPane_TMake_Icon%,0):
  3616. C(u%,_c_WinMWPane_TMakeM_Icon%,0):
  3617. C(u%,_c_WinMWPane_Renum_Icon%,0):
  3618. C(u%,_c_WinMWPane_TLen_Icon%,0):
  3619. C(u%,_c_WinMWPane_TLenM_Icon%,0)
  3620. C(u%,_c_WinMWPane_TNrInc_Icon%,1):
  3621. C(u%,_c_WinMWPane_TNrDec_Icon%,1)
  3622. A(u%,_c_WinMWPane_TMake_Icon%,
  3623. WB(GB%),
  3624. A(u%,_c_WinMWPane_TLen_Icon%,"E"+
  3625. UC(GB%)),
  3626. C(u%,_c_WinMWPane_TNrInc_Icon%,1):
  3627. C(u%,_c_WinMWPane_TNrDec_Icon%,1):
  3628. C(u%,_c_WinMWPane_DelTape_Icon%,1):
  3629. C(u%,_c_WinMWPane_Save_Icon%,1):
  3630. C(u%,_c_WinMWPane_TapeID_Icon%,1):
  3631. C(u%,_c_WinMWPane_NewRec_Icon%,1):
  3632. C(u%,_c_WinMWPane_Select_Icon%,1)
  3633. C(u%,_c_WinMWPane_Report_Icon%,1):
  3634. C(u%,_c_WinMWPane_TNrInc_Icon%,1):
  3635. C(u%,_c_WinMWPane_TNrDec_Icon%,1):
  3636. C(u%,_c_WinMWPane_TMake_Icon%,1):
  3637. C(u%,_c_WinMWPane_TMakeM_Icon%,1):
  3638. C(u%,_c_WinMWPane_Renum_Icon%,1):
  3639. C(u%,_c_WinMWPane_TLen_Icon%,1)
  3640. C(u%,_c_WinMWPane_TLenM_Icon%,1)
  3641. C(u%,_c_WinMWPane_Notes_Icon%,(
  3642. j(GB%))="")):
  3643. dD(GB%):
  3644. XB(w%):=(
  3645. (w%)+":"+"0","_Win_Main_GetTerm","_Win_Main_Compare",0,
  3646. N-1))*4
  3647. aB(JA%,_B%):JA%!16=_B%:
  3648. gD(RA%,w%):RA%!0=w%:
  3649. I%,AF%,zD%,IN%,JN%:zD%=
  3650. :AF%=
  3651. K-2:IN%=zD%!(I%*4):JN%=zD%!((I%+1)*4):
  3652. e(IN%)>
  3653. e(JN%)
  3654. zD%!(I%*4),zD%!((I%+1)*4):AF%=
  3655. r:=sI%
  3656. H(JA%):=JA%!20
  3657. I%,QD%,tB%,RD%,SD%:
  3658. &406C0:
  3659. :QD%=
  3660. N-2:RD%=tB%!(I%*4):SD%=tB%!((I%+1)*4):
  3661. D(RD%)>
  3662. D(SD%)
  3663. tB%!(I%*4),tB%!((I%+1)*4):QD%=
  3664. D(RD%)=
  3665. D(SD%)
  3666. H(RD%)>
  3667. H(SD%)
  3668. tB%!(I%*4),tB%!((I%+1)*4):QD%=
  3669. &406C1:
  3670. jD(_%):
  3671. c%,hB%:
  3672. qE%>0
  3673. qE%=1
  3674. c%=0:
  3675. LB%!c%<>CG%:hB%=LB%!c%:
  3676. hB%!0=_%
  3677. $(hB%+zF%)="":hB%!0=0
  3678. :c%+=4:
  3679. R(_%,fP%):
  3680. c%,HB%,LA%:
  3681. _%<>0
  3682. &65BC3,_%,fP%:
  3683. jD(_%)
  3684. fE%<>fG%
  3685. R(fE%,0):fE%=fG%
  3686. ZB(l%):
  3687. C$,d%:d%=
  3688. _(l%):d%!0=l%:
  3689. &400CC,,d%:
  3690. (d%!32
  3691. 1<<26)
  3692. ((d%!60)
  3693. 256)=0
  3694. C$=$(d%+76)
  3695. C$=$(!(d%+76))
  3696. g(d%):=C$
  3697. SA%<>CD%
  3698. ZB(SA%):
  3699. q$,2)<>" *"
  3700. i(SA%,q$+" *")
  3701. :YG%=
  3702. eA:dJ%=
  3703. rD(bE%,UF%):
  3704. KN%,q%,aG%,VF%:KN%=
  3705. XB(bE%):q%=
  3706. G:aG%=KN%:
  3707. aB(q%!aG%,UF%):aG%+=4:
  3708. q%!aG%=-1
  3709. D(q%!aG%)<>bE%:VF%=
  3710. j(bE%):
  3711. gD(VF%,UF%):
  3712. I(UF%):
  3713. _Win_RenTap_Click(a%,f%):
  3714. bE%,UF%:
  3715. &406C0:
  3716. _c_Win_RenTap_IconHandle_ok%:
  3717. :bE%=
  3718. C(SC%,_c_Win_RenTap_IconHandle_CurrID%)):UF%=
  3719. C(SC%,_c_Win_RenTap_IconHandle_NewID%)):
  3720. I(bE%):
  3721. rD(bE%,UF%)
  3722. _c_Win_RenTap_IconHandle_cancel%:
  3723. &406C1:=0
  3724. S(EA%):
  3725. jA%,bG%,UC%,VC%:bG%=
  3726. B(20):
  3727. &400CF,,bG%:IA%=
  3728. B(36):IA%!0=EA%:
  3729. &400CB,,IA%:UC%=(IA%!4-IA%!&C)/2:VC%=(IA%!16-IA%!8)/2:
  3730. MA(EA%,bG%!0+UC%,bG%!4-VC%):
  3731. B(IA%):
  3732. B(bG%):
  3733. _Win_RenTap_PreOpen(a%):
  3734. SC%<>_c_Win_RenTap_NotCreated%
  3735. S(SC%):
  3736. A(SC%,_c_Win_RenTap_IconHandle_CurrID%,
  3737. A(SC%,_c_Win_RenTap_IconHandle_NewID%,
  3738. eB:cK%=
  3739. A("wop_irealt")):LI%=
  3740. A("wop_imwp")):xK%=
  3741. A("wop_imp")):kP%=
  3742. A("wop_ititles")):lP%=
  3743. A("wop_isubs")):mP%=
  3744. A("wop_itlen")):nP%=
  3745. A("wop_itmake")):oP%=
  3746. A("wop_ichann")):pP%=
  3747. A("wop_itfmt")):qP%=
  3748. A("wop_iset"))
  3749. A("wop_ican")):NN%=
  3750. A("wop_isave")):sP%=
  3751. A("wop_idef")):ON%=
  3752. A("wop_ibgo")):PN%=
  3753. A("wop_ibge")):QN%=
  3754. A("wop_ibgs")):RN%=
  3755. A("wop_ifgo")):SN%=
  3756. A("wop_ifge")):TN%=
  3757. A("wop_ifgs")):KT%=
  3758. A("wop_ibgom")):LT%=
  3759. A("wop_ibgem"))
  3760. {MT%=
  3761. A("wop_ibgsm")):NT%=
  3762. A("wop_ifgem")):OT%=
  3763. A("wop_ifgom")):PT%=
  3764. A("wop_ifgsm")):MC$=
  3765. A("wop_templ"):FL%=
  3766. VA%=gD%
  3767. E(MC$,VA%)
  3768. RA:=FA%!4
  3769. aB:=FA%!16
  3770. bB:=FA%!&C
  3771. cB:=FA%!8
  3772. dB:=FA%!20
  3773. eB:=FA%!24
  3774. a(VA%,ON%,
  3775. a(VA%,SN%,
  3776. a(VA%,PN%,
  3777. a(VA%,RN%,
  3778. a(VA%,QN%,
  3779. a(VA%,TN%,
  3780. &406C0:
  3781. VA%=gD%
  3782. K(VA%,LI%,
  3783. K(VA%,cK%,FA%?0=1):
  3784. K(VA%,xK%,
  3785. S(VA%):
  3786. P(VA%):
  3787. &406C1:
  3788. _Options_ButtonBarClick(a%,f%):
  3789. gB:=0
  3790. _Options_ColourMenu_PreOpen(_%):
  3791. GA(l%,MA%):
  3792. UN%,v%:v%=
  3793. B(40):v%!0=l%:v%!4=MA%:
  3794. &400CE,,v%:UN%=(v%!24>>28)
  3795. B(v%):=UN%
  3796. T(oF%,pF%):
  3797. PC(oF%,pF%):o%=AA%!24:g%=(o%
  3798. &200000):
  3799. hB(fA%,qA%,rA%,sA%):FA%!36=fA%:FA%!40=qA%:FA%!44=rA%:FA%!48=sA%:
  3800. sA%):
  3801. SA%<>CD%
  3802. n(SA%,fA%,qA%,rA%,sA%)
  3803. fA%=-1:qA%=-1:rA%=-1:sA%=-1
  3804. fA%,qA%,rA%,sA%:
  3805. VA%=gD%
  3806. K(VA%,cK%,FA%?0=1):
  3807. T(VA%,LI%)=
  3808. hB(-1,-1,-1,-1)
  3809. yD(fA%,qA%,rA%,sA%):
  3810. hB(fA%,qA%,rA%,sA%)
  3811. K(VA%,LI%,
  3812. ("SAVE <VideoBase$Dir>.Options "+
  3813. ~FA%+"+"+
  3814. ~BL%):
  3815. ("STAMP <VideoBase$Dir>.Options"):
  3816. VA%<>gD%
  3817. dA(VA%):VA%=gD%
  3818. EA%,PG%):
  3819. jA%,x%,VN%,GD%,xB%:xB%=
  3820. z(EA%):VN%=
  3821. BA(EA%):jA%=
  3822. B(&64+(xB%*32)):jA%!0=EA%:
  3823. &400CC,,jA%:jA%?39=PG%:_shell_open_behind%=jA%!28:GD%=jA%!28:
  3824. &400C3,,jA%:
  3825. &400C1,,jA%+4
  3826. x%:jA%!0=x%:
  3827. &400CC,,jA%:
  3828. EA%<>x%
  3829. w(EA%,x%):EA%=x%
  3830. f(x%,0,GD%)
  3831. B(jA%):
  3832. lB(WN%):
  3833. SA%<>CD%
  3834. kB(SA%,WN%):lH%=WN%
  3835. ZG%<>_c_Menu_Title_MenuNotCreated%
  3836. R(ZG%,0):ZG%=_c_Menu_Title_MenuNotCreated%
  3837. L(&FFF,_c_Menu_Title_FileName$):
  3838. SF%<>XG%
  3839. R(SF%,0):SF%=XG%
  3840. L(&FFF,AC$):
  3841. cE%<>_c_Menu_TLen_NotCreated%
  3842. R(cE%,0):cE%=_c_Menu_TLen_NotCreated%
  3843. L(&FFF,
  3844. W+".UserData.TapeLngts"):
  3845. gF%=_c_Menu_TMake_NotCreated%
  3846. R(gF%,0):gF%=_c_Menu_TMake_NotCreated%
  3847. L(&FFF,
  3848. W+".UserData.TapeMakes"):
  3849. aE%<>_c_Menu_Chan_MenuNotCreated%
  3850. R(aE%,0):aE%=_c_Menu_Chan_MenuNotCreated%
  3851. L(&FFF,
  3852. W+".UserData.Channels"):
  3853. fF%<>kG%
  3854. R(fF%,0):fF%=kG%
  3855. L(&FFF,wA$):
  3856. _Options_Click(a%,f%):
  3857. qP%,NN%:FA%!4=
  3858. GA(VA%,ON%):FA%!8=
  3859. GA(VA%,RN%):FA%!&C=
  3860. GA(VA%,PN%):FA%!16=
  3861. GA(VA%,SN%):FA%!20=
  3862. GA(VA%,QN%):FA%!24=
  3863. GA(VA%,TN%):
  3864. T(VA%,cK%)
  3865. FA%?0=1
  3866. FA%?0=0
  3867. T(VA%,xK%)
  3868. f%=NN%
  3869. _Options_MenuSelect(d%):
  3870. gB:=0
  3871. _dis_fn_fsp(oB%,QC%):
  3872. 'N(HB$=
  3873. 60)+"h"+
  3874. "00"+
  3875. 60),2)
  3876. (oB%)
  3877. :=HB$
  3878. 'WBNC$=
  3879. A("hmd_id"):OC$=
  3880. A("hmd_title"):pO%=
  3881. :nB$=
  3882. A("hmd_item1")
  3883. KG%=RH%
  3884. &406C0:
  3885. OE:KG%=
  3886. t(OC$,NC$,0):e%=
  3887. A("hmd_item0"),""):e%=
  3888. A("hmd_item1"),""):
  3889. &406C1
  3890. gB:=nB$
  3891. cG%=-1
  3892. 'w%cG%=
  3893. _decode_dis_fsp(
  3894. C(CB%,uC%))
  3895. :=cG%
  3896. BA:qF%=qF%
  3897. _Win_FSp_PreOpen(a%):IJ%=
  3898. _A:JJ%=
  3899. CB%<>_c_WinFSp_NotCreated%
  3900. S(CB%)
  3901. :cG%=-1:
  3902. BA:=0
  3903. nB(l%,MA%):
  3904. &400D2,l%,MA%,-1,-1,-1,
  3905. C(l%,MA%)):
  3906. _Win_FSp_PostOpen(EA%):
  3907. nB(EA%,uC%):=0
  3908. e%,Y$:
  3909. bD%=_c_WinFSp_NotCreated%
  3910. E(RC$,bD%):
  3911. _(bD%,GG%,PJ%):
  3912. x(CB%,YN%):
  3913. A(CB%,_P%,
  3914. C(CB%,uC%):
  3915. "h",Y$)=0
  3916. A(CB%,uC%,
  3917. _dis_fn(
  3918. (Y$),0),
  3919. _Win_FSp_PreOpen(CB%):
  3920. P(CB%):e%=
  3921. _Win_FSp_PostOpen(CB%):LL%=
  3922. _Win_FSp_ShowWindow(a%):
  3923. hA:=0
  3924. _Win_FSpP_Click(a%,f%):
  3925. _D%,QA%,FB%,A:_D%=
  3926. B(20):
  3927. &400CF,,_D%:FB%=_D%!4:QA%=
  3928. B(40):!QA%=a%:
  3929. &400CB,,QA%:A=QA%!16-QA%!24:KJ%=((A-FB%)
  3930. HG%)+1:
  3931. UA:=0
  3932. P:=dK%
  3933. D(CA%,CQ%):CA%!24=CQ%:
  3934. CA(CA%,BC%):
  3935. CA%?8=CA%?8
  3936. (1<<1)
  3937. CA%?8=CA%?8
  3938. (1<<1)
  3939. Q(n%):
  3940. q%,kA%,OE%:q%=
  3941. G:kA%=-4:
  3942. :kA%+=4:
  3943. q%!kA%=n%
  3944. q%!kA%=_c_Idx_Recs_ListTerminator%:
  3945. q%!kA%=_c_Idx_Recs_ListTerminator%
  3946. OE%=-1
  3947. OE%=kA%/4
  3948. :=OE%
  3949. AB(j%):
  3950. s%,yC%:
  3951. Q(j%):
  3952. Z(n%):
  3953. q%,kA%:q%=
  3954. G:kA%=0:
  3955. q%!kA%<>n%:kA%+=4:
  3956. kA%/4=
  3957. 88,"attempt to access beyond the last record in database - not implemented!"
  3958. :=q%!(kA%+4)
  3959. HA(j%):
  3960. s%,EB%:
  3961. AB(j%)
  3962. Z(j%):
  3963. D(j%)=
  3964. D(EB%)
  3965. FA%?0=1
  3966. SA(j%):
  3967. AB(j%)
  3968. HA(j%)
  3969. b(JA%,DQ%):JA%!20=DQ%:
  3970. DA(j%):
  3971. w%,AB%,q%,lC%,ZN%:w%=
  3972. D(j%):AB%=(
  3973. (w%)+":"+"0","_Win_Main_GetTerm","_Win_Main_Compare",0,
  3974. N-1))*4:q%=
  3975. HA(q%!AB%):
  3976. H(q%!AB%)+
  3977. F(q%!AB%)
  3978. SA(q%!AB%)=
  3979. lC%=9999
  3980. H(q%!(AB%+4))
  3981. :ZN%=
  3982. Z(q%!AB%):
  3983. b(ZN%,lC%):AB%+=4:
  3984. KG%<>RH%
  3985. &406C0:
  3986. R(KG%,0):KG%=RH%:
  3987. &406C1
  3988. OD:=gJ%
  3989. iB:=qI%
  3990. jA:LL%=
  3991. H(CB%):
  3992. &406C0:
  3993. A("wnr_iok")):gK%=
  3994. A("wnr_itit")):fU%=
  3995. A("wnr_ititm")):hK%=
  3996. A("wnr_isub")):iU%=
  3997. A("wnr_isubm")):IQ%=
  3998. A("wnr_itid")):WF%=
  3999. A("wnr_ilen")):ZS%=
  4000. A("wnr_ileni")):bS%=
  4001. A("wnr_ilend")):JQ%=
  4002. A("wnr_ichan")):dS%=
  4003. A("wnr_ichanm"))
  4004. A("wnr_idate")):iS%=
  4005. A("wnr_idatem")):KQ%=
  4006. A("wnr_iclr")):LQ%=
  4007. A("wnr_ican")):zH%=
  4008. A("wnr_istar")):jK%=
  4009. A("wnr_inote")):rS%=
  4010. A("wnr_itit2")):TD%=
  4011. A("wnr_isplp")):cN%=
  4012. A("wnr_ilock")):_H%=
  4013. A("wnr_iend")):vS%=
  4014. A("wnr_iendd"))
  4015. VwS%=
  4016. A("wnr_iendi")):DG%=-1:SC$=
  4017. A("wnr_templ"):wB%=DG%:XF%=-1:
  4018. E(SC$,wB%):oI%=
  4019. &406C1:
  4020. IA(mA%):
  4021. o%,s%,E:
  4022. mA%<&8000
  4023. &2001D,6,!(_heap_code%+28),mA%
  4024. ,,,E;o%:
  4025. R(CA%):
  4026. C$,DA%:DA%=
  4027. IA(CA%)=
  4028. CA%!0=-1
  4029. C$="*GAP*"
  4030. IA(CA%!0)
  4031. C$=$(CA%!0)
  4032. 66," Bad title heapblock found.."
  4033. 66," Bad record heapblock found.."
  4034. n(j%):
  4035. R(j%)="*GAP*"
  4036. JA(C$,f$,TC$,oB$):
  4037. _%,X%,E$,e%,kK%:
  4038. L(oB$)
  4039. (oB$):kK%=0:
  4040. E$<>""
  4041. E$,1)<>"#"
  4042. kK%+=1
  4043. #X%=0:_%=
  4044. t(C$,f$,kK%):
  4045. E$<>""
  4046. E$,1)<>"#"
  4047. M(_%,E$,TC$)
  4048. SF%=XG%
  4049. &406C0:J$=
  4050. A(lC$):SF%=
  4051. JA(J$,pC$,"",AC$):
  4052. &406C1
  4053. aE%=_c_Menu_Chan_MenuNotCreated%
  4054. &406C0:J$=
  4055. A(_c_Menu_Chan_MessTag_Title$):
  4056. L(_c_Menu_Chan_FileName$)=
  4057. ,aE%=
  4058. t(J$,fB$,1):e%=
  4059. M(aE%,"Unknown","")
  4060. JA(J$,fB$,"_MenuSelect_Channel",_c_Menu_Chan_FileName$)
  4061. &406C1
  4062. ZG%=_c_Menu_Title_MenuNotCreated%
  4063. &406C0:J$=
  4064. A(_c_Menu_Title_MessTag_Title$):ZG%=
  4065. JA(J$,hC$,"",_c_Menu_Title_FileName$):
  4066. &406C1
  4067. x(wB%,cN%):
  4068. _Win_NRec_PreOpen(a%):
  4069. r%,eA$,YC%,dA%,NA%,QD$:
  4070. _$,lC%:
  4071. &406C0:
  4072. :XF%=
  4073. n(XF%)
  4074. A(a%,gK%,"",
  4075. A(a%,hK%,"",
  4076. C(a%,jK%,
  4077. ZA(YC%,dA%,NA%):eA$=
  4078. (YC%),2)+".":eA$+=
  4079. (dA%),2)+".":eA$+=
  4080. (NA%),2):
  4081. A(a%,bN%,eA$,
  4082. A(a%,IQ%,
  4083. A(a%,zH%,
  4084. _dis_fn(
  4085. P),4),
  4086. ):_$=
  4087. _dis_fn((
  4088. _A),4):
  4089. A(a%,_H%,_$,
  4090. A(a%,zH%,
  4091. _dis_fn2(
  4092. P),4),
  4093. lC%=9999
  4094. _dis_fn2(lC%,4):
  4095. A(a%,_H%,_$,
  4096. A(a%,WF%,
  4097. _dis_fn(
  4098. _A,4),
  4099. P)="S"
  4100. A(a%,TD%,"SP",
  4101. A(a%,TD%,"LP",
  4102. &406C1:=0
  4103. wB%=DG%
  4104. _Win_NRec_PreOpen(wB%):
  4105. S(wB%)
  4106. P(wB%):
  4107. BA:qI%=
  4108. _Win_FSp_ClickSelect(a%,f%):
  4109. AI%,lK%,XA%:
  4110. RQ%:lK%=
  4111. u:AI%=
  4112. lK%=TH%
  4113. P)="S"
  4114. )h    AI%=
  4115. :XA%=0:
  4116. lK%=SH%
  4117. P)="L"
  4118. )l    AI%=
  4119. )o XA%=
  4120. A("chsplp"),
  4121. O,"")
  4122. XA%=1
  4123. P)="L"
  4124. P)/2)
  4125. P)*2)
  4126. P,BC%):
  4127. XA%<>2
  4128. _Win_FSpPane_UserRedraw(d%,nA%,eB%):
  4129. QE%,EG%,XC%,TQ%,gC%:
  4130. h$,I%,iB%,n%,HC%:QE%=
  4131. QE%>0
  4132. _decode_dis_fsp(
  4133. C(CB%,uC%)):XC%=
  4134. u:gC%=
  4135. l:RE%=0:iB%=eB%-OJ%-(RE%*HG%):
  4136. QE%-1:n%=gC%!(I%*4):TQ%=
  4137. J(n%):HC%=
  4138. F(n%):
  4139. h$="L"
  4140. XC%=SH%
  4141. HC%=HC%/2
  4142. h$="S"
  4143. XC%=TH%
  4144. HC%=HC%*2
  4145. HC%>=EG%
  4146. RE%=KJ%-1
  4147. &400E6,UQ%:
  4148. nA%,iB%+2,GG%,-30:
  4149. &400E6,VQ%:dK%=n%:XC$=h$:WQ%=
  4150. F(n%)
  4151. &400E6,XQ%
  4152. nA%+YQ%,iB%:
  4153. "  "+
  4154. D(n%)),3):
  4155. nA%+ZQ%,iB%:
  4156. _dis_fn(
  4157. F(n%),0)
  4158. "   "+
  4159. F(n%)),4)
  4160. nA%+aQ%,iB%:
  4161. XC%<>YN%
  4162. XC%=SH%
  4163. h$="L"
  4164. XC%=TH%
  4165. h$="S"
  4166. :iB%-=HG%:RE%+=1
  4167. _Win_FSp_MenuSelect(d%):
  4168. hA:=0
  4169. FA:RT%=
  4170. A(DD%,BI%,"",
  4171. ):eG%=-1:
  4172. H(DD%):
  4173. s(CA%):
  4174. mK%,o%:o%=CA%?8:
  4175.     mK%=
  4176. :=mK%
  4177. sC(w%):
  4178. s%,q%,AB%:
  4179. hA(w%)=
  4180. &406C0:AB%=(
  4181. (w%)+":"+"0","_Win_Main_GetTerm","_Win_Main_Compare",0,
  4182. N-1))*4:q%=
  4183. G:s%=
  4184. HA(q%!AB%):
  4185. s(q%!AB%)=
  4186. :AB%+=4:
  4187. &406C1
  4188. WG%:RA%=
  4189. K-1):WG%=
  4190. e(RA%):=WG%
  4191. lB(w%):
  4192. _C%,UD%,RA%:
  4193. NC%:NC%=w%+1:
  4194. :UD%=
  4195. (NC%),"_GetTerm","_CompFN",0,
  4196. K-1):
  4197. UD%=-1
  4198. NC%+=1:
  4199. _C%=NC%
  4200. UD%<>-1
  4201. NC%=0
  4202. _C%<>0:=_C%
  4203. mE(GF%):y%!16=GF%:
  4204. O(CA%,BC%):
  4205. o%:o%=CA%?8:
  4206. o%=o%
  4207. o%=o%
  4208. :CA%?8=o%:
  4209. oE(GF%):
  4210. GF%<0
  4211. y%!24=0
  4212. y%!24=GF%
  4213. DA%,I%,n%,gC%,gG%:
  4214. lN%:lN%=
  4215. v:gG%=0:
  4216. B((lN%+30)*4)):gC%=
  4217. l:DA%=
  4218. G:I%=0:
  4219. *J    gG%=0
  4220. :n%=DA%!(I%*4):
  4221. R(n%)="*GAP*"
  4222. D(n%)<=
  4223. O(n%,
  4224. ):gC%!(gG%*4)=n%:gG%+=1
  4225. :I%+=1:
  4226. DA%!(I%*4)=-1
  4227. oE(gG%):gC%!(
  4228. v*4)=_c_Idx_Gaps_ListTerminator%:
  4229. qE:y%!&C-=1:
  4230. y%!&C<0
  4231. y%!&C=0
  4232. rE(w%):
  4233. c%,GA%,z%:GA%=
  4234. d:c%=0:z%=
  4235. GA%!c%<>-1:
  4236. e(GA%!c%)=w%
  4237. GA%!c%=GA%!(c%+4)
  4238. :c%+=4:
  4239. tE(w%):
  4240. q%,AB%,c%,YA%,eT%,p%,_C%:
  4241. hA(w%)=
  4242. &406C0:_C%=
  4243. lB(w%):AB%=(
  4244. (w%)+":"+"0","_Win_Main_GetTerm","_Win_Main_Compare",0,
  4245. N-1))*4:q%=
  4246. G:c%=AB%:YA%=0:
  4247. :c%+=4:YA%+=1:
  4248. q%!c%=-1
  4249. D(q%!c%)<>w%:
  4250. &400F1,_U%!&94,q%+AB%+(YA%*4),_U%!&94,q%+AB%,((
  4251. N+1)*4)-(AB%+(YA%*4)):
  4252. N-YA%):
  4253. rE(w%)
  4254. I(_C%):
  4255. &406C1
  4256. _Win_DTape_ClickSelect(a%,f%):
  4257. XA%,CI%:
  4258. gQ%:eG%=
  4259. C(a%,BI%)):
  4260. hA(eG%)=
  4261. I(eG%):CI%=
  4262. sC(eG%)
  4263. ,XA%=
  4264. A("deltaplock"),
  4265. O,""):
  4266. XA%=1
  4267.     CI%=
  4268. tE(eG%)
  4269. A(DD%,BI%,
  4270. _Win_DTape_PreOpen(a%):
  4271. &406C0:
  4272. S(a%):
  4273. A(DD%,BI%,
  4274. &406C1:=0
  4275. sA%):fA%=FA%!36:qA%=FA%!40:rA%=FA%!44:sA%=FA%!48:
  4276. vE(YC$,fA%,qA%,rA%,sA%):
  4277. QA%:QA%=
  4278. sA(YC$):QA%!0=fA%:QA%!4=qA%:QA%!8=rA%:QA%!&C=sA%:
  4279. J(a%,f%):
  4280. C(a%,f%,1):
  4281. mI%,nI%,nA$:
  4282. E(_c_WinMWPane_TemplateName$,u%):
  4283. J(u%,_c_WinMWPane_TNrInc_Icon%):
  4284. J(u%,_c_WinMWPane_TNrDec_Icon%):
  4285. J(u%,_c_WinMWPane_TapeID_Icon%):
  4286. J(u%,_c_WinMWPane_Save_Icon%):
  4287. J(u%,_c_WinMWPane_DelTape_Icon%):
  4288. J(u%,_c_WinMWPane_NewRec_Icon%)
  4289. J(u%,_c_WinMWPane_Select_Icon%):
  4290. J(u%,_c_WinMWPane_Report_Icon%):
  4291. J(u%,_c_WinMWPane_TMake_Icon%):
  4292. J(u%,_c_WinMWPane_TMakeM_Icon%):
  4293. J(u%,_c_WinMWPane_Renum_Icon%):
  4294. J(u%,_c_WinMWPane_TLen_Icon%):
  4295. J(u%,_c_WinMWPane_TLenM_Icon%)
  4296. J(u%,_c_WinMWPane_Notes_Icon%):
  4297. _(u%,xQ%,rN%):
  4298. l%,vC%):
  4299. d%,o%,UH%,x%:UH%=
  4300. BA(l%):d%=
  4301. _(l%):d%!0=l%:
  4302. &400CC,,d%:o%=d%!32:o%=(o%
  4303. vC%):d%!32=o%:
  4304. &400C3,,d%:
  4305. &400C1,,d%+4
  4306. x%:!d%=x%:
  4307. &400C5,,d%
  4308. g(d%):
  4309. x%<>l%
  4310. w(l%,x%):
  4311. fC(l%,x%):l%=x%
  4312. zE(a%,
  4313. DI%,o%,UC%,VC%):
  4314. b%,k%,IB%,A$,e$,GC%:A$=
  4315. I(a%):e$=
  4316. I(DI%):IB%=0:GC%=
  4317. NB(DI%):
  4318. 1<<5)=0
  4319. uB(DI%,1<<5)
  4320. 1<<1)
  4321. uB(DI%,1<<1)
  4322. E(A$,IB%,_EVNTS_PANES_ANCHOR%,_EVNTS_PANES_REC_SIZE%,
  4323. )>-1:IB%+=1:
  4324. E(A$,IB%,_EVNTS_PANES_ANCHOR%,_EVNTS_PANES_REC_SIZE%,
  4325. ):k%=!_EVNTS_PANES_ANCHOR%:k%+=b%:$k%=A$:k%!&C=IB%:k%!20=o%:k%!24=UC%:k%!28=VC%:
  4326. !_EVNTS_PANES_DATA%=0
  4327. +S#!_EVNTS_PANES_DATA%=
  4328. (e$)+1)
  4329. :iA%=k%+16:
  4330. Q(iA%,_EVNTS_PANES_DATA%,_EVNTS_PANES_DATAOFFSET%,e$):
  4331. _E(a%):
  4332. _c_WinMWPane_NotCreated%
  4333. zE(a%,u%,_c_WinMWPane_PanePos%,_c_WinMWPane_XPos%,_c_WinMWPane_YPos%):
  4334. _WinSave_GetNativeFileType:=_c_WinSave_FileType%
  4335. EB:=QQ%
  4336. wC:=mC$
  4337. AF(OA$):
  4338. jA("UtilityModule",3.5)
  4339. OA$<>""
  4340. LB$=OA$
  4341. _c_Fonts_CurrentDeskTopFont%=_c_Fonts_DeskTopFont_NotKnown%
  4342. &600F2,_c_Fonts_ReadDeskTopFont_Reason%
  4343. _c_Fonts_CurrentDeskTopFont%
  4344. :=_c_Fonts_CurrentDeskTopFont%
  4345. mI%,nI%,nA$:
  4346. fA%,qA%,rA%,sA%,QA%:
  4347. &406C0:
  4348. tB(fA%,qA%,rA%,sA%):
  4349. fA%<>-1
  4350. vE(_B$,fA%,qA%,rA%,sA%)
  4351. E(_B$,SA%):
  4352. _E(SA%):mI%=
  4353. _WinSave_GetNativeFileType:nI%=
  4354. EB:nA$=
  4355. AF("_Win_Main_DeskFontChanged"):
  4356. _(SA%,HF%,cJ%):
  4357. lH%=-1
  4358. kB(SA%,lH%):mM%=
  4359. &406C1:
  4360. CF(ME%,nN%,O$,U$):
  4361. g%,fB%,t%,YB%:
  4362. _U%!&DC=0
  4363. _U%!&DC=
  4364. B(32):g%=_U%!&DC:g%!0=ME%:g%!4=
  4365. O$+1):$(g%!4)=O$:g%!8=nN%:g%!&C=
  4366. U$+1):$(g%!&C)=U$:g%!16=-1:g%!20=-1:g%!24=-1:g%!28=-1
  4367. U(_U%!&DC,32):_U%!&DC=YB%:t%=0:
  4368. :t%+=16:
  4369. YB%!t%=-1:g%=_U%!&DC:g%!t%=ME%:g%!(t%+4)=
  4370. O$+1):fB%=g%!(t%+4):$(fB%)=O$:g%!(t%+8)=nN%:g%!(t%+&C)=
  4371. U$+1):fB%=g%!(t%+&C):$(fB%)=U$:g%!(t%+16)=-1:g%!(t%+20)=-1:g%!(t%+24)=-1:g%!(t%+28)=-1
  4372. DF(ME%,PF%,O$):
  4373. &45BCE,ME%,PF%:
  4374. O$<>""
  4375. &45BCC,,
  4376. CF(ME%,PF%,O$,"")
  4377. &406C0:jE%=
  4378. A("MainMenu"),VC$,0):_N%=
  4379. A("AddTape"),"_MenuSelect_NewTape"):TS%=
  4380. A("DelTape"),"_MenuSelect_DelTape"):KR%=
  4381. A("RenumTape"),"_MenuSelect_RenTape"):iN%=
  4382. A("Selection"),""):DM%=
  4383. A("Reports"),"")
  4384. A("NewRec"),"_Win_FSp_MenuSelect"):lT%=
  4385. A("NotePad"),"_MenuSelect_NotePad"):IM%=
  4386. A("SaveData"),""):yN%=
  4387. A("SelMenu"),"Selection_Menu",0):jP%=
  4388. A("SelAll"),"_MenuSelect_SelAll"):hN%=
  4389. A("SelClear"),"_MenuSelect_SelClear")
  4390. A("SelDel"),"_MenuSelect_SelDel"):bR%=
  4391. A("SelCreate"),"_MenuSelect_SelCreate"):kR%=
  4392. A("SelUnseen"),"_MenuSelect_SelUnseen"):yP%=
  4393. A("SelLocked"),"_MenuSelect_SelLocked"):RL%=
  4394. A("SetLocked"),"_MenuSelect_SelSetLocked")
  4395. A("SetUnLockd"),"_MenuSelect_SelSetUnLocked"):aN%=
  4396. A("SetUnseen"),"_MenuSelect_SelSetUnseen"):ZL%=
  4397. A("SetSeen"),"_MenuSelect_SelSetSeen"):
  4398. DF(iN%,yN%,""):
  4399. NA(DM%,"report","_PreOpen_Report","")
  4400. NA(IM%,"xfer_send","_PreOpen_Xfer",""):
  4401. Y("A",
  4402. ,"",0,"_MenuSelect_SelAll",""):
  4403. Y("X",
  4404. ,"",0,"_MenuSelect_SelDel",""):
  4405. Y("Z",
  4406. ,"",0,"_MenuSelect_SelClear",""):
  4407. &406C1:
  4408. FF(a%):
  4409. jE%=_c_Menu_Main_NotCreated%
  4410. mA(l%):
  4411. OB%:OB%=
  4412. B(&800):
  4413. &400D6,l%,OB%,&40E000,&E000:
  4414. !OB%<>-1
  4415. nB(l%,!OB%):
  4416. W(l%,!OB%)
  4417. B(OB%):
  4418. &406C0:
  4419. oN%=-1:ZC$=
  4420. A("fsp_tempm"):RC$=
  4421. A("fsp_tempp"):RQ%=
  4422. A("fsp_ok")):uC%=
  4423. A("fsp_find")):rT%=
  4424. A("fsp_inc")):sT%=
  4425. A("fsp_dec")):SQ%=
  4426. A("fsp_can")):SH%=
  4427. A("fsp_sp")):TH%=
  4428. A("fsp_lp")):YN%=
  4429. A("fsp_either")):_P%=
  4430. A("fsp_hmdis"))
  4431. A("fsp_hmdism")):bP%=
  4432. A("fsp_esg")):aC$=
  4433. A("fsp_hotk"):qB$=
  4434. A("fsp_warnch"):zT%=
  4435. A("fsp_panet")):AU%=&DC:EU%=-60:OJ%=
  4436. A("fsp_sty")):HG%=
  4437. A("fsp_ldep")):YQ%=
  4438. A("fsp_idoff")):ZQ%=
  4439. A("fsp_lnoff")):aQ%=
  4440. A("fsp_spoff")):RE%=0:KJ%=1
  4441. ,OhIJ%=-1:JJ%=-1:XQ%=7:VQ%=0:UQ%=&B:dK%=-1:XC$="":WQ%=-1:CB%=oN%:bD%=oN%:GG%=0:PJ%=0:PE%=
  4442. :cG%=-1:QL%=
  4443. &406C1:
  4444. CB%=_c_WinFSp_NotCreated%
  4445. E(ZC$,CB%):
  4446. Y(aC$,
  4447. ,"",CB%,"_Win_FSp_ShowWindow","")
  4448. &406C0:
  4449. ,p{SI%=-1:gQ%=
  4450. A("wdt_iok")):fQ%=
  4451. A("wdt_ican")):BI%=
  4452. A("wdt_iid")):FU%=
  4453. A("wsel_iidm")):rB$=
  4454. A("wdt_templ"):cO%=
  4455. &406C1:
  4456. DD%=SI%
  4457. E(rB$,DD%)
  4458. &406C0:sB$=
  4459. A("wrep_templ"):cC$=
  4460. A("wrep_hotk"):dC$="":eC$=
  4461. A("wrep_defnam"):GU%=
  4462. A("wrep_widdef")):HU%=
  4463. A("wrep_sdef")):pN%=
  4464. A("wrep_iall")):hG%=
  4465. A("wrep_isel")):MU%=
  4466. A("wrep_itext")):NU%=
  4467. A("wrep_icsv")):OU%=
  4468. A("wrep_itsv"))
  4469. A("wrep_ifnam")):kQ%=
  4470. A("wrep_ican")):lQ%=
  4471. A("wrep_idir")):EI%=
  4472. A("wrep_itwid")):FI%=
  4473. A("wrep_iswid")):mQ%=
  4474. A("wrep_iset")):
  4475. Y(cC$,
  4476. ,sB$,0,"_PreOpen_Report",""):qN%=
  4477. :BN%=
  4478. &406C1:
  4479. &406C0:
  4480. A("wsel_iok")):pQ%=
  4481. A("wsel_ican")):qQ%=
  4482. A("wsel_iadd")):rQ%=
  4483. A("wsel_iunsee")):sQ%=
  4484. A("wsel_ilock")):tQ%=
  4485. A("wsel_itit")):jU%=
  4486. A("wsel_ititm")):uQ%=
  4487. A("wsel_isub")):rU%=
  4488. A("wsel_isubm")):YF%=
  4489. A("wsel_iall"))
  4490. A("wsel_ifrom")):HI%=
  4491. A("wsel_ito")):vQ%=
  4492. A("wsel_ifromm")):wQ%=
  4493. A("wsel_itom")):JB$=
  4494. A("wsel_templ"):gC$=
  4495. A("wsel_hotk"):vL%=
  4496. &406C1:
  4497. nB%=HH%
  4498. E(JB$,nB%)
  4499. Y(gC$,
  4500. ,"",nB%,"_Win_Select_PreOpen",""):
  4501. fA%,qA%,rA%,sA%:
  4502. SA%=CD%
  4503. tB(fA%,qA%,rA%,sA%):
  4504. fA%=-1
  4505. lC(SA%)
  4506. :hM%=
  4507. FF(SA%):
  4508. P(SA%):
  4509. mA(SA%):
  4510. SA%=CD%
  4511. _ClickSelect_IconBar(a%,f%):
  4512. NF:=0
  4513. kA:=VM%
  4514. OF:y%!20=-1:y%!28=-1:y%!36=-1:y%!40=-1:y%!88=-1:
  4515. GC:PA%=
  4516. B(8):PA%!0=_c_Idx_Recs_ListTerminator%:PA%!4=_c_Idx_Recs_ListTerminator%:
  4517. PA(PA%):_c_Idx_Recs_UnusedSlots%=1:
  4518. KA(E$,RA$):
  4519. E$,1)=RA$:E$=
  4520. (E$)-1):
  4521. nB(C$):
  4522. uB$:uB$=
  4523. KA(C$," "):=uB$
  4524. GA(JA%,C$):C$=
  4525. nB(C$):
  4526. C$<>""
  4527. JA%!0=
  4528. C$+1):$(JA%!0)=C$
  4529. JA%!0=-1
  4530. T(CA%,BC%):
  4531. o%:o%=CA%?9:
  4532. o%=o%
  4533. o%=o%
  4534. :CA%?9=o%:
  4535. AD(F$):
  4536. vB$:vB$=
  4537. KA(F$," "):=vB$
  4538. HA(JA%,F$):F$=
  4539. AD(F$):
  4540. F$<>""
  4541. JA%!4=
  4542. F$+1):$(JA%!4)=F$
  4543. JA%!4=-1
  4544. IA(j%,Q$):
  4545. Q$="Unknown"
  4546. -Q    Q$=""
  4547. Q$<>""
  4548. -U!j%!36=
  4549. (Q$)+1):$(j%!36)=Q$
  4550. j%!36=-1
  4551. x(CA%):
  4552. CA%!32=-1
  4553. -b    p$=""
  4554. p$=$(CA%!32)
  4555. oA(CA%,G$,ZF%):
  4556. x(CA%)<>""
  4557. CA%!32=-1:CA%!44=-1
  4558. G$<>""
  4559. -q6dE%=
  4560. (G$)+1):$(dE%)=G$:CA%!32=dE%:CA%!44=ZF%:
  4561. l(CA%,BC%):
  4562. q(CA%)=
  4563. o%=CA%?9:
  4564. o%=o%
  4565. o%=o%
  4566. (1<<7)
  4567. :CA%?9=o%
  4568. CC:y%!16=y%!16+1:
  4569. PA%:PA%=
  4570. _c_Idx_Recs_UnusedSlots%=0
  4571. aPA%=
  4572. U(PA%,_c_Idx_Recs_ClaimSize%):_c_Idx_Recs_UnusedSlots%=_c_Idx_Recs_ClaimSize%/4:
  4573. PA(PA%)
  4574. XA:=wJ%
  4575. DC(iG%):
  4576. q%,YA%:
  4577. XF:q%=
  4578. G:YA%=
  4579. &400F1,_U%!&94,q%,_U%!&94,q%+4,(YA%)*4:!q%=iG%
  4580. q%!((YA%-1)*4)=iG%:q%!((YA%)*4)=_c_Idx_Recs_ListTerminator%
  4581. :_c_Idx_Recs_UnusedSlots%-=1:
  4582. qA(mA%):y%!36=mA%:
  4583. aF(VB%):
  4584. GA%:GA%=
  4585. B((VB%*4)+8):GA%!0=_c_Idx_Tape_ListTerminator%:GA%!4=_c_Idx_Tape_ListTerminator%:
  4586. qA(GA%):
  4587. EC:y%!&C+=1:
  4588. cF(II%):
  4589. GA%,VB%:GA%=
  4590. d:VB%=
  4591. K:GA%!((VB%-1)*4)=II%:GA%!((VB%)*4)=_c_Idx_Tape_ListTerminator%:
  4592. FC(w%,IA$):
  4593. RA%:RA%=
  4594. j(w%):
  4595. RA%=-1
  4596. 99,"Tape id not found in tape list"
  4597. :RA%!20=
  4598. (IA$)+1):$(RA%!20)=IA$:
  4599. rA(TF%,G$):
  4600. QA(TF%)<>""
  4601. TF%!&C=-1
  4602. G$<>""
  4603. +dE%=
  4604. (G$)+1):$(dE%)=G$:TF%!&C=dE%:
  4605. jA%,eE%,x%,sN%:sN%=
  4606. BA(l%):jA%=
  4607. B(&64+(
  4608. z(l%)*32)):!jA%=l%:
  4609. &400CC,,jA%:eE%=jA%!60:
  4610. (1<<3))
  4611. eE%=eE%
  4612. (1<<3)
  4613. :eE%=eE%
  4614. (1<<9):jA%!60=eE%:
  4615. &400C3,,jA%:
  4616. &400C1,,jA%+4
  4617. l%<>x%
  4618. w(l%,x%):l%=x%
  4619. f(x%,0,0)
  4620. B(jA%):
  4621. HC(B$):
  4622. SA%=CD%
  4623. i(SA%,B$):
  4624. _WinSave_GetDefaultFileName
  4625. fF(SA%)
  4626. mA(SA%):zM%=
  4627. :YG%=
  4628. NB%<>MG%
  4629. dA(NB%):NB%=MG%
  4630. wB%<>DG%
  4631. H(wB%)
  4632. :qI%=
  4633. DD:=y%!32
  4634. SA%<>CD%
  4635. ZB(SA%):
  4636. q$,2)=" *"
  4637. i(SA%,
  4638. q$-2))
  4639. :YG%=
  4640. sA:dJ%=
  4641. LC(mA%,ZF%,B$,pB%):
  4642. i%,h%,YA%,VB%,n%,mC%:
  4643. c%,rK%,XA%,VD%,Q$,PA%:
  4644. r$,G$,sK%:
  4645. .d    VD%=
  4646. A("filemodc"),
  4647. O,""):
  4648. XA%=2
  4649. .h    VD%=
  4650. _ClickSelect_IconBar(0,0):
  4651. &406C0:
  4652. t:wJ%=
  4653. (B$):y%=
  4654. &C,4,h%,
  4655. ,,,,c%:
  4656. OF:rK%=
  4657. PA:VB%=
  4658. K:YA%=
  4659. N:rK%!&C=0:rK%!16=0:
  4660. vN%=0
  4661. YA%-1:n%=
  4662. B(yH%+16):
  4663. &C,4,h%,n%,yH%:
  4664. n%!0>&8000
  4665. GA(n%,C$)
  4666. n%!0=-1:
  4667. O(n%,
  4668. T(n%,
  4669. n%!4>&8000
  4670. n%!4=-1:F$=
  4671. HA(n%,F$)
  4672. n%!4=-1
  4673. n%!36>&8000
  4674. n%!36=-1:Q$=
  4675. IA(n%,Q$)
  4676. n%!36=-1
  4677. n%!32>&8000
  4678. %n%!32=-1:G$=
  4679. oA(n%,G$,n%!44)
  4680. n%!32=-1:n%!44=-1
  4681. l(n%,
  4682. DC(n%):PA%=
  4683. IA(PA%!(vN%*4))=
  4684. aF(VB%):
  4685. VB%-1:mC%=
  4686. B(xH%+4):
  4687. &C,4,h%,mC%,xH%:
  4688. cF(mC%):
  4689. mC%!20>&8000
  4690. e(mC%),r$)
  4691. mC%!&C>&8000
  4692. rA(mC%,G$)
  4693. :mS%=
  4694. HC(B$):
  4695. mF:VA$=B$:
  4696. &406C1:wJ%=
  4697. &406C1:sK%=
  4698. sK%<>-1
  4699. I(sK%)
  4700. _Win_IBar_LoadNativeType(mA%,ZF%,B$,pB%):
  4701. LC(mA%,ZF%,B$,pB%):=0
  4702. ED:=_m_ShareBan_User$
  4703. _PreOpenInfo(a%):
  4704. A(a%,0,
  4705. A(_c_PInfo_MessTag_Prog$),
  4706. A(a%,1,
  4707. A(_c_PInfo_MessTag_Purpose$),
  4708. A(a%,2,
  4709. A(_c_PInfo_MessTag_Author$),
  4710. A(a%,3,
  4711. A(_c_PInfo_MessTag_Version$),
  4712. A(a%,8,
  4713. ED,0)
  4714. _NT_bump_id(oA%,QC%):
  4715. Y=eN%
  4716. w(oA%))
  4717. fA(oA%))
  4718. Y=eN%
  4719. fA(oA%))
  4720. w(oA%))
  4721. NB%<>MG%
  4722. H(NB%)
  4723. :yA$="":
  4724. _ClickSelect_NTCan(a%,f%):
  4725. MC:=0
  4726. GA%,sB%:GA%=
  4727. GA%<>-1
  4728. /B    sB%=
  4729. :=sB%
  4730. GA%,VB%:
  4731. :GA%=
  4732. d:VB%=
  4733. K:GA%=
  4734. U(GA%,4):
  4735. qA(GA%):
  4736. :GA%=
  4737. B(8):GA%!0=_c_Idx_Tape_ListTerminator%:GA%!4=_c_Idx_Tape_ListTerminator%:
  4738. qA(GA%):
  4739. tF(II%):
  4740. GA%,VB%:
  4741. :GA%=
  4742. d:VB%=
  4743. &400F1,_U%!&94,GA%,_U%!&94,GA%+4,(VB%)*4:!GA%=II%
  4744. GA%!((VB%-1)*4)=II%:GA%!((VB%)*4)=_c_Idx_Tape_ListTerminator%
  4745. uF(w%):
  4746. vF(wN%):
  4747. I(wN%):
  4748. C(u%,_c_WinMWPane_Notes_Icon%,(
  4749. j(wN%))="")):
  4750. NC(_B%,gE%,JA$):
  4751. nC%:nC%=
  4752. B(xH%):nC%!0=_B%:nC%!4=gE%:nC%!8=0:nC%!&C=-1:nC%!16=0:
  4753. JA$=""
  4754. nC%!20=-1
  4755. nC%!20=
  4756. (JA$)+1):$(nC%!20)=JA$
  4757. :nC%!24=0:
  4758. tF(nC%):
  4759. uF(_B%):
  4760. vF(_B%)
  4761. OC:y%!24=y%!24+1:
  4762. B(yH%)
  4763. yF(JA%,AA$):AA$=
  4764. nB(AA$):
  4765. AA$<>""
  4766. #JA%!40=
  4767. AA$+1):$(JA%!40)=AA$
  4768. JA%!40=-1
  4769. HD(N$):
  4770. gA$:gA$=
  4771. KA(N$," "):=gA$
  4772. tA(JA%,N$):
  4773. N$<>""
  4774. MgA$=
  4775. HD(N$):JA%?&C=
  4776. N$,2)):JA%?&D=
  4777. N$,4,2)):JA%?&E=
  4778. N$,2)):JA%?&F=0
  4779. JA%?&C=0:JA%?&D=0:JA%?&E=0:JA%?&F=0
  4780. _F(w%):
  4781. PA%:PA%=
  4782. l:PA%=
  4783. U(PA%,4):
  4784. u(PA%):
  4785. PA%:PA%=
  4786. B(8):PA%!0=_c_Idx_Gaps_ListTerminator%:PA%!4=_c_Idx_Gaps_ListTerminator%:
  4787. u(PA%):
  4788. I%,QD%,tB%,RD%,SD%:
  4789. &406C0:
  4790. :QD%=
  4791. v-2:RD%=tB%!(I%*4):SD%=tB%!((I%+1)*4):
  4792. D(RD%)>
  4793. D(SD%)
  4794. tB%!(I%*4),tB%!((I%+1)*4):QD%=
  4795. D(RD%)=
  4796. D(SD%)
  4797. H(RD%)>
  4798. H(SD%)
  4799. tB%!(I%*4),tB%!((I%+1)*4):QD%=
  4800. &406C1:
  4801. DG(iG%):
  4802. q%,YA%:
  4803. l:YA%=
  4804. &400F1,_U%!&94,q%,_U%!&94,q%+4,(YA%)*4:!q%=iG%
  4805. q%!((YA%-1)*4)=iG%:q%!((YA%)*4)=_c_Idx_Gaps_ListTerminator%
  4806. uA(C$,AA$,F$,N$,w%,AD%,DB%,cB%,BD%,AE%,Q$):
  4807. DB%>1
  4808. GA(JA%,C$):
  4809. yF(JA%,AA$):
  4810. HA(JA%,F$):
  4811. tA(JA%,N$):
  4812. aB(JA%,w%):
  4813. b(JA%,AD%):
  4814. D(JA%,DB%):JA%!8=0:
  4815. CA(JA%,cB%):
  4816. O(JA%,BD%):
  4817. T(JA%,AE%):JA%!28=0:JA%!32=-1:
  4818. IA(JA%,Q$):JA%!44=-1:
  4819. _F(w%):
  4820. DC(JA%):
  4821. C$="*GAP*"
  4822. C$=""
  4823. DG(JA%)
  4824. p(w%,AD%,DB%,cB%):
  4825. uA("","","","",w%,AD%,DB%,cB%,
  4826. ,""):
  4827. pB:=MQ%
  4828. _ClickSelect_NTOK(a%,f%):
  4829. _B%,gE%,cB%,d$,p%,JA$:
  4830. &406C0:_B%=
  4831. C(a%,iK%)):JA$=
  4832. C(a%,dQ%):d$=
  4833. C(a%,CK%):
  4834. (d$):
  4835. (d$)=0
  4836. d$,2)
  4837. p%:gE%=
  4838. (d$):
  4839. gE%<=0
  4840. A("atwinnolen")
  4841. T(a%,tM%)
  4842.     cB%=
  4843. NC(_B%,gE%,JA$):
  4844. p(_B%,
  4845. pB,gE%*2,cB%)
  4846. p(_B%,
  4847. pB,gE%,cB%)
  4848. I(_B%):
  4849. yA$<>""
  4850. j(_B%):
  4851. rA(RA%,yA$):
  4852. &406C1:=0
  4853. QC(l%,QH%,
  4854. gA%):
  4855. zN%:zN%=(QH%<<16)+(1<<21):
  4856. &400D6,l%,gA%,zN%,(QH%<<16)+(1<<21):
  4857. JD:=_c_Menu_TLen_Default_Len$
  4858. _PreOpen_NewTape(a%):
  4859. oA%,gA%:gA%=
  4860. B(60):FO%=2:
  4861. QC(NB%,FO%,gA%):
  4862. !gA%=-1
  4863. z(NB%,tM%,
  4864. QC(NB%,iR%,gA%):
  4865. gA%!0=-1
  4866. z(NB%,hP%,
  4867. :oA%=
  4868. C(NB%,iK%)):
  4869. A(NB%,iK%,
  4870. w(oA%)),
  4871. C(NB%,CK%)=""
  4872. A(NB%,CK%,
  4873. C(NB%,SR%,
  4874. S(NB%):=0
  4875. _EditRec_LinkFile(hE%,KA%,B$,iE%):
  4876. oA(WD%,B$,KA%):
  4877. C(pA%,_c_Win_ERec_IconHandle_Notes%,
  4878. _EditRec_IconWatch_End(j$):
  4879. oC%,XD%,TA%:
  4880. (j$)=4
  4881. _decode_dis(j$):oC%=
  4882. _decode_dis(
  4883. C(pA%,_c_Win_ERec_IconHandle_Start%)):TA%=XD%-oC%:
  4884. A(pA%,_c_Win_ERec_IconHandle_Length%,
  4885. _dis_fn(TA%,0),
  4886. _EditRec_IconWatch_Length(j$):
  4887. oC%,TA%,lG%:
  4888. (j$)=4
  4889. _decode_dis(j$):oC%=
  4890. _decode_dis(
  4891. C(pA%,_c_Win_ERec_IconHandle_Start%)):lG%=oC%+TA%:
  4892. A(pA%,_c_Win_ERec_IconHandle_End%,
  4893. _dis_fn(lG%,0),
  4894. qB(j%):
  4895. s%,EB%:EB%=
  4896. Z(j%):
  4897. n(EB%)
  4898. HG(r%,EB%,xA%,TA%):
  4899. XA%,BO%,yK%:XA%=
  4900. A("werc_dln"),
  4901. O,""):
  4902. XA%=1
  4903. 8BO%=
  4904. F(EB%):
  4905. D(EB%,BO%-(TA%-xA%)):yK%=
  4906. H(EB%):
  4907. b(EB%,yK%+(TA%-xA%)):yK%=
  4908. H(EB%)
  4909. IG(a%):
  4910. BA$,qC$,KA$,UA$,CA$,d$,TA%:
  4911. r%,EB%,xA%,bF%,w%,XA%,XD%,KI%:
  4912. _K%:BA$=
  4913. C(a%,_c_Win_ERec_IconHandle_Title%):KA$=
  4914. C(a%,_c_Win_ERec_IconHandle_Subject%):UA$=
  4915. C(a%,_c_Win_ERec_IconHandle_Date%):CA$=
  4916. C(a%,_c_Win_ERec_IconHandle_Channel%)
  4917. JXD%=
  4918. _decode_dis3(
  4919. C(a%,_c_Win_ERec_IconHandle_End%)):_K%=
  4920. SA(WD%)
  4921. KI%=9999
  4922. Z(WD%))
  4923. CA$="Unknown"
  4924. CA$=""
  4925. C(a%,_c_Win_ERec_IconHandle_Length%):TA%=
  4926. _decode_dis(d$):r%=WD%:
  4927. BA$=""
  4928. A("notitle"))
  4929. :EB%=
  4930. Z(r%):
  4931. F(r%)
  4932. HA(r%)=
  4933. F(EB%)+
  4934. F(r%))<TA%
  4935. A("edtoolong"))
  4936. r%!0>0
  4937. B(r%!0)
  4938. r%!4>0
  4939. B(r%!4)
  4940. r%!40>0
  4941. B(r%!40)
  4942. GA(r%,BA$):
  4943. HA(r%,KA$):xA%=
  4944. F(r%):
  4945. D(r%,TA%):
  4946. IA(r%,CA$):
  4947. T(a%,_c_Win_ERec_IconHandle_Locked%)
  4948. O(r%,
  4949. O(r%,
  4950. T(a%,_c_Win_ERec_IconHandle_Seen%)
  4951. T(r%,
  4952. T(r%,
  4953. tA(r%,UA$):
  4954. F(r%)<>xA%
  4955. HA(r%)
  4956. qB(r%)=
  4957. J(r%)=
  4958. J(EB%)
  4959. TA%<>xA%
  4960. (TA%-xA%)>
  4961. F(EB%)
  4962. D(r%,xA%):
  4963. A("werc_tlng")
  4964. (TA%-xA%)=
  4965. F(EB%)
  4966. D(r%,xA%):
  4967. A("werc_delgp")
  4968. bF%=xA%-TA%:
  4969. b(EB%,
  4970. H(EB%)-bF%):
  4971. D(EB%,
  4972. F(EB%)+bF%)
  4973. D(r%,xA%):
  4974. A("werc_delgp")
  4975. D(r%,xA%):
  4976. A("werc_splp")
  4977. TA%>xA%
  4978. HG(r%,EB%,xA%,TA%):_K%=
  4979. D(r%):
  4980. p(w%,
  4981. H(r%)+TA%,xA%-TA%,(
  4982. J(r%)="L"))
  4983. TA%>xA%
  4984. D(r%):XA%=
  4985. A("werc_incln"),
  4986. O,""):
  4987. XA%=1
  4988. D(r%,xA%):
  4989. A("werc_incerr")
  4990. D(r%):
  4991. p(w%,
  4992. H(r%)+TA%,xA%-TA%,(
  4993. J(r%)="L"))
  4994. XD%<>KI%
  4995. KI%<>9999
  4996. Z(WD%),XD%)
  4997. pA%<>_c_Win_ERec_WindowNotCreated%
  4998. H(pA%)
  4999. :gJ%=
  5000. rB(CA%):
  5001. CA%!32=-1
  5002. KA%=-1
  5003. KA%=CA%!44
  5004. :=KA%
  5005. _EditRec_Click(a%,f%):
  5006. _c_Win_ERec_IconHandle_OK%:
  5007. IG(a%):
  5008. _c_Win_ERec_IconHandle_Cancel%:
  5009. _c_Win_ERec_IconHandle_Clear%:
  5010. A(a%,_c_Win_ERec_IconHandle_Title%,"",
  5011. A(a%,_c_Win_ERec_IconHandle_Subject%,"",
  5012. _c_Win_ERec_IconHandle_Notes%:
  5013. x(WD%)<>""
  5014. rB(WD%),
  5015. x(WD%))
  5016. &406C0:
  5017. _c_Win_ERec_IconHandle_OK%=
  5018. A("werc_iok")):_c_Win_ERec_IconHandle_Title%=
  5019. A("werc_itit")):_c_Win_ERec_IconHandle_Title_M%=
  5020. A("werc_ititm")):_c_Win_ERec_IconHandle_Subject%=
  5021. A("werc_isub")):_c_Win_ERec_IconHandle_Subject_M%=
  5022. A("werc_isubm"))
  5023. _c_Win_ERec_IconHandle_TID%=
  5024. A("werc_itid")):_c_Win_ERec_IconHandle_Length%=
  5025. A("werc_ilen")):_c_Win_ERec_IconHandle_LengthInc%=
  5026. A("werc_ileni")):_c_Win_ERec_IconHandle_LengthDec%=
  5027. A("werc_ilend"))
  5028. _c_Win_ERec_IconHandle_Channel%=
  5029. A("werc_ichan")):_c_Win_ERec_IconHandle_Channel_M%=
  5030. A("werc_ichanm")):_c_Win_ERec_IconHandle_Date%=
  5031. A("werc_idat")):_c_Win_ERec_IconHandle_Date_M%=
  5032. A("werc_idatm"))
  5033. _c_Win_ERec_IconHandle_Clear%=
  5034. A("werc_iclr")):_c_Win_ERec_IconHandle_Cancel%=
  5035. A("werc_ican")):_c_Win_ERec_IconHandle_Start%=
  5036. A("werc_istart")):_c_Win_ERec_IconHandle_Notes%=
  5037. A("werc_inotes")):_c_Win_ERec_IconHandle_Title2%=
  5038. A("werc_itit2"))
  5039. _c_Win_ERec_IconHandle_SPLP%=
  5040. A("werc_isplp")):_c_Win_ERec_IconHandle_Locked%=
  5041. A("werc_ilock")):_c_Win_ERec_IconHandle_Seen%=
  5042. A("werc_iseen")):_c_Win_ERec_IconHandle_End%=
  5043. A("werc_iend")):_c_Win_ERec_IconHandle_EndDec%=
  5044. A("werc_iendi"))
  5045. _c_Win_ERec_IconHandle_EndInc%=
  5046. A("werc_iendd")):_c_Win_ERec_WindowNotCreated%=-1:_c_Win_ERec_WindowTemplateName$=
  5047. A("werc_templ"):pA%=_c_Win_ERec_WindowNotCreated%:WD%=-1:
  5048. E(_c_Win_ERec_WindowTemplateName$,pA%):RJ%=
  5049. &406C1:
  5050. FB(CA%):
  5051. N$:N$=
  5052. "00"+
  5053. (CA%?&C),2)+".":N$+=
  5054. "00"+
  5055. (CA%?&D),2)+".":N$+=
  5056. "00"+
  5057. (CA%?&E),2):=N$
  5058. LA(CA%):
  5059. IA(CA%)=
  5060. CA%!4=-1
  5061. 28    F$=""
  5062. IA(CA%!0)=
  5063. F$=$(CA%!4)
  5064. 66," Bad subject heapblock found.."
  5065. 66," Bad record heapblock found.."
  5066. HB(j%):
  5067. IA(j%!36)
  5068. Q$=$(j%!36)
  5069. Q$=""
  5070. IB(CA%):
  5071. AL%,o%:o%=CA%?9:
  5072. 2T    AL%=
  5073. :=AL%
  5074. _Win_ERec_PreOpen(a%,j%):
  5075. N$,_$:
  5076. &406C0:
  5077. C(a%,_c_Win_ERec_IconHandle_Title2%,
  5078. x(j%)=""
  5079. C(a%,_c_Win_ERec_IconHandle_Notes%,
  5080. C(a%,_c_Win_ERec_IconHandle_Notes%,
  5081. FB(j%):
  5082. A(a%,_c_Win_ERec_IconHandle_Date%,N$,
  5083. A(pA%,_c_Win_ERec_IconHandle_TID%,
  5084. D(j%)),
  5085. A(pA%,_c_Win_ERec_IconHandle_Start%,
  5086. _dis_fn2(
  5087. H(j%),4),
  5088. SA(j%)
  5089. lC%=9999
  5090. Z(j%))
  5091. A(pA%,_c_Win_ERec_IconHandle_End%,
  5092. _dis_fn2(lC%,4),
  5093. A(pA%,_c_Win_ERec_IconHandle_Start%,
  5094. _dis_fn(
  5095. H(j%),4),
  5096. ):_$=
  5097. _dis_fn((
  5098. H(j%)+
  5099. F(j%)),4):
  5100. A(pA%,_c_Win_ERec_IconHandle_End%,_$,
  5101. A(pA%,_c_Win_ERec_IconHandle_Title%,
  5102. R(j%),
  5103. A(pA%,_c_Win_ERec_IconHandle_Subject%,
  5104. LA(j%),
  5105. A(pA%,_c_Win_ERec_IconHandle_Length%,
  5106. _dis_fn(
  5107. F(j%),4),
  5108. HB(j%)=""
  5109. A(pA%,_c_Win_ERec_IconHandle_Channel%,"Unknown",
  5110. A(pA%,_c_Win_ERec_IconHandle_Channel%,
  5111. HB(j%),
  5112. J(j%)="S"
  5113. A(pA%,_c_Win_ERec_IconHandle_SPLP%,"SP",
  5114. A(pA%,_c_Win_ERec_IconHandle_SPLP%,"LP",
  5115. K(pA%,_c_Win_ERec_IconHandle_Locked%,
  5116. s(j%)):
  5117. K(pA%,_c_Win_ERec_IconHandle_Seen%,
  5118. IB(j%)):WD%=j%:gJ%=
  5119. &406C1:
  5120. BA:=0
  5121. f:=y%!84
  5122. uB(yC%):
  5123. q%:q%=
  5124. c:=q%!(yC%*4)
  5125. vB:=_c_Idx_Sel_ListTerminator%
  5126. TC(KA%):
  5127. KA%=&DFE
  5128. (34);:
  5129. D(j%));:
  5130. (34);:
  5131. #h%,",";
  5132. "   "+
  5133. D(j%)),3)+" ";
  5134. KA%=&DFE
  5135. (34);:
  5136. R(j%);:
  5137. (34);:
  5138. #h%,",";
  5139. R(j%)," ")+
  5140. mG%,"."),mG%);
  5141. KA%=&DFE
  5142. (34);:
  5143. LA(j%);:
  5144. (34);:
  5145. #h%,",";
  5146. #h%," "+
  5147. LA(j%)," ")+
  5148. cF%,"."),cF%);
  5149. KA%=&DFE
  5150. (34);:
  5151. _dis_fn(
  5152. H(j%),0);:
  5153. (34);:
  5154. #h%,",";
  5155. "   "+
  5156. _dis_fn(
  5157. H(j%),0),5)+"  ";
  5158. KA%=&DFE
  5159. (34);:
  5160. _dis_fn(
  5161. F(j%),0);:
  5162. (34);:
  5163. #h%,",";
  5164. "   "+
  5165. _dis_fn(
  5166. F(j%),0),5)+"  ";
  5167. J(j%):
  5168. l$="L"
  5169. hA$="LP"
  5170. hA$="SP"
  5171. KA%=&DFE
  5172. (34);:
  5173. #h%,hA$;:
  5174. (34);:
  5175. #h%,",";
  5176. #h%,hA$;
  5177. KA%=&DFE
  5178. (34);:
  5179. FB(j%);:
  5180. #h%,"  "+
  5181. FB(j%)
  5182. JB(yC%):
  5183. q%:q%=
  5184. G:=q%!(yC%*4)
  5185. UC(QG%,B$,KA%):
  5186. h%,QA$,nG%:
  5187. WC%,c%,j%,l$:
  5188. hA$,mG%,cF%,PA%:
  5189. &406C0:mG%=
  5190. C(ZC%,EI%)):cF%=
  5191. C(ZC%,FI%)):h%=
  5192. (B$):QA$="VideoBase ":
  5193. QA$+="Partial "
  5194. KA%=&FFF
  5195. QA$+="Report (Created "+
  5196. $+")":
  5197. #h%,QA$:
  5198. #h%,"":
  5199. #h%," ID Title"+
  5200. mG%-4," ")+
  5201. "Subject"+
  5202. cF%,"  "),cF%)+"Start Length S/L      Date":
  5203. 31+mG%+cF%,
  5204. A("wrep_sep"))
  5205. :nG%=0:c%=0:
  5206. 3    2WC%=
  5207. uB(c%)<>
  5208. vB:j%=
  5209. uB(c%):
  5210. D(j%)<>nG%
  5211. #h%,&A:nG%=
  5212. D(j%)
  5213. TC(KA%):c%+=1:
  5214. JB(c%)<>_c_Idx_Recs_ListTerminator%:j%=
  5215. JB(c%):
  5216. D(j%)<>nG%
  5217. #h%,&A:nG%=
  5218. D(j%)
  5219. TC(KA%):c%+=1:
  5220. &FFF:
  5221. ("SetType "+B$+" FFF")
  5222. &DFE:
  5223. ("SetType "+B$+" DFE")
  5224. &406C1:
  5225. vA(B$,KA%):
  5226. T(ZC%,hG%)
  5227. ,B$,KA%)
  5228. ,B$,KA%)
  5229. _Win_Rep_DataSave_DFE(B$):
  5230. vA(B$,&DFE):=0
  5231. _Win_Rep_DataSave_FFF(B$):
  5232. vA(B$,&FFF):=0
  5233. UD:=FA%!28
  5234. VD:=FA%!32
  5235. _PreOpen_Report(EA%):M$=dC$:
  5236. M$=""
  5237. M$=eC$
  5238. A(EA%,jQ%,M$,
  5239. C(EA%,EI%)=""
  5240. A(EA%,EI%,
  5241. C(EA%,FI%)=""
  5242. A(EA%,FI%,
  5243. K(EA%,hG%,
  5244. K(EA%,pN%,
  5245. C(EA%,hG%,
  5246. K(EA%,pN%,
  5247. K(EA%,hG%,
  5248. C(EA%,hG%,
  5249. :qN%=
  5250. :ZC%=EA%:=0
  5251. ZC%=kM%
  5252. E(sB$,ZC%)
  5253. _PreOpen_Report(ZC%):
  5254. _ClickSelect_BBReport(l%,MA%):
  5255. S(ZC%):=0
  5256. wA:qN%=
  5257. H(ZC%):
  5258. TG(GA$):
  5259. L("<Wimp$ScrapDir>."+GA$)
  5260. ("Wipe <Wimp$ScrapDir>."+GA$+" ~CFR~V")
  5261. ("CDir <Wimp$ScrapDir>."+GA$):
  5262. UG(l%):
  5263. O):B$="<Wimp$ScrapDir>."+
  5264. O+".VBReport":
  5265. vA(B$,&FFF):
  5266. L(&FFF,B$):
  5267. VG(WR%,XR%):
  5268. yB(WR%):
  5269. hC(XR%):
  5270. _Win_Rep_ClickSelect(l%,MA%):
  5271. UG(l%):
  5272. C(ZC%,EI%)),
  5273. C(ZC%,FI%)))
  5274. _NewRec_LinkFile(hE%,KA%,B$,iE%):
  5275. oA(XF%,B$,KA%):
  5276. C(wB%,jK%,
  5277. _NewRec_IconWatch_End(j$):
  5278. oC%,XD%,TA%:
  5279. (j$)=4
  5280. `XD%=
  5281. _decode_dis(j$):oC%=
  5282. _decode_dis(
  5283. C(wB%,zH%)):TA%=XD%-oC%:
  5284. A(wB%,WF%,
  5285. _dis_fn(TA%,0),
  5286. _NewRec_IconWatch_Length(j$):
  5287. oC%,TA%,lG%:
  5288. (j$)=4
  5289. `TA%=
  5290. _decode_dis(j$):oC%=
  5291. _decode_dis(
  5292. C(wB%,zH%)):lG%=oC%+TA%:
  5293. A(wB%,_H%,
  5294. _dis_fn(lG%,0),
  5295. WD(YR%,ZR%):
  5296. D(YR%)=
  5297. D(ZR%)
  5298. q:y%!16-=1:
  5299. y%!16<0
  5300. y%!16=0
  5301. r:y%!24-=1:
  5302. y%!24<0
  5303. y%!24=0
  5304. yA(lE%,MI%):
  5305. IO%,JO%,DA%:
  5306. WD(lE%,MI%)
  5307. J(lE%)=
  5308. J(MI%)
  5309. F(lE%):JO%=
  5310. F(MI%):
  5311. D(lE%,IO%+JO%):DA%=
  5312. &400F1,_U%!&94,DA%+((
  5313. Q(lE%))*4)+8,_U%!&94,DA%+((
  5314. Q(lE%))*4)+4,((
  5315. N+1)*4)-(
  5316. Q(lE%)*4)+8:
  5317. n(MI%)
  5318. mA(n%):
  5319. q%,kA%:q%=
  5320. G:kA%=0:
  5321. q%!kA%<>n%:kA%+=4:
  5322. kA%/4>=
  5323. 88,"attempt to access beyond the last record in database - not implemented!"
  5324. :=q%!(kA%-4)
  5325. ZG(a%):
  5326. BA$,qC$,KA$,UA$,CA$:
  5327. d$,TA%,r%,xA%,cB%:
  5328. bF%,w%,AD%:BA$=
  5329. C(a%,gK%):KA$=
  5330. C(a%,hK%):UA$=
  5331. C(a%,bN%):CA$=
  5332. C(a%,JQ%):d$=
  5333. C(a%,WF%):TA%=
  5334. _decode_dis(d$):r%=
  5335. BA$=""
  5336. KA$<>""
  5337. A("notitle"))
  5338. F(r%)
  5339. r%!0>&8000
  5340. r%!0=-1
  5341. r%!4>&8000
  5342. r%!4=-1
  5343. r%!36>&8000
  5344. r%!36=-1
  5345. r%!40>&8000
  5346. r%!40=-1
  5347. GA(r%,BA$):
  5348. HA(r%,KA$):xA%=
  5349. F(r%):
  5350. D(r%,TA%):
  5351. T(a%,cN%)
  5352. O(r%,
  5353. O(r%,
  5354. J(r%)="L"
  5355. C(a%,TD%)="SP"
  5356. D(r%,xA%/2):
  5357. DA(r%)
  5358. J(r%)="S"
  5359. C(a%,TD%)="LP"
  5360. D(r%,xA%*2):
  5361. DA(r%)
  5362. C(a%,TD%)="SP"
  5363. CA(r%,
  5364. CA(r%,
  5365. tA(r%,UA$):
  5366. T(r%,
  5367. IA(r%,CA$):
  5368. F(r%)<xA%
  5369. J(r%)="L"
  5370.     cB%=
  5371. :bF%=xA%-TA%:w%=
  5372. D(r%):
  5373. P)+TA%
  5374. C(a%,_H%))
  5375. R(r%)<>"*GAP*"
  5376. uA("","","","",w%,AD%,bF%,cB%,
  5377. ,""):
  5378. n(r%)
  5379. qB(r%)
  5380. yA(r%,
  5381. Z(r%))
  5382. mA(r%))
  5383. mA(r%),r%)
  5384. DA(r%):
  5385. _NewRec_Click(a%,f%):
  5386. &406C0:
  5387. ZG(a%):
  5388. A(a%,gK%,"",
  5389. A(a%,hK%,"",
  5390. TD%:CL%=
  5391. _decode_dis(
  5392. C(a%,WF%)):
  5393. C(a%,TD%)="SP"
  5394. A(a%,TD%,"LP",
  5395. A(a%,WF%,
  5396. _dis_fn3(CL%*2,0),
  5397. A(a%,TD%,"SP",
  5398. A(a%,WF%,
  5399. _dis_fn3(CL%/2,0),
  5400. x(XF%)<>""
  5401. rB(XF%),
  5402. x(XF%))
  5403. &406C1:=0
  5404. _Win_Select_PreOpen(a%):
  5405. nB%=HH%
  5406. E(JB$,nB%)
  5407. C(nB%,GI%)=""
  5408. A(nB%,GI%,
  5409. C(nB%,HI%)=""
  5410. A(nB%,HI%,
  5411. S(nB%):=0
  5412. nB%=HH%
  5413. E(JB$,nB%)
  5414. _Win_Select_PreOpen(nB%):
  5415. _Win_Select_ShowWindow(a%):
  5416. XC:=0
  5417. WC%,c%:
  5418. AWC%=
  5419. c:c%=0:
  5420. WC%!c%<>_c_Idx_Sel_ListTerminator%:
  5421. q(WC%!c%)
  5422. l(WC%!c%,
  5423. :c%+=4:
  5424. YD(n%,C$):
  5425. R(n%)),
  5426. g(C$))
  5427. C$=""
  5428. ZD(n%,F$):
  5429. LA(n%)),
  5430. g(F$))
  5431. F$=""
  5432. PA%,c%,WC%:
  5433. h:PA%=
  5434. B(8):PA%!0=_c_Idx_Sel_ListTerminator%:PA%!4=_c_Idx_Sel_ListTerminator%:
  5435. QA(PA%):
  5436. aC:y%!84+=1:
  5437. bC(KB%):
  5438. &406C0:
  5439. ZC:q%=
  5440. c:!q%=KB%:
  5441. l(KB%,
  5442. &406C1:
  5443. PA%:PA%=
  5444. c:PA%=
  5445. U(PA%,4):
  5446. QA(PA%):
  5447. m(KB%):
  5448. q%,YA%,c%,z%,w%,NI%:
  5449. AD%,:
  5450. bC(KB%)
  5451. aC:q%=
  5452. c:YA%=
  5453. f:z%=-1:NI%=
  5454. D(KB%):LO%=
  5455. H(KB%):c%=0:
  5456. D(q%!((YA%-2)*4))<NI%
  5457. z%=(YA%-1)*4
  5458. D(q%!((YA%-2)*4))=NI%
  5459. H(q%!((YA%-2)*4))<LO%
  5460. z%=(YA%-1)*4
  5461. z%=-1
  5462. q%!c%<>
  5463. vB:w%=
  5464. D(q%!c%):
  5465. w%=NI%
  5466. 5w!AD%=
  5467. H(q%!c%):
  5468. AD%>LO%
  5469. z%=-1
  5470. 5y    z%=c%
  5471. :c%+=4:
  5472. z%=-1
  5473.     z%=c%
  5474. z%=(YA%-1)*4
  5475. 2q%!z%=KB%:q%!(z%+4)=_c_Idx_Sel_ListTerminator%
  5476. &400F1,_U%!&94,q%+z%,_U%!&94,q%+z%+4,(YA%*4)-(z%):q%!z%=KB%
  5477. l(KB%,
  5478. iG(gB%,OI%,PI%,AE%,BD%,C$,F$):
  5479. lA%,DA%,uB%,mE%,nE%:
  5480. &406C0:
  5481. OI%>PI%
  5482. OI%,PI%
  5483. OI%=-1
  5484. mE%=OI%
  5485. PI%=-1
  5486. nE%=PI%
  5487. :DA%=
  5488. :lA%=0:
  5489. DA%!lA%<>_c_Idx_Sel_ListTerminator%:
  5490. YD(DA%!lA%,C$)
  5491. ZD(DA%!lA%,F$)
  5492. D(DA%!lA%)>=mE%
  5493. D(DA%!lA%)<=nE%
  5494. n(DA%!lA%)=
  5495. IB(DA%!lA%)
  5496. s(DA%!lA%)
  5497. m(DA%!lA%)
  5498. m(DA%!lA%)
  5499. :lA%+=4:
  5500. &406C1:
  5501. zA:IP%=
  5502. H(nB%):
  5503. _Win_Select_ClickSelect(a%,f%):
  5504. mE%,nE%,gB%,MO%,BD%:
  5505. C$,BC$:
  5506. T(a%,YF%)
  5507. m:nE%=
  5508. C(a%,GI%)):nE%=
  5509. C(a%,HI%))
  5510. :gB%=
  5511. T(a%,qQ%):MO%=
  5512. T(a%,rQ%):BD%=
  5513. T(a%,sQ%):C$=
  5514. C(a%,tQ%):BC$=
  5515. C(a%,uQ%):
  5516. iG(gB%,mE%,nE%,MO%,BD%,C$,BC$):
  5517. C(a%,GI%,
  5518. T(a%,YF%)):
  5519. C(a%,HI%,
  5520. T(a%,YF%)):
  5521. C(a%,vQ%,
  5522. T(a%,YF%)):
  5523. C(a%,wQ%,
  5524. T(a%,YF%))
  5525. _Win_Select_MenuSelect(d%):
  5526. e%:e%=
  5527. _Win_Select_PreOpen(nB%):=0
  5528. kG(B$):
  5529. i(SA%,B$):
  5530. lG(B$):
  5531. DA%,h%,YA%,EL%,n%:
  5532. VB%,zD%,C$,F$,Q$:
  5533. r$,G$:
  5534. &406C0:DA%=
  5535. G:h%=
  5536. (B$):
  5537. &C,2,h%,
  5538. kA:YA%=
  5539. EL%=0
  5540. YA%-1:n%=DA%!(EL%*4):
  5541. R(n%),5)="*GAP*"
  5542. n%!0=-1
  5543. &C,2,h%,n%,yH%:C$=
  5544. R(n%):
  5545. C$<>"*GAP*"
  5546. #h%,C$
  5547. LA(n%):
  5548. F$<>""
  5549. #h%,F$
  5550. HB(n%):
  5551. Q$<>""
  5552. #h%,Q$
  5553. x(n%):
  5554. G$<>""
  5555. #h%,G$
  5556. EL%:VB%=
  5557. K:zD%=
  5558. VB%-1:mC%=zD%!(p%*4):
  5559. &C,2,h%,mC%,xH%:r$=
  5560. e(mC%)):
  5561. r$<>""
  5562. #h%,r$
  5563. QA(mC%):
  5564. G$<>""
  5565. #h%,G$
  5566. ("SetType "+B$+" "+
  5567. _WinSave_GetNativeFileType)):
  5568. sA:VA$=B$:
  5569. kG(VA$):
  5570. &406C1:
  5571. _DataSave_Xfer(vC$):
  5572. lG(vC$):=0
  5573. _ClickSelect_Xfer(a%,f%):
  5574. _c_WinSave_OK_Icon%:e%=
  5575. _DataSave_Xfer(
  5576. C(a%,_c_WinSave_FileName_Icon%)):
  5577. H(a%):
  5578. _c_WinSave_Cancel_Icon%:
  5579. H(a%):
  5580. aD:=VA$
  5581. _PreOpen_Xfer(a%):
  5582. B$:B$=
  5583. B$=""
  5584. 6laB$=_c_WinSave_DefaultFileName$:
  5585. A(a%,_c_WinSave_FileName_Icon%,_c_WinSave_DefaultFileName$,
  5586. A(a%,_c_WinSave_FileName_Icon%,B$,
  5587. A(a%,_c_WinSave_OK_Icon%,
  5588. A(_c_WinSave_MessTag_Save$),
  5589. A(a%,_c_WinSave_Cancel_Icon%,
  5590. A(_c_WinSave_MessTag_Cancel$),
  5591. _ClickSelect_BBSave(l%,MA%):
  5592. NB(_c_WinSave_TemplateName$,"_PreOpen_Xfer",""):=0
  5593. _ClickSelect_mainwp_Notes(a%,f%):
  5594. RA%,G$:RA%=
  5595. V):G$=
  5596. QA(RA%):
  5597. G$<>""
  5598. YA(G$),G$)
  5599. _Win_MWPane_LoadNativeType(mA%,ZF%,B$,pB%):
  5600. LC(mA%,ZF%,B$,pB%):=0
  5601. mG(B$):
  5602. OA(B$)+"."+IB$)=0
  5603. b(FB$,IB$))
  5604. OA(B$)+"."+GB$)=0
  5605. b(FB$,GB$))
  5606. OA(B$)+"."+MB$)=0
  5607. b(FB$,MB$))
  5608. h%,NO%,pG%,p%,LD%:pG%=
  5609. SB:h%=
  5610. (fA$+"."+IB$):
  5611. #h%,LD%:pG%!(p%*4)=LD%:
  5612. h%,NO%,pG%,e%:
  5613. p%,mR%,PD%,nR%,w%:NO%=
  5614. kA:pG%=
  5615. PA:h%=
  5616. (fA$+"."+GB$):
  5617. #h%,e%:
  5618. #h%,bO%:
  5619. #h%,CM%:
  5620. #h%,mR%:
  5621. #h%,PD%:
  5622. #h%,nR%:
  5623. PD%<>0
  5624. NC(w%,PD%,"")
  5625. h%,p%,C$,F$,iA$,GB%,qG%:
  5626. DB%,N$,cB%,BD%,QI%,qR%:
  5627. AE%:h%=
  5628. (fA$+"."+MB$):QI%=0:qR%=-1:
  5629. #h%,C$:
  5630. #h%,F$:
  5631. #h%,iA$:
  5632. #h%,GB%:
  5633. #h%,qG%:
  5634. #h%,DB%:
  5635. #h%,N$:
  5636. qG%>HL%
  5637. GB%<>QI%
  5638. GB%<>0
  5639. iA$,2,1)="L"
  5640.     cB%=
  5641. iA$,1)="*"
  5642.     BD%=
  5643. iA$,1)="*"
  5644.     AE%=
  5645. C$,5)="*GAP*"
  5646. C$=""
  5647. p(GB%,qG%,DB%,cB%)
  5648. uA(C$,"",F$,N$,GB%,qG%,DB%,cB%,BD%,AE%,"")
  5649. GB%<>QI%
  5650. QI%=GB%:
  5651. I(GB%)
  5652. :HL%=qG%
  5653. qG(wC$):
  5654. h%,mT%,HL%,p%,pG%,LD%,e%:fA$=wC$:
  5655. _WinSave_GetDefaultFileName):
  5656. KC:HL%=-1:
  5657. _ConvFile_LoadFile(mA%,MC%,B$,pB%):
  5658. VD%,XA%:
  5659. 7     VD%=
  5660. A("filemodc"),
  5661. O,""):
  5662. XA%=2
  5663. 7$    VD%=
  5664. mG(B$):
  5665. &406C0:sI%=
  5666. OA(B$)):sI%=
  5667. &406C1
  5668. _MWPane_DataLoad(hE%,KA%,B$,iE%):
  5669. e%,RA%,G$:
  5670. _WinSave_GetNativeFileType:e%=
  5671. _Win_MWPane_LoadNativeType(hE%,KA%,B$,iE%)
  5672. EB:e%=
  5673. _ConvFile_LoadFile(hE%,KA%,B$,iE%)
  5674. rA(RA%,B$):
  5675. C(u%,_c_WinMWPane_Notes_Icon%,
  5676. y("BubbleHelp$Running")
  5677. rG(JK%):
  5678. BE%:BE%=
  5679. B(256):BE%!0=28:BE%!&C=0:BE%!16=eQ%:BE%!20=JK%:BE%!24=0:
  5680. &400E7,18,BE%,0:
  5681. B(BE%):
  5682. rG(pR%):
  5683. y("Help$Dir")
  5684. y("Help$Start")
  5685. &400DE,"<Help$Start>"
  5686. &400DE,"Resources:$.Apps.!Help"
  5687. _ClickSelect_IntHelp(l%,MA%):
  5688. tG:=0
  5689. &406C0:
  5690. _c_Win_RenTap_WindowTemplateName$=
  5691. A("wre_templ"):_c_Win_RenTap_IconHandle_ok%=
  5692. A("wre_iok")):_c_Win_RenTap_IconHandle_cancel%=
  5693. A("wre_ican")):_c_Win_RenTap_IconHandle_Inc%=
  5694. A("wre_inewi")):_c_Win_RenTap_IconHandle_Dec%=
  5695. A("wre_inewd"))
  5696. _c_Win_RenTap_IconHandle_NewID%=
  5697. A("wre_inew")):_c_Win_RenTap_IconHandle_CurrID%=
  5698. A("wre_icurr")):SC%=_c_Win_RenTap_NotCreated%:PO%=
  5699. &406C1:
  5700. SC%=_c_Win_RenTap_NotCreated%
  5701. E(_c_Win_RenTap_WindowTemplateName$,SC%)
  5702. _Win_RenTap_PreOpen(SC%):
  5703. P(SC%):WO%=
  5704. _ClickSelect_Renum(l%,MA%):
  5705. cC:=0
  5706. _ClickSelect_BBSelect(l%,MA%):
  5707. XC:=0
  5708. _ClickSelect_BBAddRec(l%,MA%):
  5709. hA:=0
  5710. cD:=_EVNTS_LAST_MOUSEXPOS%
  5711. _ClickSelect_mainwp_Header(a%,f%):
  5712. fA%,qA%,rA%,sA%,RO%:
  5713. n(a%,fA%,qA%,rA%,sA%):RO%=
  5714. cD:SO%=RO%-fA%:
  5715. mB(SO%):
  5716. DD%=SI%
  5717. E(rB$,DD%)
  5718. _Win_DTape_PreOpen(DD%):
  5719. _ClickSelect_BBDelTape(a%,f%):
  5720. dC:=0
  5721. &406C0:
  5722. NB%=MG%
  5723. E(sC$,NB%)
  5724. _PreOpen_NewTape(NB%):
  5725. P(NB%):
  5726. &406C1:
  5727. _ClickSelect_BBAddTape(a%,f%):
  5728. &406C0:
  5729. &406C1:=0
  5730. dD(w%):
  5731. CE%,UD%,RA%:
  5732. NC%,VG%:NC%=w%-1:VG%=
  5733. :UD%=
  5734. (NC%),"_GetTerm","_CompFN",0,
  5735. K-1):
  5736. UD%=-1
  5737. NC%-=1:
  5738. NC%<VG%
  5739. CE%=NC%:RA%=
  5740. aA(UD%):CE%=
  5741. e(RA%)
  5742. UD%<>-1
  5743. NC%=0
  5744. CE%<>0:=CE%
  5745. _ClickSelect_TND(a%,f%):
  5746. CE%:CE%=
  5747. dD(dG%):
  5748. I(CE%):=0
  5749. _ClickSelect_TNI(a%,f%):
  5750. _C%,UD%:_C%=
  5751. lB(dG%):
  5752. I(_C%):=0
  5753. _Win_Main_DeskFontChanged(HK%):mM%=HK%:
  5754. bA(dG%):=0
  5755. _MainWin_DataLoad(hE%,KA%,B$,iE%):
  5756. _WinSave_GetNativeFileType:e%=
  5757. _Win_MWPane_LoadNativeType(hE%,KA%,B$,iE%)
  5758. EB:e%=
  5759. _ConvFile_LoadFile(hE%,KA%,B$,iE%)
  5760. R(jE%,0):jE%=_c_Menu_Main_NotCreated%:
  5761. _CloseWindow_MainW(a%):
  5762. KD%,XA%:
  5763. 8w    KD%=
  5764. A("filemodc"),
  5765. O,""):
  5766. XA%=2
  5767. 8{    KD%=
  5768. :=KD%
  5769. _A(a%,hF%,UO%,RI%):
  5770. &400D1,a%,0,-(RI%+((UO%+1)*hF%)+0),&FFFFF,-(RI%+((UO%+1)*hF%)-hF%-8):
  5771. nA(CA%):
  5772. IL%,o%:o%=CA%?9:
  5773. 1<<7)
  5774.     IL%=
  5775. :=IL%
  5776. LC%,_A%,zC%,wD%,xD%:
  5777. -LC%=
  5778. G:_A%=(OF%*4):zC%=
  5779. V:wD%=0:
  5780. _A%<>-1
  5781. :j%=LC%!_A%:wD%+=1:_A%+=4:xD%=
  5782. D(j%):
  5783. nA(j%)=
  5784. _A(SA%,PC%,wD%-1,rG%+PC%)
  5785. xD%<>zC%
  5786. j%=-1
  5787. AB(n%):
  5788. wT%,OC%,yT%,XO%,DA%:
  5789. l(n%,
  5790. R(n%),5)<>"*GAP*"
  5791. s(n%)=
  5792. %sG%=
  5793. Z(n%):xR%=
  5794. D(sG%):
  5795. n%!0<>-1
  5796. n%!4<>-1
  5797. :n%!0=-1:n%!4=-1:
  5798. H(n%)=0
  5799. mA(n%):BU%=
  5800. Q(OC%):XO%=
  5801. D(OC%):
  5802. R(OC%),5)="*GAP*"
  5803. D(n%)
  5804. J(n%)=
  5805. J(OC%)
  5806. D(OC%,
  5807. F(n%)+
  5808. F(OC%)):DA%=
  5809. &400F1,_U%!&94,DA%+(
  5810. Q(OC%)*4)+8,_U%!&94,DA%+(
  5811. Q(OC%)*4)+4,((
  5812. N+1)*4)-(
  5813. Q(OC%)*4)+8:
  5814. r:sG%=
  5815. Z(OC%):n%=OC%
  5816. AB(n%)=
  5817. R(sG%),5)="*GAP*"
  5818. D(n%)
  5819. J(n%)=
  5820. J(sG%)
  5821. D(n%,
  5822. F(n%)+
  5823. F(sG%)):DA%=
  5824. Q(n%)=0
  5825. &400F1,_U%!&94,DA%+((
  5826. Q(n%))*4)+8,_U%!&94,DA%+((
  5827. Q(n%))*4)+4,
  5828. &400F1,_U%!&94,DA%+((
  5829. Q(n%))*4)+8,_U%!&94,DA%+((
  5830. Q(n%))*4)+4,((
  5831. N+1)*4)-(
  5832. Q(OC%)*4)+8
  5833. JH(j%):
  5834. pA%=_c_Win_ERec_WindowNotCreated%
  5835. _Win_ERec_PreOpen(pA%,j%):
  5836. S(pA%):
  5837. P(pA%):
  5838. KH(j%):dK%=j%:cG%=
  5839. F(j%):
  5840. iC(j%):
  5841. R(j%)<>"*GAP*"
  5842. JH(j%)
  5843. KH(j%)
  5844. MH:y%!84-=1:
  5845. y%!84<0
  5846. NH(KB%):
  5847. q%,YA%,t%,z%:
  5848. nA(KB%)=
  5849. 9A)q%=
  5850. c:YA%=
  5851. f:t%=0:z%=-1:
  5852. q%!t%=KB%
  5853. 9G    z%=t%
  5854. :t%+=4:
  5855. q%!t%=_c_Idx_Sel_ListTerminator%
  5856. z%<>-1:
  5857. &400F1,_U%!&94,q%+z%+4,_U%!&94,q%+z%,((YA%)*4)-z%:
  5858. l(KB%,
  5859. OH(j%):
  5860. R(j%)<>"*GAP*"
  5861. nA(j%)=
  5862. m(j%)
  5863. NH(j%)
  5864. PH(j%):
  5865. R(j%)<>"*GAP*"
  5866. bC(j%)
  5867. jC(ZJ%):
  5868. _D%,QA%,A,iF%,rG%:
  5869. tG%,DA%,oE%,zR%:
  5870. mA(SA%):_D%=
  5871. B(20):
  5872. &400CF,,_D%:FB%=_D%!4:
  5873. B(_D%):QA%=
  5874. B(40):!QA%=l%:
  5875. &400CB,,QA%:A=QA%!16-QA%!24:
  5876. B(QA%):rG%=
  5877. iA:iF%=(A-FB%-rG%-PC%)
  5878. iF%>=0
  5879. iF%<=LG%-1
  5880. 9|?_A%=OF%:LC%=
  5881. G:_A%=(_A%+iF%)*4:j%=LC%!_A%:
  5882. R(j%)<>"*GAP*"
  5883. _A(SA%,PC%,iF%,rG%+PC%)
  5884. _A(SA%,PC%,iF%,rG%+PC%)
  5885. s(j%)=
  5886. A("locked"),
  5887. ,"",""):
  5888. O(j%,
  5889. T(j%,
  5890. AB(j%)
  5891. AB(j%):
  5892. T(j%,
  5893. iC(j%)
  5894. OH(j%)
  5895. PH(j%)
  5896. iC(j%)
  5897. SA(j%)
  5898.  tG%=
  5899. mA(j%):
  5900. J(j%)=
  5901. J(tG%)
  5902. D(tG%,
  5903. F(tG%)+
  5904. F(j%)):DA%=
  5905. &400F1,_U%!&94,DA%+((
  5906. Q(j%))*4)+4,_U%!&94,DA%+((
  5907. Q(j%))*4),((
  5908. N+1)*4)-(
  5909. Q(tG%)*4)+8:
  5910. Z(j%):
  5911. J(j%)=
  5912. J(oE%)
  5913. izR%=
  5914. H(oE%):
  5915. b(oE%,
  5916. H(j%)):
  5917. b(j%,
  5918. H(oE%)+
  5919. F(oE%)):
  5920. M:KL%=
  5921. Z(j%):
  5922. n(KL%)
  5923. J(oE%)=
  5924. J(KL%))
  5925. yA(j%,KL%)
  5926. 99,"Quick delete on a gap record, following record has different SP/LP setting!"
  5927. _ClickAdjust_MainW(l%,MA%):
  5928. _ClickSelect_MainW(l%,MA%):
  5929. RH(TI%,hF%,RI%,
  5930. UI%):
  5931. ML%,dO%,eO%:ML%=TI%!16-TI%!24-RI%:dO%=ML%-TI%!40:eO%=ML%-TI%!32:jF%=dO%
  5932. hF%-1:
  5933. jF%<0
  5934. jF%=0
  5935. UI%=eO%
  5936. _UserRedraw_Mainw(d%,nA%,eB%):
  5937. eC%,fO%,FS%,gO%,hO%:
  5938. iO%,jO%,j%,t%,zC%:
  5939. C$,F$,xD%,_A%,jF%,UI%:
  5940. NL%,LC%:
  5941. @eC%=1:fO%=
  5942. cB:FS%=
  5943. RA:gO%=
  5944. aB:hO%=
  5945. bB:iO%=
  5946. eB:jO%=
  5947. NL%=uP%
  5948. NL%=QR%
  5949. :zC%=
  5950. V:_A%=-1:
  5951. zC%>0
  5952. _A%=OF%
  5953. zC%>0
  5954. _A%>=0
  5955. _iB%=eB%-
  5956. iA-PC%:LC%=
  5957. G:_A%=_A%*4:j%=LC%!_A%:LG%=0:
  5958. RH(d%,PC%,
  5959. iA,jF%,UI%):t%=0:
  5960. F(j%)>0
  5961. :"!eC%=eC%
  5962. LG%>=jF%
  5963. LG%<=UI%
  5964. &400E6,hO%:
  5965. nA%,iB%+2,HF%,-30:
  5966. &400E6,gO%
  5967. &400E6,fO%
  5968. nA(j%)=
  5969. &400E6,jO%:
  5970. nA%,iB%+2,HF%,-30:
  5971. &400E6,iO%
  5972. R(j%):F$=
  5973. LA(j%):
  5974. nA%+NL%,iB%:
  5975. _dis_fn(
  5976. H(j%),0)
  5977. "00000"+
  5978. H(j%)),5)
  5979. nA%+DR%,iB%:
  5980. _dis_fn(
  5981. F(j%),0):
  5982. nA%+eR%,iB%:
  5983. J(j%):
  5984. (C$)>((
  5985. WA-GJ%)/16)
  5986. :M!C$=
  5987. C$,((
  5988. WA-GJ%)/16)-2)+".."
  5989. nA%+GJ%,iB%:
  5990. WA,iB%:
  5991. :LG%+=1:iB%-=PC%
  5992. :_A%+=4:j%=LC%!_A%:t%+=4:
  5993. LC%!_A%<>-1
  5994. D(j%)
  5995. xD%<>zC%
  5996. LC%!_A%=-1
  5997. _Win_Main_Compare(OB$,PB$):
  5998. i%,UU%,VU%,kO%,lO%,cA%:mO%=
  5999. (OB$):nO%=
  6000. (PB$):
  6001. :cA%=
  6002. OB$,":"):kO%=
  6003. OB$,cA%+1)):cA%=
  6004. PB$,":"):lO%=
  6005. PB$,cA%+1)):
  6006. mO%<nO%
  6007. mO%=nO%
  6008. kO%<lO%
  6009. _Win_Main_GetTerm(yC%):
  6010. QB$,KB%,aU%:
  6011. :KB%=
  6012. JB(yC%):QB$=
  6013. D(KB%))+":":QB$+=
  6014. H(KB%)):
  6015. :=QB$
  6016. xB(sJ%):=
  6017. A("hmd_item"+
  6018. (sJ%))
  6019. SH(CC$):
  6020. xB(0):PE%=
  6021. xB(1):PE%=
  6022. CC$<>
  6023. C(CB%,uC%):
  6024. "h",Y$)=0
  6025. A(CB%,uC%,
  6026. _dis_fn(
  6027. (Y$),0),
  6028. A(CB%,uC%,
  6029. _decode_dis(Y$)),
  6030. _Menu_HMDisp_Selection(a%,tA%,Z$):
  6031. SH(Z$):nB$=Z$:=
  6032. _Menu_TMake_Selection(a%,tA%,r$):
  6033. V,r$):
  6034. gF%=_c_Menu_TMake_NotCreated%
  6035. A(_c_Menu_TMake_MessTag_Title$):gF%=
  6036. JA(J$,kC$,"",_c_Menu_TMake_FileName$)
  6037. _Menu_TMake_AboutToBeShown(_%):
  6038. gF%=_c_Menu_TMake_NotCreated%
  6039. L(_c_Menu_TMake_FileName$)
  6040. 99,"Unable to create menu"
  6041. J$,OL%:
  6042. fF%=kG%
  6043. A(LC$):fF%=
  6044. JA(J$,JC$,"",wA$)
  6045. _Menu_TFmat_AboutToBeShown(_%):
  6046. fF%=kG%
  6047. L(wA$)
  6048. 99,"Unable to create menu"
  6049. yB(w%):
  6050. PL%,q%,AB%,oO%:PL%=
  6051. XB(w%):AB%=PL%:
  6052. PL%>=0
  6053. HA(q%!AB%):AB%+=4:
  6054. 99,"Invalid tape id passed to FNIdx_Recs_GetRecordBlockLastOnTape"
  6055. :oO%=q%!AB%:=oO%
  6056. hD(w%):
  6057. s%,KB%:s%=
  6058. :KB%=
  6059. yB(w%):
  6060. R(KB%),5)="*GAP*"
  6061. VH(w%,DB%):
  6062. RA%,VI%,qO%:
  6063. pE%,l$,hU%,kF%:
  6064. DA%:RA%=
  6065. j(w%):
  6066. RA%=-1
  6067. 99,"Tape id not found in tape list"
  6068. hD(w%)=
  6069. G("Last recording on the tape is not a gap, unable to change tape length")
  6070. :pE%=
  6071. yB(w%):VI%=
  6072. F(pE%):qO%=RA%!4:l$=
  6073. J(pE%):kF%=DB%-qO%:
  6074. l$="L"
  6075. kF%=kF%*2
  6076. VI%+kF%=0
  6077. ;+lDA%=
  6078. &400F1,_U%!&94,DA%+(
  6079. Q(pE%)*4)+4,_U%!&94,DA%+(
  6080. Q(pE%)*4)+0,((
  6081. N+1)*4)-(
  6082. Q(pE%)*4)+4:
  6083. VI%+kF%>0
  6084. D(pE%,VI%+kF%):RA%!4=DB%:
  6085. G("Unable to change length of tape because last gap record is not long enough")
  6086. _Menu_TLen_Selection(a%,tA%,Y$):
  6087. p%,PD%:
  6088. (Y$):
  6089. (Y$)=0
  6090. Y$,2)
  6091. p%:PD%=
  6092. (Y$):
  6093. PD%<=0
  6094. A("atwinnolen")
  6095. V,PD%):
  6096. WH(rB%,RC%,pB%,_C$):
  6097. &45BCD,rB%,RC%,pB%,_C$:
  6098. J$,OL%:
  6099. cE%=_c_Menu_TLen_NotCreated%
  6100. A(_c_Menu_TLen_MessTag_Title$):cE%=
  6101. JA(J$,nC$,"",_c_Menu_TLen_FileName$):OL%=
  6102. M(cE%,"",""):
  6103. WH(OL%,_c_Menu_TLen_WritableStateOn%,_c_Menu_TLen_WritableBufferLen%,_c_Menu_TLen_WritableValidation$)
  6104. _Menu_TLen_AboutToBeShown(_%):
  6105. cE%=_c_Menu_TLen_NotCreated%
  6106. L(_c_Menu_TLen_FileName$)
  6107. 99,"Unable to create menu"
  6108. _Menu_Cats_AboutToBeShown(_%):
  6109. SF%=XG%
  6110. _MenuSelect_Help(d%):
  6111. L(&FFF,
  6112. W+".!Help"):=0
  6113. _MenuSelect_Quit(d%):
  6114. A("filemodq"),
  6115. O,""):
  6116. _closedown%=
  6117. _closedown%=
  6118. _closedown%=
  6119. &406C0:
  6120. Y_c_Win_NotePa_WindowTemplateName$=
  6121. A("wnp_templ"):rF%=_c_Win_NotePa_NotCreated%:aO%=
  6122. &406C1:
  6123. rF%=_c_Win_NotePa_NotCreated%
  6124. E(_c_Win_NotePa_WindowTemplateName$,rF%)
  6125. _Win_NotePa_PreOpen(rF%):
  6126. P(rF%):yR%=
  6127. _MenuSelect_NotePad(d%):
  6128. ZH:=0
  6129. _MenuSelect_RenTape(d%):
  6130. cC:=0
  6131. _MenuSelect_DelTape(d%):
  6132. dC:=0
  6133. KA(AD$):
  6134. YD%,uB%,n%:
  6135. &406C0:YD%=0:uB%=
  6136. uB%!YD%<>_c_Idx_Sel_ListTerminator%:n%=uB%!YD%:
  6137. "lock_selection":
  6138. O(n%,
  6139. "unlock_selection":
  6140. O(n%,
  6141. "set_selection_seen":
  6142. T(n%,
  6143. "set_selection_unseen":
  6144. T(n%,
  6145. :YD%+=4:
  6146. &406C1:
  6147. _MenuSelect_SelSetUnseen(d%):
  6148. KA("set_selection_unseen"):=0
  6149. _MenuSelect_SelSetSeen(d%):
  6150. KA("set_selection_seen"):=0
  6151. _MenuSelect_SelSetUnLocked(d%):
  6152. KA("unlock_selection"):=0
  6153. _MenuSelect_SelSetLocked(d%):
  6154. KA("lock_selection"):=0
  6155. bH(gB%):
  6156. lA%,DA%,uB%:
  6157. &406C0:lA%=0:DA%=
  6158. DA%!lA%<>_c_Idx_Sel_ListTerminator%:n%=DA%!lA%:
  6159. s(n%)=
  6160. m(n%)
  6161. :lA%+=4:
  6162. &406C1:
  6163. _MenuSelect_SelLocked(d%):
  6164. cH(gB%):
  6165. lA%,DA%:
  6166. &406C0:lA%=0:DA%=
  6167. DA%!lA%<>_c_Idx_Sel_ListTerminator%:n%=DA%!lA%:
  6168. n(n%)=
  6169. IB(n%)=
  6170. m(n%)
  6171. :lA%+=4:
  6172. &406C1:
  6173. _MenuSelect_SelUnseen(d%):
  6174. _MenuSelect_SelCreate(d%):
  6175. e%:e%=
  6176. _Win_Select_MenuSelect(d%):=0
  6177. YD%,uB%,n%,i%:
  6178. &406C0:YD%=0:uB%=
  6179. c:i%=
  6180. uB%!YD%<>_c_Idx_Sel_ListTerminator%:n%=uB%!YD%:
  6181. s(n%)=
  6182. :YD%+=4:
  6183. &406C1:=i%
  6184. _MenuSelect_SelDel(d%):
  6185. uB%,I%,n%,DA%,WI%,lU%:
  6186. mU%,nU%,lA%,oU%,t%,pU%:
  6187. qU%,gC%,VS%,sO%:
  6188. XA%:WI%=
  6189. WI%=0
  6190. &406C0:VS%=
  6191. N:uB%=
  6192. c:DA%=
  6193. G:gC%=
  6194. l:sO%=
  6195. iD:XA%=0:
  6196. <F+XA%=
  6197. b("delsellock",
  6198. (WI%)),
  6199. ,"","")
  6200. WI%-1:
  6201. s(uB%!(I%*4))=
  6202. XA%<>2
  6203. O(uB%!(I%*4),
  6204. XA%<>2
  6205. AB(uB%!(I%*4))
  6206. XA%<>2
  6207. &406C1:=0
  6208. _MenuSelect_SelClear(d%):
  6209. dH(gB%,w%):
  6210. lA%,DA%,uB%:
  6211. &406C0:lA%=0:DA%=
  6212. DA%!lA%<>_c_Idx_Sel_ListTerminator%:n%=DA%!lA%:
  6213. D(n%)=w%
  6214. n(n%)=
  6215. m(n%)
  6216. :lA%+=4:
  6217. &406C1:
  6218. _MenuSelect_SelAll(d%):
  6219. _MenuSelect_NewTape(d%):
  6220. eC:=0
  6221. U(x%,RC%):
  6222. &45BCB,x%,RC%:
  6223. fH(_%):
  6224. U(_%,
  6225. gH(_%):
  6226. U(_%,
  6227. _Menu_Main_AboutToBeShown(l%,MA%):
  6228. jE%=_c_Menu_Main_NotCreated%
  6229. fH(jE%):
  6230. U(_N%,0)
  6231. gH(jE%):
  6232. U(hN%,(
  6233. f=0)):
  6234. U(UL%,(
  6235. f=0)):
  6236. U(RL%,(
  6237. f=0)):
  6238. U(SL%,(
  6239. f=0)):
  6240. U(aN%,(
  6241. f=0)):
  6242. U(ZL%,(
  6243. f=0))
  6244. GA%,p%,Z$,XS%,w%:
  6245. &406C0:J$=
  6246. A(VB$):
  6247. fE%=fG%
  6248. GfE%=
  6249. A(VB$),FC$,
  6250. K):GA%=
  6251. K-1:VF%=GA%!(p%*4):
  6252. VF%<&8000
  6253. 99,"Illegal element in tape list ("+
  6254. (VF%)+")"
  6255. e(VF%))," "):XS%=
  6256. M(fE%,Z$,"_Menu_TID_MenuSelect"):
  6257. &406C1:
  6258. _Menu_TID_AboutToBeShown(_%):
  6259. fE%=fG%
  6260. _Menu_TID_MenuSelect(l%,MA%,BD$):
  6261. GB%:GB%=
  6262. (BD$):
  6263. I(GB%):
  6264. bA(GB%):=
  6265. _VBFile_PreQuitHandler:
  6266. A("filemodq"),
  6267. O,""):
  6268. XA%=2
  6269. _Sliders_Drag(a%,f%):
  6270. k%,bB%,ZA%,c%,A$:
  6271. z%,qC%,SE%,tA%:k%=!_EVNTS_SLIDERS_ANCHOR%:ZA%=_EVNTS_SLIDERS_REC_SIZE%:qC%=k%!0:bB%=k%!4:c%=eA%:A$=
  6272. I(a%):z%=
  6273. $(k%+c%)=A$
  6274. k%!(c%+16)=f%
  6275. :YS%=k%!(c%+&C):tA%=k%!(c%+20):SE%=c%
  6276. :c%+=ZA%:
  6277. c%>=qC%
  6278. WA(a%,YS%):
  6279. tA%<>-1
  6280. _Sliders_BackgroundClick(a%,f%):
  6281. e%:e%=
  6282. _Sliders_Drag(a%,f%):=0
  6283. _Sliders_BarClick(l%,MA%):
  6284. WA(l%,MA%):=0
  6285. _Sliders_Bump(LD%,UE%):
  6286. a%,f%,k%,JC%,bB%,qC%:
  6287. z%,SE%,A$,RG%,SG%:a%=
  6288. CA:f%=
  6289. qA:A$=
  6290. I(a%):k%=!_EVNTS_SLIDERS_ANCHOR%:qC%=k%!0:bB%=k%!4:JC%=eA%:z%=
  6291. :RG%=k%!(JC%+24):SG%=k%!(JC%+28):
  6292. A$=$(k%+JC%)
  6293. RG%=f%
  6294. SG%=f%
  6295. :SE%=JC%
  6296. :JC%+=_EVNTS_SLIDERS_REC_SIZE%:
  6297. JC%>=qC%
  6298. FB(SE%,LD%)
  6299. (LD%)
  6300.