Home » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_15_03.adf » !Organiser_Organiser » !Upgrade/Source

!Upgrade/Source

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_15_03.adf » !Organiser_Organiser
Filename: !Upgrade/Source
Read OK:
File size: 2EC8 bytes
Load address: 0000
Exec address: 0000
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10LIBRARY"Lib:Wimp"
   20LIBRARY "Lib:Icons"
   30LIBRARY "Lib:Menus"
   40LIBRARY "Lib:Misc"
   50LIBRARY "Lib:Windows"
   60sprite$="!Upgrade"
   70DIM scol%(4):scol%(1)=11:scol%(2)=10:scol%(3)=15:scol%(4)=9
   80ON ERROR OSCLI"Error "+REPORT$+" at line "+STR$ERL:SYS"Wimp_CloseDown":END
   90PROCwimp_initialise("Organiser upgrader","<Upgrade$Dir>","1.20 (26 Oct 97)",TRUE)
  100REM Parameters can be found by using FNparameters
  110heap%=FNslotsize(1*1024):PROCheap_init(heap%,slotsize%)
  120ON ERROR PROCerror
  130WHILE NOTquit%
  140  PROCpoll(1)
  150ENDWHILE
  160ON ERROR END
  170SYS"Wimp_CloseDown"
  180END
  190
  200DEFPROCupgrade
  210  LOCAL ERROR
  220  ON ERROR LOCAL RESTORE ERROR:CLOSE#0:SYS"Hourglass_Off":PROCmake_report(REPORT$,FALSE):ENDPROC
  230  SYS"Hourglass_On"
  240  OSCLI"CDir <Upgrade$Dir>.BackUp"
  250  PROCset_slide(5)
  260  PROCprogress(0)
  270
  280  REM Make a back up copy of user's !Organiser
  290  OSCLI"Copy "+oldpath$+" <Upgrade$Dir>.Backup.!Organiser ~c ~v f r"
  300  PROCprogress(1)
  310  backup$="<Upgrade$Dir>.BackUp.!Organiser"
  320
  330  ON ERROR LOCAL RESTORE ERROR:CLOSE#0:SYS"Hourglass_Off":PROCmake_report(REPORT$+STR$ERL,TRUE):ENDPROC
  340
  350  REM Copy new program, templates, resources, etc into user's !Organiser
  360  OSCLI"Copy "+newpath$+" "+oldpath$+" ~c ~v f r"
  370  PROCprogress(2)
  380  PROCdo_upgrade
  390  PROCset_slide(2)
  400  SYS"Hourglass_Off"
  410ENDPROC
  420
  430DEFPROCdo_upgrade
  440  REM verion numbers in brackets are versions when new data was introduced
  450  REM data in [] takes 5 bytes (used PRINT#)
  460  LOCAL read%,write%,A%,B%
  470  REM ******************************************** Settings ***************************************
  480  read%=OPENIN(backup$+".Data.Settings")
  490  write%=OPENOUT(oldpath$+".Data.Settings")
  500  IF oldver%>=110 THEN second_oldver$=GET$#read%:REM Read in old version (not in <1.10)
  510  BPUT#write%,ver$:REM Version stored (v1.10)
  520  PROCtext:REM path
  530  PROCtext:REM owner
  540  multiload%=FNcopy:autoopen%=FNcopy:baricon%=FNcopy:hour24%=FNcopy:autosave%=FNcopy
  550  nsections%=FNcopy:section%=FNcopy:banner%=FNcopy:animation%=FNcopy:auto_BST%=FNcopy
  560  PROCcopy(2+5+5):REM usefonts%,nrings%,[ringf%],[wordtimenow]
  570  IF oldver%<115 THEN
  580    PRINT#write%,-1,0,0,0,0:REM flag+4*default window positions (1.15)
  590    BPUT#write%,-1:REM force icon bar icon to far right (1.15)
  600    BPUT#write%,0:PRINT#write%,500,920:REM allow main window to be resized (1.15)
  610    PROCbput("0,15,8,11,4,4,11,"):REM clock colours (1.15)
  620  ELSE
  630    INPUT#read%,flag%,l%,r%,t%,b%
  640    PRINT#write%,flag%,l%,r%,t%,b%:REM flag+4*default window positions
  650    PROCcopy(1):REM force icon bar
  660    PROCcopy(1):INPUT#read%,w%,h%:PRINT#write%,w%,h%:REM window resizing
  670    PROCcopy(7):REM clock colours
  680  ENDIF
  690  IF oldver%<120 THEN PROCbput("3,7,9,") ELSE PROCcopy(3):REM Digital clock colours (1.20)
  700  IF oldver%<115 THEN
  710    FOR B%=1 TO nsections%
  720      PROCcopy(1):REM section number
  730      BPUT#write%,scol%(B%):BPUT#write%,7:REM tab backgound/foreground colours (1.15)
  740    NEXT
  750  ELSE PROCcopy(nsections%*3):REM section numbers, back/fore colours
  760  ENDIF
  770  IF oldver%<120 THEN BPUT#write%,"%z12:%mi:%se %am. %dy/%mn/%yr" ELSE PROCtext:REM definable clock (1.20)
  780  PROCtext:REM address
  790  PROCtext:REM important numbers string
  800  PROCcopy(3):REM address settings
  810  IF oldver%<120 THEN
  820    BPUT#write%,"mailto:":BPUT#write%,"http://":REM hotlink prefixes  (1.20)
  830    PROCbput("4,8,7,7,7,7,7,7,7,7,7,7,7,11,10,"):REM address colours (1.20)
  840  ELSE PROCtext:PROCtext:PROCcopy(15):REM hotlink prefixes and colours
  850  ENDIF
  860  PROCtext:REM Anniversary
  870  PROCcopy(2):REM Anniversary settings
  880  PROCtext:REM Calendar
  890  PROCcopy(4):REM Calendar settings
  900  PROCtext:REM Diary
  910  PROCcopy(3):REM Diary settings
  920  IF oldver%<110 THEN
  930    PROCfill(2,0):REM 2 new Diary settings, auto_open%, auto_del% (v1.10)
  940  ELSE PROCcopy(2):REM Diary settings
  950  ENDIF
  960  IF oldver%<115 THEN
  970    BPUT#write%,%110:REM default diary dettings (v1.15)
  980  ELSE PROCcopy(1)
  990  ENDIF
 1000  CLOSE#read%:CLOSE#write%
 1010  PROCprogress(3)
 1020  IF oldver%<117 THEN
 1030    REM In version 1.17, Templates were moved into Resources and Messages were added (v1.17)
 1040    OSCLI"Remove "+oldpath$+".Templates"
 1050  ENDIF
 1060  PROCprogress(4)
 1070  REM ******************************************** Addresses ***************************************
 1080  IF oldver%<120 THEN
 1090    REM In version 1.15, the Web page field was
 1100    REM added to the address data base, so for
 1110    REM each address, an extra LF (CHR$10) must
 1120    REM be added to the end.
 1130    REM In versions before 1.20, addresses were sorted in the wrong place
 1140    REM Thefore they have to be loaded in, and sorted before being saved.
 1150    REM Musn't forget to incude extra LF for versions <1.15
 1160    read%=OPENIN(backup$+".Data.Addresses")
 1170    write%=OPENOUT(oldpath$+".Data.Addresses")
 1180    PROCaddress_load
 1190    PROCaddress_save
 1200REM      B%=VALGET$#read%:REM Size of old address
 1210REM      BPUT#write%,STR$(B%+1):REM Size of new address
 1220REM      SYS"OS_GBPB",4,read%,block%,B%-12:REM read in old address
 1230REM      SYS"OS_GBPB",2,write%,block%,B%-12:REM write old address
 1240REM      BPUT#write%,10:REM insert extra Line Feed
 1250    CLOSE#read%:CLOSE#write%
 1260  ELSE OSCLI"Copy "+backup$+".Data.Addresses "+oldpath$+".Data.Addresses ~c ~v f"
 1270  ENDIF
 1280  OSCLI"Copy "+backup$+".Data.Anni "+oldpath$+".Data.Anni ~c ~v f"
 1290  OSCLI"Copy "+backup$+".Data.Diary "+oldpath$+".Data.Diary ~c ~v f"
 1300  OSCLI"Copy "+backup$+".Data.Important "+oldpath$+".Data.Important ~c ~v f"
 1310  PROCprogress(5)
 1320ENDPROC
 1330
 1340DEFPROCfill(N%,C%):LOCALA%:FORA%=1TON%:BPUT#write%,CHR$C%;:NEXT:ENDPROC
 1350
 1360DEFPROCtext:BPUT#write%,GET$#read%:ENDPROC
 1370
 1380DEFPROCcopy(N%):LOCAL A%:FORA%=1TON%:BPUT#write%,BGET#read%:NEXT:ENDPROC
 1390
 1400DEF  FNcopy:LOCAL A%:A%=BGET#read%:BPUT#write%,A%:=A%
 1410
 1420DEFPROCbput(A$)
 1430  WHILE A$<>""
 1440    BPUT#write%,VALA$
 1450    PRINT VALA$
 1460    A$=MID$(A$,INSTR(A$,",")+1)
 1470  ENDWHILE
 1480ENDPROC
 1490
 1500DEFPROCaddress_load
 1510  LOCAL size%,add$(),A%,N%,S%,C%,B%:DIM add$(14):firstadd%=-1
 1520  WHILE NOTEOF#read%
 1530    S%=12:size%=VALGET$#read%:IF oldver%<115 THEN N%=13 ELSE N%=14
 1540    FOR A%=0 TO N%
 1550     add$(A%)=GET$#read%:S%+=LENadd$(A%)+1
 1560    NEXT
 1570    IF N%=13 THEN add$(14)="":N%=14:S%+=1
 1580    C%=FNheap_block_alloc(heap%,S%,TRUE):C%!8=S%:S%=C%+12
 1590    FOR A%=0 TO N%
 1600      $S%=add$(A%)+CHR$10:S%+=LENadd$(A%)+1
 1610    NEXT
 1620    N$=FNrest(add$(0)+" "+add$(1)):B%=firstadd%
 1630    IF B%<>-1 THEN
 1640      WHILE FNrest(FNhline(B%,0)+" "+FNhline(B%,1))<N$ AND B%!4<>-1:B%=B%!4:ENDWHILE
 1650      IF FNrest(FNhline(B%,0)+" "+FNhline(B%,1))>=N$ THEN
 1660        !C%=!B%:C%!4=B%:!B%=C%:IF !C%<>-1 THEN !(!C%+4)=C% ELSE firstadd%=C%
 1670      ELSE
 1680        B%!4=C%:!C%=B%:C%!4=-1
 1690      ENDIF
 1700    ELSE firstadd%=C%:!C%=-1:C%!4=-1
 1710    ENDIF
 1720  ENDWHILE
 1730ENDPROC
 1740
 1750DEFPROCaddress_save
 1760  LOCAL B%:B%=firstadd%
 1770  WHILE B%<>-1
 1780    BPUT#write%,STR$B%!8:SYS"OS_GBPB",2,write%,B%+12,B%!8-12
 1790    B%=B%!4
 1800  ENDWHILE
 1810ENDPROC
 1820
 1830DEF  FNrest(A$)
 1840  LOCAL B%:A$=FNupcase(A$):B%=ASCLEFT$(A$,1)
 1850  WHILE NOT(B%>47 AND B%<58)ANDNOT(B%>64 AND B%<91)ANDA$<>"":A$=MID$(A$,2):B%=ASCLEFT$(A$,1):ENDWHILE
 1860=A$
 1870
 1880DEFFNline(handle%):LOCALA$:A$=GET$#handle%
 1890IF INSTR(A$,CHR$0) THEN A$=LEFT$(A$,INSTR(A$,CHR$0)-1)
 1900IF INSTR(A$,CHR$10) THEN A$=LEFT$(A$,INSTR(A$,CHR$10)-1)
 1910IF INSTR(A$,CHR$13) THEN A$=LEFT$(A$,INSTR(A$,CHR$13)-1)
 1920=A$
 1930
 1940DEFFNhline(B%,L%)
 1950  LOCAL A$:B%+=12:WHILEL%>0:WHILE?B%<>10:B%+=1:ENDWHILE:B%+=1:L%-=1:ENDWHILE
 1960  WHILE?B%<>10:A$+=CHR$?B%:B%+=1:ENDWHILE
 1970=A$
 1980
 1990DEFPROCtask_polldecode
 2000  CASE reason% OF
 2010REM    WHEN  0:PROCtask_poll_null
 2020REM    WHEN  1:PROCpoll_redraw
 2030    WHEN  2:block%!8=block%!16-368:SYS&400C5,,block%:REM Open Window
 2040    WHEN  3:PROCwindow_close(!block%):IF !block%=main% THEN quit%=TRUE
 2050    WHEN  6:PROCtask_poll_click(block%!12,block%!16,block%!8,!block%,block%!4)
 2060    WHEN  7:PROCpoll_dragsave
 2070    WHEN  8:PROCwimp_poll_keypress(!block%,block%!4,block%!24)
 2080    WHEN  9:PROCwimp_poll_menuselect
 2090    WHEN 17,18:PROCtask_poll_message
 2100  ENDCASE
 2110ENDPROC
 2120
 2130DEFPROCpoll_dragsave
 2140  REM Send Message_DataSave (1) to window at mouse coordinates
 2150  IF FNdrag_a_sprite THEN SYS"DragASprite_Stop"
 2160  SYS"Wimp_GetPointerInfo",,block%:block%!20=block%!12:block%!24=block%!16
 2170  block%!28=!block%:block%!32=block%!4:block%!36=0:!block%=64:block%!12=0
 2180  block%!40=&200:$(block%+44)="!Organiser"
 2190  block%!16=1:SYS"Wimp_SendMessage",18,block%,block%!20,block%!24
 2200  IF (block%!8AND1)=0 THEN SYS"Wimp_CreateMenu",,-1
 2210ENDPROC
 2220
 2230DEFPROCtask_poll_message
 2240  CASE block%!16 OF
 2250    WHEN 0:quit%=TRUE
 2260    WHEN 2:PROCpoll_message_datasaveack(FNstring(block%+44))
 2270    WHEN 3:PROCpoll_message_dataload(block%!40,FNstring(block%+44))
 2280    WHEN 8:PROCpoll_message_prequit
 2290  ENDCASE
 2300ENDPROC
 2310
 2320DEFPROCpoll_message_datasaveack(path$)
 2330  SYS"Hourglass_On"
 2340  OSCLI"Copy "+newpath$+" "+path$+" r ~c ~v"
 2350  file%=OPENOUT(path$+".Resources.!Language")
 2360  BPUT#file%,FNicon_text(main%,37)
 2370  CLOSE #file%
 2380  read%=OPENIN(newpath$+".Data.Settings")
 2381  write%=OPENOUT(path$+".Data.Settings")
 2382  PROCtext:PROCtext:A$=GET$#file%:BPUT#write%,FNicon_text(main%,35)
 2383  WHILE NOTEOF#read%:BPUT#write%,BGET#read%:ENDWHILE
 2384  CLOSE#write%
 2385  CLOSE#read%
 2390  SYS"Hourglass_Off"
 2400  SWAP block%!8,block%!12:block%!16=3:SYS"Wimp_SendMessage",18,block%,block%!4
 2410ENDPROC
 2420
 2430DEFFNtask_canweload(type%,path$):REM Return TRUE if you can load the file
 2440=(type%=&2000)
 2450
 2460DEFFNtask_loadfile(type%,path$):REM Load the file and return TRUE if ok
 2470  LOCAL file%
 2480  IF FNgetleaf(path$)="!Organiser"+CHR$0 THEN
 2490    file%=OPENIN(path$+".Data.Settings")
 2500    oldver$=GET$#file%
 2510    CLOSE#file%
 2520    IF VALoldver$=0 THEN oldver$="1.00 (8 Aug 97)"
 2530    oldver%=(VALoldver$)*100:oldpath$=path$
 2540    CASE TRUE OF
 2550      WHEN oldver%<newver%:
 2560        PROCicon_text(main%,7,path$):PROCicon_text(main%,8,"Version "+oldver$)
 2570        PROCicon_shade(main%,10,0):PROCset_slide(1)
 2580      WHEN oldver%=newver%:PROCmake_report("The version you are trying to upgrade is the latest version known to this upgrading application.",FALSE)
 2590      WHEN oldver%>newver%:PROCmake_report("The version you are trying to upgrade is newer than this upgrading application.",FALSE)
 2600    ENDCASE
 2610  ENDIF
 2620=TRUE
 2630
 2640REM ***************  Clicks
 2650
 2660DEFPROCtask_poll_click(window%,icon%,button%,x%,y%)
 2670  CASE window% OF
 2680    WHEN -2:IF button%=2 THEN PROCmenu_open(barm%,!block%-64,-1) ELSE PROCwindow_open(main%,-1,-1)
 2690    WHEN main%:
 2700      IF button%<>2 THEN
 2710        CASE icon% OF
 2720          WHEN 2:PROCset_slide(1)
 2730          WHEN 9:PROCset_slide(0)
 2740          WHEN 10:PROCupgrade
 2750          WHEN 13,19:PROCrestore
 2760          WHEN 14:OSCLI"Filer_Run "+appdir$+".Improv"
 2770          WHEN 15,18,23:quit%=TRUE
 2780          WHEN 20:PROCset_slide(4):PROCicon_caret(main%,35)
 2790          WHEN 24:PROCset_slide(0)
 2800          WHEN 26:IF (button%AND64) THEN PROCdrag_box(main%,26,"!Organiser")
 2810          WHEN 37:PROCnextlanguage(main%,37)
 2820        ENDCASE
 2830      ELSE PROCmenu_open(barm%,!block%-64,block%!4)
 2840      ENDIF
 2850  ENDCASE
 2860ENDPROC
 2870
 2880DEFPROCnextlanguage(w%,i%)
 2890  LOCAL index%,l$,f%,n$,t$,f$,r%:index%=1:l$=FNicon_text(w%,i%)
 2900  REPEAT
 2910    SYS"OS_GBPB",9,newpath$+".Resources",block%,1,index%,256,0 TO ,,,r%,index%
 2920    IF r%=1 THEN
 2930      t$=FNstring(block%)
 2940      IF f$="" THEN f$=t$
 2950      IF f%=TRUE THEN n$=t$
 2960      IF t$=l$ THEN f%=TRUE
 2970    ENDIF
 2980  UNTIL index%=-1 OR n$<>""
 2990  IF n$="" THEN n$=f$
 3000  PROCicon_text(w%,i%,n$)
 3010ENDPROC
 3020
 3030REM ***************  Menus
 3040
 3050DEFPROCtask_poll_menuselect
 3060  CASE menuopen% OF
 3070    WHEN barm%:
 3080      CASE !block% OF
 3090        WHEN 1:quit%=TRUE
 3100      ENDCASE
 3110  ENDCASE
 3120ENDPROC
 3130
 3140REM ***************  Key Presses
 3150
 3160DEFFNtask_poll_keypress(window%,icon%,key%,up%,down%,pup%,pdown%,ent%)
 3170  LOCAL used%:used%=TRUE
 3180  CASE window% OF
 3190  ENDCASE
 3200=used%
 3210
 3220DEFPROCmake_report(A$,F%)
 3230  PROCicon_text(main%,17,A$):PROCicon_hide(main%,19,ABSNOTF%)
 3240  PROCset_slide(3)
 3250ENDPROC
 3260
 3270DEFPROCset_slide(N%)
 3280  !rep%=main%:SYS"Wimp_GetWindowState",,rep%
 3290  rep%!8=rep%!16-368
 3300  rep%!24=N%*-368:SYS"Wimp_OpenWindow",,rep%
 3310ENDPROC
 3320
 3330DEFPROCprogress(N%)
 3340  LOCAL A%
 3350  FOR A%=29 TO 32
 3360    PROCicon_select(main%,A%,-(N%>A%-29))
 3370  NEXT
 3380  PROCpoll(NOT1)
 3390ENDPROC
 3400
 3410DEFPROCrestore
 3420  LOCAL ERROR
 3430  ON ERROR LOCAL RESTORE ERROR:SYS"Hourglass_Off":PROCmake_report(REPORT$,FALSE):ENDPROC
 3440  SYS"Hourglass_On"
 3450  OSCLI"Copy "+backup$+" "+oldpath$+" ~c ~v f r q"
 3460  SYS"Hourglass_Off"
 3470  PROCset_slide(1)
 3480  RESTORE ERROR
 3490ENDPROC
 3500
 3510REM ***************  Initialising
 3520
 3530DEFPROCtask_pre_initialise
 3540  sarea%=FNspritearea(appdir$+".Sprites",0):REM 0=No of extra bytes to reserve
 3550  oldver$="":oldver%=0:newver%=(VALver$)*100:oldpath$="":backup$=""
 3560  newpath$=appdir$+".!Organiser"
 3570ENDPROC
 3580
 3590DEFPROCtask_post_initialise
 3600  PROCicon_text(main%,7,""):PROCicon_text(main%,8,""):PROCicon_shade(main%,10,1)
 3601  PROCicon_text(main%,37,"English")
 3610  PROCset_slide(0)
 3620ENDPROC
 3630
 3640DEFPROCtask_load_windows
 3650  LOCAL P%
 3660  info%=FNwindow_create("Info")
 3670  main%=FNwindow_create("Main")
 3680  SYS"Wimp_LoadTemplate",,0,0,0,0,"Main" TO ,size%
 3690  PROCicon_text(info%,8,ver$)
 3700  PROCwindow_title(main%,P%!72,"Organiser upgrader version "+LEFT$(ver$,4),0)
 3710ENDPROC
 3720
 3730DEFPROCtask_create_menus
 3740 barm%=FNmenu_create("Skeleton"+FNs("Info",info%)+"\Quit")
 3750ENDPROC

ț"Lib:Wimp"
ț "Lib:Icons"
ț "Lib:Menus"
(ț "Lib:Misc"
2ț "Lib:Windows"
<sprite$="!Upgrade"
F=� scol%(4):scol%(1)=11:scol%(2)=10:scol%(3)=15:scol%(4)=9
P8� � �"Error "+�$+" at line "+Þ:ș"Wimp_CloseDown":�
ZO�wimp_initialise("Organiser upgrader","<Upgrade$Dir>","1.20 (26 Oct 97)",�)
d3� Parameters can be found by using FNparameters
n7heap%=�slotsize(1*1024):�heap_init(heap%,slotsize%)
x� � �error
�
ȕ �quit%
�  �poll(1)
��
�	� � �
�ș"Wimp_CloseDown"
��
�
�
��upgrade
�	  � �
�:  � � � � �:�#0:ș"Hourglass_Off":�make_report(�$,�):�
�  ș"Hourglass_On"
�"  �"CDir <Upgrade$Dir>.BackUp"
�  �set_slide(5)
  �progress(0)

0  � Make a back up copy of user's !Organiser
"D  �"Copy "+oldpath$+" <Upgrade$Dir>.Backup.!Organiser ~c ~v f r"
,  �progress(1)
6/  backup$="<Upgrade$Dir>.BackUp.!Organiser"
@
J=  � � � � �:�#0:ș"Hourglass_Off":�make_report(�$+Þ,�):�
T
^J  � Copy new program, templates, resources, etc into user's !Organiser
h1  �"Copy "+newpath$+" "+oldpath$+" ~c ~v f r"
r  �progress(2)
|  �do_upgrade
�  �set_slide(2)
�  ș"Hourglass_Off"
��
�
���do_upgrade
�L  � verion numbers in brackets are versions when new data was introduced
�.  � data in [] takes 5 bytes (used PRINT#)
�  � read%,write%,A%,B%
�e  � ******************************************** Settings ***************************************
�'  read%=�(backup$+".Data.Settings")
�)  write%=�(oldpath$+".Data.Settings")
�R  � oldver%>=110 � second_oldver$=�#read%:� Read in old version (not in <1.10)
�,  �#write%,ver$:� Version stored (v1.10)
  �text:� path
  �text:� owner
S  multiload%=�copy:autoopen%=�copy:baricon%=�copy:hour24%=�copy:autosave%=�copy
&T  nsections%=�copy:section%=�copy:banner%=�copy:animation%=�copy:auto_BST%=�copy
0=  �copy(2+5+5):� usefonts%,nrings%,[ringf%],[wordtimenow]
:  � oldver%<115 �
DD    �#write%,-1,0,0,0,0:� flag+4*default window positions (1.15)
N=    �#write%,-1:� force icon bar icon to far right (1.15)
XL    �#write%,0:�#write%,500,920:� allow main window to be resized (1.15)
b9    �bput("0,15,8,11,4,4,11,"):� clock colours (1.15)
l  �
v!    �#read%,flag%,l%,r%,t%,b%
�D    �#write%,flag%,l%,r%,t%,b%:� flag+4*default window positions
�!    �copy(1):� force icon bar
�?    �copy(1):�#read%,w%,h%:�#write%,w%,h%:� window resizing
�     �copy(7):� clock colours
�  �
�O  � oldver%<120 � �bput("3,7,9,") � �copy(3):� Digital clock colours (1.20)
�  � oldver%<115 �
�    � B%=1 � nsections%
�#      �copy(1):� section number
�Q      �#write%,scol%(B%):�#write%,7:� tab backgound/foreground colours (1.15)
�	    �
�@  � �copy(nsections%*3):� section numbers, back/fore colours
�  �
_  � oldver%<120 � �#write%,"%z12:%mi:%se %am. %dy/%mn/%yr" � �text:� definable clock (1.20)
  �text:� address
&  �text:� important numbers string
 !  �copy(3):� address settings
*  � oldver%<120 �
4H    �#write%,"mailto:":�#write%,"http://":� hotlink prefixes  (1.20)
>J    �bput("4,8,7,7,7,7,7,7,7,7,7,7,7,11,10,"):� address colours (1.20)
H<  � �text:�text:�copy(15):� hotlink prefixes and colours
R  �
\  �text:� Anniversary
f%  �copy(2):� Anniversary settings
p  �text:� Calendar
z"  �copy(4):� Calendar settings
�  �text:� Diary
�  �copy(3):� Diary settings
�  � oldver%<110 �
�H    �fill(2,0):� 2 new Diary settings, auto_open%, auto_del% (v1.10)
�!  � �copy(2):� Diary settings
�  �
�  � oldver%<115 �
�6    �#write%,%110:� default diary dettings (v1.15)
�  � �copy(1)
�  �
�  �#read%:�#write%
�  �progress(3)
�  � oldver%<117 �
^    � In version 1.17, Templates were moved into Resources and Messages were added (v1.17)
(    �"Remove "+oldpath$+".Templates"
  �
$  �progress(4)
.f  � ******************************************** Addresses ***************************************
8  � oldver%<120 �
B1    � In version 1.15, the Web page field was
L0    � added to the address data base, so for
V1    � each address, an extra LF (CHR$10) must
`    � be added to the end.
jK    � In versions before 1.20, addresses were sorted in the wrong place
tK    � Thefore they have to be loaded in, and sorted before being saved.
~=    � Musn't forget to incude extra LF for versions <1.15
�*    read%=�(backup$+".Data.Addresses")
�,    write%=�(oldpath$+".Data.Addresses")
�    �address_load
�    �address_save
�3�      B%=VALGET$#read%:REM Size of old address
�9�      BPUT#write%,STR$(B%+1):REM Size of new address
�D�      SYS"OS_GBPB",4,read%,block%,B%-12:REM read in old address
�C�      SYS"OS_GBPB",2,write%,block%,B%-12:REM write old address
�4�      BPUT#write%,10:REM insert extra Line Feed
�    �#read%:�#write%
�N  � �"Copy "+backup$+".Data.Addresses "+oldpath$+".Data.Addresses ~c ~v f"
�  �
B  �"Copy "+backup$+".Data.Anni "+oldpath$+".Data.Anni ~c ~v f"

D  �"Copy "+backup$+".Data.Diary "+oldpath$+".Data.Diary ~c ~v f"
L  �"Copy "+backup$+".Data.Important "+oldpath$+".Data.Important ~c ~v f"
  �progress(5)
(�
2
<0��fill(N%,C%):�A%:�A%=1�N%:�#write%,�C%;:�:�
F
P��text:�#write%,�#read%:�
Z
d1��copy(N%):� A%:�A%=1�N%:�#write%,�#read%:�:�
n
x,�  �copy:� A%:A%=�#read%:�#write%,A%:=A%
�
���bput(A$)
�  ȕ A$<>""
�    �#write%,�A$
�
    � �A$
�    A$=�A$,�A$,",")+1)
�  �
��
�
���address_load
�;  � size%,add$(),A%,N%,S%,C%,B%:� add$(14):firstadd%=-1
�  ȕ ��#read%
�:    S%=12:size%=��#read%:� oldver%<115 � N%=13 � N%=14
    � A%=0 � N%
)     add$(A%)=�#read%:S%+=�add$(A%)+1
	    �
")    � N%=13 � add$(14)="":N%=14:S%+=1
,9    C%=�heap_block_alloc(heap%,S%,�):C%!8=S%:S%=C%+12
6    � A%=0 � N%
@*      $S%=add$(A%)+�10:S%+=�add$(A%)+1
J	    �
T2    N$=�rest(add$(0)+" "+add$(1)):B%=firstadd%
^    � B%<>-1 �
hI      ȕ �rest(�hline(B%,0)+" "+�hline(B%,1))<N$ � B%!4<>-1:B%=B%!4:�
r6      � �rest(�hline(B%,0)+" "+�hline(B%,1))>=N$ �
|I        !C%=!B%:C%!4=B%:!B%=C%:� !C%<>-1 � !(!C%+4)=C% � firstadd%=C%
�      �
�"        B%!4=C%:!C%=B%:C%!4=-1
�      �
�%    � firstadd%=C%:!C%=-1:C%!4=-1
�	    �
�  �
��
�
���address_save
�  � B%:B%=firstadd%
�  ȕ B%<>-1
�9    �#write%,�B%!8:ș"OS_GBPB",2,write%,B%+12,B%!8-12
�    B%=B%!4
  �
�

&�  �rest(A$)
0$  � B%:A$=�upcase(A$):B%=��A$,1)
:H  ȕ �(B%>47 � B%<58)��(B%>64 � B%<91)�A$<>"":A$=�A$,2):B%=��A$,1):�
D=A$
N
X$ݤline(handle%):�A$:A$=�#handle%
b!� �A$,�0) � A$=�A$,�A$,�0)-1)
l#� �A$,�10) � A$=�A$,�A$,�10)-1)
v#� �A$,�13) � A$=�A$,�A$,�13)-1)
�=A$
�
�ݤhline(B%,L%)
�8  � A$:B%+=12:ȕL%>0:ȕ?B%<>10:B%+=1:�:B%+=1:L%-=1:�
�   ȕ?B%<>10:A$+=�?B%:B%+=1:�
�=A$
�
���task_polldecode
�  Ȏ reason% �
�#�    WHEN  0:PROCtask_poll_null
� �    WHEN  1:PROCpoll_redraw
�B    �  2:block%!8=block%!16-368:ș&400C5,,block%:� Open Window
�=    �  3:�window_close(!block%):� !block%=main% � quit%=�
L    �  6:�task_poll_click(block%!12,block%!16,block%!8,!block%,block%!4)
    �  7:�poll_dragsave
<    �  8:�wimp_poll_keypress(!block%,block%!4,block%!24)
 "    �  9:�wimp_poll_menuselect
*"    � 17,18:�task_poll_message
4  �
>�
H
R��poll_dragsave
\@  � Send Message_DataSave (1) to window at mouse coordinates
f-  � �drag_a_sprite � ș"DragASprite_Stop"
pM  ș"Wimp_GetPointerInfo",,block%:block%!20=block%!12:block%!24=block%!16
zM  block%!28=!block%:block%!32=block%!4:block%!36=0:!block%=64:block%!12=0
�.  block%!40=&200:$(block%+44)="!Organiser"
�D  block%!16=1:ș"Wimp_SendMessage",18,block%,block%!20,block%!24
�0  � (block%!8�1)=0 � ș"Wimp_CreateMenu",,-1
��
�
���task_poll_message
�  Ȏ block%!16 �
�    � 0:quit%=�
�9    � 2:�poll_message_datasaveack(�string(block%+44))
�@    � 3:�poll_message_dataload(block%!40,�string(block%+44))
�!    � 8:�poll_message_prequit
�  �
��
	
	%��poll_message_datasaveack(path$)
	  ș"Hourglass_On"
	$,  �"Copy "+newpath$+" "+path$+" r ~c ~v"
	.+  file%=�(path$+".Resources.!Language")
	8"  �#file%,�icon_text(main%,37)
	B  � #file%
	L(  read%=�(newpath$+".Data.Settings")
	M&  write%=�(path$+".Data.Settings")
	N:  �text:�text:A$=�#file%:�#write%,�icon_text(main%,35)
	O$  ȕ ��#read%:�#write%,�#read%:�
	P  �#write%
	Q
  �#read%
	V  ș"Hourglass_Off"
	`O  Ȕ block%!8,block%!12:block%!16=3:ș"Wimp_SendMessage",18,block%,block%!4
	j�
	t
	~Hݤtask_canweload(type%,path$):� Return TRUE if you can load the file
	�=(type%=&2000)
	�
	�Fݤtask_loadfile(type%,path$):� Load the file and return TRUE if ok
	�
  � file%
	�)  � �getleaf(path$)="!Organiser"+�0 �
	�'    file%=�(path$+".Data.Settings")
	�    oldver$=�#file%
	�    �#file%
	�0    � �oldver$=0 � oldver$="1.00 (8 Aug 97)"
	�-    oldver%=(�oldver$)*100:oldpath$=path$
	�    Ȏ � �
	�      � oldver%<newver%:
L        �icon_text(main%,7,path$):�icon_text(main%,8,"Version "+oldver$)

1        �icon_shade(main%,10,0):�set_slide(1)
�      � oldver%=newver%:�make_report("The version you are trying to upgrade is the latest version known to this upgrading application.",�)
}      � oldver%>newver%:�make_report("The version you are trying to upgrade is newer than this upgrading application.",�)
(	    �
2  �
<=�
F
P� ***************  Clicks
Z
d2��task_poll_click(window%,icon%,button%,x%,y%)
n  Ȏ window% �
xV    � -2:� button%=2 � �menu_open(barm%,!block%-64,-1) � �window_open(main%,-1,-1)
�    � main%:
�      � button%<>2 �
�        Ȏ icon% �
�          � 2:�set_slide(1)
�          � 9:�set_slide(0)
�          � 10:�upgrade
�          � 13,19:�restore
�2          � 14:�"Filer_Run "+appdir$+".Improv"
�           � 15,18,23:quit%=�
�6          � 20:�set_slide(4):�icon_caret(main%,35)
�           � 24:�set_slide(0)
�D          � 26:� (button%�64) � �drag_box(main%,26,"!Organiser")
�*          � 37:�nextlanguage(main%,37)

        �
1      � �menu_open(barm%,!block%-64,block%!4)
      �
"  �
,�
6
@��nextlanguage(w%,i%)
J>  � index%,l$,f%,n$,t$,f$,r%:index%=1:l$=�icon_text(w%,i%)
T  �
^P    ș"OS_GBPB",9,newpath$+".Resources",block%,1,index%,256,0 � ,,,r%,index%
h    � r%=1 �
r      t$=�string(block%)
|      � f$="" � f$=t$
�      � f%=� � n$=t$
�      � t$=l$ � f%=�
�	    �
�  � index%=-1 � n$<>""
�  � n$="" � n$=f$
�  �icon_text(w%,i%,n$)
��
�
�� ***************  Menus
�
���task_poll_menuselect
�  Ȏ menuopen% �
�    � barm%:
      Ȏ !block% �
        � 1:quit%=�
      �
&  �
0�
:
D"� ***************  Key Presses
N
XGݤtask_poll_keypress(window%,icon%,key%,up%,down%,pup%,pdown%,ent%)
b  � used%:used%=�
l  Ȏ window% �
v  �
�
=used%
�
���make_report(A$,F%)
�7  �icon_text(main%,17,A$):�icon_hide(main%,19,��F%)
�  �set_slide(3)
��
�
���set_slide(N%)
�/  !rep%=main%:ș"Wimp_GetWindowState",,rep%
�  rep%!8=rep%!16-368
�/  rep%!24=N%*-368:ș"Wimp_OpenWindow",,rep%
��
�

��progress(N%)


  � A%

  � A%=29 � 32

 *    �icon_select(main%,A%,-(N%>A%-29))

*  �

4  �poll(�1)

>�

H

R
��restore

\	  � �

f6  � � � � �:ș"Hourglass_Off":�make_report(�$,�):�

p  ș"Hourglass_On"

z2  �"Copy "+backup$+" "+oldpath$+" ~c ~v f r q"

�  ș"Hourglass_Off"

�  �set_slide(1)

�	  � �

��

�

�#� ***************  Initialising

�

���task_pre_initialise

�O  sarea%=�spritearea(appdir$+".Sprites",0):� 0=No of extra bytes to reserve

�E  oldver$="":oldver%=0:newver%=(�ver$)*100:oldpath$="":backup$=""

�$  newpath$=appdir$+".!Organiser"

��

�
��task_post_initialise
K  �icon_text(main%,7,""):�icon_text(main%,8,""):�icon_shade(main%,10,1)
$  �icon_text(main%,37,"English")
  �set_slide(0)
$�
.
8��task_load_windows
B
  � P%
L"  info%=�window_create("Info")
V"  main%=�window_create("Main")
`4  ș"Wimp_LoadTemplate",,0,0,0,0,"Main" � ,size%
j  �icon_text(info%,8,ver$)
tI  �window_title(main%,P%!72,"Organiser upgrader version "+�ver$,4),0)
~�
�
���task_create_menus
�< barm%=�menu_create("Skeleton"+�s("Info",info%)+"\Quit")
��
�
00000000  0d 00 0a 10 c8 9b 22 4c  69 62 3a 57 69 6d 70 22  |......"Lib:Wimp"|
00000010  0d 00 14 12 c8 9b 20 22  4c 69 62 3a 49 63 6f 6e  |...... "Lib:Icon|
00000020  73 22 0d 00 1e 12 c8 9b  20 22 4c 69 62 3a 4d 65  |s"...... "Lib:Me|
00000030  6e 75 73 22 0d 00 28 11  c8 9b 20 22 4c 69 62 3a  |nus"..(... "Lib:|
00000040  4d 69 73 63 22 0d 00 32  14 c8 9b 20 22 4c 69 62  |Misc"..2... "Lib|
00000050  3a 57 69 6e 64 6f 77 73  22 0d 00 3c 16 73 70 72  |:Windows"..<.spr|
00000060  69 74 65 24 3d 22 21 55  70 67 72 61 64 65 22 0d  |ite$="!Upgrade".|
00000070  00 46 3d de 20 73 63 6f  6c 25 28 34 29 3a 73 63  |.F=. scol%(4):sc|
00000080  6f 6c 25 28 31 29 3d 31  31 3a 73 63 6f 6c 25 28  |ol%(1)=11:scol%(|
00000090  32 29 3d 31 30 3a 73 63  6f 6c 25 28 33 29 3d 31  |2)=10:scol%(3)=1|
000000a0  35 3a 73 63 6f 6c 25 28  34 29 3d 39 0d 00 50 38  |5:scol%(4)=9..P8|
000000b0  ee 20 85 20 ff 22 45 72  72 6f 72 20 22 2b f6 24  |. . ."Error "+.$|
000000c0  2b 22 20 61 74 20 6c 69  6e 65 20 22 2b c3 9e 3a  |+" at line "+..:|
000000d0  c8 99 22 57 69 6d 70 5f  43 6c 6f 73 65 44 6f 77  |.."Wimp_CloseDow|
000000e0  6e 22 3a e0 0d 00 5a 4f  f2 77 69 6d 70 5f 69 6e  |n":...ZO.wimp_in|
000000f0  69 74 69 61 6c 69 73 65  28 22 4f 72 67 61 6e 69  |itialise("Organi|
00000100  73 65 72 20 75 70 67 72  61 64 65 72 22 2c 22 3c  |ser upgrader","<|
00000110  55 70 67 72 61 64 65 24  44 69 72 3e 22 2c 22 31  |Upgrade$Dir>","1|
00000120  2e 32 30 20 28 32 36 20  4f 63 74 20 39 37 29 22  |.20 (26 Oct 97)"|
00000130  2c b9 29 0d 00 64 33 f4  20 50 61 72 61 6d 65 74  |,.)..d3. Paramet|
00000140  65 72 73 20 63 61 6e 20  62 65 20 66 6f 75 6e 64  |ers can be found|
00000150  20 62 79 20 75 73 69 6e  67 20 46 4e 70 61 72 61  | by using FNpara|
00000160  6d 65 74 65 72 73 0d 00  6e 37 68 65 61 70 25 3d  |meters..n7heap%=|
00000170  a4 73 6c 6f 74 73 69 7a  65 28 31 2a 31 30 32 34  |.slotsize(1*1024|
00000180  29 3a f2 68 65 61 70 5f  69 6e 69 74 28 68 65 61  |):.heap_init(hea|
00000190  70 25 2c 73 6c 6f 74 73  69 7a 65 25 29 0d 00 78  |p%,slotsize%)..x|
000001a0  0e ee 20 85 20 f2 65 72  72 6f 72 0d 00 82 0d c8  |.. . .error.....|
000001b0  95 20 ac 71 75 69 74 25  0d 00 8c 0e 20 20 f2 70  |. .quit%....  .p|
000001c0  6f 6c 6c 28 31 29 0d 00  96 05 ce 0d 00 a0 09 ee  |oll(1)..........|
000001d0  20 85 20 e0 0d 00 aa 16  c8 99 22 57 69 6d 70 5f  | . ......."Wimp_|
000001e0  43 6c 6f 73 65 44 6f 77  6e 22 0d 00 b4 05 e0 0d  |CloseDown"......|
000001f0  00 be 04 0d 00 c8 0d dd  f2 75 70 67 72 61 64 65  |.........upgrade|
00000200  0d 00 d2 09 20 20 ea 20  85 0d 00 dc 3a 20 20 ee  |....  . ....:  .|
00000210  20 85 20 ea 20 f7 20 85  3a d9 23 30 3a c8 99 22  | . . . .:.#0:.."|
00000220  48 6f 75 72 67 6c 61 73  73 5f 4f 66 66 22 3a f2  |Hourglass_Off":.|
00000230  6d 61 6b 65 5f 72 65 70  6f 72 74 28 f6 24 2c a3  |make_report(.$,.|
00000240  29 3a e1 0d 00 e6 16 20  20 c8 99 22 48 6f 75 72  |):.....  .."Hour|
00000250  67 6c 61 73 73 5f 4f 6e  22 0d 00 f0 22 20 20 ff  |glass_On"..."  .|
00000260  22 43 44 69 72 20 3c 55  70 67 72 61 64 65 24 44  |"CDir <Upgrade$D|
00000270  69 72 3e 2e 42 61 63 6b  55 70 22 0d 00 fa 13 20  |ir>.BackUp".... |
00000280  20 f2 73 65 74 5f 73 6c  69 64 65 28 35 29 0d 01  | .set_slide(5)..|
00000290  04 12 20 20 f2 70 72 6f  67 72 65 73 73 28 30 29  |..  .progress(0)|
000002a0  0d 01 0e 04 0d 01 18 30  20 20 f4 20 4d 61 6b 65  |.......0  . Make|
000002b0  20 61 20 62 61 63 6b 20  75 70 20 63 6f 70 79 20  | a back up copy |
000002c0  6f 66 20 75 73 65 72 27  73 20 21 4f 72 67 61 6e  |of user's !Organ|
000002d0  69 73 65 72 0d 01 22 44  20 20 ff 22 43 6f 70 79  |iser.."D  ."Copy|
000002e0  20 22 2b 6f 6c 64 70 61  74 68 24 2b 22 20 3c 55  | "+oldpath$+" <U|
000002f0  70 67 72 61 64 65 24 44  69 72 3e 2e 42 61 63 6b  |pgrade$Dir>.Back|
00000300  75 70 2e 21 4f 72 67 61  6e 69 73 65 72 20 7e 63  |up.!Organiser ~c|
00000310  20 7e 76 20 66 20 72 22  0d 01 2c 12 20 20 f2 70  | ~v f r"..,.  .p|
00000320  72 6f 67 72 65 73 73 28  31 29 0d 01 36 2f 20 20  |rogress(1)..6/  |
00000330  62 61 63 6b 75 70 24 3d  22 3c 55 70 67 72 61 64  |backup$="<Upgrad|
00000340  65 24 44 69 72 3e 2e 42  61 63 6b 55 70 2e 21 4f  |e$Dir>.BackUp.!O|
00000350  72 67 61 6e 69 73 65 72  22 0d 01 40 04 0d 01 4a  |rganiser"..@...J|
00000360  3d 20 20 ee 20 85 20 ea  20 f7 20 85 3a d9 23 30  |=  . . . . .:.#0|
00000370  3a c8 99 22 48 6f 75 72  67 6c 61 73 73 5f 4f 66  |:.."Hourglass_Of|
00000380  66 22 3a f2 6d 61 6b 65  5f 72 65 70 6f 72 74 28  |f":.make_report(|
00000390  f6 24 2b c3 9e 2c b9 29  3a e1 0d 01 54 04 0d 01  |.$+..,.):...T...|
000003a0  5e 4a 20 20 f4 20 43 6f  70 79 20 6e 65 77 20 70  |^J  . Copy new p|
000003b0  72 6f 67 72 61 6d 2c 20  74 65 6d 70 6c 61 74 65  |rogram, template|
000003c0  73 2c 20 72 65 73 6f 75  72 63 65 73 2c 20 65 74  |s, resources, et|
000003d0  63 20 69 6e 74 6f 20 75  73 65 72 27 73 20 21 4f  |c into user's !O|
000003e0  72 67 61 6e 69 73 65 72  0d 01 68 31 20 20 ff 22  |rganiser..h1  ."|
000003f0  43 6f 70 79 20 22 2b 6e  65 77 70 61 74 68 24 2b  |Copy "+newpath$+|
00000400  22 20 22 2b 6f 6c 64 70  61 74 68 24 2b 22 20 7e  |" "+oldpath$+" ~|
00000410  63 20 7e 76 20 66 20 72  22 0d 01 72 12 20 20 f2  |c ~v f r"..r.  .|
00000420  70 72 6f 67 72 65 73 73  28 32 29 0d 01 7c 11 20  |progress(2)..|. |
00000430  20 f2 64 6f 5f 75 70 67  72 61 64 65 0d 01 86 13  | .do_upgrade....|
00000440  20 20 f2 73 65 74 5f 73  6c 69 64 65 28 32 29 0d  |  .set_slide(2).|
00000450  01 90 17 20 20 c8 99 22  48 6f 75 72 67 6c 61 73  |...  .."Hourglas|
00000460  73 5f 4f 66 66 22 0d 01  9a 05 e1 0d 01 a4 04 0d  |s_Off"..........|
00000470  01 ae 10 dd f2 64 6f 5f  75 70 67 72 61 64 65 0d  |.....do_upgrade.|
00000480  01 b8 4c 20 20 f4 20 76  65 72 69 6f 6e 20 6e 75  |..L  . verion nu|
00000490  6d 62 65 72 73 20 69 6e  20 62 72 61 63 6b 65 74  |mbers in bracket|
000004a0  73 20 61 72 65 20 76 65  72 73 69 6f 6e 73 20 77  |s are versions w|
000004b0  68 65 6e 20 6e 65 77 20  64 61 74 61 20 77 61 73  |hen new data was|
000004c0  20 69 6e 74 72 6f 64 75  63 65 64 0d 01 c2 2e 20  | introduced.... |
000004d0  20 f4 20 64 61 74 61 20  69 6e 20 5b 5d 20 74 61  | . data in [] ta|
000004e0  6b 65 73 20 35 20 62 79  74 65 73 20 28 75 73 65  |kes 5 bytes (use|
000004f0  64 20 50 52 49 4e 54 23  29 0d 01 cc 1a 20 20 ea  |d PRINT#)....  .|
00000500  20 72 65 61 64 25 2c 77  72 69 74 65 25 2c 41 25  | read%,write%,A%|
00000510  2c 42 25 0d 01 d6 65 20  20 f4 20 2a 2a 2a 2a 2a  |,B%...e  . *****|
00000520  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000540  2a 2a 2a 2a 2a 2a 2a 20  53 65 74 74 69 6e 67 73  |******* Settings|
00000550  20 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  | ***************|
00000560  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000570  2a 2a 2a 2a 2a 2a 2a 2a  0d 01 e0 27 20 20 72 65  |********...'  re|
00000580  61 64 25 3d 8e 28 62 61  63 6b 75 70 24 2b 22 2e  |ad%=.(backup$+".|
00000590  44 61 74 61 2e 53 65 74  74 69 6e 67 73 22 29 0d  |Data.Settings").|
000005a0  01 ea 29 20 20 77 72 69  74 65 25 3d ae 28 6f 6c  |..)  write%=.(ol|
000005b0  64 70 61 74 68 24 2b 22  2e 44 61 74 61 2e 53 65  |dpath$+".Data.Se|
000005c0  74 74 69 6e 67 73 22 29  0d 01 f4 52 20 20 e7 20  |ttings")...R  . |
000005d0  6f 6c 64 76 65 72 25 3e  3d 31 31 30 20 8c 20 73  |oldver%>=110 . s|
000005e0  65 63 6f 6e 64 5f 6f 6c  64 76 65 72 24 3d be 23  |econd_oldver$=.#|
000005f0  72 65 61 64 25 3a f4 20  52 65 61 64 20 69 6e 20  |read%:. Read in |
00000600  6f 6c 64 20 76 65 72 73  69 6f 6e 20 28 6e 6f 74  |old version (not|
00000610  20 69 6e 20 3c 31 2e 31  30 29 0d 01 fe 2c 20 20  | in <1.10)...,  |
00000620  d5 23 77 72 69 74 65 25  2c 76 65 72 24 3a f4 20  |.#write%,ver$:. |
00000630  56 65 72 73 69 6f 6e 20  73 74 6f 72 65 64 20 28  |Version stored (|
00000640  76 31 2e 31 30 29 0d 02  08 12 20 20 f2 74 65 78  |v1.10)....  .tex|
00000650  74 3a f4 20 70 61 74 68  0d 02 12 13 20 20 f2 74  |t:. path....  .t|
00000660  65 78 74 3a f4 20 6f 77  6e 65 72 0d 02 1c 53 20  |ext:. owner...S |
00000670  20 6d 75 6c 74 69 6c 6f  61 64 25 3d a4 63 6f 70  | multiload%=.cop|
00000680  79 3a 61 75 74 6f 6f 70  65 6e 25 3d a4 63 6f 70  |y:autoopen%=.cop|
00000690  79 3a 62 61 72 69 63 6f  6e 25 3d a4 63 6f 70 79  |y:baricon%=.copy|
000006a0  3a 68 6f 75 72 32 34 25  3d a4 63 6f 70 79 3a 61  |:hour24%=.copy:a|
000006b0  75 74 6f 73 61 76 65 25  3d a4 63 6f 70 79 0d 02  |utosave%=.copy..|
000006c0  26 54 20 20 6e 73 65 63  74 69 6f 6e 73 25 3d a4  |&T  nsections%=.|
000006d0  63 6f 70 79 3a 73 65 63  74 69 6f 6e 25 3d a4 63  |copy:section%=.c|
000006e0  6f 70 79 3a 62 61 6e 6e  65 72 25 3d a4 63 6f 70  |opy:banner%=.cop|
000006f0  79 3a 61 6e 69 6d 61 74  69 6f 6e 25 3d a4 63 6f  |y:animation%=.co|
00000700  70 79 3a 61 75 74 6f 5f  42 53 54 25 3d a4 63 6f  |py:auto_BST%=.co|
00000710  70 79 0d 02 30 3d 20 20  f2 63 6f 70 79 28 32 2b  |py..0=  .copy(2+|
00000720  35 2b 35 29 3a f4 20 75  73 65 66 6f 6e 74 73 25  |5+5):. usefonts%|
00000730  2c 6e 72 69 6e 67 73 25  2c 5b 72 69 6e 67 66 25  |,nrings%,[ringf%|
00000740  5d 2c 5b 77 6f 72 64 74  69 6d 65 6e 6f 77 5d 0d  |],[wordtimenow].|
00000750  02 3a 15 20 20 e7 20 6f  6c 64 76 65 72 25 3c 31  |.:.  . oldver%<1|
00000760  31 35 20 8c 0d 02 44 44  20 20 20 20 f1 23 77 72  |15 ...DD    .#wr|
00000770  69 74 65 25 2c 2d 31 2c  30 2c 30 2c 30 2c 30 3a  |ite%,-1,0,0,0,0:|
00000780  f4 20 66 6c 61 67 2b 34  2a 64 65 66 61 75 6c 74  |. flag+4*default|
00000790  20 77 69 6e 64 6f 77 20  70 6f 73 69 74 69 6f 6e  | window position|
000007a0  73 20 28 31 2e 31 35 29  0d 02 4e 3d 20 20 20 20  |s (1.15)..N=    |
000007b0  d5 23 77 72 69 74 65 25  2c 2d 31 3a f4 20 66 6f  |.#write%,-1:. fo|
000007c0  72 63 65 20 69 63 6f 6e  20 62 61 72 20 69 63 6f  |rce icon bar ico|
000007d0  6e 20 74 6f 20 66 61 72  20 72 69 67 68 74 20 28  |n to far right (|
000007e0  31 2e 31 35 29 0d 02 58  4c 20 20 20 20 d5 23 77  |1.15)..XL    .#w|
000007f0  72 69 74 65 25 2c 30 3a  f1 23 77 72 69 74 65 25  |rite%,0:.#write%|
00000800  2c 35 30 30 2c 39 32 30  3a f4 20 61 6c 6c 6f 77  |,500,920:. allow|
00000810  20 6d 61 69 6e 20 77 69  6e 64 6f 77 20 74 6f 20  | main window to |
00000820  62 65 20 72 65 73 69 7a  65 64 20 28 31 2e 31 35  |be resized (1.15|
00000830  29 0d 02 62 39 20 20 20  20 f2 62 70 75 74 28 22  |)..b9    .bput("|
00000840  30 2c 31 35 2c 38 2c 31  31 2c 34 2c 34 2c 31 31  |0,15,8,11,4,4,11|
00000850  2c 22 29 3a f4 20 63 6c  6f 63 6b 20 63 6f 6c 6f  |,"):. clock colo|
00000860  75 72 73 20 28 31 2e 31  35 29 0d 02 6c 07 20 20  |urs (1.15)..l.  |
00000870  cc 0d 02 76 21 20 20 20  20 e8 23 72 65 61 64 25  |...v!    .#read%|
00000880  2c 66 6c 61 67 25 2c 6c  25 2c 72 25 2c 74 25 2c  |,flag%,l%,r%,t%,|
00000890  62 25 0d 02 80 44 20 20  20 20 f1 23 77 72 69 74  |b%...D    .#writ|
000008a0  65 25 2c 66 6c 61 67 25  2c 6c 25 2c 72 25 2c 74  |e%,flag%,l%,r%,t|
000008b0  25 2c 62 25 3a f4 20 66  6c 61 67 2b 34 2a 64 65  |%,b%:. flag+4*de|
000008c0  66 61 75 6c 74 20 77 69  6e 64 6f 77 20 70 6f 73  |fault window pos|
000008d0  69 74 69 6f 6e 73 0d 02  8a 21 20 20 20 20 f2 63  |itions...!    .c|
000008e0  6f 70 79 28 31 29 3a f4  20 66 6f 72 63 65 20 69  |opy(1):. force i|
000008f0  63 6f 6e 20 62 61 72 0d  02 94 3f 20 20 20 20 f2  |con bar...?    .|
00000900  63 6f 70 79 28 31 29 3a  e8 23 72 65 61 64 25 2c  |copy(1):.#read%,|
00000910  77 25 2c 68 25 3a f1 23  77 72 69 74 65 25 2c 77  |w%,h%:.#write%,w|
00000920  25 2c 68 25 3a f4 20 77  69 6e 64 6f 77 20 72 65  |%,h%:. window re|
00000930  73 69 7a 69 6e 67 0d 02  9e 20 20 20 20 20 f2 63  |sizing...     .c|
00000940  6f 70 79 28 37 29 3a f4  20 63 6c 6f 63 6b 20 63  |opy(7):. clock c|
00000950  6f 6c 6f 75 72 73 0d 02  a8 07 20 20 cd 0d 02 b2  |olours....  ....|
00000960  4f 20 20 e7 20 6f 6c 64  76 65 72 25 3c 31 32 30  |O  . oldver%<120|
00000970  20 8c 20 f2 62 70 75 74  28 22 33 2c 37 2c 39 2c  | . .bput("3,7,9,|
00000980  22 29 20 8b 20 f2 63 6f  70 79 28 33 29 3a f4 20  |") . .copy(3):. |
00000990  44 69 67 69 74 61 6c 20  63 6c 6f 63 6b 20 63 6f  |Digital clock co|
000009a0  6c 6f 75 72 73 20 28 31  2e 32 30 29 0d 02 bc 15  |lours (1.20)....|
000009b0  20 20 e7 20 6f 6c 64 76  65 72 25 3c 31 31 35 20  |  . oldver%<115 |
000009c0  8c 0d 02 c6 1b 20 20 20  20 e3 20 42 25 3d 31 20  |.....    . B%=1 |
000009d0  b8 20 6e 73 65 63 74 69  6f 6e 73 25 0d 02 d0 23  |. nsections%...#|
000009e0  20 20 20 20 20 20 f2 63  6f 70 79 28 31 29 3a f4  |      .copy(1):.|
000009f0  20 73 65 63 74 69 6f 6e  20 6e 75 6d 62 65 72 0d  | section number.|
00000a00  02 da 51 20 20 20 20 20  20 d5 23 77 72 69 74 65  |..Q      .#write|
00000a10  25 2c 73 63 6f 6c 25 28  42 25 29 3a d5 23 77 72  |%,scol%(B%):.#wr|
00000a20  69 74 65 25 2c 37 3a f4  20 74 61 62 20 62 61 63  |ite%,7:. tab bac|
00000a30  6b 67 6f 75 6e 64 2f 66  6f 72 65 67 72 6f 75 6e  |kgound/foregroun|
00000a40  64 20 63 6f 6c 6f 75 72  73 20 28 31 2e 31 35 29  |d colours (1.15)|
00000a50  0d 02 e4 09 20 20 20 20  ed 0d 02 ee 40 20 20 cc  |....    ....@  .|
00000a60  20 f2 63 6f 70 79 28 6e  73 65 63 74 69 6f 6e 73  | .copy(nsections|
00000a70  25 2a 33 29 3a f4 20 73  65 63 74 69 6f 6e 20 6e  |%*3):. section n|
00000a80  75 6d 62 65 72 73 2c 20  62 61 63 6b 2f 66 6f 72  |umbers, back/for|
00000a90  65 20 63 6f 6c 6f 75 72  73 0d 02 f8 07 20 20 cd  |e colours....  .|
00000aa0  0d 03 02 5f 20 20 e7 20  6f 6c 64 76 65 72 25 3c  |..._  . oldver%<|
00000ab0  31 32 30 20 8c 20 d5 23  77 72 69 74 65 25 2c 22  |120 . .#write%,"|
00000ac0  25 7a 31 32 3a 25 6d 69  3a 25 73 65 20 25 61 6d  |%z12:%mi:%se %am|
00000ad0  2e 20 25 64 79 2f 25 6d  6e 2f 25 79 72 22 20 8b  |. %dy/%mn/%yr" .|
00000ae0  20 f2 74 65 78 74 3a f4  20 64 65 66 69 6e 61 62  | .text:. definab|
00000af0  6c 65 20 63 6c 6f 63 6b  20 28 31 2e 32 30 29 0d  |le clock (1.20).|
00000b00  03 0c 15 20 20 f2 74 65  78 74 3a f4 20 61 64 64  |...  .text:. add|
00000b10  72 65 73 73 0d 03 16 26  20 20 f2 74 65 78 74 3a  |ress...&  .text:|
00000b20  f4 20 69 6d 70 6f 72 74  61 6e 74 20 6e 75 6d 62  |. important numb|
00000b30  65 72 73 20 73 74 72 69  6e 67 0d 03 20 21 20 20  |ers string.. !  |
00000b40  f2 63 6f 70 79 28 33 29  3a f4 20 61 64 64 72 65  |.copy(3):. addre|
00000b50  73 73 20 73 65 74 74 69  6e 67 73 0d 03 2a 15 20  |ss settings..*. |
00000b60  20 e7 20 6f 6c 64 76 65  72 25 3c 31 32 30 20 8c  | . oldver%<120 .|
00000b70  0d 03 34 48 20 20 20 20  d5 23 77 72 69 74 65 25  |..4H    .#write%|
00000b80  2c 22 6d 61 69 6c 74 6f  3a 22 3a d5 23 77 72 69  |,"mailto:":.#wri|
00000b90  74 65 25 2c 22 68 74 74  70 3a 2f 2f 22 3a f4 20  |te%,"http://":. |
00000ba0  68 6f 74 6c 69 6e 6b 20  70 72 65 66 69 78 65 73  |hotlink prefixes|
00000bb0  20 20 28 31 2e 32 30 29  0d 03 3e 4a 20 20 20 20  |  (1.20)..>J    |
00000bc0  f2 62 70 75 74 28 22 34  2c 38 2c 37 2c 37 2c 37  |.bput("4,8,7,7,7|
00000bd0  2c 37 2c 37 2c 37 2c 37  2c 37 2c 37 2c 37 2c 37  |,7,7,7,7,7,7,7,7|
00000be0  2c 31 31 2c 31 30 2c 22  29 3a f4 20 61 64 64 72  |,11,10,"):. addr|
00000bf0  65 73 73 20 63 6f 6c 6f  75 72 73 20 28 31 2e 32  |ess colours (1.2|
00000c00  30 29 0d 03 48 3c 20 20  cc 20 f2 74 65 78 74 3a  |0)..H<  . .text:|
00000c10  f2 74 65 78 74 3a f2 63  6f 70 79 28 31 35 29 3a  |.text:.copy(15):|
00000c20  f4 20 68 6f 74 6c 69 6e  6b 20 70 72 65 66 69 78  |. hotlink prefix|
00000c30  65 73 20 61 6e 64 20 63  6f 6c 6f 75 72 73 0d 03  |es and colours..|
00000c40  52 07 20 20 cd 0d 03 5c  19 20 20 f2 74 65 78 74  |R.  ...\.  .text|
00000c50  3a f4 20 41 6e 6e 69 76  65 72 73 61 72 79 0d 03  |:. Anniversary..|
00000c60  66 25 20 20 f2 63 6f 70  79 28 32 29 3a f4 20 41  |f%  .copy(2):. A|
00000c70  6e 6e 69 76 65 72 73 61  72 79 20 73 65 74 74 69  |nniversary setti|
00000c80  6e 67 73 0d 03 70 16 20  20 f2 74 65 78 74 3a f4  |ngs..p.  .text:.|
00000c90  20 43 61 6c 65 6e 64 61  72 0d 03 7a 22 20 20 f2  | Calendar..z"  .|
00000ca0  63 6f 70 79 28 34 29 3a  f4 20 43 61 6c 65 6e 64  |copy(4):. Calend|
00000cb0  61 72 20 73 65 74 74 69  6e 67 73 0d 03 84 13 20  |ar settings.... |
00000cc0  20 f2 74 65 78 74 3a f4  20 44 69 61 72 79 0d 03  | .text:. Diary..|
00000cd0  8e 1f 20 20 f2 63 6f 70  79 28 33 29 3a f4 20 44  |..  .copy(3):. D|
00000ce0  69 61 72 79 20 73 65 74  74 69 6e 67 73 0d 03 98  |iary settings...|
00000cf0  15 20 20 e7 20 6f 6c 64  76 65 72 25 3c 31 31 30  |.  . oldver%<110|
00000d00  20 8c 0d 03 a2 48 20 20  20 20 f2 66 69 6c 6c 28  | ....H    .fill(|
00000d10  32 2c 30 29 3a f4 20 32  20 6e 65 77 20 44 69 61  |2,0):. 2 new Dia|
00000d20  72 79 20 73 65 74 74 69  6e 67 73 2c 20 61 75 74  |ry settings, aut|
00000d30  6f 5f 6f 70 65 6e 25 2c  20 61 75 74 6f 5f 64 65  |o_open%, auto_de|
00000d40  6c 25 20 28 76 31 2e 31  30 29 0d 03 ac 21 20 20  |l% (v1.10)...!  |
00000d50  cc 20 f2 63 6f 70 79 28  32 29 3a f4 20 44 69 61  |. .copy(2):. Dia|
00000d60  72 79 20 73 65 74 74 69  6e 67 73 0d 03 b6 07 20  |ry settings.... |
00000d70  20 cd 0d 03 c0 15 20 20  e7 20 6f 6c 64 76 65 72  | .....  . oldver|
00000d80  25 3c 31 31 35 20 8c 0d  03 ca 36 20 20 20 20 d5  |%<115 ....6    .|
00000d90  23 77 72 69 74 65 25 2c  25 31 31 30 3a f4 20 64  |#write%,%110:. d|
00000da0  65 66 61 75 6c 74 20 64  69 61 72 79 20 64 65 74  |efault diary det|
00000db0  74 69 6e 67 73 20 28 76  31 2e 31 35 29 0d 03 d4  |tings (v1.15)...|
00000dc0  10 20 20 cc 20 f2 63 6f  70 79 28 31 29 0d 03 de  |.  . .copy(1)...|
00000dd0  07 20 20 cd 0d 03 e8 16  20 20 d9 23 72 65 61 64  |.  .....  .#read|
00000de0  25 3a d9 23 77 72 69 74  65 25 0d 03 f2 12 20 20  |%:.#write%....  |
00000df0  f2 70 72 6f 67 72 65 73  73 28 33 29 0d 03 fc 15  |.progress(3)....|
00000e00  20 20 e7 20 6f 6c 64 76  65 72 25 3c 31 31 37 20  |  . oldver%<117 |
00000e10  8c 0d 04 06 5e 20 20 20  20 f4 20 49 6e 20 76 65  |....^    . In ve|
00000e20  72 73 69 6f 6e 20 31 2e  31 37 2c 20 54 65 6d 70  |rsion 1.17, Temp|
00000e30  6c 61 74 65 73 20 77 65  72 65 20 6d 6f 76 65 64  |lates were moved|
00000e40  20 69 6e 74 6f 20 52 65  73 6f 75 72 63 65 73 20  | into Resources |
00000e50  61 6e 64 20 4d 65 73 73  61 67 65 73 20 77 65 72  |and Messages wer|
00000e60  65 20 61 64 64 65 64 20  28 76 31 2e 31 37 29 0d  |e added (v1.17).|
00000e70  04 10 28 20 20 20 20 ff  22 52 65 6d 6f 76 65 20  |..(    ."Remove |
00000e80  22 2b 6f 6c 64 70 61 74  68 24 2b 22 2e 54 65 6d  |"+oldpath$+".Tem|
00000e90  70 6c 61 74 65 73 22 0d  04 1a 07 20 20 cd 0d 04  |plates"....  ...|
00000ea0  24 12 20 20 f2 70 72 6f  67 72 65 73 73 28 34 29  |$.  .progress(4)|
00000eb0  0d 04 2e 66 20 20 f4 20  2a 2a 2a 2a 2a 2a 2a 2a  |...f  . ********|
00000ec0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000ee0  2a 2a 2a 2a 20 41 64 64  72 65 73 73 65 73 20 2a  |**** Addresses *|
00000ef0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000f10  2a 2a 2a 2a 2a 2a 0d 04  38 15 20 20 e7 20 6f 6c  |******..8.  . ol|
00000f20  64 76 65 72 25 3c 31 32  30 20 8c 0d 04 42 31 20  |dver%<120 ...B1 |
00000f30  20 20 20 f4 20 49 6e 20  76 65 72 73 69 6f 6e 20  |   . In version |
00000f40  31 2e 31 35 2c 20 74 68  65 20 57 65 62 20 70 61  |1.15, the Web pa|
00000f50  67 65 20 66 69 65 6c 64  20 77 61 73 0d 04 4c 30  |ge field was..L0|
00000f60  20 20 20 20 f4 20 61 64  64 65 64 20 74 6f 20 74  |    . added to t|
00000f70  68 65 20 61 64 64 72 65  73 73 20 64 61 74 61 20  |he address data |
00000f80  62 61 73 65 2c 20 73 6f  20 66 6f 72 0d 04 56 31  |base, so for..V1|
00000f90  20 20 20 20 f4 20 65 61  63 68 20 61 64 64 72 65  |    . each addre|
00000fa0  73 73 2c 20 61 6e 20 65  78 74 72 61 20 4c 46 20  |ss, an extra LF |
00000fb0  28 43 48 52 24 31 30 29  20 6d 75 73 74 0d 04 60  |(CHR$10) must..`|
00000fc0  1e 20 20 20 20 f4 20 62  65 20 61 64 64 65 64 20  |.    . be added |
00000fd0  74 6f 20 74 68 65 20 65  6e 64 2e 0d 04 6a 4b 20  |to the end...jK |
00000fe0  20 20 20 f4 20 49 6e 20  76 65 72 73 69 6f 6e 73  |   . In versions|
00000ff0  20 62 65 66 6f 72 65 20  31 2e 32 30 2c 20 61 64  | before 1.20, ad|
00001000  64 72 65 73 73 65 73 20  77 65 72 65 20 73 6f 72  |dresses were sor|
00001010  74 65 64 20 69 6e 20 74  68 65 20 77 72 6f 6e 67  |ted in the wrong|
00001020  20 70 6c 61 63 65 0d 04  74 4b 20 20 20 20 f4 20  | place..tK    . |
00001030  54 68 65 66 6f 72 65 20  74 68 65 79 20 68 61 76  |Thefore they hav|
00001040  65 20 74 6f 20 62 65 20  6c 6f 61 64 65 64 20 69  |e to be loaded i|
00001050  6e 2c 20 61 6e 64 20 73  6f 72 74 65 64 20 62 65  |n, and sorted be|
00001060  66 6f 72 65 20 62 65 69  6e 67 20 73 61 76 65 64  |fore being saved|
00001070  2e 0d 04 7e 3d 20 20 20  20 f4 20 4d 75 73 6e 27  |...~=    . Musn'|
00001080  74 20 66 6f 72 67 65 74  20 74 6f 20 69 6e 63 75  |t forget to incu|
00001090  64 65 20 65 78 74 72 61  20 4c 46 20 66 6f 72 20  |de extra LF for |
000010a0  76 65 72 73 69 6f 6e 73  20 3c 31 2e 31 35 0d 04  |versions <1.15..|
000010b0  88 2a 20 20 20 20 72 65  61 64 25 3d 8e 28 62 61  |.*    read%=.(ba|
000010c0  63 6b 75 70 24 2b 22 2e  44 61 74 61 2e 41 64 64  |ckup$+".Data.Add|
000010d0  72 65 73 73 65 73 22 29  0d 04 92 2c 20 20 20 20  |resses")...,    |
000010e0  77 72 69 74 65 25 3d ae  28 6f 6c 64 70 61 74 68  |write%=.(oldpath|
000010f0  24 2b 22 2e 44 61 74 61  2e 41 64 64 72 65 73 73  |$+".Data.Address|
00001100  65 73 22 29 0d 04 9c 15  20 20 20 20 f2 61 64 64  |es")....    .add|
00001110  72 65 73 73 5f 6c 6f 61  64 0d 04 a6 15 20 20 20  |ress_load....   |
00001120  20 f2 61 64 64 72 65 73  73 5f 73 61 76 65 0d 04  | .address_save..|
00001130  b0 33 f4 20 20 20 20 20  20 42 25 3d 56 41 4c 47  |.3.      B%=VALG|
00001140  45 54 24 23 72 65 61 64  25 3a 52 45 4d 20 53 69  |ET$#read%:REM Si|
00001150  7a 65 20 6f 66 20 6f 6c  64 20 61 64 64 72 65 73  |ze of old addres|
00001160  73 0d 04 ba 39 f4 20 20  20 20 20 20 42 50 55 54  |s...9.      BPUT|
00001170  23 77 72 69 74 65 25 2c  53 54 52 24 28 42 25 2b  |#write%,STR$(B%+|
00001180  31 29 3a 52 45 4d 20 53  69 7a 65 20 6f 66 20 6e  |1):REM Size of n|
00001190  65 77 20 61 64 64 72 65  73 73 0d 04 c4 44 f4 20  |ew address...D. |
000011a0  20 20 20 20 20 53 59 53  22 4f 53 5f 47 42 50 42  |     SYS"OS_GBPB|
000011b0  22 2c 34 2c 72 65 61 64  25 2c 62 6c 6f 63 6b 25  |",4,read%,block%|
000011c0  2c 42 25 2d 31 32 3a 52  45 4d 20 72 65 61 64 20  |,B%-12:REM read |
000011d0  69 6e 20 6f 6c 64 20 61  64 64 72 65 73 73 0d 04  |in old address..|
000011e0  ce 43 f4 20 20 20 20 20  20 53 59 53 22 4f 53 5f  |.C.      SYS"OS_|
000011f0  47 42 50 42 22 2c 32 2c  77 72 69 74 65 25 2c 62  |GBPB",2,write%,b|
00001200  6c 6f 63 6b 25 2c 42 25  2d 31 32 3a 52 45 4d 20  |lock%,B%-12:REM |
00001210  77 72 69 74 65 20 6f 6c  64 20 61 64 64 72 65 73  |write old addres|
00001220  73 0d 04 d8 34 f4 20 20  20 20 20 20 42 50 55 54  |s...4.      BPUT|
00001230  23 77 72 69 74 65 25 2c  31 30 3a 52 45 4d 20 69  |#write%,10:REM i|
00001240  6e 73 65 72 74 20 65 78  74 72 61 20 4c 69 6e 65  |nsert extra Line|
00001250  20 46 65 65 64 0d 04 e2  18 20 20 20 20 d9 23 72  | Feed....    .#r|
00001260  65 61 64 25 3a d9 23 77  72 69 74 65 25 0d 04 ec  |ead%:.#write%...|
00001270  4e 20 20 cc 20 ff 22 43  6f 70 79 20 22 2b 62 61  |N  . ."Copy "+ba|
00001280  63 6b 75 70 24 2b 22 2e  44 61 74 61 2e 41 64 64  |ckup$+".Data.Add|
00001290  72 65 73 73 65 73 20 22  2b 6f 6c 64 70 61 74 68  |resses "+oldpath|
000012a0  24 2b 22 2e 44 61 74 61  2e 41 64 64 72 65 73 73  |$+".Data.Address|
000012b0  65 73 20 7e 63 20 7e 76  20 66 22 0d 04 f6 07 20  |es ~c ~v f".... |
000012c0  20 cd 0d 05 00 42 20 20  ff 22 43 6f 70 79 20 22  | ....B  ."Copy "|
000012d0  2b 62 61 63 6b 75 70 24  2b 22 2e 44 61 74 61 2e  |+backup$+".Data.|
000012e0  41 6e 6e 69 20 22 2b 6f  6c 64 70 61 74 68 24 2b  |Anni "+oldpath$+|
000012f0  22 2e 44 61 74 61 2e 41  6e 6e 69 20 7e 63 20 7e  |".Data.Anni ~c ~|
00001300  76 20 66 22 0d 05 0a 44  20 20 ff 22 43 6f 70 79  |v f"...D  ."Copy|
00001310  20 22 2b 62 61 63 6b 75  70 24 2b 22 2e 44 61 74  | "+backup$+".Dat|
00001320  61 2e 44 69 61 72 79 20  22 2b 6f 6c 64 70 61 74  |a.Diary "+oldpat|
00001330  68 24 2b 22 2e 44 61 74  61 2e 44 69 61 72 79 20  |h$+".Data.Diary |
00001340  7e 63 20 7e 76 20 66 22  0d 05 14 4c 20 20 ff 22  |~c ~v f"...L  ."|
00001350  43 6f 70 79 20 22 2b 62  61 63 6b 75 70 24 2b 22  |Copy "+backup$+"|
00001360  2e 44 61 74 61 2e 49 6d  70 6f 72 74 61 6e 74 20  |.Data.Important |
00001370  22 2b 6f 6c 64 70 61 74  68 24 2b 22 2e 44 61 74  |"+oldpath$+".Dat|
00001380  61 2e 49 6d 70 6f 72 74  61 6e 74 20 7e 63 20 7e  |a.Important ~c ~|
00001390  76 20 66 22 0d 05 1e 12  20 20 f2 70 72 6f 67 72  |v f"....  .progr|
000013a0  65 73 73 28 35 29 0d 05  28 05 e1 0d 05 32 04 0d  |ess(5)..(....2..|
000013b0  05 3c 30 dd f2 66 69 6c  6c 28 4e 25 2c 43 25 29  |.<0..fill(N%,C%)|
000013c0  3a ea 41 25 3a e3 41 25  3d 31 b8 4e 25 3a d5 23  |:.A%:.A%=1.N%:.#|
000013d0  77 72 69 74 65 25 2c bd  43 25 3b 3a ed 3a e1 0d  |write%,.C%;:.:..|
000013e0  05 46 04 0d 05 50 1d dd  f2 74 65 78 74 3a d5 23  |.F...P...text:.#|
000013f0  77 72 69 74 65 25 2c be  23 72 65 61 64 25 3a e1  |write%,.#read%:.|
00001400  0d 05 5a 04 0d 05 64 31  dd f2 63 6f 70 79 28 4e  |..Z...d1..copy(N|
00001410  25 29 3a ea 20 41 25 3a  e3 41 25 3d 31 b8 4e 25  |%):. A%:.A%=1.N%|
00001420  3a d5 23 77 72 69 74 65  25 2c 9a 23 72 65 61 64  |:.#write%,.#read|
00001430  25 3a ed 3a e1 0d 05 6e  04 0d 05 78 2c dd 20 20  |%:.:...n...x,.  |
00001440  a4 63 6f 70 79 3a ea 20  41 25 3a 41 25 3d 9a 23  |.copy:. A%:A%=.#|
00001450  72 65 61 64 25 3a d5 23  77 72 69 74 65 25 2c 41  |read%:.#write%,A|
00001460  25 3a 3d 41 25 0d 05 82  04 0d 05 8c 0e dd f2 62  |%:=A%..........b|
00001470  70 75 74 28 41 24 29 0d  05 96 0f 20 20 c8 95 20  |put(A$)....  .. |
00001480  41 24 3c 3e 22 22 0d 05  a0 14 20 20 20 20 d5 23  |A$<>""....    .#|
00001490  77 72 69 74 65 25 2c bb  41 24 0d 05 aa 0d 20 20  |write%,.A$....  |
000014a0  20 20 f1 20 bb 41 24 0d  05 b4 1a 20 20 20 20 41  |  . .A$....    A|
000014b0  24 3d c1 41 24 2c a7 41  24 2c 22 2c 22 29 2b 31  |$=.A$,.A$,",")+1|
000014c0  29 0d 05 be 07 20 20 ce  0d 05 c8 05 e1 0d 05 d2  |)....  .........|
000014d0  04 0d 05 dc 12 dd f2 61  64 64 72 65 73 73 5f 6c  |.......address_l|
000014e0  6f 61 64 0d 05 e6 3b 20  20 ea 20 73 69 7a 65 25  |oad...;  . size%|
000014f0  2c 61 64 64 24 28 29 2c  41 25 2c 4e 25 2c 53 25  |,add$(),A%,N%,S%|
00001500  2c 43 25 2c 42 25 3a de  20 61 64 64 24 28 31 34  |,C%,B%:. add$(14|
00001510  29 3a 66 69 72 73 74 61  64 64 25 3d 2d 31 0d 05  |):firstadd%=-1..|
00001520  f0 11 20 20 c8 95 20 ac  c5 23 72 65 61 64 25 0d  |..  .. ..#read%.|
00001530  05 fa 3a 20 20 20 20 53  25 3d 31 32 3a 73 69 7a  |..:    S%=12:siz|
00001540  65 25 3d bb be 23 72 65  61 64 25 3a e7 20 6f 6c  |e%=..#read%:. ol|
00001550  64 76 65 72 25 3c 31 31  35 20 8c 20 4e 25 3d 31  |dver%<115 . N%=1|
00001560  33 20 8b 20 4e 25 3d 31  34 0d 06 04 13 20 20 20  |3 . N%=14....   |
00001570  20 e3 20 41 25 3d 30 20  b8 20 4e 25 0d 06 0e 29  | . A%=0 . N%...)|
00001580  20 20 20 20 20 61 64 64  24 28 41 25 29 3d be 23  |     add$(A%)=.#|
00001590  72 65 61 64 25 3a 53 25  2b 3d a9 61 64 64 24 28  |read%:S%+=.add$(|
000015a0  41 25 29 2b 31 0d 06 18  09 20 20 20 20 ed 0d 06  |A%)+1....    ...|
000015b0  22 29 20 20 20 20 e7 20  4e 25 3d 31 33 20 8c 20  |")    . N%=13 . |
000015c0  61 64 64 24 28 31 34 29  3d 22 22 3a 4e 25 3d 31  |add$(14)="":N%=1|
000015d0  34 3a 53 25 2b 3d 31 0d  06 2c 39 20 20 20 20 43  |4:S%+=1..,9    C|
000015e0  25 3d a4 68 65 61 70 5f  62 6c 6f 63 6b 5f 61 6c  |%=.heap_block_al|
000015f0  6c 6f 63 28 68 65 61 70  25 2c 53 25 2c b9 29 3a  |loc(heap%,S%,.):|
00001600  43 25 21 38 3d 53 25 3a  53 25 3d 43 25 2b 31 32  |C%!8=S%:S%=C%+12|
00001610  0d 06 36 13 20 20 20 20  e3 20 41 25 3d 30 20 b8  |..6.    . A%=0 .|
00001620  20 4e 25 0d 06 40 2a 20  20 20 20 20 20 24 53 25  | N%..@*      $S%|
00001630  3d 61 64 64 24 28 41 25  29 2b bd 31 30 3a 53 25  |=add$(A%)+.10:S%|
00001640  2b 3d a9 61 64 64 24 28  41 25 29 2b 31 0d 06 4a  |+=.add$(A%)+1..J|
00001650  09 20 20 20 20 ed 0d 06  54 32 20 20 20 20 4e 24  |.    ...T2    N$|
00001660  3d a4 72 65 73 74 28 61  64 64 24 28 30 29 2b 22  |=.rest(add$(0)+"|
00001670  20 22 2b 61 64 64 24 28  31 29 29 3a 42 25 3d 66  | "+add$(1)):B%=f|
00001680  69 72 73 74 61 64 64 25  0d 06 5e 12 20 20 20 20  |irstadd%..^.    |
00001690  e7 20 42 25 3c 3e 2d 31  20 8c 0d 06 68 49 20 20  |. B%<>-1 ...hI  |
000016a0  20 20 20 20 c8 95 20 a4  72 65 73 74 28 a4 68 6c  |    .. .rest(.hl|
000016b0  69 6e 65 28 42 25 2c 30  29 2b 22 20 22 2b a4 68  |ine(B%,0)+" "+.h|
000016c0  6c 69 6e 65 28 42 25 2c  31 29 29 3c 4e 24 20 80  |line(B%,1))<N$ .|
000016d0  20 42 25 21 34 3c 3e 2d  31 3a 42 25 3d 42 25 21  | B%!4<>-1:B%=B%!|
000016e0  34 3a ce 0d 06 72 36 20  20 20 20 20 20 e7 20 a4  |4:...r6      . .|
000016f0  72 65 73 74 28 a4 68 6c  69 6e 65 28 42 25 2c 30  |rest(.hline(B%,0|
00001700  29 2b 22 20 22 2b a4 68  6c 69 6e 65 28 42 25 2c  |)+" "+.hline(B%,|
00001710  31 29 29 3e 3d 4e 24 20  8c 0d 06 7c 49 20 20 20  |1))>=N$ ...|I   |
00001720  20 20 20 20 20 21 43 25  3d 21 42 25 3a 43 25 21  |     !C%=!B%:C%!|
00001730  34 3d 42 25 3a 21 42 25  3d 43 25 3a e7 20 21 43  |4=B%:!B%=C%:. !C|
00001740  25 3c 3e 2d 31 20 8c 20  21 28 21 43 25 2b 34 29  |%<>-1 . !(!C%+4)|
00001750  3d 43 25 20 8b 20 66 69  72 73 74 61 64 64 25 3d  |=C% . firstadd%=|
00001760  43 25 0d 06 86 0b 20 20  20 20 20 20 cc 0d 06 90  |C%....      ....|
00001770  22 20 20 20 20 20 20 20  20 42 25 21 34 3d 43 25  |"        B%!4=C%|
00001780  3a 21 43 25 3d 42 25 3a  43 25 21 34 3d 2d 31 0d  |:!C%=B%:C%!4=-1.|
00001790  06 9a 0b 20 20 20 20 20  20 cd 0d 06 a4 25 20 20  |...      ....%  |
000017a0  20 20 cc 20 66 69 72 73  74 61 64 64 25 3d 43 25  |  . firstadd%=C%|
000017b0  3a 21 43 25 3d 2d 31 3a  43 25 21 34 3d 2d 31 0d  |:!C%=-1:C%!4=-1.|
000017c0  06 ae 09 20 20 20 20 cd  0d 06 b8 07 20 20 ce 0d  |...    .....  ..|
000017d0  06 c2 05 e1 0d 06 cc 04  0d 06 d6 12 dd f2 61 64  |..............ad|
000017e0  64 72 65 73 73 5f 73 61  76 65 0d 06 e0 17 20 20  |dress_save....  |
000017f0  ea 20 42 25 3a 42 25 3d  66 69 72 73 74 61 64 64  |. B%:B%=firstadd|
00001800  25 0d 06 ea 0f 20 20 c8  95 20 42 25 3c 3e 2d 31  |%....  .. B%<>-1|
00001810  0d 06 f4 39 20 20 20 20  d5 23 77 72 69 74 65 25  |...9    .#write%|
00001820  2c c3 42 25 21 38 3a c8  99 22 4f 53 5f 47 42 50  |,.B%!8:.."OS_GBP|
00001830  42 22 2c 32 2c 77 72 69  74 65 25 2c 42 25 2b 31  |B",2,write%,B%+1|
00001840  32 2c 42 25 21 38 2d 31  32 0d 06 fe 0f 20 20 20  |2,B%!8-12....   |
00001850  20 42 25 3d 42 25 21 34  0d 07 08 07 20 20 ce 0d  | B%=B%!4....  ..|
00001860  07 12 05 e1 0d 07 1c 04  0d 07 26 10 dd 20 20 a4  |..........&..  .|
00001870  72 65 73 74 28 41 24 29  0d 07 30 24 20 20 ea 20  |rest(A$)..0$  . |
00001880  42 25 3a 41 24 3d a4 75  70 63 61 73 65 28 41 24  |B%:A$=.upcase(A$|
00001890  29 3a 42 25 3d 97 c0 41  24 2c 31 29 0d 07 3a 48  |):B%=..A$,1)..:H|
000018a0  20 20 c8 95 20 ac 28 42  25 3e 34 37 20 80 20 42  |  .. .(B%>47 . B|
000018b0  25 3c 35 38 29 80 ac 28  42 25 3e 36 34 20 80 20  |%<58)..(B%>64 . |
000018c0  42 25 3c 39 31 29 80 41  24 3c 3e 22 22 3a 41 24  |B%<91).A$<>"":A$|
000018d0  3d c1 41 24 2c 32 29 3a  42 25 3d 97 c0 41 24 2c  |=.A$,2):B%=..A$,|
000018e0  31 29 3a ce 0d 07 44 07  3d 41 24 0d 07 4e 04 0d  |1):...D.=A$..N..|
000018f0  07 58 24 dd a4 6c 69 6e  65 28 68 61 6e 64 6c 65  |.X$..line(handle|
00001900  25 29 3a ea 41 24 3a 41  24 3d be 23 68 61 6e 64  |%):.A$:A$=.#hand|
00001910  6c 65 25 0d 07 62 21 e7  20 a7 41 24 2c bd 30 29  |le%..b!. .A$,.0)|
00001920  20 8c 20 41 24 3d c0 41  24 2c a7 41 24 2c bd 30  | . A$=.A$,.A$,.0|
00001930  29 2d 31 29 0d 07 6c 23  e7 20 a7 41 24 2c bd 31  |)-1)..l#. .A$,.1|
00001940  30 29 20 8c 20 41 24 3d  c0 41 24 2c a7 41 24 2c  |0) . A$=.A$,.A$,|
00001950  bd 31 30 29 2d 31 29 0d  07 76 23 e7 20 a7 41 24  |.10)-1)..v#. .A$|
00001960  2c bd 31 33 29 20 8c 20  41 24 3d c0 41 24 2c a7  |,.13) . A$=.A$,.|
00001970  41 24 2c bd 31 33 29 2d  31 29 0d 07 80 07 3d 41  |A$,.13)-1)....=A|
00001980  24 0d 07 8a 04 0d 07 94  12 dd a4 68 6c 69 6e 65  |$..........hline|
00001990  28 42 25 2c 4c 25 29 0d  07 9e 38 20 20 ea 20 41  |(B%,L%)...8  . A|
000019a0  24 3a 42 25 2b 3d 31 32  3a c8 95 4c 25 3e 30 3a  |$:B%+=12:..L%>0:|
000019b0  c8 95 3f 42 25 3c 3e 31  30 3a 42 25 2b 3d 31 3a  |..?B%<>10:B%+=1:|
000019c0  ce 3a 42 25 2b 3d 31 3a  4c 25 2d 3d 31 3a ce 0d  |.:B%+=1:L%-=1:..|
000019d0  07 a8 20 20 20 c8 95 3f  42 25 3c 3e 31 30 3a 41  |..   ..?B%<>10:A|
000019e0  24 2b 3d bd 3f 42 25 3a  42 25 2b 3d 31 3a ce 0d  |$+=.?B%:B%+=1:..|
000019f0  07 b2 07 3d 41 24 0d 07  bc 04 0d 07 c6 15 dd f2  |...=A$..........|
00001a00  74 61 73 6b 5f 70 6f 6c  6c 64 65 63 6f 64 65 0d  |task_polldecode.|
00001a10  07 d0 12 20 20 c8 8e 20  72 65 61 73 6f 6e 25 20  |...  .. reason% |
00001a20  ca 0d 07 da 23 f4 20 20  20 20 57 48 45 4e 20 20  |....#.    WHEN  |
00001a30  30 3a 50 52 4f 43 74 61  73 6b 5f 70 6f 6c 6c 5f  |0:PROCtask_poll_|
00001a40  6e 75 6c 6c 0d 07 e4 20  f4 20 20 20 20 57 48 45  |null... .    WHE|
00001a50  4e 20 20 31 3a 50 52 4f  43 70 6f 6c 6c 5f 72 65  |N  1:PROCpoll_re|
00001a60  64 72 61 77 0d 07 ee 42  20 20 20 20 c9 20 20 32  |draw...B    .  2|
00001a70  3a 62 6c 6f 63 6b 25 21  38 3d 62 6c 6f 63 6b 25  |:block%!8=block%|
00001a80  21 31 36 2d 33 36 38 3a  c8 99 26 34 30 30 43 35  |!16-368:..&400C5|
00001a90  2c 2c 62 6c 6f 63 6b 25  3a f4 20 4f 70 65 6e 20  |,,block%:. Open |
00001aa0  57 69 6e 64 6f 77 0d 07  f8 3d 20 20 20 20 c9 20  |Window...=    . |
00001ab0  20 33 3a f2 77 69 6e 64  6f 77 5f 63 6c 6f 73 65  | 3:.window_close|
00001ac0  28 21 62 6c 6f 63 6b 25  29 3a e7 20 21 62 6c 6f  |(!block%):. !blo|
00001ad0  63 6b 25 3d 6d 61 69 6e  25 20 8c 20 71 75 69 74  |ck%=main% . quit|
00001ae0  25 3d b9 0d 08 02 4c 20  20 20 20 c9 20 20 36 3a  |%=....L    .  6:|
00001af0  f2 74 61 73 6b 5f 70 6f  6c 6c 5f 63 6c 69 63 6b  |.task_poll_click|
00001b00  28 62 6c 6f 63 6b 25 21  31 32 2c 62 6c 6f 63 6b  |(block%!12,block|
00001b10  25 21 31 36 2c 62 6c 6f  63 6b 25 21 38 2c 21 62  |%!16,block%!8,!b|
00001b20  6c 6f 63 6b 25 2c 62 6c  6f 63 6b 25 21 34 29 0d  |lock%,block%!4).|
00001b30  08 0c 1b 20 20 20 20 c9  20 20 37 3a f2 70 6f 6c  |...    .  7:.pol|
00001b40  6c 5f 64 72 61 67 73 61  76 65 0d 08 16 3c 20 20  |l_dragsave...<  |
00001b50  20 20 c9 20 20 38 3a f2  77 69 6d 70 5f 70 6f 6c  |  .  8:.wimp_pol|
00001b60  6c 5f 6b 65 79 70 72 65  73 73 28 21 62 6c 6f 63  |l_keypress(!bloc|
00001b70  6b 25 2c 62 6c 6f 63 6b  25 21 34 2c 62 6c 6f 63  |k%,block%!4,bloc|
00001b80  6b 25 21 32 34 29 0d 08  20 22 20 20 20 20 c9 20  |k%!24).. "    . |
00001b90  20 39 3a f2 77 69 6d 70  5f 70 6f 6c 6c 5f 6d 65  | 9:.wimp_poll_me|
00001ba0  6e 75 73 65 6c 65 63 74  0d 08 2a 22 20 20 20 20  |nuselect..*"    |
00001bb0  c9 20 31 37 2c 31 38 3a  f2 74 61 73 6b 5f 70 6f  |. 17,18:.task_po|
00001bc0  6c 6c 5f 6d 65 73 73 61  67 65 0d 08 34 07 20 20  |ll_message..4.  |
00001bd0  cb 0d 08 3e 05 e1 0d 08  48 04 0d 08 52 13 dd f2  |...>....H...R...|
00001be0  70 6f 6c 6c 5f 64 72 61  67 73 61 76 65 0d 08 5c  |poll_dragsave..\|
00001bf0  40 20 20 f4 20 53 65 6e  64 20 4d 65 73 73 61 67  |@  . Send Messag|
00001c00  65 5f 44 61 74 61 53 61  76 65 20 28 31 29 20 74  |e_DataSave (1) t|
00001c10  6f 20 77 69 6e 64 6f 77  20 61 74 20 6d 6f 75 73  |o window at mous|
00001c20  65 20 63 6f 6f 72 64 69  6e 61 74 65 73 0d 08 66  |e coordinates..f|
00001c30  2d 20 20 e7 20 a4 64 72  61 67 5f 61 5f 73 70 72  |-  . .drag_a_spr|
00001c40  69 74 65 20 8c 20 c8 99  22 44 72 61 67 41 53 70  |ite . .."DragASp|
00001c50  72 69 74 65 5f 53 74 6f  70 22 0d 08 70 4d 20 20  |rite_Stop"..pM  |
00001c60  c8 99 22 57 69 6d 70 5f  47 65 74 50 6f 69 6e 74  |.."Wimp_GetPoint|
00001c70  65 72 49 6e 66 6f 22 2c  2c 62 6c 6f 63 6b 25 3a  |erInfo",,block%:|
00001c80  62 6c 6f 63 6b 25 21 32  30 3d 62 6c 6f 63 6b 25  |block%!20=block%|
00001c90  21 31 32 3a 62 6c 6f 63  6b 25 21 32 34 3d 62 6c  |!12:block%!24=bl|
00001ca0  6f 63 6b 25 21 31 36 0d  08 7a 4d 20 20 62 6c 6f  |ock%!16..zM  blo|
00001cb0  63 6b 25 21 32 38 3d 21  62 6c 6f 63 6b 25 3a 62  |ck%!28=!block%:b|
00001cc0  6c 6f 63 6b 25 21 33 32  3d 62 6c 6f 63 6b 25 21  |lock%!32=block%!|
00001cd0  34 3a 62 6c 6f 63 6b 25  21 33 36 3d 30 3a 21 62  |4:block%!36=0:!b|
00001ce0  6c 6f 63 6b 25 3d 36 34  3a 62 6c 6f 63 6b 25 21  |lock%=64:block%!|
00001cf0  31 32 3d 30 0d 08 84 2e  20 20 62 6c 6f 63 6b 25  |12=0....  block%|
00001d00  21 34 30 3d 26 32 30 30  3a 24 28 62 6c 6f 63 6b  |!40=&200:$(block|
00001d10  25 2b 34 34 29 3d 22 21  4f 72 67 61 6e 69 73 65  |%+44)="!Organise|
00001d20  72 22 0d 08 8e 44 20 20  62 6c 6f 63 6b 25 21 31  |r"...D  block%!1|
00001d30  36 3d 31 3a c8 99 22 57  69 6d 70 5f 53 65 6e 64  |6=1:.."Wimp_Send|
00001d40  4d 65 73 73 61 67 65 22  2c 31 38 2c 62 6c 6f 63  |Message",18,bloc|
00001d50  6b 25 2c 62 6c 6f 63 6b  25 21 32 30 2c 62 6c 6f  |k%,block%!20,blo|
00001d60  63 6b 25 21 32 34 0d 08  98 30 20 20 e7 20 28 62  |ck%!24...0  . (b|
00001d70  6c 6f 63 6b 25 21 38 80  31 29 3d 30 20 8c 20 c8  |lock%!8.1)=0 . .|
00001d80  99 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  |."Wimp_CreateMen|
00001d90  75 22 2c 2c 2d 31 0d 08  a2 05 e1 0d 08 ac 04 0d  |u",,-1..........|
00001da0  08 b6 17 dd f2 74 61 73  6b 5f 70 6f 6c 6c 5f 6d  |.....task_poll_m|
00001db0  65 73 73 61 67 65 0d 08  c0 14 20 20 c8 8e 20 62  |essage....  .. b|
00001dc0  6c 6f 63 6b 25 21 31 36  20 ca 0d 08 ca 13 20 20  |lock%!16 .....  |
00001dd0  20 20 c9 20 30 3a 71 75  69 74 25 3d b9 0d 08 d4  |  . 0:quit%=....|
00001de0  39 20 20 20 20 c9 20 32  3a f2 70 6f 6c 6c 5f 6d  |9    . 2:.poll_m|
00001df0  65 73 73 61 67 65 5f 64  61 74 61 73 61 76 65 61  |essage_datasavea|
00001e00  63 6b 28 a4 73 74 72 69  6e 67 28 62 6c 6f 63 6b  |ck(.string(block|
00001e10  25 2b 34 34 29 29 0d 08  de 40 20 20 20 20 c9 20  |%+44))...@    . |
00001e20  33 3a f2 70 6f 6c 6c 5f  6d 65 73 73 61 67 65 5f  |3:.poll_message_|
00001e30  64 61 74 61 6c 6f 61 64  28 62 6c 6f 63 6b 25 21  |dataload(block%!|
00001e40  34 30 2c a4 73 74 72 69  6e 67 28 62 6c 6f 63 6b  |40,.string(block|
00001e50  25 2b 34 34 29 29 0d 08  e8 21 20 20 20 20 c9 20  |%+44))...!    . |
00001e60  38 3a f2 70 6f 6c 6c 5f  6d 65 73 73 61 67 65 5f  |8:.poll_message_|
00001e70  70 72 65 71 75 69 74 0d  08 f2 07 20 20 cb 0d 08  |prequit....  ...|
00001e80  fc 05 e1 0d 09 06 04 0d  09 10 25 dd f2 70 6f 6c  |..........%..pol|
00001e90  6c 5f 6d 65 73 73 61 67  65 5f 64 61 74 61 73 61  |l_message_datasa|
00001ea0  76 65 61 63 6b 28 70 61  74 68 24 29 0d 09 1a 16  |veack(path$)....|
00001eb0  20 20 c8 99 22 48 6f 75  72 67 6c 61 73 73 5f 4f  |  .."Hourglass_O|
00001ec0  6e 22 0d 09 24 2c 20 20  ff 22 43 6f 70 79 20 22  |n"..$,  ."Copy "|
00001ed0  2b 6e 65 77 70 61 74 68  24 2b 22 20 22 2b 70 61  |+newpath$+" "+pa|
00001ee0  74 68 24 2b 22 20 72 20  7e 63 20 7e 76 22 0d 09  |th$+" r ~c ~v"..|
00001ef0  2e 2b 20 20 66 69 6c 65  25 3d ae 28 70 61 74 68  |.+  file%=.(path|
00001f00  24 2b 22 2e 52 65 73 6f  75 72 63 65 73 2e 21 4c  |$+".Resources.!L|
00001f10  61 6e 67 75 61 67 65 22  29 0d 09 38 22 20 20 d5  |anguage")..8"  .|
00001f20  23 66 69 6c 65 25 2c a4  69 63 6f 6e 5f 74 65 78  |#file%,.icon_tex|
00001f30  74 28 6d 61 69 6e 25 2c  33 37 29 0d 09 42 0e 20  |t(main%,37)..B. |
00001f40  20 d9 20 23 66 69 6c 65  25 0d 09 4c 28 20 20 72  | . #file%..L(  r|
00001f50  65 61 64 25 3d 8e 28 6e  65 77 70 61 74 68 24 2b  |ead%=.(newpath$+|
00001f60  22 2e 44 61 74 61 2e 53  65 74 74 69 6e 67 73 22  |".Data.Settings"|
00001f70  29 0d 09 4d 26 20 20 77  72 69 74 65 25 3d ae 28  |)..M&  write%=.(|
00001f80  70 61 74 68 24 2b 22 2e  44 61 74 61 2e 53 65 74  |path$+".Data.Set|
00001f90  74 69 6e 67 73 22 29 0d  09 4e 3a 20 20 f2 74 65  |tings")..N:  .te|
00001fa0  78 74 3a f2 74 65 78 74  3a 41 24 3d be 23 66 69  |xt:.text:A$=.#fi|
00001fb0  6c 65 25 3a d5 23 77 72  69 74 65 25 2c a4 69 63  |le%:.#write%,.ic|
00001fc0  6f 6e 5f 74 65 78 74 28  6d 61 69 6e 25 2c 33 35  |on_text(main%,35|
00001fd0  29 0d 09 4f 24 20 20 c8  95 20 ac c5 23 72 65 61  |)..O$  .. ..#rea|
00001fe0  64 25 3a d5 23 77 72 69  74 65 25 2c 9a 23 72 65  |d%:.#write%,.#re|
00001ff0  61 64 25 3a ce 0d 09 50  0e 20 20 d9 23 77 72 69  |ad%:...P.  .#wri|
00002000  74 65 25 0d 09 51 0d 20  20 d9 23 72 65 61 64 25  |te%..Q.  .#read%|
00002010  0d 09 56 17 20 20 c8 99  22 48 6f 75 72 67 6c 61  |..V.  .."Hourgla|
00002020  73 73 5f 4f 66 66 22 0d  09 60 4f 20 20 c8 94 20  |ss_Off"..`O  .. |
00002030  62 6c 6f 63 6b 25 21 38  2c 62 6c 6f 63 6b 25 21  |block%!8,block%!|
00002040  31 32 3a 62 6c 6f 63 6b  25 21 31 36 3d 33 3a c8  |12:block%!16=3:.|
00002050  99 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  |."Wimp_SendMessa|
00002060  67 65 22 2c 31 38 2c 62  6c 6f 63 6b 25 2c 62 6c  |ge",18,block%,bl|
00002070  6f 63 6b 25 21 34 0d 09  6a 05 e1 0d 09 74 04 0d  |ock%!4..j....t..|
00002080  09 7e 48 dd a4 74 61 73  6b 5f 63 61 6e 77 65 6c  |.~H..task_canwel|
00002090  6f 61 64 28 74 79 70 65  25 2c 70 61 74 68 24 29  |oad(type%,path$)|
000020a0  3a f4 20 52 65 74 75 72  6e 20 54 52 55 45 20 69  |:. Return TRUE i|
000020b0  66 20 79 6f 75 20 63 61  6e 20 6c 6f 61 64 20 74  |f you can load t|
000020c0  68 65 20 66 69 6c 65 0d  09 88 12 3d 28 74 79 70  |he file....=(typ|
000020d0  65 25 3d 26 32 30 30 30  29 0d 09 92 04 0d 09 9c  |e%=&2000).......|
000020e0  46 dd a4 74 61 73 6b 5f  6c 6f 61 64 66 69 6c 65  |F..task_loadfile|
000020f0  28 74 79 70 65 25 2c 70  61 74 68 24 29 3a f4 20  |(type%,path$):. |
00002100  4c 6f 61 64 20 74 68 65  20 66 69 6c 65 20 61 6e  |Load the file an|
00002110  64 20 72 65 74 75 72 6e  20 54 52 55 45 20 69 66  |d return TRUE if|
00002120  20 6f 6b 0d 09 a6 0d 20  20 ea 20 66 69 6c 65 25  | ok....  . file%|
00002130  0d 09 b0 29 20 20 e7 20  a4 67 65 74 6c 65 61 66  |...)  . .getleaf|
00002140  28 70 61 74 68 24 29 3d  22 21 4f 72 67 61 6e 69  |(path$)="!Organi|
00002150  73 65 72 22 2b bd 30 20  8c 0d 09 ba 27 20 20 20  |ser"+.0 ....'   |
00002160  20 66 69 6c 65 25 3d 8e  28 70 61 74 68 24 2b 22  | file%=.(path$+"|
00002170  2e 44 61 74 61 2e 53 65  74 74 69 6e 67 73 22 29  |.Data.Settings")|
00002180  0d 09 c4 17 20 20 20 20  6f 6c 64 76 65 72 24 3d  |....    oldver$=|
00002190  be 23 66 69 6c 65 25 0d  09 ce 0f 20 20 20 20 d9  |.#file%....    .|
000021a0  23 66 69 6c 65 25 0d 09  d8 30 20 20 20 20 e7 20  |#file%...0    . |
000021b0  bb 6f 6c 64 76 65 72 24  3d 30 20 8c 20 6f 6c 64  |.oldver$=0 . old|
000021c0  76 65 72 24 3d 22 31 2e  30 30 20 28 38 20 41 75  |ver$="1.00 (8 Au|
000021d0  67 20 39 37 29 22 0d 09  e2 2d 20 20 20 20 6f 6c  |g 97)"...-    ol|
000021e0  64 76 65 72 25 3d 28 bb  6f 6c 64 76 65 72 24 29  |dver%=(.oldver$)|
000021f0  2a 31 30 30 3a 6f 6c 64  70 61 74 68 24 3d 70 61  |*100:oldpath$=pa|
00002200  74 68 24 0d 09 ec 0e 20  20 20 20 c8 8e 20 b9 20  |th$....    .. . |
00002210  ca 0d 09 f6 1c 20 20 20  20 20 20 c9 20 6f 6c 64  |.....      . old|
00002220  76 65 72 25 3c 6e 65 77  76 65 72 25 3a 0d 0a 00  |ver%<newver%:...|
00002230  4c 20 20 20 20 20 20 20  20 f2 69 63 6f 6e 5f 74  |L        .icon_t|
00002240  65 78 74 28 6d 61 69 6e  25 2c 37 2c 70 61 74 68  |ext(main%,7,path|
00002250  24 29 3a f2 69 63 6f 6e  5f 74 65 78 74 28 6d 61  |$):.icon_text(ma|
00002260  69 6e 25 2c 38 2c 22 56  65 72 73 69 6f 6e 20 22  |in%,8,"Version "|
00002270  2b 6f 6c 64 76 65 72 24  29 0d 0a 0a 31 20 20 20  |+oldver$)...1   |
00002280  20 20 20 20 20 f2 69 63  6f 6e 5f 73 68 61 64 65  |     .icon_shade|
00002290  28 6d 61 69 6e 25 2c 31  30 2c 30 29 3a f2 73 65  |(main%,10,0):.se|
000022a0  74 5f 73 6c 69 64 65 28  31 29 0d 0a 14 8e 20 20  |t_slide(1)....  |
000022b0  20 20 20 20 c9 20 6f 6c  64 76 65 72 25 3d 6e 65  |    . oldver%=ne|
000022c0  77 76 65 72 25 3a f2 6d  61 6b 65 5f 72 65 70 6f  |wver%:.make_repo|
000022d0  72 74 28 22 54 68 65 20  76 65 72 73 69 6f 6e 20  |rt("The version |
000022e0  79 6f 75 20 61 72 65 20  74 72 79 69 6e 67 20 74  |you are trying t|
000022f0  6f 20 75 70 67 72 61 64  65 20 69 73 20 74 68 65  |o upgrade is the|
00002300  20 6c 61 74 65 73 74 20  76 65 72 73 69 6f 6e 20  | latest version |
00002310  6b 6e 6f 77 6e 20 74 6f  20 74 68 69 73 20 75 70  |known to this up|
00002320  67 72 61 64 69 6e 67 20  61 70 70 6c 69 63 61 74  |grading applicat|
00002330  69 6f 6e 2e 22 2c a3 29  0d 0a 1e 7d 20 20 20 20  |ion.",.)...}    |
00002340  20 20 c9 20 6f 6c 64 76  65 72 25 3e 6e 65 77 76  |  . oldver%>newv|
00002350  65 72 25 3a f2 6d 61 6b  65 5f 72 65 70 6f 72 74  |er%:.make_report|
00002360  28 22 54 68 65 20 76 65  72 73 69 6f 6e 20 79 6f  |("The version yo|
00002370  75 20 61 72 65 20 74 72  79 69 6e 67 20 74 6f 20  |u are trying to |
00002380  75 70 67 72 61 64 65 20  69 73 20 6e 65 77 65 72  |upgrade is newer|
00002390  20 74 68 61 6e 20 74 68  69 73 20 75 70 67 72 61  | than this upgra|
000023a0  64 69 6e 67 20 61 70 70  6c 69 63 61 74 69 6f 6e  |ding application|
000023b0  2e 22 2c a3 29 0d 0a 28  09 20 20 20 20 cb 0d 0a  |.",.)..(.    ...|
000023c0  32 07 20 20 cd 0d 0a 3c  06 3d b9 0d 0a 46 04 0d  |2.  ...<.=...F..|
000023d0  0a 50 1d f4 20 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.P.. ***********|
000023e0  2a 2a 2a 2a 20 20 43 6c  69 63 6b 73 0d 0a 5a 04  |****  Clicks..Z.|
000023f0  0d 0a 64 32 dd f2 74 61  73 6b 5f 70 6f 6c 6c 5f  |..d2..task_poll_|
00002400  63 6c 69 63 6b 28 77 69  6e 64 6f 77 25 2c 69 63  |click(window%,ic|
00002410  6f 6e 25 2c 62 75 74 74  6f 6e 25 2c 78 25 2c 79  |on%,button%,x%,y|
00002420  25 29 0d 0a 6e 12 20 20  c8 8e 20 77 69 6e 64 6f  |%)..n.  .. windo|
00002430  77 25 20 ca 0d 0a 78 56  20 20 20 20 c9 20 2d 32  |w% ...xV    . -2|
00002440  3a e7 20 62 75 74 74 6f  6e 25 3d 32 20 8c 20 f2  |:. button%=2 . .|
00002450  6d 65 6e 75 5f 6f 70 65  6e 28 62 61 72 6d 25 2c  |menu_open(barm%,|
00002460  21 62 6c 6f 63 6b 25 2d  36 34 2c 2d 31 29 20 8b  |!block%-64,-1) .|
00002470  20 f2 77 69 6e 64 6f 77  5f 6f 70 65 6e 28 6d 61  | .window_open(ma|
00002480  69 6e 25 2c 2d 31 2c 2d  31 29 0d 0a 82 10 20 20  |in%,-1,-1)....  |
00002490  20 20 c9 20 6d 61 69 6e  25 3a 0d 0a 8c 18 20 20  |  . main%:....  |
000024a0  20 20 20 20 e7 20 62 75  74 74 6f 6e 25 3c 3e 32  |    . button%<>2|
000024b0  20 8c 0d 0a 96 16 20 20  20 20 20 20 20 20 c8 8e  | .....        ..|
000024c0  20 69 63 6f 6e 25 20 ca  0d 0a a0 1f 20 20 20 20  | icon% .....    |
000024d0  20 20 20 20 20 20 c9 20  32 3a f2 73 65 74 5f 73  |      . 2:.set_s|
000024e0  6c 69 64 65 28 31 29 0d  0a aa 1f 20 20 20 20 20  |lide(1)....     |
000024f0  20 20 20 20 20 c9 20 39  3a f2 73 65 74 5f 73 6c  |     . 9:.set_sl|
00002500  69 64 65 28 30 29 0d 0a  b4 1b 20 20 20 20 20 20  |ide(0)....      |
00002510  20 20 20 20 c9 20 31 30  3a f2 75 70 67 72 61 64  |    . 10:.upgrad|
00002520  65 0d 0a be 1e 20 20 20  20 20 20 20 20 20 20 c9  |e....          .|
00002530  20 31 33 2c 31 39 3a f2  72 65 73 74 6f 72 65 0d  | 13,19:.restore.|
00002540  0a c8 32 20 20 20 20 20  20 20 20 20 20 c9 20 31  |..2          . 1|
00002550  34 3a ff 22 46 69 6c 65  72 5f 52 75 6e 20 22 2b  |4:."Filer_Run "+|
00002560  61 70 70 64 69 72 24 2b  22 2e 49 6d 70 72 6f 76  |appdir$+".Improv|
00002570  22 0d 0a d2 20 20 20 20  20 20 20 20 20 20 20 c9  |"...           .|
00002580  20 31 35 2c 31 38 2c 32  33 3a 71 75 69 74 25 3d  | 15,18,23:quit%=|
00002590  b9 0d 0a dc 36 20 20 20  20 20 20 20 20 20 20 c9  |....6          .|
000025a0  20 32 30 3a f2 73 65 74  5f 73 6c 69 64 65 28 34  | 20:.set_slide(4|
000025b0  29 3a f2 69 63 6f 6e 5f  63 61 72 65 74 28 6d 61  |):.icon_caret(ma|
000025c0  69 6e 25 2c 33 35 29 0d  0a e6 20 20 20 20 20 20  |in%,35)...      |
000025d0  20 20 20 20 20 c9 20 32  34 3a f2 73 65 74 5f 73  |     . 24:.set_s|
000025e0  6c 69 64 65 28 30 29 0d  0a f0 44 20 20 20 20 20  |lide(0)...D     |
000025f0  20 20 20 20 20 c9 20 32  36 3a e7 20 28 62 75 74  |     . 26:. (but|
00002600  74 6f 6e 25 80 36 34 29  20 8c 20 f2 64 72 61 67  |ton%.64) . .drag|
00002610  5f 62 6f 78 28 6d 61 69  6e 25 2c 32 36 2c 22 21  |_box(main%,26,"!|
00002620  4f 72 67 61 6e 69 73 65  72 22 29 0d 0a fa 2a 20  |Organiser")...* |
00002630  20 20 20 20 20 20 20 20  20 c9 20 33 37 3a f2 6e  |         . 37:.n|
00002640  65 78 74 6c 61 6e 67 75  61 67 65 28 6d 61 69 6e  |extlanguage(main|
00002650  25 2c 33 37 29 0d 0b 04  0d 20 20 20 20 20 20 20  |%,37)....       |
00002660  20 cb 0d 0b 0e 31 20 20  20 20 20 20 cc 20 f2 6d  | ....1      . .m|
00002670  65 6e 75 5f 6f 70 65 6e  28 62 61 72 6d 25 2c 21  |enu_open(barm%,!|
00002680  62 6c 6f 63 6b 25 2d 36  34 2c 62 6c 6f 63 6b 25  |block%-64,block%|
00002690  21 34 29 0d 0b 18 0b 20  20 20 20 20 20 cd 0d 0b  |!4)....      ...|
000026a0  22 07 20 20 cb 0d 0b 2c  05 e1 0d 0b 36 04 0d 0b  |".  ...,....6...|
000026b0  40 19 dd f2 6e 65 78 74  6c 61 6e 67 75 61 67 65  |@...nextlanguage|
000026c0  28 77 25 2c 69 25 29 0d  0b 4a 3e 20 20 ea 20 69  |(w%,i%)..J>  . i|
000026d0  6e 64 65 78 25 2c 6c 24  2c 66 25 2c 6e 24 2c 74  |ndex%,l$,f%,n$,t|
000026e0  24 2c 66 24 2c 72 25 3a  69 6e 64 65 78 25 3d 31  |$,f$,r%:index%=1|
000026f0  3a 6c 24 3d a4 69 63 6f  6e 5f 74 65 78 74 28 77  |:l$=.icon_text(w|
00002700  25 2c 69 25 29 0d 0b 54  07 20 20 f5 0d 0b 5e 50  |%,i%)..T.  ...^P|
00002710  20 20 20 20 c8 99 22 4f  53 5f 47 42 50 42 22 2c  |    .."OS_GBPB",|
00002720  39 2c 6e 65 77 70 61 74  68 24 2b 22 2e 52 65 73  |9,newpath$+".Res|
00002730  6f 75 72 63 65 73 22 2c  62 6c 6f 63 6b 25 2c 31  |ources",block%,1|
00002740  2c 69 6e 64 65 78 25 2c  32 35 36 2c 30 20 b8 20  |,index%,256,0 . |
00002750  2c 2c 2c 72 25 2c 69 6e  64 65 78 25 0d 0b 68 10  |,,,r%,index%..h.|
00002760  20 20 20 20 e7 20 72 25  3d 31 20 8c 0d 0b 72 1c  |    . r%=1 ...r.|
00002770  20 20 20 20 20 20 74 24  3d a4 73 74 72 69 6e 67  |      t$=.string|
00002780  28 62 6c 6f 63 6b 25 29  0d 0b 7c 19 20 20 20 20  |(block%)..|.    |
00002790  20 20 e7 20 66 24 3d 22  22 20 8c 20 66 24 3d 74  |  . f$="" . f$=t|
000027a0  24 0d 0b 86 18 20 20 20  20 20 20 e7 20 66 25 3d  |$....      . f%=|
000027b0  b9 20 8c 20 6e 24 3d 74  24 0d 0b 90 18 20 20 20  |. . n$=t$....   |
000027c0  20 20 20 e7 20 74 24 3d  6c 24 20 8c 20 66 25 3d  |   . t$=l$ . f%=|
000027d0  b9 0d 0b 9a 09 20 20 20  20 cd 0d 0b a4 1a 20 20  |.....    .....  |
000027e0  fd 20 69 6e 64 65 78 25  3d 2d 31 20 84 20 6e 24  |. index%=-1 . n$|
000027f0  3c 3e 22 22 0d 0b ae 15  20 20 e7 20 6e 24 3d 22  |<>""....  . n$="|
00002800  22 20 8c 20 6e 24 3d 66  24 0d 0b b8 1a 20 20 f2  |" . n$=f$....  .|
00002810  69 63 6f 6e 5f 74 65 78  74 28 77 25 2c 69 25 2c  |icon_text(w%,i%,|
00002820  6e 24 29 0d 0b c2 05 e1  0d 0b cc 04 0d 0b d6 1c  |n$).............|
00002830  f4 20 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |. **************|
00002840  2a 20 20 4d 65 6e 75 73  0d 0b e0 04 0d 0b ea 1a  |*  Menus........|
00002850  dd f2 74 61 73 6b 5f 70  6f 6c 6c 5f 6d 65 6e 75  |..task_poll_menu|
00002860  73 65 6c 65 63 74 0d 0b  f4 14 20 20 c8 8e 20 6d  |select....  .. m|
00002870  65 6e 75 6f 70 65 6e 25  20 ca 0d 0b fe 10 20 20  |enuopen% .....  |
00002880  20 20 c9 20 62 61 72 6d  25 3a 0d 0c 08 16 20 20  |  . barm%:....  |
00002890  20 20 20 20 c8 8e 20 21  62 6c 6f 63 6b 25 20 ca  |    .. !block% .|
000028a0  0d 0c 12 17 20 20 20 20  20 20 20 20 c9 20 31 3a  |....        . 1:|
000028b0  71 75 69 74 25 3d b9 0d  0c 1c 0b 20 20 20 20 20  |quit%=.....     |
000028c0  20 cb 0d 0c 26 07 20 20  cb 0d 0c 30 05 e1 0d 0c  | ...&.  ...0....|
000028d0  3a 04 0d 0c 44 22 f4 20  2a 2a 2a 2a 2a 2a 2a 2a  |:...D". ********|
000028e0  2a 2a 2a 2a 2a 2a 2a 20  20 4b 65 79 20 50 72 65  |*******  Key Pre|
000028f0  73 73 65 73 0d 0c 4e 04  0d 0c 58 47 dd a4 74 61  |sses..N...XG..ta|
00002900  73 6b 5f 70 6f 6c 6c 5f  6b 65 79 70 72 65 73 73  |sk_poll_keypress|
00002910  28 77 69 6e 64 6f 77 25  2c 69 63 6f 6e 25 2c 6b  |(window%,icon%,k|
00002920  65 79 25 2c 75 70 25 2c  64 6f 77 6e 25 2c 70 75  |ey%,up%,down%,pu|
00002930  70 25 2c 70 64 6f 77 6e  25 2c 65 6e 74 25 29 0d  |p%,pdown%,ent%).|
00002940  0c 62 15 20 20 ea 20 75  73 65 64 25 3a 75 73 65  |.b.  . used%:use|
00002950  64 25 3d b9 0d 0c 6c 12  20 20 c8 8e 20 77 69 6e  |d%=...l.  .. win|
00002960  64 6f 77 25 20 ca 0d 0c  76 07 20 20 cb 0d 0c 80  |dow% ...v.  ....|
00002970  0a 3d 75 73 65 64 25 0d  0c 8a 04 0d 0c 94 18 dd  |.=used%.........|
00002980  f2 6d 61 6b 65 5f 72 65  70 6f 72 74 28 41 24 2c  |.make_report(A$,|
00002990  46 25 29 0d 0c 9e 37 20  20 f2 69 63 6f 6e 5f 74  |F%)...7  .icon_t|
000029a0  65 78 74 28 6d 61 69 6e  25 2c 31 37 2c 41 24 29  |ext(main%,17,A$)|
000029b0  3a f2 69 63 6f 6e 5f 68  69 64 65 28 6d 61 69 6e  |:.icon_hide(main|
000029c0  25 2c 31 39 2c 94 ac 46  25 29 0d 0c a8 13 20 20  |%,19,..F%)....  |
000029d0  f2 73 65 74 5f 73 6c 69  64 65 28 33 29 0d 0c b2  |.set_slide(3)...|
000029e0  05 e1 0d 0c bc 04 0d 0c  c6 13 dd f2 73 65 74 5f  |............set_|
000029f0  73 6c 69 64 65 28 4e 25  29 0d 0c d0 2f 20 20 21  |slide(N%).../  !|
00002a00  72 65 70 25 3d 6d 61 69  6e 25 3a c8 99 22 57 69  |rep%=main%:.."Wi|
00002a10  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00002a20  65 22 2c 2c 72 65 70 25  0d 0c da 18 20 20 72 65  |e",,rep%....  re|
00002a30  70 25 21 38 3d 72 65 70  25 21 31 36 2d 33 36 38  |p%!8=rep%!16-368|
00002a40  0d 0c e4 2f 20 20 72 65  70 25 21 32 34 3d 4e 25  |.../  rep%!24=N%|
00002a50  2a 2d 33 36 38 3a c8 99  22 57 69 6d 70 5f 4f 70  |*-368:.."Wimp_Op|
00002a60  65 6e 57 69 6e 64 6f 77  22 2c 2c 72 65 70 25 0d  |enWindow",,rep%.|
00002a70  0c ee 05 e1 0d 0c f8 04  0d 0d 02 12 dd f2 70 72  |..............pr|
00002a80  6f 67 72 65 73 73 28 4e  25 29 0d 0d 0c 0a 20 20  |ogress(N%)....  |
00002a90  ea 20 41 25 0d 0d 16 12  20 20 e3 20 41 25 3d 32  |. A%....  . A%=2|
00002aa0  39 20 b8 20 33 32 0d 0d  20 2a 20 20 20 20 f2 69  |9 . 32.. *    .i|
00002ab0  63 6f 6e 5f 73 65 6c 65  63 74 28 6d 61 69 6e 25  |con_select(main%|
00002ac0  2c 41 25 2c 2d 28 4e 25  3e 41 25 2d 32 39 29 29  |,A%,-(N%>A%-29))|
00002ad0  0d 0d 2a 07 20 20 ed 0d  0d 34 0f 20 20 f2 70 6f  |..*.  ...4.  .po|
00002ae0  6c 6c 28 ac 31 29 0d 0d  3e 05 e1 0d 0d 48 04 0d  |ll(.1)..>....H..|
00002af0  0d 52 0d dd f2 72 65 73  74 6f 72 65 0d 0d 5c 09  |.R...restore..\.|
00002b00  20 20 ea 20 85 0d 0d 66  36 20 20 ee 20 85 20 ea  |  . ...f6  . . .|
00002b10  20 f7 20 85 3a c8 99 22  48 6f 75 72 67 6c 61 73  | . .:.."Hourglas|
00002b20  73 5f 4f 66 66 22 3a f2  6d 61 6b 65 5f 72 65 70  |s_Off":.make_rep|
00002b30  6f 72 74 28 f6 24 2c a3  29 3a e1 0d 0d 70 16 20  |ort(.$,.):...p. |
00002b40  20 c8 99 22 48 6f 75 72  67 6c 61 73 73 5f 4f 6e  | .."Hourglass_On|
00002b50  22 0d 0d 7a 32 20 20 ff  22 43 6f 70 79 20 22 2b  |"..z2  ."Copy "+|
00002b60  62 61 63 6b 75 70 24 2b  22 20 22 2b 6f 6c 64 70  |backup$+" "+oldp|
00002b70  61 74 68 24 2b 22 20 7e  63 20 7e 76 20 66 20 72  |ath$+" ~c ~v f r|
00002b80  20 71 22 0d 0d 84 17 20  20 c8 99 22 48 6f 75 72  | q"....  .."Hour|
00002b90  67 6c 61 73 73 5f 4f 66  66 22 0d 0d 8e 13 20 20  |glass_Off"....  |
00002ba0  f2 73 65 74 5f 73 6c 69  64 65 28 31 29 0d 0d 98  |.set_slide(1)...|
00002bb0  09 20 20 f7 20 85 0d 0d  a2 05 e1 0d 0d ac 04 0d  |.  . ...........|
00002bc0  0d b6 23 f4 20 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |..#. ***********|
00002bd0  2a 2a 2a 2a 20 20 49 6e  69 74 69 61 6c 69 73 69  |****  Initialisi|
00002be0  6e 67 0d 0d c0 04 0d 0d  ca 19 dd f2 74 61 73 6b  |ng..........task|
00002bf0  5f 70 72 65 5f 69 6e 69  74 69 61 6c 69 73 65 0d  |_pre_initialise.|
00002c00  0d d4 4f 20 20 73 61 72  65 61 25 3d a4 73 70 72  |..O  sarea%=.spr|
00002c10  69 74 65 61 72 65 61 28  61 70 70 64 69 72 24 2b  |itearea(appdir$+|
00002c20  22 2e 53 70 72 69 74 65  73 22 2c 30 29 3a f4 20  |".Sprites",0):. |
00002c30  30 3d 4e 6f 20 6f 66 20  65 78 74 72 61 20 62 79  |0=No of extra by|
00002c40  74 65 73 20 74 6f 20 72  65 73 65 72 76 65 0d 0d  |tes to reserve..|
00002c50  de 45 20 20 6f 6c 64 76  65 72 24 3d 22 22 3a 6f  |.E  oldver$="":o|
00002c60  6c 64 76 65 72 25 3d 30  3a 6e 65 77 76 65 72 25  |ldver%=0:newver%|
00002c70  3d 28 bb 76 65 72 24 29  2a 31 30 30 3a 6f 6c 64  |=(.ver$)*100:old|
00002c80  70 61 74 68 24 3d 22 22  3a 62 61 63 6b 75 70 24  |path$="":backup$|
00002c90  3d 22 22 0d 0d e8 24 20  20 6e 65 77 70 61 74 68  |=""...$  newpath|
00002ca0  24 3d 61 70 70 64 69 72  24 2b 22 2e 21 4f 72 67  |$=appdir$+".!Org|
00002cb0  61 6e 69 73 65 72 22 0d  0d f2 05 e1 0d 0d fc 04  |aniser".........|
00002cc0  0d 0e 06 1a dd f2 74 61  73 6b 5f 70 6f 73 74 5f  |......task_post_|
00002cd0  69 6e 69 74 69 61 6c 69  73 65 0d 0e 10 4b 20 20  |initialise...K  |
00002ce0  f2 69 63 6f 6e 5f 74 65  78 74 28 6d 61 69 6e 25  |.icon_text(main%|
00002cf0  2c 37 2c 22 22 29 3a f2  69 63 6f 6e 5f 74 65 78  |,7,""):.icon_tex|
00002d00  74 28 6d 61 69 6e 25 2c  38 2c 22 22 29 3a f2 69  |t(main%,8,""):.i|
00002d10  63 6f 6e 5f 73 68 61 64  65 28 6d 61 69 6e 25 2c  |con_shade(main%,|
00002d20  31 30 2c 31 29 0d 0e 11  24 20 20 f2 69 63 6f 6e  |10,1)...$  .icon|
00002d30  5f 74 65 78 74 28 6d 61  69 6e 25 2c 33 37 2c 22  |_text(main%,37,"|
00002d40  45 6e 67 6c 69 73 68 22  29 0d 0e 1a 13 20 20 f2  |English")....  .|
00002d50  73 65 74 5f 73 6c 69 64  65 28 30 29 0d 0e 24 05  |set_slide(0)..$.|
00002d60  e1 0d 0e 2e 04 0d 0e 38  17 dd f2 74 61 73 6b 5f  |.......8...task_|
00002d70  6c 6f 61 64 5f 77 69 6e  64 6f 77 73 0d 0e 42 0a  |load_windows..B.|
00002d80  20 20 ea 20 50 25 0d 0e  4c 22 20 20 69 6e 66 6f  |  . P%..L"  info|
00002d90  25 3d a4 77 69 6e 64 6f  77 5f 63 72 65 61 74 65  |%=.window_create|
00002da0  28 22 49 6e 66 6f 22 29  0d 0e 56 22 20 20 6d 61  |("Info")..V"  ma|
00002db0  69 6e 25 3d a4 77 69 6e  64 6f 77 5f 63 72 65 61  |in%=.window_crea|
00002dc0  74 65 28 22 4d 61 69 6e  22 29 0d 0e 60 34 20 20  |te("Main")..`4  |
00002dd0  c8 99 22 57 69 6d 70 5f  4c 6f 61 64 54 65 6d 70  |.."Wimp_LoadTemp|
00002de0  6c 61 74 65 22 2c 2c 30  2c 30 2c 30 2c 30 2c 22  |late",,0,0,0,0,"|
00002df0  4d 61 69 6e 22 20 b8 20  2c 73 69 7a 65 25 0d 0e  |Main" . ,size%..|
00002e00  6a 1e 20 20 f2 69 63 6f  6e 5f 74 65 78 74 28 69  |j.  .icon_text(i|
00002e10  6e 66 6f 25 2c 38 2c 76  65 72 24 29 0d 0e 74 49  |nfo%,8,ver$)..tI|
00002e20  20 20 f2 77 69 6e 64 6f  77 5f 74 69 74 6c 65 28  |  .window_title(|
00002e30  6d 61 69 6e 25 2c 50 25  21 37 32 2c 22 4f 72 67  |main%,P%!72,"Org|
00002e40  61 6e 69 73 65 72 20 75  70 67 72 61 64 65 72 20  |aniser upgrader |
00002e50  76 65 72 73 69 6f 6e 20  22 2b c0 76 65 72 24 2c  |version "+.ver$,|
00002e60  34 29 2c 30 29 0d 0e 7e  05 e1 0d 0e 88 04 0d 0e  |4),0)..~........|
00002e70  92 17 dd f2 74 61 73 6b  5f 63 72 65 61 74 65 5f  |....task_create_|
00002e80  6d 65 6e 75 73 0d 0e 9c  3c 20 62 61 72 6d 25 3d  |menus...< barm%=|
00002e90  a4 6d 65 6e 75 5f 63 72  65 61 74 65 28 22 53 6b  |.menu_create("Sk|
00002ea0  65 6c 65 74 6f 6e 22 2b  a4 73 28 22 49 6e 66 6f  |eleton"+.s("Info|
00002eb0  22 2c 69 6e 66 6f 25 29  2b 22 5c 51 75 69 74 22  |",info%)+"\Quit"|
00002ec0  29 0d 0e a6 05 e1 0d ff                           |).......|
00002ec8