MikeC/!Organiser/Org

Home » Archimedes archive » Acorn User » AU 1998-06 A.adf » Regulars » MikeC/!Organiser/Org

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 » Archimedes archive » Acorn User » AU 1998-06 A.adf » Regulars
Filename:	MikeC/!Organiser/Org
Read OK:	✔
File size:	87DB bytes
Load address:	0000
Exec address:	0000

File contents

   10REM Personal Organiser AM-399C
   20REM Version 1.0 By Mike Cook
   30REM All rights reserved
   40ON ERROR PROCerrorbox
   50
   60DIM taskid%4,intmess% 20:$taskid%="TASK"
   70intmess%!0=1:intmess%!4=2:intmess%!8=3:intmess%!12=&502:intmess%!16=0
   80SYS "Wimp_Initialise",300,!taskid%,"Organiser",intmess% TO version%,taskhand%
   90DIM q% &600,qc% 80,temp% 512,buffers% 512,menu% 256,Mmenu% 512,cb% 18,qw% &300,qn% &300, Sw% &300, Ew% &300
  100DIM Wn0% &700, Wn1% &500, Wn2% &500, Wn3% &500,RXw% 500, Wn%(3),wopen%(3)
  110DIM SW0% 700,SW1% 512,SW2% 612, SW3% 512,tblock% 24, TypeM% 200, PayM% 200
  120DIM Commenu% 512, Comenu% 256,RCW% 500, EsName% 556
  130DIM IsName% 556, Wmenu% 512,Smenu% 256,Imenu% 256, TextWarn% 100, ww% 256
  140DIM SPoint%(20,3),IX%(20,3),IY%(20,3),IX1%(20,3),IY1%(20,3)
  150MaxRec%=100 : REM alter this to change the maximum number of records
  160DIM Tel$(MaxRec%,5),Mem$(MaxRec%),ToDo$(MaxRec%),Shed$(MaxRec%,5),Spm%(MaxRec%)
  170DIM Exp$(MaxRec%,5),Exp%(MaxRec%,2),Etype$(8),Epay$(4)
  180SYS "Wimp_OpenTemplate",,"<ORG$Dir>.Templates"
  190ON ERROR SYS "Wimp_CloseTemplate":PROCerrorbox
  200SYS "Wimp_LoadTemplate",,q%,temp%,temp%+256,-1,"Info",0
  210SYS "Wimp_CreateWindow",,q% TO info%
  220SYS "Wimp_LoadTemplate",,q%,IsName%+4,IsName%+556,-1,"save_script",0
  230SYS "Wimp_CreateWindow",,q% TO saveW%
  240IsName%!0=saveW%:SaveIcon%=!(q%+88+20):Sname%=!(q%+88+20+32)
  250SYS "Wimp_LoadTemplate",,q%,EsName%+4,EsName%+556,-1,"Export",0
  260SYS "Wimp_CreateWindow",,q% TO exportW%
  270EsName%!0=exportW%:Ename%=!(q%+88+20+32)
  280SYS "Wimp_LoadTemplate",,RXw%+4,RCW%,RCW%+500,-1,"rx",0
  290SYS "Wimp_CreateWindow",,RXw%+4 TO rx1W%
  300RXw%!0=rx1W%
  310
  320SYS "Wimp_LoadTemplate",,Wn0%+4,SW0%,SW0%+700,-1,"Telephone",0
  330Wn0%!28=-1
  340FOR A%=0 TO 13
  350SPoint%(A%,0)=!(Wn0%+4+88+20+32*A%)
  360IX%(A%,0)=!(Wn0%+4+88+32*A%):IY%(A%,0)=!(Wn0%+4+88+4+32*A%)
  370IX1%(A%,0)=!(Wn0%+4+88+8+32*A%):IY1%(A%,0)=!(Wn0%+4+88+12+32*A%)
  380NEXT
  390SYS "Wimp_CreateWindow",,Wn0%+4 TO telW%
  400Wn0%!0=telW%:Wn0%!28=-1
  410
  420SYS "Wimp_LoadTemplate",,Wn1%+4,SW1%,SW1%+512,-1,"Memo",0
  430Wn1%!28=-1
  440FOR A%=0 TO 13
  450SPoint%(A%,1)=!(Wn1%+4+88+20+32*A%)
  460IX%(A%,1)=!(Wn1%+4+88+32*A%):IY%(A%,1)=!(Wn1%+4+88+4+32*A%)
  470IX1%(A%,1)=!(Wn1%+4+88+8+32*A%):IY1%(A%,1)=!(Wn1%+4+88+12+32*A%)
  480NEXT
  490SYS "Wimp_CreateWindow",,Wn1%+4 TO memoW%
  500Wn1%!0=memoW%:Wn1%!28=-1
  510
  520SYS "Wimp_LoadTemplate",,Wn2%+4,SW2%,SW2%+612,-1,"Expenses",0
  530Wn2%!28=-1
  540FOR A%=0 TO 17
  550SPoint%(A%,2)=!(Wn2%+4+88+20+32*A%)
  560IX%(A%,2)=!(Wn2%+4+88+32*A%):IY%(A%,2)=!(Wn2%+4+88+4+32*A%)
  570IX1%(A%,2)=!(Wn2%+4+88+8+32*A%):IY1%(A%,2)=!(Wn2%+4+88+12+32*A%)
  580NEXT
  590SYS "Wimp_CreateWindow",,Wn2%+4 TO expW%
  600Wn2%!0=expW%:Wn2%!28=-1
  610
  620SYS "Wimp_LoadTemplate",,Wn3%+4,SW3%,SW3%+512,-1,"Schedule",0
  630Wn3%!28=-1
  640FOR A%=0 TO 14
  650SPoint%(A%,3)=!(Wn3%+4+88+20+32*A%)
  660IX%(A%,3)=!(Wn3%+4+88+32*A%):IY%(A%,3)=!(Wn3%+4+88+4+32*A%)
  670IX1%(A%,3)=!(Wn3%+4+88+8+32*A%):IY1%(A%,3)=!(Wn3%+4+88+12+32*A%)
  680NEXT
  690SYS "Wimp_CreateWindow",,Wn3%+4 TO shedW%
  700Wn3%!0=shedW%:Wn3%!28=-1
  710Wn%(0)=Wn0%:Wn%(1)=Wn1%:Wn%(2)=Wn2%:Wn%(3)=Wn3%
  720
  730SYS "Wimp_LoadTemplate",,q%,ww%,ww%+256,-1,"Warning",0
  740q%!108=TextWarn%:q%!112=-1:q%!116=300
  750XQ%=q%!8-q%!0:YQ%=q%!12-q%!4
  760SYS "Wimp_CreateWindow",,q% TO warningW%
  770SYS "Wimp_CloseTemplate"
  780smpicon%=FNicon
  790wopen%(0)=FALSE:wopen%(1)=FALSE:wopen%(2)=FALSE:wopen%(3)=FALSE:warnOn%=FALSE
  800Stype$="0":Ntel%=1:Ctel%=1
  810Nmem%=1:Cmem%=1
  820Ntodo%=1:Ctodo%=1
  830Nshed%=1:Cshed%=1
  840Nexp%=1:Cexp%=1
  850Memo%=TRUE:Rd%=FALSE:Rd1%=0:Rd2%=0
  860RdUD%=FALSE:RX%=FALSE
  870Export%=TRUE:PROC_PutName("Text")
  880Export%=FALSE:PROC_PutName("Data")
  890Abort%=FALSE
  900PROCinit
  910ON ERROR PROCerrorbox
  920
  930PROCsetupmenu
  940
  950REPEAT
  960 SYS "Wimp_Poll",0,q% TO A%
  970  CASE A% OF
  980   WHEN 0:PROC_Null
  990   WHEN 1:PROC_doWindow
 1000   WHEN 2:SYS"OS_ReadModeVariable",-1,3 TO ,,Ncolours%: SYS "Wimp_OpenWindow",,q%
 1010   WHEN 3:PROC_close
 1020   WHEN 6:PROC_do_click(q%)
 1030   WHEN 7:PROC_PutDown(q%)
 1040   WHEN 8:PROC_KeyPress
 1050   WHEN 9:PROC_SORT_Menu
 1060   WHEN 17,18:PROCreceive(q%)
 1070   ENDCASE
 1080 UNTIL FALSE
 1090
 1100END
 1110
 1120DEF PROC_Null
 1130LOCAL A%,B%,C%,D%,X%,Y%,but%
 1140MOUSE A%,B%,C%
 1150
 1160IF RdUD% AND C%=0 THEN
 1170IF Rd2%=0 THEN $SPoint%(0,Rd1%)="down" ELSE $SPoint%(1,Rd1%)="up"
 1180SYS"Wimp_ForceRedraw",!Wn%(Rd1%),IX%(Rd2%,Rd1%),IY%(Rd2%,Rd1%),IX1%(Rd2%,Rd1%),IY1%(Rd2%,Rd1%)
 1190RdUD%=FALSE
 1200ENDIF
 1210
 1220IF RX% THEN
 1230PROCrxINIT
 1240PROCempty
 1250REPEAT
 1260MOUSE A%,B%,C%
 1270UNTIL C%=0
 1280SYS"Hourglass_Start",10
 1290REPEAT
 1300SYS"OS_SerialOp",4,256 TO ,B% ;C%
 1310C%=C% AND &2
 1320IF C%=0 THEN PROC_gath(B%)
 1330MOUSE X%,Y%,but%
 1340UNTIL but%<>0 OR B%=&F8 OR Abort%
 1350IF B%=&F8 THEN PROCtidy
 1360SYS"Hourglass_Off"
 1370RX%=FALSE
 1380SYS "Wimp_CloseWindow",,RXw%
 1390ENDIF
 1400ENDPROC
 1410
 1420DEF FN_spath(n$)
 1430WHILE INSTR(n$,".")
 1440n$=RIGHT$(n$,LEN(n$)-1)
 1450ENDWHILE
 1460IF LEN(n$)>10 THEN n$=RIGHT$(n$,10)
 1470=n$
 1480
 1490DEF PROC_GetName
 1500IF Export% THEN fn$=$Ename% ELSE fn$=$Sname%
 1510ENDPROC
 1520
 1530DEF PROC_SORT_Menu
 1540CASE IconMenu% OF
 1550     WHEN 0: IF !q%=5 THEN PROCdie ELSE PROC_Open((!q%)-1)
 1560     WHEN 1: CASE !q% OF
 1570              WHEN 3: Mmenu%!100=1:Mmenu%!124=2
 1580              WHEN 4: Mmenu%!100=0:Mmenu%!124=3
 1590              WHEN 5: Mmenu%!148=1:Mmenu%!172=2
 1600              WHEN 6: Mmenu%!148=0:Mmenu%!172=3
 1610              WHEN 7: PROCdie
 1620             ENDCASE
 1630     WHEN 2: $SPoint%(13,2)=Etype$((!q%)+1)
 1640             SYS"Wimp_ForceRedraw",!Wn%(2),IX%(13,2),IY%(13,2),IX1%(13,2),IY1%(13,2)
 1650             Exp%(Cexp%,0)=(!q%)+1
 1660     WHEN 3: $SPoint%(14,2)=Epay$((!q%)+1)
 1670             SYS"Wimp_ForceRedraw",!Wn%(2),IX%(14,2),IY%(14,2),IX1%(14,2),IY1%(14,2)
 1680             Exp%(Cexp%,1)=(!q%)+1
 1690ENDCASE
 1700ENDPROC
 1710
 1720DEF PROC_close
 1730IF q%!0=warningW% THEN warnOn%=FALSE
 1740IF q%!0=!Wn0% THEN wopen%(0)=FALSE:SYS"Wimp_GetWindowInfo",,Wn0%
 1750IF q%!0=!Wn1% THEN wopen%(1)=FALSE:SYS"Wimp_GetWindowInfo",,Wn1%
 1760IF q%!0=!Wn2% THEN wopen%(2)=FALSE:SYS"Wimp_GetWindowInfo",,Wn2%
 1770IF q%!0=!Wn3% THEN wopen%(3)=FALSE:SYS"Wimp_GetWindowInfo",,Wn3%
 1780SYS "Wimp_CloseWindow",,q%
 1790ENDPROC
 1800
 1810DEF PROC_do_click(q%)
 1820LOCAL A%,B%
 1830i%=q%!16
 1840CASE q%!12 OF
 1850WHEN warningW%: q%!0=warningW% :PROC_close
 1860WHEN    saveW%: Export%=FALSE: PROC_DoSave(i%)
 1870WHEN  exportW%: Export%=TRUE:  PROC_DoSave(i%)
 1880WHEN -2: REM Look first at Icon Bar Click
 1890        IF q%!16=smpicon% THEN
 1900        IF q%!8=2 OR q%!8=4 THEN SYS"Wimp_CreateMenu",,menu%,q%!0-74,340:IconMenu%=0
 1910        REM IF q%!8=4 THEN PROC_Open
 1920        ENDIF
 1930
 1940 OTHERWISE
 1950              IF q%!8=4 THEN PROC_WinClick(q%!12)
 1960              A%=q%!0-96:B%=q%!4
 1970              IF q%!8=2 THEN PROCsicon(q%!12):SYS"Wimp_CreateMenu",,Mmenu%,A%,B%:IconMenu%=1
 1980ENDCASE
 1990ENDPROC
 2000
 2010DEF PROCsicon(A%)
 2020LOCAL T$,D$,te%
 2030CASE A% OF
 2040WHEN  telW%: $SaveIcon%="file_05A":Stype$="05A":D$=TelFile$:PROCupT
 2050WHEN memoW%: $SaveIcon%="file_05B":Stype$="05B":PROCupM
 2060             IF Memo%=FALSE THEN D$=ToFile$ ELSE:D$=MemFile$
 2070WHEN  expW%: $SaveIcon%="file_05C":Stype$="05C":D$=ExpFile$:PROCupE
 2080WHEN shedW%: $SaveIcon%="file_05D":Stype$="05D":D$=ShedFile$:PROCupS
 2090ENDCASE
 2100Export%=FALSE:PROC_PutName(D$):Export%=TRUE:PROC_PutName(D$+"T")
 2110current%=FNwhat(A%)
 2120ENDPROC
 2130
 2140DEF FNwhat(A%)
 2150LOCAL B%
 2160CASE A% OF
 2170WHEN  telW%: B%=0
 2180WHEN memoW%: B%=1
 2190WHEN  expW%: B%=2
 2200WHEN shedW%: B%=3
 2210ENDCASE
 2220=B%
 2230
 2240DEF PROC_WinClick(w%)
 2250LOCAL A%,B%,Y%
 2260Y%=q%!4
 2270REM Do the action for a window click
 2280CASE w% OF
 2290WHEN  telW%: CASE i% OF
 2300             WHEN 1: PROCupT: PROCupTel(1): PROCpb(0,1)
 2310             WHEN 0: PROCupT: PROCupTel(-1): PROCpb(0,0)
 2320             WHEN 2: IF Ntel%<MaxRec% THEN PROCnewT
 2330                     PROCupT: PROCupTel(1) :PROCupTn
 2340             WHEN 3: PROCcT
 2350             WHEN 4: PROCupT:PROCTXtel
 2360             WHEN 5: RX%=TRUE:PROCopenRX(0)
 2370             ENDCASE
 2380             
 2390WHEN memoW%:
 2400             CASE i% OF
 2410             WHEN 0: PROCupM: PROCmup(-1) : PROCupMbut(1): PROCpb(1,0)
 2420             WHEN 1: PROCupM: PROCmup(1)  : PROCupMbut(1): PROCpb(1,1)
 2430             WHEN 2: PROCupM: PROCnewm(1)  : PROCupMbut(0)
 2440             WHEN 3: PROCcM
 2450             WHEN 4: PROCupM
 2460                     IF Memo% THEN PROCTXmem ELSE PROCTXtodo
 2470             WHEN 5: RX%=TRUE
 2480                     IF Memo% THEN PROCopenRX(2) ELSE PROCopenRX(3)
 2490          WHEN 9,10: PROCupM : Memo%=NOT(Memo%): PROCnewm(0) : PROCupMbut(1)
 2500             ENDCASE
 2510WHEN expW%:  PROC_Trans(expW%)
 2520             PROCupE
 2530             CASE i% OF
 2540             WHEN 0: PROCupE:PROCupExp(-1):PROCpb(2,0)
 2550             WHEN 1: PROCupE:PROCupExp(1): PROCpb(2,1)
 2560             WHEN 2: IF Nexp%<MaxRec% THEN PROCnewE
 2570                     PROCupExp(0)
 2580             WHEN 3: PROCcE
 2590             WHEN 4: PROCupE:PROCTXexp
 2600             WHEN 5: RX%=TRUE:PROCopenRX(5)
 2610             WHEN 15: IconMenu%=FALSE:SYS"Wimp_CreateMenu",,Commenu%,IX1%(15,2)+xo%-10,Y%:IconMenu%=2
 2620             WHEN 16: IconMenu%=FALSE:SYS"Wimp_CreateMenu",,Comenu%,IX1%(16,2)+xo%-10,Y%:IconMenu%=3
 2630    WHEN 17: Exp%(Cexp%,2)=Exp%(Cexp%,2) EOR 1
 2640             IF Exp%(Cexp%,2)=0 THEN $SPoint%(17,2)="no" ELSE $SPoint%(17,2)="yes"
 2650             SYS"Wimp_ForceRedraw",!Wn%(2),IX%(17,2),IY%(17,2),IX1%(17,2),IY1%(17,2)
 2660              ENDCASE
 2670WHEN shedW%: PROCupS
 2680             CASE i% OF
 2690             WHEN 0: PROCupS: PROCupShed(-1): PROCpb(3,0)
 2700             WHEN 1: PROCupS: PROCupShed(1): PROCpb(3,1)
 2710             WHEN 2: PROCupS
 2720                     IF Nshed%<MaxRec% THEN PROCnewS
 2730                     PROCupShed(0)
 2740             WHEN 3: PROCcShed
 2750             WHEN 4: PROCupS:PROCTXshed
 2760             WHEN 5: RX%=TRUE:PROCopenRX(1)
 2770             WHEN 13: Spm%(Cshed%)=NOT(Spm%(Cshed%)):PROC_am
 2780             WHEN 14: Spm%(Cshed%)=NOT(Spm%(Cshed%)):PROC_am
 2790             ENDCASE
 2800ENDCASE
 2810ENDPROC
 2820
 2830DEF PROC_Open(A%)
 2840currentW%=A%
 2850REM OPEN UP WINDOW HERE
 2860IF wopen%(currentW%) THEN
 2870q%!0=!Wn%(currentW%)
 2880SYS"Wimp_GetWindowState",,q%
 2890  IF q%!28<>-1 THEN q%!28=-1: SYS "Wimp_OpenWindow",,q%
 2900ELSE
 2910SYS "Wimp_OpenWindow",,Wn%(currentW%)
 2920wopen%(currentW%)=TRUE
 2930ENDIF
 2940ENDPROC
 2950
 2960DEFPROCsetupmenu
 2970LOCAL m%
 2980
 2990$menu%="Organiser"
 3000menu%?12=7
 3010menu%?13=2
 3020menu%?14=7
 3030menu%?15=0
 3040menu%!16=128
 3050menu%!20=40
 3060menu%!24=0
 3070m%=menu%+28
 3080m%!0=0
 3090m%!4=info%
 3100m%!8=(7<<24)OR %10001
 3110$(m%+12)="Info"
 3120
 3130m%+=24
 3140m%!0=0
 3150m%!4=0
 3160m%!8=(7<<24)OR %10001
 3170$(m%+12)="Telephone"
 3180
 3190m%+=24
 3200m%!0=0
 3210m%!4=0
 3220m%!8=(7<<24)OR %10001
 3230$(m%+12)="Memo"
 3240
 3250m%+=24
 3260m%!0=0
 3270m%!4=0
 3280m%!8=(7<<24)OR %10001
 3290$(m%+12)="Expenses"
 3300
 3310m%+=24
 3320m%!0=0
 3330m%!4=0
 3340m%!8=(7<<24)OR %10001
 3350$(m%+12)="Schedule"
 3360
 3370m%+=24
 3380m%!0=&80
 3390m%!4=0
 3400m%!8=(7<<24)OR %10001
 3410$(m%+12)="Quit"
 3420
 3430$Mmenu%="Organiser"
 3440Mmenu%?12=7
 3450Mmenu%?13=2
 3460Mmenu%?14=7
 3470Mmenu%?15=0
 3480Mmenu%!16=128
 3490Mmenu%!20=40
 3500Mmenu%!24=0
 3510m%=Mmenu%+28
 3520m%!0=0
 3530m%!4=info%
 3540m%!8=(7<<24)OR %10001
 3550$(m%+12)="Info"
 3560
 3570m%+=24
 3580m%!0=0
 3590m%!4=saveW%
 3600m%!8=(7<<24)OR %10001
 3610$(m%+12)="Save"
 3620
 3630m%+=24
 3640m%!0=2
 3650m%!4=exportW%
 3660m%!8=(7<<24)OR %10001
 3670$(m%+12)="Export"
 3680
 3690m%+=24
 3700m%!0=0
 3710m%!4=0
 3720m%!8=(7<<24)OR %10001
 3730$(m%+12)="TX one"
 3740
 3750m%+=24
 3760m%!0=3
 3770m%!4=0
 3780m%!8=(7<<24)OR %10001
 3790$(m%+12)="TX all"
 3800
 3810m%+=24
 3820m%!0=1
 3830m%!4=0
 3840m%!8=(7<<24)OR %10001
 3850$(m%+12)="RX new"
 3860
 3870m%+=24
 3880m%!0=2
 3890m%!4=0
 3900m%!8=(7<<24)OR %10001
 3910$(m%+12)="RX merge"
 3920
 3930m%+=24
 3940m%!0=&80
 3950m%!4=0
 3960m%!8=(7<<24)OR %10001
 3970$(m%+12)="Quit"
 3980
 3990ENDPROC
 4000
 4010DEF PROC_DoSave(i%)
 4020IF i%=0 THEN
 4030            DragOn%=TRUE
 4040            SYS "Wimp_GetPointerInfo",,q%
 4050            IF Export% THEN PROCdragicon(q%!0,q%!4,exportW%,i%) ELSE PROCdragicon(q%!0,q%!4,saveW%,i%)
 4060 ENDIF
 4070 IF i%=2 THEN
 4080  PROC_GetName
 4090  IF INSTR(fn$,":") THEN PROC_Save ELSE PROC_setupW("Drag the Icon into a Directory")
 4100  SYS "Wimp_CreateMenu",,-1
 4110 ENDIF
 4120ENDPROC
 4130
 4140DEF PROCreceive(q%)
 4150LOCAL A%
 4160A%=q%!16
 4170CASE A% OF
 4180WHEN 0:PROCdie
 4190WHEN 2:IF q%!12=saveref% THEN 
 4200          secureF%=q%!36
 4210          fn$=FNsget(q%+44):PROC_Save
 4220          q%!12=saveref%:q%!16=3:q%!0=256:q%!40=&044
 4230          q%!20=messh%:q%!24=messi%:q%!28=messx%:q%!32=messy%
 4240          SYS "Wimp_SendMessage",17,q%,messh%,messi%
 4250          ENDIF
 4260          
 4270WHEN 3:n$=FNsget(q%+44)
 4280       sendth%=q%!4:icontype%=q%!40
 4290       myref%=q%!8
 4300       IF ((q%!20=-2 AND q%!24=smpicon%) OR (q%!20=telW%))  AND icontype%=&5A THEN
 4310        PROCloadT(n$)
 4320        IF q%!20=-2 AND wopen%(0)=FALSE THEN PROC_Open(0): PROC_Dack
 4330        Export%=FALSE:PROC_PutName(n$):Stype$="05A"
 4340        Export%=TRUE:PROC_PutName(n$+"T"):TelFile$=n$
 4350       ENDIF
 4360       
 4370       IF ((q%!20=-2 AND q%!24=smpicon%) OR (q%!20=memoW%))  AND icontype%=&5B THEN
 4380        PROCloadM(n$)
 4390        IF q%!20=-2 AND wopen%(1)=FALSE THEN PROC_Open(1):PROC_Dack
 4400        Export%=FALSE:PROC_PutName(n$):Stype$="05B"
 4410        Export%=TRUE:PROC_PutName(n$+"T")
 4420        IF Memo% THEN MemFile$=n$ ELSE ToFile$=n$
 4430       ENDIF
 4440       
 4450       IF ((q%!20=-2 AND q%!24=smpicon%) OR (q%!20=expW%))  AND icontype%=&5C THEN
 4460        PROCloadE(n$)
 4470        IF q%!20=-2 AND wopen%(2)=FALSE THEN PROC_Open(2):PROC_Dack
 4480        Export%=FALSE:PROC_PutName(n$):Stype$="05C"
 4490        Export%=TRUE:PROC_PutName(n$+"T"):ExpFile$=n$
 4500       ENDIF
 4510       
 4520       IF ((q%!20=-2 AND q%!24=smpicon%) OR (q%!20=shedW%))  AND icontype%=&5D THEN
 4530        PROCloadS(n$)
 4540        IF q%!20=-2 AND wopen%(3)=FALSE THEN PROC_Open(3):PROC_Dack
 4550        Export%=FALSE:PROC_PutName(n$):Stype$="05D"
 4560        Export%=TRUE:PROC_PutName(n$+"T"):ShedFile$=n$
 4570       ENDIF
 4580
 4590WHEN &502:   CASE TRUE OF
 4600             WHEN q%!32=-2 AND q%!36=smpicon%:mes$="This is the Orginiser icon.|MTransfer data with your AM-399C"
 4610             OTHERWISE:mes$=""
 4620             ENDCASE
 4630    IF mes$<>"" THEN
 4640    q%!12=q%!8
 4650    $(q%+20)=mes$+CHR$0
 4660    q%!0=(20+LENmes$+4)AND NOT 3
 4670    q%!16=&503
 4680    SYS "Wimp_SendMessage",18,q%,q%!4
 4690ENDCASE
 4700ENDPROC
 4710
 4720DEF PROC_Dack
 4730sendth%=q%!4
 4740myref%=q%!8
 4750SYS "Wimp_GetPointerInfo",,q%+8
 4760q%!28=q%!8
 4770q%!32=q%!12
 4780q%!0=(44+LENn$+4)AND NOT 3
 4790q%!12=myref%
 4800q%!16=4
 4810q%!36=-1
 4820q%!40=&FF9
 4830$(q%+44)=n$+CHR$0
 4840SYS "Wimp_SendMessage",17,q%,sendth%
 4850ENDIF
 4860ENDPROC
 4870
 4880DEFFNicon
 4890q%!0=-1
 4900q%!4=0
 4910q%!8=10 : REM Y DIRECTION
 4920q%!12=70 : REM X DIRECTION
 4930q%!16=96
 4940q%!20=&2002
 4950$(q%+24)="!Organiser"
 4960SYS "Wimp_CreateIcon",,q% TO icon%
 4970=icon%
 4980
 4990DEF PROC_setupW(t$)
 5000!qw%=warningW%:qw%!4=200:qw%!8=200:qw%!12=200+XQ%:qw%!16=200+YQ%:qw%!20=0:qw%!24=0:qw%!28=-1
 5010$TextWarn%=t$
 5020TextWarn%?LEN(t$)=0
 5030warnOn%=TRUE
 5040SYS "Wimp_OpenWindow",,qw%
 5050ENDPROC
 5060
 5070DEF PROCerrorbox
 5080REM PROCdie
 5090SYS "Wimp_DragBox",,-1
 5100!buffers%=ERR:$(buffers%+4)=REPORT$+" at line "+STR$ERL+CHR$0
 5110SYS "Wimp_ReportError",buffers%,1,"Organiser"
 5120PROCdie
 5130ENDPROC
 5140
 5150DEFPROCdie
 5160SYS "Wimp_CloseDown",taskhand%,!taskid%
 5170END
 5180ENDPROC
 5190
 5200DEF PROCdragicon(mousex%,mousey%,handle%,icon%)
 5210LOCAL bx%,by%,ix0%,iy0%,ix1%,iy1%
 5220PROCgetw(handle%)
 5230PROCgeti(handle%,icon%)
 5240!q%=handle%:q%!4=5
 5250q%!8=bx%+ix0%:q%!12=by%+iy0%:q%!16=bx%+ix1%:q%!20=by%+iy1%
 5260q%!24=q%!8-mousex%:q%!28=q%!12-mousey%
 5270SYS "Wimp_DragBox",,q%
 5280SFLAG%=TRUE
 5290ENDPROC
 5300
 5310DEF PROCgetw(handle%)
 5320!q%=handle%:SYS "Wimp_GetWindowState",,q%:PROCinfo(q%+4)
 5330ENDPROC
 5340
 5350DEF PROCgeti(h%,i%)
 5360!q%=h%:q%!4=i%:SYS "Wimp_GetIconState",,q%
 5370ix0%=q%!8:iy0%=q%!12:ix1%=q%!16:iy1%=q%!20
 5380iflags%=q%!24:idata%=q%+28
 5390ENDPROC
 5400
 5410DEF PROCinfo(p%)
 5420LOCAL x0%,y0%
 5430x0%=!p%:y0%=p%!4:x1%=p%!8:y1%=p%!12
 5440scx%=p%!16:scy%=p%!20:bhandle%=p%!24:flags%=p%!28
 5450bx%=x0%-scx%:by%=y1%-scy%
 5460ENDPROC
 5470
 5480DEF PROC_Save
 5490LOCAL ch%,pp%
 5500F%=OPENOUT(fn$)
 5510CASE current% OF
 5520WHEN 0: PROCsaveT:TelFile$=fn$
 5530WHEN 1: PROCsaveM: IF Memo% THEN MemFile$=fn$ ELSE ToFile$=fn$
 5540WHEN 2: PROCsaveE:ExpFile$=fn$
 5550WHEN 3: PROCsaveS:ShedFile$=fn$
 5560ENDCASE
 5570CLOSE#F%
 5580IF Export% THEN OSCLI("SETTYPE "+fn$+" fff") ELSE OSCLI("SETTYPE "+fn$+" "+Stype$)
 5590PROC_PutName(fn$)
 5600ENDPROC
 5610
 5620DEF PROC_PutName(p$)
 5630IF Export% THEN $Ename%=p$ ELSE $Sname%=p$
 5640ENDPROC
 5650
 5660DEF PROC_PutDown(q%)
 5670IF DragOn% THEN
 5680REM SYS "Wimp_GetPointerInfo",,q%
 5690PROC_GetName
 5700SYS "Wimp_GetPointerInfo",,q%
 5710messh%=q%!12:messi%=q%!16:messx%=q%!0:messy%=q%!4
 5720IF INSTR( fn$,":") THEN fn$=FN_spath(fn$)
 5730$(q%+44)=fn$
 5740?(q%+44+LEN(fn$))=0
 5750q%!20=q%!12:q%!28=q%!0:q%!32=q%!4:q%!36=1024:q%!40=&044
 5760q%!0=56:q%!12=0:q%!16=1
 5770SYS "Wimp_SendMessage",17,q%,messh%,messi%
 5780saveref%=q%!8
 5790SYS "Wimp_CreateMenu",,-1
 5800DragOn%=FALSE
 5810ENDIF
 5820ENDPROC
 5830
 5840DEF PROC_KeyPress
 5850LOCAL C%,D%
 5860IF q%!24=13 THEN
 5870CASE q%!0 OF
 5880WHEN saveW%:   Export%=FALSE: PROC_DoSave(2)
 5890WHEN exportW%: Export%=TRUE:  PROC_DoSave(2)
 5900WHEN telW% : PROCupT
 5910             SYS"Wimp_GetCaretPosition",,tblock%
 5920             SYS"Wimp_SetCaretPosition",-1,-1,0,0,-1,-1,0
 5930             C%=tblock%!4
 5940             C%+=1
 5950             IF C%>13 THEN C%=8:D%=1 ELSE D%=0
 5960             tblock%!4=C%
 5970             SYS"Wimp_SetCaretPosition",telW%,C%,tblock%!8,IY%(C%,0)+6,tblock%!16,LEN(Tel$(Ctel%+D%,C%-8))
 5980             IF Ctel%=Ntel% AND D%=1 AND Ntel%<MaxRec% THEN PROCnewT
 5990             IF D%<>0 THEN PROCupTel(D%)
 6000             
 6010WHEN memoW%: PROCupM
 6020             IF Memo% THEN C%=Cmem%:D%=Nmem% ELSE C%=Ctodo%:D%=Ntodo%
 6030             IF C%=D% THEN PROCnewm(1):PROCupMbut(0) ELSE PROCmup(1): PROCupMbut(1)
 6040WHEN shedW%: PROCupS
 6050             SYS"Wimp_GetCaretPosition",,tblock%
 6060             C%=tblock%!4
 6070             C%+=1
 6080             IF C%>12 THEN C%=8:D%=1 ELSE D%=0
 6090             tblock%!4=C%
 6100             SYS"Wimp_SetCaretPosition",shedW%,C%,tblock%!8,IY%(C%,3)+6,tblock%!16,LEN(Shed$(Cshed%+D%,C%-8))
 6110             IF Cshed%=Nshed% AND D%=1 AND Nshed%<MaxRec% THEN PROCnewS
 6120             IF D%<>0 THEN PROCupShed(D%)
 6130             
 6140WHEN expW%:  PROCupE
 6150             SYS"Wimp_GetCaretPosition",,tblock%
 6160             C%=tblock%!4
 6170             C%+=1
 6180             IF C%>12 THEN C%=8:D%=1 ELSE D%=0
 6190             SYS"Wimp_SetCaretPosition",expW%,C%,tblock%!8,IY%(C%,2)+6,tblock%!16,LEN(Exp$(Cexp%+D%,C%-8))
 6200             IF Cexp%=Nexp% AND D%=1 AND Nexp%<MaxRec% THEN PROCnewE
 6210             IF D%<>0 THEN PROCupExp(D%)
 6220
 6230OTHERWISE
 6240VDU7
 6250ENDCASE
 6260ELSE
 6270SYS"Wimp_ProcessKey",q%!24
 6280ENDIF
 6290ENDPROC
 6300
 6310DEF PROCupM
 6320IF Memo% THEN Mem$(Cmem%)=FN_GetIcon(1,8) ELSE ToDo$(Ctodo%)=FN_GetIcon(1,8)
 6330ENDPROC
 6340
 6350DEF PROCupT
 6360Tel$(Ctel%,0)=FN_GetIcon(0,8)
 6370Tel$(Ctel%,1)=FN_GetIcon(0,9)
 6380Tel$(Ctel%,2)=FN_GetIcon(0,10)
 6390Tel$(Ctel%,3)=FN_GetIcon(0,11)
 6400Tel$(Ctel%,4)=FN_GetIcon(0,12)
 6410Tel$(Ctel%,5)=FN_GetIcon(0,13)
 6420ENDPROC
 6430
 6440DEF PROCupE
 6450Exp$(Cexp%,0)=FN_GetIcon(2,8)
 6460Exp$(Cexp%,1)=FN_GetIcon(2,9)
 6470Exp$(Cexp%,2)=FN_GetIcon(2,10)
 6480Exp$(Cexp%,3)=FN_GetIcon(2,11)
 6490Exp$(Cexp%,4)=FN_GetIcon(2,12)
 6500IF LEN(Exp$(Cexp%,0))<2 THEN Exp$(Cexp%,0)="0"+Exp$(Cexp%,0)
 6510IF LEN(Exp$(Cexp%,1))<2 THEN Exp$(Cexp%,1)="0"+Exp$(Cexp%,1)
 6520ENDPROC
 6530
 6540DEF PROCupS
 6550LOCAL A%
 6560FOR A%=0 TO 4
 6570Shed$(Cshed%,A%)=FN_GetIcon(3,A%+8)
 6580NEXT
 6590IF LEN(Shed$(Cshed%,0))<2 THEN Shed$(Cshed%,0)="0"+Shed$(Cshed%,0)
 6600IF LEN(Shed$(Cshed%,1))<2 THEN Shed$(Cshed%,1)="0"+Shed$(Cshed%,1)
 6610A%=INSTR(Shed$(Cshed%,3),":")
 6620IF LEN(Shed$(Cshed%,3))=3 AND A%=1 THENShed$(Cshed%,3)="00"+Shed$(Cshed%,3)
 6630IF LEN(Shed$(Cshed%,3))=4 AND A%=2 THENShed$(Cshed%,3)="0"+Shed$(Cshed%,3)
 6640IF LEN(Shed$(Cshed%,3)) = 5 THEN
 6650A%=VAL(LEFT$(Shed$(Cshed%,3),2))
 6660IF A%<12 AND Spm%(Cshed%)=TRUE THEN Shed$(Cshed%,3)=STR$(A%+12)+RIGHT$(Shed$(Cshed%,3),3)
 6670IF A%>11 AND Spm%(Cshed%)=FALSE THEN Spm%(Cshed%)=TRUE
 6680ENDIF
 6690ENDPROC
 6700
 6710DEF PROCsaveT
 6720LOCAL A%,B%
 6730PROCupT
 6740IF Export% THEN
 6750PROCexportS("Organiser Telephone Numbers")
 6760PROCexportS(CHR$(&A))
 6770PROCexportS(CHR$(&A))
 6780FOR A% = 1 TO Ntel%
 6790FOR B% = 0 TO 5
 6800IF B%=3 THEN PROCexportS("Tel. ")
 6810IF B%=4 THEN PROCexportS("Fax  ")
 6820PROCexportS(Tel$(A%,B%))
 6830PROCexportS(CHR$(&A))
 6840NEXT
 6850PROCexportS(CHR$(&A))
 6860NEXT
 6870ELSE
 6880PRINT#F%,Ntel%  :REM number of numbers
 6890FOR A% = 1 TO Ntel%
 6900FOR B% = 0 TO 5
 6910PRINT#F%,Tel$(A%,B%)
 6920NEXT:NEXT
 6930ENDIF
 6940ENDPROC
 6950
 6960DEF PROCsaveM
 6970LOCAL A%,B%
 6980PROCupM
 6990IF Memo% THEN A%=Nmem% :B%=2 ELSE A%=Ntodo% :B%=3
 7000IF Export% THEN
 7010IF Memo% THEN PROCexportS("Organiser Memos") ELSE PROCexportS("Organiser To Do")
 7020PROCexportS(CHR$(&A))
 7030PROCexportS(CHR$(&A))
 7040FOR B%=1 TO A%
 7050IF Memo% THEN PROCexportS(Mem$(B%)) ELSE PROCexportS(ToDo$(B%))
 7060PROCexportS(CHR$(&A)):PROCexportS(CHR$(&A))
 7070NEXT
 7080ELSE
 7090BPUT#F%,B%
 7100PRINT#F%,A%  :REM number of numbers
 7110FOR B% = 1 TO A%
 7120IF Memo% THEN PRINT#F%,Mem$(B%) ELSE PRINT#F%,ToDo$(B%)
 7130NEXT
 7140ENDIF
 7150ENDPROC
 7160
 7170DEF PROCsaveE
 7180LOCAL A%,B%,r$
 7190PROCupE
 7200IF Export% THEN
 7210PROCexportS("Organiser Expenses")
 7220PROCexportS(CHR$(&A))
 7230PROCexportS(CHR$(&A))
 7240FOR A% = 1 TO Nexp%
 7250PROCexportS(Exp$(A%,0)+"-"+Exp$(A%,1)+"-"+Exp$(A%,2))
 7260PROCexportS(CHR$(&A))
 7270PROCexportS(Etype$(Exp%(A%,0))+" - �"+Exp$(A%,4))
 7280PROCexportS(CHR$(&A))
 7290IF Exp%(A%,2) THEN r$=" reciept" ELSE r$=" no reciept"
 7300PROCexportS("Payed by "+Epay$(Exp%(A%,1))+r$)
 7310PROCexportS(CHR$(&A))
 7320PROCexportS(Exp$(A%,3))
 7330PROCexportS(CHR$(&A)):PROCexportS(CHR$(&A))
 7340NEXT
 7350ELSE
 7360PRINT#F%,Nexp%  :REM number of numbers
 7370FOR A% = 1 TO Nexp%
 7380FOR B% = 0 TO 4
 7390PRINT#F%,Exp$(A%,B%)
 7400NEXT
 7410FOR B%=0 TO 2
 7420PRINT#F%,Exp%(A%,B%)
 7430NEXT:NEXT
 7440ENDIF
 7450ENDPROC
 7460
 7470
 7480DEF PROCsaveS
 7490LOCAL A%,B%,t$
 7500PROCupS
 7510IF Export% THEN
 7520PROCexportS("Organiser Scheduler")
 7530PROCexportS(CHR$(&A))
 7540PROCexportS(CHR$(&A))
 7550FOR A% = 1 TO Nshed%
 7560IF Spm%(A%) THEN t$=" pm" ELSE t$=" am"
 7570PROCexportS(Shed$(A%,0)+"-"+Shed$(A%,1)+"-"+Shed$(A%,2)+"  "+Shed$(A%,3)+t$)
 7580PROCexportS(CHR$(&A))
 7590PROCexportS(Shed$(A%,4))
 7600PROCexportS(CHR$(&A)):PROCexportS(CHR$(&A))
 7610NEXT
 7620ELSE
 7630BPUT#F%,1
 7640PRINT#F%,Nshed%
 7650FOR A%=1 TO Nshed%
 7660FOR B%=0 TO 4
 7670PRINT#F%,Shed$(A%,B%)
 7680NEXT
 7690PRINT#F%,Spm%(A%)
 7700NEXT
 7710ENDIF
 7720ENDPROC
 7730
 7740DEF PROCloadT(n$)
 7750LOCAL A%,B%
 7760F%=OPENIN(n$)
 7770INPUT#F%,Ntel%
 7780FOR A% = 1 TO Ntel%
 7790FOR B% = 0 TO 5
 7800INPUT#F%,Tel$(A%,B%)
 7810NEXT:NEXT
 7820CLOSE#F%
 7830Ctel%=1
 7840PROCupTel(0)
 7850PROCupTot(0,STR$(Ntel%))
 7860ENDPROC
 7870
 7880DEF PROCcT
 7890LOCAL A%,B%
 7900IF Ntel%<>1 THEN
 7910FOR A%=Ctel% TO Ntel%-1
 7920FOR B%=0 TO 5
 7930Tel$(A%,B%)=Tel$(A%+1,B%)
 7940NEXT:NEXT
 7950Ntel%-=1
 7960PROCupTel(0)
 7970PROCupTot(0,STR$(Ntel%))
 7980ELSE
 7990VDU7
 8000ENDIF
 8010ENDPROC
 8020
 8030DEF PROCloadM(n$)
 8040LOCAL A%,B%
 8050PROCupM
 8060Stype$="05B"
 8070F%=OPENIN(n$)
 8080B%=BGET#F%
 8090IF B%=2 THEN Memo%=TRUE ELSE Memo%=FALSE
 8100IF Memo% THEN INPUT#F%,Nmem% :B%=Nmem% ELSE INPUT#F%,Ntodo%: B%=Ntodo%
 8110FOR A%=1 TO B%
 8120IF Memo% THEN INPUT#F%,Mem$(A%) ELSE INPUT#F%,ToDo$(A%)
 8130NEXT
 8140CLOSE#F%
 8150PROC_sput(1,7,STR$(B%))
 8160PROC_sput(1,6,"1")
 8170PROCupMbut(1)
 8180ENDPROC
 8190
 8200DEF PROCcM
 8210LOCAL A%,B%
 8220IF Memo% THEN
 8230  IF Nmem%<>1 THEN
 8240  FOR A%=Cmem% TO Nmem%-1
 8250  Mem$(A%)=Mem$(A%+1)
 8260  NEXT
 8270  Nmem%-=1
 8280  PROC_sput(1,7,STR$(Nmem%))
 8290  PROCupMbut(0)
 8300  ELSE
 8310  VDU7
 8320  ENDIF
 8330ELSE
 8340  IF Ntodo%<>1 THEN
 8350  FOR A%=Ctodo% TO Ntodo%-1
 8360  ToDo$(A%)=ToDo$(A%+1)
 8370  NEXT
 8380  Ntodo%-=1
 8390  PROC_sput(1,7,STR$(Ntodo%))
 8400  PROCupMbut(0)
 8410  ELSE
 8420  VDU7
 8430  ENDIF
 8440ENDIF
 8450ENDPROC
 8460
 8470DEF PROCloadE(n$)
 8480LOCAL A%,B%
 8490F%=OPENIN(n$)
 8500INPUT#F%,Nexp%
 8510FOR A%=1 TO Nexp%
 8520FOR B%=0 TO 4
 8530INPUT#F%,Exp$(A%,B%)
 8540NEXT
 8550FOR B%=0 TO 2
 8560INPUT#F%,Exp%(A%,B%)
 8570NEXT
 8580NEXT
 8590CLOSE#F%
 8600PROCupTot(2,STR$(Nexp%))
 8610Cexp%=1
 8620PROCupExp(0)
 8630ENDPROC
 8640
 8650DEF PROCcE
 8660LOCAL A%,B%
 8670IF Nexp%<>1 THEN
 8680FOR A%=Cexp% TO Nexp%-1
 8690FOR B%=0 TO 4
 8700Exp$(A%,B%)=Exp$(A%+1,B%)
 8710NEXT
 8720FOR B%=0 TO 2
 8730Exp%(A%,B%)=Exp%(A%+1,B%)
 8740NEXT
 8750Nexp%-=1
 8760PROCupTot(2,STR$(Nexp%))
 8770PROCupExp(0)
 8780ELSE
 8790VDU7
 8800ENDIF
 8810ENDPROC
 8820
 8830DEF PROCloadS(n$)
 8840LOCAL A%,B%
 8850F%=OPENIN(n$)
 8860B%=BGET#F%
 8870INPUT#F%,Nshed%
 8880FOR A%=1 TO Nshed%
 8890FOR B%=0 TO 4
 8900INPUT#F%,Shed$(A%,B%)
 8910NEXT
 8920INPUT#F%,Spm%(A%)
 8930NEXT
 8940CLOSE#F%
 8950PROCupTot(3,STR$(Nshed%))
 8960Cshed%=1
 8970PROCupShed(0)
 8980ENDPROC
 8990
 9000DEF PROCcShed
 9010LOCAL A%,B%
 9020IF Nshed%<>1 THEN
 9030FOR A%=Cshed% TO Nshed%-1
 9040FOR B%=0 TO 4
 9050Shed$(A%,B%)=Shed$(A%+1,B%)
 9060NEXT
 9070Spm%(A%)=Spm%(A%+1)
 9080NEXT
 9090Nshed%-=1
 9100PROCupShed(0)
 9110PROCupTot(3,STR$(Nshed%))
 9120ELSE
 9130VDU7
 9140ENDIF
 9150ENDPROC
 9160
 9170DEF PROCupTot(w%,v$)
 9180PROC_sput(w%,7,v$)
 9190SYS"Wimp_ForceRedraw",!Wn%(w%),IX%(7,w%),IY%(7,w%),IX1%(7,w%),IY1%(7,w%)
 9200ENDPROC
 9210
 9220DEF PROCupTn
 9230PROC_sput(0,7,STR$(Ntel%))
 9240SYS"Wimp_ForceRedraw",!Wn%(0),IX%(7,0),IY%(7,0),IX1%(7,0),IY1%(7,0)
 9250ENDPROC
 9260
 9270DEF PROCupTel(i%)
 9280SYS"Wimp_GetCaretPosition",,tblock%
 9290Ctel%+=i%
 9300IF Ctel%>Ntel% THEN Ctel%=Ntel%
 9310IF Ctel%<1 THEN Ctel%=1
 9320FOR A%=0 TO 5
 9330PROC_sput(0,A%+8,Tel$(Ctel%,A%))
 9340IF tblock%!0=telW% AND tblock%!4=A%+8 THEN
 9350SYS"Wimp_SetCaretPosition",telW%,tblock%!4,tblock%!8,tblock%!12,tblock%!16,LEN(Tel$(Ctel%,A%))
 9360ENDIF
 9370NEXT
 9380PROC_sput(0,6,STR$(Ctel%))
 9390ENDPROC
 9400
 9410DEF PROCupShed(i%)
 9420SYS"Wimp_GetCaretPosition",,tblock%
 9430Cshed%+=i%
 9440IF Cshed%>Nshed% THEN Cshed%=Nshed%
 9450IF Cshed%<1 THEN Cshed%=1
 9460FOR A%=0 TO 4
 9470PROC_sput(3,A%+8,Shed$(Cshed%,A%))
 9480IF tblock%!0=shedW% AND tblock%!4=A%+8 THEN
 9490SYS"Wimp_SetCaretPosition",shedW%,tblock%!4,tblock%!8,tblock%!12,tblock%!16,LEN(Shed$(Cshed%,A%))
 9500ENDIF
 9510NEXT
 9520PROC_sput(3,6,STR$(Cshed%))
 9530PROC_am
 9540ENDPROC
 9550
 9560DEF PROCupExp(i%)
 9570LOCAL A%
 9580SYS"Wimp_GetCaretPosition",,tblock%
 9590Cexp%+=i%
 9600IF Cexp%>Nexp% THEN Cexp%=Nexp%
 9610IF Cexp%<1 THEN Cexp%=1
 9620FOR A%=0 TO 4
 9630PROC_sput(2,A%+8,Exp$(Cexp%,A%))
 9640IF tblock%!0=expW% AND tblock%!4=A%+8 THEN
 9650SYS"Wimp_SetCaretPosition",expW%,tblock%!4,tblock%!8,tblock%!12,tblock%!16,LEN(Exp$(Cexp%,A%))
 9660ENDIF
 9670NEXT
 9680PROC_sput(2,6,STR$(Cexp%))
 9690IF Exp%(Cexp%,2) THEN $SPoint%(17,2)="yes" ELSE $SPoint%(17,2)="no"
 9700$SPoint%(13,2)=Etype$(Exp%(Cexp%,0))
 9710$SPoint%(14,2)=Epay$(Exp%(Cexp%,1))
 9720SYS"Wimp_ForceRedraw",!Wn%(2),IX%(17,2),IY%(17,2),IX1%(17,2),IY1%(17,2)
 9730SYS"Wimp_ForceRedraw",!Wn%(2),IX%(14,2),IY%(14,2),IX1%(14,2),IY1%(14,2)
 9740SYS"Wimp_ForceRedraw",!Wn%(2),IX%(13,2),IY%(13,2),IX1%(13,2),IY1%(13,2)
 9750ENDPROC
 9760
 9770DEF PROCupMbut(R%)
 9780LOCAL L%
 9790IF Memo% THEN
 9800$SPoint%(9,1)="radioon"
 9810$SPoint%(10,1)="radiooff"
 9820IF R%=0 THEN Cmem%=Nmem%:PROCmup(0)
 9830PROC_sput(1,8,Mem$(Cmem%))
 9840L%=LEN(Mem$(Cmem%))
 9850ELSE
 9860$SPoint%(10,1)="radioon"
 9870$SPoint%(9,1)="radiooff"
 9880IF R%=0 THEN Ctodo%=Ntodo%:PROCmup(0)
 9890PROC_sput(1,8,ToDo$(Ctodo%))
 9900L%=LEN(ToDo$(Ctodo%))
 9910ENDIF
 9920SYS"Wimp_GetCaretPosition",,tblock%
 9930IF tblock%!0=memoW% AND tblock%!4=8 THEN
 9940SYS"Wimp_SetCaretPosition",memoW%,tblock%!4,tblock%!8,tblock%!12,tblock%!16,L%
 9950ENDIF
 9960SYS"Wimp_ForceRedraw",!Wn%(1),IX%(10,1),IY%(10,1),IX1%(10,1),IY1%(10,1)
 9970SYS"Wimp_ForceRedraw",!Wn%(1),IX%(9,1),IY%(9,1),IX1%(9,1),IY1%(9,1)
 9980REM SYS"Wimp_ForceRedraw",!Wn%(1),IX%(8,1),IY%(8,1),IX1%(8,1),IY1%(8,1)
 9990ENDPROC
10000
10010DEFFNsget(x%)
10020LOCAL x$
10030WHILE ?x%>&1F x$+=CHR$(?x%):x%+=1:ENDWHILE
10040=x$
10050
10060DEFFNpg(n%,W%)
10070LOCAL A$
10080A$=FNsget(SPoint%(n%,W))
10090=VAL(A$)
10100
10110DEF FN_GetIcon(W%,In%)
10120LOCAL T%,A%,R$
10130R$=FNsget(SPoint%(In%,W%))
10140=R$
10150
10160DEF PROC_sput(W%,In%,X$)
10170LOCAL A%,x%
10180x%=SPoint%(In%,W%)
10190A%=1
10200IF LEN(X$)<>0 THEN
10210WHILE A%<>(LEN(X$)+1)
10220?x%=ASC(MID$(X$,A%,1))
10230x%+=1
10240A%+=1
10250ENDWHILE
10260ENDIF
10270?x%=0
10280SYS"Wimp_ForceRedraw",!Wn%(W%),IX%(In%,W%),IY%(In%,W%),IX1%(In%,W%),IY1%(In%,W%)
10290ENDPROC
10300
10310DEF PROCinit
10320LOCAL A%,B%
10330ToFile$="ToDo"
10340MemFile$="Memo"
10350TelFile$="Tel"
10360ExpFile$="Exp"
10370ShedFile$="Shed"
10380FOR A%=0 TO 5
10390Tel$(1,A%)=" "
10400NEXT
10410FOR A%=1 TO MaxRec%
10420Mem$(A%)=""
10430ToDo$(A%)=""
10440Spm%(A%)=FALSE
10450FOR B%=0 TO 4
10460Shed$(A%,B%)=""
10470NEXT
10480FOR B%=0 TO 2
10490Exp$(A%,B%)=""
10500Exp%(A%,B%)=1
10510NEXT
10520Exp$(A%,3)=""
10530NEXT
10540FOR A%=1 TO 4
10550READ Epay$(A%)
10560NEXT
10570PROCexpcat
10580PROCimset
10590DATA Cash,Cheque,Card,Other
10600ENDPROC
10610
10620DEF PROCexpcat
10630LOCAL A%,B%,F%
10640F%=OPENIN("<ORG$Dir>.ExpCat")
10650A%=1
10660REPEAT
10670Etype$(A%)=""
10680REPEAT
10690B%=BGET#F%
10700IF B%>&1F THEN Etype$(A%)=Etype$(A%)+CHR$(B%)
10710UNTIL B%<&20
10720A%+=1
10730UNTIL A%=9
10740CLOSE#F%
10750ENDPROC
10760
10770DEF PROCimset
10780LOCAL A%,B%
10790FOR A%=0 TO 7
10800$(TypeM%+(A%*25))=Etype$(A%+1)
10810NEXT
10820FOR A%=0 TO 3
10830$(PayM%+(A%*25))=Epay$(A%+1)
10840NEXT
10850$Commenu%="Type"
10860Commenu%?12=7
10870Commenu%?13=2
10880Commenu%?14=7
10890Commenu%?15=0
10900Commenu%!16=288
10910Commenu%!20=40
10920Commenu%!24=0
10930m%=Commenu%+28
10940
10950FOR A%=0 TO 7
10960m%!0=0
10970m%!4=0
10980m%!8=(7<<24)OR %100010001
10990m%!12=TypeM%+(A%*25)
11000m%!16=0
11010m%!20=25
11020m%+=24
11030NEXT
11040m%-=24
11050m%!0=&80
11060
11070$Comenu%="Payment"
11080Comenu%?12=7
11090Comenu%?13=2
11100Comenu%?14=7
11110Comenu%?15=0
11120Comenu%!16=288
11130Comenu%!20=40
11140Comenu%!24=0
11150m%=Comenu%+28
11160
11170FOR A%=0 TO 3
11180m%!0=0
11190m%!4=0
11200m%!8=(7<<24)OR %100010001
11210m%!12=PayM%+(A%*25)
11220m%!16=0
11230m%!20=25
11240m%+=24
11250NEXT
11260m%-=24
11270m%!0=&80
11280
11290ENDPROC
11300
11310DEF PROCnewT
11320LOCAL A%
11330Ntel%+=1:PROCupTot(0,STR$(Ntel%))
11340FOR A%=0 TO 5
11350Tel$(Ntel%,A%)=""
11360NEXT
11370ENDPROC
11380
11390DEF PROCnewS
11400LOCAL A%
11410Nshed%+=1:PROCupTot(3,STR$(Nshed%))
11420FOR A%=0 TO 4
11430Shed$(Nshed%,A%)=""
11440NEXT
11450Spm%(Nshed%)=Spm%(Nshed%-1)
11460ENDPROC
11470
11480DEF PROCnewE
11490LOCAL A%
11500Nexp%+=1:PROCupTot(2,STR$(Nexp%))
11510FOR A%=0 TO 4
11520Exp$(Nexp%,A%)=""
11530NEXT
11540Exp%(Nexp%,0)=Exp%(Nexp%-1,0)
11550Exp%(Nexp%,1)=Exp%(Nexp%-1,1)
11560Exp%(Nexp%,2)=Exp%(Nexp%-1,2)
11570ENDPROC
11580
11590DEF PROCmup(I%)
11600IF Memo% THEN
11610Cmem%+=I%
11620IF Cmem%>Nmem% THEN Cmem%=Nmem%
11630IF Cmem%<1 THEN Cmem%=1
11640PROC_sput(1,6,STR$(Cmem%))
11650ELSE
11660Ctodo%+=I%
11670IF Ctodo%>Ntodo% THEN Ctodo%=Ntodo%
11680IF Ctodo%<1 THEN Ctodo%=1
11690PROC_sput(1,6,STR$(Ctodo%))
11700ENDIF
11710ENDPROC
11720
11730DEF PROCnewm(I%)
11740IF Memo% THEN
11750Nmem%+=I%
11760IF Nmem%>MaxRec% THEN Nmem%=MaxRec%
11770IF Mmen%<MaxRec% AND I%>0 THEN Mem$(Nmem%)=""
11780IF Nmem%<1 THEN Nmem%=1
11790PROC_sput(1,7,STR$(Nmem%))
11800ELSE
11810Ntodo%+=I%
11820IF Ntodo%>MaxRec% THEN Ntodo%=MaxRec%
11830IF Ntodo%<MaxRec% AND I%>0 THEN ToDo$(Ntodo%)=""
11840IF Ntodo%<1 THEN Ntodo%=1
11850PROC_sput(1,7,STR$(Ntodo%))
11860ENDIF
11870ENDPROC
11880
11890DEF PROC_am
11900IF Spm%(Cshed%) THEN
11910$SPoint%(14,3)="radioon"
11920$SPoint%(13,3)="radiooff"
11930ELSE
11940$SPoint%(13,3)="radioon"
11950$SPoint%(14,3)="radiooff"
11960ENDIF
11970SYS"Wimp_ForceRedraw",!Wn%(3),IX%(14,3),IY%(14,3),IX1%(14,3),IY1%(14,3)
11980SYS"Wimp_ForceRedraw",!Wn%(3),IX%(13,3),IY%(13,3),IX1%(13,3),IY1%(13,3)
11990ENDPROC
12000
12010DEF PROC_Trans(wh%)
12020!q%=wh%
12030SYS "Wimp_GetWindowState",,q%
12040xo%=q%!4-q%!20+8:yo%=q%!16-q%!24-290
12050XO%=q%!4:YO%=q%!16
12060ENDPROC
12070
12080DEF PROCpb(w%,i%)
12090IF i%=0 THEN $SPoint%(0,w%)="pdown" ELSE $SPoint%(1,w%)="pup"
12100SYS"Wimp_ForceRedraw",!Wn%(w%),IX%(i%,w%),IY%(i%,w%),IX1%(i%,w%),IY1%(i%,w%)
12110RdUD%=TRUE
12120Rd1%=w%:Rd2%=i%
12130ENDPROC
12140
12150DEF PROCopenRX(a%)
12160LOCAL X%,Y%,B%,A%
12170MOUSE X%,Y%,B%
12180X%-=140:Y%-=90
12190RXw%!0=rx1W%:RXw%!4=X%:RXw%!8=Y%
12200RXw%!12=306+X%:RXw%!16=168+Y%:RXw%!20=0:RXw%!24=0:RXw%!28=-1
12210SYS "Wimp_OpenWindow",,RXw%
12220RXtype%=a%
12230CkB%=0
12240NbRX%=0:RXcount%=0:RXpram%=0
12250Y%=Mmenu%!148
12260CASE RXtype% OF
12270WHEN 0: IF Y%=1 THEN RXrecord%=1 ELSE RXrecord%=Ntel%+1
12280WHEN 1: IF Y%=1 THEN Cshed%=RXrecord%:RXrecord%=1 ELSE RXrecord%=Nshed%+1
12290WHEN 2: IF Y%=1 THEN RXrecord%=2 ELSE RXrecord%=Nmem%+1
12300WHEN 3: IF Y%=1 THEN RXrecord%=2 ELSE RXrecord%=Ntodo%+1
12310WHEN 5: IF Y%=1 THEN Cexp%=RXrecord%:RXrecord%=1 ELSE RXrecord%=Nexp%+1
12320ENDCASE
12330ENDPROC
12340
12350DEF PROCacCK(A%)
12360IF A%>&7F THEN A%=A% OR &FFFFFF00
12370CkB%=CkB%-A%
12380ENDPROC
12390
12400DEF PROCrxINIT
12410SYS"OS_SerialOp",0,&34,&FF00
12420SYS"OS_SerialOp",1,0
12430SYS"OS_SerialOp",5,12
12440SYS"OS_SerialOp",6,12
12450SYS"OS_Byte",2,2
12460Abort%=FALSE
12470CkB%=0
12480ENDPROC
12490
12500DEF PROC_gath(b%)
12510IF NbRX%<>0 THEN PROCacCK(b%)
12520NbRX%+=1
12530IF NbRX%=2 AND b%<>RXtype% THEN PROC_setupW("wrong type of data"):Abort%=TRUE:VDU7
12540IF NbRX%=3 THEN RXcount%=1
12550IF RXcount%<>0 THEN
12560b%=FNtransRX(b%)
12570CASE RXtype% OF
12580WHEN 0: IF b%<&F8 THEN
12590        IF RXcount%=1 THEN Tel$(RXrecord%,RXpram%)=CHR$(b%) ELSE Tel$(RXrecord%,RXpram%)=Tel$(RXrecord%,RXpram%)+CHR$(b%)
12600        RXcount%+=1
12610        ELSE
12620        PROCrxcont(b%)
12630        ENDIF
12640        
12650WHEN 1: IF b%<&F8 THEN
12660        IF RXcount%=1 THEN Shed$(RXrecord%,RXpram%)=CHR$(b%) ELSE Shed$(RXrecord%,RXpram%)=Shed$(RXrecord%,RXpram%)+CHR$(b%)
12670        RXcount%+=1
12680        ELSE
12690        PROCrxcont(b%)
12700        ENDIF
12710
12720WHEN 2: IF b%<&F8 THEN
12730        IF RXcount%=1 THEN Mem$(RXrecord%)=CHR$(b%) ELSE Mem$(RXrecord%)=Mem$(RXrecord%)+CHR$(b%)
12740        RXcount%+=1
12750        ELSE
12760        PROCrxcont(b%)
12770        ENDIF
12780        
12790WHEN 3: IF b%<&F8 THEN
12800        IF RXcount%=1 THEN ToDo$(RXrecord%)=CHR$(b%) ELSE ToDo$(RXrecord%)=ToDo$(RXrecord%)+CHR$(b%)
12810        RXcount%+=1
12820        ELSE
12830        PROCrxcont(b%)
12840        ENDIF
12850        
12860WHEN 5: IF b%<&F8 THEN
12870        IF RXcount%=1 THEN Exp$(RXrecord%,RXpram%)=CHR$(b%) ELSE Exp$(RXrecord%,RXpram%)=Exp$(RXrecord%,RXpram%)+CHR$(b%)
12880        RXcount%+=1
12890        ELSE
12900        PROCrxcont(b%)
12910        ENDIF
12920
12930ENDCASE
12940ENDIF
12950ENDPROC
12960
12970DEF PROCrxcont(b%)
12980        IF b%=&FF THEN RXcount%=1:RXpram%+=1
12990        IF b%=&FE THEN RXpram%=0:RXrecord%+=1:RXcount%=1
13000        IF RXrecord%>MaxRec% THEN RXrecord%=MaxRec%:PROC_setupW("too much data")
13010ENDPROC
13020
13030DEF PROCtidy
13040LOCAL B%,C%,D%
13050B%=FNgetS
13060CkB%=CkB% AND &FF
13070IF B%<>CkB% THEN PROC_setupW("Check byte was "+STR$(B%)+" should be "+STR$(CkB%))
13080B%=FNgetS
13090IF B%<>&1A THEN PROC_setupW("Last byte 1A not correct")
13100IF Abort%=FALSE THEN
13110CASE RXtype% OF
13120WHEN 0: Ctel%=1:PROCupTel(0):Ntel%=RXrecord%-1:PROCupTot(0,STR$(Ntel%))
13130WHEN 1: Nshed%=RXrecord%-1:PROCupTot(3,STR$(Nshed%))
13140        FOR C%=Cshed% TO Nshed%
13150        D%=VAL(MID$(Shed$(C%,0),9,2))
13160        IF D%>12 THEN Spm%(C%)=TRUE ELSE Spm%(C%)=FALSE
13170        Shed$(C%,4)=Shed$(C%,1)
13180        Shed$(C%,3)=MID$(Shed$(C%,0),9,2)+":"+RIGHT$(Shed$(C%,0),2)
13190        Shed$(C%,2)=LEFT$(Shed$(C%,0),4)
13200        Shed$(C%,1)=MID$(Shed$(C%,0),5,2)
13210        Shed$(C%,0)=MID$(Shed$(C%,0),7,2)
13220        NEXT
13230        Cshed%=1
13240        PROCupShed(0)
13250WHEN 2: Cmem%=1:PROCmup(0):Nmem%=RXrecord%-1
13260        IF (Mmenu%!148)=1 THEN PROCcM ELSE PROCupTot(1,STR$(Nmem%))
13270WHEN 3: Ctodo%=1:PROCmup(0):Ntodo%=RXrecord%-1
13280        IF (Mmenu%!148)=1 THEN PROCcM ELSE PROCupTot(1,STR$(Ntodo%))
13290WHEN 5: Nexp%=RXrecord%-1:PROCupTot(2,STR$(Nexp%))
13300        FOR C%=Cexp% TO Nexp%
13310        IF Exp$(C%,4)="N" THEN Exp%(C%,2)=FALSE ELSE Exp%(C%,2)=TRUE
13320        Exp%(C%,0)=VAL(Exp$(C%,1))
13330        Exp%(C%,1)=VAL(Exp$(C%,3))
13340        Exp$(C%,3)=Exp$(C%,5)
13350        Exp$(C%,4)=Exp$(C%,2)
13360        Exp$(C%,2)=LEFT$(Exp$(C%,0),4)
13370        Exp$(C%,1)=MID$(Exp$(C%,0),5,2)
13380        Exp$(C%,0)=MID$(Exp$(C%,0),7,2)
13390        NEXT
13400        Cexp%=1
13410        PROCupExp(0)
13420ENDCASE
13430ENDIF
13440ENDPROC
13450
13460DEF FNgetS
13470LOCAL B%,C%
13480REPEAT
13490SYS"OS_SerialOp",4,256 TO ,B% ;C%
13500C%=C% AND &2
13510UNTIL C%=0
13520=B%
13530
13540DEF PROCempty
13550LOCAL B%,C%
13560REPEAT
13570SYS"OS_SerialOp",4,256 TO ,B% ;C%
13580C%=C% AND &2
13590UNTIL C%<>0
13600ENDPROC
13610
13620DEF PROCacCK(A%)
13630IF A%>&7F THEN A%=A% OR &FFFFFF00
13640CkB%=CkB%-A%
13650ENDPROC
13660
13670DEF PROCTXmem
13680LOCAL A%,B%,C%
13690PROCrxINIT
13700SYS"Hourglass_Start",10
13710PROCTXb(&50)
13720PROCTXb(2):PROCacCK(2)
13730C%=Cmem%
13740IF Mmenu%!100=0 THEN B%=Nmem% ELSE B%=Cmem%
13750FOR A%=C% TO B%
13760PROCTXs(Mem$(A%))
13770PROCTXb(&FE):PROCacCK(&FE)
13780NEXT
13790PROCfinishTX
13800ENDPROC
13810
13820DEF PROCTXtodo
13830LOCAL A%,B%,C%
13840PROCrxINIT
13850SYS"Hourglass_Start",10
13860PROCTXb(&50)
13870PROCTXb(3):PROCacCK(3)
13880C%=Ctodo%
13890IF Mmenu%!100=0 THEN B%=Ntodo% ELSE B%=Ctodo%
13900FOR A%=C% TO B%
13910PROCTXs(ToDo$(A%))
13920PROCTXb(&FE):PROCacCK(&FE)
13930NEXT
13940PROCfinishTX
13950ENDPROC
13960
13970DEF PROCTXtel
13980LOCAL A%,B%,C%,D%
13990PROCrxINIT
14000SYS"Hourglass_Start",10
14010PROCTXb(&50)
14020PROCTXb(0):PROCacCK(0)
14030C%=Ctel%
14040IF Mmenu%!100=0 THEN B%=Ntel% ELSE B%=Ctel%
14050FOR A%=C% TO B%
14060FOR D%=0 TO 5
14070PROCTXs(Tel$(A%,D%))
14080PROCTXb(&FF):PROCacCK(&FF)
14090NEXT
14100PROCTXb(&FE):PROCacCK(&FE)
14110NEXT
14120PROCfinishTX
14130ENDPROC
14140
14150DEF PROCTXexp
14160LOCAL A%,B%,C%,D%,t$
14170PROCrxINIT
14180SYS"Hourglass_Start",10
14190PROCTXb(&50)
14200PROCTXb(5):PROCacCK(5)
14210C%=Cexp%
14220IF Mmenu%!100=0 THEN B%=Nexp% ELSE B%=Cexp%
14230FOR A%=C% TO B%
14240PROCTXs(Exp$(A%,2)+Exp$(A%,1)+Exp$(A%,0)) :REM Date
14250PROCTXb(&FF):PROCacCK(&FF)
14260PROCTXs(STR$(Exp%(A%,0))) : REM Type
14270PROCTXb(&FF):PROCacCK(&FF)
14280PROCTXs(Exp$(A%,4))       : REM Ammount
14290PROCTXb(&FF):PROCacCK(&FF)
14300PROCTXs(STR$(Exp%(A%,1))) : REM Pay method
14310PROCTXb(&FF):PROCacCK(&FF)
14320IF Exp%(A%,2) THEN PROCTXs("Y") ELSE PROCTXs("N") : REM Reciept
14330PROCTXb(&FF):PROCacCK(&FF)
14340PROCTXs(Exp$(A%,3))       : REM Note
14350PROCTXb(&FE):PROCacCK(&FE)
14360NEXT
14370PROCfinishTX
14380ENDPROC
14390
14400DEF PROCTXshed
14410LOCAL A%,B%,C%,D%,t$
14420PROCrxINIT
14430SYS"Hourglass_Start",10
14440PROCTXb(&50)
14450PROCTXb(1):PROCacCK(1)
14460C%=Cshed%
14470IF Mmenu%!100=0 THEN B%=Nshed% ELSE B%=Cshed%
14480FOR A%=C% TO B%
14490IF LEN(Shed$(A%,3)) = 5 THEN t$=LEFT$(Shed$(A%,3),2)+RIGHT$(Shed$(A%,3),2) ELSE t$=FNmakeT(Shed$(A%,3))
14500PROCTXs(Shed$(A%,2)+Shed$(A%,1)+Shed$(A%,0)+t$)
14510PROCTXb(&FF):PROCacCK(&FF)
14520PROCTXs(Shed$(A%,4))
14530PROCTXb(&FE):PROCacCK(&FE)
14540NEXT
14550PROCfinishTX
14560ENDPROC
14570
14580DEF FNmakeT(a$)
14590LOCAL t$,L%,C%
14600t$=a$
14610C%=INSTR(a$,":")
14620L%=LEN(a$)
14630IF C%<>0 THEN
14640WHILE L%<5
14650a$="0"+a$
14660L%+=1
14670ENDWHILE
14680C%=INSTR(a$,":")
14690t$=LEFT$(a$,C%-1)+RIGHT$(a$,L%-C%)
14700ELSE
14710WHILE L%<4
14720t$="0"+t$
14730L%+=1
14740ENDWHILE
14750ENDIF
14760=t$
14770
14780DEF PROCfinishTX
14790IF Abort% THEN
14800PROC_setupW("Buffer overflow, hardware not connected"):VDU7
14810ELSE
14820PROCTXb(&F8):PROCacCK(&F8)
14830PROCTXb(CkB%)
14840PROCTXb(&1A)
14850ENDIF
14860SYS"Hourglass_Off"
14870ENDPROC
14880
14890
14900DEF PROCTXs(s$)
14910LOCAL A%,B%
14920FOR A%=1 TO LEN(s$)
14930B%=ASC(MID$(s$,A%,1))
14940B%=FNtransTX(B%)
14950PROCTXb(B%):PROCacCK(B%)
14960NEXT
14970ENDPROC
14980
14990DEF PROCTXb(b%)
15000LOCAL T%
15010IF NOT(Abort%) THEN
15020T%=TIME+50
15030REPEAT
15040SYS"OS_SerialOp",3,b% TO ;C%
15050C%=C% AND 2
15060UNTIL C%=0 OR TIME>T%
15070IF C%<>0 THEN Abort%=TRUE
15080ENDIF
15090ENDPROC
15100
15110DEF PROCexportS(s$)
15120LOCAL A%,C%
15130FOR A%=1 TO LEN(s$)
15140C%=ASC(MID$(s$,A%,1))
15150IF C%=172 THEN C%=&A
15160BPUT#F%,C%
15170NEXT
15180ENDPROC
15190
15200DEF FNtransTX(A%)
15210LOCAL B%
15220B%=A%
15230IF A%=172 THEN B%=&13
15240IF A%=&60 THEN B%=&26
15250IF A%=&7C THEN B%=&21
15260IF A%=&3A THEN B%=&21
15270IF A%>&60 AND A%<>172 THEN B%=A% AND &5F:A%=B%
15280IF A%<&30 THEN
15290CASE A% OF
15300WHEN &20 :B%=&20
15310WHEN &24 :B%=&27
15320WHEN &2F :B%=&24
15330WHEN &2E :B%=&29
15340WHEN &2D :B%=&28
15350WHEN &27 :B%=&22
15360OTHERWISE
15370B%=&25
15380ENDCASE
15390ENDIF
15400=B%
15410
15420DEF FNtransRX(A%)
15430LOCAL B%
15440B%=A%
15450IF A%<&30 THEN
15460CASE A% OF
15470WHEN &13: B%=172
15480WHEN &20: B%=&20
15490WHEN &21: B%=&3A
15500WHEN &22: B%=180
15510WHEN &23: B%=44
15520WHEN &24: B%=47
15530WHEN &25: B%=165
15540WHEN &26: B%=163
15550WHEN &27: B%=36
15560WHEN &28: B%=&2D
15570WHEN &29: B%=&2E
15580WHEN &2E: B%=&2B
15590OTHERWISE
15600B%=&3F
15610ENDCASE
15620ENDIF
15630=B%
15640


 � Personal Organiser AM-399C
� Version 1.0 By Mike Cook
� All rights reserved
(� � �errorbox
2
<*� taskid%4,intmess% 20:$taskid%="TASK"
FIintmess%!0=1:intmess%!4=2:intmess%!8=3:intmess%!12=&502:intmess%!16=0
POș "Wimp_Initialise",300,!taskid%,"Organiser",intmess% � version%,taskhand%
Zm� q% &600,qc% 80,temp% 512,buffers% 512,menu% 256,Mmenu% 512,cb% 18,qw% &300,qn% &300, Sw% &300, Ew% &300
dK� Wn0% &700, Wn1% &500, Wn2% &500, Wn3% &500,RXw% 500, Wn%(3),wopen%(3)
nL� SW0% 700,SW1% 512,SW2% 612, SW3% 512,tblock% 24, TypeM% 200, PayM% 200
x5� Commenu% 512, Comenu% 256,RCW% 500, EsName% 556
�K� IsName% 556, Wmenu% 512,Smenu% 256,Imenu% 256, TextWarn% 100, ww% 256
�=� SPoint%(20,3),IX%(20,3),IY%(20,3),IX1%(20,3),IY1%(20,3)
�FMaxRec%=100 : � alter this to change the maximum number of records
�Q� Tel$(MaxRec%,5),Mem$(MaxRec%),ToDo$(MaxRec%),Shed$(MaxRec%,5),Spm%(MaxRec%)
�8� Exp$(MaxRec%,5),Exp%(MaxRec%,2),Etype$(8),Epay$(4)
�1ș "Wimp_OpenTemplate",,"<ORG$Dir>.Templates"
�)� � ș "Wimp_CloseTemplate":�errorbox
�:ș "Wimp_LoadTemplate",,q%,temp%,temp%+256,-1,"Info",0
�&ș "Wimp_CreateWindow",,q% � info%
�Gș "Wimp_LoadTemplate",,q%,IsName%+4,IsName%+556,-1,"save_script",0
�'ș "Wimp_CreateWindow",,q% � saveW%
�@IsName%!0=saveW%:SaveIcon%=!(q%+88+20):Sname%=!(q%+88+20+32)
�Bș "Wimp_LoadTemplate",,q%,EsName%+4,EsName%+556,-1,"Export",0
)ș "Wimp_CreateWindow",,q% � exportW%
,EsName%!0=exportW%:Ename%=!(q%+88+20+32)
:ș "Wimp_LoadTemplate",,RXw%+4,RCW%,RCW%+500,-1,"rx",0
"*ș "Wimp_CreateWindow",,RXw%+4 � rx1W%
,RXw%!0=rx1W%
6
@Aș "Wimp_LoadTemplate",,Wn0%+4,SW0%,SW0%+700,-1,"Telephone",0
JWn0%!28=-1
T� A%=0 � 13
^'SPoint%(A%,0)=!(Wn0%+4+88+20+32*A%)
h?IX%(A%,0)=!(Wn0%+4+88+32*A%):IY%(A%,0)=!(Wn0%+4+88+4+32*A%)
rDIX1%(A%,0)=!(Wn0%+4+88+8+32*A%):IY1%(A%,0)=!(Wn0%+4+88+12+32*A%)
|�
�*ș "Wimp_CreateWindow",,Wn0%+4 � telW%
�Wn0%!0=telW%:Wn0%!28=-1
�
�<ș "Wimp_LoadTemplate",,Wn1%+4,SW1%,SW1%+512,-1,"Memo",0
�Wn1%!28=-1
�� A%=0 � 13
�'SPoint%(A%,1)=!(Wn1%+4+88+20+32*A%)
�?IX%(A%,1)=!(Wn1%+4+88+32*A%):IY%(A%,1)=!(Wn1%+4+88+4+32*A%)
�DIX1%(A%,1)=!(Wn1%+4+88+8+32*A%):IY1%(A%,1)=!(Wn1%+4+88+12+32*A%)
��
�+ș "Wimp_CreateWindow",,Wn1%+4 � memoW%
�Wn1%!0=memoW%:Wn1%!28=-1
�
@ș "Wimp_LoadTemplate",,Wn2%+4,SW2%,SW2%+612,-1,"Expenses",0
Wn2%!28=-1
� A%=0 � 17
&'SPoint%(A%,2)=!(Wn2%+4+88+20+32*A%)
0?IX%(A%,2)=!(Wn2%+4+88+32*A%):IY%(A%,2)=!(Wn2%+4+88+4+32*A%)
:DIX1%(A%,2)=!(Wn2%+4+88+8+32*A%):IY1%(A%,2)=!(Wn2%+4+88+12+32*A%)
D�
N*ș "Wimp_CreateWindow",,Wn2%+4 � expW%
XWn2%!0=expW%:Wn2%!28=-1
b
l@ș "Wimp_LoadTemplate",,Wn3%+4,SW3%,SW3%+512,-1,"Schedule",0
vWn3%!28=-1
�� A%=0 � 14
�'SPoint%(A%,3)=!(Wn3%+4+88+20+32*A%)
�?IX%(A%,3)=!(Wn3%+4+88+32*A%):IY%(A%,3)=!(Wn3%+4+88+4+32*A%)
�DIX1%(A%,3)=!(Wn3%+4+88+8+32*A%):IY1%(A%,3)=!(Wn3%+4+88+12+32*A%)
��
�+ș "Wimp_CreateWindow",,Wn3%+4 � shedW%
�Wn3%!0=shedW%:Wn3%!28=-1
�3Wn%(0)=Wn0%:Wn%(1)=Wn1%:Wn%(2)=Wn2%:Wn%(3)=Wn3%
�
�9ș "Wimp_LoadTemplate",,q%,ww%,ww%+256,-1,"Warning",0
�)q%!108=TextWarn%:q%!112=-1:q%!116=300
� XQ%=q%!8-q%!0:YQ%=q%!12-q%!4
�*ș "Wimp_CreateWindow",,q% � warningW%
ș "Wimp_CloseTemplate"
smpicon%=�icon
=wopen%(0)=�:wopen%(1)=�:wopen%(2)=�:wopen%(3)=�:warnOn%=�
 Stype$="0":Ntel%=1:Ctel%=1
*Nmem%=1:Cmem%=1
4Ntodo%=1:Ctodo%=1
>Nshed%=1:Cshed%=1
HNexp%=1:Cexp%=1
RMemo%=�:Rd%=�:Rd1%=0:Rd2%=0
\RdUD%=�:RX%=�
fExport%=�:�_PutName("Text")
pExport%=�:�_PutName("Data")
zAbort%=�
�	�init
�� � �errorbox
�
��setupmenu
�
��
� ș "Wimp_Poll",0,q% � A%
�
  Ȏ A% �
�   � 0:�_Null
�   � 1:�_doWindow
�O   � 2:ș"OS_ReadModeVariable",-1,3 � ,,Ncolours%: ș "Wimp_OpenWindow",,q%
�   � 3:�_close
�   � 6:�_do_click(q%)
   � 7:�_PutDown(q%)
   � 8:�_KeyPress
   � 9:�_SORT_Menu
$   � 17,18:�receive(q%)
.   �
8 � �
B
L�
V
`� �_Null
j� A%,B%,C%,D%,X%,Y%,but%
tȗ A%,B%,C%
~
�� RdUD% � C%=0 �
�>� Rd2%=0 � $SPoint%(0,Rd1%)="down" � $SPoint%(1,Rd1%)="up"
�aș"Wimp_ForceRedraw",!Wn%(Rd1%),IX%(Rd2%,Rd1%),IY%(Rd2%,Rd1%),IX1%(Rd2%,Rd1%),IY1%(Rd2%,Rd1%)
�RdUD%=�
��
�
�� RX% �
��rxINIT
�
�empty
��
�ȗ A%,B%,C%
�
� C%=0
ș"Hourglass_Start",10

�
#ș"OS_SerialOp",4,256 � ,B% ;C%
C%=C% � &2
(� C%=0 � �_gath(B%)
2ȗ X%,Y%,but%
<� but%<>0 � B%=&F8 � Abort%
F� B%=&F8 � �tidy
Pș"Hourglass_Off"
Z	RX%=�
dș "Wimp_CloseWindow",,RXw%
n�
x�
�
�� �_spath(n$)
�ȕ �n$,".")
�n$=�n$,�(n$)-1)
��
�� �(n$)>10 � n$=�n$,10)
�=n$
�
�� �_GetName
�)� Export% � fn$=$Ename% � fn$=$Sname%
��
�
�� �_SORT_Menu
Ȏ IconMenu% �
.     � 0: � !q%=5 � �die � �_Open((!q%)-1)
     � 1: Ȏ !q% �
"0              � 3: Mmenu%!100=1:Mmenu%!124=2
,0              � 4: Mmenu%!100=0:Mmenu%!124=3
60              � 5: Mmenu%!148=1:Mmenu%!172=2
@0              � 6: Mmenu%!148=0:Mmenu%!172=3
J              � 7: �die
T             �
^,     � 2: $SPoint%(13,2)=Etype$((!q%)+1)
hW             ș"Wimp_ForceRedraw",!Wn%(2),IX%(13,2),IY%(13,2),IX1%(13,2),IY1%(13,2)
r&             Exp%(Cexp%,0)=(!q%)+1
|+     � 3: $SPoint%(14,2)=Epay$((!q%)+1)
�W             ș"Wimp_ForceRedraw",!Wn%(2),IX%(14,2),IY%(14,2),IX1%(14,2),IY1%(14,2)
�&             Exp%(Cexp%,1)=(!q%)+1
��
��
�
�
� �_close
� � q%!0=warningW% � warnOn%=�
�;� q%!0=!Wn0% � wopen%(0)=�:ș"Wimp_GetWindowInfo",,Wn0%
�;� q%!0=!Wn1% � wopen%(1)=�:ș"Wimp_GetWindowInfo",,Wn1%
�;� q%!0=!Wn2% � wopen%(2)=�:ș"Wimp_GetWindowInfo",,Wn2%
�;� q%!0=!Wn3% � wopen%(3)=�:ș"Wimp_GetWindowInfo",,Wn3%
�ș "Wimp_CloseWindow",,q%
��

� �_do_click(q%)
� A%,B%
&i%=q%!16
0Ȏ q%!12 �
:(� warningW%: q%!0=warningW% :�_close
D(�    saveW%: Export%=�: �_DoSave(i%)
N)�  exportW%: Export%=�:  �_DoSave(i%)
X(� -2: � Look first at Icon Bar Click
b        � q%!16=smpicon% �
lR        � q%!8=2 � q%!8=4 � ș"Wimp_CreateMenu",,menu%,q%!0-74,340:IconMenu%=0
v&        � IF q%!8=4 THEN PROC_Open
�
        �
�
� 
�.              � q%!8=4 � �_WinClick(q%!12)
�$              A%=q%!0-96:B%=q%!4
�X              � q%!8=2 � �sicon(q%!12):ș"Wimp_CreateMenu",,Mmenu%,A%,B%:IconMenu%=1
��
��
�
�� �sicon(A%)
�� T$,D$,te%
�Ȏ A% �
�A�  telW%: $SaveIcon%="file_05A":Stype$="05A":D$=TelFile$:�upT
5� memoW%: $SaveIcon%="file_05B":Stype$="05B":�upM
5             � Memo%=� � D$=ToFile$ �:D$=MemFile$
A�  expW%: $SaveIcon%="file_05C":Stype$="05C":D$=ExpFile$:�upE
 B� shedW%: $SaveIcon%="file_05D":Stype$="05D":D$=ShedFile$:�upS
*�
47Export%=�:�_PutName(D$):Export%=�:�_PutName(D$+"T")
>current%=�what(A%)
H�
R
\� �what(A%)
f� B%
pȎ A% �
z�  telW%: B%=0
�� memoW%: B%=1
��  expW%: B%=2
�� shedW%: B%=3
��
�=B%
�
�� �_WinClick(w%)
�� A%,B%,Y%
�Y%=q%!4
�&� Do the action for a window click
�Ȏ w% �
��  telW%: Ȏ i% �
�/             � 1: �upT: �upTel(1): �pb(0,1)
	0             � 0: �upT: �upTel(-1): �pb(0,0)
	-             � 2: � Ntel%<MaxRec% � �newT
	/                     �upT: �upTel(1) :�upTn
	$             � 3: �cT
	.!             � 4: �upT:�TXtel
	8&             � 5: RX%=�:�openRX(0)
	B             �
	L             
	V
� memoW%:
	`             Ȏ i% �
	j;             � 0: �upM: �mup(-1) : �upMbut(1): �pb(1,0)
	t;             � 1: �upM: �mup(1)  : �upMbut(1): �pb(1,1)
	~2             � 2: �upM: �newm(1)  : �upMbut(0)
	�             � 3: �cM
	�             � 4: �upM
	�3                     � Memo% � �TXmem � �TXtodo
	�             � 5: RX%=�
	�:                     � Memo% � �openRX(2) � �openRX(3)
	�B          � 9,10: �upM : Memo%=�(Memo%): �newm(0) : �upMbut(1)
	�             �
	�� expW%:  �_Trans(expW%)
	�             �upE
	�             Ȏ i% �
	�.             � 0: �upE:�upExp(-1):�pb(2,0)
	�.             � 1: �upE:�upExp(1): �pb(2,1)
-             � 2: � Nexp%<MaxRec% � �newE

"                     �upExp(0)
             � 3: �cE
!             � 4: �upE:�TXexp
(&             � 5: RX%=�:�openRX(5)
2a             � 15: IconMenu%=�:ș"Wimp_CreateMenu",,Commenu%,IX1%(15,2)+xo%-10,Y%:IconMenu%=2
<`             � 16: IconMenu%=�:ș"Wimp_CreateMenu",,Comenu%,IX1%(16,2)+xo%-10,Y%:IconMenu%=3
F-    � 17: Exp%(Cexp%,2)=Exp%(Cexp%,2) � 1
PO             � Exp%(Cexp%,2)=0 � $SPoint%(17,2)="no" � $SPoint%(17,2)="yes"
ZW             ș"Wimp_ForceRedraw",!Wn%(2),IX%(17,2),IY%(17,2),IX1%(17,2),IY1%(17,2)
d              �
n� shedW%: �upS
x             Ȏ i% �
�1             � 0: �upS: �upShed(-1): �pb(3,0)
�0             � 1: �upS: �upShed(1): �pb(3,1)
�             � 2: �upS
�1                     � Nshed%<MaxRec% � �newS
�#                     �upShed(0)
�             � 3: �cShed
�"             � 4: �upS:�TXshed
�&             � 5: RX%=�:�openRX(1)
�8             � 13: Spm%(Cshed%)=�(Spm%(Cshed%)):�_am
�8             � 14: Spm%(Cshed%)=�(Spm%(Cshed%)):�_am
�             �
��
��

� �_Open(A%)
currentW%=A%
"� OPEN UP WINDOW HERE
,� wopen%(currentW%) �
6q%!0=!Wn%(currentW%)
@ș"Wimp_GetWindowState",,q%
J6  � q%!28<>-1 � q%!28=-1: ș "Wimp_OpenWindow",,q%
T�
^(ș "Wimp_OpenWindow",,Wn%(currentW%)
hwopen%(currentW%)=�
r�
|�
�
���setupmenu
�� m%
�
�$menu%="Organiser"
�menu%?12=7
�menu%?13=2
�menu%?14=7
�menu%?15=0
�menu%!16=128
�menu%!20=40
�menu%!24=0
�m%=menu%+28

m%!0=0
m%!4=info%
m%!8=(7<<24)� %10001
&$(m%+12)="Info"
0
:
m%+=24
D
m%!0=0
N
m%!4=0
Xm%!8=(7<<24)� %10001
b$(m%+12)="Telephone"
l
v
m%+=24
�
m%!0=0
�
m%!4=0
�m%!8=(7<<24)� %10001
�$(m%+12)="Memo"
�
�
m%+=24
�
m%!0=0
�
m%!4=0
�m%!8=(7<<24)� %10001
�$(m%+12)="Expenses"
�
�
m%+=24
�
m%!0=0

m%!4=0

m%!8=(7<<24)� %10001

$(m%+12)="Schedule"

 

*
m%+=24

4m%!0=&80

>
m%!4=0

Hm%!8=(7<<24)� %10001

R$(m%+12)="Quit"

\

f$Mmenu%="Organiser"

pMmenu%?12=7

zMmenu%?13=2

�Mmenu%?14=7

�Mmenu%?15=0

�Mmenu%!16=128

�Mmenu%!20=40

�Mmenu%!24=0

�m%=Mmenu%+28

�
m%!0=0

�m%!4=info%

�m%!8=(7<<24)� %10001

�$(m%+12)="Info"

�

�
m%+=24

�
m%!0=0
m%!4=saveW%
m%!8=(7<<24)� %10001
$(m%+12)="Save"
$
.
m%+=24
8
m%!0=2
Bm%!4=exportW%
Lm%!8=(7<<24)� %10001
V$(m%+12)="Export"
`
j
m%+=24
t
m%!0=0
~
m%!4=0
�m%!8=(7<<24)� %10001
�$(m%+12)="TX one"
�
�
m%+=24
�
m%!0=3
�
m%!4=0
�m%!8=(7<<24)� %10001
�$(m%+12)="TX all"
�
�
m%+=24
�
m%!0=1
�
m%!4=0
m%!8=(7<<24)� %10001

$(m%+12)="RX new"


m%+=24
(
m%!0=2
2
m%!4=0
<m%!8=(7<<24)� %10001
F$(m%+12)="RX merge"
P
Z
m%+=24
dm%!0=&80
n
m%!4=0
xm%!8=(7<<24)� %10001
�$(m%+12)="Quit"
�
��
�
�� �_DoSave(i%)
�� i%=0 �
�            DragOn%=�
�,            ș "Wimp_GetPointerInfo",,q%
�]            � Export% � �dragicon(q%!0,q%!4,exportW%,i%) � �dragicon(q%!0,q%!4,saveW%,i%)
� �
�
 � i%=2 �
�  �_GetName
�G  � �fn$,":") � �_Save � �_setupW("Drag the Icon into a Directory")
  ș "Wimp_CreateMenu",,-1
 �
�
"
,� �receive(q%)
6� A%
@A%=q%!16
JȎ A% �
T� 0:�die
^� 2:� q%!12=saveref% � 
h          secureF%=q%!36
r%          fn$=�sget(q%+44):�_Save
|8          q%!12=saveref%:q%!16=3:q%!0=256:q%!40=&044
�A          q%!20=messh%:q%!24=messi%:q%!28=messx%:q%!32=messy%
�7          ș "Wimp_SendMessage",17,q%,messh%,messi%
�          �
�          
�� 3:n$=�sget(q%+44)
�'       sendth%=q%!4:icontype%=q%!40
�       myref%=q%!8
�M       � ((q%!20=-2 � q%!24=smpicon%) � (q%!20=telW%))  � icontype%=&5A �
�        �loadT(n$)
�8        � q%!20=-2 � wopen%(0)=� � �_Open(0): �_Dack
�0        Export%=�:�_PutName(n$):Stype$="05A"
�3        Export%=�:�_PutName(n$+"T"):TelFile$=n$
�       �
       
N       � ((q%!20=-2 � q%!24=smpicon%) � (q%!20=memoW%))  � icontype%=&5B �
        �loadM(n$)
&7        � q%!20=-2 � wopen%(1)=� � �_Open(1):�_Dack
00        Export%=�:�_PutName(n$):Stype$="05B"
:'        Export%=�:�_PutName(n$+"T")
D.        � Memo% � MemFile$=n$ � ToFile$=n$
N       �
X       
bM       � ((q%!20=-2 � q%!24=smpicon%) � (q%!20=expW%))  � icontype%=&5C �
l        �loadE(n$)
v7        � q%!20=-2 � wopen%(2)=� � �_Open(2):�_Dack
�0        Export%=�:�_PutName(n$):Stype$="05C"
�3        Export%=�:�_PutName(n$+"T"):ExpFile$=n$
�       �
�       
�N       � ((q%!20=-2 � q%!24=smpicon%) � (q%!20=shedW%))  � icontype%=&5D �
�        �loadS(n$)
�7        � q%!20=-2 � wopen%(3)=� � �_Open(3):�_Dack
�0        Export%=�:�_PutName(n$):Stype$="05D"
�4        Export%=�:�_PutName(n$+"T"):ShedFile$=n$
�       �
�
�� &502:   Ȏ � �
�p             � q%!32=-2 � q%!36=smpicon%:mes$="This is the Orginiser icon.|MTransfer data with your AM-399C"
             :mes$=""
             �
    � mes$<>"" �
     q%!12=q%!8
*    $(q%+20)=mes$+�0
4    q%!0=(20+�mes$+4)� � 3
>    q%!16=&503
H(    ș "Wimp_SendMessage",18,q%,q%!4
R�
\�
f
p� �_Dack
zsendth%=q%!4
�myref%=q%!8
�"ș "Wimp_GetPointerInfo",,q%+8
�q%!28=q%!8
�q%!32=q%!12
�q%!0=(44+�n$+4)� � 3
�q%!12=myref%
�q%!16=4
�q%!36=-1
�q%!40=&FF9
�$(q%+44)=n$+�0
�'ș "Wimp_SendMessage",17,q%,sendth%
��
��


ݤicon
q%!0=-1
$
q%!4=0
.q%!8=10 : � Y DIRECTION
8q%!12=70 : � X DIRECTION
Bq%!16=96
Lq%!20=&2002
V$(q%+24)="!Organiser"
`$ș "Wimp_CreateIcon",,q% � icon%
j
=icon%
t
~� �_setupW(t$)
�`!qw%=warningW%:qw%!4=200:qw%!8=200:qw%!12=200+XQ%:qw%!16=200+YQ%:qw%!20=0:qw%!24=0:qw%!28=-1
�$TextWarn%=t$
�TextWarn%?�(t$)=0
�
warnOn%=�
�ș "Wimp_OpenWindow",,qw%
��
�
�� �errorbox
�
� PROCdie
�ș "Wimp_DragBox",,-1
�2!buffers%=�:$(buffers%+4)=�$+" at line "+Þ+�0
�0ș "Wimp_ReportError",buffers%,1,"Organiser"
�die

�

	��die
(*ș "Wimp_CloseDown",taskhand%,!taskid%
2�
<�
F
P.� �dragicon(mousex%,mousey%,handle%,icon%)
Z!� bx%,by%,ix0%,iy0%,ix1%,iy1%
d�getw(handle%)
n�geti(handle%,icon%)
x!q%=handle%:q%!4=5
�>q%!8=bx%+ix0%:q%!12=by%+iy0%:q%!16=bx%+ix1%:q%!20=by%+iy1%
�*q%!24=q%!8-mousex%:q%!28=q%!12-mousey%
�ș "Wimp_DragBox",,q%
�SFLAG%=�
��
�
�� �getw(handle%)
�8!q%=handle%:ș "Wimp_GetWindowState",,q%:�info(q%+4)
��
�
�� �geti(h%,i%)
�-!q%=h%:q%!4=i%:ș "Wimp_GetIconState",,q%
�.ix0%=q%!8:iy0%=q%!12:ix1%=q%!16:iy1%=q%!20
iflags%=q%!24:idata%=q%+28
�

"� �info(p%)
,
� x0%,y0%
6'x0%=!p%:y0%=p%!4:x1%=p%!8:y1%=p%!12
@5scx%=p%!16:scy%=p%!20:bhandle%=p%!24:flags%=p%!28
Jbx%=x0%-scx%:by%=y1%-scy%
T�
^
h� �_Save
r
� ch%,pp%
|
F%=�(fn$)
�Ȏ current% �
�� 0: �saveT:TelFile$=fn$
�5� 1: �saveM: � Memo% � MemFile$=fn$ � ToFile$=fn$
�� 2: �saveE:ExpFile$=fn$
�� 3: �saveS:ShedFile$=fn$
��
��#F%
�G� Export% � �("SETTYPE "+fn$+" fff") � �("SETTYPE "+fn$+" "+Stype$)
��_PutName(fn$)
��
�
�� �_PutName(p$)
�'� Export% � $Ename%=p$ � $Sname%=p$
�

� �_PutDown(q%)
&� DragOn% �
0#� SYS "Wimp_GetPointerInfo",,q%
:
�_GetName
D ș "Wimp_GetPointerInfo",,q%
N5messh%=q%!12:messi%=q%!16:messx%=q%!0:messy%=q%!4
X#� � fn$,":") � fn$=�_spath(fn$)
b$(q%+44)=fn$
l?(q%+44+�(fn$))=0
v;q%!20=q%!12:q%!28=q%!0:q%!32=q%!4:q%!36=1024:q%!40=&044
�q%!0=56:q%!12=0:q%!16=1
�-ș "Wimp_SendMessage",17,q%,messh%,messi%
�saveref%=q%!8
�ș "Wimp_CreateMenu",,-1
�
DragOn%=�
��
��
�
�� �_KeyPress
�� C%,D%
�� q%!24=13 �
�
Ȏ q%!0 �
�&� saveW%:   Export%=�: �_DoSave(2)
'� exportW%: Export%=�:  �_DoSave(2)
� telW% : �upT
3             ș"Wimp_GetCaretPosition",,tblock%
 <             ș"Wimp_SetCaretPosition",-1,-1,0,0,-1,-1,0
*             C%=tblock%!4
4             C%+=1
>+             � C%>13 � C%=8:D%=1 � D%=0
H             tblock%!4=C%
Rk             ș"Wimp_SetCaretPosition",telW%,C%,tblock%!8,IY%(C%,0)+6,tblock%!16,�(Tel$(Ctel%+D%,C%-8))
\=             � Ctel%=Ntel% � D%=1 � Ntel%<MaxRec% � �newT
f%             � D%<>0 � �upTel(D%)
p             
z� memoW%: �upM
�B             � Memo% � C%=Cmem%:D%=Nmem% � C%=Ctodo%:D%=Ntodo%
�D             � C%=D% � �newm(1):�upMbut(0) � �mup(1): �upMbut(1)
�� shedW%: �upS
�3             ș"Wimp_GetCaretPosition",,tblock%
�             C%=tblock%!4
�             C%+=1
�+             � C%>12 � C%=8:D%=1 � D%=0
�             tblock%!4=C%
�n             ș"Wimp_SetCaretPosition",shedW%,C%,tblock%!8,IY%(C%,3)+6,tblock%!16,�(Shed$(Cshed%+D%,C%-8))
�@             � Cshed%=Nshed% � D%=1 � Nshed%<MaxRec% � �newS
�&             � D%<>0 � �upShed(D%)
�             
�� expW%:  �upE
3             ș"Wimp_GetCaretPosition",,tblock%
             C%=tblock%!4
             C%+=1
$+             � C%>12 � C%=8:D%=1 � D%=0
.k             ș"Wimp_SetCaretPosition",expW%,C%,tblock%!8,IY%(C%,2)+6,tblock%!16,�(Exp$(Cexp%+D%,C%-8))
8=             � Cexp%=Nexp% � D%=1 � Nexp%<MaxRec% � �newE
B%             � D%<>0 � �upExp(D%)
L
V
`�7
j�
t�
~ș"Wimp_ProcessKey",q%!24
��
��
�
�
� �upM
�G� Memo% � Mem$(Cmem%)=�_GetIcon(1,8) � ToDo$(Ctodo%)=�_GetIcon(1,8)
��
�
�
� �upT
� Tel$(Ctel%,0)=�_GetIcon(0,8)
� Tel$(Ctel%,1)=�_GetIcon(0,9)
�!Tel$(Ctel%,2)=�_GetIcon(0,10)
�!Tel$(Ctel%,3)=�_GetIcon(0,11)
!Tel$(Ctel%,4)=�_GetIcon(0,12)

!Tel$(Ctel%,5)=�_GetIcon(0,13)
�

(
� �upE
2 Exp$(Cexp%,0)=�_GetIcon(2,8)
< Exp$(Cexp%,1)=�_GetIcon(2,9)
F!Exp$(Cexp%,2)=�_GetIcon(2,10)
P!Exp$(Cexp%,3)=�_GetIcon(2,11)
Z!Exp$(Cexp%,4)=�_GetIcon(2,12)
d:� �(Exp$(Cexp%,0))<2 � Exp$(Cexp%,0)="0"+Exp$(Cexp%,0)
n:� �(Exp$(Cexp%,1))<2 � Exp$(Cexp%,1)="0"+Exp$(Cexp%,1)
x�
�
�
� �upS
�� A%
�� A%=0 � 4
�&Shed$(Cshed%,A%)=�_GetIcon(3,A%+8)
��
�@� �(Shed$(Cshed%,0))<2 � Shed$(Cshed%,0)="0"+Shed$(Cshed%,0)
�@� �(Shed$(Cshed%,1))<2 � Shed$(Cshed%,1)="0"+Shed$(Cshed%,1)
�A%=�Shed$(Cshed%,3),":")
�G� �(Shed$(Cshed%,3))=3 � A%=1 �Shed$(Cshed%,3)="00"+Shed$(Cshed%,3)
�F� �(Shed$(Cshed%,3))=4 � A%=2 �Shed$(Cshed%,3)="0"+Shed$(Cshed%,3)
�� �(Shed$(Cshed%,3)) = 5 �
�A%=�(�Shed$(Cshed%,3),2))
K� A%<12 � Spm%(Cshed%)=� � Shed$(Cshed%,3)=�(A%+12)+�Shed$(Cshed%,3),3)
-� A%>11 � Spm%(Cshed%)=� � Spm%(Cshed%)=�
�
"�
,
6� �saveT
@� A%,B%
J�upT
T� Export% �
^+�exportS("Organiser Telephone Numbers")
h�exportS(�(&A))
r�exportS(�(&A))
|� A% = 1 � Ntel%
�� B% = 0 � 5
�� B%=3 � �exportS("Tel. ")
�� B%=4 � �exportS("Fax  ")
��exportS(Tel$(A%,B%))
��exportS(�(&A))
��
��exportS(�(&A))
��
��
�$�#F%,Ntel%  :� number of numbers
�� A% = 1 � Ntel%
�� B% = 0 � 5
��#F%,Tel$(A%,B%)
�:�
�
�
&
0� �saveM
:� A%,B%
D�upM
N.� Memo% � A%=Nmem% :B%=2 � A%=Ntodo% :B%=3
X� Export% �
bG� Memo% � �exportS("Organiser Memos") � �exportS("Organiser To Do")
l�exportS(�(&A))
v�exportS(�(&A))
�� B%=1 � A%
�6� Memo% � �exportS(Mem$(B%)) � �exportS(ToDo$(B%))
�#�exportS(�(&A)):�exportS(�(&A))
��
��
��#F%,B%
�!�#F%,A%  :� number of numbers
�� B% = 1 � A%
�,� Memo% � �#F%,Mem$(B%) � �#F%,ToDo$(B%)
��
��
��
�
� �saveE
� A%,B%,r$
�upE
 � Export% �
*"�exportS("Organiser Expenses")
4�exportS(�(&A))
>�exportS(�(&A))
H� A% = 1 � Nexp%
R6�exportS(Exp$(A%,0)+"-"+Exp$(A%,1)+"-"+Exp$(A%,2))
\�exportS(�(&A))
f2�exportS(Etype$(Exp%(A%,0))+" - �"+Exp$(A%,4))
p�exportS(�(&A))
z3� Exp%(A%,2) � r$=" reciept" � r$=" no reciept"
�.�exportS("Payed by "+Epay$(Exp%(A%,1))+r$)
��exportS(�(&A))
��exportS(Exp$(A%,3))
�#�exportS(�(&A)):�exportS(�(&A))
��
��
�$�#F%,Nexp%  :� number of numbers
�� A% = 1 � Nexp%
�� B% = 0 � 4
��#F%,Exp$(A%,B%)
��
�� B%=0 � 2
��#F%,Exp%(A%,B%)
�:�
�
�
$
.
8� �saveS
B� A%,B%,t$
L�upS
V� Export% �
`#�exportS("Organiser Scheduler")
j�exportS(�(&A))
t�exportS(�(&A))
~� A% = 1 � Nshed%
�$� Spm%(A%) � t$=" pm" � t$=" am"
�M�exportS(Shed$(A%,0)+"-"+Shed$(A%,1)+"-"+Shed$(A%,2)+"  "+Shed$(A%,3)+t$)
��exportS(�(&A))
��exportS(Shed$(A%,4))
�#�exportS(�(&A)):�exportS(�(&A))
��
��
�
�#F%,1
��#F%,Nshed%
�� A%=1 � Nshed%
�� B%=0 � 4
��#F%,Shed$(A%,B%)
�

�#F%,Spm%(A%)
�
�
(�
2
<� �loadT(n$)
F� A%,B%
PF%=�(n$)
Z�#F%,Ntel%
d� A% = 1 � Ntel%
n� B% = 0 � 5
x�#F%,Tel$(A%,B%)
��:�
��#F%
�Ctel%=1
�
�upTel(0)
��upTot(0,�(Ntel%))
��
�
�	� �cT
�� A%,B%
�� Ntel%<>1 �
�� A%=Ctel% � Ntel%-1
�� B%=0 � 5
�Tel$(A%,B%)=Tel$(A%+1,B%)
�:�
Ntel%-=1

�upTel(0)
"�upTot(0,�(Ntel%))
,�
6�7
@�
J�
T
^� �loadM(n$)
h� A%,B%
r�upM
|Stype$="05B"
�F%=�(n$)
�B%=�#F%
�� B%=2 � Memo%=� � Memo%=�
�;� Memo% � �#F%,Nmem% :B%=Nmem% � �#F%,Ntodo%: B%=Ntodo%
�� A%=1 � B%
�,� Memo% � �#F%,Mem$(A%) � �#F%,ToDo$(A%)
��
��#F%
��_sput(1,7,�(B%))
��_sput(1,6,"1")
��upMbut(1)
��
�
 	� �cM
 � A%,B%
 
� Memo% �
 &  � Nmem%<>1 �
 0  � A%=Cmem% � Nmem%-1
 :  Mem$(A%)=Mem$(A%+1)
 D  �
 N  Nmem%-=1
 X  �_sput(1,7,�(Nmem%))
 b  �upMbut(0)
 l  �
 v  �7
 �  �
 ��
 �  � Ntodo%<>1 �
 �  � A%=Ctodo% � Ntodo%-1
 �  ToDo$(A%)=ToDo$(A%+1)
 �  �
 �  Ntodo%-=1
 �  �_sput(1,7,�(Ntodo%))
 �  �upMbut(0)
 �  �
 �  �7
 �  �
 ��
!�
!
!� �loadE(n$)
! � A%,B%
!*F%=�(n$)
!4�#F%,Nexp%
!>� A%=1 � Nexp%
!H� B%=0 � 4
!R�#F%,Exp$(A%,B%)
!\�
!f� B%=0 � 2
!p�#F%,Exp%(A%,B%)
!z�
!��
!��#F%
!��upTot(2,�(Nexp%))
!�Cexp%=1
!�
�upExp(0)
!��
!�
!�	� �cE
!�� A%,B%
!�� Nexp%<>1 �
!�� A%=Cexp% � Nexp%-1
!�� B%=0 � 4
!�Exp$(A%,B%)=Exp$(A%+1,B%)
"�
"� B%=0 � 2
"Exp%(A%,B%)=Exp%(A%+1,B%)
"$�
".Nexp%-=1
"8�upTot(2,�(Nexp%))
"B
�upExp(0)
"L�
"V�7
"`�
"j�
"t
"~� �loadS(n$)
"�� A%,B%
"�F%=�(n$)
"�B%=�#F%
"��#F%,Nshed%
"�� A%=1 � Nshed%
"�� B%=0 � 4
"��#F%,Shed$(A%,B%)
"��
"��#F%,Spm%(A%)
"��
"��#F%
"��upTot(3,�(Nshed%))
#Cshed%=1
#
�upShed(0)
#�
#
#(� �cShed
#2� A%,B%
#<� Nshed%<>1 �
#F� A%=Cshed% � Nshed%-1
#P� B%=0 � 4
#ZShed$(A%,B%)=Shed$(A%+1,B%)
#d�
#nSpm%(A%)=Spm%(A%+1)
#x�
#�
Nshed%-=1
#��upShed(0)
#��upTot(3,�(Nshed%))
#��
#��7
#��
#��
#�
#�� �upTot(w%,v$)
#��_sput(w%,7,v$)
#�Kș"Wimp_ForceRedraw",!Wn%(w%),IX%(7,w%),IY%(7,w%),IX1%(7,w%),IY1%(7,w%)
#��
#�
$� �upTn
$�_sput(0,7,�(Ntel%))
$Fș"Wimp_ForceRedraw",!Wn%(0),IX%(7,0),IY%(7,0),IX1%(7,0),IY1%(7,0)
$"�
$,
$6� �upTel(i%)
$@&ș"Wimp_GetCaretPosition",,tblock%
$J
Ctel%+=i%
$T� Ctel%>Ntel% � Ctel%=Ntel%
$^� Ctel%<1 � Ctel%=1
$h� A%=0 � 5
$r!�_sput(0,A%+8,Tel$(Ctel%,A%))
$|(� tblock%!0=telW% � tblock%!4=A%+8 �
$�_ș"Wimp_SetCaretPosition",telW%,tblock%!4,tblock%!8,tblock%!12,tblock%!16,�(Tel$(Ctel%,A%))
$��
$��
$��_sput(0,6,�(Ctel%))
$��
$�
$�� �upShed(i%)
$�&ș"Wimp_GetCaretPosition",,tblock%
$�Cshed%+=i%
$�#� Cshed%>Nshed% � Cshed%=Nshed%
$�� Cshed%<1 � Cshed%=1
$�� A%=0 � 4
$�#�_sput(3,A%+8,Shed$(Cshed%,A%))
%)� tblock%!0=shedW% � tblock%!4=A%+8 �
%bș"Wimp_SetCaretPosition",shedW%,tblock%!4,tblock%!8,tblock%!12,tblock%!16,�(Shed$(Cshed%,A%))
%�
%&�
%0�_sput(3,6,�(Cshed%))
%:�_am
%D�
%N
%X� �upExp(i%)
%b� A%
%l&ș"Wimp_GetCaretPosition",,tblock%
%v
Cexp%+=i%
%�� Cexp%>Nexp% � Cexp%=Nexp%
%�� Cexp%<1 � Cexp%=1
%�� A%=0 � 4
%�!�_sput(2,A%+8,Exp$(Cexp%,A%))
%�(� tblock%!0=expW% � tblock%!4=A%+8 �
%�_ș"Wimp_SetCaretPosition",expW%,tblock%!4,tblock%!8,tblock%!12,tblock%!16,�(Exp$(Cexp%,A%))
%��
%��
%��_sput(2,6,�(Cexp%))
%�@� Exp%(Cexp%,2) � $SPoint%(17,2)="yes" � $SPoint%(17,2)="no"
%�($SPoint%(13,2)=Etype$(Exp%(Cexp%,0))
%�'$SPoint%(14,2)=Epay$(Exp%(Cexp%,1))
%�Jș"Wimp_ForceRedraw",!Wn%(2),IX%(17,2),IY%(17,2),IX1%(17,2),IY1%(17,2)
&Jș"Wimp_ForceRedraw",!Wn%(2),IX%(14,2),IY%(14,2),IX1%(14,2),IY1%(14,2)
&Jș"Wimp_ForceRedraw",!Wn%(2),IX%(13,2),IY%(13,2),IX1%(13,2),IY1%(13,2)
&�
& 
&*� �upMbut(R%)
&4� L%
&>
� Memo% �
&H$SPoint%(9,1)="radioon"
&R$SPoint%(10,1)="radiooff"
&\ � R%=0 � Cmem%=Nmem%:�mup(0)
&f�_sput(1,8,Mem$(Cmem%))
&pL%=�(Mem$(Cmem%))
&z�
&�$SPoint%(10,1)="radioon"
&�$SPoint%(9,1)="radiooff"
&�"� R%=0 � Ctodo%=Ntodo%:�mup(0)
&��_sput(1,8,ToDo$(Ctodo%))
&�L%=�(ToDo$(Ctodo%))
&��
&�&ș"Wimp_GetCaretPosition",,tblock%
&�&� tblock%!0=memoW% � tblock%!4=8 �
&�Qș"Wimp_SetCaretPosition",memoW%,tblock%!4,tblock%!8,tblock%!12,tblock%!16,L%
&��
&�Jș"Wimp_ForceRedraw",!Wn%(1),IX%(10,1),IY%(10,1),IX1%(10,1),IY1%(10,1)
&�Fș"Wimp_ForceRedraw",!Wn%(1),IX%(9,1),IY%(9,1),IX1%(9,1),IY1%(9,1)
&�I� SYS"Wimp_ForceRedraw",!Wn%(1),IX%(8,1),IY%(8,1),IX1%(8,1),IY1%(8,1)
'�
'
'ݤsget(x%)
'$� x$
'.!ȕ ?x%>&1F x$+=�(?x%):x%+=1:�
'8=x$
'B
'Lݤpg(n%,W%)
'V� A$
'`A$=�sget(SPoint%(n%,W))
'j
=�(A$)
't
'~� �_GetIcon(W%,In%)
'�� T%,A%,R$
'�R$=�sget(SPoint%(In%,W%))
'�=R$
'�
'�� �_sput(W%,In%,X$)
'�� A%,x%
'�x%=SPoint%(In%,W%)
'�A%=1
'�� �(X$)<>0 �
'�ȕ A%<>(�(X$)+1)
'�?x%=�(�X$,A%,1))
'�	x%+=1
(	A%+=1
(
�
(�
(	?x%=0
((Sș"Wimp_ForceRedraw",!Wn%(W%),IX%(In%,W%),IY%(In%,W%),IX1%(In%,W%),IY1%(In%,W%)
(2�
(<
(F� �init
(P� A%,B%
(ZToFile$="ToDo"
(dMemFile$="Memo"
(nTelFile$="Tel"
(xExpFile$="Exp"
(�ShedFile$="Shed"
(�� A%=0 � 5
(�Tel$(1,A%)=" "
(��
(�� A%=1 � MaxRec%
(�Mem$(A%)=""
(�ToDo$(A%)=""
(�Spm%(A%)=�
(�� B%=0 � 4
(�Shed$(A%,B%)=""
(��
(�� B%=0 � 2
(�Exp$(A%,B%)=""
)Exp%(A%,B%)=1
)�
)Exp$(A%,3)=""
)"�
),� A%=1 � 4
)6� Epay$(A%)
)@�
)J�expcat
)T
�imset
)^� Cash,Cheque,Card,Other
)h�
)r
)|
� �expcat
)�� A%,B%,F%
)�F%=�("<ORG$Dir>.ExpCat")
)�A%=1
)��
)�Etype$(A%)=""
)��
)�B%=�#F%
)�*� B%>&1F � Etype$(A%)=Etype$(A%)+�(B%)
)�� B%<&20
)�	A%+=1
)�
� A%=9
)��#F%
)��
*
*� �imset
*� A%,B%
*&� A%=0 � 7
*0"$(TypeM%+(A%*25))=Etype$(A%+1)
*:�
*D� A%=0 � 3
*N $(PayM%+(A%*25))=Epay$(A%+1)
*X�
*b$Commenu%="Type"
*lCommenu%?12=7
*vCommenu%?13=2
*�Commenu%?14=7
*�Commenu%?15=0
*�Commenu%!16=288
*�Commenu%!20=40
*�Commenu%!24=0
*�m%=Commenu%+28
*�
*�� A%=0 � 7
*�
m%!0=0
*�
m%!4=0
*�m%!8=(7<<24)� %100010001
*�m%!12=TypeM%+(A%*25)
*�m%!16=0
+m%!20=25
+
m%+=24
+�
+ 
m%-=24
+*m%!0=&80
+4
+>$Comenu%="Payment"
+HComenu%?12=7
+RComenu%?13=2
+\Comenu%?14=7
+fComenu%?15=0
+pComenu%!16=288
+zComenu%!20=40
+�Comenu%!24=0
+�m%=Comenu%+28
+�
+�� A%=0 � 3
+�
m%!0=0
+�
m%!4=0
+�m%!8=(7<<24)� %100010001
+�m%!12=PayM%+(A%*25)
+�m%!16=0
+�m%!20=25
+�
m%+=24
+��
+�
m%-=24
,m%!0=&80
,
,�
,$
,.� �newT
,8� A%
,BNtel%+=1:�upTot(0,�(Ntel%))
,L� A%=0 � 5
,VTel$(Ntel%,A%)=""
,`�
,j�
,t
,~� �newS
,�� A%
,�!Nshed%+=1:�upTot(3,�(Nshed%))
,�� A%=0 � 4
,�Shed$(Nshed%,A%)=""
,��
,�Spm%(Nshed%)=Spm%(Nshed%-1)
,��
,�
,�� �newE
,�� A%
,�Nexp%+=1:�upTot(2,�(Nexp%))
,�� A%=0 � 4
-Exp$(Nexp%,A%)=""
-
�
-!Exp%(Nexp%,0)=Exp%(Nexp%-1,0)
-!Exp%(Nexp%,1)=Exp%(Nexp%-1,1)
-(!Exp%(Nexp%,2)=Exp%(Nexp%-1,2)
-2�
-<
-F� �mup(I%)
-P
� Memo% �
-Z
Cmem%+=I%
-d� Cmem%>Nmem% � Cmem%=Nmem%
-n� Cmem%<1 � Cmem%=1
-x�_sput(1,6,�(Cmem%))
-��
-�Ctodo%+=I%
-�#� Ctodo%>Ntodo% � Ctodo%=Ntodo%
-�� Ctodo%<1 � Ctodo%=1
-��_sput(1,6,�(Ctodo%))
-��
-��
-�
-�� �newm(I%)
-�
� Memo% �
-�
Nmem%+=I%
-�#� Nmem%>MaxRec% � Nmem%=MaxRec%
-�+� Mmen%<MaxRec% � I%>0 � Mem$(Nmem%)=""
.� Nmem%<1 � Nmem%=1
.�_sput(1,7,�(Nmem%))
.�
."Ntodo%+=I%
.,%� Ntodo%>MaxRec% � Ntodo%=MaxRec%
.6.� Ntodo%<MaxRec% � I%>0 � ToDo$(Ntodo%)=""
.@� Ntodo%<1 � Ntodo%=1
.J�_sput(1,7,�(Ntodo%))
.T�
.^�
.h
.r
� �_am
.|� Spm%(Cshed%) �
.�$SPoint%(14,3)="radioon"
.�$SPoint%(13,3)="radiooff"
.��
.�$SPoint%(13,3)="radioon"
.�$SPoint%(14,3)="radiooff"
.��
.�Jș"Wimp_ForceRedraw",!Wn%(3),IX%(14,3),IY%(14,3),IX1%(14,3),IY1%(14,3)
.�Jș"Wimp_ForceRedraw",!Wn%(3),IX%(13,3),IY%(13,3),IX1%(13,3),IY1%(13,3)
.��
.�
.�� �_Trans(wh%)
.�!q%=wh%
.� ș "Wimp_GetWindowState",,q%
/(xo%=q%!4-q%!20+8:yo%=q%!16-q%!24-290
/XO%=q%!4:YO%=q%!16
/�
/&
/0� �pb(w%,i%)
/::� i%=0 � $SPoint%(0,w%)="pdown" � $SPoint%(1,w%)="pup"
/DOș"Wimp_ForceRedraw",!Wn%(w%),IX%(i%,w%),IY%(i%,w%),IX1%(i%,w%),IY1%(i%,w%)
/NRdUD%=�
/XRd1%=w%:Rd2%=i%
/b�
/l
/v� �openRX(a%)
/�� X%,Y%,B%,A%
/�ȗ X%,Y%,B%
/�X%-=140:Y%-=90
/�$RXw%!0=rx1W%:RXw%!4=X%:RXw%!8=Y%
/�@RXw%!12=306+X%:RXw%!16=168+Y%:RXw%!20=0:RXw%!24=0:RXw%!28=-1
/�ș "Wimp_OpenWindow",,RXw%
/�RXtype%=a%
/�
CkB%=0
/� NbRX%=0:RXcount%=0:RXpram%=0
/�Y%=Mmenu%!148
/�Ȏ RXtype% �
/�1� 0: � Y%=1 � RXrecord%=1 � RXrecord%=Ntel%+1
/�C� 1: � Y%=1 � Cshed%=RXrecord%:RXrecord%=1 � RXrecord%=Nshed%+1
01� 2: � Y%=1 � RXrecord%=2 � RXrecord%=Nmem%+1
02� 3: � Y%=1 � RXrecord%=2 � RXrecord%=Ntodo%+1
0A� 5: � Y%=1 � Cexp%=RXrecord%:RXrecord%=1 � RXrecord%=Nexp%+1
0 �
0*�
04
0>� �acCK(A%)
0H � A%>&7F � A%=A% � &FFFFFF00
0RCkB%=CkB%-A%
0\�
0f
0p
� �rxINIT
0zș"OS_SerialOp",0,&34,&FF00
0�ș"OS_SerialOp",1,0
0�ș"OS_SerialOp",5,12
0�ș"OS_SerialOp",6,12
0�ș"OS_Byte",2,2
0�Abort%=�
0�
CkB%=0
0��
0�
0�� �_gath(b%)
0�� NbRX%<>0 � �acCK(b%)
0�NbRX%+=1
0�H� NbRX%=2 � b%<>RXtype% � �_setupW("wrong type of data"):Abort%=�:�7
0�� NbRX%=3 � RXcount%=1
1� RXcount%<>0 �
1b%=�transRX(b%)
1Ȏ RXtype% �
1$� 0: � b%<&F8 �
1.p        � RXcount%=1 � Tel$(RXrecord%,RXpram%)=�(b%) � Tel$(RXrecord%,RXpram%)=Tel$(RXrecord%,RXpram%)+�(b%)
18        RXcount%+=1
1B
        �
1L        �rxcont(b%)
1V
        �
1`        
1j� 1: � b%<&F8 �
1ts        � RXcount%=1 � Shed$(RXrecord%,RXpram%)=�(b%) � Shed$(RXrecord%,RXpram%)=Shed$(RXrecord%,RXpram%)+�(b%)
1~        RXcount%+=1
1�
        �
1�        �rxcont(b%)
1�
        �
1�
1�� 2: � b%<&F8 �
1�X        � RXcount%=1 � Mem$(RXrecord%)=�(b%) � Mem$(RXrecord%)=Mem$(RXrecord%)+�(b%)
1�        RXcount%+=1
1�
        �
1�        �rxcont(b%)
1�
        �
1�        
1�� 3: � b%<&F8 �
2[        � RXcount%=1 � ToDo$(RXrecord%)=�(b%) � ToDo$(RXrecord%)=ToDo$(RXrecord%)+�(b%)
2
        RXcount%+=1
2
        �
2        �rxcont(b%)
2(
        �
22        
2<� 5: � b%<&F8 �
2Fp        � RXcount%=1 � Exp$(RXrecord%,RXpram%)=�(b%) � Exp$(RXrecord%,RXpram%)=Exp$(RXrecord%,RXpram%)+�(b%)
2P        RXcount%+=1
2Z
        �
2d        �rxcont(b%)
2n
        �
2x
2��
2��
2��
2�
2�� �rxcont(b%)
2�,        � b%=&FF � RXcount%=1:RXpram%+=1
2�8        � b%=&FE � RXpram%=0:RXrecord%+=1:RXcount%=1
2�M        � RXrecord%>MaxRec% � RXrecord%=MaxRec%:�_setupW("too much data")
2��
2�
2�� �tidy
2�� B%,C%,D%
2�B%=�getS
3CkB%=CkB% � &FF
3H� B%<>CkB% � �_setupW("Check byte was "+�(B%)+" should be "+�(CkB%))
3B%=�getS
3"4� B%<>&1A � �_setupW("Last byte 1A not correct")
3,� Abort%=� �
36Ȏ RXtype% �
3@?� 0: Ctel%=1:�upTel(0):Ntel%=RXrecord%-1:�upTot(0,�(Ntel%))
3J/� 1: Nshed%=RXrecord%-1:�upTot(3,�(Nshed%))
3T         � C%=Cshed% � Nshed%
3^#        D%=�(�Shed$(C%,0),9,2))
3h-        � D%>12 � Spm%(C%)=� � Spm%(C%)=�
3r#        Shed$(C%,4)=Shed$(C%,1)
3|=        Shed$(C%,3)=�Shed$(C%,0),9,2)+":"+�Shed$(C%,0),2)
3�'        Shed$(C%,2)=�Shed$(C%,0),4)
3�)        Shed$(C%,1)=�Shed$(C%,0),5,2)
3�)        Shed$(C%,0)=�Shed$(C%,0),7,2)
3�
        �
3�        Cshed%=1
3�        �upShed(0)
3�*� 2: Cmem%=1:�mup(0):Nmem%=RXrecord%-1
3�7        � (Mmenu%!148)=1 � �cM � �upTot(1,�(Nmem%))
3�,� 3: Ctodo%=1:�mup(0):Ntodo%=RXrecord%-1
3�8        � (Mmenu%!148)=1 � �cM � �upTot(1,�(Ntodo%))
3�-� 5: Nexp%=RXrecord%-1:�upTot(2,�(Nexp%))
3�        � C%=Cexp% � Nexp%
3�:        � Exp$(C%,4)="N" � Exp%(C%,2)=� � Exp%(C%,2)=�
4$        Exp%(C%,0)=�(Exp$(C%,1))
4$        Exp%(C%,1)=�(Exp$(C%,3))
4!        Exp$(C%,3)=Exp$(C%,5)
4&!        Exp$(C%,4)=Exp$(C%,2)
40%        Exp$(C%,2)=�Exp$(C%,0),4)
4:'        Exp$(C%,1)=�Exp$(C%,0),5,2)
4D'        Exp$(C%,0)=�Exp$(C%,0),7,2)
4N
        �
4X        Cexp%=1
4b        �upExp(0)
4l�
4v�
4��
4�
4�� �getS
4�� B%,C%
4��
4�#ș"OS_SerialOp",4,256 � ,B% ;C%
4�C%=C% � &2
4�
� C%=0
4�=B%
4�
4�� �empty
4�� B%,C%
4��
5#ș"OS_SerialOp",4,256 � ,B% ;C%
5C%=C% � &2
5� C%<>0
5 �
5*
54� �acCK(A%)
5> � A%>&7F � A%=A% � &FFFFFF00
5HCkB%=CkB%-A%
5R�
5\
5f� �TXmem
5p� A%,B%,C%
5z�rxINIT
5�ș"Hourglass_Start",10
5�
�TXb(&50)
5��TXb(2):�acCK(2)
5�C%=Cmem%
5�(� Mmenu%!100=0 � B%=Nmem% � B%=Cmem%
5�� A%=C% � B%
5��TXs(Mem$(A%))
5��TXb(&FE):�acCK(&FE)
5��
5�
�finishTX
5��
5�
5�
� �TXtodo
6� A%,B%,C%
6�rxINIT
6ș"Hourglass_Start",10
6$
�TXb(&50)
6.�TXb(3):�acCK(3)
68
C%=Ctodo%
6B*� Mmenu%!100=0 � B%=Ntodo% � B%=Ctodo%
6L� A%=C% � B%
6V�TXs(ToDo$(A%))
6`�TXb(&FE):�acCK(&FE)
6j�
6t
�finishTX
6~�
6�
6�� �TXtel
6�� A%,B%,C%,D%
6��rxINIT
6�ș"Hourglass_Start",10
6�
�TXb(&50)
6��TXb(0):�acCK(0)
6�C%=Ctel%
6�(� Mmenu%!100=0 � B%=Ntel% � B%=Ctel%
6�� A%=C% � B%
6�� D%=0 � 5
6��TXs(Tel$(A%,D%))
7�TXb(&FF):�acCK(&FF)
7
�
7�TXb(&FE):�acCK(&FE)
7�
7(
�finishTX
72�
7<
7F� �TXexp
7P� A%,B%,C%,D%,t$
7Z�rxINIT
7dș"Hourglass_Start",10
7n
�TXb(&50)
7x�TXb(5):�acCK(5)
7�C%=Cexp%
7�(� Mmenu%!100=0 � B%=Nexp% � B%=Cexp%
7�� A%=C% � B%
7�2�TXs(Exp$(A%,2)+Exp$(A%,1)+Exp$(A%,0)) :� Date
7��TXb(&FF):�acCK(&FF)
7� �TXs(�(Exp%(A%,0))) : � Type
7��TXb(&FF):�acCK(&FF)
7�&�TXs(Exp$(A%,4))       : � Ammount
7��TXb(&FF):�acCK(&FF)
7�&�TXs(�(Exp%(A%,1))) : � Pay method
7��TXb(&FF):�acCK(&FF)
7�4� Exp%(A%,2) � �TXs("Y") � �TXs("N") : � Reciept
7��TXb(&FF):�acCK(&FF)
8#�TXs(Exp$(A%,3))       : � Note
8�TXb(&FE):�acCK(&FE)
8�
8"
�finishTX
8,�
86
8@
� �TXshed
8J� A%,B%,C%,D%,t$
8T�rxINIT
8^ș"Hourglass_Start",10
8h
�TXb(&50)
8r�TXb(1):�acCK(1)
8|
C%=Cshed%
8�*� Mmenu%!100=0 � B%=Nshed% � B%=Cshed%
8�� A%=C% � B%
8�V� �(Shed$(A%,3)) = 5 � t$=�Shed$(A%,3),2)+�Shed$(A%,3),2) � t$=�makeT(Shed$(A%,3))
8�0�TXs(Shed$(A%,2)+Shed$(A%,1)+Shed$(A%,0)+t$)
8��TXb(&FF):�acCK(&FF)
8��TXs(Shed$(A%,4))
8��TXb(&FE):�acCK(&FE)
8��
8�
�finishTX
8��
8�
8�� �makeT(a$)
8�� t$,L%,C%
9	t$=a$
9C%=�a$,":")
9L%=�(a$)
9&
� C%<>0 �
90ȕ L%<5
9:
a$="0"+a$
9D	L%+=1
9N�
9XC%=�a$,":")
9bt$=�a$,C%-1)+�a$,L%-C%)
9l�
9vȕ L%<4
9�
t$="0"+t$
9�	L%+=1
9��
9��
9�=t$
9�
9�� �finishTX
9�� Abort% �
9�:�_setupW("Buffer overflow, hardware not connected"):�7
9��
9��TXb(&F8):�acCK(&F8)
9��TXb(CkB%)
9�
�TXb(&1A)
:�
:ș"Hourglass_Off"
:�
: 
:*
:4� �TXs(s$)
:>� A%,B%
:H� A%=1 � �(s$)
:RB%=�(�s$,A%,1))
:\B%=�transTX(B%)
:f�TXb(B%):�acCK(B%)
:p�
:z�
:�
:�� �TXb(b%)
:�� T%
:�� �(Abort%) �
:�T%=�+50
:��
:�ș"OS_SerialOp",3,b% � ;C%
:�
C%=C% � 2
:�� C%=0 � �>T%
:�� C%<>0 � Abort%=�
:��
:��
:�
;� �exportS(s$)
;� A%,C%
;� A%=1 � �(s$)
;$C%=�(�s$,A%,1))
;.� C%=172 � C%=&A
;8�#F%,C%
;B�
;L�
;V
;`� �transTX(A%)
;j� B%
;t	B%=A%
;~� A%=172 � B%=&13
;�� A%=&60 � B%=&26
;�� A%=&7C � B%=&21
;�� A%=&3A � B%=&21
;�*� A%>&60 � A%<>172 � B%=A% � &5F:A%=B%
;�� A%<&30 �
;�Ȏ A% �
;�� &20 :B%=&20
;�� &24 :B%=&27
;�� &2F :B%=&24
;�� &2E :B%=&29
;�� &2D :B%=&28
;�� &27 :B%=&22
<
<

B%=&25
<�
<�
<(=B%
<2
<<� �transRX(A%)
<F� B%
<P	B%=A%
<Z� A%<&30 �
<dȎ A% �
<n� &13: B%=172
<x� &20: B%=&20
<�� &21: B%=&3A
<�� &22: B%=180
<�� &23: B%=44
<�� &24: B%=47
<�� &25: B%=165
<�� &26: B%=163
<�� &27: B%=36
<�� &28: B%=&2D
<�� &29: B%=&2E
<�� &2E: B%=&2B
<�
<�
B%=&3F
<��
=�
==B%
=
�

00000000  0d 00 0a 20 f4 20 50 65  72 73 6f 6e 61 6c 20 4f  |... . Personal O|
00000010  72 67 61 6e 69 73 65 72  20 41 4d 2d 33 39 39 43  |rganiser AM-399C|
00000020  0d 00 14 1e f4 20 56 65  72 73 69 6f 6e 20 31 2e  |..... Version 1.|
00000030  30 20 42 79 20 4d 69 6b  65 20 43 6f 6f 6b 0d 00  |0 By Mike Cook..|
00000040  1e 19 f4 20 41 6c 6c 20  72 69 67 68 74 73 20 72  |... All rights r|
00000050  65 73 65 72 76 65 64 0d  00 28 11 ee 20 85 20 f2  |eserved..(.. . .|
00000060  65 72 72 6f 72 62 6f 78  0d 00 32 04 0d 00 3c 2a  |errorbox..2...<*|
00000070  de 20 74 61 73 6b 69 64  25 34 2c 69 6e 74 6d 65  |. taskid%4,intme|
00000080  73 73 25 20 32 30 3a 24  74 61 73 6b 69 64 25 3d  |ss% 20:$taskid%=|
00000090  22 54 41 53 4b 22 0d 00  46 49 69 6e 74 6d 65 73  |"TASK"..FIintmes|
000000a0  73 25 21 30 3d 31 3a 69  6e 74 6d 65 73 73 25 21  |s%!0=1:intmess%!|
000000b0  34 3d 32 3a 69 6e 74 6d  65 73 73 25 21 38 3d 33  |4=2:intmess%!8=3|
000000c0  3a 69 6e 74 6d 65 73 73  25 21 31 32 3d 26 35 30  |:intmess%!12=&50|
000000d0  32 3a 69 6e 74 6d 65 73  73 25 21 31 36 3d 30 0d  |2:intmess%!16=0.|
000000e0  00 50 4f c8 99 20 22 57  69 6d 70 5f 49 6e 69 74  |.PO.. "Wimp_Init|
000000f0  69 61 6c 69 73 65 22 2c  33 30 30 2c 21 74 61 73  |ialise",300,!tas|
00000100  6b 69 64 25 2c 22 4f 72  67 61 6e 69 73 65 72 22  |kid%,"Organiser"|
00000110  2c 69 6e 74 6d 65 73 73  25 20 b8 20 76 65 72 73  |,intmess% . vers|
00000120  69 6f 6e 25 2c 74 61 73  6b 68 61 6e 64 25 0d 00  |ion%,taskhand%..|
00000130  5a 6d de 20 71 25 20 26  36 30 30 2c 71 63 25 20  |Zm. q% &600,qc% |
00000140  38 30 2c 74 65 6d 70 25  20 35 31 32 2c 62 75 66  |80,temp% 512,buf|
00000150  66 65 72 73 25 20 35 31  32 2c 6d 65 6e 75 25 20  |fers% 512,menu% |
00000160  32 35 36 2c 4d 6d 65 6e  75 25 20 35 31 32 2c 63  |256,Mmenu% 512,c|
00000170  62 25 20 31 38 2c 71 77  25 20 26 33 30 30 2c 71  |b% 18,qw% &300,q|
00000180  6e 25 20 26 33 30 30 2c  20 53 77 25 20 26 33 30  |n% &300, Sw% &30|
00000190  30 2c 20 45 77 25 20 26  33 30 30 0d 00 64 4b de  |0, Ew% &300..dK.|
000001a0  20 57 6e 30 25 20 26 37  30 30 2c 20 57 6e 31 25  | Wn0% &700, Wn1%|
000001b0  20 26 35 30 30 2c 20 57  6e 32 25 20 26 35 30 30  | &500, Wn2% &500|
000001c0  2c 20 57 6e 33 25 20 26  35 30 30 2c 52 58 77 25  |, Wn3% &500,RXw%|
000001d0  20 35 30 30 2c 20 57 6e  25 28 33 29 2c 77 6f 70  | 500, Wn%(3),wop|
000001e0  65 6e 25 28 33 29 0d 00  6e 4c de 20 53 57 30 25  |en%(3)..nL. SW0%|
000001f0  20 37 30 30 2c 53 57 31  25 20 35 31 32 2c 53 57  | 700,SW1% 512,SW|
00000200  32 25 20 36 31 32 2c 20  53 57 33 25 20 35 31 32  |2% 612, SW3% 512|
00000210  2c 74 62 6c 6f 63 6b 25  20 32 34 2c 20 54 79 70  |,tblock% 24, Typ|
00000220  65 4d 25 20 32 30 30 2c  20 50 61 79 4d 25 20 32  |eM% 200, PayM% 2|
00000230  30 30 0d 00 78 35 de 20  43 6f 6d 6d 65 6e 75 25  |00..x5. Commenu%|
00000240  20 35 31 32 2c 20 43 6f  6d 65 6e 75 25 20 32 35  | 512, Comenu% 25|
00000250  36 2c 52 43 57 25 20 35  30 30 2c 20 45 73 4e 61  |6,RCW% 500, EsNa|
00000260  6d 65 25 20 35 35 36 0d  00 82 4b de 20 49 73 4e  |me% 556...K. IsN|
00000270  61 6d 65 25 20 35 35 36  2c 20 57 6d 65 6e 75 25  |ame% 556, Wmenu%|
00000280  20 35 31 32 2c 53 6d 65  6e 75 25 20 32 35 36 2c  | 512,Smenu% 256,|
00000290  49 6d 65 6e 75 25 20 32  35 36 2c 20 54 65 78 74  |Imenu% 256, Text|
000002a0  57 61 72 6e 25 20 31 30  30 2c 20 77 77 25 20 32  |Warn% 100, ww% 2|
000002b0  35 36 0d 00 8c 3d de 20  53 50 6f 69 6e 74 25 28  |56...=. SPoint%(|
000002c0  32 30 2c 33 29 2c 49 58  25 28 32 30 2c 33 29 2c  |20,3),IX%(20,3),|
000002d0  49 59 25 28 32 30 2c 33  29 2c 49 58 31 25 28 32  |IY%(20,3),IX1%(2|
000002e0  30 2c 33 29 2c 49 59 31  25 28 32 30 2c 33 29 0d  |0,3),IY1%(20,3).|
000002f0  00 96 46 4d 61 78 52 65  63 25 3d 31 30 30 20 3a  |..FMaxRec%=100 :|
00000300  20 f4 20 61 6c 74 65 72  20 74 68 69 73 20 74 6f  | . alter this to|
00000310  20 63 68 61 6e 67 65 20  74 68 65 20 6d 61 78 69  | change the maxi|
00000320  6d 75 6d 20 6e 75 6d 62  65 72 20 6f 66 20 72 65  |mum number of re|
00000330  63 6f 72 64 73 0d 00 a0  51 de 20 54 65 6c 24 28  |cords...Q. Tel$(|
00000340  4d 61 78 52 65 63 25 2c  35 29 2c 4d 65 6d 24 28  |MaxRec%,5),Mem$(|
00000350  4d 61 78 52 65 63 25 29  2c 54 6f 44 6f 24 28 4d  |MaxRec%),ToDo$(M|
00000360  61 78 52 65 63 25 29 2c  53 68 65 64 24 28 4d 61  |axRec%),Shed$(Ma|
00000370  78 52 65 63 25 2c 35 29  2c 53 70 6d 25 28 4d 61  |xRec%,5),Spm%(Ma|
00000380  78 52 65 63 25 29 0d 00  aa 38 de 20 45 78 70 24  |xRec%)...8. Exp$|
00000390  28 4d 61 78 52 65 63 25  2c 35 29 2c 45 78 70 25  |(MaxRec%,5),Exp%|
000003a0  28 4d 61 78 52 65 63 25  2c 32 29 2c 45 74 79 70  |(MaxRec%,2),Etyp|
000003b0  65 24 28 38 29 2c 45 70  61 79 24 28 34 29 0d 00  |e$(8),Epay$(4)..|
000003c0  b4 31 c8 99 20 22 57 69  6d 70 5f 4f 70 65 6e 54  |.1.. "Wimp_OpenT|
000003d0  65 6d 70 6c 61 74 65 22  2c 2c 22 3c 4f 52 47 24  |emplate",,"<ORG$|
000003e0  44 69 72 3e 2e 54 65 6d  70 6c 61 74 65 73 22 0d  |Dir>.Templates".|
000003f0  00 be 29 ee 20 85 20 c8  99 20 22 57 69 6d 70 5f  |..). . .. "Wimp_|
00000400  43 6c 6f 73 65 54 65 6d  70 6c 61 74 65 22 3a f2  |CloseTemplate":.|
00000410  65 72 72 6f 72 62 6f 78  0d 00 c8 3a c8 99 20 22  |errorbox...:.. "|
00000420  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
00000430  65 22 2c 2c 71 25 2c 74  65 6d 70 25 2c 74 65 6d  |e",,q%,temp%,tem|
00000440  70 25 2b 32 35 36 2c 2d  31 2c 22 49 6e 66 6f 22  |p%+256,-1,"Info"|
00000450  2c 30 0d 00 d2 26 c8 99  20 22 57 69 6d 70 5f 43  |,0...&.. "Wimp_C|
00000460  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 71 25  |reateWindow",,q%|
00000470  20 b8 20 69 6e 66 6f 25  0d 00 dc 47 c8 99 20 22  | . info%...G.. "|
00000480  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
00000490  65 22 2c 2c 71 25 2c 49  73 4e 61 6d 65 25 2b 34  |e",,q%,IsName%+4|
000004a0  2c 49 73 4e 61 6d 65 25  2b 35 35 36 2c 2d 31 2c  |,IsName%+556,-1,|
000004b0  22 73 61 76 65 5f 73 63  72 69 70 74 22 2c 30 0d  |"save_script",0.|
000004c0  00 e6 27 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |..'.. "Wimp_Crea|
000004d0  74 65 57 69 6e 64 6f 77  22 2c 2c 71 25 20 b8 20  |teWindow",,q% . |
000004e0  73 61 76 65 57 25 0d 00  f0 40 49 73 4e 61 6d 65  |saveW%...@IsName|
000004f0  25 21 30 3d 73 61 76 65  57 25 3a 53 61 76 65 49  |%!0=saveW%:SaveI|
00000500  63 6f 6e 25 3d 21 28 71  25 2b 38 38 2b 32 30 29  |con%=!(q%+88+20)|
00000510  3a 53 6e 61 6d 65 25 3d  21 28 71 25 2b 38 38 2b  |:Sname%=!(q%+88+|
00000520  32 30 2b 33 32 29 0d 00  fa 42 c8 99 20 22 57 69  |20+32)...B.. "Wi|
00000530  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
00000540  2c 2c 71 25 2c 45 73 4e  61 6d 65 25 2b 34 2c 45  |,,q%,EsName%+4,E|
00000550  73 4e 61 6d 65 25 2b 35  35 36 2c 2d 31 2c 22 45  |sName%+556,-1,"E|
00000560  78 70 6f 72 74 22 2c 30  0d 01 04 29 c8 99 20 22  |xport",0...).. "|
00000570  57 69 6d 70 5f 43 72 65  61 74 65 57 69 6e 64 6f  |Wimp_CreateWindo|
00000580  77 22 2c 2c 71 25 20 b8  20 65 78 70 6f 72 74 57  |w",,q% . exportW|
00000590  25 0d 01 0e 2c 45 73 4e  61 6d 65 25 21 30 3d 65  |%...,EsName%!0=e|
000005a0  78 70 6f 72 74 57 25 3a  45 6e 61 6d 65 25 3d 21  |xportW%:Ename%=!|
000005b0  28 71 25 2b 38 38 2b 32  30 2b 33 32 29 0d 01 18  |(q%+88+20+32)...|
000005c0  3a c8 99 20 22 57 69 6d  70 5f 4c 6f 61 64 54 65  |:.. "Wimp_LoadTe|
000005d0  6d 70 6c 61 74 65 22 2c  2c 52 58 77 25 2b 34 2c  |mplate",,RXw%+4,|
000005e0  52 43 57 25 2c 52 43 57  25 2b 35 30 30 2c 2d 31  |RCW%,RCW%+500,-1|
000005f0  2c 22 72 78 22 2c 30 0d  01 22 2a c8 99 20 22 57  |,"rx",0.."*.. "W|
00000600  69 6d 70 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |imp_CreateWindow|
00000610  22 2c 2c 52 58 77 25 2b  34 20 b8 20 72 78 31 57  |",,RXw%+4 . rx1W|
00000620  25 0d 01 2c 10 52 58 77  25 21 30 3d 72 78 31 57  |%..,.RXw%!0=rx1W|
00000630  25 0d 01 36 04 0d 01 40  41 c8 99 20 22 57 69 6d  |%..6...@A.. "Wim|
00000640  70 5f 4c 6f 61 64 54 65  6d 70 6c 61 74 65 22 2c  |p_LoadTemplate",|
00000650  2c 57 6e 30 25 2b 34 2c  53 57 30 25 2c 53 57 30  |,Wn0%+4,SW0%,SW0|
00000660  25 2b 37 30 30 2c 2d 31  2c 22 54 65 6c 65 70 68  |%+700,-1,"Teleph|
00000670  6f 6e 65 22 2c 30 0d 01  4a 0e 57 6e 30 25 21 32  |one",0..J.Wn0%!2|
00000680  38 3d 2d 31 0d 01 54 0f  e3 20 41 25 3d 30 20 b8  |8=-1..T.. A%=0 .|
00000690  20 31 33 0d 01 5e 27 53  50 6f 69 6e 74 25 28 41  | 13..^'SPoint%(A|
000006a0  25 2c 30 29 3d 21 28 57  6e 30 25 2b 34 2b 38 38  |%,0)=!(Wn0%+4+88|
000006b0  2b 32 30 2b 33 32 2a 41  25 29 0d 01 68 3f 49 58  |+20+32*A%)..h?IX|
000006c0  25 28 41 25 2c 30 29 3d  21 28 57 6e 30 25 2b 34  |%(A%,0)=!(Wn0%+4|
000006d0  2b 38 38 2b 33 32 2a 41  25 29 3a 49 59 25 28 41  |+88+32*A%):IY%(A|
000006e0  25 2c 30 29 3d 21 28 57  6e 30 25 2b 34 2b 38 38  |%,0)=!(Wn0%+4+88|
000006f0  2b 34 2b 33 32 2a 41 25  29 0d 01 72 44 49 58 31  |+4+32*A%)..rDIX1|
00000700  25 28 41 25 2c 30 29 3d  21 28 57 6e 30 25 2b 34  |%(A%,0)=!(Wn0%+4|
00000710  2b 38 38 2b 38 2b 33 32  2a 41 25 29 3a 49 59 31  |+88+8+32*A%):IY1|
00000720  25 28 41 25 2c 30 29 3d  21 28 57 6e 30 25 2b 34  |%(A%,0)=!(Wn0%+4|
00000730  2b 38 38 2b 31 32 2b 33  32 2a 41 25 29 0d 01 7c  |+88+12+32*A%)..||
00000740  05 ed 0d 01 86 2a c8 99  20 22 57 69 6d 70 5f 43  |.....*.. "Wimp_C|
00000750  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 57 6e  |reateWindow",,Wn|
00000760  30 25 2b 34 20 b8 20 74  65 6c 57 25 0d 01 90 1b  |0%+4 . telW%....|
00000770  57 6e 30 25 21 30 3d 74  65 6c 57 25 3a 57 6e 30  |Wn0%!0=telW%:Wn0|
00000780  25 21 32 38 3d 2d 31 0d  01 9a 04 0d 01 a4 3c c8  |%!28=-1.......<.|
00000790  99 20 22 57 69 6d 70 5f  4c 6f 61 64 54 65 6d 70  |. "Wimp_LoadTemp|
000007a0  6c 61 74 65 22 2c 2c 57  6e 31 25 2b 34 2c 53 57  |late",,Wn1%+4,SW|
000007b0  31 25 2c 53 57 31 25 2b  35 31 32 2c 2d 31 2c 22  |1%,SW1%+512,-1,"|
000007c0  4d 65 6d 6f 22 2c 30 0d  01 ae 0e 57 6e 31 25 21  |Memo",0....Wn1%!|
000007d0  32 38 3d 2d 31 0d 01 b8  0f e3 20 41 25 3d 30 20  |28=-1..... A%=0 |
000007e0  b8 20 31 33 0d 01 c2 27  53 50 6f 69 6e 74 25 28  |. 13...'SPoint%(|
000007f0  41 25 2c 31 29 3d 21 28  57 6e 31 25 2b 34 2b 38  |A%,1)=!(Wn1%+4+8|
00000800  38 2b 32 30 2b 33 32 2a  41 25 29 0d 01 cc 3f 49  |8+20+32*A%)...?I|
00000810  58 25 28 41 25 2c 31 29  3d 21 28 57 6e 31 25 2b  |X%(A%,1)=!(Wn1%+|
00000820  34 2b 38 38 2b 33 32 2a  41 25 29 3a 49 59 25 28  |4+88+32*A%):IY%(|
00000830  41 25 2c 31 29 3d 21 28  57 6e 31 25 2b 34 2b 38  |A%,1)=!(Wn1%+4+8|
00000840  38 2b 34 2b 33 32 2a 41  25 29 0d 01 d6 44 49 58  |8+4+32*A%)...DIX|
00000850  31 25 28 41 25 2c 31 29  3d 21 28 57 6e 31 25 2b  |1%(A%,1)=!(Wn1%+|
00000860  34 2b 38 38 2b 38 2b 33  32 2a 41 25 29 3a 49 59  |4+88+8+32*A%):IY|
00000870  31 25 28 41 25 2c 31 29  3d 21 28 57 6e 31 25 2b  |1%(A%,1)=!(Wn1%+|
00000880  34 2b 38 38 2b 31 32 2b  33 32 2a 41 25 29 0d 01  |4+88+12+32*A%)..|
00000890  e0 05 ed 0d 01 ea 2b c8  99 20 22 57 69 6d 70 5f  |......+.. "Wimp_|
000008a0  43 72 65 61 74 65 57 69  6e 64 6f 77 22 2c 2c 57  |CreateWindow",,W|
000008b0  6e 31 25 2b 34 20 b8 20  6d 65 6d 6f 57 25 0d 01  |n1%+4 . memoW%..|
000008c0  f4 1c 57 6e 31 25 21 30  3d 6d 65 6d 6f 57 25 3a  |..Wn1%!0=memoW%:|
000008d0  57 6e 31 25 21 32 38 3d  2d 31 0d 01 fe 04 0d 02  |Wn1%!28=-1......|
000008e0  08 40 c8 99 20 22 57 69  6d 70 5f 4c 6f 61 64 54  |.@.. "Wimp_LoadT|
000008f0  65 6d 70 6c 61 74 65 22  2c 2c 57 6e 32 25 2b 34  |emplate",,Wn2%+4|
00000900  2c 53 57 32 25 2c 53 57  32 25 2b 36 31 32 2c 2d  |,SW2%,SW2%+612,-|
00000910  31 2c 22 45 78 70 65 6e  73 65 73 22 2c 30 0d 02  |1,"Expenses",0..|
00000920  12 0e 57 6e 32 25 21 32  38 3d 2d 31 0d 02 1c 0f  |..Wn2%!28=-1....|
00000930  e3 20 41 25 3d 30 20 b8  20 31 37 0d 02 26 27 53  |. A%=0 . 17..&'S|
00000940  50 6f 69 6e 74 25 28 41  25 2c 32 29 3d 21 28 57  |Point%(A%,2)=!(W|
00000950  6e 32 25 2b 34 2b 38 38  2b 32 30 2b 33 32 2a 41  |n2%+4+88+20+32*A|
00000960  25 29 0d 02 30 3f 49 58  25 28 41 25 2c 32 29 3d  |%)..0?IX%(A%,2)=|
00000970  21 28 57 6e 32 25 2b 34  2b 38 38 2b 33 32 2a 41  |!(Wn2%+4+88+32*A|
00000980  25 29 3a 49 59 25 28 41  25 2c 32 29 3d 21 28 57  |%):IY%(A%,2)=!(W|
00000990  6e 32 25 2b 34 2b 38 38  2b 34 2b 33 32 2a 41 25  |n2%+4+88+4+32*A%|
000009a0  29 0d 02 3a 44 49 58 31  25 28 41 25 2c 32 29 3d  |)..:DIX1%(A%,2)=|
000009b0  21 28 57 6e 32 25 2b 34  2b 38 38 2b 38 2b 33 32  |!(Wn2%+4+88+8+32|
000009c0  2a 41 25 29 3a 49 59 31  25 28 41 25 2c 32 29 3d  |*A%):IY1%(A%,2)=|
000009d0  21 28 57 6e 32 25 2b 34  2b 38 38 2b 31 32 2b 33  |!(Wn2%+4+88+12+3|
000009e0  32 2a 41 25 29 0d 02 44  05 ed 0d 02 4e 2a c8 99  |2*A%)..D....N*..|
000009f0  20 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  | "Wimp_CreateWin|
00000a00  64 6f 77 22 2c 2c 57 6e  32 25 2b 34 20 b8 20 65  |dow",,Wn2%+4 . e|
00000a10  78 70 57 25 0d 02 58 1b  57 6e 32 25 21 30 3d 65  |xpW%..X.Wn2%!0=e|
00000a20  78 70 57 25 3a 57 6e 32  25 21 32 38 3d 2d 31 0d  |xpW%:Wn2%!28=-1.|
00000a30  02 62 04 0d 02 6c 40 c8  99 20 22 57 69 6d 70 5f  |.b...l@.. "Wimp_|
00000a40  4c 6f 61 64 54 65 6d 70  6c 61 74 65 22 2c 2c 57  |LoadTemplate",,W|
00000a50  6e 33 25 2b 34 2c 53 57  33 25 2c 53 57 33 25 2b  |n3%+4,SW3%,SW3%+|
00000a60  35 31 32 2c 2d 31 2c 22  53 63 68 65 64 75 6c 65  |512,-1,"Schedule|
00000a70  22 2c 30 0d 02 76 0e 57  6e 33 25 21 32 38 3d 2d  |",0..v.Wn3%!28=-|
00000a80  31 0d 02 80 0f e3 20 41  25 3d 30 20 b8 20 31 34  |1..... A%=0 . 14|
00000a90  0d 02 8a 27 53 50 6f 69  6e 74 25 28 41 25 2c 33  |...'SPoint%(A%,3|
00000aa0  29 3d 21 28 57 6e 33 25  2b 34 2b 38 38 2b 32 30  |)=!(Wn3%+4+88+20|
00000ab0  2b 33 32 2a 41 25 29 0d  02 94 3f 49 58 25 28 41  |+32*A%)...?IX%(A|
00000ac0  25 2c 33 29 3d 21 28 57  6e 33 25 2b 34 2b 38 38  |%,3)=!(Wn3%+4+88|
00000ad0  2b 33 32 2a 41 25 29 3a  49 59 25 28 41 25 2c 33  |+32*A%):IY%(A%,3|
00000ae0  29 3d 21 28 57 6e 33 25  2b 34 2b 38 38 2b 34 2b  |)=!(Wn3%+4+88+4+|
00000af0  33 32 2a 41 25 29 0d 02  9e 44 49 58 31 25 28 41  |32*A%)...DIX1%(A|
00000b00  25 2c 33 29 3d 21 28 57  6e 33 25 2b 34 2b 38 38  |%,3)=!(Wn3%+4+88|
00000b10  2b 38 2b 33 32 2a 41 25  29 3a 49 59 31 25 28 41  |+8+32*A%):IY1%(A|
00000b20  25 2c 33 29 3d 21 28 57  6e 33 25 2b 34 2b 38 38  |%,3)=!(Wn3%+4+88|
00000b30  2b 31 32 2b 33 32 2a 41  25 29 0d 02 a8 05 ed 0d  |+12+32*A%)......|
00000b40  02 b2 2b c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |..+.. "Wimp_Crea|
00000b50  74 65 57 69 6e 64 6f 77  22 2c 2c 57 6e 33 25 2b  |teWindow",,Wn3%+|
00000b60  34 20 b8 20 73 68 65 64  57 25 0d 02 bc 1c 57 6e  |4 . shedW%....Wn|
00000b70  33 25 21 30 3d 73 68 65  64 57 25 3a 57 6e 33 25  |3%!0=shedW%:Wn3%|
00000b80  21 32 38 3d 2d 31 0d 02  c6 33 57 6e 25 28 30 29  |!28=-1...3Wn%(0)|
00000b90  3d 57 6e 30 25 3a 57 6e  25 28 31 29 3d 57 6e 31  |=Wn0%:Wn%(1)=Wn1|
00000ba0  25 3a 57 6e 25 28 32 29  3d 57 6e 32 25 3a 57 6e  |%:Wn%(2)=Wn2%:Wn|
00000bb0  25 28 33 29 3d 57 6e 33  25 0d 02 d0 04 0d 02 da  |%(3)=Wn3%.......|
00000bc0  39 c8 99 20 22 57 69 6d  70 5f 4c 6f 61 64 54 65  |9.. "Wimp_LoadTe|
00000bd0  6d 70 6c 61 74 65 22 2c  2c 71 25 2c 77 77 25 2c  |mplate",,q%,ww%,|
00000be0  77 77 25 2b 32 35 36 2c  2d 31 2c 22 57 61 72 6e  |ww%+256,-1,"Warn|
00000bf0  69 6e 67 22 2c 30 0d 02  e4 29 71 25 21 31 30 38  |ing",0...)q%!108|
00000c00  3d 54 65 78 74 57 61 72  6e 25 3a 71 25 21 31 31  |=TextWarn%:q%!11|
00000c10  32 3d 2d 31 3a 71 25 21  31 31 36 3d 33 30 30 0d  |2=-1:q%!116=300.|
00000c20  02 ee 20 58 51 25 3d 71  25 21 38 2d 71 25 21 30  |.. XQ%=q%!8-q%!0|
00000c30  3a 59 51 25 3d 71 25 21  31 32 2d 71 25 21 34 0d  |:YQ%=q%!12-q%!4.|
00000c40  02 f8 2a c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |..*.. "Wimp_Crea|
00000c50  74 65 57 69 6e 64 6f 77  22 2c 2c 71 25 20 b8 20  |teWindow",,q% . |
00000c60  77 61 72 6e 69 6e 67 57  25 0d 03 02 1b c8 99 20  |warningW%...... |
00000c70  22 57 69 6d 70 5f 43 6c  6f 73 65 54 65 6d 70 6c  |"Wimp_CloseTempl|
00000c80  61 74 65 22 0d 03 0c 12  73 6d 70 69 63 6f 6e 25  |ate"....smpicon%|
00000c90  3d a4 69 63 6f 6e 0d 03  16 3d 77 6f 70 65 6e 25  |=.icon...=wopen%|
00000ca0  28 30 29 3d a3 3a 77 6f  70 65 6e 25 28 31 29 3d  |(0)=.:wopen%(1)=|
00000cb0  a3 3a 77 6f 70 65 6e 25  28 32 29 3d a3 3a 77 6f  |.:wopen%(2)=.:wo|
00000cc0  70 65 6e 25 28 33 29 3d  a3 3a 77 61 72 6e 4f 6e  |pen%(3)=.:warnOn|
00000cd0  25 3d a3 0d 03 20 1e 53  74 79 70 65 24 3d 22 30  |%=... .Stype$="0|
00000ce0  22 3a 4e 74 65 6c 25 3d  31 3a 43 74 65 6c 25 3d  |":Ntel%=1:Ctel%=|
00000cf0  31 0d 03 2a 13 4e 6d 65  6d 25 3d 31 3a 43 6d 65  |1..*.Nmem%=1:Cme|
00000d00  6d 25 3d 31 0d 03 34 15  4e 74 6f 64 6f 25 3d 31  |m%=1..4.Ntodo%=1|
00000d10  3a 43 74 6f 64 6f 25 3d  31 0d 03 3e 15 4e 73 68  |:Ctodo%=1..>.Nsh|
00000d20  65 64 25 3d 31 3a 43 73  68 65 64 25 3d 31 0d 03  |ed%=1:Cshed%=1..|
00000d30  48 13 4e 65 78 70 25 3d  31 3a 43 65 78 70 25 3d  |H.Nexp%=1:Cexp%=|
00000d40  31 0d 03 52 1f 4d 65 6d  6f 25 3d b9 3a 52 64 25  |1..R.Memo%=.:Rd%|
00000d50  3d a3 3a 52 64 31 25 3d  30 3a 52 64 32 25 3d 30  |=.:Rd1%=0:Rd2%=0|
00000d60  0d 03 5c 11 52 64 55 44  25 3d a3 3a 52 58 25 3d  |..\.RdUD%=.:RX%=|
00000d70  a3 0d 03 66 1f 45 78 70  6f 72 74 25 3d b9 3a f2  |...f.Export%=.:.|
00000d80  5f 50 75 74 4e 61 6d 65  28 22 54 65 78 74 22 29  |_PutName("Text")|
00000d90  0d 03 70 1f 45 78 70 6f  72 74 25 3d a3 3a f2 5f  |..p.Export%=.:._|
00000da0  50 75 74 4e 61 6d 65 28  22 44 61 74 61 22 29 0d  |PutName("Data").|
00000db0  03 7a 0c 41 62 6f 72 74  25 3d a3 0d 03 84 09 f2  |.z.Abort%=......|
00000dc0  69 6e 69 74 0d 03 8e 11  ee 20 85 20 f2 65 72 72  |init..... . .err|
00000dd0  6f 72 62 6f 78 0d 03 98  04 0d 03 a2 0e f2 73 65  |orbox.........se|
00000de0  74 75 70 6d 65 6e 75 0d  03 ac 04 0d 03 b6 05 f5  |tupmenu.........|
00000df0  0d 03 c0 1d 20 c8 99 20  22 57 69 6d 70 5f 50 6f  |.... .. "Wimp_Po|
00000e00  6c 6c 22 2c 30 2c 71 25  20 b8 20 41 25 0d 03 ca  |ll",0,q% . A%...|
00000e10  0d 20 20 c8 8e 20 41 25  20 ca 0d 03 d4 11 20 20  |.  .. A% .....  |
00000e20  20 c9 20 30 3a f2 5f 4e  75 6c 6c 0d 03 de 15 20  | . 0:._Null.... |
00000e30  20 20 c9 20 31 3a f2 5f  64 6f 57 69 6e 64 6f 77  |  . 1:._doWindow|
00000e40  0d 03 e8 4f 20 20 20 c9  20 32 3a c8 99 22 4f 53  |...O   . 2:.."OS|
00000e50  5f 52 65 61 64 4d 6f 64  65 56 61 72 69 61 62 6c  |_ReadModeVariabl|
00000e60  65 22 2c 2d 31 2c 33 20  b8 20 2c 2c 4e 63 6f 6c  |e",-1,3 . ,,Ncol|
00000e70  6f 75 72 73 25 3a 20 c8  99 20 22 57 69 6d 70 5f  |ours%: .. "Wimp_|
00000e80  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 71 25 0d  |OpenWindow",,q%.|
00000e90  03 f2 12 20 20 20 c9 20  33 3a f2 5f 63 6c 6f 73  |...   . 3:._clos|
00000ea0  65 0d 03 fc 19 20 20 20  c9 20 36 3a f2 5f 64 6f  |e....   . 6:._do|
00000eb0  5f 63 6c 69 63 6b 28 71  25 29 0d 04 06 18 20 20  |_click(q%)....  |
00000ec0  20 c9 20 37 3a f2 5f 50  75 74 44 6f 77 6e 28 71  | . 7:._PutDown(q|
00000ed0  25 29 0d 04 10 15 20 20  20 c9 20 38 3a f2 5f 4b  |%)....   . 8:._K|
00000ee0  65 79 50 72 65 73 73 0d  04 1a 16 20 20 20 c9 20  |eyPress....   . |
00000ef0  39 3a f2 5f 53 4f 52 54  5f 4d 65 6e 75 0d 04 24  |9:._SORT_Menu..$|
00000f00  1b 20 20 20 c9 20 31 37  2c 31 38 3a f2 72 65 63  |.   . 17,18:.rec|
00000f10  65 69 76 65 28 71 25 29  0d 04 2e 08 20 20 20 cb  |eive(q%)....   .|
00000f20  0d 04 38 08 20 fd 20 a3  0d 04 42 04 0d 04 4c 05  |..8. . ...B...L.|
00000f30  e0 0d 04 56 04 0d 04 60  0c dd 20 f2 5f 4e 75 6c  |...V...`.. ._Nul|
00000f40  6c 0d 04 6a 1c ea 20 41  25 2c 42 25 2c 43 25 2c  |l..j.. A%,B%,C%,|
00000f50  44 25 2c 58 25 2c 59 25  2c 62 75 74 25 0d 04 74  |D%,X%,Y%,but%..t|
00000f60  0f c8 97 20 41 25 2c 42  25 2c 43 25 0d 04 7e 04  |... A%,B%,C%..~.|
00000f70  0d 04 88 14 e7 20 52 64  55 44 25 20 80 20 43 25  |..... RdUD% . C%|
00000f80  3d 30 20 8c 0d 04 92 3e  e7 20 52 64 32 25 3d 30  |=0 ....>. Rd2%=0|
00000f90  20 8c 20 24 53 50 6f 69  6e 74 25 28 30 2c 52 64  | . $SPoint%(0,Rd|
00000fa0  31 25 29 3d 22 64 6f 77  6e 22 20 8b 20 24 53 50  |1%)="down" . $SP|
00000fb0  6f 69 6e 74 25 28 31 2c  52 64 31 25 29 3d 22 75  |oint%(1,Rd1%)="u|
00000fc0  70 22 0d 04 9c 61 c8 99  22 57 69 6d 70 5f 46 6f  |p"...a.."Wimp_Fo|
00000fd0  72 63 65 52 65 64 72 61  77 22 2c 21 57 6e 25 28  |rceRedraw",!Wn%(|
00000fe0  52 64 31 25 29 2c 49 58  25 28 52 64 32 25 2c 52  |Rd1%),IX%(Rd2%,R|
00000ff0  64 31 25 29 2c 49 59 25  28 52 64 32 25 2c 52 64  |d1%),IY%(Rd2%,Rd|
00001000  31 25 29 2c 49 58 31 25  28 52 64 32 25 2c 52 64  |1%),IX1%(Rd2%,Rd|
00001010  31 25 29 2c 49 59 31 25  28 52 64 32 25 2c 52 64  |1%),IY1%(Rd2%,Rd|
00001020  31 25 29 0d 04 a6 0b 52  64 55 44 25 3d a3 0d 04  |1%)....RdUD%=...|
00001030  b0 05 cd 0d 04 ba 04 0d  04 c4 0b e7 20 52 58 25  |............ RX%|
00001040  20 8c 0d 04 ce 0b f2 72  78 49 4e 49 54 0d 04 d8  | ......rxINIT...|
00001050  0a f2 65 6d 70 74 79 0d  04 e2 05 f5 0d 04 ec 0f  |..empty.........|
00001060  c8 97 20 41 25 2c 42 25  2c 43 25 0d 04 f6 0a fd  |.. A%,B%,C%.....|
00001070  20 43 25 3d 30 0d 05 00  1a c8 99 22 48 6f 75 72  | C%=0......"Hour|
00001080  67 6c 61 73 73 5f 53 74  61 72 74 22 2c 31 30 0d  |glass_Start",10.|
00001090  05 0a 05 f5 0d 05 14 23  c8 99 22 4f 53 5f 53 65  |.......#.."OS_Se|
000010a0  72 69 61 6c 4f 70 22 2c  34 2c 32 35 36 20 b8 20  |rialOp",4,256 . |
000010b0  2c 42 25 20 3b 43 25 0d  05 1e 0e 43 25 3d 43 25  |,B% ;C%....C%=C%|
000010c0  20 80 20 26 32 0d 05 28  17 e7 20 43 25 3d 30 20  | . &2..(.. C%=0 |
000010d0  8c 20 f2 5f 67 61 74 68  28 42 25 29 0d 05 32 11  |. ._gath(B%)..2.|
000010e0  c8 97 20 58 25 2c 59 25  2c 62 75 74 25 0d 05 3c  |.. X%,Y%,but%..<|
000010f0  1f fd 20 62 75 74 25 3c  3e 30 20 84 20 42 25 3d  |.. but%<>0 . B%=|
00001100  26 46 38 20 84 20 41 62  6f 72 74 25 0d 05 46 14  |&F8 . Abort%..F.|
00001110  e7 20 42 25 3d 26 46 38  20 8c 20 f2 74 69 64 79  |. B%=&F8 . .tidy|
00001120  0d 05 50 15 c8 99 22 48  6f 75 72 67 6c 61 73 73  |..P..."Hourglass|
00001130  5f 4f 66 66 22 0d 05 5a  09 52 58 25 3d a3 0d 05  |_Off"..Z.RX%=...|
00001140  64 1f c8 99 20 22 57 69  6d 70 5f 43 6c 6f 73 65  |d... "Wimp_Close|
00001150  57 69 6e 64 6f 77 22 2c  2c 52 58 77 25 0d 05 6e  |Window",,RXw%..n|
00001160  05 cd 0d 05 78 05 e1 0d  05 82 04 0d 05 8c 11 dd  |....x...........|
00001170  20 a4 5f 73 70 61 74 68  28 6e 24 29 0d 05 96 0f  | ._spath(n$)....|
00001180  c8 95 20 a7 6e 24 2c 22  2e 22 29 0d 05 a0 13 6e  |.. .n$,".")....n|
00001190  24 3d c2 6e 24 2c a9 28  6e 24 29 2d 31 29 0d 05  |$=.n$,.(n$)-1)..|
000011a0  aa 05 ce 0d 05 b4 1b e7  20 a9 28 6e 24 29 3e 31  |........ .(n$)>1|
000011b0  30 20 8c 20 6e 24 3d c2  6e 24 2c 31 30 29 0d 05  |0 . n$=.n$,10)..|
000011c0  be 07 3d 6e 24 0d 05 c8  04 0d 05 d2 0f dd 20 f2  |..=n$......... .|
000011d0  5f 47 65 74 4e 61 6d 65  0d 05 dc 29 e7 20 45 78  |_GetName...). Ex|
000011e0  70 6f 72 74 25 20 8c 20  66 6e 24 3d 24 45 6e 61  |port% . fn$=$Ena|
000011f0  6d 65 25 20 8b 20 66 6e  24 3d 24 53 6e 61 6d 65  |me% . fn$=$Sname|
00001200  25 0d 05 e6 05 e1 0d 05  f0 04 0d 05 fa 11 dd 20  |%.............. |
00001210  f2 5f 53 4f 52 54 5f 4d  65 6e 75 0d 06 04 12 c8  |._SORT_Menu.....|
00001220  8e 20 49 63 6f 6e 4d 65  6e 75 25 20 ca 0d 06 0e  |. IconMenu% ....|
00001230  2e 20 20 20 20 20 c9 20  30 3a 20 e7 20 21 71 25  |.     . 0: . !q%|
00001240  3d 35 20 8c 20 f2 64 69  65 20 8b 20 f2 5f 4f 70  |=5 . .die . ._Op|
00001250  65 6e 28 28 21 71 25 29  2d 31 29 0d 06 18 16 20  |en((!q%)-1).... |
00001260  20 20 20 20 c9 20 31 3a  20 c8 8e 20 21 71 25 20  |    . 1: .. !q% |
00001270  ca 0d 06 22 30 20 20 20  20 20 20 20 20 20 20 20  |..."0           |
00001280  20 20 20 c9 20 33 3a 20  4d 6d 65 6e 75 25 21 31  |   . 3: Mmenu%!1|
00001290  30 30 3d 31 3a 4d 6d 65  6e 75 25 21 31 32 34 3d  |00=1:Mmenu%!124=|
000012a0  32 0d 06 2c 30 20 20 20  20 20 20 20 20 20 20 20  |2..,0           |
000012b0  20 20 20 c9 20 34 3a 20  4d 6d 65 6e 75 25 21 31  |   . 4: Mmenu%!1|
000012c0  30 30 3d 30 3a 4d 6d 65  6e 75 25 21 31 32 34 3d  |00=0:Mmenu%!124=|
000012d0  33 0d 06 36 30 20 20 20  20 20 20 20 20 20 20 20  |3..60           |
000012e0  20 20 20 c9 20 35 3a 20  4d 6d 65 6e 75 25 21 31  |   . 5: Mmenu%!1|
000012f0  34 38 3d 31 3a 4d 6d 65  6e 75 25 21 31 37 32 3d  |48=1:Mmenu%!172=|
00001300  32 0d 06 40 30 20 20 20  20 20 20 20 20 20 20 20  |2..@0           |
00001310  20 20 20 c9 20 36 3a 20  4d 6d 65 6e 75 25 21 31  |   . 6: Mmenu%!1|
00001320  34 38 3d 30 3a 4d 6d 65  6e 75 25 21 31 37 32 3d  |48=0:Mmenu%!172=|
00001330  33 0d 06 4a 1b 20 20 20  20 20 20 20 20 20 20 20  |3..J.           |
00001340  20 20 20 c9 20 37 3a 20  f2 64 69 65 0d 06 54 12  |   . 7: .die..T.|
00001350  20 20 20 20 20 20 20 20  20 20 20 20 20 cb 0d 06  |             ...|
00001360  5e 2c 20 20 20 20 20 c9  20 32 3a 20 24 53 50 6f  |^,     . 2: $SPo|
00001370  69 6e 74 25 28 31 33 2c  32 29 3d 45 74 79 70 65  |int%(13,2)=Etype|
00001380  24 28 28 21 71 25 29 2b  31 29 0d 06 68 57 20 20  |$((!q%)+1)..hW  |
00001390  20 20 20 20 20 20 20 20  20 20 20 c8 99 22 57 69  |           .."Wi|
000013a0  6d 70 5f 46 6f 72 63 65  52 65 64 72 61 77 22 2c  |mp_ForceRedraw",|
000013b0  21 57 6e 25 28 32 29 2c  49 58 25 28 31 33 2c 32  |!Wn%(2),IX%(13,2|
000013c0  29 2c 49 59 25 28 31 33  2c 32 29 2c 49 58 31 25  |),IY%(13,2),IX1%|
000013d0  28 31 33 2c 32 29 2c 49  59 31 25 28 31 33 2c 32  |(13,2),IY1%(13,2|
000013e0  29 0d 06 72 26 20 20 20  20 20 20 20 20 20 20 20  |)..r&           |
000013f0  20 20 45 78 70 25 28 43  65 78 70 25 2c 30 29 3d  |  Exp%(Cexp%,0)=|
00001400  28 21 71 25 29 2b 31 0d  06 7c 2b 20 20 20 20 20  |(!q%)+1..|+     |
00001410  c9 20 33 3a 20 24 53 50  6f 69 6e 74 25 28 31 34  |. 3: $SPoint%(14|
00001420  2c 32 29 3d 45 70 61 79  24 28 28 21 71 25 29 2b  |,2)=Epay$((!q%)+|
00001430  31 29 0d 06 86 57 20 20  20 20 20 20 20 20 20 20  |1)...W          |
00001440  20 20 20 c8 99 22 57 69  6d 70 5f 46 6f 72 63 65  |   .."Wimp_Force|
00001450  52 65 64 72 61 77 22 2c  21 57 6e 25 28 32 29 2c  |Redraw",!Wn%(2),|
00001460  49 58 25 28 31 34 2c 32  29 2c 49 59 25 28 31 34  |IX%(14,2),IY%(14|
00001470  2c 32 29 2c 49 58 31 25  28 31 34 2c 32 29 2c 49  |,2),IX1%(14,2),I|
00001480  59 31 25 28 31 34 2c 32  29 0d 06 90 26 20 20 20  |Y1%(14,2)...&   |
00001490  20 20 20 20 20 20 20 20  20 20 45 78 70 25 28 43  |          Exp%(C|
000014a0  65 78 70 25 2c 31 29 3d  28 21 71 25 29 2b 31 0d  |exp%,1)=(!q%)+1.|
000014b0  06 9a 05 cb 0d 06 a4 05  e1 0d 06 ae 04 0d 06 b8  |................|
000014c0  0d dd 20 f2 5f 63 6c 6f  73 65 0d 06 c2 20 e7 20  |.. ._close... . |
000014d0  71 25 21 30 3d 77 61 72  6e 69 6e 67 57 25 20 8c  |q%!0=warningW% .|
000014e0  20 77 61 72 6e 4f 6e 25  3d a3 0d 06 cc 3b e7 20  | warnOn%=....;. |
000014f0  71 25 21 30 3d 21 57 6e  30 25 20 8c 20 77 6f 70  |q%!0=!Wn0% . wop|
00001500  65 6e 25 28 30 29 3d a3  3a c8 99 22 57 69 6d 70  |en%(0)=.:.."Wimp|
00001510  5f 47 65 74 57 69 6e 64  6f 77 49 6e 66 6f 22 2c  |_GetWindowInfo",|
00001520  2c 57 6e 30 25 0d 06 d6  3b e7 20 71 25 21 30 3d  |,Wn0%...;. q%!0=|
00001530  21 57 6e 31 25 20 8c 20  77 6f 70 65 6e 25 28 31  |!Wn1% . wopen%(1|
00001540  29 3d a3 3a c8 99 22 57  69 6d 70 5f 47 65 74 57  |)=.:.."Wimp_GetW|
00001550  69 6e 64 6f 77 49 6e 66  6f 22 2c 2c 57 6e 31 25  |indowInfo",,Wn1%|
00001560  0d 06 e0 3b e7 20 71 25  21 30 3d 21 57 6e 32 25  |...;. q%!0=!Wn2%|
00001570  20 8c 20 77 6f 70 65 6e  25 28 32 29 3d a3 3a c8  | . wopen%(2)=.:.|
00001580  99 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  |."Wimp_GetWindow|
00001590  49 6e 66 6f 22 2c 2c 57  6e 32 25 0d 06 ea 3b e7  |Info",,Wn2%...;.|
000015a0  20 71 25 21 30 3d 21 57  6e 33 25 20 8c 20 77 6f  | q%!0=!Wn3% . wo|
000015b0  70 65 6e 25 28 33 29 3d  a3 3a c8 99 22 57 69 6d  |pen%(3)=.:.."Wim|
000015c0  70 5f 47 65 74 57 69 6e  64 6f 77 49 6e 66 6f 22  |p_GetWindowInfo"|
000015d0  2c 2c 57 6e 33 25 0d 06  f4 1d c8 99 20 22 57 69  |,,Wn3%...... "Wi|
000015e0  6d 70 5f 43 6c 6f 73 65  57 69 6e 64 6f 77 22 2c  |mp_CloseWindow",|
000015f0  2c 71 25 0d 06 fe 05 e1  0d 07 08 04 0d 07 12 14  |,q%.............|
00001600  dd 20 f2 5f 64 6f 5f 63  6c 69 63 6b 28 71 25 29  |. ._do_click(q%)|
00001610  0d 07 1c 0b ea 20 41 25  2c 42 25 0d 07 26 0c 69  |..... A%,B%..&.i|
00001620  25 3d 71 25 21 31 36 0d  07 30 0e c8 8e 20 71 25  |%=q%!16..0... q%|
00001630  21 31 32 20 ca 0d 07 3a  28 c9 20 77 61 72 6e 69  |!12 ...:(. warni|
00001640  6e 67 57 25 3a 20 71 25  21 30 3d 77 61 72 6e 69  |ngW%: q%!0=warni|
00001650  6e 67 57 25 20 3a f2 5f  63 6c 6f 73 65 0d 07 44  |ngW% :._close..D|
00001660  28 c9 20 20 20 20 73 61  76 65 57 25 3a 20 45 78  |(.    saveW%: Ex|
00001670  70 6f 72 74 25 3d a3 3a  20 f2 5f 44 6f 53 61 76  |port%=.: ._DoSav|
00001680  65 28 69 25 29 0d 07 4e  29 c9 20 20 65 78 70 6f  |e(i%)..N).  expo|
00001690  72 74 57 25 3a 20 45 78  70 6f 72 74 25 3d b9 3a  |rtW%: Export%=.:|
000016a0  20 20 f2 5f 44 6f 53 61  76 65 28 69 25 29 0d 07  |  ._DoSave(i%)..|
000016b0  58 28 c9 20 2d 32 3a 20  f4 20 4c 6f 6f 6b 20 66  |X(. -2: . Look f|
000016c0  69 72 73 74 20 61 74 20  49 63 6f 6e 20 42 61 72  |irst at Icon Bar|
000016d0  20 43 6c 69 63 6b 0d 07  62 1e 20 20 20 20 20 20  | Click..b.      |
000016e0  20 20 e7 20 71 25 21 31  36 3d 73 6d 70 69 63 6f  |  . q%!16=smpico|
000016f0  6e 25 20 8c 0d 07 6c 52  20 20 20 20 20 20 20 20  |n% ...lR        |
00001700  e7 20 71 25 21 38 3d 32  20 84 20 71 25 21 38 3d  |. q%!8=2 . q%!8=|
00001710  34 20 8c 20 c8 99 22 57  69 6d 70 5f 43 72 65 61  |4 . .."Wimp_Crea|
00001720  74 65 4d 65 6e 75 22 2c  2c 6d 65 6e 75 25 2c 71  |teMenu",,menu%,q|
00001730  25 21 30 2d 37 34 2c 33  34 30 3a 49 63 6f 6e 4d  |%!0-74,340:IconM|
00001740  65 6e 75 25 3d 30 0d 07  76 26 20 20 20 20 20 20  |enu%=0..v&      |
00001750  20 20 f4 20 49 46 20 71  25 21 38 3d 34 20 54 48  |  . IF q%!8=4 TH|
00001760  45 4e 20 50 52 4f 43 5f  4f 70 65 6e 0d 07 80 0d  |EN PROC_Open....|
00001770  20 20 20 20 20 20 20 20  cd 0d 07 8a 04 0d 07 94  |        ........|
00001780  06 20 7f 0d 07 9e 2e 20  20 20 20 20 20 20 20 20  |. .....         |
00001790  20 20 20 20 20 e7 20 71  25 21 38 3d 34 20 8c 20  |     . q%!8=4 . |
000017a0  f2 5f 57 69 6e 43 6c 69  63 6b 28 71 25 21 31 32  |._WinClick(q%!12|
000017b0  29 0d 07 a8 24 20 20 20  20 20 20 20 20 20 20 20  |)...$           |
000017c0  20 20 20 41 25 3d 71 25  21 30 2d 39 36 3a 42 25  |   A%=q%!0-96:B%|
000017d0  3d 71 25 21 34 0d 07 b2  58 20 20 20 20 20 20 20  |=q%!4...X       |
000017e0  20 20 20 20 20 20 20 e7  20 71 25 21 38 3d 32 20  |       . q%!8=2 |
000017f0  8c 20 f2 73 69 63 6f 6e  28 71 25 21 31 32 29 3a  |. .sicon(q%!12):|
00001800  c8 99 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |.."Wimp_CreateMe|
00001810  6e 75 22 2c 2c 4d 6d 65  6e 75 25 2c 41 25 2c 42  |nu",,Mmenu%,A%,B|
00001820  25 3a 49 63 6f 6e 4d 65  6e 75 25 3d 31 0d 07 bc  |%:IconMenu%=1...|
00001830  05 cb 0d 07 c6 05 e1 0d  07 d0 04 0d 07 da 10 dd  |................|
00001840  20 f2 73 69 63 6f 6e 28  41 25 29 0d 07 e4 0f ea  | .sicon(A%).....|
00001850  20 54 24 2c 44 24 2c 74  65 25 0d 07 ee 0b c8 8e  | T$,D$,te%......|
00001860  20 41 25 20 ca 0d 07 f8  41 c9 20 20 74 65 6c 57  | A% ....A.  telW|
00001870  25 3a 20 24 53 61 76 65  49 63 6f 6e 25 3d 22 66  |%: $SaveIcon%="f|
00001880  69 6c 65 5f 30 35 41 22  3a 53 74 79 70 65 24 3d  |ile_05A":Stype$=|
00001890  22 30 35 41 22 3a 44 24  3d 54 65 6c 46 69 6c 65  |"05A":D$=TelFile|
000018a0  24 3a f2 75 70 54 0d 08  02 35 c9 20 6d 65 6d 6f  |$:.upT...5. memo|
000018b0  57 25 3a 20 24 53 61 76  65 49 63 6f 6e 25 3d 22  |W%: $SaveIcon%="|
000018c0  66 69 6c 65 5f 30 35 42  22 3a 53 74 79 70 65 24  |file_05B":Stype$|
000018d0  3d 22 30 35 42 22 3a f2  75 70 4d 0d 08 0c 35 20  |="05B":.upM...5 |
000018e0  20 20 20 20 20 20 20 20  20 20 20 20 e7 20 4d 65  |            . Me|
000018f0  6d 6f 25 3d a3 20 8c 20  44 24 3d 54 6f 46 69 6c  |mo%=. . D$=ToFil|
00001900  65 24 20 8b 3a 44 24 3d  4d 65 6d 46 69 6c 65 24  |e$ .:D$=MemFile$|
00001910  0d 08 16 41 c9 20 20 65  78 70 57 25 3a 20 24 53  |...A.  expW%: $S|
00001920  61 76 65 49 63 6f 6e 25  3d 22 66 69 6c 65 5f 30  |aveIcon%="file_0|
00001930  35 43 22 3a 53 74 79 70  65 24 3d 22 30 35 43 22  |5C":Stype$="05C"|
00001940  3a 44 24 3d 45 78 70 46  69 6c 65 24 3a f2 75 70  |:D$=ExpFile$:.up|
00001950  45 0d 08 20 42 c9 20 73  68 65 64 57 25 3a 20 24  |E.. B. shedW%: $|
00001960  53 61 76 65 49 63 6f 6e  25 3d 22 66 69 6c 65 5f  |SaveIcon%="file_|
00001970  30 35 44 22 3a 53 74 79  70 65 24 3d 22 30 35 44  |05D":Stype$="05D|
00001980  22 3a 44 24 3d 53 68 65  64 46 69 6c 65 24 3a f2  |":D$=ShedFile$:.|
00001990  75 70 53 0d 08 2a 05 cb  0d 08 34 37 45 78 70 6f  |upS..*....47Expo|
000019a0  72 74 25 3d a3 3a f2 5f  50 75 74 4e 61 6d 65 28  |rt%=.:._PutName(|
000019b0  44 24 29 3a 45 78 70 6f  72 74 25 3d b9 3a f2 5f  |D$):Export%=.:._|
000019c0  50 75 74 4e 61 6d 65 28  44 24 2b 22 54 22 29 0d  |PutName(D$+"T").|
000019d0  08 3e 16 63 75 72 72 65  6e 74 25 3d a4 77 68 61  |.>.current%=.wha|
000019e0  74 28 41 25 29 0d 08 48  05 e1 0d 08 52 04 0d 08  |t(A%)..H....R...|
000019f0  5c 0f dd 20 a4 77 68 61  74 28 41 25 29 0d 08 66  |\.. .what(A%)..f|
00001a00  08 ea 20 42 25 0d 08 70  0b c8 8e 20 41 25 20 ca  |.. B%..p... A% .|
00001a10  0d 08 7a 12 c9 20 20 74  65 6c 57 25 3a 20 42 25  |..z..  telW%: B%|
00001a20  3d 30 0d 08 84 12 c9 20  6d 65 6d 6f 57 25 3a 20  |=0..... memoW%: |
00001a30  42 25 3d 31 0d 08 8e 12  c9 20 20 65 78 70 57 25  |B%=1.....  expW%|
00001a40  3a 20 42 25 3d 32 0d 08  98 12 c9 20 73 68 65 64  |: B%=2..... shed|
00001a50  57 25 3a 20 42 25 3d 33  0d 08 a2 05 cb 0d 08 ac  |W%: B%=3........|
00001a60  07 3d 42 25 0d 08 b6 04  0d 08 c0 14 dd 20 f2 5f  |.=B%......... ._|
00001a70  57 69 6e 43 6c 69 63 6b  28 77 25 29 0d 08 ca 0e  |WinClick(w%)....|
00001a80  ea 20 41 25 2c 42 25 2c  59 25 0d 08 d4 0b 59 25  |. A%,B%,Y%....Y%|
00001a90  3d 71 25 21 34 0d 08 de  26 f4 20 44 6f 20 74 68  |=q%!4...&. Do th|
00001aa0  65 20 61 63 74 69 6f 6e  20 66 6f 72 20 61 20 77  |e action for a w|
00001ab0  69 6e 64 6f 77 20 63 6c  69 63 6b 0d 08 e8 0b c8  |indow click.....|
00001ac0  8e 20 77 25 20 ca 0d 08  f2 15 c9 20 20 74 65 6c  |. w% ......  tel|
00001ad0  57 25 3a 20 c8 8e 20 69  25 20 ca 0d 08 fc 2f 20  |W%: .. i% ..../ |
00001ae0  20 20 20 20 20 20 20 20  20 20 20 20 c9 20 31 3a  |            . 1:|
00001af0  20 f2 75 70 54 3a 20 f2  75 70 54 65 6c 28 31 29  | .upT: .upTel(1)|
00001b00  3a 20 f2 70 62 28 30 2c  31 29 0d 09 06 30 20 20  |: .pb(0,1)...0  |
00001b10  20 20 20 20 20 20 20 20  20 20 20 c9 20 30 3a 20  |           . 0: |
00001b20  f2 75 70 54 3a 20 f2 75  70 54 65 6c 28 2d 31 29  |.upT: .upTel(-1)|
00001b30  3a 20 f2 70 62 28 30 2c  30 29 0d 09 10 2d 20 20  |: .pb(0,0)...-  |
00001b40  20 20 20 20 20 20 20 20  20 20 20 c9 20 32 3a 20  |           . 2: |
00001b50  e7 20 4e 74 65 6c 25 3c  4d 61 78 52 65 63 25 20  |. Ntel%<MaxRec% |
00001b60  8c 20 f2 6e 65 77 54 0d  09 1a 2f 20 20 20 20 20  |. .newT.../     |
00001b70  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001b80  f2 75 70 54 3a 20 f2 75  70 54 65 6c 28 31 29 20  |.upT: .upTel(1) |
00001b90  3a f2 75 70 54 6e 0d 09  24 19 20 20 20 20 20 20  |:.upTn..$.      |
00001ba0  20 20 20 20 20 20 20 c9  20 33 3a 20 f2 63 54 0d  |       . 3: .cT.|
00001bb0  09 2e 21 20 20 20 20 20  20 20 20 20 20 20 20 20  |..!             |
00001bc0  c9 20 34 3a 20 f2 75 70  54 3a f2 54 58 74 65 6c  |. 4: .upT:.TXtel|
00001bd0  0d 09 38 26 20 20 20 20  20 20 20 20 20 20 20 20  |..8&            |
00001be0  20 c9 20 35 3a 20 52 58  25 3d b9 3a f2 6f 70 65  | . 5: RX%=.:.ope|
00001bf0  6e 52 58 28 30 29 0d 09  42 12 20 20 20 20 20 20  |nRX(0)..B.      |
00001c00  20 20 20 20 20 20 20 cb  0d 09 4c 11 20 20 20 20  |       ...L.    |
00001c10  20 20 20 20 20 20 20 20  20 0d 09 56 0d c9 20 6d  |         ..V.. m|
00001c20  65 6d 6f 57 25 3a 0d 09  60 18 20 20 20 20 20 20  |emoW%:..`.      |
00001c30  20 20 20 20 20 20 20 c8  8e 20 69 25 20 ca 0d 09  |       .. i% ...|
00001c40  6a 3b 20 20 20 20 20 20  20 20 20 20 20 20 20 c9  |j;             .|
00001c50  20 30 3a 20 f2 75 70 4d  3a 20 f2 6d 75 70 28 2d  | 0: .upM: .mup(-|
00001c60  31 29 20 3a 20 f2 75 70  4d 62 75 74 28 31 29 3a  |1) : .upMbut(1):|
00001c70  20 f2 70 62 28 31 2c 30  29 0d 09 74 3b 20 20 20  | .pb(1,0)..t;   |
00001c80  20 20 20 20 20 20 20 20  20 20 c9 20 31 3a 20 f2  |          . 1: .|
00001c90  75 70 4d 3a 20 f2 6d 75  70 28 31 29 20 20 3a 20  |upM: .mup(1)  : |
00001ca0  f2 75 70 4d 62 75 74 28  31 29 3a 20 f2 70 62 28  |.upMbut(1): .pb(|
00001cb0  31 2c 31 29 0d 09 7e 32  20 20 20 20 20 20 20 20  |1,1)..~2        |
00001cc0  20 20 20 20 20 c9 20 32  3a 20 f2 75 70 4d 3a 20  |     . 2: .upM: |
00001cd0  f2 6e 65 77 6d 28 31 29  20 20 3a 20 f2 75 70 4d  |.newm(1)  : .upM|
00001ce0  62 75 74 28 30 29 0d 09  88 19 20 20 20 20 20 20  |but(0)....      |
00001cf0  20 20 20 20 20 20 20 c9  20 33 3a 20 f2 63 4d 0d  |       . 3: .cM.|
00001d00  09 92 1a 20 20 20 20 20  20 20 20 20 20 20 20 20  |...             |
00001d10  c9 20 34 3a 20 f2 75 70  4d 0d 09 9c 33 20 20 20  |. 4: .upM...3   |
00001d20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001d30  20 20 e7 20 4d 65 6d 6f  25 20 8c 20 f2 54 58 6d  |  . Memo% . .TXm|
00001d40  65 6d 20 8b 20 f2 54 58  74 6f 64 6f 0d 09 a6 1b  |em . .TXtodo....|
00001d50  20 20 20 20 20 20 20 20  20 20 20 20 20 c9 20 35  |             . 5|
00001d60  3a 20 52 58 25 3d b9 0d  09 b0 3a 20 20 20 20 20  |: RX%=....:     |
00001d70  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001d80  e7 20 4d 65 6d 6f 25 20  8c 20 f2 6f 70 65 6e 52  |. Memo% . .openR|
00001d90  58 28 32 29 20 8b 20 f2  6f 70 65 6e 52 58 28 33  |X(2) . .openRX(3|
00001da0  29 0d 09 ba 42 20 20 20  20 20 20 20 20 20 20 c9  |)...B          .|
00001db0  20 39 2c 31 30 3a 20 f2  75 70 4d 20 3a 20 4d 65  | 9,10: .upM : Me|
00001dc0  6d 6f 25 3d ac 28 4d 65  6d 6f 25 29 3a 20 f2 6e  |mo%=.(Memo%): .n|
00001dd0  65 77 6d 28 30 29 20 3a  20 f2 75 70 4d 62 75 74  |ewm(0) : .upMbut|
00001de0  28 31 29 0d 09 c4 12 20  20 20 20 20 20 20 20 20  |(1)....         |
00001df0  20 20 20 20 cb 0d 09 ce  1c c9 20 65 78 70 57 25  |    ...... expW%|
00001e00  3a 20 20 f2 5f 54 72 61  6e 73 28 65 78 70 57 25  |:  ._Trans(expW%|
00001e10  29 0d 09 d8 15 20 20 20  20 20 20 20 20 20 20 20  |)....           |
00001e20  20 20 f2 75 70 45 0d 09  e2 18 20 20 20 20 20 20  |  .upE....      |
00001e30  20 20 20 20 20 20 20 c8  8e 20 69 25 20 ca 0d 09  |       .. i% ...|
00001e40  ec 2e 20 20 20 20 20 20  20 20 20 20 20 20 20 c9  |..             .|
00001e50  20 30 3a 20 f2 75 70 45  3a f2 75 70 45 78 70 28  | 0: .upE:.upExp(|
00001e60  2d 31 29 3a f2 70 62 28  32 2c 30 29 0d 09 f6 2e  |-1):.pb(2,0)....|
00001e70  20 20 20 20 20 20 20 20  20 20 20 20 20 c9 20 31  |             . 1|
00001e80  3a 20 f2 75 70 45 3a f2  75 70 45 78 70 28 31 29  |: .upE:.upExp(1)|
00001e90  3a 20 f2 70 62 28 32 2c  31 29 0d 0a 00 2d 20 20  |: .pb(2,1)...-  |
00001ea0  20 20 20 20 20 20 20 20  20 20 20 c9 20 32 3a 20  |           . 2: |
00001eb0  e7 20 4e 65 78 70 25 3c  4d 61 78 52 65 63 25 20  |. Nexp%<MaxRec% |
00001ec0  8c 20 f2 6e 65 77 45 0d  0a 0a 22 20 20 20 20 20  |. .newE..."     |
00001ed0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001ee0  f2 75 70 45 78 70 28 30  29 0d 0a 14 19 20 20 20  |.upExp(0)....   |
00001ef0  20 20 20 20 20 20 20 20  20 20 c9 20 33 3a 20 f2  |          . 3: .|
00001f00  63 45 0d 0a 1e 21 20 20  20 20 20 20 20 20 20 20  |cE...!          |
00001f10  20 20 20 c9 20 34 3a 20  f2 75 70 45 3a f2 54 58  |   . 4: .upE:.TX|
00001f20  65 78 70 0d 0a 28 26 20  20 20 20 20 20 20 20 20  |exp..(&         |
00001f30  20 20 20 20 c9 20 35 3a  20 52 58 25 3d b9 3a f2  |    . 5: RX%=.:.|
00001f40  6f 70 65 6e 52 58 28 35  29 0d 0a 32 61 20 20 20  |openRX(5)..2a   |
00001f50  20 20 20 20 20 20 20 20  20 20 c9 20 31 35 3a 20  |          . 15: |
00001f60  49 63 6f 6e 4d 65 6e 75  25 3d a3 3a c8 99 22 57  |IconMenu%=.:.."W|
00001f70  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
00001f80  2c 43 6f 6d 6d 65 6e 75  25 2c 49 58 31 25 28 31  |,Commenu%,IX1%(1|
00001f90  35 2c 32 29 2b 78 6f 25  2d 31 30 2c 59 25 3a 49  |5,2)+xo%-10,Y%:I|
00001fa0  63 6f 6e 4d 65 6e 75 25  3d 32 0d 0a 3c 60 20 20  |conMenu%=2..<`  |
00001fb0  20 20 20 20 20 20 20 20  20 20 20 c9 20 31 36 3a  |           . 16:|
00001fc0  20 49 63 6f 6e 4d 65 6e  75 25 3d a3 3a c8 99 22  | IconMenu%=.:.."|
00001fd0  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
00001fe0  2c 2c 43 6f 6d 65 6e 75  25 2c 49 58 31 25 28 31  |,,Comenu%,IX1%(1|
00001ff0  36 2c 32 29 2b 78 6f 25  2d 31 30 2c 59 25 3a 49  |6,2)+xo%-10,Y%:I|
00002000  63 6f 6e 4d 65 6e 75 25  3d 33 0d 0a 46 2d 20 20  |conMenu%=3..F-  |
00002010  20 20 c9 20 31 37 3a 20  45 78 70 25 28 43 65 78  |  . 17: Exp%(Cex|
00002020  70 25 2c 32 29 3d 45 78  70 25 28 43 65 78 70 25  |p%,2)=Exp%(Cexp%|
00002030  2c 32 29 20 82 20 31 0d  0a 50 4f 20 20 20 20 20  |,2) . 1..PO     |
00002040  20 20 20 20 20 20 20 20  e7 20 45 78 70 25 28 43  |        . Exp%(C|
00002050  65 78 70 25 2c 32 29 3d  30 20 8c 20 24 53 50 6f  |exp%,2)=0 . $SPo|
00002060  69 6e 74 25 28 31 37 2c  32 29 3d 22 6e 6f 22 20  |int%(17,2)="no" |
00002070  8b 20 24 53 50 6f 69 6e  74 25 28 31 37 2c 32 29  |. $SPoint%(17,2)|
00002080  3d 22 79 65 73 22 0d 0a  5a 57 20 20 20 20 20 20  |="yes"..ZW      |
00002090  20 20 20 20 20 20 20 c8  99 22 57 69 6d 70 5f 46  |       .."Wimp_F|
000020a0  6f 72 63 65 52 65 64 72  61 77 22 2c 21 57 6e 25  |orceRedraw",!Wn%|
000020b0  28 32 29 2c 49 58 25 28  31 37 2c 32 29 2c 49 59  |(2),IX%(17,2),IY|
000020c0  25 28 31 37 2c 32 29 2c  49 58 31 25 28 31 37 2c  |%(17,2),IX1%(17,|
000020d0  32 29 2c 49 59 31 25 28  31 37 2c 32 29 0d 0a 64  |2),IY1%(17,2)..d|
000020e0  13 20 20 20 20 20 20 20  20 20 20 20 20 20 20 cb  |.              .|
000020f0  0d 0a 6e 12 c9 20 73 68  65 64 57 25 3a 20 f2 75  |..n.. shedW%: .u|
00002100  70 53 0d 0a 78 18 20 20  20 20 20 20 20 20 20 20  |pS..x.          |
00002110  20 20 20 c8 8e 20 69 25  20 ca 0d 0a 82 31 20 20  |   .. i% ....1  |
00002120  20 20 20 20 20 20 20 20  20 20 20 c9 20 30 3a 20  |           . 0: |
00002130  f2 75 70 53 3a 20 f2 75  70 53 68 65 64 28 2d 31  |.upS: .upShed(-1|
00002140  29 3a 20 f2 70 62 28 33  2c 30 29 0d 0a 8c 30 20  |): .pb(3,0)...0 |
00002150  20 20 20 20 20 20 20 20  20 20 20 20 c9 20 31 3a  |            . 1:|
00002160  20 f2 75 70 53 3a 20 f2  75 70 53 68 65 64 28 31  | .upS: .upShed(1|
00002170  29 3a 20 f2 70 62 28 33  2c 31 29 0d 0a 96 1a 20  |): .pb(3,1).... |
00002180  20 20 20 20 20 20 20 20  20 20 20 20 c9 20 32 3a  |            . 2:|
00002190  20 f2 75 70 53 0d 0a a0  31 20 20 20 20 20 20 20  | .upS...1       |
000021a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 e7 20  |              . |
000021b0  4e 73 68 65 64 25 3c 4d  61 78 52 65 63 25 20 8c  |Nshed%<MaxRec% .|
000021c0  20 f2 6e 65 77 53 0d 0a  aa 23 20 20 20 20 20 20  | .newS...#      |
000021d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 f2  |               .|
000021e0  75 70 53 68 65 64 28 30  29 0d 0a b4 1c 20 20 20  |upShed(0)....   |
000021f0  20 20 20 20 20 20 20 20  20 20 c9 20 33 3a 20 f2  |          . 3: .|
00002200  63 53 68 65 64 0d 0a be  22 20 20 20 20 20 20 20  |cShed..."       |
00002210  20 20 20 20 20 20 c9 20  34 3a 20 f2 75 70 53 3a  |      . 4: .upS:|
00002220  f2 54 58 73 68 65 64 0d  0a c8 26 20 20 20 20 20  |.TXshed...&     |
00002230  20 20 20 20 20 20 20 20  c9 20 35 3a 20 52 58 25  |        . 5: RX%|
00002240  3d b9 3a f2 6f 70 65 6e  52 58 28 31 29 0d 0a d2  |=.:.openRX(1)...|
00002250  38 20 20 20 20 20 20 20  20 20 20 20 20 20 c9 20  |8             . |
00002260  31 33 3a 20 53 70 6d 25  28 43 73 68 65 64 25 29  |13: Spm%(Cshed%)|
00002270  3d ac 28 53 70 6d 25 28  43 73 68 65 64 25 29 29  |=.(Spm%(Cshed%))|
00002280  3a f2 5f 61 6d 0d 0a dc  38 20 20 20 20 20 20 20  |:._am...8       |
00002290  20 20 20 20 20 20 c9 20  31 34 3a 20 53 70 6d 25  |      . 14: Spm%|
000022a0  28 43 73 68 65 64 25 29  3d ac 28 53 70 6d 25 28  |(Cshed%)=.(Spm%(|
000022b0  43 73 68 65 64 25 29 29  3a f2 5f 61 6d 0d 0a e6  |Cshed%)):._am...|
000022c0  12 20 20 20 20 20 20 20  20 20 20 20 20 20 cb 0d  |.             ..|
000022d0  0a f0 05 cb 0d 0a fa 05  e1 0d 0b 04 04 0d 0b 0e  |................|
000022e0  10 dd 20 f2 5f 4f 70 65  6e 28 41 25 29 0d 0b 18  |.. ._Open(A%)...|
000022f0  10 63 75 72 72 65 6e 74  57 25 3d 41 25 0d 0b 22  |.currentW%=A%.."|
00002300  19 f4 20 4f 50 45 4e 20  55 50 20 57 49 4e 44 4f  |.. OPEN UP WINDO|
00002310  57 20 48 45 52 45 0d 0b  2c 19 e7 20 77 6f 70 65  |W HERE..,.. wope|
00002320  6e 25 28 63 75 72 72 65  6e 74 57 25 29 20 8c 0d  |n%(currentW%) ..|
00002330  0b 36 18 71 25 21 30 3d  21 57 6e 25 28 63 75 72  |.6.q%!0=!Wn%(cur|
00002340  72 65 6e 74 57 25 29 0d  0b 40 1f c8 99 22 57 69  |rentW%)..@..."Wi|
00002350  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00002360  65 22 2c 2c 71 25 0d 0b  4a 36 20 20 e7 20 71 25  |e",,q%..J6  . q%|
00002370  21 32 38 3c 3e 2d 31 20  8c 20 71 25 21 32 38 3d  |!28<>-1 . q%!28=|
00002380  2d 31 3a 20 c8 99 20 22  57 69 6d 70 5f 4f 70 65  |-1: .. "Wimp_Ope|
00002390  6e 57 69 6e 64 6f 77 22  2c 2c 71 25 0d 0b 54 05  |nWindow",,q%..T.|
000023a0  cc 0d 0b 5e 28 c8 99 20  22 57 69 6d 70 5f 4f 70  |...^(.. "Wimp_Op|
000023b0  65 6e 57 69 6e 64 6f 77  22 2c 2c 57 6e 25 28 63  |enWindow",,Wn%(c|
000023c0  75 72 72 65 6e 74 57 25  29 0d 0b 68 17 77 6f 70  |urrentW%)..h.wop|
000023d0  65 6e 25 28 63 75 72 72  65 6e 74 57 25 29 3d b9  |en%(currentW%)=.|
000023e0  0d 0b 72 05 cd 0d 0b 7c  05 e1 0d 0b 86 04 0d 0b  |..r....|........|
000023f0  90 0f dd f2 73 65 74 75  70 6d 65 6e 75 0d 0b 9a  |....setupmenu...|
00002400  08 ea 20 6d 25 0d 0b a4  04 0d 0b ae 16 24 6d 65  |.. m%........$me|
00002410  6e 75 25 3d 22 4f 72 67  61 6e 69 73 65 72 22 0d  |nu%="Organiser".|
00002420  0b b8 0e 6d 65 6e 75 25  3f 31 32 3d 37 0d 0b c2  |...menu%?12=7...|
00002430  0e 6d 65 6e 75 25 3f 31  33 3d 32 0d 0b cc 0e 6d  |.menu%?13=2....m|
00002440  65 6e 75 25 3f 31 34 3d  37 0d 0b d6 0e 6d 65 6e  |enu%?14=7....men|
00002450  75 25 3f 31 35 3d 30 0d  0b e0 10 6d 65 6e 75 25  |u%?15=0....menu%|
00002460  21 31 36 3d 31 32 38 0d  0b ea 0f 6d 65 6e 75 25  |!16=128....menu%|
00002470  21 32 30 3d 34 30 0d 0b  f4 0e 6d 65 6e 75 25 21  |!20=40....menu%!|
00002480  32 34 3d 30 0d 0b fe 0f  6d 25 3d 6d 65 6e 75 25  |24=0....m%=menu%|
00002490  2b 32 38 0d 0c 08 0a 6d  25 21 30 3d 30 0d 0c 12  |+28....m%!0=0...|
000024a0  0e 6d 25 21 34 3d 69 6e  66 6f 25 0d 0c 1c 18 6d  |.m%!4=info%....m|
000024b0  25 21 38 3d 28 37 3c 3c  32 34 29 84 20 25 31 30  |%!8=(7<<24). %10|
000024c0  30 30 31 0d 0c 26 13 24  28 6d 25 2b 31 32 29 3d  |001..&.$(m%+12)=|
000024d0  22 49 6e 66 6f 22 0d 0c  30 04 0d 0c 3a 0a 6d 25  |"Info"..0...:.m%|
000024e0  2b 3d 32 34 0d 0c 44 0a  6d 25 21 30 3d 30 0d 0c  |+=24..D.m%!0=0..|
000024f0  4e 0a 6d 25 21 34 3d 30  0d 0c 58 18 6d 25 21 38  |N.m%!4=0..X.m%!8|
00002500  3d 28 37 3c 3c 32 34 29  84 20 25 31 30 30 30 31  |=(7<<24). %10001|
00002510  0d 0c 62 18 24 28 6d 25  2b 31 32 29 3d 22 54 65  |..b.$(m%+12)="Te|
00002520  6c 65 70 68 6f 6e 65 22  0d 0c 6c 04 0d 0c 76 0a  |lephone"..l...v.|
00002530  6d 25 2b 3d 32 34 0d 0c  80 0a 6d 25 21 30 3d 30  |m%+=24....m%!0=0|
00002540  0d 0c 8a 0a 6d 25 21 34  3d 30 0d 0c 94 18 6d 25  |....m%!4=0....m%|
00002550  21 38 3d 28 37 3c 3c 32  34 29 84 20 25 31 30 30  |!8=(7<<24). %100|
00002560  30 31 0d 0c 9e 13 24 28  6d 25 2b 31 32 29 3d 22  |01....$(m%+12)="|
00002570  4d 65 6d 6f 22 0d 0c a8  04 0d 0c b2 0a 6d 25 2b  |Memo"........m%+|
00002580  3d 32 34 0d 0c bc 0a 6d  25 21 30 3d 30 0d 0c c6  |=24....m%!0=0...|
00002590  0a 6d 25 21 34 3d 30 0d  0c d0 18 6d 25 21 38 3d  |.m%!4=0....m%!8=|
000025a0  28 37 3c 3c 32 34 29 84  20 25 31 30 30 30 31 0d  |(7<<24). %10001.|
000025b0  0c da 17 24 28 6d 25 2b  31 32 29 3d 22 45 78 70  |...$(m%+12)="Exp|
000025c0  65 6e 73 65 73 22 0d 0c  e4 04 0d 0c ee 0a 6d 25  |enses"........m%|
000025d0  2b 3d 32 34 0d 0c f8 0a  6d 25 21 30 3d 30 0d 0d  |+=24....m%!0=0..|
000025e0  02 0a 6d 25 21 34 3d 30  0d 0d 0c 18 6d 25 21 38  |..m%!4=0....m%!8|
000025f0  3d 28 37 3c 3c 32 34 29  84 20 25 31 30 30 30 31  |=(7<<24). %10001|
00002600  0d 0d 16 17 24 28 6d 25  2b 31 32 29 3d 22 53 63  |....$(m%+12)="Sc|
00002610  68 65 64 75 6c 65 22 0d  0d 20 04 0d 0d 2a 0a 6d  |hedule".. ...*.m|
00002620  25 2b 3d 32 34 0d 0d 34  0c 6d 25 21 30 3d 26 38  |%+=24..4.m%!0=&8|
00002630  30 0d 0d 3e 0a 6d 25 21  34 3d 30 0d 0d 48 18 6d  |0..>.m%!4=0..H.m|
00002640  25 21 38 3d 28 37 3c 3c  32 34 29 84 20 25 31 30  |%!8=(7<<24). %10|
00002650  30 30 31 0d 0d 52 13 24  28 6d 25 2b 31 32 29 3d  |001..R.$(m%+12)=|
00002660  22 51 75 69 74 22 0d 0d  5c 04 0d 0d 66 17 24 4d  |"Quit"..\...f.$M|
00002670  6d 65 6e 75 25 3d 22 4f  72 67 61 6e 69 73 65 72  |menu%="Organiser|
00002680  22 0d 0d 70 0f 4d 6d 65  6e 75 25 3f 31 32 3d 37  |"..p.Mmenu%?12=7|
00002690  0d 0d 7a 0f 4d 6d 65 6e  75 25 3f 31 33 3d 32 0d  |..z.Mmenu%?13=2.|
000026a0  0d 84 0f 4d 6d 65 6e 75  25 3f 31 34 3d 37 0d 0d  |...Mmenu%?14=7..|
000026b0  8e 0f 4d 6d 65 6e 75 25  3f 31 35 3d 30 0d 0d 98  |..Mmenu%?15=0...|
000026c0  11 4d 6d 65 6e 75 25 21  31 36 3d 31 32 38 0d 0d  |.Mmenu%!16=128..|
000026d0  a2 10 4d 6d 65 6e 75 25  21 32 30 3d 34 30 0d 0d  |..Mmenu%!20=40..|
000026e0  ac 0f 4d 6d 65 6e 75 25  21 32 34 3d 30 0d 0d b6  |..Mmenu%!24=0...|
000026f0  10 6d 25 3d 4d 6d 65 6e  75 25 2b 32 38 0d 0d c0  |.m%=Mmenu%+28...|
00002700  0a 6d 25 21 30 3d 30 0d  0d ca 0e 6d 25 21 34 3d  |.m%!0=0....m%!4=|
00002710  69 6e 66 6f 25 0d 0d d4  18 6d 25 21 38 3d 28 37  |info%....m%!8=(7|
00002720  3c 3c 32 34 29 84 20 25  31 30 30 30 31 0d 0d de  |<<24). %10001...|
00002730  13 24 28 6d 25 2b 31 32  29 3d 22 49 6e 66 6f 22  |.$(m%+12)="Info"|
00002740  0d 0d e8 04 0d 0d f2 0a  6d 25 2b 3d 32 34 0d 0d  |........m%+=24..|
00002750  fc 0a 6d 25 21 30 3d 30  0d 0e 06 0f 6d 25 21 34  |..m%!0=0....m%!4|
00002760  3d 73 61 76 65 57 25 0d  0e 10 18 6d 25 21 38 3d  |=saveW%....m%!8=|
00002770  28 37 3c 3c 32 34 29 84  20 25 31 30 30 30 31 0d  |(7<<24). %10001.|
00002780  0e 1a 13 24 28 6d 25 2b  31 32 29 3d 22 53 61 76  |...$(m%+12)="Sav|
00002790  65 22 0d 0e 24 04 0d 0e  2e 0a 6d 25 2b 3d 32 34  |e"..$.....m%+=24|
000027a0  0d 0e 38 0a 6d 25 21 30  3d 32 0d 0e 42 11 6d 25  |..8.m%!0=2..B.m%|
000027b0  21 34 3d 65 78 70 6f 72  74 57 25 0d 0e 4c 18 6d  |!4=exportW%..L.m|
000027c0  25 21 38 3d 28 37 3c 3c  32 34 29 84 20 25 31 30  |%!8=(7<<24). %10|
000027d0  30 30 31 0d 0e 56 15 24  28 6d 25 2b 31 32 29 3d  |001..V.$(m%+12)=|
000027e0  22 45 78 70 6f 72 74 22  0d 0e 60 04 0d 0e 6a 0a  |"Export"..`...j.|
000027f0  6d 25 2b 3d 32 34 0d 0e  74 0a 6d 25 21 30 3d 30  |m%+=24..t.m%!0=0|
00002800  0d 0e 7e 0a 6d 25 21 34  3d 30 0d 0e 88 18 6d 25  |..~.m%!4=0....m%|
00002810  21 38 3d 28 37 3c 3c 32  34 29 84 20 25 31 30 30  |!8=(7<<24). %100|
00002820  30 31 0d 0e 92 15 24 28  6d 25 2b 31 32 29 3d 22  |01....$(m%+12)="|
00002830  54 58 20 6f 6e 65 22 0d  0e 9c 04 0d 0e a6 0a 6d  |TX one"........m|
00002840  25 2b 3d 32 34 0d 0e b0  0a 6d 25 21 30 3d 33 0d  |%+=24....m%!0=3.|
00002850  0e ba 0a 6d 25 21 34 3d  30 0d 0e c4 18 6d 25 21  |...m%!4=0....m%!|
00002860  38 3d 28 37 3c 3c 32 34  29 84 20 25 31 30 30 30  |8=(7<<24). %1000|
00002870  31 0d 0e ce 15 24 28 6d  25 2b 31 32 29 3d 22 54  |1....$(m%+12)="T|
00002880  58 20 61 6c 6c 22 0d 0e  d8 04 0d 0e e2 0a 6d 25  |X all"........m%|
00002890  2b 3d 32 34 0d 0e ec 0a  6d 25 21 30 3d 31 0d 0e  |+=24....m%!0=1..|
000028a0  f6 0a 6d 25 21 34 3d 30  0d 0f 00 18 6d 25 21 38  |..m%!4=0....m%!8|
000028b0  3d 28 37 3c 3c 32 34 29  84 20 25 31 30 30 30 31  |=(7<<24). %10001|
000028c0  0d 0f 0a 15 24 28 6d 25  2b 31 32 29 3d 22 52 58  |....$(m%+12)="RX|
000028d0  20 6e 65 77 22 0d 0f 14  04 0d 0f 1e 0a 6d 25 2b  | new"........m%+|
000028e0  3d 32 34 0d 0f 28 0a 6d  25 21 30 3d 32 0d 0f 32  |=24..(.m%!0=2..2|
000028f0  0a 6d 25 21 34 3d 30 0d  0f 3c 18 6d 25 21 38 3d  |.m%!4=0..<.m%!8=|
00002900  28 37 3c 3c 32 34 29 84  20 25 31 30 30 30 31 0d  |(7<<24). %10001.|
00002910  0f 46 17 24 28 6d 25 2b  31 32 29 3d 22 52 58 20  |.F.$(m%+12)="RX |
00002920  6d 65 72 67 65 22 0d 0f  50 04 0d 0f 5a 0a 6d 25  |merge"..P...Z.m%|
00002930  2b 3d 32 34 0d 0f 64 0c  6d 25 21 30 3d 26 38 30  |+=24..d.m%!0=&80|
00002940  0d 0f 6e 0a 6d 25 21 34  3d 30 0d 0f 78 18 6d 25  |..n.m%!4=0..x.m%|
00002950  21 38 3d 28 37 3c 3c 32  34 29 84 20 25 31 30 30  |!8=(7<<24). %100|
00002960  30 31 0d 0f 82 13 24 28  6d 25 2b 31 32 29 3d 22  |01....$(m%+12)="|
00002970  51 75 69 74 22 0d 0f 8c  04 0d 0f 96 05 e1 0d 0f  |Quit"...........|
00002980  a0 04 0d 0f aa 12 dd 20  f2 5f 44 6f 53 61 76 65  |....... ._DoSave|
00002990  28 69 25 29 0d 0f b4 0c  e7 20 69 25 3d 30 20 8c  |(i%)..... i%=0 .|
000029a0  0d 0f be 19 20 20 20 20  20 20 20 20 20 20 20 20  |....            |
000029b0  44 72 61 67 4f 6e 25 3d  b9 0d 0f c8 2c 20 20 20  |DragOn%=....,   |
000029c0  20 20 20 20 20 20 20 20  20 c8 99 20 22 57 69 6d  |         .. "Wim|
000029d0  70 5f 47 65 74 50 6f 69  6e 74 65 72 49 6e 66 6f  |p_GetPointerInfo|
000029e0  22 2c 2c 71 25 0d 0f d2  5d 20 20 20 20 20 20 20  |",,q%...]       |
000029f0  20 20 20 20 20 e7 20 45  78 70 6f 72 74 25 20 8c  |     . Export% .|
00002a00  20 f2 64 72 61 67 69 63  6f 6e 28 71 25 21 30 2c  | .dragicon(q%!0,|
00002a10  71 25 21 34 2c 65 78 70  6f 72 74 57 25 2c 69 25  |q%!4,exportW%,i%|
00002a20  29 20 8b 20 f2 64 72 61  67 69 63 6f 6e 28 71 25  |) . .dragicon(q%|
00002a30  21 30 2c 71 25 21 34 2c  73 61 76 65 57 25 2c 69  |!0,q%!4,saveW%,i|
00002a40  25 29 0d 0f dc 06 20 cd  0d 0f e6 0d 20 e7 20 69  |%).... ..... . i|
00002a50  25 3d 32 20 8c 0d 0f f0  0f 20 20 f2 5f 47 65 74  |%=2 .....  ._Get|
00002a60  4e 61 6d 65 0d 0f fa 47  20 20 e7 20 a7 66 6e 24  |Name...G  . .fn$|
00002a70  2c 22 3a 22 29 20 8c 20  f2 5f 53 61 76 65 20 8b  |,":") . ._Save .|
00002a80  20 f2 5f 73 65 74 75 70  57 28 22 44 72 61 67 20  | ._setupW("Drag |
00002a90  74 68 65 20 49 63 6f 6e  20 69 6e 74 6f 20 61 20  |the Icon into a |
00002aa0  44 69 72 65 63 74 6f 72  79 22 29 0d 10 04 1e 20  |Directory").... |
00002ab0  20 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  | .. "Wimp_Create|
00002ac0  4d 65 6e 75 22 2c 2c 2d  31 0d 10 0e 06 20 cd 0d  |Menu",,-1.... ..|
00002ad0  10 18 05 e1 0d 10 22 04  0d 10 2c 12 dd 20 f2 72  |......"...,.. .r|
00002ae0  65 63 65 69 76 65 28 71  25 29 0d 10 36 08 ea 20  |eceive(q%)..6.. |
00002af0  41 25 0d 10 40 0c 41 25  3d 71 25 21 31 36 0d 10  |A%..@.A%=q%!16..|
00002b00  4a 0b c8 8e 20 41 25 20  ca 0d 10 54 0c c9 20 30  |J... A% ...T.. 0|
00002b10  3a f2 64 69 65 0d 10 5e  1b c9 20 32 3a e7 20 71  |:.die..^.. 2:. q|
00002b20  25 21 31 32 3d 73 61 76  65 72 65 66 25 20 8c 20  |%!12=saveref% . |
00002b30  0d 10 68 1c 20 20 20 20  20 20 20 20 20 20 73 65  |..h.          se|
00002b40  63 75 72 65 46 25 3d 71  25 21 33 36 0d 10 72 25  |cureF%=q%!36..r%|
00002b50  20 20 20 20 20 20 20 20  20 20 66 6e 24 3d a4 73  |          fn$=.s|
00002b60  67 65 74 28 71 25 2b 34  34 29 3a f2 5f 53 61 76  |get(q%+44):._Sav|
00002b70  65 0d 10 7c 38 20 20 20  20 20 20 20 20 20 20 71  |e..|8          q|
00002b80  25 21 31 32 3d 73 61 76  65 72 65 66 25 3a 71 25  |%!12=saveref%:q%|
00002b90  21 31 36 3d 33 3a 71 25  21 30 3d 32 35 36 3a 71  |!16=3:q%!0=256:q|
00002ba0  25 21 34 30 3d 26 30 34  34 0d 10 86 41 20 20 20  |%!40=&044...A   |
00002bb0  20 20 20 20 20 20 20 71  25 21 32 30 3d 6d 65 73  |       q%!20=mes|
00002bc0  73 68 25 3a 71 25 21 32  34 3d 6d 65 73 73 69 25  |sh%:q%!24=messi%|
00002bd0  3a 71 25 21 32 38 3d 6d  65 73 73 78 25 3a 71 25  |:q%!28=messx%:q%|
00002be0  21 33 32 3d 6d 65 73 73  79 25 0d 10 90 37 20 20  |!32=messy%...7  |
00002bf0  20 20 20 20 20 20 20 20  c8 99 20 22 57 69 6d 70  |        .. "Wimp|
00002c00  5f 53 65 6e 64 4d 65 73  73 61 67 65 22 2c 31 37  |_SendMessage",17|
00002c10  2c 71 25 2c 6d 65 73 73  68 25 2c 6d 65 73 73 69  |,q%,messh%,messi|
00002c20  25 0d 10 9a 0f 20 20 20  20 20 20 20 20 20 20 cd  |%....          .|
00002c30  0d 10 a4 0e 20 20 20 20  20 20 20 20 20 20 0d 10  |....          ..|
00002c40  ae 17 c9 20 33 3a 6e 24  3d a4 73 67 65 74 28 71  |... 3:n$=.sget(q|
00002c50  25 2b 34 34 29 0d 10 b8  27 20 20 20 20 20 20 20  |%+44)...'       |
00002c60  73 65 6e 64 74 68 25 3d  71 25 21 34 3a 69 63 6f  |sendth%=q%!4:ico|
00002c70  6e 74 79 70 65 25 3d 71  25 21 34 30 0d 10 c2 16  |ntype%=q%!40....|
00002c80  20 20 20 20 20 20 20 6d  79 72 65 66 25 3d 71 25  |       myref%=q%|
00002c90  21 38 0d 10 cc 4d 20 20  20 20 20 20 20 e7 20 28  |!8...M       . (|
00002ca0  28 71 25 21 32 30 3d 2d  32 20 80 20 71 25 21 32  |(q%!20=-2 . q%!2|
00002cb0  34 3d 73 6d 70 69 63 6f  6e 25 29 20 84 20 28 71  |4=smpicon%) . (q|
00002cc0  25 21 32 30 3d 74 65 6c  57 25 29 29 20 20 80 20  |%!20=telW%))  . |
00002cd0  69 63 6f 6e 74 79 70 65  25 3d 26 35 41 20 8c 0d  |icontype%=&5A ..|
00002ce0  10 d6 16 20 20 20 20 20  20 20 20 f2 6c 6f 61 64  |...        .load|
00002cf0  54 28 6e 24 29 0d 10 e0  38 20 20 20 20 20 20 20  |T(n$)...8       |
00002d00  20 e7 20 71 25 21 32 30  3d 2d 32 20 80 20 77 6f  | . q%!20=-2 . wo|
00002d10  70 65 6e 25 28 30 29 3d  a3 20 8c 20 f2 5f 4f 70  |pen%(0)=. . ._Op|
00002d20  65 6e 28 30 29 3a 20 f2  5f 44 61 63 6b 0d 10 ea  |en(0): ._Dack...|
00002d30  30 20 20 20 20 20 20 20  20 45 78 70 6f 72 74 25  |0        Export%|
00002d40  3d a3 3a f2 5f 50 75 74  4e 61 6d 65 28 6e 24 29  |=.:._PutName(n$)|
00002d50  3a 53 74 79 70 65 24 3d  22 30 35 41 22 0d 10 f4  |:Stype$="05A"...|
00002d60  33 20 20 20 20 20 20 20  20 45 78 70 6f 72 74 25  |3        Export%|
00002d70  3d b9 3a f2 5f 50 75 74  4e 61 6d 65 28 6e 24 2b  |=.:._PutName(n$+|
00002d80  22 54 22 29 3a 54 65 6c  46 69 6c 65 24 3d 6e 24  |"T"):TelFile$=n$|
00002d90  0d 10 fe 0c 20 20 20 20  20 20 20 cd 0d 11 08 0b  |....       .....|
00002da0  20 20 20 20 20 20 20 0d  11 12 4e 20 20 20 20 20  |       ...N     |
00002db0  20 20 e7 20 28 28 71 25  21 32 30 3d 2d 32 20 80  |  . ((q%!20=-2 .|
00002dc0  20 71 25 21 32 34 3d 73  6d 70 69 63 6f 6e 25 29  | q%!24=smpicon%)|
00002dd0  20 84 20 28 71 25 21 32  30 3d 6d 65 6d 6f 57 25  | . (q%!20=memoW%|
00002de0  29 29 20 20 80 20 69 63  6f 6e 74 79 70 65 25 3d  |))  . icontype%=|
00002df0  26 35 42 20 8c 0d 11 1c  16 20 20 20 20 20 20 20  |&5B .....       |
00002e00  20 f2 6c 6f 61 64 4d 28  6e 24 29 0d 11 26 37 20  | .loadM(n$)..&7 |
00002e10  20 20 20 20 20 20 20 e7  20 71 25 21 32 30 3d 2d  |       . q%!20=-|
00002e20  32 20 80 20 77 6f 70 65  6e 25 28 31 29 3d a3 20  |2 . wopen%(1)=. |
00002e30  8c 20 f2 5f 4f 70 65 6e  28 31 29 3a f2 5f 44 61  |. ._Open(1):._Da|
00002e40  63 6b 0d 11 30 30 20 20  20 20 20 20 20 20 45 78  |ck..00        Ex|
00002e50  70 6f 72 74 25 3d a3 3a  f2 5f 50 75 74 4e 61 6d  |port%=.:._PutNam|
00002e60  65 28 6e 24 29 3a 53 74  79 70 65 24 3d 22 30 35  |e(n$):Stype$="05|
00002e70  42 22 0d 11 3a 27 20 20  20 20 20 20 20 20 45 78  |B"..:'        Ex|
00002e80  70 6f 72 74 25 3d b9 3a  f2 5f 50 75 74 4e 61 6d  |port%=.:._PutNam|
00002e90  65 28 6e 24 2b 22 54 22  29 0d 11 44 2e 20 20 20  |e(n$+"T")..D.   |
00002ea0  20 20 20 20 20 e7 20 4d  65 6d 6f 25 20 8c 20 4d  |     . Memo% . M|
00002eb0  65 6d 46 69 6c 65 24 3d  6e 24 20 8b 20 54 6f 46  |emFile$=n$ . ToF|
00002ec0  69 6c 65 24 3d 6e 24 0d  11 4e 0c 20 20 20 20 20  |ile$=n$..N.     |
00002ed0  20 20 cd 0d 11 58 0b 20  20 20 20 20 20 20 0d 11  |  ...X.       ..|
00002ee0  62 4d 20 20 20 20 20 20  20 e7 20 28 28 71 25 21  |bM       . ((q%!|
00002ef0  32 30 3d 2d 32 20 80 20  71 25 21 32 34 3d 73 6d  |20=-2 . q%!24=sm|
00002f00  70 69 63 6f 6e 25 29 20  84 20 28 71 25 21 32 30  |picon%) . (q%!20|
00002f10  3d 65 78 70 57 25 29 29  20 20 80 20 69 63 6f 6e  |=expW%))  . icon|
00002f20  74 79 70 65 25 3d 26 35  43 20 8c 0d 11 6c 16 20  |type%=&5C ...l. |
00002f30  20 20 20 20 20 20 20 f2  6c 6f 61 64 45 28 6e 24  |       .loadE(n$|
00002f40  29 0d 11 76 37 20 20 20  20 20 20 20 20 e7 20 71  |)..v7        . q|
00002f50  25 21 32 30 3d 2d 32 20  80 20 77 6f 70 65 6e 25  |%!20=-2 . wopen%|
00002f60  28 32 29 3d a3 20 8c 20  f2 5f 4f 70 65 6e 28 32  |(2)=. . ._Open(2|
00002f70  29 3a f2 5f 44 61 63 6b  0d 11 80 30 20 20 20 20  |):._Dack...0    |
00002f80  20 20 20 20 45 78 70 6f  72 74 25 3d a3 3a f2 5f  |    Export%=.:._|
00002f90  50 75 74 4e 61 6d 65 28  6e 24 29 3a 53 74 79 70  |PutName(n$):Styp|
00002fa0  65 24 3d 22 30 35 43 22  0d 11 8a 33 20 20 20 20  |e$="05C"...3    |
00002fb0  20 20 20 20 45 78 70 6f  72 74 25 3d b9 3a f2 5f  |    Export%=.:._|
00002fc0  50 75 74 4e 61 6d 65 28  6e 24 2b 22 54 22 29 3a  |PutName(n$+"T"):|
00002fd0  45 78 70 46 69 6c 65 24  3d 6e 24 0d 11 94 0c 20  |ExpFile$=n$.... |
00002fe0  20 20 20 20 20 20 cd 0d  11 9e 0b 20 20 20 20 20  |      .....     |
00002ff0  20 20 0d 11 a8 4e 20 20  20 20 20 20 20 e7 20 28  |  ...N       . (|
00003000  28 71 25 21 32 30 3d 2d  32 20 80 20 71 25 21 32  |(q%!20=-2 . q%!2|
00003010  34 3d 73 6d 70 69 63 6f  6e 25 29 20 84 20 28 71  |4=smpicon%) . (q|
00003020  25 21 32 30 3d 73 68 65  64 57 25 29 29 20 20 80  |%!20=shedW%))  .|
00003030  20 69 63 6f 6e 74 79 70  65 25 3d 26 35 44 20 8c  | icontype%=&5D .|
00003040  0d 11 b2 16 20 20 20 20  20 20 20 20 f2 6c 6f 61  |....        .loa|
00003050  64 53 28 6e 24 29 0d 11  bc 37 20 20 20 20 20 20  |dS(n$)...7      |
00003060  20 20 e7 20 71 25 21 32  30 3d 2d 32 20 80 20 77  |  . q%!20=-2 . w|
00003070  6f 70 65 6e 25 28 33 29  3d a3 20 8c 20 f2 5f 4f  |open%(3)=. . ._O|
00003080  70 65 6e 28 33 29 3a f2  5f 44 61 63 6b 0d 11 c6  |pen(3):._Dack...|
00003090  30 20 20 20 20 20 20 20  20 45 78 70 6f 72 74 25  |0        Export%|
000030a0  3d a3 3a f2 5f 50 75 74  4e 61 6d 65 28 6e 24 29  |=.:._PutName(n$)|
000030b0  3a 53 74 79 70 65 24 3d  22 30 35 44 22 0d 11 d0  |:Stype$="05D"...|
000030c0  34 20 20 20 20 20 20 20  20 45 78 70 6f 72 74 25  |4        Export%|
000030d0  3d b9 3a f2 5f 50 75 74  4e 61 6d 65 28 6e 24 2b  |=.:._PutName(n$+|
000030e0  22 54 22 29 3a 53 68 65  64 46 69 6c 65 24 3d 6e  |"T"):ShedFile$=n|
000030f0  24 0d 11 da 0c 20 20 20  20 20 20 20 cd 0d 11 e4  |$....       ....|
00003100  04 0d 11 ee 14 c9 20 26  35 30 32 3a 20 20 20 c8  |...... &502:   .|
00003110  8e 20 b9 20 ca 0d 11 f8  70 20 20 20 20 20 20 20  |. . ....p       |
00003120  20 20 20 20 20 20 c9 20  71 25 21 33 32 3d 2d 32  |      . q%!32=-2|
00003130  20 80 20 71 25 21 33 36  3d 73 6d 70 69 63 6f 6e  | . q%!36=smpicon|
00003140  25 3a 6d 65 73 24 3d 22  54 68 69 73 20 69 73 20  |%:mes$="This is |
00003150  74 68 65 20 4f 72 67 69  6e 69 73 65 72 20 69 63  |the Orginiser ic|
00003160  6f 6e 2e 7c 4d 54 72 61  6e 73 66 65 72 20 64 61  |on.|MTransfer da|
00003170  74 61 20 77 69 74 68 20  79 6f 75 72 20 41 4d 2d  |ta with your AM-|
00003180  33 39 39 43 22 0d 12 02  1a 20 20 20 20 20 20 20  |399C"....       |
00003190  20 20 20 20 20 20 7f 3a  6d 65 73 24 3d 22 22 0d  |      .:mes$="".|
000031a0  12 0c 12 20 20 20 20 20  20 20 20 20 20 20 20 20  |...             |
000031b0  cb 0d 12 16 14 20 20 20  20 e7 20 6d 65 73 24 3c  |.....    . mes$<|
000031c0  3e 22 22 20 8c 0d 12 20  12 20 20 20 20 71 25 21  |>"" ... .    q%!|
000031d0  31 32 3d 71 25 21 38 0d  12 2a 18 20 20 20 20 24  |12=q%!8..*.    $|
000031e0  28 71 25 2b 32 30 29 3d  6d 65 73 24 2b bd 30 0d  |(q%+20)=mes$+.0.|
000031f0  12 34 1e 20 20 20 20 71  25 21 30 3d 28 32 30 2b  |.4.    q%!0=(20+|
00003200  a9 6d 65 73 24 2b 34 29  80 20 ac 20 33 0d 12 3e  |.mes$+4). . 3..>|
00003210  12 20 20 20 20 71 25 21  31 36 3d 26 35 30 33 0d  |.    q%!16=&503.|
00003220  12 48 28 20 20 20 20 c8  99 20 22 57 69 6d 70 5f  |.H(    .. "Wimp_|
00003230  53 65 6e 64 4d 65 73 73  61 67 65 22 2c 31 38 2c  |SendMessage",18,|
00003240  71 25 2c 71 25 21 34 0d  12 52 05 cb 0d 12 5c 05  |q%,q%!4..R....\.|
00003250  e1 0d 12 66 04 0d 12 70  0c dd 20 f2 5f 44 61 63  |...f...p.. ._Dac|
00003260  6b 0d 12 7a 10 73 65 6e  64 74 68 25 3d 71 25 21  |k..z.sendth%=q%!|
00003270  34 0d 12 84 0f 6d 79 72  65 66 25 3d 71 25 21 38  |4....myref%=q%!8|
00003280  0d 12 8e 22 c8 99 20 22  57 69 6d 70 5f 47 65 74  |...".. "Wimp_Get|
00003290  50 6f 69 6e 74 65 72 49  6e 66 6f 22 2c 2c 71 25  |PointerInfo",,q%|
000032a0  2b 38 0d 12 98 0e 71 25  21 32 38 3d 71 25 21 38  |+8....q%!28=q%!8|
000032b0  0d 12 a2 0f 71 25 21 33  32 3d 71 25 21 31 32 0d  |....q%!32=q%!12.|
000032c0  12 ac 18 71 25 21 30 3d  28 34 34 2b a9 6e 24 2b  |...q%!0=(44+.n$+|
000032d0  34 29 80 20 ac 20 33 0d  12 b6 10 71 25 21 31 32  |4). . 3....q%!12|
000032e0  3d 6d 79 72 65 66 25 0d  12 c0 0b 71 25 21 31 36  |=myref%....q%!16|
000032f0  3d 34 0d 12 ca 0c 71 25  21 33 36 3d 2d 31 0d 12  |=4....q%!36=-1..|
00003300  d4 0e 71 25 21 34 30 3d  26 46 46 39 0d 12 de 12  |..q%!40=&FF9....|
00003310  24 28 71 25 2b 34 34 29  3d 6e 24 2b bd 30 0d 12  |$(q%+44)=n$+.0..|
00003320  e8 27 c8 99 20 22 57 69  6d 70 5f 53 65 6e 64 4d  |.'.. "Wimp_SendM|
00003330  65 73 73 61 67 65 22 2c  31 37 2c 71 25 2c 73 65  |essage",17,q%,se|
00003340  6e 64 74 68 25 0d 12 f2  05 cd 0d 12 fc 05 e1 0d  |ndth%...........|
00003350  13 06 04 0d 13 10 0a dd  a4 69 63 6f 6e 0d 13 1a  |.........icon...|
00003360  0b 71 25 21 30 3d 2d 31  0d 13 24 0a 71 25 21 34  |.q%!0=-1..$.q%!4|
00003370  3d 30 0d 13 2e 1b 71 25  21 38 3d 31 30 20 3a 20  |=0....q%!8=10 : |
00003380  f4 20 59 20 44 49 52 45  43 54 49 4f 4e 0d 13 38  |. Y DIRECTION..8|
00003390  1c 71 25 21 31 32 3d 37  30 20 3a 20 f4 20 58 20  |.q%!12=70 : . X |
000033a0  44 49 52 45 43 54 49 4f  4e 0d 13 42 0c 71 25 21  |DIRECTION..B.q%!|
000033b0  31 36 3d 39 36 0d 13 4c  0f 71 25 21 32 30 3d 26  |16=96..L.q%!20=&|
000033c0  32 30 30 32 0d 13 56 19  24 28 71 25 2b 32 34 29  |2002..V.$(q%+24)|
000033d0  3d 22 21 4f 72 67 61 6e  69 73 65 72 22 0d 13 60  |="!Organiser"..`|
000033e0  24 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |$.. "Wimp_Create|
000033f0  49 63 6f 6e 22 2c 2c 71  25 20 b8 20 69 63 6f 6e  |Icon",,q% . icon|
00003400  25 0d 13 6a 0a 3d 69 63  6f 6e 25 0d 13 74 04 0d  |%..j.=icon%..t..|
00003410  13 7e 12 dd 20 f2 5f 73  65 74 75 70 57 28 74 24  |.~.. ._setupW(t$|
00003420  29 0d 13 88 60 21 71 77  25 3d 77 61 72 6e 69 6e  |)...`!qw%=warnin|
00003430  67 57 25 3a 71 77 25 21  34 3d 32 30 30 3a 71 77  |gW%:qw%!4=200:qw|
00003440  25 21 38 3d 32 30 30 3a  71 77 25 21 31 32 3d 32  |%!8=200:qw%!12=2|
00003450  30 30 2b 58 51 25 3a 71  77 25 21 31 36 3d 32 30  |00+XQ%:qw%!16=20|
00003460  30 2b 59 51 25 3a 71 77  25 21 32 30 3d 30 3a 71  |0+YQ%:qw%!20=0:q|
00003470  77 25 21 32 34 3d 30 3a  71 77 25 21 32 38 3d 2d  |w%!24=0:qw%!28=-|
00003480  31 0d 13 92 11 24 54 65  78 74 57 61 72 6e 25 3d  |1....$TextWarn%=|
00003490  74 24 0d 13 9c 15 54 65  78 74 57 61 72 6e 25 3f  |t$....TextWarn%?|
000034a0  a9 28 74 24 29 3d 30 0d  13 a6 0d 77 61 72 6e 4f  |.(t$)=0....warnO|
000034b0  6e 25 3d b9 0d 13 b0 1d  c8 99 20 22 57 69 6d 70  |n%=....... "Wimp|
000034c0  5f 4f 70 65 6e 57 69 6e  64 6f 77 22 2c 2c 71 77  |_OpenWindow",,qw|
000034d0  25 0d 13 ba 05 e1 0d 13  c4 04 0d 13 ce 0f dd 20  |%.............. |
000034e0  f2 65 72 72 6f 72 62 6f  78 0d 13 d8 0d f4 20 50  |.errorbox..... P|
000034f0  52 4f 43 64 69 65 0d 13  e2 19 c8 99 20 22 57 69  |ROCdie...... "Wi|
00003500  6d 70 5f 44 72 61 67 42  6f 78 22 2c 2c 2d 31 0d  |mp_DragBox",,-1.|
00003510  13 ec 32 21 62 75 66 66  65 72 73 25 3d 9f 3a 24  |..2!buffers%=.:$|
00003520  28 62 75 66 66 65 72 73  25 2b 34 29 3d f6 24 2b  |(buffers%+4)=.$+|
00003530  22 20 61 74 20 6c 69 6e  65 20 22 2b c3 9e 2b bd  |" at line "+..+.|
00003540  30 0d 13 f6 30 c8 99 20  22 57 69 6d 70 5f 52 65  |0...0.. "Wimp_Re|
00003550  70 6f 72 74 45 72 72 6f  72 22 2c 62 75 66 66 65  |portError",buffe|
00003560  72 73 25 2c 31 2c 22 4f  72 67 61 6e 69 73 65 72  |rs%,1,"Organiser|
00003570  22 0d 14 00 08 f2 64 69  65 0d 14 0a 05 e1 0d 14  |".....die.......|
00003580  14 04 0d 14 1e 09 dd f2  64 69 65 0d 14 28 2a c8  |........die..(*.|
00003590  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 44 6f 77  |. "Wimp_CloseDow|
000035a0  6e 22 2c 74 61 73 6b 68  61 6e 64 25 2c 21 74 61  |n",taskhand%,!ta|
000035b0  73 6b 69 64 25 0d 14 32  05 e0 0d 14 3c 05 e1 0d  |skid%..2....<...|
000035c0  14 46 04 0d 14 50 2e dd  20 f2 64 72 61 67 69 63  |.F...P.. .dragic|
000035d0  6f 6e 28 6d 6f 75 73 65  78 25 2c 6d 6f 75 73 65  |on(mousex%,mouse|
000035e0  79 25 2c 68 61 6e 64 6c  65 25 2c 69 63 6f 6e 25  |y%,handle%,icon%|
000035f0  29 0d 14 5a 21 ea 20 62  78 25 2c 62 79 25 2c 69  |)..Z!. bx%,by%,i|
00003600  78 30 25 2c 69 79 30 25  2c 69 78 31 25 2c 69 79  |x0%,iy0%,ix1%,iy|
00003610  31 25 0d 14 64 12 f2 67  65 74 77 28 68 61 6e 64  |1%..d..getw(hand|
00003620  6c 65 25 29 0d 14 6e 18  f2 67 65 74 69 28 68 61  |le%)..n..geti(ha|
00003630  6e 64 6c 65 25 2c 69 63  6f 6e 25 29 0d 14 78 16  |ndle%,icon%)..x.|
00003640  21 71 25 3d 68 61 6e 64  6c 65 25 3a 71 25 21 34  |!q%=handle%:q%!4|
00003650  3d 35 0d 14 82 3e 71 25  21 38 3d 62 78 25 2b 69  |=5...>q%!8=bx%+i|
00003660  78 30 25 3a 71 25 21 31  32 3d 62 79 25 2b 69 79  |x0%:q%!12=by%+iy|
00003670  30 25 3a 71 25 21 31 36  3d 62 78 25 2b 69 78 31  |0%:q%!16=bx%+ix1|
00003680  25 3a 71 25 21 32 30 3d  62 79 25 2b 69 79 31 25  |%:q%!20=by%+iy1%|
00003690  0d 14 8c 2a 71 25 21 32  34 3d 71 25 21 38 2d 6d  |...*q%!24=q%!8-m|
000036a0  6f 75 73 65 78 25 3a 71  25 21 32 38 3d 71 25 21  |ousex%:q%!28=q%!|
000036b0  31 32 2d 6d 6f 75 73 65  79 25 0d 14 96 19 c8 99  |12-mousey%......|
000036c0  20 22 57 69 6d 70 5f 44  72 61 67 42 6f 78 22 2c  | "Wimp_DragBox",|
000036d0  2c 71 25 0d 14 a0 0c 53  46 4c 41 47 25 3d b9 0d  |,q%....SFLAG%=..|
000036e0  14 aa 05 e1 0d 14 b4 04  0d 14 be 14 dd 20 f2 67  |............. .g|
000036f0  65 74 77 28 68 61 6e 64  6c 65 25 29 0d 14 c8 38  |etw(handle%)...8|
00003700  21 71 25 3d 68 61 6e 64  6c 65 25 3a c8 99 20 22  |!q%=handle%:.. "|
00003710  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
00003720  61 74 65 22 2c 2c 71 25  3a f2 69 6e 66 6f 28 71  |ate",,q%:.info(q|
00003730  25 2b 34 29 0d 14 d2 05  e1 0d 14 dc 04 0d 14 e6  |%+4)............|
00003740  12 dd 20 f2 67 65 74 69  28 68 25 2c 69 25 29 0d  |.. .geti(h%,i%).|
00003750  14 f0 2d 21 71 25 3d 68  25 3a 71 25 21 34 3d 69  |..-!q%=h%:q%!4=i|
00003760  25 3a c8 99 20 22 57 69  6d 70 5f 47 65 74 49 63  |%:.. "Wimp_GetIc|
00003770  6f 6e 53 74 61 74 65 22  2c 2c 71 25 0d 14 fa 2e  |onState",,q%....|
00003780  69 78 30 25 3d 71 25 21  38 3a 69 79 30 25 3d 71  |ix0%=q%!8:iy0%=q|
00003790  25 21 31 32 3a 69 78 31  25 3d 71 25 21 31 36 3a  |%!12:ix1%=q%!16:|
000037a0  69 79 31 25 3d 71 25 21  32 30 0d 15 04 1e 69 66  |iy1%=q%!20....if|
000037b0  6c 61 67 73 25 3d 71 25  21 32 34 3a 69 64 61 74  |lags%=q%!24:idat|
000037c0  61 25 3d 71 25 2b 32 38  0d 15 0e 05 e1 0d 15 18  |a%=q%+28........|
000037d0  04 0d 15 22 0f dd 20 f2  69 6e 66 6f 28 70 25 29  |...".. .info(p%)|
000037e0  0d 15 2c 0d ea 20 78 30  25 2c 79 30 25 0d 15 36  |..,.. x0%,y0%..6|
000037f0  27 78 30 25 3d 21 70 25  3a 79 30 25 3d 70 25 21  |'x0%=!p%:y0%=p%!|
00003800  34 3a 78 31 25 3d 70 25  21 38 3a 79 31 25 3d 70  |4:x1%=p%!8:y1%=p|
00003810  25 21 31 32 0d 15 40 35  73 63 78 25 3d 70 25 21  |%!12..@5scx%=p%!|
00003820  31 36 3a 73 63 79 25 3d  70 25 21 32 30 3a 62 68  |16:scy%=p%!20:bh|
00003830  61 6e 64 6c 65 25 3d 70  25 21 32 34 3a 66 6c 61  |andle%=p%!24:fla|
00003840  67 73 25 3d 70 25 21 32  38 0d 15 4a 1d 62 78 25  |gs%=p%!28..J.bx%|
00003850  3d 78 30 25 2d 73 63 78  25 3a 62 79 25 3d 79 31  |=x0%-scx%:by%=y1|
00003860  25 2d 73 63 79 25 0d 15  54 05 e1 0d 15 5e 04 0d  |%-scy%..T....^..|
00003870  15 68 0c dd 20 f2 5f 53  61 76 65 0d 15 72 0d ea  |.h.. ._Save..r..|
00003880  20 63 68 25 2c 70 70 25  0d 15 7c 0d 46 25 3d ae  | ch%,pp%..|.F%=.|
00003890  28 66 6e 24 29 0d 15 86  11 c8 8e 20 63 75 72 72  |(fn$)...... curr|
000038a0  65 6e 74 25 20 ca 0d 15  90 1c c9 20 30 3a 20 f2  |ent% ...... 0: .|
000038b0  73 61 76 65 54 3a 54 65  6c 46 69 6c 65 24 3d 66  |saveT:TelFile$=f|
000038c0  6e 24 0d 15 9a 35 c9 20  31 3a 20 f2 73 61 76 65  |n$...5. 1: .save|
000038d0  4d 3a 20 e7 20 4d 65 6d  6f 25 20 8c 20 4d 65 6d  |M: . Memo% . Mem|
000038e0  46 69 6c 65 24 3d 66 6e  24 20 8b 20 54 6f 46 69  |File$=fn$ . ToFi|
000038f0  6c 65 24 3d 66 6e 24 0d  15 a4 1c c9 20 32 3a 20  |le$=fn$..... 2: |
00003900  f2 73 61 76 65 45 3a 45  78 70 46 69 6c 65 24 3d  |.saveE:ExpFile$=|
00003910  66 6e 24 0d 15 ae 1d c9  20 33 3a 20 f2 73 61 76  |fn$..... 3: .sav|
00003920  65 53 3a 53 68 65 64 46  69 6c 65 24 3d 66 6e 24  |eS:ShedFile$=fn$|
00003930  0d 15 b8 05 cb 0d 15 c2  08 d9 23 46 25 0d 15 cc  |..........#F%...|
00003940  47 e7 20 45 78 70 6f 72  74 25 20 8c 20 ff 28 22  |G. Export% . .("|
00003950  53 45 54 54 59 50 45 20  22 2b 66 6e 24 2b 22 20  |SETTYPE "+fn$+" |
00003960  66 66 66 22 29 20 8b 20  ff 28 22 53 45 54 54 59  |fff") . .("SETTY|
00003970  50 45 20 22 2b 66 6e 24  2b 22 20 22 2b 53 74 79  |PE "+fn$+" "+Sty|
00003980  70 65 24 29 0d 15 d6 12  f2 5f 50 75 74 4e 61 6d  |pe$)....._PutNam|
00003990  65 28 66 6e 24 29 0d 15  e0 05 e1 0d 15 ea 04 0d  |e(fn$)..........|
000039a0  15 f4 13 dd 20 f2 5f 50  75 74 4e 61 6d 65 28 70  |.... ._PutName(p|
000039b0  24 29 0d 15 fe 27 e7 20  45 78 70 6f 72 74 25 20  |$)...'. Export% |
000039c0  8c 20 24 45 6e 61 6d 65  25 3d 70 24 20 8b 20 24  |. $Ename%=p$ . $|
000039d0  53 6e 61 6d 65 25 3d 70  24 0d 16 08 05 e1 0d 16  |Sname%=p$.......|
000039e0  12 04 0d 16 1c 13 dd 20  f2 5f 50 75 74 44 6f 77  |....... ._PutDow|
000039f0  6e 28 71 25 29 0d 16 26  0f e7 20 44 72 61 67 4f  |n(q%)..&.. DragO|
00003a00  6e 25 20 8c 0d 16 30 23  f4 20 53 59 53 20 22 57  |n% ...0#. SYS "W|
00003a10  69 6d 70 5f 47 65 74 50  6f 69 6e 74 65 72 49 6e  |imp_GetPointerIn|
00003a20  66 6f 22 2c 2c 71 25 0d  16 3a 0d f2 5f 47 65 74  |fo",,q%..:.._Get|
00003a30  4e 61 6d 65 0d 16 44 20  c8 99 20 22 57 69 6d 70  |Name..D .. "Wimp|
00003a40  5f 47 65 74 50 6f 69 6e  74 65 72 49 6e 66 6f 22  |_GetPointerInfo"|
00003a50  2c 2c 71 25 0d 16 4e 35  6d 65 73 73 68 25 3d 71  |,,q%..N5messh%=q|
00003a60  25 21 31 32 3a 6d 65 73  73 69 25 3d 71 25 21 31  |%!12:messi%=q%!1|
00003a70  36 3a 6d 65 73 73 78 25  3d 71 25 21 30 3a 6d 65  |6:messx%=q%!0:me|
00003a80  73 73 79 25 3d 71 25 21  34 0d 16 58 23 e7 20 a7  |ssy%=q%!4..X#. .|
00003a90  20 66 6e 24 2c 22 3a 22  29 20 8c 20 66 6e 24 3d  | fn$,":") . fn$=|
00003aa0  a4 5f 73 70 61 74 68 28  66 6e 24 29 0d 16 62 10  |._spath(fn$)..b.|
00003ab0  24 28 71 25 2b 34 34 29  3d 66 6e 24 0d 16 6c 15  |$(q%+44)=fn$..l.|
00003ac0  3f 28 71 25 2b 34 34 2b  a9 28 66 6e 24 29 29 3d  |?(q%+44+.(fn$))=|
00003ad0  30 0d 16 76 3b 71 25 21  32 30 3d 71 25 21 31 32  |0..v;q%!20=q%!12|
00003ae0  3a 71 25 21 32 38 3d 71  25 21 30 3a 71 25 21 33  |:q%!28=q%!0:q%!3|
00003af0  32 3d 71 25 21 34 3a 71  25 21 33 36 3d 31 30 32  |2=q%!4:q%!36=102|
00003b00  34 3a 71 25 21 34 30 3d  26 30 34 34 0d 16 80 1b  |4:q%!40=&044....|
00003b10  71 25 21 30 3d 35 36 3a  71 25 21 31 32 3d 30 3a  |q%!0=56:q%!12=0:|
00003b20  71 25 21 31 36 3d 31 0d  16 8a 2d c8 99 20 22 57  |q%!16=1...-.. "W|
00003b30  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
00003b40  2c 31 37 2c 71 25 2c 6d  65 73 73 68 25 2c 6d 65  |,17,q%,messh%,me|
00003b50  73 73 69 25 0d 16 94 11  73 61 76 65 72 65 66 25  |ssi%....saveref%|
00003b60  3d 71 25 21 38 0d 16 9e  1c c8 99 20 22 57 69 6d  |=q%!8...... "Wim|
00003b70  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 2d  |p_CreateMenu",,-|
00003b80  31 0d 16 a8 0d 44 72 61  67 4f 6e 25 3d a3 0d 16  |1....DragOn%=...|
00003b90  b2 05 cd 0d 16 bc 05 e1  0d 16 c6 04 0d 16 d0 10  |................|
00003ba0  dd 20 f2 5f 4b 65 79 50  72 65 73 73 0d 16 da 0b  |. ._KeyPress....|
00003bb0  ea 20 43 25 2c 44 25 0d  16 e4 10 e7 20 71 25 21  |. C%,D%..... q%!|
00003bc0  32 34 3d 31 33 20 8c 0d  16 ee 0d c8 8e 20 71 25  |24=13 ....... q%|
00003bd0  21 30 20 ca 0d 16 f8 26  c9 20 73 61 76 65 57 25  |!0 ....&. saveW%|
00003be0  3a 20 20 20 45 78 70 6f  72 74 25 3d a3 3a 20 f2  |:   Export%=.: .|
00003bf0  5f 44 6f 53 61 76 65 28  32 29 0d 17 02 27 c9 20  |_DoSave(2)...'. |
00003c00  65 78 70 6f 72 74 57 25  3a 20 45 78 70 6f 72 74  |exportW%: Export|
00003c10  25 3d b9 3a 20 20 f2 5f  44 6f 53 61 76 65 28 32  |%=.:  ._DoSave(2|
00003c20  29 0d 17 0c 12 c9 20 74  65 6c 57 25 20 3a 20 f2  |)..... telW% : .|
00003c30  75 70 54 0d 17 16 33 20  20 20 20 20 20 20 20 20  |upT...3         |
00003c40  20 20 20 20 c8 99 22 57  69 6d 70 5f 47 65 74 43  |    .."Wimp_GetC|
00003c50  61 72 65 74 50 6f 73 69  74 69 6f 6e 22 2c 2c 74  |aretPosition",,t|
00003c60  62 6c 6f 63 6b 25 0d 17  20 3c 20 20 20 20 20 20  |block%.. <      |
00003c70  20 20 20 20 20 20 20 c8  99 22 57 69 6d 70 5f 53  |       .."Wimp_S|
00003c80  65 74 43 61 72 65 74 50  6f 73 69 74 69 6f 6e 22  |etCaretPosition"|
00003c90  2c 2d 31 2c 2d 31 2c 30  2c 30 2c 2d 31 2c 2d 31  |,-1,-1,0,0,-1,-1|
00003ca0  2c 30 0d 17 2a 1d 20 20  20 20 20 20 20 20 20 20  |,0..*.          |
00003cb0  20 20 20 43 25 3d 74 62  6c 6f 63 6b 25 21 34 0d  |   C%=tblock%!4.|
00003cc0  17 34 16 20 20 20 20 20  20 20 20 20 20 20 20 20  |.4.             |
00003cd0  43 25 2b 3d 31 0d 17 3e  2b 20 20 20 20 20 20 20  |C%+=1..>+       |
00003ce0  20 20 20 20 20 20 e7 20  43 25 3e 31 33 20 8c 20  |      . C%>13 . |
00003cf0  43 25 3d 38 3a 44 25 3d  31 20 8b 20 44 25 3d 30  |C%=8:D%=1 . D%=0|
00003d00  0d 17 48 1d 20 20 20 20  20 20 20 20 20 20 20 20  |..H.            |
00003d10  20 74 62 6c 6f 63 6b 25  21 34 3d 43 25 0d 17 52  | tblock%!4=C%..R|
00003d20  6b 20 20 20 20 20 20 20  20 20 20 20 20 20 c8 99  |k             ..|
00003d30  22 57 69 6d 70 5f 53 65  74 43 61 72 65 74 50 6f  |"Wimp_SetCaretPo|
00003d40  73 69 74 69 6f 6e 22 2c  74 65 6c 57 25 2c 43 25  |sition",telW%,C%|
00003d50  2c 74 62 6c 6f 63 6b 25  21 38 2c 49 59 25 28 43  |,tblock%!8,IY%(C|
00003d60  25 2c 30 29 2b 36 2c 74  62 6c 6f 63 6b 25 21 31  |%,0)+6,tblock%!1|
00003d70  36 2c a9 28 54 65 6c 24  28 43 74 65 6c 25 2b 44  |6,.(Tel$(Ctel%+D|
00003d80  25 2c 43 25 2d 38 29 29  0d 17 5c 3d 20 20 20 20  |%,C%-8))..\=    |
00003d90  20 20 20 20 20 20 20 20  20 e7 20 43 74 65 6c 25  |         . Ctel%|
00003da0  3d 4e 74 65 6c 25 20 80  20 44 25 3d 31 20 80 20  |=Ntel% . D%=1 . |
00003db0  4e 74 65 6c 25 3c 4d 61  78 52 65 63 25 20 8c 20  |Ntel%<MaxRec% . |
00003dc0  f2 6e 65 77 54 0d 17 66  25 20 20 20 20 20 20 20  |.newT..f%       |
00003dd0  20 20 20 20 20 20 e7 20  44 25 3c 3e 30 20 8c 20  |      . D%<>0 . |
00003de0  f2 75 70 54 65 6c 28 44  25 29 0d 17 70 11 20 20  |.upTel(D%)..p.  |
00003df0  20 20 20 20 20 20 20 20  20 20 20 0d 17 7a 12 c9  |           ..z..|
00003e00  20 6d 65 6d 6f 57 25 3a  20 f2 75 70 4d 0d 17 84  | memoW%: .upM...|
00003e10  42 20 20 20 20 20 20 20  20 20 20 20 20 20 e7 20  |B             . |
00003e20  4d 65 6d 6f 25 20 8c 20  43 25 3d 43 6d 65 6d 25  |Memo% . C%=Cmem%|
00003e30  3a 44 25 3d 4e 6d 65 6d  25 20 8b 20 43 25 3d 43  |:D%=Nmem% . C%=C|
00003e40  74 6f 64 6f 25 3a 44 25  3d 4e 74 6f 64 6f 25 0d  |todo%:D%=Ntodo%.|
00003e50  17 8e 44 20 20 20 20 20  20 20 20 20 20 20 20 20  |..D             |
00003e60  e7 20 43 25 3d 44 25 20  8c 20 f2 6e 65 77 6d 28  |. C%=D% . .newm(|
00003e70  31 29 3a f2 75 70 4d 62  75 74 28 30 29 20 8b 20  |1):.upMbut(0) . |
00003e80  f2 6d 75 70 28 31 29 3a  20 f2 75 70 4d 62 75 74  |.mup(1): .upMbut|
00003e90  28 31 29 0d 17 98 12 c9  20 73 68 65 64 57 25 3a  |(1)..... shedW%:|
00003ea0  20 f2 75 70 53 0d 17 a2  33 20 20 20 20 20 20 20  | .upS...3       |
00003eb0  20 20 20 20 20 20 c8 99  22 57 69 6d 70 5f 47 65  |      .."Wimp_Ge|
00003ec0  74 43 61 72 65 74 50 6f  73 69 74 69 6f 6e 22 2c  |tCaretPosition",|
00003ed0  2c 74 62 6c 6f 63 6b 25  0d 17 ac 1d 20 20 20 20  |,tblock%....    |
00003ee0  20 20 20 20 20 20 20 20  20 43 25 3d 74 62 6c 6f  |         C%=tblo|
00003ef0  63 6b 25 21 34 0d 17 b6  16 20 20 20 20 20 20 20  |ck%!4....       |
00003f00  20 20 20 20 20 20 43 25  2b 3d 31 0d 17 c0 2b 20  |      C%+=1...+ |
00003f10  20 20 20 20 20 20 20 20  20 20 20 20 e7 20 43 25  |            . C%|
00003f20  3e 31 32 20 8c 20 43 25  3d 38 3a 44 25 3d 31 20  |>12 . C%=8:D%=1 |
00003f30  8b 20 44 25 3d 30 0d 17  ca 1d 20 20 20 20 20 20  |. D%=0....      |
00003f40  20 20 20 20 20 20 20 74  62 6c 6f 63 6b 25 21 34  |       tblock%!4|
00003f50  3d 43 25 0d 17 d4 6e 20  20 20 20 20 20 20 20 20  |=C%...n         |
00003f60  20 20 20 20 c8 99 22 57  69 6d 70 5f 53 65 74 43  |    .."Wimp_SetC|
00003f70  61 72 65 74 50 6f 73 69  74 69 6f 6e 22 2c 73 68  |aretPosition",sh|
00003f80  65 64 57 25 2c 43 25 2c  74 62 6c 6f 63 6b 25 21  |edW%,C%,tblock%!|
00003f90  38 2c 49 59 25 28 43 25  2c 33 29 2b 36 2c 74 62  |8,IY%(C%,3)+6,tb|
00003fa0  6c 6f 63 6b 25 21 31 36  2c a9 28 53 68 65 64 24  |lock%!16,.(Shed$|
00003fb0  28 43 73 68 65 64 25 2b  44 25 2c 43 25 2d 38 29  |(Cshed%+D%,C%-8)|
00003fc0  29 0d 17 de 40 20 20 20  20 20 20 20 20 20 20 20  |)...@           |
00003fd0  20 20 e7 20 43 73 68 65  64 25 3d 4e 73 68 65 64  |  . Cshed%=Nshed|
00003fe0  25 20 80 20 44 25 3d 31  20 80 20 4e 73 68 65 64  |% . D%=1 . Nshed|
00003ff0  25 3c 4d 61 78 52 65 63  25 20 8c 20 f2 6e 65 77  |%<MaxRec% . .new|
00004000  53 0d 17 e8 26 20 20 20  20 20 20 20 20 20 20 20  |S...&           |
00004010  20 20 e7 20 44 25 3c 3e  30 20 8c 20 f2 75 70 53  |  . D%<>0 . .upS|
00004020  68 65 64 28 44 25 29 0d  17 f2 11 20 20 20 20 20  |hed(D%)....     |
00004030  20 20 20 20 20 20 20 20  0d 17 fc 12 c9 20 65 78  |        ..... ex|
00004040  70 57 25 3a 20 20 f2 75  70 45 0d 18 06 33 20 20  |pW%:  .upE...3  |
00004050  20 20 20 20 20 20 20 20  20 20 20 c8 99 22 57 69  |           .."Wi|
00004060  6d 70 5f 47 65 74 43 61  72 65 74 50 6f 73 69 74  |mp_GetCaretPosit|
00004070  69 6f 6e 22 2c 2c 74 62  6c 6f 63 6b 25 0d 18 10  |ion",,tblock%...|
00004080  1d 20 20 20 20 20 20 20  20 20 20 20 20 20 43 25  |.             C%|
00004090  3d 74 62 6c 6f 63 6b 25  21 34 0d 18 1a 16 20 20  |=tblock%!4....  |
000040a0  20 20 20 20 20 20 20 20  20 20 20 43 25 2b 3d 31  |           C%+=1|
000040b0  0d 18 24 2b 20 20 20 20  20 20 20 20 20 20 20 20  |..$+            |
000040c0  20 e7 20 43 25 3e 31 32  20 8c 20 43 25 3d 38 3a  | . C%>12 . C%=8:|
000040d0  44 25 3d 31 20 8b 20 44  25 3d 30 0d 18 2e 6b 20  |D%=1 . D%=0...k |
000040e0  20 20 20 20 20 20 20 20  20 20 20 20 c8 99 22 57  |            .."W|
000040f0  69 6d 70 5f 53 65 74 43  61 72 65 74 50 6f 73 69  |imp_SetCaretPosi|
00004100  74 69 6f 6e 22 2c 65 78  70 57 25 2c 43 25 2c 74  |tion",expW%,C%,t|
00004110  62 6c 6f 63 6b 25 21 38  2c 49 59 25 28 43 25 2c  |block%!8,IY%(C%,|
00004120  32 29 2b 36 2c 74 62 6c  6f 63 6b 25 21 31 36 2c  |2)+6,tblock%!16,|
00004130  a9 28 45 78 70 24 28 43  65 78 70 25 2b 44 25 2c  |.(Exp$(Cexp%+D%,|
00004140  43 25 2d 38 29 29 0d 18  38 3d 20 20 20 20 20 20  |C%-8))..8=      |
00004150  20 20 20 20 20 20 20 e7  20 43 65 78 70 25 3d 4e  |       . Cexp%=N|
00004160  65 78 70 25 20 80 20 44  25 3d 31 20 80 20 4e 65  |exp% . D%=1 . Ne|
00004170  78 70 25 3c 4d 61 78 52  65 63 25 20 8c 20 f2 6e  |xp%<MaxRec% . .n|
00004180  65 77 45 0d 18 42 25 20  20 20 20 20 20 20 20 20  |ewE..B%         |
00004190  20 20 20 20 e7 20 44 25  3c 3e 30 20 8c 20 f2 75  |    . D%<>0 . .u|
000041a0  70 45 78 70 28 44 25 29  0d 18 4c 04 0d 18 56 05  |pExp(D%)..L...V.|
000041b0  7f 0d 18 60 06 ef 37 0d  18 6a 05 cb 0d 18 74 05  |...`..7..j....t.|
000041c0  cc 0d 18 7e 1d c8 99 22  57 69 6d 70 5f 50 72 6f  |...~..."Wimp_Pro|
000041d0  63 65 73 73 4b 65 79 22  2c 71 25 21 32 34 0d 18  |cessKey",q%!24..|
000041e0  88 05 cd 0d 18 92 05 e1  0d 18 9c 04 0d 18 a6 0a  |................|
000041f0  dd 20 f2 75 70 4d 0d 18  b0 47 e7 20 4d 65 6d 6f  |. .upM...G. Memo|
00004200  25 20 8c 20 4d 65 6d 24  28 43 6d 65 6d 25 29 3d  |% . Mem$(Cmem%)=|
00004210  a4 5f 47 65 74 49 63 6f  6e 28 31 2c 38 29 20 8b  |._GetIcon(1,8) .|
00004220  20 54 6f 44 6f 24 28 43  74 6f 64 6f 25 29 3d a4  | ToDo$(Ctodo%)=.|
00004230  5f 47 65 74 49 63 6f 6e  28 31 2c 38 29 0d 18 ba  |_GetIcon(1,8)...|
00004240  05 e1 0d 18 c4 04 0d 18  ce 0a dd 20 f2 75 70 54  |........... .upT|
00004250  0d 18 d8 20 54 65 6c 24  28 43 74 65 6c 25 2c 30  |... Tel$(Ctel%,0|
00004260  29 3d a4 5f 47 65 74 49  63 6f 6e 28 30 2c 38 29  |)=._GetIcon(0,8)|
00004270  0d 18 e2 20 54 65 6c 24  28 43 74 65 6c 25 2c 31  |... Tel$(Ctel%,1|
00004280  29 3d a4 5f 47 65 74 49  63 6f 6e 28 30 2c 39 29  |)=._GetIcon(0,9)|
00004290  0d 18 ec 21 54 65 6c 24  28 43 74 65 6c 25 2c 32  |...!Tel$(Ctel%,2|
000042a0  29 3d a4 5f 47 65 74 49  63 6f 6e 28 30 2c 31 30  |)=._GetIcon(0,10|
000042b0  29 0d 18 f6 21 54 65 6c  24 28 43 74 65 6c 25 2c  |)...!Tel$(Ctel%,|
000042c0  33 29 3d a4 5f 47 65 74  49 63 6f 6e 28 30 2c 31  |3)=._GetIcon(0,1|
000042d0  31 29 0d 19 00 21 54 65  6c 24 28 43 74 65 6c 25  |1)...!Tel$(Ctel%|
000042e0  2c 34 29 3d a4 5f 47 65  74 49 63 6f 6e 28 30 2c  |,4)=._GetIcon(0,|
000042f0  31 32 29 0d 19 0a 21 54  65 6c 24 28 43 74 65 6c  |12)...!Tel$(Ctel|
00004300  25 2c 35 29 3d a4 5f 47  65 74 49 63 6f 6e 28 30  |%,5)=._GetIcon(0|
00004310  2c 31 33 29 0d 19 14 05  e1 0d 19 1e 04 0d 19 28  |,13)...........(|
00004320  0a dd 20 f2 75 70 45 0d  19 32 20 45 78 70 24 28  |.. .upE..2 Exp$(|
00004330  43 65 78 70 25 2c 30 29  3d a4 5f 47 65 74 49 63  |Cexp%,0)=._GetIc|
00004340  6f 6e 28 32 2c 38 29 0d  19 3c 20 45 78 70 24 28  |on(2,8)..< Exp$(|
00004350  43 65 78 70 25 2c 31 29  3d a4 5f 47 65 74 49 63  |Cexp%,1)=._GetIc|
00004360  6f 6e 28 32 2c 39 29 0d  19 46 21 45 78 70 24 28  |on(2,9)..F!Exp$(|
00004370  43 65 78 70 25 2c 32 29  3d a4 5f 47 65 74 49 63  |Cexp%,2)=._GetIc|
00004380  6f 6e 28 32 2c 31 30 29  0d 19 50 21 45 78 70 24  |on(2,10)..P!Exp$|
00004390  28 43 65 78 70 25 2c 33  29 3d a4 5f 47 65 74 49  |(Cexp%,3)=._GetI|
000043a0  63 6f 6e 28 32 2c 31 31  29 0d 19 5a 21 45 78 70  |con(2,11)..Z!Exp|
000043b0  24 28 43 65 78 70 25 2c  34 29 3d a4 5f 47 65 74  |$(Cexp%,4)=._Get|
000043c0  49 63 6f 6e 28 32 2c 31  32 29 0d 19 64 3a e7 20  |Icon(2,12)..d:. |
000043d0  a9 28 45 78 70 24 28 43  65 78 70 25 2c 30 29 29  |.(Exp$(Cexp%,0))|
000043e0  3c 32 20 8c 20 45 78 70  24 28 43 65 78 70 25 2c  |<2 . Exp$(Cexp%,|
000043f0  30 29 3d 22 30 22 2b 45  78 70 24 28 43 65 78 70  |0)="0"+Exp$(Cexp|
00004400  25 2c 30 29 0d 19 6e 3a  e7 20 a9 28 45 78 70 24  |%,0)..n:. .(Exp$|
00004410  28 43 65 78 70 25 2c 31  29 29 3c 32 20 8c 20 45  |(Cexp%,1))<2 . E|
00004420  78 70 24 28 43 65 78 70  25 2c 31 29 3d 22 30 22  |xp$(Cexp%,1)="0"|
00004430  2b 45 78 70 24 28 43 65  78 70 25 2c 31 29 0d 19  |+Exp$(Cexp%,1)..|
00004440  78 05 e1 0d 19 82 04 0d  19 8c 0a dd 20 f2 75 70  |x........... .up|
00004450  53 0d 19 96 08 ea 20 41  25 0d 19 a0 0e e3 20 41  |S..... A%..... A|
00004460  25 3d 30 20 b8 20 34 0d  19 aa 26 53 68 65 64 24  |%=0 . 4...&Shed$|
00004470  28 43 73 68 65 64 25 2c  41 25 29 3d a4 5f 47 65  |(Cshed%,A%)=._Ge|
00004480  74 49 63 6f 6e 28 33 2c  41 25 2b 38 29 0d 19 b4  |tIcon(3,A%+8)...|
00004490  05 ed 0d 19 be 40 e7 20  a9 28 53 68 65 64 24 28  |.....@. .(Shed$(|
000044a0  43 73 68 65 64 25 2c 30  29 29 3c 32 20 8c 20 53  |Cshed%,0))<2 . S|
000044b0  68 65 64 24 28 43 73 68  65 64 25 2c 30 29 3d 22  |hed$(Cshed%,0)="|
000044c0  30 22 2b 53 68 65 64 24  28 43 73 68 65 64 25 2c  |0"+Shed$(Cshed%,|
000044d0  30 29 0d 19 c8 40 e7 20  a9 28 53 68 65 64 24 28  |0)...@. .(Shed$(|
000044e0  43 73 68 65 64 25 2c 31  29 29 3c 32 20 8c 20 53  |Cshed%,1))<2 . S|
000044f0  68 65 64 24 28 43 73 68  65 64 25 2c 31 29 3d 22  |hed$(Cshed%,1)="|
00004500  30 22 2b 53 68 65 64 24  28 43 73 68 65 64 25 2c  |0"+Shed$(Cshed%,|
00004510  31 29 0d 19 d2 1c 41 25  3d a7 53 68 65 64 24 28  |1)....A%=.Shed$(|
00004520  43 73 68 65 64 25 2c 33  29 2c 22 3a 22 29 0d 19  |Cshed%,3),":")..|
00004530  dc 47 e7 20 a9 28 53 68  65 64 24 28 43 73 68 65  |.G. .(Shed$(Cshe|
00004540  64 25 2c 33 29 29 3d 33  20 80 20 41 25 3d 31 20  |d%,3))=3 . A%=1 |
00004550  8c 53 68 65 64 24 28 43  73 68 65 64 25 2c 33 29  |.Shed$(Cshed%,3)|
00004560  3d 22 30 30 22 2b 53 68  65 64 24 28 43 73 68 65  |="00"+Shed$(Cshe|
00004570  64 25 2c 33 29 0d 19 e6  46 e7 20 a9 28 53 68 65  |d%,3)...F. .(She|
00004580  64 24 28 43 73 68 65 64  25 2c 33 29 29 3d 34 20  |d$(Cshed%,3))=4 |
00004590  80 20 41 25 3d 32 20 8c  53 68 65 64 24 28 43 73  |. A%=2 .Shed$(Cs|
000045a0  68 65 64 25 2c 33 29 3d  22 30 22 2b 53 68 65 64  |hed%,3)="0"+Shed|
000045b0  24 28 43 73 68 65 64 25  2c 33 29 0d 19 f0 1e e7  |$(Cshed%,3).....|
000045c0  20 a9 28 53 68 65 64 24  28 43 73 68 65 64 25 2c  | .(Shed$(Cshed%,|
000045d0  33 29 29 20 3d 20 35 20  8c 0d 19 fa 1d 41 25 3d  |3)) = 5 .....A%=|
000045e0  bb 28 c0 53 68 65 64 24  28 43 73 68 65 64 25 2c  |.(.Shed$(Cshed%,|
000045f0  33 29 2c 32 29 29 0d 1a  04 4b e7 20 41 25 3c 31  |3),2))...K. A%<1|
00004600  32 20 80 20 53 70 6d 25  28 43 73 68 65 64 25 29  |2 . Spm%(Cshed%)|
00004610  3d b9 20 8c 20 53 68 65  64 24 28 43 73 68 65 64  |=. . Shed$(Cshed|
00004620  25 2c 33 29 3d c3 28 41  25 2b 31 32 29 2b c2 53  |%,3)=.(A%+12)+.S|
00004630  68 65 64 24 28 43 73 68  65 64 25 2c 33 29 2c 33  |hed$(Cshed%,3),3|
00004640  29 0d 1a 0e 2d e7 20 41  25 3e 31 31 20 80 20 53  |)...-. A%>11 . S|
00004650  70 6d 25 28 43 73 68 65  64 25 29 3d a3 20 8c 20  |pm%(Cshed%)=. . |
00004660  53 70 6d 25 28 43 73 68  65 64 25 29 3d b9 0d 1a  |Spm%(Cshed%)=...|
00004670  18 05 cd 0d 1a 22 05 e1  0d 1a 2c 04 0d 1a 36 0c  |....."....,...6.|
00004680  dd 20 f2 73 61 76 65 54  0d 1a 40 0b ea 20 41 25  |. .saveT..@.. A%|
00004690  2c 42 25 0d 1a 4a 08 f2  75 70 54 0d 1a 54 0f e7  |,B%..J..upT..T..|
000046a0  20 45 78 70 6f 72 74 25  20 8c 0d 1a 5e 2b f2 65  | Export% ...^+.e|
000046b0  78 70 6f 72 74 53 28 22  4f 72 67 61 6e 69 73 65  |xportS("Organise|
000046c0  72 20 54 65 6c 65 70 68  6f 6e 65 20 4e 75 6d 62  |r Telephone Numb|
000046d0  65 72 73 22 29 0d 1a 68  13 f2 65 78 70 6f 72 74  |ers")..h..export|
000046e0  53 28 bd 28 26 41 29 29  0d 1a 72 13 f2 65 78 70  |S(.(&A))..r..exp|
000046f0  6f 72 74 53 28 bd 28 26  41 29 29 0d 1a 7c 14 e3  |ortS(.(&A))..|..|
00004700  20 41 25 20 3d 20 31 20  b8 20 4e 74 65 6c 25 0d  | A% = 1 . Ntel%.|
00004710  1a 86 10 e3 20 42 25 20  3d 20 30 20 b8 20 35 0d  |.... B% = 0 . 5.|
00004720  1a 90 1e e7 20 42 25 3d  33 20 8c 20 f2 65 78 70  |.... B%=3 . .exp|
00004730  6f 72 74 53 28 22 54 65  6c 2e 20 22 29 0d 1a 9a  |ortS("Tel. ")...|
00004740  1e e7 20 42 25 3d 34 20  8c 20 f2 65 78 70 6f 72  |.. B%=4 . .expor|
00004750  74 53 28 22 46 61 78 20  20 22 29 0d 1a a4 19 f2  |tS("Fax  ").....|
00004760  65 78 70 6f 72 74 53 28  54 65 6c 24 28 41 25 2c  |exportS(Tel$(A%,|
00004770  42 25 29 29 0d 1a ae 13  f2 65 78 70 6f 72 74 53  |B%)).....exportS|
00004780  28 bd 28 26 41 29 29 0d  1a b8 05 ed 0d 1a c2 13  |(.(&A)).........|
00004790  f2 65 78 70 6f 72 74 53  28 bd 28 26 41 29 29 0d  |.exportS(.(&A)).|
000047a0  1a cc 05 ed 0d 1a d6 05  cc 0d 1a e0 24 f1 23 46  |............$.#F|
000047b0  25 2c 4e 74 65 6c 25 20  20 3a f4 20 6e 75 6d 62  |%,Ntel%  :. numb|
000047c0  65 72 20 6f 66 20 6e 75  6d 62 65 72 73 0d 1a ea  |er of numbers...|
000047d0  14 e3 20 41 25 20 3d 20  31 20 b8 20 4e 74 65 6c  |.. A% = 1 . Ntel|
000047e0  25 0d 1a f4 10 e3 20 42  25 20 3d 20 30 20 b8 20  |%..... B% = 0 . |
000047f0  35 0d 1a fe 14 f1 23 46  25 2c 54 65 6c 24 28 41  |5.....#F%,Tel$(A|
00004800  25 2c 42 25 29 0d 1b 08  07 ed 3a ed 0d 1b 12 05  |%,B%).....:.....|
00004810  cd 0d 1b 1c 05 e1 0d 1b  26 04 0d 1b 30 0c dd 20  |........&...0.. |
00004820  f2 73 61 76 65 4d 0d 1b  3a 0b ea 20 41 25 2c 42  |.saveM..:.. A%,B|
00004830  25 0d 1b 44 08 f2 75 70  4d 0d 1b 4e 2e e7 20 4d  |%..D..upM..N.. M|
00004840  65 6d 6f 25 20 8c 20 41  25 3d 4e 6d 65 6d 25 20  |emo% . A%=Nmem% |
00004850  3a 42 25 3d 32 20 8b 20  41 25 3d 4e 74 6f 64 6f  |:B%=2 . A%=Ntodo|
00004860  25 20 3a 42 25 3d 33 0d  1b 58 0f e7 20 45 78 70  |% :B%=3..X.. Exp|
00004870  6f 72 74 25 20 8c 0d 1b  62 47 e7 20 4d 65 6d 6f  |ort% ...bG. Memo|
00004880  25 20 8c 20 f2 65 78 70  6f 72 74 53 28 22 4f 72  |% . .exportS("Or|
00004890  67 61 6e 69 73 65 72 20  4d 65 6d 6f 73 22 29 20  |ganiser Memos") |
000048a0  8b 20 f2 65 78 70 6f 72  74 53 28 22 4f 72 67 61  |. .exportS("Orga|
000048b0  6e 69 73 65 72 20 54 6f  20 44 6f 22 29 0d 1b 6c  |niser To Do")..l|
000048c0  13 f2 65 78 70 6f 72 74  53 28 bd 28 26 41 29 29  |..exportS(.(&A))|
000048d0  0d 1b 76 13 f2 65 78 70  6f 72 74 53 28 bd 28 26  |..v..exportS(.(&|
000048e0  41 29 29 0d 1b 80 0f e3  20 42 25 3d 31 20 b8 20  |A))..... B%=1 . |
000048f0  41 25 0d 1b 8a 36 e7 20  4d 65 6d 6f 25 20 8c 20  |A%...6. Memo% . |
00004900  f2 65 78 70 6f 72 74 53  28 4d 65 6d 24 28 42 25  |.exportS(Mem$(B%|
00004910  29 29 20 8b 20 f2 65 78  70 6f 72 74 53 28 54 6f  |)) . .exportS(To|
00004920  44 6f 24 28 42 25 29 29  0d 1b 94 23 f2 65 78 70  |Do$(B%))...#.exp|
00004930  6f 72 74 53 28 bd 28 26  41 29 29 3a f2 65 78 70  |ortS(.(&A)):.exp|
00004940  6f 72 74 53 28 bd 28 26  41 29 29 0d 1b 9e 05 ed  |ortS(.(&A)).....|
00004950  0d 1b a8 05 cc 0d 1b b2  0b d5 23 46 25 2c 42 25  |..........#F%,B%|
00004960  0d 1b bc 21 f1 23 46 25  2c 41 25 20 20 3a f4 20  |...!.#F%,A%  :. |
00004970  6e 75 6d 62 65 72 20 6f  66 20 6e 75 6d 62 65 72  |number of number|
00004980  73 0d 1b c6 11 e3 20 42  25 20 3d 20 31 20 b8 20  |s..... B% = 1 . |
00004990  41 25 0d 1b d0 2c e7 20  4d 65 6d 6f 25 20 8c 20  |A%...,. Memo% . |
000049a0  f1 23 46 25 2c 4d 65 6d  24 28 42 25 29 20 8b 20  |.#F%,Mem$(B%) . |
000049b0  f1 23 46 25 2c 54 6f 44  6f 24 28 42 25 29 0d 1b  |.#F%,ToDo$(B%)..|
000049c0  da 05 ed 0d 1b e4 05 cd  0d 1b ee 05 e1 0d 1b f8  |................|
000049d0  04 0d 1c 02 0c dd 20 f2  73 61 76 65 45 0d 1c 0c  |...... .saveE...|
000049e0  0e ea 20 41 25 2c 42 25  2c 72 24 0d 1c 16 08 f2  |.. A%,B%,r$.....|
000049f0  75 70 45 0d 1c 20 0f e7  20 45 78 70 6f 72 74 25  |upE.. .. Export%|
00004a00  20 8c 0d 1c 2a 22 f2 65  78 70 6f 72 74 53 28 22  | ...*".exportS("|
00004a10  4f 72 67 61 6e 69 73 65  72 20 45 78 70 65 6e 73  |Organiser Expens|
00004a20  65 73 22 29 0d 1c 34 13  f2 65 78 70 6f 72 74 53  |es")..4..exportS|
00004a30  28 bd 28 26 41 29 29 0d  1c 3e 13 f2 65 78 70 6f  |(.(&A))..>..expo|
00004a40  72 74 53 28 bd 28 26 41  29 29 0d 1c 48 14 e3 20  |rtS(.(&A))..H.. |
00004a50  41 25 20 3d 20 31 20 b8  20 4e 65 78 70 25 0d 1c  |A% = 1 . Nexp%..|
00004a60  52 36 f2 65 78 70 6f 72  74 53 28 45 78 70 24 28  |R6.exportS(Exp$(|
00004a70  41 25 2c 30 29 2b 22 2d  22 2b 45 78 70 24 28 41  |A%,0)+"-"+Exp$(A|
00004a80  25 2c 31 29 2b 22 2d 22  2b 45 78 70 24 28 41 25  |%,1)+"-"+Exp$(A%|
00004a90  2c 32 29 29 0d 1c 5c 13  f2 65 78 70 6f 72 74 53  |,2))..\..exportS|
00004aa0  28 bd 28 26 41 29 29 0d  1c 66 32 f2 65 78 70 6f  |(.(&A))..f2.expo|
00004ab0  72 74 53 28 45 74 79 70  65 24 28 45 78 70 25 28  |rtS(Etype$(Exp%(|
00004ac0  41 25 2c 30 29 29 2b 22  20 2d 20 a3 22 2b 45 78  |A%,0))+" - ."+Ex|
00004ad0  70 24 28 41 25 2c 34 29  29 0d 1c 70 13 f2 65 78  |p$(A%,4))..p..ex|
00004ae0  70 6f 72 74 53 28 bd 28  26 41 29 29 0d 1c 7a 33  |portS(.(&A))..z3|
00004af0  e7 20 45 78 70 25 28 41  25 2c 32 29 20 8c 20 72  |. Exp%(A%,2) . r|
00004b00  24 3d 22 20 72 65 63 69  65 70 74 22 20 8b 20 72  |$=" reciept" . r|
00004b10  24 3d 22 20 6e 6f 20 72  65 63 69 65 70 74 22 0d  |$=" no reciept".|
00004b20  1c 84 2e f2 65 78 70 6f  72 74 53 28 22 50 61 79  |....exportS("Pay|
00004b30  65 64 20 62 79 20 22 2b  45 70 61 79 24 28 45 78  |ed by "+Epay$(Ex|
00004b40  70 25 28 41 25 2c 31 29  29 2b 72 24 29 0d 1c 8e  |p%(A%,1))+r$)...|
00004b50  13 f2 65 78 70 6f 72 74  53 28 bd 28 26 41 29 29  |..exportS(.(&A))|
00004b60  0d 1c 98 18 f2 65 78 70  6f 72 74 53 28 45 78 70  |.....exportS(Exp|
00004b70  24 28 41 25 2c 33 29 29  0d 1c a2 23 f2 65 78 70  |$(A%,3))...#.exp|
00004b80  6f 72 74 53 28 bd 28 26  41 29 29 3a f2 65 78 70  |ortS(.(&A)):.exp|
00004b90  6f 72 74 53 28 bd 28 26  41 29 29 0d 1c ac 05 ed  |ortS(.(&A)).....|
00004ba0  0d 1c b6 05 cc 0d 1c c0  24 f1 23 46 25 2c 4e 65  |........$.#F%,Ne|
00004bb0  78 70 25 20 20 3a f4 20  6e 75 6d 62 65 72 20 6f  |xp%  :. number o|
00004bc0  66 20 6e 75 6d 62 65 72  73 0d 1c ca 14 e3 20 41  |f numbers..... A|
00004bd0  25 20 3d 20 31 20 b8 20  4e 65 78 70 25 0d 1c d4  |% = 1 . Nexp%...|
00004be0  10 e3 20 42 25 20 3d 20  30 20 b8 20 34 0d 1c de  |.. B% = 0 . 4...|
00004bf0  14 f1 23 46 25 2c 45 78  70 24 28 41 25 2c 42 25  |..#F%,Exp$(A%,B%|
00004c00  29 0d 1c e8 05 ed 0d 1c  f2 0e e3 20 42 25 3d 30  |).......... B%=0|
00004c10  20 b8 20 32 0d 1c fc 14  f1 23 46 25 2c 45 78 70  | . 2.....#F%,Exp|
00004c20  25 28 41 25 2c 42 25 29  0d 1d 06 07 ed 3a ed 0d  |%(A%,B%).....:..|
00004c30  1d 10 05 cd 0d 1d 1a 05  e1 0d 1d 24 04 0d 1d 2e  |...........$....|
00004c40  04 0d 1d 38 0c dd 20 f2  73 61 76 65 53 0d 1d 42  |...8.. .saveS..B|
00004c50  0e ea 20 41 25 2c 42 25  2c 74 24 0d 1d 4c 08 f2  |.. A%,B%,t$..L..|
00004c60  75 70 53 0d 1d 56 0f e7  20 45 78 70 6f 72 74 25  |upS..V.. Export%|
00004c70  20 8c 0d 1d 60 23 f2 65  78 70 6f 72 74 53 28 22  | ...`#.exportS("|
00004c80  4f 72 67 61 6e 69 73 65  72 20 53 63 68 65 64 75  |Organiser Schedu|
00004c90  6c 65 72 22 29 0d 1d 6a  13 f2 65 78 70 6f 72 74  |ler")..j..export|
00004ca0  53 28 bd 28 26 41 29 29  0d 1d 74 13 f2 65 78 70  |S(.(&A))..t..exp|
00004cb0  6f 72 74 53 28 bd 28 26  41 29 29 0d 1d 7e 15 e3  |ortS(.(&A))..~..|
00004cc0  20 41 25 20 3d 20 31 20  b8 20 4e 73 68 65 64 25  | A% = 1 . Nshed%|
00004cd0  0d 1d 88 24 e7 20 53 70  6d 25 28 41 25 29 20 8c  |...$. Spm%(A%) .|
00004ce0  20 74 24 3d 22 20 70 6d  22 20 8b 20 74 24 3d 22  | t$=" pm" . t$="|
00004cf0  20 61 6d 22 0d 1d 92 4d  f2 65 78 70 6f 72 74 53  | am"...M.exportS|
00004d00  28 53 68 65 64 24 28 41  25 2c 30 29 2b 22 2d 22  |(Shed$(A%,0)+"-"|
00004d10  2b 53 68 65 64 24 28 41  25 2c 31 29 2b 22 2d 22  |+Shed$(A%,1)+"-"|
00004d20  2b 53 68 65 64 24 28 41  25 2c 32 29 2b 22 20 20  |+Shed$(A%,2)+"  |
00004d30  22 2b 53 68 65 64 24 28  41 25 2c 33 29 2b 74 24  |"+Shed$(A%,3)+t$|
00004d40  29 0d 1d 9c 13 f2 65 78  70 6f 72 74 53 28 bd 28  |).....exportS(.(|
00004d50  26 41 29 29 0d 1d a6 19  f2 65 78 70 6f 72 74 53  |&A)).....exportS|
00004d60  28 53 68 65 64 24 28 41  25 2c 34 29 29 0d 1d b0  |(Shed$(A%,4))...|
00004d70  23 f2 65 78 70 6f 72 74  53 28 bd 28 26 41 29 29  |#.exportS(.(&A))|
00004d80  3a f2 65 78 70 6f 72 74  53 28 bd 28 26 41 29 29  |:.exportS(.(&A))|
00004d90  0d 1d ba 05 ed 0d 1d c4  05 cc 0d 1d ce 0a d5 23  |...............#|
00004da0  46 25 2c 31 0d 1d d8 0f  f1 23 46 25 2c 4e 73 68  |F%,1.....#F%,Nsh|
00004db0  65 64 25 0d 1d e2 13 e3  20 41 25 3d 31 20 b8 20  |ed%..... A%=1 . |
00004dc0  4e 73 68 65 64 25 0d 1d  ec 0e e3 20 42 25 3d 30  |Nshed%..... B%=0|
00004dd0  20 b8 20 34 0d 1d f6 15  f1 23 46 25 2c 53 68 65  | . 4.....#F%,She|
00004de0  64 24 28 41 25 2c 42 25  29 0d 1e 00 05 ed 0d 1e  |d$(A%,B%).......|
00004df0  0a 11 f1 23 46 25 2c 53  70 6d 25 28 41 25 29 0d  |...#F%,Spm%(A%).|
00004e00  1e 14 05 ed 0d 1e 1e 05  cd 0d 1e 28 05 e1 0d 1e  |...........(....|
00004e10  32 04 0d 1e 3c 10 dd 20  f2 6c 6f 61 64 54 28 6e  |2...<.. .loadT(n|
00004e20  24 29 0d 1e 46 0b ea 20  41 25 2c 42 25 0d 1e 50  |$)..F.. A%,B%..P|
00004e30  0c 46 25 3d 8e 28 6e 24  29 0d 1e 5a 0e e8 23 46  |.F%=.(n$)..Z..#F|
00004e40  25 2c 4e 74 65 6c 25 0d  1e 64 14 e3 20 41 25 20  |%,Ntel%..d.. A% |
00004e50  3d 20 31 20 b8 20 4e 74  65 6c 25 0d 1e 6e 10 e3  |= 1 . Ntel%..n..|
00004e60  20 42 25 20 3d 20 30 20  b8 20 35 0d 1e 78 14 e8  | B% = 0 . 5..x..|
00004e70  23 46 25 2c 54 65 6c 24  28 41 25 2c 42 25 29 0d  |#F%,Tel$(A%,B%).|
00004e80  1e 82 07 ed 3a ed 0d 1e  8c 08 d9 23 46 25 0d 1e  |....:......#F%..|
00004e90  96 0b 43 74 65 6c 25 3d  31 0d 1e a0 0d f2 75 70  |..Ctel%=1.....up|
00004ea0  54 65 6c 28 30 29 0d 1e  aa 16 f2 75 70 54 6f 74  |Tel(0).....upTot|
00004eb0  28 30 2c c3 28 4e 74 65  6c 25 29 29 0d 1e b4 05  |(0,.(Ntel%))....|
00004ec0  e1 0d 1e be 04 0d 1e c8  09 dd 20 f2 63 54 0d 1e  |.......... .cT..|
00004ed0  d2 0b ea 20 41 25 2c 42  25 0d 1e dc 10 e7 20 4e  |... A%,B%..... N|
00004ee0  74 65 6c 25 3c 3e 31 20  8c 0d 1e e6 18 e3 20 41  |tel%<>1 ...... A|
00004ef0  25 3d 43 74 65 6c 25 20  b8 20 4e 74 65 6c 25 2d  |%=Ctel% . Ntel%-|
00004f00  31 0d 1e f0 0e e3 20 42  25 3d 30 20 b8 20 35 0d  |1..... B%=0 . 5.|
00004f10  1e fa 1d 54 65 6c 24 28  41 25 2c 42 25 29 3d 54  |...Tel$(A%,B%)=T|
00004f20  65 6c 24 28 41 25 2b 31  2c 42 25 29 0d 1f 04 07  |el$(A%+1,B%)....|
00004f30  ed 3a ed 0d 1f 0e 0c 4e  74 65 6c 25 2d 3d 31 0d  |.:.....Ntel%-=1.|
00004f40  1f 18 0d f2 75 70 54 65  6c 28 30 29 0d 1f 22 16  |....upTel(0)..".|
00004f50  f2 75 70 54 6f 74 28 30  2c c3 28 4e 74 65 6c 25  |.upTot(0,.(Ntel%|
00004f60  29 29 0d 1f 2c 05 cc 0d  1f 36 06 ef 37 0d 1f 40  |))..,....6..7..@|
00004f70  05 cd 0d 1f 4a 05 e1 0d  1f 54 04 0d 1f 5e 10 dd  |....J....T...^..|
00004f80  20 f2 6c 6f 61 64 4d 28  6e 24 29 0d 1f 68 0b ea  | .loadM(n$)..h..|
00004f90  20 41 25 2c 42 25 0d 1f  72 08 f2 75 70 4d 0d 1f  | A%,B%..r..upM..|
00004fa0  7c 10 53 74 79 70 65 24  3d 22 30 35 42 22 0d 1f  ||.Stype$="05B"..|
00004fb0  86 0c 46 25 3d 8e 28 6e  24 29 0d 1f 90 0b 42 25  |..F%=.(n$)....B%|
00004fc0  3d 9a 23 46 25 0d 1f 9a  1e e7 20 42 25 3d 32 20  |=.#F%..... B%=2 |
00004fd0  8c 20 4d 65 6d 6f 25 3d  b9 20 8b 20 4d 65 6d 6f  |. Memo%=. . Memo|
00004fe0  25 3d a3 0d 1f a4 3b e7  20 4d 65 6d 6f 25 20 8c  |%=....;. Memo% .|
00004ff0  20 e8 23 46 25 2c 4e 6d  65 6d 25 20 3a 42 25 3d  | .#F%,Nmem% :B%=|
00005000  4e 6d 65 6d 25 20 8b 20  e8 23 46 25 2c 4e 74 6f  |Nmem% . .#F%,Nto|
00005010  64 6f 25 3a 20 42 25 3d  4e 74 6f 64 6f 25 0d 1f  |do%: B%=Ntodo%..|
00005020  ae 0f e3 20 41 25 3d 31  20 b8 20 42 25 0d 1f b8  |... A%=1 . B%...|
00005030  2c e7 20 4d 65 6d 6f 25  20 8c 20 e8 23 46 25 2c  |,. Memo% . .#F%,|
00005040  4d 65 6d 24 28 41 25 29  20 8b 20 e8 23 46 25 2c  |Mem$(A%) . .#F%,|
00005050  54 6f 44 6f 24 28 41 25  29 0d 1f c2 05 ed 0d 1f  |ToDo$(A%).......|
00005060  cc 08 d9 23 46 25 0d 1f  d6 15 f2 5f 73 70 75 74  |...#F%....._sput|
00005070  28 31 2c 37 2c c3 28 42  25 29 29 0d 1f e0 13 f2  |(1,7,.(B%)).....|
00005080  5f 73 70 75 74 28 31 2c  36 2c 22 31 22 29 0d 1f  |_sput(1,6,"1")..|
00005090  ea 0e f2 75 70 4d 62 75  74 28 31 29 0d 1f f4 05  |...upMbut(1)....|
000050a0  e1 0d 1f fe 04 0d 20 08  09 dd 20 f2 63 4d 0d 20  |...... ... .cM. |
000050b0  12 0b ea 20 41 25 2c 42  25 0d 20 1c 0d e7 20 4d  |... A%,B%. ... M|
000050c0  65 6d 6f 25 20 8c 0d 20  26 12 20 20 e7 20 4e 6d  |emo% .. &.  . Nm|
000050d0  65 6d 25 3c 3e 31 20 8c  0d 20 30 1a 20 20 e3 20  |em%<>1 .. 0.  . |
000050e0  41 25 3d 43 6d 65 6d 25  20 b8 20 4e 6d 65 6d 25  |A%=Cmem% . Nmem%|
000050f0  2d 31 0d 20 3a 19 20 20  4d 65 6d 24 28 41 25 29  |-1. :.  Mem$(A%)|
00005100  3d 4d 65 6d 24 28 41 25  2b 31 29 0d 20 44 07 20  |=Mem$(A%+1). D. |
00005110  20 ed 0d 20 4e 0e 20 20  4e 6d 65 6d 25 2d 3d 31  | .. N.  Nmem%-=1|
00005120  0d 20 58 1a 20 20 f2 5f  73 70 75 74 28 31 2c 37  |. X.  ._sput(1,7|
00005130  2c c3 28 4e 6d 65 6d 25  29 29 0d 20 62 10 20 20  |,.(Nmem%)). b.  |
00005140  f2 75 70 4d 62 75 74 28  30 29 0d 20 6c 07 20 20  |.upMbut(0). l.  |
00005150  cc 0d 20 76 08 20 20 ef  37 0d 20 80 07 20 20 cd  |.. v.  .7. ..  .|
00005160  0d 20 8a 05 cc 0d 20 94  13 20 20 e7 20 4e 74 6f  |. .... ..  . Nto|
00005170  64 6f 25 3c 3e 31 20 8c  0d 20 9e 1c 20 20 e3 20  |do%<>1 .. ..  . |
00005180  41 25 3d 43 74 6f 64 6f  25 20 b8 20 4e 74 6f 64  |A%=Ctodo% . Ntod|
00005190  6f 25 2d 31 0d 20 a8 1b  20 20 54 6f 44 6f 24 28  |o%-1. ..  ToDo$(|
000051a0  41 25 29 3d 54 6f 44 6f  24 28 41 25 2b 31 29 0d  |A%)=ToDo$(A%+1).|
000051b0  20 b2 07 20 20 ed 0d 20  bc 0f 20 20 4e 74 6f 64  | ..  .. ..  Ntod|
000051c0  6f 25 2d 3d 31 0d 20 c6  1b 20 20 f2 5f 73 70 75  |o%-=1. ..  ._spu|
000051d0  74 28 31 2c 37 2c c3 28  4e 74 6f 64 6f 25 29 29  |t(1,7,.(Ntodo%))|
000051e0  0d 20 d0 10 20 20 f2 75  70 4d 62 75 74 28 30 29  |. ..  .upMbut(0)|
000051f0  0d 20 da 07 20 20 cc 0d  20 e4 08 20 20 ef 37 0d  |. ..  .. ..  .7.|
00005200  20 ee 07 20 20 cd 0d 20  f8 05 cd 0d 21 02 05 e1  | ..  .. ....!...|
00005210  0d 21 0c 04 0d 21 16 10  dd 20 f2 6c 6f 61 64 45  |.!...!... .loadE|
00005220  28 6e 24 29 0d 21 20 0b  ea 20 41 25 2c 42 25 0d  |(n$).! .. A%,B%.|
00005230  21 2a 0c 46 25 3d 8e 28  6e 24 29 0d 21 34 0e e8  |!*.F%=.(n$).!4..|
00005240  23 46 25 2c 4e 65 78 70  25 0d 21 3e 12 e3 20 41  |#F%,Nexp%.!>.. A|
00005250  25 3d 31 20 b8 20 4e 65  78 70 25 0d 21 48 0e e3  |%=1 . Nexp%.!H..|
00005260  20 42 25 3d 30 20 b8 20  34 0d 21 52 14 e8 23 46  | B%=0 . 4.!R..#F|
00005270  25 2c 45 78 70 24 28 41  25 2c 42 25 29 0d 21 5c  |%,Exp$(A%,B%).!\|
00005280  05 ed 0d 21 66 0e e3 20  42 25 3d 30 20 b8 20 32  |...!f.. B%=0 . 2|
00005290  0d 21 70 14 e8 23 46 25  2c 45 78 70 25 28 41 25  |.!p..#F%,Exp%(A%|
000052a0  2c 42 25 29 0d 21 7a 05  ed 0d 21 84 05 ed 0d 21  |,B%).!z...!....!|
000052b0  8e 08 d9 23 46 25 0d 21  98 16 f2 75 70 54 6f 74  |...#F%.!...upTot|
000052c0  28 32 2c c3 28 4e 65 78  70 25 29 29 0d 21 a2 0b  |(2,.(Nexp%)).!..|
000052d0  43 65 78 70 25 3d 31 0d  21 ac 0d f2 75 70 45 78  |Cexp%=1.!...upEx|
000052e0  70 28 30 29 0d 21 b6 05  e1 0d 21 c0 04 0d 21 ca  |p(0).!....!...!.|
000052f0  09 dd 20 f2 63 45 0d 21  d4 0b ea 20 41 25 2c 42  |.. .cE.!... A%,B|
00005300  25 0d 21 de 10 e7 20 4e  65 78 70 25 3c 3e 31 20  |%.!... Nexp%<>1 |
00005310  8c 0d 21 e8 18 e3 20 41  25 3d 43 65 78 70 25 20  |..!... A%=Cexp% |
00005320  b8 20 4e 65 78 70 25 2d  31 0d 21 f2 0e e3 20 42  |. Nexp%-1.!... B|
00005330  25 3d 30 20 b8 20 34 0d  21 fc 1d 45 78 70 24 28  |%=0 . 4.!..Exp$(|
00005340  41 25 2c 42 25 29 3d 45  78 70 24 28 41 25 2b 31  |A%,B%)=Exp$(A%+1|
00005350  2c 42 25 29 0d 22 06 05  ed 0d 22 10 0e e3 20 42  |,B%)."...."... B|
00005360  25 3d 30 20 b8 20 32 0d  22 1a 1d 45 78 70 25 28  |%=0 . 2."..Exp%(|
00005370  41 25 2c 42 25 29 3d 45  78 70 25 28 41 25 2b 31  |A%,B%)=Exp%(A%+1|
00005380  2c 42 25 29 0d 22 24 05  ed 0d 22 2e 0c 4e 65 78  |,B%)."$..."..Nex|
00005390  70 25 2d 3d 31 0d 22 38  16 f2 75 70 54 6f 74 28  |p%-=1."8..upTot(|
000053a0  32 2c c3 28 4e 65 78 70  25 29 29 0d 22 42 0d f2  |2,.(Nexp%))."B..|
000053b0  75 70 45 78 70 28 30 29  0d 22 4c 05 cc 0d 22 56  |upExp(0)."L..."V|
000053c0  06 ef 37 0d 22 60 05 cd  0d 22 6a 05 e1 0d 22 74  |..7."`..."j..."t|
000053d0  04 0d 22 7e 10 dd 20 f2  6c 6f 61 64 53 28 6e 24  |.."~.. .loadS(n$|
000053e0  29 0d 22 88 0b ea 20 41  25 2c 42 25 0d 22 92 0c  |)."... A%,B%."..|
000053f0  46 25 3d 8e 28 6e 24 29  0d 22 9c 0b 42 25 3d 9a  |F%=.(n$)."..B%=.|
00005400  23 46 25 0d 22 a6 0f e8  23 46 25 2c 4e 73 68 65  |#F%."...#F%,Nshe|
00005410  64 25 0d 22 b0 13 e3 20  41 25 3d 31 20 b8 20 4e  |d%."... A%=1 . N|
00005420  73 68 65 64 25 0d 22 ba  0e e3 20 42 25 3d 30 20  |shed%."... B%=0 |
00005430  b8 20 34 0d 22 c4 15 e8  23 46 25 2c 53 68 65 64  |. 4."...#F%,Shed|
00005440  24 28 41 25 2c 42 25 29  0d 22 ce 05 ed 0d 22 d8  |$(A%,B%)."....".|
00005450  11 e8 23 46 25 2c 53 70  6d 25 28 41 25 29 0d 22  |..#F%,Spm%(A%)."|
00005460  e2 05 ed 0d 22 ec 08 d9  23 46 25 0d 22 f6 17 f2  |...."...#F%."...|
00005470  75 70 54 6f 74 28 33 2c  c3 28 4e 73 68 65 64 25  |upTot(3,.(Nshed%|
00005480  29 29 0d 23 00 0c 43 73  68 65 64 25 3d 31 0d 23  |)).#..Cshed%=1.#|
00005490  0a 0e f2 75 70 53 68 65  64 28 30 29 0d 23 14 05  |...upShed(0).#..|
000054a0  e1 0d 23 1e 04 0d 23 28  0c dd 20 f2 63 53 68 65  |..#...#(.. .cShe|
000054b0  64 0d 23 32 0b ea 20 41  25 2c 42 25 0d 23 3c 11  |d.#2.. A%,B%.#<.|
000054c0  e7 20 4e 73 68 65 64 25  3c 3e 31 20 8c 0d 23 46  |. Nshed%<>1 ..#F|
000054d0  1a e3 20 41 25 3d 43 73  68 65 64 25 20 b8 20 4e  |.. A%=Cshed% . N|
000054e0  73 68 65 64 25 2d 31 0d  23 50 0e e3 20 42 25 3d  |shed%-1.#P.. B%=|
000054f0  30 20 b8 20 34 0d 23 5a  1f 53 68 65 64 24 28 41  |0 . 4.#Z.Shed$(A|
00005500  25 2c 42 25 29 3d 53 68  65 64 24 28 41 25 2b 31  |%,B%)=Shed$(A%+1|
00005510  2c 42 25 29 0d 23 64 05  ed 0d 23 6e 17 53 70 6d  |,B%).#d...#n.Spm|
00005520  25 28 41 25 29 3d 53 70  6d 25 28 41 25 2b 31 29  |%(A%)=Spm%(A%+1)|
00005530  0d 23 78 05 ed 0d 23 82  0d 4e 73 68 65 64 25 2d  |.#x...#..Nshed%-|
00005540  3d 31 0d 23 8c 0e f2 75  70 53 68 65 64 28 30 29  |=1.#...upShed(0)|
00005550  0d 23 96 17 f2 75 70 54  6f 74 28 33 2c c3 28 4e  |.#...upTot(3,.(N|
00005560  73 68 65 64 25 29 29 0d  23 a0 05 cc 0d 23 aa 06  |shed%)).#....#..|
00005570  ef 37 0d 23 b4 05 cd 0d  23 be 05 e1 0d 23 c8 04  |.7.#....#....#..|
00005580  0d 23 d2 13 dd 20 f2 75  70 54 6f 74 28 77 25 2c  |.#... .upTot(w%,|
00005590  76 24 29 0d 23 dc 13 f2  5f 73 70 75 74 28 77 25  |v$).#..._sput(w%|
000055a0  2c 37 2c 76 24 29 0d 23  e6 4b c8 99 22 57 69 6d  |,7,v$).#.K.."Wim|
000055b0  70 5f 46 6f 72 63 65 52  65 64 72 61 77 22 2c 21  |p_ForceRedraw",!|
000055c0  57 6e 25 28 77 25 29 2c  49 58 25 28 37 2c 77 25  |Wn%(w%),IX%(7,w%|
000055d0  29 2c 49 59 25 28 37 2c  77 25 29 2c 49 58 31 25  |),IY%(7,w%),IX1%|
000055e0  28 37 2c 77 25 29 2c 49  59 31 25 28 37 2c 77 25  |(7,w%),IY1%(7,w%|
000055f0  29 0d 23 f0 05 e1 0d 23  fa 04 0d 24 04 0b dd 20  |).#....#...$... |
00005600  f2 75 70 54 6e 0d 24 0e  18 f2 5f 73 70 75 74 28  |.upTn.$..._sput(|
00005610  30 2c 37 2c c3 28 4e 74  65 6c 25 29 29 0d 24 18  |0,7,.(Ntel%)).$.|
00005620  46 c8 99 22 57 69 6d 70  5f 46 6f 72 63 65 52 65  |F.."Wimp_ForceRe|
00005630  64 72 61 77 22 2c 21 57  6e 25 28 30 29 2c 49 58  |draw",!Wn%(0),IX|
00005640  25 28 37 2c 30 29 2c 49  59 25 28 37 2c 30 29 2c  |%(7,0),IY%(7,0),|
00005650  49 58 31 25 28 37 2c 30  29 2c 49 59 31 25 28 37  |IX1%(7,0),IY1%(7|
00005660  2c 30 29 0d 24 22 05 e1  0d 24 2c 04 0d 24 36 10  |,0).$"...$,..$6.|
00005670  dd 20 f2 75 70 54 65 6c  28 69 25 29 0d 24 40 26  |. .upTel(i%).$@&|
00005680  c8 99 22 57 69 6d 70 5f  47 65 74 43 61 72 65 74  |.."Wimp_GetCaret|
00005690  50 6f 73 69 74 69 6f 6e  22 2c 2c 74 62 6c 6f 63  |Position",,tbloc|
000056a0  6b 25 0d 24 4a 0d 43 74  65 6c 25 2b 3d 69 25 0d  |k%.$J.Ctel%+=i%.|
000056b0  24 54 1f e7 20 43 74 65  6c 25 3e 4e 74 65 6c 25  |$T.. Ctel%>Ntel%|
000056c0  20 8c 20 43 74 65 6c 25  3d 4e 74 65 6c 25 0d 24  | . Ctel%=Ntel%.$|
000056d0  5e 17 e7 20 43 74 65 6c  25 3c 31 20 8c 20 43 74  |^.. Ctel%<1 . Ct|
000056e0  65 6c 25 3d 31 0d 24 68  0e e3 20 41 25 3d 30 20  |el%=1.$h.. A%=0 |
000056f0  b8 20 35 0d 24 72 21 f2  5f 73 70 75 74 28 30 2c  |. 5.$r!._sput(0,|
00005700  41 25 2b 38 2c 54 65 6c  24 28 43 74 65 6c 25 2c  |A%+8,Tel$(Ctel%,|
00005710  41 25 29 29 0d 24 7c 28  e7 20 74 62 6c 6f 63 6b  |A%)).$|(. tblock|
00005720  25 21 30 3d 74 65 6c 57  25 20 80 20 74 62 6c 6f  |%!0=telW% . tblo|
00005730  63 6b 25 21 34 3d 41 25  2b 38 20 8c 0d 24 86 5f  |ck%!4=A%+8 ..$._|
00005740  c8 99 22 57 69 6d 70 5f  53 65 74 43 61 72 65 74  |.."Wimp_SetCaret|
00005750  50 6f 73 69 74 69 6f 6e  22 2c 74 65 6c 57 25 2c  |Position",telW%,|
00005760  74 62 6c 6f 63 6b 25 21  34 2c 74 62 6c 6f 63 6b  |tblock%!4,tblock|
00005770  25 21 38 2c 74 62 6c 6f  63 6b 25 21 31 32 2c 74  |%!8,tblock%!12,t|
00005780  62 6c 6f 63 6b 25 21 31  36 2c a9 28 54 65 6c 24  |block%!16,.(Tel$|
00005790  28 43 74 65 6c 25 2c 41  25 29 29 0d 24 90 05 cd  |(Ctel%,A%)).$...|
000057a0  0d 24 9a 05 ed 0d 24 a4  18 f2 5f 73 70 75 74 28  |.$....$..._sput(|
000057b0  30 2c 36 2c c3 28 43 74  65 6c 25 29 29 0d 24 ae  |0,6,.(Ctel%)).$.|
000057c0  05 e1 0d 24 b8 04 0d 24  c2 11 dd 20 f2 75 70 53  |...$...$... .upS|
000057d0  68 65 64 28 69 25 29 0d  24 cc 26 c8 99 22 57 69  |hed(i%).$.&.."Wi|
000057e0  6d 70 5f 47 65 74 43 61  72 65 74 50 6f 73 69 74  |mp_GetCaretPosit|
000057f0  69 6f 6e 22 2c 2c 74 62  6c 6f 63 6b 25 0d 24 d6  |ion",,tblock%.$.|
00005800  0e 43 73 68 65 64 25 2b  3d 69 25 0d 24 e0 23 e7  |.Cshed%+=i%.$.#.|
00005810  20 43 73 68 65 64 25 3e  4e 73 68 65 64 25 20 8c  | Cshed%>Nshed% .|
00005820  20 43 73 68 65 64 25 3d  4e 73 68 65 64 25 0d 24  | Cshed%=Nshed%.$|
00005830  ea 19 e7 20 43 73 68 65  64 25 3c 31 20 8c 20 43  |... Cshed%<1 . C|
00005840  73 68 65 64 25 3d 31 0d  24 f4 0e e3 20 41 25 3d  |shed%=1.$... A%=|
00005850  30 20 b8 20 34 0d 24 fe  23 f2 5f 73 70 75 74 28  |0 . 4.$.#._sput(|
00005860  33 2c 41 25 2b 38 2c 53  68 65 64 24 28 43 73 68  |3,A%+8,Shed$(Csh|
00005870  65 64 25 2c 41 25 29 29  0d 25 08 29 e7 20 74 62  |ed%,A%)).%.). tb|
00005880  6c 6f 63 6b 25 21 30 3d  73 68 65 64 57 25 20 80  |lock%!0=shedW% .|
00005890  20 74 62 6c 6f 63 6b 25  21 34 3d 41 25 2b 38 20  | tblock%!4=A%+8 |
000058a0  8c 0d 25 12 62 c8 99 22  57 69 6d 70 5f 53 65 74  |..%.b.."Wimp_Set|
000058b0  43 61 72 65 74 50 6f 73  69 74 69 6f 6e 22 2c 73  |CaretPosition",s|
000058c0  68 65 64 57 25 2c 74 62  6c 6f 63 6b 25 21 34 2c  |hedW%,tblock%!4,|
000058d0  74 62 6c 6f 63 6b 25 21  38 2c 74 62 6c 6f 63 6b  |tblock%!8,tblock|
000058e0  25 21 31 32 2c 74 62 6c  6f 63 6b 25 21 31 36 2c  |%!12,tblock%!16,|
000058f0  a9 28 53 68 65 64 24 28  43 73 68 65 64 25 2c 41  |.(Shed$(Cshed%,A|
00005900  25 29 29 0d 25 1c 05 cd  0d 25 26 05 ed 0d 25 30  |%)).%....%&...%0|
00005910  19 f2 5f 73 70 75 74 28  33 2c 36 2c c3 28 43 73  |.._sput(3,6,.(Cs|
00005920  68 65 64 25 29 29 0d 25  3a 08 f2 5f 61 6d 0d 25  |hed%)).%:.._am.%|
00005930  44 05 e1 0d 25 4e 04 0d  25 58 10 dd 20 f2 75 70  |D...%N..%X.. .up|
00005940  45 78 70 28 69 25 29 0d  25 62 08 ea 20 41 25 0d  |Exp(i%).%b.. A%.|
00005950  25 6c 26 c8 99 22 57 69  6d 70 5f 47 65 74 43 61  |%l&.."Wimp_GetCa|
00005960  72 65 74 50 6f 73 69 74  69 6f 6e 22 2c 2c 74 62  |retPosition",,tb|
00005970  6c 6f 63 6b 25 0d 25 76  0d 43 65 78 70 25 2b 3d  |lock%.%v.Cexp%+=|
00005980  69 25 0d 25 80 1f e7 20  43 65 78 70 25 3e 4e 65  |i%.%... Cexp%>Ne|
00005990  78 70 25 20 8c 20 43 65  78 70 25 3d 4e 65 78 70  |xp% . Cexp%=Nexp|
000059a0  25 0d 25 8a 17 e7 20 43  65 78 70 25 3c 31 20 8c  |%.%... Cexp%<1 .|
000059b0  20 43 65 78 70 25 3d 31  0d 25 94 0e e3 20 41 25  | Cexp%=1.%... A%|
000059c0  3d 30 20 b8 20 34 0d 25  9e 21 f2 5f 73 70 75 74  |=0 . 4.%.!._sput|
000059d0  28 32 2c 41 25 2b 38 2c  45 78 70 24 28 43 65 78  |(2,A%+8,Exp$(Cex|
000059e0  70 25 2c 41 25 29 29 0d  25 a8 28 e7 20 74 62 6c  |p%,A%)).%.(. tbl|
000059f0  6f 63 6b 25 21 30 3d 65  78 70 57 25 20 80 20 74  |ock%!0=expW% . t|
00005a00  62 6c 6f 63 6b 25 21 34  3d 41 25 2b 38 20 8c 0d  |block%!4=A%+8 ..|
00005a10  25 b2 5f c8 99 22 57 69  6d 70 5f 53 65 74 43 61  |%._.."Wimp_SetCa|
00005a20  72 65 74 50 6f 73 69 74  69 6f 6e 22 2c 65 78 70  |retPosition",exp|
00005a30  57 25 2c 74 62 6c 6f 63  6b 25 21 34 2c 74 62 6c  |W%,tblock%!4,tbl|
00005a40  6f 63 6b 25 21 38 2c 74  62 6c 6f 63 6b 25 21 31  |ock%!8,tblock%!1|
00005a50  32 2c 74 62 6c 6f 63 6b  25 21 31 36 2c a9 28 45  |2,tblock%!16,.(E|
00005a60  78 70 24 28 43 65 78 70  25 2c 41 25 29 29 0d 25  |xp$(Cexp%,A%)).%|
00005a70  bc 05 cd 0d 25 c6 05 ed  0d 25 d0 18 f2 5f 73 70  |....%....%..._sp|
00005a80  75 74 28 32 2c 36 2c c3  28 43 65 78 70 25 29 29  |ut(2,6,.(Cexp%))|
00005a90  0d 25 da 40 e7 20 45 78  70 25 28 43 65 78 70 25  |.%.@. Exp%(Cexp%|
00005aa0  2c 32 29 20 8c 20 24 53  50 6f 69 6e 74 25 28 31  |,2) . $SPoint%(1|
00005ab0  37 2c 32 29 3d 22 79 65  73 22 20 8b 20 24 53 50  |7,2)="yes" . $SP|
00005ac0  6f 69 6e 74 25 28 31 37  2c 32 29 3d 22 6e 6f 22  |oint%(17,2)="no"|
00005ad0  0d 25 e4 28 24 53 50 6f  69 6e 74 25 28 31 33 2c  |.%.($SPoint%(13,|
00005ae0  32 29 3d 45 74 79 70 65  24 28 45 78 70 25 28 43  |2)=Etype$(Exp%(C|
00005af0  65 78 70 25 2c 30 29 29  0d 25 ee 27 24 53 50 6f  |exp%,0)).%.'$SPo|
00005b00  69 6e 74 25 28 31 34 2c  32 29 3d 45 70 61 79 24  |int%(14,2)=Epay$|
00005b10  28 45 78 70 25 28 43 65  78 70 25 2c 31 29 29 0d  |(Exp%(Cexp%,1)).|
00005b20  25 f8 4a c8 99 22 57 69  6d 70 5f 46 6f 72 63 65  |%.J.."Wimp_Force|
00005b30  52 65 64 72 61 77 22 2c  21 57 6e 25 28 32 29 2c  |Redraw",!Wn%(2),|
00005b40  49 58 25 28 31 37 2c 32  29 2c 49 59 25 28 31 37  |IX%(17,2),IY%(17|
00005b50  2c 32 29 2c 49 58 31 25  28 31 37 2c 32 29 2c 49  |,2),IX1%(17,2),I|
00005b60  59 31 25 28 31 37 2c 32  29 0d 26 02 4a c8 99 22  |Y1%(17,2).&.J.."|
00005b70  57 69 6d 70 5f 46 6f 72  63 65 52 65 64 72 61 77  |Wimp_ForceRedraw|
00005b80  22 2c 21 57 6e 25 28 32  29 2c 49 58 25 28 31 34  |",!Wn%(2),IX%(14|
00005b90  2c 32 29 2c 49 59 25 28  31 34 2c 32 29 2c 49 58  |,2),IY%(14,2),IX|
00005ba0  31 25 28 31 34 2c 32 29  2c 49 59 31 25 28 31 34  |1%(14,2),IY1%(14|
00005bb0  2c 32 29 0d 26 0c 4a c8  99 22 57 69 6d 70 5f 46  |,2).&.J.."Wimp_F|
00005bc0  6f 72 63 65 52 65 64 72  61 77 22 2c 21 57 6e 25  |orceRedraw",!Wn%|
00005bd0  28 32 29 2c 49 58 25 28  31 33 2c 32 29 2c 49 59  |(2),IX%(13,2),IY|
00005be0  25 28 31 33 2c 32 29 2c  49 58 31 25 28 31 33 2c  |%(13,2),IX1%(13,|
00005bf0  32 29 2c 49 59 31 25 28  31 33 2c 32 29 0d 26 16  |2),IY1%(13,2).&.|
00005c00  05 e1 0d 26 20 04 0d 26  2a 11 dd 20 f2 75 70 4d  |...& ..&*.. .upM|
00005c10  62 75 74 28 52 25 29 0d  26 34 08 ea 20 4c 25 0d  |but(R%).&4.. L%.|
00005c20  26 3e 0d e7 20 4d 65 6d  6f 25 20 8c 0d 26 48 1b  |&>.. Memo% ..&H.|
00005c30  24 53 50 6f 69 6e 74 25  28 39 2c 31 29 3d 22 72  |$SPoint%(9,1)="r|
00005c40  61 64 69 6f 6f 6e 22 0d  26 52 1d 24 53 50 6f 69  |adioon".&R.$SPoi|
00005c50  6e 74 25 28 31 30 2c 31  29 3d 22 72 61 64 69 6f  |nt%(10,1)="radio|
00005c60  6f 66 66 22 0d 26 5c 20  e7 20 52 25 3d 30 20 8c  |off".&\ . R%=0 .|
00005c70  20 43 6d 65 6d 25 3d 4e  6d 65 6d 25 3a f2 6d 75  | Cmem%=Nmem%:.mu|
00005c80  70 28 30 29 0d 26 66 1b  f2 5f 73 70 75 74 28 31  |p(0).&f.._sput(1|
00005c90  2c 38 2c 4d 65 6d 24 28  43 6d 65 6d 25 29 29 0d  |,8,Mem$(Cmem%)).|
00005ca0  26 70 15 4c 25 3d a9 28  4d 65 6d 24 28 43 6d 65  |&p.L%=.(Mem$(Cme|
00005cb0  6d 25 29 29 0d 26 7a 05  cc 0d 26 84 1c 24 53 50  |m%)).&z...&..$SP|
00005cc0  6f 69 6e 74 25 28 31 30  2c 31 29 3d 22 72 61 64  |oint%(10,1)="rad|
00005cd0  69 6f 6f 6e 22 0d 26 8e  1c 24 53 50 6f 69 6e 74  |ioon".&..$SPoint|
00005ce0  25 28 39 2c 31 29 3d 22  72 61 64 69 6f 6f 66 66  |%(9,1)="radiooff|
00005cf0  22 0d 26 98 22 e7 20 52  25 3d 30 20 8c 20 43 74  |".&.". R%=0 . Ct|
00005d00  6f 64 6f 25 3d 4e 74 6f  64 6f 25 3a f2 6d 75 70  |odo%=Ntodo%:.mup|
00005d10  28 30 29 0d 26 a2 1d f2  5f 73 70 75 74 28 31 2c  |(0).&..._sput(1,|
00005d20  38 2c 54 6f 44 6f 24 28  43 74 6f 64 6f 25 29 29  |8,ToDo$(Ctodo%))|
00005d30  0d 26 ac 17 4c 25 3d a9  28 54 6f 44 6f 24 28 43  |.&..L%=.(ToDo$(C|
00005d40  74 6f 64 6f 25 29 29 0d  26 b6 05 cd 0d 26 c0 26  |todo%)).&....&.&|
00005d50  c8 99 22 57 69 6d 70 5f  47 65 74 43 61 72 65 74  |.."Wimp_GetCaret|
00005d60  50 6f 73 69 74 69 6f 6e  22 2c 2c 74 62 6c 6f 63  |Position",,tbloc|
00005d70  6b 25 0d 26 ca 26 e7 20  74 62 6c 6f 63 6b 25 21  |k%.&.&. tblock%!|
00005d80  30 3d 6d 65 6d 6f 57 25  20 80 20 74 62 6c 6f 63  |0=memoW% . tbloc|
00005d90  6b 25 21 34 3d 38 20 8c  0d 26 d4 51 c8 99 22 57  |k%!4=8 ..&.Q.."W|
00005da0  69 6d 70 5f 53 65 74 43  61 72 65 74 50 6f 73 69  |imp_SetCaretPosi|
00005db0  74 69 6f 6e 22 2c 6d 65  6d 6f 57 25 2c 74 62 6c  |tion",memoW%,tbl|
00005dc0  6f 63 6b 25 21 34 2c 74  62 6c 6f 63 6b 25 21 38  |ock%!4,tblock%!8|
00005dd0  2c 74 62 6c 6f 63 6b 25  21 31 32 2c 74 62 6c 6f  |,tblock%!12,tblo|
00005de0  63 6b 25 21 31 36 2c 4c  25 0d 26 de 05 cd 0d 26  |ck%!16,L%.&....&|
00005df0  e8 4a c8 99 22 57 69 6d  70 5f 46 6f 72 63 65 52  |.J.."Wimp_ForceR|
00005e00  65 64 72 61 77 22 2c 21  57 6e 25 28 31 29 2c 49  |edraw",!Wn%(1),I|
00005e10  58 25 28 31 30 2c 31 29  2c 49 59 25 28 31 30 2c  |X%(10,1),IY%(10,|
00005e20  31 29 2c 49 58 31 25 28  31 30 2c 31 29 2c 49 59  |1),IX1%(10,1),IY|
00005e30  31 25 28 31 30 2c 31 29  0d 26 f2 46 c8 99 22 57  |1%(10,1).&.F.."W|
00005e40  69 6d 70 5f 46 6f 72 63  65 52 65 64 72 61 77 22  |imp_ForceRedraw"|
00005e50  2c 21 57 6e 25 28 31 29  2c 49 58 25 28 39 2c 31  |,!Wn%(1),IX%(9,1|
00005e60  29 2c 49 59 25 28 39 2c  31 29 2c 49 58 31 25 28  |),IY%(9,1),IX1%(|
00005e70  39 2c 31 29 2c 49 59 31  25 28 39 2c 31 29 0d 26  |9,1),IY1%(9,1).&|
00005e80  fc 49 f4 20 53 59 53 22  57 69 6d 70 5f 46 6f 72  |.I. SYS"Wimp_For|
00005e90  63 65 52 65 64 72 61 77  22 2c 21 57 6e 25 28 31  |ceRedraw",!Wn%(1|
00005ea0  29 2c 49 58 25 28 38 2c  31 29 2c 49 59 25 28 38  |),IX%(8,1),IY%(8|
00005eb0  2c 31 29 2c 49 58 31 25  28 38 2c 31 29 2c 49 59  |,1),IX1%(8,1),IY|
00005ec0  31 25 28 38 2c 31 29 0d  27 06 05 e1 0d 27 10 04  |1%(8,1).'....'..|
00005ed0  0d 27 1a 0e dd a4 73 67  65 74 28 78 25 29 0d 27  |.'....sget(x%).'|
00005ee0  24 08 ea 20 78 24 0d 27  2e 21 c8 95 20 3f 78 25  |$.. x$.'.!.. ?x%|
00005ef0  3e 26 31 46 20 78 24 2b  3d bd 28 3f 78 25 29 3a  |>&1F x$+=.(?x%):|
00005f00  78 25 2b 3d 31 3a ce 0d  27 38 07 3d 78 24 0d 27  |x%+=1:..'8.=x$.'|
00005f10  42 04 0d 27 4c 0f dd a4  70 67 28 6e 25 2c 57 25  |B..'L...pg(n%,W%|
00005f20  29 0d 27 56 08 ea 20 41  24 0d 27 60 1b 41 24 3d  |).'V.. A$.'`.A$=|
00005f30  a4 73 67 65 74 28 53 50  6f 69 6e 74 25 28 6e 25  |.sget(SPoint%(n%|
00005f40  2c 57 29 29 0d 27 6a 0a  3d bb 28 41 24 29 0d 27  |,W)).'j.=.(A$).'|
00005f50  74 04 0d 27 7e 17 dd 20  a4 5f 47 65 74 49 63 6f  |t..'~.. ._GetIco|
00005f60  6e 28 57 25 2c 49 6e 25  29 0d 27 88 0e ea 20 54  |n(W%,In%).'... T|
00005f70  25 2c 41 25 2c 52 24 0d  27 92 1d 52 24 3d a4 73  |%,A%,R$.'..R$=.s|
00005f80  67 65 74 28 53 50 6f 69  6e 74 25 28 49 6e 25 2c  |get(SPoint%(In%,|
00005f90  57 25 29 29 0d 27 9c 07  3d 52 24 0d 27 a6 04 0d  |W%)).'..=R$.'...|
00005fa0  27 b0 17 dd 20 f2 5f 73  70 75 74 28 57 25 2c 49  |'... ._sput(W%,I|
00005fb0  6e 25 2c 58 24 29 0d 27  ba 0b ea 20 41 25 2c 78  |n%,X$).'... A%,x|
00005fc0  25 0d 27 c4 16 78 25 3d  53 50 6f 69 6e 74 25 28  |%.'..x%=SPoint%(|
00005fd0  49 6e 25 2c 57 25 29 0d  27 ce 08 41 25 3d 31 0d  |In%,W%).'..A%=1.|
00005fe0  27 d8 10 e7 20 a9 28 58  24 29 3c 3e 30 20 8c 0d  |'... .(X$)<>0 ..|
00005ff0  27 e2 14 c8 95 20 41 25  3c 3e 28 a9 28 58 24 29  |'.... A%<>(.(X$)|
00006000  2b 31 29 0d 27 ec 14 3f  78 25 3d 97 28 c1 58 24  |+1).'..?x%=.(.X$|
00006010  2c 41 25 2c 31 29 29 0d  27 f6 09 78 25 2b 3d 31  |,A%,1)).'..x%+=1|
00006020  0d 28 00 09 41 25 2b 3d  31 0d 28 0a 05 ce 0d 28  |.(..A%+=1.(....(|
00006030  14 05 cd 0d 28 1e 09 3f  78 25 3d 30 0d 28 28 53  |....(..?x%=0.((S|
00006040  c8 99 22 57 69 6d 70 5f  46 6f 72 63 65 52 65 64  |.."Wimp_ForceRed|
00006050  72 61 77 22 2c 21 57 6e  25 28 57 25 29 2c 49 58  |raw",!Wn%(W%),IX|
00006060  25 28 49 6e 25 2c 57 25  29 2c 49 59 25 28 49 6e  |%(In%,W%),IY%(In|
00006070  25 2c 57 25 29 2c 49 58  31 25 28 49 6e 25 2c 57  |%,W%),IX1%(In%,W|
00006080  25 29 2c 49 59 31 25 28  49 6e 25 2c 57 25 29 0d  |%),IY1%(In%,W%).|
00006090  28 32 05 e1 0d 28 3c 04  0d 28 46 0b dd 20 f2 69  |(2...(<..(F.. .i|
000060a0  6e 69 74 0d 28 50 0b ea  20 41 25 2c 42 25 0d 28  |nit.(P.. A%,B%.(|
000060b0  5a 12 54 6f 46 69 6c 65  24 3d 22 54 6f 44 6f 22  |Z.ToFile$="ToDo"|
000060c0  0d 28 64 13 4d 65 6d 46  69 6c 65 24 3d 22 4d 65  |.(d.MemFile$="Me|
000060d0  6d 6f 22 0d 28 6e 12 54  65 6c 46 69 6c 65 24 3d  |mo".(n.TelFile$=|
000060e0  22 54 65 6c 22 0d 28 78  12 45 78 70 46 69 6c 65  |"Tel".(x.ExpFile|
000060f0  24 3d 22 45 78 70 22 0d  28 82 14 53 68 65 64 46  |$="Exp".(..ShedF|
00006100  69 6c 65 24 3d 22 53 68  65 64 22 0d 28 8c 0e e3  |ile$="Shed".(...|
00006110  20 41 25 3d 30 20 b8 20  35 0d 28 96 12 54 65 6c  | A%=0 . 5.(..Tel|
00006120  24 28 31 2c 41 25 29 3d  22 20 22 0d 28 a0 05 ed  |$(1,A%)=" ".(...|
00006130  0d 28 aa 14 e3 20 41 25  3d 31 20 b8 20 4d 61 78  |.(... A%=1 . Max|
00006140  52 65 63 25 0d 28 b4 0f  4d 65 6d 24 28 41 25 29  |Rec%.(..Mem$(A%)|
00006150  3d 22 22 0d 28 be 10 54  6f 44 6f 24 28 41 25 29  |="".(..ToDo$(A%)|
00006160  3d 22 22 0d 28 c8 0e 53  70 6d 25 28 41 25 29 3d  |="".(..Spm%(A%)=|
00006170  a3 0d 28 d2 0e e3 20 42  25 3d 30 20 b8 20 34 0d  |..(... B%=0 . 4.|
00006180  28 dc 13 53 68 65 64 24  28 41 25 2c 42 25 29 3d  |(..Shed$(A%,B%)=|
00006190  22 22 0d 28 e6 05 ed 0d  28 f0 0e e3 20 42 25 3d  |"".(....(... B%=|
000061a0  30 20 b8 20 32 0d 28 fa  12 45 78 70 24 28 41 25  |0 . 2.(..Exp$(A%|
000061b0  2c 42 25 29 3d 22 22 0d  29 04 11 45 78 70 25 28  |,B%)="".)..Exp%(|
000061c0  41 25 2c 42 25 29 3d 31  0d 29 0e 05 ed 0d 29 18  |A%,B%)=1.)....).|
000061d0  11 45 78 70 24 28 41 25  2c 33 29 3d 22 22 0d 29  |.Exp$(A%,3)="".)|
000061e0  22 05 ed 0d 29 2c 0e e3  20 41 25 3d 31 20 b8 20  |"...),.. A%=1 . |
000061f0  34 0d 29 36 0f f3 20 45  70 61 79 24 28 41 25 29  |4.)6.. Epay$(A%)|
00006200  0d 29 40 05 ed 0d 29 4a  0b f2 65 78 70 63 61 74  |.)@...)J..expcat|
00006210  0d 29 54 0a f2 69 6d 73  65 74 0d 29 5e 1c dc 20  |.)T..imset.)^.. |
00006220  43 61 73 68 2c 43 68 65  71 75 65 2c 43 61 72 64  |Cash,Cheque,Card|
00006230  2c 4f 74 68 65 72 0d 29  68 05 e1 0d 29 72 04 0d  |,Other.)h...)r..|
00006240  29 7c 0d dd 20 f2 65 78  70 63 61 74 0d 29 86 0e  |)|.. .expcat.)..|
00006250  ea 20 41 25 2c 42 25 2c  46 25 0d 29 90 1c 46 25  |. A%,B%,F%.)..F%|
00006260  3d 8e 28 22 3c 4f 52 47  24 44 69 72 3e 2e 45 78  |=.("<ORG$Dir>.Ex|
00006270  70 43 61 74 22 29 0d 29  9a 08 41 25 3d 31 0d 29  |pCat").)..A%=1.)|
00006280  a4 05 f5 0d 29 ae 11 45  74 79 70 65 24 28 41 25  |....)..Etype$(A%|
00006290  29 3d 22 22 0d 29 b8 05  f5 0d 29 c2 0b 42 25 3d  |)="".)....)..B%=|
000062a0  9a 23 46 25 0d 29 cc 2a  e7 20 42 25 3e 26 31 46  |.#F%.).*. B%>&1F|
000062b0  20 8c 20 45 74 79 70 65  24 28 41 25 29 3d 45 74  | . Etype$(A%)=Et|
000062c0  79 70 65 24 28 41 25 29  2b bd 28 42 25 29 0d 29  |ype$(A%)+.(B%).)|
000062d0  d6 0c fd 20 42 25 3c 26  32 30 0d 29 e0 09 41 25  |... B%<&20.)..A%|
000062e0  2b 3d 31 0d 29 ea 0a fd  20 41 25 3d 39 0d 29 f4  |+=1.)... A%=9.).|
000062f0  08 d9 23 46 25 0d 29 fe  05 e1 0d 2a 08 04 0d 2a  |..#F%.)....*...*|
00006300  12 0c dd 20 f2 69 6d 73  65 74 0d 2a 1c 0b ea 20  |... .imset.*... |
00006310  41 25 2c 42 25 0d 2a 26  0e e3 20 41 25 3d 30 20  |A%,B%.*&.. A%=0 |
00006320  b8 20 37 0d 2a 30 22 24  28 54 79 70 65 4d 25 2b  |. 7.*0"$(TypeM%+|
00006330  28 41 25 2a 32 35 29 29  3d 45 74 79 70 65 24 28  |(A%*25))=Etype$(|
00006340  41 25 2b 31 29 0d 2a 3a  05 ed 0d 2a 44 0e e3 20  |A%+1).*:...*D.. |
00006350  41 25 3d 30 20 b8 20 33  0d 2a 4e 20 24 28 50 61  |A%=0 . 3.*N $(Pa|
00006360  79 4d 25 2b 28 41 25 2a  32 35 29 29 3d 45 70 61  |yM%+(A%*25))=Epa|
00006370  79 24 28 41 25 2b 31 29  0d 2a 58 05 ed 0d 2a 62  |y$(A%+1).*X...*b|
00006380  14 24 43 6f 6d 6d 65 6e  75 25 3d 22 54 79 70 65  |.$Commenu%="Type|
00006390  22 0d 2a 6c 11 43 6f 6d  6d 65 6e 75 25 3f 31 32  |".*l.Commenu%?12|
000063a0  3d 37 0d 2a 76 11 43 6f  6d 6d 65 6e 75 25 3f 31  |=7.*v.Commenu%?1|
000063b0  33 3d 32 0d 2a 80 11 43  6f 6d 6d 65 6e 75 25 3f  |3=2.*..Commenu%?|
000063c0  31 34 3d 37 0d 2a 8a 11  43 6f 6d 6d 65 6e 75 25  |14=7.*..Commenu%|
000063d0  3f 31 35 3d 30 0d 2a 94  13 43 6f 6d 6d 65 6e 75  |?15=0.*..Commenu|
000063e0  25 21 31 36 3d 32 38 38  0d 2a 9e 12 43 6f 6d 6d  |%!16=288.*..Comm|
000063f0  65 6e 75 25 21 32 30 3d  34 30 0d 2a a8 11 43 6f  |enu%!20=40.*..Co|
00006400  6d 6d 65 6e 75 25 21 32  34 3d 30 0d 2a b2 12 6d  |mmenu%!24=0.*..m|
00006410  25 3d 43 6f 6d 6d 65 6e  75 25 2b 32 38 0d 2a bc  |%=Commenu%+28.*.|
00006420  04 0d 2a c6 0e e3 20 41  25 3d 30 20 b8 20 37 0d  |..*... A%=0 . 7.|
00006430  2a d0 0a 6d 25 21 30 3d  30 0d 2a da 0a 6d 25 21  |*..m%!0=0.*..m%!|
00006440  34 3d 30 0d 2a e4 1c 6d  25 21 38 3d 28 37 3c 3c  |4=0.*..m%!8=(7<<|
00006450  32 34 29 84 20 25 31 30  30 30 31 30 30 30 31 0d  |24). %100010001.|
00006460  2a ee 18 6d 25 21 31 32  3d 54 79 70 65 4d 25 2b  |*..m%!12=TypeM%+|
00006470  28 41 25 2a 32 35 29 0d  2a f8 0b 6d 25 21 31 36  |(A%*25).*..m%!16|
00006480  3d 30 0d 2b 02 0c 6d 25  21 32 30 3d 32 35 0d 2b  |=0.+..m%!20=25.+|
00006490  0c 0a 6d 25 2b 3d 32 34  0d 2b 16 05 ed 0d 2b 20  |..m%+=24.+....+ |
000064a0  0a 6d 25 2d 3d 32 34 0d  2b 2a 0c 6d 25 21 30 3d  |.m%-=24.+*.m%!0=|
000064b0  26 38 30 0d 2b 34 04 0d  2b 3e 16 24 43 6f 6d 65  |&80.+4..+>.$Come|
000064c0  6e 75 25 3d 22 50 61 79  6d 65 6e 74 22 0d 2b 48  |nu%="Payment".+H|
000064d0  10 43 6f 6d 65 6e 75 25  3f 31 32 3d 37 0d 2b 52  |.Comenu%?12=7.+R|
000064e0  10 43 6f 6d 65 6e 75 25  3f 31 33 3d 32 0d 2b 5c  |.Comenu%?13=2.+\|
000064f0  10 43 6f 6d 65 6e 75 25  3f 31 34 3d 37 0d 2b 66  |.Comenu%?14=7.+f|
00006500  10 43 6f 6d 65 6e 75 25  3f 31 35 3d 30 0d 2b 70  |.Comenu%?15=0.+p|
00006510  12 43 6f 6d 65 6e 75 25  21 31 36 3d 32 38 38 0d  |.Comenu%!16=288.|
00006520  2b 7a 11 43 6f 6d 65 6e  75 25 21 32 30 3d 34 30  |+z.Comenu%!20=40|
00006530  0d 2b 84 10 43 6f 6d 65  6e 75 25 21 32 34 3d 30  |.+..Comenu%!24=0|
00006540  0d 2b 8e 11 6d 25 3d 43  6f 6d 65 6e 75 25 2b 32  |.+..m%=Comenu%+2|
00006550  38 0d 2b 98 04 0d 2b a2  0e e3 20 41 25 3d 30 20  |8.+...+... A%=0 |
00006560  b8 20 33 0d 2b ac 0a 6d  25 21 30 3d 30 0d 2b b6  |. 3.+..m%!0=0.+.|
00006570  0a 6d 25 21 34 3d 30 0d  2b c0 1c 6d 25 21 38 3d  |.m%!4=0.+..m%!8=|
00006580  28 37 3c 3c 32 34 29 84  20 25 31 30 30 30 31 30  |(7<<24). %100010|
00006590  30 30 31 0d 2b ca 17 6d  25 21 31 32 3d 50 61 79  |001.+..m%!12=Pay|
000065a0  4d 25 2b 28 41 25 2a 32  35 29 0d 2b d4 0b 6d 25  |M%+(A%*25).+..m%|
000065b0  21 31 36 3d 30 0d 2b de  0c 6d 25 21 32 30 3d 32  |!16=0.+..m%!20=2|
000065c0  35 0d 2b e8 0a 6d 25 2b  3d 32 34 0d 2b f2 05 ed  |5.+..m%+=24.+...|
000065d0  0d 2b fc 0a 6d 25 2d 3d  32 34 0d 2c 06 0c 6d 25  |.+..m%-=24.,..m%|
000065e0  21 30 3d 26 38 30 0d 2c  10 04 0d 2c 1a 05 e1 0d  |!0=&80.,...,....|
000065f0  2c 24 04 0d 2c 2e 0b dd  20 f2 6e 65 77 54 0d 2c  |,$..,... .newT.,|
00006600  38 08 ea 20 41 25 0d 2c  42 1f 4e 74 65 6c 25 2b  |8.. A%.,B.Ntel%+|
00006610  3d 31 3a f2 75 70 54 6f  74 28 30 2c c3 28 4e 74  |=1:.upTot(0,.(Nt|
00006620  65 6c 25 29 29 0d 2c 4c  0e e3 20 41 25 3d 30 20  |el%)).,L.. A%=0 |
00006630  b8 20 35 0d 2c 56 15 54  65 6c 24 28 4e 74 65 6c  |. 5.,V.Tel$(Ntel|
00006640  25 2c 41 25 29 3d 22 22  0d 2c 60 05 ed 0d 2c 6a  |%,A%)="".,`...,j|
00006650  05 e1 0d 2c 74 04 0d 2c  7e 0b dd 20 f2 6e 65 77  |...,t..,~.. .new|
00006660  53 0d 2c 88 08 ea 20 41  25 0d 2c 92 21 4e 73 68  |S.,... A%.,.!Nsh|
00006670  65 64 25 2b 3d 31 3a f2  75 70 54 6f 74 28 33 2c  |ed%+=1:.upTot(3,|
00006680  c3 28 4e 73 68 65 64 25  29 29 0d 2c 9c 0e e3 20  |.(Nshed%)).,... |
00006690  41 25 3d 30 20 b8 20 34  0d 2c a6 17 53 68 65 64  |A%=0 . 4.,..Shed|
000066a0  24 28 4e 73 68 65 64 25  2c 41 25 29 3d 22 22 0d  |$(Nshed%,A%)="".|
000066b0  2c b0 05 ed 0d 2c ba 1f  53 70 6d 25 28 4e 73 68  |,....,..Spm%(Nsh|
000066c0  65 64 25 29 3d 53 70 6d  25 28 4e 73 68 65 64 25  |ed%)=Spm%(Nshed%|
000066d0  2d 31 29 0d 2c c4 05 e1  0d 2c ce 04 0d 2c d8 0b  |-1).,....,...,..|
000066e0  dd 20 f2 6e 65 77 45 0d  2c e2 08 ea 20 41 25 0d  |. .newE.,... A%.|
000066f0  2c ec 1f 4e 65 78 70 25  2b 3d 31 3a f2 75 70 54  |,..Nexp%+=1:.upT|
00006700  6f 74 28 32 2c c3 28 4e  65 78 70 25 29 29 0d 2c  |ot(2,.(Nexp%)).,|
00006710  f6 0e e3 20 41 25 3d 30  20 b8 20 34 0d 2d 00 15  |... A%=0 . 4.-..|
00006720  45 78 70 24 28 4e 65 78  70 25 2c 41 25 29 3d 22  |Exp$(Nexp%,A%)="|
00006730  22 0d 2d 0a 05 ed 0d 2d  14 21 45 78 70 25 28 4e  |".-....-.!Exp%(N|
00006740  65 78 70 25 2c 30 29 3d  45 78 70 25 28 4e 65 78  |exp%,0)=Exp%(Nex|
00006750  70 25 2d 31 2c 30 29 0d  2d 1e 21 45 78 70 25 28  |p%-1,0).-.!Exp%(|
00006760  4e 65 78 70 25 2c 31 29  3d 45 78 70 25 28 4e 65  |Nexp%,1)=Exp%(Ne|
00006770  78 70 25 2d 31 2c 31 29  0d 2d 28 21 45 78 70 25  |xp%-1,1).-(!Exp%|
00006780  28 4e 65 78 70 25 2c 32  29 3d 45 78 70 25 28 4e  |(Nexp%,2)=Exp%(N|
00006790  65 78 70 25 2d 31 2c 32  29 0d 2d 32 05 e1 0d 2d  |exp%-1,2).-2...-|
000067a0  3c 04 0d 2d 46 0e dd 20  f2 6d 75 70 28 49 25 29  |<..-F.. .mup(I%)|
000067b0  0d 2d 50 0d e7 20 4d 65  6d 6f 25 20 8c 0d 2d 5a  |.-P.. Memo% ..-Z|
000067c0  0d 43 6d 65 6d 25 2b 3d  49 25 0d 2d 64 1f e7 20  |.Cmem%+=I%.-d.. |
000067d0  43 6d 65 6d 25 3e 4e 6d  65 6d 25 20 8c 20 43 6d  |Cmem%>Nmem% . Cm|
000067e0  65 6d 25 3d 4e 6d 65 6d  25 0d 2d 6e 17 e7 20 43  |em%=Nmem%.-n.. C|
000067f0  6d 65 6d 25 3c 31 20 8c  20 43 6d 65 6d 25 3d 31  |mem%<1 . Cmem%=1|
00006800  0d 2d 78 18 f2 5f 73 70  75 74 28 31 2c 36 2c c3  |.-x.._sput(1,6,.|
00006810  28 43 6d 65 6d 25 29 29  0d 2d 82 05 cc 0d 2d 8c  |(Cmem%)).-....-.|
00006820  0e 43 74 6f 64 6f 25 2b  3d 49 25 0d 2d 96 23 e7  |.Ctodo%+=I%.-.#.|
00006830  20 43 74 6f 64 6f 25 3e  4e 74 6f 64 6f 25 20 8c  | Ctodo%>Ntodo% .|
00006840  20 43 74 6f 64 6f 25 3d  4e 74 6f 64 6f 25 0d 2d  | Ctodo%=Ntodo%.-|
00006850  a0 19 e7 20 43 74 6f 64  6f 25 3c 31 20 8c 20 43  |... Ctodo%<1 . C|
00006860  74 6f 64 6f 25 3d 31 0d  2d aa 19 f2 5f 73 70 75  |todo%=1.-..._spu|
00006870  74 28 31 2c 36 2c c3 28  43 74 6f 64 6f 25 29 29  |t(1,6,.(Ctodo%))|
00006880  0d 2d b4 05 cd 0d 2d be  05 e1 0d 2d c8 04 0d 2d  |.-....-....-...-|
00006890  d2 0f dd 20 f2 6e 65 77  6d 28 49 25 29 0d 2d dc  |... .newm(I%).-.|
000068a0  0d e7 20 4d 65 6d 6f 25  20 8c 0d 2d e6 0d 4e 6d  |.. Memo% ..-..Nm|
000068b0  65 6d 25 2b 3d 49 25 0d  2d f0 23 e7 20 4e 6d 65  |em%+=I%.-.#. Nme|
000068c0  6d 25 3e 4d 61 78 52 65  63 25 20 8c 20 4e 6d 65  |m%>MaxRec% . Nme|
000068d0  6d 25 3d 4d 61 78 52 65  63 25 0d 2d fa 2b e7 20  |m%=MaxRec%.-.+. |
000068e0  4d 6d 65 6e 25 3c 4d 61  78 52 65 63 25 20 80 20  |Mmen%<MaxRec% . |
000068f0  49 25 3e 30 20 8c 20 4d  65 6d 24 28 4e 6d 65 6d  |I%>0 . Mem$(Nmem|
00006900  25 29 3d 22 22 0d 2e 04  17 e7 20 4e 6d 65 6d 25  |%)=""..... Nmem%|
00006910  3c 31 20 8c 20 4e 6d 65  6d 25 3d 31 0d 2e 0e 18  |<1 . Nmem%=1....|
00006920  f2 5f 73 70 75 74 28 31  2c 37 2c c3 28 4e 6d 65  |._sput(1,7,.(Nme|
00006930  6d 25 29 29 0d 2e 18 05  cc 0d 2e 22 0e 4e 74 6f  |m%)).......".Nto|
00006940  64 6f 25 2b 3d 49 25 0d  2e 2c 25 e7 20 4e 74 6f  |do%+=I%..,%. Nto|
00006950  64 6f 25 3e 4d 61 78 52  65 63 25 20 8c 20 4e 74  |do%>MaxRec% . Nt|
00006960  6f 64 6f 25 3d 4d 61 78  52 65 63 25 0d 2e 36 2e  |odo%=MaxRec%..6.|
00006970  e7 20 4e 74 6f 64 6f 25  3c 4d 61 78 52 65 63 25  |. Ntodo%<MaxRec%|
00006980  20 80 20 49 25 3e 30 20  8c 20 54 6f 44 6f 24 28  | . I%>0 . ToDo$(|
00006990  4e 74 6f 64 6f 25 29 3d  22 22 0d 2e 40 19 e7 20  |Ntodo%)=""..@.. |
000069a0  4e 74 6f 64 6f 25 3c 31  20 8c 20 4e 74 6f 64 6f  |Ntodo%<1 . Ntodo|
000069b0  25 3d 31 0d 2e 4a 19 f2  5f 73 70 75 74 28 31 2c  |%=1..J.._sput(1,|
000069c0  37 2c c3 28 4e 74 6f 64  6f 25 29 29 0d 2e 54 05  |7,.(Ntodo%))..T.|
000069d0  cd 0d 2e 5e 05 e1 0d 2e  68 04 0d 2e 72 0a dd 20  |...^....h...r.. |
000069e0  f2 5f 61 6d 0d 2e 7c 14  e7 20 53 70 6d 25 28 43  |._am..|.. Spm%(C|
000069f0  73 68 65 64 25 29 20 8c  0d 2e 86 1c 24 53 50 6f  |shed%) .....$SPo|
00006a00  69 6e 74 25 28 31 34 2c  33 29 3d 22 72 61 64 69  |int%(14,3)="radi|
00006a10  6f 6f 6e 22 0d 2e 90 1d  24 53 50 6f 69 6e 74 25  |oon"....$SPoint%|
00006a20  28 31 33 2c 33 29 3d 22  72 61 64 69 6f 6f 66 66  |(13,3)="radiooff|
00006a30  22 0d 2e 9a 05 cc 0d 2e  a4 1c 24 53 50 6f 69 6e  |".........$SPoin|
00006a40  74 25 28 31 33 2c 33 29  3d 22 72 61 64 69 6f 6f  |t%(13,3)="radioo|
00006a50  6e 22 0d 2e ae 1d 24 53  50 6f 69 6e 74 25 28 31  |n"....$SPoint%(1|
00006a60  34 2c 33 29 3d 22 72 61  64 69 6f 6f 66 66 22 0d  |4,3)="radiooff".|
00006a70  2e b8 05 cd 0d 2e c2 4a  c8 99 22 57 69 6d 70 5f  |.......J.."Wimp_|
00006a80  46 6f 72 63 65 52 65 64  72 61 77 22 2c 21 57 6e  |ForceRedraw",!Wn|
00006a90  25 28 33 29 2c 49 58 25  28 31 34 2c 33 29 2c 49  |%(3),IX%(14,3),I|
00006aa0  59 25 28 31 34 2c 33 29  2c 49 58 31 25 28 31 34  |Y%(14,3),IX1%(14|
00006ab0  2c 33 29 2c 49 59 31 25  28 31 34 2c 33 29 0d 2e  |,3),IY1%(14,3)..|
00006ac0  cc 4a c8 99 22 57 69 6d  70 5f 46 6f 72 63 65 52  |.J.."Wimp_ForceR|
00006ad0  65 64 72 61 77 22 2c 21  57 6e 25 28 33 29 2c 49  |edraw",!Wn%(3),I|
00006ae0  58 25 28 31 33 2c 33 29  2c 49 59 25 28 31 33 2c  |X%(13,3),IY%(13,|
00006af0  33 29 2c 49 58 31 25 28  31 33 2c 33 29 2c 49 59  |3),IX1%(13,3),IY|
00006b00  31 25 28 31 33 2c 33 29  0d 2e d6 05 e1 0d 2e e0  |1%(13,3)........|
00006b10  04 0d 2e ea 12 dd 20 f2  5f 54 72 61 6e 73 28 77  |...... ._Trans(w|
00006b20  68 25 29 0d 2e f4 0b 21  71 25 3d 77 68 25 0d 2e  |h%)....!q%=wh%..|
00006b30  fe 20 c8 99 20 22 57 69  6d 70 5f 47 65 74 57 69  |. .. "Wimp_GetWi|
00006b40  6e 64 6f 77 53 74 61 74  65 22 2c 2c 71 25 0d 2f  |ndowState",,q%./|
00006b50  08 28 78 6f 25 3d 71 25  21 34 2d 71 25 21 32 30  |.(xo%=q%!4-q%!20|
00006b60  2b 38 3a 79 6f 25 3d 71  25 21 31 36 2d 71 25 21  |+8:yo%=q%!16-q%!|
00006b70  32 34 2d 32 39 30 0d 2f  12 16 58 4f 25 3d 71 25  |24-290./..XO%=q%|
00006b80  21 34 3a 59 4f 25 3d 71  25 21 31 36 0d 2f 1c 05  |!4:YO%=q%!16./..|
00006b90  e1 0d 2f 26 04 0d 2f 30  10 dd 20 f2 70 62 28 77  |../&../0.. .pb(w|
00006ba0  25 2c 69 25 29 0d 2f 3a  3a e7 20 69 25 3d 30 20  |%,i%)./::. i%=0 |
00006bb0  8c 20 24 53 50 6f 69 6e  74 25 28 30 2c 77 25 29  |. $SPoint%(0,w%)|
00006bc0  3d 22 70 64 6f 77 6e 22  20 8b 20 24 53 50 6f 69  |="pdown" . $SPoi|
00006bd0  6e 74 25 28 31 2c 77 25  29 3d 22 70 75 70 22 0d  |nt%(1,w%)="pup".|
00006be0  2f 44 4f c8 99 22 57 69  6d 70 5f 46 6f 72 63 65  |/DO.."Wimp_Force|
00006bf0  52 65 64 72 61 77 22 2c  21 57 6e 25 28 77 25 29  |Redraw",!Wn%(w%)|
00006c00  2c 49 58 25 28 69 25 2c  77 25 29 2c 49 59 25 28  |,IX%(i%,w%),IY%(|
00006c10  69 25 2c 77 25 29 2c 49  58 31 25 28 69 25 2c 77  |i%,w%),IX1%(i%,w|
00006c20  25 29 2c 49 59 31 25 28  69 25 2c 77 25 29 0d 2f  |%),IY1%(i%,w%)./|
00006c30  4e 0b 52 64 55 44 25 3d  b9 0d 2f 58 13 52 64 31  |N.RdUD%=../X.Rd1|
00006c40  25 3d 77 25 3a 52 64 32  25 3d 69 25 0d 2f 62 05  |%=w%:Rd2%=i%./b.|
00006c50  e1 0d 2f 6c 04 0d 2f 76  11 dd 20 f2 6f 70 65 6e  |../l../v.. .open|
00006c60  52 58 28 61 25 29 0d 2f  80 11 ea 20 58 25 2c 59  |RX(a%)./... X%,Y|
00006c70  25 2c 42 25 2c 41 25 0d  2f 8a 0f c8 97 20 58 25  |%,B%,A%./.... X%|
00006c80  2c 59 25 2c 42 25 0d 2f  94 12 58 25 2d 3d 31 34  |,Y%,B%./..X%-=14|
00006c90  30 3a 59 25 2d 3d 39 30  0d 2f 9e 24 52 58 77 25  |0:Y%-=90./.$RXw%|
00006ca0  21 30 3d 72 78 31 57 25  3a 52 58 77 25 21 34 3d  |!0=rx1W%:RXw%!4=|
00006cb0  58 25 3a 52 58 77 25 21  38 3d 59 25 0d 2f a8 40  |X%:RXw%!8=Y%./.@|
00006cc0  52 58 77 25 21 31 32 3d  33 30 36 2b 58 25 3a 52  |RXw%!12=306+X%:R|
00006cd0  58 77 25 21 31 36 3d 31  36 38 2b 59 25 3a 52 58  |Xw%!16=168+Y%:RX|
00006ce0  77 25 21 32 30 3d 30 3a  52 58 77 25 21 32 34 3d  |w%!20=0:RXw%!24=|
00006cf0  30 3a 52 58 77 25 21 32  38 3d 2d 31 0d 2f b2 1e  |0:RXw%!28=-1./..|
00006d00  c8 99 20 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |.. "Wimp_OpenWin|
00006d10  64 6f 77 22 2c 2c 52 58  77 25 0d 2f bc 0e 52 58  |dow",,RXw%./..RX|
00006d20  74 79 70 65 25 3d 61 25  0d 2f c6 0a 43 6b 42 25  |type%=a%./..CkB%|
00006d30  3d 30 0d 2f d0 20 4e 62  52 58 25 3d 30 3a 52 58  |=0./. NbRX%=0:RX|
00006d40  63 6f 75 6e 74 25 3d 30  3a 52 58 70 72 61 6d 25  |count%=0:RXpram%|
00006d50  3d 30 0d 2f da 11 59 25  3d 4d 6d 65 6e 75 25 21  |=0./..Y%=Mmenu%!|
00006d60  31 34 38 0d 2f e4 10 c8  8e 20 52 58 74 79 70 65  |148./.... RXtype|
00006d70  25 20 ca 0d 2f ee 31 c9  20 30 3a 20 e7 20 59 25  |% ../.1. 0: . Y%|
00006d80  3d 31 20 8c 20 52 58 72  65 63 6f 72 64 25 3d 31  |=1 . RXrecord%=1|
00006d90  20 8b 20 52 58 72 65 63  6f 72 64 25 3d 4e 74 65  | . RXrecord%=Nte|
00006da0  6c 25 2b 31 0d 2f f8 43  c9 20 31 3a 20 e7 20 59  |l%+1./.C. 1: . Y|
00006db0  25 3d 31 20 8c 20 43 73  68 65 64 25 3d 52 58 72  |%=1 . Cshed%=RXr|
00006dc0  65 63 6f 72 64 25 3a 52  58 72 65 63 6f 72 64 25  |ecord%:RXrecord%|
00006dd0  3d 31 20 8b 20 52 58 72  65 63 6f 72 64 25 3d 4e  |=1 . RXrecord%=N|
00006de0  73 68 65 64 25 2b 31 0d  30 02 31 c9 20 32 3a 20  |shed%+1.0.1. 2: |
00006df0  e7 20 59 25 3d 31 20 8c  20 52 58 72 65 63 6f 72  |. Y%=1 . RXrecor|
00006e00  64 25 3d 32 20 8b 20 52  58 72 65 63 6f 72 64 25  |d%=2 . RXrecord%|
00006e10  3d 4e 6d 65 6d 25 2b 31  0d 30 0c 32 c9 20 33 3a  |=Nmem%+1.0.2. 3:|
00006e20  20 e7 20 59 25 3d 31 20  8c 20 52 58 72 65 63 6f  | . Y%=1 . RXreco|
00006e30  72 64 25 3d 32 20 8b 20  52 58 72 65 63 6f 72 64  |rd%=2 . RXrecord|
00006e40  25 3d 4e 74 6f 64 6f 25  2b 31 0d 30 16 41 c9 20  |%=Ntodo%+1.0.A. |
00006e50  35 3a 20 e7 20 59 25 3d  31 20 8c 20 43 65 78 70  |5: . Y%=1 . Cexp|
00006e60  25 3d 52 58 72 65 63 6f  72 64 25 3a 52 58 72 65  |%=RXrecord%:RXre|
00006e70  63 6f 72 64 25 3d 31 20  8b 20 52 58 72 65 63 6f  |cord%=1 . RXreco|
00006e80  72 64 25 3d 4e 65 78 70  25 2b 31 0d 30 20 05 cb  |rd%=Nexp%+1.0 ..|
00006e90  0d 30 2a 05 e1 0d 30 34  04 0d 30 3e 0f dd 20 f2  |.0*...04..0>.. .|
00006ea0  61 63 43 4b 28 41 25 29  0d 30 48 20 e7 20 41 25  |acCK(A%).0H . A%|
00006eb0  3e 26 37 46 20 8c 20 41  25 3d 41 25 20 84 20 26  |>&7F . A%=A% . &|
00006ec0  46 46 46 46 46 46 30 30  0d 30 52 10 43 6b 42 25  |FFFFFF00.0R.CkB%|
00006ed0  3d 43 6b 42 25 2d 41 25  0d 30 5c 05 e1 0d 30 66  |=CkB%-A%.0\...0f|
00006ee0  04 0d 30 70 0d dd 20 f2  72 78 49 4e 49 54 0d 30  |..0p.. .rxINIT.0|
00006ef0  7a 1f c8 99 22 4f 53 5f  53 65 72 69 61 6c 4f 70  |z..."OS_SerialOp|
00006f00  22 2c 30 2c 26 33 34 2c  26 46 46 30 30 0d 30 84  |",0,&34,&FF00.0.|
00006f10  17 c8 99 22 4f 53 5f 53  65 72 69 61 6c 4f 70 22  |..."OS_SerialOp"|
00006f20  2c 31 2c 30 0d 30 8e 18  c8 99 22 4f 53 5f 53 65  |,1,0.0...."OS_Se|
00006f30  72 69 61 6c 4f 70 22 2c  35 2c 31 32 0d 30 98 18  |rialOp",5,12.0..|
00006f40  c8 99 22 4f 53 5f 53 65  72 69 61 6c 4f 70 22 2c  |.."OS_SerialOp",|
00006f50  36 2c 31 32 0d 30 a2 13  c8 99 22 4f 53 5f 42 79  |6,12.0...."OS_By|
00006f60  74 65 22 2c 32 2c 32 0d  30 ac 0c 41 62 6f 72 74  |te",2,2.0..Abort|
00006f70  25 3d a3 0d 30 b6 0a 43  6b 42 25 3d 30 0d 30 c0  |%=..0..CkB%=0.0.|
00006f80  05 e1 0d 30 ca 04 0d 30  d4 10 dd 20 f2 5f 67 61  |...0...0... ._ga|
00006f90  74 68 28 62 25 29 0d 30  de 1a e7 20 4e 62 52 58  |th(b%).0... NbRX|
00006fa0  25 3c 3e 30 20 8c 20 f2  61 63 43 4b 28 62 25 29  |%<>0 . .acCK(b%)|
00006fb0  0d 30 e8 0c 4e 62 52 58  25 2b 3d 31 0d 30 f2 48  |.0..NbRX%+=1.0.H|
00006fc0  e7 20 4e 62 52 58 25 3d  32 20 80 20 62 25 3c 3e  |. NbRX%=2 . b%<>|
00006fd0  52 58 74 79 70 65 25 20  8c 20 f2 5f 73 65 74 75  |RXtype% . ._setu|
00006fe0  70 57 28 22 77 72 6f 6e  67 20 74 79 70 65 20 6f  |pW("wrong type o|
00006ff0  66 20 64 61 74 61 22 29  3a 41 62 6f 72 74 25 3d  |f data"):Abort%=|
00007000  b9 3a ef 37 0d 30 fc 1a  e7 20 4e 62 52 58 25 3d  |.:.7.0... NbRX%=|
00007010  33 20 8c 20 52 58 63 6f  75 6e 74 25 3d 31 0d 31  |3 . RXcount%=1.1|
00007020  06 13 e7 20 52 58 63 6f  75 6e 74 25 3c 3e 30 20  |... RXcount%<>0 |
00007030  8c 0d 31 10 13 62 25 3d  a4 74 72 61 6e 73 52 58  |..1..b%=.transRX|
00007040  28 62 25 29 0d 31 1a 10  c8 8e 20 52 58 74 79 70  |(b%).1.... RXtyp|
00007050  65 25 20 ca 0d 31 24 13  c9 20 30 3a 20 e7 20 62  |e% ..1$.. 0: . b|
00007060  25 3c 26 46 38 20 8c 0d  31 2e 70 20 20 20 20 20  |%<&F8 ..1.p     |
00007070  20 20 20 e7 20 52 58 63  6f 75 6e 74 25 3d 31 20  |   . RXcount%=1 |
00007080  8c 20 54 65 6c 24 28 52  58 72 65 63 6f 72 64 25  |. Tel$(RXrecord%|
00007090  2c 52 58 70 72 61 6d 25  29 3d bd 28 62 25 29 20  |,RXpram%)=.(b%) |
000070a0  8b 20 54 65 6c 24 28 52  58 72 65 63 6f 72 64 25  |. Tel$(RXrecord%|
000070b0  2c 52 58 70 72 61 6d 25  29 3d 54 65 6c 24 28 52  |,RXpram%)=Tel$(R|
000070c0  58 72 65 63 6f 72 64 25  2c 52 58 70 72 61 6d 25  |Xrecord%,RXpram%|
000070d0  29 2b bd 28 62 25 29 0d  31 38 17 20 20 20 20 20  |)+.(b%).18.     |
000070e0  20 20 20 52 58 63 6f 75  6e 74 25 2b 3d 31 0d 31  |   RXcount%+=1.1|
000070f0  42 0d 20 20 20 20 20 20  20 20 cc 0d 31 4c 17 20  |B.        ..1L. |
00007100  20 20 20 20 20 20 20 f2  72 78 63 6f 6e 74 28 62  |       .rxcont(b|
00007110  25 29 0d 31 56 0d 20 20  20 20 20 20 20 20 cd 0d  |%).1V.        ..|
00007120  31 60 0c 20 20 20 20 20  20 20 20 0d 31 6a 13 c9  |1`.        .1j..|
00007130  20 31 3a 20 e7 20 62 25  3c 26 46 38 20 8c 0d 31  | 1: . b%<&F8 ..1|
00007140  74 73 20 20 20 20 20 20  20 20 e7 20 52 58 63 6f  |ts        . RXco|
00007150  75 6e 74 25 3d 31 20 8c  20 53 68 65 64 24 28 52  |unt%=1 . Shed$(R|
00007160  58 72 65 63 6f 72 64 25  2c 52 58 70 72 61 6d 25  |Xrecord%,RXpram%|
00007170  29 3d bd 28 62 25 29 20  8b 20 53 68 65 64 24 28  |)=.(b%) . Shed$(|
00007180  52 58 72 65 63 6f 72 64  25 2c 52 58 70 72 61 6d  |RXrecord%,RXpram|
00007190  25 29 3d 53 68 65 64 24  28 52 58 72 65 63 6f 72  |%)=Shed$(RXrecor|
000071a0  64 25 2c 52 58 70 72 61  6d 25 29 2b bd 28 62 25  |d%,RXpram%)+.(b%|
000071b0  29 0d 31 7e 17 20 20 20  20 20 20 20 20 52 58 63  |).1~.        RXc|
000071c0  6f 75 6e 74 25 2b 3d 31  0d 31 88 0d 20 20 20 20  |ount%+=1.1..    |
000071d0  20 20 20 20 cc 0d 31 92  17 20 20 20 20 20 20 20  |    ..1..       |
000071e0  20 f2 72 78 63 6f 6e 74  28 62 25 29 0d 31 9c 0d  | .rxcont(b%).1..|
000071f0  20 20 20 20 20 20 20 20  cd 0d 31 a6 04 0d 31 b0  |        ..1...1.|
00007200  13 c9 20 32 3a 20 e7 20  62 25 3c 26 46 38 20 8c  |.. 2: . b%<&F8 .|
00007210  0d 31 ba 58 20 20 20 20  20 20 20 20 e7 20 52 58  |.1.X        . RX|
00007220  63 6f 75 6e 74 25 3d 31  20 8c 20 4d 65 6d 24 28  |count%=1 . Mem$(|
00007230  52 58 72 65 63 6f 72 64  25 29 3d bd 28 62 25 29  |RXrecord%)=.(b%)|
00007240  20 8b 20 4d 65 6d 24 28  52 58 72 65 63 6f 72 64  | . Mem$(RXrecord|
00007250  25 29 3d 4d 65 6d 24 28  52 58 72 65 63 6f 72 64  |%)=Mem$(RXrecord|
00007260  25 29 2b bd 28 62 25 29  0d 31 c4 17 20 20 20 20  |%)+.(b%).1..    |
00007270  20 20 20 20 52 58 63 6f  75 6e 74 25 2b 3d 31 0d  |    RXcount%+=1.|
00007280  31 ce 0d 20 20 20 20 20  20 20 20 cc 0d 31 d8 17  |1..        ..1..|
00007290  20 20 20 20 20 20 20 20  f2 72 78 63 6f 6e 74 28  |        .rxcont(|
000072a0  62 25 29 0d 31 e2 0d 20  20 20 20 20 20 20 20 cd  |b%).1..        .|
000072b0  0d 31 ec 0c 20 20 20 20  20 20 20 20 0d 31 f6 13  |.1..        .1..|
000072c0  c9 20 33 3a 20 e7 20 62  25 3c 26 46 38 20 8c 0d  |. 3: . b%<&F8 ..|
000072d0  32 00 5b 20 20 20 20 20  20 20 20 e7 20 52 58 63  |2.[        . RXc|
000072e0  6f 75 6e 74 25 3d 31 20  8c 20 54 6f 44 6f 24 28  |ount%=1 . ToDo$(|
000072f0  52 58 72 65 63 6f 72 64  25 29 3d bd 28 62 25 29  |RXrecord%)=.(b%)|
00007300  20 8b 20 54 6f 44 6f 24  28 52 58 72 65 63 6f 72  | . ToDo$(RXrecor|
00007310  64 25 29 3d 54 6f 44 6f  24 28 52 58 72 65 63 6f  |d%)=ToDo$(RXreco|
00007320  72 64 25 29 2b bd 28 62  25 29 0d 32 0a 17 20 20  |rd%)+.(b%).2..  |
00007330  20 20 20 20 20 20 52 58  63 6f 75 6e 74 25 2b 3d  |      RXcount%+=|
00007340  31 0d 32 14 0d 20 20 20  20 20 20 20 20 cc 0d 32  |1.2..        ..2|
00007350  1e 17 20 20 20 20 20 20  20 20 f2 72 78 63 6f 6e  |..        .rxcon|
00007360  74 28 62 25 29 0d 32 28  0d 20 20 20 20 20 20 20  |t(b%).2(.       |
00007370  20 cd 0d 32 32 0c 20 20  20 20 20 20 20 20 0d 32  | ..22.        .2|
00007380  3c 13 c9 20 35 3a 20 e7  20 62 25 3c 26 46 38 20  |<.. 5: . b%<&F8 |
00007390  8c 0d 32 46 70 20 20 20  20 20 20 20 20 e7 20 52  |..2Fp        . R|
000073a0  58 63 6f 75 6e 74 25 3d  31 20 8c 20 45 78 70 24  |Xcount%=1 . Exp$|
000073b0  28 52 58 72 65 63 6f 72  64 25 2c 52 58 70 72 61  |(RXrecord%,RXpra|
000073c0  6d 25 29 3d bd 28 62 25  29 20 8b 20 45 78 70 24  |m%)=.(b%) . Exp$|
000073d0  28 52 58 72 65 63 6f 72  64 25 2c 52 58 70 72 61  |(RXrecord%,RXpra|
000073e0  6d 25 29 3d 45 78 70 24  28 52 58 72 65 63 6f 72  |m%)=Exp$(RXrecor|
000073f0  64 25 2c 52 58 70 72 61  6d 25 29 2b bd 28 62 25  |d%,RXpram%)+.(b%|
00007400  29 0d 32 50 17 20 20 20  20 20 20 20 20 52 58 63  |).2P.        RXc|
00007410  6f 75 6e 74 25 2b 3d 31  0d 32 5a 0d 20 20 20 20  |ount%+=1.2Z.    |
00007420  20 20 20 20 cc 0d 32 64  17 20 20 20 20 20 20 20  |    ..2d.       |
00007430  20 f2 72 78 63 6f 6e 74  28 62 25 29 0d 32 6e 0d  | .rxcont(b%).2n.|
00007440  20 20 20 20 20 20 20 20  cd 0d 32 78 04 0d 32 82  |        ..2x..2.|
00007450  05 cb 0d 32 8c 05 cd 0d  32 96 05 e1 0d 32 a0 04  |...2....2....2..|
00007460  0d 32 aa 11 dd 20 f2 72  78 63 6f 6e 74 28 62 25  |.2... .rxcont(b%|
00007470  29 0d 32 b4 2c 20 20 20  20 20 20 20 20 e7 20 62  |).2.,        . b|
00007480  25 3d 26 46 46 20 8c 20  52 58 63 6f 75 6e 74 25  |%=&FF . RXcount%|
00007490  3d 31 3a 52 58 70 72 61  6d 25 2b 3d 31 0d 32 be  |=1:RXpram%+=1.2.|
000074a0  38 20 20 20 20 20 20 20  20 e7 20 62 25 3d 26 46  |8        . b%=&F|
000074b0  45 20 8c 20 52 58 70 72  61 6d 25 3d 30 3a 52 58  |E . RXpram%=0:RX|
000074c0  72 65 63 6f 72 64 25 2b  3d 31 3a 52 58 63 6f 75  |record%+=1:RXcou|
000074d0  6e 74 25 3d 31 0d 32 c8  4d 20 20 20 20 20 20 20  |nt%=1.2.M       |
000074e0  20 e7 20 52 58 72 65 63  6f 72 64 25 3e 4d 61 78  | . RXrecord%>Max|
000074f0  52 65 63 25 20 8c 20 52  58 72 65 63 6f 72 64 25  |Rec% . RXrecord%|
00007500  3d 4d 61 78 52 65 63 25  3a f2 5f 73 65 74 75 70  |=MaxRec%:._setup|
00007510  57 28 22 74 6f 6f 20 6d  75 63 68 20 64 61 74 61  |W("too much data|
00007520  22 29 0d 32 d2 05 e1 0d  32 dc 04 0d 32 e6 0b dd  |").2....2...2...|
00007530  20 f2 74 69 64 79 0d 32  f0 0e ea 20 42 25 2c 43  | .tidy.2... B%,C|
00007540  25 2c 44 25 0d 32 fa 0c  42 25 3d a4 67 65 74 53  |%,D%.2..B%=.getS|
00007550  0d 33 04 13 43 6b 42 25  3d 43 6b 42 25 20 80 20  |.3..CkB%=CkB% . |
00007560  26 46 46 0d 33 0e 48 e7  20 42 25 3c 3e 43 6b 42  |&FF.3.H. B%<>CkB|
00007570  25 20 8c 20 f2 5f 73 65  74 75 70 57 28 22 43 68  |% . ._setupW("Ch|
00007580  65 63 6b 20 62 79 74 65  20 77 61 73 20 22 2b c3  |eck byte was "+.|
00007590  28 42 25 29 2b 22 20 73  68 6f 75 6c 64 20 62 65  |(B%)+" should be|
000075a0  20 22 2b c3 28 43 6b 42  25 29 29 0d 33 18 0c 42  | "+.(CkB%)).3..B|
000075b0  25 3d a4 67 65 74 53 0d  33 22 34 e7 20 42 25 3c  |%=.getS.3"4. B%<|
000075c0  3e 26 31 41 20 8c 20 f2  5f 73 65 74 75 70 57 28  |>&1A . ._setupW(|
000075d0  22 4c 61 73 74 20 62 79  74 65 20 31 41 20 6e 6f  |"Last byte 1A no|
000075e0  74 20 63 6f 72 72 65 63  74 22 29 0d 33 2c 10 e7  |t correct").3,..|
000075f0  20 41 62 6f 72 74 25 3d  a3 20 8c 0d 33 36 10 c8  | Abort%=. ..36..|
00007600  8e 20 52 58 74 79 70 65  25 20 ca 0d 33 40 3f c9  |. RXtype% ..3@?.|
00007610  20 30 3a 20 43 74 65 6c  25 3d 31 3a f2 75 70 54  | 0: Ctel%=1:.upT|
00007620  65 6c 28 30 29 3a 4e 74  65 6c 25 3d 52 58 72 65  |el(0):Ntel%=RXre|
00007630  63 6f 72 64 25 2d 31 3a  f2 75 70 54 6f 74 28 30  |cord%-1:.upTot(0|
00007640  2c c3 28 4e 74 65 6c 25  29 29 0d 33 4a 2f c9 20  |,.(Ntel%)).3J/. |
00007650  31 3a 20 4e 73 68 65 64  25 3d 52 58 72 65 63 6f  |1: Nshed%=RXreco|
00007660  72 64 25 2d 31 3a f2 75  70 54 6f 74 28 33 2c c3  |rd%-1:.upTot(3,.|
00007670  28 4e 73 68 65 64 25 29  29 0d 33 54 20 20 20 20  |(Nshed%)).3T    |
00007680  20 20 20 20 20 e3 20 43  25 3d 43 73 68 65 64 25  |     . C%=Cshed%|
00007690  20 b8 20 4e 73 68 65 64  25 0d 33 5e 23 20 20 20  | . Nshed%.3^#   |
000076a0  20 20 20 20 20 44 25 3d  bb 28 c1 53 68 65 64 24  |     D%=.(.Shed$|
000076b0  28 43 25 2c 30 29 2c 39  2c 32 29 29 0d 33 68 2d  |(C%,0),9,2)).3h-|
000076c0  20 20 20 20 20 20 20 20  e7 20 44 25 3e 31 32 20  |        . D%>12 |
000076d0  8c 20 53 70 6d 25 28 43  25 29 3d b9 20 8b 20 53  |. Spm%(C%)=. . S|
000076e0  70 6d 25 28 43 25 29 3d  a3 0d 33 72 23 20 20 20  |pm%(C%)=..3r#   |
000076f0  20 20 20 20 20 53 68 65  64 24 28 43 25 2c 34 29  |     Shed$(C%,4)|
00007700  3d 53 68 65 64 24 28 43  25 2c 31 29 0d 33 7c 3d  |=Shed$(C%,1).3|=|
00007710  20 20 20 20 20 20 20 20  53 68 65 64 24 28 43 25  |        Shed$(C%|
00007720  2c 33 29 3d c1 53 68 65  64 24 28 43 25 2c 30 29  |,3)=.Shed$(C%,0)|
00007730  2c 39 2c 32 29 2b 22 3a  22 2b c2 53 68 65 64 24  |,9,2)+":"+.Shed$|
00007740  28 43 25 2c 30 29 2c 32  29 0d 33 86 27 20 20 20  |(C%,0),2).3.'   |
00007750  20 20 20 20 20 53 68 65  64 24 28 43 25 2c 32 29  |     Shed$(C%,2)|
00007760  3d c0 53 68 65 64 24 28  43 25 2c 30 29 2c 34 29  |=.Shed$(C%,0),4)|
00007770  0d 33 90 29 20 20 20 20  20 20 20 20 53 68 65 64  |.3.)        Shed|
00007780  24 28 43 25 2c 31 29 3d  c1 53 68 65 64 24 28 43  |$(C%,1)=.Shed$(C|
00007790  25 2c 30 29 2c 35 2c 32  29 0d 33 9a 29 20 20 20  |%,0),5,2).3.)   |
000077a0  20 20 20 20 20 53 68 65  64 24 28 43 25 2c 30 29  |     Shed$(C%,0)|
000077b0  3d c1 53 68 65 64 24 28  43 25 2c 30 29 2c 37 2c  |=.Shed$(C%,0),7,|
000077c0  32 29 0d 33 a4 0d 20 20  20 20 20 20 20 20 ed 0d  |2).3..        ..|
000077d0  33 ae 14 20 20 20 20 20  20 20 20 43 73 68 65 64  |3..        Cshed|
000077e0  25 3d 31 0d 33 b8 16 20  20 20 20 20 20 20 20 f2  |%=1.3..        .|
000077f0  75 70 53 68 65 64 28 30  29 0d 33 c2 2a c9 20 32  |upShed(0).3.*. 2|
00007800  3a 20 43 6d 65 6d 25 3d  31 3a f2 6d 75 70 28 30  |: Cmem%=1:.mup(0|
00007810  29 3a 4e 6d 65 6d 25 3d  52 58 72 65 63 6f 72 64  |):Nmem%=RXrecord|
00007820  25 2d 31 0d 33 cc 37 20  20 20 20 20 20 20 20 e7  |%-1.3.7        .|
00007830  20 28 4d 6d 65 6e 75 25  21 31 34 38 29 3d 31 20  | (Mmenu%!148)=1 |
00007840  8c 20 f2 63 4d 20 8b 20  f2 75 70 54 6f 74 28 31  |. .cM . .upTot(1|
00007850  2c c3 28 4e 6d 65 6d 25  29 29 0d 33 d6 2c c9 20  |,.(Nmem%)).3.,. |
00007860  33 3a 20 43 74 6f 64 6f  25 3d 31 3a f2 6d 75 70  |3: Ctodo%=1:.mup|
00007870  28 30 29 3a 4e 74 6f 64  6f 25 3d 52 58 72 65 63  |(0):Ntodo%=RXrec|
00007880  6f 72 64 25 2d 31 0d 33  e0 38 20 20 20 20 20 20  |ord%-1.3.8      |
00007890  20 20 e7 20 28 4d 6d 65  6e 75 25 21 31 34 38 29  |  . (Mmenu%!148)|
000078a0  3d 31 20 8c 20 f2 63 4d  20 8b 20 f2 75 70 54 6f  |=1 . .cM . .upTo|
000078b0  74 28 31 2c c3 28 4e 74  6f 64 6f 25 29 29 0d 33  |t(1,.(Ntodo%)).3|
000078c0  ea 2d c9 20 35 3a 20 4e  65 78 70 25 3d 52 58 72  |.-. 5: Nexp%=RXr|
000078d0  65 63 6f 72 64 25 2d 31  3a f2 75 70 54 6f 74 28  |ecord%-1:.upTot(|
000078e0  32 2c c3 28 4e 65 78 70  25 29 29 0d 33 f4 1e 20  |2,.(Nexp%)).3.. |
000078f0  20 20 20 20 20 20 20 e3  20 43 25 3d 43 65 78 70  |       . C%=Cexp|
00007900  25 20 b8 20 4e 65 78 70  25 0d 33 fe 3a 20 20 20  |% . Nexp%.3.:   |
00007910  20 20 20 20 20 e7 20 45  78 70 24 28 43 25 2c 34  |     . Exp$(C%,4|
00007920  29 3d 22 4e 22 20 8c 20  45 78 70 25 28 43 25 2c  |)="N" . Exp%(C%,|
00007930  32 29 3d a3 20 8b 20 45  78 70 25 28 43 25 2c 32  |2)=. . Exp%(C%,2|
00007940  29 3d b9 0d 34 08 24 20  20 20 20 20 20 20 20 45  |)=..4.$        E|
00007950  78 70 25 28 43 25 2c 30  29 3d bb 28 45 78 70 24  |xp%(C%,0)=.(Exp$|
00007960  28 43 25 2c 31 29 29 0d  34 12 24 20 20 20 20 20  |(C%,1)).4.$     |
00007970  20 20 20 45 78 70 25 28  43 25 2c 31 29 3d bb 28  |   Exp%(C%,1)=.(|
00007980  45 78 70 24 28 43 25 2c  33 29 29 0d 34 1c 21 20  |Exp$(C%,3)).4.! |
00007990  20 20 20 20 20 20 20 45  78 70 24 28 43 25 2c 33  |       Exp$(C%,3|
000079a0  29 3d 45 78 70 24 28 43  25 2c 35 29 0d 34 26 21  |)=Exp$(C%,5).4&!|
000079b0  20 20 20 20 20 20 20 20  45 78 70 24 28 43 25 2c  |        Exp$(C%,|
000079c0  34 29 3d 45 78 70 24 28  43 25 2c 32 29 0d 34 30  |4)=Exp$(C%,2).40|
000079d0  25 20 20 20 20 20 20 20  20 45 78 70 24 28 43 25  |%        Exp$(C%|
000079e0  2c 32 29 3d c0 45 78 70  24 28 43 25 2c 30 29 2c  |,2)=.Exp$(C%,0),|
000079f0  34 29 0d 34 3a 27 20 20  20 20 20 20 20 20 45 78  |4).4:'        Ex|
00007a00  70 24 28 43 25 2c 31 29  3d c1 45 78 70 24 28 43  |p$(C%,1)=.Exp$(C|
00007a10  25 2c 30 29 2c 35 2c 32  29 0d 34 44 27 20 20 20  |%,0),5,2).4D'   |
00007a20  20 20 20 20 20 45 78 70  24 28 43 25 2c 30 29 3d  |     Exp$(C%,0)=|
00007a30  c1 45 78 70 24 28 43 25  2c 30 29 2c 37 2c 32 29  |.Exp$(C%,0),7,2)|
00007a40  0d 34 4e 0d 20 20 20 20  20 20 20 20 ed 0d 34 58  |.4N.        ..4X|
00007a50  13 20 20 20 20 20 20 20  20 43 65 78 70 25 3d 31  |.        Cexp%=1|
00007a60  0d 34 62 15 20 20 20 20  20 20 20 20 f2 75 70 45  |.4b.        .upE|
00007a70  78 70 28 30 29 0d 34 6c  05 cb 0d 34 76 05 cd 0d  |xp(0).4l...4v...|
00007a80  34 80 05 e1 0d 34 8a 04  0d 34 94 0b dd 20 a4 67  |4....4...4... .g|
00007a90  65 74 53 0d 34 9e 0b ea  20 42 25 2c 43 25 0d 34  |etS.4... B%,C%.4|
00007aa0  a8 05 f5 0d 34 b2 23 c8  99 22 4f 53 5f 53 65 72  |....4.#.."OS_Ser|
00007ab0  69 61 6c 4f 70 22 2c 34  2c 32 35 36 20 b8 20 2c  |ialOp",4,256 . ,|
00007ac0  42 25 20 3b 43 25 0d 34  bc 0e 43 25 3d 43 25 20  |B% ;C%.4..C%=C% |
00007ad0  80 20 26 32 0d 34 c6 0a  fd 20 43 25 3d 30 0d 34  |. &2.4... C%=0.4|
00007ae0  d0 07 3d 42 25 0d 34 da  04 0d 34 e4 0c dd 20 f2  |..=B%.4...4... .|
00007af0  65 6d 70 74 79 0d 34 ee  0b ea 20 42 25 2c 43 25  |empty.4... B%,C%|
00007b00  0d 34 f8 05 f5 0d 35 02  23 c8 99 22 4f 53 5f 53  |.4....5.#.."OS_S|
00007b10  65 72 69 61 6c 4f 70 22  2c 34 2c 32 35 36 20 b8  |erialOp",4,256 .|
00007b20  20 2c 42 25 20 3b 43 25  0d 35 0c 0e 43 25 3d 43  | ,B% ;C%.5..C%=C|
00007b30  25 20 80 20 26 32 0d 35  16 0b fd 20 43 25 3c 3e  |% . &2.5... C%<>|
00007b40  30 0d 35 20 05 e1 0d 35  2a 04 0d 35 34 0f dd 20  |0.5 ...5*..54.. |
00007b50  f2 61 63 43 4b 28 41 25  29 0d 35 3e 20 e7 20 41  |.acCK(A%).5> . A|
00007b60  25 3e 26 37 46 20 8c 20  41 25 3d 41 25 20 84 20  |%>&7F . A%=A% . |
00007b70  26 46 46 46 46 46 46 30  30 0d 35 48 10 43 6b 42  |&FFFFFF00.5H.CkB|
00007b80  25 3d 43 6b 42 25 2d 41  25 0d 35 52 05 e1 0d 35  |%=CkB%-A%.5R...5|
00007b90  5c 04 0d 35 66 0c dd 20  f2 54 58 6d 65 6d 0d 35  |\..5f.. .TXmem.5|
00007ba0  70 0e ea 20 41 25 2c 42  25 2c 43 25 0d 35 7a 0b  |p.. A%,B%,C%.5z.|
00007bb0  f2 72 78 49 4e 49 54 0d  35 84 1a c8 99 22 48 6f  |.rxINIT.5...."Ho|
00007bc0  75 72 67 6c 61 73 73 5f  53 74 61 72 74 22 2c 31  |urglass_Start",1|
00007bd0  30 0d 35 8e 0d f2 54 58  62 28 26 35 30 29 0d 35  |0.5...TXb(&50).5|
00007be0  98 14 f2 54 58 62 28 32  29 3a f2 61 63 43 4b 28  |...TXb(2):.acCK(|
00007bf0  32 29 0d 35 a2 0c 43 25  3d 43 6d 65 6d 25 0d 35  |2).5..C%=Cmem%.5|
00007c00  ac 28 e7 20 4d 6d 65 6e  75 25 21 31 30 30 3d 30  |.(. Mmenu%!100=0|
00007c10  20 8c 20 42 25 3d 4e 6d  65 6d 25 20 8b 20 42 25  | . B%=Nmem% . B%|
00007c20  3d 43 6d 65 6d 25 0d 35  b6 10 e3 20 41 25 3d 43  |=Cmem%.5... A%=C|
00007c30  25 20 b8 20 42 25 0d 35  c0 12 f2 54 58 73 28 4d  |% . B%.5...TXs(M|
00007c40  65 6d 24 28 41 25 29 29  0d 35 ca 18 f2 54 58 62  |em$(A%)).5...TXb|
00007c50  28 26 46 45 29 3a f2 61  63 43 4b 28 26 46 45 29  |(&FE):.acCK(&FE)|
00007c60  0d 35 d4 05 ed 0d 35 de  0d f2 66 69 6e 69 73 68  |.5....5...finish|
00007c70  54 58 0d 35 e8 05 e1 0d  35 f2 04 0d 35 fc 0d dd  |TX.5....5...5...|
00007c80  20 f2 54 58 74 6f 64 6f  0d 36 06 0e ea 20 41 25  | .TXtodo.6... A%|
00007c90  2c 42 25 2c 43 25 0d 36  10 0b f2 72 78 49 4e 49  |,B%,C%.6...rxINI|
00007ca0  54 0d 36 1a 1a c8 99 22  48 6f 75 72 67 6c 61 73  |T.6...."Hourglas|
00007cb0  73 5f 53 74 61 72 74 22  2c 31 30 0d 36 24 0d f2  |s_Start",10.6$..|
00007cc0  54 58 62 28 26 35 30 29  0d 36 2e 14 f2 54 58 62  |TXb(&50).6...TXb|
00007cd0  28 33 29 3a f2 61 63 43  4b 28 33 29 0d 36 38 0d  |(3):.acCK(3).68.|
00007ce0  43 25 3d 43 74 6f 64 6f  25 0d 36 42 2a e7 20 4d  |C%=Ctodo%.6B*. M|
00007cf0  6d 65 6e 75 25 21 31 30  30 3d 30 20 8c 20 42 25  |menu%!100=0 . B%|
00007d00  3d 4e 74 6f 64 6f 25 20  8b 20 42 25 3d 43 74 6f  |=Ntodo% . B%=Cto|
00007d10  64 6f 25 0d 36 4c 10 e3  20 41 25 3d 43 25 20 b8  |do%.6L.. A%=C% .|
00007d20  20 42 25 0d 36 56 13 f2  54 58 73 28 54 6f 44 6f  | B%.6V..TXs(ToDo|
00007d30  24 28 41 25 29 29 0d 36  60 18 f2 54 58 62 28 26  |$(A%)).6`..TXb(&|
00007d40  46 45 29 3a f2 61 63 43  4b 28 26 46 45 29 0d 36  |FE):.acCK(&FE).6|
00007d50  6a 05 ed 0d 36 74 0d f2  66 69 6e 69 73 68 54 58  |j...6t..finishTX|
00007d60  0d 36 7e 05 e1 0d 36 88  04 0d 36 92 0c dd 20 f2  |.6~...6...6... .|
00007d70  54 58 74 65 6c 0d 36 9c  11 ea 20 41 25 2c 42 25  |TXtel.6... A%,B%|
00007d80  2c 43 25 2c 44 25 0d 36  a6 0b f2 72 78 49 4e 49  |,C%,D%.6...rxINI|
00007d90  54 0d 36 b0 1a c8 99 22  48 6f 75 72 67 6c 61 73  |T.6...."Hourglas|
00007da0  73 5f 53 74 61 72 74 22  2c 31 30 0d 36 ba 0d f2  |s_Start",10.6...|
00007db0  54 58 62 28 26 35 30 29  0d 36 c4 14 f2 54 58 62  |TXb(&50).6...TXb|
00007dc0  28 30 29 3a f2 61 63 43  4b 28 30 29 0d 36 ce 0c  |(0):.acCK(0).6..|
00007dd0  43 25 3d 43 74 65 6c 25  0d 36 d8 28 e7 20 4d 6d  |C%=Ctel%.6.(. Mm|
00007de0  65 6e 75 25 21 31 30 30  3d 30 20 8c 20 42 25 3d  |enu%!100=0 . B%=|
00007df0  4e 74 65 6c 25 20 8b 20  42 25 3d 43 74 65 6c 25  |Ntel% . B%=Ctel%|
00007e00  0d 36 e2 10 e3 20 41 25  3d 43 25 20 b8 20 42 25  |.6... A%=C% . B%|
00007e10  0d 36 ec 0e e3 20 44 25  3d 30 20 b8 20 35 0d 36  |.6... D%=0 . 5.6|
00007e20  f6 15 f2 54 58 73 28 54  65 6c 24 28 41 25 2c 44  |...TXs(Tel$(A%,D|
00007e30  25 29 29 0d 37 00 18 f2  54 58 62 28 26 46 46 29  |%)).7...TXb(&FF)|
00007e40  3a f2 61 63 43 4b 28 26  46 46 29 0d 37 0a 05 ed  |:.acCK(&FF).7...|
00007e50  0d 37 14 18 f2 54 58 62  28 26 46 45 29 3a f2 61  |.7...TXb(&FE):.a|
00007e60  63 43 4b 28 26 46 45 29  0d 37 1e 05 ed 0d 37 28  |cCK(&FE).7....7(|
00007e70  0d f2 66 69 6e 69 73 68  54 58 0d 37 32 05 e1 0d  |..finishTX.72...|
00007e80  37 3c 04 0d 37 46 0c dd  20 f2 54 58 65 78 70 0d  |7<..7F.. .TXexp.|
00007e90  37 50 14 ea 20 41 25 2c  42 25 2c 43 25 2c 44 25  |7P.. A%,B%,C%,D%|
00007ea0  2c 74 24 0d 37 5a 0b f2  72 78 49 4e 49 54 0d 37  |,t$.7Z..rxINIT.7|
00007eb0  64 1a c8 99 22 48 6f 75  72 67 6c 61 73 73 5f 53  |d..."Hourglass_S|
00007ec0  74 61 72 74 22 2c 31 30  0d 37 6e 0d f2 54 58 62  |tart",10.7n..TXb|
00007ed0  28 26 35 30 29 0d 37 78  14 f2 54 58 62 28 35 29  |(&50).7x..TXb(5)|
00007ee0  3a f2 61 63 43 4b 28 35  29 0d 37 82 0c 43 25 3d  |:.acCK(5).7..C%=|
00007ef0  43 65 78 70 25 0d 37 8c  28 e7 20 4d 6d 65 6e 75  |Cexp%.7.(. Mmenu|
00007f00  25 21 31 30 30 3d 30 20  8c 20 42 25 3d 4e 65 78  |%!100=0 . B%=Nex|
00007f10  70 25 20 8b 20 42 25 3d  43 65 78 70 25 0d 37 96  |p% . B%=Cexp%.7.|
00007f20  10 e3 20 41 25 3d 43 25  20 b8 20 42 25 0d 37 a0  |.. A%=C% . B%.7.|
00007f30  32 f2 54 58 73 28 45 78  70 24 28 41 25 2c 32 29  |2.TXs(Exp$(A%,2)|
00007f40  2b 45 78 70 24 28 41 25  2c 31 29 2b 45 78 70 24  |+Exp$(A%,1)+Exp$|
00007f50  28 41 25 2c 30 29 29 20  3a f4 20 44 61 74 65 0d  |(A%,0)) :. Date.|
00007f60  37 aa 18 f2 54 58 62 28  26 46 46 29 3a f2 61 63  |7...TXb(&FF):.ac|
00007f70  43 4b 28 26 46 46 29 0d  37 b4 20 f2 54 58 73 28  |CK(&FF).7. .TXs(|
00007f80  c3 28 45 78 70 25 28 41  25 2c 30 29 29 29 20 3a  |.(Exp%(A%,0))) :|
00007f90  20 f4 20 54 79 70 65 0d  37 be 18 f2 54 58 62 28  | . Type.7...TXb(|
00007fa0  26 46 46 29 3a f2 61 63  43 4b 28 26 46 46 29 0d  |&FF):.acCK(&FF).|
00007fb0  37 c8 26 f2 54 58 73 28  45 78 70 24 28 41 25 2c  |7.&.TXs(Exp$(A%,|
00007fc0  34 29 29 20 20 20 20 20  20 20 3a 20 f4 20 41 6d  |4))       : . Am|
00007fd0  6d 6f 75 6e 74 0d 37 d2  18 f2 54 58 62 28 26 46  |mount.7...TXb(&F|
00007fe0  46 29 3a f2 61 63 43 4b  28 26 46 46 29 0d 37 dc  |F):.acCK(&FF).7.|
00007ff0  26 f2 54 58 73 28 c3 28  45 78 70 25 28 41 25 2c  |&.TXs(.(Exp%(A%,|
00008000  31 29 29 29 20 3a 20 f4  20 50 61 79 20 6d 65 74  |1))) : . Pay met|
00008010  68 6f 64 0d 37 e6 18 f2  54 58 62 28 26 46 46 29  |hod.7...TXb(&FF)|
00008020  3a f2 61 63 43 4b 28 26  46 46 29 0d 37 f0 34 e7  |:.acCK(&FF).7.4.|
00008030  20 45 78 70 25 28 41 25  2c 32 29 20 8c 20 f2 54  | Exp%(A%,2) . .T|
00008040  58 73 28 22 59 22 29 20  8b 20 f2 54 58 73 28 22  |Xs("Y") . .TXs("|
00008050  4e 22 29 20 3a 20 f4 20  52 65 63 69 65 70 74 0d  |N") : . Reciept.|
00008060  37 fa 18 f2 54 58 62 28  26 46 46 29 3a f2 61 63  |7...TXb(&FF):.ac|
00008070  43 4b 28 26 46 46 29 0d  38 04 23 f2 54 58 73 28  |CK(&FF).8.#.TXs(|
00008080  45 78 70 24 28 41 25 2c  33 29 29 20 20 20 20 20  |Exp$(A%,3))     |
00008090  20 20 3a 20 f4 20 4e 6f  74 65 0d 38 0e 18 f2 54  |  : . Note.8...T|
000080a0  58 62 28 26 46 45 29 3a  f2 61 63 43 4b 28 26 46  |Xb(&FE):.acCK(&F|
000080b0  45 29 0d 38 18 05 ed 0d  38 22 0d f2 66 69 6e 69  |E).8....8"..fini|
000080c0  73 68 54 58 0d 38 2c 05  e1 0d 38 36 04 0d 38 40  |shTX.8,...86..8@|
000080d0  0d dd 20 f2 54 58 73 68  65 64 0d 38 4a 14 ea 20  |.. .TXshed.8J.. |
000080e0  41 25 2c 42 25 2c 43 25  2c 44 25 2c 74 24 0d 38  |A%,B%,C%,D%,t$.8|
000080f0  54 0b f2 72 78 49 4e 49  54 0d 38 5e 1a c8 99 22  |T..rxINIT.8^..."|
00008100  48 6f 75 72 67 6c 61 73  73 5f 53 74 61 72 74 22  |Hourglass_Start"|
00008110  2c 31 30 0d 38 68 0d f2  54 58 62 28 26 35 30 29  |,10.8h..TXb(&50)|
00008120  0d 38 72 14 f2 54 58 62  28 31 29 3a f2 61 63 43  |.8r..TXb(1):.acC|
00008130  4b 28 31 29 0d 38 7c 0d  43 25 3d 43 73 68 65 64  |K(1).8|.C%=Cshed|
00008140  25 0d 38 86 2a e7 20 4d  6d 65 6e 75 25 21 31 30  |%.8.*. Mmenu%!10|
00008150  30 3d 30 20 8c 20 42 25  3d 4e 73 68 65 64 25 20  |0=0 . B%=Nshed% |
00008160  8b 20 42 25 3d 43 73 68  65 64 25 0d 38 90 10 e3  |. B%=Cshed%.8...|
00008170  20 41 25 3d 43 25 20 b8  20 42 25 0d 38 9a 56 e7  | A%=C% . B%.8.V.|
00008180  20 a9 28 53 68 65 64 24  28 41 25 2c 33 29 29 20  | .(Shed$(A%,3)) |
00008190  3d 20 35 20 8c 20 74 24  3d c0 53 68 65 64 24 28  |= 5 . t$=.Shed$(|
000081a0  41 25 2c 33 29 2c 32 29  2b c2 53 68 65 64 24 28  |A%,3),2)+.Shed$(|
000081b0  41 25 2c 33 29 2c 32 29  20 8b 20 74 24 3d a4 6d  |A%,3),2) . t$=.m|
000081c0  61 6b 65 54 28 53 68 65  64 24 28 41 25 2c 33 29  |akeT(Shed$(A%,3)|
000081d0  29 0d 38 a4 30 f2 54 58  73 28 53 68 65 64 24 28  |).8.0.TXs(Shed$(|
000081e0  41 25 2c 32 29 2b 53 68  65 64 24 28 41 25 2c 31  |A%,2)+Shed$(A%,1|
000081f0  29 2b 53 68 65 64 24 28  41 25 2c 30 29 2b 74 24  |)+Shed$(A%,0)+t$|
00008200  29 0d 38 ae 18 f2 54 58  62 28 26 46 46 29 3a f2  |).8...TXb(&FF):.|
00008210  61 63 43 4b 28 26 46 46  29 0d 38 b8 15 f2 54 58  |acCK(&FF).8...TX|
00008220  73 28 53 68 65 64 24 28  41 25 2c 34 29 29 0d 38  |s(Shed$(A%,4)).8|
00008230  c2 18 f2 54 58 62 28 26  46 45 29 3a f2 61 63 43  |...TXb(&FE):.acC|
00008240  4b 28 26 46 45 29 0d 38  cc 05 ed 0d 38 d6 0d f2  |K(&FE).8....8...|
00008250  66 69 6e 69 73 68 54 58  0d 38 e0 05 e1 0d 38 ea  |finishTX.8....8.|
00008260  04 0d 38 f4 10 dd 20 a4  6d 61 6b 65 54 28 61 24  |..8... .makeT(a$|
00008270  29 0d 38 fe 0e ea 20 74  24 2c 4c 25 2c 43 25 0d  |).8... t$,L%,C%.|
00008280  39 08 09 74 24 3d 61 24  0d 39 12 0f 43 25 3d a7  |9..t$=a$.9..C%=.|
00008290  61 24 2c 22 3a 22 29 0d  39 1c 0c 4c 25 3d a9 28  |a$,":").9..L%=.(|
000082a0  61 24 29 0d 39 26 0d e7  20 43 25 3c 3e 30 20 8c  |a$).9&.. C%<>0 .|
000082b0  0d 39 30 0b c8 95 20 4c  25 3c 35 0d 39 3a 0d 61  |.90... L%<5.9:.a|
000082c0  24 3d 22 30 22 2b 61 24  0d 39 44 09 4c 25 2b 3d  |$="0"+a$.9D.L%+=|
000082d0  31 0d 39 4e 05 ce 0d 39  58 0f 43 25 3d a7 61 24  |1.9N...9X.C%=.a$|
000082e0  2c 22 3a 22 29 0d 39 62  1b 74 24 3d c0 61 24 2c  |,":").9b.t$=.a$,|
000082f0  43 25 2d 31 29 2b c2 61  24 2c 4c 25 2d 43 25 29  |C%-1)+.a$,L%-C%)|
00008300  0d 39 6c 05 cc 0d 39 76  0b c8 95 20 4c 25 3c 34  |.9l...9v... L%<4|
00008310  0d 39 80 0d 74 24 3d 22  30 22 2b 74 24 0d 39 8a  |.9..t$="0"+t$.9.|
00008320  09 4c 25 2b 3d 31 0d 39  94 05 ce 0d 39 9e 05 cd  |.L%+=1.9....9...|
00008330  0d 39 a8 07 3d 74 24 0d  39 b2 04 0d 39 bc 0f dd  |.9..=t$.9...9...|
00008340  20 f2 66 69 6e 69 73 68  54 58 0d 39 c6 0e e7 20  | .finishTX.9... |
00008350  41 62 6f 72 74 25 20 8c  0d 39 d0 3a f2 5f 73 65  |Abort% ..9.:._se|
00008360  74 75 70 57 28 22 42 75  66 66 65 72 20 6f 76 65  |tupW("Buffer ove|
00008370  72 66 6c 6f 77 2c 20 68  61 72 64 77 61 72 65 20  |rflow, hardware |
00008380  6e 6f 74 20 63 6f 6e 6e  65 63 74 65 64 22 29 3a  |not connected"):|
00008390  ef 37 0d 39 da 05 cc 0d  39 e4 18 f2 54 58 62 28  |.7.9....9...TXb(|
000083a0  26 46 38 29 3a f2 61 63  43 4b 28 26 46 38 29 0d  |&F8):.acCK(&F8).|
000083b0  39 ee 0e f2 54 58 62 28  43 6b 42 25 29 0d 39 f8  |9...TXb(CkB%).9.|
000083c0  0d f2 54 58 62 28 26 31  41 29 0d 3a 02 05 cd 0d  |..TXb(&1A).:....|
000083d0  3a 0c 15 c8 99 22 48 6f  75 72 67 6c 61 73 73 5f  |:...."Hourglass_|
000083e0  4f 66 66 22 0d 3a 16 05  e1 0d 3a 20 04 0d 3a 2a  |Off".:....: ..:*|
000083f0  04 0d 3a 34 0e dd 20 f2  54 58 73 28 73 24 29 0d  |..:4.. .TXs(s$).|
00008400  3a 3e 0b ea 20 41 25 2c  42 25 0d 3a 48 12 e3 20  |:>.. A%,B%.:H.. |
00008410  41 25 3d 31 20 b8 20 a9  28 73 24 29 0d 3a 52 13  |A%=1 . .(s$).:R.|
00008420  42 25 3d 97 28 c1 73 24  2c 41 25 2c 31 29 29 0d  |B%=.(.s$,A%,1)).|
00008430  3a 5c 13 42 25 3d a4 74  72 61 6e 73 54 58 28 42  |:\.B%=.transTX(B|
00008440  25 29 0d 3a 66 16 f2 54  58 62 28 42 25 29 3a f2  |%).:f..TXb(B%):.|
00008450  61 63 43 4b 28 42 25 29  0d 3a 70 05 ed 0d 3a 7a  |acCK(B%).:p...:z|
00008460  05 e1 0d 3a 84 04 0d 3a  8e 0e dd 20 f2 54 58 62  |...:...:... .TXb|
00008470  28 62 25 29 0d 3a 98 08  ea 20 54 25 0d 3a a2 11  |(b%).:... T%.:..|
00008480  e7 20 ac 28 41 62 6f 72  74 25 29 20 8c 0d 3a ac  |. .(Abort%) ..:.|
00008490  0b 54 25 3d 91 2b 35 30  0d 3a b6 05 f5 0d 3a c0  |.T%=.+50.:....:.|
000084a0  1e c8 99 22 4f 53 5f 53  65 72 69 61 6c 4f 70 22  |..."OS_SerialOp"|
000084b0  2c 33 2c 62 25 20 b8 20  3b 43 25 0d 3a ca 0d 43  |,3,b% . ;C%.:..C|
000084c0  25 3d 43 25 20 80 20 32  0d 3a d4 11 fd 20 43 25  |%=C% . 2.:... C%|
000084d0  3d 30 20 84 20 91 3e 54  25 0d 3a de 16 e7 20 43  |=0 . .>T%.:... C|
000084e0  25 3c 3e 30 20 8c 20 41  62 6f 72 74 25 3d b9 0d  |%<>0 . Abort%=..|
000084f0  3a e8 05 cd 0d 3a f2 05  e1 0d 3a fc 04 0d 3b 06  |:....:....:...;.|
00008500  12 dd 20 f2 65 78 70 6f  72 74 53 28 73 24 29 0d  |.. .exportS(s$).|
00008510  3b 10 0b ea 20 41 25 2c  43 25 0d 3b 1a 12 e3 20  |;... A%,C%.;... |
00008520  41 25 3d 31 20 b8 20 a9  28 73 24 29 0d 3b 24 13  |A%=1 . .(s$).;$.|
00008530  43 25 3d 97 28 c1 73 24  2c 41 25 2c 31 29 29 0d  |C%=.(.s$,A%,1)).|
00008540  3b 2e 14 e7 20 43 25 3d  31 37 32 20 8c 20 43 25  |;... C%=172 . C%|
00008550  3d 26 41 0d 3b 38 0b d5  23 46 25 2c 43 25 0d 3b  |=&A.;8..#F%,C%.;|
00008560  42 05 ed 0d 3b 4c 05 e1  0d 3b 56 04 0d 3b 60 12  |B...;L...;V..;`.|
00008570  dd 20 a4 74 72 61 6e 73  54 58 28 41 25 29 0d 3b  |. .transTX(A%).;|
00008580  6a 08 ea 20 42 25 0d 3b  74 09 42 25 3d 41 25 0d  |j.. B%.;t.B%=A%.|
00008590  3b 7e 15 e7 20 41 25 3d  31 37 32 20 8c 20 42 25  |;~.. A%=172 . B%|
000085a0  3d 26 31 33 0d 3b 88 15  e7 20 41 25 3d 26 36 30  |=&13.;... A%=&60|
000085b0  20 8c 20 42 25 3d 26 32  36 0d 3b 92 15 e7 20 41  | . B%=&26.;... A|
000085c0  25 3d 26 37 43 20 8c 20  42 25 3d 26 32 31 0d 3b  |%=&7C . B%=&21.;|
000085d0  9c 15 e7 20 41 25 3d 26  33 41 20 8c 20 42 25 3d  |... A%=&3A . B%=|
000085e0  26 32 31 0d 3b a6 2a e7  20 41 25 3e 26 36 30 20  |&21.;.*. A%>&60 |
000085f0  80 20 41 25 3c 3e 31 37  32 20 8c 20 42 25 3d 41  |. A%<>172 . B%=A|
00008600  25 20 80 20 26 35 46 3a  41 25 3d 42 25 0d 3b b0  |% . &5F:A%=B%.;.|
00008610  0e e7 20 41 25 3c 26 33  30 20 8c 0d 3b ba 0b c8  |.. A%<&30 ..;...|
00008620  8e 20 41 25 20 ca 0d 3b  c4 11 c9 20 26 32 30 20  |. A% ..;... &20 |
00008630  3a 42 25 3d 26 32 30 0d  3b ce 11 c9 20 26 32 34  |:B%=&20.;... &24|
00008640  20 3a 42 25 3d 26 32 37  0d 3b d8 11 c9 20 26 32  | :B%=&27.;... &2|
00008650  46 20 3a 42 25 3d 26 32  34 0d 3b e2 11 c9 20 26  |F :B%=&24.;... &|
00008660  32 45 20 3a 42 25 3d 26  32 39 0d 3b ec 11 c9 20  |2E :B%=&29.;... |
00008670  26 32 44 20 3a 42 25 3d  26 32 38 0d 3b f6 11 c9  |&2D :B%=&28.;...|
00008680  20 26 32 37 20 3a 42 25  3d 26 32 32 0d 3c 00 05  | &27 :B%=&22.<..|
00008690  7f 0d 3c 0a 0a 42 25 3d  26 32 35 0d 3c 14 05 cb  |..<..B%=&25.<...|
000086a0  0d 3c 1e 05 cd 0d 3c 28  07 3d 42 25 0d 3c 32 04  |.<....<(.=B%.<2.|
000086b0  0d 3c 3c 12 dd 20 a4 74  72 61 6e 73 52 58 28 41  |.<<.. .transRX(A|
000086c0  25 29 0d 3c 46 08 ea 20  42 25 0d 3c 50 09 42 25  |%).<F.. B%.<P.B%|
000086d0  3d 41 25 0d 3c 5a 0e e7  20 41 25 3c 26 33 30 20  |=A%.<Z.. A%<&30 |
000086e0  8c 0d 3c 64 0b c8 8e 20  41 25 20 ca 0d 3c 6e 11  |..<d... A% ..<n.|
000086f0  c9 20 26 31 33 3a 20 42  25 3d 31 37 32 0d 3c 78  |. &13: B%=172.<x|
00008700  11 c9 20 26 32 30 3a 20  42 25 3d 26 32 30 0d 3c  |.. &20: B%=&20.<|
00008710  82 11 c9 20 26 32 31 3a  20 42 25 3d 26 33 41 0d  |... &21: B%=&3A.|
00008720  3c 8c 11 c9 20 26 32 32  3a 20 42 25 3d 31 38 30  |<... &22: B%=180|
00008730  0d 3c 96 10 c9 20 26 32  33 3a 20 42 25 3d 34 34  |.<... &23: B%=44|
00008740  0d 3c a0 10 c9 20 26 32  34 3a 20 42 25 3d 34 37  |.<... &24: B%=47|
00008750  0d 3c aa 11 c9 20 26 32  35 3a 20 42 25 3d 31 36  |.<... &25: B%=16|
00008760  35 0d 3c b4 11 c9 20 26  32 36 3a 20 42 25 3d 31  |5.<... &26: B%=1|
00008770  36 33 0d 3c be 10 c9 20  26 32 37 3a 20 42 25 3d  |63.<... &27: B%=|
00008780  33 36 0d 3c c8 11 c9 20  26 32 38 3a 20 42 25 3d  |36.<... &28: B%=|
00008790  26 32 44 0d 3c d2 11 c9  20 26 32 39 3a 20 42 25  |&2D.<... &29: B%|
000087a0  3d 26 32 45 0d 3c dc 11  c9 20 26 32 45 3a 20 42  |=&2E.<... &2E: B|
000087b0  25 3d 26 32 42 0d 3c e6  05 7f 0d 3c f0 0a 42 25  |%=&2B.<....<..B%|
000087c0  3d 26 33 46 0d 3c fa 05  cb 0d 3d 04 05 cd 0d 3d  |=&3F.<....=....=|
000087d0  0e 07 3d 42 25 0d 3d 18  04 0d ff                 |..=B%.=....|
000087db

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .