home *** CD-ROM | disk | FTP | other *** search
/ Kosovo Orphans' Appeal Charity CD / KosovoOrphansAppeal.iso / internet / software / html3 / _html³ / _runimage (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1999-03-30  |  208.6 KB  |  8,956 lines
  1.  HTML3 first draft
  2.  By Richard Goodwin
  3.  " at line ";
  4. "Unset HTML3*":
  5.  TRACE TO "ADFS::4.$.Dumper"
  6.  TRACE ON
  7. "Set HTML3$Running Online"
  8. Task$="HTML
  9. 'Purpose$="Make HTML editing simple"
  10.     %Author$=
  11. (169)+" Richard Goodwin"
  12. Version$="3.34b (Mar 1999)"
  13. )SmallVer$=
  14. Version$,
  15. Version$," ")-1)
  16. namedcolour$="NetCols"
  17.  tempblock% 256
  18. *HTML3opt$=
  19. getstr("HTML3Options$Path")
  20. "OS_GetEnv" 
  21.  default$
  22. lower(default$)," -htmlremote")>0 
  23. "XOS_CLI","Set HTML3Options$Path "+
  24. getstr("HTML3Remote$Path")
  25. + HTML3opt$=
  26. getstr("HTML3Options$Path")
  27. ,instr%=
  28. lower(HTML3opt$),".resources.")
  29.  instr%>0 
  30. AlterIcons(
  31. HTML3opt$,instr%-1),29,userhandle%)
  32. error(Task$+" has reported an error: "+
  33. $+" at line "+
  34. ),1):
  35. sideshowing%=
  36. "OS_ReadMonotonicTime" 
  37.  time
  38.  lbhopen%=
  39.  time>(lbhopentime%+500) 
  40. CloseWindow(lbh%)
  41. poll(time+50)
  42.  sidebar%=
  43.  sideshowing%=
  44.  sideup%=
  45.      !block%=sidehandle%
  46. $        
  47.      !block%=horizhandle%
  48. &        
  49. '(    
  50.  "Wimp_GetWindowState",,block%
  51. (K    
  52.  (block%!32 
  53.  1<<17)=0 
  54.  block%!28=-1:
  55.  "Wimp_OpenWindow",,block%
  56. (-114) 
  57. (-3) 
  58.  sideup%=
  59.      
  60. OpenWin(sidehandle%)
  61. -        
  62.      
  63. OpenWin(horizhandle%)
  64. /        
  65.     sideshowing%=
  66. (-115) 
  67. (-3) 
  68. OpenWin(stylehandle%)
  69. (-116) 
  70. (-3) 
  71. OpenWin(fxhandle%)
  72. (-21)  
  73. (-3) 
  74. OpenWin(charhandle%)
  75. (-117) 
  76. (-3) 
  77. OpenWin(addrhandle%)
  78. (-118) 
  79. (-3) 
  80. OpenWin(linkhandle%)
  81. (-23)  
  82. (-3) 
  83. OpenWin(imghandle%)
  84.  IF INKEY(-119) AND INKEY(-3) THEN PROCOpenWin(framehandle%)
  85. (-120) 
  86. (-3) 
  87. OpenWin(tablehandle%)
  88. (-31) 
  89. (-3) 
  90. OpenWin(formhandle%)
  91. (-29) 
  92. (-3) 
  93.     menutrack%=6
  94. MakePlugInMenu
  95.  max%>0 
  96. ?;      
  97. "Wimp_CreateMenu",,menu%,(block%!0)-64,block%!4
  98. @        
  99. B+  dirtest$=
  100. getstr("HTML3Options$Path")
  101.  dirtest$<>HTML3opt$ 
  102. D7   
  103. FileCheck(
  104. getstr("HTML3Options$Path")))=2 
  105. E?    
  106. Confirm("About to change to a new set of options") 
  107. F6     
  108. "XOS_CLI","Set HTML3Options$Path "+dirtest$
  109.      
  110. LoadOptions
  111.      
  112. SetOptions
  113.      
  114. LoadUsers
  115.      
  116. SetUsers
  117. K.     namedcolour$=
  118. icondata(46,opthandle%)
  119. L3     
  120. AlterIcons(
  121. FontName(font%),35,fxhandle%)
  122. MY     
  123. FileCheck("HTML3Options:PalPreset")=1  
  124. LoadPalette("HTML3Options:PalPreset")
  125. NW     
  126. FileCheck("HTML3Options:BodyPreset")=1 
  127. LoadBody("HTML3Options:BodyPreset")
  128.      
  129. InitURLDatabase
  130.      
  131. InitEmailDatabase
  132.      
  133. InitImageDatabase
  134.      
  135. loaddefaults
  136.      HTML3opt$=dirtest$
  137. T0     instr%=
  138. lower(dirtest$),".resources.")
  139. UE     
  140.  instr%>0 
  141. AlterIcons(
  142. dirtest$,instr%-1),29,userhandle%)
  143. V        
  144. W7     
  145. "XOS_CLI","Set HTML3Options$Path "+HTML3opt$
  146. X        
  147. Z6    
  148. "XOS_CLI","Set HTML3Options$Path "+HTML3opt$
  149.  quit=
  150. Confirm(message$)
  151. !block%=0
  152. $(block%+4)=message$+
  153. "Wimp_ReportError",block%,%00011011,Task$ 
  154.  ,confirm%
  155.  confirm%=1 
  156.  randomise
  157. randomise=
  158. sidebar%=
  159. quit=0
  160. lbhopen%=
  161. blend%=-1
  162. pumping=0:pump$=""
  163. height$="":width$=""
  164. correctext%=
  165. dragwindow%=-1
  166. dragicon%=-1
  167. desthandle%=-1
  168. desticon%=-1
  169. savedragref%=-1
  170. dragread%=-1
  171. dragfile$=""
  172.    owner$="A User"
  173. nickname$="User"
  174. {"   email$="someone@domain.tld"
  175. |-userhome$="http://www.domain.co.uk/user/"
  176. }5 doctype$="-//W3C//DTD HTML 4.0 Transitional//EN"
  177.   rollon$="function rollon(imgName)"+
  178. (10)+"{if (document.images)"+
  179. (10)+"document[imgName].src = eval(imgName + 'on.src')}"
  180.  rolloff$="function rolloff(imgName)"+
  181. (10)+"{if (document.images)"+
  182. (10)+"document[imgName].src = eval(imgName + 'off.src')}"
  183. case%=0
  184. profiling%=
  185. profilename$=""
  186. profileemail$=""
  187. profilehome$=""
  188. comparefile$=""
  189.  email$(30,3), url$(30,3), imagedb$(30,6), imagetemp$(6)
  190.  block% 1024, timeblock% 5, menublock% 256
  191.  iptr% 2048, tptr% 1024, scan% 4096, colour%(3,256), menu% &4500
  192.  cpname% 30, cbuff% 100, body%(3,5), plugin$(77)
  193.  chars% 120, address$(12), colour$(2,750), stylecolour%(3), tablecolour%(3), menuitem$(760)
  194. #$cpname%=Task$+" Colour Picker"
  195. cbuff%!4=0
  196. pickicon%=
  197. pickwindow%=
  198. picking%=
  199. fontinacorn%=
  200. sideup%=
  201.  "Wimp_Initialise",201,&4B534154,Task$ 
  202.  ,taskhandle
  203.  "Wimp_OpenTemplate",,"HTML3:Banner.Templates"
  204.  "Wimp_LoadTemplate",,,,,,"loadbanner" 
  205.  ,templen,worklen
  206.  lb templen,lbwork worklen
  207.  "Wimp_LoadTemplate",,lb,lbwork,lbwork+worklen,-1,"loadbanner",0
  208.  "Wimp_CloseTemplate"
  209. "OS_File",5,"HTML3:Banner.Sprites" 
  210.  ,,,,filesize%
  211.  usersprites% filesize%+32
  212. !usersprites%=filesize%+32
  213. usersprites%!8=16
  214. "OS_SpriteOp",256+9,usersprites%
  215. "OS_SpriteOp",256+10,usersprites%,"HTML3:Banner.Sprites"
  216. lb!64=usersprites%
  217.  "Wimp_CreateWindow",,lb 
  218.  lbh%
  219. AlterIcons("Init",2,lbh%)
  220. AlterIcons("Status:",1,lbh%)
  221.  PROCAlterIcons(" ",4,lbh%)
  222.  PROCAlterIcons(" ",5,lbh%)
  223. AlterIcons(SmallVer$,6,lbh%)
  224. LoadUsers
  225. AlterIcons(owner$,4,lbh%)
  226. AlterIcons(email$,5,lbh%)
  227. OpenWinCen(lbh%):lbhopen%=
  228. "OS_ReadMonotonicTime" 
  229.  lbhopentime%
  230. TempPoll
  231.  "Wimp_OpenTemplate",,"HTML3:Resources.Templates"
  232.  "Wimp_LoadTemplate",,,,,,"Info" 
  233.  ,templen,worklen
  234.  info templen,infowork worklen
  235.  "Wimp_LoadTemplate",,info,infowork,infowork+worklen,-1,"Info",0
  236.  "Wimp_LoadTemplate",,,,,,"Effects" 
  237.  ,templen,worklen
  238.  fx templen,fxwork worklen
  239.  "Wimp_LoadTemplate",,fx,fxwork,fxwork+worklen,-1,"Effects",0
  240.  "Wimp_LoadTemplate",,,,,,"Characters" 
  241.  ,templen,worklen
  242.  char templen,charwork worklen
  243.  "Wimp_LoadTemplate",,char,charwork,charwork+worklen,-1,"Characters",0
  244.  "Wimp_LoadTemplate",,,,,,"Side" 
  245.  ,templen,worklen
  246.  side templen,sidework worklen
  247.  "Wimp_LoadTemplate",,side,sidework,sidework+worklen,-1,"Side",0
  248.  "Wimp_LoadTemplate",,,,,,"Side2" 
  249.  ,templen,worklen
  250.  side2 templen,side2work worklen
  251.  "Wimp_LoadTemplate",,side2,side2work,side2work+worklen,-1,"Side2",0
  252.  "Wimp_LoadTemplate",,,,,,"Save" 
  253.  ,templen,worklen
  254.  save templen,savework worklen
  255.  "Wimp_LoadTemplate",,save,savework,savework+worklen,-1,"Save",0
  256.  "Wimp_LoadTemplate",,,,,,"Header" 
  257.  ,templen,worklen
  258.  head templen,headwork worklen
  259.  "Wimp_LoadTemplate",,head,headwork,headwork+worklen,-1,"Header",0
  260.  "Wimp_LoadTemplate",,,,,,"Footer" 
  261.  ,templen,worklen
  262.  foot templen,footwork worklen
  263.  "Wimp_LoadTemplate",,foot,footwork,footwork+worklen,-1,"Footer",0
  264.  "Wimp_LoadTemplate",,,,,,"Shift" 
  265.  ,templen,worklen
  266.  shift templen,shiftwork worklen
  267.  "Wimp_LoadTemplate",,shift,shiftwork,shiftwork+worklen,-1,"Shift",0
  268.  "Wimp_LoadTemplate",,,,,,"Images" 
  269.  ,templen,worklen
  270.  img templen,imgwork worklen
  271.  "Wimp_LoadTemplate",,img,imgwork,imgwork+worklen,-1,"Images",0
  272.  "Wimp_LoadTemplate",,,,,,"Styles" 
  273.  ,templen,worklen
  274.  style templen,stylework worklen
  275.  "Wimp_LoadTemplate",,style,stylework,stylework+worklen,-1,"Styles",0
  276.  "Wimp_LoadTemplate",,,,,,"Addresses" 
  277.  ,templen,worklen
  278.  addr templen,addrwork worklen
  279.  "Wimp_LoadTemplate",,addr,addrwork,addrwork+worklen,-1,"Addresses",0
  280.  "Wimp_LoadTemplate",,,,,,"Frames" 
  281.  ,templen,worklen
  282.  frame templen,framework worklen
  283.  "Wimp_LoadTemplate",,frame,framework,framework+worklen,-1,"Frames",0
  284.  "Wimp_LoadTemplate",,,,,,"Links" 
  285.  ,templen,worklen
  286.  link templen,linkwork worklen
  287.  "Wimp_LoadTemplate",,link,linkwork,linkwork+worklen,-1,"Links",0
  288.  "Wimp_LoadTemplate",,,,,,"Update" 
  289.  ,templen,worklen
  290.  update templen,updatework worklen
  291.  "Wimp_LoadTemplate",,update,updatework,updatework+worklen,-1,"Update",0
  292.  "Wimp_LoadTemplate",,,,,,"Tables" 
  293.  ,templen,worklen
  294.  table templen,tablework worklen
  295.  "Wimp_LoadTemplate",,table,tablework,tablework+worklen,-1,"Tables",0
  296.  "Wimp_LoadTemplate",,,,,,"Forms" 
  297.  ,templen,worklen
  298.  form templen,formwork worklen
  299.  "Wimp_LoadTemplate",,form,formwork,formwork+worklen,-1,"Forms",0
  300.  "Wimp_LoadTemplate",,,,,,"Options" 
  301.  ,templen,worklen
  302.  opt templen,optwork worklen
  303.  "Wimp_LoadTemplate",,opt,optwork,optwork+worklen,-1,"Options",0
  304.  "Wimp_LoadTemplate",,,,,,"Users" 
  305.  ,templen,worklen
  306.  user templen,userwork worklen
  307.  "Wimp_LoadTemplate",,user,userwork,userwork+worklen,-1,"Users",0
  308.  "Wimp_LoadTemplate",,,,,,"CSVTable" 
  309.  ,templen,worklen
  310.  csv templen,csvwork worklen
  311.  "Wimp_LoadTemplate",,csv,csvwork,csvwork+worklen,-1,"CSVTable",0
  312.  "Wimp_CloseTemplate"
  313.  "Wimp_CreateWindow",,  info 
  314.  infohandle%
  315.  "Wimp_CreateWindow",,  char 
  316.  charhandle%
  317.  "Wimp_CreateWindow",,  side 
  318.  sidehandle%
  319.  "Wimp_CreateWindow",, side2 
  320.  horizhandle%
  321.  "Wimp_CreateWindow",,  save 
  322.  savehandle%
  323.  SYS "Wimp_CreateWindow",,  addr TO addrhandle%
  324.  "Wimp_CreateWindow",, frame 
  325.  framehandle%
  326.  "Wimp_CreateWindow",,update 
  327.  updatehandle%
  328.  "Wimp_CreateWindow",,  form 
  329.  formhandle%
  330.  "Wimp_CreateWindow",,   csv 
  331.  csvhandle%
  332. "OS_File",5,"HTML3:Resources.Images" 
  333.  ,,,,filesize%
  334.  imagesprites% filesize%+32
  335. !imagesprites%=filesize%+32
  336. imagesprites%!8=16
  337. "OS_SpriteOp",256+9,imagesprites%
  338. "OS_SpriteOp",256+10,imagesprites%,"HTML3:Resources.Images"
  339. img!64=imagesprites%
  340.  "Wimp_CreateWindow",,img  
  341.  imghandle%
  342. SetTick(imghandle%,27,1)
  343. opt!64=imagesprites%
  344.  "Wimp_CreateWindow",,   opt 
  345.  opthandle%
  346. foot!64=imagesprites%
  347.  "Wimp_CreateWindow",,  foot 
  348.  foothandle%
  349. addr!64=imagesprites%
  350.  "Wimp_CreateWindow",,  addr 
  351.  addrhandle%
  352. user!64=imagesprites%
  353.  "Wimp_CreateWindow",,  user 
  354.  userhandle%
  355. link!64=imagesprites%
  356.  "Wimp_CreateWindow",,  link 
  357.  linkhandle%
  358. AlterIcons("Problems? contact <a href=""mailto:%pe"">%pr</a><br>%NL© <a href=""%pwcopyright.html"">%pr</a> %CE%YR.<br>%NLSite designed by <a href=""%OW"">%ON</a>, %mo %CE%YR.%h3",11,foothandle%)
  359. LoadOptions
  360. TempPoll
  361. "OS_File",5,"HTML3:Resources.Colour" 
  362.  ,,,,filesize%
  363.  colicon% filesize%+32
  364. !colicon%=filesize%+32
  365. colicon%!8=16
  366. "OS_SpriteOp",256+9,colicon%
  367. "OS_SpriteOp",256+10,colicon%,"HTML3:Resources.Colour"
  368. style!64=colicon%
  369.  "Wimp_CreateWindow",, style 
  370.  stylehandle%
  371. table!64=colicon%
  372.  "Wimp_CreateWindow",, table 
  373.  tablehandle%
  374. AlterIcons("Styles",2,lbh%)
  375. TempPoll
  376. "OS_File",5,"HTML3:Resources.BodySprite" 
  377.  ,,,,filesize%
  378.  bodysprites% filesize%+32
  379. !bodysprites%=filesize%+32
  380. bodysprites%!8=16
  381. "OS_SpriteOp",256+9,bodysprites%
  382. "OS_SpriteOp",256+10,bodysprites%,"HTML3:Resources.BodySprite"
  383. head!64=bodysprites%
  384.  "Wimp_CreateWindow",,head 
  385.  headhandle%
  386. FileCheck("HTML3:Resources.BodyPreset")=1 
  387. LoadBody("HTML3:Resources.BodyPreset")
  388. 10body%(1,1)=255:body%(2,1)=255:body%(3,1)=255
  389. 2*body%(1,2)=0:body%(2,2)=0:body%(3,2)=0
  390. 3,body%(1,3)=0:body%(2,3)=0:body%(3,3)=255
  391. 40body%(1,4)=127:body%(2,4)=255:body%(3,4)=255
  392. 5.body%(1,5)=0:body%(2,5)=127:body%(3,5)=255
  393. name%=0
  394. defaultfontsize%=3
  395. defaultfont%=1
  396. SetTick(stylehandle%,0,1)
  397. SetTick(stylehandle%,1,0)
  398. SetTick(stylehandle%,2,0)
  399. SetTick(stylehandle%,3,0)
  400. SetTick(stylehandle%,6,0)
  401. SetTick(stylehandle%,42,1)
  402. SetTick(stylehandle%,43,0)
  403. SetTick(stylehandle%,49,1)
  404.  loop%=50
  405. SetTick(stylehandle%,loop%,0):
  406. SetTick(stylehandle%,21,1)
  407.  loop%=22
  408. SetTick(stylehandle%,loop%,0):
  409. AlterIcons("0",32,stylehandle%)
  410. AlterIcons("100",29,stylehandle%)
  411.  PROCSetTick(stylehandle%,38,1)
  412. SetTick(stylehandle%,39,0)
  413. SetTick(stylehandle%,40,0)
  414. AlterIcons("Effects",2,lbh%)
  415. TempPoll
  416. "OS_File",5,"HTML3:Resources.PalSprites" 
  417.  ,,,,filesize%
  418.  palsprites% filesize%+32
  419. !palsprites%=filesize%+32
  420. palsprites%!8=16
  421. "OS_SpriteOp",256+9,palsprites%
  422. "OS_SpriteOp",256+10,palsprites%,"HTML3:Resources.PalSprites"
  423. fx!64=palsprites%
  424.  "Wimp_CreateWindow",,fx 
  425.  fxhandle%
  426. shift!64=palsprites%
  427.  "Wimp_CreateWindow",,shift 
  428.  shifthandle%
  429.  loop%=0 
  430.  colour%(1,loop%)=loop%*17
  431.  colour%(2,loop%)=loop%*17
  432.  colour%(3,loop%)=loop%*17
  433. AlterSprite(loop%+1,loop%*17,loop%*17,loop%*17)
  434. DefineFonts
  435. font%=1
  436. AlterIcons(
  437. FontName(font%),35,fxhandle%)
  438. fxcol%=0:fxsize%=0
  439. SetFXSize
  440. SetFXColour
  441. AlterIcons("Chars",2,lbh%)
  442. TempPoll
  443. DefineChars
  444. AlterIcons("Tables",2,lbh%)
  445. TempPoll
  446. TableDefaults
  447. TableRedraw
  448. AlterIcons("Icons",2,lbh%)
  449. TempPoll
  450.  Set up iconbar icon
  451. icon$=Task$
  452. sprite$="!"+Task$
  453. !block%=-1
  454. block%!20=&1700318B
  455. block%!4=0
  456. block%!8=-18
  457. block%!12=88:block%!16=90
  458. $tptr%=icon$
  459. block%!24=tptr%
  460. $iptr%="s"+sprite$
  461. block%!28=iptr%
  462. block%!32=
  463. ("s"+sprite$)+1
  464. sprite%=iptr%
  465. text%=tptr%
  466. iptr%+=
  467. (icon$)+1
  468. tptr%+=
  469. ("s"+sprite$)+1
  470. "Wimp_CreateIcon",,block% 
  471.  taskicon%
  472.  Iconbar icon created!
  473. AlterIcons("Defaults",2,lbh%)
  474. htmlext$="html"
  475. jpegext$="jpeg"
  476.  zipext$="zip"
  477. pcpandering%=
  478. fontinacorn%=
  479. chartype%=1
  480. charcomment%=
  481. sidebar%=
  482. SetOptions
  483. SetUsers
  484. InitImageDatabase
  485. loaddefaults
  486. AlterIcons(
  487. FontName(font%),35,fxhandle%)
  488. FileCheck("HTML3Options:PalPreset")=1  
  489. LoadPalette("HTML3Options:PalPreset")
  490. FileCheck("HTML3Options:BodyPreset")=1 
  491. LoadBody("HTML3Options:BodyPreset")
  492. InitURLDatabase
  493. InitEmailDatabase
  494. SetTick(formhandle%,50,
  495. GreyForm(1)
  496. GreyFoot
  497. CheckRadio(addrhandle%,31)>0 
  498. SetTick(addrhandle%,30,0)
  499. SetTick(addrhandle%,31,1)
  500. greyicon(addrhandle%,29,
  501. greyicon(addrhandle%,39,
  502. greyicon(addrhandle%,14,
  503. AlterIcons("Profile email",22,addrhandle%)
  504.  profileemail$<>"" 
  505. AlterIcons(
  506. profileemail$,28),22,addrhandle%)
  507. AlterIcons("Profile name",24,addrhandle%)
  508.  profilename$<>"" 
  509. AlterIcons(
  510. profilename$,28),24,addrhandle%)
  511. AlterIcons("Nickname",29,addrhandle%)
  512. AlterIcons("Profile URL",37,addrhandle%)
  513. SetTick(addrhandle%,30,1)
  514. SetTick(addrhandle%,31,0)
  515. greyicon(addrhandle%,29,
  516. greyicon(addrhandle%,39,
  517. greyicon(addrhandle%,14,
  518. AlterIcons(
  519. email$,28),22,addrhandle%)
  520. AlterIcons(
  521. owner$,28),24,addrhandle%)
  522. AlterIcons(
  523. nickname$,28),29,addrhandle%)
  524. AlterIcons("Owner's URL",37,addrhandle%)
  525. "OS_File",5,"HTML3:Resources.ToSave" 
  526.  ,,,,filesize%
  527.  appsprites% filesize%+32
  528. !appsprites%=filesize%+32
  529. appsprites%!8=16
  530. "OS_SpriteOp",256+9,appsprites%
  531. "OS_SpriteOp",256+10,appsprites%,"HTML3:Resources.ToSave"
  532. AlterIcons("Complete",2,lbh%)
  533. version
  534.  PROCCloseWindow(lbh%)
  535.  IF sideup%=TRUE THEN PROCOpenWin(sidehandle%) ELSE PROCOpenWin(horizhandle%)
  536. poll(delay)
  537. "Wimp_PollIdle",0,block%,delay 
  538.  reason,handle
  539.  reason 
  540.   WHEN 1 : SYS"Wimp_RedrawWindow",,block%
  541.  2 : 
  542. "Wimp_OpenWindow",,block%
  543.  3 : 
  544. "Wimp_CloseWindow",,block%
  545. B          
  546.  block%!0=addrhandle% 
  547. CloseWindow(updatehandle%)
  548. >          
  549.  block%!0=sidehandle% 
  550.  block%!0=horizhandle% 
  551.            sideshowing%=
  552. %           
  553. CloseWindow(block%!0)
  554.           
  555.  6 : 
  556. mouseclick(block%)
  557.  7 : 
  558. enddrag(block%)
  559.  8 : 
  560. altertext
  561.  9 : 
  562. menuselect(block%)
  563.  17,18 :
  564. message(block%)
  565.  19 :
  566. receiveerror(block%)
  567. enddrag(bl)
  568.  "DragASprite_Stop"
  569.  "Wimp_GetPointerInfo",,block%
  570. desthandle%=block%!12
  571. desticon%=block%!16
  572. x%=block%!0
  573. y%=block%!4
  574. 4putname$=
  575. leaf(
  576. icondata(dragread%,dragwindow%))
  577. #block%!0=(48+
  578. (putname$)) 
  579. block%!0=256
  580. block%!12=0
  581. 5block%!16=1 : 
  582.  Ask dest app if it wants the file
  583. block%!20=desthandle%
  584. block%!24=desticon%
  585. block%!28=x%
  586. block%!32=y%
  587. block%!36=-1
  588. dragfile$,5)<>"file_" 
  589.  block%!40=&2000 
  590.  block%!40=
  591. ("&"+
  592. dragfile$,6))
  593. $(block%+44)=putname$+
  594.  "Wimp_SendMessage",18,block%,desthandle%,desticon% 
  595.  ,,savedragto%
  596. savedragref%=block%!8
  597. taskname(handle%)
  598.  "XTaskManager_TaskNameFromHandle",handle% 
  599.  task% ;Flags%
  600.  Flags% 
  601.  ="???"
  602. string(task%)
  603. leaf(text$)
  604. dot%=0
  605.  a%=1 
  606. (text$)
  607. text$,a%,1)="." 
  608.  dot%=a%
  609. text$,dot%+1)
  610. altertext
  611. icon%=block%!4
  612. handle%=block%!0
  613. key%=block%!24
  614.  handle% 
  615.  savehandle%:
  616.  key%=13 
  617.  icon%=2 
  618.       
  619. EndSave
  620. !      
  621. "Wimp_CreateMenu",,-1
  622.       
  623.  addrhandle%:  
  624.  key%=394 
  625.  icon%=12 
  626. AlterIcons("@"+
  627. email$,
  628. email$,"@")+1),12,addrhandle%)
  629.  updatehandle%:
  630.  key%=13  
  631.  icon%=5  
  632. updateaddress
  633.  linkhandle%:  
  634.  key%=394 
  635.  icon%=0  
  636. AlterIcons("http://www.",0,linkhandle%)
  637.  headhandle%:  
  638.  key%=394 
  639.  icon%=20 
  640. AlterIcons("http://www.",20,headhandle%)
  641.  userhandle% : 
  642.  key%=394 
  643. ]                     
  644.  icon%=16 
  645.  icon%=19 
  646. AlterIcons("http://www.",icon%,userhandle%)
  647.                     
  648.  SYS"Wimp_SetCaretPosition",-1
  649. bumper(winhandle%,displayicon%,upicon%,downicon%,max%,min%,percenticon%,percent%)
  650.  min%>max% 
  651.  min%,max%
  652. 1bumpno%=
  653. icondata(displayicon%,winhandle%))
  654.  icon%=upicon% 
  655.  icon%=downicon% 
  656.  modifier%=1
  657.  button% 
  658.  1: modifier%=-1
  659.  2: modifier%=0
  660.  max%>100 
  661.  icon%=upicon% 
  662. (-2) bumpno%-=99*modifier%
  663.  icon%=downicon% 
  664. (-2) bumpno%+=99*modifier%
  665.  max%>29 
  666.  icon%=upicon% 
  667. (-1) bumpno%-=9*modifier%
  668.  icon%=downicon% 
  669. (-1) bumpno%+=9*modifier%
  670.  icon%=upicon% bumpno%-=1*modifier%
  671.  icon%=downicon% bumpno%+=1*modifier%
  672.  bumpno%<min% bumpno%=min%
  673.  bumpno%>max% bumpno%=max%
  674.  percent%=
  675. CheckRadio(winhandle%,percenticon%)>0 
  676.  bumpno%>100 bumpno%=100
  677.  bumpno%<>
  678. icondata(displayicon%,winhandle%)) 
  679. AlterIcons(
  680. (bumpno%),displayicon%,winhandle%)
  681. losecaret
  682. "Wimp_SetCaretPosition",-1
  683. TempPoll
  684. "Wimp_Poll",%0000011100001100101000010,block% 
  685.  reason,handle
  686.  reason 
  687.  1 : 
  688. "Wimp_RedrawWindow",,block%
  689.  2 : 
  690. "Wimp_OpenWindow",,block%
  691.  3 : 
  692. "Wimp_CloseWindow",,block%
  693. mouseclick(bl)
  694. handle%=bl!12
  695. lbhopentime%=0
  696.  handle% 
  697.  sidehandle%,horizhandle%:
  698. OnSide
  699.   -2         :
  700. oniconbar
  701.    opthandle%:
  702. OnOptions
  703.   userhandle%:
  704. OnUsers
  705.  stylehandle%:
  706. OnStyle
  707.   headhandle%:
  708. OnHead
  709.   fxhandle%  :
  710.   savehandle%:
  711. OnSave
  712.  shifthandle%:
  713. OnMove
  714.   charhandle%:
  715. OnChars
  716.   addrhandle%:
  717. OnAddr
  718.  updatehandle%:
  719. OnUpdate
  720.   linkhandle%:
  721. OnLink
  722.   imghandle% :
  723. OnIMG
  724.  tablehandle%:
  725. OnTable
  726.   formhandle%:
  727. OnForm
  728.   foothandle%:
  729. OnFoot
  730.   infohandle%:
  731. OnInfo
  732. oniconbar
  733. button%=bl!8
  734.  button%=2 
  735. makeiconmenu(!bl-96,412)
  736.  button%=4 
  737.  sideup%=
  738. OpenWin(sidehandle%)
  739.   sideshowing%=
  740. OpenWin(horizhandle%)
  741.   sideshowing%=
  742. OnInfo
  743. icon%=bl!16
  744. button%=bl!8
  745.  icon% 
  746. LaunchURL("http://www.goodwin.uk.com/richard/programs/html3/")
  747. LaunchURL("http://www.goodwin.uk.com/richard/")
  748. LaunchURL("file:/HTML3:Docs/index.html")
  749. menuselect(bl)
  750. option%=bl!0
  751. "Wimp_GetPointerInfo",,block%
  752. right%=block%?8
  753. x%=block%!0
  754. y%=block%!4
  755.  menutrack%:
  756.  0=iconbar
  757.  1=FX palettes
  758.  2=FX saves (main)
  759.  3=FX fonts
  760.  4=Style Header palettes
  761.  5=Style Header saves (main)
  762.  6=PlugIns
  763.  7=URLs
  764.  8=Emails
  765.  9=Colours
  766.  10 to 19=form stuff
  767.  20=images
  768.  21=image alt text
  769.  22=link real names
  770.  23=link image "name"
  771.  24=link target
  772.  25=link image src
  773.  26=image "name"
  774.  27=text grabber
  775.  28=footer contact
  776.  29=footer contact email
  777.  30=footer copyright
  778.  31=footer designer
  779.  32=footer designer email
  780.  33=footer designed using...
  781.  34=HTML
  782.  35=ZIP
  783.  36=JPEG
  784.  37=Named Colours
  785.  menutrack% 
  786.         
  787.  option% 
  788. 8         
  789. "XOS_CLI","Filer_OpenDir <HTML3$Dir>"
  790.          
  791.  sideup%=
  792. *                 
  793. OpenWin(sidehandle%)
  794.                 
  795. +                 
  796. OpenWin(horizhandle%)
  797.                 
  798. "                sideshowing%=
  799. 6         
  800.  2:namedcolour$=
  801. icondata(46,opthandle%)
  802. +                
  803. OpenWinCen(opthandle%)
  804. )         
  805. OpenWinCen(userhandle%)
  806. :         
  807. LaunchURL("file:/HTML3:Docs/index.html")
  808.          
  809.  5:quit=-1
  810.         
  811.  1: pal$="HTML3Pal:"+menuitem$((option%)+1)
  812.         
  813. LoadPalette(pal$)
  814. OnFXMenu
  815.  3: tempfont%=option%+1
  816. &        font$=
  817. FontName(tempfont%)
  818.         
  819.  fonttype% 
  820. 0         
  821. AlterIcons(font$,35,fxhandle%)
  822. #                font%=tempfont%
  823. 2         
  824. AlterIcons(font$,49,headhandle%)
  825. *                defaultfont%=tempfont%
  826.         
  827.  4: pal$="HTML3Body:"+menuitem$((option%)+1)
  828.         
  829. LoadBody(pal$)
  830. OnFXMenu
  831. "XOS_CLI","Filer_Run HTML3:Plug-Ins."+plugin$(option%+1)
  832.  7: option%-=1
  833.         
  834.  option% 
  835.         
  836. 4         
  837. AlterIcons("#topofpage",0,linkhandle%)
  838. -         
  839. AlterIcons("Top",2,linkhandle%)
  840. F         
  841. AlterIcons("Back to the top of the page",21,linkhandle%)
  842.         
  843. 4         
  844. AlterIcons("index.html",0,linkhandle%)
  845. /         
  846. AlterIcons("Index",2,linkhandle%)
  847. A         
  848. AlterIcons("Back to the index page",21,linkhandle%)
  849.         
  850. 7         
  851. AlterIcons(url$(option%,1),0,linkhandle%)
  852. 7         
  853. AlterIcons(url$(option%,2),2,linkhandle%)
  854. 8         
  855. AlterIcons(url$(option%,3),21,linkhandle%)
  856.         
  857. AlterIcons(email$(option%+1,1),12,addrhandle%)
  858. ;        
  859. AlterIcons(email$(option%+1,2),19,addrhandle%)
  860. ;        
  861. AlterIcons(email$(option%+1,3),26,addrhandle%)
  862.  9: option%-=3
  863.         
  864.  option% 
  865.          
  866.            
  867.  name%<6 
  868.              
  869.  loop%=1
  870. E               body%(loop%,name%)=
  871. coloursafe(body%(loop%,name%))
  872.              
  873.              
  874. UpdateBody
  875.            
  876.            
  877.  name%=6 
  878.              
  879.  loop%=1
  880. G               stylecolour%(loop%)=
  881. coloursafe(stylecolour%(loop%))
  882.              
  883.              
  884. UpdateStyle
  885.            
  886. %           
  887.  name%>6 
  888.  name%<24 
  889.             icon%=name%-7
  890.             
  891.  loop%=1
  892. H              colour%(loop%,icon%)=
  893. coloursafe(colour%(loop%,icon%))
  894.             
  895. X            
  896. AlterSprite(icon%+1,colour%(1,icon%),colour%(2,icon%),colour%(3,icon%))
  897. B            
  898. Refresh(icon%,fxhandle%,"R5;scol"+
  899. zero(2,icon%))
  900.            
  901.            
  902.  name%=24 
  903.              
  904.  loop%=1
  905. G               tablecolour%(loop%)=
  906. coloursafe(tablecolour%(loop%))
  907.              
  908. #             
  909. UpdateTableColour
  910.            
  911. A        
  912. AlterIcons("Copy colour to...",23,shifthandle%)
  913. (                !block%=shifthandle%
  914. 4                
  915.  "Wimp_GetWindowState",,block%
  916. )                w%=block%!12-block%!4
  917. )                h%=block%!16-block%!8
  918. &                block%!4=x%-(w%/2)
  919. &                block%!8=y%-(h%/2)
  920. )                block%!12=x%+(w%*0.5)
  921. )                block%!16=y%+(h%*0.5)
  922.                  block%!28=-1
  923.                  shifttype%=1
  924. 0                
  925.  "Wimp_OpenWindow",,block%
  926. C        
  927. AlterIcons("Grab colour from...",23,shifthandle%)
  928. (                !block%=shifthandle%
  929. 4                
  930.  "Wimp_GetWindowState",,block%
  931. )                w%=block%!12-block%!4
  932. )                h%=block%!16-block%!8
  933. &                block%!4=x%-(w%/2)
  934. &                block%!8=y%-(h%/2)
  935. )                block%!12=x%+(w%*0.5)
  936. )                block%!16=y%+(h%*0.5)
  937.                  block%!28=-1
  938.                  shifttype%=2
  939. 0                
  940.  "Wimp_OpenWindow",,block%
  941.         
  942.           
  943.  name%<6 
  944. >            body%(1,name%)=
  945. ("&"+
  946. colour$(2,option%+1),2))
  947. @            body%(2,name%)=
  948. ("&"+
  949. colour$(2,option%+1),3,2))
  950. >            body%(3,name%)=
  951. ("&"+
  952. colour$(2,option%+1),5))
  953.             
  954. UpdateBody
  955.           
  956.           
  957.  name%=6 
  958. ?            stylecolour%(1)=
  959. ("&"+
  960. colour$(2,option%+1),2))
  961. A            stylecolour%(2)=
  962. ("&"+
  963. colour$(2,option%+1),3,2))
  964. ?            stylecolour%(3)=
  965. ("&"+
  966. colour$(2,option%+1),5))
  967.             
  968. UpdateStyle
  969.           
  970. $          
  971.  name%>6 
  972.  name%<24 
  973.            icon%=name%-7
  974. ?           colour%(1,icon%)=
  975. ("&"+
  976. colour$(2,option%+1),2))
  977. A           colour%(2,icon%)=
  978. ("&"+
  979. colour$(2,option%+1),3,2))
  980. ?           colour%(3,icon%)=
  981. ("&"+
  982. colour$(2,option%+1),5))
  983. W           
  984. AlterSprite(icon%+1,colour%(1,icon%),colour%(2,icon%),colour%(3,icon%))
  985. A           
  986. Refresh(icon%,fxhandle%,"R5;scol"+
  987. zero(2,icon%))
  988.           
  989.           
  990.  name%=24 
  991. >           tablecolour%(1)=
  992. ("&"+
  993. colour$(2,option%+1),2))
  994. @           tablecolour%(2)=
  995. ("&"+
  996. colour$(2,option%+1),3,2))
  997.     >           tablecolour%(3)=
  998. ("&"+
  999. colour$(2,option%+1),5))
  1000. !           
  1001. UpdateTableColour
  1002.           
  1003.         
  1004.  option% 
  1005. 3          
  1006. AlterIcons("get",30,formhandle%)
  1007. [                 
  1008. AlterIcons("http://www.argonet.co.uk/cgi-bin/newmail",31,formhandle%)
  1009. 3                 
  1010. AlterIcons("",48,formhandle%)
  1011. 3          
  1012. AlterIcons("get",30,formhandle%)
  1013. X                 
  1014. AlterIcons("http://www.argonet.co.uk/cgi-bin/mail",31,formhandle%)
  1015. 3                 
  1016. AlterIcons("",48,formhandle%)
  1017. 3          
  1018. AlterIcons("get",30,formhandle%)
  1019. <                 
  1020. AlterIcons("/cgi-bin/",31,formhandle%)
  1021. 3                 
  1022. AlterIcons("",48,formhandle%)
  1023. 4          
  1024. AlterIcons("post",30,formhandle%)
  1025. A                 
  1026. AlterIcons("mailto:"+email$,31,formhandle%)
  1027. =                 
  1028. AlterIcons("text/plain",48,formhandle%)
  1029.          
  1030.  option% 
  1031. 8          
  1032. AlterIcons("mailhide",30,formhandle%)
  1033. @                 
  1034. AlterIcons("system,submit",31,formhandle%)
  1035. 6          
  1036. AlterIcons("mailto",30,formhandle%)
  1037. 7                 
  1038. AlterIcons(email$,31,formhandle%)
  1039.  ;          
  1040. AlterIcons("mailsubject",30,formhandle%)
  1041. !3                 
  1042. AlterIcons("",31,formhandle%)
  1043. "6          
  1044. AlterIcons("linkto",30,formhandle%)
  1045. #R                 
  1046. AlterIcons("http://www.argonet.co.uk/users/",31,formhandle%)
  1047. $;          
  1048. AlterIcons("mailoptions",30,formhandle%)
  1049. %:                 
  1050. AlterIcons("nobreak",31,formhandle%)
  1051. &;          
  1052. AlterIcons("mailoptions",30,formhandle%)
  1053. '9                 
  1054. AlterIcons("nosort",31,formhandle%)
  1055. (;          
  1056. AlterIcons("mailoptions",30,formhandle%)
  1057. )A                 
  1058. AlterIcons("nobreak,nosort",31,formhandle%)
  1059.          
  1060. SetTick(formhandle%,21,0)
  1061. ,(          
  1062. SetTick(formhandle%,20,1)
  1063. -(          
  1064. SetTick(formhandle%,40,1)
  1065. .(          
  1066. SetTick(formhandle%,36,1)
  1067.           
  1068.  option% 
  1069. 04          
  1070. AlterIcons("name",30,formhandle%)
  1071. 13                 
  1072. AlterIcons("",31,formhandle%)
  1073. 25                 
  1074. AlterIcons("32",37,formhandle%)
  1075. 35                 
  1076. AlterIcons("32",41,formhandle%)
  1077. 48          
  1078. AlterIcons("mailfrom",30,formhandle%)
  1079. 53                 
  1080. AlterIcons("",31,formhandle%)
  1081. 65                 
  1082. AlterIcons("32",37,formhandle%)
  1083. 75                 
  1084. AlterIcons("64",41,formhandle%)
  1085. 88          
  1086. AlterIcons("password",30,formhandle%)
  1087. 93                 
  1088. AlterIcons("",31,formhandle%)
  1089. :5                 
  1090. AlterIcons("32",37,formhandle%)
  1091. ;5                 
  1092. AlterIcons("32",41,formhandle%)
  1093. </                 
  1094. SetTick(formhandle%,21,1)
  1095. =/                 
  1096. SetTick(formhandle%,20,0)
  1097. >5          
  1098. AlterIcons("phone",30,formhandle%)
  1099. ?5                 
  1100. AlterIcons("01",31,formhandle%)
  1101. @5                 
  1102. AlterIcons("12",37,formhandle%)
  1103. A5                 
  1104. AlterIcons("12",41,formhandle%)
  1105. B3          
  1106. AlterIcons("url",30,formhandle%)
  1107. C>                 
  1108. AlterIcons("http://www.",31,formhandle%)
  1109. D5                 
  1110. AlterIcons("32",37,formhandle%)
  1111. E3                 
  1112. AlterIcons("",41,formhandle%)
  1113. F/                 
  1114. SetTick(formhandle%,40,0)
  1115. G8          
  1116. AlterIcons("postcode",30,formhandle%)
  1117. H3                 
  1118. AlterIcons("",31,formhandle%)
  1119. I4                 
  1120. AlterIcons("8",37,formhandle%)
  1121. J4                 
  1122. AlterIcons("8",41,formhandle%)
  1123. K/                 
  1124. SetTick(formhandle%,40,1)
  1125.          
  1126. SetTick(formhandle%,23,0)
  1127. N'         
  1128. SetTick(formhandle%,24,1)
  1129. O'         
  1130. SetTick(formhandle%,25,0)
  1131. P'         
  1132. SetTick(formhandle%,36,1)
  1133. Q'         
  1134. SetTick(formhandle%,32,1)
  1135.          
  1136.  option% 
  1137. S7          
  1138. AlterIcons("message",30,formhandle%)
  1139. T3                 
  1140. AlterIcons("",31,formhandle%)
  1141. U5                 
  1142. AlterIcons("32",37,formhandle%)
  1143. V4                 
  1144. AlterIcons("5",33,formhandle%)
  1145. W;          
  1146. AlterIcons("description",30,formhandle%)
  1147. X3                 
  1148. AlterIcons("",31,formhandle%)
  1149. Y5                 
  1150. AlterIcons("50",37,formhandle%)
  1151. Z4                 
  1152. AlterIcons("3",33,formhandle%)
  1153. [8          
  1154. AlterIcons("comments",30,formhandle%)
  1155. \H                 
  1156. AlterIcons("I think your site is ",31,formhandle%)
  1157. ]5                 
  1158. AlterIcons("32",37,formhandle%)
  1159. ^4                 
  1160. AlterIcons("3",33,formhandle%)
  1161. _7          
  1162. AlterIcons("address",30,formhandle%)
  1163. `3                 
  1164. AlterIcons("",31,formhandle%)
  1165. a5                 
  1166. AlterIcons("32",37,formhandle%)
  1167. b4                 
  1168. AlterIcons("6",33,formhandle%)
  1169.          
  1170. SetTick(formhandle%,44,0)
  1171.          
  1172.  option% 
  1173. f,          
  1174. SetTick(formhandle%,44,1)
  1175. gu                 
  1176. AlterIcons("Untick this box if you do not want to be added to our mailing list",48,formhandle%)
  1177. h;                 
  1178. AlterIcons("maillist",30,formhandle%)
  1179. i3                 
  1180. AlterIcons("",31,formhandle%)
  1181.          
  1182. SetTick(formhandle%,44,0)
  1183.          
  1184.  option% 
  1185. m,          
  1186. SetTick(formhandle%,44,1)
  1187. n7                 
  1188. AlterIcons("mode",30,formhandle%)
  1189. o5                 
  1190. AlterIcons("on",31,formhandle%)
  1191. p5                 
  1192. AlterIcons("On",48,formhandle%)
  1193. q4          
  1194. AlterIcons("mode",30,formhandle%)
  1195. r6                 
  1196. AlterIcons("off",31,formhandle%)
  1197. s6                 
  1198. AlterIcons("Off",48,formhandle%)
  1199. t8          
  1200. AlterIcons("decision",30,formhandle%)
  1201. u6                 
  1202. AlterIcons("yes",31,formhandle%)
  1203. v6                 
  1204. AlterIcons("Yes",48,formhandle%)
  1205. w/                 
  1206. SetTick(formhandle%,44,1)
  1207. x8          
  1208. AlterIcons("decision",30,formhandle%)
  1209. y5                 
  1210. AlterIcons("no",31,formhandle%)
  1211. z5                 
  1212. AlterIcons("No",48,formhandle%)
  1213. {8          
  1214. AlterIcons("decision",30,formhandle%)
  1215. |8                 
  1216. AlterIcons("maybe",31,formhandle%)
  1217. }8                 
  1218. AlterIcons("Maybe",48,formhandle%)
  1219.          
  1220. SetTick(formhandle%,26,0)
  1221. '         
  1222. SetTick(formhandle%,27,0)
  1223. +         
  1224. AlterIcons("",33,formhandle%)
  1225.          
  1226.  option% 
  1227. 6          
  1228. AlterIcons("select",30,formhandle%)
  1229. /                 
  1230. SetTick(formhandle%,32,0)
  1231. ;          
  1232. AlterIcons("selectmulti",30,formhandle%)
  1233. 4                 
  1234. AlterIcons("5",33,formhandle%)
  1235. /                 
  1236. SetTick(formhandle%,26,1)
  1237. /                 
  1238. SetTick(formhandle%,32,1)
  1239.          
  1240. SetTick(formhandle%,44,0)
  1241.          
  1242.  option% 
  1243. 0          
  1244. AlterIcons("",30,formhandle%)
  1245. /                 
  1246. SetTick(formhandle%,44,1)
  1247. ?                 
  1248. AlterIcons("Selected one",31,formhandle%)
  1249. 0          
  1250. AlterIcons("",30,formhandle%)
  1251. C                 
  1252. AlterIcons("Not selected one",31,formhandle%)
  1253.          
  1254. AlterIcons("",30,formhandle%)
  1255. +         
  1256. AlterIcons("",31,formhandle%)
  1257. +         
  1258. AlterIcons("",48,formhandle%)
  1259.          
  1260.  option% 
  1261. 6          
  1262. AlterIcons("submit",30,formhandle%)
  1263. 5          
  1264. AlterIcons("reset",30,formhandle%)
  1265. 6          
  1266. AlterIcons("submit",30,formhandle%)
  1267. <                 
  1268. AlterIcons("send this",31,formhandle%)
  1269. 5          
  1270. AlterIcons("reset",30,formhandle%)
  1271. @                 
  1272. AlterIcons("wipe it clean",31,formhandle%)
  1273.          
  1274. SetTick(formhandle%,44,0)
  1275.          
  1276.  option% 
  1277. 6          
  1278. AlterIcons("submit",30,formhandle%)
  1279. ;                 
  1280. AlterIcons("send.gif",31,formhandle%)
  1281. 6          
  1282. AlterIcons("engage",30,formhandle%)
  1283. A                 
  1284. AlterIcons("gfx/engage.gif",31,formhandle%)
  1285. /                 
  1286. SetTick(formhandle%,44,1)
  1287.          
  1288.  20,26:
  1289.  countloop%=1
  1290. C          imagetemp$(countloop%)=imagedb$(option%+1,countloop%)
  1291.          
  1292.          
  1293. DecodeImage
  1294. AlterIcons(
  1295. imagedb$(option%+1,2),
  1296. (imagedb$(option%+1,2))-1),2,imghandle%)
  1297. AlterIcons(menuitem$(option%+1),18,foothandle%)
  1298. '         
  1299. SetTick(foothandle%,17,
  1300. AlterIcons(menuitem$(option%+1),19,foothandle%)
  1301. '         
  1302. SetTick(foothandle%,17,
  1303. AlterIcons(menuitem$(option%+1),21,foothandle%)
  1304. '         
  1305. SetTick(foothandle%,20,
  1306. AlterIcons(menuitem$(option%+1),23,foothandle%)
  1307. '         
  1308. SetTick(foothandle%,22,
  1309. AlterIcons(menuitem$(option%+1),24,foothandle%)
  1310. '         
  1311. SetTick(foothandle%,22,
  1312. AlterIcons(menuitem$(option%+1),26,foothandle%)
  1313. '         
  1314. SetTick(foothandle%,25,
  1315. AlterIcons(menuitem$(option%+1),13,opthandle%)
  1316. AlterIcons(menuitem$(option%+1),14,opthandle%)
  1317. AlterIcons(menuitem$(option%+1),15,opthandle%)
  1318. AlterIcons(url$(option%+1,1),0,linkhandle%)
  1319. 9         
  1320. AlterIcons(url$(option%+1,2),2,linkhandle%)
  1321. :         
  1322. AlterIcons(url$(option%+1,3),21,linkhandle%)
  1323.  option% 
  1324. 3          
  1325. AlterIcons("_top",5,linkhandle%)
  1326. 5          
  1327. AlterIcons("_blank",5,linkhandle%)
  1328. 6          
  1329. AlterIcons("_parent",5,linkhandle%)
  1330. 4          
  1331. AlterIcons("_self",5,linkhandle%)
  1332. 2          
  1333. AlterIcons("top",5,linkhandle%)
  1334. 5          
  1335. AlterIcons("bottom",5,linkhandle%)
  1336. 3          
  1337. AlterIcons("left",5,linkhandle%)
  1338. 4          
  1339. AlterIcons("right",5,linkhandle%)
  1340. 3          
  1341. AlterIcons("main",5,linkhandle%)
  1342. 6          
  1343. AlterIcons("sidebar",5,linkhandle%)
  1344.          
  1345.  23,25:
  1346. AlterIcons(
  1347. imagedb$(option%+1,3),
  1348. (imagedb$(option%+1,3))-1),9,linkhandle%)
  1349. A            
  1350. AlterIcons(imagedb$(option%+1,1),10,linkhandle%)
  1351.  27:grabber$=""
  1352.          
  1353.  option%+1 
  1354. 3          
  1355.  1:grabber$=
  1356. icondata(1,headhandle%)
  1357. 4          
  1358.  2:grabber$=
  1359. icondata(28,headhandle%)
  1360. 4          
  1361.  3:grabber$=
  1362. icondata(15,headhandle%)
  1363. 2          
  1364.  4:grabber$=
  1365. icondata(54,fxhandle%)
  1366. 4          
  1367.  5:grabber$=
  1368. icondata(19,addrhandle%)
  1369. 4          
  1370.  6:grabber$=
  1371. icondata(26,addrhandle%)
  1372. 3          
  1373.  7:grabber$=
  1374. icondata(0,linkhandle%)
  1375. 3          
  1376.  8:grabber$=
  1377. icondata(2,linkhandle%)
  1378. 4          
  1379.  9:grabber$=
  1380. icondata(21,linkhandle%)
  1381. 3          
  1382.  10:grabber$=
  1383. icondata(2,imghandle%)
  1384. "          
  1385.  11:grabber$=owner$
  1386. %          
  1387.  12:grabber$=nickname$
  1388. "          
  1389.  13:grabber$=email$
  1390. %          
  1391.  14:grabber$=userhome$
  1392. (          
  1393.  15:grabber$=profilename$
  1394. )          
  1395.  16:grabber$=profileemail$
  1396. (          
  1397.  17:grabber$=profilehome$
  1398.          
  1399.          
  1400.  grabber% 
  1401. 5          
  1402. AlterIcons(grabber$,1,headhandle%)
  1403. 6          
  1404. AlterIcons(grabber$,28,headhandle%)
  1405. 6          
  1406. AlterIcons(grabber$,15,headhandle%)
  1407. 4          
  1408. AlterIcons(grabber$,54,fxhandle%)
  1409. 6          
  1410. AlterIcons(grabber$,19,addrhandle%)
  1411. 6          
  1412. AlterIcons(grabber$,26,addrhandle%)
  1413. 5          
  1414. AlterIcons(grabber$,2,linkhandle%)
  1415. 6          
  1416. AlterIcons(grabber$,21,linkhandle%)
  1417. 4          
  1418. AlterIcons(grabber$,2,imghandle%)
  1419.          
  1420.  37:grabber$=menuitem$(option%+1)
  1421. 0         
  1422. AlterIcons(grabber$,46,opthandle%)
  1423. ,         
  1424.  PROCLoadColourNames(grabber$)
  1425.  right%=1 
  1426. "Wimp_CreateMenu",,menu%
  1427. OnFXMenu
  1428.  option% 
  1429.  0: !block%=savehandle%
  1430. -         
  1431.  "Wimp_GetWindowState",,block%
  1432.          block%!28=-1
  1433.          block%!20=0
  1434.          block%!24=0
  1435.          block%!12=x%
  1436.          block%!16=y%
  1437. )         
  1438.  "Wimp_OpenWindow",,block%
  1439. ArtWorksTable("<Wimp$ScrapDir>.ColTable")
  1440. =         
  1441. "XOS_CLI","Filer_Run <Wimp$ScrapDir>.ColTable"
  1442. OnForm
  1443. icon%=bl!16
  1444. button%=bl!8
  1445.  button%=4 
  1446.  button%=1 
  1447.  icon% 
  1448. LaunchURL("file:/HTML3:Docs/forms.html")
  1449. SetTick(formhandle%,50,1)
  1450.          
  1451. GreyForm(1)
  1452. SetTick(formhandle%,3,1)
  1453.          
  1454. GreyForm(2)
  1455. SetTick(formhandle%,4,1)
  1456.          
  1457. GreyForm(3)
  1458. SetTick(formhandle%,5,1)
  1459.          
  1460. GreyForm(4)
  1461. SetTick(formhandle%,6,1)
  1462.          
  1463. GreyForm(5)
  1464. SetTick(formhandle%,7,1)
  1465.          
  1466. GreyForm(6)
  1467. SetTick(formhandle%,47,1)
  1468.          
  1469. GreyForm(7)
  1470. SetTick(formhandle%,8,1)
  1471.          
  1472. GreyForm(8)
  1473. SetTick(formhandle%,9,1)
  1474.          
  1475. GreyForm(9)
  1476. SetTick(formhandle%,10,1)
  1477.          
  1478. GreyForm(10)
  1479. SetTick(formhandle%,1,1)
  1480.          
  1481. GreyForm(11)
  1482. CloseWindow(formhandle%)
  1483.  button%<>0 
  1484.  icon% 
  1485.  2:menutrack%=10
  1486. %)         menuitem$(1)="Argo new form"
  1487. &%         menuitem$(2)="Argo form"
  1488. '&         menuitem$(3)="Demon form"
  1489. ((         menuitem$(4)="mailto: form"
  1490. )&         
  1491. MakeMenu(4,"Form Types")
  1492. *1         
  1493. "Wimp_CreateMenu",,menu%,bl!0,bl!4
  1494. 18:menutrack%=11
  1495. ,2         menuitem$(1)="Argo: hide system junk"
  1496. -)         menuitem$(2)="Argo: send to"
  1497. .)         menuitem$(3)="Argo: subject"
  1498. /)         menuitem$(4)="Argo: link to"
  1499. 04         menuitem$(5)="Argo: proper line breaks"
  1500. 1,         menuitem$(6)="Argo: no sorting"
  1501. 2>         menuitem$(7)="Argo: proper breaks and no sorting"
  1502. 3"         
  1503. MakeMenu(7,"Hidden")
  1504. 41         
  1505. "Wimp_CreateMenu",,menu%,bl!0,bl!4
  1506. 11:menutrack%=12
  1507. 6          menuitem$(1)="Name"
  1508. 7)         menuitem$(2)="Email address"
  1509. 8$         menuitem$(3)="Password"
  1510. 9,         menuitem$(4)="Telephone number"
  1511.          menuitem$(5)="URL"
  1512. ;+         menuitem$(6)="Postal/zip code"
  1513. <&         
  1514. MakeMenu(6,"Text input")
  1515. =1         
  1516. "Wimp_CreateMenu",,menu%,bl!0,bl!4
  1517. 12:menutrack%=13
  1518. ?#         menuitem$(1)="Message"
  1519. @'         menuitem$(2)="Description"
  1520. A$         menuitem$(3)="Comments"
  1521. B#         menuitem$(4)="Address"
  1522. C%         
  1523. MakeMenu(4,"Text area")
  1524. D1         
  1525. "Wimp_CreateMenu",,menu%,bl!0,bl!4
  1526. 13:menutrack%=14
  1527. F(         menuitem$(1)="Mailing list"
  1528. G&         
  1529. MakeMenu(1,"Tick Boxes")
  1530. H1         
  1531. "Wimp_CreateMenu",,menu%,bl!0,bl!4
  1532. 14:menutrack%=15
  1533.          menuitem$(1)="On"
  1534.          menuitem$(2)="Off"
  1535.          menuitem$(3)="Yes"
  1536.          menuitem$(4)="No"
  1537. N!         menuitem$(5)="Maybe"
  1538. O"         
  1539. MakeMenu(5,"Radios")
  1540. P1         
  1541. "Wimp_CreateMenu",,menu%,bl!0,bl!4
  1542. 15:menutrack%=16
  1543. R&         menuitem$(1)="Select one"
  1544. S'         menuitem$(2)="Select many"
  1545. T          
  1546. MakeMenu(2,"Menu")
  1547. U1         
  1548. "Wimp_CreateMenu",,menu%,bl!0,bl!4
  1549. 51:menutrack%=17
  1550. W$         menuitem$(1)="Selected"
  1551. X(         menuitem$(2)="Not selected"
  1552. Y%         
  1553. MakeMenu(2,"Menu item")
  1554. Z1         
  1555. "Wimp_CreateMenu",,menu%,bl!0,bl!4
  1556. 16:menutrack%=18
  1557. \"         menuitem$(1)="Submit"
  1558. ]!         menuitem$(2)="Reset"
  1559. ^%         menuitem$(3)="send this"
  1560. _)         menuitem$(4)="wipe it clean"
  1561. `#         
  1562. MakeMenu(4,"Buttons")
  1563. a1         
  1564. "Wimp_CreateMenu",,menu%,bl!0,bl!4
  1565. 17:menutrack%=19
  1566. c          menuitem$(1)="Send"
  1567. d"         menuitem$(2)="Engage"
  1568. e!         
  1569. MakeMenu(2,"Image")
  1570. f1         
  1571. "Wimp_CreateMenu",,menu%,bl!0,bl!4
  1572. bumper(formhandle%,33,34,35,200,0,0,
  1573. bumper(formhandle%,37,38,39,200,0,0,
  1574. bumper(formhandle%,41,42,43,1000,0,0,
  1575.  icon%=45 
  1576.  button%<>2 
  1577. MakeFormItem
  1578. MakeMenu(maxitem%,menuname$)
  1579. m%=menu%
  1580.  tempmem%
  1581.  menuname$
  1582. $tempmem%=menuname$
  1583. m%!0=tempmem%
  1584. m%!12=&70207
  1585. m%!16=180
  1586. m%!20=44
  1587. m%!24=0
  1588. m%+=28
  1589. loop%=0
  1590. loop%+=1
  1591.  loop%>1 
  1592.  m%+=24
  1593. }    m0%=0
  1594.  loop%=maxitem% 
  1595.  m0%+=&80
  1596.  loop%=1 
  1597.  m0%+=%100000000
  1598. menutext$=menuitem$(loop%)
  1599. menutext$,1)="_" 
  1600.  menutext$=
  1601. menutext$,
  1602. (menutext$)-1):m0%+=%10
  1603. menutext$,1)="*" 
  1604.  menutext$=
  1605. menutext$,
  1606. (menutext$)-1):m0%+=%1
  1607. m%!0=m0%
  1608. m%!4=-1
  1609. inmenustr%=
  1610. menutext$,">")
  1611.  inmenustr%>0 
  1612. % m%!4=
  1613. menutext$,inmenustr%+1))
  1614. ' menutext$=
  1615. menutext$,inmenustr%-1)
  1616. m8%=&7000001
  1617. menutext$,1)="<" 
  1618.  menutext$=
  1619. menutext$,
  1620. (menutext$)-1):m8%+=1<<22
  1621. m%!8=m8%
  1622.  menutext$>11
  1623.  tempmem%
  1624.  menutext$
  1625.  $tempmem%=menutext$
  1626.  m%!8=(m%!8)
  1627.  m%!12=tempmem%
  1628.  m%!16=-1
  1629.  m%!20=
  1630.  menutext$
  1631.  $(m%+12)=menutext$
  1632.  loop%=maxitem%
  1633. GreyForm(notgrey%)
  1634.  loop%=11 
  1635. greyicon(formhandle%,loop%,
  1636. greyicon(formhandle%, 2,
  1637. greyicon(formhandle%,48,
  1638. greyicon(formhandle%,49,
  1639. greyicon(formhandle%,51,
  1640. AlterIcons("Selected",44,formhandle%)
  1641. AlterIcons("",49,formhandle%)
  1642. AlterIcons("",30,formhandle%)
  1643. AlterIcons("",31,formhandle%)
  1644. AlterIcons("",48,formhandle%)
  1645.  notgrey% 
  1646. AlterIcons("Create a new form",46,formhandle%)
  1647. %       
  1648. greyicon(formhandle%,2,
  1649. &       
  1650. greyicon(formhandle%,28,
  1651. &       
  1652. greyicon(formhandle%,29,
  1653. &       
  1654. greyicon(formhandle%,30,
  1655. &       
  1656. greyicon(formhandle%,31,
  1657. &       
  1658. greyicon(formhandle%,48,
  1659. &       
  1660. greyicon(formhandle%,49,
  1661. /       
  1662. AlterIcons("Method",28,formhandle%)
  1663. /       
  1664. AlterIcons("Action",29,formhandle%)
  1665. /       
  1666. AlterIcons("Encode",49,formhandle%)
  1667. AlterIcons("Create a text input box",46,formhandle%)
  1668. &       
  1669. greyicon(formhandle%,28,
  1670. &       
  1671. greyicon(formhandle%,29,
  1672. &       
  1673. greyicon(formhandle%,30,
  1674. &       
  1675. greyicon(formhandle%,31,
  1676. -       
  1677. AlterIcons("Name",28,formhandle%)
  1678. -       
  1679. AlterIcons("Text",29,formhandle%)
  1680. &       
  1681. greyicon(formhandle%,11,
  1682. ;       
  1683.  loop%=36 
  1684. greyicon(formhandle%,loop%,
  1685. ;       
  1686.  loop%=19 
  1687. greyicon(formhandle%,loop%,
  1688. AlterIcons("Create a text area",46,formhandle%)
  1689. &       
  1690. greyicon(formhandle%,28,
  1691. &       
  1692. greyicon(formhandle%,29,
  1693. &       
  1694. greyicon(formhandle%,30,
  1695. &       
  1696. greyicon(formhandle%,31,
  1697. -       
  1698. AlterIcons("Name",28,formhandle%)
  1699. -       
  1700. AlterIcons("Text",29,formhandle%)
  1701. &       
  1702. greyicon(formhandle%,12,
  1703. ;       
  1704.  loop%=22 
  1705. greyicon(formhandle%,loop%,
  1706. ;       
  1707.  loop%=32 
  1708. greyicon(formhandle%,loop%,
  1709. AlterIcons("Create a tick box",46,formhandle%)
  1710. &       
  1711. greyicon(formhandle%,28,
  1712. &       
  1713. greyicon(formhandle%,29,
  1714. &       
  1715. greyicon(formhandle%,30,
  1716. &       
  1717. greyicon(formhandle%,31,
  1718. &       
  1719. greyicon(formhandle%,48,
  1720. &       
  1721. greyicon(formhandle%,49,
  1722. -       
  1723. AlterIcons("Name",28,formhandle%)
  1724. .       
  1725. AlterIcons("Value",29,formhandle%)
  1726. -       
  1727. AlterIcons("Text",49,formhandle%)
  1728. &       
  1729. greyicon(formhandle%,13,
  1730. &       
  1731. greyicon(formhandle%,44,
  1732. AlterIcons("Create a radio icon",46,formhandle%)
  1733. &       
  1734. greyicon(formhandle%,28,
  1735. &       
  1736. greyicon(formhandle%,29,
  1737. &       
  1738. greyicon(formhandle%,30,
  1739. &       
  1740. greyicon(formhandle%,31,
  1741. &       
  1742. greyicon(formhandle%,48,
  1743. &       
  1744. greyicon(formhandle%,49,
  1745. -       
  1746. AlterIcons("Name",28,formhandle%)
  1747. .       
  1748. AlterIcons("Value",29,formhandle%)
  1749. -       
  1750. AlterIcons("Text",49,formhandle%)
  1751. &       
  1752. greyicon(formhandle%,14,
  1753. &       
  1754. greyicon(formhandle%,44,
  1755. AlterIcons("Create a drop-down menu",46,formhandle%)
  1756. &       
  1757. greyicon(formhandle%,28,
  1758. &       
  1759. greyicon(formhandle%,30,
  1760. -       
  1761. AlterIcons("Name",28,formhandle%)
  1762. )       
  1763. AlterIcons("",29,formhandle%)
  1764. &       
  1765. greyicon(formhandle%,15,
  1766. &       
  1767. greyicon(formhandle%,27,
  1768. &       
  1769. greyicon(formhandle%,26,
  1770. ;       
  1771.  loop%=32 
  1772. greyicon(formhandle%,loop%,
  1773. AlterIcons("Create an item within a menu",46,formhandle%)
  1774. &       
  1775. greyicon(formhandle%,28,
  1776. &       
  1777. greyicon(formhandle%,29,
  1778. &       
  1779. greyicon(formhandle%,30,
  1780. &       
  1781. greyicon(formhandle%,31,
  1782. .       
  1783. AlterIcons("Value",28,formhandle%)
  1784. -       
  1785. AlterIcons("Text",29,formhandle%)
  1786. &       
  1787. greyicon(formhandle%,44,
  1788. &       
  1789. greyicon(formhandle%,51,
  1790. AlterIcons("Create a button",46,formhandle%)
  1791. &       
  1792. greyicon(formhandle%,28,
  1793. &       
  1794. greyicon(formhandle%,29,
  1795. &       
  1796. greyicon(formhandle%,30,
  1797. &       
  1798. greyicon(formhandle%,31,
  1799. &       
  1800. greyicon(formhandle%,48,
  1801. &       
  1802. greyicon(formhandle%,49,
  1803. -       
  1804. AlterIcons("Type",28,formhandle%)
  1805. .       
  1806. AlterIcons("Value",29,formhandle%)
  1807. -       
  1808. AlterIcons("Name",49,formhandle%)
  1809. &       
  1810. greyicon(formhandle%,16,
  1811. AlterIcons("Create an image button",46,formhandle%)
  1812. &       
  1813. greyicon(formhandle%,28,
  1814. &       
  1815. greyicon(formhandle%,29,
  1816. &       
  1817. greyicon(formhandle%,30,
  1818. &       
  1819. greyicon(formhandle%,31,
  1820. -       
  1821. AlterIcons("Name",28,formhandle%)
  1822. /       
  1823. AlterIcons("Source",29,formhandle%)
  1824. &       
  1825. greyicon(formhandle%,17,
  1826. &       
  1827. greyicon(formhandle%,44,
  1828. 2       
  1829. AlterIcons("Relative ",44,formhandle%)
  1830. AlterIcons("Create a hidden attribute",46,formhandle%)
  1831. &       
  1832. greyicon(formhandle%,28,
  1833. &       
  1834. greyicon(formhandle%,29,
  1835. &       
  1836. greyicon(formhandle%,30,
  1837.     &       
  1838. greyicon(formhandle%,31,
  1839. -       
  1840. AlterIcons("Name",28,formhandle%)
  1841. .       
  1842. AlterIcons("Value",29,formhandle%)
  1843. &       
  1844. greyicon(formhandle%,18,
  1845. AlterIcons("Close the form",46,formhandle%)
  1846. MakeFormItem
  1847. form%=0
  1848. CheckRadio(formhandle%,1)>0 
  1849.  form%=69
  1850.  temp$="</form>"
  1851.  pumping=0 
  1852. push(temp$)
  1853.  pumping=1 
  1854. (pump$)+
  1855. (temp$)>=255 
  1856.  pumping=1 
  1857. (pump$)+
  1858. (temp$)<255 pump$=pump$+temp$
  1859.  form%=69 
  1860.  pumping<>0 
  1861. CheckRadio(formhandle%,50)>0 
  1862.  form%=1
  1863. CheckRadio(formhandle%,10)>0 
  1864.  form%=2
  1865. CheckRadio(formhandle%,3)>0  
  1866.  form%=3
  1867. CheckRadio(formhandle%,4)>0  
  1868.  form%=4
  1869. CheckRadio(formhandle%,5)>0  
  1870.  form%=5
  1871. CheckRadio(formhandle%,6)>0  
  1872.  form%=6
  1873. CheckRadio(formhandle%,7)>0  
  1874.  form%=7
  1875. CheckRadio(formhandle%,47)>0 
  1876.  form%=8
  1877. CheckRadio(formhandle%,8)>0  
  1878.  form%=9
  1879. CheckRadio(formhandle%,9)>0  
  1880.  form%=10
  1881.  form%=0 
  1882. bumper(formhandle%,33,34,35,200,0,0,
  1883. formheight%=bumpno%
  1884. CheckRadio(formhandle%,32)=0 
  1885.  formheight%=0
  1886. bumper(formhandle%,37,38,39,200,0,0,
  1887. formwidth%=bumpno%
  1888. CheckRadio(formhandle%,36)=0 
  1889.  formwidth%=0
  1890. bumper(formhandle%,41,42,43,1000,0,0,
  1891. formmax%=bumpno%
  1892. CheckRadio(formhandle%,40)=0 
  1893.  formmax%=0
  1894. 3!out%=
  1895. "<Wimp$ScrapDir>.HTML3"
  1896.  form% 
  1897. #out%,"<form";
  1898. 6b         
  1899. icondata(30,formhandle%)<>"" 
  1900. #out%," method="""+
  1901. icondata(30,formhandle%)+"""";
  1902. 7b         
  1903. icondata(31,formhandle%)<>"" 
  1904. #out%," action="""+
  1905. icondata(31,formhandle%)+"""";
  1906. 8c         
  1907. icondata(48,formhandle%)<>"" 
  1908. #out%," enctype="""+
  1909. icondata(48,formhandle%)+"""";
  1910.          
  1911. #out%,">"
  1912. icondata(30,formhandle%)="" 
  1913. icondata(31,formhandle%)="" 
  1914.           
  1915. <@          
  1916. AlterIcons("Must have some data!",46,formhandle%)
  1917.          
  1918. >.          
  1919. #out%,"<input type=""hidden""";
  1920. ?a          
  1921. icondata(30,formhandle%)<>"" 
  1922. #out%," name="""+
  1923. icondata(30,formhandle%)+"""";
  1924. @b          
  1925. icondata(31,formhandle%)<>"" 
  1926. #out%," value="""+
  1927. icondata(31,formhandle%)+"""";
  1928.          
  1929. #out%,">"
  1930.          
  1931. #out%,"<input type=""text""";
  1932. D`         
  1933. icondata(30,formhandle%)<>"" 
  1934. #out%," name="""+
  1935. icondata(30,formhandle%)+"""";
  1936. Ea         
  1937. icondata(31,formhandle%)<>"" 
  1938. #out%," value="""+
  1939. icondata(31,formhandle%)+"""";
  1940. FC         
  1941.  formwidth%>0 
  1942. #out%," size="""+
  1943. (formwidth%)+"""";
  1944. GD         
  1945.  formmax%>0 
  1946. #out%," maxlength="""+
  1947. (formmax%)+"""";
  1948.          
  1949. #out%,">"
  1950. #out%,"<textarea";
  1951. J`         
  1952. icondata(30,formhandle%)<>"" 
  1953. #out%," name="""+
  1954. icondata(30,formhandle%)+"""";
  1955. KE         
  1956.  formheight%>0 
  1957. #out%," rows="""+
  1958. (formheight%)+"""";
  1959. LD         
  1960.  formwidth%>0  
  1961. #out%," cols="""+
  1962. (formwidth%)+"""";
  1963.          wrap%=0:wrap$=""
  1964. NF         
  1965. CheckRadio(formhandle%,24)>0 
  1966.  wrap%=1:wrap$="virtual"
  1967. OG         
  1968. CheckRadio(formhandle%,25)>0 
  1969.  wrap%=2:wrap$="physical"
  1970. P7         
  1971.  wrap%<>0 
  1972. #out%," wrap="""+wrap$+"""";
  1973.          
  1974. #out%,">";
  1975. RP         
  1976. icondata(31,formhandle%)<>"" 
  1977. #out%,
  1978. icondata(31,formhandle%);
  1979. S!         
  1980. #out%,"</textarea>"
  1981. #out%,"<input type=""checkbox""";
  1982. U`         
  1983. icondata(30,formhandle%)<>"" 
  1984. #out%," name="""+
  1985. icondata(30,formhandle%)+"""";
  1986. Va         
  1987. icondata(31,formhandle%)<>"" 
  1988. #out%," value="""+
  1989. icondata(31,formhandle%)+"""";
  1990. WA         
  1991. CheckRadio(formhandle%,44)>0 
  1992. #out%," checked";
  1993.          
  1994. #out%,">";
  1995. YP         
  1996. icondata(48,formhandle%)<>"" 
  1997. #out%,
  1998. icondata(48,formhandle%);
  1999. #out%,"<input type=""radio""";
  2000. [`         
  2001. icondata(30,formhandle%)<>"" 
  2002. #out%," name="""+
  2003. icondata(30,formhandle%)+"""";
  2004. \a         
  2005. icondata(31,formhandle%)<>"" 
  2006. #out%," value="""+
  2007. icondata(31,formhandle%)+"""";
  2008. ]A         
  2009. CheckRadio(formhandle%,44)>0 
  2010. #out%," checked";
  2011.          
  2012. #out%,">";
  2013. _P         
  2014. icondata(48,formhandle%)<>"" 
  2015. #out%,
  2016. icondata(48,formhandle%);
  2017. #out%,"<select";
  2018. a`         
  2019. icondata(30,formhandle%)<>"" 
  2020. #out%," name="""+
  2021. icondata(30,formhandle%)+"""";
  2022. bE         
  2023.  formheight%>0 
  2024. #out%," size="""+
  2025. (formheight%)+"""";
  2026. cB         
  2027. CheckRadio(formhandle%,26)>0 
  2028. #out%," multiple";
  2029.          
  2030. #out%,">"
  2031. e&         
  2032. #out%,
  2033. (10)+"</select>";
  2034. #out%,"<option";
  2035. ga         
  2036. icondata(30,formhandle%)<>"" 
  2037. #out%," value="""+
  2038. icondata(30,formhandle%)+"""";
  2039. hB         
  2040. CheckRadio(formhandle%,44)>0 
  2041. #out%," selected";
  2042.          
  2043. #out%,">";
  2044. jP         
  2045. icondata(31,formhandle%)<>"" 
  2046. #out%,
  2047. icondata(31,formhandle%);
  2048. icondata(30,formhandle%)="" 
  2049.           
  2050. mD          
  2051. AlterIcons("Must have an input type!",46,formhandle%)
  2052.          
  2053. oE          
  2054. #out%,"<input type="""+
  2055. icondata(30,formhandle%)+"""";
  2056. pb          
  2057. icondata(31,formhandle%)<>"" 
  2058. #out%," value="""+
  2059. icondata(31,formhandle%)+"""";
  2060. qa          
  2061. icondata(48,formhandle%)<>"" 
  2062. #out%," name="""+
  2063. icondata(48,formhandle%)+"""";
  2064.           
  2065. #out%,">";
  2066.          
  2067. icondata(31,formhandle%)="" 
  2068.           
  2069. vG          
  2070. AlterIcons("Must have source for image!",46,formhandle%)
  2071.          
  2072. x-          
  2073. #out%,"<input type=""image""";
  2074. y`          
  2075. icondata(31,formhandle%)<>"" 
  2076. #out%," src="""+
  2077. icondata(31,formhandle%)+"""";
  2078. za          
  2079. icondata(30,formhandle%)<>"" 
  2080. #out%," name="""+
  2081. icondata(30,formhandle%)+"""";
  2082.           
  2083. #out%,">";
  2084.          
  2085. #out%
  2086. "XOS_CLI","Settype <Wimp$ScrapDir>.HTML3 &FAF"
  2087. filepush("<Wimp$ScrapDir>.HTML3",1)
  2088. OnFoot
  2089. icon%=bl!16
  2090. button%=bl!8
  2091. x%=bl!0
  2092. y%=bl!4
  2093.  button%<>2 
  2094.  icon% 
  2095.  0,1,2,3:
  2096. GreyFoot
  2097. "XOS_CLI","Filer_OpenDir HTML3:Docs.Buttons -si -sn -x"+
  2098. (x%)+" -y"+
  2099. CloseWindow(foothandle%)
  2100. MakeFooter
  2101.  icon% 
  2102. LaunchURL("file:/HTML3:Docs/foot.html")
  2103. LaunchURL("file:/HTML3:Docs/token.html")
  2104. 28:menutrack%=28
  2105.         menuitem$(1)=owner$
  2106. "        menuitem$(2)=nickname$
  2107.         menuitem$(3)=email$
  2108.         menuitem%=3
  2109.          
  2110.  profilename$<>"" 
  2111.          menuitem%+=1
  2112. .         menuitem$(menuitem%)=profilename$
  2113.         
  2114. !        
  2115.  profileemail$<>"" 
  2116.          menuitem%+=1
  2117. /         menuitem$(menuitem%)=profileemail$
  2118.         
  2119. *        
  2120. MakeMenu(menuitem%,"Contact")
  2121. 0        
  2122. "Wimp_CreateMenu",,menu%,bl!0,bl!4
  2123. 29:menutrack%=29
  2124.         menuitem$(1)=email$
  2125.         menuitem%=1
  2126. !        
  2127.  profileemail$<>"" 
  2128.          menuitem%+=1
  2129. /         menuitem$(menuitem%)=profileemail$
  2130.         
  2131. (        
  2132. MakeMenu(menuitem%,"Email")
  2133. 0        
  2134. "Wimp_CreateMenu",,menu%,bl!0,bl!4
  2135. 30:menutrack%=30
  2136.         menuitem$(1)=owner$
  2137. "        menuitem$(2)=nickname$
  2138.         menuitem%=2
  2139.          
  2140.  profilename$<>"" 
  2141.          menuitem%+=1
  2142. .         menuitem$(menuitem%)=profilename$
  2143.         
  2144. ,        
  2145. MakeMenu(menuitem%,"Copyright")
  2146. 0        
  2147. "Wimp_CreateMenu",,menu%,bl!0,bl!4
  2148. 31:menutrack%=31
  2149.         menuitem$(1)=owner$
  2150. "        menuitem$(2)=nickname$
  2151.         menuitem%=2
  2152. +        
  2153. MakeMenu(menuitem%,"Designer")
  2154. 0        
  2155. "Wimp_CreateMenu",,menu%,bl!0,bl!4
  2156. 32:menutrack%=32
  2157.         menuitem$(1)=email$
  2158.         menuitem%=1
  2159. !        
  2160.  profileemail$<>"" 
  2161.          menuitem%+=1
  2162. /         menuitem$(menuitem%)=profileemail$
  2163.         
  2164. (        
  2165. MakeMenu(menuitem%,"Email")
  2166. 0        
  2167. "Wimp_CreateMenu",,menu%,bl!0,bl!4
  2168. 33:menutrack%=33
  2169. )        menuitem$(1)="Acorn Hardware"
  2170. /        menuitem$(2)="an Acorn workstation"
  2171. /        menuitem$(3)="an Acorn Phoebe 2100"
  2172. *        menuitem$(4)="an Acorn Phoebe"
  2173. -        menuitem$(5)="an Acorn RiscPC SA"
  2174. .        menuitem$(6)="an Acorn RiscPC 700"
  2175. .        menuitem$(7)="an Acorn RiscPC 600"
  2176. *        menuitem$(8)="an Acorn RiscPC"
  2177. *        menuitem$(9)="an Acorn A7000+"
  2178. *        menuitem$(10)="an Acorn A7000"
  2179. '        menuitem$(11)="an Acorn A4"
  2180. *        menuitem$(12)="an Acorn A5000"
  2181. *        menuitem$(13)="an Acorn A4000"
  2182. *        menuitem$(14)="an Acorn A3020"
  2183. *        menuitem$(15)="an Acorn A3010"
  2184. *        menuitem$(16)="an Acorn A3000"
  2185. )        menuitem$(17)="an Acorn A540"
  2186. )        menuitem$(18)="an Acorn A420"
  2187. )        menuitem$(19)="an Acorn A410"
  2188. )        menuitem$(20)="an Acorn A310"
  2189. )        menuitem$(21)="an Acorn A305"
  2190. -        menuitem$(22)="a Peanut portable"
  2191. *        menuitem$(23)="an Acorn clone"
  2192. 5        menuitem$(24)="something other than a PC"
  2193. &        menuitem$(25)="Pure Style"
  2194. &        menuitem$(26)="Raw Talent"
  2195. (        menuitem$(27)="Sheer Genius"
  2196. *        menuitem$(28)="Psychic Powers"
  2197. +        menuitem$(29)="A Smoked Kipper"
  2198. 3        menuitem$(30)="Intoxicating Substances"
  2199. $        menuitem$(31)="StrongEd"
  2200. $        menuitem$(32)="ArtWorks"
  2201. %        menuitem$(33)="Photodesk"
  2202. !        menuitem$(34)="Paint"
  2203.          menuitem$(35)="Draw"
  2204.          menuitem$(36)="Edit"
  2205. $        
  2206. MakeMenu(36,"Using...")
  2207. 0        
  2208. "Wimp_CreateMenu",,menu%,bl!0,bl!4
  2209. bumper(foothandle%,35,36,37,7,0,0,
  2210. CheckRadio(foothandle%,5)=0 
  2211. CheckRadio(foothandle%,6)=0 
  2212. CheckRadio(foothandle%,7)=0 
  2213. CheckRadio(foothandle%,8)=0 
  2214. SetTick(foothandle%,5,
  2215. MakeFooter
  2216.  pumping<>0 
  2217. designed%=0
  2218. align%=0
  2219. CheckRadio(foothandle%,6)>0 align%=1
  2220. CheckRadio(foothandle%,7)>0 align%=2
  2221. CheckRadio(foothandle%,8)>0 align%=3
  2222. bumper(foothandle%,35,36,37,7,0,0,
  2223. footsize%=bumpno%
  2224. foottype%=0
  2225. CheckRadio(foothandle%,1)>0 
  2226.  foottype%=1
  2227. CheckRadio(foothandle%,2)>0 
  2228.  foottype%=2
  2229. CheckRadio(foothandle%,3)>0 
  2230.  foottype%=3
  2231.  foottype%=0 
  2232. SetTick(foothandle%,0,
  2233.  foottype%=3 
  2234. icondata(44,foothandle%)="" 
  2235.  foottype%=2 
  2236. icondata(11,foothandle%)="" 
  2237.  foottype%=1 
  2238. CheckRadio(foothandle%,17)=0 
  2239. CheckRadio(foothandle%,20)=0 
  2240. CheckRadio(foothandle%,22)=0 
  2241. CheckRadio(foothandle%,25)=0 
  2242. !out%=
  2243. "<Wimp$ScrapDir>.HTML3"
  2244. CheckRadio(foothandle%,12)>0 
  2245. #out%,"<HR>"
  2246.  align% 
  2247. #out%,"<P align=""left"">";
  2248. #out%,"<P align=""center"">";
  2249. #out%,"<P align=""right"">";
  2250.  footsize%<>0 
  2251. #out%,"<font size="""+
  2252. (footsize%)+""">";
  2253.  foottype% 
  2254. #out%,"Email ";
  2255. '        
  2256. #out%,"<a href=""mailto:";
  2257. G        
  2258.  profileemail$="" 
  2259. #out%,email$; 
  2260. #out%,profileemail$;
  2261.         
  2262. #out%,""">";
  2263. G        
  2264.  profileemail$="" 
  2265. #out%,email$; 
  2266. #out%,profileemail$;
  2267.         
  2268. #out%,"</a>"
  2269. +        
  2270. #out%,"<br>Site designed by ";
  2271. '        
  2272. #out%,"<a href=""mailto:";
  2273.         
  2274. #out%,email$;
  2275.         
  2276. #out%,""">";
  2277.         
  2278. #out%,nickname$;
  2279.         
  2280. #out%,"</a>"
  2281. -        
  2282. CheckRadio(foothandle%,27)>0 
  2283.          
  2284. #out%,"<br>Using <a href=""http://www.goodwin.uk.com/richard/programs/html3"">HTML³</a> by <a href=""mailto:richard@goodwin.uk.com"">Richard Goodwin</a>."
  2285.         
  2286. CheckRadio(foothandle%,17)>0 
  2287. !L         
  2288. icondata(18,foothandle%)="" 
  2289. icondata(19,foothandle%)="" 
  2290.           
  2291.          
  2292. $           
  2293. #out%,"Contact ";
  2294. &/          
  2295. icondata(19,foothandle%)<>"" 
  2296. 'J           
  2297. #out%,"<a href=""mailto:"+
  2298. icondata(19,foothandle%)+""">";
  2299. )1            
  2300. icondata(18,foothandle%)<>"" 
  2301. *2             
  2302. #out%,
  2303. icondata(18,foothandle%);
  2304.             
  2305. ,2             
  2306. #out%,
  2307. icondata(19,foothandle%);
  2308.             
  2309. /            
  2310. #out%,"</a><br>"
  2311.           
  2312. 16           
  2313. #out%,
  2314. icondata(18,foothandle%)+"<br>"
  2315.           
  2316.          
  2317.         
  2318. 6-        
  2319. CheckRadio(foothandle%,20)>0 
  2320. 7.         
  2321. icondata(21,foothandle%)<>"" 
  2322. 8S          
  2323. #out%,"© "+
  2324. icondata(21,foothandle%)+" "+
  2325. Time("%CE%YR")+"<br>"
  2326.          
  2327. :C          
  2328. #out%,"© "+nickname$+" "+
  2329. Time("%CE%YR")+"<br>"
  2330.          
  2331.         
  2332. >-        
  2333. CheckRadio(foothandle%,22)>0 
  2334. ?L         
  2335. icondata(23,foothandle%)="" 
  2336. icondata(24,foothandle%)="" 
  2337.           designed%=0
  2338.          
  2339. B/          
  2340. icondata(24,foothandle%)<>"" 
  2341. CV           
  2342. #out%,"Designed by <a href=""mailto:"+
  2343. icondata(24,foothandle%)+""">";
  2344. D1            
  2345. icondata(23,foothandle%)<>"" 
  2346. E2             
  2347. #out%,
  2348. icondata(23,foothandle%);
  2349.             
  2350. G2             
  2351. #out%,
  2352. icondata(24,foothandle%);
  2353.             
  2354.            
  2355. #out%,"</a>";
  2356.            designed%=1
  2357.           
  2358. L?           
  2359. #out%,"Designed by "+
  2360. icondata(23,foothandle%);
  2361.            designed%=1
  2362.           
  2363.          
  2364.         
  2365.          designed%=0
  2366.         
  2367. TM        
  2368. CheckRadio(foothandle%,25)>0 
  2369. icondata(26,foothandle%)<>"" 
  2370.          
  2371.  designed%=1 
  2372.           designed%=3
  2373. W"          
  2374. #out%,"<br>using ";
  2375.          
  2376. Y'          
  2377. #out%,"Designed using ";
  2378.           designed%=2
  2379.          
  2380. \+         out$=
  2381. icondata(26,foothandle%)
  2382.          
  2383. lower(out$)="a smoked kipper" 
  2384.  out$="<a href=""http://www.argonet.co.uk/foggy/"" title=""Foggy, who smells of fish"" onmouseover=""window.status='Foggy smells of fish';return true;"">inferior styling</a>"
  2385. ^"         acorn%=
  2386. out$,"Acorn")
  2387.          
  2388.  acorn%>0 
  2389. `%          
  2390. #out%,
  2391. out$,acorn%-1);
  2392.           
  2393. #out%,"<a href=""http://www.acorn.com/"" title=""Acorn Computer Group"" onmouseover=""window.status='Acorn Computer Group';return true;"">Acorn</a>";
  2394. b%          
  2395. #out%,
  2396. out$,acorn%+5);
  2397.          
  2398.           
  2399. #out%,out$
  2400.          
  2401.         
  2402. h-        
  2403. CheckRadio(foothandle%,27)>0 
  2404.          
  2405.  designed% 
  2406. j*          
  2407. #out%,"Designed using ";
  2408.                 
  2409. #out%,"<a href=""http://www.goodwin.uk.com/richard/programs/html3"" title=""HTML3"" onmouseover=""window.status='HTML3';return true;"">HTML³</a>"
  2410. l^                
  2411. #out%,"by <a href=""mailto:richard@goodwin.uk.com"">Richard Goodwin</a>."
  2412. m"          
  2413. #out%," using ";
  2414.                 
  2415. #out%,"<a href=""http://www.goodwin.uk.com/richard/programs/html3"" title=""HTML3"" onmouseover=""window.status='HTML3';return true;"">HTML³</a>"
  2416. o"          
  2417. #out%," and ";
  2418.                 
  2419. #out%,"<a href=""http://www.goodwin.uk.com/richard/programs/html3"" title=""HTML3"" onmouseover=""window.status='HTML3';return true;"">HTML³</a>"
  2420.          
  2421.         
  2422. decodetokens(
  2423. icondata(11,foothandle%))
  2424. t-        
  2425. CheckRadio(foothandle%,27)>0 
  2426.          
  2427. #out%,"<br>Site created using <a href=""http://www.goodwin.uk.com/richard/programs/html3"">HTML³</a> by <a href=""mailto:richard@goodwin.uk.com"">Richard Goodwin</a>."
  2428.         
  2429. CheckRadio(foothandle%,27)>0 
  2430. x(         
  2431. #out%,"<br>Designed using"
  2432.         
  2433.         
  2434. #out%,"<br><a href=""http://www.goodwin.uk.com/richard/programs/html3"" title=""HTML3"" onmouseover=""window.status='HTML3';return true;"">";
  2435. {@        
  2436. #out%,"<img src="""+
  2437. icondata(44,foothandle%)+"""";
  2438. |g        
  2439. icondata(46,foothandle%))>0 
  2440. #out%," width="""+
  2441. icondata(46,foothandle%)))+"""";
  2442. }h        
  2443. icondata(47,foothandle%))>0 
  2444. #out%," height="""+
  2445. icondata(47,foothandle%)))+"""";
  2446. ~(        
  2447. #out%," alt=""HTML3""></a>"
  2448. -        
  2449. CheckRadio(foothandle%,27)>0 
  2450. [         
  2451. #out%,"<br>by <a href=""mailto:richard@goodwin.uk.com"">Richard Goodwin</a>."
  2452.         
  2453.  footsize%<>0 
  2454. #out%,"</font>";
  2455.  align%<>0 
  2456. #out%,"</P>";
  2457.  IF foottype%<>3 THEN BPUT#out%,"</body></html>";
  2458. #out%,"</body></html>";
  2459. #out%,""
  2460. #out%
  2461. "XOS_CLI","Settype <Wimp$ScrapDir>.HTML3 &FAF"
  2462. filepush("<Wimp$ScrapDir>.HTML3",1)
  2463. GreyFoot
  2464. foottype%=0
  2465. CheckRadio(foothandle%,1)>0 
  2466.  foottype%=1
  2467. CheckRadio(foothandle%,2)>0 
  2468.  foottype%=2
  2469. CheckRadio(foothandle%,3)>0 
  2470.  foottype%=3
  2471.  foottype%=0 
  2472. SetTick(foothandle%,0,
  2473.  foottype%<>1 
  2474.  loop%=17 
  2475.  loop%<>27 
  2476. greyicon(foothandle%,loop%,
  2477.  loop%=38 
  2478. greyicon(foothandle%,loop%,
  2479.  loop%=17 
  2480.  loop%<>27 
  2481. greyicon(foothandle%,loop%,
  2482.  loop%=38 
  2483. greyicon(foothandle%,loop%,
  2484.  foottype%<>2 
  2485. greyicon(foothandle%,11,
  2486. greyicon(foothandle%,16,
  2487. greyicon(foothandle%,11,
  2488. greyicon(foothandle%,16,
  2489.  foottype%<>3 
  2490. greyicon(foothandle%,15,
  2491.  loop%=44 
  2492. greyicon(foothandle%,loop%,
  2493. greyicon(foothandle%,15,
  2494.  loop%=44 
  2495. greyicon(foothandle%,loop%,
  2496. decodetokens(tokenised$)
  2497. counter%=0
  2498. counter%+=1
  2499. !char$=
  2500. tokenised$,counter%,1)
  2501.  char$="%" 
  2502.  counter%+=1
  2503. " char$=
  2504. tokenised$,counter%,1)
  2505.  char$<>"X" 
  2506.  char$<>"x" 
  2507.    counter%-=1
  2508. "   z%=
  2509. :token$="":lowtoken$=""
  2510. 0   counter%+=1:char$=
  2511. tokenised$,counter%,1)
  2512.  char$="Z" 
  2513.  char$="z" 
  2514.  token$=char$
  2515. >   counter%+=1:char$=
  2516. tokenised$,counter%,1):token$+=char$
  2517.  counter%+=1:char$=
  2518. tokenised$,counter%,1):token$+=char$
  2519.    lowtoken$=
  2520. lower(token$)
  2521.  lowtoken$ 
  2522.  "dy","st","mn","mo","m3","wk","dn","wn","w3","we","ce","yr","12","24","am","pm","mi","se","cs","tz":
  2523.         
  2524. '         
  2525. #out%,
  2526. Time("%z"+token$);
  2527.         
  2528. &         
  2529. #out%,
  2530. Time("%"+token$);
  2531.         
  2532.  "oe":
  2533. #out%,email$;
  2534.  "on":
  2535. #out%,nickname$;
  2536.  "or":
  2537. #out%,owner$;
  2538.  "ow":
  2539. #out%,userhome$;
  2540.  "pr":
  2541.  profilename$<>"" 
  2542. #out%,profilename$; 
  2543. #out%,owner$;
  2544.  "pe":
  2545.  profileemail$<>"" 
  2546. #out%,profileemail$; 
  2547. #out%,email$;
  2548.  "pw":
  2549.  profilehome$<>"" 
  2550. #out%,profilehome$; 
  2551. #out%,userhome$;
  2552.  "nl":
  2553. #out%,""
  2554.  "h3":
  2555. #out%,
  2556. (10)+"<br>Created using <a href=""http://www.goodwin.uk.com/richard/programs/html3"">HTML³</a> by <a href=""mailto:richard@goodwin.uk.com"">Richard Goodwin</a>.";
  2557.  "tc":
  2558. #out%,"#"+
  2559. hexzero(2,tablecolour%(1))+
  2560. hexzero(2,tablecolour%(2))+
  2561. hexzero(2,tablecolour%(3));
  2562.  "sc":
  2563. #out%,"#"+
  2564. hexzero(2,stylecolour%(1))+
  2565. hexzero(2,stylecolour%(2))+
  2566. hexzero(2,stylecolour%(3));
  2567.  "bb":
  2568. #out%,"#"+
  2569. hexzero(2,body%(1,1))+
  2570. hexzero(2,body%(2,1))+
  2571. hexzero(2,body%(3,1));
  2572.  "bt":
  2573. #out%,"#"+
  2574. hexzero(2,body%(1,2))+
  2575. hexzero(2,body%(2,2))+
  2576. hexzero(2,body%(3,2));
  2577.  "bl":
  2578. #out%,"#"+
  2579. hexzero(2,body%(1,3))+
  2580. hexzero(2,body%(2,3))+
  2581. hexzero(2,body%(3,3));
  2582.  "ba":
  2583. #out%,"#"+
  2584. hexzero(2,body%(1,4))+
  2585. hexzero(2,body%(2,4))+
  2586. hexzero(2,body%(3,4));
  2587.  "bv":
  2588. #out%,"#"+
  2589. hexzero(2,body%(1,5))+
  2590. hexzero(2,body%(2,5))+
  2591. hexzero(2,body%(3,5));
  2592.  "e0","e1","e2","e3","e4","e5","e6","e7","e8","e9","ea","eb","ec","ed","ee","ef":
  2593. %        colour%=
  2594. ("&"+
  2595. token$,1))
  2596. t        
  2597. #out%,"#"+
  2598. hexzero(2,colour%(1,colour%))+
  2599. hexzero(2,colour%(2,colour%))+
  2600. hexzero(2,colour%(3,colour%));
  2601.      
  2602. #out%,"%z"+token$;
  2603.         
  2604.      
  2605. #out%,"%"+token$;
  2606.         
  2607. #out%,"%";
  2608. #out%,char$;
  2609.  counter%=
  2610. (tokenised$)
  2611. #out%,""
  2612. OnLink
  2613. icon%=bl!16
  2614. button%=bl!8
  2615. x%=bl!0
  2616. y%=bl!4
  2617.  icon% 
  2618.  14: 
  2619. LaunchURL("file:/HTML3:Docs/links.html")
  2620.  29: grabber%=7:
  2621. TextGrabber
  2622.  36: grabber%=8:
  2623. TextGrabber
  2624.   7: menutrack%=24
  2625. 3          menuitem$(1)="Full window (""_top"")"
  2626. 4          menuitem$(2)="New window (""_blank"")"
  2627. 7          menuitem$(3)="Parent frame (""_parent"")"
  2628. 3          menuitem$(4)="Same frame (""_self"")"
  2629. $          menuitem$(5)="""top"""
  2630. '          menuitem$(6)="""bottom"""
  2631. %          menuitem$(7)="""left"""
  2632. &          menuitem$(8)="""right"""
  2633.     %          menuitem$(9)="""main"""
  2634. )          menuitem$(10)="""sidebar"""
  2635. +          
  2636. MakeMenu(10,"Frame Targets")
  2637. 2          
  2638. "Wimp_CreateMenu",,menu%,bl!0,bl!4
  2639.   8: 
  2640.  urls%>1 
  2641.            menutrack%=22
  2642.             
  2643.  loop%=1 
  2644.  urls%
  2645. .            menuitem$(loop%)=url$(loop%,2)
  2646. D            
  2647.  menuitem$(loop%)="" 
  2648.  menuitem$(loop%)=" -blank- "
  2649.            
  2650. +           
  2651. MakeMenu(urls%,"Link text")
  2652. 3           
  2653. "Wimp_CreateMenu",,menu%,bl!0,bl!4
  2654.           
  2655.  18: 
  2656. MakeURLMenu
  2657. 2          
  2658. "Wimp_CreateMenu",,menu%,bl!0,bl!4
  2659.  11: 
  2660.  imagedbs%>0 
  2661.            menutrack%=23
  2662.            
  2663. MakeImageDBMenu
  2664. /           
  2665. "Wimp_CreateMenu",,menu%,x%,y%
  2666.           
  2667.  32: 
  2668.  imagedbs%>0 
  2669.            menutrack%=25
  2670.            
  2671. MakeImageDBMenu
  2672.  /           
  2673. "Wimp_CreateMenu",,menu%,x%,y%
  2674.           
  2675.  button%=4 
  2676.  icon% 
  2677.   4: 
  2678. CheckRadio(linkhandle%,4)>0 
  2679. '*            
  2680. greyicon(linkhandle%,3,
  2681. (*            
  2682. greyicon(linkhandle%,2,
  2683.            
  2684. **            
  2685. greyicon(linkhandle%,3,
  2686. +*            
  2687. greyicon(linkhandle%,2,
  2688.            
  2689.  22,31:
  2690. CheckRadio(linkhandle%,22)=0 
  2691. CheckRadio(linkhandle%,31)=0 
  2692. .+            
  2693. greyicon(linkhandle%,21,
  2694.            
  2695. 0+            
  2696. greyicon(linkhandle%,21,
  2697.            
  2698.  30: 
  2699. AlterIcons(
  2700. icondata(21,linkhandle%),2,linkhandle%)
  2701.  33: 
  2702. AlterIcons(
  2703. icondata(10,linkhandle%),16,linkhandle%)
  2704.  34: 
  2705. AlterIcons(
  2706. icondata(16,linkhandle%),10,linkhandle%)
  2707.  35: 
  2708. RolloverCode
  2709.  19: 
  2710. CloseWindow(linkhandle%)
  2711.  20: 
  2712. MakeURL
  2713. 9(           
  2714. CloseWindow(linkhandle%)
  2715.  button%=1 
  2716.  icon%=20 
  2717. MakeURL
  2718.  button%<>2 
  2719.  icon%=27 
  2720. icondata(26,linkhandle%)<>"" 
  2721. ?) asc=
  2722. icondata(26,linkhandle%),1))
  2723.  asc>96 
  2724.  asc<123 
  2725.  asc-=32
  2726. UpdateURLDatabase("#"+
  2727. icondata(26,linkhandle%),
  2728. (asc)+
  2729. icondata(26,linkhandle%),2),
  2730. icondata(21,linkhandle%))
  2731. B; temp$="<a name="""+
  2732. icondata(26,linkhandle%)+"""></a>"
  2733.  pumping=0 
  2734. push(temp$)
  2735.  pumping=1 
  2736. (pump$)+
  2737. (temp$)>=255 
  2738.  pumping=1 
  2739. (pump$)+
  2740. (temp$)<255 pump$=pump$+temp$
  2741.  button%=4 
  2742. CloseWindow(linkhandle%)
  2743. OnOptions
  2744. icon%=bl!16
  2745. button%=bl!8
  2746.  button%<>2 
  2747.  icon% 
  2748. CheckOptions
  2749. P5            namedcolour$=
  2750. icondata(46,opthandle%)
  2751. Q4    
  2752. AlterIcons(namedcolour$,46,opthandle%)
  2753.             
  2754. SetOptions
  2755. S5            namedcolour$=
  2756. icondata(46,opthandle%)
  2757. LoadOptions
  2758.             
  2759. SetOptions
  2760. V5            namedcolour$=
  2761. icondata(46,opthandle%)
  2762. CheckOptions
  2763.             
  2764. SaveOptions
  2765. Y5            namedcolour$=
  2766. icondata(46,opthandle%)
  2767. ZI    
  2768. CheckRadio(opthandle%,12)>0 correctext%=
  2769.  correctext%=
  2770.             
  2771.  grey%=8 
  2772.              
  2773.  grey% 
  2774.               
  2775.  9,12:
  2776.              
  2777. _>              
  2778. greyicon(opthandle%,grey%,
  2779. (correctext%)-1)
  2780.              
  2781.             
  2782. b        
  2783.  button%=4 
  2784.  icon%>34 
  2785.  icon%<39 
  2786. CloseWindow(opthandle%)
  2787.  icon% 
  2788.  16:menutrack%=34
  2789. h!          menuitem$(1)="html"
  2790. i           menuitem$(2)="htm"
  2791. j"          menuitem$(3)="shtml"
  2792. k,          
  2793. MakeMenu(3,"HTML extensions")
  2794. l2          
  2795. "Wimp_CreateMenu",,menu%,bl!0,bl!4
  2796.  17:menutrack%=35
  2797. n           menuitem$(1)="zip"
  2798. o           menuitem$(2)="arc"
  2799. p           menuitem$(3)="spk"
  2800. q%          
  2801. MakeMenu(3,"Archives")
  2802. r2          
  2803. "Wimp_CreateMenu",,menu%,bl!0,bl!4
  2804.  18:menutrack%=36
  2805. t!          menuitem$(1)="jpeg"
  2806. u           menuitem$(2)="jpg"
  2807. v,          
  2808. MakeMenu(2,"JPEG extensions")
  2809. w2          
  2810. "Wimp_CreateMenu",,menu%,bl!0,bl!4
  2811. LaunchURL("file:/HTML3:Docs/choic.html")
  2812.  46,47:
  2813. MakeNamedCols
  2814. MakeNamedCols
  2815. menutrack%=37
  2816. FileCheck("HTML3:Resources.ColFiles")<>2 
  2817.  max%=0:
  2818. "XOS_GBPB",12,"HTML3:Resources.ColFiles",scan%,77,0,4096,"*" 
  2819.  ,,,max%
  2820.  max%=0 
  2821. file%=1:done%=0:counter%=0
  2822. "  filesize%=scan%!(counter%+8)
  2823. #  filetype%=scan%!(counter%+20)
  2824. &  menuitem$(file%)="":counter%+=24
  2825. C    
  2826.  (scan%?counter%)<>0 
  2827.  menuitem$(file%)+=
  2828. (scan%?counter%)
  2829.     counter%+=1
  2830. (scan%?counter%)=0
  2831.  counter%+1 
  2832.  4 <>0 
  2833.         
  2834.       counter%+=1
  2835.  counter% 
  2836.  filetype%=&FFD 
  2837.  filetype%=&FFF 
  2838.  file%+=1
  2839.   done%+=1
  2840.  done%=max%
  2841.  file%=1 
  2842.  filetype%<>&FFF 
  2843.  filetype%<>&FFD 
  2844. MakeMenu(file%-1,"Named Colours")
  2845. max%=file%
  2846. "Wimp_CreateMenu",,menu%,(block%!0)-64,block%!4
  2847. StartDrag(dicon%,dhandle%,dread%,dfile$)
  2848.  dragwindow%=dhandle%
  2849.  dragicon%=dicon%
  2850.  dragread%=dread%
  2851.  dragfile$=dfile$
  2852.  bk=block%+512
  2853.  bk!0=dragwindow%
  2854.  bk!4=dragicon%
  2855.  "Wimp_GetIconState",,bk
  2856.  MinX%=bk!8
  2857.  MinY%=bk!12
  2858.  MaxX%=bk!16
  2859.  MaxY%=bk!20
  2860.  "Wimp_GetWindowState",,bk
  2861.  Xoff%=bk!4
  2862.  bk!0=MinX%+Xoff%
  2863.  bk!4=MinY%+bk!16
  2864.  bk!8=MaxX%+Xoff%
  2865.  bk!12=MaxY%+bk!16
  2866.  "DragASprite_Start",%11000101,1,dragfile$,bk
  2867. OnUsers
  2868. icon%=bl!16
  2869. button%=bl!8
  2870.  button%=64 
  2871.  icon%=30 
  2872. StartDrag(icon%,userhandle%,29,"!html
  2873. app")
  2874.  button%=1 
  2875.  button%=4 
  2876.  icon% 
  2877. 5    
  2878. icondata(29,userhandle%)<>HTML3opt$ 
  2879. ]             
  2880. "XOS_CLI","Set HTML3Options$Path "+
  2881. icondata(29,userhandle%)+".Resources."
  2882.             
  2883.             
  2884. CheckUsers
  2885. G            
  2886. AlterIcons(
  2887. HTML3opt$,
  2888. (HTML3opt$)-11),29,userhandle%)
  2889. SetUsers
  2890. G            
  2891. AlterIcons(
  2892. HTML3opt$,
  2893. (HTML3opt$)-11),29,userhandle%)
  2894. LoadUsers
  2895.             
  2896. SetUsers
  2897. G            
  2898. AlterIcons(
  2899. HTML3opt$,
  2900. (HTML3opt$)-11),29,userhandle%)
  2901. 5    
  2902. icondata(29,userhandle%)<>HTML3opt$ 
  2903. ]             
  2904. "XOS_CLI","Set HTML3Options$Path "+
  2905. icondata(29,userhandle%)+".Resources."
  2906.             
  2907. G            
  2908. AlterIcons(
  2909. HTML3opt$,
  2910. (HTML3opt$)-11),29,userhandle%)
  2911.             
  2912. CheckUsers
  2913.             
  2914. SaveUsers
  2915. H    
  2916. CheckRadio(userhandle%,21)>0 profiling%=
  2917.  profiling%=
  2918. N            
  2919.  grey%=10 
  2920. greyicon(userhandle%,grey%,
  2921. (profiling%)-1):
  2922. N            
  2923.  grey%=17 
  2924. greyicon(userhandle%,grey%,
  2925. (profiling%)-1):
  2926. =    
  2927. AlterIcons(
  2928. getstr("HTML3$Dir"),29,userhandle%)
  2929.  button%=4 
  2930.  icon%>21 
  2931.  icon%<26 
  2932. CloseWindow(userhandle%)
  2933. OnStyle
  2934. temp$=""
  2935. icon%=bl!16
  2936. button%=bl!8
  2937.  icon%=8 
  2938.  button%>1 
  2939.   name%=6
  2940. MakeColourMenu
  2941. "Wimp_CreateMenu",,menu%,bl!0,bl!4
  2942.  icon%=7 
  2943.  picking%=
  2944.   pickicon%=6
  2945.   pickwindow%=stylehandle%
  2946.   picking%=
  2947.   r%=stylecolour%(1)
  2948.   g%=stylecolour%(2)
  2949.   b%=stylecolour%(3)
  2950. OpenPicker(bl!0,bl!4,0)
  2951. CheckRadio(stylehandle%,42)=0 
  2952. CheckRadio(stylehandle%,43)=0 
  2953. SetTick(stylehandle%,42,1)
  2954. CheckRadio(stylehandle%,42)>0 
  2955. icondata(29,stylehandle%))>100 
  2956. AlterIcons("100",29,stylehandle%)
  2957. align%=0
  2958. CheckRadio(stylehandle%,1)>0 
  2959.  align%=1
  2960. CheckRadio(stylehandle%,2)>0 
  2961.  align%=2
  2962. CheckRadio(stylehandle%,3)>0 
  2963.  align%=3
  2964.  align%=0 
  2965. CheckRadio(stylehandle%,0)=0 
  2966. SetTick(stylehandle%,0,1)
  2967. CheckRadio(stylehandle%,6)>0 
  2968. z colouron$="<font color=""#"+
  2969. hexzero(2,stylecolour%(1))+
  2970. hexzero(2,stylecolour%(2))+
  2971. hexzero(2,stylecolour%(3))+""">"
  2972.  colouroff$="</font>"
  2973.  colouron$=""
  2974.  colouroff$=""
  2975. headline$="h1"
  2976. CheckRadio(stylehandle%,22)>0 
  2977.  headline$="h2"
  2978. CheckRadio(stylehandle%,23)>0 
  2979.  headline$="h3"
  2980. CheckRadio(stylehandle%,24)>0 
  2981.  headline$="h4"
  2982. CheckRadio(stylehandle%,25)>0 
  2983.  headline$="h5"
  2984. CheckRadio(stylehandle%,26)>0 
  2985.  headline$="h6"
  2986.  headline$="h1" 
  2987. CheckRadio(stylehandle%,21)=0 
  2988. SetTick(stylehandle%,21,1)
  2989. style$="<pre>":styleoff$="</pre>":
  2990.  pcpandering%=
  2991.  button%<>1 
  2992.  style$="<font face=""courier new,courier"">"+style$:styleoff$+="</font>"
  2993. CheckRadio(stylehandle%,50)>0 
  2994.  style$="<tt>":styleoff$="</tt>":
  2995.  pcpandering%=
  2996.  button%<>1 
  2997.  style$="<font face=""courier new,courier"">"+style$:styleoff$+="</font>"
  2998. CheckRadio(stylehandle%,51)>0 
  2999.  style$="<code>":styleoff$="</code>"
  3000. CheckRadio(stylehandle%,52)>0 
  3001.  style$="<blockquote>":styleoff$="</blockquote>"
  3002. CheckRadio(stylehandle%,53)>0 
  3003.  style$="<address>":styleoff$="</address>"
  3004. style$,5)="<pre>" 
  3005. CheckRadio(stylehandle%,49)=0 
  3006. SetTick(stylehandle%,49,1)
  3007.  button%=4 
  3008.  icon% 
  3009.  align%=1 
  3010.  temp$="<div align=""left"">"
  3011. +          
  3012.  align%=2 
  3013.  temp$="<center>"
  3014. 8          
  3015.  align%=3 
  3016.  temp$="<div align=""right"">"
  3017.           temp$+=colouron$
  3018. "          temp$+="<"+headline$
  3019.     3          
  3020.  align%=1 
  3021.  temp$+=" align=""left"""
  3022. 5          
  3023.  align%=2 
  3024.  temp$+=" align=""center"""
  3025. 4          
  3026.  align%=3 
  3027.  temp$+=" align=""right"""
  3028.           temp$+=">"
  3029.  20:temp$="</"+headline$+">"+colouroff$
  3030. -          
  3031.  align%=2 
  3032.  temp$+="</center>"
  3033. 5          
  3034.  align%=3 
  3035.  align%=1 
  3036.  temp$+="</div>"
  3037.  11:temp$="<P"
  3038. 3          
  3039.  align%=1 
  3040.  temp$+=" align=""left"""
  3041. 5          
  3042.  align%=2 
  3043.  temp$+=" align=""center"""
  3044. 4          
  3045.  align%=3 
  3046.  temp$+=" align=""right"""
  3047. (          temp$+=">"+
  3048. (10)+colouron$
  3049.  12:temp$=colouroff$+"</P>"
  3050.  align%=1 
  3051.  temp$=colouron$+"<div align=""left"">"
  3052. C          
  3053.  align%=2 
  3054.  temp$=colouron$+"<div align=""center"">"
  3055. B          
  3056.  align%=3 
  3057.  temp$=colouron$+"<div align=""right"">"
  3058.  14:temp$="</div>"+colouroff$
  3059.  15:temp$=colouron$+"<center>"
  3060.  16:temp$="</center>"+colouroff$
  3061. style$,5)<>"<pre>" 
  3062. +           
  3063.  align%=0 
  3064.  temp$=colouron$
  3065. B           
  3066.  align%=1 
  3067.  temp$=colouron$+"<div align=""left"">"
  3068. D           
  3069.  align%=2 
  3070.  temp$=colouron$+"<div align=""center"">"
  3071.  C           
  3072.  align%=3 
  3073.  temp$=colouron$+"<div align=""right"">"
  3074.           
  3075.            temp$=colouron$
  3076.           
  3077.           temp$+=style$
  3078.  48:temp$=styleoff$
  3079. &%          
  3080. style$,5)<>"<pre>" 
  3081. '4           
  3082.  align%>0 temp$+="</div>"+colouroff$
  3083. (+           
  3084.  align%<1 temp$+=colouroff$
  3085.           
  3086. *            temp$+=colouroff$
  3087.           
  3088. LargeHR
  3089.  button%=1 
  3090.  icon% 
  3091.  19:temp$="<"+headline$+">"
  3092.  20:temp$="</"+headline$+">"
  3093.  11:temp$="<p>"
  3094.  12:temp$="</p>"
  3095.  13:temp$="<div align=""right"">"
  3096.  14:temp$="</div>"
  3097.  15:temp$="<center>"
  3098.  16:temp$="</center>"
  3099.  47:temp$=style$
  3100.  48:temp$=styleoff$
  3101.  28:temp$="<hr>"
  3102.  button%<>2 
  3103.  icon% 
  3104. B"    
  3105. OpenWin(headhandle%)
  3106. C'    
  3107. SetTick(stylehandle%,0,1)
  3108. D*            
  3109. SetTick(stylehandle%,1,0)
  3110. E*            
  3111. SetTick(stylehandle%,2,0)
  3112. F*            
  3113. SetTick(stylehandle%,3,0)
  3114. G*            
  3115. SetTick(stylehandle%,6,0)
  3116.  17:temp$="<br>"
  3117. I'    
  3118.  18:temp$="<br clear=""all"">"
  3119. J-    
  3120. AlterIcons("0",32,stylehandle%)
  3121. K2            
  3122. AlterIcons("100",29,stylehandle%)
  3123. L+            
  3124. SetTick(stylehandle%,42,1)
  3125. M+            
  3126. SetTick(stylehandle%,43,0)
  3127. N+            
  3128. SetTick(stylehandle%,38,1)
  3129. O+            
  3130. SetTick(stylehandle%,39,0)
  3131. P+            
  3132. SetTick(stylehandle%,40,0)
  3133. Q"    
  3134. OpenWin(foothandle%)
  3135. bumper(stylehandle%,32,33,34,99,0,0,
  3136. bumper(stylehandle%,29,30,31,9999,0,42,
  3137.  temp$<>"" 
  3138.  pumping=0 
  3139. push(temp$)
  3140.  pumping=1 
  3141. (pump$)+
  3142. (temp$)>=255 
  3143.  pumping=1 
  3144. (pump$)+
  3145. (temp$)<255 pump$=pump$+temp$
  3146. LargeHR
  3147. _)hrsize%=
  3148. icondata(32,stylehandle%))
  3149. `*hrwidth%=
  3150. icondata(29,stylehandle%))
  3151. temp$=colouron$+"<HR"
  3152.  hrwidth%<100 
  3153.  hrwidth%>0 
  3154. CheckRadio(stylehandle%,42)>0 
  3155.  temp$+=" width="""+
  3156. (hrwidth%)+"%"""
  3157.  hrwidth%>0 
  3158. CheckRadio(stylehandle%,43)>0 
  3159.   temp$+=" width="""+
  3160. (hrwidth%)+""""
  3161.  IF hrsize%<>0 AND hrsize%<>3 THEN temp$+=" size="+STR$(hrsize%)
  3162.  hrsize%<>0 
  3163.  temp$+=" size="""+
  3164. (hrsize%)+""""
  3165. CheckRadio(stylehandle%,39)>0 temp$+=" noshade"
  3166.  IF FNCheckRadio(stylehandle%,38)=0 VDU7
  3167. CheckRadio(stylehandle%,40)>0 
  3168.  align%=1 temp$+=" align=""left"""
  3169.  align%=2 temp$+=" align=""center"""
  3170.  align%=3 temp$+=" align=""right"""
  3171. colouron$,12)="<font color=" 
  3172.  temp$+=" color="+
  3173. colouron$,13,9)
  3174. temp$+=">"+colouroff$
  3175. OnUpdate
  3176. icon%=bl!16
  3177. button%=bl!8
  3178.  icon% 
  3179. CloseWindow(updatehandle%)
  3180. updateaddress
  3181. updateaddress
  3182. {9address$(changingaddress%)=
  3183. icondata(5,updatehandle%)
  3184. CloseWindow(updatehandle%)
  3185. AlterIcons(
  3186. icondata(4,updatehandle%),changingaddress%-1,addrhandle%)
  3187. OnTable
  3188. temp$=""
  3189. icon%=bl!16
  3190. button%=bl!8
  3191.  icon%=13 
  3192.  button%>1 
  3193.   name%=24
  3194. MakeColourMenu
  3195. "Wimp_CreateMenu",,menu%,bl!0,bl!4
  3196.  icon%=12 
  3197.  picking%=
  3198.   pickicon%=0
  3199.   pickwindow%=tablehandle%
  3200.   picking%=
  3201.   r%=tablecolour%(1)
  3202.   g%=tablecolour%(2)
  3203.   b%=tablecolour%(3)
  3204. OpenPicker(bl!0,bl!4,0)
  3205. tablealign%=0:ta$=""
  3206. CheckRadio(tablehandle%, 8)>0 
  3207.  tablealign%=1:ta$=" align=left"
  3208. CheckRadio(tablehandle%, 9)>0 
  3209.  tablealign%=2:ta$=" align=center"
  3210. CheckRadio(tablehandle%,10)>0 
  3211.  tablealign%=3:ta$=" align=right"
  3212.  tablealign%=0 
  3213. CheckRadio(tablehandle%,57)=0 
  3214. SetTick(tablehandle%,57,1)
  3215. tablevalign%=0:tva$=""
  3216. CheckRadio(tablehandle%,17)>0 
  3217.  tablevalign%=1:tva$=" valign=top"
  3218. CheckRadio(tablehandle%,18)>0 
  3219.  tablevalign%=2:tva$=" valign=middle"
  3220. CheckRadio(tablehandle%,19)>0 
  3221.  tablevalign%=3:tva$=" valign=bottom"
  3222. CheckRadio(tablehandle%,20)>0 
  3223.  tablevalign%=4:tva$=" valign=baseline"
  3224.  tablevalign%=0 
  3225. CheckRadio(tablehandle%,56)=0 
  3226. SetTick(tablehandle%,56,1)
  3227. CheckRadio(tablehandle%,11)>0 
  3228. v colouron$=" bgcolor=""#"+
  3229. hexzero(2,tablecolour%(1))+
  3230. hexzero(2,tablecolour%(2))+
  3231. hexzero(2,tablecolour%(3))+""""
  3232.  colouron$=""
  3233. Jtablewidthtype%=1:
  3234. CheckRadio(tablehandle%,47)>0 
  3235.  tablewidthtype%=2
  3236. Ltableheighttype%=1:
  3237. CheckRadio(tablehandle%,49)>0 
  3238.  tableheighttype%=2
  3239. Rtablecellwidthtype%=1:
  3240. CheckRadio(tablehandle%,75)>0 
  3241.  tablecellwidthtype%=2
  3242. Ttablecellheighttype%=1:
  3243. CheckRadio(tablehandle%,77)>0 
  3244.  tablecellheighttype%=2
  3245.  button%=1 
  3246.  icon% 
  3247.  0:temp$="<table>"
  3248.  1:temp$="<tr>"
  3249.  2:temp$="<td>"
  3250.  3:temp$="</table>"
  3251.  button%<>2 
  3252.  icon%=39 
  3253.  icon%=40 
  3254.  icon%=41 
  3255.  icon%=42 
  3256. 4   checktick%=
  3257. CheckRadio(tablehandle%,icon%+11)
  3258.  checktick%>0 checktick%=1
  3259. !   checktick%=
  3260. (checktick%-1)
  3261. SetTick(tablehandle%,icon%+11,checktick%)
  3262.    icon%=icon%+11
  3263.  icon% 
  3264.  3:temp$="</table>"
  3265. >          
  3266. CheckRadio(tablehandle%, 8)>0 temp$+="</div>"
  3267. A          
  3268. CheckRadio(tablehandle%, 9)>0 temp$+="</center>"
  3269. >          
  3270. CheckRadio(tablehandle%,10)>0 temp$+="</div>"
  3271.  4:temp$="</tr>"
  3272.  5:temp$="</td>"
  3273. TableDefaults
  3274.            
  3275. TableRedraw
  3276. CheckRadio(tablehandle%,50)>0 tablewidthon%=
  3277.  tablewidthon%=
  3278. >           
  3279. greyicon(tablehandle%,21,(tablewidthon%*-1)-1)
  3280. >           
  3281. greyicon(tablehandle%,22,(tablewidthon%*-1)-1)
  3282. >           
  3283. greyicon(tablehandle%,23,(tablewidthon%*-1)-1)
  3284. >           
  3285. greyicon(tablehandle%,46,(tablewidthon%*-1)-1)
  3286. >           
  3287. greyicon(tablehandle%,47,(tablewidthon%*-1)-1)
  3288. CheckRadio(tablehandle%,51)>0 tableheighton%=
  3289.  tableheighton%=
  3290. ?           
  3291. greyicon(tablehandle%,24,(tableheighton%*-1)-1)
  3292. ?           
  3293. greyicon(tablehandle%,25,(tableheighton%*-1)-1)
  3294. ?           
  3295. greyicon(tablehandle%,26,(tableheighton%*-1)-1)
  3296. ?           
  3297. greyicon(tablehandle%,48,(tableheighton%*-1)-1)
  3298. ?           
  3299. greyicon(tablehandle%,49,(tableheighton%*-1)-1)
  3300. CheckRadio(tablehandle%,52)>0 tablecolumnson%=
  3301.  tablecolumnson%=
  3302. @           
  3303. greyicon(tablehandle%,27,(tablecolumnson%*-1)-1)
  3304. @           
  3305. greyicon(tablehandle%,28,(tablecolumnson%*-1)-1)
  3306. @           
  3307. greyicon(tablehandle%,29,(tablecolumnson%*-1)-1)
  3308. @           
  3309. greyicon(tablehandle%,45,(tablecolumnson%*-1)-1)
  3310. CheckRadio(tablehandle%,53)>0 tableborderlineon%=
  3311.  tableborderlineon%=
  3312.            
  3313.  unset%=30 
  3314. H            
  3315. greyicon(tablehandle%,unset%,(tableborderlineon%*-1)-1)
  3316.            
  3317. CheckRadio(tablehandle%,78)>0 tablecellwidthon%=
  3318.  tablecellwidthon%=
  3319. B           
  3320. greyicon(tablehandle%,66,(tablecellwidthon%*-1)-1)
  3321. B           
  3322. greyicon(tablehandle%,67,(tablecellwidthon%*-1)-1)
  3323. B           
  3324. greyicon(tablehandle%,68,(tablecellwidthon%*-1)-1)
  3325. B           
  3326. greyicon(tablehandle%,74,(tablecellwidthon%*-1)-1)
  3327. B           
  3328. greyicon(tablehandle%,75,(tablecellwidthon%*-1)-1)
  3329. CheckRadio(tablehandle%,79)>0 tablecellheighton%=
  3330.  tablecellheighton%=
  3331. C           
  3332. greyicon(tablehandle%,69,(tablecellheighton%*-1)-1)
  3333. C           
  3334. greyicon(tablehandle%,70,(tablecellheighton%*-1)-1)
  3335. C           
  3336. greyicon(tablehandle%,71,(tablecellheighton%*-1)-1)
  3337. C           
  3338. greyicon(tablehandle%,76,(tablecellheighton%*-1)-1)
  3339. C           
  3340. greyicon(tablehandle%,77,(tablecellheighton%*-1)-1)
  3341. bumper(tablehandle%,21,22,23,9999,5,46,
  3342. tablewidth%=bumpno%
  3343. bumper(tablehandle%,24,25,26,9999,0,48,
  3344. tableheight%=bumpno%
  3345. bumper(tablehandle%,66,67,68,9999,0,74,
  3346. tablecellwidth%=bumpno%
  3347. bumper(tablehandle%,69,70,71,9999,0,76,
  3348. tablecellheight%=bumpno%
  3349. bumper(tablehandle%,27,28,29,99,0,0,
  3350. tablecolumns%=bumpno%
  3351. bumper(tablehandle%,30,31,32,99,0,0,
  3352. tableborderline%=bumpno%
  3353. bumper(tablehandle%,33,34,35,99,0,0,
  3354. tablecellspacing%=bumpno%
  3355. bumper(tablehandle%,36,37,38,99,0,0,
  3356. tablecellpadding%=bumpno%
  3357. bumper(tablehandle%,58,59,60,99,0,0,
  3358. tablespancol%=bumpno%
  3359. bumper(tablehandle%,61,62,63,99,0,0,
  3360. tablespanrow%=bumpno%
  3361.  icon%=0 
  3362.  button%=4 
  3363. MakeTable
  3364.  icon%=1 
  3365.  button%=4 
  3366.  temp$="<tr"+ta$+tva$+colouron$+">"
  3367.  icon%=2 
  3368.  button%=4 
  3369. MakeTableCell
  3370.  temp$<>"" 
  3371.  pumping=0 
  3372. push(temp$)
  3373.  pumping=1 
  3374. (pump$)+
  3375. (temp$)>=255 
  3376.  pumping=1 
  3377. (pump$)+
  3378. (temp$)<255 pump$=pump$+temp$
  3379. OnSide
  3380. icon%=bl!16
  3381. button%=bl!8
  3382.  button%=2 
  3383. makeiconmenu((!bl)+64,bl!4)
  3384.  button%=4 
  3385.  icon% 
  3386. OpenWin(stylehandle%)
  3387. OpenWin(fxhandle%)
  3388. OpenWin(charhandle%)
  3389. OpenWin(addrhandle%)
  3390. OpenWin(linkhandle%)
  3391. OpenWin(imghandle%)
  3392.  PROCOpenWin(framehandle%)
  3393. OpenWin(tablehandle%)
  3394. OpenWin(formhandle%)
  3395.  9:menutrack%=6
  3396.          
  3397. MakePlugInMenu
  3398.          
  3399.  max%>0 
  3400. 7          
  3401. "Wimp_CreateMenu",,menu%,(bl!0)+64,bl!4
  3402.          
  3403.  button%=1 
  3404.  icon% 
  3405.     #D  
  3406. (-1) 
  3407. OpenWin(headhandle%) 
  3408. OpenWin(foothandle%)
  3409.     $L  
  3410. "XOS_CLI","Filer_OpenDir HTML3:Plug-Ins -LargeIcons -SortByName"
  3411. OnChars
  3412. temp$=""
  3413. icon%=bl!16
  3414. button%=bl!8
  3415.  button%=4 
  3416.  icon%<120 
  3417.  icon%>-1 
  3418.  chartype% 
  3419.  1:temp$="&#"+
  3420. (chars%?icon%)+";"
  3421.     0+       
  3422.  temp$="" temp$="™"
  3423.     1.       
  3424.  IF temp$="" temp$="’"
  3425.     2.       
  3426.  IF temp$="‘" temp$="‘"
  3427.     3.       
  3428.  IF temp$="”" temp$="“"
  3429.     4.       
  3430.  IF temp$="•" temp$="”"
  3431.  2:temp$="&"+character$(1,chars%?icon%)+";"
  3432.     6j       
  3433.  (chars%?icon%)>62 
  3434.  (chars%?icon%)<160 
  3435.  (chars%?icon%)<>141 
  3436.  temp$="&#"+
  3437. (chars%?icon%)+";"
  3438.  charcomment%=
  3439.  temp$+="<! "+character$(3,chars%?icon%)+">"
  3440.  icon% 
  3441.  134: temp$="<ul"+
  3442. ulistoutput(
  3443. ulisttype)
  3444.  122: temp$="<li"+
  3445. ulistoutput(
  3446. ulisttype)
  3447.  123: temp$="</ul>"
  3448.  124: temp$="</ol>"
  3449.  130: temp$="<dl>"
  3450.  131: temp$="<dt>"
  3451.  132: temp$="<dd>"
  3452.  133: temp$="</dl>"
  3453.  icon%=121 
  3454.  listtype%=
  3455. olisttype
  3456.  listtype%=0 temp$="<ol"
  3457.  listtype%=1 temp$="<ol type=1"
  3458.  listtype%=2 temp$="<ol type=a"
  3459.  listtype%=3 temp$="<ol type=A"
  3460.  listtype%=4 temp$="<ol type=i"
  3461.  listtype%=5 temp$="<ol type=I"
  3462. icondata(138,charhandle%))>1 
  3463.  temp$+=" start="+
  3464. icondata(138,charhandle%)))
  3465.  temp$+=">"
  3466.  temp$<>"" 
  3467.  pumping=0 
  3468. push(temp$)
  3469.  pumping=1 
  3470. (pump$)+
  3471. (temp$)>=255 
  3472.  pumping=1 
  3473. (pump$)+
  3474. (temp$)<255 pump$=pump$+temp$
  3475. bumper(charhandle%,138,139,140,99,0,0,
  3476. olisttype
  3477. CheckRadio(charhandle%,129)>0 =1
  3478. CheckRadio(charhandle%,127)>0 =2
  3479. CheckRadio(charhandle%,128)>0 =3
  3480. CheckRadio(charhandle%,135)>0 =4
  3481. CheckRadio(charhandle%,136)>0 =5
  3482. ulisttype
  3483. CheckRadio(charhandle%,144)>0 =1
  3484. CheckRadio(charhandle%,145)>0 =2
  3485. CheckRadio(charhandle%,146)>0 =3
  3486. ulistoutput(listtype%)
  3487.  temp$
  3488.  listtype% 
  3489.  1:temp$=" type=""disk"">"
  3490.  2:temp$=" type=""square"">"
  3491.  3:temp$=" type=""circle"">"
  3492.  temp$=">"
  3493. =temp$
  3494. OnIMG
  3495. icon%=bl!16
  3496. button%=bl!8
  3497. x%=bl!0
  3498. y%=bl!4
  3499. icondata(15,imghandle%))>20 
  3500. AlterIcons("20",15,imghandle%)
  3501.  icon% 
  3502.  49: 
  3503. LaunchURL("file:/HTML3:Docs/img.html")
  3504.  66: grabber%=9:
  3505. TextGrabber
  3506.  12: 
  3507. AlterSizes(2)
  3508.  13: 
  3509. AlterSizes(0.5)
  3510.  41: 
  3511. AlterSizes(0.66666)
  3512.  40: 
  3513. AlterSizes(0.75)
  3514.  14: 
  3515. AlterIcons(width$,4,imghandle%)
  3516.     ~/          
  3517. AlterIcons(height$,5,imghandle%)
  3518.  17: 
  3519. AlterIcons("0",15,imghandle%):
  3520. AlterIcons("0",32,imghandle%):
  3521. AlterIcons("0",33,imghandle%)
  3522.  20: 
  3523. CloseWindow(imghandle%)
  3524.  22: 
  3525.  button%=4 
  3526. CloseWindow(imghandle%)
  3527.           
  3528. CreateImage
  3529.  43: 
  3530.  button%<>2 
  3531. g           
  3532. CheckRadio(imghandle%,43)>0 
  3533. greyicon(imghandle%,44,
  3534. greyicon(imghandle%,44,
  3535.           
  3536.  56: 
  3537.  button%<>2 
  3538. g           
  3539. CheckRadio(imghandle%,56)>0 
  3540. greyicon(imghandle%,53,
  3541. greyicon(imghandle%,53,
  3542.           
  3543.  imagedbs%>0 
  3544.  menutrack%=20:
  3545. MakeImageDBMenu:
  3546. "Wimp_CreateMenu",,menu%,x%,y%
  3547.  imagedbs%>0 
  3548.  menutrack%=26:
  3549. MakeImageDBMenu:
  3550. "Wimp_CreateMenu",,menu%,x%,y%
  3551.  imagedbs%>0 
  3552.  menutrack%=21:
  3553. MakeImageDBMenu:
  3554. "Wimp_CreateMenu",,menu%,x%,y%
  3555. bumper(imghandle%, 4,8,9,999,0,50,
  3556. bumper(imghandle%,5,10,11,999,0,0,
  3557. bumper(imghandle%,15,18,19,20,0,0,
  3558. bumper(imghandle%,32,36,37,99,0,0,
  3559. bumper(imghandle%,33,38,39,99,0,0,
  3560. icondata(4,imghandle%)="0" 
  3561. AlterIcons("",4,imghandle%)
  3562. icondata(5,imghandle%)="0" 
  3563. AlterIcons("",5,imghandle%)
  3564. AlterSizes(multiplier)
  3565. icondata(4,imghandle%))
  3566. icondata(5,imghandle%))
  3567. (x%*multiplier)<10000 
  3568. (x%*multiplier))
  3569. (y%*multiplier)<10000 
  3570. (y%*multiplier))
  3571.  x$="0" x$=""
  3572.  y$="0" y$=""
  3573. AlterIcons(x$,4,imghandle%)
  3574. AlterIcons(y$,5,imghandle%)
  3575. OnAddr
  3576. icon%=bl!16
  3577. button%=bl!8
  3578. x%=bl!0
  3579. y%=bl!4
  3580.  icon%=16 
  3581.  emails%>0 
  3582. MakeEmailMenu
  3583. "Wimp_CreateMenu",,menu%,x%,y%
  3584.  icon%=44 
  3585.  grabber%=5:
  3586. TextGrabber
  3587.  icon%=45 
  3588.  grabber%=6:
  3589. TextGrabber
  3590. temp$=""
  3591. Ojava$="":
  3592. CheckRadio(addrhandle%,18)<>0 
  3593.  java$=
  3594. icondata(19,addrhandle%)
  3595. CheckRadio(addrhandle%,21)=0 
  3596.  emailname$=
  3597. icondata(12,addrhandle%) 
  3598.  emailname$=
  3599. icondata(26,addrhandle%)
  3600. CheckRadio(addrhandle%,31)<>0 
  3601.  profile%=
  3602.  profile%=
  3603.  button%<>2 
  3604.  icon% 
  3605.  profile%=
  3606. 2           
  3607. LaunchURL("mailto:"+profileemail$)
  3608.           
  3609. +           
  3610. LaunchURL("mailto:"+email$)
  3611.           
  3612.  profile%=
  3613. '           
  3614. LaunchURL(profilehome$)
  3615.           
  3616. $           
  3617. LaunchURL(userhome$)
  3618.           
  3619.  32:test$=
  3620. icondata(12,addrhandle%)
  3621. G          
  3622.  test$<>"" 
  3623. test$,"@")>0 
  3624. LaunchURL("mailto:"+test$)
  3625. LaunchURL("file:/HTML3:Docs/addr.html")
  3626. SetTick(addrhandle%,30,1)
  3627. (          
  3628. SetTick(addrhandle%,31,0)
  3629. )          
  3630. greyicon(addrhandle%,29,
  3631. )          
  3632. greyicon(addrhandle%,39,
  3633. )          
  3634. greyicon(addrhandle%,14,
  3635. 5          
  3636. AlterIcons(
  3637. email$,28),22,addrhandle%)
  3638. 5          
  3639. AlterIcons(
  3640. owner$,28),24,addrhandle%)
  3641. 8          
  3642. AlterIcons(
  3643. nickname$,28),29,addrhandle%)
  3644. 7          
  3645. AlterIcons("Owner's URL",37,addrhandle%)
  3646. SetTick(addrhandle%,30,0)
  3647. (          
  3648. SetTick(addrhandle%,31,1)
  3649. )          
  3650. greyicon(addrhandle%,29,
  3651. )          
  3652. greyicon(addrhandle%,39,
  3653. 9          
  3654. AlterIcons("Profile email",22,addrhandle%)
  3655. R          
  3656.  profileemail$<>"" 
  3657. AlterIcons(
  3658. profileemail$,28),22,addrhandle%)
  3659. 8          
  3660. AlterIcons("Profile name",24,addrhandle%)
  3661. P          
  3662.  profilename$<>"" 
  3663. AlterIcons(
  3664. profilename$,28),24,addrhandle%)
  3665. )          
  3666. greyicon(addrhandle%,14,
  3667. 4          
  3668. AlterIcons("Nickname",29,addrhandle%)
  3669. 7          
  3670. AlterIcons("Profile URL",37,addrhandle%)
  3671.  button%=4 
  3672.  icon% 
  3673.  27: mailtest%=
  3674. MakeLink(
  3675. icondata(12,addrhandle%),emailname$)
  3676. N          
  3677.  mailtest%=
  3678. UpdateEmailDatabase(linkemail$,java$,linktext$)
  3679.  28: 
  3680.  emails%>0 
  3681. MakeEmailMenu:
  3682. "Wimp_CreateMenu",,menu%,x%,y%
  3683.  22: 
  3684.  profile%=
  3685. $           
  3686.  profileemail$<>"" 
  3687. x            
  3688. CheckRadio(addrhandle%,23)=0 
  3689.  temp$=profileemail$ 
  3690.  mailtest%=
  3691. MakeLink(profileemail$,profileemail$)
  3692.            
  3693.             
  3694.            
  3695.           
  3696. b           
  3697. CheckRadio(addrhandle%,23)=0 
  3698.  temp$=email$ 
  3699.  mailtest%=
  3700. MakeLink(email$,email$)
  3701.           
  3702.  24: 
  3703.  profile%=
  3704. 0           
  3705. CheckRadio(addrhandle%,25)=0 
  3706. <            
  3707.  profilename$<>"" 
  3708.  temp$=profilename$ 
  3709.            
  3710. k            
  3711.  profilename$<>"" 
  3712.  profileemail$<>"" mailtest%=
  3713. MakeLink(profileemail$,profilename$) 
  3714.            
  3715.           
  3716. b           
  3717. CheckRadio(addrhandle%,25)=0 
  3718.  temp$=owner$ 
  3719.  mailtest%=
  3720. MakeLink(email$,owner$)
  3721.           
  3722.  29: 
  3723. CheckRadio(addrhandle%,14)=0 
  3724.  temp$=nickname$ 
  3725.  mailtest%=
  3726. MakeLink(email$,nickname$)
  3727.  37: 
  3728.  profile%=
  3729. #           
  3730.  profilehome$<>"" 
  3731. ^            
  3732. CheckRadio(addrhandle%,36)=0 
  3733.  temp$=profilehome$ 
  3734. MakeURL2(profilehome$)
  3735.            
  3736.             
  3737.            
  3738.           
  3739. W           
  3740. CheckRadio(addrhandle%,36)=0 
  3741.  temp$=userhome$ 
  3742. MakeURL2(userhome$)
  3743.           
  3744.  button%=1 
  3745.  icon% 
  3746.  22: temp$=email$
  3747.  24: temp$=owner$
  3748.  29: temp$=nickname$
  3749.  37: temp$=userhome$
  3750.  27: mailtest%=
  3751. MakeLink(
  3752. icondata(12,addrhandle%),
  3753. icondata(12,addrhandle%))
  3754. N          
  3755.  mailtest%=
  3756. UpdateEmailDatabase(linkemail$,java$,linktext$)
  3757.  28: 
  3758.  emails%>0 
  3759. MakeEmailMenu:
  3760. "Wimp_CreateMenu",,menu%,x%,y%
  3761.  icon%<12 
  3762.  icon%>-1 
  3763.  button%=4 
  3764.  pumping<>0 
  3765. $   out%=
  3766. "<Wimp$ScrapDir>.HTML3"
  3767. decodetokens(address$(icon%+1))
  3768. #out%
  3769. "XOS_CLI","Settype <Wimp$ScrapDir>.HTML3 &FAF"
  3770. filepush("<Wimp$ScrapDir>.HTML3",1)
  3771.  button%<3 
  3772.  icon%<12 
  3773.  icon%>-1 
  3774. changingaddress%=icon%+1
  3775. AlterIcons(address$(changingaddress%),5,updatehandle%)
  3776. AlterIcons(
  3777. icondata(icon%,addrhandle%),4,updatehandle%)
  3778. *width%=(
  3779. modevar(11)<<(
  3780. modevar(4)-1))
  3781.  block%!0=updatehandle%
  3782. "Wimp_GetWindowInfo",,block%
  3783.   block%!4=x%-382
  3784.   block%!8=y%+138
  3785.  block%!4=x%-382
  3786.  ((block%!4)+382)>((width%*2)-382) 
  3787.  block%!4=width%+436
  3788.  block%!16=y%+138
  3789.  block%!28=-1
  3790. "Wimp_OpenWindow",,block%
  3791.  temp$<>"" 
  3792.  pumping=0 
  3793. push(temp$)
  3794.  pumping=1 
  3795. (pump$)+
  3796. (temp$)>=255 
  3797.  pumping=1 
  3798. (pump$)+
  3799. (temp$)<255 pump$=pump$+temp$
  3800. RolloverCode
  3801.  pumping<>0 
  3802. 1!out%=
  3803. "<Wimp$ScrapDir>.HTML3"
  3804. #out%,"<script language=""JavaScript""><!-- "
  3805. #out%,rollon$
  3806. #out%,rolloff$
  3807. #out%,"// -->"
  3808. #out%,"</script>"+
  3809. #out%
  3810. "XOS_CLI","Settype <Wimp$ScrapDir>.HTML3 &FAF"
  3811. filepush("<Wimp$ScrapDir>.HTML3",1)
  3812. MakeLink(le$,lt$)
  3813. linkemail$=le$
  3814. linktext$=lt$
  3815. java$=""
  3816.  pumping<>0 
  3817. emailtemp$=""
  3818. linkemail$,"@")<1 
  3819. warning("This is not a valid email address - there is no ""@"" symbol in it"):=
  3820. C!out%=
  3821. "<Wimp$ScrapDir>.HTML3"
  3822. #out%,"<a href=""mailto:"+linkemail$+"""";
  3823. CheckRadio(addrhandle%,18)>0 
  3824. icondata(19,addrhandle%)<>"" 
  3825. F$ java$=
  3826. icondata(19,addrhandle%)
  3827. #out%," onmouseover=""window.status='"+java$+"';return true;""";
  3828. CheckRadio(addrhandle%,35)>0 
  3829. icondata(19,addrhandle%)<>"" 
  3830. J$ java$=
  3831. icondata(19,addrhandle%)
  3832. #out%," title="""+java$+"""";
  3833. #out%,">"+linktext$+"</a>"
  3834. #out%
  3835. "XOS_CLI","Settype <Wimp$ScrapDir>.HTML3 &FAF"
  3836. filepush("<Wimp$ScrapDir>.HTML3",1)
  3837. UpdateEmailDatabase(linkemail$,java$,linktext$)
  3838. MakeURL2(url$)
  3839. java$=""
  3840.  pumping<>0 
  3841. W!out%=
  3842. "<Wimp$ScrapDir>.HTML3"
  3843. #out%,"<a href=""";
  3844. #out%,url$;
  3845. #out%,"""";
  3846. CheckRadio(addrhandle%,18)>0 
  3847. icondata(19,addrhandle%)<>"" 
  3848. \$ java$=
  3849. icondata(19,addrhandle%)
  3850. #out%," onmouseover=""window.status='"+
  3851. icondata(19,addrhandle%)+"';return true;""";
  3852. CheckRadio(addrhandle%,35)>0 
  3853. icondata(19,addrhandle%)<>"" 
  3854. #out%," title="""+
  3855. icondata(19,addrhandle%)+"""";
  3856. #out%,">";
  3857. #out%,url$;
  3858. #out%,"</a>"
  3859. #out%
  3860. "XOS_CLI","Settype <Wimp$ScrapDir>.HTML3 &FAF"
  3861. filepush("<Wimp$ScrapDir>.HTML3",1)
  3862. UpdateURLDatabase(url$,url$,java$)
  3863. i/pumping=0:
  3864. "XOS_CLI","Unset HTML3$Pumping"
  3865. message(bl)
  3866.  bl!16 
  3867.  0: quit=
  3868.  block%!12=savedragref% 
  3869. p,         
  3870. taskname(block%!4)="Filer" 
  3871. q'           save$=
  3872. string(block%+44)
  3873. r$           savedragref%=block%!8
  3874. s%           block%!12=savedragref%
  3875. t7           
  3876.  "Wimp_SendMessage",19,block%,block%!4
  3877.            
  3878.  dragwindow% 
  3879. v2            
  3880.  userhandle%:
  3881. CreateRemote(save$)
  3882.            
  3883.          
  3884.         
  3885. input
  3886.  WHEN 1282:PROChelp
  3887.  &47700
  3888.     picking%=
  3889.     col%=block%!28
  3890. .    r%=block%?29:g%=block%?30:b%=block%?31
  3891. 5    
  3892.  i%=0
  3893. block%!32+7:cbuff%?i%=block%!(28+i%):
  3894. !    
  3895.  pickwindow%=fxhandle% 
  3896. !      colour%(1,pickicon%)=r%
  3897. !      colour%(2,pickicon%)=g%
  3898. !      colour%(3,pickicon%)=b%
  3899. ,      
  3900. AlterSprite(pickicon%+1,r%,g%,b%)
  3901. D      
  3902. Refresh(pickicon%,fxhandle%,"R5;scol"+
  3903. zero(2,pickicon%))
  3904.         
  3905. #    
  3906.  pickwindow%=headhandle% 
  3907.       body%(1,pickicon%)=r%
  3908.       body%(2,pickicon%)=g%
  3909.       body%(3,pickicon%)=b%
  3910.       
  3911. UpdateBody
  3912.         
  3913. $    
  3914.  pickwindow%=stylehandle% 
  3915.       stylecolour%(1)=r%
  3916.       stylecolour%(2)=g%
  3917.       stylecolour%(3)=b%
  3918.       
  3919. UpdateStyle
  3920.         
  3921. $    
  3922.  pickwindow%=tablehandle% 
  3923.       tablecolour%(1)=r%
  3924.       tablecolour%(2)=g%
  3925.       tablecolour%(3)=b%
  3926.       
  3927. UpdateTableColour
  3928.         
  3929.   PROCwritein(r%,g%,b%,TRUE)
  3930.   PROCopenwindow(mb%)
  3931.  &47702:
  3932. "ColourPicker_CloseDialogue",0,block%!20:picking%=
  3933. receiveerror(bl)
  3934.  bl!16 
  3935.      
  3936.  &4af80:
  3937. !      url$=
  3938. string(block%+20)
  3939. "      d$="Alias$URLOpen_"+url$
  3940.       n%=
  3941. d$, ":")
  3942.       d$=
  3943. d$, n%-1)
  3944. 6      
  3945.  "XOS_ReadVarVal",d$,block%,-1 
  3946.  ,,exists%
  3947. ]      
  3948.  (exists% = 0) 
  3949. error("No application has been seen that can launch this URL",0)
  3950. '      $block%=
  3951. d$, 7)+" "+url$+
  3952. $      
  3953.  "Wimp_StartTask",block%
  3954. input
  3955.  graphical%, sound%
  3956. pos%=0
  3957. name$=""
  3958.  ?(bl+44+pos%)<>0
  3959. name$+=
  3960. (?(bl+44+pos%))
  3961. pos%+=1
  3962. GetFullInfo(name$)
  3963. linked%=
  3964. "Wimp_GetPointerInfo",,block%
  3965. icon%=block%!16
  3966. handle%=block%!12
  3967.  filetype%=&C85 
  3968.  filetype%=&695 
  3969.  filetype%=&FF9 
  3970.  graphical%=
  3971.  filetype%=&FB1 
  3972.  filetype%=&FD4 
  3973.  filetype%=&FC2 
  3974.  sound%=
  3975. makerel%=
  3976.  graphical%=
  3977.  handle% 
  3978.  linkhandle% :
  3979. CheckRadio(linkhandle%,23)>0 makerel%=
  3980.  headhandle% :
  3981. CheckRadio(headhandle%,57)>0 makerel%=
  3982.  imghandle%  :
  3983. CheckRadio(imghandle%,46)>0  makerel%=
  3984. CheckRadio(imghandle%,46)>0  makerel%=
  3985.  sound%=
  3986.  handle%=headhandle% 
  3987. CheckRadio(headhandle%,57)>0 makerel%=
  3988. CheckRadio(linkhandle%,23)>0 makerel%=
  3989.  graphical%=
  3990.  sound%=
  3991. CheckRadio(linkhandle%,23)>0 makerel%=
  3992.  makerel%=
  3993. = relative$=
  3994. WorkOutPath(path$+"."+filename$,comparefile$)
  3995.   relative$=
  3996. PCify(filename$)
  3997.  relative$="" 
  3998.  relative$=
  3999. PCify(filename$)
  4000.  graphics
  4001.  graphical%=
  4002.  handle% 
  4003.  headhandle%
  4004. AlterIcons(relative$,12,headhandle%)
  4005. SetTick(headhandle%,11,1)
  4006. greyicon(headhandle%,12,0)
  4007.  linkhandle%:
  4008.  icon% 
  4009.  12,17,9,11,13,10,33,32:
  4010. .     
  4011. AlterIcons(relative$,10,linkhandle%)
  4012. 5     
  4013. AlterIcons(
  4014. lower(stripped$),9,linkhandle%)
  4015.  15,16,34:
  4016. .     
  4017. AlterIcons(relative$,16,linkhandle%)
  4018. AlterIcons(relative$,0,linkhandle%)
  4019. AlterIcons(
  4020. PCify(filename$)+" ("+filesize$+")",2,linkhandle%)
  4021.  foothandle%:
  4022. ImageInfo(0)
  4023. AlterIcons(w$,46,foothandle%)
  4024. AlterIcons(h$,47,foothandle%)
  4025. AlterIcons(relative$,44,foothandle%)
  4026. ImageInfo(1)
  4027. greyicon(imghandle%,44,
  4028. SetTick(imghandle%,43,0)
  4029. SetTick(imghandle%,42,0)
  4030. SetTick(imghandle%,50,0)
  4031. OpenWin(imghandle%)
  4032.  linked%=
  4033.  filetype%=&FED 
  4034.  handle%<>linkhandle% 
  4035.  filesize%=23 
  4036. LoadBody(name$)
  4037. OpenWin(headhandle%)
  4038.   linked%=
  4039. LoadPalette(name$)
  4040. AlterIcons(filename$,2,savehandle%)
  4041. OpenWin(fxhandle%)
  4042.   linked%=
  4043.  filetype%=&FED 
  4044.  handle%<>linkhandle% 
  4045.  BACKSOUND
  4046.  sound%=
  4047.  handle%=headhandle% 
  4048. AlterIcons(relative$,56,headhandle%)
  4049. SetTick(headhandle%,55,1)
  4050. greyicon(headhandle%,56,0)
  4051. greyicon(headhandle%,58,0)
  4052. greyicon(headhandle%,60,0)
  4053. greyicon(headhandle%,61,0)
  4054. greyicon(headhandle%,21,0)
  4055.   linked%=
  4056.  filetype%=&259 
  4057.  linked%=
  4058. AlterIcons(relative$,0,linkhandle%)
  4059. AlterIcons("",5,linkhandle%)
  4060. SetTick(linkhandle%,4,1)
  4061. SetTick(linkhandle%,22,0)
  4062. SetTick(linkhandle%,31,0)
  4063. greyicon(linkhandle%,21,
  4064. greyicon(linkhandle%,3,
  4065. greyicon(linkhandle%,2,
  4066. SetTick(imghandle%,42,1)
  4067. SetTick(imghandle%,43,1)
  4068. greyicon(imghandle%,44,
  4069. OpenWin(linkhandle%)
  4070. OpenWin(imghandle%)
  4071. "Wimp_SetCaretPosition",imghandle%,44,,-1,-1
  4072.  filetype%=&F91 
  4073.  filetype%=&B28 
  4074.  linked%=
  4075. geturi
  4076.  filetype%=&FAF 
  4077.  filetype%=&FFF 
  4078.  handle%<>opthandle% 
  4079.  handle%<>-2 
  4080.   linked%=
  4081.   linked%=
  4082. AlterIcons(name$,5,opthandle%)
  4083.  handle%=-2 
  4084.  comparefile$=name$:
  4085. 1,-10,150,2
  4086.  linked%=
  4087.  fileobject% 
  4088. AlterIcons(relative$,0,linkhandle%)
  4089. =0         
  4090.  filetype%=&FAF 
  4091.  filetype%=&FFF 
  4092. >2          
  4093. AlterIcons(stripped$,2,linkhandle%)
  4094.          
  4095. @M          
  4096. AlterIcons(
  4097. PCify(filename$)+" ("+filesize$+")",2,linkhandle%)
  4098.          
  4099. B"         
  4100. OpenWin(linkhandle%)
  4101.  handle%=opthandle% 
  4102.  handle%=-2 
  4103. D8          
  4104. AlterIcons(name$+".<files>",5,opthandle%)
  4105. EG          
  4106.  handle%=-2 
  4107.  comparefile$=name$+".<files>":
  4108. 1,-10,150,2
  4109.          
  4110. G2          
  4111. AlterIcons(relative$,0,linkhandle%)
  4112. H2          
  4113. AlterIcons(stripped$,2,linkhandle%)
  4114. I#          
  4115. OpenWin(linkhandle%)
  4116.          
  4117.  handle%=opthandle% 
  4118.  handle%=-2 
  4119. L8          
  4120. AlterIcons(name$+".<files>",5,opthandle%)
  4121. MG          
  4122.  handle%=-2 
  4123.  comparefile$=name$+".<files>":
  4124. 1,-10,150,2
  4125.          
  4126. O1         
  4127. AlterIcons(relative$,0,linkhandle%)
  4128. PD         
  4129. AlterIcons(filename$+" ("+filesize$+")",2,linkhandle%)
  4130. Q"         
  4131. OpenWin(linkhandle%)
  4132.          
  4133. geturi
  4134.  name$
  4135. lineout$=""
  4136. line$=""
  4137. titleline$=""
  4138. test$=
  4139. test$,3)="URI" 
  4140.  Acorn Browser shortcut
  4141. #uri 
  4142.  line$=
  4143. #uri:
  4144.  dump it!
  4145. #uri 
  4146.  line$=
  4147. #uri:
  4148.  dump it!
  4149. #uri 
  4150.  line$=
  4151. #uri:
  4152.  but this one's interesting...
  4153.  lineout$=
  4154. line$,2)
  4155. #uri 
  4156.  titleline$=
  4157. #uri:
  4158.  Thanks Acorn for following your specs!
  4159. (titleline$)>1 
  4160.  titleline$=
  4161. titleline$,2) 
  4162.  titleline$=stripped$
  4163.  test$="[InternetShortcut]" 
  4164.  Internet Explorer shortcut...
  4165. #uri 
  4166.  line$=
  4167.  lineout$=
  4168. line$,5)
  4169.  titleline$=stripped$
  4170.  filetype%=&B28 
  4171.  lineout$=test$
  4172.  titleline$=stripped$
  4173.  lineout$<>"" 
  4174. AlterIcons(lineout$,0,linkhandle%)
  4175. AlterIcons(titleline$,2,linkhandle%)
  4176. AlterIcons(titleline$,21,linkhandle%)
  4177. OpenWin(linkhandle%)
  4178. UpdateURLDatabase(lineout$,titleline$,titleline$)
  4179. ImageInfo(flag%)
  4180. {)tempwidth$=width$:tempheight$=height$
  4181. width$="":height$=""
  4182. w$="":h$=""
  4183.  filetype%=&C85 
  4184. JpegSize(name$,flag%)
  4185.  filetype%=&695 
  4186. GifSize(name$,flag%)
  4187.  filetype%=&FF9 
  4188. SpriteSize(name$,flag%)
  4189. (width$)<1 
  4190. (width$)>4 
  4191.  width$=""
  4192. (height$)<1 
  4193. (height$)>4 
  4194.  height$=""
  4195.  flag%=1 
  4196.  height$<>"" 
  4197.  width$<>"" 
  4198. AlterIcons(width$,4,imghandle%)
  4199. AlterIcons(height$,5,imghandle%)
  4200. AlterIcons("",4,imghandle%)
  4201. AlterIcons("",5,imghandle%)
  4202.   height$="":width$=""
  4203. AlterIcons(
  4204. lower(stripped$),53,imghandle%)
  4205.  w$=width$:h$=height$
  4206.  width$=tempwidth$
  4207.  height$=tempheight$
  4208. GifSize(name$,flag%)
  4209.  giffile,g%,gif%
  4210. giffile=
  4211.  name$
  4212. type$=""
  4213.  g%=1
  4214.   gif%=
  4215. #giffile
  4216.   type$+=
  4217. (gif%)
  4218.  type$<>"GIF89a" 
  4219.  type$<>"GIF87a" 
  4220. #giffile:
  4221. warning("This does not appear to be a valid GIF file - it does not contain ""GIF87a"" or ""GIF89a"" in the header"):
  4222. block%?0=
  4223. #giffile
  4224. block%?1=
  4225. #giffile
  4226. block%?2=0
  4227. block%?3=0
  4228. xsize=block%!0
  4229. block%?0=
  4230. #giffile
  4231. block%?1=
  4232. #giffile
  4233. block%?2=0
  4234. block%?3=0
  4235. ysize=block%!0
  4236. #giffile
  4237. width$=
  4238. (xsize)
  4239. height$=
  4240. (ysize)
  4241.  flag%=1 
  4242. AlterIcons(relative$,0,imghandle%)
  4243. AlterIcons(stripped$,2,imghandle%)
  4244. JpegSize(name$,flag%)
  4245.  jpegfile,j%,jpeg
  4246. jpegfile=
  4247.  name$
  4248. type$=""
  4249.  j%=1
  4250.   jpeg=
  4251. #jpegfile
  4252.  j%>6 type$+=
  4253. (jpeg)
  4254.  type$<>"JFIF" 
  4255. #jpegfile:
  4256. warning("This does not appear to be a JPEG image - it does not contain JFIF in the header."):
  4257. trigger%=
  4258. oldjpeg=jpeg
  4259. jpeg=
  4260. #jpegfile
  4261.  oldjpeg=&FF 
  4262.  jpeg=&C0 trigger%=
  4263.  trigger% 
  4264. #jpegfile
  4265.  FOR j%=1TO153:jpeg=BGET#jpegfile:NEXT
  4266. #jpegfile<((
  4267. #jpegfile)-150) 
  4268.  j%=1
  4269. 3:jpeg=
  4270. #jpegfile:
  4271.  block%?1=
  4272. #jpegfile
  4273.  block%?0=
  4274. #jpegfile
  4275.  block%?2=0
  4276.  block%?3=0
  4277.  ysize=block%!0
  4278.  block%?1=
  4279. #jpegfile
  4280.  block%?0=
  4281. #jpegfile
  4282.  block%?2=0
  4283.  block%?3=0
  4284.  xsize=block%!0
  4285. #jpegfile
  4286.  width$=
  4287. (xsize)
  4288.  height$=
  4289. (ysize)
  4290.  flag%=1 
  4291. AlterIcons(relative$,0,imghandle%)
  4292. AlterIcons(stripped$,2,imghandle%)
  4293. SpriteSize(name$,flag%)
  4294.  spritefile,j%,sprite
  4295. spritefile=
  4296.  name$
  4297. dummy=
  4298. #spritefile
  4299. type$=""
  4300. #spritefile=&1
  4301.  j%=1
  4302.   sprite=
  4303. #spritefile
  4304.   type$+=
  4305. (sprite)
  4306. .test$=
  4307. (&10)+
  4308.  type$<>test$ 
  4309. #spritefile:
  4310. warning("This does not appear to be a Sprite file."):
  4311. #spritefile=&20
  4312. block%?0=
  4313. #spritefile
  4314. block%?1=
  4315. #spritefile
  4316. block%?2=0
  4317. block%?3=0
  4318. ysize=(block%!0)+1
  4319. height$=
  4320. (ysize)
  4321. #spritefile=&10
  4322.  j%=1
  4323.    block%?(j%-1)=
  4324. #spritefile
  4325.  flag%=1 
  4326. AlterIcons(
  4327. string(block%),2,imghandle%)
  4328. #spritefile
  4329.  flag%=1 
  4330. AlterIcons(relative$,0,imghandle%)
  4331. error(mess$,errortype%)
  4332.  errortype%=1 
  4333. "Unset HTML3$Running"
  4334. !block%=0
  4335. $(block%+4)=mess$+
  4336. "Wimp_ReportError",block%,0,Task$
  4337. warning(message$)
  4338. !block%=0
  4339. $(block%+4)=message$+
  4340. flags%=%1000000001
  4341. "Wimp_ReportError",block%,flags%,Task$
  4342. getstr(A$)
  4343. "XOS_ReadVarVal",A$,tempblock%,256,,3 
  4344.  ,,H%
  4345. tempblock%?H%=13
  4346. =$tempblock%
  4347. savedefaults
  4348. SavePal("HTML3Options:PalPreset")
  4349. SaveBody("HTML3Options:BodyPreset")
  4350. $(block%)="TASK"
  4351. "Wimp_CloseDown",taskhandle,!block%
  4352. "Unset HTML3$Running"
  4353. OpenWinCen(handle%)
  4354.  w%,h%
  4355. !block%=handle%
  4356.  "Wimp_GetWindowState",,block%
  4357. w%=block%!12-block%!4
  4358. h%=block%!16-block%!8
  4359. 4block%!4 =(
  4360. modevar(11)<<(
  4361. modevar(4)-1))-w% 
  4362. 4block%!12=(
  4363. modevar(11)<<(
  4364. modevar(4)-1))+w% 
  4365. 4block%!8 =(
  4366. modevar(12)<<(
  4367. modevar(5)-1))-h% 
  4368. 4block%!16=(
  4369. modevar(12)<<(
  4370. modevar(5)-1))+h% 
  4371. block%!20=0
  4372. block%!24=0
  4373. block%!28=-1
  4374.  "Wimp_OpenWindow",,block%
  4375. modevar(var%)
  4376.  "OS_ReadModeVariable",-1,var% 
  4377.  ,,res%
  4378. '    =res%
  4379. OpenWin(handle%)
  4380. !block%=handle%
  4381.  "Wimp_GetWindowState",,block%
  4382. block%!28=-1
  4383.  "Wimp_OpenWindow",,block%
  4384. OpenPicker(x%,y%,options%)
  4385.  !block%=%00001001
  4386. 2Acol%=
  4387. ("&"+
  4388. hexzero(2,b%)+
  4389. hexzero(2,g%)+
  4390. hexzero(2,r%)+"00")
  4391. !cbuff%=col%
  4392. !block%=options%
  4393. block%!4=cpname%
  4394. block%!8=x%
  4395. block%!12=&80000000
  4396. block%!16=&7FFFFFFF
  4397. block%!20=y%
  4398. block%!24=0
  4399. block%!28=0
  4400.  i%=0 
  4401.  cbuff%!4+7
  4402. block%?(32+i%)=cbuff%?i%
  4403.  "ColourPicker_OpenDialogue",0,block%
  4404. CloseWindow(handler)
  4405. !block%=handler
  4406. "Wimp_CloseWindow",,block%
  4407. AlterIcons(changetext$,iconnumber,winhandle)
  4408. !block%=winhandle
  4409. block%!4=iconnumber
  4410. "Wimp_GetIconState",,block%
  4411. $(block%!28)=changetext$
  4412. block%!8=0:block%!12=0
  4413. "Wimp_SetIconState",,block%
  4414. version
  4415.  NewPurpose$
  4416. !block%=infohandle%
  4417. block%!4=1
  4418. "Wimp_GetIconState",,block%
  4419. UMasc=
  4420. Task$,1)): 
  4421.  asc>96 
  4422.  asc<123 
  4423.  Task$=
  4424. (asc-32)+
  4425. Task$,
  4426. (Task$)-1)
  4427. $(block%!28)=Task$
  4428. !block%=infohandle%
  4429. block%!4=2
  4430. "Wimp_GetIconState",,block%
  4431. ZpNewPurpose$=Purpose$:asc=
  4432. Purpose$,1)):
  4433.  asc>96 
  4434.  asc<123 
  4435.  NewPurpose$=
  4436. (asc-32)+
  4437. Purpose$,
  4438. (Purpose$)-1)
  4439. $(block%!28)=NewPurpose$
  4440. !block%=infohandle%
  4441. block%!4=3
  4442. "Wimp_GetIconState",,block%
  4443. $(block%!28)=Author$
  4444. !block%=infohandle%
  4445. block%!4=4
  4446. "Wimp_GetIconState",,block%
  4447. $(block%!28)=Version$
  4448. makeiconmenu(X,Y)
  4449. menutrack%=0
  4450. h$menuitem$(1)="Info>infohandle%_"
  4451. i"menuitem$(2)="Reveal side bar"
  4452. menuitem$(3)="Options..."
  4453. k#menuitem$(4)="User details..._"
  4454. menuitem$(5)="Help..._"
  4455. menuitem$(6)="Quit"
  4456. MakeMenu(6,Task$)
  4457. "Wimp_CreateMenu",,menu%,X,Y
  4458. MakePalMenu(save%)
  4459.  save% 
  4460.  1: dir$="HTML3:Palettes"
  4461.  2: dir$="HTML3:Colours"
  4462. FileCheck(dir$)<>2 
  4463.  max%=0:
  4464. "XOS_GBPB",12,dir$,scan%,77,0,4096,"*" 
  4465.  ,,,max%
  4466.  max%=0 
  4467. file%=1:done%=0:counter%=0
  4468. |"  filesize%=scan%!(counter%+8)
  4469. }#  filetype%=scan%!(counter%+20)
  4470. ~&  menuitem$(file%)="":counter%+=24
  4471. C    
  4472.  (scan%?counter%)<>0 
  4473.  menuitem$(file%)+=
  4474. (scan%?counter%)
  4475.     counter%+=1
  4476. (scan%?counter%)=0
  4477.  counter%+1 
  4478.  4 <>0 
  4479.         
  4480.       counter%+=1
  4481.  counter% 
  4482.  save% 
  4483.  filesize%<>60 
  4484.  filesize%<>120 
  4485.  filesize%<>1536 
  4486.  filetype%=0
  4487. )          
  4488.  filetype%=&FED 
  4489.  file%+=1
  4490.  filesize%<>23  
  4491.  filetype%=0
  4492. )          
  4493.  filetype%=&FED 
  4494.  file%+=1
  4495.   done%+=1
  4496.  done%=max%
  4497.  file%=1 
  4498.  filetype%<>&FED 
  4499.  save% 
  4500. MakeMenu(file%-1,"Palette files")
  4501. MakeMenu(file%-1,"Colour presets")
  4502. max%=file%
  4503. MakeFontMenu
  4504.  fontinacorn%=
  4505.  fonttype%=2 
  4506.  fonttype%=1
  4507.  counter%=1 
  4508.  maxfonts%
  4509. 2 menuitem$(counter%)=font$(fonttype%,counter%)
  4510. MakeMenu(maxfonts%,"Fonts")
  4511. MakeFXMenu(X,Y)
  4512. menutrack%=2
  4513. +menuitem$(1)="Save Palette>savehandle%"
  4514. +menuitem$(2)="ArtWorks colour table..."
  4515.  save% 
  4516. MakeMenu(2,"Effect colours")
  4517. MakeMenu(2,"Body colours")
  4518. "Wimp_CreateMenu",,menu%,X,Y
  4519. icondata(icon,window)
  4520. !block%=window
  4521. block%!4=icon
  4522. "Wimp_GetIconState",,block%
  4523. =$(block%!28)
  4524. CheckRadio(window%,icon%)
  4525.  flags
  4526. !block%=window%
  4527. block%!4=icon%
  4528. "Wimp_GetIconState",,block%
  4529. =block%!24
  4530. (1<<21)
  4531. SetTick(window%,icon%,tick%)
  4532. !block%=window%
  4533. block%!4=icon%
  4534.  tick% 
  4535.  block%!8=1<<21 
  4536.  block%!8=0
  4537. block%!12=1<<21
  4538. "Wimp_SetIconState",,block%
  4539. greyicon(handle%,icon%,greyed%)
  4540.   block%!0=handle%
  4541.   block%!4=icon%
  4542. %  block%!8=(2<<21) 
  4543.  (greyed%<>0)
  4544.   block%!12=2<<21
  4545.  "Wimp_SetIconState",,block%
  4546. Time(time$)
  4547. timeblock%?0=3
  4548. "OS_Word",14,timeblock%
  4549. "OS_ConvertDateAndTime",timeblock%,block%,1024,time$
  4550. string(block%)
  4551. string(pointer%)
  4552.  string$,length%
  4553. string$=""
  4554. length%=0
  4555.  pointer%?length%>=32
  4556.  length%<255
  4557.  string$+=
  4558. (pointer%?length%)
  4559. length%+=1
  4560. =string$
  4561. SendVoyagerMessage(voymessage$,voymessagetype%)
  4562. !(block%)=100
  4563. !(block%+12)=0
  4564.  !(block%+16)=voymessagetype%
  4565. $(block%+20)=voymessage$+
  4566. "Wimp_SendMessage",17,block%,0
  4567. FileCheck(name$)
  4568. "XOS_File",5,name$ 
  4569.  found%,,,,length%
  4570. =found%
  4571. GetFileInfo(name$)
  4572.  "OS_File",5,name$ 
  4573.  ,,filetype1%,,filesize%
  4574. 'filetype%=(filetype1% 
  4575.  &FFF00)>>>8
  4576. GetFullInfo(filetofind$)
  4577.  "OS_File",5,filetofind$ 
  4578.  fileobject%,,filetype1%,,filesize%
  4579. 'filetype%=(filetype1% 
  4580.  &FFF00)>>>8
  4581. filesize$=""
  4582.  filesize%<2048 
  4583.  filesize$=
  4584. (filesize%)+"bytes"
  4585.  filesize%>=2048 
  4586.  filesize%<1048576 
  4587. ! tempsize%=(filesize% 
  4588.  1024)
  4589. !  tempmod%=(filesize% 
  4590.  1024)
  4591.  tempmod%>=512 tempsize%+=1
  4592.   filesize$=
  4593. (tempsize%)+"KB"
  4594.  filesize%>=1048576 
  4595. %   filesize$=
  4596. (filesize%/1048576)
  4597. (filesize$)>3 
  4598.  filesize$=
  4599. filesize$,3)
  4600.    filesize$+="MB"
  4601. extfound%=
  4602. extpos%=
  4603. (filetofind$)+1
  4604. dotpos%=
  4605. (filetofind$)+1
  4606. filename$=""
  4607. ext$=""
  4608.  extfound%=
  4609.  extpos%-=1
  4610.   dotpos%-=1
  4611.  extfound%=
  4612. filetofind$,extpos%,1))=47 extfound%=
  4613. filetofind$,dotpos%,1))=46
  4614. %filename$=
  4615. filetofind$,dotpos%+1)
  4616. pcfilename$=filename$
  4617. !path$=
  4618. filetofind$,dotpos%-1)
  4619. noext$=filename$
  4620.  extfound%=
  4621.  extpos%=
  4622. filename$,"/")
  4623.  ext$=
  4624. filename$,extpos%+1)
  4625. ! noext$=
  4626. filename$,extpos%-1)
  4627. lower(ext$)="map" 
  4628.  filetype%=&259
  4629. lower(ext$)="url" 
  4630.  filetype%=&f91
  4631.  correctext%=
  4632.  filetype% 
  4633.  &FFF:ext$="txt"
  4634.  &695:ext$="gif"
  4635.  &C85:ext$=jpegext$
  4636.  &FAF:ext$=htmlext$
  4637.  &DDC:ext$=zipext$
  4638.  &3FB:ext$="arc"
  4639.  &C46:ext$="tar"
  4640.  &68E:ext$="pak"
  4641.  &FF5:ext$="ps"
  4642.  &CB6,&001:ext$="mod"
  4643.  &FB1:ext$="wav"
  4644.  &108:ext$="voc"
  4645.  &D3C:ext$="smp"
  4646.  &FB2:ext$="mov"
  4647.  &BF8:ext$="mpeg"
  4648.  &FD4:ext$="midi"
  4649.  &FF0:ext$="tiff"
  4650.  &AE4:ext$="class"
  4651.  &FFB:ext$="bas"
  4652.  &FFD:ext$="raw"
  4653.  &FF9:ext$="spr"
  4654.  &FEC:ext$="template"
  4655.  &FFA:ext$="module"
  4656.  &BC5:ext$="imp"
  4657.  &D94:ext$="awk"
  4658.  &AFF:ext$="aff"
  4659.  &691:ext$="dgs"
  4660.  &692:ext$="img"
  4661.  &693:ext$="iff"
  4662.  &694:ext$="mac"
  4663.  &697:ext$="pcx"
  4664.  &698:ext$="qrt"
  4665.  &699:ext$="mtv"
  4666.  &69C:ext$="bmp"
  4667.  &69D:ext$="tga"
  4668.  &69E:ext$="pbm"
  4669.  &6A1:ext$="rle"
  4670.  &6A2:ext$="rix"
  4671.  &6A5:ext$="ico"
  4672.  &6A6:ext$="wpg"
  4673.  &B1E:ext$="psi"
  4674.  &B60:ext$="png"
  4675.  &F98:ext$="psd"
  4676.  &FC9:ext$="ras"
  4677.  &FD5:ext$="pct"
  4678.  &B2F:ext$="wmf"
  4679.  &DEA:ext$="dxf"
  4680.  &CAE:ext$="hgl"
  4681.  &690:ext$="clr"
  4682.  &210:ext$="pdf"
  4683.  &FF8:ext$="bin"
  4684.  &259:ext$="map"
  4685.  ext$="" ext$="raw"
  4686.  fileobject%=2 
  4687.  correctext%=
  4688.  ext$=""
  4689.  correctext%=
  4690.  ext$<>"" 
  4691.  filename$=noext$+"/"+ext$
  4692. stripped$=noext$
  4693. stripped$,1))
  4694.  asc>96 
  4695.  asc<123 
  4696.  stripped$=
  4697. (asc-32)+
  4698. stripped$,2)
  4699. PCify(filetopc$)
  4700.  instr,startpart$,endpart$,filetemp$,loop%
  4701. filetopc$,"^.")>0
  4702.  instr%=
  4703. filetopc$,"^.")
  4704. T> filetopc$=
  4705. filetopc$,instr%-1)+"//."+
  4706. filetopc$,instr%+2)
  4707.  IF LEFT$(filetopc$,2)="./" filetopc$=MID$(filetopc$,3)
  4708.  IF LEFT$(filetopc$,1)="/" filetopc$=MID$(filetopc$,2)
  4709.  IF LEN(filetopc$)<3 THEN ="unknown"
  4710. filetemp$=""
  4711.  loop%=1 
  4712. (filetopc$)
  4713.  char$=
  4714. filetopc$,loop%,1)
  4715.  char$ 
  4716.  ".": char$="/"
  4717.  "/": char$="."
  4718.  filetemp$+=char$
  4719. filetopc$=filetemp$
  4720. =filetopc$
  4721. WorkOutPath(attributefile$,comparefile$)
  4722. cdollar%=
  4723. comparefile$,":")
  4724.  cdollar%=0 
  4725. attributefile$,
  4726. comparefile$,cdollar%-1))=0  =""
  4727. idcdollar%=
  4728. comparefile$,"$"):
  4729.  cdollar%<>0 
  4730. attributefile$,
  4731. comparefile$,cdollar%-1))=0 
  4732. 7: =""
  4733. k!fileA$=
  4734. PCify(attributefile$)
  4735. fileC$=
  4736. PCify(comparefile$)
  4737. counter%=
  4738. (comparefile$)
  4739. counter%-=1
  4740. test$=
  4741. fileC$,counter%,1)
  4742.  counter%=0 
  4743.  test$="/" 
  4744.  test$=":"
  4745.  counter%=0 =""
  4746.  test$="/" 
  4747.  test$=":" 
  4748. u$  leftfileC$=
  4749. fileC$,counter%-1)
  4750. v% rightfileC$= 
  4751. fileC$,counter%+1)
  4752. counter%=
  4753. (attributefile$)
  4754. counter%-=1
  4755. test$=
  4756. fileA$,counter%,1)
  4757.  counter%=0 
  4758.  test$="/" 
  4759.  test$=":"
  4760.  counter%=0 =""
  4761.  test$="/" 
  4762.  test$=":" 
  4763. $  leftfileA$=
  4764. fileA$,counter%-1)
  4765. % rightfileA$= 
  4766. fileA$,counter%+1)
  4767.  leftfileA$=leftfileC$ 
  4768.  =rightfileA$
  4769. leftfileA$,leftfileC$)=1 
  4770.  leftfileA$=
  4771. leftfileA$,
  4772. (leftfileC$)+2):=leftfileA$+"/"+rightfileA$
  4773.  it's just the bit below wot doesn't work Rich!
  4774. outrel$=""
  4775. dupe$=leftfileC$
  4776. counter%=
  4777. (dupe$)
  4778.  counter%-=1
  4779.  dupe$=
  4780. dupe$,
  4781. (dupe$)-1)
  4782.  counter%=0 
  4783. leftfileA$,dupe$)
  4784.  counter%=0 =""
  4785. &leftfileC$=
  4786. leftfileC$,
  4787. (dupe$)+1)
  4788. &leftfileA$=
  4789. leftfileA$,
  4790. (dupe$)+1)
  4791. outrel$="../"
  4792.  leftfileC$<>"" 
  4793. dots%=0
  4794. lastdot%=-1
  4795. leftfileC$,"/",lastdot%+1)>0 
  4796.    dots%+=1
  4797. +   lastdot%=
  4798. leftfileC$,"/",lastdot%+1)
  4799. leftfileC$,"/",lastdot%+1)=0
  4800. outrel$+=
  4801. dots%,"../")
  4802.  leftfileA$<>"" 
  4803.  outrel$+=leftfileA$+"/" 
  4804.  outrel$=
  4805. outrel$,4)
  4806. outrel$+=rightfileA$
  4807. =outrel$
  4808. moduleversion(Q$)
  4809. "XOS_Module",18,Q$ 
  4810.  J%,,,M%
  4811.  J%<>18 =-1
  4812. M%+=M%!20
  4813. ?M%<>9:M%+=1:
  4814. ?M%=9:M%+=1:
  4815. #N$="":
  4816. ?M%>32:N$+=
  4817. ?M%:M%+=1:
  4818.  N$*100
  4819. zero(len%,number%)
  4820. number$=
  4821. (number%)
  4822. (number$)<len% 
  4823. number$="0"+number$
  4824. (number$)>=len%
  4825. =number$
  4826. hexzero(len%,number%)
  4827. number$=
  4828. ~number%
  4829. (number$)<len% 
  4830. number$="0"+number$
  4831. (number$)>=len%
  4832. =number$
  4833. push(pump$)
  4834. pumping=1
  4835. "XOS_CLI","Set HTML3$Pumping TRUE"
  4836. (pump$)=0 
  4837. intag%=
  4838. inquote%=
  4839. character=
  4840. pump$,X,1))
  4841.  character=10 character=13
  4842.  character=
  4843.  intag%=
  4844.  character=
  4845.  intag%=
  4846.  character=
  4847.   intag%=
  4848.  intag%=
  4849.  character=34     
  4850.   intag%=
  4851.  inquote%=
  4852.  inquote%=
  4853.  inquote%=
  4854.  inquote%=
  4855.  intag%=
  4856.  case% 
  4857. =    
  4858.  character>=97 
  4859.  character<=122 
  4860.  character-=32
  4861. =    
  4862.  character>=65 
  4863.  character<=90  
  4864.  character+=32
  4865. "OS_Byte",138,0,character
  4866. +microspell=
  4867. moduleversion("MicroSpell")
  4868.  5=0 
  4869.  character=10 
  4870.  character=13 
  4871.  character=32) 
  4872.  microspell=-1 
  4873. poll(0)
  4874.  microspell<>-1 
  4875. poll(0)
  4876. (pump$)
  4877. pumping=0
  4878. "XOS_CLI","Unset HTML3$Pumping"
  4879. filepush(file$,delete%)
  4880. FileCheck(file$)<>1 
  4881. warning("Scrap file not found when trying to push large amounts of data - is the !Scrap directory available?"):
  4882.  pumping<>0 
  4883. \pumping=2:
  4884.  Why 2? it's because this means /nothing/ else can be pushed at the same time
  4885. "XOS_CLI","Set HTML3$Pumping TRUE"
  4886. filein%=
  4887.  file$
  4888. line$=
  4889. #filein%
  4890. (line$)=255 
  4891. #filein% 
  4892. push(line$)
  4893. push(line$)
  4894. push(
  4895. (10))
  4896. #filein%
  4897. #filein%
  4898.  delete%=1 
  4899. "OS_File",6,file$
  4900. pumping=0
  4901. "XOS_CLI","Unset HTML3$Pumping"
  4902.  Effects
  4903. LoadPalette(pal$)
  4904. GetFileInfo(pal$)
  4905.  filetype%<>&FED 
  4906.  filesize%<>60 
  4907.  filesize%<>120 
  4908.  filesize%<>1536 
  4909. warning("That file appears to be the wrong size for a 16- or 256-colour palette, and so can't be loaded. Sorry!"):
  4910. openpal=
  4911. (pal$)
  4912.  filesize%=1536 
  4913.  ypal=0
  4914.  dumploop=1
  4915.  dump=
  4916. #openpal
  4917.  xpal=1
  4918.  colour%(xpal,ypal)=
  4919. #openpal
  4920.  loop=0
  4921.  xloop=1
  4922. .colour%(xloop,loop)=colour%(xloop,loop*17)
  4923.  ypal=0
  4924.  filesize%=120 
  4925.  dumploop=1
  4926.  dump=
  4927. #openpal
  4928.  xpal=1
  4929.  colour%(xpal,ypal)=
  4930. #openpal
  4931. #openpal
  4932.  loop=0
  4933. AlterSprite(loop+1,colour%(1,loop),colour%(2,loop),colour%(3,loop))
  4934. Refresh(loop,fxhandle%,"R5;scol"+
  4935. zero(2,loop))
  4936. pal$,9)="HTML3Pal:" 
  4937. AlterIcons(
  4938. pal$,10),2,savehandle%)
  4939. SavePal(file$)
  4940. out%=
  4941.  file$
  4942.  out%=0 
  4943.  loop=0
  4944. #out%,&13:
  4945. #out%,loop:
  4946. #out%,&10
  4947. #out%,colour%(1,loop):
  4948. #out%,colour%(2,loop):
  4949. #out%,colour%(3,loop)
  4950. #out%,&13:
  4951. #out%,16:
  4952. #out%,&18
  4953. #out%,0:
  4954. #out%,0:
  4955. #out%,0
  4956. #out%,&13:
  4957. #out%,17:
  4958. #out%,&19
  4959. #out%,0:
  4960. #out%,&FF:
  4961. #out%,&FF
  4962. #out%,&13:
  4963. #out%,18:
  4964. #out%,&19
  4965. #out%,0:
  4966. #out%,0:
  4967. #out%,&99
  4968. #out%,&13:
  4969. #out%,19:
  4970. #out%,&19
  4971. #out%,&FF:
  4972. #out%,0:
  4973. #out%,0
  4974. #out%
  4975. "XOS_CLI","Settype "+file$+" &FED"
  4976. ArtWorksTable(file$)
  4977. out%=
  4978.  file$
  4979.  out%=0 
  4980. #out%,"%%AWColourTable:"
  4981.  save% 
  4982.  loop%=0
  4983. 93         out$="%%+r p (HTML
  4984. (loop%+1)+") "
  4985. :R         number$=
  4986. (colour%(1,loop%)/255):number$=
  4987. number$,4):out$+=number$+" "
  4988. ;R         number$=
  4989. (colour%(2,loop%)/255):number$=
  4990. number$,4):out$+=number$+" "
  4991. <N         number$=
  4992. (colour%(3,loop%)/255):number$=
  4993. number$,4):out$+=number$
  4994.          
  4995. #out%,out$
  4996.         
  4997.  2: out$="%%+r p (HTML
  4998.  background) "
  4999. @K        number$=
  5000. (body%(1,1)/255):number$=
  5001. number$,4):out$+=number$+" "
  5002. AK        number$=
  5003. (body%(2,1)/255):number$=
  5004. number$,4):out$+=number$+" "
  5005. BG        number$=
  5006. (body%(3,1)/255):number$=
  5007. number$,4):out$+=number$
  5008.         
  5009. #out%,out$
  5010. D-        out$="%%+r p (HTML
  5011.  foreground) "
  5012. EK        number$=
  5013. (body%(1,2)/255):number$=
  5014. number$,4):out$+=number$+" "
  5015. FK        number$=
  5016. (body%(2,2)/255):number$=
  5017. number$,4):out$+=number$+" "
  5018. GG        number$=
  5019. (body%(3,2)/255):number$=
  5020. number$,4):out$+=number$
  5021.         
  5022. #out%,out$
  5023. I'        out$="%%+r p (HTML
  5024.  link) "
  5025. JK        number$=
  5026. (body%(1,3)/255):number$=
  5027. number$,4):out$+=number$+" "
  5028. KK        number$=
  5029. (body%(2,3)/255):number$=
  5030. number$,4):out$+=number$+" "
  5031. LG        number$=
  5032. (body%(3,3)/255):number$=
  5033. number$,4):out$+=number$
  5034.         
  5035. #out%,out$
  5036. N.        out$="%%+r p (HTML
  5037.  active link) "
  5038. OK        number$=
  5039. (body%(1,4)/255):number$=
  5040. number$,4):out$+=number$+" "
  5041. PK        number$=
  5042. (body%(2,4)/255):number$=
  5043. number$,4):out$+=number$+" "
  5044. QG        number$=
  5045. (body%(3,4)/255):number$=
  5046. number$,4):out$+=number$
  5047.         
  5048. #out%,out$
  5049. S/        out$="%%+r p (HTML
  5050.  visited link) "
  5051. TK        number$=
  5052. (body%(1,5)/255):number$=
  5053. number$,4):out$+=number$+" "
  5054. UK        number$=
  5055. (body%(2,5)/255):number$=
  5056. number$,4):out$+=number$+" "
  5057. VG        number$=
  5058. (body%(3,5)/255):number$=
  5059. number$,4):out$+=number$
  5060.         
  5061. #out%,out$
  5062. #out%
  5063. "XOS_CLI","Settype "+file$+" &FFF"
  5064. AlterSprite(sprite%,R%,G%,B%)
  5065.  ppos%
  5066. ppos%=
  5067. palpos(sprite%)
  5068. palsprites%?(ppos%+4)=R%
  5069. palsprites%?(ppos%+5)=G%
  5070. palsprites%?(ppos%+6)=B%
  5071. palpos(number%)
  5072.  temp%
  5073. temp%=57
  5074.  number%=1 =temp%
  5075. temp%+=108*(number%-1)
  5076. =temp%
  5077. Refresh(icon%,window%,sprite$)
  5078. !block%=window%
  5079. block%!4=icon%
  5080. "Wimp_GetIconState",,block%
  5081. $(block%!32)=sprite$
  5082. block%!0=window%
  5083. block%!4=icon%
  5084. block%!8=0
  5085. block%!12=0
  5086. "Wimp_SetIconState",,block%
  5087. blend(start%,end%)
  5088. y:rmod=(colour%(1,start%)-colour%(1,end%))/(end%-start%)
  5089. z:gmod=(colour%(2,start%)-colour%(2,end%))/(end%-start%)
  5090. {:bmod=(colour%(3,start%)-colour%(3,end%))/(end%-start%)
  5091.  modloop%=start% 
  5092.  end%
  5093. }Bcolour%(1,modloop%)=colour%(1,start%)-(rmod*(modloop%-start%))
  5094. ~Bcolour%(2,modloop%)=colour%(2,start%)-(gmod*(modloop%-start%))
  5095. Bcolour%(3,modloop%)=colour%(3,start%)-(bmod*(modloop%-start%))
  5096. AlterSprite(modloop%+1,colour%(1,modloop%),colour%(2,modloop%),colour%(3,modloop%))
  5097. Refresh(modloop%,fxhandle%,"R5;scol"+
  5098. zero(2,modloop%))
  5099. invert
  5100.  xloop%=0
  5101.  yloop%=1
  5102. 5colour%(yloop%,xloop%)=255-colour%(yloop%,xloop%)
  5103. AlterSprite(xloop%+1,colour%(1,xloop%),colour%(2,xloop%),colour%(3,xloop%))
  5104. Refresh(xloop%,fxhandle%,"R5;scol"+
  5105. zero(2,xloop%))
  5106. reverse
  5107.  Load higher up...
  5108.  xloop%=0
  5109.  yloop%=1
  5110. 4colour%(yloop%,xloop%+16)=colour%(yloop%,xloop%)
  5111.  ...now pull back down!
  5112.  xloop%=0
  5113.  yloop%=1
  5114. 7colour%(yloop%,15-xloop%)=colour%(yloop%,xloop%+16)
  5115.  Finally, update palette
  5116.  xloop%=0
  5117. AlterSprite(xloop%+1,colour%(1,xloop%),colour%(2,xloop%),colour%(3,xloop%))
  5118. Refresh(xloop%,fxhandle%,"R5;scol"+
  5119. zero(2,xloop%))
  5120. coloursafe(scol%)
  5121. div%=scol% 
  5122. mod%=scol% 
  5123.  mod%>25 
  5124.  div%+=1
  5125. scol%=&33*div%
  5126. =scol%
  5127. OnMove
  5128. icon%=bl!16
  5129. button%=bl!8
  5130. r%=0:g%=0:b%=0
  5131.  shifttype% 
  5132.  copy to...
  5133.  name%<6 
  5134.    r%=body%(1,name%)
  5135.    g%=body%(2,name%)
  5136.    b%=body%(3,name%)
  5137.  name%=6 
  5138.    r%=stylecolour%(1)
  5139.    g%=stylecolour%(2)
  5140.    b%=stylecolour%(3)
  5141.  name%=24 
  5142.    r%=tablecolour%(1)
  5143.    g%=tablecolour%(2)
  5144.    b%=tablecolour%(3)
  5145.  name%>6 
  5146.  name%<24 
  5147.    r%=colour%(1,name%-7)
  5148.    g%=colour%(2,name%-7)
  5149.    b%=colour%(3,name%-7)
  5150.  icon% 
  5151.  2:body%(1,1)=r%
  5152.          body%(2,1)=g%
  5153.          body%(3,1)=b%
  5154.          
  5155. UpdateBody
  5156.  3:body%(1,2)=r%
  5157.          body%(2,2)=g%
  5158.          body%(3,2)=b%
  5159.          
  5160. UpdateBody
  5161.  0:body%(1,3)=r%
  5162.          body%(2,3)=g%
  5163.          body%(3,3)=b%
  5164.          
  5165. UpdateBody
  5166.  1:body%(1,4)=r%
  5167.          body%(2,4)=g%
  5168.          body%(3,4)=b%
  5169.          
  5170. UpdateBody
  5171.  4:body%(1,5)=r%
  5172.          body%(2,5)=g%
  5173.          body%(3,5)=b%
  5174.          
  5175. UpdateBody
  5176.  21:tablecolour%(1)=r%
  5177.            tablecolour%(2)=g%
  5178.            tablecolour%(3)=b%
  5179.            
  5180. UpdateTableColour
  5181.  22:stylecolour%(1)=r%
  5182.            stylecolour%(2)=g%
  5183.            stylecolour%(3)=b%
  5184.           
  5185. UpdateStyle
  5186.  don't press nuffink!
  5187.           icon%-=5
  5188. !          colour%(1,icon%)=r%
  5189. !          colour%(2,icon%)=g%
  5190. !          colour%(3,icon%)=b%
  5191. ,          
  5192. AlterSprite(icon%+1,r%,g%,b%)
  5193. @          
  5194. Refresh(icon%,fxhandle%,"R5;scol"+
  5195. zero(2,icon%))
  5196.  End copy to
  5197.  icon% 
  5198.   2:r%=body%(1,1)
  5199.           g%=body%(2,1)
  5200.           b%=body%(3,1)
  5201.   3:r%=body%(1,2)
  5202.           g%=body%(2,2)
  5203.           b%=body%(3,2)
  5204.   0:r%=body%(1,3)
  5205.           g%=body%(2,3)
  5206.           b%=body%(3,3)
  5207.   1:r%=body%(1,4)
  5208.           g%=body%(2,4)
  5209.           b%=body%(3,4)
  5210.   4:r%=body%(1,5)
  5211.           g%=body%(2,5)
  5212.           b%=body%(3,5)
  5213.  21:r%=tablecolour%(1)
  5214.            g%=tablecolour%(2)
  5215.            b%=tablecolour%(3)
  5216.  22:r%=stylecolour%(1)
  5217.            g%=stylecolour%(2)
  5218.            b%=stylecolour%(3)
  5219.  don't press nuffink!
  5220. #          r%=colour%(1,icon%-5)
  5221. #          g%=colour%(2,icon%-5)
  5222. #          b%=colour%(3,icon%-5)
  5223.  name%=6 
  5224.    stylecolour%(1)=r%
  5225.    stylecolour%(2)=g%
  5226.    stylecolour%(3)=b%
  5227. UpdateStyle
  5228.  name%<6 
  5229.    body%(1,name%)=r%
  5230.    body%(2,name%)=g%
  5231.    body%(3,name%)=b%
  5232. UpdateBody
  5233.  name%=24 
  5234.    tablecolour%(1)=r%
  5235.    tablecolour%(2)=g%
  5236.    tablecolour%(3)=b%
  5237. UpdateTableColour
  5238.  name%>6 
  5239.  name%<24 
  5240.    colour%(1,name%-7)=r%
  5241.    colour%(2,name%-7)=g%
  5242.    colour%(3,name%-7)=b%
  5243. AlterSprite(name%-6,r%,g%,b%)
  5244. Refresh(name%-7,fxhandle%,"R5;scol"+
  5245. zero(2,name%-7))
  5246.  button%=4 
  5247. CloseWindow(shifthandle%)
  5248. icon%=bl!16
  5249. button%=bl!8
  5250. x%=bl!0
  5251. y%=bl!4
  5252.  icon%=76 
  5253.  grabber%=4:
  5254. TextGrabber
  5255.  button%=4 
  5256. (-1) button%=1971
  5257.  button%=4 
  5258. (-2) button%=1971
  5259.  button%=2 
  5260.  icon%>15 
  5261.  icon%<>17 
  5262.  icon%<>34 
  5263.  save%=1:
  5264. MakeFXMenu(!bl-64,bl!4)
  5265.  icon%=17 
  5266.  button%=1 
  5267. "XOS_CLI","Filer_OpenDir HTML3:Palettes -si -sn -x"+
  5268. (x%)+" -y"+
  5269.  icon%=16 
  5270.  button%<>2 
  5271. "XOS_CLI","Filer_OpenDir HTML3:Palettes -si -sn -x"+
  5272. (x%)+" -y"+
  5273.  icon%=17 
  5274.  button%>1 
  5275. MakePalMenu(1)
  5276.  max%>0 
  5277.  menutrack%=1:
  5278. "Wimp_CreateMenu",,menu%,x%,y%
  5279.  button%=1971 
  5280.  icon%<16 
  5281.  icon%>-1 
  5282.  blend%<>-1 
  5283. Refresh(blend%,fxhandle%,"R5;scol"+
  5284. zero(2,blend%))
  5285.   blend%=icon%
  5286. Refresh(icon%,fxhandle%,"R2;scol"+
  5287. zero(2,icon%))
  5288.  button%=4 
  5289.  icon%<16 
  5290.  blend%>-1 
  5291.  icon%<blend% 
  5292. blend(icon%,blend%)
  5293.  icon%>blend% 
  5294. blend(blend%,icon%)
  5295.  icon%=blend% 
  5296. Refresh(blend%,fxhandle%,"R5;scol"+
  5297. zero(2,blend%))
  5298.   blend%=-2
  5299.  button%=4 
  5300.  icon%<16 
  5301.  blend%=-1 
  5302. A)  temp$= 
  5303. hexzero(2,colour%(1,icon%))
  5304. B)  temp$+=
  5305. hexzero(2,colour%(2,icon%))
  5306. C)  temp$+=
  5307. hexzero(2,colour%(3,icon%))
  5308. D)  temp$="<font color=""#"+temp$+""">"
  5309.  pumping=0 
  5310. push(temp$)
  5311.  pumping=1 
  5312. (pump$)+
  5313. (temp$)>=255 
  5314.  pumping=1 
  5315. (pump$)+
  5316. (temp$)<255 pump$=pump$+temp$
  5317.  button%=2 
  5318.  icon%<16 
  5319.  icon%>-1 
  5320.   name%=icon%+7
  5321. MakeColourMenu
  5322. "Wimp_CreateMenu",,menu%,bl!0,bl!4
  5323.  blend%=-2 blend%=-1
  5324.  icon%<16 
  5325.  icon%>-1 
  5326.  button%=1 
  5327.  picking%=
  5328.   pickicon%=icon%
  5329.   pickwindow%=fxhandle%
  5330.   picking%=
  5331.   r%=colour%(1,icon%)
  5332.   g%=colour%(2,icon%)
  5333.   b%=colour%(3,icon%)
  5334. OpenPicker(bl!0,bl!4,0)
  5335.  button%=4 
  5336.  temp$=""
  5337.  icon% 
  5338.  37:temp$="<i>"
  5339.  38:temp$="</i>"
  5340.  39:temp$="<b>"
  5341.  40:temp$="</b>"
  5342.  41:temp$="<em>"
  5343.  42:temp$="</em>"
  5344.  43:temp$="<strong>"
  5345.  44:temp$="</strong>"
  5346.  45:temp$="<sup>"
  5347.  46:temp$="</sup>"
  5348.  47:temp$="<sub>"
  5349.  48:temp$="</sub>"
  5350.  49:temp$="<u>"
  5351.  50:temp$="</u>"
  5352.  51:temp$="<strike>"
  5353.  52:temp$="</strike>"
  5354.  18:temp$="<font size=""-2"">"
  5355.  19:temp$="<font size=""-1"">"
  5356.  20:temp$="<font size=""+0"">"
  5357.  21:temp$="<font size=""+1"">"
  5358.  22:temp$="<font size=""+2"">"
  5359.  23:temp$="<font size=""+3"">"
  5360.  24:temp$="<font size=""+4"">"
  5361.  25:temp$="<font size=""+0"">"
  5362.  26:temp$="<font size=""1"">"
  5363.  27:temp$="<font size=""2"">"
  5364.  28:temp$="<font size=""3"">"
  5365.  29:temp$="<font size=""4"">"
  5366.  30:temp$="<font size=""5"">"
  5367.  31:temp$="<font size=""6"">"
  5368.  32:temp$="<font size=""7"">"
  5369. MakeFontMenu
  5370. |1         
  5371. "Wimp_CreateMenu",,menu%,bl!0,bl!4
  5372. }%         menutrack%=3:fonttype%=1
  5373.  35:temp$="<font face="""+font$(3,font%)+""">"
  5374.  36:temp$="</font>"
  5375. invert
  5376. reverse
  5377. DoSpecialFX
  5378.  temp$<>"" 
  5379.  pumping=0 
  5380. push(temp$)
  5381.  pumping=1 
  5382. (pump$)+
  5383. (temp$)>=255 
  5384.  pumping=1 
  5385. (pump$)+
  5386. (temp$)<255 pump$=pump$+temp$
  5387. OnSave
  5388. icon%=bl!16
  5389. button%=bl!8
  5390.  icon%=1 
  5391.  button%<>2 
  5392. EndSave:
  5393.  button%<>1 
  5394. "Wimp_CreateMenu",,-1:
  5395. CloseWindow(savehandle%)
  5396. EndSave
  5397. file$=""
  5398. !block%=savehandle%
  5399. block%!4=2
  5400. "Wimp_GetIconState",,block%
  5401. file$=$(block%!28)
  5402. confirm=
  5403.  file$<>"" 
  5404.  confirm=
  5405.   IF FNFileCheck("HTML3Pal:"+file$)=0 THEN PROCConfirm("A palette with this name already exists.  Overwrite the old palette?")
  5406.  confirm=
  5407.  save% 
  5408. SavePal("HTML3Pal:"+file$)
  5409. SaveBody("HTML3Body:"+file$)
  5410. FontName(fontnumber%)
  5411.  fontinacorn%=
  5412.  =font$(2,fontnumber%)
  5413. =font$(1,fontnumber%)
  5414. DoSpecialFX
  5415.  pumping<>0 
  5416.  sfx$=
  5417. icondata(54,fxhandle%)
  5418.  sfx$="" 
  5419. warning("No text has been entered for "+Task$+" to make special - that's not a very special effect, is it?"):
  5420. fxcol%=0:fxsize%=0
  5421. CheckRadio(fxhandle%,55)>0 fxcol%=1
  5422. CheckRadio(fxhandle%,65)>0 fxcol%=2
  5423. CheckRadio(fxhandle%,56)>0 fxcol%=3
  5424. CheckRadio(fxhandle%,57)>0 fxcol%=4
  5425. CheckRadio(fxhandle%,72)>0 fxcol%=5
  5426. CheckRadio(fxhandle%,60)>0 fxsize%=1:
  5427.  arch
  5428. CheckRadio(fxhandle%,61)>0 fxsize%=2:
  5429.  trough
  5430. CheckRadio(fxhandle%,74)>0 fxsize%=3:randomise=
  5431.  random
  5432. CheckRadio(fxhandle%,68)>0 fxsize%=4:
  5433.  bigger
  5434. CheckRadio(fxhandle%,69)>0 fxsize%=5:
  5435.  smaller
  5436. CheckRadio(fxhandle%,70)>0 fxsize%=6:
  5437.  waves
  5438. CheckRadio(fxhandle%,71)>0 fxsize%=7:
  5439.  valleys
  5440. CheckRadio(fxhandle%,62)>0 fxsize%=8:
  5441.  big init
  5442. CheckRadio(fxhandle%,63)>0 fxsize%=9:
  5443.  small caps
  5444.  fxcol%=0 
  5445.  fxsize%=0 
  5446. warning("No effects have been selected to apply to the text - that's not a very special effect, is it?"):
  5447. 1startcol%=0:colmove=0:startsize%=0:sizemove=0
  5448.  fxcol%=1 startcol%=0:colmove=1
  5449.  fxcol%=2 startcol%=0:colmove=(16/
  5450. striplen(sfx$," "))
  5451.  fxcol%=3 startcol%=0:colmove=1
  5452.  fxcol%=4 startcol%=0:colmove=(16/
  5453. striplen(sfx$," "))*2
  5454.  fxcol%=5 startcol%=
  5455. (16)-1:colmove=1
  5456.  fxsize%=1 
  5457.  startsize%=1:sizemove=(7/(
  5458. striplen(sfx$," ")))*2
  5459.  fxsize%=2 
  5460.  startsize%=7:sizemove=(7/(
  5461. striplen(sfx$," ")))*-2
  5462.  fxsize%=3 
  5463.  startsize%=
  5464. (7):sizemove=1
  5465.  fxsize%=4 
  5466.  startsize%=1:sizemove=7/
  5467. striplen(sfx$," ")
  5468.  fxsize%=5 
  5469.  startsize%=7:sizemove=-(7/
  5470. striplen(sfx$," "))
  5471.  fxsize%=6 
  5472.  startsize%=4:sizemove=+1
  5473.  fxsize%=7 
  5474.  startsize%=7:sizemove=-1
  5475.  fxsize%=8 
  5476.  startsize%=5:sizemove=0
  5477.  fxsize%=9 
  5478.  startsize%=5:sizemove=0
  5479.  col=startcol%
  5480. size=startsize%
  5481. switch%=
  5482. colswitch%=
  5483. !out%=
  5484. "<Wimp$ScrapDir>.HTML3"
  5485.  sfxloop%=1
  5486. (sfx$)
  5487.  out$=""
  5488.  char$=
  5489. sfx$,sfxloop%,1)
  5490.  asc=
  5491. (char$)
  5492.  asc=160 asc=32:char$=" "
  5493.  asc>122 char$="&#"+
  5494. (asc)+";"
  5495.  asc<39 
  5496.  asc<>32 char$="&#"+
  5497. (asc)+";"
  5498.  asc>59 
  5499.  asc<65 char$="&#"+
  5500. (asc)+";"
  5501.  char$<>" " 
  5502.  fxcol%>0 
  5503.  out$="<font color=""#"+
  5504. hexzero(2,colour%(1,
  5505. (col)))+
  5506. hexzero(2,colour%(2,
  5507. (col)))+
  5508. hexzero(2,colour%(3,
  5509. (col)))+""">"
  5510.  fxcol% 
  5511.  1: col+=colmove:
  5512.  col=16 col=0
  5513.  2: col+=colmove
  5514.  col+colmove>=16 colmove=-1
  5515. *          
  5516.  col+colmove<=-1 colmove=+1
  5517.           col+=colmove
  5518.  sfxloop%>=(
  5519. (sfx$)/2) 
  5520.  colswitch%=
  5521. !           colmove=colmove*-1
  5522.            colswitch%=
  5523.           
  5524.           col+=colmove
  5525. !          
  5526. (col)>=16 col=15
  5527.            
  5528. (col)<=-1 col=0
  5529.  5: col=
  5530. (16)-1
  5531.  fxsize%>0 
  5532.  fxsize%<8 
  5533.  out$+="<font size="""+
  5534. (size))+""">"
  5535.  IF RIGHT$(out$,4)="-5"">" THEN out$=LEFT$(out$,LEN(out$)-4)+"-4"">"
  5536.  fxsize% 
  5537.  sfxloop%>=(
  5538. (sfx$)/2) 
  5539.  switch%=
  5540. #           sizemove=sizemove*-1
  5541.            switch%=
  5542.           
  5543.           size+=sizemove
  5544.           
  5545.  size>=8 size=7
  5546.            
  5547. (size)<1 size=1
  5548.  sfxloop%>=(
  5549. (sfx$)/2) 
  5550.  switch%=
  5551. #           sizemove=sizemove*-1
  5552.            switch%=
  5553.           
  5554.           size+=sizemove
  5555.           
  5556.  size>=8 size=7
  5557.           
  5558.  size<1 size=1
  5559.  3: size=
  5560.  4: size+=sizemove
  5561.           
  5562.  size>=8 size=7
  5563.           
  5564.  size<1 size=1
  5565.  5: size+=sizemove
  5566.           
  5567.  size>=8 size=7
  5568.           
  5569.  size<1 size=1
  5570. (size+sizemove)<1 
  5571.  sizemove=
  5572. (sizemove)
  5573. >          
  5574. (size+sizemove)>7 
  5575.  sizemove=(
  5576. (sizemove))*-1
  5577.           size+=sizemove
  5578.           
  5579.  size>=8 size=7
  5580.           
  5581.  size<1 size=1
  5582. (size+sizemove)<1 
  5583.  sizemove=
  5584. (sizemove)
  5585. >          
  5586. (size+sizemove)>7 
  5587.  sizemove=(
  5588. (sizemove))*-1
  5589.           size+=sizemove
  5590.           
  5591.  size>=8 size=7
  5592.           
  5593.  size<1 size=1
  5594.  sfxloop%=1 
  5595.  out$="<font size=""6"">"
  5596. +          
  5597.  sfxloop%=2 
  5598.  out$="</font>"
  5599. O          
  5600.  sfxloop%>1 
  5601. sfx$,sfxloop%-1,1)=" " 
  5602.  out$="<font size=""6"">"
  5603. E          
  5604.  sfxloop%>1 
  5605. sfx$,sfxloop%-2,1)=" " 
  5606.  out$="</font>"
  5607. (char$)<123 
  5608. (char$)>96 
  5609.  char$=
  5610. (char$)-32)
  5611. 5          
  5612.  sfxloop%=1 
  5613.  out$="<font size=""5"">"
  5614. <          
  5615.  sfxloop%=2 
  5616.  out$="</font><font size=""2"">"
  5617. O          
  5618.  sfxloop%>1 
  5619. sfx$,sfxloop%-1,1)=" " 
  5620.  out$="<font size=""5"">"
  5621. V          
  5622.  sfxloop%>1 
  5623. sfx$,sfxloop%-2,1)=" " 
  5624.  out$="</font><font size=""2"">"
  5625.  out$+=char$
  5626.  fxcol%>0 
  5627.  out$+="</font>"
  5628.  fxsize%>0 
  5629.  fxsize%<8 
  5630.  out$+="</font>"
  5631.  fxsize%<9 out$=" "+
  5632.  fxsize%=9 
  5633.  out$="</font> "+
  5634. #out%,out$;
  5635.  fxsize%=9 
  5636. #out%,"</font>"
  5637.  BPUT#out%,CHR$(10)+CHR$(10)
  5638. #out%
  5639. "XOS_CLI","Settype <Wimp$ScrapDir>.HTML3 &FAF"
  5640. filepush("<Wimp$ScrapDir>.HTML3",1)
  5641. striplen(text$,char$)
  5642.  times%,instr%
  5643. text$,char$)=0 
  5644. (text$)
  5645. times%=0
  5646. instr%=0
  5647. text$,char$,instr%+1)>0 
  5648.  times%+=1:instr%=
  5649. text$,char$,instr%+1)
  5650. text$,char$,instr%+1)=0
  5651. (text$)-times%
  5652.  Styles
  5653. OnHead
  5654. icon%=bl!16
  5655. button%=bl!8
  5656.  icon%=29 
  5657. CloseWindow(headhandle%)
  5658.  icon%=64 grabber%=1:
  5659. TextGrabber
  5660.  icon%=65 grabber%=2:
  5661. TextGrabber
  5662.  icon%=66 grabber%=3:
  5663. TextGrabber
  5664.  button%=2 
  5665.  icon%<>10 
  5666.  save%=2:
  5667. MakeFXMenu(!bl-64,bl!4)
  5668.  icon%=10 
  5669.  button%=1  
  5670. "OS_CLI","Filer_OpenDir HTML3:Colours -si -sn"
  5671.  icon%=9  
  5672.  button%<>2 
  5673. "OS_CLI","Filer_OpenDir HTML3:Colours -si -sn"
  5674.  icon%=10 
  5675.  button%>1 
  5676. MakePalMenu(2)
  5677.  max%>0 
  5678.  menutrack%=4:
  5679. "Wimp_CreateMenu",,menu%,bl!0,bl!4
  5680.  Colour picking - the named colour buttons
  5681.  icon%>=42 
  5682.  icon%<=46 
  5683.   name%=icon%-41
  5684. MakeColourMenu
  5685. "Wimp_CreateMenu",,menu%,bl!0,bl!4
  5686.  The five grey buttons for colour picking
  5687.  icon%>=4 
  5688.  icon%<=8 
  5689.  button%<>2 
  5690.  picking%=
  5691.   pickicon%=icon%-3
  5692.   pickwindow%=headhandle%
  5693.   picking%=
  5694.   r%=body%(1,pickicon%)
  5695.   g%=body%(2,pickicon%)
  5696.   b%=body%(3,pickicon%)
  5697. OpenPicker(bl!0,bl!4,0)
  5698.  Clicking on the background of the image itself
  5699.  icon%=3 
  5700.  button%<>2 
  5701.  picking%=
  5702.   pickicon%=1
  5703.   pickwindow%=headhandle%
  5704.   picking%=
  5705.   r%=body%(1,pickicon%)
  5706.   g%=body%(2,pickicon%)
  5707.   b%=body%(3,pickicon%)
  5708. OpenPicker(bl!0,bl!4,0)
  5709.  Clicking on the text of the image itself
  5710.  icon%>=38 
  5711.  icon%<=41 
  5712.  button%<>2 
  5713.  picking%=
  5714.   pickicon%=icon%-36
  5715.   pickwindow%=headhandle%
  5716.   picking%=
  5717.   r%=body%(1,pickicon%)
  5718.   g%=body%(2,pickicon%)
  5719.   b%=body%(3,pickicon%)
  5720. OpenPicker(bl!0,bl!4,0)
  5721.  button%<>2 
  5722.  icon% 
  5723. LaunchURL("file:/HTML3:Docs/head.html")
  5724. CheckRadio(headhandle%,48)>0 
  5725. o*           
  5726. greyicon(headhandle%,49,
  5727. p*           
  5728. greyicon(headhandle%,50,
  5729.           
  5730. r*           
  5731. greyicon(headhandle%,49,
  5732. s*           
  5733. greyicon(headhandle%,50,
  5734.           
  5735. CheckRadio(headhandle%,51)>0 
  5736. v*           
  5737. greyicon(headhandle%,52,
  5738. w*           
  5739. greyicon(headhandle%,53,
  5740. x*           
  5741. greyicon(headhandle%,54,
  5742.           
  5743. z*           
  5744. greyicon(headhandle%,52,
  5745. {*           
  5746. greyicon(headhandle%,53,
  5747. |*           
  5748. greyicon(headhandle%,54,
  5749.           
  5750. CheckRadio(headhandle%,11)>0 
  5751. greyicon(headhandle%,12,
  5752. greyicon(headhandle%,12,
  5753. CheckRadio(headhandle%,55)>0 
  5754. )          
  5755. greyicon(headhandle%,56,
  5756. )          
  5757. greyicon(headhandle%,58,
  5758. )          
  5759. greyicon(headhandle%,60,
  5760. /          
  5761. CheckRadio(headhandle%,60)>0 
  5762. *           
  5763. greyicon(headhandle%,21,
  5764. *           
  5765. greyicon(headhandle%,61,
  5766.           
  5767. *           
  5768. greyicon(headhandle%,21,
  5769. *           
  5770. greyicon(headhandle%,61,
  5771.           
  5772.          
  5773. )          
  5774. greyicon(headhandle%,56,
  5775. )          
  5776. greyicon(headhandle%,58,
  5777. )          
  5778. greyicon(headhandle%,60,
  5779. )          
  5780. greyicon(headhandle%,61,
  5781. )          
  5782. greyicon(headhandle%,21,
  5783.          
  5784. CheckRadio(headhandle%,26)>0 
  5785. 2          
  5786.  PROCgreyicon(headhandle%,27,FALSE)
  5787. )          
  5788. greyicon(headhandle%,28,
  5789.          
  5790. 1          
  5791.  PROCgreyicon(headhandle%,27,TRUE)
  5792. )          
  5793. greyicon(headhandle%,28,
  5794.          
  5795. CheckRadio(headhandle%,60)>0 
  5796. )          
  5797. greyicon(headhandle%,21,
  5798. )          
  5799. greyicon(headhandle%,61,
  5800. j          
  5801. CheckRadio(headhandle%,61)=0 
  5802. CheckRadio(headhandle%,21)=0 
  5803. SetTick(headhandle%,21,1)
  5804.          
  5805. )          
  5806. greyicon(headhandle%,21,
  5807. )          
  5808. greyicon(headhandle%,61,
  5809.          
  5810. CheckRadio(headhandle%,18)>0 
  5811. J          
  5812.  grey%=19 
  5813.  grey%<>21 
  5814. greyicon(headhandle%,grey%,
  5815.           
  5816.          
  5817. J          
  5818.  grey%=19 
  5819.  grey%<>21 
  5820. greyicon(headhandle%,grey%,
  5821.           
  5822.          
  5823. greyicon(headhandle%,17,
  5824. (         
  5825. greyicon(headhandle%,15,
  5826. (         
  5827. greyicon(headhandle%,14,
  5828. (         
  5829. greyicon(headhandle%,16,
  5830. greyicon(headhandle%,17,
  5831. (         
  5832. greyicon(headhandle%,15,
  5833. (         
  5834. greyicon(headhandle%,14,
  5835. (         
  5836. greyicon(headhandle%,16,
  5837. greyicon(headhandle%,17,
  5838. (         
  5839. greyicon(headhandle%,15,
  5840. (         
  5841. greyicon(headhandle%,14,
  5842. (         
  5843. greyicon(headhandle%,16,
  5844. MakeBody
  5845. AlterIcons("http://www."+
  5846. email$,
  5847. email$,"@")+1)+"/",20,headhandle%)
  5848.  yloop%=1
  5849.          
  5850.  xloop%=1
  5851. :         body%(xloop%,yloop%)=255-body%(xloop%,yloop%)
  5852.          
  5853.          
  5854. UpdateBody
  5855.  icon%=30 
  5856.  button%=4  
  5857. CloseWindow(headhandle%)
  5858.  icon%=50 
  5859. MakeFontMenu
  5860. "Wimp_CreateMenu",,menu%,bl!0,bl!4
  5861.  menutrack%=3:fonttype%=2
  5862.  icon%=30 
  5863.  button%<>2 
  5864. CreateHeader
  5865. bumper(headhandle%,22,24,25,300,0,0,
  5866. bumper(headhandle%,52,53,54,7,0,0,
  5867. defaultfontsize%=bumpno%
  5868. CreateHeader
  5869.  pumping<>0 
  5870. !out%=
  5871. "<Wimp$ScrapDir>.HTML3"
  5872. CheckRadio(headhandle%,35)>0 
  5873. #out%,"<!DOCTYPE HTML PUBLIC """+doctype$+""">"
  5874. #out%,"<html><head>"
  5875. #out%," <title>"+
  5876. encode(
  5877. icondata(1,headhandle%))+"</title>"
  5878. CheckRadio(headhandle%,35)>0 
  5879. #out%,"<meta http-equiv=""content-type"" content=""text/html; charset=iso-8859-1"">"
  5880. #out%,"<meta http-equiv=""content-language"" content=""en-GB"">"
  5881. #out%,"<meta http-equiv=""published"" content="""+
  5882. Time("%W3, %DY %M3 %CE%YR")+""">"
  5883. CheckRadio(headhandle%,62)>0 
  5884. #out%,"<meta http-equiv=""expires"" content=""now"">"
  5885. #out%,"<meta http-equiv=""pragma"" content=""no-cache"">"
  5886. CheckRadio(headhandle%,34)>0 
  5887. #out%,"<meta http-equiv=""build"" content="""+
  5888. Time("%MO %CE%YR")+""">"
  5889. #out%,"<meta http-equiv=""author"" content="""+owner$+" ("+email$+")"">"
  5890. #out%,"<meta name=""generator"" content=""!HTML3 "+SmallVer$+" for RiscOS"">"
  5891. CheckRadio(headhandle%,13)>0 
  5892. icondata(15,headhandle%)<>"" 
  5893. #out%,"<meta name=""description"" content="""+
  5894. encode(
  5895. icondata(15,headhandle%))+""">"
  5896. icondata(17,headhandle%)<>"" 
  5897. #out%,"<meta name=""keywords"" content="""+
  5898. encode(
  5899. icondata(17,headhandle%))+""">"
  5900. CheckRadio(headhandle%,31)>0 
  5901. #out%,"<meta name=""robots"" content=""noindex,follow"">"
  5902. CheckRadio(headhandle%,18)>0 
  5903. #out%,"<meta http-equiv=""refresh"" content="""+
  5904. icondata(22,headhandle%);
  5905. icondata(20,headhandle%)<>"" 
  5906. #out%,"; URL="+
  5907. encode(
  5908. icondata(20,headhandle%));
  5909. #out%,""">"
  5910. CheckRadio(headhandle%,26)>0 
  5911. CheckRadio(headhandle%,63)>0 
  5912. #out%,"<script language=""JavaScript""><!-- "
  5913. CheckRadio(headhandle%,26)>0 
  5914. #out%,"window.defaultStatus="""+
  5915. encode(
  5916. icondata(28,headhandle%))+""""
  5917. CheckRadio(headhandle%,63)>0 
  5918. #out%,rollon$
  5919. #out%,rolloff$
  5920. #out%,"// -->"
  5921. #out%,"</script>"
  5922. CheckRadio(headhandle%,59)>0 
  5923. #out%,"<style type=""text/css"">"
  5924. #out%,"<!--"
  5925. "  col$= 
  5926. hexzero(2,body%(1,4))
  5927. "  col$+=
  5928. hexzero(2,body%(2,4))
  5929. "  col$+=
  5930. hexzero(2,body%(3,4))
  5931. #out%,"a:hover {color: #"+col$+";}"
  5932. "  col$= 
  5933. hexzero(2,body%(1,3))
  5934. "  col$+=
  5935. hexzero(2,body%(2,3))
  5936. "  col$+=
  5937. hexzero(2,body%(3,3))
  5938. #out%,"a:link  {color: #"+col$+";}"
  5939. #out%,"-->"
  5940. #out%,"</style>"
  5941. CheckRadio(headhandle%,36)>0 
  5942. #out%,"<base target=""_top"">"
  5943. #out%,"<META HTTP-EQUIV=""Window-target"" CONTENT=""_top"">"
  5944. dobase%=
  5945. 1defaultfontsize%=
  5946. icondata(52,headhandle%))
  5947. CheckRadio(headhandle%,51)>0 dobase%=
  5948.  defaultfontsize%=0 
  5949.  defaultfontsize%=3 dobase%=
  5950. CheckRadio(headhandle%,48)>0 dobase%=
  5951.  dobase%=
  5952. #out%,"<basefont";
  5953. CheckRadio(headhandle%,51)>0 
  5954.  defaultfontsize%<>0 
  5955.  defaultfontsize%<>3 
  5956. #out%," size="""+
  5957. (defaultfontsize%)+"""";
  5958. CheckRadio(headhandle%,48)>0 
  5959. #out%," face="""+font$(3,defaultfont%)+"""";
  5960. #out%,">"
  5961. #out%,"</head>"
  5962.  col$= 
  5963. hexzero(2,body%(1,1))
  5964.  col$+=
  5965. hexzero(2,body%(2,1))
  5966.  col$+=
  5967. hexzero(2,body%(3,1))
  5968. #out%,"<body bgcolor=""#"+col$+""" text=""#";
  5969.  col$= 
  5970. hexzero(2,body%(1,2))
  5971.  col$+=
  5972. hexzero(2,body%(2,2))
  5973.  col$+=
  5974. hexzero(2,body%(3,2))
  5975. #out%,col$+""" link=""#";
  5976.  col$= 
  5977. hexzero(2,body%(1,3))
  5978.  col$+=
  5979. hexzero(2,body%(2,3))
  5980.  col$+=
  5981. hexzero(2,body%(3,3))
  5982. #out%,col$+""" alink=""#";
  5983.  col$= 
  5984. hexzero(2,body%(1,4))
  5985.  col$+=
  5986. hexzero(2,body%(2,4))
  5987.  col$+=
  5988. hexzero(2,body%(3,4))
  5989. #out%,col$+""" vlink=""#";
  5990.   col$= 
  5991. hexzero(2,body%(1,5))
  5992. ! col$+=
  5993. hexzero(2,body%(2,5))
  5994. " col$+=
  5995. hexzero(2,body%(3,5))
  5996. #out%,col$+"""";
  5997. CheckRadio(headhandle%,11)>0 
  5998. icondata(12,headhandle%)<>"" 
  5999. %* background$=
  6000. icondata(12,headhandle%)
  6001.  newback$=""
  6002.  checkloop%=1 
  6003. (background$)
  6004. (&  char$=
  6005. background$,checkloop%,1)
  6006.  IF char$="." THEN char$="/" ELSE IF char$="/" THEN char$="."
  6007. (char$)<33 
  6008. (char$)>122 
  6009.  char$="" 
  6010.  newback$+=char$
  6011.  newback$<>"" 
  6012. #out%," background="""+newback$+"""";
  6013. #out%,">";
  6014. #out%,"<a name=""topofpage""></a>"+
  6015.  It's the background music bit!
  6016. CheckRadio(headhandle%,55)>0 
  6017. icondata(56,headhandle%)<>"" 
  6018. #out%,"<object>"
  6019. #out%,"<embed src="""+
  6020. icondata(56,headhandle%)+""" autostart=""true""";
  6021. CheckRadio(headhandle%,58)>0 repeat$="true" 
  6022.  repeat$="false"
  6023. #out%," repeat="""+repeat$+""" loop="""+repeat$+"""";
  6024. CheckRadio(headhandle%,60)=0 
  6025. CheckRadio(headhandle%,61)=0 
  6026. CheckRadio(headhandle%,21)=0 
  6027. #out%," hidden=""true"" controller=""false""";
  6028. #out%," hidden=""false""";
  6029. CheckRadio(headhandle%,61)>0 
  6030. #out%," controls=""smallconsole"" height=""15"" width=""49""";
  6031. CheckRadio(headhandle%,21)>0 
  6032. #out%," height=""55"" width=""144""";
  6033. #out%,">"
  6034. #out%,"</object>"
  6035. #out%,"<noembed>"
  6036. #out%,"<bgsound src="""+
  6037. icondata(56,headhandle%)+""">"
  6038. #out%,"</noembed>"
  6039.  who stop the music? :)
  6040. #out%
  6041. "XOS_CLI","Settype <Wimp$ScrapDir>.HTML3 &FAF"
  6042. filepush("<Wimp$ScrapDir>.HTML3",1)
  6043. MakeBody
  6044.  pumping<>0 
  6045. L!out%=
  6046. "<Wimp$ScrapDir>.HTML3"
  6047. M col$= 
  6048. hexzero(2,body%(1,1))
  6049. N col$+=
  6050. hexzero(2,body%(2,1))
  6051. O col$+=
  6052. hexzero(2,body%(3,1))
  6053. #out%,"<body bgcolor=""#"+col$+""" text=""#";
  6054. Q col$= 
  6055. hexzero(2,body%(1,2))
  6056. R col$+=
  6057. hexzero(2,body%(2,2))
  6058. S col$+=
  6059. hexzero(2,body%(3,2))
  6060. #out%,col$+""" link=""#";
  6061. U col$= 
  6062. hexzero(2,body%(1,3))
  6063. V col$+=
  6064. hexzero(2,body%(2,3))
  6065. W col$+=
  6066. hexzero(2,body%(3,3))
  6067. #out%,col$+""" alink=""#";
  6068. Y col$= 
  6069. hexzero(2,body%(1,4))
  6070. Z col$+=
  6071. hexzero(2,body%(2,4))
  6072. [ col$+=
  6073. hexzero(2,body%(3,4))
  6074. #out%,col$+""" vlink=""#";
  6075. ] col$= 
  6076. hexzero(2,body%(1,5))
  6077. ^ col$+=
  6078. hexzero(2,body%(2,5))
  6079. _ col$+=
  6080. hexzero(2,body%(3,5))
  6081. #out%,col$+"""";
  6082. CheckRadio(headhandle%,11)>0 
  6083. icondata(12,headhandle%)<>"" 
  6084. b* background$=
  6085. icondata(12,headhandle%)
  6086.  newback$=""
  6087.  checkloop%=1 
  6088. (background$)
  6089. e&  char$=
  6090. background$,checkloop%,1)
  6091.  IF char$="." THEN char$="/" ELSE IF char$="/" THEN char$="."
  6092. (char$)<33 
  6093. (char$)>122 
  6094.  char$="" 
  6095.  newback$+=char$
  6096.  newback$<>"" 
  6097. #out%," background="""+newback$+"""";
  6098. #out%,">"
  6099. #out%
  6100. "XOS_CLI","Settype <Wimp$ScrapDir>.HTML3 &FAF"
  6101. filepush("<Wimp$ScrapDir>.HTML3",1)
  6102. encode(text$)
  6103.  temptext$,char$,encodeloop%
  6104.  text$="" =""
  6105. temptext$=""
  6106.  encodeloop%=1 
  6107. (text$)
  6108. char$=
  6109. text$,encodeloop%,1)
  6110. (char$)>127 
  6111.  char$="<" 
  6112.  char$=">" 
  6113.  char$="&" 
  6114.  char$="""" 
  6115.  char$="'" 
  6116.  char$="&#"+
  6117. (char$))+";"
  6118. temptext$+=char$
  6119.  temptext$,text$
  6120. =text$
  6121. SaveBody(file$)
  6122. out%=
  6123.  file$
  6124.  out%=0 
  6125. #out%,"HTMLBODY";
  6126.  loop=1
  6127. #out%,body%(1,loop):
  6128. #out%,body%(2,loop):
  6129. #out%,body%(3,loop)
  6130. #out%
  6131. "XOS_CLI","Settype "+file$+" &FED"
  6132. LoadBody(body$)
  6133. GetFileInfo(body$)
  6134.  filetype%<>&FED 
  6135.  filesize%<>23 
  6136. warning("That file appears to be the wrong size for a body colour palette, and so can't be loaded. Sorry!"):
  6137. openpal=
  6138. (body$)
  6139. dump$=""
  6140.  dump%=1
  6141.  dump$+=
  6142. #openpal)
  6143.  dump$<>"HTMLBODY" 
  6144. #openpal:
  6145. warning("That file doesn't appear to be a body colour file, and so can't be loaded. Sorry!"):
  6146.  ypal=1
  6147.  xpal=1
  6148. body%(xpal,ypal)=
  6149. #openpal
  6150. #openpal
  6151. UpdateBody
  6152. body$,10)="HTML3Body:" 
  6153. AlterIcons(
  6154. body$,11),2,savehandle%)
  6155.  dotpos%=
  6156. (name$)+1
  6157.  filename$=""
  6158.    dotpos%-=1
  6159. name$,dotpos%,1))=46 
  6160.  dotpos%=0
  6161.  dotpos%>0 filename$=
  6162. name$,
  6163. (name$)-dotpos%)
  6164. AlterIcons(filename$,2,savehandle%)
  6165. UpdateBody
  6166.  background
  6167. -bodysprites%?((
  6168. bodypos(0))+0)=body%(1,1)
  6169. -bodysprites%?((
  6170. bodypos(0))+1)=body%(2,1)
  6171. -bodysprites%?((
  6172. bodypos(0))+2)=body%(3,1)
  6173.  text
  6174. -bodysprites%?((
  6175. bodypos(1))+0)=body%(1,2)
  6176. -bodysprites%?((
  6177. bodypos(1))+1)=body%(2,2)
  6178. -bodysprites%?((
  6179. bodypos(1))+2)=body%(3,2)
  6180. "rmod=(body%(1,1)-body%(1,2))/3
  6181. "gmod=(body%(2,1)-body%(2,2))/3
  6182. "bmod=(body%(3,1)-body%(3,2))/3
  6183. 6bodysprites%?((
  6184. bodypos(2))+0)=body%(1,2)+(rmod*1)
  6185. 6bodysprites%?((
  6186. bodypos(2))+1)=body%(2,2)+(gmod*1)
  6187. 6bodysprites%?((
  6188. bodypos(2))+2)=body%(3,2)+(bmod*1)
  6189. 6bodysprites%?((
  6190. bodypos(3))+0)=body%(1,2)+(rmod*2)
  6191. 6bodysprites%?((
  6192. bodypos(3))+1)=body%(2,2)+(gmod*2)
  6193. 6bodysprites%?((
  6194. bodypos(3))+2)=body%(3,2)+(bmod*2)
  6195.  link
  6196. -bodysprites%?((
  6197. bodypos(4))+0)=body%(1,3)
  6198. -bodysprites%?((
  6199. bodypos(4))+1)=body%(2,3)
  6200. -bodysprites%?((
  6201. bodypos(4))+2)=body%(3,3)
  6202. "rmod=(body%(1,1)-body%(1,3))/3
  6203. "gmod=(body%(2,1)-body%(2,3))/3
  6204. "bmod=(body%(3,1)-body%(3,3))/3
  6205. 6bodysprites%?((
  6206. bodypos(5))+0)=body%(1,3)+(rmod*1)
  6207. 6bodysprites%?((
  6208. bodypos(5))+1)=body%(2,3)+(gmod*1)
  6209. 6bodysprites%?((
  6210. bodypos(5))+2)=body%(3,3)+(bmod*1)
  6211. 6bodysprites%?((
  6212. bodypos(6))+0)=body%(1,3)+(rmod*2)
  6213. 6bodysprites%?((
  6214. bodypos(6))+1)=body%(2,3)+(gmod*2)
  6215. 6bodysprites%?((
  6216. bodypos(6))+2)=body%(3,3)+(bmod*2)
  6217.  active link
  6218. -bodysprites%?((
  6219. bodypos(7))+0)=body%(1,4)
  6220. -bodysprites%?((
  6221. bodypos(7))+1)=body%(2,4)
  6222. -bodysprites%?((
  6223. bodypos(7))+2)=body%(3,4)
  6224. "rmod=(body%(1,1)-body%(1,4))/3
  6225. "gmod=(body%(2,1)-body%(2,4))/3
  6226. "bmod=(body%(3,1)-body%(3,4))/3
  6227. 6bodysprites%?((
  6228. bodypos(8))+0)=body%(1,4)+(rmod*1)
  6229. 6bodysprites%?((
  6230. bodypos(8))+1)=body%(2,4)+(gmod*1)
  6231. 6bodysprites%?((
  6232. bodypos(8))+2)=body%(3,4)+(bmod*1)
  6233. 6bodysprites%?((
  6234. bodypos(9))+0)=body%(1,4)+(rmod*2)
  6235. 6bodysprites%?((
  6236. bodypos(9))+1)=body%(2,4)+(gmod*2)
  6237. 6bodysprites%?((
  6238. bodypos(9))+2)=body%(3,4)+(bmod*2)
  6239.  used link
  6240. .bodysprites%?((
  6241. bodypos(10))+0)=body%(1,5)
  6242. .bodysprites%?((
  6243. bodypos(10))+1)=body%(2,5)
  6244. .bodysprites%?((
  6245. bodypos(10))+2)=body%(3,5)
  6246. "rmod=(body%(1,1)-body%(1,5))/3
  6247. "gmod=(body%(2,1)-body%(2,5))/3
  6248. "bmod=(body%(3,1)-body%(3,5))/3
  6249. 7bodysprites%?((
  6250. bodypos(11))+0)=body%(1,5)+(rmod*1)
  6251. 7bodysprites%?((
  6252. bodypos(11))+1)=body%(2,5)+(gmod*1)
  6253. 7bodysprites%?((
  6254. bodypos(11))+2)=body%(3,5)+(bmod*1)
  6255. 7bodysprites%?((
  6256. bodypos(12))+0)=body%(1,5)+(rmod*2)
  6257. 7bodysprites%?((
  6258. bodypos(12))+1)=body%(2,5)+(gmod*2)
  6259. 7bodysprites%?((
  6260. bodypos(12))+2)=body%(3,5)+(bmod*2)
  6261. Refresh(3,headhandle%,"R2;sbody")
  6262. bodypos(number%)
  6263. pos%=61:pos%+=(8*number%)
  6264.     =pos%
  6265. UpdateStyle
  6266. !colicon%?(69)=stylecolour%(1)
  6267. !colicon%?(70)=stylecolour%(2)
  6268. !colicon%?(71)=stylecolour%(3)
  6269. "colicon%?(337)=stylecolour%(1)
  6270. "colicon%?(338)=stylecolour%(2)
  6271. "colicon%?(339)=stylecolour%(3)
  6272. Refresh(6,stylehandle%,"Scol,pcol")
  6273. UpdateTableColour
  6274. "colicon%?(605)=tablecolour%(1)
  6275. "colicon%?(606)=tablecolour%(2)
  6276. "colicon%?(607)=tablecolour%(3)
  6277. "colicon%?(873)=tablecolour%(1)
  6278. "colicon%?(874)=tablecolour%(2)
  6279. "colicon%?(875)=tablecolour%(3)
  6280. Refresh(11,tablehandle%,"Stbl,ptbl")
  6281.  Plug-Ins
  6282. MakePlugInMenu
  6283. "XOS_GBPB",12,"HTML3:Plug-Ins",scan%,77,0,4096,"*" 
  6284.  ,,,max%
  6285.  max%=0 
  6286. file%=1:done%=0:counter%=0
  6287. "  filesize%=scan%!(counter%+8)
  6288. #  filetype%=scan%!(counter%+20)
  6289. $  plugin$(file%)="":counter%+=24
  6290. A    
  6291.  (scan%?counter%)<>0 
  6292.  plugin$(file%)+=
  6293. (scan%?counter%)
  6294.     counter%+=1
  6295. (scan%?counter%)=0
  6296.  counter%+1 
  6297.  4 <>0 
  6298.         
  6299.       counter%+=1
  6300.  counter% 
  6301.   file%+=1
  6302.   done%+=1
  6303.  done%=max%
  6304.  IF file%=1 AND filetype%<>&FED THEN max%=0:ENDPROC
  6305. max%=file%
  6306. m%=menu%
  6307. $(m%)="Plug-ins"
  6308. m%!12=&70207
  6309. m%!16=180
  6310. m%!20=44
  6311. m%!24=0
  6312. m%+=28
  6313. loop%=0
  6314. loop%+=1
  6315.  loop%>1 
  6316.  m%+=24
  6317.  loop%=max%-1 
  6318.  m%!0=&80 
  6319.  m%!0=0
  6320. m%!4=-1
  6321. m%!8=&7000001
  6322. +plugin$=
  6323. RealPlugInName(plugin$(loop%))
  6324.  plugin$>11
  6325.  tempmem%
  6326.  plugin$
  6327. $tempmem%=plugin$
  6328. m%!8=(m%!8)
  6329. m%!12=tempmem%
  6330. m%!16=-1
  6331. m%!20=
  6332.  plugin$
  6333. $(m%+12)=plugin$
  6334.  loop%=max%-1
  6335. RealPlugInName(file$)
  6336. plugin$=file$
  6337. plugin$,1)="!" 
  6338.  plugin$=
  6339. plugin$,2)
  6340. 22filecheck$="HTML3:Plug-Ins."+file$+"._Plug-In"
  6341. FileCheck(filecheck$)=1 
  6342.  plugin%=
  6343.  filecheck$
  6344.  plugin$=
  6345. #plugin%
  6346.  plugin$=
  6347. plugin$,20)
  6348. #plugin%
  6349. =plugin$
  6350. SaveOptions
  6351. < out%=
  6352. "HTML3Options:Options"
  6353.  out%=0 
  6354.  options
  6355. #out%,"# HTML3 Options"
  6356. #out%,"# Version "+
  6357. SmallVer$,4)+
  6358. #out%,"CHARTYPE:";   :
  6359.     chartype%=1    
  6360. #out%,"ON" 
  6361. #out%,"OFF"
  6362. #out%,"CHARCOMMENT:";:
  6363.  charcomment%=
  6364. #out%,"ON" 
  6365. #out%,"OFF"
  6366. #out%,
  6367. (10)+"SIDEBAR:";    :
  6368.      sidebar%=
  6369. #out%,"ON" 
  6370. #out%,"OFF"
  6371. #out%,"BARUP:";      :
  6372.       sideup%=
  6373. #out%,"ON" 
  6374. #out%,"OFF"
  6375. #out%,"PCPANDERING:";:
  6376.  pcpandering%=
  6377. #out%,"ON" 
  6378. #out%,"OFF"
  6379. #out%,"FONTINACORN:";:
  6380.  fontinacorn%=
  6381. #out%,"ON" 
  6382. #out%,"OFF"
  6383. #out%,"CASE:";       :
  6384.  case%=0 
  6385. #out%,"OFF" 
  6386.  case%=1 
  6387. #out%,"CAPS" 
  6388.  case%=1 
  6389. #out%,"LOWER"
  6390. #out%,
  6391. (10)+"EXTENSIONS:";  :
  6392.  correctext%=
  6393. #out%,"ON" 
  6394. #out%,"OFF"
  6395. #out%,"HTML:";  :
  6396. #out%,htmlext$
  6397. #out%,"ZIP:";  :
  6398. #out%,zipext$
  6399. #out%,"JPEG:";  :
  6400. #out%,jpegext$
  6401. #out%,
  6402. (10)+"RELATIVEFILES:"+comparefile$
  6403. #out%,
  6404. (10)+"NAMEDCOLOURS:"+
  6405. icondata(46,opthandle%)
  6406. #out%
  6407. "XOS_CLI","Settype HTML3Options:Options &FFF"
  6408. LoadOptions
  6409. FileCheck("HTML3Options:Options")=1 
  6410. T$ options=
  6411. "HTML3Options:Options"
  6412.   temp$=
  6413. #options
  6414.  temp$<>"" 
  6415. temp$,1)<>"#" 
  6416. temp$,":")>0 
  6417. X-   command$=
  6418. lower(
  6419. temp$,
  6420. temp$,":")-1))
  6421. Y"   data$=
  6422. temp$,
  6423. temp$,":")+1)
  6424.    lowdata$=
  6425. lower(data$)
  6426.  command$ 
  6427. \J    
  6428.  "chartype"    :
  6429.  lowdata$="on" 
  6430.        chartype%=1 
  6431.  chartype%=2
  6432. ]J    
  6433.  "charcomment" :
  6434.  lowdata$="on" 
  6435.  charcomment%=
  6436.  charcomment%=
  6437. ^F    
  6438.  "sidebar"     :
  6439.  lowdata$="on" 
  6440.      sidebar%=
  6441.  sidebar%=
  6442. _E    
  6443.  "barup"       :
  6444.  lowdata$="on" 
  6445.       sideup%=
  6446.  sideup%=
  6447. `J    
  6448.  "pcpandering" :
  6449.  lowdata$="on" 
  6450.  pcpandering%=
  6451.  pcpandering%=
  6452. aJ    
  6453.  "fontinacorn" :
  6454.  lowdata$="on" 
  6455.  fontinacorn%=
  6456.  fontinacorn%=
  6457. b]    
  6458.  "case"        :
  6459.  lowdata$="caps" 
  6460.  case%=1 
  6461.  lowdata$="lower" 
  6462.  case%=2 
  6463.  case%=0
  6464. c%    
  6465.  "owner"       :owner$=data$
  6466. d(    
  6467.  "nickname"    :nickname$=data$
  6468. e(    
  6469.  "email"       :email$=lowdata$
  6470. f(    
  6471.  "home"        :userhome$=data$
  6472. g+    
  6473.  "provider"    :provider$=lowdata$
  6474. hF    
  6475.  "profiling"   :
  6476.  lowdata$="on" 
  6477.  profiling%=
  6478.  profiling%=
  6479. i+    
  6480.  "profilename" :profilename$=data$
  6481. j/    
  6482.  "profileemail":profileemail$=lowdata$
  6483. k+    
  6484.  "profilehome" :profilehome$=data$
  6485. l5    
  6486.  "profileprovider":profileprovider$=lowdata$
  6487. m,    
  6488.  "relativefiles":comparefile$=data$
  6489. nH    
  6490.  "extensions"  :
  6491.  lowdata$="on" 
  6492.  correctext%=
  6493.  correctext%=
  6494. o'    
  6495.  "html"        :htmlext$=data$
  6496. p&    
  6497.  "zip"         :zipext$=data$
  6498. q'    
  6499.  "jpeg"        :jpegext$=data$
  6500. r_    
  6501.  "namedcolours":
  6502. FileCheck("HTML3:Resources.ColFiles."+data$)=1 
  6503.  namedcolour$=data$
  6504. #options
  6505. #options
  6506. lower(
  6507. icondata(46,opthandle%))<>
  6508. lower(namedcolour$) 
  6509. LoadColourNames(namedcolour$)
  6510.  PROCSetOptions
  6511. LoadUsers
  6512. FileCheck("HTML3Options:Users")=1 
  6513.   users=
  6514. "HTML3Options:Users"
  6515.   temp$=
  6516. #users
  6517.  temp$<>"" 
  6518. temp$,1)<>"#" 
  6519. temp$,":")>0 
  6520. -   command$=
  6521. lower(
  6522. temp$,
  6523. temp$,":")-1))
  6524. "   data$=
  6525. temp$,
  6526. temp$,":")+1)
  6527.    lowdata$=
  6528. lower(data$)
  6529.  command$ 
  6530. %    
  6531.  "owner"       :owner$=data$
  6532. (    
  6533.  "nickname"    :nickname$=data$
  6534. (    
  6535.  "email"       :email$=lowdata$
  6536. (    
  6537.  "home"        :userhome$=data$
  6538. F    
  6539.  "profiling"   :
  6540.  lowdata$="on" 
  6541.  profiling%=
  6542.  profiling%=
  6543. +    
  6544.  "profilename" :profilename$=data$
  6545. /    
  6546.  "profileemail":profileemail$=lowdata$
  6547. +    
  6548.  "profilehome" :profilehome$=data$
  6549. #users
  6550. #users
  6551.  PROCSetUsers
  6552. SaveUsers
  6553. out%=
  6554. "HTML3Options:Users"
  6555.  out%=0 
  6556.  options
  6557. #out%,"# HTML3 User Details"
  6558. #out%,"# Version "+
  6559. SmallVer$,4)+
  6560. #out%,"OWNER:"+owner$
  6561. #out%,"NICKNAME:"+nickname$
  6562. #out%,"EMAIL:"+email$
  6563. #out%,"HOME:"+userhome$
  6564. #out%,
  6565. (10)+"PROFILING:";:
  6566.  profiling%=
  6567. #out%,"OFF" 
  6568. #out%,"ON"
  6569. #out%,"PROFILENAME:"+profilename$
  6570. #out%,"PROFILEEMAIL:"+profileemail$
  6571. #out%,"PROFILEHOME:"+profilehome$
  6572. #out%
  6573. "XOS_CLI","Settype HTML3Options:Users &FFF"
  6574. SetUsers
  6575. AlterIcons(owner$,   13,userhandle%)
  6576. AlterIcons(nickname$,14,userhandle%)
  6577. AlterIcons(email$,   15,userhandle%)
  6578. AlterIcons(userhome$,16,userhandle%)
  6579. AlterIcons(profilename$, 17,userhandle%)
  6580. AlterIcons(profileemail$,18,userhandle%)
  6581. AlterIcons(profilehome$, 19,userhandle%)
  6582. SetTick(userhandle%,21,
  6583. (profiling%))
  6584.  grey%=10 
  6585. greyicon(userhandle%,grey%,
  6586. (profiling%)-1):
  6587.  grey%=17 
  6588. greyicon(userhandle%,grey%,
  6589. (profiling%)-1):
  6590. SetOptions
  6591. SetTick(opthandle%,22,0):
  6592. SetTick(opthandle%,23,0)
  6593.  chartype%=1 
  6594. SetTick(opthandle%,22,1) 
  6595. SetTick(opthandle%,23,1)
  6596. SetTick(opthandle%,41,0):
  6597. SetTick(opthandle%,42,0):
  6598. SetTick(opthandle%,43,0)
  6599.  case% 
  6600. SetTick(opthandle%,42,1)
  6601. SetTick(opthandle%,40,1)
  6602. SetTick(opthandle%,41,1)
  6603.  charcomment%=
  6604. SetTick(opthandle%,24,1) 
  6605. SetTick(opthandle%,24,0)
  6606.      sidebar%=
  6607. SetTick(opthandle%,31,1) 
  6608. SetTick(opthandle%,31,0)
  6609.       sideup%=
  6610. SetTick(opthandle%,39,0) 
  6611. SetTick(opthandle%,39,1)
  6612.  pcpandering%=
  6613. SetTick(opthandle%,30,1) 
  6614. SetTick(opthandle%,30,0)
  6615.  fontinacorn%=
  6616. SetTick(opthandle%,32,1) 
  6617. SetTick(opthandle%,32,0)
  6618. SetTick(opthandle%,12,
  6619. (correctext%))
  6620. AlterIcons(htmlext$,13,opthandle%)
  6621. AlterIcons(zipext$,14,opthandle%)
  6622. AlterIcons(jpegext$,15,opthandle%)
  6623.  grey%=8 
  6624.  grey% 
  6625.  9,12:
  6626. greyicon(opthandle%,grey%,
  6627. (correctext%)-1)
  6628. AlterIcons(comparefile$,5,opthandle%)
  6629. CloseWindow(sidehandle%)
  6630. CloseWindow(horizhandle%)
  6631.  sideup%=
  6632. OpenWin(sidehandle%)
  6633. OpenWin(horizhandle%)
  6634. sideshowing%=
  6635. CheckOptions
  6636. pcpandering%=
  6637. fontinacorn%=
  6638. chartype%=1
  6639. charcomment%=
  6640. sidebar%=
  6641. sideup%=
  6642. correctext%=
  6643. CheckRadio(opthandle%,23)>0    chartype%=2
  6644. CheckRadio(opthandle%,24)=0 charcomment%=
  6645. CheckRadio(opthandle%,31)=0     sidebar%=
  6646. CheckRadio(opthandle%,39)>0      sideup%=
  6647. CheckRadio(opthandle%,30)=0 pcpandering%=
  6648. CheckRadio(opthandle%,32)=0 fontinacorn%=
  6649. CheckRadio(opthandle%,40)>0 case%=1 
  6650. CheckRadio(opthandle%,41)>0 case%=2 
  6651.  case%=0
  6652. (comparefile$=
  6653. icondata(5,opthandle%)
  6654. CheckRadio(opthandle%,12)=0 correctext%=
  6655. %htmlext$=
  6656. icondata(13,opthandle%)
  6657. % zipext$=
  6658. icondata(14,opthandle%)
  6659. %jpegext$=
  6660. icondata(15,opthandle%)
  6661. SetOptions
  6662. AlterIcons(
  6663. FontName(font%),35,fxhandle%)
  6664. AlterIcons(
  6665. FontName(defaultfont%),49,headhandle%)
  6666. lower(
  6667. icondata(46,opthandle%))<>
  6668. lower(namedcolour$) 
  6669. LoadColourNames(
  6670. icondata(46,opthandle%))
  6671. CheckUsers
  6672. profiling%=
  6673. CheckRadio(userhandle%,21)>0 
  6674.  profiling%=
  6675.  profiling%=
  6676. +       owner$=
  6677. icondata(13,userhandle%)
  6678. +    nickname$=
  6679. icondata(14,userhandle%)
  6680. +       email$=
  6681. icondata(15,userhandle%)
  6682. +    userhome$=
  6683. icondata(16,userhandle%)
  6684. + profilename$=
  6685. icondata(17,userhandle%)
  6686. +profileemail$=
  6687. icondata(18,userhandle%)
  6688. + profilehome$=
  6689. icondata(19,userhandle%)
  6690. SetUsers
  6691. savedefaults
  6692. SaveOptions
  6693. SaveUsers
  6694. SaveURLDatabase
  6695. SaveEmailDatabase
  6696. SaveImageDatabase
  6697.  out%=
  6698. "HTML3Options:Default"
  6699.  out%=0 
  6700.  options
  6701. #out%,"# HTML3 defaults"
  6702. #out%,"# Version "+
  6703. SmallVer$,4)
  6704. #out%,
  6705. (10)+"# Header"
  6706. #out%,"TITLE:"+
  6707. icondata(1,headhandle%)
  6708. #out%,"BACKGROUNDON:";:
  6709. CheckRadio(headhandle%,11)>0 
  6710. #out%,"ON" 
  6711. #out%,"OFF"
  6712. #out%,"BACKGROUND:"+
  6713. icondata(12,headhandle%)
  6714. #out%,"BACKSOUNDON:";:
  6715. CheckRadio(headhandle%,55)>0 
  6716. #out%,"ON" 
  6717. #out%,"OFF"
  6718. #out%,"BACKSOUND:"+
  6719. icondata(56,headhandle%)
  6720. #out%,"BACKSOUNDLOOP:";:
  6721. CheckRadio(headhandle%,58)>0 
  6722. #out%,"ON" 
  6723. #out%,"OFF"
  6724. #out%,"BACKSOUNDSHOW:";
  6725. CheckRadio(headhandle%,60)=0 
  6726. #out%,"OFF"
  6727. CheckRadio(headhandle%,61)>0 
  6728. #out%,"SMALL"
  6729. CheckRadio(headhandle%,21)>0 
  6730. #out%,"LARGE"
  6731. CheckRadio(headhandle%,21)=0 
  6732. CheckRadio(headhandle%,61)=0 
  6733. #out%,"OFF"
  6734. #out%,"BACKFILEREL:";:
  6735. CheckRadio(headhandle%,57)>0 
  6736. #out%,"ON" 
  6737. #out%,"OFF"
  6738. #out%,"HOVER:";:      
  6739. CheckRadio(headhandle%,59)>0 
  6740. #out%,"ON" 
  6741. #out%,"OFF"
  6742. #out%,"AUTHORON:";:
  6743. CheckRadio(headhandle%,34)>0 
  6744. #out%,"ON" 
  6745. #out%,"OFF"
  6746. #out%,"LANGUAGEON:";:
  6747. CheckRadio(headhandle%,35)>0 
  6748. #out%,"ON" 
  6749. #out%,"OFF"
  6750. #out%,"FRAMEDEFEAT:";:
  6751. CheckRadio(headhandle%,36)>0 
  6752. #out%,"ON" 
  6753. #out%,"OFF"
  6754. #out%,"PROXYDEFEAT:";:
  6755. CheckRadio(headhandle%,62)>0 
  6756. #out%,"ON" 
  6757. #out%,"OFF"
  6758. #out%,"JAVADESCRIPTON:";:
  6759. CheckRadio(headhandle%,26)>0 
  6760. #out%,"ON" 
  6761. #out%,"OFF"
  6762. #out%,"JAVADESCRIPT:"+
  6763. icondata(28,headhandle%)
  6764. #out%,"REFRESHON:";:
  6765. CheckRadio(headhandle%,18)>0 
  6766. #out%,"ON" 
  6767. #out%,"OFF"
  6768. #out%,"REFRESHDELAY:"+
  6769. icondata(22,headhandle%)
  6770. #out%,"REFRESHURL:"+
  6771. icondata(20,headhandle%)
  6772. #out%,"SEARCHON:";
  6773. CheckRadio(headhandle%,13)>0 
  6774. #out%,"ON"
  6775. CheckRadio(headhandle%,31)>0 
  6776. #out%,"HIDE"
  6777. CheckRadio(headhandle%,13)=0 
  6778. CheckRadio(headhandle%,31)=0 
  6779. #out%,"OFF"
  6780. #out%,"SEARCHDESCRIPT:"+
  6781. icondata(15,headhandle%)
  6782. #out%,"SEARCHKEYS:"+
  6783. icondata(17,headhandle%)
  6784. #out%,"DEFAULTFONT:"+
  6785. (defaultfont%)
  6786. #out%,"DEFAULTFONTON:";:
  6787. CheckRadio(headhandle%,48)>0 
  6788. #out%,"ON" 
  6789. #out%,"OFF"
  6790. #out%,"DEFAULTSIZE:"+
  6791. icondata(52,headhandle%)
  6792. #out%,"DEFAULTSIZEON:";:
  6793. CheckRadio(headhandle%,51)>0 
  6794. #out%,"ON" 
  6795. #out%,"OFF"
  6796. #out%,"ADDROLLOVER:";:
  6797. CheckRadio(headhandle%,63)>0 
  6798. #out%,"ON" 
  6799. #out%,"OFF"
  6800. #out%,"DOCTYPE:"+doctype$
  6801. #out%,
  6802. (10)+"# Footer"
  6803. foottype%=0
  6804. CheckRadio(foothandle%,1)>0 
  6805.  foottype%=1
  6806. CheckRadio(foothandle%,2)>0 
  6807.  foottype%=2
  6808. CheckRadio(foothandle%,3)>0 
  6809.  foottype%=3
  6810. #out%,"FOOTTYPE:"+
  6811. (foottype%)
  6812. align%=0
  6813. CheckRadio(foothandle%,6)>0 align%=1
  6814. CheckRadio(foothandle%,7)>0 align%=2
  6815. CheckRadio(foothandle%,8)>0 align%=3
  6816. #out%,"FOOTALIGN:"+
  6817. (align%)
  6818. bumper(foothandle%,35,36,37,7,0,0,
  6819. footsize%=bumpno%
  6820. #out%,"FOOTSIZE:"+
  6821. (footsize%)
  6822. #out%,"FOOTRULE:";:
  6823. CheckRadio(foothandle%,12)>0 
  6824. #out%,"ON" 
  6825. #out%,"OFF"
  6826. #out%,"FOOTTAG:";:
  6827. CheckRadio(foothandle%,27)>0 
  6828. #out%,"ON" 
  6829. #out%,"OFF"
  6830. #out%,"FOOTREL:";:
  6831. CheckRadio(foothandle%,45)>0 
  6832. #out%,"ON" 
  6833. #out%,"OFF"
  6834. #out%,"FOOTX:"+
  6835. icondata(46,foothandle%)))
  6836. #out%,"FOOTY:"+
  6837. icondata(47,foothandle%)))
  6838. #out%, "FOOTIMG:"+
  6839. icondata(44,foothandle%)
  6840. #out%,"FOOTCONN:"+
  6841. icondata(18,foothandle%)
  6842. #out%,"FOOTCONE:"+
  6843. icondata(19,foothandle%)
  6844. #out%,"FOOTCOPY:"+
  6845. icondata(21,foothandle%)
  6846. #out%,"FOOTDESN:"+
  6847. icondata(23,foothandle%)
  6848. #out%,"FOOTDESE:"+
  6849. icondata(24,foothandle%)
  6850. #out%, "FOOTUSE:"+
  6851. icondata(26,foothandle%)
  6852. #out%, "FOOTDEF:"+
  6853. icondata(11,foothandle%)
  6854. #out%,"FOOTCONON:";:
  6855. CheckRadio(foothandle%,17)>0 
  6856. #out%,"ON" 
  6857. #out%,"OFF"
  6858. #out%,"FOOTCOPON:";:
  6859. CheckRadio(foothandle%,20)>0 
  6860. #out%,"ON" 
  6861. #out%,"OFF"
  6862. #out%,"FOOTDESON:";:
  6863. CheckRadio(foothandle%,22)>0 
  6864. #out%,"ON" 
  6865. #out%,"OFF"
  6866. #out%,"FOOTUSEON:";:
  6867. CheckRadio(foothandle%,25)>0 
  6868. #out%,"ON" 
  6869. #out%,"OFF"
  6870. #out%,
  6871. (10)+"# Styles"
  6872. #out%,"STYLECOLOUR:"+
  6873. hexzero(2,stylecolour%(1))+
  6874. hexzero(2,stylecolour%(2))+
  6875. hexzero(2,stylecolour%(3))
  6876. #out%,"STYLECOLON:";:
  6877. CheckRadio(stylehandle%,6)>0 
  6878. #out%,"ON" 
  6879. #out%,"OFF"
  6880. #out%,
  6881. (10)+"# Effects"
  6882. fxcol%=0
  6883. CheckRadio(fxhandle%,55)>0 fxcol%=1
  6884. CheckRadio(fxhandle%,65)>0 fxcol%=2
  6885. CheckRadio(fxhandle%,56)>0 fxcol%=3
  6886. CheckRadio(fxhandle%,57)>0 fxcol%=4
  6887. CheckRadio(fxhandle%,72)>0 fxcol%=5
  6888. fxsize%=0
  6889. CheckRadio(fxhandle%,60)>0 fxsize%=1
  6890. CheckRadio(fxhandle%,61)>0 fxsize%=2
  6891. CheckRadio(fxhandle%,74)>0 fxsize%=3
  6892. CheckRadio(fxhandle%,68)>0 fxsize%=4
  6893. CheckRadio(fxhandle%,69)>0 fxsize%=5
  6894. CheckRadio(fxhandle%,70)>0 fxsize%=6
  6895. CheckRadio(fxhandle%,71)>0 fxsize%=7
  6896. CheckRadio(fxhandle%,62)>0 fxsize%=8
  6897. CheckRadio(fxhandle%,63)>0 fxsize%=9
  6898. #out%,"SFXCOLOUR:"+
  6899. (fxcol%)
  6900. #out%,"SFXSIZING:"+
  6901. (fxsize%)
  6902. #out%,"SFXTEXT:"+
  6903. icondata(54,fxhandle%)
  6904. #out%,"FONT:"+
  6905. (font%)
  6906. #out%,
  6907. (10)+"# Characters"
  6908. #out%,"ORDERON:"+
  6909. olisttype)
  6910. #out%,"STARTNUMBER:"+
  6911. icondata(138,charhandle%)
  6912. #out%,"UNORDER:"+
  6913. ulisttype)
  6914. #out%,
  6915. (10)+"# Addresses"
  6916. #out%,"LINKADDRESS:"+
  6917. icondata(12,addrhandle%)
  6918. CheckRadio(addrhandle%,23)>0 
  6919. #out%,"EMAILLINKED:ON" 
  6920. #out%,"EMAILLINKED:OFF"
  6921. CheckRadio(addrhandle%,25)>0 
  6922. #out%,"NAMELINKED:ON"  
  6923. #out%,"NAMELINKED:OFF"
  6924. CheckRadio(addrhandle%,14)>0 
  6925. #out%,"NICKLINKED:ON"  
  6926. #out%,"NICKLINKED:OFF"
  6927. CheckRadio(addrhandle%,36)>0 
  6928. #out%,"WEBLINKED:ON"  
  6929. #out%,"WEBLINKED:OFF"
  6930.  addrloop%=1 
  6931. #out%,"ADDRESSNAME"+
  6932. (addrloop%)+":"+
  6933. icondata(addrloop%-1,addrhandle%)
  6934. #out%,"ADDRESSDEF"+
  6935. (addrloop%)+":"+address$(addrloop%)
  6936. #out%,"ADDRESSJAVA:"+
  6937. icondata(19,addrhandle%)
  6938. CheckRadio(addrhandle%,18)>0 
  6939. #out%,"ADDRESSHAVEJAVA:ON"  
  6940. #out%,"ADDRESSHAVEJAVA:OFF"
  6941. CheckRadio(addrhandle%,35)>0 
  6942. #out%,"ADDRESSHAVETITLE:ON"  
  6943. #out%,"ADDRESSHAVETITLE:OFF"
  6944. #out%,"ADDRESSTEXT:"+
  6945. icondata(26,addrhandle%)
  6946. CheckRadio(addrhandle%,21)>0 
  6947. #out%,"ADDRESSHAVETEXT:ON"  
  6948. #out%,"ADDRESSHAVETEXT:OFF"
  6949. CheckRadio(addrhandle%,31)>0 
  6950. #out%,"ADDRESSPROFILE:ON"  
  6951. #out%,"ADDRESSPROFILE:OFF"
  6952. #out%,
  6953. (10)+"# Links"
  6954. #out%,"URL:"+
  6955. icondata(0,linkhandle%)
  6956. #out%,"URLTEXT:"+
  6957. icondata(2,linkhandle%)
  6958. CheckRadio(linkhandle%,4)>0 
  6959. #out%,"URLGRAPHIC:ON" 
  6960. #out%,"URLGRAPHIC:OFF"
  6961. #out%,"URLTARGET:"+
  6962. icondata(5,linkhandle%)
  6963. #out%,"ONMOUSEOVERT:"+
  6964. icondata(21,linkhandle%)
  6965. CheckRadio(linkhandle%,22)>0 
  6966. #out%,"MOUSEOVERT:ON" 
  6967. #out%,"MOUSEOVERT:OFF"
  6968. CheckRadio(linkhandle%,31)>0 
  6969. #out%,"LINKTITLE:ON"  
  6970. #out%,"LINKTITLE:OFF"
  6971. #out%,"LINKREL:";:
  6972. CheckRadio(linkhandle%,23)>0 
  6973. #out%,"ON" 
  6974. #out%,"OFF"
  6975. #out%,
  6976. (10)+"# Images"
  6977. #out%,"IMAGEREL:";:
  6978. CheckRadio(imghandle%,46)>0 
  6979. #out%,"ON" 
  6980. #out%,"OFF"
  6981. EncodeImage
  6982.  loop%=1
  6983. #out%,"IMAGEDATA"+
  6984. (loop%)+":"+imagetemp$(loop%)
  6985. #out%
  6986. "XOS_CLI","SetType HTML3Options:Default &FFF"
  6987. loaddefaults
  6988. LoadOptions:
  6989. SetOptions
  6990. greyicon(imghandle%,44,
  6991. SetTick(imghandle%,43,0):
  6992. SetTick(imghandle%,42,0)
  6993. SetTick(headhandle%,34,1)
  6994. SetTick(headhandle%,35,1)
  6995. SetTick(headhandle%,36,0)
  6996. SetTick(headhandle%,62,0)
  6997. SetTick(headhandle%,63,1)
  6998. AlterIcons(nickname$+"'s Web Page",1,headhandle%)
  6999. AlterIcons(nickname$+"'s Web Page",15,headhandle%)
  7000. AlterIcons("Acorn, !HTML3, Macro, Richard Goodwin",17,headhandle%)
  7001. SetTick(headhandle%,26,1)
  7002. AlterIcons("Welcome the Web page of "+nickname$,28,headhandle%)
  7003. AlterIcons("10",22,headhandle%)
  7004. AlterIcons("",12,headhandle%)
  7005. SetTick(headhandle%,11,0)
  7006. AlterIcons("http://www.goodwin.uk.com/",20,headhandle%)
  7007. SetTick(headhandle%,18,1)
  7008. SetTick(headhandle%,13,1):
  7009. SetTick(headhandle%,31,0):
  7010. SetTick(headhandle%,33,0)
  7011. SetTick(charhandle%,126,1):
  7012. SetTick(charhandle%,127,0):
  7013. SetTick(charhandle%,128,0)
  7014. SetTick(charhandle%,129,0):
  7015. SetTick(charhandle%,135,0):
  7016. SetTick(charhandle%,136,0)
  7017. SetTick(charhandle%,143,1):
  7018. SetTick(charhandle%,144,0):
  7019. SetTick(charhandle%,145,0)
  7020. SetTick(charhandle%,146,0)
  7021. SetTick(linkhandle%,4,0):
  7022. SetTick(linkhandle%,22,0)
  7023. SetTick(addrhandle%,18,0):
  7024. AlterIcons("",19,addrhandle%)
  7025. SetTick(addrhandle%,21,0):
  7026. AlterIcons("",26,addrhandle%)
  7027. SetTick(addrhandle%,31,0):
  7028. SetTick(addrhandle%,30,0)
  7029.  loop%=1
  7030. 6:imagetemp$(loop%)="":
  7031. FileCheck("HTML3Options:Default")=1 
  7032. $ default=
  7033. "HTML3Options:Default"
  7034.   temp$=
  7035. #default
  7036.  temp$<>"" 
  7037. temp$,1)<>"#" 
  7038. temp$,":")>0 
  7039. -   command$=
  7040. lower(
  7041. temp$,
  7042. temp$,":")-1))
  7043. "   data$=
  7044. temp$,
  7045. temp$,":")+1)
  7046.    lowdata$=
  7047. lower(data$)
  7048.  command$ 
  7049. '    
  7050.  "doctype"     :doctype$=data$
  7051. 9    
  7052.  "title"       :
  7053. AlterIcons(data$,1,headhandle%)
  7054. b    
  7055.  "backgroundon":
  7056.  lowdata$="on" 
  7057. SetTick(headhandle%,11,1) 
  7058. SetTick(headhandle%,11,0)
  7059. :    
  7060.  "background"  :
  7061. AlterIcons(data$,12,headhandle%)
  7062. :    
  7063.  "backsound"   :
  7064. AlterIcons(data$,56,headhandle%)
  7065. b    
  7066.  "backsoundon" :
  7067.  lowdata$="on" 
  7068. SetTick(headhandle%,55,1) 
  7069. SetTick(headhandle%,55,0)
  7070. b    
  7071. "backsoundloop":
  7072.  lowdata$="on" 
  7073. SetTick(headhandle%,58,1) 
  7074. SetTick(headhandle%,58,0)
  7075. c    
  7076. "backsoundshow":
  7077.  lowdata$="off" 
  7078. SetTick(headhandle%,60,0) 
  7079. SetTick(headhandle%,60,1)
  7080. I                        
  7081.  lowdata$="small" 
  7082. SetTick(headhandle%,61,1)
  7083. I                        
  7084.  lowdata$="large" 
  7085. SetTick(headhandle%,21,1)
  7086. b    
  7087.  "backfilerel" :
  7088.  lowdata$="on" 
  7089. SetTick(headhandle%,57,1) 
  7090. SetTick(headhandle%,57,0)
  7091. b    
  7092.  "hover"       :
  7093.  lowdata$="on" 
  7094. SetTick(headhandle%,59,1) 
  7095. SetTick(headhandle%,59,0)
  7096. b    
  7097.  "authoron"    :
  7098.  lowdata$="on" 
  7099. SetTick(headhandle%,34,1) 
  7100. SetTick(headhandle%,34,0)
  7101. b    
  7102.  "languageon"  :
  7103.  lowdata$="on" 
  7104. SetTick(headhandle%,35,1) 
  7105. SetTick(headhandle%,35,0)
  7106. b    
  7107.  "framedefeat" :
  7108.  lowdata$="on" 
  7109. SetTick(headhandle%,36,1) 
  7110. SetTick(headhandle%,36,0)
  7111. b    
  7112.  "proxydefeat" :
  7113.  lowdata$="on" 
  7114. SetTick(headhandle%,62,1) 
  7115. SetTick(headhandle%,62,0)
  7116. d    
  7117.  "javadescripton":
  7118.  lowdata$="on" 
  7119. SetTick(headhandle%,26,1) 
  7120. SetTick(headhandle%,26,0)
  7121. :    
  7122.  "javadescript":
  7123. AlterIcons(data$,28,headhandle%)
  7124. b    
  7125.  "refreshon"   :
  7126.  lowdata$="on" 
  7127. SetTick(headhandle%,18,1) 
  7128. SetTick(headhandle%,18,0)
  7129. :    
  7130.  "refreshdelay":
  7131. AlterIcons(data$,22,headhandle%)
  7132. :    
  7133.  "refreshurl"  :
  7134. AlterIcons(data$,20,headhandle%)
  7135. {    
  7136.  "searchon"    :
  7137.  lowdata$="on" 
  7138. SetTick(headhandle%,13,1):
  7139. SetTick(headhandle%,31,0):
  7140. SetTick(headhandle%,33,0)
  7141.                         
  7142.  lowdata$="hide" 
  7143. SetTick(headhandle%,13,0):
  7144. SetTick(headhandle%,31,1):
  7145. SetTick(headhandle%,33,0)
  7146.                         
  7147.  lowdata$="off" 
  7148. SetTick(headhandle%,13,0):
  7149. SetTick(headhandle%,31,0):
  7150. SetTick(headhandle%,33,1)
  7151. <    
  7152.  "searchdescript":
  7153. AlterIcons(data$,15,headhandle%)
  7154. :    
  7155.  "searchkeys"  :
  7156. AlterIcons(data$,17,headhandle%)
  7157. .    
  7158.  "defaultfont" :defaultfont%=
  7159. (data$)
  7160. ;                        
  7161.  defaultfont%=0 defaultfont%=1
  7162. O                        
  7163. AlterIcons(
  7164. FontName(defaultfont%),49,headhandle%)
  7165. c    
  7166.  "defaultfonton":
  7167.  lowdata$="on" 
  7168. SetTick(headhandle%,48,1) 
  7169. SetTick(headhandle%,48,0)
  7170. >                         
  7171. CheckRadio(headhandle%,48)>0 
  7172. 9                          
  7173. greyicon(headhandle%,49,
  7174. 9                          
  7175. greyicon(headhandle%,50,
  7176.                          
  7177. 9                          
  7178. greyicon(headhandle%,49,
  7179. 9                          
  7180. greyicon(headhandle%,50,
  7181.                          
  7182. 3    
  7183.  "defaultsize"  :defaultfontsize%=
  7184. (data$)
  7185. L                         
  7186. AlterIcons(
  7187. (defaultfontsize%),52,headhandle%)
  7188. c    
  7189.  "defaultsizeon":
  7190.  lowdata$="on" 
  7191. SetTick(headhandle%,51,1) 
  7192. SetTick(headhandle%,51,0)
  7193. >                         
  7194. CheckRadio(headhandle%,51)>0 
  7195. 9                          
  7196. greyicon(headhandle%,52,
  7197. 9                          
  7198. greyicon(headhandle%,53,
  7199. 9                          
  7200. greyicon(headhandle%,54,
  7201.                          
  7202. 9                          
  7203. greyicon(headhandle%,52,
  7204. 9                          
  7205. greyicon(headhandle%,53,
  7206. 9                          
  7207. greyicon(headhandle%,54,
  7208.                          
  7209. b    
  7210.  "addrollover" :
  7211.  lowdata$="on" 
  7212. SetTick(headhandle%,63,1) 
  7213. SetTick(headhandle%,63,0)
  7214. '    
  7215.  "foottype"    :
  7216. (data$)<4 
  7217. '                        
  7218.  loop%=0
  7219. :                         
  7220. SetTick(foothandle%,loop%,0)
  7221.                         
  7222. <                        
  7223. SetTick(foothandle%,
  7224. (data$),1)
  7225.                         
  7226. '    
  7227.  "footalign"   :
  7228. (data$)<4 
  7229. '                        
  7230.  loop%=5
  7231. :                         
  7232. SetTick(foothandle%,loop%,0)
  7233.                         
  7234. >                        
  7235. SetTick(foothandle%,
  7236. (data$)+5,1)
  7237.                         
  7238. @    
  7239.  "footsize"    :
  7240. AlterIcons(
  7241. (data$)),35,foothandle%)
  7242. b    
  7243.  "footrule"    :
  7244.  lowdata$="on" 
  7245. SetTick(foothandle%,12,1) 
  7246. SetTick(foothandle%,12,0)
  7247. b    
  7248.  "foottag"     :
  7249.  lowdata$="on" 
  7250. SetTick(foothandle%,27,1) 
  7251. SetTick(foothandle%,27,0)
  7252. b    
  7253.  "footrel"     :
  7254.  lowdata$="on" 
  7255. SetTick(foothandle%,45,1) 
  7256. SetTick(foothandle%,45,0)
  7257.     @    
  7258.  "footx"       :
  7259. AlterIcons(
  7260. (data$)),46,foothandle%)
  7261. @    
  7262.  "footy"       :
  7263. AlterIcons(
  7264. (data$)),47,foothandle%)
  7265. :    
  7266.  "footimg"     :
  7267. AlterIcons(data$,44,foothandle%)
  7268. :    
  7269.  "footconn"    :
  7270. AlterIcons(data$,18,foothandle%)
  7271. :    
  7272.  "footcone"    :
  7273. AlterIcons(data$,19,foothandle%)
  7274. :    
  7275.  "footcopy"    :
  7276. AlterIcons(data$,21,foothandle%)
  7277. :    
  7278.  "footdesn"    :
  7279. AlterIcons(data$,23,foothandle%)
  7280. :    
  7281.  "footdese"    :
  7282. AlterIcons(data$,24,foothandle%)
  7283. :    
  7284.  "footuse"     :
  7285. AlterIcons(data$,26,foothandle%)
  7286. :    
  7287.  "footdef"     :
  7288. AlterIcons(data$,11,foothandle%)
  7289. b    
  7290.  "footconon"   :
  7291.  lowdata$="on" 
  7292. SetTick(foothandle%,17,1) 
  7293. SetTick(foothandle%,17,0)
  7294. b    
  7295.  "footcopon"   :
  7296.  lowdata$="on" 
  7297. SetTick(foothandle%,20,1) 
  7298. SetTick(foothandle%,20,0)
  7299. b    
  7300.  "footdeson"   :
  7301.  lowdata$="on" 
  7302. SetTick(foothandle%,22,1) 
  7303. SetTick(foothandle%,22,0)
  7304. b    
  7305.  "footuseon"   :
  7306.  lowdata$="on" 
  7307. SetTick(foothandle%,25,1) 
  7308. SetTick(foothandle%,25,0)
  7309. 9    
  7310.  "stylecolour" :stylecolour%(1)=
  7311. ("&"+
  7312. data$,2))
  7313. ?                        stylecolour%(2)=
  7314. ("&"+ 
  7315. data$,3,2))
  7316. =                        stylecolour%(3)=
  7317. ("&"+ 
  7318. data$,5))
  7319. (                        
  7320. UpdateStyle
  7321. b    
  7322.  "stylecolon"  :
  7323.  lowdata$="on" 
  7324. SetTick(stylehandle%,6,1) 
  7325. SetTick(stylehandle%,6,0)
  7326. 8    
  7327.  "sfxtext"     :
  7328. AlterIcons(data$,54,fxhandle%)
  7329. )    
  7330.  "sfxsizing"   :fxsize%=
  7331. (data$)
  7332. &                        
  7333. SetFXSize
  7334.  (    
  7335.  "sfxcolour"   :fxcol%=
  7336. (data$)
  7337. !(                        
  7338. SetFXColour
  7339. "'    
  7340.  "font"        :font%=
  7341. (data$)
  7342. #-                        
  7343.  font%=0 font%=1
  7344. $F                        
  7345. AlterIcons(
  7346. FontName(font%),35,fxhandle%)
  7347. %l    
  7348.  "orderon"     :
  7349. SetTick(charhandle%,126,0):
  7350. SetTick(charhandle%,127,0):
  7351. SetTick(charhandle%,128,0)
  7352. &o                        
  7353. SetTick(charhandle%,129,0):
  7354. SetTick(charhandle%,135,0):
  7355. SetTick(charhandle%,136,0)
  7356. '&                        
  7357.  data$ 
  7358. (=                        
  7359.  "0":
  7360. SetTick(charhandle%,126,1)
  7361. )=                        
  7362.  "1":
  7363. SetTick(charhandle%,129,1)
  7364. *=                        
  7365.  "2":
  7366. SetTick(charhandle%,127,1)
  7367. +=                        
  7368.  "3":
  7369. SetTick(charhandle%,128,1)
  7370. ,=                        
  7371.  "4":
  7372. SetTick(charhandle%,135,1)
  7373. -=                        
  7374.  "5":
  7375. SetTick(charhandle%,136,1)
  7376.                         
  7377. /;    
  7378.  "startnumber" :
  7379. AlterIcons(data$,138,charhandle%)
  7380. 0l    
  7381.  "unorder"     :
  7382. SetTick(charhandle%,143,0):
  7383. SetTick(charhandle%,144,0):
  7384. SetTick(charhandle%,145,0)
  7385. 17                        
  7386. SetTick(charhandle%,146,0)
  7387. 2&                        
  7388.  data$ 
  7389. 3=                        
  7390.  "0":
  7391. SetTick(charhandle%,143,1)
  7392. 4=                        
  7393.  "1":
  7394. SetTick(charhandle%,144,1)
  7395. 5=                        
  7396.  "2":
  7397. SetTick(charhandle%,145,1)
  7398. 6=                        
  7399.  "3":
  7400. SetTick(charhandle%,146,1)
  7401.                         
  7402. 8:    
  7403.  "linkaddress" :
  7404. AlterIcons(data$,12,addrhandle%)
  7405. 9b    
  7406.  "emaillinked" :
  7407.  lowdata$="on" 
  7408. SetTick(addrhandle%,23,1) 
  7409. SetTick(addrhandle%,23,0)
  7410. :b    
  7411.  "namelinked"  :
  7412.  lowdata$="on" 
  7413. SetTick(addrhandle%,25,1) 
  7414. SetTick(addrhandle%,25,0)
  7415. ;b    
  7416.  "nicklinked"  :
  7417.  lowdata$="on" 
  7418. SetTick(addrhandle%,14,1) 
  7419. SetTick(addrhandle%,14,0)
  7420. <b    
  7421.  "weblinked"   :
  7422.  lowdata$="on" 
  7423. SetTick(addrhandle%,36,1) 
  7424. SetTick(addrhandle%,36,0)
  7425. =:    
  7426.  "addressjava" :
  7427. AlterIcons(data$,19,addrhandle%)
  7428. >e    
  7429.  "addresshavejava":
  7430.  lowdata$="on" 
  7431. SetTick(addrhandle%,18,1) 
  7432. SetTick(addrhandle%,18,0)
  7433. ?e    
  7434. "addresshavetitle":
  7435.  lowdata$="on" 
  7436. SetTick(addrhandle%,35,1) 
  7437. SetTick(addrhandle%,35,0)
  7438. @:    
  7439.  "addresstext" :
  7440. AlterIcons(data$,26,addrhandle%)
  7441. Ae    
  7442.  "addresshavetext":
  7443.  lowdata$="on" 
  7444. SetTick(addrhandle%,21,1) 
  7445. SetTick(addrhandle%,21,0)
  7446. Bd    
  7447.  "addressprofile":
  7448.  lowdata$="on" 
  7449. SetTick(addrhandle%,31,1) 
  7450. SetTick(addrhandle%,30,1)
  7451. D9    
  7452.  "url"         :
  7453. AlterIcons(data$,0,linkhandle%)
  7454. E9    
  7455.  "urltext"     :
  7456. AlterIcons(data$,2,linkhandle%)
  7457. F9    
  7458.  "urltarget"   :
  7459. AlterIcons(data$,5,linkhandle%)
  7460. G:    
  7461.  "onmouseovert":
  7462. AlterIcons(data$,21,linkhandle%)
  7463. Ha    
  7464.  "urlgraphic"  :
  7465.  lowdata$="on" 
  7466. SetTick(linkhandle%,4,1)  
  7467. SetTick(linkhandle%,4,0)
  7468. Ib    
  7469.  "mouseovert"  :
  7470.  lowdata$="on" 
  7471. SetTick(linkhandle%,22,1) 
  7472. SetTick(linkhandle%,22,0)
  7473. Jb    
  7474.  "linktitle"   :
  7475.  lowdata$="on" 
  7476. SetTick(linkhandle%,31,1) 
  7477. SetTick(linkhandle%,31,0)
  7478. Kb    
  7479.  "linkrel"     :
  7480.  lowdata$="on" 
  7481. SetTick(linkhandle%,23,1) 
  7482. SetTick(linkhandle%,23,0)
  7483. La    
  7484.  "imagerel"    :
  7485.  lowdata$="on" 
  7486. SetTick(imghandle%,46,1)  
  7487. SetTick(imghandle%,46,0)
  7488. Mb    
  7489.  "linkrel"     :
  7490.  lowdata$="on" 
  7491. SetTick(linkhandle%,23,1) 
  7492. SetTick(linkhandle%,23,0)
  7493. O#   
  7494. command$,9)="imagedata" 
  7495.     loop%=
  7496. command$,10))
  7497.     imagetemp$(loop%)=data$
  7498. S&   
  7499. command$,11)="addressname" 
  7500. T(     changeaddress%=
  7501. command$,12))
  7502. U,     
  7503.  changeaddress%<1 changeaddress%=1
  7504. V.     
  7505.  changeaddress%>12 changeaddress%=12
  7506. W=     
  7507. AlterIcons(
  7508. data$,20),changeaddress%-1,addrhandle%)
  7509. Y%   
  7510. command$,10)="addressdef" 
  7511. Z(     changeaddress%=
  7512. command$,11))
  7513. [,     
  7514.  changeaddress%<1 changeaddress%=1
  7515. \.     
  7516.  changeaddress%>12 changeaddress%=12
  7517. ]'     address$(changeaddress%)=data$
  7518. #default
  7519. #default
  7520. DecodeImage
  7521. CheckRadio(headhandle%,11)>0 
  7522. greyicon(headhandle%,12,
  7523. greyicon(headhandle%,12,
  7524. CheckRadio(headhandle%,55)>0 
  7525. greyicon(headhandle%,56,
  7526. greyicon(headhandle%,58,
  7527. greyicon(headhandle%,60,
  7528. CheckRadio(headhandle%,60)>0 
  7529. greyicon(headhandle%,21,
  7530. greyicon(headhandle%,61,
  7531. greyicon(headhandle%,21,
  7532. greyicon(headhandle%,61,
  7533. greyicon(headhandle%,56,
  7534. greyicon(headhandle%,58,
  7535. greyicon(headhandle%,60,
  7536. greyicon(headhandle%,61,
  7537. greyicon(headhandle%,21,
  7538. CheckRadio(headhandle%,26)>0 
  7539.  PROCgreyicon(headhandle%,27,FALSE)
  7540. greyicon(headhandle%,28,
  7541.  PROCgreyicon(headhandle%,27,TRUE)
  7542. greyicon(headhandle%,28,
  7543. CheckRadio(headhandle%,18)>0 
  7544.  grey%=19 
  7545.  grey%<>21 
  7546. greyicon(headhandle%,grey%,
  7547.  grey%=19 
  7548.  grey%<>21 
  7549. greyicon(headhandle%,grey%,
  7550. CheckRadio(headhandle%,13)<1 
  7551. greyicon(headhandle%,17,
  7552. greyicon(headhandle%,15,
  7553. greyicon(headhandle%,14,
  7554. greyicon(headhandle%,16,
  7555. CheckRadio(linkhandle%,4)>0  
  7556. greyicon(linkhandle%,2,
  7557. greyicon(linkhandle%,3,
  7558. CheckRadio(linkhandle%,22)<1 
  7559. greyicon(linkhandle%,21,
  7560. SetFXSize
  7561. SetTick(fxhandle%,60,0):
  7562. SetTick(fxhandle%,61,0):
  7563. SetTick(fxhandle%,62,0):
  7564. SetTick(fxhandle%,63,0)
  7565. SetTick(fxhandle%,68,0):
  7566. SetTick(fxhandle%,69,0):
  7567. SetTick(fxhandle%,70,0):
  7568. SetTick(fxhandle%,71,0)
  7569. SetTick(fxhandle%,74,0):
  7570. SetTick(fxhandle%,75,0)
  7571.  fxsize% 
  7572. SetTick(fxhandle%,75,1)
  7573. SetTick(fxhandle%,60,1)
  7574. SetTick(fxhandle%,61,1)
  7575. SetTick(fxhandle%,74,1)
  7576. SetTick(fxhandle%,68,1)
  7577. SetTick(fxhandle%,69,1)
  7578. SetTick(fxhandle%,70,1)
  7579. SetTick(fxhandle%,71,1)
  7580. SetTick(fxhandle%,62,1)
  7581. SetTick(fxhandle%,63,1)
  7582. SetFXColour
  7583. SetTick(fxhandle%,55,0):
  7584. SetTick(fxhandle%,56,0):
  7585. SetTick(fxhandle%,57,0):
  7586. SetTick(fxhandle%,65,0)
  7587. SetTick(fxhandle%,72,0):
  7588. SetTick(fxhandle%,73,0)
  7589.  fxcol% 
  7590. SetTick(fxhandle%,73,1)
  7591. SetTick(fxhandle%,55,1)
  7592. SetTick(fxhandle%,65,1)
  7593. SetTick(fxhandle%,56,1)
  7594. SetTick(fxhandle%,57,1)
  7595. SetTick(fxhandle%,72,1)
  7596. lower(lower$)
  7597.  lowerloop%,templower$,char%
  7598.  lower$="" =""
  7599. templower$=""
  7600.  lowerloop%=1 
  7601. (lower$)
  7602. # char%=
  7603. lower$,lowerloop%,1))
  7604.  char%>=65 
  7605.  char%<=90 char%+=32
  7606.  templower$+=
  7607. (char%)
  7608.  lower$,templower$
  7609. =lower$
  7610. CreateImage
  7611.  pumping<>0 
  7612. icondata(0,imghandle%)="" 
  7613. warning("Please enter the name of an image, or drag an image file to a "+Task$+" window"):
  7614. !out%=
  7615. "<Wimp$ScrapDir>.HTML3"
  7616. CheckRadio(imghandle%,64)>0 
  7617. #out%,"<center>";
  7618. #out%,"<img src="""+
  7619. icondata(0,imghandle%)+"""";
  7620. icondata(2,imghandle%)<>"" 
  7621. #out%," alt="""+
  7622. encode(
  7623. icondata(2,imghandle%))+"""";
  7624. icondata(4,imghandle%)<>"" 
  7625. #out%," width="""+
  7626. icondata(4,imghandle%);
  7627. CheckRadio(imghandle%,50)>0 
  7628. #out%,"%";
  7629. #out%,"""";
  7630. icondata(5,imghandle%)<>"" 
  7631. #out%," height="""+
  7632. icondata(5,imghandle%)+"""";
  7633. #out%," border="""+
  7634. icondata(15,imghandle%)))+"""";
  7635. align%=0
  7636. CheckRadio(imghandle%,23)>0 
  7637.  align%=1
  7638. CheckRadio(imghandle%,24)>0 
  7639.  align%=2
  7640. CheckRadio(imghandle%,25)>0 
  7641.  align%=3
  7642. CheckRadio(imghandle%,26)>0 
  7643.  align%=4
  7644. CheckRadio(imghandle%,28)>0 
  7645.  align%=5
  7646. CheckRadio(imghandle%,29)>0 
  7647.  align%=6
  7648.  align% 
  7649. #out%," align=""texttop""";
  7650. #out%," align=""middle""";
  7651. #out%," align=""abscenter""";
  7652. #out%," align=""absbottom""";
  7653. #out%," align=""left""";
  7654. #out%," align=""right""";
  7655. icondata(32,imghandle%))<>0 
  7656. #out%," hspace="""+
  7657. icondata(32,imghandle%)+"""";
  7658. icondata(33,imghandle%))<>0 
  7659. #out%," vspace="""+
  7660. icondata(33,imghandle%)+"""";
  7661. CheckRadio(imghandle%,42)>0 
  7662. #out%," ismap";
  7663. CheckRadio(imghandle%,43)>0 
  7664. icondata(44,imghandle%)<>"" 
  7665. #out%," usemap=""#"+
  7666. icondata(44,imghandle%)+"""";
  7667. icondata(53,imghandle%)<>"" 
  7668. CheckRadio(imghandle%,56)>0 
  7669. #out%," name="""+
  7670. icondata(53,imghandle%)+"""";
  7671. #out%,">";
  7672. CheckRadio(imghandle%,64)>0 
  7673. #out%,"</center>";
  7674. #out%
  7675. "XOS_CLI","Settype <Wimp$ScrapDir>.HTML3 &FAF"
  7676. filepush("<Wimp$ScrapDir>.HTML3",1)
  7677. UpdateImageDatabase
  7678. MakeURL
  7679. icondata(0,linkhandle%)<>"" 
  7680. UpdateURLDatabase(
  7681. icondata(0,linkhandle%),
  7682. icondata(2,linkhandle%),
  7683. icondata(21,linkhandle%))
  7684.  pumping<>0 
  7685. CheckRadio(linkhandle%,4)>0 
  7686. icondata(0,imghandle%)="" 
  7687. SetTick(linkhandle%,4,0)
  7688. greyicon(linkhandle%,2,
  7689. greyicon(linkhandle%,3,
  7690. !out%=
  7691. "<Wimp$ScrapDir>.HTML3"
  7692.     js%=0
  7693. CheckRadio(linkhandle%,22)>0 
  7694. icondata(21,linkhandle%)<>"" js%+=1
  7695. CheckRadio(linkhandle%,12)>0 
  7696. icondata(9,linkhandle%)<>"" 
  7697. icondata(10,linkhandle%)<>"" 
  7698. icondata(16,linkhandle%)<>"" js%+=2
  7699.  js%>=2 
  7700.  Let's pre-cache!
  7701. #out%,"<script language=""JavaScript""><!-- "
  7702. #out%,"if (document.images)"
  7703. #out%,"{";
  7704. icondata(16,linkhandle%)<>"" 
  7705. #out%,"var "+
  7706. icondata(9,linkhandle%)+"on=new Image()"
  7707. #out%,
  7708. icondata(9,linkhandle%)+"on.src=""";
  7709. #out%,
  7710. icondata(16,linkhandle%);
  7711. #out%,""""
  7712. icondata(10,linkhandle%)<>"" 
  7713. #out%,"var "+
  7714. icondata(9,linkhandle%)+"off=new Image()"
  7715. #out%,
  7716. icondata(9,linkhandle%)+"off.src=""";
  7717. #out%,
  7718. icondata(10,linkhandle%);
  7719. #out%,""""
  7720. #out%,"}"
  7721. #out%,"// -->"
  7722. #out%,"</script>"
  7723. #out%,"<a href="""+
  7724. icondata(0,linkhandle%)+"""";
  7725. CheckRadio(linkhandle%,31)>0 
  7726. icondata(21,linkhandle%)<>"" 
  7727. #out%," title="""+
  7728. encode(
  7729. icondata(21,linkhandle%))+"""";
  7730.  js%>0 
  7731.  js%=2 
  7732. icondata(16,linkhandle%)="" 
  7733.  ...whistle...
  7734. #out%," onmouseover=""";
  7735.  js%>=2 
  7736. icondata(16,linkhandle%)<>"" 
  7737. #out%,"rollon('"+
  7738. icondata(9,linkhandle%)+"')";
  7739.  js%=3 
  7740. icondata(16,linkhandle%)<>"" 
  7741. #out%,";";
  7742.  js% 
  7743.  2=1 
  7744. #out%,"window.status='"+
  7745. encode(
  7746. icondata(21,linkhandle%))+"'";
  7747. #out%,";return true;""";
  7748.  js%>1 
  7749. #out%," onmouseout=""";
  7750.  js%>=2 
  7751. icondata(10,linkhandle%)<>"" 
  7752. #out%,"rolloff('"+
  7753. icondata(9,linkhandle%)+"')";
  7754.  js%=3 
  7755. icondata(10,linkhandle%)<>"" 
  7756. #out%,";";
  7757.  js% 
  7758.  2=1 
  7759. #out%,"window.status=''";
  7760. #out%,";return true;""";
  7761. icondata(5,linkhandle%)<>"" 
  7762. #out%," target="""+
  7763. icondata(5,linkhandle%)+"""";
  7764. #out%,">";
  7765. #out%
  7766. "XOS_CLI","Settype <Wimp$ScrapDir>.HTML3 &FAF"
  7767. filepush("<Wimp$ScrapDir>.HTML3",1)
  7768. TempPoll
  7769.  pumping=0
  7770. CheckRadio(linkhandle%,4)>0 
  7771. CreateImage
  7772. TempPoll
  7773.  pumping=0
  7774. push(
  7775. encode(
  7776. icondata(2,linkhandle%)))
  7777. ?!out%=
  7778. "<Wimp$ScrapDir>.HTML3"
  7779. #out%,"</a>";
  7780. #out%
  7781. "XOS_CLI","Settype <Wimp$ScrapDir>.HTML3 &FAF"
  7782. filepush("<Wimp$ScrapDir>.HTML3",1)
  7783. D/pumping=0:
  7784. "XOS_CLI","Unset HTML3$Pumping"
  7785. InitURLDatabase
  7786. urls%=0
  7787. FileCheck("HTML3Options:URLs")=0 
  7788. J!openin%=
  7789.  "HTML3Options:URLs"
  7790. urlversion$=
  7791. #openin%
  7792. urlversion$,"Version 3")=0 
  7793. #openin%:
  7794. counter%=0
  7795. #openin%
  7796.  a$<>"" 
  7797.  counter%<30 
  7798.  counter%+=1
  7799.  url$(counter%,1)=a$
  7800. #openin% 
  7801.  url$(counter%,2)=
  7802. #openin%
  7803. #openin% 
  7804.  url$(counter%,3)=
  7805. #openin%
  7806. #openin% 
  7807.  counter%=30
  7808. urls%=counter%
  7809. #openin%
  7810. SaveURLDatabase
  7811.  urls%=0 
  7812. FileCheck("HTML3Options:URLs")=1 
  7813.  out%=
  7814.  "HTML3Options:URLs"
  7815. #out%=
  7816. #out%
  7817.  out%=
  7818.  "HTML3Options:URLs"
  7819. #out%,"Version "+
  7820. SmallVer$,4)
  7821.  outloop%=1 
  7822.  urls%
  7823. #out%,url$(outloop%,1)
  7824. #out%,url$(outloop%,2)
  7825. #out%,url$(outloop%,3)
  7826. #out%
  7827. "XOS_CLI","SetType HTML3Options:URLs &FFF"
  7828. UpdateURLDatabase(url$,data$,java$)
  7829.  urls%=0 
  7830.  url$(1,1)=url$: url$(1,2)=data$: url$(1,3)=java$:urls%=1:
  7831.  url$=url$(1,1) url$(1,1)=url$: url$(1,2)=data$: url$(1,3)=java$: 
  7832. flag%=0
  7833.  loop%=1 
  7834.  urls%
  7835.  url$=url$(loop%,1) 
  7836.  flag%=loop%
  7837.  flag%>0 
  7838.  loop%=flag%-1 
  7839. v#  url$(loop%+1,1)=url$(loop%,1)
  7840. w#  url$(loop%+1,2)=url$(loop%,2)
  7841. x#  url$(loop%+1,3)=url$(loop%,3)
  7842.  url$(1,1)=url$
  7843.  url$(1,2)=data$
  7844.  url$(1,3)=java$
  7845.  urls%+=1
  7846.  urls%>30 urls%=30
  7847.  loop%=urls%-1 
  7848. #  url$(loop%+1,1)=url$(loop%,1)
  7849. #  url$(loop%+1,2)=url$(loop%,2)
  7850. #  url$(loop%+1,3)=url$(loop%,3)
  7851.  url$(1,1)=url$
  7852.  url$(1,2)=data$
  7853.  url$(1,3)=java$
  7854. MakeURLMenu
  7855. menutrack%=7
  7856. m%=menu%
  7857. $(m%)="URLs"
  7858. m%!12=&70207
  7859. m%!16=180
  7860. m%!20=44
  7861. m%!24=0
  7862. m%+=28
  7863. loop%=-2
  7864. loop%+=1
  7865.  loop%>-1 
  7866.  m%+=24
  7867.  loop% 
  7868.  urls%:m%!0=&80
  7869.      0:m%!0=%10
  7870.  m%!0=0
  7871. m%!4=-1
  7872. m%!8=&7000001
  7873.  loop%>0 
  7874. (url$(loop%,1))>35 
  7875. (  menutext$="..."+
  7876. url$(loop%,1),32)
  7877.   menutext$=url$(loop%,1)
  7878.  loop%=-1 
  7879.  menutext$="#topofpage"
  7880.  loop%= 0 
  7881.  menutext$="index.html"
  7882.  menutext$>11
  7883.  tempmem%
  7884.  menutext$
  7885. $tempmem%=menutext$
  7886. m%!8=(m%!8)
  7887. m%!12=tempmem%
  7888. m%!16=-1
  7889. m%!20=
  7890.  menutext$
  7891. $(m%+12)=menutext$
  7892.  loop%=urls%
  7893. InitEmailDatabase
  7894. emails%=0
  7895. FileCheck("HTML3Options:Emails")=0 
  7896. #openin%=
  7897.  "HTML3Options:Emails"
  7898. emailversion$=
  7899. #openin%
  7900. emailversion$,"Version")<>1 
  7901. #openin%:
  7902. (mailvers%=100*(
  7903. emailversion$,9)))
  7904. counter%=0
  7905. #openin%
  7906.  a$<>"" 
  7907.  counter%<30 
  7908.  counter%+=1
  7909.  email$(counter%,1)=a$
  7910. #openin% 
  7911.  email$(counter%,2)=
  7912. #openin%
  7913. #openin% 
  7914.  mailvers%>300 
  7915.  email$(counter%,3)=
  7916. #openin%
  7917.  mailvers%<310 
  7918.  email$(counter%,3)=""
  7919. #openin% 
  7920.  counter%=30
  7921. emails%=counter%
  7922. #openin%
  7923. SaveEmailDatabase
  7924.  emails%=0 
  7925. FileCheck("HTML3Options:Emails")=1 
  7926. ! out%=
  7927.  "HTML3Options:Emails"
  7928. #out%=
  7929. #out%
  7930. ! out%=
  7931.  "HTML3Options:Emails"
  7932. #out%,"Version "+
  7933. SmallVer$,4)
  7934.  outloop%=1 
  7935.  emails%
  7936. #out%,email$(outloop%,1)
  7937. #out%,email$(outloop%,2)
  7938. #out%,email$(outloop%,3)
  7939. #out%
  7940. "XOS_CLI","SetType HTML3Options:Emails &FFF"
  7941. UpdateEmailDatabase(url$,java$,emailname$)
  7942.  emails%=0 
  7943.  email$(1,1)=url$:email$(1,2)=java$:email$(1,3)=emailname$:emails%=1:
  7944.  url$=email$(1,1) email$(1,1)=url$:email$(1,2)=java$:email$(1,3)=emailname$:
  7945. flag%=0
  7946.  loop%=1 
  7947.  emails%
  7948.  url$=email$(loop%,1) 
  7949.  flag%=loop%
  7950.  flag%>0 
  7951.  loop%=flag%-1 
  7952. '  email$(loop%+1,1)=email$(loop%,1)
  7953. '  email$(loop%+1,2)=email$(loop%,2)
  7954. '  email$(loop%+1,3)=email$(loop%,3)
  7955.  email$(1,1)=url$
  7956.  email$(1,2)=java$
  7957.  email$(1,3)=emailname$
  7958.  emails%+=1
  7959.  emails%>30 emails%=30
  7960.  loop%=emails%-1 
  7961. '  email$(loop%+1,1)=email$(loop%,1)
  7962. '  email$(loop%+1,2)=email$(loop%,2)
  7963. '  email$(loop%+1,3)=email$(loop%,3)
  7964.  email$(1,1)=url$
  7965.  email$(1,2)=java$
  7966.  email$(1,3)=emailname$
  7967. MakeEmailMenu
  7968. menutrack%=8
  7969. m%=menu%
  7970. $(m%)="Emails"
  7971. m%!12=&70207
  7972. m%!16=180
  7973. m%!20=44
  7974. m%!24=0
  7975. m%+=28
  7976. loop%=0
  7977. loop%+=1
  7978.  loop%>1 
  7979.  m%+=24
  7980.  loop%=emails% 
  7981.  m%!0=&80 
  7982.  m%!0=0
  7983. m%!4=-1
  7984. m%!8=&7000001
  7985. (email$(loop%,1))>35 
  7986. ) menutext$=
  7987. email$(loop%,1),32)+"..."
  7988.  menutext$=email$(loop%,1)
  7989.  menutext$>11
  7990.  tempmem%
  7991.  menutext$
  7992. $tempmem%=menutext$
  7993. m%!8=(m%!8)
  7994. m%!12=tempmem%
  7995. m%!16=-1
  7996. m%!20=
  7997.  menutext$
  7998. $(m%+12)=menutext$
  7999.  loop%=emails%
  8000. LoadColourNames(grabber$)
  8001.  file$
  8002. colours%=0
  8003. (.file$="HTML3:Resources.ColFiles."+grabber$
  8004. FileCheck(file$)=1 
  8005. AlterIcons(grabber$,46,opthandle%)
  8006.  colourin%=
  8007.  file$
  8008.   temp$=
  8009. #colourin%
  8010. temp$,1)<>"#" 
  8011. temp$,":")<>0 
  8012.    colours%+=1
  8013. 00   colour$(1,colours%)=
  8014. temp$,
  8015. temp$,":")-1)
  8016. 11   colour$(2,colours%)= 
  8017. temp$,
  8018. temp$,":")+1)
  8019. #colourin%
  8020. #colourin%
  8021.  colours%=0 
  8022.  colours%=2
  8023.  colour$(1,1)="Black"
  8024.  colour$(2,1)="000000"
  8025.  colour$(1,2)="White"
  8026.  colour$(2,2)="FFFFFF"
  8027. MakeColourMenu
  8028. menutrack%=9
  8029. A&menuitem$(1)="Make colour NetSafe"
  8030. menuitem$(2)="Copy to..."
  8031. C menuitem$(3)="Grab from..._"
  8032.  counter%=1 
  8033.  colours%
  8034. E. menuitem$(3+counter%)=colour$(1,counter%)
  8035. MakeMenu(3+colours%,"Colours")
  8036.  loop%=0
  8037.  REPEAT
  8038.  loop%+=1
  8039.  REM IF loop%>1 THEN m%+=24
  8040.  m%+=24
  8041.  IF loop%=colours% THEN m%!0=&80 ELSE m%!0=0
  8042.  m%!4=-1
  8043.  m%!8=&7000001
  8044.  IF LEN(colour$(1,loop%))>35 THEN
  8045.   menutext$=LEFT$(colour$(1,loop%),32)+"..."
  8046.  ELSE
  8047.   menutext$=colour$(1,loop%)
  8048.  ENDIF
  8049.  IF LEN menutext$>11THEN
  8050.  DIM tempmem%LEN menutext$
  8051.  $tempmem%=menutext$
  8052.  m%!8=(m%!8)OR256
  8053.  m%!12=tempmem%
  8054.  m%!16=-1
  8055.  m%!20=LEN menutext$
  8056.  ELSE
  8057.  $(m%+12)=menutext$
  8058.  ENDIF
  8059.  UNTIL loop%=colours%
  8060. DefineFonts
  8061.  font$(3,40)
  8062. maxfonts%=0
  8063.  a$,b$,c$
  8064.  a$<>"END" 
  8065.  maxfonts%+=1
  8066.  font$(1,maxfonts%)=a$
  8067.  font$(2,maxfonts%)=b$
  8068.  font$(3,maxfonts%)=c$
  8069.  a$="END"
  8070. "Arial","Homerton regular","arial, helvetica"
  8071. "Arial Black","Homerton black","arial black"
  8072. "Arial Narrow","Homerton light","arial narrow"
  8073. "Arial Rounded MT Bold","Rounded Homerton","arial rounded mt bold"
  8074. "Book Antiqua","Book antiqua","book antiqua"
  8075. "Bookman Old Style","Bookman","bookman old style"
  8076. "Braggadocio","Braggadocio","braggadocio"
  8077. "Britannic Bold","Britannic Bold","britannic bold"
  8078. "Brush Script MT","Brush Script","brush script mt"
  8079. "Century Gothic","Century Gothic","century gothic"
  8080. "Century Schoolbook","Century Schoolbook","century schoolbook"
  8081. "Colonna MT","Colonna","colonna mt"
  8082. "Comic Sans MS","Kids style","comic sans ms"
  8083. "Courier New","Corpus","courier new,courier"
  8084. "Desdemona","Desdemona","desdemona"
  8085. "EricExtraBold","Eric extra bold","ericextrabold"
  8086. "Footlight MT Light","Footlight","footlight mt light"
  8087. "Garamond","Garamond","garamond"
  8088. "Haettenschweiler","Haettenschweiler","haettenschweiler"
  8089. "Impact","Impact","impact"
  8090. "Jasper","Jasper","jasper"
  8091. "Kino MT","Kino","kino mt"
  8092. "Map Symbols","Map symbols","map symbols"
  8093. "Marlett","Marlett","marlett"
  8094. "Matura MT Script Capitals","Matura","matura mt script capitals"
  8095. "Monotype Sorts","Monotype Sorts","monotype sorts"
  8096. "MS LineDraw","Microsoft LineDraw","ms linedraw"
  8097. "Playbill","Playbill","playbill"
  8098. "Sprite","Sprite","sprite"
  8099. "Symbol","Greek (Sidney)","Symbol"
  8100. "Times New Roman","Trinity","Times New Roman,Times"
  8101. "Verdana","Verdana","verdana"
  8102. "Wide Latin","Wide Latin","wide latin"
  8103. "WebDings","MS Web Dingbats","webdings"
  8104. "Wingdings","Dingbats (Selwyn)","wingdings"
  8105. "Yates","Yates","yates"
  8106. "END","END","END"
  8107. DefineChars
  8108.  charloop%=0
  8109.  chars%?charloop%
  8110.  temp$=
  8111. (chars%?charloop%)
  8112.  temp$=
  8113. (160) temp$="HS"
  8114. AlterIcons(temp$,charloop%,charhandle%)
  8115. 160,060,062,141,169,174,185,178,179,188,189,190
  8116. 038,215,247,034,144,145,148,149,177,176,143,183
  8117. 163,165,162,164,140,167,182,166,171,187,161,191
  8118. 154,155,156,157,158,159,129,130,181,192,193,194
  8119. 195,196,197,198,199,200,201,202,203,204,205,206
  8120. 207,208,209,210,211,212,213,214,216,217,218,219
  8121. 220,221,133,222,223,224,225,226,227,228,229,230
  8122. 231,232,233,234,235,236,237,238,239,240,241,242
  8123. 243,244,245,246,248,249,250,251,252,254,253,255
  8124. 150,151,152,153,173,175,180,168,172,184,170,186
  8125.  character$(3,255)
  8126. counter%=0
  8127.  a%,b$,c$,d$
  8128.  b$<>"END" 
  8129.  counter%=a%
  8130.  character$(1,counter%)=b$
  8131.  character$(2,counter%)=c$
  8132.  character$(3,counter%)=d$
  8133.  b$="END"
  8134. 34,quot,CHR$(34),speechmark
  8135. 38,amp,"&",ampersand
  8136. 60,lt,"<",less than
  8137. 62,gt,">",greater than
  8138. 129,Wcirc,
  8139. ,W with hat
  8140. 130,wcirc,
  8141. ,w with hat
  8142. 133,Ycirc,
  8143. ,Y with hat
  8144. 140,hellip,
  8145. ,three dots
  8146. 141,trade,
  8147. ,trademark
  8148. 142,permil,
  8149. ,percent and dot
  8150. 143,bull,
  8151. ,bullet point
  8152. 144,lsquo,
  8153. ,smart ' open
  8154. 145,rsquo,
  8155. ,smart ' closed
  8156. 148,ldquo,
  8157. ,smart speechmark open
  8158. 149,rdquo,
  8159. ,smart speechmark close
  8160. 150,ldquor,
  8161. ,smart speechmark low
  8162. 151,ndash,
  8163. ,small dash
  8164. 152,mdash,
  8165. ,long dash
  8166. 153,minus,
  8167. ,dash
  8168. 154,OElig,
  8169. 155,oelig,
  8170. 156,dagger,
  8171. ,dagger mark
  8172. 157,Dagger,
  8173. ,double dagger
  8174. 158,filig,
  8175. 159,fllig,
  8176. 160,nbsp,HS,hard space
  8177. 161,iexcl,
  8178. ,flipped !
  8179. 162,cent,
  8180. ,cent
  8181. 163,pound,
  8182. ,pound
  8183. 164,curren,
  8184. ,curren mark
  8185. 165,yen,
  8186. 166,brvbar,
  8187. 167,sect,
  8188. ,s with circle
  8189. 168,die,
  8190. ,umlauts
  8191. 169,copy,
  8192. ,copyright
  8193. 170,ordf,
  8194. ,underline a
  8195. 171,laquo,
  8196. ,double left brackets
  8197. 172,not,
  8198. ,not sign
  8199. 173,shy,
  8200. ,shy dash
  8201. 174,reg,
  8202. ,registered trademark
  8203. 175,macron,
  8204. ,high dash
  8205. 176,deg,
  8206. ,degrees
  8207. 177,plusmn,
  8208. ,plus/minus
  8209. 178,sup2,
  8210. ,superscript 2
  8211. 179,sup3,
  8212. ,superscript 3
  8213. 180,acute,
  8214. ,acute
  8215. 181,micro,
  8216. ,micro
  8217. 182,para,
  8218. ,paragraph
  8219. 183,middot,
  8220. ,middot
  8221. 184,cedilla,
  8222. ,cedilla
  8223. 185,sup1,
  8224. ,superscript 1
  8225. 186,ordm,
  8226. ,underlined 0
  8227. 187,raquo,
  8228. ,double right brackets
  8229. 188,frac14,
  8230. ,quarter
  8231. 189,frac12,
  8232. ,half
  8233. 190,frac34,
  8234. ,three quarters
  8235. 191,iquest,
  8236. ,flipped question mark
  8237. 192,Agrave,
  8238. ,A accent
  8239. 193,Aacute,
  8240. ,A acute
  8241. 194,Acirc,
  8242. ,A with hat
  8243. 195,Atilde,
  8244. ,A with tilde
  8245. 196,Auml,
  8246. ,A with umlauts
  8247. 197,Aring,
  8248. ,A with ring
  8249. 198,AElig,
  8250. 199,Ccedil,
  8251. ,C cedilla
  8252. 200,Egrave,
  8253. ,E accent
  8254. 201,Eacute,
  8255. ,E acute
  8256. 202,Ecirc,
  8257. ,E with hat
  8258. 203,Euml,
  8259. ,E with umlauts
  8260. 204,Igrave,
  8261. ,I accent
  8262. 205,Iacute,
  8263. ,I acute
  8264. 206,Icirc,
  8265. ,I with hat
  8266. 207,Iuml,
  8267. ,I with umlauts
  8268. 208,ETH,
  8269. ,crossed D
  8270. 209,Ntilde,
  8271. ,N with tilde
  8272. 210,Ograve,
  8273. ,O accent
  8274. 211,Oacute,
  8275. ,O acute
  8276. 212,Ocirc,
  8277. ,O with hat
  8278. 213,Otilde,
  8279. ,O with tilde
  8280. 214,Ouml,
  8281. ,O with umlauts
  8282. 215,times,
  8283. ,times sign
  8284. 216,Oslash,
  8285. ,slashed O
  8286. 217,Ugrave,
  8287. ,U accent
  8288. 218,Uacute,
  8289. ,U acute
  8290. 219,Ucirc,
  8291. ,U with hat
  8292. 220,Uuml,
  8293. ,U with umlauts
  8294. 221,Yacute,
  8295. ,Y acute
  8296. 222,THORN,
  8297. ,Thorn caps
  8298. 223,szlig,
  8299. ,double-S
  8300. 224,agrave,
  8301. ,a accent
  8302. 225,aacute,
  8303. ,a acute
  8304. 226,acirc,
  8305. ,a with hat
  8306. 227,atilde,
  8307. ,a with tilde
  8308. 228,auml,
  8309. ,a with umlauts
  8310. 229,aring,
  8311. ,a with ring
  8312. 230,aelig,
  8313. 231,ccedil,
  8314. ,c cedilla
  8315. 232,egrave,
  8316. ,e accent
  8317. 233,eacute,
  8318. ,e acute
  8319. 234,ecirc,
  8320. ,e with hat
  8321. 235,euml,
  8322. ,e with umlauts
  8323. 236,igrave,
  8324. ,i accent
  8325. 237,iacute,
  8326. ,i acute
  8327. 238,icirc,
  8328. ,i with hat
  8329. 239,iuml,
  8330. ,i with umlauts
  8331. 240,eth,
  8332. ,eth (crossed d)
  8333. 241,ntilde,
  8334. ,n with tilde
  8335. 242,ograve,
  8336. ,o accent
  8337. 243,oacute,
  8338. ,o acute
  8339. 244,ocirc,
  8340. ,o with hat
  8341. 245,otilde,
  8342. ,o with tilde
  8343. 246,ouml,
  8344. ,o with umlauts
  8345. 247,divide,
  8346. ,division sign
  8347. 248,oslash,
  8348. ,slashed o
  8349. 249,ugrave,
  8350. ,u accent
  8351. 250,uacute,
  8352. ,u acute
  8353. 251,ucirc,
  8354. ,u with hat
  8355. 252,uuml,
  8356. ,u with umlauts
  8357. 253,yacute,
  8358. ,y acute
  8359. 254,thorn,
  8360. ,thorn
  8361. 255,yuml,
  8362. ,y with umlauts
  8363. 35,num,"#",hash
  8364. 39,apos,"'",apostrophy
  8365. 42,ast,"*",asterisk
  8366. 43,plus,+,plus sign
  8367. 45,hyphen,-,minus sign/hyphen
  8368. 47,sol,/,slash
  8369. 61,equals,"=",equals sign
  8370. 0,END,END,END
  8371. TableDefaults
  8372. tablewidth%=100
  8373. tablewidthtype%=1
  8374. tablewidthon%=
  8375. tableheight%=100
  8376. tableheighttype%=1
  8377. tableheighton%=
  8378. tablecolumns%=3
  8379. tablecolumnson%=
  8380. tableborderline%=0
  8381. tableborderlineon%=
  8382. tablespacing%=1
  8383. tablepadding%=1
  8384. tablespancol%=1
  8385. tablespanrow%=1
  8386. tablecellwidth%=200
  8387. tablecellwidthtype%=2
  8388. tablecellwidthon%=
  8389. tablecellheight%=100
  8390. tablecellheighttype%=2
  8391. tablecellheighton%=
  8392. tablealign%=0
  8393. tablevalign%=0
  8394. tablecolour%(1)=255
  8395. tablecolour%(2)=255
  8396. tablecolour%(3)=255
  8397. tableusecolour%=
  8398. TableRedraw
  8399. AlterIcons(
  8400. (tablewidth%),21,tablehandle%)
  8401. AlterIcons(
  8402. (tableheight%),24,tablehandle%)
  8403. AlterIcons(
  8404. (tablecolumns%),27,tablehandle%)
  8405. AlterIcons(
  8406. (tableborderline%),30,tablehandle%)
  8407. AlterIcons(
  8408. (tablespacing%),33,tablehandle%)
  8409. AlterIcons(
  8410. (tablepadding%),36,tablehandle%)
  8411. AlterIcons(
  8412. (tablespancol%),58,tablehandle%)
  8413. AlterIcons(
  8414. (tablespanrow%),61,tablehandle%)
  8415. AlterIcons(
  8416. (tablecellwidth%),66,tablehandle%)
  8417. AlterIcons(
  8418. (tablecellheight%),69,tablehandle%)
  8419.  unset%= 8 
  8420. SetTick(tablehandle%,unset%,0):
  8421.  unset%=17 
  8422. SetTick(tablehandle%,unset%,0):
  8423.  unset%=46 
  8424. SetTick(tablehandle%,unset%,0):
  8425.  unset%=56 
  8426. SetTick(tablehandle%,unset%,0):
  8427.  unset%=74 
  8428. SetTick(tablehandle%,unset%,0):
  8429.  tablewidthtype%<>2 
  8430. SetTick(tablehandle%,46,1) 
  8431. SetTick(tablehandle%,47,1)
  8432.  tableheighttype%<>2 
  8433. SetTick(tablehandle%,48,1) 
  8434. SetTick(tablehandle%,49,1)
  8435.  tablecellwidthtype%<>2 
  8436. SetTick(tablehandle%,74,1) 
  8437. SetTick(tablehandle%,75,1)
  8438.  tablecellheighttype%<>2 
  8439. SetTick(tablehandle%,76,1) 
  8440. SetTick(tablehandle%,77,1)
  8441.  tablealign% 
  8442. SetTick(tablehandle%,57,1)
  8443. SetTick(tablehandle%, 8,1)
  8444. SetTick(tablehandle%, 9,1)
  8445. SetTick(tablehandle%,10,1)
  8446.  tablevalign% 
  8447. SetTick(tablehandle%,56,1)
  8448. SetTick(tablehandle%,17,1)
  8449. SetTick(tablehandle%,18,1)
  8450. SetTick(tablehandle%,19,1)
  8451. SetTick(tablehandle%,20,1)
  8452.  tablewidthon%<>
  8453.  tablewidthon%=
  8454. greyicon(tablehandle%,21,(tablewidthon%*-1)-1)
  8455. greyicon(tablehandle%,22,(tablewidthon%*-1)-1)
  8456. greyicon(tablehandle%,23,(tablewidthon%*-1)-1)
  8457. greyicon(tablehandle%,46,(tablewidthon%*-1)-1)
  8458. greyicon(tablehandle%,47,(tablewidthon%*-1)-1)
  8459. SetTick(tablehandle%,50,tablewidthon%*-1)
  8460.  tableheighton%<>
  8461.  tableheighton%=
  8462. greyicon(tablehandle%,24,(tableheighton%*-1)-1)
  8463. greyicon(tablehandle%,25,(tableheighton%*-1)-1)
  8464. greyicon(tablehandle%,26,(tableheighton%*-1)-1)
  8465. greyicon(tablehandle%,48,(tableheighton%*-1)-1)
  8466. greyicon(tablehandle%,49,(tableheighton%*-1)-1)
  8467. SetTick(tablehandle%,51,tableheighton%*-1)
  8468.  tablecolumnson%<>
  8469.  tablecolumnson%=
  8470. greyicon(tablehandle%,27,(tablecolumnson%*-1)-1)
  8471. greyicon(tablehandle%,28,(tablecolumnson%*-1)-1)
  8472. greyicon(tablehandle%,29,(tablecolumnson%*-1)-1)
  8473. greyicon(tablehandle%,45,(tablecolumnson%*-1)-1)
  8474. SetTick(tablehandle%,52,tablecolumnson%*-1)
  8475.  tableborderlineon%<>
  8476.  tableborderlineon%=
  8477.  unset%=30 
  8478. greyicon(tablehandle%,unset%,(tableborderlineon%*-1)-1)
  8479. SetTick(tablehandle%,53,tableborderlineon%*-1)
  8480.  tablecellwidthon%<>
  8481.  tablecellwidthon%=
  8482. greyicon(tablehandle%,66,(tablecellwidthon%*-1)-1)
  8483. greyicon(tablehandle%,67,(tablecellwidthon%*-1)-1)
  8484. greyicon(tablehandle%,68,(tablecellwidthon%*-1)-1)
  8485. greyicon(tablehandle%,74,(tablecellwidthon%*-1)-1)
  8486. greyicon(tablehandle%,75,(tablecellwidthon%*-1)-1)
  8487. SetTick(tablehandle%,78,tablecellwidthon%*-1)
  8488.  tablecellheighton%<>
  8489.  tablecellheighton%=
  8490. greyicon(tablehandle%,69,(tablecellheighton%*-1)-1)
  8491. greyicon(tablehandle%,70,(tablecellheighton%*-1)-1)
  8492. greyicon(tablehandle%,71,(tablecellheighton%*-1)-1)
  8493. greyicon(tablehandle%,76,(tablecellheighton%*-1)-1)
  8494. greyicon(tablehandle%,77,(tablecellheighton%*-1)-1)
  8495. SetTick(tablehandle%,79,tablecellheighton%*-1)
  8496.  tableusecolour%=
  8497. SetTick(tablehandle%,11,1)
  8498. UpdateTableColour
  8499. MakeTable
  8500. temp$=""
  8501.  tablealign% 
  8502.  1:temp$="<div align=left>"
  8503.  2:temp$="<center>"
  8504.  3:temp$="<div align=right>"
  8505. temp$+="<table"+colouron$
  8506.  tablewidthon%=
  8507.  tablewidth%>0 
  8508. $ temp$+=" width="+
  8509. (tablewidth%)
  8510.  tablewidthtype%<>2 
  8511.  temp$+="%"
  8512.  tableheighton%=
  8513.  tableheight%>0 
  8514. & temp$+=" height="+
  8515. (tableheight%)
  8516.  tableheighttype%<>2 
  8517.  temp$+="%"
  8518.  tablecolumnson%=
  8519.  tablecolumns%>0 
  8520. % temp$+=" cols="+
  8521. (tablecolumns%)
  8522.  tableborderlineon%=
  8523.  tableborderline%>0 
  8524. * temp$+=" border="+
  8525. (tableborderline%)
  8526.  tablecellspacing%<>1 
  8527.  temp$+=" cellspacing="+
  8528. (tablecellspacing%)
  8529.  tablecellpadding%<>1 
  8530.  temp$+=" cellpadding="+
  8531. (tablecellpadding%)
  8532. temp$+=">"
  8533. MakeTableCell
  8534. "temp$="<td"+ta$+tva$+colouron$
  8535.  tablespancol%>1 
  8536.  temp$+=" colspan="+
  8537. (tablespancol%)
  8538.  tablespanrow%>1 
  8539.  temp$+=" rowspan="+
  8540. (tablespanrow%)
  8541.  tablecellwidthon%=
  8542.  tablecellwidth%>0 
  8543. ( temp$+=" width="+
  8544. (tablecellwidth%)
  8545.  tablecellwidthtype%=1 
  8546.  temp$+="%"
  8547.  tablecellheighton%=
  8548.  tablecellheight%>0 
  8549. * temp$+=" height="+
  8550. (tablecellheight%)
  8551.  tablecellheighttype%=1 
  8552.  temp$+="%"
  8553. temp$+=">"
  8554. InitImageDatabase
  8555. imagedbs%=0
  8556. FileCheck("HTML3Options:ImageDB")=0 
  8557. $openin%=
  8558.  "HTML3Options:ImageDB"
  8559. imagedbversion$=
  8560. #openin%
  8561. imagedbversion$,"Version")<>1 
  8562. #openin%:
  8563. *mailvers%=100*(
  8564. imagedbversion$,9)))
  8565. counter%=0
  8566. #openin%
  8567.  a$<>"" 
  8568.  counter%<30 
  8569.  counter%+=1
  8570.  imagedb$(counter%,1)=a$
  8571.  loop%=2 
  8572. #openin% 
  8573.  imagedb$(counter%,loop%)=
  8574. #openin% 
  8575.  imagedb$(counter%,loop%)=""
  8576. #openin% 
  8577.  counter%=30
  8578. imagedbs%=counter%
  8579. #openin%
  8580. SaveImageDatabase
  8581.  imagedbs%=0 
  8582. FileCheck("HTML3Options:ImageDB")=1 
  8583. # out%=
  8584.   "HTML3Options:ImageDB"
  8585. #out%=
  8586. #out%
  8587. " out%=
  8588.  "HTML3Options:ImageDB"
  8589. #out%,"Version "+
  8590. SmallVer$,4)
  8591.  outloop%=1 
  8592.  imagedbs%
  8593.  countloop%=1
  8594. #out%,imagedb$(outloop%,countloop%)
  8595. #out%
  8596. "XOS_CLI","SetType HTML3Options:ImageDB &FFF"
  8597. UpdateImageDatabase
  8598. EncodeImage
  8599.  first instance
  8600.  imagedbs%=0 
  8601.  countloop%=1
  8602. 6:imagedb$(1,countloop%)=imagetemp$(countloop%):
  8603. :imagedbs%=1:
  8604.  same first line, but maybe mods elsewhere
  8605.  imagetemp$(1)=imagedb$(1,1) 
  8606.  countloop%=1
  8607. 6:imagedb$(1,countloop%)=imagetemp$(countloop%):
  8608.  shift around...
  8609. flag%=0
  8610.  loop%=1 
  8611.  imagedbs%
  8612.  imagetemp$(1)=imagedb$(loop%,1) 
  8613.  flag%=loop%
  8614.  flag%>0 
  8615.  loop%=flag%-1 
  8616.  countloop%=1
  8617. =  imagedb$(loop%+1,countloop%)=imagedb$(loop%,countloop%)
  8618.  countloop%=1
  8619. 3  imagedb$(1,countloop%)=imagetemp$(countloop%)
  8620.  imagedbs%+=1
  8621.  imagedbs%>30 imagedbs%=30
  8622.  loop%=imagedbs%-1 
  8623.  countloop%=1
  8624. >   imagedb$(loop%+1,countloop%)=imagedb$(loop%,countloop%)
  8625.  countloop%=1
  8626. 2 imagedb$(1,countloop%)=imagetemp$(countloop%)
  8627. MakeImageDBMenu
  8628. m%=menu%
  8629.  menutrack% 
  8630.  21:$(m%)="Alt Text"
  8631.  23,26:$(m%)="Image name"
  8632.  $(m%)="Images"
  8633. m%!12=&70207
  8634. m%!16=180
  8635. m%!20=44
  8636. m%!24=0
  8637. m%+=28
  8638. loop%=0
  8639. loop%+=1
  8640.  loop%>1 
  8641.  m%+=24
  8642.  loop%=imagedbs% 
  8643.  m%!0=&80 
  8644.  m%!0=0
  8645. m%!4=-1
  8646. m%!8=&7000001
  8647.  menutrack% 
  8648.  21:menutext$=
  8649. imagedb$(loop%,2),
  8650. (imagedb$(loop%,2))-1)
  8651.  23,26:menutext$=
  8652. imagedb$(loop%,3),
  8653. (imagedb$(loop%,3))-1)
  8654. .  menutext$=imagedb$(loop%,1)
  8655.  menutext$="" menutext$=" <blank> "
  8656. (menutext$)>35 
  8657.  menutext$="..."+
  8658. menutext$,32)
  8659.  menutext$>11
  8660.  tempmem%
  8661.  menutext$
  8662. $tempmem%=menutext$
  8663. m%!8=(m%!8)
  8664. m%!12=tempmem%
  8665. m%!16=-1
  8666. m%!20=
  8667.  menutext$
  8668. $(m%+12)=menutext$
  8669.  loop%=imagedbs%
  8670. EncodeImage
  8671. A)imagetemp$(1)=
  8672. icondata(0,imghandle%)
  8673. B)imagetemp$(2)=
  8674. icondata(2,imghandle%)
  8675. CheckRadio(imghandle%,46)>0 
  8676.  imagetemp$(2)+="1" 
  8677.  imagetemp$(2)+="0"
  8678. D*imagetemp$(3)=
  8679. icondata(53,imghandle%)
  8680. CheckRadio(imghandle%,56)>0 
  8681.  imagetemp$(3)+="1" 
  8682.  imagetemp$(3)+="0"
  8683. F*imagetemp$(4)=
  8684. icondata(44,imghandle%)
  8685. CheckRadio(imghandle%,43)>0 
  8686.  imagetemp$(4)+="1" 
  8687.  imagetemp$(4)+="0"
  8688. CheckRadio(imghandle%,42)>0 
  8689.  imagetemp$(4)+="1" 
  8690.  imagetemp$(4)+="0"
  8691.  assumed X,Y,%?
  8692. J4imagetemp$(5)=
  8693. "0000"+
  8694. icondata(4,imghandle%),4)
  8695. K5imagetemp$(5)+=
  8696. "0000"+
  8697. icondata(5,imghandle%),4)
  8698. CheckRadio(imghandle%,50)>0 
  8699.  imagetemp$(5)+="1" 
  8700.  imagetemp$(5)+="0"
  8701. M$imagetemp$(5)+=
  8702. "0000"+width$,4)
  8703. N%imagetemp$(5)+=
  8704. "0000"+height$,4)
  8705. O3imagetemp$(6)=
  8706. "00"+
  8707. icondata(32,imghandle%),2)
  8708. P4imagetemp$(6)+=
  8709. "00"+
  8710. icondata(33,imghandle%),2)
  8711. Q4imagetemp$(6)+=
  8712. "00"+
  8713. icondata(15,imghandle%),2)
  8714. align%=0
  8715. CheckRadio(imghandle%,23)>0 
  8716.  align%=1
  8717. CheckRadio(imghandle%,24)>0 
  8718.  align%=2
  8719. CheckRadio(imghandle%,25)>0 
  8720.  align%=3
  8721. CheckRadio(imghandle%,26)>0 
  8722.  align%=4
  8723. CheckRadio(imghandle%,28)>0 
  8724.  align%=5
  8725. CheckRadio(imghandle%,29)>0 
  8726.  align%=6
  8727. CheckRadio(imghandle%,64)>0 
  8728.  align%=7
  8729. imagetemp$(6)+=
  8730. (align%)
  8731. DecodeImage
  8732. AlterIcons(imagetemp$(1),0,imghandle%)
  8733. AlterIcons(
  8734. imagetemp$(2),
  8735. (imagetemp$(2))-1),2,imghandle%)
  8736. imagetemp$(2),1)="1" 
  8737. SetTick(imghandle%,46,
  8738. SetTick(imghandle%,46,
  8739. AlterIcons(
  8740. imagetemp$(3),
  8741. (imagetemp$(3))-1),53,imghandle%)
  8742. imagetemp$(3),1)="1" 
  8743. SetTick(imghandle%,56,
  8744. SetTick(imghandle%,56,
  8745. AlterIcons(
  8746. imagetemp$(4),
  8747. (imagetemp$(4))-2),44,imghandle%)
  8748. imagetemp$(4),
  8749. (imagetemp$(4))-1,1)="1" 
  8750. SetTick(imghandle%,43,
  8751. SetTick(imghandle%,43,
  8752. imagetemp$(4),1)="1" 
  8753. SetTick(imghandle%,42,
  8754. SetTick(imghandle%,42,
  8755. AlterIcons(
  8756. imagetemp$(5),1,4))),4,imghandle%)
  8757. AlterIcons(
  8758. imagetemp$(5),5,4))),5,imghandle%)
  8759. h& width$=
  8760. imagetemp$(5),10,4)))
  8761. i&height$=
  8762. imagetemp$(5),14,4)))
  8763. imagetemp$(5),9,1)="1" 
  8764. SetTick(imghandle%,50,
  8765. SetTick(imghandle%,50,
  8766. AlterIcons(
  8767. imagetemp$(6),1,2))),32,imghandle%)
  8768. AlterIcons(
  8769. imagetemp$(6),3,2))),33,imghandle%)
  8770. AlterIcons(
  8771. imagetemp$(6),5,2))),15,imghandle%)
  8772. n!align%=
  8773. imagetemp$(6),7,1))
  8774.  align%=0 
  8775. SetTick(imghandle%,27,
  8776. SetTick(imghandle%,27,
  8777.  align%=1 
  8778. SetTick(imghandle%,23,
  8779. SetTick(imghandle%,23,
  8780.  align%=2 
  8781. SetTick(imghandle%,24,
  8782. SetTick(imghandle%,24,
  8783.  align%=3 
  8784. SetTick(imghandle%,25,
  8785. SetTick(imghandle%,25,
  8786.  align%=4 
  8787. SetTick(imghandle%,26,
  8788. SetTick(imghandle%,26,
  8789.  align%=5 
  8790. SetTick(imghandle%,28,
  8791. SetTick(imghandle%,28,
  8792.  align%=6 
  8793. SetTick(imghandle%,29,
  8794. SetTick(imghandle%,29,
  8795.  align%=7 
  8796. SetTick(imghandle%,64,
  8797. SetTick(imghandle%,64,
  8798. CheckRadio(imghandle%,43)>0 
  8799. greyicon(imghandle%,44,
  8800. greyicon(imghandle%,44,
  8801. CheckRadio(imghandle%,56)>0 
  8802. greyicon(imghandle%,53,
  8803. greyicon(imghandle%,53,
  8804. TextGrabber
  8805. menutrack%=27
  8806.  menuitem$(1)="Header: Title"
  8807. )menuitem$(2)="Header: JS description"
  8808. -menuitem$(3)="Header: Search description"
  8809. $menuitem$(4)="Effects: SFX text"
  8810. *menuitem$(5)="Address: JS description"
  8811. %menuitem$(6)="Address: Link text"
  8812. "menuitem$(7)="Links: Link URL"
  8813. #menuitem$(8)="Links: Link text"
  8814. .menuitem$(9)="Links: JS/title description"
  8815. %menuitem$(10)="Images: ALT text_"
  8816. menuitem$(11)=owner$
  8817. menuitem$(12)=nickname$
  8818. menuitem$(13)=email$
  8819. menuitem$(14)=userhome$
  8820.  profiling%=
  8821.    menuitem$(15)=profilename$
  8822. !  menuitem$(16)=profileemail$
  8823.    menuitem$(17)=profilehome$
  8824.  profiling%=
  8825. MakeMenu(17,"Grab text from...") 
  8826. MakeMenu(14,"Grab text from...")
  8827. "Wimp_CreateMenu",,menu%,bl!0,bl!4
  8828. LaunchURL(launchurl$)
  8829. block%!0=256
  8830. block%!12=0
  8831. block%!16=&4af80
  8832.  $(block%+20)=launchurl$+
  8833.  "Wimp_SendMessage",18,block%,0,0
  8834. CreateRemote(remote$)
  8835.  orig$
  8836. endproc%=
  8837. remote$,".")=0 
  8838. warning("Can't find a directory name - aborting"):
  8839. leaf(remote$))>10 
  8840. warning("Application name is too long - must be ten characters or less"):
  8841. leaf(remote$),1)<>"!" 
  8842. warning("Destination must be an application directory - put a ""!"" on the front of your filename!"):
  8843. lower(remote$)=
  8844. lower(
  8845. getstr("HTML3$Dir")) 
  8846. lower(HTML3opt$)<>
  8847. lower(remote$+".resources.") 
  8848. Confirm("Do you want to revert to using the !HTML
  8849.  default options?")>0 
  8850. "XOS_CLI","Set HTML3Options$Path "+remote$+".resources."
  8851. endproc%=
  8852.  endproc%=
  8853. lower(remote$+".resources.")=
  8854. lower(HTML3opt$) 
  8855. warning("You're already using that application, no further action will be taken."):
  8856. lower(
  8857. leaf(remote$))="!html
  8858. warning("Using !HTML
  8859.  as the name of a remote storage application is just asking for trouble - aborting."):
  8860. FileCheck(remote$)=2 
  8861. warning("An application of this name already exists; aborting save"):
  8862. "XOS_File",8,remote$
  8863. FileCheck(remote$)<>2 
  8864. warning("Could not save the application - disc read only?"):
  8865. "XOS_SpriteOp",256+13,appsprites%,block%,256,1 
  8866.  len%
  8867. orig$=
  8868. string(block%)
  8869. "XOS_SpriteOp",256+26,appsprites%,orig$,
  8870. lower(
  8871. leaf(remote$))
  8872. remote$+=".Resources"
  8873. "XOS_File",8,remote$
  8874. FileCheck(remote$)<>2 
  8875. warning("Could not create a directory - aborting."):
  8876. remote$+="."
  8877. CopyFile("BodyPreset")=
  8878. warning("Could not copy file ""BodyPreset"" - aborting."):
  8879. CopyFile("Default")=
  8880. warning("Could not copy file ""Default"" - aborting."):
  8881. CopyFile("Emails")=
  8882. warning("Could not copy file ""Emails"" - aborting."):
  8883. CopyFile("ImageDB")=
  8884. warning("Could not copy file ""ImageDB"" - aborting."):
  8885. CopyFile("Options")=
  8886. warning("Could not copy file ""Options"" - aborting."):
  8887. CopyFile("PalPreset")=
  8888. warning("Could not copy file ""PalPreset"" - aborting."):
  8889. CopyFile("URLs")=
  8890. warning("Could not copy file ""URLs"" - aborting."):
  8891. "XOS_CLI","Wipe "+HTML3opt$+"Users2 ~CF~R~V"
  8892. "XOS_CLI","Copy "+HTML3opt$+"Users "+HTML3opt$+"Users2 ~A~C~DF~L~N~P~Q~R~S~T~V"
  8893. CheckUsers
  8894. SaveUsers
  8895. CopyFile("Users")=
  8896. warning("Could not copy file ""Users"" - aborting."):
  8897. "XOS_CLI","Wipe "+HTML3opt$+"Users ~CF~R~V"
  8898. "XOS_CLI","Copy "+HTML3opt$+"Users2 "+HTML3opt$+"Users ~A~CDF~L~N~P~Q~R~S~T~V"
  8899. LoadUsers
  8900. "XOS_SpriteOp",256+12,appsprites%,remote$+"^.!Sprites"
  8901. output$=remote$+"^.!Run"
  8902. output%=
  8903.  output$
  8904.  output%=0 
  8905. warning("Could not create !Run file - aborting."):
  8906. #output%,"|| !HTML3 remote data application"
  8907. #output%,
  8908. (10)+"IF ""<HTML3$Path>""="""" THEN ERROR ""!HTML
  8909.  hasn't been seen by the filer - please locate !HTML
  8910.  before continuing."""
  8911. #output%,
  8912. (10)+"Set HTML3Options$Path <Obey$Dir>.Resources."
  8913. #output%,"Set HTML3Remote$Path <Obey$Dir>.Resources."
  8914. #output%,"IF ""<HTML3$Running>""="""" THEN Run HTML3:!Run -HTMLRemote"
  8915. #output%
  8916. "XOS_File",18,output$,&FEB
  8917. output$=remote$+"^.!Help"
  8918. output%=
  8919.  output$
  8920.  output%=0 
  8921. warning("Could not create !Help file - aborting.")
  8922. #output%,"!HTML
  8923.  Remote Application for Data Storage"
  8924. #output%,"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
  8925. #output%,"Created: "+
  8926. Time("%WE, %zDY%st %MO %CE%YR")
  8927. #output%,"For: "+owner$+" ("+email$+")"
  8928. #output%,"!HTML
  8929. : v"+SmallVer$+
  8930. #output%,"This application's sole purpose is to collect data"
  8931. #output%,"that would otherwise be saved inside !HTML
  8932.  itself."
  8933. #output%,"This enables the user to have several different"
  8934. #output%,"sets of options, so that each site they work on"
  8935. #output%,"can have its own custom set of data."+
  8936. #output%,"This application therefore requires a copy of"
  8937. #output%,"!HTML
  8938.  to be of any real use (you can find one at"
  8939. #output%,"http://www.goodwin.uk.com/richard/programs/html3/"
  8940. #output%,"if you're interested)."+
  8941. #output%,"Double-click on this application either before"
  8942. #output%,"the main program is loaded to start with your"
  8943. #output%,"prefered options, or while the !HTML
  8944.  is loaded"
  8945. #output%,"to change to the new set."+
  8946. #output%,"Rich Goodwin"
  8947. #output%,"(richard@goodwin.uk.com)"
  8948. #output%
  8949. "XOS_File",18,output$,&FFF
  8950. "XOS_CLI","Iconsprites "+remote$+"^.!Sprites"
  8951. "XOS_CLI","Set HTML3Options$Path "+remote$
  8952. CopyFile(filetocopy$)
  8953. FileCheck(HTML3opt$+filetocopy$)<>1 
  8954. "XOS_FSControl",26,HTML3opt$+filetocopy$,remote$+filetocopy$
  8955. FileCheck(remote$+filetocopy$)<>1 
  8956.