Home » Archimedes archive » Archimedes World » AW-1991-12.adf » December91 » !AWDec91/Goodies/Banker/!Banker/!RunImage
!AWDec91/Goodies/Banker/!Banker/!RunImage
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 » Archimedes World » AW-1991-12.adf » December91 |
| Filename: | !AWDec91/Goodies/Banker/!Banker/!RunImage |
| Read OK: | ✔ |
| File size: | 7A94 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM>!RunImage
20REM>Bank Account Program
30REM>By Ken Jolley
40REM>Copyright Archimedes World December 1991
50PROCinitialise
60
70ON ERROR PROCerror
80REPEAT
90PROCpoll
100UNTIL quit%
110
120$block% = "TASK"
130SYS "Wimp_CloseDown",task%,!block%
140END
150:
160DEFPROCtemplate(T$)
170LOCAL c%
180$workbuff% = T$
190SYS "Wimp_LoadTemplate",,block%,cbuff%,endbuff%,-1,workbuff% TO ,,cbuff%,,,,c%
200ENDPROC
210
220DEFPROCinitialise
230
240SYS "OS_GetEnv" TO AA$
250p=INSTR(AA$,"""",INSTR(AA$,"""")+1)
260AA$=MID$(AA$,p+1)
270WHILE LEFT$(AA$,1)=" "
280AA$ = MID$(AA$,2)
290ENDWHILE
300
310DIM error% 128
320buffersize% = &1500
330DIM block% 20000
340DIM buffer% buffersize%
350DIM workbuff% &100
360DIM menu% &3000
370DIM pointer% 20
380DIM icon% 32
390DIM trans% 16
400DIM rect% 16
410DIM plotat% 8
420DIM rectin% 16
430
440DIM file% 256:$file% = "Account":filename$=""
450 DIM name$(100,59)
460 DIM amount%(100,59)
470 DIM date%(100,59)
480 DIM entry%(59)
490 DIM balance%(59)
500DIM buff% 10
510cbuff% = buffer%
520endbuff% = buffer%+buffersize%
530quit% = FALSE
540saved% = TRUE
550shaded% = TRUE
560select% = -1
570already% = -1
580sign% = 0
590slen% = 200: flen% = 800
600x0%=0:y0%=0
610x%=0:y%=0
620statement% = FALSE
630PROCinit_month
640month% = ((FNtoday>>8)MOD12)
650year% = ((FNtoday>>8)DIV12)
660day% = FNtoday AND 255
670day1% = day%
680day2% = day%
690day3% = day%
700day4% = day%
710yearplus% = 0
720$block% = "TASK"
730SYS "Wimp_Initialise",200,!block%,"Banker" TO version%,task%
740SYS "Wimp_OpenTemplate",,"<Ken$Dir>.Templates"
750PROCtemplate("MainWindow")
760SYS "Wimp_CreateWindow",,block% TO MainWindow%
770PROCtemplate("Info_Wind")
780SYS "Wimp_CreateWindow",,block% TO Info_Wind%
790PROCtemplate("xfer_send")
800SYS "Wimp_CreateWindow",,block% TO Save_Wind%
810:
820PROCtemplate("Amend")
830SYS "Wimp_CreateWindow",,block% TO Amend%
840PROCtemplate("Debit")
850SYS "Wimp_CreateWindow",,block% TO Debit%
860PROCtemplate("Credit")
870SYS "Wimp_CreateWindow",,block% TO Credit%
880PROCtemplate("Standing")
890SYS "Wimp_CreateWindow",,block% TO Standing%
900PROCtemplate("query")
910SYS "Wimp_CreateWindow",,block% TO Query%
920PROCset_icon_indirect(Info_Wind%,4,"1.00 (26 March 1991)")
930PROCset_icon_indirect(MainWindow%,0,month$(month% MOD 12)+" "+STR$(year%+yearplus%))
940PROCbaricon
950SYS "Wimp_CloseTemplate",,"Templates"
960IF AA$<>"" PROCload(AA$)
970ENDPROC
980:
990
1000DEFPROCset_icon_indirect(h%,i%,T$)
1010!error% = h%
1020error%!4 = i%
1030SYS "Wimp_GetIconState",,error%
1040REM IF (error%!24 AND &100) = 0 THEN ERROR
1050$(error%!28) = T$
1060!error% = h%
1070error%!4 = i%
1080error%!8 = 0
1090error%!12 = 0
1100SYS "Wimp_SetIconState",,error%
1110ENDPROC
1120:
1130
1140DEFPROCget_icon_indirect(h%,i%,RETURN T$)
1150!error% = h%
1160error%!4 = i%
1170SYS "Wimp_GetIconState",,error%
1180REM IF (error%!24 AND &100) = 0 THEN ERROR
1190T$ = $(error%!28)
1200ENDPROC
1210:
1220
1230DEFPROCpoll
1240SYS "Wimp_Poll",,block% TO reason%,block%
1250CASE reason% OF
1260 WHEN 1:PROCredraw(block%!0)
1270 WHEN 2:SYS "Wimp_OpenWindow",,block%
1280 WHEN 3:PROCclose(MainWindow%):PROCshutboxes
1290 WHEN 6:PROCmouse(block%!8,block%!12,block%!16)
1300 WHEN 7:PROCdragged
1310 WHEN 8:PROCkeys(block%!0,block%!4,block%!24)
1320 WHEN 9:PROCread_menu
1330 WHEN 17,18:PROCreceive
1340ENDCASE
1350ENDPROC
1360:
1370DEFPROCreceive
1380CASE block%!16 OF
1390 WHEN 0:
1400 IF saved% = TRUE THEN
1410 quit% = TRUE
1420 ELSE
1430 !block%=20
1440 block%!12=ref%
1450 block%!16=0 :REM quit block
1460 SYS SendMessage,19,block% :REM acknowledge, and refuse quit request
1470 IF FNquestion("!Banker document is not saved. Are you sure you wish to quit ? ") = 1 THEN
1480 quit% = TRUE
1490 ELSE
1500 ENDIF
1510 ENDIF
1520 WHEN 2:
1530 PROCget_icon_indirect(Save_Wind%,2,$file%)
1540 PROCdatasave
1550 WHEN 3:PROCloadack:PROCoktoload
1560 WHEN 8:
1570 IF saved% = TRUE THEN
1580 quit% = TRUE
1590 ELSE
1600 IF FNquestion("!Banker document is not saved. Are you sure you wish to quit ? ") = 1 THEN
1610 quit% = TRUE
1620 ELSE
1630 quit% = FALSE
1640 ENDIF
1650 ENDIF
1660
1670ENDCASE
1680ENDPROC
1690
1700:
1710DEFPROCloadack
1720block%!12 = block%!8
1730block%!16 = 4
1740SYS "Wimp_SendMessage",17,block%,block%!4
1750ENDPROC
1760:
1770DEFPROCoktoload
1780IF block%!40 = &406 THEN ok%=TRUE ELSE ok%=FALSE
1790IF ok% THEN
1800filename$ = ""
1810a% = 0
1820b% = block%?(44+a%)
1830WHILE b%<>0
1840 filename$+=CHR$(b%)
1850 a%+=1
1860 b% = block%?(44+a%)
1870ENDWHILE
1880IF FNquestion("This account is not saved. Are you sure you wish to load another ? ") = 1 PROCload(filename$)
1890ELSE
1900 !error% = 99
1910 $(error%+4) = "This is not an Account File !!!"
1920 SYS "Wimp_ReportError",error%,1,"!Banker"
1930ENDIF
1940ENDPROC
1950
1960DEFPROCredraw(blk%)
1970block%!0 = blk%
1980SYS "Wimp_RedrawWindow",,block% TO more%
1990PROCorigin(block%,x0%,y0%)
2000WHILE more%
2010 IF block%!0 = MainWindow% PROCdraw(x0%,y0%)
2020 SYS "Wimp_GetRectangle",,block% TO more%
2030ENDWHILE
2040ENDPROC
2050:
2060
2070DEFPROCorigin(block%,RETURN x0%,RETURN y0%)
2080x0% = block%!4-block%!20
2090y0% = block%!16-block%!24
2100ENDPROC
2110:
2120DEFPROCtitles
2130VDU 5
2140MOVE x0%+630,y0% : PRINT"STATEMENT"
2150MOVE x0%+630,y0%-10 : PRINT"_________"
2160MOVE x0%+300,y0%-70 : PRINT"Transaction Name"
2170MOVE x0%+700,y0%-70 : PRINT"Debit"
2180MOVE x0%+870,y0%-70 : PRINT"Credit"
2190MOVE x0%+25,y0%-70 : PRINT"Date"
2200MOVE x0%+1080,y0%-70 : PRINT"Balance"
2210ENDPROC
2220:
2230DEFPROCdraw(x0%,y0%)
2240LOCAL count%,down%,am,tot
2250VDU 5
2260@% = &010A020A
2270REM {NOCOMPILE}
2280@% = &0102020A
2290REM {COMPILE}
2300IF month% = 0 THEN total% = 0 ELSE total% = balance%(month%-1)
2310
2320MOVE x0%+300,y0%-150 : PRINT"Balance Forward : "
2330MOVE x0%+1030,y0%-150
2340IF total% < 0 THEN SYS "Wimp_SetColour",11 ELSE SYS "Wimp_SetColour",7
2350tot = total%/100
2360IF statement% = FALSE THEN
2370PRINT ABS(tot)
2380ELSE
2390PRINT ABS(tot):IF tot<0 MOVE x0%+1220,y0%-150:PRINT"DR"
2400ENDIF
2410IF entry%(month%) <> 0 THEN
2420FOR count% = 0 TO entry%(month%)-1
2430IF select% = count% THEN SYS "Wimp_SetColour",8 ELSE SYS "Wimp_SetColour",7
2440down% = 200+(count%*40)
2450MOVE x0%+25,y0%-down%
2460@% = &0100090A
2470PRINTSTR$(date%(count%,month%))
2480@% = &010A020A
2490REM {NOCOMPILE}
2500@% = &0102020A
2510REM {COMPILE}
2520MOVE x0%+300,y0%-down%
2530PRINTname$(count%,month%)
2540IF amount%(count%,month%) < 0 THEN
2550MOVE x0%+630,y0%-down%
2560ELSE MOVE x0%+800,y0%-down%
2570ENDIF
2580am = amount%(count%,month%)/100
2590PRINT ABS(am)
2600MOVE x0%+1030,y0%-down%
2610total% = total%+amount%(count%,month%)
2620IF select% = count% THEN SYS "Wimp_SetColour",8 ELSE IF total%<0 THEN SYS "Wimp_SetColour",11 ELSE SYS "Wimp_SetColour",7
2630tot = total%/100
2640IF statement% = FALSE THEN
2650PRINT ABS(tot)
2660ELSE
2670PRINT ABS(tot):IF tot<0 MOVE x0%+1220,y0%-down%:PRINT"DR"
2680ENDIF
2690NEXT
2700ENDIF
2710REM VDU 4
2720@% = &0100090A
2730ENDPROC
2740:
2750
2760DEFPROCbaricon
2770menubar% = FNicon(-1,0,0,62,96,&2002,0,0,0,"!Banker")
2780ENDPROC
2790:
2800DEFFNicon(hand%,x1%,y1%,x2%,y2%,flag%,dat1%,dat2%,dat3%,name$)
2810block%!0 = hand%
2820block%!4 = x1%
2830block%!8 = y1%
2840block%!12 = x2%
2850block%!16 = y2%
2860block%!20 = flag%
2870IF name$ = "" THEN
2880block%!24 = dat1%
2890block%!28 = dat2%
2900block%!32 = dat3%
2910ELSE
2920$(block%+24) = name$
2930ENDIF
2940SYS "Wimp_CreateIcon",,block% TO handy%
2950 = handy%
2960:
2970DEFPROCcreate_menu(m%,title$,m$)
2980LOCAL i%,max%
2990$m% = title$
3000m%?12 = 7
3010m%?13 = 2
3020m%?14 = 7
3030m%?15 = 0
3040m%!20 = 40
3050m%!24 = 0
3060i% = m% + 28
3070max% = LEN(title$) - 2
3080REPEAT
3090a% = INSTR(m$,",")
3100IF a%>max% max%=a%
3110!i% = 0
3120i%!4 = 0
3130i%!8 = &07000021
3140$(i% + 12) = LEFT$(m$,a%-1)
3150m$ = MID$(m$,a%+1)
3160CASE $(i%+12) OF
3170
3180 WHEN "Month" :i%!4 = m% + 268
3190 string$ = ("January,February,March,April,May,June,July,August,September,October,November,December,")
3200PROCcreate_menu(i%!4,"Month",string$)
3210
3220 WHEN "Year" :i%!4 = m% + 584
3230 string$ = STR$(year%)+","+STR$(year%+1)+","+STR$(year%+2)+","+STR$(year%+3)+","+STR$(year%+4)+","
3240 PROCcreate_menu(i%!4,"Year",string$)
3250 !i% = !i%OR2
3260
3270 WHEN "Delete" :IF shaded% i%!8 = i%!8OR&400000
3280 WHEN "Amend" :IF shaded% THEN
3290 !i% = !i%OR2
3300 i%!8=i%!8OR&400000
3310 ENDIF
3320 WHEN "S/Order" :!i% = !i%OR2
3330 WHEN "Save" :
3340 PROCset_icon_indirect(Save_Wind%,2,$file%)
3350 i%!4 = Save_Wind%
3360 WHEN "Print" :!i% = !i%OR2:REM i%!8 = i%!8OR&400000
3370 :
3380WHEN "Information" :i%!4 = Info_Wind%
3390WHEN month$(month% MOD 12) :!i% = !i% OR 1
3400WHEN STR$(year%+yearplus%) :!i% = !i% OR 1
3410ENDCASE
3420i% = i% + 24
3430UNTIL m$ = ""
3440i%!-24 = (i%!-24)OR &80
3450m%!16 = max%*16
3460ENDPROC
3470:
3480DEFPROCmaster_menu(title$,m$,x%,y%)
3490PROCcreate_menu(menu%,title$,m$)
3500SYS "Wimp_CreateMenu",,menu%,x%-menu%!16 / 2,y%
3510ENDPROC
3520:
3530DEFPROCmouse(B%,W%,I%)
3540LOCAL name$,amount$
3550CASE W% OF
3560
3570 WHEN -2
3580 CASE B% OF
3590 WHEN 2:PROCmaster_menu("!Banker","Information,Quit,",!block%,140)
3600 WHEN 4:PROCopen(MainWindow%)
3610 ENDCASE
3620
3630 WHEN MainWindow%
3640
3650 CASE B% OF
3660 WHEN 4
3670 CASE I% OF
3680 WHEN 6:month% = month%-1
3690 IF month%<0 month%=0
3700 yearplus% = month%DIV12
3710 REM PROCsetextent(0,entry%(month%)*40+280,1240,0)
3720 PROCset_icon_indirect(MainWindow%,0,month$(month% MOD 12)+" "+STR$(year%+yearplus%))
3730 select%=-1:shaded%=TRUE
3740 PROCredraw(MainWindow%)
3750 WHEN 7:
3760 month% = month%+1
3770 IF month%>59 month%=59
3780 yearplus% = month%DIV12
3790 REM PROCsetextent(0,entry%(month%)*40+280,1240,0)
3800 PROCset_icon_indirect(MainWindow%,0,month$(month% MOD 12)+" "+STR$(year%+yearplus%))
3810 select%=-1:shaded%=TRUE
3820 PROCredraw(MainWindow%)
3830 OTHERWISE
3840 SYS "Wimp_GetPointerInfo",,block%
3850 PROCselect(block%!4)
3860 ENDCASE
3870 WHEN 2:
3880 PROCmaster_menu("Main","Month,Year,Delete,Amend,Debit,Credit,S/Order,Save,Print,Clear,",!block%,block%!4)
3890 ENDCASE
3900 PROCshutboxes
3910
3920 WHEN Debit%:
3930 CASE B% OF
3940 WHEN 1,4:
3950 CASE I% OF
3960 WHEN 14: day1% -= 1:PROCdate(day1%)
3970 PROCset_icon_indirect(Debit%,16,STR$(day1%))
3980 WHEN 15: day1% += 1:PROCdate(day1%)
3990 PROCset_icon_indirect(Debit%,16,STR$(day1%))
4000 WHEN 13:PROCclose(Debit%)
4010 WHEN 12:PROCok(day1%,-1,Debit%,B%)
4020 ENDCASE
4030 ENDCASE
4040
4050 WHEN Credit%:
4060 CASE B% OF
4070 WHEN 1,4:
4080 CASE I% OF
4090 WHEN 14: day2% -= 1:PROCdate(day2%)
4100 PROCset_icon_indirect(Credit%,16,STR$(day2%))
4110 WHEN 15: day2% += 1:PROCdate(day2%)
4120 PROCset_icon_indirect(Credit%,16,STR$(day2%))
4130 WHEN 13:PROCclose(Credit%)
4140 WHEN 12:PROCok(day2%,1,Credit%,B%)
4150 ENDCASE
4160 ENDCASE
4170
4180 WHEN Amend%:
4190 CASE B% OF
4200 WHEN 1,4:
4210 CASE I% OF
4220 WHEN 14: day4% -= 1:PROCdate(day4%)
4230 PROCset_icon_indirect(Amend%,16,STR$(day4%))
4240 WHEN 15: day4% += 1:PROCdate(day4%)
4250 PROCset_icon_indirect(Amend%,16,STR$(day4%))
4260 WHEN 13:PROCclose(Amend%)
4270 WHEN 12:PROCok(day4%,sign%,Amend%,4)
4280 ENDCASE
4290 ENDCASE
4300
4310 WHEN Standing%:
4320 CASE B% OF
4330 WHEN 1,4:
4340 CASE I% OF
4350 WHEN 12: day3% -= 1:PROCdate(day3%)
4360 PROCset_icon_indirect(Standing%,10,STR$(day3%))
4370 WHEN 11: day3% += 1:PROCdate(day3%)
4380 PROCset_icon_indirect(Standing%,10,STR$(day3%))
4390 WHEN 8:PROCclose(Standing%)
4400 WHEN 7:PROCstanding(day3%,Standing%,B%)
4410 ENDCASE
4420 ENDCASE
4430
4440 WHEN Save_Wind%:
4450 CASE B% OF
4460 WHEN 16,64:
4470 CASE I% OF
4480 WHEN 3 :PROCdragbox
4490 ENDCASE
4500 WHEN 1,4:
4510 CASE I% OF
4520 WHEN 0 :PROCquicksave
4530 ENDCASE
4540 ENDCASE
4550
4560 WHEN Query%:
4570 CASE B% OF
4580 WHEN 1,4:
4590 CASE I% OF
4600 WHEN 0:
4610 WHEN 2:
4620 ENDCASE
4630
4640 ENDCASE
4650ENDCASE
4660ENDPROC
4670:
4680DEFPROCclose(which%)
4690!block% = which%
4700SYS "Wimp_CloseWindow",,block%
4710ENDPROC
4720:
4730
4740DEFPROCopen(which%)
4750!block% = which%
4760SYS "Wimp_GetWindowState",,block%
4770IF block%!32 AND &00010000 THEN block%!28 = -1
4780SYS "Wimp_OpenWindow",,block%
4790ENDPROC
4800:
4810
4820DEFFNtoday
4830?block% = 1
4840SYS "OS_Word",14,block%
4850A% = ?block%
4860Y% = 10 * (A% >> 4) + (A% AND 15)
4870A% = block%?1 :M% = 22799 + Y% * 12 + 10 * (A% >> 4) + (A% AND 15)
4880A% = block%?2
4890= (M%<<8) + 10 * (A% >> 4) + (A% AND 15)
4900
4910DEFPROCinit_month
4920DIM month$(11)
4930FOR a% = 0 TO 11
4940READ month$(a%)
4950NEXT
4960ENDPROC
4970:
4980
4990DEFPROCread_menu
5000LOCAL am
5010SYS "Wimp_GetPointerInfo",,pointer%
5020CASE $menu% OF
5030 WHEN "!Banker":
5040 CASE block%!0 OF
5050 WHEN 1:
5060 IF saved% = TRUE THEN
5070 quit% = TRUE
5080 ELSE
5090 IF FNquestion("This account is not saved. Are you sure you wish to quit ? ") = 1 THEN
5100 quit% = TRUE
5110 ELSE
5120 quit% = FALSE
5130 ENDIF
5140 ENDIF
5150 ENDCASE
5160 WHEN "Main":
5170 CASE block%!0 OF
5180
5190 WHEN 0:
5200
5210 menu%!(296 + ((month% MOD 12)*24)) = menu%!(296 + ((month% MOD 12)*24)) AND &FE
5220
5230 CASE block%!4 OF
5240 WHEN 0,1,2,3,4,5,6,7,8,9,10,11
5250 month% = block%!4
5260 ENDCASE
5270
5280 menu%!(296 + (month%*24)) = menu%!(296 + (month%*24)) OR 1
5290 month% = (month% MOD 12) + (yearplus% * 12)
5300 REM PROCsetextent(0,entry%(month%)*40+280,1240,0)
5310 PROCset_icon_indirect(MainWindow%,0,month$(month% MOD 12)+" "+STR$(year%+yearplus%))
5320 select%=-1:shaded%=TRUE
5330 menu%!84 = menu%!84 OR &400000:menu%!108 = menu%!108 OR &400000
5340 PROCredraw(MainWindow%)
5350
5360 WHEN 1:
5370
5380 menu%!(612 + (yearplus%*24)) = menu%!(612 + (yearplus%*24)) AND &FE
5390
5400 CASE block%!4 OF
5410 WHEN 0,1,2,3,4
5420 IF month%MOD12 = 11 THEN
5430 IF block%!4 - yearplus% = 1 THEN
5440 menu%!(296 + ((month% MOD 12)*24)) = menu%!(296 + ((month% MOD 12)*24)) AND &FE
5450 month%=month%+1
5460 ENDIF
5470 ENDIF
5480
5490 IF month%MOD12 = 0 THEN
5500 IF yearplus% - block%!4 = 1 THEN
5510 menu%!(296 + ((month% MOD 12)*24)) = menu%!(296 + ((month% MOD 12)*24)) AND &FE
5520 month%=month%-1
5530 ENDIF
5540 ENDIF
5550
5560 yearplus% = block%!4
5570
5580 ENDCASE
5590
5600 menu%!(296 + ((month%MOD12)*24)) = menu%!(296 + ((month%MOD12)*24)) OR 1
5610 menu%!(612 + (yearplus%*24)) = menu%!(612 + (yearplus%*24)) OR 1
5620 month% = (month% MOD 12) + (yearplus% * 12)
5630 REM PROCsetextent(0,entry%(month%)*40+280,1240,0)
5640 PROCset_icon_indirect(MainWindow%,0,month$(month% MOD 12)+" "+STR$(year%+yearplus%))
5650 select%=-1:shaded%=TRUE
5660 menu%!84 = menu%!84 OR &400000:menu%!108 = menu%!108 OR &400000
5670 PROCredraw(MainWindow%)
5680
5690 WHEN 2:
5700 PROCdelete
5710 select% = -1
5720 shaded% = TRUE
5721 saved% = FALSE
5730
5740 WHEN 3:
5750 PROCset_icon_indirect(Amend%,17,name$(select%,month%))
5760 am = amount%(select%,month%)/100
5770 PROCset_icon_indirect(Amend%,21,STR$(ABS(am)))
5780 IF amount%(select%,month%)< 0 sign%=-1 ELSE sign% = 1
5790 PROCset_icon_indirect(Amend%,0,month$(month% MOD 12))
5800 day4% = date%(select%,month%)
5810 PROCset_icon_indirect(Amend%,16,STR$(day4%))
5820 PROCset_icon_indirect(Amend%,22,STR$(year%+yearplus%))
5830 PROCopen(Amend%)
5840 SYS "Wimp_SetCaretPosition",Amend%,17,,,-1,LEN(name$(select%,month%))
5850
5860 WHEN 4:
5870 PROCdate(day1%)
5880 PROCset_icon_indirect(Debit%,17,"")
5890 PROCset_icon_indirect(Debit%,21,"")
5900 PROCset_icon_indirect(Debit%,0,month$(month% MOD 12))
5910 PROCset_icon_indirect(Debit%,16,STR$(day1%))
5920 PROCset_icon_indirect(Debit%,22,STR$(year%+yearplus%))
5930 PROCopen(Debit%)
5940 SYS "Wimp_SetCaretPosition",Debit%,17,,,-1,0
5950
5960 WHEN 5:
5970 PROCdate(day2%)
5980 PROCset_icon_indirect(Credit%,17,"")
5990 PROCset_icon_indirect(Credit%,21,"")
6000 PROCset_icon_indirect(Credit%,0,month$(month% MOD 12))
6010 PROCset_icon_indirect(Credit%,16,STR$(day2%))
6020 PROCset_icon_indirect(Credit%,22,STR$(year%+yearplus%))
6030 PROCopen(Credit%)
6040 SYS "Wimp_SetCaretPosition",Credit%,17,,,-1,0
6050
6060 WHEN 6:
6070 PROCdate(day3%)
6080 PROCset_icon_indirect(Standing%,20,month$(month% MOD 12)+" "+STR$(year%+yearplus%))
6090 PROCset_icon_indirect(Standing%,10,STR$(day3%))
6100 PROCset_icon_indirect(Standing%,13,"")
6110 PROCset_icon_indirect(Standing%,14,"")
6120 PROCset_icon_indirect(Standing%,15,"")
6130 PROCset_icon_indirect(Standing%,21,"")
6140 PROCopen(Standing%)
6150 SYS "Wimp_SetCaretPosition",Standing%,13,,,-1,0
6160
6170 WHEN 7:
6180 REM SYS "Wimp_SetCaretPosition",Save_Wind%,2,,,-1,0
6190 PROCquicksave
6200
6210 WHEN 8:PROCprint
6220
6230 WHEN 9:
6240 IF saved% = TRUE THEN
6250 PROCclear
6260 PROCredraw(MainWindow%)
6270 ELSE
6280 IF FNquestion("This account is not saved. Are you sure you wish to clear it ? ") = 1 THEN
6290 PROCclear
6300 PROCredraw(MainWindow%)
6310 ELSE
6320 ENDIF
6330 ENDIF
6340 ENDCASE
6350ENDCASE
6360
6370IF pointer%!8 = 1 THEN
6380SYS "Wimp_CreateMenu",,menu%,x%-menu%!16 / 2,y%
6390ENDIF
6400
6410ENDPROC
6420:
6430
6440DEFPROCdate(RETURN da%)
6450CASE (month% MOD 12) OF
6460 WHEN 0,2,4,6,7,9,11:
6470 IF da% < 1 da% = 31
6480 IF da% > 31 da% = 1
6490
6500 WHEN 3,5,8,10:
6510 IF da% < 1 da% = 30
6520 IF da% > 30 da% = 1
6530
6540 WHEN 1:
6550 IF ((year%+yearplus%) MOD 4 = 0) AND ((year%+yearplus%) MOD 100 <>0) OR ((year%+yearplus%) MOD 400 = 0) THEN
6560 IF da% < 1 da% = 29
6570 IF da% > 29 da% = 1
6580 ELSE
6590 IF da% < 1 da% = 28
6600 IF da% > 28 da% = 1
6610 ENDIF
6620ENDCASE
6630ENDPROC
6640
6650
6660DEFPROCshutboxes
6670 PROCclose(Debit%)
6680 PROCclose(Credit%)
6690 PROCclose(Amend%)
6700 PROCclose(Standing%)
6710ENDPROC
6720:
6730
6740DEFPROCenter(mon%)
6750LOCAL count%,sort%
6760saved% = FALSE
6770slen% = entry%(mon%)*40+240
6780IF slen% > flen% THEN
6790PROCsetextent(0,-slen%,1240,0)
6800flen% = slen%
6810ENDIF
6820sort% = entry%(mon%)-1
6830FOR count% = mon% TO 59
6840balance%(count%) = balance%(count%)+amount%(sort%,mon%)
6850NEXT
6860WHILE sort%>0
6870 IF date%(sort%,mon%) < date%(sort%-1,mon%) THEN
6880 SWAP date%(sort%,mon%),date%(sort%-1,mon%)
6890 SWAP name$(sort%,mon%),name$(sort%-1,mon%)
6900 SWAP amount%(sort%,mon%),amount%(sort%-1,mon%)
6910 ENDIF
6920 IF date%(sort%,mon%) = date%(sort%-1,mon%) THEN
6930 IF name$(sort%,mon%) < name$(sort%-1,mon%) THEN
6940 SWAP date%(sort%,mon%),date%(sort%-1,mon%)
6950 SWAP name$(sort%,mon%),name$(sort%-1,mon%)
6960 SWAP amount%(sort%,mon%),amount%(sort%-1,mon%)
6970 ENDIF
6980 ENDIF
6990 sort% -= 1
7000ENDWHILE
7010ENDPROC
7020:
7030
7040DEFPROCselect(yy%)
7050IF ((yy%<y0%-200)) AND (yy%>((y0%-200)-40*entry%(month%))) THEN
7060already% = ((y0% - 200) - yy%)/40
7070IF already% = select% THEN
7080already% = -1:select% = -1
7090shaded% = TRUE
7100ELSE
7110select% = already%
7120shaded% = FALSE
7130ENDIF
7140PROCredraw(MainWindow%)
7150ENDIF
7160ENDPROC
7170:
7180
7190DEFPROCdelete
7200LOCAL count%
7210FOR count% = month% TO 59
7220balance%(count%) -= amount%(select%,month%)
7230NEXT
7240FOR count% = select% TO entry%(month%)-1
7250name$(count%,month%) = name$(count%+1,month%)
7260amount%(count%,month%) = amount%(count%+1,month%)
7270date%(count%,month%) = date%(count%+1,month%)
7280NEXT
7290entry%(month%) -= 1
7300select% = -1: shaded% = TRUE
7310PROCredraw(MainWindow%)
7320ENDPROC
7330
7340
7350DEFPROCkeys(W%,I%,C%)
7360CASE TRUE OF
7370 WHEN C% = 13 AND W% = Debit%:
7380 CASE I% OF
7390 WHEN 17:SYS "Wimp_SetCaretPosition",Debit%,21,,,-1,0
7400 WHEN 21:
7410 PROCok(day1%,-1,Debit%,4)
7420 ENDCASE
7430
7440 WHEN C% = 13 AND W% = Credit%:
7450 CASE I% OF
7460 WHEN 17:SYS "Wimp_SetCaretPosition",Credit%,21,,,-1,0
7470 WHEN 21:
7480 PROCok(day2%,1,Credit%,4)
7490 ENDCASE
7500
7510 WHEN C% = 13 AND W% = Amend%:
7520 CASE I% OF
7530 WHEN 17:SYS "Wimp_SetCaretPosition",Amend%,21,,,-1,LEN(STR$(amount%(select%,month%)/100))
7540 WHEN 21:
7550 PROCok(day4%,sign%,Amend%,4)
7560 ENDCASE
7570
7580 WHEN C% = 13 AND W% = Standing%:
7590 CASE I% OF
7600 WHEN 13:SYS "Wimp_SetCaretPosition",Standing%,14,,,-1,0
7610 WHEN 14:SYS "Wimp_SetCaretPosition",Standing%,15,,,-1,0
7620 WHEN 15:SYS "Wimp_SetCaretPosition",Standing%,21,,,-1,0
7630 WHEN 21:B% = 4
7640 PROCstanding(day3%,Standing%,4)
7650 ENDCASE
7660
7670 WHEN C% = 13 AND block%!0 = Save_Wind%
7680 CASE I% OF
7690 WHEN 2: PROCquicksave
7700 ENDCASE
7710
7720 OTHERWISE
7730 SYS "Wimp_ProcessKey",C%
7740
7750ENDCASE
7760ENDPROC
7770
7780DEFPROCstanding(d%,hand%,B%)
7790LOCAL name$,amount$,amount2$,mtotal$,mtot%,count%,freq%,sign%
7800block%!0 = hand%
7810block%!4 = 13
7820SYS "Wimp_GetIconState",,block%
7830IF $(block%!28) = "" THEN
7840err% = TRUE
7850 !error% = 99
7860 $(error%+4) = "You must enter a name !!!"
7870 SYS "Wimp_ReportError",error%,0,"!Banker"
7880 ELSE name$ = $(block%!28):err% = FALSE
7890ENDIF
7900IF NOT err% THEN
7910block%!0 = hand%
7920block%!4 = 14
7930SYS "Wimp_GetIconState",,block%
7940IF $(block%!28) = "" THEN
7950err% = TRUE
7960 !error% = 99
7970 $(error%+4) = "You must enter a first amount !!!"
7980 SYS "Wimp_ReportError",error%,0,"!Banker"
7990 ELSE amount$ = $(block%!28):err% = FALSE
8000 IF VAL(amount$) = 0 THEN
8010 err% = TRUE
8020 !error% = 99
8030 $(error%+4) = "You have entered a zero or an invalid amount !!!"
8040 SYS "Wimp_ReportError",error%,0,"!Banker"
8050 ELSE err% = FALSE
8060 ENDIF
8070ENDIF
8080ENDIF
8090
8100IF NOT err% THEN
8110block%!0 = hand%
8120block%!4 = 15
8130SYS "Wimp_GetIconState",,block%
8140IF $(block%!28) = "" THEN
8150err% = TRUE
8160 !error% = 99
8170 $(error%+4) = "You must enter a subsequent amount !!!"
8180 SYS "Wimp_ReportError",error%,0,"!Banker"
8190 ELSE amount2$ = $(block%!28):err% = FALSE
8200 IF VAL(amount2$) = 0 THEN
8210 err% = TRUE
8220 !error% = 99
8230 $(error%+4) = "You have entered a zero or an invalid amount !!!"
8240 SYS "Wimp_ReportError",error%,0,"!Banker"
8250 ELSE err% = FALSE
8260 ENDIF
8270ENDIF
8280ENDIF
8290
8300
8310IF NOT err% THEN
8320block%!0 = hand%
8330block%!4 = 21
8340SYS "Wimp_GetIconState",,block%
8350IF $(block%!28) = "" THEN
8360err% = TRUE
8370 !error% = 99
8380 $(error%+4) = "You must enter the number of months !!!"
8390 SYS "Wimp_ReportError",error%,0,"!Banker"
8400 ELSE mtotal$ = $(block%!28):err% = FALSE
8410 mtot%= VAL(mtotal$)
8420 IF mtot% = 0 THEN
8430 err% = TRUE
8440 !error% = 99
8450 $(error%+4) = "You have entered a zero or an invalid number of months !!!"
8460 SYS "Wimp_ReportError",error%,0,"!Banker"
8470 ELSE err% = FALSE
8480 IF mtot%>(59-month%) mtot% = (59-month%)
8490 ENDIF
8500ENDIF
8510ENDIF
8520
8530IF NOT err% THEN
8540SYS "Wimp_WhichIcon",hand%,icon%,&003F0000,&00220000
8550count% = !icon%
8560CASE count% OF
8570 WHEN 0:freq% = 1
8580 WHEN 1:freq% = 2
8590 WHEN 2:freq% = 3
8600 WHEN 3:freq% = 6
8610 WHEN 4:freq% = 12
8620 OTHERWISE err% = TRUE
8630ENDCASE
8640
8650IF err% = TRUE THEN
8660!error% = 99
8670$(error%+4) = "You must select the frequency of the payment !!!"
8680SYS "Wimp_ReportError",error%,0,"!Banker"
8690ENDIF
8700ENDIF
8710
8720IF NOT err% THEN
8730SYS "Wimp_WhichIcon",hand%,icon%,&003F0000,&00230000
8740IF !icon% = 5 THEN
8750sign% = -1
8760ELSE
8770IF !icon% = 6 THEN
8780sign% = 1
8790ELSE
8800err% = TRUE
8810!error% = 99
8820$(error%+4) = "You must enter either Debit or Credit !!!"
8830SYS "Wimp_ReportError",error%,0,"!Banker"
8840ENDIF
8850ENDIF
8860ENDIF
8870 FOR count% = month% TO month%+mtot% STEP freq%
8880 IF entry%(count%)>100 THEN
8890 err% = TRUE
8900 !error% = 99
8910 $(error%+4) = "You have exceeded the maximum number of entries allowed for month "+month$(count%MOD12)+" !!!"
8920 SYS "Wimp_ReportError",error%,0,"!Banker"
8930 ENDIF
8940 NEXT
8950
8960 IF NOT err% THEN
8970 FOR count% = month% TO month%+mtot% STEP freq%
8980 name$(entry%(count%),count%) = name$
8990 IF count% = month% THEN
9000 amount%(entry%(count%),count%) = (VAL(amount$)+.005)*100*sign%
9010 ELSE
9020 amount%(entry%(count%),count%) = (VAL(amount2$)+.005)*100*sign%
9030 ENDIF
9040 date%(entry%(count%),count%) = d%
9050 entry%(count%)+=1
9060 PROCenter(count%)
9070 NEXT
9080 select%=-1:shaded%=TRUE
9090 PROCredraw(MainWindow%)
9100 IF B% <> 1 PROCclose(hand%)
9110 ENDIF
9120ENDPROC
9130
9140DEFPROCok(d%,sg%,hand%,B%)
9150 block%!0 = hand%
9160 block%!4 = 17
9170 SYS "Wimp_GetIconState",,block%
9180 IF $(block%!28) = "" THEN
9190 err% = TRUE
9200 !error% = 99
9210 $(error%+4) = "You must enter a name !!!"
9220 SYS "Wimp_ReportError",error%,0,"!Banker"
9230 ELSE name$ = $(block%!28):err% = FALSE
9240 ENDIF
9250 IF NOT err% THEN
9260 block%!0 = hand%
9270 block%!4 = 21
9280 SYS "Wimp_GetIconState",,block%
9290 IF $(block%!28) = "" THEN
9300 err% = TRUE
9310 !error% = 99
9320 $(error%+4) = "You must enter an amount !!!"
9330 SYS "Wimp_ReportError",error%,0,"!Banker"
9340 ELSE amount$ = $(block%!28)
9350 IF VAL(amount$) = 0 THEN
9360 err% = TRUE
9370 !error% = 99
9380 $(error%+4) = "You have entered a zero or an invalid amount !!!"
9390 SYS "Wimp_ReportError",error%,0,"!Banker"
9400 ELSE err% = FALSE
9410 ENDIF
9420 ENDIF
9430 ENDIF
9440 IF entry%(month%)>100 THEN
9450 err% = TRUE
9460 !error% = 99
9470 $(error%+4) = "You have exceeded the maximum number of entries allowed for one month !!!"
9480 SYS "Wimp_ReportError",error%,0,"!Banker"
9490
9500 ENDIF
9510 IF NOT err% THEN
9520 IF hand% = Amend% PROCdelete
9530 name$(entry%(month%),month%) = name$
9540 IF VAL(amount$) > 0 THEN
9550 amount%(entry%(month%),month%) = (VAL(amount$)+.005)*100*sg%
9560 ELSE
9570 amount%(entry%(month%),month%) = (VAL(amount$)-.005)*100*sg%
9580 ENDIF
9590
9600 date%(entry%(month%),month%) = d%
9610 entry%(month%)+=1
9620 PROCenter(month%)
9630 select%=-1:shaded%=TRUE
9640 PROCredraw(MainWindow%)
9650 IF B% <> 1 OR hand% = Amend% PROCclose(hand%)
9660 ENDIF
9670ENDPROC
9680
9690DEFPROCerror
9700 SYS "Hourglass_Off"
9710 !error% = 99
9720 $(error%+4) = REPORT$ + " (Internal error code "+STR$ERL+")"+CHR$0
9730 SYS "Wimp_ReportError",error%,0,"!Banker"
9740ENDPROC
9750:
9760DEFPROCdragbox
9770!block% = Save_Wind%
9780SYS "Wimp_GetWindowState",,block%
9790ox% = block%!4 - block%!20
9800oy% = block%!16 - block%!24
9810block%!4 = 3
9820SYS "Wimp_GetIconState",,block%
9830!block% = Save_Wind%
9840block%!4 = 5
9850block%!8 = ox%+block%!8
9860block%!12 = oy%+block%!12
9870block%!16 = ox%+block%!16
9880block%!20 = oy%+block%!20
9890block%!24 = 0:block%!28 = 0
9900block%!32 = &7FFFFFFF
9910block%!36 = &7FFFFFFF
9920SYS "Wimp_DragBox",,block%
9930ENDPROC
9940:
9950DEFPROCquicksave
9960PROCget_icon_indirect(Save_Wind%,2,$file%)
9970IF INSTR($file%,".") THEN
9980PROCsave($file%)
9990ELSE
10000 !error% = 99
10010 $(error%+4) = "To save, drag the icon to a directory viewer"
10020 SYS "Wimp_ReportError",error%,1,"!Banker"
10030ENDIF
10040ENDPROC
10050:
10060DEFPROCdragged
10070SYS "Wimp_GetPointerInfo",,block%
10080block%!20 = block%!12
10090block%!24 = block%!16
10100block%!28 = block%!0
10110block%!32 = block%!4
10120block%!36 = 0
10130block%!0 = 64
10140block%!12 = 0
10150block%!16 = 1
10160block%!40 = &406
10170PROCget_icon_indirect(Save_Wind%,2,$file%)
10180$(block%+44) = FNgetleaf($file%)
10190SYS "Wimp_SendMessage",17,block%,block%!20,block%!24
10200ENDPROC
10210:
10220DEFFNgetleaf(name$)
10230WHILE INSTR(name$,".")
10240 name$=MID$(name$,INSTR(name$,".")+1)
10250 ENDWHILE
10260=name$+CHR$(0)
10270:
10280DEFPROCdatasave
10290LOCAL a%,b%
10300filename$ = ""
10310a% = 0
10320b% = block%?(44+a%)
10330WHILE b%<>0
10340 filename$+=CHR$(b%)
10350 a%+=1
10360 b% = block%?(44+a%)
10370ENDWHILE
10380PROCsave(filename$)
10390IF block%!36>-1 THEN
10400$file%=filename$
10410PROCset_icon_indirect(Save_Wind%,2,$file%)
10420ENDIF
10430block%!12 = block%!8
10440block%!16 = 3
10450!block% = 256
10460SYS "Wimp_SendMessage",18,block%,block%!20,block%!24
10470ENDPROC
10480:
10490DEFPROCclear
10500SYS "Hourglass_On"
10510saved% = TRUE
10520filename$ = "Account":$file% = "Account"
10530year% = ((FNtoday >>8)DIV 12)
10540yearplus% = 0
10550month% = ((FNtoday >>8)MOD 12)
10560day% = FNtoday AND 255
10570
10580FOR count% = 0 TO 59
10590balance%(count%)=0:entry%(count%)=0
10600FOR count2% = 0 TO 100
10610name$(count2%,count%)="":amount%(count2%,count%)=0:date%(count2%,count%)=0
10620NEXT
10630NEXT
10640PROCset_icon_indirect(MainWindow%,0,month$(month% MOD 12)+" "+STR$(year%+yearplus%))
10650SYS "Hourglass_Off"
10660ENDPROC
10670:
10680DEFPROCload(name$)
10690SYS "Hourglass_On"
10700err% = FALSE
10710PROCclose(MainWindow%)
10720REM LOAD ROUTINE HERE
10730PROCclear
10740B = OPENIN name$
10750INPUT#B, year%
10760yearplus% = ((FNtoday >>8)DIV 12) - year%
10770month% = ((FNtoday >>8)MOD 12)
10780 month% = (month% MOD 12) + (yearplus% * 12)
10790IF yearplus%>4 OR yearplus% <0 THEN
10800 SYS "Hourglass_Off"
10810 !error% = 99
10820 $(error%+4) = "This is an invalid or out of date Account file !!!"
10830 SYS "Wimp_ReportError",error%,1,"!Banker"
10840 err% = TRUE
10850 CLOSE #B
10860
10870ENDIF
10880IF NOT err% THEN
10890FOR count% = 0 TO 59
10900INPUT#B,balance%(count%),entry%(count%)
10910FOR count2% = 0 TO entry%(count%)
10920INPUT#B ,name$(count2%,count%),amount%(count2%,count%),date%(count2%,count%)
10930NEXT
10940NEXT
10950CLOSE #B
10960PROCset_icon_indirect(MainWindow%,0,month$(month% MOD 12)+" "+STR$(year%+yearplus%))
10970PROCopen(MainWindow%)
10980$file% = name$
10990SYS "Hourglass_Off"
11000ENDIF
11010ENDPROC
11020:
11030DEFPROCsave(filename$)
11040REM filename$ = FNgetname(block%+44)
11050SYS "Hourglass_On"
11060REM SAVE ROUTINE HERE !!!
11070B = OPENOUT filename$
11080PRINT#B, year%
11090FOR count% = 0 TO 59
11100PRINT#B,balance%(count%),entry%(count%)
11110FOR count2% = 0 TO entry%(count%)
11120PRINT#B ,name$(count2%,count%),amount%(count2%,count%),date%(count2%,count%)
11130NEXT
11140NEXT
11150CLOSE #B
11160OSCLI("SETTYPE "+filename$+" &406")
11170SYS "Wimp_CreateMenu",,-1
11180saved% = TRUE
11190SYS "Hourglass_Off"
11200ENDPROC
11210:
11220DATA January,February,March,April,May,June,July,August,September,October,November,December
11230
11240:
11250DEFFNquestion(que$)
11260IF saved% = FALSE THEN
11270 !error% = 99
11280 $(error%+4) = que$
11290 SYS "Wimp_ReportError",error%,&13,"!Banker" TO ,answer%
11300 ELSE answer% = 1
11310 ENDIF
11320=answer%
11330
11340DEFFNgetname(P%)
11350A$=""
11360WHILE ?P%<>0 AND ?P%<>13
11370A$=A$+CHR$?P%:P%=P%+1
11380ENDWHILE
11390=A$
11400:
11410DEFPROCsetextent(xmin%,ymin%,xmax%,ymax%)
11420error%!0 = xmin%
11430error%!4 = ymin%
11440error%!8 = xmax%
11450error%!12 = ymax%
11460SYS "Wimp_SetExtent",MainWindow%,error%
11470ENDPROC
11480:
11490DEFPROCprint
11500LOCAL left%,bottom%,right%,top%
11510OSCLI("RMEnsure PDriver 0 ERROR 255 No Printer Driver Installed")
11520SYS "Hourglass_On"
11530pf%=OPENOUT("printer:")
11540SYS "PDriver_SelectJob",pf%,"BankJob"
11550LOCAL ERROR
11560ON ERROR LOCAL:RESTORE ERROR:SYS "PDriver_AbortJob",pf%:CLOSE#pf%:PROCerror:statement% = FALSE : ENDPROC
11570SYS "PDriver_PageSize" TO left%,bottom%,right%,top%
11580PROCorigin(MainWindow%,x0%,y0%)
11590rect%!0=x0%-50:rect%!4=y0%-flen%-1240
11600rect%!8=x0%+1310:rect%!12=y0%
11610trans%!0=1<<16:trans%!4=0<<16
11620trans%!8=0<<16:trans%!12=1<<16
11630plotat%!0=x0%
11640plotat%!4=y0%-2080
11650statement% = TRUE
11660SYS "PDriver_GiveRectangle",0,rect%,trans%,plotat%,&FFFFFF00
11670SYS "PDriver_DrawPage",1,rectin%,0,0 TO more%
11680WHILE more%
11690PROCtitles
11700PROCdraw(x0%,y0%)
11710SYS "PDriver_GetRectangle",rectin% TO more%
11720ENDWHILE
11730SYS "PDriver_EndJob",pf%
11740SYS "Hourglass_Off"
11750RESTORE ERROR
11760CLOSE#pf%
11770statement% = FALSE
11780VDU 7
11790ENDPROC
11800:
11810
�>!RunImage
�>Bank Account Program
�>By Ken Jolley
(.�>Copyright Archimedes World December 1991
2�initialise
<
F� � �error
P�
Z �poll
d � quit%
n
x$block% = "TASK"
�%ș "Wimp_CloseDown",task%,!block%
��
�:
���template(T$)
�� c%
�$workbuff% = T$
�Pș "Wimp_LoadTemplate",,block%,cbuff%,endbuff%,-1,workbuff% � ,,cbuff%,,,,c%
��
�
���initialise
�
�ș "OS_GetEnv" � AA$
� p=�AA$,"""",�AA$,"""")+1)
AA$=�AA$,p+1)
ȕ �AA$,1)=" "
AA$ = �AA$,2)
"�
,
6� error% 128
@buffersize% = &1500
J� block% 20000
T� buffer% buffersize%
^� workbuff% &100
h� menu% &3000
r� pointer% 20
|� icon% 32
�� trans% 16
�� rect% 16
�� plotat% 8
�� rectin% 16
�
�/� file% 256:$file% = "Account":filename$=""
�% � name$(100,59)
�' � amount%(100,59)
�% � date%(100,59)
�" � entry%(59)
�$ � balance%(59)
�� buff% 10
�cbuff% = buffer%
"endbuff% = buffer%+buffersize%
quit% = �
saved% = �
&shaded% = �
0select% = -1
:already% = -1
D
sign% = 0
N slen% = 200: flen% = 800
Xx0%=0:y0%=0
b
x%=0:y%=0
lstatement% = �
v�init_month
� month% = ((�today>>8)�12)
� year% = ((�today>>8)�12)
�day% = �today � 255
�day1% = day%
�day2% = day%
�day3% = day%
�day4% = day%
�yearplus% = 0
�$block% = "TASK"
�>ș "Wimp_Initialise",200,!block%,"Banker" � version%,task%
�1ș "Wimp_OpenTemplate",,"<Ken$Dir>.Templates"
��template("MainWindow")
�0ș "Wimp_CreateWindow",,block% � MainWindow%
�template("Info_Wind")
/ș "Wimp_CreateWindow",,block% � Info_Wind%
�template("xfer_send")
/ș "Wimp_CreateWindow",,block% � Save_Wind%
*:
4�template("Amend")
>+ș "Wimp_CreateWindow",,block% � Amend%
H�template("Debit")
R+ș "Wimp_CreateWindow",,block% � Debit%
\�template("Credit")
f,ș "Wimp_CreateWindow",,block% � Credit%
p�template("Standing")
z.ș "Wimp_CreateWindow",,block% � Standing%
��template("query")
�+ș "Wimp_CreateWindow",,block% � Query%
�;�set_icon_indirect(Info_Wind%,4,"1.00 (26 March 1991)")
�P�set_icon_indirect(MainWindow%,0,month$(month% � 12)+" "+�(year%+yearplus%))
� �baricon
�(ș "Wimp_CloseTemplate",,"Templates"
�� AA$<>"" �load(AA$)
��
�:
�
�!��set_icon_indirect(h%,i%,T$)
�!error% = h%
�error%!4 = i%
"ș "Wimp_GetIconState",,error%
,� IF (error%!24 AND &100) = 0 THEN ERROR
$(error%!28) = T$
$!error% = h%
.error%!4 = i%
8error%!8 = 0
Berror%!12 = 0
L"ș "Wimp_SetIconState",,error%
V�
`:
j
t#��get_icon_indirect(h%,i%,� T$)
~!error% = h%
�error%!4 = i%
�"ș "Wimp_GetIconState",,error%
�,� IF (error%!24 AND &100) = 0 THEN ERROR
�T$ = $(error%!28)
��
�:
�
�
��poll
�+ș "Wimp_Poll",,block% � reason%,block%
�Ȏ reason% �
� � 1:�redraw(block%!0)
�' � 2:ș "Wimp_OpenWindow",,block%
) � 3:�close(MainWindow%):�shutboxes
/ � 6:�mouse(block%!8,block%!12,block%!16)
� 7:�dragged
- � 8:�keys(block%!0,block%!4,block%!24)
( � 9:�read_menu
2 � 17,18:�receive
<�
F�
P:
Z
��receive
dȎ block%!16 �
n � 0:
x � saved% = � �
� quit% = �
� �
� !block%=20
� block%!12=ref%
�$ block%!16=0 :� quit block
�H ș SendMessage,19,block% :� acknowledge, and refuse quit request
�] � �question("!Banker document is not saved. Are you sure you wish to quit ? ") = 1 �
� quit% = �
� �
�
�
� �
� � 2:
�. �get_icon_indirect(Save_Wind%,2,$file%)
�datasave
� 3:�loadack:�oktoload
� 8:
" � saved% = � �
, quit% = �
6 �
@e � �question("!Banker document is not saved. Are you sure you wish to quit ? ") = 1 �
J quit% = �
T �
^ quit% = �
h �
r �
|
��
��
�
�:
�
��loadack
�block%!12 = block%!8
�block%!16 = 4
�,ș "Wimp_SendMessage",17,block%,block%!4
��
�:
���oktoload
�&� block%!40 = &406 � ok%=� � ok%=�
� � ok% �
filename$ = ""
a% = 0
b% = block%?(44+a%)
& ȕ b%<>0
0 filename$+=�(b%)
: a%+=1
D b% = block%?(44+a%)
N�
Xk� �question("This account is not saved. Are you sure you wish to load another ? ") = 1 �load(filename$)
b�
l" !error% = 99
vE $(error%+4) = "This is not an Account File !!!"
�> ș "Wimp_ReportError",error%,1,"!Banker"
��
��
�
���redraw(blk%)
�block%!0 = blk%
�*ș "Wimp_RedrawWindow",,block% � more%
��origin(block%,x0%,y0%)
� ȕ more%
�. � block%!0 = MainWindow% �draw(x0%,y0%)
�- ș "Wimp_GetRectangle",,block% � more%
��
��
:
��origin(block%,� x0%,� y0%)
x0% = block%!4-block%!20
* y0% = block%!16-block%!24
4�
>:
H ��titles
R� 5
\ � x0%+630,y0% : �"STATEMENT"
f#� x0%+630,y0%-10 : �"_________"
p*� x0%+300,y0%-70 : �"Transaction Name"
z � x0%+700,y0%-70 : �"Debit"
� � x0%+870,y0%-70 : �"Credit"
� � x0%+25,y0%-70 : �"Date"
�"� x0%+1080,y0%-70 : �"Balance"
��
�:
���draw(x0%,y0%)
�� count%,down%,am,tot
�� 5
�@% = &010A020A
�� {NOCOMPILE}
�@% = &0102020A
�� {COMPILE}
�;� month% = 0 � total% = 0 � total% = balance%(month%-1)
-� x0%+300,y0%-150 : �"Balance Forward : "
� x0%+1030,y0%-150
$A� total% < 0 � ș "Wimp_SetColour",11 � ș "Wimp_SetColour",7
.tot = total%/100
8� statement% = � �
B � �(tot)
L�
V-� �(tot):� tot<0 � x0%+1220,y0%-150:�"DR"
`�
j� entry%(month%) <> 0 �
t#� count% = 0 � entry%(month%)-1
~F� select% = count% � ș "Wimp_SetColour",8 � ș "Wimp_SetColour",7
�down% = 200+(count%*40)
�� x0%+25,y0%-down%
�@% = &0100090A
� ��(date%(count%,month%))
�@% = &010A020A
�� {NOCOMPILE}
�@% = &0102020A
�� {COMPILE}
�� x0%+300,y0%-down%
��name$(count%,month%)
�"� amount%(count%,month%) < 0 �
�� x0%+630,y0%-down%
� � x0%+800,y0%-down%
�
#am = amount%(count%,month%)/100
� �(am)
(� x0%+1030,y0%-down%
2*total% = total%+amount%(count%,month%)
<l� select% = count% � ș "Wimp_SetColour",8 � � total%<0 � ș "Wimp_SetColour",11 � ș "Wimp_SetColour",7
Ftot = total%/100
P� statement% = � �
Z � �(tot)
d�
n/� �(tot):� tot<0 � x0%+1220,y0%-down%:�"DR"
x�
��
��
� � VDU 4
�@% = &0100090A
��
�:
�
�
��baricon
�8menubar% = �icon(-1,0,0,62,96,&2002,0,0,0,"!Banker")
��
�:
�?ݤicon(hand%,x1%,y1%,x2%,y2%,flag%,dat1%,dat2%,dat3%,name$)
�block%!0 = hand%
block%!4 = x1%
block%!8 = y1%
block%!12 = x2%
"block%!16 = y2%
,block%!20 = flag%
6� name$ = "" �
@block%!24 = dat1%
Jblock%!28 = dat2%
Tblock%!32 = dat3%
^�
h$(block%+24) = name$
r�
|)ș "Wimp_CreateIcon",,block% � handy%
�
= handy%
�:
� ��create_menu(m%,title$,m$)
�
� i%,max%
�$m% = title$
�
m%?12 = 7
�
m%?13 = 2
�
m%?14 = 7
�
m%?15 = 0
�m%!20 = 40
�
m%!24 = 0
�i% = m% + 28
�max% = �(title$) - 2
�
a% = �m$,",")
� a%>max% max%=a%
& !i% = 0
0 i%!4 = 0
:i%!8 = &07000021
D$(i% + 12) = �m$,a%-1)
Nm$ = �m$,a%+1)
XȎ $(i%+12) �
b
l � "Month" :i%!4 = m% + 268
vi string$ = ("January,February,March,April,May,June,July,August,September,October,November,December,")
�&�create_menu(i%!4,"Month",string$)
�
� � "Year" :i%!4 = m% + 584
�W string$ = �(year%)+","+�(year%+1)+","+�(year%+2)+","+�(year%+3)+","+�(year%+4)+","
�& �create_menu(i%!4,"Year",string$)
� !i% = !i%�2
�
�. � "Delete" :� shaded% i%!8 = i%!8�&400000
� � "Amend" :� shaded% �
� !i% = !i%�2
� i%!8=i%!8�&400000
� �
� � "S/Order" :!i% = !i%�2
� "Save" :
, �set_icon_indirect(Save_Wind%,2,$file%)
i%!4 = Save_Wind%
2 � "Print" :!i% = !i%�2:� i%!8 = i%!8OR&400000
* :
4&� "Information" :i%!4 = Info_Wind%
>(� month$(month% � 12) :!i% = !i% � 1
H'� �(year%+yearplus%) :!i% = !i% � 1
R�
\i% = i% + 24
f
� m$ = ""
pi%!-24 = (i%!-24)� &80
zm%!16 = max%*16
��
�:
�"��master_menu(title$,m$,x%,y%)
�!�create_menu(menu%,title$,m$)
�2ș "Wimp_CreateMenu",,menu%,x%-menu%!16 / 2,y%
��
�:
���mouse(B%,W%,I%)
�� name$,amount$
� Ȏ W% �
�
� � -2
� Ȏ B% �
H � 2:�master_menu("!Banker","Information,Quit,",!block%,140)
# � 4:�open(MainWindow%)
�
$
. � MainWindow%
8
B Ȏ B% �
L � 4
V Ȏ I% �
`( � 6:month% = month%-1
j& � month%<0 month%=0
t( yearplus% = month%�12
~B � PROCsetextent(0,entry%(month%)*40+280,1240,0)
�_ �set_icon_indirect(MainWindow%,0,month$(month% � 12)+" "+�(year%+yearplus%))
�' select%=-1:shaded%=�
�' �redraw(MainWindow%)
� � 7:
�$ month% = month%+1
�( � month%>59 month%=59
�( yearplus% = month%�12
�B � PROCsetextent(0,entry%(month%)*40+280,1240,0)
�_ �set_icon_indirect(MainWindow%,0,month$(month% � 12)+" "+�(year%+yearplus%))
�' select%=-1:shaded%=�
�' �redraw(MainWindow%)
�
3 ș "Wimp_GetPointerInfo",,block%
$ �select(block%!4)
�
� 2:
(s �master_menu("Main","Month,Year,Delete,Amend,Debit,Credit,S/Order,Save,Print,Clear,",!block%,block%!4)
2 �
< �shutboxes
F
P � Debit%:
Z Ȏ B% �
d � 1,4:
n Ȏ I% �
x0 � 14: day1% -= 1:�date(day1%)
�9 �set_icon_indirect(Debit%,16,�(day1%))
�0 � 15: day1% += 1:�date(day1%)
�9 �set_icon_indirect(Debit%,16,�(day1%))
�& � 13:�close(Debit%)
�/ � 12:�ok(day1%,-1,Debit%,B%)
� �
� �
�
� � Credit%:
� Ȏ B% �
� � 1,4:
� Ȏ I% �
�0 � 14: day2% -= 1:�date(day2%)
: �set_icon_indirect(Credit%,16,�(day2%))
0 � 15: day2% += 1:�date(day2%)
: �set_icon_indirect(Credit%,16,�(day2%))
"' � 13:�close(Credit%)
,/ � 12:�ok(day2%,1,Credit%,B%)
6 �
@ �
J
T � Amend%:
^ Ȏ B% �
h � 1,4:
r Ȏ I% �
|0 � 14: day4% -= 1:�date(day4%)
�9 �set_icon_indirect(Amend%,16,�(day4%))
�0 � 15: day4% += 1:�date(day4%)
�9 �set_icon_indirect(Amend%,16,�(day4%))
�& � 13:�close(Amend%)
�1 � 12:�ok(day4%,sign%,Amend%,4)
� �
� �
�
� � Standing%:
� Ȏ B% �
� � 1,4:
� Ȏ I% �
�0 � 12: day3% -= 1:�date(day3%)
< �set_icon_indirect(Standing%,10,�(day3%))
0 � 11: day3% += 1:�date(day3%)
< �set_icon_indirect(Standing%,10,�(day3%))
&( � 8:�close(Standing%)
04 � 7:�standing(day3%,Standing%,B%)
: �
D �
N
X � Save_Wind%:
b Ȏ B% �
l � 16,64:
v Ȏ I% �
� � 3 :�dragbox
� �
� � 1,4:
� Ȏ I% �
�" � 0 :�quicksave
� �
� �
�
� � Query%:
� Ȏ B% �
� � 1,4:
� Ȏ I% �
� � 0:
� 2:
�
�
*�
4�
>:
H��close(which%)
R!block% = which%
\!ș "Wimp_CloseWindow",,block%
f�
p:
z
���open(which%)
�!block% = which%
�$ș "Wimp_GetWindowState",,block%
�,� block%!32 � &00010000 � block%!28 = -1
� ș "Wimp_OpenWindow",,block%
��
�:
�
� ݤtoday
�?block% = 1
�ș "OS_Word",14,block%
�A% = ?block%
�#Y% = 10 * (A% >> 4) + (A% � 15)
DA% = block%?1 :M% = 22799 + Y% * 12 + 10 * (A% >> 4) + (A% � 15)
A% = block%?2
*= (M%<<8) + 10 * (A% >> 4) + (A% � 15)
$
.��init_month
8� month$(11)
B� a% = 0 � 11
L� month$(a%)
V�
`�
j:
t
~��read_menu
�� am
�&ș "Wimp_GetPointerInfo",,pointer%
�Ȏ $menu% �
� � "!Banker":
� Ȏ block%!0 �
� � 1:
� � saved% = � �
� quit% = �
� �
�a � �question("This account is not saved. Are you sure you wish to quit ? ") = 1 �
� quit% = �
� �
quit% = �
�
�
�
( � "Main":
2 Ȏ block%!0 �
<
F � 0:
P
ZV menu%!(296 + ((month% � 12)*24)) = menu%!(296 + ((month% � 12)*24)) � &FE
d
n Ȏ block%!4 �
x. � 0,1,2,3,4,5,6,7,8,9,10,11
�$ month% = block%!4
� �
�
�F menu%!(296 + (month%*24)) = menu%!(296 + (month%*24)) � 1
�6 month% = (month% � 12) + (yearplus% * 12)
�< � PROCsetextent(0,entry%(month%)*40+280,1240,0)
�Y �set_icon_indirect(MainWindow%,0,month$(month% � 12)+" "+�(year%+yearplus%))
�! select%=-1:shaded%=�
�J menu%!84 = menu%!84 � &400000:menu%!108 = menu%!108 � &400000
�! �redraw(MainWindow%)
�
� � 1:
�
N menu%!(612 + (yearplus%*24)) = menu%!(612 + (yearplus%*24)) � &FE
Ȏ block%!4 �
" � 0,1,2,3,4
,% � month%�12 = 11 �
61 � block%!4 - yearplus% = 1 �
@^ menu%!(296 + ((month% � 12)*24)) = menu%!(296 + ((month% � 12)*24)) � &FE
J$ month%=month%+1
T �
^ �
h
r# � month%�12 = 0 �
|1 � yearplus% - block%!4 = 1 �
�^ menu%!(296 + ((month% � 12)*24)) = menu%!(296 + ((month% � 12)*24)) � &FE
�$ month%=month%-1
� �
� �
�
�' yearplus% = block%!4
�
� �
�
�P menu%!(296 + ((month%�12)*24)) = menu%!(296 + ((month%�12)*24)) � 1
�L menu%!(612 + (yearplus%*24)) = menu%!(612 + (yearplus%*24)) � 1
�6 month% = (month% � 12) + (yearplus% * 12)
�< � PROCsetextent(0,entry%(month%)*40+280,1240,0)
Y �set_icon_indirect(MainWindow%,0,month$(month% � 12)+" "+�(year%+yearplus%))
! select%=-1:shaded%=�
J menu%!84 = menu%!84 � &400000:menu%!108 = menu%!108 � &400000
&! �redraw(MainWindow%)
0
: � 2:
D �delete
N select% = -1
X shaded% = �
Y saved% = �
b
l � 3:
v@ �set_icon_indirect(Amend%,17,name$(select%,month%))
�- am = amount%(select%,month%)/100
�3 �set_icon_indirect(Amend%,21,�(�(am)))
�> � amount%(select%,month%)< 0 sign%=-1 � sign% = 1
�= �set_icon_indirect(Amend%,0,month$(month% � 12))
�* day4% = date%(select%,month%)
�3 �set_icon_indirect(Amend%,16,�(day4%))
�= �set_icon_indirect(Amend%,22,�(year%+yearplus%))
� �open(Amend%)
�O ș "Wimp_SetCaretPosition",Amend%,17,,,-1,�(name$(select%,month%))
�
� � 4:
� �date(day1%)
�- �set_icon_indirect(Debit%,17,"")
- �set_icon_indirect(Debit%,21,"")
= �set_icon_indirect(Debit%,0,month$(month% � 12))
3 �set_icon_indirect(Debit%,16,�(day1%))
= �set_icon_indirect(Debit%,22,�(year%+yearplus%))
* �open(Debit%)
48 ș "Wimp_SetCaretPosition",Debit%,17,,,-1,0
>
H � 5:
R �date(day2%)
\. �set_icon_indirect(Credit%,17,"")
f. �set_icon_indirect(Credit%,21,"")
p> �set_icon_indirect(Credit%,0,month$(month% � 12))
z4 �set_icon_indirect(Credit%,16,�(day2%))
�> �set_icon_indirect(Credit%,22,�(year%+yearplus%))
� �open(Credit%)
�9 ș "Wimp_SetCaretPosition",Credit%,17,,,-1,0
�
� � 6:
� �date(day3%)
�X �set_icon_indirect(Standing%,20,month$(month% � 12)+" "+�(year%+yearplus%))
�6 �set_icon_indirect(Standing%,10,�(day3%))
�0 �set_icon_indirect(Standing%,13,"")
�0 �set_icon_indirect(Standing%,14,"")
�0 �set_icon_indirect(Standing%,15,"")
�0 �set_icon_indirect(Standing%,21,"")
� �open(Standing%)
; ș "Wimp_SetCaretPosition",Standing%,13,,,-1,0
� 7:
$> � SYS "Wimp_SetCaretPosition",Save_Wind%,2,,,-1,0
. �quicksave
8
B � 8:�print
L
V � 9:
` � saved% = � �
j �clear
t! �redraw(MainWindow%)
~ �
�e � �question("This account is not saved. Are you sure you wish to clear it ? ") = 1 �
� �clear
�$ �redraw(MainWindow%)
� �
� �
� �
� �
��
�
�� pointer%!8 = 1 �
�2ș "Wimp_CreateMenu",,menu%,x%-menu%!16 / 2,y%
��
�
:
(��date(� da%)
2Ȏ (month% � 12) �
< � 0,2,4,6,7,9,11:
F � da% < 1 da% = 31
P � da% > 31 da% = 1
Z
d � 3,5,8,10:
n � da% < 1 da% = 30
x � da% > 30 da% = 1
�
� � 1:
�f � ((year%+yearplus%) � 4 = 0) � ((year%+yearplus%) � 100 <>0) � ((year%+yearplus%) � 400 = 0) �
� � da% < 1 da% = 29
� � da% > 29 da% = 1
� �
� � da% < 1 da% = 28
� � da% > 28 da% = 1
� �
��
��
�
�
��shutboxes
�close(Debit%)
�close(Credit%)
" �close(Amend%)
, �close(Standing%)
6�
@:
J
T��enter(mon%)
^� count%,sort%
hsaved% = �
r slen% = entry%(mon%)*40+240
|� slen% > flen% �
� �setextent(0,-slen%,1240,0)
�flen% = slen%
��
�sort% = entry%(mon%)-1
�� count% = mon% � 59
�;balance%(count%) = balance%(count%)+amount%(sort%,mon%)
��
�ȕ sort%>0
�2 � date%(sort%,mon%) < date%(sort%-1,mon%) �
�/ Ȕ date%(sort%,mon%),date%(sort%-1,mon%)
�/ Ȕ name$(sort%,mon%),name$(sort%-1,mon%)
�3 Ȕ amount%(sort%,mon%),amount%(sort%-1,mon%)
� �
2 � date%(sort%,mon%) = date%(sort%-1,mon%) �
5 � name$(sort%,mon%) < name$(sort%-1,mon%) �
2 Ȕ date%(sort%,mon%),date%(sort%-1,mon%)
&2 Ȕ name$(sort%,mon%),name$(sort%-1,mon%)
06 Ȕ amount%(sort%,mon%),amount%(sort%-1,mon%)
: �
D �
N sort% -= 1
X�
b�
l:
v
���select(yy%)
�=� ((yy%<y0%-200)) � (yy%>((y0%-200)-40*entry%(month%))) �
�%already% = ((y0% - 200) - yy%)/40
�� already% = select% �
� already% = -1:select% = -1
�shaded% = �
��
�select% = already%
�shaded% = �
��
��redraw(MainWindow%)
��
��
:
��delete
� count%
*� count% = month% � 59
4/balance%(count%) -= amount%(select%,month%)
>�
H)� count% = select% � entry%(month%)-1
R1name$(count%,month%) = name$(count%+1,month%)
\5amount%(count%,month%) = amount%(count%+1,month%)
f1date%(count%,month%) = date%(count%+1,month%)
p�
zentry%(month%) -= 1
� select% = -1: shaded% = �
��redraw(MainWindow%)
��
�
�
���keys(W%,I%,C%)
�
Ȏ � �
� � C% = 13 � W% = Debit%:
� Ȏ I% �
�: � 17:ș "Wimp_SetCaretPosition",Debit%,21,,,-1,0
� � 21:
� �ok(day1%,-1,Debit%,4)
� �
� C% = 13 � W% = Credit%:
Ȏ I% �
$; � 17:ș "Wimp_SetCaretPosition",Credit%,21,,,-1,0
. � 21:
8 �ok(day2%,1,Credit%,4)
B �
L
V � C% = 13 � W% = Amend%:
` Ȏ I% �
jZ � 17:ș "Wimp_SetCaretPosition",Amend%,21,,,-1,�(�(amount%(select%,month%)/100))
t � 21:
~# �ok(day4%,sign%,Amend%,4)
� �
�
�" � C% = 13 � W% = Standing%:
� Ȏ I% �
�= � 13:ș "Wimp_SetCaretPosition",Standing%,14,,,-1,0
�= � 14:ș "Wimp_SetCaretPosition",Standing%,15,,,-1,0
�= � 15:ș "Wimp_SetCaretPosition",Standing%,21,,,-1,0
� � 21:B% = 4
�& �standing(day3%,Standing%,4)
� �
�
�( � C% = 13 � block%!0 = Save_Wind%
Ȏ I% �
� 2: �quicksave
�
(
2 ș "Wimp_ProcessKey",C%
<
F�
P�
Z
d��standing(d%,hand%,B%)
n=� name$,amount$,amount2$,mtotal$,mtot%,count%,freq%,sign%
xblock%!0 = hand%
�block%!4 = 13
�"ș "Wimp_GetIconState",,block%
�� $(block%!28) = "" �
� err% = �
� !error% = 99
�0 $(error%+4) = "You must enter a name !!!"
�/ ș "Wimp_ReportError",error%,0,"!Banker"
�& � name$ = $(block%!28):err% = �
��
�� � err% �
�block%!0 = hand%
�block%!4 = 14
�"ș "Wimp_GetIconState",,block%
� $(block%!28) = "" �
err% = �
!error% = 99
"8 $(error%+4) = "You must enter a first amount !!!"
,/ ș "Wimp_ReportError",error%,0,"!Banker"
6( � amount$ = $(block%!28):err% = �
@( � �(amount$) = 0 �
J! err% = �
T% !error% = 99
^Y $(error%+4) = "You have entered a zero or an invalid amount !!!"
hA ș "Wimp_ReportError",error%,0,"!Banker"
r# � err% = �
| �
��
��
�
�� � err% �
�block%!0 = hand%
�block%!4 = 15
�"ș "Wimp_GetIconState",,block%
�� $(block%!28) = "" �
� err% = �
� !error% = 99
�= $(error%+4) = "You must enter a subsequent amount !!!"
�/ ș "Wimp_ReportError",error%,0,"!Banker"
�) � amount2$ = $(block%!28):err% = �
) � �(amount2$) = 0 �
! err% = �
% !error% = 99
&Y $(error%+4) = "You have entered a zero or an invalid amount !!!"
0A ș "Wimp_ReportError",error%,0,"!Banker"
:# � err% = �
D �
N�
X�
b
l
v� � err% �
�block%!0 = hand%
�block%!4 = 21
�"ș "Wimp_GetIconState",,block%
�� $(block%!28) = "" �
� err% = �
� !error% = 99
�> $(error%+4) = "You must enter the number of months !!!"
�/ ș "Wimp_ReportError",error%,0,"!Banker"
�( � mtotal$ = $(block%!28):err% = �
�' mtot%= �(mtotal$)
�# � mtot% = 0 �
�! err% = �
�% !error% = 99
!c $(error%+4) = "You have entered a zero or an invalid number of months !!!"
! A ș "Wimp_ReportError",error%,0,"!Banker"
!# � err% = �
! @ � mtot%>(59-month%) mtot% = (59-month%)
!* �
!4�
!>�
!H
!R� � err% �
!\7ș "Wimp_WhichIcon",hand%,icon%,&003F0000,&00220000
!fcount% = !icon%
!pȎ count% �
!z � 0:freq% = 1
!� � 1:freq% = 2
!� � 2:freq% = 3
!� � 3:freq% = 6
!� � 4:freq% = 12
!� err% = �
!��
!�
!�� err% = � �
!�!error% = 99
!�D$(error%+4) = "You must select the frequency of the payment !!!"
!�,ș "Wimp_ReportError",error%,0,"!Banker"
!��
!��
"
"� � err% �
"7ș "Wimp_WhichIcon",hand%,icon%,&003F0000,&00230000
"$� !icon% = 5 �
".sign% = -1
"8�
"B� !icon% = 6 �
"L
sign% = 1
"V�
"` err% = �
"j!error% = 99
"t=$(error%+4) = "You must enter either Debit or Credit !!!"
"~,ș "Wimp_ReportError",error%,0,"!Banker"
"��
"��
"��
"�; � count% = month% � month%+mtot% � freq%
"�) � entry%(count%)>100 �
"� err% = �
"�" !error% = 99
" $(error%+4) = "You have exceeded the maximum number of entries allowed for month "+month$(count%�12)+" !!!"
"�> ș "Wimp_ReportError",error%,0,"!Banker"
"� �
"� �
"�
# � � err% �
#
; � count% = month% � month%+mtot% � freq%
#: name$(entry%(count%),count%) = name$
# ) � count% = month% �
#(R amount%(entry%(count%),count%) = (�(amount$)+.005)*100*sign%
#2 �
#<S amount%(entry%(count%),count%) = (�(amount2$)+.005)*100*sign%
#F �
#P7 date%(entry%(count%),count%) = d%
#Z' entry%(count%)+=1
#d$ �enter(count%)
#n �
#x* select%=-1:shaded%=�
#�* �redraw(MainWindow%)
#�- � B% <> 1 �close(hand%)
#� �
#��
#�
#���ok(d%,sg%,hand%,B%)
#�# block%!0 = hand%
#� block%!4 = 17
#�1 ș "Wimp_GetIconState",,block%
#�( � $(block%!28) = "" �
#� err% = �
#�" !error% = 99
#�? $(error%+4) = "You must enter a name !!!"
$> ș "Wimp_ReportError",error%,0,"!Banker"
$5 � name$ = $(block%!28):err% = �
$ �
$" � � err% �
$,# block%!0 = hand%
$6 block%!4 = 21
$@1 ș "Wimp_GetIconState",,block%
$J( � $(block%!28) = "" �
$T err% = �
$^" !error% = 99
$hB $(error%+4) = "You must enter an amount !!!"
$r> ș "Wimp_ReportError",error%,0,"!Banker"
$|. � amount$ = $(block%!28)
$�( � �(amount$) = 0 �
$�! err% = �
$�% !error% = 99
$�Y $(error%+4) = "You have entered a zero or an invalid amount !!!"
$�A ș "Wimp_ReportError",error%,0,"!Banker"
$�# � err% = �
$� �
$� �
$� �
$�) � entry%(month%)>100 �
$� err% = �
$�" !error% = 99
$�o $(error%+4) = "You have exceeded the maximum number of entries allowed for one month !!!"
%> ș "Wimp_ReportError",error%,0,"!Banker"
%
% �
%& � � err% �
%0. � hand% = Amend% �delete
%:: name$(entry%(month%),month%) = name$
%D( � �(amount$) > 0 �
%NP amount%(entry%(month%),month%) = (�(amount$)+.005)*100*sg%
%X �
%bP amount%(entry%(month%),month%) = (�(amount$)-.005)*100*sg%
%l �
%v
%�7 date%(entry%(month%),month%) = d%
%�' entry%(month%)+=1
%�$ �enter(month%)
%�* select%=-1:shaded%=�
%�* �redraw(MainWindow%)
%�> � B% <> 1 � hand% = Amend% �close(hand%)
%� �
%��
%�
%� ��error
%�( ș "Hourglass_Off"
%�" !error% = 99
%�K $(error%+4) = �$ + " (Internal error code "+Þ+")"+�0
&> ș "Wimp_ReportError",error%,0,"!Banker"
& �
&:
&
��dragbox
&*!block% = Save_Wind%
&4$ș "Wimp_GetWindowState",,block%
&> ox% = block%!4 - block%!20
&H oy% = block%!16 - block%!24
&Rblock%!4 = 3
&\"ș "Wimp_GetIconState",,block%
&f!block% = Save_Wind%
&pblock%!4 = 5
&zblock%!8 = ox%+block%!8
&� block%!12 = oy%+block%!12
&� block%!16 = ox%+block%!16
&� block%!20 = oy%+block%!20
&� block%!24 = 0:block%!28 = 0
&�block%!32 = &7FFFFFFF
&�block%!36 = &7FFFFFFF
&� ș "Wimp_DragBox",,block%
&��
&�:
&���quicksave
&�+�get_icon_indirect(Save_Wind%,2,$file%)
&�� �$file%,".") �
&��save($file%)
'�
'" !error% = 99
'R $(error%+4) = "To save, drag the icon to a directory viewer"
'$> ș "Wimp_ReportError",error%,1,"!Banker"
'.�
'8�
'B:
'L
��dragged
'V$ș "Wimp_GetPointerInfo",,block%
'`block%!20 = block%!12
'jblock%!24 = block%!16
'tblock%!28 = block%!0
'~block%!32 = block%!4
'�block%!36 = 0
'�block%!0 = 64
'�block%!12 = 0
'�block%!16 = 1
'�block%!40 = &406
'�+�get_icon_indirect(Save_Wind%,2,$file%)
'�#$(block%+44) = �getleaf($file%)
'�7ș "Wimp_SendMessage",17,block%,block%!20,block%!24
'��
'�:
'�ݤgetleaf(name$)
'�ȕ �name$,".")
( " name$=�name$,�name$,".")+1)
(
�
(=name$+�(0)
( :
((��datasave
(2 � a%,b%
(<filename$ = ""
(F
a% = 0
(Pb% = block%?(44+a%)
(Z ȕ b%<>0
(d filename$+=�(b%)
(n a%+=1
(x b% = block%?(44+a%)
(��
(��save(filename$)
(�� block%!36>-1 �
(�$file%=filename$
(�+�set_icon_indirect(Save_Wind%,2,$file%)
(��
(�block%!12 = block%!8
(�block%!16 = 3
(�!block% = 256
(�7ș "Wimp_SendMessage",18,block%,block%!20,block%!24
(��
(�:
(� ��clear
)ș "Hourglass_On"
)saved% = �
),filename$ = "Account":$file% = "Account"
)" year% = ((�today >>8)� 12)
),yearplus% = 0
)6 month% = ((�today >>8)� 12)
)@day% = �today � 255
)J
)T� count% = 0 � 59
)^'balance%(count%)=0:entry%(count%)=0
)h� count2% = 0 � 100
)rNname$(count2%,count%)="":amount%(count2%,count%)=0:date%(count2%,count%)=0
)|�
)��
)�P�set_icon_indirect(MainWindow%,0,month$(month% � 12)+" "+�(year%+yearplus%))
)�ș "Hourglass_Off"
)��
)�:
)���load(name$)
)�ș "Hourglass_On"
)� err% = �
)��close(MainWindow%)
)�� LOAD ROUTINE HERE
)�
�clear
)�B = � name$
)��#B, year%
**yearplus% = ((�today >>8)� 12) - year%
* month% = ((�today >>8)� 12)
* 6 month% = (month% � 12) + (yearplus% * 12)
*&"� yearplus%>4 � yearplus% <0 �
*0( ș "Hourglass_Off"
*:" !error% = 99
*DX $(error%+4) = "This is an invalid or out of date Account file !!!"
*N> ș "Wimp_ReportError",error%,1,"!Banker"
*X err% = �
*b � #B
*l
*v�
*�� � err% �
*�� count% = 0 � 59
*�'�#B,balance%(count%),entry%(count%)
*�"� count2% = 0 � entry%(count%)
*�L�#B ,name$(count2%,count%),amount%(count2%,count%),date%(count2%,count%)
*��
*��
*�� #B
*�P�set_icon_indirect(MainWindow%,0,month$(month% � 12)+" "+�(year%+yearplus%))
*��open(MainWindow%)
*�$file% = name$
*�ș "Hourglass_Off"
*��
+�
+ :
+��save(filename$)
+ &� filename$ = FNgetname(block%+44)
+*ș "Hourglass_On"
+4� SAVE ROUTINE HERE !!!
+>B = � filename$
+H�#B, year%
+R� count% = 0 � 59
+\'�#B,balance%(count%),entry%(count%)
+f"� count2% = 0 � entry%(count%)
+pL�#B ,name$(count2%,count%),amount%(count2%,count%),date%(count2%,count%)
+z�
+��
+�� #B
+�#�("SETTYPE "+filename$+" &406")
+� ș "Wimp_CreateMenu",,-1
+�saved% = �
+�ș "Hourglass_Off"
+��
+�:
+�[� January,February,March,April,May,June,July,August,September,October,November,December
+�
+�:
+�ݤquestion(que$)
+�� saved% = � �
, !error% = 99
,$ $(error%+4) = que$
,G ș "Wimp_ReportError",error%,&13,"!Banker" � ,answer%
,$ � answer% = 1
,. �
,8 =answer%
,B
,Lݤgetname(P%)
,V A$=""
,`ȕ ?P%<>0 � ?P%<>13
,jA$=A$+�?P%:P%=P%+1
,t�
,~=A$
,�:
,�(��setextent(xmin%,ymin%,xmax%,ymax%)
,�error%!0 = xmin%
,�error%!4 = ymin%
,�error%!8 = xmax%
,�error%!12 = ymax%
,�*ș "Wimp_SetExtent",MainWindow%,error%
,��
,�:
,� ��print
,� � left%,bottom%,right%,top%
,�A�("RMEnsure PDriver 0 ERROR 255 No Printer Driver Installed")
- ș "Hourglass_On"
-
pf%=�("printer:")
-(ș "PDriver_SelectJob",pf%,"BankJob"
- � �
-(G� � �:� �:ș "PDriver_AbortJob",pf%:�#pf%:�error:statement% = � : �
-25ș "PDriver_PageSize" � left%,bottom%,right%,top%
-< �origin(MainWindow%,x0%,y0%)
-F)rect%!0=x0%-50:rect%!4=y0%-flen%-1240
-P!rect%!8=x0%+1310:rect%!12=y0%
-Z!trans%!0=1<<16:trans%!4=0<<16
-d"trans%!8=0<<16:trans%!12=1<<16
-nplotat%!0=x0%
-xplotat%!4=y0%-2080
-�statement% = �
-�?ș "PDriver_GiveRectangle",0,rect%,trans%,plotat%,&FFFFFF00
-�/ș "PDriver_DrawPage",1,rectin%,0,0 � more%
-� ȕ more%
-� �titles
-��draw(x0%,y0%)
-�-ș "PDriver_GetRectangle",rectin% � more%
-��
-�ș "PDriver_EndJob",pf%
-�ș "Hourglass_Off"
-�� �
-� �#pf%
-�statement% = �
.� 7
.�
.:
."
� 00000000 0d 00 0a 0f f4 3e 21 52 75 6e 49 6d 61 67 65 0d |.....>!RunImage.|
00000010 00 14 1a f4 3e 42 61 6e 6b 20 41 63 63 6f 75 6e |....>Bank Accoun|
00000020 74 20 50 72 6f 67 72 61 6d 0d 00 1e 13 f4 3e 42 |t Program.....>B|
00000030 79 20 4b 65 6e 20 4a 6f 6c 6c 65 79 0d 00 28 2e |y Ken Jolley..(.|
00000040 f4 3e 43 6f 70 79 72 69 67 68 74 20 41 72 63 68 |.>Copyright Arch|
00000050 69 6d 65 64 65 73 20 57 6f 72 6c 64 20 44 65 63 |imedes World Dec|
00000060 65 6d 62 65 72 20 31 39 39 31 0d 00 32 0f f2 69 |ember 1991..2..i|
00000070 6e 69 74 69 61 6c 69 73 65 0d 00 3c 04 0d 00 46 |nitialise..<...F|
00000080 0e ee 20 85 20 f2 65 72 72 6f 72 0d 00 50 05 f5 |.. . .error..P..|
00000090 0d 00 5a 09 f2 70 6f 6c 6c 0d 00 64 0b fd 20 71 |..Z..poll..d.. q|
000000a0 75 69 74 25 0d 00 6e 04 0d 00 78 14 24 62 6c 6f |uit%..n...x.$blo|
000000b0 63 6b 25 20 3d 20 22 54 41 53 4b 22 0d 00 82 25 |ck% = "TASK"...%|
000000c0 c8 99 20 22 57 69 6d 70 5f 43 6c 6f 73 65 44 6f |.. "Wimp_CloseDo|
000000d0 77 6e 22 2c 74 61 73 6b 25 2c 21 62 6c 6f 63 6b |wn",task%,!block|
000000e0 25 0d 00 8c 05 e0 0d 00 96 05 3a 0d 00 a0 12 dd |%.........:.....|
000000f0 f2 74 65 6d 70 6c 61 74 65 28 54 24 29 0d 00 aa |.template(T$)...|
00000100 08 ea 20 63 25 0d 00 b4 13 24 77 6f 72 6b 62 75 |.. c%....$workbu|
00000110 66 66 25 20 3d 20 54 24 0d 00 be 50 c8 99 20 22 |ff% = T$...P.. "|
00000120 57 69 6d 70 5f 4c 6f 61 64 54 65 6d 70 6c 61 74 |Wimp_LoadTemplat|
00000130 65 22 2c 2c 62 6c 6f 63 6b 25 2c 63 62 75 66 66 |e",,block%,cbuff|
00000140 25 2c 65 6e 64 62 75 66 66 25 2c 2d 31 2c 77 6f |%,endbuff%,-1,wo|
00000150 72 6b 62 75 66 66 25 20 b8 20 2c 2c 63 62 75 66 |rkbuff% . ,,cbuf|
00000160 66 25 2c 2c 2c 2c 63 25 0d 00 c8 05 e1 0d 00 d2 |f%,,,,c%........|
00000170 04 0d 00 dc 10 dd f2 69 6e 69 74 69 61 6c 69 73 |.......initialis|
00000180 65 0d 00 e6 04 0d 00 f0 18 c8 99 20 22 4f 53 5f |e.......... "OS_|
00000190 47 65 74 45 6e 76 22 20 b8 20 41 41 24 0d 00 fa |GetEnv" . AA$...|
000001a0 1d 70 3d a7 41 41 24 2c 22 22 22 22 2c a7 41 41 |.p=.AA$,"""",.AA|
000001b0 24 2c 22 22 22 22 29 2b 31 29 0d 01 04 11 41 41 |$,"""")+1)....AA|
000001c0 24 3d c1 41 41 24 2c 70 2b 31 29 0d 01 0e 12 c8 |$=.AA$,p+1).....|
000001d0 95 20 c0 41 41 24 2c 31 29 3d 22 20 22 0d 01 18 |. .AA$,1)=" "...|
000001e0 11 41 41 24 20 3d 20 c1 41 41 24 2c 32 29 0d 01 |.AA$ = .AA$,2)..|
000001f0 22 05 ce 0d 01 2c 04 0d 01 36 10 de 20 65 72 72 |"....,...6.. err|
00000200 6f 72 25 20 31 32 38 0d 01 40 17 62 75 66 66 65 |or% 128..@.buffe|
00000210 72 73 69 7a 65 25 20 3d 20 26 31 35 30 30 0d 01 |rsize% = &1500..|
00000220 4a 12 de 20 62 6c 6f 63 6b 25 20 32 30 30 30 30 |J.. block% 20000|
00000230 0d 01 54 19 de 20 62 75 66 66 65 72 25 20 62 75 |..T.. buffer% bu|
00000240 66 66 65 72 73 69 7a 65 25 0d 01 5e 14 de 20 77 |ffersize%..^.. w|
00000250 6f 72 6b 62 75 66 66 25 20 26 31 30 30 0d 01 68 |orkbuff% &100..h|
00000260 11 de 20 6d 65 6e 75 25 20 26 33 30 30 30 0d 01 |.. menu% &3000..|
00000270 72 11 de 20 70 6f 69 6e 74 65 72 25 20 32 30 0d |r.. pointer% 20.|
00000280 01 7c 0e de 20 69 63 6f 6e 25 20 33 32 0d 01 86 |.|.. icon% 32...|
00000290 0f de 20 74 72 61 6e 73 25 20 31 36 0d 01 90 0e |.. trans% 16....|
000002a0 de 20 72 65 63 74 25 20 31 36 0d 01 9a 0f de 20 |. rect% 16..... |
000002b0 70 6c 6f 74 61 74 25 20 38 0d 01 a4 10 de 20 72 |plotat% 8..... r|
000002c0 65 63 74 69 6e 25 20 31 36 0d 01 ae 04 0d 01 b8 |ectin% 16.......|
000002d0 2f de 20 66 69 6c 65 25 20 32 35 36 3a 24 66 69 |/. file% 256:$fi|
000002e0 6c 65 25 20 3d 20 22 41 63 63 6f 75 6e 74 22 3a |le% = "Account":|
000002f0 66 69 6c 65 6e 61 6d 65 24 3d 22 22 0d 01 c2 25 |filename$=""...%|
00000300 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000310 20 20 de 20 6e 61 6d 65 24 28 31 30 30 2c 35 39 | . name$(100,59|
00000320 29 0d 01 cc 27 20 20 20 20 20 20 20 20 20 20 20 |)...' |
00000330 20 20 20 20 20 20 20 de 20 61 6d 6f 75 6e 74 25 | . amount%|
00000340 28 31 30 30 2c 35 39 29 0d 01 d6 25 20 20 20 20 |(100,59)...% |
00000350 20 20 20 20 20 20 20 20 20 20 20 20 20 20 de 20 | . |
00000360 64 61 74 65 25 28 31 30 30 2c 35 39 29 0d 01 e0 |date%(100,59)...|
00000370 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00000380 20 20 20 de 20 65 6e 74 72 79 25 28 35 39 29 0d | . entry%(59).|
00000390 01 ea 24 20 20 20 20 20 20 20 20 20 20 20 20 20 |..$ |
000003a0 20 20 20 20 20 de 20 62 61 6c 61 6e 63 65 25 28 | . balance%(|
000003b0 35 39 29 0d 01 f4 0e de 20 62 75 66 66 25 20 31 |59)..... buff% 1|
000003c0 30 0d 01 fe 14 63 62 75 66 66 25 20 3d 20 62 75 |0....cbuff% = bu|
000003d0 66 66 65 72 25 0d 02 08 22 65 6e 64 62 75 66 66 |ffer%..."endbuff|
000003e0 25 20 3d 20 62 75 66 66 65 72 25 2b 62 75 66 66 |% = buffer%+buff|
000003f0 65 72 73 69 7a 65 25 0d 02 12 0d 71 75 69 74 25 |ersize%....quit%|
00000400 20 3d 20 a3 0d 02 1c 0e 73 61 76 65 64 25 20 3d | = .....saved% =|
00000410 20 b9 0d 02 26 0f 73 68 61 64 65 64 25 20 3d 20 | ...&.shaded% = |
00000420 b9 0d 02 30 10 73 65 6c 65 63 74 25 20 3d 20 2d |...0.select% = -|
00000430 31 0d 02 3a 11 61 6c 72 65 61 64 79 25 20 3d 20 |1..:.already% = |
00000440 2d 31 0d 02 44 0d 73 69 67 6e 25 20 3d 20 30 0d |-1..D.sign% = 0.|
00000450 02 4e 1c 73 6c 65 6e 25 20 3d 20 32 30 30 3a 20 |.N.slen% = 200: |
00000460 66 6c 65 6e 25 20 3d 20 38 30 30 0d 02 58 0f 78 |flen% = 800..X.x|
00000470 30 25 3d 30 3a 79 30 25 3d 30 0d 02 62 0d 78 25 |0%=0:y0%=0..b.x%|
00000480 3d 30 3a 79 25 3d 30 0d 02 6c 12 73 74 61 74 65 |=0:y%=0..l.state|
00000490 6d 65 6e 74 25 20 3d 20 a3 0d 02 76 0f f2 69 6e |ment% = ...v..in|
000004a0 69 74 5f 6d 6f 6e 74 68 0d 02 80 1d 6d 6f 6e 74 |it_month....mont|
000004b0 68 25 20 3d 20 28 28 a4 74 6f 64 61 79 3e 3e 38 |h% = ((.today>>8|
000004c0 29 83 31 32 29 0d 02 8a 1c 79 65 61 72 25 20 3d |).12)....year% =|
000004d0 20 28 28 a4 74 6f 64 61 79 3e 3e 38 29 81 31 32 | ((.today>>8).12|
000004e0 29 0d 02 94 17 64 61 79 25 20 3d 20 a4 74 6f 64 |)....day% = .tod|
000004f0 61 79 20 80 20 32 35 35 0d 02 9e 10 64 61 79 31 |ay . 255....day1|
00000500 25 20 3d 20 64 61 79 25 0d 02 a8 10 64 61 79 32 |% = day%....day2|
00000510 25 20 3d 20 64 61 79 25 0d 02 b2 10 64 61 79 33 |% = day%....day3|
00000520 25 20 3d 20 64 61 79 25 0d 02 bc 10 64 61 79 34 |% = day%....day4|
00000530 25 20 3d 20 64 61 79 25 0d 02 c6 11 79 65 61 72 |% = day%....year|
00000540 70 6c 75 73 25 20 3d 20 30 0d 02 d0 14 24 62 6c |plus% = 0....$bl|
00000550 6f 63 6b 25 20 3d 20 22 54 41 53 4b 22 0d 02 da |ock% = "TASK"...|
00000560 3e c8 99 20 22 57 69 6d 70 5f 49 6e 69 74 69 61 |>.. "Wimp_Initia|
00000570 6c 69 73 65 22 2c 32 30 30 2c 21 62 6c 6f 63 6b |lise",200,!block|
00000580 25 2c 22 42 61 6e 6b 65 72 22 20 b8 20 76 65 72 |%,"Banker" . ver|
00000590 73 69 6f 6e 25 2c 74 61 73 6b 25 0d 02 e4 31 c8 |sion%,task%...1.|
000005a0 99 20 22 57 69 6d 70 5f 4f 70 65 6e 54 65 6d 70 |. "Wimp_OpenTemp|
000005b0 6c 61 74 65 22 2c 2c 22 3c 4b 65 6e 24 44 69 72 |late",,"<Ken$Dir|
000005c0 3e 2e 54 65 6d 70 6c 61 74 65 73 22 0d 02 ee 1b |>.Templates"....|
000005d0 f2 74 65 6d 70 6c 61 74 65 28 22 4d 61 69 6e 57 |.template("MainW|
000005e0 69 6e 64 6f 77 22 29 0d 02 f8 30 c8 99 20 22 57 |indow")...0.. "W|
000005f0 69 6d 70 5f 43 72 65 61 74 65 57 69 6e 64 6f 77 |imp_CreateWindow|
00000600 22 2c 2c 62 6c 6f 63 6b 25 20 b8 20 4d 61 69 6e |",,block% . Main|
00000610 57 69 6e 64 6f 77 25 0d 03 02 1a f2 74 65 6d 70 |Window%.....temp|
00000620 6c 61 74 65 28 22 49 6e 66 6f 5f 57 69 6e 64 22 |late("Info_Wind"|
00000630 29 0d 03 0c 2f c8 99 20 22 57 69 6d 70 5f 43 72 |).../.. "Wimp_Cr|
00000640 65 61 74 65 57 69 6e 64 6f 77 22 2c 2c 62 6c 6f |eateWindow",,blo|
00000650 63 6b 25 20 b8 20 49 6e 66 6f 5f 57 69 6e 64 25 |ck% . Info_Wind%|
00000660 0d 03 16 1a f2 74 65 6d 70 6c 61 74 65 28 22 78 |.....template("x|
00000670 66 65 72 5f 73 65 6e 64 22 29 0d 03 20 2f c8 99 |fer_send").. /..|
00000680 20 22 57 69 6d 70 5f 43 72 65 61 74 65 57 69 6e | "Wimp_CreateWin|
00000690 64 6f 77 22 2c 2c 62 6c 6f 63 6b 25 20 b8 20 53 |dow",,block% . S|
000006a0 61 76 65 5f 57 69 6e 64 25 0d 03 2a 05 3a 0d 03 |ave_Wind%..*.:..|
000006b0 34 16 f2 74 65 6d 70 6c 61 74 65 28 22 41 6d 65 |4..template("Ame|
000006c0 6e 64 22 29 0d 03 3e 2b c8 99 20 22 57 69 6d 70 |nd")..>+.. "Wimp|
000006d0 5f 43 72 65 61 74 65 57 69 6e 64 6f 77 22 2c 2c |_CreateWindow",,|
000006e0 62 6c 6f 63 6b 25 20 b8 20 41 6d 65 6e 64 25 0d |block% . Amend%.|
000006f0 03 48 16 f2 74 65 6d 70 6c 61 74 65 28 22 44 65 |.H..template("De|
00000700 62 69 74 22 29 0d 03 52 2b c8 99 20 22 57 69 6d |bit")..R+.. "Wim|
00000710 70 5f 43 72 65 61 74 65 57 69 6e 64 6f 77 22 2c |p_CreateWindow",|
00000720 2c 62 6c 6f 63 6b 25 20 b8 20 44 65 62 69 74 25 |,block% . Debit%|
00000730 0d 03 5c 17 f2 74 65 6d 70 6c 61 74 65 28 22 43 |..\..template("C|
00000740 72 65 64 69 74 22 29 0d 03 66 2c c8 99 20 22 57 |redit")..f,.. "W|
00000750 69 6d 70 5f 43 72 65 61 74 65 57 69 6e 64 6f 77 |imp_CreateWindow|
00000760 22 2c 2c 62 6c 6f 63 6b 25 20 b8 20 43 72 65 64 |",,block% . Cred|
00000770 69 74 25 0d 03 70 19 f2 74 65 6d 70 6c 61 74 65 |it%..p..template|
00000780 28 22 53 74 61 6e 64 69 6e 67 22 29 0d 03 7a 2e |("Standing")..z.|
00000790 c8 99 20 22 57 69 6d 70 5f 43 72 65 61 74 65 57 |.. "Wimp_CreateW|
000007a0 69 6e 64 6f 77 22 2c 2c 62 6c 6f 63 6b 25 20 b8 |indow",,block% .|
000007b0 20 53 74 61 6e 64 69 6e 67 25 0d 03 84 16 f2 74 | Standing%.....t|
000007c0 65 6d 70 6c 61 74 65 28 22 71 75 65 72 79 22 29 |emplate("query")|
000007d0 0d 03 8e 2b c8 99 20 22 57 69 6d 70 5f 43 72 65 |...+.. "Wimp_Cre|
000007e0 61 74 65 57 69 6e 64 6f 77 22 2c 2c 62 6c 6f 63 |ateWindow",,bloc|
000007f0 6b 25 20 b8 20 51 75 65 72 79 25 0d 03 98 3b f2 |k% . Query%...;.|
00000800 73 65 74 5f 69 63 6f 6e 5f 69 6e 64 69 72 65 63 |set_icon_indirec|
00000810 74 28 49 6e 66 6f 5f 57 69 6e 64 25 2c 34 2c 22 |t(Info_Wind%,4,"|
00000820 31 2e 30 30 20 28 32 36 20 4d 61 72 63 68 20 31 |1.00 (26 March 1|
00000830 39 39 31 29 22 29 0d 03 a2 50 f2 73 65 74 5f 69 |991)")...P.set_i|
00000840 63 6f 6e 5f 69 6e 64 69 72 65 63 74 28 4d 61 69 |con_indirect(Mai|
00000850 6e 57 69 6e 64 6f 77 25 2c 30 2c 6d 6f 6e 74 68 |nWindow%,0,month|
00000860 24 28 6d 6f 6e 74 68 25 20 83 20 31 32 29 2b 22 |$(month% . 12)+"|
00000870 20 22 2b c3 28 79 65 61 72 25 2b 79 65 61 72 70 | "+.(year%+yearp|
00000880 6c 75 73 25 29 29 0d 03 ac 0c f2 62 61 72 69 63 |lus%)).....baric|
00000890 6f 6e 0d 03 b6 28 c8 99 20 22 57 69 6d 70 5f 43 |on...(.. "Wimp_C|
000008a0 6c 6f 73 65 54 65 6d 70 6c 61 74 65 22 2c 2c 22 |loseTemplate",,"|
000008b0 54 65 6d 70 6c 61 74 65 73 22 0d 03 c0 18 e7 20 |Templates"..... |
000008c0 41 41 24 3c 3e 22 22 20 f2 6c 6f 61 64 28 41 41 |AA$<>"" .load(AA|
000008d0 24 29 0d 03 ca 05 e1 0d 03 d4 05 3a 0d 03 de 04 |$).........:....|
000008e0 0d 03 e8 21 dd f2 73 65 74 5f 69 63 6f 6e 5f 69 |...!..set_icon_i|
000008f0 6e 64 69 72 65 63 74 28 68 25 2c 69 25 2c 54 24 |ndirect(h%,i%,T$|
00000900 29 0d 03 f2 10 21 65 72 72 6f 72 25 20 3d 20 68 |)....!error% = h|
00000910 25 0d 03 fc 11 65 72 72 6f 72 25 21 34 20 3d 20 |%....error%!4 = |
00000920 69 25 0d 04 06 22 c8 99 20 22 57 69 6d 70 5f 47 |i%...".. "Wimp_G|
00000930 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 65 72 |etIconState",,er|
00000940 72 6f 72 25 0d 04 10 2c f4 20 49 46 20 28 65 72 |ror%...,. IF (er|
00000950 72 6f 72 25 21 32 34 20 41 4e 44 20 26 31 30 30 |ror%!24 AND &100|
00000960 29 20 3d 20 30 20 54 48 45 4e 20 45 52 52 4f 52 |) = 0 THEN ERROR|
00000970 0d 04 1a 15 24 28 65 72 72 6f 72 25 21 32 38 29 |....$(error%!28)|
00000980 20 3d 20 54 24 0d 04 24 10 21 65 72 72 6f 72 25 | = T$..$.!error%|
00000990 20 3d 20 68 25 0d 04 2e 11 65 72 72 6f 72 25 21 | = h%....error%!|
000009a0 34 20 3d 20 69 25 0d 04 38 10 65 72 72 6f 72 25 |4 = i%..8.error%|
000009b0 21 38 20 3d 20 30 0d 04 42 11 65 72 72 6f 72 25 |!8 = 0..B.error%|
000009c0 21 31 32 20 3d 20 30 0d 04 4c 22 c8 99 20 22 57 |!12 = 0..L".. "W|
000009d0 69 6d 70 5f 53 65 74 49 63 6f 6e 53 74 61 74 65 |imp_SetIconState|
000009e0 22 2c 2c 65 72 72 6f 72 25 0d 04 56 05 e1 0d 04 |",,error%..V....|
000009f0 60 05 3a 0d 04 6a 04 0d 04 74 23 dd f2 67 65 74 |`.:..j...t#..get|
00000a00 5f 69 63 6f 6e 5f 69 6e 64 69 72 65 63 74 28 68 |_icon_indirect(h|
00000a10 25 2c 69 25 2c f8 20 54 24 29 0d 04 7e 10 21 65 |%,i%,. T$)..~.!e|
00000a20 72 72 6f 72 25 20 3d 20 68 25 0d 04 88 11 65 72 |rror% = h%....er|
00000a30 72 6f 72 25 21 34 20 3d 20 69 25 0d 04 92 22 c8 |ror%!4 = i%...".|
00000a40 99 20 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 |. "Wimp_GetIconS|
00000a50 74 61 74 65 22 2c 2c 65 72 72 6f 72 25 0d 04 9c |tate",,error%...|
00000a60 2c f4 20 49 46 20 28 65 72 72 6f 72 25 21 32 34 |,. IF (error%!24|
00000a70 20 41 4e 44 20 26 31 30 30 29 20 3d 20 30 20 54 | AND &100) = 0 T|
00000a80 48 45 4e 20 45 52 52 4f 52 0d 04 a6 15 54 24 20 |HEN ERROR....T$ |
00000a90 3d 20 24 28 65 72 72 6f 72 25 21 32 38 29 0d 04 |= $(error%!28)..|
00000aa0 b0 05 e1 0d 04 ba 05 3a 0d 04 c4 04 0d 04 ce 0a |.......:........|
00000ab0 dd f2 70 6f 6c 6c 0d 04 d8 2b c8 99 20 22 57 69 |..poll...+.. "Wi|
00000ac0 6d 70 5f 50 6f 6c 6c 22 2c 2c 62 6c 6f 63 6b 25 |mp_Poll",,block%|
00000ad0 20 b8 20 72 65 61 73 6f 6e 25 2c 62 6c 6f 63 6b | . reason%,block|
00000ae0 25 0d 04 e2 10 c8 8e 20 72 65 61 73 6f 6e 25 20 |%...... reason% |
00000af0 ca 0d 04 ec 1c 20 20 20 c9 20 31 3a f2 72 65 64 |..... . 1:.red|
00000b00 72 61 77 28 62 6c 6f 63 6b 25 21 30 29 0d 04 f6 |raw(block%!0)...|
00000b10 27 20 20 20 c9 20 32 3a c8 99 20 22 57 69 6d 70 |' . 2:.. "Wimp|
00000b20 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 2c 2c 62 6c |_OpenWindow",,bl|
00000b30 6f 63 6b 25 0d 05 00 29 20 20 20 c9 20 33 3a f2 |ock%...) . 3:.|
00000b40 63 6c 6f 73 65 28 4d 61 69 6e 57 69 6e 64 6f 77 |close(MainWindow|
00000b50 25 29 3a f2 73 68 75 74 62 6f 78 65 73 0d 05 0a |%):.shutboxes...|
00000b60 2f 20 20 20 c9 20 36 3a f2 6d 6f 75 73 65 28 62 |/ . 6:.mouse(b|
00000b70 6c 6f 63 6b 25 21 38 2c 62 6c 6f 63 6b 25 21 31 |lock%!8,block%!1|
00000b80 32 2c 62 6c 6f 63 6b 25 21 31 36 29 0d 05 14 13 |2,block%!16)....|
00000b90 20 20 20 c9 20 37 3a f2 64 72 61 67 67 65 64 0d | . 7:.dragged.|
00000ba0 05 1e 2d 20 20 20 c9 20 38 3a f2 6b 65 79 73 28 |..- . 8:.keys(|
00000bb0 62 6c 6f 63 6b 25 21 30 2c 62 6c 6f 63 6b 25 21 |block%!0,block%!|
00000bc0 34 2c 62 6c 6f 63 6b 25 21 32 34 29 0d 05 28 15 |4,block%!24)..(.|
00000bd0 20 20 20 c9 20 39 3a f2 72 65 61 64 5f 6d 65 6e | . 9:.read_men|
00000be0 75 0d 05 32 17 20 20 20 c9 20 31 37 2c 31 38 3a |u..2. . 17,18:|
00000bf0 f2 72 65 63 65 69 76 65 0d 05 3c 05 cb 0d 05 46 |.receive..<....F|
00000c00 05 e1 0d 05 50 05 3a 0d 05 5a 0d dd f2 72 65 63 |....P.:..Z...rec|
00000c10 65 69 76 65 0d 05 64 12 c8 8e 20 62 6c 6f 63 6b |eive..d... block|
00000c20 25 21 31 36 20 ca 0d 05 6e 0b 20 20 20 c9 20 30 |%!16 ...n. . 0|
00000c30 3a 0d 05 78 15 20 20 20 e7 20 73 61 76 65 64 25 |:..x. . saved%|
00000c40 20 3d 20 b9 20 8c 0d 05 82 11 20 20 20 20 71 75 | = . ..... qu|
00000c50 69 74 25 20 3d 20 b9 0d 05 8c 08 20 20 20 cc 0d |it% = ..... ..|
00000c60 05 96 12 20 20 20 20 21 62 6c 6f 63 6b 25 3d 32 |... !block%=2|
00000c70 30 0d 05 a0 16 20 20 20 20 62 6c 6f 63 6b 25 21 |0.... block%!|
00000c80 31 32 3d 72 65 66 25 0d 05 aa 24 20 20 20 20 62 |12=ref%...$ b|
00000c90 6c 6f 63 6b 25 21 31 36 3d 30 20 20 20 20 3a f4 |lock%!16=0 :.|
00000ca0 20 71 75 69 74 20 62 6c 6f 63 6b 0d 05 b4 48 20 | quit block...H |
00000cb0 20 20 20 c8 99 20 53 65 6e 64 4d 65 73 73 61 67 | .. SendMessag|
00000cc0 65 2c 31 39 2c 62 6c 6f 63 6b 25 20 3a f4 20 61 |e,19,block% :. a|
00000cd0 63 6b 6e 6f 77 6c 65 64 67 65 2c 20 61 6e 64 20 |cknowledge, and |
00000ce0 72 65 66 75 73 65 20 71 75 69 74 20 72 65 71 75 |refuse quit requ|
00000cf0 65 73 74 0d 05 be 5d 20 20 20 20 e7 20 a4 71 75 |est...] . .qu|
00000d00 65 73 74 69 6f 6e 28 22 21 42 61 6e 6b 65 72 20 |estion("!Banker |
00000d10 64 6f 63 75 6d 65 6e 74 20 69 73 20 6e 6f 74 20 |document is not |
00000d20 73 61 76 65 64 2e 20 41 72 65 20 79 6f 75 20 73 |saved. Are you s|
00000d30 75 72 65 20 79 6f 75 20 77 69 73 68 20 74 6f 20 |ure you wish to |
00000d40 71 75 69 74 20 3f 20 22 29 20 3d 20 31 20 20 8c |quit ? ") = 1 .|
00000d50 0d 05 c8 10 20 20 20 71 75 69 74 25 20 3d 20 b9 |.... quit% = .|
00000d60 0d 05 d2 09 20 20 20 20 cc 0d 05 dc 0a 20 20 20 |.... ..... |
00000d70 20 20 cd 0d 05 e6 09 20 20 20 20 cd 0d 05 f0 0b | ..... .....|
00000d80 20 20 20 c9 20 32 3a 0d 05 fa 2e 20 20 20 f2 67 | . 2:.... .g|
00000d90 65 74 5f 69 63 6f 6e 5f 69 6e 64 69 72 65 63 74 |et_icon_indirect|
00000da0 28 53 61 76 65 5f 57 69 6e 64 25 2c 32 2c 24 66 |(Save_Wind%,2,$f|
00000db0 69 6c 65 25 29 0d 06 04 10 20 20 20 f2 64 61 74 |ile%).... .dat|
00000dc0 61 73 61 76 65 0d 06 0e 1d 20 20 20 c9 20 33 3a |asave.... . 3:|
00000dd0 f2 6c 6f 61 64 61 63 6b 3a f2 6f 6b 74 6f 6c 6f |.loadack:.oktolo|
00000de0 61 64 0d 06 18 0b 20 20 20 c9 20 38 3a 0d 06 22 |ad.... . 8:.."|
00000df0 1e 20 20 20 20 20 20 20 20 20 20 20 20 e7 20 73 |. . s|
00000e00 61 76 65 64 25 20 3d 20 b9 20 8c 0d 06 2c 19 20 |aved% = . ...,. |
00000e10 20 20 20 20 20 20 20 20 20 20 20 71 75 69 74 25 | quit%|
00000e20 20 3d 20 b9 0d 06 36 11 20 20 20 20 20 20 20 20 | = ...6. |
00000e30 20 20 20 20 cc 0d 06 40 65 20 20 20 20 20 20 20 | ...@e |
00000e40 20 20 20 20 20 e7 20 a4 71 75 65 73 74 69 6f 6e | . .question|
00000e50 28 22 21 42 61 6e 6b 65 72 20 64 6f 63 75 6d 65 |("!Banker docume|
00000e60 6e 74 20 69 73 20 6e 6f 74 20 73 61 76 65 64 2e |nt is not saved.|
00000e70 20 41 72 65 20 79 6f 75 20 73 75 72 65 20 79 6f | Are you sure yo|
00000e80 75 20 77 69 73 68 20 74 6f 20 71 75 69 74 20 3f |u wish to quit ?|
00000e90 20 22 29 20 3d 20 31 20 20 8c 0d 06 4a 19 20 20 | ") = 1 ...J. |
00000ea0 20 20 20 20 20 20 20 20 20 20 71 75 69 74 25 20 | quit% |
00000eb0 3d 20 b9 0d 06 54 11 20 20 20 20 20 20 20 20 20 |= ...T. |
00000ec0 20 20 20 cc 0d 06 5e 19 20 20 20 20 20 20 20 20 | ...^. |
00000ed0 20 20 20 20 71 75 69 74 25 20 3d 20 a3 0d 06 68 | quit% = ...h|
00000ee0 11 20 20 20 20 20 20 20 20 20 20 20 20 cd 0d 06 |. ...|
00000ef0 72 11 20 20 20 20 20 20 20 20 20 20 20 20 cd 0d |r. ..|
00000f00 06 7c 04 0d 06 86 05 cb 0d 06 90 05 e1 0d 06 9a |.|..............|
00000f10 04 0d 06 a4 05 3a 0d 06 ae 0d dd f2 6c 6f 61 64 |.....:......load|
00000f20 61 63 6b 0d 06 b8 18 62 6c 6f 63 6b 25 21 31 32 |ack....block%!12|
00000f30 20 3d 20 62 6c 6f 63 6b 25 21 38 0d 06 c2 11 62 | = block%!8....b|
00000f40 6c 6f 63 6b 25 21 31 36 20 3d 20 34 0d 06 cc 2c |lock%!16 = 4...,|
00000f50 c8 99 20 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 |.. "Wimp_SendMes|
00000f60 73 61 67 65 22 2c 31 37 2c 62 6c 6f 63 6b 25 2c |sage",17,block%,|
00000f70 62 6c 6f 63 6b 25 21 34 0d 06 d6 05 e1 0d 06 e0 |block%!4........|
00000f80 05 3a 0d 06 ea 0e dd f2 6f 6b 74 6f 6c 6f 61 64 |.:......oktoload|
00000f90 0d 06 f4 26 e7 20 62 6c 6f 63 6b 25 21 34 30 20 |...&. block%!40 |
00000fa0 3d 20 26 34 30 36 20 8c 20 6f 6b 25 3d b9 20 8b |= &406 . ok%=. .|
00000fb0 20 6f 6b 25 3d a3 0d 06 fe 0b e7 20 6f 6b 25 20 | ok%=...... ok% |
00000fc0 8c 0d 07 08 12 66 69 6c 65 6e 61 6d 65 24 20 3d |.....filename$ =|
00000fd0 20 22 22 0d 07 12 0a 61 25 20 3d 20 30 0d 07 1c | ""....a% = 0...|
00000fe0 17 62 25 20 3d 20 62 6c 6f 63 6b 25 3f 28 34 34 |.b% = block%?(44|
00000ff0 2b 61 25 29 0d 07 26 0c c8 95 20 62 25 3c 3e 30 |+a%)..&... b%<>0|
00001000 0d 07 30 17 20 20 20 66 69 6c 65 6e 61 6d 65 24 |..0. filename$|
00001010 2b 3d bd 28 62 25 29 0d 07 3a 0c 20 20 20 61 25 |+=.(b%)..:. a%|
00001020 2b 3d 31 0d 07 44 1a 20 20 20 62 25 20 3d 20 62 |+=1..D. b% = b|
00001030 6c 6f 63 6b 25 3f 28 34 34 2b 61 25 29 0d 07 4e |lock%?(44+a%)..N|
00001040 05 ce 0d 07 58 6b e7 20 a4 71 75 65 73 74 69 6f |....Xk. .questio|
00001050 6e 28 22 54 68 69 73 20 61 63 63 6f 75 6e 74 20 |n("This account |
00001060 69 73 20 6e 6f 74 20 73 61 76 65 64 2e 20 41 72 |is not saved. Ar|
00001070 65 20 79 6f 75 20 73 75 72 65 20 79 6f 75 20 77 |e you sure you w|
00001080 69 73 68 20 74 6f 20 6c 6f 61 64 20 61 6e 6f 74 |ish to load anot|
00001090 68 65 72 20 3f 20 22 29 20 3d 20 31 20 f2 6c 6f |her ? ") = 1 .lo|
000010a0 61 64 28 66 69 6c 65 6e 61 6d 65 24 29 0d 07 62 |ad(filename$)..b|
000010b0 05 cc 0d 07 6c 22 20 20 20 20 20 20 20 20 20 20 |....l" |
000010c0 20 20 20 20 20 20 20 20 21 65 72 72 6f 72 25 20 | !error% |
000010d0 3d 20 39 39 0d 07 76 45 20 20 20 20 20 20 20 20 |= 99..vE |
000010e0 20 20 20 20 20 20 20 20 20 20 24 28 65 72 72 6f | $(erro|
000010f0 72 25 2b 34 29 20 3d 20 22 54 68 69 73 20 69 73 |r%+4) = "This is|
00001100 20 6e 6f 74 20 61 6e 20 41 63 63 6f 75 6e 74 20 | not an Account |
00001110 46 69 6c 65 20 21 21 21 22 0d 07 80 3e 20 20 20 |File !!!"...> |
00001120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c8 | .|
00001130 99 20 22 57 69 6d 70 5f 52 65 70 6f 72 74 45 72 |. "Wimp_ReportEr|
00001140 72 6f 72 22 2c 65 72 72 6f 72 25 2c 31 2c 22 21 |ror",error%,1,"!|
00001150 42 61 6e 6b 65 72 22 0d 07 8a 05 cd 0d 07 94 05 |Banker".........|
00001160 e1 0d 07 9e 04 0d 07 a8 12 dd f2 72 65 64 72 61 |...........redra|
00001170 77 28 62 6c 6b 25 29 0d 07 b2 13 62 6c 6f 63 6b |w(blk%)....block|
00001180 25 21 30 20 3d 20 62 6c 6b 25 0d 07 bc 2a c8 99 |%!0 = blk%...*..|
00001190 20 22 57 69 6d 70 5f 52 65 64 72 61 77 57 69 6e | "Wimp_RedrawWin|
000011a0 64 6f 77 22 2c 2c 62 6c 6f 63 6b 25 20 b8 20 6d |dow",,block% . m|
000011b0 6f 72 65 25 0d 07 c6 1b f2 6f 72 69 67 69 6e 28 |ore%.....origin(|
000011c0 62 6c 6f 63 6b 25 2c 78 30 25 2c 79 30 25 29 0d |block%,x0%,y0%).|
000011d0 07 d0 0c c8 95 20 6d 6f 72 65 25 0d 07 da 2e 20 |..... more%.... |
000011e0 20 20 e7 20 62 6c 6f 63 6b 25 21 30 20 3d 20 4d | . block%!0 = M|
000011f0 61 69 6e 57 69 6e 64 6f 77 25 20 f2 64 72 61 77 |ainWindow% .draw|
00001200 28 78 30 25 2c 79 30 25 29 0d 07 e4 2d 20 20 20 |(x0%,y0%)...- |
00001210 c8 99 20 22 57 69 6d 70 5f 47 65 74 52 65 63 74 |.. "Wimp_GetRect|
00001220 61 6e 67 6c 65 22 2c 2c 62 6c 6f 63 6b 25 20 b8 |angle",,block% .|
00001230 20 6d 6f 72 65 25 0d 07 ee 05 ce 0d 07 f8 05 e1 | more%..........|
00001240 0d 08 02 05 3a 0d 08 0c 04 0d 08 16 20 dd f2 6f |....:....... ..o|
00001250 72 69 67 69 6e 28 62 6c 6f 63 6b 25 2c f8 20 78 |rigin(block%,. x|
00001260 30 25 2c f8 20 79 30 25 29 0d 08 20 1c 78 30 25 |0%,. y0%).. .x0%|
00001270 20 3d 20 62 6c 6f 63 6b 25 21 34 2d 62 6c 6f 63 | = block%!4-bloc|
00001280 6b 25 21 32 30 0d 08 2a 1d 79 30 25 20 3d 20 62 |k%!20..*.y0% = b|
00001290 6c 6f 63 6b 25 21 31 36 2d 62 6c 6f 63 6b 25 21 |lock%!16-block%!|
000012a0 32 34 0d 08 34 05 e1 0d 08 3e 05 3a 0d 08 48 0c |24..4....>.:..H.|
000012b0 dd f2 74 69 74 6c 65 73 0d 08 52 07 ef 20 35 0d |..titles..R.. 5.|
000012c0 08 5c 20 ec 20 78 30 25 2b 36 33 30 2c 79 30 25 |.\ . x0%+630,y0%|
000012d0 20 3a 20 f1 22 53 54 41 54 45 4d 45 4e 54 22 0d | : ."STATEMENT".|
000012e0 08 66 23 ec 20 78 30 25 2b 36 33 30 2c 79 30 25 |.f#. x0%+630,y0%|
000012f0 2d 31 30 20 3a 20 f1 22 5f 5f 5f 5f 5f 5f 5f 5f |-10 : ."________|
00001300 5f 22 0d 08 70 2a ec 20 78 30 25 2b 33 30 30 2c |_"..p*. x0%+300,|
00001310 79 30 25 2d 37 30 20 3a 20 f1 22 54 72 61 6e 73 |y0%-70 : ."Trans|
00001320 61 63 74 69 6f 6e 20 4e 61 6d 65 22 0d 08 7a 1f |action Name"..z.|
00001330 ec 20 78 30 25 2b 37 30 30 2c 79 30 25 2d 37 30 |. x0%+700,y0%-70|
00001340 20 3a 20 f1 22 44 65 62 69 74 22 0d 08 84 20 ec | : ."Debit"... .|
00001350 20 78 30 25 2b 38 37 30 2c 79 30 25 2d 37 30 20 | x0%+870,y0%-70 |
00001360 3a 20 f1 22 43 72 65 64 69 74 22 0d 08 8e 1e ec |: ."Credit".....|
00001370 20 78 30 25 2b 32 35 2c 79 30 25 2d 37 30 20 20 | x0%+25,y0%-70 |
00001380 3a 20 f1 22 44 61 74 65 22 0d 08 98 22 ec 20 78 |: ."Date"...". x|
00001390 30 25 2b 31 30 38 30 2c 79 30 25 2d 37 30 20 3a |0%+1080,y0%-70 :|
000013a0 20 f1 22 42 61 6c 61 6e 63 65 22 0d 08 a2 05 e1 | ."Balance".....|
000013b0 0d 08 ac 05 3a 0d 08 b6 13 dd f2 64 72 61 77 28 |....:......draw(|
000013c0 78 30 25 2c 79 30 25 29 0d 08 c0 19 ea 20 63 6f |x0%,y0%)..... co|
000013d0 75 6e 74 25 2c 64 6f 77 6e 25 2c 61 6d 2c 74 6f |unt%,down%,am,to|
000013e0 74 0d 08 ca 07 ef 20 35 0d 08 d4 12 40 25 20 3d |t..... 5....@% =|
000013f0 20 26 30 31 30 41 30 32 30 41 0d 08 de 11 f4 20 | &010A020A..... |
00001400 7b 4e 4f 43 4f 4d 50 49 4c 45 7d 0d 08 e8 12 40 |{NOCOMPILE}....@|
00001410 25 20 3d 20 26 30 31 30 32 30 32 30 41 0d 08 f2 |% = &0102020A...|
00001420 0f f4 20 7b 43 4f 4d 50 49 4c 45 7d 0d 08 fc 3b |.. {COMPILE}...;|
00001430 e7 20 6d 6f 6e 74 68 25 20 3d 20 30 20 8c 20 74 |. month% = 0 . t|
00001440 6f 74 61 6c 25 20 3d 20 30 20 8b 20 74 6f 74 61 |otal% = 0 . tota|
00001450 6c 25 20 3d 20 62 61 6c 61 6e 63 65 25 28 6d 6f |l% = balance%(mo|
00001460 6e 74 68 25 2d 31 29 0d 09 06 04 0d 09 10 2d ec |nth%-1).......-.|
00001470 20 78 30 25 2b 33 30 30 2c 79 30 25 2d 31 35 30 | x0%+300,y0%-150|
00001480 20 3a 20 f1 22 42 61 6c 61 6e 63 65 20 46 6f 72 | : ."Balance For|
00001490 77 61 72 64 20 3a 20 22 0d 09 1a 16 ec 20 78 30 |ward : "..... x0|
000014a0 25 2b 31 30 33 30 2c 79 30 25 2d 31 35 30 0d 09 |%+1030,y0%-150..|
000014b0 24 41 e7 20 74 6f 74 61 6c 25 20 3c 20 30 20 8c |$A. total% < 0 .|
000014c0 20 c8 99 20 22 57 69 6d 70 5f 53 65 74 43 6f 6c | .. "Wimp_SetCol|
000014d0 6f 75 72 22 2c 31 31 20 8b 20 c8 99 20 22 57 69 |our",11 . .. "Wi|
000014e0 6d 70 5f 53 65 74 43 6f 6c 6f 75 72 22 2c 37 0d |mp_SetColour",7.|
000014f0 09 2e 14 74 6f 74 20 3d 20 74 6f 74 61 6c 25 2f |...tot = total%/|
00001500 31 30 30 0d 09 38 16 e7 20 73 74 61 74 65 6d 65 |100..8.. stateme|
00001510 6e 74 25 20 3d 20 a3 20 8c 0d 09 42 0c f1 20 94 |nt% = . ...B.. .|
00001520 28 74 6f 74 29 0d 09 4c 05 cc 0d 09 56 2d f1 20 |(tot)..L....V-. |
00001530 94 28 74 6f 74 29 3a e7 20 74 6f 74 3c 30 20 ec |.(tot):. tot<0 .|
00001540 20 78 30 25 2b 31 32 32 30 2c 79 30 25 2d 31 35 | x0%+1220,y0%-15|
00001550 30 3a f1 22 44 52 22 0d 09 60 05 cd 0d 09 6a 1b |0:."DR"..`....j.|
00001560 e7 20 65 6e 74 72 79 25 28 6d 6f 6e 74 68 25 29 |. entry%(month%)|
00001570 20 3c 3e 20 30 20 8c 0d 09 74 23 e3 20 63 6f 75 | <> 0 ...t#. cou|
00001580 6e 74 25 20 3d 20 30 20 b8 20 65 6e 74 72 79 25 |nt% = 0 . entry%|
00001590 28 6d 6f 6e 74 68 25 29 2d 31 0d 09 7e 46 e7 20 |(month%)-1..~F. |
000015a0 73 65 6c 65 63 74 25 20 3d 20 63 6f 75 6e 74 25 |select% = count%|
000015b0 20 8c 20 c8 99 20 22 57 69 6d 70 5f 53 65 74 43 | . .. "Wimp_SetC|
000015c0 6f 6c 6f 75 72 22 2c 38 20 8b 20 c8 99 20 22 57 |olour",8 . .. "W|
000015d0 69 6d 70 5f 53 65 74 43 6f 6c 6f 75 72 22 2c 37 |imp_SetColour",7|
000015e0 0d 09 88 1b 64 6f 77 6e 25 20 3d 20 32 30 30 2b |....down% = 200+|
000015f0 28 63 6f 75 6e 74 25 2a 34 30 29 0d 09 92 16 ec |(count%*40).....|
00001600 20 78 30 25 2b 32 35 2c 79 30 25 2d 64 6f 77 6e | x0%+25,y0%-down|
00001610 25 0d 09 9c 12 40 25 20 3d 20 26 30 31 30 30 30 |%....@% = &01000|
00001620 39 30 41 0d 09 a6 1c f1 c3 28 64 61 74 65 25 28 |90A......(date%(|
00001630 63 6f 75 6e 74 25 2c 6d 6f 6e 74 68 25 29 29 0d |count%,month%)).|
00001640 09 b0 12 40 25 20 3d 20 26 30 31 30 41 30 32 30 |...@% = &010A020|
00001650 41 0d 09 ba 11 f4 20 7b 4e 4f 43 4f 4d 50 49 4c |A..... {NOCOMPIL|
00001660 45 7d 0d 09 c4 12 40 25 20 3d 20 26 30 31 30 32 |E}....@% = &0102|
00001670 30 32 30 41 0d 09 ce 0f f4 20 7b 43 4f 4d 50 49 |020A..... {COMPI|
00001680 4c 45 7d 0d 09 d8 17 ec 20 78 30 25 2b 33 30 30 |LE}..... x0%+300|
00001690 2c 79 30 25 2d 64 6f 77 6e 25 0d 09 e2 19 f1 6e |,y0%-down%.....n|
000016a0 61 6d 65 24 28 63 6f 75 6e 74 25 2c 6d 6f 6e 74 |ame$(count%,mont|
000016b0 68 25 29 0d 09 ec 22 e7 20 61 6d 6f 75 6e 74 25 |h%)...". amount%|
000016c0 28 63 6f 75 6e 74 25 2c 6d 6f 6e 74 68 25 29 20 |(count%,month%) |
000016d0 3c 20 30 20 8c 0d 09 f6 17 ec 20 78 30 25 2b 36 |< 0 ...... x0%+6|
000016e0 33 30 2c 79 30 25 2d 64 6f 77 6e 25 0d 0a 00 19 |30,y0%-down%....|
000016f0 cc 20 ec 20 78 30 25 2b 38 30 30 2c 79 30 25 2d |. . x0%+800,y0%-|
00001700 64 6f 77 6e 25 0d 0a 0a 05 cd 0d 0a 14 23 61 6d |down%........#am|
00001710 20 3d 20 61 6d 6f 75 6e 74 25 28 63 6f 75 6e 74 | = amount%(count|
00001720 25 2c 6d 6f 6e 74 68 25 29 2f 31 30 30 0d 0a 1e |%,month%)/100...|
00001730 0b f1 20 94 28 61 6d 29 0d 0a 28 18 ec 20 78 30 |.. .(am)..(.. x0|
00001740 25 2b 31 30 33 30 2c 79 30 25 2d 64 6f 77 6e 25 |%+1030,y0%-down%|
00001750 0d 0a 32 2a 74 6f 74 61 6c 25 20 3d 20 74 6f 74 |..2*total% = tot|
00001760 61 6c 25 2b 61 6d 6f 75 6e 74 25 28 63 6f 75 6e |al%+amount%(coun|
00001770 74 25 2c 6d 6f 6e 74 68 25 29 0d 0a 3c 6c e7 20 |t%,month%)..<l. |
00001780 73 65 6c 65 63 74 25 20 3d 20 63 6f 75 6e 74 25 |select% = count%|
00001790 20 8c 20 c8 99 20 22 57 69 6d 70 5f 53 65 74 43 | . .. "Wimp_SetC|
000017a0 6f 6c 6f 75 72 22 2c 38 20 8b 20 e7 20 74 6f 74 |olour",8 . . tot|
000017b0 61 6c 25 3c 30 20 8c 20 c8 99 20 22 57 69 6d 70 |al%<0 . .. "Wimp|
000017c0 5f 53 65 74 43 6f 6c 6f 75 72 22 2c 31 31 20 8b |_SetColour",11 .|
000017d0 20 c8 99 20 22 57 69 6d 70 5f 53 65 74 43 6f 6c | .. "Wimp_SetCol|
000017e0 6f 75 72 22 2c 37 0d 0a 46 14 74 6f 74 20 3d 20 |our",7..F.tot = |
000017f0 74 6f 74 61 6c 25 2f 31 30 30 0d 0a 50 16 e7 20 |total%/100..P.. |
00001800 73 74 61 74 65 6d 65 6e 74 25 20 3d 20 a3 20 8c |statement% = . .|
00001810 0d 0a 5a 0c f1 20 94 28 74 6f 74 29 0d 0a 64 05 |..Z.. .(tot)..d.|
00001820 cc 0d 0a 6e 2f f1 20 94 28 74 6f 74 29 3a e7 20 |...n/. .(tot):. |
00001830 74 6f 74 3c 30 20 ec 20 78 30 25 2b 31 32 32 30 |tot<0 . x0%+1220|
00001840 2c 79 30 25 2d 64 6f 77 6e 25 3a f1 22 44 52 22 |,y0%-down%:."DR"|
00001850 0d 0a 78 05 cd 0d 0a 82 05 ed 0d 0a 8c 05 cd 0d |..x.............|
00001860 0a 96 0b f4 20 56 44 55 20 34 0d 0a a0 12 40 25 |.... VDU 4....@%|
00001870 20 3d 20 26 30 31 30 30 30 39 30 41 0d 0a aa 05 | = &0100090A....|
00001880 e1 0d 0a b4 05 3a 0d 0a be 04 0d 0a c8 0d dd f2 |.....:..........|
00001890 62 61 72 69 63 6f 6e 0d 0a d2 38 6d 65 6e 75 62 |baricon...8menub|
000018a0 61 72 25 20 3d 20 a4 69 63 6f 6e 28 2d 31 2c 30 |ar% = .icon(-1,0|
000018b0 2c 30 2c 36 32 2c 39 36 2c 26 32 30 30 32 2c 30 |,0,62,96,&2002,0|
000018c0 2c 30 2c 30 2c 22 21 42 61 6e 6b 65 72 22 29 0d |,0,0,"!Banker").|
000018d0 0a dc 05 e1 0d 0a e6 05 3a 0d 0a f0 3f dd a4 69 |........:...?..i|
000018e0 63 6f 6e 28 68 61 6e 64 25 2c 78 31 25 2c 79 31 |con(hand%,x1%,y1|
000018f0 25 2c 78 32 25 2c 79 32 25 2c 66 6c 61 67 25 2c |%,x2%,y2%,flag%,|
00001900 64 61 74 31 25 2c 64 61 74 32 25 2c 64 61 74 33 |dat1%,dat2%,dat3|
00001910 25 2c 6e 61 6d 65 24 29 0d 0a fa 15 62 6c 6f 63 |%,name$)....bloc|
00001920 6b 25 21 30 20 20 3d 20 68 61 6e 64 25 0d 0b 04 |k%!0 = hand%...|
00001930 13 62 6c 6f 63 6b 25 21 34 20 20 3d 20 78 31 25 |.block%!4 = x1%|
00001940 0d 0b 0e 13 62 6c 6f 63 6b 25 21 38 20 20 3d 20 |....block%!8 = |
00001950 79 31 25 0d 0b 18 14 62 6c 6f 63 6b 25 21 31 32 |y1%....block%!12|
00001960 20 3d 20 78 32 25 20 0d 0b 22 15 62 6c 6f 63 6b | = x2% ..".block|
00001970 25 21 31 36 20 3d 20 79 32 25 20 20 0d 0b 2c 15 |%!16 = y2% ..,.|
00001980 62 6c 6f 63 6b 25 21 32 30 20 3d 20 66 6c 61 67 |block%!20 = flag|
00001990 25 0d 0b 36 13 e7 20 6e 61 6d 65 24 20 20 3d 20 |%..6.. name$ = |
000019a0 22 22 20 8c 0d 0b 40 15 62 6c 6f 63 6b 25 21 32 |"" ...@.block%!2|
000019b0 34 20 3d 20 64 61 74 31 25 0d 0b 4a 15 62 6c 6f |4 = dat1%..J.blo|
000019c0 63 6b 25 21 32 38 20 3d 20 64 61 74 32 25 0d 0b |ck%!28 = dat2%..|
000019d0 54 15 62 6c 6f 63 6b 25 21 33 32 20 3d 20 64 61 |T.block%!32 = da|
000019e0 74 33 25 0d 0b 5e 05 cc 0d 0b 68 18 24 28 62 6c |t3%..^....h.$(bl|
000019f0 6f 63 6b 25 2b 32 34 29 20 3d 20 6e 61 6d 65 24 |ock%+24) = name$|
00001a00 0d 0b 72 05 cd 0d 0b 7c 29 c8 99 20 22 57 69 6d |..r....|).. "Wim|
00001a10 70 5f 43 72 65 61 74 65 49 63 6f 6e 22 2c 2c 62 |p_CreateIcon",,b|
00001a20 6c 6f 63 6b 25 20 b8 20 68 61 6e 64 79 25 0d 0b |lock% . handy%..|
00001a30 86 0d 20 3d 20 68 61 6e 64 79 25 0d 0b 90 05 3a |.. = handy%....:|
00001a40 0d 0b 9a 1f dd f2 63 72 65 61 74 65 5f 6d 65 6e |......create_men|
00001a50 75 28 6d 25 2c 74 69 74 6c 65 24 2c 6d 24 29 0d |u(m%,title$,m$).|
00001a60 0b a4 0d ea 20 69 25 2c 6d 61 78 25 0d 0b ae 10 |.... i%,max%....|
00001a70 24 6d 25 20 3d 20 74 69 74 6c 65 24 0d 0b b8 0d |$m% = title$....|
00001a80 6d 25 3f 31 32 20 3d 20 37 0d 0b c2 0d 6d 25 3f |m%?12 = 7....m%?|
00001a90 31 33 20 3d 20 32 0d 0b cc 0d 6d 25 3f 31 34 20 |13 = 2....m%?14 |
00001aa0 3d 20 37 0d 0b d6 0d 6d 25 3f 31 35 20 3d 20 30 |= 7....m%?15 = 0|
00001ab0 0d 0b e0 0e 6d 25 21 32 30 20 3d 20 34 30 0d 0b |....m%!20 = 40..|
00001ac0 ea 0d 6d 25 21 32 34 20 3d 20 30 0d 0b f4 10 69 |..m%!24 = 0....i|
00001ad0 25 20 3d 20 6d 25 20 2b 20 32 38 0d 0b fe 18 6d |% = m% + 28....m|
00001ae0 61 78 25 20 3d 20 a9 28 74 69 74 6c 65 24 29 20 |ax% = .(title$) |
00001af0 2d 20 32 0d 0c 08 05 f5 0d 0c 12 11 61 25 20 3d |- 2.........a% =|
00001b00 20 a7 6d 24 2c 22 2c 22 29 0d 0c 1c 15 e7 20 61 | .m$,",")..... a|
00001b10 25 3e 6d 61 78 25 20 6d 61 78 25 3d 61 25 0d 0c |%>max% max%=a%..|
00001b20 26 0c 21 69 25 20 20 3d 20 30 0d 0c 30 0c 69 25 |&.!i% = 0..0.i%|
00001b30 21 34 20 3d 20 30 0d 0c 3a 14 69 25 21 38 20 3d |!4 = 0..:.i%!8 =|
00001b40 20 26 30 37 30 30 30 30 32 31 0d 0c 44 1a 24 28 | &07000021..D.$(|
00001b50 69 25 20 2b 20 31 32 29 20 3d 20 c0 6d 24 2c 61 |i% + 12) = .m$,a|
00001b60 25 2d 31 29 0d 0c 4e 12 6d 24 20 3d 20 c1 6d 24 |%-1)..N.m$ = .m$|
00001b70 2c 61 25 2b 31 29 0d 0c 58 11 c8 8e 20 24 28 69 |,a%+1)..X... $(i|
00001b80 25 2b 31 32 29 20 ca 0d 0c 62 04 0d 0c 6c 1f 20 |%+12) ...b...l. |
00001b90 c9 20 22 4d 6f 6e 74 68 22 20 3a 69 25 21 34 20 |. "Month" :i%!4 |
00001ba0 3d 20 6d 25 20 2b 20 32 36 38 0d 0c 76 69 20 73 |= m% + 268..vi s|
00001bb0 74 72 69 6e 67 24 20 3d 20 28 22 4a 61 6e 75 61 |tring$ = ("Janua|
00001bc0 72 79 2c 46 65 62 72 75 61 72 79 2c 4d 61 72 63 |ry,February,Marc|
00001bd0 68 2c 41 70 72 69 6c 2c 4d 61 79 2c 4a 75 6e 65 |h,April,May,June|
00001be0 2c 4a 75 6c 79 2c 41 75 67 75 73 74 2c 53 65 70 |,July,August,Sep|
00001bf0 74 65 6d 62 65 72 2c 4f 63 74 6f 62 65 72 2c 4e |tember,October,N|
00001c00 6f 76 65 6d 62 65 72 2c 44 65 63 65 6d 62 65 72 |ovember,December|
00001c10 2c 22 29 0d 0c 80 26 f2 63 72 65 61 74 65 5f 6d |,")...&.create_m|
00001c20 65 6e 75 28 69 25 21 34 2c 22 4d 6f 6e 74 68 22 |enu(i%!4,"Month"|
00001c30 2c 73 74 72 69 6e 67 24 29 0d 0c 8a 04 0d 0c 94 |,string$).......|
00001c40 1e 20 c9 20 22 59 65 61 72 22 20 3a 69 25 21 34 |. . "Year" :i%!4|
00001c50 20 3d 20 6d 25 20 2b 20 35 38 34 0d 0c 9e 57 20 | = m% + 584...W |
00001c60 73 74 72 69 6e 67 24 20 3d 20 c3 28 79 65 61 72 |string$ = .(year|
00001c70 25 29 2b 22 2c 22 2b c3 28 79 65 61 72 25 2b 31 |%)+","+.(year%+1|
00001c80 29 2b 22 2c 22 2b c3 28 79 65 61 72 25 2b 32 29 |)+","+.(year%+2)|
00001c90 2b 22 2c 22 2b c3 28 79 65 61 72 25 2b 33 29 2b |+","+.(year%+3)+|
00001ca0 22 2c 22 2b c3 28 79 65 61 72 25 2b 34 29 2b 22 |","+.(year%+4)+"|
00001cb0 2c 22 0d 0c a8 26 20 f2 63 72 65 61 74 65 5f 6d |,"...& .create_m|
00001cc0 65 6e 75 28 69 25 21 34 2c 22 59 65 61 72 22 2c |enu(i%!4,"Year",|
00001cd0 73 74 72 69 6e 67 24 29 0d 0c b2 10 20 21 69 25 |string$).... !i%|
00001ce0 20 3d 20 21 69 25 84 32 0d 0c bc 04 0d 0c c6 2e | = !i%.2........|
00001cf0 20 c9 20 22 44 65 6c 65 74 65 22 20 3a e7 20 73 | . "Delete" :. s|
00001d00 68 61 64 65 64 25 20 69 25 21 38 20 3d 20 69 25 |haded% i%!8 = i%|
00001d10 21 38 84 26 34 30 30 30 30 30 0d 0c d0 1b 20 c9 |!8.&400000.... .|
00001d20 20 22 41 6d 65 6e 64 22 20 3a e7 20 73 68 61 64 | "Amend" :. shad|
00001d30 65 64 25 20 8c 0d 0c da 10 20 21 69 25 20 3d 20 |ed% ..... !i% = |
00001d40 21 69 25 84 32 0d 0c e4 16 20 69 25 21 38 3d 69 |!i%.2.... i%!8=i|
00001d50 25 21 38 84 26 34 30 30 30 30 30 0d 0c ee 06 20 |%!8.&400000.... |
00001d60 cd 0d 0c f8 1d 20 c9 20 22 53 2f 4f 72 64 65 72 |..... . "S/Order|
00001d70 22 20 3a 21 69 25 20 3d 20 21 69 25 84 32 0d 0d |" :!i% = !i%.2..|
00001d80 02 0f 20 c9 20 22 53 61 76 65 22 20 3a 0d 0d 0c |.. . "Save" :...|
00001d90 2c 20 f2 73 65 74 5f 69 63 6f 6e 5f 69 6e 64 69 |, .set_icon_indi|
00001da0 72 65 63 74 28 53 61 76 65 5f 57 69 6e 64 25 2c |rect(Save_Wind%,|
00001db0 32 2c 24 66 69 6c 65 25 29 0d 0d 16 16 20 69 25 |2,$file%).... i%|
00001dc0 21 34 20 3d 20 53 61 76 65 5f 57 69 6e 64 25 0d |!4 = Save_Wind%.|
00001dd0 0d 20 32 20 c9 20 22 50 72 69 6e 74 22 20 3a 21 |. 2 . "Print" :!|
00001de0 69 25 20 3d 20 21 69 25 84 32 3a f4 20 69 25 21 |i% = !i%.2:. i%!|
00001df0 38 20 3d 20 69 25 21 38 4f 52 26 34 30 30 30 30 |8 = i%!8OR&40000|
00001e00 30 0d 0d 2a 06 20 3a 0d 0d 34 26 c9 20 22 49 6e |0..*. :..4&. "In|
00001e10 66 6f 72 6d 61 74 69 6f 6e 22 20 3a 69 25 21 34 |formation" :i%!4|
00001e20 20 3d 20 49 6e 66 6f 5f 57 69 6e 64 25 0d 0d 3e | = Info_Wind%..>|
00001e30 28 c9 20 6d 6f 6e 74 68 24 28 6d 6f 6e 74 68 25 |(. month$(month%|
00001e40 20 83 20 31 32 29 20 3a 21 69 25 20 3d 20 21 69 | . 12) :!i% = !i|
00001e50 25 20 84 20 31 0d 0d 48 27 c9 20 c3 28 79 65 61 |% . 1..H'. .(yea|
00001e60 72 25 2b 79 65 61 72 70 6c 75 73 25 29 20 3a 21 |r%+yearplus%) :!|
00001e70 69 25 20 3d 20 21 69 25 20 84 20 31 0d 0d 52 05 |i% = !i% . 1..R.|
00001e80 cb 0d 0d 5c 10 69 25 20 3d 20 69 25 20 2b 20 32 |...\.i% = i% + 2|
00001e90 34 0d 0d 66 0d fd 20 6d 24 20 3d 20 22 22 0d 0d |4..f.. m$ = ""..|
00001ea0 70 1a 69 25 21 2d 32 34 20 3d 20 28 69 25 21 2d |p.i%!-24 = (i%!-|
00001eb0 32 34 29 84 20 26 38 30 0d 0d 7a 13 6d 25 21 31 |24). &80..z.m%!1|
00001ec0 36 20 3d 20 6d 61 78 25 2a 31 36 0d 0d 84 05 e1 |6 = max%*16.....|
00001ed0 0d 0d 8e 05 3a 0d 0d 98 22 dd f2 6d 61 73 74 65 |....:..."..maste|
00001ee0 72 5f 6d 65 6e 75 28 74 69 74 6c 65 24 2c 6d 24 |r_menu(title$,m$|
00001ef0 2c 78 25 2c 79 25 29 0d 0d a2 21 f2 63 72 65 61 |,x%,y%)...!.crea|
00001f00 74 65 5f 6d 65 6e 75 28 6d 65 6e 75 25 2c 74 69 |te_menu(menu%,ti|
00001f10 74 6c 65 24 2c 6d 24 29 0d 0d ac 32 c8 99 20 22 |tle$,m$)...2.. "|
00001f20 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 |Wimp_CreateMenu"|
00001f30 2c 2c 6d 65 6e 75 25 2c 78 25 2d 6d 65 6e 75 25 |,,menu%,x%-menu%|
00001f40 21 31 36 20 2f 20 32 2c 79 25 0d 0d b6 05 e1 0d |!16 / 2,y%......|
00001f50 0d c0 05 3a 0d 0d ca 15 dd f2 6d 6f 75 73 65 28 |...:......mouse(|
00001f60 42 25 2c 57 25 2c 49 25 29 0d 0d d4 13 ea 20 6e |B%,W%,I%)..... n|
00001f70 61 6d 65 24 2c 61 6d 6f 75 6e 74 24 0d 0d de 0b |ame$,amount$....|
00001f80 c8 8e 20 57 25 20 ca 0d 0d e8 04 0d 0d f2 0b 20 |.. W% ......... |
00001f90 20 20 c9 20 2d 32 0d 0d fc 11 20 20 20 20 20 20 | . -2.... |
00001fa0 c8 8e 20 42 25 20 ca 0d 0e 06 48 20 20 20 20 20 |.. B% ....H |
00001fb0 20 20 20 20 c9 20 32 3a f2 6d 61 73 74 65 72 5f | . 2:.master_|
00001fc0 6d 65 6e 75 28 22 21 42 61 6e 6b 65 72 22 2c 22 |menu("!Banker","|
00001fd0 49 6e 66 6f 72 6d 61 74 69 6f 6e 2c 51 75 69 74 |Information,Quit|
00001fe0 2c 22 2c 21 62 6c 6f 63 6b 25 2c 31 34 30 29 0d |,",!block%,140).|
00001ff0 0e 10 23 20 20 20 20 20 20 20 20 20 c9 20 34 3a |..# . 4:|
00002000 f2 6f 70 65 6e 28 4d 61 69 6e 57 69 6e 64 6f 77 |.open(MainWindow|
00002010 25 29 0d 0e 1a 0b 20 20 20 20 20 20 cb 0d 0e 24 |%).... ...$|
00002020 04 0d 0e 2e 14 20 20 20 c9 20 4d 61 69 6e 57 69 |..... . MainWi|
00002030 6e 64 6f 77 25 0d 0e 38 04 0d 0e 42 11 20 20 20 |ndow%..8...B. |
00002040 20 20 20 c8 8e 20 42 25 20 ca 0d 0e 4c 10 20 20 | .. B% ...L. |
00002050 20 20 20 20 20 20 20 c9 20 34 0d 0e 56 17 20 20 | . 4..V. |
00002060 20 20 20 20 20 20 20 20 20 20 c8 8e 20 49 25 20 | .. I% |
00002070 ca 0d 0e 60 28 20 20 20 20 20 20 20 20 20 20 20 |...`( |
00002080 20 20 20 20 c9 20 36 3a 6d 6f 6e 74 68 25 20 3d | . 6:month% =|
00002090 20 6d 6f 6e 74 68 25 2d 31 0d 0e 6a 26 20 20 20 | month%-1..j& |
000020a0 20 20 20 20 20 20 20 20 20 20 20 20 e7 20 6d 6f | . mo|
000020b0 6e 74 68 25 3c 30 20 6d 6f 6e 74 68 25 3d 30 0d |nth%<0 month%=0.|
000020c0 0e 74 28 20 20 20 20 20 20 20 20 20 20 20 20 20 |.t( |
000020d0 20 20 79 65 61 72 70 6c 75 73 25 20 3d 20 6d 6f | yearplus% = mo|
000020e0 6e 74 68 25 81 31 32 0d 0e 7e 42 20 20 20 20 20 |nth%.12..~B |
000020f0 20 20 20 20 20 20 20 20 20 20 f4 20 50 52 4f 43 | . PROC|
00002100 73 65 74 65 78 74 65 6e 74 28 30 2c 65 6e 74 72 |setextent(0,entr|
00002110 79 25 28 6d 6f 6e 74 68 25 29 2a 34 30 2b 32 38 |y%(month%)*40+28|
00002120 30 2c 31 32 34 30 2c 30 29 0d 0e 88 5f 20 20 20 |0,1240,0)..._ |
00002130 20 20 20 20 20 20 20 20 20 20 20 20 f2 73 65 74 | .set|
00002140 5f 69 63 6f 6e 5f 69 6e 64 69 72 65 63 74 28 4d |_icon_indirect(M|
00002150 61 69 6e 57 69 6e 64 6f 77 25 2c 30 2c 6d 6f 6e |ainWindow%,0,mon|
00002160 74 68 24 28 6d 6f 6e 74 68 25 20 83 20 31 32 29 |th$(month% . 12)|
00002170 2b 22 20 22 2b c3 28 79 65 61 72 25 2b 79 65 61 |+" "+.(year%+yea|
00002180 72 70 6c 75 73 25 29 29 0d 0e 92 27 20 20 20 20 |rplus%))...' |
00002190 20 20 20 20 20 20 20 20 20 20 20 73 65 6c 65 63 | selec|
000021a0 74 25 3d 2d 31 3a 73 68 61 64 65 64 25 3d b9 0d |t%=-1:shaded%=..|
000021b0 0e 9c 27 20 20 20 20 20 20 20 20 20 20 20 20 20 |..' |
000021c0 20 20 f2 72 65 64 72 61 77 28 4d 61 69 6e 57 69 | .redraw(MainWi|
000021d0 6e 64 6f 77 25 29 0d 0e a6 17 20 20 20 20 20 20 |ndow%).... |
000021e0 20 20 20 20 20 20 20 20 20 c9 20 37 3a 0d 0e b0 | . 7:...|
000021f0 24 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |$ |
00002200 6d 6f 6e 74 68 25 20 3d 20 6d 6f 6e 74 68 25 2b |month% = month%+|
00002210 31 0d 0e ba 28 20 20 20 20 20 20 20 20 20 20 20 |1...( |
00002220 20 20 20 20 e7 20 6d 6f 6e 74 68 25 3e 35 39 20 | . month%>59 |
00002230 6d 6f 6e 74 68 25 3d 35 39 0d 0e c4 28 20 20 20 |month%=59...( |
00002240 20 20 20 20 20 20 20 20 20 20 20 20 79 65 61 72 | year|
00002250 70 6c 75 73 25 20 3d 20 6d 6f 6e 74 68 25 81 31 |plus% = month%.1|
00002260 32 0d 0e ce 42 20 20 20 20 20 20 20 20 20 20 20 |2...B |
00002270 20 20 20 20 f4 20 50 52 4f 43 73 65 74 65 78 74 | . PROCsetext|
00002280 65 6e 74 28 30 2c 65 6e 74 72 79 25 28 6d 6f 6e |ent(0,entry%(mon|
00002290 74 68 25 29 2a 34 30 2b 32 38 30 2c 31 32 34 30 |th%)*40+280,1240|
000022a0 2c 30 29 0d 0e d8 5f 20 20 20 20 20 20 20 20 20 |,0)..._ |
000022b0 20 20 20 20 20 20 f2 73 65 74 5f 69 63 6f 6e 5f | .set_icon_|
000022c0 69 6e 64 69 72 65 63 74 28 4d 61 69 6e 57 69 6e |indirect(MainWin|
000022d0 64 6f 77 25 2c 30 2c 6d 6f 6e 74 68 24 28 6d 6f |dow%,0,month$(mo|
000022e0 6e 74 68 25 20 83 20 31 32 29 2b 22 20 22 2b c3 |nth% . 12)+" "+.|
000022f0 28 79 65 61 72 25 2b 79 65 61 72 70 6c 75 73 25 |(year%+yearplus%|
00002300 29 29 0d 0e e2 27 20 20 20 20 20 20 20 20 20 20 |))...' |
00002310 20 20 20 20 20 73 65 6c 65 63 74 25 3d 2d 31 3a | select%=-1:|
00002320 73 68 61 64 65 64 25 3d b9 0d 0e ec 27 20 20 20 |shaded%=....' |
00002330 20 20 20 20 20 20 20 20 20 20 20 20 f2 72 65 64 | .red|
00002340 72 61 77 28 4d 61 69 6e 57 69 6e 64 6f 77 25 29 |raw(MainWindow%)|
00002350 0d 0e f6 14 20 20 20 20 20 20 20 20 20 20 20 20 |.... |
00002360 20 20 20 7f 0d 0f 00 33 20 20 20 20 20 20 20 20 | ....3 |
00002370 20 20 20 20 20 20 20 c8 99 20 22 57 69 6d 70 5f | .. "Wimp_|
00002380 47 65 74 50 6f 69 6e 74 65 72 49 6e 66 6f 22 2c |GetPointerInfo",|
00002390 2c 62 6c 6f 63 6b 25 0d 0f 0a 24 20 20 20 20 20 |,block%...$ |
000023a0 20 20 20 20 20 20 20 20 20 20 f2 73 65 6c 65 63 | .selec|
000023b0 74 28 62 6c 6f 63 6b 25 21 34 29 0d 0f 14 11 20 |t(block%!4).... |
000023c0 20 20 20 20 20 20 20 20 20 20 20 cb 0d 0f 1e 11 | .....|
000023d0 20 20 20 20 20 20 20 20 20 c9 20 32 3a 0d 0f 28 | . 2:..(|
000023e0 73 20 20 20 20 20 20 20 20 20 f2 6d 61 73 74 65 |s .maste|
000023f0 72 5f 6d 65 6e 75 28 22 4d 61 69 6e 22 2c 22 4d |r_menu("Main","M|
00002400 6f 6e 74 68 2c 59 65 61 72 2c 44 65 6c 65 74 65 |onth,Year,Delete|
00002410 2c 41 6d 65 6e 64 2c 44 65 62 69 74 2c 43 72 65 |,Amend,Debit,Cre|
00002420 64 69 74 2c 53 2f 4f 72 64 65 72 2c 53 61 76 65 |dit,S/Order,Save|
00002430 2c 50 72 69 6e 74 2c 43 6c 65 61 72 2c 22 2c 21 |,Print,Clear,",!|
00002440 62 6c 6f 63 6b 25 2c 62 6c 6f 63 6b 25 21 34 29 |block%,block%!4)|
00002450 0d 0f 32 0b 20 20 20 20 20 20 cb 0d 0f 3c 11 20 |..2. ...<. |
00002460 20 20 f2 73 68 75 74 62 6f 78 65 73 0d 0f 46 04 | .shutboxes..F.|
00002470 0d 0f 50 10 20 20 20 c9 20 44 65 62 69 74 25 3a |..P. . Debit%:|
00002480 0d 0f 5a 11 20 20 20 20 20 20 c8 8e 20 42 25 20 |..Z. .. B% |
00002490 ca 0d 0f 64 13 20 20 20 20 20 20 20 20 20 c9 20 |...d. . |
000024a0 31 2c 34 3a 0d 0f 6e 17 20 20 20 20 20 20 20 20 |1,4:..n. |
000024b0 20 20 20 20 c8 8e 20 49 25 20 ca 0d 0f 78 30 20 | .. I% ...x0 |
000024c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c9 20 | . |
000024d0 31 34 3a 20 64 61 79 31 25 20 2d 3d 20 31 3a f2 |14: day1% -= 1:.|
000024e0 64 61 74 65 28 64 61 79 31 25 29 0d 0f 82 39 20 |date(day1%)...9 |
000024f0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 f2 73 | .s|
00002500 65 74 5f 69 63 6f 6e 5f 69 6e 64 69 72 65 63 74 |et_icon_indirect|
00002510 28 44 65 62 69 74 25 2c 31 36 2c c3 28 64 61 79 |(Debit%,16,.(day|
00002520 31 25 29 29 0d 0f 8c 30 20 20 20 20 20 20 20 20 |1%))...0 |
00002530 20 20 20 20 20 20 20 c9 20 31 35 3a 20 64 61 79 | . 15: day|
00002540 31 25 20 2b 3d 20 31 3a f2 64 61 74 65 28 64 61 |1% += 1:.date(da|
00002550 79 31 25 29 0d 0f 96 39 20 20 20 20 20 20 20 20 |y1%)...9 |
00002560 20 20 20 20 20 20 20 f2 73 65 74 5f 69 63 6f 6e | .set_icon|
00002570 5f 69 6e 64 69 72 65 63 74 28 44 65 62 69 74 25 |_indirect(Debit%|
00002580 2c 31 36 2c c3 28 64 61 79 31 25 29 29 0d 0f a0 |,16,.(day1%))...|
00002590 26 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |& |
000025a0 c9 20 31 33 3a f2 63 6c 6f 73 65 28 44 65 62 69 |. 13:.close(Debi|
000025b0 74 25 29 0d 0f aa 2f 20 20 20 20 20 20 20 20 20 |t%).../ |
000025c0 20 20 20 20 20 20 c9 20 31 32 3a f2 6f 6b 28 64 | . 12:.ok(d|
000025d0 61 79 31 25 2c 2d 31 2c 44 65 62 69 74 25 2c 42 |ay1%,-1,Debit%,B|
000025e0 25 29 0d 0f b4 11 20 20 20 20 20 20 20 20 20 20 |%).... |
000025f0 20 20 cb 0d 0f be 0b 20 20 20 20 20 20 cb 0d 0f | ..... ...|
00002600 c8 04 0d 0f d2 11 20 20 20 c9 20 43 72 65 64 69 |...... . Credi|
00002610 74 25 3a 0d 0f dc 11 20 20 20 20 20 20 c8 8e 20 |t%:.... .. |
00002620 42 25 20 ca 0d 0f e6 13 20 20 20 20 20 20 20 20 |B% ..... |
00002630 20 c9 20 31 2c 34 3a 0d 0f f0 17 20 20 20 20 20 | . 1,4:.... |
00002640 20 20 20 20 20 20 20 c8 8e 20 49 25 20 ca 0d 0f | .. I% ...|
00002650 fa 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.0 |
00002660 20 c9 20 31 34 3a 20 64 61 79 32 25 20 2d 3d 20 | . 14: day2% -= |
00002670 31 3a f2 64 61 74 65 28 64 61 79 32 25 29 0d 10 |1:.date(day2%)..|
00002680 04 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.: |
00002690 20 f2 73 65 74 5f 69 63 6f 6e 5f 69 6e 64 69 72 | .set_icon_indir|
000026a0 65 63 74 28 43 72 65 64 69 74 25 2c 31 36 2c c3 |ect(Credit%,16,.|
000026b0 28 64 61 79 32 25 29 29 0d 10 0e 30 20 20 20 20 |(day2%))...0 |
000026c0 20 20 20 20 20 20 20 20 20 20 20 c9 20 31 35 3a | . 15:|
000026d0 20 64 61 79 32 25 20 2b 3d 20 31 3a f2 64 61 74 | day2% += 1:.dat|
000026e0 65 28 64 61 79 32 25 29 0d 10 18 3a 20 20 20 20 |e(day2%)...: |
000026f0 20 20 20 20 20 20 20 20 20 20 20 f2 73 65 74 5f | .set_|
00002700 69 63 6f 6e 5f 69 6e 64 69 72 65 63 74 28 43 72 |icon_indirect(Cr|
00002710 65 64 69 74 25 2c 31 36 2c c3 28 64 61 79 32 25 |edit%,16,.(day2%|
00002720 29 29 0d 10 22 27 20 20 20 20 20 20 20 20 20 20 |)).."' |
00002730 20 20 20 20 20 c9 20 31 33 3a f2 63 6c 6f 73 65 | . 13:.close|
00002740 28 43 72 65 64 69 74 25 29 0d 10 2c 2f 20 20 20 |(Credit%)..,/ |
00002750 20 20 20 20 20 20 20 20 20 20 20 20 c9 20 31 32 | . 12|
00002760 3a f2 6f 6b 28 64 61 79 32 25 2c 31 2c 43 72 65 |:.ok(day2%,1,Cre|
00002770 64 69 74 25 2c 42 25 29 0d 10 36 11 20 20 20 20 |dit%,B%)..6. |
00002780 20 20 20 20 20 20 20 20 cb 0d 10 40 0b 20 20 20 | ...@. |
00002790 20 20 20 cb 0d 10 4a 04 0d 10 54 10 20 20 20 c9 | ...J...T. .|
000027a0 20 41 6d 65 6e 64 25 3a 0d 10 5e 11 20 20 20 20 | Amend%:..^. |
000027b0 20 20 c8 8e 20 42 25 20 ca 0d 10 68 13 20 20 20 | .. B% ...h. |
000027c0 20 20 20 20 20 20 c9 20 31 2c 34 3a 0d 10 72 17 | . 1,4:..r.|
000027d0 20 20 20 20 20 20 20 20 20 20 20 20 c8 8e 20 49 | .. I|
000027e0 25 20 ca 0d 10 7c 30 20 20 20 20 20 20 20 20 20 |% ...|0 |
000027f0 20 20 20 20 20 20 c9 20 31 34 3a 20 64 61 79 34 | . 14: day4|
00002800 25 20 2d 3d 20 31 3a f2 64 61 74 65 28 64 61 79 |% -= 1:.date(day|
00002810 34 25 29 0d 10 86 39 20 20 20 20 20 20 20 20 20 |4%)...9 |
00002820 20 20 20 20 20 20 f2 73 65 74 5f 69 63 6f 6e 5f | .set_icon_|
00002830 69 6e 64 69 72 65 63 74 28 41 6d 65 6e 64 25 2c |indirect(Amend%,|
00002840 31 36 2c c3 28 64 61 79 34 25 29 29 0d 10 90 30 |16,.(day4%))...0|
00002850 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c9 | .|
00002860 20 31 35 3a 20 64 61 79 34 25 20 2b 3d 20 31 3a | 15: day4% += 1:|
00002870 f2 64 61 74 65 28 64 61 79 34 25 29 0d 10 9a 39 |.date(day4%)...9|
00002880 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 f2 | .|
00002890 73 65 74 5f 69 63 6f 6e 5f 69 6e 64 69 72 65 63 |set_icon_indirec|
000028a0 74 28 41 6d 65 6e 64 25 2c 31 36 2c c3 28 64 61 |t(Amend%,16,.(da|
000028b0 79 34 25 29 29 0d 10 a4 26 20 20 20 20 20 20 20 |y4%))...& |
000028c0 20 20 20 20 20 20 20 20 c9 20 31 33 3a f2 63 6c | . 13:.cl|
000028d0 6f 73 65 28 41 6d 65 6e 64 25 29 0d 10 ae 31 20 |ose(Amend%)...1 |
000028e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c9 20 | . |
000028f0 31 32 3a f2 6f 6b 28 64 61 79 34 25 2c 73 69 67 |12:.ok(day4%,sig|
00002900 6e 25 2c 41 6d 65 6e 64 25 2c 34 29 0d 10 b8 11 |n%,Amend%,4)....|
00002910 20 20 20 20 20 20 20 20 20 20 20 20 cb 0d 10 c2 | ....|
00002920 0b 20 20 20 20 20 20 cb 0d 10 cc 04 0d 10 d6 13 |. .........|
00002930 20 20 20 c9 20 53 74 61 6e 64 69 6e 67 25 3a 0d | . Standing%:.|
00002940 10 e0 11 20 20 20 20 20 20 c8 8e 20 42 25 20 ca |... .. B% .|
00002950 0d 10 ea 13 20 20 20 20 20 20 20 20 20 c9 20 31 |.... . 1|
00002960 2c 34 3a 0d 10 f4 17 20 20 20 20 20 20 20 20 20 |,4:.... |
00002970 20 20 20 c8 8e 20 49 25 20 ca 0d 10 fe 30 20 20 | .. I% ....0 |
00002980 20 20 20 20 20 20 20 20 20 20 20 20 20 c9 20 31 | . 1|
00002990 32 3a 20 64 61 79 33 25 20 2d 3d 20 31 3a f2 64 |2: day3% -= 1:.d|
000029a0 61 74 65 28 64 61 79 33 25 29 0d 11 08 3c 20 20 |ate(day3%)...< |
000029b0 20 20 20 20 20 20 20 20 20 20 20 20 20 f2 73 65 | .se|
000029c0 74 5f 69 63 6f 6e 5f 69 6e 64 69 72 65 63 74 28 |t_icon_indirect(|
000029d0 53 74 61 6e 64 69 6e 67 25 2c 31 30 2c c3 28 64 |Standing%,10,.(d|
000029e0 61 79 33 25 29 29 0d 11 12 30 20 20 20 20 20 20 |ay3%))...0 |
000029f0 20 20 20 20 20 20 20 20 20 c9 20 31 31 3a 20 64 | . 11: d|
00002a00 61 79 33 25 20 2b 3d 20 31 3a f2 64 61 74 65 28 |ay3% += 1:.date(|
00002a10 64 61 79 33 25 29 0d 11 1c 3c 20 20 20 20 20 20 |day3%)...< |
00002a20 20 20 20 20 20 20 20 20 20 f2 73 65 74 5f 69 63 | .set_ic|
00002a30 6f 6e 5f 69 6e 64 69 72 65 63 74 28 53 74 61 6e |on_indirect(Stan|
00002a40 64 69 6e 67 25 2c 31 30 2c c3 28 64 61 79 33 25 |ding%,10,.(day3%|
00002a50 29 29 0d 11 26 28 20 20 20 20 20 20 20 20 20 20 |))..&( |
00002a60 20 20 20 20 20 c9 20 38 3a f2 63 6c 6f 73 65 28 | . 8:.close(|
00002a70 53 74 61 6e 64 69 6e 67 25 29 0d 11 30 34 20 20 |Standing%)..04 |
00002a80 20 20 20 20 20 20 20 20 20 20 20 20 20 c9 20 37 | . 7|
00002a90 3a f2 73 74 61 6e 64 69 6e 67 28 64 61 79 33 25 |:.standing(day3%|
00002aa0 2c 53 74 61 6e 64 69 6e 67 25 2c 42 25 29 0d 11 |,Standing%,B%)..|
00002ab0 3a 11 20 20 20 20 20 20 20 20 20 20 20 20 cb 0d |:. ..|
00002ac0 11 44 0b 20 20 20 20 20 20 cb 0d 11 4e 04 0d 11 |.D. ...N...|
00002ad0 58 14 20 20 20 c9 20 53 61 76 65 5f 57 69 6e 64 |X. . Save_Wind|
00002ae0 25 3a 0d 11 62 11 20 20 20 20 20 20 c8 8e 20 42 |%:..b. .. B|
00002af0 25 20 ca 0d 11 6c 15 20 20 20 20 20 20 20 20 20 |% ...l. |
00002b00 c9 20 31 36 2c 36 34 3a 0d 11 76 17 20 20 20 20 |. 16,64:..v. |
00002b10 20 20 20 20 20 20 20 20 c8 8e 20 49 25 20 ca 0d | .. I% ..|
00002b20 11 80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
00002b30 20 20 c9 20 33 20 3a f2 64 72 61 67 62 6f 78 0d | . 3 :.dragbox.|
00002b40 11 8a 11 20 20 20 20 20 20 20 20 20 20 20 20 cb |... .|
00002b50 0d 11 94 13 20 20 20 20 20 20 20 20 20 c9 20 31 |.... . 1|
00002b60 2c 34 3a 0d 11 9e 17 20 20 20 20 20 20 20 20 20 |,4:.... |
00002b70 20 20 20 c8 8e 20 49 25 20 ca 0d 11 a8 22 20 20 | .. I% ...." |
00002b80 20 20 20 20 20 20 20 20 20 20 20 20 20 c9 20 30 | . 0|
00002b90 20 3a f2 71 75 69 63 6b 73 61 76 65 0d 11 b2 11 | :.quicksave....|
00002ba0 20 20 20 20 20 20 20 20 20 20 20 20 cb 0d 11 bc | ....|
00002bb0 0b 20 20 20 20 20 20 cb 0d 11 c6 04 0d 11 d0 10 |. .........|
00002bc0 20 20 20 c9 20 51 75 65 72 79 25 3a 0d 11 da 11 | . Query%:....|
00002bd0 20 20 20 20 20 20 c8 8e 20 42 25 20 ca 0d 11 e4 | .. B% ....|
00002be0 13 20 20 20 20 20 20 20 20 20 c9 20 31 2c 34 3a |. . 1,4:|
00002bf0 0d 11 ee 17 20 20 20 20 20 20 20 20 20 20 20 20 |.... |
00002c00 c8 8e 20 49 25 20 ca 0d 11 f8 17 20 20 20 20 20 |.. I% ..... |
00002c10 20 20 20 20 20 20 20 20 20 20 c9 20 30 3a 0d 12 | . 0:..|
00002c20 02 17 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
00002c30 20 c9 20 32 3a 0d 12 0c 11 20 20 20 20 20 20 20 | . 2:.... |
00002c40 20 20 20 20 20 cb 0d 12 16 04 0d 12 20 0b 20 20 | ....... . |
00002c50 20 20 20 20 cb 0d 12 2a 05 cb 0d 12 34 05 e1 0d | ...*....4...|
00002c60 12 3e 05 3a 0d 12 48 13 dd f2 63 6c 6f 73 65 28 |.>.:..H...close(|
00002c70 77 68 69 63 68 25 29 0d 12 52 14 21 62 6c 6f 63 |which%)..R.!bloc|
00002c80 6b 25 20 3d 20 77 68 69 63 68 25 0d 12 5c 21 c8 |k% = which%..\!.|
00002c90 99 20 22 57 69 6d 70 5f 43 6c 6f 73 65 57 69 6e |. "Wimp_CloseWin|
00002ca0 64 6f 77 22 2c 2c 62 6c 6f 63 6b 25 0d 12 66 05 |dow",,block%..f.|
00002cb0 e1 0d 12 70 05 3a 0d 12 7a 04 0d 12 84 12 dd f2 |...p.:..z.......|
00002cc0 6f 70 65 6e 28 77 68 69 63 68 25 29 0d 12 8e 14 |open(which%)....|
00002cd0 21 62 6c 6f 63 6b 25 20 3d 20 77 68 69 63 68 25 |!block% = which%|
00002ce0 0d 12 98 24 c8 99 20 22 57 69 6d 70 5f 47 65 74 |...$.. "Wimp_Get|
00002cf0 57 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c 62 6c |WindowState",,bl|
00002d00 6f 63 6b 25 0d 12 a2 2c e7 20 62 6c 6f 63 6b 25 |ock%...,. block%|
00002d10 21 33 32 20 80 20 26 30 30 30 31 30 30 30 30 20 |!32 . &00010000 |
00002d20 8c 20 62 6c 6f 63 6b 25 21 32 38 20 3d 20 2d 31 |. block%!28 = -1|
00002d30 0d 12 ac 20 c8 99 20 22 57 69 6d 70 5f 4f 70 65 |... .. "Wimp_Ope|
00002d40 6e 57 69 6e 64 6f 77 22 2c 2c 62 6c 6f 63 6b 25 |nWindow",,block%|
00002d50 0d 12 b6 05 e1 0d 12 c0 05 3a 0d 12 ca 04 0d 12 |.........:......|
00002d60 d4 0b dd a4 74 6f 64 61 79 0d 12 de 0f 3f 62 6c |....today....?bl|
00002d70 6f 63 6b 25 20 3d 20 31 0d 12 e8 1a c8 99 20 22 |ock% = 1...... "|
00002d80 4f 53 5f 57 6f 72 64 22 2c 31 34 2c 62 6c 6f 63 |OS_Word",14,bloc|
00002d90 6b 25 0d 12 f2 10 41 25 20 3d 20 3f 62 6c 6f 63 |k%....A% = ?bloc|
00002da0 6b 25 0d 12 fc 23 59 25 20 3d 20 31 30 20 2a 20 |k%...#Y% = 10 * |
00002db0 28 41 25 20 3e 3e 20 34 29 20 2b 20 28 41 25 20 |(A% >> 4) + (A% |
00002dc0 80 20 31 35 29 0d 13 06 44 41 25 20 3d 20 62 6c |. 15)...DA% = bl|
00002dd0 6f 63 6b 25 3f 31 20 3a 4d 25 20 3d 20 32 32 37 |ock%?1 :M% = 227|
00002de0 39 39 20 2b 20 59 25 20 2a 20 31 32 20 2b 20 31 |99 + Y% * 12 + 1|
00002df0 30 20 2a 20 28 41 25 20 3e 3e 20 34 29 20 2b 20 |0 * (A% >> 4) + |
00002e00 28 41 25 20 80 20 31 35 29 0d 13 10 11 41 25 20 |(A% . 15)....A% |
00002e10 3d 20 62 6c 6f 63 6b 25 3f 32 0d 13 1a 2a 3d 20 |= block%?2...*= |
00002e20 28 4d 25 3c 3c 38 29 20 2b 20 31 30 20 2a 20 28 |(M%<<8) + 10 * (|
00002e30 41 25 20 3e 3e 20 34 29 20 2b 20 28 41 25 20 80 |A% >> 4) + (A% .|
00002e40 20 31 35 29 0d 13 24 04 0d 13 2e 10 dd f2 69 6e | 15)..$.......in|
00002e50 69 74 5f 6d 6f 6e 74 68 0d 13 38 10 de 20 6d 6f |it_month..8.. mo|
00002e60 6e 74 68 24 28 31 31 29 0d 13 42 11 e3 20 61 25 |nth$(11)..B.. a%|
00002e70 20 3d 20 30 20 b8 20 31 31 0d 13 4c 10 f3 20 6d | = 0 . 11..L.. m|
00002e80 6f 6e 74 68 24 28 61 25 29 0d 13 56 05 ed 0d 13 |onth$(a%)..V....|
00002e90 60 05 e1 0d 13 6a 05 3a 0d 13 74 04 0d 13 7e 0f |`....j.:..t...~.|
00002ea0 dd f2 72 65 61 64 5f 6d 65 6e 75 0d 13 88 08 ea |..read_menu.....|
00002eb0 20 61 6d 0d 13 92 26 c8 99 20 22 57 69 6d 70 5f | am...&.. "Wimp_|
00002ec0 47 65 74 50 6f 69 6e 74 65 72 49 6e 66 6f 22 2c |GetPointerInfo",|
00002ed0 2c 70 6f 69 6e 74 65 72 25 0d 13 9c 0f c8 8e 20 |,pointer%...... |
00002ee0 24 6d 65 6e 75 25 20 ca 0d 13 a6 13 20 20 20 c9 |$menu% ..... .|
00002ef0 20 22 21 42 61 6e 6b 65 72 22 3a 0d 13 b0 17 20 | "!Banker":.... |
00002f00 20 20 20 20 20 c8 8e 20 62 6c 6f 63 6b 25 21 30 | .. block%!0|
00002f10 20 ca 0d 13 ba 11 20 20 20 20 20 20 20 20 20 c9 | ..... .|
00002f20 20 31 3a 0d 13 c4 1e 20 20 20 20 20 20 20 20 20 | 1:.... |
00002f30 20 20 20 e7 20 73 61 76 65 64 25 20 3d 20 b9 20 | . saved% = . |
00002f40 8c 0d 13 ce 19 20 20 20 20 20 20 20 20 20 20 20 |..... |
00002f50 20 71 75 69 74 25 20 3d 20 b9 0d 13 d8 11 20 20 | quit% = ..... |
00002f60 20 20 20 20 20 20 20 20 20 20 cc 0d 13 e2 61 20 | ....a |
00002f70 20 20 20 20 20 20 20 20 20 20 20 e7 20 a4 71 75 | . .qu|
00002f80 65 73 74 69 6f 6e 28 22 54 68 69 73 20 61 63 63 |estion("This acc|
00002f90 6f 75 6e 74 20 69 73 20 6e 6f 74 20 73 61 76 65 |ount is not save|
00002fa0 64 2e 20 41 72 65 20 79 6f 75 20 73 75 72 65 20 |d. Are you sure |
00002fb0 79 6f 75 20 77 69 73 68 20 74 6f 20 71 75 69 74 |you wish to quit|
00002fc0 20 3f 20 22 29 20 3d 20 31 20 20 8c 0d 13 ec 19 | ? ") = 1 .....|
00002fd0 20 20 20 20 20 20 20 20 20 20 20 20 71 75 69 74 | quit|
00002fe0 25 20 3d 20 b9 0d 13 f6 11 20 20 20 20 20 20 20 |% = ..... |
00002ff0 20 20 20 20 20 cc 0d 14 00 19 20 20 20 20 20 20 | ..... |
00003000 20 20 20 20 20 20 71 75 69 74 25 20 3d 20 a3 0d | quit% = ..|
00003010 14 0a 11 20 20 20 20 20 20 20 20 20 20 20 20 cd |... .|
00003020 0d 14 14 11 20 20 20 20 20 20 20 20 20 20 20 20 |.... |
00003030 cd 0d 14 1e 0b 20 20 20 20 20 20 cb 0d 14 28 10 |..... ...(.|
00003040 20 20 20 c9 20 22 4d 61 69 6e 22 3a 0d 14 32 17 | . "Main":..2.|
00003050 20 20 20 20 20 20 c8 8e 20 62 6c 6f 63 6b 25 21 | .. block%!|
00003060 30 20 ca 0d 14 3c 04 0d 14 46 11 20 20 20 20 20 |0 ...<...F. |
00003070 20 20 20 20 c9 20 30 3a 0d 14 50 04 0d 14 5a 56 | . 0:..P...ZV|
00003080 20 20 20 20 20 20 20 20 20 6d 65 6e 75 25 21 28 | menu%!(|
00003090 32 39 36 20 2b 20 28 28 6d 6f 6e 74 68 25 20 83 |296 + ((month% .|
000030a0 20 31 32 29 2a 32 34 29 29 20 3d 20 6d 65 6e 75 | 12)*24)) = menu|
000030b0 25 21 28 32 39 36 20 2b 20 28 28 6d 6f 6e 74 68 |%!(296 + ((month|
000030c0 25 20 83 20 31 32 29 2a 32 34 29 29 20 80 20 26 |% . 12)*24)) . &|
000030d0 46 45 0d 14 64 04 0d 14 6e 1d 20 20 20 20 20 20 |FE..d...n. |
000030e0 20 20 20 20 20 20 c8 8e 20 62 6c 6f 63 6b 25 21 | .. block%!|
000030f0 34 20 ca 0d 14 78 2e 20 20 20 20 20 20 20 20 20 |4 ...x. |
00003100 20 20 20 20 20 20 c9 20 30 2c 31 2c 32 2c 33 2c | . 0,1,2,3,|
00003110 34 2c 35 2c 36 2c 37 2c 38 2c 39 2c 31 30 2c 31 |4,5,6,7,8,9,10,1|
00003120 31 0d 14 82 24 20 20 20 20 20 20 20 20 20 20 20 |1...$ |
00003130 20 20 20 20 6d 6f 6e 74 68 25 20 3d 20 62 6c 6f | month% = blo|
00003140 63 6b 25 21 34 0d 14 8c 11 20 20 20 20 20 20 20 |ck%!4.... |
00003150 20 20 20 20 20 cb 0d 14 96 04 0d 14 a0 46 20 20 | ........F |
00003160 20 20 20 20 20 20 20 6d 65 6e 75 25 21 28 32 39 | menu%!(29|
00003170 36 20 2b 20 28 6d 6f 6e 74 68 25 2a 32 34 29 29 |6 + (month%*24))|
00003180 20 3d 20 6d 65 6e 75 25 21 28 32 39 36 20 2b 20 | = menu%!(296 + |
00003190 28 6d 6f 6e 74 68 25 2a 32 34 29 29 20 84 20 31 |(month%*24)) . 1|
000031a0 0d 14 aa 36 20 20 20 20 20 20 20 20 20 6d 6f 6e |...6 mon|
000031b0 74 68 25 20 3d 20 28 6d 6f 6e 74 68 25 20 83 20 |th% = (month% . |
000031c0 31 32 29 20 2b 20 28 79 65 61 72 70 6c 75 73 25 |12) + (yearplus%|
000031d0 20 2a 20 31 32 29 0d 14 b4 3c 20 20 20 20 20 20 | * 12)...< |
000031e0 20 20 20 f4 20 50 52 4f 43 73 65 74 65 78 74 65 | . PROCsetexte|
000031f0 6e 74 28 30 2c 65 6e 74 72 79 25 28 6d 6f 6e 74 |nt(0,entry%(mont|
00003200 68 25 29 2a 34 30 2b 32 38 30 2c 31 32 34 30 2c |h%)*40+280,1240,|
00003210 30 29 0d 14 be 59 20 20 20 20 20 20 20 20 20 f2 |0)...Y .|
00003220 73 65 74 5f 69 63 6f 6e 5f 69 6e 64 69 72 65 63 |set_icon_indirec|
00003230 74 28 4d 61 69 6e 57 69 6e 64 6f 77 25 2c 30 2c |t(MainWindow%,0,|
00003240 6d 6f 6e 74 68 24 28 6d 6f 6e 74 68 25 20 83 20 |month$(month% . |
00003250 31 32 29 2b 22 20 22 2b c3 28 79 65 61 72 25 2b |12)+" "+.(year%+|
00003260 79 65 61 72 70 6c 75 73 25 29 29 0d 14 c8 21 20 |yearplus%))...! |
00003270 20 20 20 20 20 20 20 20 73 65 6c 65 63 74 25 3d | select%=|
00003280 2d 31 3a 73 68 61 64 65 64 25 3d b9 0d 14 d2 4a |-1:shaded%=....J|
00003290 20 20 20 20 20 20 20 20 20 6d 65 6e 75 25 21 38 | menu%!8|
000032a0 34 20 3d 20 6d 65 6e 75 25 21 38 34 20 84 20 26 |4 = menu%!84 . &|
000032b0 34 30 30 30 30 30 3a 6d 65 6e 75 25 21 31 30 38 |400000:menu%!108|
000032c0 20 3d 20 6d 65 6e 75 25 21 31 30 38 20 84 20 26 | = menu%!108 . &|
000032d0 34 30 30 30 30 30 0d 14 dc 21 20 20 20 20 20 20 |400000...! |
000032e0 20 20 20 f2 72 65 64 72 61 77 28 4d 61 69 6e 57 | .redraw(MainW|
000032f0 69 6e 64 6f 77 25 29 0d 14 e6 04 0d 14 f0 11 20 |indow%)........ |
00003300 20 20 20 20 20 20 20 20 c9 20 31 3a 0d 14 fa 04 | . 1:....|
00003310 0d 15 04 4e 20 20 20 20 20 20 20 20 20 6d 65 6e |...N men|
00003320 75 25 21 28 36 31 32 20 2b 20 28 79 65 61 72 70 |u%!(612 + (yearp|
00003330 6c 75 73 25 2a 32 34 29 29 20 3d 20 6d 65 6e 75 |lus%*24)) = menu|
00003340 25 21 28 36 31 32 20 2b 20 28 79 65 61 72 70 6c |%!(612 + (yearpl|
00003350 75 73 25 2a 32 34 29 29 20 80 20 26 46 45 0d 15 |us%*24)) . &FE..|
00003360 0e 04 0d 15 18 1d 20 20 20 20 20 20 20 20 20 20 |...... |
00003370 20 20 c8 8e 20 62 6c 6f 63 6b 25 21 34 20 ca 0d | .. block%!4 ..|
00003380 15 22 1e 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". |
00003390 20 20 c9 20 30 2c 31 2c 32 2c 33 2c 34 0d 15 2c | . 0,1,2,3,4..,|
000033a0 25 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |% |
000033b0 e7 20 6d 6f 6e 74 68 25 83 31 32 20 3d 20 31 31 |. month%.12 = 11|
000033c0 20 8c 0d 15 36 31 20 20 20 20 20 20 20 20 20 20 | ...61 |
000033d0 20 20 20 20 20 20 20 e7 20 62 6c 6f 63 6b 25 21 | . block%!|
000033e0 34 20 2d 20 79 65 61 72 70 6c 75 73 25 20 3d 20 |4 - yearplus% = |
000033f0 31 20 8c 0d 15 40 5e 20 20 20 20 20 20 20 20 20 |1 ...@^ |
00003400 20 20 20 20 20 20 20 20 6d 65 6e 75 25 21 28 32 | menu%!(2|
00003410 39 36 20 2b 20 28 28 6d 6f 6e 74 68 25 20 83 20 |96 + ((month% . |
00003420 31 32 29 2a 32 34 29 29 20 3d 20 6d 65 6e 75 25 |12)*24)) = menu%|
00003430 21 28 32 39 36 20 2b 20 28 28 6d 6f 6e 74 68 25 |!(296 + ((month%|
00003440 20 83 20 31 32 29 2a 32 34 29 29 20 80 20 26 46 | . 12)*24)) . &F|
00003450 45 0d 15 4a 24 20 20 20 20 20 20 20 20 20 20 20 |E..J$ |
00003460 20 20 20 20 20 20 6d 6f 6e 74 68 25 3d 6d 6f 6e | month%=mon|
00003470 74 68 25 2b 31 0d 15 54 16 20 20 20 20 20 20 20 |th%+1..T. |
00003480 20 20 20 20 20 20 20 20 20 20 cd 0d 15 5e 14 20 | ...^. |
00003490 20 20 20 20 20 20 20 20 20 20 20 20 20 20 cd 0d | ..|
000034a0 15 68 04 0d 15 72 23 20 20 20 20 20 20 20 20 20 |.h...r# |
000034b0 20 20 20 20 20 e7 20 6d 6f 6e 74 68 25 83 31 32 | . month%.12|
000034c0 20 3d 20 30 20 8c 0d 15 7c 31 20 20 20 20 20 20 | = 0 ...|1 |
000034d0 20 20 20 20 20 20 20 20 20 20 20 e7 20 79 65 61 | . yea|
000034e0 72 70 6c 75 73 25 20 2d 20 62 6c 6f 63 6b 25 21 |rplus% - block%!|
000034f0 34 20 3d 20 31 20 8c 0d 15 86 5e 20 20 20 20 20 |4 = 1 ....^ |
00003500 20 20 20 20 20 20 20 20 20 20 20 20 6d 65 6e 75 | menu|
00003510 25 21 28 32 39 36 20 2b 20 28 28 6d 6f 6e 74 68 |%!(296 + ((month|
00003520 25 20 83 20 31 32 29 2a 32 34 29 29 20 3d 20 6d |% . 12)*24)) = m|
00003530 65 6e 75 25 21 28 32 39 36 20 2b 20 28 28 6d 6f |enu%!(296 + ((mo|
00003540 6e 74 68 25 20 83 20 31 32 29 2a 32 34 29 29 20 |nth% . 12)*24)) |
00003550 80 20 26 46 45 0d 15 90 24 20 20 20 20 20 20 20 |. &FE...$ |
00003560 20 20 20 20 20 20 20 20 20 20 6d 6f 6e 74 68 25 | month%|
00003570 3d 6d 6f 6e 74 68 25 2d 31 0d 15 9a 16 20 20 20 |=month%-1.... |
00003580 20 20 20 20 20 20 20 20 20 20 20 20 20 20 cd 0d | ..|
00003590 15 a4 14 20 20 20 20 20 20 20 20 20 20 20 20 20 |... |
000035a0 20 20 cd 0d 15 ae 04 0d 15 b8 27 20 20 20 20 20 | ........' |
000035b0 20 20 20 20 20 20 20 20 20 20 79 65 61 72 70 6c | yearpl|
000035c0 75 73 25 20 3d 20 62 6c 6f 63 6b 25 21 34 0d 15 |us% = block%!4..|
000035d0 c2 04 0d 15 cc 11 20 20 20 20 20 20 20 20 20 20 |...... |
000035e0 20 20 cb 0d 15 d6 04 0d 15 e0 50 20 20 20 20 20 | ........P |
000035f0 20 20 20 20 6d 65 6e 75 25 21 28 32 39 36 20 2b | menu%!(296 +|
00003600 20 28 28 6d 6f 6e 74 68 25 83 31 32 29 2a 32 34 | ((month%.12)*24|
00003610 29 29 20 3d 20 6d 65 6e 75 25 21 28 32 39 36 20 |)) = menu%!(296 |
00003620 2b 20 28 28 6d 6f 6e 74 68 25 83 31 32 29 2a 32 |+ ((month%.12)*2|
00003630 34 29 29 20 84 20 31 0d 15 ea 4c 20 20 20 20 20 |4)) . 1...L |
00003640 20 20 20 20 6d 65 6e 75 25 21 28 36 31 32 20 2b | menu%!(612 +|
00003650 20 28 79 65 61 72 70 6c 75 73 25 2a 32 34 29 29 | (yearplus%*24))|
00003660 20 3d 20 6d 65 6e 75 25 21 28 36 31 32 20 2b 20 | = menu%!(612 + |
00003670 28 79 65 61 72 70 6c 75 73 25 2a 32 34 29 29 20 |(yearplus%*24)) |
00003680 84 20 31 0d 15 f4 36 20 20 20 20 20 20 20 20 20 |. 1...6 |
00003690 6d 6f 6e 74 68 25 20 3d 20 28 6d 6f 6e 74 68 25 |month% = (month%|
000036a0 20 83 20 31 32 29 20 2b 20 28 79 65 61 72 70 6c | . 12) + (yearpl|
000036b0 75 73 25 20 2a 20 31 32 29 0d 15 fe 3c 20 20 20 |us% * 12)...< |
000036c0 20 20 20 20 20 20 f4 20 50 52 4f 43 73 65 74 65 | . PROCsete|
000036d0 78 74 65 6e 74 28 30 2c 65 6e 74 72 79 25 28 6d |xtent(0,entry%(m|
000036e0 6f 6e 74 68 25 29 2a 34 30 2b 32 38 30 2c 31 32 |onth%)*40+280,12|
000036f0 34 30 2c 30 29 0d 16 08 59 20 20 20 20 20 20 20 |40,0)...Y |
00003700 20 20 f2 73 65 74 5f 69 63 6f 6e 5f 69 6e 64 69 | .set_icon_indi|
00003710 72 65 63 74 28 4d 61 69 6e 57 69 6e 64 6f 77 25 |rect(MainWindow%|
00003720 2c 30 2c 6d 6f 6e 74 68 24 28 6d 6f 6e 74 68 25 |,0,month$(month%|
00003730 20 83 20 31 32 29 2b 22 20 22 2b c3 28 79 65 61 | . 12)+" "+.(yea|
00003740 72 25 2b 79 65 61 72 70 6c 75 73 25 29 29 0d 16 |r%+yearplus%))..|
00003750 12 21 20 20 20 20 20 20 20 20 20 73 65 6c 65 63 |.! selec|
00003760 74 25 3d 2d 31 3a 73 68 61 64 65 64 25 3d b9 0d |t%=-1:shaded%=..|
00003770 16 1c 4a 20 20 20 20 20 20 20 20 20 6d 65 6e 75 |..J menu|
00003780 25 21 38 34 20 3d 20 6d 65 6e 75 25 21 38 34 20 |%!84 = menu%!84 |
00003790 84 20 26 34 30 30 30 30 30 3a 6d 65 6e 75 25 21 |. &400000:menu%!|
000037a0 31 30 38 20 3d 20 6d 65 6e 75 25 21 31 30 38 20 |108 = menu%!108 |
000037b0 84 20 26 34 30 30 30 30 30 0d 16 26 21 20 20 20 |. &400000..&! |
000037c0 20 20 20 20 20 20 f2 72 65 64 72 61 77 28 4d 61 | .redraw(Ma|
000037d0 69 6e 57 69 6e 64 6f 77 25 29 0d 16 30 04 0d 16 |inWindow%)..0...|
000037e0 3a 11 20 20 20 20 20 20 20 20 20 c9 20 32 3a 0d |:. . 2:.|
000037f0 16 44 14 20 20 20 20 20 20 20 20 20 f2 64 65 6c |.D. .del|
00003800 65 74 65 0d 16 4e 19 20 20 20 20 20 20 20 20 20 |ete..N. |
00003810 73 65 6c 65 63 74 25 20 3d 20 2d 31 0d 16 58 18 |select% = -1..X.|
00003820 20 20 20 20 20 20 20 20 20 73 68 61 64 65 64 25 | shaded%|
00003830 20 3d 20 b9 0d 16 59 17 20 20 20 20 20 20 20 20 | = ...Y. |
00003840 20 73 61 76 65 64 25 20 3d 20 a3 0d 16 62 04 0d | saved% = ...b..|
00003850 16 6c 11 20 20 20 20 20 20 20 20 20 c9 20 33 3a |.l. . 3:|
00003860 0d 16 76 40 20 20 20 20 20 20 20 20 20 f2 73 65 |..v@ .se|
00003870 74 5f 69 63 6f 6e 5f 69 6e 64 69 72 65 63 74 28 |t_icon_indirect(|
00003880 41 6d 65 6e 64 25 2c 31 37 2c 6e 61 6d 65 24 28 |Amend%,17,name$(|
00003890 73 65 6c 65 63 74 25 2c 6d 6f 6e 74 68 25 29 29 |select%,month%))|
000038a0 0d 16 80 2d 20 20 20 20 20 20 20 20 20 61 6d 20 |...- am |
000038b0 3d 20 61 6d 6f 75 6e 74 25 28 73 65 6c 65 63 74 |= amount%(select|
000038c0 25 2c 6d 6f 6e 74 68 25 29 2f 31 30 30 0d 16 8a |%,month%)/100...|
000038d0 33 20 20 20 20 20 20 20 20 20 f2 73 65 74 5f 69 |3 .set_i|
000038e0 63 6f 6e 5f 69 6e 64 69 72 65 63 74 28 41 6d 65 |con_indirect(Ame|
000038f0 6e 64 25 2c 32 31 2c c3 28 94 28 61 6d 29 29 29 |nd%,21,.(.(am)))|
00003900 0d 16 94 3e 20 20 20 20 20 20 20 20 20 e7 20 61 |...> . a|
00003910 6d 6f 75 6e 74 25 28 73 65 6c 65 63 74 25 2c 6d |mount%(select%,m|
00003920 6f 6e 74 68 25 29 3c 20 30 20 73 69 67 6e 25 3d |onth%)< 0 sign%=|
00003930 2d 31 20 8b 20 73 69 67 6e 25 20 3d 20 31 0d 16 |-1 . sign% = 1..|
00003940 9e 3d 20 20 20 20 20 20 20 20 20 f2 73 65 74 5f |.= .set_|
00003950 69 63 6f 6e 5f 69 6e 64 69 72 65 63 74 28 41 6d |icon_indirect(Am|
00003960 65 6e 64 25 2c 30 2c 6d 6f 6e 74 68 24 28 6d 6f |end%,0,month$(mo|
00003970 6e 74 68 25 20 83 20 31 32 29 29 0d 16 a8 2a 20 |nth% . 12))...* |
00003980 20 20 20 20 20 20 20 20 64 61 79 34 25 20 3d 20 | day4% = |
00003990 64 61 74 65 25 28 73 65 6c 65 63 74 25 2c 6d 6f |date%(select%,mo|
000039a0 6e 74 68 25 29 0d 16 b2 33 20 20 20 20 20 20 20 |nth%)...3 |
000039b0 20 20 f2 73 65 74 5f 69 63 6f 6e 5f 69 6e 64 69 | .set_icon_indi|
000039c0 72 65 63 74 28 41 6d 65 6e 64 25 2c 31 36 2c c3 |rect(Amend%,16,.|
000039d0 28 64 61 79 34 25 29 29 0d 16 bc 3d 20 20 20 20 |(day4%))...= |
000039e0 20 20 20 20 20 f2 73 65 74 5f 69 63 6f 6e 5f 69 | .set_icon_i|
000039f0 6e 64 69 72 65 63 74 28 41 6d 65 6e 64 25 2c 32 |ndirect(Amend%,2|
00003a00 32 2c c3 28 79 65 61 72 25 2b 79 65 61 72 70 6c |2,.(year%+yearpl|
00003a10 75 73 25 29 29 0d 16 c6 1a 20 20 20 20 20 20 20 |us%)).... |
00003a20 20 20 f2 6f 70 65 6e 28 41 6d 65 6e 64 25 29 0d | .open(Amend%).|
00003a30 16 d0 4f 20 20 20 20 20 20 20 20 20 c8 99 20 22 |..O .. "|
00003a40 57 69 6d 70 5f 53 65 74 43 61 72 65 74 50 6f 73 |Wimp_SetCaretPos|
00003a50 69 74 69 6f 6e 22 2c 41 6d 65 6e 64 25 2c 31 37 |ition",Amend%,17|
00003a60 2c 2c 2c 2d 31 2c a9 28 6e 61 6d 65 24 28 73 65 |,,,-1,.(name$(se|
00003a70 6c 65 63 74 25 2c 6d 6f 6e 74 68 25 29 29 0d 16 |lect%,month%))..|
00003a80 da 04 0d 16 e4 11 20 20 20 20 20 20 20 20 20 c9 |...... .|
00003a90 20 34 3a 0d 16 ee 19 20 20 20 20 20 20 20 20 20 | 4:.... |
00003aa0 f2 64 61 74 65 28 64 61 79 31 25 29 0d 16 f8 2d |.date(day1%)...-|
00003ab0 20 20 20 20 20 20 20 20 20 f2 73 65 74 5f 69 63 | .set_ic|
00003ac0 6f 6e 5f 69 6e 64 69 72 65 63 74 28 44 65 62 69 |on_indirect(Debi|
00003ad0 74 25 2c 31 37 2c 22 22 29 0d 17 02 2d 20 20 20 |t%,17,"")...- |
00003ae0 20 20 20 20 20 20 f2 73 65 74 5f 69 63 6f 6e 5f | .set_icon_|
00003af0 69 6e 64 69 72 65 63 74 28 44 65 62 69 74 25 2c |indirect(Debit%,|
00003b00 32 31 2c 22 22 29 0d 17 0c 3d 20 20 20 20 20 20 |21,"")...= |
00003b10 20 20 20 f2 73 65 74 5f 69 63 6f 6e 5f 69 6e 64 | .set_icon_ind|
00003b20 69 72 65 63 74 28 44 65 62 69 74 25 2c 30 2c 6d |irect(Debit%,0,m|
00003b30 6f 6e 74 68 24 28 6d 6f 6e 74 68 25 20 83 20 31 |onth$(month% . 1|
00003b40 32 29 29 0d 17 16 33 20 20 20 20 20 20 20 20 20 |2))...3 |
00003b50 f2 73 65 74 5f 69 63 6f 6e 5f 69 6e 64 69 72 65 |.set_icon_indire|
00003b60 63 74 28 44 65 62 69 74 25 2c 31 36 2c c3 28 64 |ct(Debit%,16,.(d|
00003b70 61 79 31 25 29 29 0d 17 20 3d 20 20 20 20 20 20 |ay1%)).. = |
00003b80 20 20 20 f2 73 65 74 5f 69 63 6f 6e 5f 69 6e 64 | .set_icon_ind|
00003b90 69 72 65 63 74 28 44 65 62 69 74 25 2c 32 32 2c |irect(Debit%,22,|
00003ba0 c3 28 79 65 61 72 25 2b 79 65 61 72 70 6c 75 73 |.(year%+yearplus|
00003bb0 25 29 29 0d 17 2a 1a 20 20 20 20 20 20 20 20 20 |%))..*. |
00003bc0 f2 6f 70 65 6e 28 44 65 62 69 74 25 29 0d 17 34 |.open(Debit%)..4|
00003bd0 38 20 20 20 20 20 20 20 20 20 c8 99 20 22 57 69 |8 .. "Wi|
00003be0 6d 70 5f 53 65 74 43 61 72 65 74 50 6f 73 69 74 |mp_SetCaretPosit|
00003bf0 69 6f 6e 22 2c 44 65 62 69 74 25 2c 31 37 2c 2c |ion",Debit%,17,,|
00003c00 2c 2d 31 2c 30 0d 17 3e 04 0d 17 48 11 20 20 20 |,-1,0..>...H. |
00003c10 20 20 20 20 20 20 c9 20 35 3a 0d 17 52 19 20 20 | . 5:..R. |
00003c20 20 20 20 20 20 20 20 f2 64 61 74 65 28 64 61 79 | .date(day|
00003c30 32 25 29 0d 17 5c 2e 20 20 20 20 20 20 20 20 20 |2%)..\. |
00003c40 f2 73 65 74 5f 69 63 6f 6e 5f 69 6e 64 69 72 65 |.set_icon_indire|
00003c50 63 74 28 43 72 65 64 69 74 25 2c 31 37 2c 22 22 |ct(Credit%,17,""|
00003c60 29 0d 17 66 2e 20 20 20 20 20 20 20 20 20 f2 73 |)..f. .s|
00003c70 65 74 5f 69 63 6f 6e 5f 69 6e 64 69 72 65 63 74 |et_icon_indirect|
00003c80 28 43 72 65 64 69 74 25 2c 32 31 2c 22 22 29 0d |(Credit%,21,"").|
00003c90 17 70 3e 20 20 20 20 20 20 20 20 20 f2 73 65 74 |.p> .set|
00003ca0 5f 69 63 6f 6e 5f 69 6e 64 69 72 65 63 74 28 43 |_icon_indirect(C|
00003cb0 72 65 64 69 74 25 2c 30 2c 6d 6f 6e 74 68 24 28 |redit%,0,month$(|
00003cc0 6d 6f 6e 74 68 25 20 83 20 31 32 29 29 0d 17 7a |month% . 12))..z|
00003cd0 34 20 20 20 20 20 20 20 20 20 f2 73 65 74 5f 69 |4 .set_i|
00003ce0 63 6f 6e 5f 69 6e 64 69 72 65 63 74 28 43 72 65 |con_indirect(Cre|
00003cf0 64 69 74 25 2c 31 36 2c c3 28 64 61 79 32 25 29 |dit%,16,.(day2%)|
00003d00 29 0d 17 84 3e 20 20 20 20 20 20 20 20 20 f2 73 |)...> .s|
00003d10 65 74 5f 69 63 6f 6e 5f 69 6e 64 69 72 65 63 74 |et_icon_indirect|
00003d20 28 43 72 65 64 69 74 25 2c 32 32 2c c3 28 79 65 |(Credit%,22,.(ye|
00003d30 61 72 25 2b 79 65 61 72 70 6c 75 73 25 29 29 0d |ar%+yearplus%)).|
00003d40 17 8e 1b 20 20 20 20 20 20 20 20 20 f2 6f 70 65 |... .ope|
00003d50 6e 28 43 72 65 64 69 74 25 29 0d 17 98 39 20 20 |n(Credit%)...9 |
00003d60 20 20 20 20 20 20 20 c8 99 20 22 57 69 6d 70 5f | .. "Wimp_|
00003d70 53 65 74 43 61 72 65 74 50 6f 73 69 74 69 6f 6e |SetCaretPosition|
00003d80 22 2c 43 72 65 64 69 74 25 2c 31 37 2c 2c 2c 2d |",Credit%,17,,,-|
00003d90 31 2c 30 0d 17 a2 04 0d 17 ac 11 20 20 20 20 20 |1,0........ |
00003da0 20 20 20 20 c9 20 36 3a 0d 17 b6 19 20 20 20 20 | . 6:.... |
00003db0 20 20 20 20 20 f2 64 61 74 65 28 64 61 79 33 25 | .date(day3%|
00003dc0 29 0d 17 c0 58 20 20 20 20 20 20 20 20 20 f2 73 |)...X .s|
00003dd0 65 74 5f 69 63 6f 6e 5f 69 6e 64 69 72 65 63 74 |et_icon_indirect|
00003de0 28 53 74 61 6e 64 69 6e 67 25 2c 32 30 2c 6d 6f |(Standing%,20,mo|
00003df0 6e 74 68 24 28 6d 6f 6e 74 68 25 20 83 20 31 32 |nth$(month% . 12|
00003e00 29 2b 22 20 22 2b c3 28 79 65 61 72 25 2b 79 65 |)+" "+.(year%+ye|
00003e10 61 72 70 6c 75 73 25 29 29 0d 17 ca 36 20 20 20 |arplus%))...6 |
00003e20 20 20 20 20 20 20 f2 73 65 74 5f 69 63 6f 6e 5f | .set_icon_|
00003e30 69 6e 64 69 72 65 63 74 28 53 74 61 6e 64 69 6e |indirect(Standin|
00003e40 67 25 2c 31 30 2c c3 28 64 61 79 33 25 29 29 0d |g%,10,.(day3%)).|
00003e50 17 d4 30 20 20 20 20 20 20 20 20 20 f2 73 65 74 |..0 .set|
00003e60 5f 69 63 6f 6e 5f 69 6e 64 69 72 65 63 74 28 53 |_icon_indirect(S|
00003e70 74 61 6e 64 69 6e 67 25 2c 31 33 2c 22 22 29 0d |tanding%,13,"").|
00003e80 17 de 30 20 20 20 20 20 20 20 20 20 f2 73 65 74 |..0 .set|
00003e90 5f 69 63 6f 6e 5f 69 6e 64 69 72 65 63 74 28 53 |_icon_indirect(S|
00003ea0 74 61 6e 64 69 6e 67 25 2c 31 34 2c 22 22 29 0d |tanding%,14,"").|
00003eb0 17 e8 30 20 20 20 20 20 20 20 20 20 f2 73 65 74 |..0 .set|
00003ec0 5f 69 63 6f 6e 5f 69 6e 64 69 72 65 63 74 28 53 |_icon_indirect(S|
00003ed0 74 61 6e 64 69 6e 67 25 2c 31 35 2c 22 22 29 0d |tanding%,15,"").|
00003ee0 17 f2 30 20 20 20 20 20 20 20 20 20 f2 73 65 74 |..0 .set|
00003ef0 5f 69 63 6f 6e 5f 69 6e 64 69 72 65 63 74 28 53 |_icon_indirect(S|
00003f00 74 61 6e 64 69 6e 67 25 2c 32 31 2c 22 22 29 0d |tanding%,21,"").|
00003f10 17 fc 1d 20 20 20 20 20 20 20 20 20 f2 6f 70 65 |... .ope|
00003f20 6e 28 53 74 61 6e 64 69 6e 67 25 29 0d 18 06 3b |n(Standing%)...;|
00003f30 20 20 20 20 20 20 20 20 20 c8 99 20 22 57 69 6d | .. "Wim|
00003f40 70 5f 53 65 74 43 61 72 65 74 50 6f 73 69 74 69 |p_SetCaretPositi|
00003f50 6f 6e 22 2c 53 74 61 6e 64 69 6e 67 25 2c 31 33 |on",Standing%,13|
00003f60 2c 2c 2c 2d 31 2c 30 0d 18 10 04 0d 18 1a 11 20 |,,,-1,0........ |
00003f70 20 20 20 20 20 20 20 20 c9 20 37 3a 0d 18 24 3e | . 7:..$>|
00003f80 20 20 20 20 20 20 20 20 20 f4 20 53 59 53 20 22 | . SYS "|
00003f90 57 69 6d 70 5f 53 65 74 43 61 72 65 74 50 6f 73 |Wimp_SetCaretPos|
00003fa0 69 74 69 6f 6e 22 2c 53 61 76 65 5f 57 69 6e 64 |ition",Save_Wind|
00003fb0 25 2c 32 2c 2c 2c 2d 31 2c 30 0d 18 2e 17 20 20 |%,2,,,-1,0.... |
00003fc0 20 20 20 20 20 20 20 f2 71 75 69 63 6b 73 61 76 | .quicksav|
00003fd0 65 0d 18 38 04 0d 18 42 17 20 20 20 20 20 20 20 |e..8...B. |
00003fe0 20 20 c9 20 38 3a f2 70 72 69 6e 74 0d 18 4c 04 | . 8:.print..L.|
00003ff0 0d 18 56 11 20 20 20 20 20 20 20 20 20 c9 20 39 |..V. . 9|
00004000 3a 0d 18 60 1b 20 20 20 20 20 20 20 20 20 e7 20 |:..`. . |
00004010 73 61 76 65 64 25 20 3d 20 b9 20 8c 0d 18 6a 13 |saved% = . ...j.|
00004020 20 20 20 20 20 20 20 20 20 f2 63 6c 65 61 72 0d | .clear.|
00004030 18 74 21 20 20 20 20 20 20 20 20 20 f2 72 65 64 |.t! .red|
00004040 72 61 77 28 4d 61 69 6e 57 69 6e 64 6f 77 25 29 |raw(MainWindow%)|
00004050 0d 18 7e 0e 20 20 20 20 20 20 20 20 20 cc 0d 18 |..~. ...|
00004060 88 65 20 20 20 20 20 20 20 20 20 20 20 20 20 e7 |.e .|
00004070 20 a4 71 75 65 73 74 69 6f 6e 28 22 54 68 69 73 | .question("This|
00004080 20 61 63 63 6f 75 6e 74 20 69 73 20 6e 6f 74 20 | account is not |
00004090 73 61 76 65 64 2e 20 41 72 65 20 79 6f 75 20 73 |saved. Are you s|
000040a0 75 72 65 20 79 6f 75 20 77 69 73 68 20 74 6f 20 |ure you wish to |
000040b0 63 6c 65 61 72 20 69 74 20 3f 20 22 29 20 3d 20 |clear it ? ") = |
000040c0 31 20 8c 0d 18 92 16 20 20 20 20 20 20 20 20 20 |1 ..... |
000040d0 20 20 20 f2 63 6c 65 61 72 0d 18 9c 24 20 20 20 | .clear...$ |
000040e0 20 20 20 20 20 20 20 20 20 f2 72 65 64 72 61 77 | .redraw|
000040f0 28 4d 61 69 6e 57 69 6e 64 6f 77 25 29 0d 18 a6 |(MainWindow%)...|
00004100 11 20 20 20 20 20 20 20 20 20 20 20 20 cc 0d 18 |. ...|
00004110 b0 11 20 20 20 20 20 20 20 20 20 20 20 20 cd 0d |.. ..|
00004120 18 ba 0e 20 20 20 20 20 20 20 20 20 cd 0d 18 c4 |... ....|
00004130 0b 20 20 20 20 20 20 cb 0d 18 ce 05 cb 0d 18 d8 |. .........|
00004140 04 0d 18 e2 16 e7 20 70 6f 69 6e 74 65 72 25 21 |...... pointer%!|
00004150 38 20 3d 20 31 20 8c 0d 18 ec 32 c8 99 20 22 57 |8 = 1 ....2.. "W|
00004160 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c |imp_CreateMenu",|
00004170 2c 6d 65 6e 75 25 2c 78 25 2d 6d 65 6e 75 25 21 |,menu%,x%-menu%!|
00004180 31 36 20 2f 20 32 2c 79 25 0d 18 f6 05 cd 0d 19 |16 / 2,y%.......|
00004190 00 04 0d 19 0a 05 e1 0d 19 14 05 3a 0d 19 1e 04 |...........:....|
000041a0 0d 19 28 11 dd f2 64 61 74 65 28 f8 20 64 61 25 |..(...date(. da%|
000041b0 29 0d 19 32 16 c8 8e 20 28 6d 6f 6e 74 68 25 20 |)..2... (month% |
000041c0 83 20 31 32 29 20 ca 0d 19 3c 18 20 20 20 c9 20 |. 12) ...<. . |
000041d0 30 2c 32 2c 34 2c 36 2c 37 2c 39 2c 31 31 3a 0d |0,2,4,6,7,9,11:.|
000041e0 19 46 19 20 20 20 e7 20 64 61 25 20 3c 20 31 20 |.F. . da% < 1 |
000041f0 64 61 25 20 3d 20 33 31 0d 19 50 19 20 20 20 e7 |da% = 31..P. .|
00004200 20 64 61 25 20 3e 20 33 31 20 64 61 25 20 3d 20 | da% > 31 da% = |
00004210 31 0d 19 5a 04 0d 19 64 12 20 20 20 c9 20 33 2c |1..Z...d. . 3,|
00004220 35 2c 38 2c 31 30 3a 0d 19 6e 19 20 20 20 e7 20 |5,8,10:..n. . |
00004230 64 61 25 20 3c 20 31 20 64 61 25 20 3d 20 33 30 |da% < 1 da% = 30|
00004240 0d 19 78 19 20 20 20 e7 20 64 61 25 20 3e 20 33 |..x. . da% > 3|
00004250 30 20 64 61 25 20 3d 20 31 0d 19 82 04 0d 19 8c |0 da% = 1.......|
00004260 0b 20 20 20 c9 20 31 3a 0d 19 96 66 20 20 20 e7 |. . 1:...f .|
00004270 20 28 28 79 65 61 72 25 2b 79 65 61 72 70 6c 75 | ((year%+yearplu|
00004280 73 25 29 20 83 20 34 20 3d 20 30 29 20 80 20 28 |s%) . 4 = 0) . (|
00004290 28 79 65 61 72 25 2b 79 65 61 72 70 6c 75 73 25 |(year%+yearplus%|
000042a0 29 20 83 20 31 30 30 20 3c 3e 30 29 20 84 20 28 |) . 100 <>0) . (|
000042b0 28 79 65 61 72 25 2b 79 65 61 72 70 6c 75 73 25 |(year%+yearplus%|
000042c0 29 20 83 20 34 30 30 20 3d 20 30 29 20 8c 0d 19 |) . 400 = 0) ...|
000042d0 a0 1c 20 20 20 20 20 20 e7 20 64 61 25 20 3c 20 |.. . da% < |
000042e0 31 20 64 61 25 20 3d 20 32 39 0d 19 aa 1c 20 20 |1 da% = 29.... |
000042f0 20 20 20 20 e7 20 64 61 25 20 3e 20 32 39 20 64 | . da% > 29 d|
00004300 61 25 20 3d 20 31 0d 19 b4 09 20 20 20 20 cc 0d |a% = 1.... ..|
00004310 19 be 1c 20 20 20 20 20 20 e7 20 64 61 25 20 3c |... . da% <|
00004320 20 31 20 64 61 25 20 3d 20 32 38 0d 19 c8 1c 20 | 1 da% = 28.... |
00004330 20 20 20 20 20 e7 20 64 61 25 20 3e 20 32 38 20 | . da% > 28 |
00004340 64 61 25 20 3d 20 31 0d 19 d2 09 20 20 20 20 cd |da% = 1.... .|
00004350 0d 19 dc 05 cb 0d 19 e6 05 e1 0d 19 f0 04 0d 19 |................|
00004360 fa 04 0d 1a 04 0f dd f2 73 68 75 74 62 6f 78 65 |........shutboxe|
00004370 73 0d 1a 0e 15 20 20 20 f2 63 6c 6f 73 65 28 44 |s.... .close(D|
00004380 65 62 69 74 25 29 0d 1a 18 16 20 20 20 f2 63 6c |ebit%).... .cl|
00004390 6f 73 65 28 43 72 65 64 69 74 25 29 0d 1a 22 15 |ose(Credit%)..".|
000043a0 20 20 20 f2 63 6c 6f 73 65 28 41 6d 65 6e 64 25 | .close(Amend%|
000043b0 29 0d 1a 2c 18 20 20 20 f2 63 6c 6f 73 65 28 53 |)..,. .close(S|
000043c0 74 61 6e 64 69 6e 67 25 29 0d 1a 36 05 e1 0d 1a |tanding%)..6....|
000043d0 40 05 3a 0d 1a 4a 04 0d 1a 54 11 dd f2 65 6e 74 |@.:..J...T...ent|
000043e0 65 72 28 6d 6f 6e 25 29 0d 1a 5e 12 ea 20 63 6f |er(mon%)..^.. co|
000043f0 75 6e 74 25 2c 73 6f 72 74 25 0d 1a 68 0e 73 61 |unt%,sort%..h.sa|
00004400 76 65 64 25 20 3d 20 a3 0d 1a 72 1f 73 6c 65 6e |ved% = ...r.slen|
00004410 25 20 3d 20 65 6e 74 72 79 25 28 6d 6f 6e 25 29 |% = entry%(mon%)|
00004420 2a 34 30 2b 32 34 30 0d 1a 7c 15 e7 20 73 6c 65 |*40+240..|.. sle|
00004430 6e 25 20 3e 20 66 6c 65 6e 25 20 8c 0d 1a 86 1f |n% > flen% .....|
00004440 f2 73 65 74 65 78 74 65 6e 74 28 30 2c 2d 73 6c |.setextent(0,-sl|
00004450 65 6e 25 2c 31 32 34 30 2c 30 29 0d 1a 90 11 66 |en%,1240,0)....f|
00004460 6c 65 6e 25 20 3d 20 73 6c 65 6e 25 0d 1a 9a 05 |len% = slen%....|
00004470 cd 0d 1a a4 1a 73 6f 72 74 25 20 3d 20 65 6e 74 |.....sort% = ent|
00004480 72 79 25 28 6d 6f 6e 25 29 2d 31 0d 1a ae 18 e3 |ry%(mon%)-1.....|
00004490 20 63 6f 75 6e 74 25 20 3d 20 6d 6f 6e 25 20 b8 | count% = mon% .|
000044a0 20 35 39 0d 1a b8 3b 62 61 6c 61 6e 63 65 25 28 | 59...;balance%(|
000044b0 63 6f 75 6e 74 25 29 20 3d 20 62 61 6c 61 6e 63 |count%) = balanc|
000044c0 65 25 28 63 6f 75 6e 74 25 29 2b 61 6d 6f 75 6e |e%(count%)+amoun|
000044d0 74 25 28 73 6f 72 74 25 2c 6d 6f 6e 25 29 0d 1a |t%(sort%,mon%)..|
000044e0 c2 05 ed 0d 1a cc 0e c8 95 20 73 6f 72 74 25 3e |......... sort%>|
000044f0 30 0d 1a d6 32 20 20 20 e7 20 64 61 74 65 25 28 |0...2 . date%(|
00004500 73 6f 72 74 25 2c 6d 6f 6e 25 29 20 3c 20 64 61 |sort%,mon%) < da|
00004510 74 65 25 28 73 6f 72 74 25 2d 31 2c 6d 6f 6e 25 |te%(sort%-1,mon%|
00004520 29 20 8c 0d 1a e0 2f 20 20 20 c8 94 20 64 61 74 |) ..../ .. dat|
00004530 65 25 28 73 6f 72 74 25 2c 6d 6f 6e 25 29 2c 64 |e%(sort%,mon%),d|
00004540 61 74 65 25 28 73 6f 72 74 25 2d 31 2c 6d 6f 6e |ate%(sort%-1,mon|
00004550 25 29 0d 1a ea 2f 20 20 20 c8 94 20 6e 61 6d 65 |%).../ .. name|
00004560 24 28 73 6f 72 74 25 2c 6d 6f 6e 25 29 2c 6e 61 |$(sort%,mon%),na|
00004570 6d 65 24 28 73 6f 72 74 25 2d 31 2c 6d 6f 6e 25 |me$(sort%-1,mon%|
00004580 29 0d 1a f4 33 20 20 20 c8 94 20 61 6d 6f 75 6e |)...3 .. amoun|
00004590 74 25 28 73 6f 72 74 25 2c 6d 6f 6e 25 29 2c 61 |t%(sort%,mon%),a|
000045a0 6d 6f 75 6e 74 25 28 73 6f 72 74 25 2d 31 2c 6d |mount%(sort%-1,m|
000045b0 6f 6e 25 29 0d 1a fe 08 20 20 20 cd 0d 1b 08 32 |on%).... ....2|
000045c0 20 20 20 e7 20 64 61 74 65 25 28 73 6f 72 74 25 | . date%(sort%|
000045d0 2c 6d 6f 6e 25 29 20 3d 20 64 61 74 65 25 28 73 |,mon%) = date%(s|
000045e0 6f 72 74 25 2d 31 2c 6d 6f 6e 25 29 20 8c 0d 1b |ort%-1,mon%) ...|
000045f0 12 35 20 20 20 20 20 20 e7 20 6e 61 6d 65 24 28 |.5 . name$(|
00004600 73 6f 72 74 25 2c 6d 6f 6e 25 29 20 3c 20 6e 61 |sort%,mon%) < na|
00004610 6d 65 24 28 73 6f 72 74 25 2d 31 2c 6d 6f 6e 25 |me$(sort%-1,mon%|
00004620 29 20 8c 0d 1b 1c 32 20 20 20 20 20 20 c8 94 20 |) ....2 .. |
00004630 64 61 74 65 25 28 73 6f 72 74 25 2c 6d 6f 6e 25 |date%(sort%,mon%|
00004640 29 2c 64 61 74 65 25 28 73 6f 72 74 25 2d 31 2c |),date%(sort%-1,|
00004650 6d 6f 6e 25 29 0d 1b 26 32 20 20 20 20 20 20 c8 |mon%)..&2 .|
00004660 94 20 6e 61 6d 65 24 28 73 6f 72 74 25 2c 6d 6f |. name$(sort%,mo|
00004670 6e 25 29 2c 6e 61 6d 65 24 28 73 6f 72 74 25 2d |n%),name$(sort%-|
00004680 31 2c 6d 6f 6e 25 29 0d 1b 30 36 20 20 20 20 20 |1,mon%)..06 |
00004690 20 c8 94 20 61 6d 6f 75 6e 74 25 28 73 6f 72 74 | .. amount%(sort|
000046a0 25 2c 6d 6f 6e 25 29 2c 61 6d 6f 75 6e 74 25 28 |%,mon%),amount%(|
000046b0 73 6f 72 74 25 2d 31 2c 6d 6f 6e 25 29 0d 1b 3a |sort%-1,mon%)..:|
000046c0 0b 20 20 20 20 20 20 cd 0d 1b 44 08 20 20 20 cd |. ...D. .|
000046d0 0d 1b 4e 11 20 20 20 73 6f 72 74 25 20 2d 3d 20 |..N. sort% -= |
000046e0 31 0d 1b 58 05 ce 0d 1b 62 05 e1 0d 1b 6c 05 3a |1..X....b....l.:|
000046f0 0d 1b 76 04 0d 1b 80 11 dd f2 73 65 6c 65 63 74 |..v.......select|
00004700 28 79 79 25 29 0d 1b 8a 3d e7 20 28 28 79 79 25 |(yy%)...=. ((yy%|
00004710 3c 79 30 25 2d 32 30 30 29 29 20 80 20 28 79 79 |<y0%-200)) . (yy|
00004720 25 3e 28 28 79 30 25 2d 32 30 30 29 2d 34 30 2a |%>((y0%-200)-40*|
00004730 65 6e 74 72 79 25 28 6d 6f 6e 74 68 25 29 29 29 |entry%(month%)))|
00004740 20 8c 0d 1b 94 25 61 6c 72 65 61 64 79 25 20 3d | ....%already% =|
00004750 20 28 28 79 30 25 20 2d 20 32 30 30 29 20 2d 20 | ((y0% - 200) - |
00004760 79 79 25 29 2f 34 30 0d 1b 9e 1a e7 20 61 6c 72 |yy%)/40..... alr|
00004770 65 61 64 79 25 20 3d 20 73 65 6c 65 63 74 25 20 |eady% = select% |
00004780 8c 0d 1b a8 1e 61 6c 72 65 61 64 79 25 20 3d 20 |.....already% = |
00004790 2d 31 3a 73 65 6c 65 63 74 25 20 3d 20 2d 31 0d |-1:select% = -1.|
000047a0 1b b2 0f 73 68 61 64 65 64 25 20 3d 20 b9 0d 1b |...shaded% = ...|
000047b0 bc 05 cc 0d 1b c6 16 73 65 6c 65 63 74 25 20 3d |.......select% =|
000047c0 20 61 6c 72 65 61 64 79 25 0d 1b d0 0f 73 68 61 | already%....sha|
000047d0 64 65 64 25 20 3d 20 a3 0d 1b da 05 cd 0d 1b e4 |ded% = .........|
000047e0 18 f2 72 65 64 72 61 77 28 4d 61 69 6e 57 69 6e |..redraw(MainWin|
000047f0 64 6f 77 25 29 0d 1b ee 05 cd 0d 1b f8 05 e1 0d |dow%)...........|
00004800 1c 02 05 3a 0d 1c 0c 04 0d 1c 16 0c dd f2 64 65 |...:..........de|
00004810 6c 65 74 65 0d 1c 20 0c ea 20 63 6f 75 6e 74 25 |lete.. .. count%|
00004820 0d 1c 2a 1a e3 20 63 6f 75 6e 74 25 20 3d 20 6d |..*.. count% = m|
00004830 6f 6e 74 68 25 20 b8 20 35 39 0d 1c 34 2f 62 61 |onth% . 59..4/ba|
00004840 6c 61 6e 63 65 25 28 63 6f 75 6e 74 25 29 20 2d |lance%(count%) -|
00004850 3d 20 61 6d 6f 75 6e 74 25 28 73 65 6c 65 63 74 |= amount%(select|
00004860 25 2c 6d 6f 6e 74 68 25 29 0d 1c 3e 05 ed 0d 1c |%,month%)..>....|
00004870 48 29 e3 20 63 6f 75 6e 74 25 20 3d 20 73 65 6c |H). count% = sel|
00004880 65 63 74 25 20 b8 20 65 6e 74 72 79 25 28 6d 6f |ect% . entry%(mo|
00004890 6e 74 68 25 29 2d 31 0d 1c 52 31 6e 61 6d 65 24 |nth%)-1..R1name$|
000048a0 28 63 6f 75 6e 74 25 2c 6d 6f 6e 74 68 25 29 20 |(count%,month%) |
000048b0 3d 20 6e 61 6d 65 24 28 63 6f 75 6e 74 25 2b 31 |= name$(count%+1|
000048c0 2c 6d 6f 6e 74 68 25 29 0d 1c 5c 35 61 6d 6f 75 |,month%)..\5amou|
000048d0 6e 74 25 28 63 6f 75 6e 74 25 2c 6d 6f 6e 74 68 |nt%(count%,month|
000048e0 25 29 20 3d 20 61 6d 6f 75 6e 74 25 28 63 6f 75 |%) = amount%(cou|
000048f0 6e 74 25 2b 31 2c 6d 6f 6e 74 68 25 29 0d 1c 66 |nt%+1,month%)..f|
00004900 31 64 61 74 65 25 28 63 6f 75 6e 74 25 2c 6d 6f |1date%(count%,mo|
00004910 6e 74 68 25 29 20 3d 20 64 61 74 65 25 28 63 6f |nth%) = date%(co|
00004920 75 6e 74 25 2b 31 2c 6d 6f 6e 74 68 25 29 0d 1c |unt%+1,month%)..|
00004930 70 05 ed 0d 1c 7a 17 65 6e 74 72 79 25 28 6d 6f |p....z.entry%(mo|
00004940 6e 74 68 25 29 20 2d 3d 20 31 0d 1c 84 1d 73 65 |nth%) -= 1....se|
00004950 6c 65 63 74 25 20 3d 20 2d 31 3a 20 73 68 61 64 |lect% = -1: shad|
00004960 65 64 25 20 3d 20 b9 0d 1c 8e 18 f2 72 65 64 72 |ed% = ......redr|
00004970 61 77 28 4d 61 69 6e 57 69 6e 64 6f 77 25 29 0d |aw(MainWindow%).|
00004980 1c 98 05 e1 0d 1c a2 04 0d 1c ac 04 0d 1c b6 14 |................|
00004990 dd f2 6b 65 79 73 28 57 25 2c 49 25 2c 43 25 29 |..keys(W%,I%,C%)|
000049a0 0d 1c c0 0a c8 8e 20 b9 20 ca 0d 1c ca 1f 20 20 |...... . ..... |
000049b0 20 c9 20 43 25 20 3d 20 31 33 20 80 20 57 25 20 | . C% = 13 . W% |
000049c0 3d 20 44 65 62 69 74 25 3a 0d 1c d4 11 20 20 20 |= Debit%:.... |
000049d0 20 20 20 c8 8e 20 49 25 20 ca 0d 1c de 3a 20 20 | .. I% ....: |
000049e0 20 20 20 20 c9 20 31 37 3a c8 99 20 22 57 69 6d | . 17:.. "Wim|
000049f0 70 5f 53 65 74 43 61 72 65 74 50 6f 73 69 74 69 |p_SetCaretPositi|
00004a00 6f 6e 22 2c 44 65 62 69 74 25 2c 32 31 2c 2c 2c |on",Debit%,21,,,|
00004a10 2d 31 2c 30 0d 1c e8 0f 20 20 20 20 20 20 c9 20 |-1,0.... . |
00004a20 32 31 3a 0d 1c f2 20 20 20 20 20 20 20 f2 6f 6b |21:... .ok|
00004a30 28 64 61 79 31 25 2c 2d 31 2c 44 65 62 69 74 25 |(day1%,-1,Debit%|
00004a40 2c 34 29 0d 1c fc 0b 20 20 20 20 20 20 cb 0d 1d |,4).... ...|
00004a50 06 04 0d 1d 10 20 20 20 20 c9 20 43 25 20 3d 20 |..... . C% = |
00004a60 31 33 20 80 20 57 25 20 3d 20 43 72 65 64 69 74 |13 . W% = Credit|
00004a70 25 3a 0d 1d 1a 11 20 20 20 20 20 20 c8 8e 20 49 |%:.... .. I|
00004a80 25 20 ca 0d 1d 24 3b 20 20 20 20 20 20 c9 20 31 |% ...$; . 1|
00004a90 37 3a c8 99 20 22 57 69 6d 70 5f 53 65 74 43 61 |7:.. "Wimp_SetCa|
00004aa0 72 65 74 50 6f 73 69 74 69 6f 6e 22 2c 43 72 65 |retPosition",Cre|
00004ab0 64 69 74 25 2c 32 31 2c 2c 2c 2d 31 2c 30 0d 1d |dit%,21,,,-1,0..|
00004ac0 2e 0f 20 20 20 20 20 20 c9 20 32 31 3a 0d 1d 38 |.. . 21:..8|
00004ad0 20 20 20 20 20 20 20 f2 6f 6b 28 64 61 79 32 25 | .ok(day2%|
00004ae0 2c 31 2c 43 72 65 64 69 74 25 2c 34 29 0d 1d 42 |,1,Credit%,4)..B|
00004af0 0b 20 20 20 20 20 20 cb 0d 1d 4c 04 0d 1d 56 1f |. ...L...V.|
00004b00 20 20 20 c9 20 43 25 20 3d 20 31 33 20 80 20 57 | . C% = 13 . W|
00004b10 25 20 3d 20 41 6d 65 6e 64 25 3a 0d 1d 60 11 20 |% = Amend%:..`. |
00004b20 20 20 20 20 20 c8 8e 20 49 25 20 ca 0d 1d 6a 5a | .. I% ...jZ|
00004b30 20 20 20 20 20 20 c9 20 31 37 3a c8 99 20 22 57 | . 17:.. "W|
00004b40 69 6d 70 5f 53 65 74 43 61 72 65 74 50 6f 73 69 |imp_SetCaretPosi|
00004b50 74 69 6f 6e 22 2c 41 6d 65 6e 64 25 2c 32 31 2c |tion",Amend%,21,|
00004b60 2c 2c 2d 31 2c a9 28 c3 28 61 6d 6f 75 6e 74 25 |,,-1,.(.(amount%|
00004b70 28 73 65 6c 65 63 74 25 2c 6d 6f 6e 74 68 25 29 |(select%,month%)|
00004b80 2f 31 30 30 29 29 0d 1d 74 0f 20 20 20 20 20 20 |/100))..t. |
00004b90 c9 20 32 31 3a 0d 1d 7e 23 20 20 20 20 20 20 f2 |. 21:..~# .|
00004ba0 6f 6b 28 64 61 79 34 25 2c 73 69 67 6e 25 2c 41 |ok(day4%,sign%,A|
00004bb0 6d 65 6e 64 25 2c 34 29 0d 1d 88 0b 20 20 20 20 |mend%,4).... |
00004bc0 20 20 cb 0d 1d 92 04 0d 1d 9c 22 20 20 20 c9 20 | ........" . |
00004bd0 43 25 20 3d 20 31 33 20 80 20 57 25 20 3d 20 53 |C% = 13 . W% = S|
00004be0 74 61 6e 64 69 6e 67 25 3a 0d 1d a6 11 20 20 20 |tanding%:.... |
00004bf0 20 20 20 c8 8e 20 49 25 20 ca 0d 1d b0 3d 20 20 | .. I% ....= |
00004c00 20 20 20 20 c9 20 31 33 3a c8 99 20 22 57 69 6d | . 13:.. "Wim|
00004c10 70 5f 53 65 74 43 61 72 65 74 50 6f 73 69 74 69 |p_SetCaretPositi|
00004c20 6f 6e 22 2c 53 74 61 6e 64 69 6e 67 25 2c 31 34 |on",Standing%,14|
00004c30 2c 2c 2c 2d 31 2c 30 0d 1d ba 3d 20 20 20 20 20 |,,,-1,0...= |
00004c40 20 c9 20 31 34 3a c8 99 20 22 57 69 6d 70 5f 53 | . 14:.. "Wimp_S|
00004c50 65 74 43 61 72 65 74 50 6f 73 69 74 69 6f 6e 22 |etCaretPosition"|
00004c60 2c 53 74 61 6e 64 69 6e 67 25 2c 31 35 2c 2c 2c |,Standing%,15,,,|
00004c70 2d 31 2c 30 0d 1d c4 3d 20 20 20 20 20 20 c9 20 |-1,0...= . |
00004c80 31 35 3a c8 99 20 22 57 69 6d 70 5f 53 65 74 43 |15:.. "Wimp_SetC|
00004c90 61 72 65 74 50 6f 73 69 74 69 6f 6e 22 2c 53 74 |aretPosition",St|
00004ca0 61 6e 64 69 6e 67 25 2c 32 31 2c 2c 2c 2d 31 2c |anding%,21,,,-1,|
00004cb0 30 0d 1d ce 15 20 20 20 20 20 20 c9 20 32 31 3a |0.... . 21:|
00004cc0 42 25 20 3d 20 34 0d 1d d8 26 20 20 20 20 20 20 |B% = 4...& |
00004cd0 f2 73 74 61 6e 64 69 6e 67 28 64 61 79 33 25 2c |.standing(day3%,|
00004ce0 53 74 61 6e 64 69 6e 67 25 2c 34 29 0d 1d e2 0b |Standing%,4)....|
00004cf0 20 20 20 20 20 20 cb 0d 1d ec 04 0d 1d f6 28 20 | ........( |
00004d00 20 20 c9 20 43 25 20 3d 20 31 33 20 80 20 62 6c | . C% = 13 . bl|
00004d10 6f 63 6b 25 21 30 20 3d 20 53 61 76 65 5f 57 69 |ock%!0 = Save_Wi|
00004d20 6e 64 25 0d 1e 00 11 20 20 20 20 20 20 c8 8e 20 |nd%.... .. |
00004d30 49 25 20 ca 0d 1e 0a 1c 20 20 20 20 20 20 20 20 |I% ..... |
00004d40 20 c9 20 32 3a 20 f2 71 75 69 63 6b 73 61 76 65 | . 2: .quicksave|
00004d50 0d 1e 14 0b 20 20 20 20 20 20 cb 0d 1e 1e 04 0d |.... ......|
00004d60 1e 28 08 20 20 20 7f 0d 1e 32 1e 20 20 20 c8 99 |.(. ...2. ..|
00004d70 20 22 57 69 6d 70 5f 50 72 6f 63 65 73 73 4b 65 | "Wimp_ProcessKe|
00004d80 79 22 2c 43 25 0d 1e 3c 04 0d 1e 46 05 cb 0d 1e |y",C%..<...F....|
00004d90 50 05 e1 0d 1e 5a 04 0d 1e 64 1b dd f2 73 74 61 |P....Z...d...sta|
00004da0 6e 64 69 6e 67 28 64 25 2c 68 61 6e 64 25 2c 42 |nding(d%,hand%,B|
00004db0 25 29 0d 1e 6e 3d ea 20 6e 61 6d 65 24 2c 61 6d |%)..n=. name$,am|
00004dc0 6f 75 6e 74 24 2c 61 6d 6f 75 6e 74 32 24 2c 6d |ount$,amount2$,m|
00004dd0 74 6f 74 61 6c 24 2c 6d 74 6f 74 25 2c 63 6f 75 |total$,mtot%,cou|
00004de0 6e 74 25 2c 66 72 65 71 25 2c 73 69 67 6e 25 0d |nt%,freq%,sign%.|
00004df0 1e 78 14 62 6c 6f 63 6b 25 21 30 20 3d 20 68 61 |.x.block%!0 = ha|
00004e00 6e 64 25 0d 1e 82 11 62 6c 6f 63 6b 25 21 34 20 |nd%....block%!4 |
00004e10 3d 20 31 33 0d 1e 8c 22 c8 99 20 22 57 69 6d 70 |= 13...".. "Wimp|
00004e20 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c |_GetIconState",,|
00004e30 62 6c 6f 63 6b 25 0d 1e 96 19 e7 20 24 28 62 6c |block%..... $(bl|
00004e40 6f 63 6b 25 21 32 38 29 20 3d 20 22 22 20 8c 0d |ock%!28) = "" ..|
00004e50 1e a0 0c 65 72 72 25 20 3d 20 b9 0d 1e aa 13 20 |...err% = ..... |
00004e60 20 20 21 65 72 72 6f 72 25 20 3d 20 39 39 0d 1e | !error% = 99..|
00004e70 b4 30 20 20 20 24 28 65 72 72 6f 72 25 2b 34 29 |.0 $(error%+4)|
00004e80 20 3d 20 22 59 6f 75 20 6d 75 73 74 20 65 6e 74 | = "You must ent|
00004e90 65 72 20 61 20 6e 61 6d 65 20 21 21 21 22 0d 1e |er a name !!!"..|
00004ea0 be 2f 20 20 20 c8 99 20 22 57 69 6d 70 5f 52 65 |./ .. "Wimp_Re|
00004eb0 70 6f 72 74 45 72 72 6f 72 22 2c 65 72 72 6f 72 |portError",error|
00004ec0 25 2c 30 2c 22 21 42 61 6e 6b 65 72 22 0d 1e c8 |%,0,"!Banker"...|
00004ed0 26 20 20 20 cc 20 6e 61 6d 65 24 20 3d 20 24 28 |& . name$ = $(|
00004ee0 62 6c 6f 63 6b 25 21 32 38 29 3a 65 72 72 25 20 |block%!28):err% |
00004ef0 3d 20 a3 0d 1e d2 05 cd 0d 1e dc 0e e7 20 ac 20 |= ........... . |
00004f00 65 72 72 25 20 8c 0d 1e e6 14 62 6c 6f 63 6b 25 |err% .....block%|
00004f10 21 30 20 3d 20 68 61 6e 64 25 0d 1e f0 11 62 6c |!0 = hand%....bl|
00004f20 6f 63 6b 25 21 34 20 3d 20 31 34 0d 1e fa 22 c8 |ock%!4 = 14...".|
00004f30 99 20 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 |. "Wimp_GetIconS|
00004f40 74 61 74 65 22 2c 2c 62 6c 6f 63 6b 25 0d 1f 04 |tate",,block%...|
00004f50 19 e7 20 24 28 62 6c 6f 63 6b 25 21 32 38 29 20 |.. $(block%!28) |
00004f60 3d 20 22 22 20 8c 0d 1f 0e 0c 65 72 72 25 20 3d |= "" .....err% =|
00004f70 20 b9 0d 1f 18 13 20 20 20 21 65 72 72 6f 72 25 | ..... !error%|
00004f80 20 3d 20 39 39 0d 1f 22 38 20 20 20 24 28 65 72 | = 99.."8 $(er|
00004f90 72 6f 72 25 2b 34 29 20 3d 20 22 59 6f 75 20 6d |ror%+4) = "You m|
00004fa0 75 73 74 20 65 6e 74 65 72 20 61 20 66 69 72 73 |ust enter a firs|
00004fb0 74 20 61 6d 6f 75 6e 74 20 21 21 21 22 0d 1f 2c |t amount !!!"..,|
00004fc0 2f 20 20 20 c8 99 20 22 57 69 6d 70 5f 52 65 70 |/ .. "Wimp_Rep|
00004fd0 6f 72 74 45 72 72 6f 72 22 2c 65 72 72 6f 72 25 |ortError",error%|
00004fe0 2c 30 2c 22 21 42 61 6e 6b 65 72 22 0d 1f 36 28 |,0,"!Banker"..6(|
00004ff0 20 20 20 cc 20 61 6d 6f 75 6e 74 24 20 3d 20 24 | . amount$ = $|
00005000 28 62 6c 6f 63 6b 25 21 32 38 29 3a 65 72 72 25 |(block%!28):err%|
00005010 20 3d 20 a3 0d 1f 40 28 20 20 20 20 20 20 20 20 | = ...@( |
00005020 20 20 20 20 20 20 20 20 20 20 e7 20 bb 28 61 6d | . .(am|
00005030 6f 75 6e 74 24 29 20 3d 20 30 20 8c 0d 1f 4a 21 |ount$) = 0 ...J!|
00005040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005050 20 20 20 20 20 65 72 72 25 20 3d 20 b9 0d 1f 54 | err% = ...T|
00005060 25 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |% |
00005070 20 20 20 20 20 20 21 65 72 72 6f 72 25 20 3d 20 | !error% = |
00005080 39 39 0d 1f 5e 59 20 20 20 20 20 20 20 20 20 20 |99..^Y |
00005090 20 20 20 20 20 20 20 20 20 20 20 24 28 65 72 72 | $(err|
000050a0 6f 72 25 2b 34 29 20 3d 20 22 59 6f 75 20 68 61 |or%+4) = "You ha|
000050b0 76 65 20 65 6e 74 65 72 65 64 20 61 20 7a 65 72 |ve entered a zer|
000050c0 6f 20 6f 72 20 61 6e 20 69 6e 76 61 6c 69 64 20 |o or an invalid |
000050d0 61 6d 6f 75 6e 74 20 21 21 21 22 0d 1f 68 41 20 |amount !!!"..hA |
000050e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000050f0 20 20 20 20 c8 99 20 22 57 69 6d 70 5f 52 65 70 | .. "Wimp_Rep|
00005100 6f 72 74 45 72 72 6f 72 22 2c 65 72 72 6f 72 25 |ortError",error%|
00005110 2c 30 2c 22 21 42 61 6e 6b 65 72 22 0d 1f 72 23 |,0,"!Banker"..r#|
00005120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005130 20 20 20 20 20 cc 20 65 72 72 25 20 3d 20 a3 0d | . err% = ..|
00005140 1f 7c 1a 20 20 20 20 20 20 20 20 20 20 20 20 20 |.|. |
00005150 20 20 20 20 20 20 20 20 cd 0d 1f 86 05 cd 0d 1f | ........|
00005160 90 05 cd 0d 1f 9a 04 0d 1f a4 0e e7 20 ac 20 65 |............ . e|
00005170 72 72 25 20 8c 0d 1f ae 14 62 6c 6f 63 6b 25 21 |rr% .....block%!|
00005180 30 20 3d 20 68 61 6e 64 25 0d 1f b8 11 62 6c 6f |0 = hand%....blo|
00005190 63 6b 25 21 34 20 3d 20 31 35 0d 1f c2 22 c8 99 |ck%!4 = 15..."..|
000051a0 20 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 | "Wimp_GetIconSt|
000051b0 61 74 65 22 2c 2c 62 6c 6f 63 6b 25 0d 1f cc 19 |ate",,block%....|
000051c0 e7 20 24 28 62 6c 6f 63 6b 25 21 32 38 29 20 3d |. $(block%!28) =|
000051d0 20 22 22 20 8c 0d 1f d6 0c 65 72 72 25 20 3d 20 | "" .....err% = |
000051e0 b9 0d 1f e0 13 20 20 20 21 65 72 72 6f 72 25 20 |..... !error% |
000051f0 3d 20 39 39 0d 1f ea 3d 20 20 20 24 28 65 72 72 |= 99...= $(err|
00005200 6f 72 25 2b 34 29 20 3d 20 22 59 6f 75 20 6d 75 |or%+4) = "You mu|
00005210 73 74 20 65 6e 74 65 72 20 61 20 73 75 62 73 65 |st enter a subse|
00005220 71 75 65 6e 74 20 61 6d 6f 75 6e 74 20 21 21 21 |quent amount !!!|
00005230 22 0d 1f f4 2f 20 20 20 c8 99 20 22 57 69 6d 70 |".../ .. "Wimp|
00005240 5f 52 65 70 6f 72 74 45 72 72 6f 72 22 2c 65 72 |_ReportError",er|
00005250 72 6f 72 25 2c 30 2c 22 21 42 61 6e 6b 65 72 22 |ror%,0,"!Banker"|
00005260 0d 1f fe 29 20 20 20 cc 20 61 6d 6f 75 6e 74 32 |...) . amount2|
00005270 24 20 3d 20 24 28 62 6c 6f 63 6b 25 21 32 38 29 |$ = $(block%!28)|
00005280 3a 65 72 72 25 20 3d 20 a3 0d 20 08 29 20 20 20 |:err% = .. .) |
00005290 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e7 | .|
000052a0 20 bb 28 61 6d 6f 75 6e 74 32 24 29 20 3d 20 30 | .(amount2$) = 0|
000052b0 20 8c 0d 20 12 21 20 20 20 20 20 20 20 20 20 20 | .. .! |
000052c0 20 20 20 20 20 20 20 20 20 20 20 65 72 72 25 20 | err% |
000052d0 3d 20 b9 0d 20 1c 25 20 20 20 20 20 20 20 20 20 |= .. .% |
000052e0 20 20 20 20 20 20 20 20 20 20 20 20 21 65 72 72 | !err|
000052f0 6f 72 25 20 3d 20 39 39 0d 20 26 59 20 20 20 20 |or% = 99. &Y |
00005300 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005310 20 24 28 65 72 72 6f 72 25 2b 34 29 20 3d 20 22 | $(error%+4) = "|
00005320 59 6f 75 20 68 61 76 65 20 65 6e 74 65 72 65 64 |You have entered|
00005330 20 61 20 7a 65 72 6f 20 6f 72 20 61 6e 20 69 6e | a zero or an in|
00005340 76 61 6c 69 64 20 61 6d 6f 75 6e 74 20 21 21 21 |valid amount !!!|
00005350 22 0d 20 30 41 20 20 20 20 20 20 20 20 20 20 20 |". 0A |
00005360 20 20 20 20 20 20 20 20 20 20 c8 99 20 22 57 69 | .. "Wi|
00005370 6d 70 5f 52 65 70 6f 72 74 45 72 72 6f 72 22 2c |mp_ReportError",|
00005380 65 72 72 6f 72 25 2c 30 2c 22 21 42 61 6e 6b 65 |error%,0,"!Banke|
00005390 72 22 0d 20 3a 23 20 20 20 20 20 20 20 20 20 20 |r". :# |
000053a0 20 20 20 20 20 20 20 20 20 20 20 cc 20 65 72 72 | . err|
000053b0 25 20 3d 20 a3 0d 20 44 1a 20 20 20 20 20 20 20 |% = .. D. |
000053c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 cd 0d | ..|
000053d0 20 4e 05 cd 0d 20 58 05 cd 0d 20 62 04 0d 20 6c | N... X... b.. l|
000053e0 04 0d 20 76 0e e7 20 ac 20 65 72 72 25 20 8c 0d |.. v.. . err% ..|
000053f0 20 80 14 62 6c 6f 63 6b 25 21 30 20 3d 20 68 61 | ..block%!0 = ha|
00005400 6e 64 25 0d 20 8a 11 62 6c 6f 63 6b 25 21 34 20 |nd%. ..block%!4 |
00005410 3d 20 32 31 0d 20 94 22 c8 99 20 22 57 69 6d 70 |= 21. .".. "Wimp|
00005420 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c |_GetIconState",,|
00005430 62 6c 6f 63 6b 25 0d 20 9e 19 e7 20 24 28 62 6c |block%. ... $(bl|
00005440 6f 63 6b 25 21 32 38 29 20 3d 20 22 22 20 8c 0d |ock%!28) = "" ..|
00005450 20 a8 0c 65 72 72 25 20 3d 20 b9 0d 20 b2 13 20 | ..err% = .. .. |
00005460 20 20 21 65 72 72 6f 72 25 20 3d 20 39 39 0d 20 | !error% = 99. |
00005470 bc 3e 20 20 20 24 28 65 72 72 6f 72 25 2b 34 29 |.> $(error%+4)|
00005480 20 3d 20 22 59 6f 75 20 6d 75 73 74 20 65 6e 74 | = "You must ent|
00005490 65 72 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 |er the number of|
000054a0 20 6d 6f 6e 74 68 73 20 21 21 21 22 0d 20 c6 2f | months !!!". ./|
000054b0 20 20 20 c8 99 20 22 57 69 6d 70 5f 52 65 70 6f | .. "Wimp_Repo|
000054c0 72 74 45 72 72 6f 72 22 2c 65 72 72 6f 72 25 2c |rtError",error%,|
000054d0 30 2c 22 21 42 61 6e 6b 65 72 22 0d 20 d0 28 20 |0,"!Banker". .( |
000054e0 20 20 cc 20 6d 74 6f 74 61 6c 24 20 3d 20 24 28 | . mtotal$ = $(|
000054f0 62 6c 6f 63 6b 25 21 32 38 29 3a 65 72 72 25 20 |block%!28):err% |
00005500 3d 20 a3 0d 20 da 27 20 20 20 20 20 20 20 20 20 |= .. .' |
00005510 20 20 20 20 20 20 20 20 20 6d 74 6f 74 25 3d 20 | mtot%= |
00005520 bb 28 6d 74 6f 74 61 6c 24 29 0d 20 e4 23 20 20 |.(mtotal$). .# |
00005530 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005540 e7 20 6d 74 6f 74 25 20 3d 20 30 20 8c 0d 20 ee |. mtot% = 0 .. .|
00005550 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |! |
00005560 20 20 20 20 20 20 65 72 72 25 20 3d 20 b9 0d 20 | err% = .. |
00005570 f8 25 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.% |
00005580 20 20 20 20 20 20 20 21 65 72 72 6f 72 25 20 3d | !error% =|
00005590 20 39 39 0d 21 02 63 20 20 20 20 20 20 20 20 20 | 99.!.c |
000055a0 20 20 20 20 20 20 20 20 20 20 20 20 24 28 65 72 | $(er|
000055b0 72 6f 72 25 2b 34 29 20 3d 20 22 59 6f 75 20 68 |ror%+4) = "You h|
000055c0 61 76 65 20 65 6e 74 65 72 65 64 20 61 20 7a 65 |ave entered a ze|
000055d0 72 6f 20 6f 72 20 61 6e 20 69 6e 76 61 6c 69 64 |ro or an invalid|
000055e0 20 6e 75 6d 62 65 72 20 6f 66 20 6d 6f 6e 74 68 | number of month|
000055f0 73 20 21 21 21 22 0d 21 0c 41 20 20 20 20 20 20 |s !!!".!.A |
00005600 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c8 | .|
00005610 99 20 22 57 69 6d 70 5f 52 65 70 6f 72 74 45 72 |. "Wimp_ReportEr|
00005620 72 6f 72 22 2c 65 72 72 6f 72 25 2c 30 2c 22 21 |ror",error%,0,"!|
00005630 42 61 6e 6b 65 72 22 0d 21 16 23 20 20 20 20 20 |Banker".!.# |
00005640 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005650 cc 20 65 72 72 25 20 3d 20 a3 0d 21 20 40 20 20 |. err% = ..! @ |
00005660 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005670 20 20 20 e7 20 6d 74 6f 74 25 3e 28 35 39 2d 6d | . mtot%>(59-m|
00005680 6f 6e 74 68 25 29 20 6d 74 6f 74 25 20 3d 20 28 |onth%) mtot% = (|
00005690 35 39 2d 6d 6f 6e 74 68 25 29 0d 21 2a 1a 20 20 |59-month%).!*. |
000056a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000056b0 20 20 20 cd 0d 21 34 05 cd 0d 21 3e 05 cd 0d 21 | ..!4...!>...!|
000056c0 48 04 0d 21 52 0e e7 20 ac 20 65 72 72 25 20 8c |H..!R.. . err% .|
000056d0 0d 21 5c 37 c8 99 20 22 57 69 6d 70 5f 57 68 69 |.!\7.. "Wimp_Whi|
000056e0 63 68 49 63 6f 6e 22 2c 68 61 6e 64 25 2c 69 63 |chIcon",hand%,ic|
000056f0 6f 6e 25 2c 26 30 30 33 46 30 30 30 30 2c 26 30 |on%,&003F0000,&0|
00005700 30 32 32 30 30 30 30 0d 21 66 13 63 6f 75 6e 74 |0220000.!f.count|
00005710 25 20 3d 20 21 69 63 6f 6e 25 0d 21 70 0f c8 8e |% = !icon%.!p...|
00005720 20 63 6f 75 6e 74 25 20 ca 0d 21 7a 14 20 20 20 | count% ..!z. |
00005730 c9 20 30 3a 66 72 65 71 25 20 3d 20 31 0d 21 84 |. 0:freq% = 1.!.|
00005740 14 20 20 20 c9 20 31 3a 66 72 65 71 25 20 3d 20 |. . 1:freq% = |
00005750 32 0d 21 8e 14 20 20 20 c9 20 32 3a 66 72 65 71 |2.!.. . 2:freq|
00005760 25 20 3d 20 33 0d 21 98 14 20 20 20 c9 20 33 3a |% = 3.!.. . 3:|
00005770 66 72 65 71 25 20 3d 20 36 0d 21 a2 15 20 20 20 |freq% = 6.!.. |
00005780 c9 20 34 3a 66 72 65 71 25 20 3d 20 31 32 0d 21 |. 4:freq% = 12.!|
00005790 ac 11 20 20 20 7f 20 65 72 72 25 20 3d 20 b9 0d |.. . err% = ..|
000057a0 21 b6 05 cb 0d 21 c0 04 0d 21 ca 10 e7 20 65 72 |!....!...!... er|
000057b0 72 25 20 3d 20 b9 20 8c 0d 21 d4 10 21 65 72 72 |r% = . ..!..!err|
000057c0 6f 72 25 20 3d 20 39 39 0d 21 de 44 24 28 65 72 |or% = 99.!.D$(er|
000057d0 72 6f 72 25 2b 34 29 20 3d 20 22 59 6f 75 20 6d |ror%+4) = "You m|
000057e0 75 73 74 20 73 65 6c 65 63 74 20 74 68 65 20 66 |ust select the f|
000057f0 72 65 71 75 65 6e 63 79 20 6f 66 20 74 68 65 20 |requency of the |
00005800 70 61 79 6d 65 6e 74 20 21 21 21 22 0d 21 e8 2c |payment !!!".!.,|
00005810 c8 99 20 22 57 69 6d 70 5f 52 65 70 6f 72 74 45 |.. "Wimp_ReportE|
00005820 72 72 6f 72 22 2c 65 72 72 6f 72 25 2c 30 2c 22 |rror",error%,0,"|
00005830 21 42 61 6e 6b 65 72 22 0d 21 f2 05 cd 0d 21 fc |!Banker".!....!.|
00005840 05 cd 0d 22 06 04 0d 22 10 0e e7 20 ac 20 65 72 |..."..."... . er|
00005850 72 25 20 8c 0d 22 1a 37 c8 99 20 22 57 69 6d 70 |r% ..".7.. "Wimp|
00005860 5f 57 68 69 63 68 49 63 6f 6e 22 2c 68 61 6e 64 |_WhichIcon",hand|
00005870 25 2c 69 63 6f 6e 25 2c 26 30 30 33 46 30 30 30 |%,icon%,&003F000|
00005880 30 2c 26 30 30 32 33 30 30 30 30 0d 22 24 12 e7 |0,&00230000."$..|
00005890 20 21 69 63 6f 6e 25 20 3d 20 35 20 8c 0d 22 2e | !icon% = 5 ..".|
000058a0 0e 73 69 67 6e 25 20 3d 20 2d 31 0d 22 38 05 cc |.sign% = -1."8..|
000058b0 0d 22 42 12 e7 20 21 69 63 6f 6e 25 20 3d 20 36 |."B.. !icon% = 6|
000058c0 20 8c 0d 22 4c 0d 73 69 67 6e 25 20 3d 20 31 0d | .."L.sign% = 1.|
000058d0 22 56 05 cc 0d 22 60 0c 65 72 72 25 20 3d 20 b9 |"V..."`.err% = .|
000058e0 0d 22 6a 10 21 65 72 72 6f 72 25 20 3d 20 39 39 |."j.!error% = 99|
000058f0 0d 22 74 3d 24 28 65 72 72 6f 72 25 2b 34 29 20 |."t=$(error%+4) |
00005900 3d 20 22 59 6f 75 20 6d 75 73 74 20 65 6e 74 65 |= "You must ente|
00005910 72 20 65 69 74 68 65 72 20 44 65 62 69 74 20 6f |r either Debit o|
00005920 72 20 43 72 65 64 69 74 20 21 21 21 22 0d 22 7e |r Credit !!!"."~|
00005930 2c c8 99 20 22 57 69 6d 70 5f 52 65 70 6f 72 74 |,.. "Wimp_Report|
00005940 45 72 72 6f 72 22 2c 65 72 72 6f 72 25 2c 30 2c |Error",error%,0,|
00005950 22 21 42 61 6e 6b 65 72 22 0d 22 88 05 cd 0d 22 |"!Banker"."...."|
00005960 92 05 cd 0d 22 9c 05 cd 0d 22 a6 3b 20 20 20 20 |...."....".; |
00005970 20 20 20 20 20 20 20 20 20 20 20 e3 20 63 6f 75 | . cou|
00005980 6e 74 25 20 3d 20 6d 6f 6e 74 68 25 20 b8 20 6d |nt% = month% . m|
00005990 6f 6e 74 68 25 2b 6d 74 6f 74 25 20 88 20 66 72 |onth%+mtot% . fr|
000059a0 65 71 25 0d 22 b0 29 20 20 20 20 20 20 20 20 20 |eq%.".) |
000059b0 20 20 20 20 20 20 e7 20 65 6e 74 72 79 25 28 63 | . entry%(c|
000059c0 6f 75 6e 74 25 29 3e 31 30 30 20 8c 0d 22 ba 1e |ount%)>100 .."..|
000059d0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000059e0 20 20 65 72 72 25 20 3d 20 b9 0d 22 c4 22 20 20 | err% = .."." |
000059f0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005a00 21 65 72 72 6f 72 25 20 3d 20 39 39 0d 22 ce 81 |!error% = 99."..|
00005a10 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005a20 20 20 24 28 65 72 72 6f 72 25 2b 34 29 20 3d 20 | $(error%+4) = |
00005a30 22 59 6f 75 20 68 61 76 65 20 65 78 63 65 65 64 |"You have exceed|
00005a40 65 64 20 74 68 65 20 6d 61 78 69 6d 75 6d 20 6e |ed the maximum n|
00005a50 75 6d 62 65 72 20 6f 66 20 65 6e 74 72 69 65 73 |umber of entries|
00005a60 20 61 6c 6c 6f 77 65 64 20 66 6f 72 20 6d 6f 6e | allowed for mon|
00005a70 74 68 20 22 2b 6d 6f 6e 74 68 24 28 63 6f 75 6e |th "+month$(coun|
00005a80 74 25 83 31 32 29 2b 22 20 21 21 21 22 0d 22 d8 |t%.12)+" !!!".".|
00005a90 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |> |
00005aa0 20 20 20 c8 99 20 22 57 69 6d 70 5f 52 65 70 6f | .. "Wimp_Repo|
00005ab0 72 74 45 72 72 6f 72 22 2c 65 72 72 6f 72 25 2c |rtError",error%,|
00005ac0 30 2c 22 21 42 61 6e 6b 65 72 22 0d 22 e2 14 20 |0,"!Banker".".. |
00005ad0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 cd 0d | ..|
00005ae0 22 ec 14 20 20 20 20 20 20 20 20 20 20 20 20 20 |".. |
00005af0 20 20 ed 0d 22 f6 04 0d 23 00 1d 20 20 20 20 20 | .."...#.. |
00005b00 20 20 20 20 20 20 20 20 20 20 e7 20 ac 20 65 72 | . . er|
00005b10 72 25 20 8c 0d 23 0a 3b 20 20 20 20 20 20 20 20 |r% ..#.; |
00005b20 20 20 20 20 20 20 20 e3 20 63 6f 75 6e 74 25 20 | . count% |
00005b30 3d 20 6d 6f 6e 74 68 25 20 b8 20 6d 6f 6e 74 68 |= month% . month|
00005b40 25 2b 6d 74 6f 74 25 20 88 20 66 72 65 71 25 0d |%+mtot% . freq%.|
00005b50 23 14 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 |#.: |
00005b60 20 20 20 20 20 6e 61 6d 65 24 28 65 6e 74 72 79 | name$(entry|
00005b70 25 28 63 6f 75 6e 74 25 29 2c 63 6f 75 6e 74 25 |%(count%),count%|
00005b80 29 20 3d 20 6e 61 6d 65 24 0d 23 1e 29 20 20 20 |) = name$.#.) |
00005b90 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e7 | .|
00005ba0 20 63 6f 75 6e 74 25 20 3d 20 6d 6f 6e 74 68 25 | count% = month%|
00005bb0 20 8c 0d 23 28 52 20 20 20 20 20 20 20 20 20 20 | ..#(R |
00005bc0 20 20 20 20 20 20 20 20 61 6d 6f 75 6e 74 25 28 | amount%(|
00005bd0 65 6e 74 72 79 25 28 63 6f 75 6e 74 25 29 2c 63 |entry%(count%),c|
00005be0 6f 75 6e 74 25 29 20 3d 20 28 bb 28 61 6d 6f 75 |ount%) = (.(amou|
00005bf0 6e 74 24 29 2b 2e 30 30 35 29 2a 31 30 30 2a 73 |nt$)+.005)*100*s|
00005c00 69 67 6e 25 0d 23 32 17 20 20 20 20 20 20 20 20 |ign%.#2. |
00005c10 20 20 20 20 20 20 20 20 20 20 cc 0d 23 3c 53 20 | ..#<S |
00005c20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005c30 20 61 6d 6f 75 6e 74 25 28 65 6e 74 72 79 25 28 | amount%(entry%(|
00005c40 63 6f 75 6e 74 25 29 2c 63 6f 75 6e 74 25 29 20 |count%),count%) |
00005c50 3d 20 28 bb 28 61 6d 6f 75 6e 74 32 24 29 2b 2e |= (.(amount2$)+.|
00005c60 30 30 35 29 2a 31 30 30 2a 73 69 67 6e 25 0d 23 |005)*100*sign%.#|
00005c70 46 17 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |F. |
00005c80 20 20 20 20 cd 0d 23 50 37 20 20 20 20 20 20 20 | ..#P7 |
00005c90 20 20 20 20 20 20 20 20 20 20 20 64 61 74 65 25 | date%|
00005ca0 28 65 6e 74 72 79 25 28 63 6f 75 6e 74 25 29 2c |(entry%(count%),|
00005cb0 63 6f 75 6e 74 25 29 20 3d 20 64 25 0d 23 5a 27 |count%) = d%.#Z'|
00005cc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005cd0 20 20 65 6e 74 72 79 25 28 63 6f 75 6e 74 25 29 | entry%(count%)|
00005ce0 2b 3d 31 0d 23 64 24 20 20 20 20 20 20 20 20 20 |+=1.#d$ |
00005cf0 20 20 20 20 20 20 20 20 20 f2 65 6e 74 65 72 28 | .enter(|
00005d00 63 6f 75 6e 74 25 29 0d 23 6e 17 20 20 20 20 20 |count%).#n. |
00005d10 20 20 20 20 20 20 20 20 20 20 20 20 20 ed 0d 23 | ..#|
00005d20 78 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |x* |
00005d30 20 20 20 20 73 65 6c 65 63 74 25 3d 2d 31 3a 73 | select%=-1:s|
00005d40 68 61 64 65 64 25 3d b9 0d 23 82 2a 20 20 20 20 |haded%=..#.* |
00005d50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 f2 72 | .r|
00005d60 65 64 72 61 77 28 4d 61 69 6e 57 69 6e 64 6f 77 |edraw(MainWindow|
00005d70 25 29 0d 23 8c 2d 20 20 20 20 20 20 20 20 20 20 |%).#.- |
00005d80 20 20 20 20 20 20 20 20 e7 20 42 25 20 3c 3e 20 | . B% <> |
00005d90 31 20 f2 63 6c 6f 73 65 28 68 61 6e 64 25 29 0d |1 .close(hand%).|
00005da0 23 96 14 20 20 20 20 20 20 20 20 20 20 20 20 20 |#.. |
00005db0 20 20 cd 0d 23 a0 05 e1 0d 23 aa 04 0d 23 b4 19 | ..#....#...#..|
00005dc0 dd f2 6f 6b 28 64 25 2c 73 67 25 2c 68 61 6e 64 |..ok(d%,sg%,hand|
00005dd0 25 2c 42 25 29 0d 23 be 23 20 20 20 20 20 20 20 |%,B%).#.# |
00005de0 20 20 20 20 20 20 20 20 62 6c 6f 63 6b 25 21 30 | block%!0|
00005df0 20 3d 20 68 61 6e 64 25 0d 23 c8 20 20 20 20 20 | = hand%.#. |
00005e00 20 20 20 20 20 20 20 20 20 20 20 62 6c 6f 63 6b | block|
00005e10 25 21 34 20 3d 20 31 37 0d 23 d2 31 20 20 20 20 |%!4 = 17.#.1 |
00005e20 20 20 20 20 20 20 20 20 20 20 20 c8 99 20 22 57 | .. "W|
00005e30 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 |imp_GetIconState|
00005e40 22 2c 2c 62 6c 6f 63 6b 25 0d 23 dc 28 20 20 20 |",,block%.#.( |
00005e50 20 20 20 20 20 20 20 20 20 20 20 20 e7 20 24 28 | . $(|
00005e60 62 6c 6f 63 6b 25 21 32 38 29 20 3d 20 22 22 20 |block%!28) = "" |
00005e70 8c 0d 23 e6 1e 20 20 20 20 20 20 20 20 20 20 20 |..#.. |
00005e80 20 20 20 20 20 20 20 65 72 72 25 20 3d 20 b9 0d | err% = ..|
00005e90 23 f0 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |#." |
00005ea0 20 20 20 20 20 21 65 72 72 6f 72 25 20 3d 20 39 | !error% = 9|
00005eb0 39 0d 23 fa 3f 20 20 20 20 20 20 20 20 20 20 20 |9.#.? |
00005ec0 20 20 20 20 20 20 20 24 28 65 72 72 6f 72 25 2b | $(error%+|
00005ed0 34 29 20 3d 20 22 59 6f 75 20 6d 75 73 74 20 65 |4) = "You must e|
00005ee0 6e 74 65 72 20 61 20 6e 61 6d 65 20 21 21 21 22 |nter a name !!!"|
00005ef0 0d 24 04 3e 20 20 20 20 20 20 20 20 20 20 20 20 |.$.> |
00005f00 20 20 20 20 20 20 c8 99 20 22 57 69 6d 70 5f 52 | .. "Wimp_R|
00005f10 65 70 6f 72 74 45 72 72 6f 72 22 2c 65 72 72 6f |eportError",erro|
00005f20 72 25 2c 30 2c 22 21 42 61 6e 6b 65 72 22 0d 24 |r%,0,"!Banker".$|
00005f30 0e 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.5 |
00005f40 20 20 20 20 cc 20 6e 61 6d 65 24 20 3d 20 24 28 | . name$ = $(|
00005f50 62 6c 6f 63 6b 25 21 32 38 29 3a 65 72 72 25 20 |block%!28):err% |
00005f60 3d 20 a3 0d 24 18 14 20 20 20 20 20 20 20 20 20 |= ..$.. |
00005f70 20 20 20 20 20 20 cd 0d 24 22 1d 20 20 20 20 20 | ..$". |
00005f80 20 20 20 20 20 20 20 20 20 20 e7 20 ac 20 65 72 | . . er|
00005f90 72 25 20 8c 0d 24 2c 23 20 20 20 20 20 20 20 20 |r% ..$,# |
00005fa0 20 20 20 20 20 20 20 62 6c 6f 63 6b 25 21 30 20 | block%!0 |
00005fb0 3d 20 68 61 6e 64 25 0d 24 36 20 20 20 20 20 20 |= hand%.$6 |
00005fc0 20 20 20 20 20 20 20 20 20 20 62 6c 6f 63 6b 25 | block%|
00005fd0 21 34 20 3d 20 32 31 0d 24 40 31 20 20 20 20 20 |!4 = 21.$@1 |
00005fe0 20 20 20 20 20 20 20 20 20 20 c8 99 20 22 57 69 | .. "Wi|
00005ff0 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 |mp_GetIconState"|
00006000 2c 2c 62 6c 6f 63 6b 25 0d 24 4a 28 20 20 20 20 |,,block%.$J( |
00006010 20 20 20 20 20 20 20 20 20 20 20 e7 20 24 28 62 | . $(b|
00006020 6c 6f 63 6b 25 21 32 38 29 20 3d 20 22 22 20 8c |lock%!28) = "" .|
00006030 0d 24 54 1e 20 20 20 20 20 20 20 20 20 20 20 20 |.$T. |
00006040 20 20 20 20 20 20 65 72 72 25 20 3d 20 b9 0d 24 | err% = ..$|
00006050 5e 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |^" |
00006060 20 20 20 20 21 65 72 72 6f 72 25 20 3d 20 39 39 | !error% = 99|
00006070 0d 24 68 42 20 20 20 20 20 20 20 20 20 20 20 20 |.$hB |
00006080 20 20 20 20 20 20 24 28 65 72 72 6f 72 25 2b 34 | $(error%+4|
00006090 29 20 3d 20 22 59 6f 75 20 6d 75 73 74 20 65 6e |) = "You must en|
000060a0 74 65 72 20 61 6e 20 61 6d 6f 75 6e 74 20 21 21 |ter an amount !!|
000060b0 21 22 0d 24 72 3e 20 20 20 20 20 20 20 20 20 20 |!".$r> |
000060c0 20 20 20 20 20 20 20 20 c8 99 20 22 57 69 6d 70 | .. "Wimp|
000060d0 5f 52 65 70 6f 72 74 45 72 72 6f 72 22 2c 65 72 |_ReportError",er|
000060e0 72 6f 72 25 2c 30 2c 22 21 42 61 6e 6b 65 72 22 |ror%,0,"!Banker"|
000060f0 0d 24 7c 2e 20 20 20 20 20 20 20 20 20 20 20 20 |.$|. |
00006100 20 20 20 20 20 20 cc 20 61 6d 6f 75 6e 74 24 20 | . amount$ |
00006110 3d 20 24 28 62 6c 6f 63 6b 25 21 32 38 29 0d 24 |= $(block%!28).$|
00006120 86 28 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.( |
00006130 20 20 20 20 e7 20 bb 28 61 6d 6f 75 6e 74 24 29 | . .(amount$)|
00006140 20 3d 20 30 20 8c 0d 24 90 21 20 20 20 20 20 20 | = 0 ..$.! |
00006150 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 | e|
00006160 72 72 25 20 3d 20 b9 0d 24 9a 25 20 20 20 20 20 |rr% = ..$.% |
00006170 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00006180 21 65 72 72 6f 72 25 20 3d 20 39 39 0d 24 a4 59 |!error% = 99.$.Y|
00006190 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000061a0 20 20 20 20 20 24 28 65 72 72 6f 72 25 2b 34 29 | $(error%+4)|
000061b0 20 3d 20 22 59 6f 75 20 68 61 76 65 20 65 6e 74 | = "You have ent|
000061c0 65 72 65 64 20 61 20 7a 65 72 6f 20 6f 72 20 61 |ered a zero or a|
000061d0 6e 20 69 6e 76 61 6c 69 64 20 61 6d 6f 75 6e 74 |n invalid amount|
000061e0 20 21 21 21 22 0d 24 ae 41 20 20 20 20 20 20 20 | !!!".$.A |
000061f0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c8 99 | ..|
00006200 20 22 57 69 6d 70 5f 52 65 70 6f 72 74 45 72 72 | "Wimp_ReportErr|
00006210 6f 72 22 2c 65 72 72 6f 72 25 2c 30 2c 22 21 42 |or",error%,0,"!B|
00006220 61 6e 6b 65 72 22 0d 24 b8 23 20 20 20 20 20 20 |anker".$.# |
00006230 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 cc | .|
00006240 20 65 72 72 25 20 3d 20 a3 0d 24 c2 1a 20 20 20 | err% = ..$.. |
00006250 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00006260 20 20 cd 0d 24 cc 14 20 20 20 20 20 20 20 20 20 | ..$.. |
00006270 20 20 20 20 20 20 cd 0d 24 d6 14 20 20 20 20 20 | ..$.. |
00006280 20 20 20 20 20 20 20 20 20 20 cd 0d 24 e0 29 20 | ..$.) |
00006290 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e7 20 | . |
000062a0 65 6e 74 72 79 25 28 6d 6f 6e 74 68 25 29 3e 31 |entry%(month%)>1|
000062b0 30 30 20 8c 0d 24 ea 1e 20 20 20 20 20 20 20 20 |00 ..$.. |
000062c0 20 20 20 20 20 20 20 20 20 20 65 72 72 25 20 3d | err% =|
000062d0 20 b9 0d 24 f4 22 20 20 20 20 20 20 20 20 20 20 | ..$." |
000062e0 20 20 20 20 20 20 20 20 21 65 72 72 6f 72 25 20 | !error% |
000062f0 3d 20 39 39 0d 24 fe 6f 20 20 20 20 20 20 20 20 |= 99.$.o |
00006300 20 20 20 20 20 20 20 20 20 20 24 28 65 72 72 6f | $(erro|
00006310 72 25 2b 34 29 20 3d 20 22 59 6f 75 20 68 61 76 |r%+4) = "You hav|
00006320 65 20 65 78 63 65 65 64 65 64 20 74 68 65 20 6d |e exceeded the m|
00006330 61 78 69 6d 75 6d 20 6e 75 6d 62 65 72 20 6f 66 |aximum number of|
00006340 20 65 6e 74 72 69 65 73 20 61 6c 6c 6f 77 65 64 | entries allowed|
00006350 20 66 6f 72 20 6f 6e 65 20 6d 6f 6e 74 68 20 21 | for one month !|
00006360 21 21 22 0d 25 08 3e 20 20 20 20 20 20 20 20 20 |!!".%.> |
00006370 20 20 20 20 20 20 20 20 20 c8 99 20 22 57 69 6d | .. "Wim|
00006380 70 5f 52 65 70 6f 72 74 45 72 72 6f 72 22 2c 65 |p_ReportError",e|
00006390 72 72 6f 72 25 2c 30 2c 22 21 42 61 6e 6b 65 72 |rror%,0,"!Banker|
000063a0 22 0d 25 12 04 0d 25 1c 14 20 20 20 20 20 20 20 |".%...%.. |
000063b0 20 20 20 20 20 20 20 20 cd 0d 25 26 1d 20 20 20 | ..%&. |
000063c0 20 20 20 20 20 20 20 20 20 20 20 20 e7 20 ac 20 | . . |
000063d0 65 72 72 25 20 8c 0d 25 30 2e 20 20 20 20 20 20 |err% ..%0. |
000063e0 20 20 20 20 20 20 20 20 20 20 20 20 e7 20 68 61 | . ha|
000063f0 6e 64 25 20 3d 20 41 6d 65 6e 64 25 20 f2 64 65 |nd% = Amend% .de|
00006400 6c 65 74 65 0d 25 3a 3a 20 20 20 20 20 20 20 20 |lete.%:: |
00006410 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 24 28 | name$(|
00006420 65 6e 74 72 79 25 28 6d 6f 6e 74 68 25 29 2c 6d |entry%(month%),m|
00006430 6f 6e 74 68 25 29 20 3d 20 6e 61 6d 65 24 0d 25 |onth%) = name$.%|
00006440 44 28 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |D( |
00006450 20 20 20 20 e7 20 bb 28 61 6d 6f 75 6e 74 24 29 | . .(amount$)|
00006460 20 3e 20 30 20 8c 0d 25 4e 50 20 20 20 20 20 20 | > 0 ..%NP |
00006470 20 20 20 20 20 20 20 20 20 20 20 20 61 6d 6f 75 | amou|
00006480 6e 74 25 28 65 6e 74 72 79 25 28 6d 6f 6e 74 68 |nt%(entry%(month|
00006490 25 29 2c 6d 6f 6e 74 68 25 29 20 3d 20 28 bb 28 |%),month%) = (.(|
000064a0 61 6d 6f 75 6e 74 24 29 2b 2e 30 30 35 29 2a 31 |amount$)+.005)*1|
000064b0 30 30 2a 73 67 25 0d 25 58 17 20 20 20 20 20 20 |00*sg%.%X. |
000064c0 20 20 20 20 20 20 20 20 20 20 20 20 cc 0d 25 62 | ..%b|
000064d0 50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |P |
000064e0 20 20 20 61 6d 6f 75 6e 74 25 28 65 6e 74 72 79 | amount%(entry|
000064f0 25 28 6d 6f 6e 74 68 25 29 2c 6d 6f 6e 74 68 25 |%(month%),month%|
00006500 29 20 3d 20 28 bb 28 61 6d 6f 75 6e 74 24 29 2d |) = (.(amount$)-|
00006510 2e 30 30 35 29 2a 31 30 30 2a 73 67 25 0d 25 6c |.005)*100*sg%.%l|
00006520 17 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00006530 20 20 20 cd 0d 25 76 04 0d 25 80 37 20 20 20 20 | ..%v..%.7 |
00006540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 61 | da|
00006550 74 65 25 28 65 6e 74 72 79 25 28 6d 6f 6e 74 68 |te%(entry%(month|
00006560 25 29 2c 6d 6f 6e 74 68 25 29 20 3d 20 64 25 0d |%),month%) = d%.|
00006570 25 8a 27 20 20 20 20 20 20 20 20 20 20 20 20 20 |%.' |
00006580 20 20 20 20 20 65 6e 74 72 79 25 28 6d 6f 6e 74 | entry%(mont|
00006590 68 25 29 2b 3d 31 0d 25 94 24 20 20 20 20 20 20 |h%)+=1.%.$ |
000065a0 20 20 20 20 20 20 20 20 20 20 20 20 f2 65 6e 74 | .ent|
000065b0 65 72 28 6d 6f 6e 74 68 25 29 0d 25 9e 2a 20 20 |er(month%).%.* |
000065c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000065d0 73 65 6c 65 63 74 25 3d 2d 31 3a 73 68 61 64 65 |select%=-1:shade|
000065e0 64 25 3d b9 0d 25 a8 2a 20 20 20 20 20 20 20 20 |d%=..%.* |
000065f0 20 20 20 20 20 20 20 20 20 20 f2 72 65 64 72 61 | .redra|
00006600 77 28 4d 61 69 6e 57 69 6e 64 6f 77 25 29 0d 25 |w(MainWindow%).%|
00006610 b2 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.> |
00006620 20 20 20 20 e7 20 42 25 20 3c 3e 20 31 20 84 20 | . B% <> 1 . |
00006630 68 61 6e 64 25 20 3d 20 41 6d 65 6e 64 25 20 f2 |hand% = Amend% .|
00006640 63 6c 6f 73 65 28 68 61 6e 64 25 29 0d 25 bc 14 |close(hand%).%..|
00006650 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 cd | .|
00006660 0d 25 c6 05 e1 0d 25 d0 04 0d 25 da 0b dd f2 65 |.%....%...%....e|
00006670 72 72 6f 72 0d 25 e4 28 20 20 20 20 20 20 20 20 |rror.%.( |
00006680 20 20 20 20 20 20 20 20 20 20 c8 99 20 22 48 6f | .. "Ho|
00006690 75 72 67 6c 61 73 73 5f 4f 66 66 22 0d 25 ee 22 |urglass_Off".%."|
000066a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000066b0 20 20 21 65 72 72 6f 72 25 20 3d 20 39 39 0d 25 | !error% = 99.%|
000066c0 f8 4b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.K |
000066d0 20 20 20 20 24 28 65 72 72 6f 72 25 2b 34 29 20 | $(error%+4) |
000066e0 3d 20 f6 24 20 2b 20 22 20 28 49 6e 74 65 72 6e |= .$ + " (Intern|
000066f0 61 6c 20 65 72 72 6f 72 20 63 6f 64 65 20 22 2b |al error code "+|
00006700 c3 9e 2b 22 29 22 2b bd 30 0d 26 02 3e 20 20 20 |..+")"+.0.&.> |
00006710 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c8 | .|
00006720 99 20 22 57 69 6d 70 5f 52 65 70 6f 72 74 45 72 |. "Wimp_ReportEr|
00006730 72 6f 72 22 2c 65 72 72 6f 72 25 2c 30 2c 22 21 |ror",error%,0,"!|
00006740 42 61 6e 6b 65 72 22 0d 26 0c 05 e1 0d 26 16 05 |Banker".&....&..|
00006750 3a 0d 26 20 0d dd f2 64 72 61 67 62 6f 78 0d 26 |:.& ...dragbox.&|
00006760 2a 18 21 62 6c 6f 63 6b 25 20 3d 20 53 61 76 65 |*.!block% = Save|
00006770 5f 57 69 6e 64 25 0d 26 34 24 c8 99 20 22 57 69 |_Wind%.&4$.. "Wi|
00006780 6d 70 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 74 |mp_GetWindowStat|
00006790 65 22 2c 2c 62 6c 6f 63 6b 25 0d 26 3e 1e 6f 78 |e",,block%.&>.ox|
000067a0 25 20 3d 20 62 6c 6f 63 6b 25 21 34 20 2d 20 62 |% = block%!4 - b|
000067b0 6c 6f 63 6b 25 21 32 30 0d 26 48 1f 6f 79 25 20 |lock%!20.&H.oy% |
000067c0 3d 20 62 6c 6f 63 6b 25 21 31 36 20 2d 20 62 6c |= block%!16 - bl|
000067d0 6f 63 6b 25 21 32 34 0d 26 52 10 62 6c 6f 63 6b |ock%!24.&R.block|
000067e0 25 21 34 20 3d 20 33 0d 26 5c 22 c8 99 20 22 57 |%!4 = 3.&\".. "W|
000067f0 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 |imp_GetIconState|
00006800 22 2c 2c 62 6c 6f 63 6b 25 0d 26 66 18 21 62 6c |",,block%.&f.!bl|
00006810 6f 63 6b 25 20 3d 20 53 61 76 65 5f 57 69 6e 64 |ock% = Save_Wind|
00006820 25 0d 26 70 10 62 6c 6f 63 6b 25 21 34 20 3d 20 |%.&p.block%!4 = |
00006830 35 0d 26 7a 1b 62 6c 6f 63 6b 25 21 38 20 3d 20 |5.&z.block%!8 = |
00006840 6f 78 25 2b 62 6c 6f 63 6b 25 21 38 0d 26 84 1d |ox%+block%!8.&..|
00006850 62 6c 6f 63 6b 25 21 31 32 20 3d 20 6f 79 25 2b |block%!12 = oy%+|
00006860 62 6c 6f 63 6b 25 21 31 32 0d 26 8e 1d 62 6c 6f |block%!12.&..blo|
00006870 63 6b 25 21 31 36 20 3d 20 6f 78 25 2b 62 6c 6f |ck%!16 = ox%+blo|
00006880 63 6b 25 21 31 36 0d 26 98 1d 62 6c 6f 63 6b 25 |ck%!16.&..block%|
00006890 21 32 30 20 3d 20 6f 79 25 2b 62 6c 6f 63 6b 25 |!20 = oy%+block%|
000068a0 21 32 30 0d 26 a2 1f 62 6c 6f 63 6b 25 21 32 34 |!20.&..block%!24|
000068b0 20 3d 20 30 3a 62 6c 6f 63 6b 25 21 32 38 20 3d | = 0:block%!28 =|
000068c0 20 30 0d 26 ac 19 62 6c 6f 63 6b 25 21 33 32 20 | 0.&..block%!32 |
000068d0 3d 20 26 37 46 46 46 46 46 46 46 0d 26 b6 19 62 |= &7FFFFFFF.&..b|
000068e0 6c 6f 63 6b 25 21 33 36 20 3d 20 26 37 46 46 46 |lock%!36 = &7FFF|
000068f0 46 46 46 46 0d 26 c0 1d c8 99 20 22 57 69 6d 70 |FFFF.&.... "Wimp|
00006900 5f 44 72 61 67 42 6f 78 22 2c 2c 62 6c 6f 63 6b |_DragBox",,block|
00006910 25 0d 26 ca 05 e1 0d 26 d4 05 3a 0d 26 de 0f dd |%.&....&..:.&...|
00006920 f2 71 75 69 63 6b 73 61 76 65 0d 26 e8 2b f2 67 |.quicksave.&.+.g|
00006930 65 74 5f 69 63 6f 6e 5f 69 6e 64 69 72 65 63 74 |et_icon_indirect|
00006940 28 53 61 76 65 5f 57 69 6e 64 25 2c 32 2c 24 66 |(Save_Wind%,2,$f|
00006950 69 6c 65 25 29 0d 26 f2 14 e7 20 a7 24 66 69 6c |ile%).&... .$fil|
00006960 65 25 2c 22 2e 22 29 20 8c 0d 26 fc 11 f2 73 61 |e%,".") ..&...sa|
00006970 76 65 28 24 66 69 6c 65 25 29 0d 27 06 05 cc 0d |ve($file%).'....|
00006980 27 10 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |'." |
00006990 20 20 20 20 20 21 65 72 72 6f 72 25 20 3d 20 39 | !error% = 9|
000069a0 39 0d 27 1a 52 20 20 20 20 20 20 20 20 20 20 20 |9.'.R |
000069b0 20 20 20 20 20 20 20 24 28 65 72 72 6f 72 25 2b | $(error%+|
000069c0 34 29 20 3d 20 22 54 6f 20 73 61 76 65 2c 20 64 |4) = "To save, d|
000069d0 72 61 67 20 74 68 65 20 69 63 6f 6e 20 74 6f 20 |rag the icon to |
000069e0 61 20 64 69 72 65 63 74 6f 72 79 20 76 69 65 77 |a directory view|
000069f0 65 72 22 0d 27 24 3e 20 20 20 20 20 20 20 20 20 |er".'$> |
00006a00 20 20 20 20 20 20 20 20 20 c8 99 20 22 57 69 6d | .. "Wim|
00006a10 70 5f 52 65 70 6f 72 74 45 72 72 6f 72 22 2c 65 |p_ReportError",e|
00006a20 72 72 6f 72 25 2c 31 2c 22 21 42 61 6e 6b 65 72 |rror%,1,"!Banker|
00006a30 22 0d 27 2e 05 cd 0d 27 38 05 e1 0d 27 42 05 3a |".'....'8...'B.:|
00006a40 0d 27 4c 0d dd f2 64 72 61 67 67 65 64 0d 27 56 |.'L...dragged.'V|
00006a50 24 c8 99 20 22 57 69 6d 70 5f 47 65 74 50 6f 69 |$.. "Wimp_GetPoi|
00006a60 6e 74 65 72 49 6e 66 6f 22 2c 2c 62 6c 6f 63 6b |nterInfo",,block|
00006a70 25 0d 27 60 19 62 6c 6f 63 6b 25 21 32 30 20 3d |%.'`.block%!20 =|
00006a80 20 62 6c 6f 63 6b 25 21 31 32 0d 27 6a 19 62 6c | block%!12.'j.bl|
00006a90 6f 63 6b 25 21 32 34 20 3d 20 62 6c 6f 63 6b 25 |ock%!24 = block%|
00006aa0 21 31 36 0d 27 74 18 62 6c 6f 63 6b 25 21 32 38 |!16.'t.block%!28|
00006ab0 20 3d 20 62 6c 6f 63 6b 25 21 30 0d 27 7e 18 62 | = block%!0.'~.b|
00006ac0 6c 6f 63 6b 25 21 33 32 20 3d 20 62 6c 6f 63 6b |lock%!32 = block|
00006ad0 25 21 34 0d 27 88 11 62 6c 6f 63 6b 25 21 33 36 |%!4.'..block%!36|
00006ae0 20 3d 20 30 0d 27 92 11 62 6c 6f 63 6b 25 21 30 | = 0.'..block%!0|
00006af0 20 3d 20 36 34 0d 27 9c 11 62 6c 6f 63 6b 25 21 | = 64.'..block%!|
00006b00 31 32 20 3d 20 30 0d 27 a6 11 62 6c 6f 63 6b 25 |12 = 0.'..block%|
00006b10 21 31 36 20 3d 20 31 0d 27 b0 14 62 6c 6f 63 6b |!16 = 1.'..block|
00006b20 25 21 34 30 20 3d 20 26 34 30 36 0d 27 ba 2b f2 |%!40 = &406.'.+.|
00006b30 67 65 74 5f 69 63 6f 6e 5f 69 6e 64 69 72 65 63 |get_icon_indirec|
00006b40 74 28 53 61 76 65 5f 57 69 6e 64 25 2c 32 2c 24 |t(Save_Wind%,2,$|
00006b50 66 69 6c 65 25 29 0d 27 c4 23 24 28 62 6c 6f 63 |file%).'.#$(bloc|
00006b60 6b 25 2b 34 34 29 20 3d 20 a4 67 65 74 6c 65 61 |k%+44) = .getlea|
00006b70 66 28 24 66 69 6c 65 25 29 0d 27 ce 37 c8 99 20 |f($file%).'.7.. |
00006b80 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 73 61 67 |"Wimp_SendMessag|
00006b90 65 22 2c 31 37 2c 62 6c 6f 63 6b 25 2c 62 6c 6f |e",17,block%,blo|
00006ba0 63 6b 25 21 32 30 2c 62 6c 6f 63 6b 25 21 32 34 |ck%!20,block%!24|
00006bb0 0d 27 d8 05 e1 0d 27 e2 05 3a 0d 27 ec 14 dd a4 |.'....'..:.'....|
00006bc0 67 65 74 6c 65 61 66 28 6e 61 6d 65 24 29 0d 27 |getleaf(name$).'|
00006bd0 f6 12 c8 95 20 a7 6e 61 6d 65 24 2c 22 2e 22 29 |.... .name$,".")|
00006be0 0d 28 00 22 20 20 20 6e 61 6d 65 24 3d c1 6e 61 |.(." name$=.na|
00006bf0 6d 65 24 2c a7 6e 61 6d 65 24 2c 22 2e 22 29 2b |me$,.name$,".")+|
00006c00 31 29 0d 28 0a 08 20 20 20 ce 0d 28 14 0f 3d 6e |1).(.. ..(..=n|
00006c10 61 6d 65 24 2b bd 28 30 29 0d 28 1e 05 3a 0d 28 |ame$+.(0).(..:.(|
00006c20 28 0e dd f2 64 61 74 61 73 61 76 65 0d 28 32 0b |(...datasave.(2.|
00006c30 ea 20 61 25 2c 62 25 0d 28 3c 12 66 69 6c 65 6e |. a%,b%.(<.filen|
00006c40 61 6d 65 24 20 3d 20 22 22 0d 28 46 0a 61 25 20 |ame$ = "".(F.a% |
00006c50 3d 20 30 0d 28 50 17 62 25 20 3d 20 62 6c 6f 63 |= 0.(P.b% = bloc|
00006c60 6b 25 3f 28 34 34 2b 61 25 29 0d 28 5a 0c c8 95 |k%?(44+a%).(Z...|
00006c70 20 62 25 3c 3e 30 0d 28 64 17 20 20 20 66 69 6c | b%<>0.(d. fil|
00006c80 65 6e 61 6d 65 24 2b 3d bd 28 62 25 29 0d 28 6e |ename$+=.(b%).(n|
00006c90 0c 20 20 20 61 25 2b 3d 31 0d 28 78 1a 20 20 20 |. a%+=1.(x. |
00006ca0 62 25 20 3d 20 62 6c 6f 63 6b 25 3f 28 34 34 2b |b% = block%?(44+|
00006cb0 61 25 29 0d 28 82 05 ce 0d 28 8c 14 f2 73 61 76 |a%).(....(...sav|
00006cc0 65 28 66 69 6c 65 6e 61 6d 65 24 29 0d 28 96 14 |e(filename$).(..|
00006cd0 e7 20 62 6c 6f 63 6b 25 21 33 36 3e 2d 31 20 8c |. block%!36>-1 .|
00006ce0 0d 28 a0 14 24 66 69 6c 65 25 3d 66 69 6c 65 6e |.(..$file%=filen|
00006cf0 61 6d 65 24 0d 28 aa 2b f2 73 65 74 5f 69 63 6f |ame$.(.+.set_ico|
00006d00 6e 5f 69 6e 64 69 72 65 63 74 28 53 61 76 65 5f |n_indirect(Save_|
00006d10 57 69 6e 64 25 2c 32 2c 24 66 69 6c 65 25 29 0d |Wind%,2,$file%).|
00006d20 28 b4 05 cd 0d 28 be 18 62 6c 6f 63 6b 25 21 31 |(....(..block%!1|
00006d30 32 20 3d 20 62 6c 6f 63 6b 25 21 38 0d 28 c8 11 |2 = block%!8.(..|
00006d40 62 6c 6f 63 6b 25 21 31 36 20 3d 20 33 0d 28 d2 |block%!16 = 3.(.|
00006d50 11 21 62 6c 6f 63 6b 25 20 3d 20 32 35 36 0d 28 |.!block% = 256.(|
00006d60 dc 37 c8 99 20 22 57 69 6d 70 5f 53 65 6e 64 4d |.7.. "Wimp_SendM|
00006d70 65 73 73 61 67 65 22 2c 31 38 2c 62 6c 6f 63 6b |essage",18,block|
00006d80 25 2c 62 6c 6f 63 6b 25 21 32 30 2c 62 6c 6f 63 |%,block%!20,bloc|
00006d90 6b 25 21 32 34 0d 28 e6 05 e1 0d 28 f0 05 3a 0d |k%!24.(....(..:.|
00006da0 28 fa 0b dd f2 63 6c 65 61 72 0d 29 04 15 c8 99 |(....clear.)....|
00006db0 20 22 48 6f 75 72 67 6c 61 73 73 5f 4f 6e 22 0d | "Hourglass_On".|
00006dc0 29 0e 0e 73 61 76 65 64 25 20 3d 20 b9 0d 29 18 |)..saved% = ..).|
00006dd0 2c 66 69 6c 65 6e 61 6d 65 24 20 3d 20 22 41 63 |,filename$ = "Ac|
00006de0 63 6f 75 6e 74 22 3a 24 66 69 6c 65 25 20 3d 20 |count":$file% = |
00006df0 22 41 63 63 6f 75 6e 74 22 0d 29 22 1e 79 65 61 |"Account".)".yea|
00006e00 72 25 20 3d 20 28 28 a4 74 6f 64 61 79 20 3e 3e |r% = ((.today >>|
00006e10 38 29 81 20 31 32 29 0d 29 2c 11 79 65 61 72 70 |8). 12).),.yearp|
00006e20 6c 75 73 25 20 3d 20 30 0d 29 36 1f 6d 6f 6e 74 |lus% = 0.)6.mont|
00006e30 68 25 20 3d 20 28 28 a4 74 6f 64 61 79 20 3e 3e |h% = ((.today >>|
00006e40 38 29 83 20 31 32 29 0d 29 40 17 64 61 79 25 20 |8). 12).)@.day% |
00006e50 3d 20 a4 74 6f 64 61 79 20 80 20 32 35 35 0d 29 |= .today . 255.)|
00006e60 4a 04 0d 29 54 15 e3 20 63 6f 75 6e 74 25 20 3d |J..)T.. count% =|
00006e70 20 30 20 b8 20 35 39 0d 29 5e 27 62 61 6c 61 6e | 0 . 59.)^'balan|
00006e80 63 65 25 28 63 6f 75 6e 74 25 29 3d 30 3a 65 6e |ce%(count%)=0:en|
00006e90 74 72 79 25 28 63 6f 75 6e 74 25 29 3d 30 0d 29 |try%(count%)=0.)|
00006ea0 68 17 e3 20 63 6f 75 6e 74 32 25 20 3d 20 30 20 |h.. count2% = 0 |
00006eb0 b8 20 31 30 30 0d 29 72 4e 6e 61 6d 65 24 28 63 |. 100.)rNname$(c|
00006ec0 6f 75 6e 74 32 25 2c 63 6f 75 6e 74 25 29 3d 22 |ount2%,count%)="|
00006ed0 22 3a 61 6d 6f 75 6e 74 25 28 63 6f 75 6e 74 32 |":amount%(count2|
00006ee0 25 2c 63 6f 75 6e 74 25 29 3d 30 3a 64 61 74 65 |%,count%)=0:date|
00006ef0 25 28 63 6f 75 6e 74 32 25 2c 63 6f 75 6e 74 25 |%(count2%,count%|
00006f00 29 3d 30 0d 29 7c 05 ed 0d 29 86 05 ed 0d 29 90 |)=0.)|...)....).|
00006f10 50 f2 73 65 74 5f 69 63 6f 6e 5f 69 6e 64 69 72 |P.set_icon_indir|
00006f20 65 63 74 28 4d 61 69 6e 57 69 6e 64 6f 77 25 2c |ect(MainWindow%,|
00006f30 30 2c 6d 6f 6e 74 68 24 28 6d 6f 6e 74 68 25 20 |0,month$(month% |
00006f40 83 20 31 32 29 2b 22 20 22 2b c3 28 79 65 61 72 |. 12)+" "+.(year|
00006f50 25 2b 79 65 61 72 70 6c 75 73 25 29 29 0d 29 9a |%+yearplus%)).).|
00006f60 16 c8 99 20 22 48 6f 75 72 67 6c 61 73 73 5f 4f |... "Hourglass_O|
00006f70 66 66 22 0d 29 a4 05 e1 0d 29 ae 05 3a 0d 29 b8 |ff".)....)..:.).|
00006f80 11 dd f2 6c 6f 61 64 28 6e 61 6d 65 24 29 0d 29 |...load(name$).)|
00006f90 c2 15 c8 99 20 22 48 6f 75 72 67 6c 61 73 73 5f |.... "Hourglass_|
00006fa0 4f 6e 22 0d 29 cc 0c 65 72 72 25 20 3d 20 a3 0d |On".)..err% = ..|
00006fb0 29 d6 17 f2 63 6c 6f 73 65 28 4d 61 69 6e 57 69 |)...close(MainWi|
00006fc0 6e 64 6f 77 25 29 0d 29 e0 17 f4 20 4c 4f 41 44 |ndow%).)... LOAD|
00006fd0 20 52 4f 55 54 49 4e 45 20 48 45 52 45 0d 29 ea | ROUTINE HERE.).|
00006fe0 0a f2 63 6c 65 61 72 0d 29 f4 0f 42 20 3d 20 8e |..clear.)..B = .|
00006ff0 20 6e 61 6d 65 24 0d 29 fe 0e e8 23 42 2c 20 79 | name$.)...#B, y|
00007000 65 61 72 25 0d 2a 08 2a 79 65 61 72 70 6c 75 73 |ear%.*.*yearplus|
00007010 25 20 3d 20 28 28 a4 74 6f 64 61 79 20 3e 3e 38 |% = ((.today >>8|
00007020 29 81 20 31 32 29 20 2d 20 79 65 61 72 25 0d 2a |). 12) - year%.*|
00007030 12 1f 6d 6f 6e 74 68 25 20 3d 20 28 28 a4 74 6f |..month% = ((.to|
00007040 64 61 79 20 3e 3e 38 29 83 20 31 32 29 0d 2a 1c |day >>8). 12).*.|
00007050 36 20 20 20 20 20 20 20 20 20 6d 6f 6e 74 68 25 |6 month%|
00007060 20 3d 20 28 6d 6f 6e 74 68 25 20 83 20 31 32 29 | = (month% . 12)|
00007070 20 2b 20 28 79 65 61 72 70 6c 75 73 25 20 2a 20 | + (yearplus% * |
00007080 31 32 29 0d 2a 26 22 e7 20 79 65 61 72 70 6c 75 |12).*&". yearplu|
00007090 73 25 3e 34 20 84 20 79 65 61 72 70 6c 75 73 25 |s%>4 . yearplus%|
000070a0 20 3c 30 20 8c 0d 2a 30 28 20 20 20 20 20 20 20 | <0 ..*0( |
000070b0 20 20 20 20 20 20 20 20 20 20 20 c8 99 20 22 48 | .. "H|
000070c0 6f 75 72 67 6c 61 73 73 5f 4f 66 66 22 0d 2a 3a |ourglass_Off".*:|
000070d0 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
000070e0 20 20 20 21 65 72 72 6f 72 25 20 3d 20 39 39 0d | !error% = 99.|
000070f0 2a 44 58 20 20 20 20 20 20 20 20 20 20 20 20 20 |*DX |
00007100 20 20 20 20 20 24 28 65 72 72 6f 72 25 2b 34 29 | $(error%+4)|
00007110 20 3d 20 22 54 68 69 73 20 69 73 20 61 6e 20 69 | = "This is an i|
00007120 6e 76 61 6c 69 64 20 6f 72 20 6f 75 74 20 6f 66 |nvalid or out of|
00007130 20 64 61 74 65 20 41 63 63 6f 75 6e 74 20 66 69 | date Account fi|
00007140 6c 65 20 21 21 21 22 0d 2a 4e 3e 20 20 20 20 20 |le !!!".*N> |
00007150 20 20 20 20 20 20 20 20 20 20 20 20 20 c8 99 20 | .. |
00007160 22 57 69 6d 70 5f 52 65 70 6f 72 74 45 72 72 6f |"Wimp_ReportErro|
00007170 72 22 2c 65 72 72 6f 72 25 2c 31 2c 22 21 42 61 |r",error%,1,"!Ba|
00007180 6e 6b 65 72 22 0d 2a 58 1e 20 20 20 20 20 20 20 |nker".*X. |
00007190 20 20 20 20 20 20 20 20 20 20 20 65 72 72 25 20 | err% |
000071a0 3d 20 b9 0d 2a 62 1a 20 20 20 20 20 20 20 20 20 |= ..*b. |
000071b0 20 20 20 20 20 20 20 20 20 d9 20 23 42 0d 2a 6c | . #B.*l|
000071c0 04 0d 2a 76 05 cd 0d 2a 80 0e e7 20 ac 20 65 72 |..*v...*... . er|
000071d0 72 25 20 8c 0d 2a 8a 15 e3 20 63 6f 75 6e 74 25 |r% ..*... count%|
000071e0 20 3d 20 30 20 b8 20 35 39 0d 2a 94 27 e8 23 42 | = 0 . 59.*.'.#B|
000071f0 2c 62 61 6c 61 6e 63 65 25 28 63 6f 75 6e 74 25 |,balance%(count%|
00007200 29 2c 65 6e 74 72 79 25 28 63 6f 75 6e 74 25 29 |),entry%(count%)|
00007210 0d 2a 9e 22 e3 20 63 6f 75 6e 74 32 25 20 3d 20 |.*.". count2% = |
00007220 30 20 b8 20 65 6e 74 72 79 25 28 63 6f 75 6e 74 |0 . entry%(count|
00007230 25 29 0d 2a a8 4c e8 23 42 20 2c 6e 61 6d 65 24 |%).*.L.#B ,name$|
00007240 28 63 6f 75 6e 74 32 25 2c 63 6f 75 6e 74 25 29 |(count2%,count%)|
00007250 2c 61 6d 6f 75 6e 74 25 28 63 6f 75 6e 74 32 25 |,amount%(count2%|
00007260 2c 63 6f 75 6e 74 25 29 2c 64 61 74 65 25 28 63 |,count%),date%(c|
00007270 6f 75 6e 74 32 25 2c 63 6f 75 6e 74 25 29 0d 2a |ount2%,count%).*|
00007280 b2 05 ed 0d 2a bc 05 ed 0d 2a c6 08 d9 20 23 42 |....*....*... #B|
00007290 0d 2a d0 50 f2 73 65 74 5f 69 63 6f 6e 5f 69 6e |.*.P.set_icon_in|
000072a0 64 69 72 65 63 74 28 4d 61 69 6e 57 69 6e 64 6f |direct(MainWindo|
000072b0 77 25 2c 30 2c 6d 6f 6e 74 68 24 28 6d 6f 6e 74 |w%,0,month$(mont|
000072c0 68 25 20 83 20 31 32 29 2b 22 20 22 2b c3 28 79 |h% . 12)+" "+.(y|
000072d0 65 61 72 25 2b 79 65 61 72 70 6c 75 73 25 29 29 |ear%+yearplus%))|
000072e0 0d 2a da 16 f2 6f 70 65 6e 28 4d 61 69 6e 57 69 |.*...open(MainWi|
000072f0 6e 64 6f 77 25 29 0d 2a e4 12 24 66 69 6c 65 25 |ndow%).*..$file%|
00007300 20 3d 20 6e 61 6d 65 24 0d 2a ee 16 c8 99 20 22 | = name$.*.... "|
00007310 48 6f 75 72 67 6c 61 73 73 5f 4f 66 66 22 0d 2a |Hourglass_Off".*|
00007320 f8 05 cd 0d 2b 02 05 e1 0d 2b 0c 05 3a 0d 2b 16 |....+....+..:.+.|
00007330 15 dd f2 73 61 76 65 28 66 69 6c 65 6e 61 6d 65 |...save(filename|
00007340 24 29 0d 2b 20 26 f4 20 66 69 6c 65 6e 61 6d 65 |$).+ &. filename|
00007350 24 20 3d 20 46 4e 67 65 74 6e 61 6d 65 28 62 6c |$ = FNgetname(bl|
00007360 6f 63 6b 25 2b 34 34 29 0d 2b 2a 15 c8 99 20 22 |ock%+44).+*... "|
00007370 48 6f 75 72 67 6c 61 73 73 5f 4f 6e 22 0d 2b 34 |Hourglass_On".+4|
00007380 1b f4 20 53 41 56 45 20 52 4f 55 54 49 4e 45 20 |.. SAVE ROUTINE |
00007390 48 45 52 45 20 21 21 21 0d 2b 3e 13 42 20 3d 20 |HERE !!!.+>.B = |
000073a0 ae 20 66 69 6c 65 6e 61 6d 65 24 0d 2b 48 0e f1 |. filename$.+H..|
000073b0 23 42 2c 20 79 65 61 72 25 0d 2b 52 15 e3 20 63 |#B, year%.+R.. c|
000073c0 6f 75 6e 74 25 20 3d 20 30 20 b8 20 35 39 0d 2b |ount% = 0 . 59.+|
000073d0 5c 27 f1 23 42 2c 62 61 6c 61 6e 63 65 25 28 63 |\'.#B,balance%(c|
000073e0 6f 75 6e 74 25 29 2c 65 6e 74 72 79 25 28 63 6f |ount%),entry%(co|
000073f0 75 6e 74 25 29 0d 2b 66 22 e3 20 63 6f 75 6e 74 |unt%).+f". count|
00007400 32 25 20 3d 20 30 20 b8 20 65 6e 74 72 79 25 28 |2% = 0 . entry%(|
00007410 63 6f 75 6e 74 25 29 0d 2b 70 4c f1 23 42 20 2c |count%).+pL.#B ,|
00007420 6e 61 6d 65 24 28 63 6f 75 6e 74 32 25 2c 63 6f |name$(count2%,co|
00007430 75 6e 74 25 29 2c 61 6d 6f 75 6e 74 25 28 63 6f |unt%),amount%(co|
00007440 75 6e 74 32 25 2c 63 6f 75 6e 74 25 29 2c 64 61 |unt2%,count%),da|
00007450 74 65 25 28 63 6f 75 6e 74 32 25 2c 63 6f 75 6e |te%(count2%,coun|
00007460 74 25 29 0d 2b 7a 05 ed 0d 2b 84 05 ed 0d 2b 8e |t%).+z...+....+.|
00007470 08 d9 20 23 42 0d 2b 98 23 ff 28 22 53 45 54 54 |.. #B.+.#.("SETT|
00007480 59 50 45 20 22 2b 66 69 6c 65 6e 61 6d 65 24 2b |YPE "+filename$+|
00007490 22 20 26 34 30 36 22 29 0d 2b a2 1c c8 99 20 22 |" &406").+.... "|
000074a0 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 |Wimp_CreateMenu"|
000074b0 2c 2c 2d 31 0d 2b ac 0e 73 61 76 65 64 25 20 3d |,,-1.+..saved% =|
000074c0 20 b9 0d 2b b6 16 c8 99 20 22 48 6f 75 72 67 6c | ..+.... "Hourgl|
000074d0 61 73 73 5f 4f 66 66 22 0d 2b c0 05 e1 0d 2b ca |ass_Off".+....+.|
000074e0 05 3a 0d 2b d4 5b dc 20 4a 61 6e 75 61 72 79 2c |.:.+.[. January,|
000074f0 46 65 62 72 75 61 72 79 2c 4d 61 72 63 68 2c 41 |February,March,A|
00007500 70 72 69 6c 2c 4d 61 79 2c 4a 75 6e 65 2c 4a 75 |pril,May,June,Ju|
00007510 6c 79 2c 41 75 67 75 73 74 2c 53 65 70 74 65 6d |ly,August,Septem|
00007520 62 65 72 2c 4f 63 74 6f 62 65 72 2c 4e 6f 76 65 |ber,October,Nove|
00007530 6d 62 65 72 2c 44 65 63 65 6d 62 65 72 0d 2b de |mber,December.+.|
00007540 04 0d 2b e8 05 3a 0d 2b f2 14 dd a4 71 75 65 73 |..+..:.+....ques|
00007550 74 69 6f 6e 28 71 75 65 24 29 0d 2b fc 12 e7 20 |tion(que$).+... |
00007560 73 61 76 65 64 25 20 3d 20 a3 20 8c 0d 2c 06 1d |saved% = . ..,..|
00007570 20 20 20 20 20 20 20 20 20 20 20 20 20 21 65 72 | !er|
00007580 72 6f 72 25 20 3d 20 39 39 0d 2c 10 24 20 20 20 |ror% = 99.,.$ |
00007590 20 20 20 20 20 20 20 20 20 20 20 24 28 65 72 72 | $(err|
000075a0 6f 72 25 2b 34 29 20 3d 20 71 75 65 24 0d 2c 1a |or%+4) = que$.,.|
000075b0 47 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c8 |G .|
000075c0 99 20 22 57 69 6d 70 5f 52 65 70 6f 72 74 45 72 |. "Wimp_ReportEr|
000075d0 72 6f 72 22 2c 65 72 72 6f 72 25 2c 26 31 33 2c |ror",error%,&13,|
000075e0 22 21 42 61 6e 6b 65 72 22 20 b8 20 2c 61 6e 73 |"!Banker" . ,ans|
000075f0 77 65 72 25 0d 2c 24 1f 20 20 20 20 20 20 20 20 |wer%.,$. |
00007600 20 20 20 20 20 20 cc 20 61 6e 73 77 65 72 25 20 | . answer% |
00007610 3d 20 31 0d 2c 2e 13 20 20 20 20 20 20 20 20 20 |= 1.,.. |
00007620 20 20 20 20 20 cd 0d 2c 38 0c 3d 61 6e 73 77 65 | ..,8.=answe|
00007630 72 25 0d 2c 42 04 0d 2c 4c 11 dd a4 67 65 74 6e |r%.,B..,L...getn|
00007640 61 6d 65 28 50 25 29 0d 2c 56 09 41 24 3d 22 22 |ame(P%).,V.A$=""|
00007650 0d 2c 60 17 c8 95 20 3f 50 25 3c 3e 30 20 80 20 |.,`... ?P%<>0 . |
00007660 3f 50 25 3c 3e 31 33 0d 2c 6a 16 41 24 3d 41 24 |?P%<>13.,j.A$=A$|
00007670 2b bd 3f 50 25 3a 50 25 3d 50 25 2b 31 0d 2c 74 |+.?P%:P%=P%+1.,t|
00007680 05 ce 0d 2c 7e 07 3d 41 24 0d 2c 88 05 3a 0d 2c |...,~.=A$.,..:.,|
00007690 92 28 dd f2 73 65 74 65 78 74 65 6e 74 28 78 6d |.(..setextent(xm|
000076a0 69 6e 25 2c 79 6d 69 6e 25 2c 78 6d 61 78 25 2c |in%,ymin%,xmax%,|
000076b0 79 6d 61 78 25 29 0d 2c 9c 14 65 72 72 6f 72 25 |ymax%).,..error%|
000076c0 21 30 20 3d 20 78 6d 69 6e 25 0d 2c a6 14 65 72 |!0 = xmin%.,..er|
000076d0 72 6f 72 25 21 34 20 3d 20 79 6d 69 6e 25 0d 2c |ror%!4 = ymin%.,|
000076e0 b0 14 65 72 72 6f 72 25 21 38 20 3d 20 78 6d 61 |..error%!8 = xma|
000076f0 78 25 0d 2c ba 15 65 72 72 6f 72 25 21 31 32 20 |x%.,..error%!12 |
00007700 3d 20 79 6d 61 78 25 0d 2c c4 2a c8 99 20 22 57 |= ymax%.,.*.. "W|
00007710 69 6d 70 5f 53 65 74 45 78 74 65 6e 74 22 2c 4d |imp_SetExtent",M|
00007720 61 69 6e 57 69 6e 64 6f 77 25 2c 65 72 72 6f 72 |ainWindow%,error|
00007730 25 0d 2c ce 05 e1 0d 2c d8 05 3a 0d 2c e2 0b dd |%.,....,..:.,...|
00007740 f2 70 72 69 6e 74 0d 2c ec 1f ea 20 6c 65 66 74 |.print.,... left|
00007750 25 2c 62 6f 74 74 6f 6d 25 2c 72 69 67 68 74 25 |%,bottom%,right%|
00007760 2c 74 6f 70 25 0d 2c f6 41 ff 28 22 52 4d 45 6e |,top%.,.A.("RMEn|
00007770 73 75 72 65 20 50 44 72 69 76 65 72 20 30 20 45 |sure PDriver 0 E|
00007780 52 52 4f 52 20 32 35 35 20 4e 6f 20 50 72 69 6e |RROR 255 No Prin|
00007790 74 65 72 20 44 72 69 76 65 72 20 49 6e 73 74 61 |ter Driver Insta|
000077a0 6c 6c 65 64 22 29 0d 2d 00 15 c8 99 20 22 48 6f |lled").-.... "Ho|
000077b0 75 72 67 6c 61 73 73 5f 4f 6e 22 0d 2d 0a 15 70 |urglass_On".-..p|
000077c0 66 25 3d ae 28 22 70 72 69 6e 74 65 72 3a 22 29 |f%=.("printer:")|
000077d0 0d 2d 14 28 c8 99 20 22 50 44 72 69 76 65 72 5f |.-.(.. "PDriver_|
000077e0 53 65 6c 65 63 74 4a 6f 62 22 2c 70 66 25 2c 22 |SelectJob",pf%,"|
000077f0 42 61 6e 6b 4a 6f 62 22 0d 2d 1e 07 ea 20 85 0d |BankJob".-... ..|
00007800 2d 28 47 ee 20 85 20 ea 3a f7 20 85 3a c8 99 20 |-(G. . .:. .:.. |
00007810 22 50 44 72 69 76 65 72 5f 41 62 6f 72 74 4a 6f |"PDriver_AbortJo|
00007820 62 22 2c 70 66 25 3a d9 23 70 66 25 3a f2 65 72 |b",pf%:.#pf%:.er|
00007830 72 6f 72 3a 73 74 61 74 65 6d 65 6e 74 25 20 3d |ror:statement% =|
00007840 20 a3 20 3a 20 e1 0d 2d 32 35 c8 99 20 22 50 44 | . : ..-25.. "PD|
00007850 72 69 76 65 72 5f 50 61 67 65 53 69 7a 65 22 20 |river_PageSize" |
00007860 b8 20 6c 65 66 74 25 2c 62 6f 74 74 6f 6d 25 2c |. left%,bottom%,|
00007870 72 69 67 68 74 25 2c 74 6f 70 25 0d 2d 3c 20 f2 |right%,top%.-< .|
00007880 6f 72 69 67 69 6e 28 4d 61 69 6e 57 69 6e 64 6f |origin(MainWindo|
00007890 77 25 2c 78 30 25 2c 79 30 25 29 0d 2d 46 29 72 |w%,x0%,y0%).-F)r|
000078a0 65 63 74 25 21 30 3d 78 30 25 2d 35 30 3a 72 65 |ect%!0=x0%-50:re|
000078b0 63 74 25 21 34 3d 79 30 25 2d 66 6c 65 6e 25 2d |ct%!4=y0%-flen%-|
000078c0 31 32 34 30 0d 2d 50 21 72 65 63 74 25 21 38 3d |1240.-P!rect%!8=|
000078d0 78 30 25 2b 31 33 31 30 3a 72 65 63 74 25 21 31 |x0%+1310:rect%!1|
000078e0 32 3d 79 30 25 0d 2d 5a 21 74 72 61 6e 73 25 21 |2=y0%.-Z!trans%!|
000078f0 30 3d 31 3c 3c 31 36 3a 74 72 61 6e 73 25 21 34 |0=1<<16:trans%!4|
00007900 3d 30 3c 3c 31 36 0d 2d 64 22 74 72 61 6e 73 25 |=0<<16.-d"trans%|
00007910 21 38 3d 30 3c 3c 31 36 3a 74 72 61 6e 73 25 21 |!8=0<<16:trans%!|
00007920 31 32 3d 31 3c 3c 31 36 0d 2d 6e 11 70 6c 6f 74 |12=1<<16.-n.plot|
00007930 61 74 25 21 30 3d 78 30 25 0d 2d 78 16 70 6c 6f |at%!0=x0%.-x.plo|
00007940 74 61 74 25 21 34 3d 79 30 25 2d 32 30 38 30 0d |tat%!4=y0%-2080.|
00007950 2d 82 12 73 74 61 74 65 6d 65 6e 74 25 20 3d 20 |-..statement% = |
00007960 b9 0d 2d 8c 3f c8 99 20 22 50 44 72 69 76 65 72 |..-.?.. "PDriver|
00007970 5f 47 69 76 65 52 65 63 74 61 6e 67 6c 65 22 2c |_GiveRectangle",|
00007980 30 2c 72 65 63 74 25 2c 74 72 61 6e 73 25 2c 70 |0,rect%,trans%,p|
00007990 6c 6f 74 61 74 25 2c 26 46 46 46 46 46 46 30 30 |lotat%,&FFFFFF00|
000079a0 0d 2d 96 2f c8 99 20 22 50 44 72 69 76 65 72 5f |.-./.. "PDriver_|
000079b0 44 72 61 77 50 61 67 65 22 2c 31 2c 72 65 63 74 |DrawPage",1,rect|
000079c0 69 6e 25 2c 30 2c 30 20 b8 20 6d 6f 72 65 25 0d |in%,0,0 . more%.|
000079d0 2d a0 0c c8 95 20 6d 6f 72 65 25 0d 2d aa 0b f2 |-.... more%.-...|
000079e0 74 69 74 6c 65 73 0d 2d b4 12 f2 64 72 61 77 28 |titles.-...draw(|
000079f0 78 30 25 2c 79 30 25 29 0d 2d be 2d c8 99 20 22 |x0%,y0%).-.-.. "|
00007a00 50 44 72 69 76 65 72 5f 47 65 74 52 65 63 74 61 |PDriver_GetRecta|
00007a10 6e 67 6c 65 22 2c 72 65 63 74 69 6e 25 20 b8 20 |ngle",rectin% . |
00007a20 6d 6f 72 65 25 0d 2d c8 05 ce 0d 2d d2 1b c8 99 |more%.-....-....|
00007a30 20 22 50 44 72 69 76 65 72 5f 45 6e 64 4a 6f 62 | "PDriver_EndJob|
00007a40 22 2c 70 66 25 0d 2d dc 16 c8 99 20 22 48 6f 75 |",pf%.-.... "Hou|
00007a50 72 67 6c 61 73 73 5f 4f 66 66 22 0d 2d e6 07 f7 |rglass_Off".-...|
00007a60 20 85 0d 2d f0 09 d9 23 70 66 25 0d 2d fa 12 73 | ..-...#pf%.-..s|
00007a70 74 61 74 65 6d 65 6e 74 25 20 3d 20 a3 0d 2e 04 |tatement% = ....|
00007a80 07 ef 20 37 0d 2e 0e 05 e1 0d 2e 18 05 3a 0d 2e |.. 7.........:..|
00007a90 22 04 0d ff |"...|
00007a94 
.