Home » Archimedes archive » Archimedes World » AW-1994-02-Disc1.adf » Disk1Feb94 » !AWFeb94/Goodies/PocketM/!PocketM/!RunImage
!AWFeb94/Goodies/PocketM/!PocketM/!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-1994-02-Disc1.adf » Disk1Feb94 |
| Filename: | !AWFeb94/Goodies/PocketM/!PocketM/!RunImage |
| Read OK: | ✔ |
| File size: | A707 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10SYS "OS_GetEnv" TO env$
20IF INSTR(env$," -quit ") THEN
30fileload$=MID$(env$,INSTR(env$,CHR$(34),INSTR(env$,CHR$(34))+1)+1)
40ENDIF
50 PROCWimp_Start("PocketM",4990,3913)
60 PROCUser_SetInitialData
70 PROCCreate_Windows
80 PROCCreate_Menus
90IF fileload$<>" " THEN
100PROCEvent_LoadFile(fileload$,"file_faf")
110PROCWimp_IconPutText(Save_Window%,1,fileload$)
120ENDIF
130 PROCWimp_WaitForEvent
140 PROCWimp_CloseDown
150 END
160 :
170 DEF PROCUser_SetInitialData
180DOSAVE%=TRUE
190SA%=FALSE
200UPDATE%=FALSE
210CD%=FALSE
220PRT%=FALSE
230DIM title% 256
240PSEL%=1
250EE%=TRUE
260PASSALLOW%=FALSE
270PCOVER$="***************"
280correct%=FALSE
290PASS$="POO"
300MONEY%=0
310DD%=27
320MM%=04
330YY%=1993
340STATUS$="Save"
350COL%=TRUE
360POUNDVAL%=156
370DIM A%(15)
380total%=1
390cur%=1
400totpage%=0
410curpage%=0
420DIM AMMOUNT(999)
430DIM STATUS$(999)
440DIM DATE$(999)
450DIM WHO$(999)
460DIM CURTOT(999)
470DIM DD$(999)
480DIM MM$(999)
490DIM YY$(999)
500AMMOUNT()=0
510STATUS$()=""
520DATE$()=""
530WHO$()=""
540CURTOT()=0
550EDII%=FALSE
560 ENDPROC
570 :
580 DEF PROCCreate_Windows
590 PROCWimp_SpritesLoad
600 Info_Window%=FNWimp_WindowLoad("Info")
610 Entry_Window%=FNWimp_WindowLoad("Entry")
620 Main_Window%=FNWimp_WindowLoad("Main")
630 Delete_Window%=FNWimp_WindowLoad("Delete")
640 Options_Window%=FNWimp_WindowLoad("Options")
650 Save_Window%=FNWimp_WindowLoad("Save")
660 Password_Window%=FNWimp_WindowLoad("Password")
670 Save2_Window%=FNWimp_WindowLoad("Save2")
680 Print_Window%=FNWimp_WindowLoad("Print")
690 Close_Window%=FNWimp_WindowLoad("Close")
700 Bar_Icon%=FNWimp_IconBar("!PocketM")
710PROCWimp_IconPutText(Options_Window%,3,"")
720PROCresetentry
730 ENDPROC
740 :
750 DEF FNEvent_Save(window%)
760 CASE window% OF
770 WHEN Save_Window% :=TRUE
780 WHEN Save2_Window% : =TRUE
790 OTHERWISE :=FALSE
800 ENDCASE
810 :
820 DEF FNEvent_Sprites(window%)=sprites%
830 :
840 DEF PROCCreate_Menus
850 Save_Menu%=FNWimp_MenuCreate("Save\Pocket>Save_Window%\Text>Save2_Window%")
860 Bar_Menu%=FNWimp_MenuCreate("PocketM\Info>Info_Window%\Password>Options_Window%\Save>Save_Menu%\Clear Data\Quit")
870 Main_Menu%=FNWimp_MenuCreate("PocketM\Start\Back\Print\Add\Delete\Next\End")
880PROCWimp_MenuDisable(Bar_Menu%,3)
890PROCWimp_MenuDottedLine(Bar_Menu%,1)
900PROCWimp_MenuDottedLine(Bar_Menu%,3)
910PROCWimp_MenuDottedLine(Bar_Menu%,4)
920PROCWimp_MenuDottedLine(Main_Menu%,2)
930PROCWimp_MenuDottedLine(Main_Menu%,5)
940 ENDPROC
950 :
960 DEF FNEvent_Menu(window%)
970 CASE window% OF
980 WHEN Bar_Window% : =Bar_Menu%
990 WHEN Main_Window% : =Main_Menu%
1000 OTHERWISE : =FALSE
1010 ENDCASE
1020 :
1030 DEF PROCEvent_WindowClose(window%,buttons%)
1040 CASE window% OF
1050 WHEN Entry_Window% : PROCWimp_WindowBringToTop(Main_Window%)
1060 ENDCASE
1070 ENDPROC
1080 :
1090 DEF PROCEvent_Draw(window%,x_origin%,y_origin%)
1100 CASE window% OF
1110 WHEN Info_Window% : PROCUser_DrawInfoWindow
1120 ENDCASE
1130 ENDPROC
1140 :
1150 DEF PROCUser_DrawInfoWindow
1160 ENDPROC
1170 :
1180 DEF PROCEvent_MouseClick(window%,icon%,button%,x%,y%)
1190 CASE window% OF
1200 WHEN Bar_Window% : PROCUser_MouseBar
1210 WHEN Info_Window% : PROCUser_MouseInfo( button%,icon%)
1220 WHEN Entry_Window% : PROCUser_MouseEntry( button%,icon%)
1230 WHEN Main_Window% : PROCUser_MouseMain( button%,icon%)
1240 WHEN Delete_Window% : PROCUser_MouseDelete( button%,icon%)
1250 WHEN Options_Window% : PROCUser_MouseOptions( button%,icon%)
1260 WHEN Print_Window% : PROCUser_MousePrint( button%,icon%)
1270 WHEN Close_Window% : PROCUser_MouseClose( button%,icon%)
1280 ENDCASE
1290 ENDPROC
1300 :
1310 DEF PROCUser_MouseClose( button%,icon%)
1320 IF icon%=1 THEN
1330SA%=TRUE
1340PROCunbox
1350PROCWimp_WindowClose(Close_Window%)
1360UPDATE%=FALSE
1370PROCWimp_WindowBringToTop(Save_Window%)
1380A$=FNWimp_IconText(Save_Window%,1)
1390PROCWimp_IconCaret(Save_Window%,1,LEN(A$))
1400ENDIF
1410 IF icon%=2 THEN
1420PROCunbox
1430UPDATE%=FALSE
1440PROCWimp_WindowClose(Close_Window%)
1450CD%=TRUE
1460ENDIF
1470 IF icon%=3 THEN
1480PROCunbox
1490PROCWimp_WindowClose(Close_Window%)
1500ENDIF
1510IF CD%=TRUE THEN PROCWimp_CloseDown
1520ENDPROC
1530 DEF PROCUser_MouseBar
1540 PROCWimp_WindowBringToTop(Main_Window%)
1550 ENDPROC
1560 :
1570 DEF PROCUser_MousePrint( button%,icon%)
1580 IF icon%=5 THEN PROCpdsel:PSEL%=1:PROCpsel
1590 IF icon%=6 THEN PROCpdsel:PSEL%=2:PROCpsel
1600 IF icon%=7 THEN PROCpdsel:PSEL%=3:PROCpsel
1610 IF icon%=4 AND PRT%=TRUE THEN
1620 IF PSEL%=1 THEN
1630 PROCprint
1640 ENDIF
1650 IF PSEL%=2 THEN
1660 A=VAL(FNWimp_IconText(Print_Window%,8))
1670 IF (A-1)<(totpage%+1) AND (A-1)>-1 THEN
1680 PROCprint
1690 ENDIF
1700 ENDIF
1710 IF PSEL%=3 THEN
1720 A=VAL(FNWimp_IconText(Print_Window%,9))
1730 B=VAL(FNWimp_IconText(Print_Window%,11))
1740 IF (A-1)>-1 AND (B-1)<(total%-1) THEN
1750 PROCprint
1760 ENDIF
1770 ENDIF
1780 ENDIF
1790 ENDPROC
1800 :
1810 DEF PROCUser_MouseInfo( button%,icon%)
1820 ENDPROC
1830 :
1840 DEF PROCUser_MouseEntry( button%,icon%)
1850 IF icon%=7 AND STATUS$="Spend" THEN STATUS$="Save":PROCWimp_IconPutText(Entry_Window%,3,STATUS$):PROCWimp_IconEnable(Entry_Window%,16)
1860 IF icon%=8 AND STATUS$="Save" THEN
1870STATUS$="Spend"
1880PROCWimp_IconPutText(Entry_Window%,3,STATUS$)
1890PROCWimp_IconDisable(Entry_Window%,16)
1900PROCWimp_IconPutText(Entry_Window%,16,"")
1910A$=FNWimp_IconText(Entry_Window%,5)
1920PROCWimp_IconCaret(Entry_Window%,5,LEN(A$))
1930ENDIF
1940 IF icon%=18 THEN PROCWimp_WindowClose(Entry_Window%):PROCresetentry
1950 IF icon%=17 THEN
1960IF EE%=TRUE THEN
1970A$=FNWimp_IconText(Entry_Window%,5)
1980IF A$<>"" AND A$<>"." AND VAL(A$)<>0 THEN
1990PROCread
2000PROCinput
2010ENDIF
2020ELSE
2030A$=FNWimp_IconText(Entry_Window%,5)
2040IF A$<>"" AND A$<>"." AND VAL(A$)<>0 THEN
2050 AMMOUNT(AABB)=VAL(FNWimp_IconText(Entry_Window%,5))
2060 STATUS$(AABB)=STATUS$
2070 DATE$(AABB)=FNWimp_IconText(Entry_Window%,11)+"/"+FNWimp_IconText(Entry_Window%,12)+"/"+FNWimp_IconText(Entry_Window%,13)
2080 DD$(AABB)=FNWimp_IconText(Entry_Window%,11)
2090 MM$(AABB)=FNWimp_IconText(Entry_Window%,12)
2100 YY$(AABB)=FNWimp_IconText(Entry_Window%,13)
2110 WHO$(AABB)=FNWimp_IconText(Entry_Window%,16)
2120 UPDATE%=TRUE
2130 PROCrecalc
2140 PROCinput
2150ENDIF
2160ENDIF
2170IF total%>1 THEN PROCWimp_MenuEnable(Bar_Menu%,3)
2180REMPROCWimp_WindowClose(Entry_Window%)
2190PROCresetentry
2200PROCcutdate
2210PROCWimp_IconCaret(Entry_Window%,5,0)
2220ENDIF
2230 ENDPROC
2240 :
2250 DEF PROCUser_MouseMain( button%,icon%)
2260 IF icon%>70 AND icon%<85 THEN icon%-=70
2270 IF icon%>16 AND icon%<31 THEN icon%-=16
2280 IF icon%>31 AND icon%<46 THEN icon%-=31
2290 IF icon%>45 AND icon%<57 THEN icon%-=45
2300 IF icon%>85 AND icon%<100 THEN icon%-=85
2310 IF icon%>0 AND icon%<15 THEN
2320 A=(curpage%*14)+icon%
2330 IF A<total% AND A>0 THEN
2340 PROCWimp_WindowBringToTop(Entry_Window%)
2350 PROCWimp_IconPutText(Entry_Window%,5,STR$(AMMOUNT(A)))
2360 PROCWimp_IconCaret(Entry_Window%,5,LEN(STR$(AMMOUNT(A))))
2370 PROCWimp_IconCaret(Entry_Window%,5,LEN(STR$(AMMOUNT(A))))
2380 PROCWimp_IconPutText(Entry_Window%,3,STATUS$(A))
2390 UPDATE%=TRUE
2400 STATUS$=STATUS$(A)
2410 IF STATUS$(A)="Spend" THEN PROCWimp_IconDisable(Entry_Window%,16) ELSE PROCWimp_IconEnable(Entry_Window%,16)
2420 PROCWimp_IconPutText(Entry_Window%,11,DD$(A))
2430 PROCWimp_IconPutText(Entry_Window%,12,MM$(A))
2440 PROCWimp_IconPutText(Entry_Window%,13,YY$(A))
2450 PROCWimp_IconPutText(Entry_Window%,16,WHO$(A))
2460 EE%=FALSE
2470 AABB=A
2480 ENDIF
2490 ENDIF
2500 IF icon%=66 AND total%>1 THEN PROCopenprinter:PROCWimp_WindowBringToTop(Print_Window%):PROCpsel
2510 IF icon%=67 AND total%>1 THEN PROCWimp_WindowBringToTop(Delete_Window%):PROCWimp_IconCaret(Delete_Window%,3,0)
2520 IF icon%=15 THEN
2530PROCcutdate
2540EE%=TRUE
2550PROCWimp_WindowBringToTop(Entry_Window%)
2560 PROCWimp_IconPutText(Entry_Window%,5,"")
2570 PROCWimp_IconPutText(Entry_Window%,3,"Save")
2580 STATUS$="Save"
2590 PROCWimp_IconEnable(Entry_Window%,16)
2600PROCWimp_IconCaret(Entry_Window%,5,0)
2610ENDIF
2620 IF icon%=62 AND curpage%>0 THEN curpage%-=1:PROCinput
2630 IF icon%=61 AND curpage%<totpage% THEN curpage%+=1:PROCinput
2640 IF icon%=64 AND curpage%>0 THEN curpage%=0:PROCinput
2650 IF icon%=63 AND curpage%<totpage% THEN curpage%=totpage%:PROCinput
2660 ENDPROC
2670 :
2680 DEF PROCUser_MouseDelete( button%,icon%)
2690 IF icon%=4 THEN
2700NUM$=FNWimp_IconText(Delete_Window%,3)
2710IF NUM$<>"" AND VAL(NUM$)<total% AND VAL(NUM$)>0 THEN
2720do%=FNWimp_WindowCancel("Delete","Are you sure you want to delete number "+NUM$+" ?")
2730IF do%=FALSE THEN
2740PROCWimp_IconPutText(Delete_Window%,3,"")
2750PROCWimp_IconCaret(Delete_Window%,3,0)
2760REMPROCWimp_WindowClose(Delete_Window%)
2770ENDIF
2780
2790IF do%=TRUE THEN
2800IF VAL(NUM$)>0 AND VAL(NUM$)<total% THEN
2810UPDATE%=TRUE
2820cur%=VAL(NUM$)
2830IF cur%=total% THEN total%-=1
2840
2850IF cur%<total% THEN
2860FOR A=VAL(NUM$) TO total%
2870AMMOUNT(A)=AMMOUNT(A+1)
2880STATUS$(A)=STATUS$(A+1)
2890DATE$(A)=DATE$(A+1)
2900WHO$(A)=WHO$(A+1)
2910CURTOT(A)=CURTOT(A+1)
2920NEXT A
2930total%-=1
2940ENDIF
2950
2960IF (total%-1)/15<totpage% THEN
2970totpage%-=1
2980IF totpage%>curpage% THEN curpage%-=1
2990ENDIF
3000
3010PROCpage
3020PROCrecalc
3030PROCinput
3040ENDIF
3050PROCWimp_IconPutText(Delete_Window%,3,"")
3060PROCWimp_IconCaret(Delete_Window%,3,0)
3070REMPROCWimp_WindowClose(Delete_Window%)
3080IF total%=1 THEN PROCWimp_MenuDisable(Bar_Menu%,3)
3090ENDIF
3100ENDIF
3110ENDIF
3120 IF icon%=5 THEN PROCWimp_IconPutText(Delete_Window%,3,""):PROCWimp_WindowClose(Delete_Window%)
3130 ENDPROC
3140 :
3150 DEF PROCUser_MouseOptions( button%,icon%)
3160 IF icon%=2 AND PASSALLOW%=TRUE THEN PROCWimp_IconPutText(Options_Window%,3,PASS$):WAIT:WAIT:WAIT:WAIT:WAIT:WAIT:WAIT:WAIT:WAIT:WAIT:WAIT:WAIT:WAIT:PROCWimp_IconPutText(Options_Window%,3,LEFT$(PCOVER$,LEN(PASS$)))
3170PROCWimp_IconPutText(Password_Window%,3,"")
3180 ENDPROC
3190 :
3200 DEF PROCEvent_KeyPress(window%,icon%,key%)
3210 CASE window% OF
3220 WHEN Entry_Window% : PROCUser_KeyPressEntry( icon%,key%)
3230 WHEN Delete_Window% : PROCUser_KeyPressDelete( icon%,key%)
3240 WHEN Password_Window% : PROCUser_KeyPressPassword( icon%,key%)
3250 WHEN Options_Window% : PROCUser_KeyPressOptions( icon%,key%)
3260 ENDCASE
3270 ENDPROC
3280 :
3290 DEF PROCUser_KeyPressEntry( icon%,key%)
3300 IF key%=13 AND icon%=5 THEN PROCWimp_IconCaret(Entry_Window%,11,LEN(FNWimp_IconText(Entry_Window%,11)))
3310 IF key%=13 AND icon%=11 THEN PROCWimp_IconCaret(Entry_Window%,12,LEN(FNWimp_IconText(Entry_Window%,12)))
3320 IF key%=13 AND icon%=12 THEN PROCWimp_IconCaret(Entry_Window%,13,LEN(FNWimp_IconText(Entry_Window%,13)))
3330 IF key%=13 AND icon%=13 AND STATUS$="Save" THEN PROCWimp_IconCaret(Entry_Window%,16,LEN(FNWimp_IconText(Entry_Window%,16)))
3340 IF key%=13 AND icon%=13 AND STATUS$="Spend" THEN PROCUser_MouseEntry( 4,17)
3350 IF key%=13 AND icon%=16 THEN PROCUser_MouseEntry( 4,17)
3360 ENDPROC
3370 :
3380 DEF PROCUser_KeyPressDelete( icon%,key%)
3390 ENDPROC
3400 :
3410 DEF PROCUser_KeyPressPassword( icon%,key%)
3420 NEWPASS$=""
3430 IF key%=13 THEN
3440NEWPASS$=FNWimp_IconText(Password_Window%,2)
3450PROCcheckpassword
3460ENDIF
3470 ENDPROC
3480 :
3490 DEF PROCUser_KeyPressOptions( icon%,key%)
3500 IF key%=13 THEN
3510 POUNDVAL%=VAL(FNWimp_IconText(Options_Window%,3))
3520 ENDIF
3530 ENDPROC
3540 :
3550 DEF PROCEvent_MenuChoice(menu%)
3560 CASE menu% OF
3570 WHEN Bar_Menu% : PROCUser_MenuChoiceBar
3580 WHEN Main_Menu% : PROCUser_MenuChoiceMain
3590 ENDCASE
3600 ENDPROC
3610:
3620 DEF PROCUser_MenuChoiceMain
3630 CASE FNWimp_MenuChoice(0) OF
3640 WHEN 1 : PROCUser_MouseMain( 4,64)
3650 WHEN 2 : PROCUser_MouseMain( 4,62)
3660 WHEN 3 : PROCUser_MouseMain( 4,66)
3670 WHEN 4 : PROCUser_MouseMain( 4,15)
3680 WHEN 5 : PROCUser_MouseMain( 4,67)
3690 WHEN 6 : PROCUser_MouseMain( 4,61)
3700 WHEN 7 : PROCUser_MouseMain( 4,63)
3710 PROCWimp_MenuAdjustOn(Main_Menu%)
3720 ENDCASE
3730 ENDPROC
3740 :
3750 DEF PROCUser_MenuChoiceBar
3760 CASE FNWimp_MenuChoice(0) OF
3770 WHEN 1 :
3780 WHEN 2 :
3790 WHEN 4
3800ANS%=FNWimp_WindowCancel("!PocketM","Are you sure you want to clear the data?")
3810IF ANS%=TRUE THEN
3820PROCWimp_IconPutText(Save_Window%,1,"PocketData")
3830PROCWimp_IconPutText(Save2_Window%,1,"PocketText")
3840AMMOUNT()=0
3850STATUS$()=""
3860DATE$()=""
3870WHO$()=""
3880CURTOT()=0
3890PROCclearmain
3900total%=1
3910cur%=1
3920totpage%=0
3930curpage%=0
3940UPDATE%=FALSE
3950PROCWimp_MenuDisable(Bar_Menu%,3)
3960ENDIF
3970 WHEN 5
3980IF UPDATE%=TRUE THEN
3990PROCWimp_IconPutText(Close_Window%,0,"This file has been modified")
4000PROCWimp_WindowBringToTop(Close_Window%)
4010PROCmousebox(Close_Window%)
4020ENDIF
4030IF UPDATE%=FALSE THEN finished%=TRUE
4040 ENDCASE
4050 PROCWimp_MenuAdjustOn(Bar_Menu%)
4060 ENDPROC
4070 :
4080 DEF PROCEvent_LoadFile(file$,type$)
4090haa$=file$
4100PROCWimp_IconPutText(Options_Window%,3,"")
4110PASS$=""
4120file2$=file$
4130X%=OPENIN(file$)
4140INPUT #X%,LONG
4150INPUT #X%,VCN%
4160IF LONG<>0 THEN
4170VCN%=VCN%/2
4180LONG=LONG/VCN%
4190FOR AB=1 TO LONG
4200INPUT #X%,A%(AB)
4210A%(AB)=A%(AB) EOR VCN%
4220NEXT AB
4230FOR AB=1 TO LONG
4240A%(AB)=A%(AB)/VCN%
4250PASS$=PASS$+CHR$(A%(AB))
4260NEXT AB
4270CLOSE #X%
4280PROCWimp_IconPutText(Password_Window%,2,"")
4290PROCWimp_WindowBringToTop(Password_Window%)
4300PROCmousebox(Password_Window%)
4310PROCWimp_IconCaret(Password_Window%,2,0)
4320ELSE
4330CLOSE #X%
4340PROCparttwo
4350ENDIF
4360ENDPROC
4370
4380DEF PROCparttwo
4390IF LONG=0 OR correct%=TRUE THEN
4400X%=OPENIN(file2$)
4410INPUT #X%,LONG
4420INPUT #X%,VCN%
4430VCN%=VCN%/2
4440IF LONG<>0 THEN
4450FOR AB=1 TO LONG/VCN%
4460INPUT #X%,A%(AB)
4470NEXT AB
4480ENDIF
4490REM \/\/\/\/\/\/\/ Put load in here \/\/\/\/\/\/\/\/
4500INPUT #X%,total%
4510INPUT #X%,totpage%
4520FOR A=0 TO total%-1
4530INPUT #X%,AMMOUNT(A)
4540INPUT #X%,STATUS$(A)
4550INPUT #X%,DATE$(A)
4560INPUT #X%,WHO$(A)
4570INPUT #X%,CURTOT(A)
4580INPUT #X%,DD$(A)
4590INPUT #X%,MM$(A)
4600INPUT #X%,YY$(A)
4610NEXTA
4620UPDATE%=FALSE
4630PROCWimp_WindowBringToTop(Main_Window%)
4640PROCinput
4650CLOSE #X%
4660ENDIF
4670IF total%>1 THEN PROCWimp_MenuEnable(Bar_Menu%,3)
4680IF correct%=TRUE THEN PROCWimp_WindowClose(Password_Window%):correct%=FALSE
4690ENDPROC
4700 :
4710 DEF PROCEvent_SaveFile(file$,window%)
4720IF window%=Save_Window% THEN
4730LOCAL ERROR
4740ON ERROR LOCAL PROCerror
4750IF DOSAVE%=TRUE THEN
4760SETPASS1$=FNWimp_IconText(Save_Window%,4)
4770SETPASS2$=FNWimp_IconText(Save_Window%,5)
4780IF SETPASS1$<>SETPASS2$ THEN PROCWimp_WindowAlert("Password Protection","The two passwords are not the same. File not saved.")
4790IF SETPASS1$=SETPASS2$ THEN
4800IF SETPASS1$<>"" THEN
4810VCN%=INT(RND(1000000))+1
4820X%=OPENOUT(file$)
4830FOR AB=1 TO LEN(SETPASS1$)
4840A%(AB)=ASC(MID$(SETPASS1$,AB,1))
4850NEXT AB
4860PRINT #X%,LEN(SETPASS1$)*VCN%
4870PRINT #X%,VCN%*2
4880PASS$=SETPASS1$
4890PROCWimp_IconPutText(Options_Window%,3,LEFT$(PCOVER$,LEN(PASS$)))
4900FOR AB=1 TO LEN(SETPASS1$)
4910A%(AB)=A%(AB)*VCN%
4920PRINT #X%,A%(AB) EOR VCN%
4930NEXT AB
4940ELSE
4950X%=OPENOUT(file$)
4960PRINT #X%,0
4970PRINT #X%,0
4980ENDIF
4990REM \/\/\/\/\/\/\/\/\/ Put Save in here \/\/\/\/\/\/\/
5000PRINT #X%,total%
5010PRINT #X%,totpage%
5020FOR A=0 TO total%-1
5030PRINT #X%,AMMOUNT(A)
5040PRINT #X%,STATUS$(A)
5050PRINT #X%,DATE$(A)
5060PRINT #X%,WHO$(A)
5070PRINT #X%,CURTOT(A)
5080PRINT #X%,DD$(A)
5090PRINT #X%,MM$(A)
5100PRINT #X%,YY$(A)
5110NEXTA
5120UPDATE%=FALSE
5130CLOSE #X%
5140OSCLI("SETTYPE ")+file$+" FAF"
5150PROCWimp_MenuClose
5160REM PROCWimp_IconPutText(Save_Window%,4,"")
5170REM PROCWimp_IconPutText(Save_Window%,5,"")
5180ENDIF
5190ENDIF
5200ENDIF
5210IF window%=Save2_Window% THEN
5220LOCAL ERROR
5230ON ERROR LOCAL PROCerror
5240IF DOSAVE%=TRUE THEN
5250VDU21
5260OSCLI("SPOOL "+file$)
5270PRINT"+---+-----------+-----+----------+--------------------+-----------+";:PRINTCHR$(10);
5280PRINT"|Num| Ammount |State| Date | Who gave it to you | TOTAL |";:PRINTCHR$(10);
5290PRINT"+---+-----------+-----+----------+--------------------+-----------+";:PRINTCHR$(10);
5300FOR A=1 TO total%-1
5310A$=STR$(A)
5320AA=LEN(A$)
5330S$=FNspc(3-AA)
5340B$=STR$(AMMOUNT(A))
5350B$=FNzero(B$)
5360BB=LEN(B$)
5370SS$=FNspc(11-BB)
5380IF STATUS$(A)="Spend" THEN C$="Spend"
5390IF STATUS$(A)="Save" THEN C$="Save "
5400CC=LEN(DATE$(A))
5410SSS$=FNspc(10-CC)
5420DD=LEN(WHO$(A))
5430SSSS$=FNspc(20-DD)
5440E$=STR$(CURTOT(A))
5450E$=FNzero(E$)
5460EE=LEN(E$)
5470SSSSS$=FNspc(11-EE)
5480PRINT"|"+A$+S$+"|"+B$+SS$+"|"+C$+"|"+DATE$(A)+SSS$+"|"+WHO$(A)+SSSS$+"|"+E$+SSSSS$+"|";:PRINTCHR$(10);
5490NEXTA
5500PRINT"+---+-----------+-----+----------+--------------------+-----------+";:PRINTCHR$(10);
5510OSCLI("SPOOL")
5520OSCLI("SETTYPE "+file$+" FFF")
5530VDU6
5540IF file$="<Wimp$Scrap>" THEN
5550PROCWimp_SendToEdit(file$)
5560PROCWimp_IconPutText(Save2_Window%,1,ACE$)
5570ENDIF
5580ENDIF
5590ENDIF
5600VDU6
5610IF DOSAVE%=FALSE THEN DOSAVE%=TRUE
5620ENDPROC
5630 :
5640 DEF PROCcutdate
5650 DD%=VAL(MID$(TIME$,5,2))
5660 MM$=MID$(TIME$,8,3)
5670 IF MM$="Jan" THEN MM%=1
5680 IF MM$="Feb" THEN MM%=2
5690 IF MM$="Mar" THEN MM%=3
5700 IF MM$="Apr" THEN MM%=4
5710 IF MM$="May" THEN MM%=5
5720 IF MM$="Jun" THEN MM%=6
5730 IF MM$="Jul" THEN MM%=7
5740 IF MM$="Aug" THEN MM%=8
5750 IF MM$="Sep" THEN MM%=9
5760 IF MM$="Oct" THEN MM%=10
5770 IF MM$="Nov" THEN MM%=11
5780 IF MM$="Dec" THEN MM%=12
5790 YY%=VAL(MID$(TIME$,12,4))
5800PROCWimp_IconPutText(Entry_Window%,11,STR$(DD%))
5810PROCWimp_IconPutText(Entry_Window%,12,STR$(MM%))
5820PROCWimp_IconPutText(Entry_Window%,13,STR$(YY%))
5830 ENDPROC
5840 :
5850 DEF PROCcheckpassword
5860 IF PASS$=NEWPASS$ THEN
5870correct%=TRUE
5880PASSALLOW%=TRUE
5890PROCparttwo
5900PROCWimp_IconPutText(Options_Window%,3,LEFT$(PCOVER$,LEN(PASS$)))
5910PROCWimp_IconPutText(Save_Window%,4,PASS$)
5920PROCWimp_IconPutText(Save_Window%,5,PASS$)
5930PROCWimp_IconPutText(Save_Window%,1,haa$)
5940ELSE
5950PASSALLOW%=FALSE
5960PROCWimp_WindowClose(Password_Window%):PROCWimp_WindowAlert("Password Protection","The file has not been loaded due to incorrect password entry.")
5970correct%=FALSE
5980ENDIF
5990SYS"OS_ReadModeVariable",-1,11 TO ,,Xpic
6000SYS"OS_ReadModeVariable",-1,12 TO ,,Ypic
6010SYS"OS_ReadModeVariable",-1,4 TO ,,Xfact
6020SYS"OS_ReadModeVariable",-1,5 TO ,,Yfact
6030MOUSE RECTANGLE 0,0,Xpic<<Xfact,Ypic<<Yfact
6040 ENDPROC
6050 :
6060DEF PROCmousebox(w%)
6070wimp%!0=w%
6080SYS"Wimp_GetWindowOutline",,wimp%
6090MOUSE RECTANGLE wimp%!4+2,wimp%!8+2,wimp%!12-wimp%!4-4,wimp%!16-wimp%!8-4
6100ENDPROC
6110 :
6120DEF PROCresetentry
6130PROCWimp_IconPutText(Entry_Window%,5,"")
6140PROCWimp_IconPutText(Entry_Window%,3,STATUS$)
6150PROCWimp_IconPutText(Entry_Window%,16,"")
6160ENDPROC
6170 :
6180 DEF PROCread
6190 UPDATE%=TRUE
6200 AMMOUNT(total%)=VAL(FNWimp_IconText(Entry_Window%,5))
6210 STATUS$(total%)=STATUS$
6220 DATE$(total%)=FNWimp_IconText(Entry_Window%,11)+"/"+FNWimp_IconText(Entry_Window%,12)+"/"+FNWimp_IconText(Entry_Window%,13)
6230 DD$(total%)=FNWimp_IconText(Entry_Window%,11)
6240 MM$(total%)=FNWimp_IconText(Entry_Window%,12)
6250 YY$(total%)=FNWimp_IconText(Entry_Window%,13)
6260 WHO$(total%)=FNWimp_IconText(Entry_Window%,16)
6270 IF STATUS$(total%)="Save" THEN CURTOT(total%)=CURTOT(total%-1)+AMMOUNT(total%)
6280 IF STATUS$(total%)="Spend" THEN CURTOT(total%)=CURTOT(total%-1)-AMMOUNT(total%)
6290 total%+=1
6300 cur%=total%
6310 PROCpage
6320 ENDPROC
6330
6340 DEF PROCinput
6350 PROCWimp_IconPutText(Main_Window%,69,STR$(curpage%+1))
6360 PROCWimp_IconPutText(Main_Window%,65,STR$(totpage%+1))
6370 B=curpage%*14
6380 FOR A=1 TO 14
6390IF AMMOUNT(A+B)<>0 THEN
6400 PROCWimp_IconPutText(Main_Window%,A+70,STR$(A+B))
6410b$=STR$(AMMOUNT(A+B))
6420b$=FNcut(b$)
6430a$=FNzero(b$)
6440 PROCWimp_IconPutText(Main_Window%,A,a$)
6450 PROCWimp_IconPutText(Main_Window%,A+16,STATUS$(A+B))
6460 PROCWimp_IconPutText(Main_Window%,A+31,DATE$(A+B))
6470 PROCWimp_IconPutText(Main_Window%,A+45,WHO$(A+B))
6480b$=STR$(CURTOT(A+B))
6490b$=FNcut(b$)
6500a$=FNzero(b$)
6510 PROCWimp_IconPutText(Main_Window%,A+85,a$)
6520ELSE
6530PROCWimp_IconPutText(Main_Window%,A+70,"")
6540 PROCWimp_IconPutText(Main_Window%,A,"")
6550 PROCWimp_IconPutText(Main_Window%,A+16,"")
6560 PROCWimp_IconPutText(Main_Window%,A+31,"")
6570 PROCWimp_IconPutText(Main_Window%,A+45,"")
6580 PROCWimp_IconPutText(Main_Window%,A+85,"")
6590ENDIF
6600 NEXTA
6610 ENDPROC
6620
6630 DEF PROCclearmain
6640 FOR A=1 TO 14
6650 PROCWimp_IconPutText(Main_Window%,A+70,"")
6660 PROCWimp_IconPutText(Main_Window%,A,"")
6670 PROCWimp_IconPutText(Main_Window%,A+16,"")
6680 PROCWimp_IconPutText(Main_Window%,A+31,"")
6690 PROCWimp_IconPutText(Main_Window%,A+45,"")
6700 PROCWimp_IconPutText(Main_Window%,A+85,"")
6710 NEXTA
6720 PROCWimp_IconPutText(Main_Window%,69,"1")
6730 PROCWimp_IconPutText(Main_Window%,65,"1")
6740 ENDPROC
6750 :
6760 DEF PROCpage
6770 curpage%=INT((cur%-1)/15)
6780 IF curpage%>totpage% THEN totpage%=curpage%
6790 ENDPROC
6800 :
6810 DEF PROCrecalc
6820 FOR A=1 TO total%
6830 IF STATUS$(A)="Save" THEN CURTOT(A)=CURTOT(A-1)+AMMOUNT(A)
6840 IF STATUS$(A)="Spend" THEN CURTOT(A)=CURTOT(A-1)-AMMOUNT(A)
6850 NEXTA
6860 ENDPROC
6870:
6880REM ********************************************************************
6890:
6900DEF PROCWimp_WindowAlert(title$,message$)
6910PROCWimp_WindowAlertBox(title$,message$,0)
6920ENDPROC
6930:
6940DEF PROCWimp_WindowAlertBox(title$,message$,button%)
6950LOCAL response%
6960$(wimp%+4)=message$
6970CASE button% OF
6980 WHEN 2 : response%=1
6990 WHEN 1 : response%=15
7000 WHEN 3 : response%=(1<<5)+16
7010 WHEN 4 : response%=(1<<6)+16
7020OTHERWISE : response%=16
7030ENDCASE
7040SYS "Wimp_ReportError",wimp%,response%,title$ TO ,response%
7050ENDPROC
7060:
7070DEF FNWimp_WindowCancel(title$,message$)
7080$(wimp%+4)=message$
7090response%=23
7100SYS "Wimp_ReportError",wimp%,response%,title$ TO ,response%
7110=response%-2
7120:
7130DEF PROCWimp_WindowErrorBox(title$,message$)
7140PROCWimp_WindowAlertBox(title$,message$,2)
7150ENDPROC
7160:
7170DEF FNWimp_WindowTitle(window%)
7180wimp%!0=window%
7190SYS "Wimp_GetWindInfo",,wimp%
7200IF ((wimp%!60)AND&100)=0 ERROR 1,"Title isn't indirected"
7210=$(wimp%!76)
7220:
7230DEF FNWimp_WindowLoad(window$)
7240=FNWimp_WindowLoadFrom(window$,"<Obey$Dir>.Templates")
7250:
7260DEF FNWimp_WindowLoadFrom(window$,template$)
7270LOCAL c%,i%,n%,j%,sp$,sp2$
7280SYS "Wimp_OpenTemplate",,template$
7290SYS "Wimp_LoadTemplate",,wimp%,icons%,icon_memory%,-1,window$,0 TO ,,icons%
7300CASE sprites% OF
7310 WHEN 1 : wimp%!64=sprites%
7320 OTHERWISE : wimp%!64=FNEvent_Sprites(window%)
7330ENDCASE
7340SYS "Wimp_CreateWindow",,wimp% TO c%
7350SYS "Wimp_CloseTemplate"
7360SYS "Wimp_WhichIcon",c%,wimp%+40,1+2+(1<<8),2+(1<<8)
7370CASE wimp%!40 OF
7380 WHEN -1 :
7390 OTHERWISE : i%=40
7400 REPEAT
7410 wimp%!4=wimp%!i% : wimp%!0=c%
7420 SYS "Wimp_GetIconState",,wimp%
7430 sp$=FNWimp_GetStringAtAddress(wimp%!28)
7440 SYS "Wimp_DeleteIcon",,wimp%
7450 CASE sprites% OF
7460 WHEN 1 : wimp%!32=1
7470 OTHERWISE :
7480 SYS "OS_SpriteOp",&108,sprites% TO ,,,n%
7490 j%=0
7500 REPEAT : j%+=1
7510 SYS "OS_SpriteOp",&10D,sprites%,pointer_block%,20,j%
7520 sp2$=FNWimp_GetStringAtAddress(pointer_block%)
7530 UNTIL j%=n% OR sp$=sp2$
7540 IF sp$=sp2$ THEN wimp%!32=sprites% ELSE wimp%!32=1
7550 ENDCASE
7560 wimp%!4=c%
7570 SYS "Wimp_CreateIcon",,wimp%+4 TO handle%
7580 i%+=4
7590 UNTIL (wimp%!i%)=-1
7600ENDCASE
7610=c%
7620:
7630DEF PROCWimp_WindowBringToTop(window%)
7640!wimp%=window%
7650SYS "Wimp_GetWindowState",,wimp%
7660wimp%!28=-1
7670SYS "Wimp_OpenWindow",,wimp%
7680ENDPROC
7690:
7700DEF PROCWimp_WindowClose(window%)
7710!wimp%=window%
7720SYS "Wimp_CloseWindow",,wimp%
7730ENDPROC
7740:
7750DEF PROCWimp_WindowForceDraw(window%)
7760CASE window% OF
7770 WHEN -1 : SYS "Wimp_ForceRedraw",-1,0,0,2*1280,2*1024
7780 OTHERWISE : SYS "Wimp_ForceRedraw",window%,0,-2*1024,2*1280,0
7790ENDCASE
7800ENDPROC
7810:
7820DEF PROCWimp_WindowOpen(window%)
7830!wimp%=window%
7840SYS "Wimp_GetWindowState",,wimp%
7850SYS "Wimp_OpenWindow",,wimp%
7860ENDPROC
7870:
7880PROCWimp_WindowInterface
7890SYS"Wimp_BorderWindow",,wimp%
7900ENDPROC
7910:
7920REM ********************************************************************
7930:
7940DEF PROCWimp_SetIconSprite(window%,icon%,sprite$)
7950wimp%!0=window%
7960wimp%!4=icon%
7970SYS "Wimp_GetIconState",,wimp%
7980$wimp%!32="S"+sprite$
7990wimp%!0=window%
8000wimp%!8=0
8010wimp%!12=0
8020SYS "Wimp_SetIconState",,wimp%
8030ENDPROC
8040:
8050DEF FNWimp_IconBar(Sprite$)
8060LOCAL icon%
8070wimp%!0=-1
8080wimp%!4=0 : wimp%!8=0
8090wimp%!12=88 : wimp%!16=74
8100wimp%!20=&3002
8110$(wimp%+24)=Sprite$
8120SYS "Wimp_CreateIcon",,wimp% TO icon%
8130=icon%
8140:
8150DEF PROCWimp_IconCaret(window%,icon%,chars%)
8160SYS "Wimp_SetCaretPosition",window%,icon%,,,-1,chars%
8170ENDPROC
8180:
8190DEF FNWimp_IconText(window%,icon%)
8200wimp%!0=window% : wimp%!4=icon%
8210SYS "Wimp_GetIconState",,wimp%
8220IF ((wimp%!24) AND &100)=0 ERROR 1,"Icon isn't indirected"
8230=$(wimp%!28)
8240:
8250DEF FNWimp_IconValidation(window%,icon%)
8260wimp%!0=window% : wimp%!4=icon%
8270SYS "Wimp_GetIconState",,wimp%
8280IF ((wimp%!24) AND &100)=0 ERROR 1,"Icon isn't indirected"
8290=$(wimp%!32)
8300:
8310DEF PROCWimp_IconDisable(window%,icon%)
8320wimp%!0=window% : wimp%!4=icon%
8330wimp%!8=1<<22 : wimp%!12=1<<22
8340SYS "Wimp_SetIconState",,wimp%
8350ENDPROC
8360:
8370DEF PROCWimp_IconEnable(window%,icon%)
8380wimp%!0=window% : wimp%!4=icon%
8390wimp%!8=0 : wimp%!12=1<<22
8400SYS "Wimp_SetIconState",,wimp%
8410ENDPROC
8420:
8430DEF FNWimp_IconPutSprite(window%,icon%,sprite$)
8440wimp%!0=window%:wimp%!4=icon%
8450SYS "Wimp_GetIconState",,wimp%
8460SYS "Wimp_DeleteIcon",,wimp%
8470wimp%!4=wimp%!8 : wimp%!8=wimp%!12 : wimp%!12=wimp%!16
8480wimp%!16=wimp%!20 : wimp%!20=wimp%!24 : $(wimp%+24)=sprite$
8490SYS "Wimp_CreateIcon",,wimp% TO icon%
8500=icon%
8510:
8520DEF PROCWimp_IconPutText(window%,icon%,text$)
8530wimp%!0=window% : wimp%!4=icon%
8540SYS "Wimp_GetIconState",,wimp%
8550IF ((wimp%!24) AND &100)=0 ERROR 1,"Icon isn't indirected"
8560$(wimp%!28)=text$
8570wimp%!0=window% : wimp%!4=icon%
8580wimp%!8=0 : wimp%!12=0
8590SYS "Wimp_SetIconState",,wimp%
8600ENDPROC
8610:
8620DEF PROCWimp_IconInterfaceStart
8630SYS"Wimp_BorderIcon",,wimp%
8640ENDPROC
8650:
8660DEF PROCWimp_IconInterfaceFinish
8670wimp%!8=0
8680SYS"Wimp_BorderIcon",,wimp%
8690ENDPROC
8700:
8710REM ********************************************************************
8720:
8730DEF PROCWimp_MenuAdjustOn(menu%)
8740SYS "Wimp_GetPointerInfo",,pointer_block%
8750IF ((pointer_block%!8)AND1)=1 THEN SYS "Wimp_CreateMenu",,menu%,pointer_block%!0,pointer_block%!4
8760ENDPROC
8770:
8780DEF FNWimp_MenuChoice(level%)
8790=(wimp%!(4*level%))+1
8800:
8810DEF FNWimp_MenuCreate(menu$)
8820IF menu$="Colours" THEN=FNWimp_MenuColours
8830LOCAL menu%,index%,width%,length%,k%,s%
8840DIM menu% 28+FNWimp_MenuNoOfEntries(menu$)*24
8850menu%?12=7 : menu%?13=2 : menu%?14=7 :menu%?15=0
8860menu%!16=140 : menu%!20=44 : menu%!24=0
8870index%=menu%+28
8880$menu%=LEFT$(menu$,INSTR(menu$,"\")-1)
8890width%=LEN(LEFT$(menu$,INSTR(menu$,"\")-1))
8900menu$+="\" : Menu_NoOfEntries%=0
8910WHILE menu$<>""
8920menu$=MID$(menu$,INSTR(menu$,"\")+1)
8930CASE menu$ OF
8940 WHEN ""
8950 OTHERWISE :
8960 !index%=0 : index%!4=-1 : index%!8=&7000021
8970 length%=INSTR(menu$,"\")-1
8980 k%=INSTR(LEFT$(menu$,length%),">")
8990 CASE k% OF
9000 WHEN 0
9010 OTHERWISE
9020 s%=EVAL(MID$(menu$,k%+1,length%-k%))
9030 index%!4=s%
9040 length%=k%-1
9050 ENDCASE
9060 $(index%+12)=LEFT$(menu$,length%)
9070 IF length%>width% THEN width%=length%
9080 index%+=24
9090ENDCASE
9100ENDWHILE
9110menu%!16=16*(width%+1)
9120index%!-24=index%!-24 OR &80 : =menu%
9130:
9140DEF FNWimp_MenuColours
9150=FNWimp_MenuCreateColours(" ")
9160:
9170DEF FNWimp_MenuCreateColours(title$)
9180LOCAL x$,men%,j%,i%
9190x$=title$+"\0\1\2\3\4\5\6\7\8\9\10\11\12\13\14\15"
9200men%=FNWimp_MenuCreate(x$)
9210FOR i%=0 TO 15
9220CASE TRUE OF
9230WHEN i%<4,i%=9,i%=12,i%=14,i%=15 : j%=7
9240OTHERWISE : j%=0
9250ENDCASE
9260men%?(39+i%*24)=i%*16+j%
9270PROCWimp_MenuCentre(men%,i%+1)
9280NEXT
9290=men%
9300:
9310DEF FNWimp_MenuNoOfEntries(menu$)
9320LOCAL n% ,j% : n%=0 : j%=0
9330REPEAT
9340j%=INSTR(menu$,"\",j%+1)
9350IF j%<>0 THEN n%+=1
9360UNTIL j%=0
9370=n%
9380:
9390DEF PROCWimp_MenuBackGroundColour(menu%,item%,colour%)
9400LOCAL fore%,i%
9410fore%=(menu%?(39+(item%-1)*24))MOD16
9420i%=((menu%?(39+(item%-1)*24))DIV16)MOD16
9430menu%?(39+(item%-1)*24)=fore%+16*colour%+i%
9440ENDPROC
9450:
9460DEF PROCWimp_IconBackGroundColour(window%,icon%,colour%)
9470LOCAL fore%,i%
9480fore%=(window%?(39+(icon%-1)*24))MOD16
9490i%=((window%?(39+(icon%-1)*24))DIV16)MOD16
9500window%?(39+(icon%-1)*24)=fore%+16*colour%+i%
9510ENDPROC
9520:
9530DEF PROCWimp_MenuCentre(menu%,item%)
9540menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)OR(1<<3)
9550ENDPROC
9560:
9570DEF PROCWimp_MenuClose
9580SYS "Wimp_CreateMenu",-1
9590ENDPROC
9600:
9610DEF PROCWimp_MenuDisable(menu%,item%)
9620menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)OR(1<<22)
9630ENDPROC
9640:
9650DEF PROCWimp_MenuDottedLine(menu%,item%)
9660menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))OR2
9670ENDPROC
9680:
9690DEF PROCWimp_MenuEnable(menu%,item%)
9700PROCWimp_MenuDisable(menu%,item%)
9710menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)EOR(1<<22)
9720ENDPROC
9730:
9740DEF PROCWimp_MenuForegroundColour(menu%,item%,colour%)
9750menu%?(39+(item%-1)*24)=colour%+16*((menu%?(39+(item%-1)*24))DIV16)
9760ENDPROC
9770:
9780DEF PROCWimp_MenuGlue(menu1%,item%,menu2%)
9790menu1%!(8+item%*24)=menu2%
9800ENDPROC
9810:
9820DEF PROCWimp_MenuItem(menu%,item%,item$)
9830$(menu%+(40+(item%-1)*24))=LEFT$(item$,12)+CHR$0
9840ENDPROC
9850:
9860DEF PROCWimp_MenuMessage(menu%,item%)
9870menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))EOR(1<<3)
9880ENDPROC
9890:
9900DEF PROCWimp_MenuPopUp(Menu%,x%,y%)
9910IF SA%=FALSE THEN
9920menu%=Menu%
9930SYS "Wimp_CreateMenu",,menu%,x%-64,y%+20
9940ENDIF
9950ENDPROC
9960:
9970DEF PROCWimp_MenuPopUpBar(x%,y%)
9980LOCAL n% : n%=0
9990WHILE ((Bar_Menu%!(28+n%*24))AND%10000000)=0
10000n%+=1
10010ENDWHILE
10020SYS "Wimp_CreateMenu",,Bar_Menu%,x%-64,96+n%*44
10030menu%=Bar_Menu%
10040ENDPROC
10050:
10060DEF PROCWimp_MenuTick(menu%,item%)
10070menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))EOR1
10080ENDPROC
10090:
10100DEF PROCWimp_MenuTitle(menu%,title$)
10110$menu%=LEFT$(title$,12)+CHR$0
10120ENDPROC
10130:
10140DEF PROCWimp_MenuWrite(menu%,item%,buffer%,val%,BufferLength%)
10150menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))OR4
10160menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)OR&100
10170menu%!(40+(item%-1)*24)=buffer%
10180menu%!(44+(item%-1)*24)=val%
10190menu%!(48+(item%-1)*24)=BufferLength%
10200ENDPROC
10210:
10220REM ********************************************************************
10230:
10240DEF PROCWimp_SelectIcon(window%,icon%)
10250wimp%!0=window%
10260wimp%!4=icon%
10270wimp%!8=%1000000000000000000000
10280wimp%!12=%1000000000000000000000
10290SYS&400CD,,wimp%
10300ENDPROC
10310:
10320DEF PROCWimp_UnselectIcon(window%,icon%)
10330wimp%!0=window%
10340wimp%!4=icon%
10350wimp%!8=0
10360wimp%!12=%1000000000000000000000
10370SYS&400CD,,wimp%
10380ENDPROC
10390:
10400DEF PROCWimp_SpritesLoad
10410PROCWimp_SpritesPathLoad("<Obey$Dir>.Sprites")
10420direct_sprites%=sprites%
10430ENDPROC
10440:
10450DEF PROCWimp_SpritesPathLoad(pathname$)
10460LOCALS%,T%
10470S%=OPENIN"<Obey$Dir>.Sprites":T%=EXT#S%+16:CLOSE#S%
10480DIMsprites%T%,spname%12
10490!sprites%=T%:sprites%!8=0
10500SYS"OS_SpriteOp",&109,sprites%
10510SYS"OS_SpriteOp",&10A,sprites%,pathname$
10520ENDPROC
10530:
10540REM ********************************************************************
10550:
10560DEF FNWimp_FileType(type%)
10570CASEtype%OF
10580WHEN&FFF:="Text"
10590WHEN&FFD:="Data"
10600WHEN&FFB:="Basic"
10610WHEN&FF9:="Sprite"
10620WHEN&FED:="Palette"
10630WHEN&FEC:="Template"
10640WHEN&AFF:="Draw"
10650WHEN&1000:="Folder"
10660WHEN&2000:="Application"
10670OTHERWISE=STR$~(type%)
10680ENDCASE
10690:
10700DEF FNWimp_GetFilePathName
10710=FNWimp_GetStringAtAddress(wimp%+44)
10720:
10730DEF FNWimp_FileLoad(pathname$)
10740LOCALS%,T%,file%
10750S%=OPENINpathname$
10760T%=EXT#S%+16
10770CLOSE#S%
10780DIMfile%T%
10790OSCLI("LOAD"+pathname$+""+STR$~file%)
10800=file%
10810;
10820DEF FNWimp_GetStringAtAddress(array%)
10830LOCALs$:s$=""
10840WHILE(?array%<>13)AND(?array%<>0):s$+=CHR$(?array%):array%+=1:ENDWHILE:
10850=s$
10860:
10870DEF FNWimp_GetFileFromPathname(f$)
10880CASE INSTR(f$,".") OF
10890 WHEN 0 :=f$
10900 OTHERWISE :=FNWimp_GetFileFromPathname(RIGHT$(f$,LEN(f$)-INSTR(f$,".")))
10910ENDCASE
10920:
10930DEF PROCWimp_SendToEdit(file$)
10940LOCAL n%
10950wimp%!4=&6CC01C0C
10960wimp%!16=5
10970wimp%!36=0
10980wimp%!40=&FFF
10990$(wimp%+44)=file$+CHR$0
11000n%=LENfile$+45
11010IF n%MOD4 THEN !wimp%=4+(n%>>2)<<2 ELSE !wimp%=n%
11020SYS "Wimp_SendMessage",17,wimp%,0
11030ENDPROC
11040:
11050REM ********************************************************************
11060:
11070DEF PROCWimp_Start(TaskName$,wimp_memory%,icon%)
11080DIM wimp% wimp_memory%,icons% icon%
11090IF wimp_memory%<256 THEN wimp_memory%=256
11100icon_memory%=icons%+icon%
11110task$=TaskName$
11120indirect_sprites%=1 : direct_sprites%=1
11130PROCWimp_SetEventVariables
11140ON ERROR PROCWimp_Error:END
11150SYS"Wimp_Initialise",200,&4B534154,TaskName$ TO version%,task%
11160ENDPROC
11170:
11180DEF FNWimp_BASICParameters
11190 LOCAL com$,param$,I%
11200 SYS "OS_GetEnv" TO com$
11210 params$=""
11220 I%=INSTR(com$," -quit ")
11230 IF I% THEN params$=MID$(com$,INSTR(com$," ",I%+LEN" -quit ")+1)
11240=params$
11250:
11260DEF PROCWimp_SetEventVariables
11270DIM pointer_block% 20
11280interface%=FALSE
11290null%=1 :draw%=2 : pointer_leaving%=1<<4
11300pointer_entering%=1<<5:mouse%=1<<6:drag%=1<<7
11310key%=1<<8:menu%=1<<9:scroll%=1<<10
11320lose_caret%=1<<11:gain_caret%=1<<12:message%=(1<<17)+(1<<18)
11330recorder%=1<<18:acknowledge%=1<<19:window%=0
11340sprites%=1:version%=0:task%=0
11350Bar_Window%=-2:Bar_Icon%=0:Bar_Menu%=0
11360x_origin%=0:y_origin%=0:SaveWindow%=-3
11370message_quit%=0:message_save%=2:message_load%=3
11380mouse_button%=2:save_event%=0
11390top_line%=0 : bottom_line%=0
11400ENDPROC
11410:
11420DEF PROCWimp_Error
11430LOCALX$,x%
11440ON ERROR OFF
11450x%=ERL
11460X$=REPORT$+"atline"+STR$(x%DIV10)
11470DIMErrorMsg%36
11480ErrorMsg%!0=36:ErrorMsg%!12=0:ErrorMsg%!16=&81080:ErrorMsg%!20=x%
11490$(ErrorMsg%+24)="!RunImage"
11500SYS"Wimp_SendMessage",17,ErrorMsg%
11510PROCWimp_WindowAlert(task$,X$)
11520PROCWimp_CloseDown
11530ENDPROC
11540:
11550DEF PROCWimp_CloseDown
11560SYS"Wimp_CloseDown",task%,"TASK"
11570ENDPROC
11580:
11590DEF PROCWimp_Quit
11600finished%=TRUE
11610ENDPROC
11620:
11630DEF FNWimp_ReadVariable(Variable$)
11640LOCALlen%,result%,variable%
11650$wimp%=Variable$
11660SYS"OS_ReadVarVal",wimp%,wimp%+255,255,,3TO,,len%
11670wimp%?(len%+255)=13
11680=$(wimp%+255)
11690:
11700REM ********************************************************************
11710:
11720DEF PROCWimp_WaitForEvent
11730LOCAL mask%,event%
11740finished%=FALSE
11750mask%=%111000011001
11760REPEAT
11770 SYS"Wimp_Poll",mask%,wimp% TO event%
11780 CASE event% OF
11790 WHEN0 :
11800 WHEN1 : PROCWimp_PollDrawWindow
11810 WHEN2 : SYS "Wimp_OpenWindow",,wimp%
11820 WHEN3 : PROCWimp_PollCloseWindow
11830 WHEN4 :
11840 WHEN5 :
11850 WHEN6 : PROCWimp_PollMouseClick
11860 WHEN7 : PROCWimp_PollSaveMessage
11870 WHEN8 : PROCWimp_PollKeyPress
11880 WHEN9 : PROCEvent_MenuChoice(menu%)
11890 WHEN10:
11900 WHEN11:
11910 WHEN12:
11920 WHEN17,18: PROCWimp_PollMessages
11930 WHEN19:
11940 ENDCASE
11950UNTIL finished%
11960ENDPROC
11970:
11980DEF PROCWimp_PollDrawWindow
11990LOCAL more%
12000SYS"Wimp_RedrawWindow",,wimp%TOmore%
12010window%=wimp%!0
12020x_origin%=16+wimp%!4-wimp%!20:y_origin%=-16+wimp%!16-wimp%!24
12030WHILEmore%
12040 IF interface% THEN SYS"Wimp_BorderWindow",,wimp%
12050 PROCEvent_Draw(window%,x_origin%,y_origin%)
12060 SYS"Wimp_GetRectangle",,wimp%TOmore%
12070ENDWHILE
12080ENDPROC
12090:
12100DEF PROCWimp_PollCloseWindow
12110 SYS "Wimp_GetPointerInfo",,wimp%
12120 window%=wimp%!12 : buttons%=wimp%!8
12130 PROCEvent_WindowClose(window%,buttons%)
12140 !wimp%=window% : SYS "Wimp_CloseWindow",,wimp%
12150ENDPROC
12160:
12170DEF PROCWimp_PollMouseClick
12180 button%=wimp%!8:window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4
12190 CASE button% OF
12200 WHEN2 : PROCWimp_PollMenuPopUp
12210 OTHERWISE: CASE FNEvent_Save(window%) OF
12220 WHEN TRUE : PROCWimp_PollMouseSave
12230 WHEN FALSE: PROCWimp_PollEventMouseClick
12240 ENDCASE
12250 ENDCASE
12260ENDPROC
12270:
12280DEF PROCWimp_PollMenuPopUp
12290IF SA%=FALSE THEN
12300menu%=FNEvent_Menu(window%)
12310 CASE menu% OF
12320 WHEN FALSE:
12330 OTHERWISE :
12340 CASE window% OF
12350 WHEN -2 : n%=0
12360 WHILE ((Bar_Menu%!(28+n%*24))AND%10000000)=0
12370 n%+=1
12380 ENDWHILE
12390 SYS "Wimp_CreateMenu",,Bar_Menu%,x%-64,96+n%*73
12400 OTHERWISE : SYS"Wimp_CreateMenu",,menu%,x%-64,y%+20
12410 ENDCASE
12420 ENDCASE
12430ENDIF
12440ENDPROC
12450:
12460DEF PROCWimp_PollMouseSave
12470 CASE icon% OF
12480 WHEN 0 : IF button% AND &50 THEN PROCWimp_PollDragBox(window%)
12490 WHEN 2 : IF button% AND 5 THEN PROCWimp_PollSaveFile(window%)
12500 ENDCASE
12510ENDPROC
12520:
12530DEF PROCWimp_PollEventMouseClick
12540 IF interface% THEN SYS"Wimp_BorderIcon",,wimp%
12550 PROCEvent_MouseClick(window%,icon%,button%,x%,y%)
12560 CASE interface% OF
12570 WHEN TRUE :
12580 wimp%!0=x%:wimp%!4=y% : wimp%!8=0
12590 wimp%!12=window% : wimp%!16=icon%
12600 SYS"Wimp_BorderIcon",,wimp%
12610 ENDCASE
12620ENDPROC
12630:
12640DEF PROCWimp_PollSaveFile(window%)
12650LOCALfile$
12660 wimp%!0=window% : wimp%!4=1 : SYS "Wimp_GetIconState",,wimp%
12670 file$=$(wimp%!28)
12680 CASE INSTR(file$,".") OF
12690 WHEN 0 :
12700IF key%=13 THEN
12710 $(wimp%+4)="To save, drag the icon to a directory window"
12720 SYS "Wimp_ReportError",wimp%,16,task$
12730ENDIF
12740 OTHERWISE:
12750 IF key%=13 THEN PROCEvent_SaveFile(file$,window%)
12760 ENDCASE
12770IF key%=13 THEN SYS"Wimp_CreateMenu",-1
12780IF SA%=TRUE THEN PROCWimp_CloseDown
12790ENDPROC
12800:
12810DEF PROCWimp_PollDragBox(window%)
12820LOCALx%,y%
12830 save%=window%
12840 !wimp%=window%
12850 SYS"Wimp_GetWindowState",,wimp%
12860 x%=wimp%!4-wimp%!20:y%=wimp%!16-wimp%!24
12870 wimp%!4=0
12880 SYS"Wimp_GetIconState",,wimp%
12890 !wimp%=window%
12900 wimp%!4=5
12910 wimp%!8=x%+wimp%!8:wimp%!12=y%+wimp%!12
12920 wimp%!16=x%+wimp%!16:wimp%!20=y%+wimp%!20
12930 wimp%!24=0:wimp%!28=0
12940 wimp%!32=&7FFFFFFF:wimp%!36=&7FFFFFFF
12950 SYS"Wimp_DragBox",,wimp%
12960ENDPROC
12970:
12980DEF PROCWimp_PollKeyPress
12990 window%=wimp%!0:icon%=wimp%!4:key%=wimp%!24
13000 CASE FNEvent_Save(window%) OF
13010 WHEN TRUE : PROCWimp_PollSaveFile(window%)
13020 WHEN FALSE: PROCEvent_KeyPress(window%,icon%,key%)
13030 ENDCASE
13040ENDPROC
13050:
13060DEF PROCWimp_PollSaveMessage
13070LOCALfile$,window%,icon%,x%,y%
13080 SYS"Wimp_GetPointerInfo",,wimp%
13090 window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4
13100 wimp%!0=save% : wimp%!4=1 : SYS "Wimp_GetIconState",,wimp%
13110 file$=$(wimp%!28)
13120 file$=FNWimp_GetFileFromPathname(file$)
13130ACE$=file$
13140 wimp%!20=window%
13150 wimp%!24=icon%
13160 wimp%!28=x%:wimp%!32=y%
13170 wimp%!36=length%
13180 wimp%!0=64
13190 wimp%!12=0
13200 wimp%!16=1
13210 wimp%!40=&FFF
13220 $(wimp%+44)=file$
13230 SYS"Wimp_SendMessage",17,wimp%,wimp%!20,wimp%!24
13240ENDPROC
13250:
13260DEF PROCWimp_PollMessages
13270LOCAL file$
13280file$=FNWimp_GetStringAtAddress(wimp%+44)
13290 CASE wimp%!16 OF
13300 WHEN 0 : finished%=TRUE
13310 WHEN 1 :
13320 WHEN 2 :
13330 REM PROCWimp_IconPutText(save%,1,file$)
13340 wimp%!0=save% : wimp%!4=1 : SYS "Wimp_GetIconState",,wimp%
13350 $(wimp%!28)=file$
13360 wimp%!0=save% : wimp%!4=1 : wimp%!8=0 : wimp%!12=0
13370 SYS "Wimp_SetIconState",,wimp%
13380 REM PROCWimp_IconCaret(save%,1,LENfile$)
13390 SYS "Wimp_SetCaretPosition",save%,1,,,-1,LENfile$
13400 PROCEvent_SaveFile(file$,save%)
13410 IF SA%=TRUE THEN PROCWimp_CloseDown
13420 WHEN 3
13430 type$=FNWimp_FileType(wimp%!40) : PROCEvent_LoadFile(file$,type$)
13440 WHEN 5 :
13450IF wimp%!40=&FAF AND event%=18 THEN
13460wimp%!12=wimp%!8
13470SYS"XWimp_SendMessage",17,wimp%,wimp%!20
13480file$=FNWimp_GetFilePathName
13490type$=FNWimp_FileType(&FAF)
13500PROCEvent_LoadFile(file$,type$)
13510ENDIF
13520 ENDCASE
13530ENDPROC
13540:
13550DEF FNWimp_GetStringAtAddress(array%)
13560LOCALs$:s$=""
13570WHILE(?array%<>13)AND(?array%<>0):s$+=CHR$(?array%):array%+=1:ENDWHILE:
13580=s$
13590:
13600DEF FNWimp_GetFileFromPathname(f$)
13610CASE INSTR(f$,".") OF
13620 WHEN 0 :=f$
13630 OTHERWISE :=FNWimp_GetFileFromPathname(RIGHT$(f$,LEN(f$)-INSTR(f$,".")))
13640ENDCASE
13650:
13660DEF FNWimp_FileType(type%)
13670CASEtype%OF
13680WHEN&FFF:="Text"
13690WHEN&FFD:="Data"
13700WHEN&FFB:="Basic"
13710WHEN&FF9:="Sprite"
13720WHEN&FED:="Palette"
13730WHEN&FEC:="Template"
13740WHEN&AFF:="Draw"
13750WHEN&1000:="Folder"
13760WHEN&2000:="Application"
13770OTHERWISE=STR$~(type%)
13780ENDCASE
13790:
13800DEFFNcut(A$)
13810Ab=INSTR(A$,".")
13820IF Ab<>0 THEN B$=LEFT$(A$,Ab+2) ELSE B$=A$
13830=B$
13840:
13850DEFPROCpdsel
13860IF PSEL%=2 THEN
13870PROCWimp_IconDisable(Print_Window%,8)
13880ENDIF
13890IF PSEL%=3 THEN
13900PROCWimp_IconDisable(Print_Window%,9)
13910PROCWimp_IconDisable(Print_Window%,11)
13920ENDIF
13930ENDPROC
13940:
13950DEFPROCpsel
13960IF PSEL%=1 THEN
13970PROCWimp_SelectIcon(Print_Window%,5)
13980ENDIF
13990IF PSEL%=2 THEN
14000PROCWimp_SelectIcon(Print_Window%,6)
14010PROCWimp_IconEnable(Print_Window%,8)
14020PROCWimp_IconCaret(Print_Window%,8,LEN(FNWimp_IconText(Print_Window%,8)))
14030ENDIF
14040IF PSEL%=3 THEN
14050PROCWimp_SelectIcon(Print_Window%,7)
14060PROCWimp_IconEnable(Print_Window%,9)
14070PROCWimp_IconEnable(Print_Window%,11)
14080PROCWimp_IconCaret(Print_Window%,9,LEN(FNWimp_IconText(Print_Window%,9)))
14090ENDIF
14100ENDPROC
14110:
14120DEF FNgetstring(array%)
14130LOCAL path$,pointer%
14140path$=""
14150pointer%=array%
14160REPEAT
14170path$+=CHR$?pointer%
14180pointer%+=1
14190UNTIL ?pointer%=0 OR ?pointer%=13
14200=path$
14210:
14220DEFPROCopenprinter
14230SYS "XPDriver_Info" TO R0,R1,R2,R3,R4,R5,R6,R7
14240IF R1=0 AND R2=0 AND R3=0 AND R5=0 AND R6=0 AND R7=0 THEN
14250PROCWimp_IconPutText(Print_Window%,3,"No driver loaded")
14260PRT%=FALSE
14270ELSE
14280printer$=FNgetstring(R4)
14290PROCWimp_IconPutText(Print_Window%,3,printer$)
14300PRT%=TRUE
14310ENDIF
14320ENDPROC
14330:
14340DEFPROCprint
14350:
14360printhand%=OPENOUT("PRINTER:$.Job1") : REM start a job !!!
14370$title%="Cheat file"
14380SYS &80145,printhand%,title%
14390BPUT#printhand%,13 : REM put head to left of paper to start!!!!
14400:
14410IF PSEL%=1 THEN
14420PROCprintline("+---+-----------+-----+----------+--------------------+-----------+"+CHR$(10))
14430PROCprintline("|Num| Ammount |State| Date | Who gave it to you | TOTAL |"+CHR$(10))
14440PROCprintline("+---+-----------+-----+----------+--------------------+-----------+"+CHR$(10))
14450FOR A=1 TO total%-1
14460IF AMMOUNT(A)<>0 THEN
14470A$=STR$(A)
14480AA=LEN(A$)
14490S$=FNspc(3-AA)
14500B$=STR$(AMMOUNT(A))
14510B$=FNzero(B$)
14520BB=LEN(B$)
14530SS$=FNspc(11-BB)
14540IF STATUS$(A)="Spend" THEN C$="Spend"
14550IF STATUS$(A)="Save" THEN C$="Save "
14560CC=LEN(DATE$(A))
14570SSS$=FNspc(10-CC)
14580DD=LEN(WHO$(A))
14590SSSS$=FNspc(20-DD)
14600E$=STR$(CURTOT(A))
14610E$=FNzero(E$)
14620EE=LEN(E$)
14630SSSSS$=FNspc(11-EE)
14640PROCprintline("|"+A$+S$+"|"+B$+SS$+"|"+C$+"|"+DATE$(A)+SSS$+"|"+WHO$(A)+SSSS$+"|"+E$+SSSSS$+"|"+CHR$(10))
14650ENDIF
14660NEXTA
14670PROCprintline("+---+-----------+-----+----------+--------------------+-----------+"+CHR$(10))
14680ENDIF
14690
14700IF PSEL%=2 THEN
14710PA=VAL(FNWimp_IconText(Print_Window%,8))
14720PB=(PA-1)*14
14730PROCprintline("+---+-----------+-----+----------+--------------------+-----------+"+CHR$(10))
14740PROCprintline("|Num| Ammount |State| Date | Who gave it to you | TOTAL |"+CHR$(10))
14750PROCprintline("+---+-----------+-----+----------+--------------------+-----------+"+CHR$(10))
14760FOR A=(1+PB) TO (14+PB)
14770IF AMMOUNT(A)<>0 THEN
14780A$=STR$(A)
14790AA=LEN(A$)
14800S$=FNspc(3-AA)
14810B$=STR$(AMMOUNT(A))
14820B$=FNzero(B$)
14830BB=LEN(B$)
14840SS$=FNspc(11-BB)
14850IF STATUS$(A)="Spend" THEN C$="Spend"
14860IF STATUS$(A)="Save" THEN C$="Save "
14870CC=LEN(DATE$(A))
14880SSS$=FNspc(10-CC)
14890DD=LEN(WHO$(A))
14900SSSS$=FNspc(20-DD)
14910E$=STR$(CURTOT(A))
14920E$=FNzero(E$)
14930EE=LEN(E$)
14940SSSSS$=FNspc(11-EE)
14950PROCprintline("|"+A$+S$+"|"+B$+SS$+"|"+C$+"|"+DATE$(A)+SSS$+"|"+WHO$(A)+SSSS$+"|"+E$+SSSSS$+"|"+CHR$(10))
14960ENDIF
14970NEXTA
14980PROCprintline("+---+-----------+-----+----------+--------------------+-----------+"+CHR$(10))
14990ENDIF
15000
15010IF PSEL%=3 THEN
15020A=VAL(FNWimp_IconText(Print_Window%,9))
15030B=VAL(FNWimp_IconText(Print_Window%,11))
15040PROCprintline("+---+-----------+-----+----------+--------------------+-----------+"+CHR$(10))
15050PROCprintline("|Num| Ammount |State| Date | Who gave it to you | TOTAL |"+CHR$(10))
15060PROCprintline("+---+-----------+-----+----------+--------------------+-----------+"+CHR$(10))
15070FOR A=A TO B
15080IF AMMOUNT(A)<>0 THEN
15090A$=STR$(A)
15100AA=LEN(A$)
15110S$=FNspc(3-AA)
15120B$=STR$(AMMOUNT(A))
15130B$=FNzero(B$)
15140BB=LEN(B$)
15150SS$=FNspc(11-BB)
15160IF STATUS$(A)="Spend" THEN C$="Spend"
15170IF STATUS$(A)="Save" THEN C$="Save "
15180CC=LEN(DATE$(A))
15190SSS$=FNspc(10-CC)
15200DD=LEN(WHO$(A))
15210SSSS$=FNspc(20-DD)
15220E$=STR$(CURTOT(A))
15230E$=FNzero(E$)
15240EE=LEN(E$)
15250SSSSS$=FNspc(11-EE)
15260PROCprintline("|"+A$+S$+"|"+B$+SS$+"|"+C$+"|"+DATE$(A)+SSS$+"|"+WHO$(A)+SSSS$+"|"+E$+SSSSS$+"|"+CHR$(10))
15270ENDIF
15280NEXTA
15290PROCprintline("+---+-----------+-----+----------+--------------------+-----------+"+CHR$(10))
15300ENDIF
15310:
15320BPUT#printhand%,12 : REM do linefeed !!!!
15330SYS &80148,printhand%
15340CLOSE #printhand%
15350ENDPROC
15360:
15370DEFPROCprintline(line$)
15380FOR cco=1 TO LEN(line$)
15390byte=ASC(MID$(line$,cco,1))
15400BPUT#printhand%,byte
15410IF byte=10 OR byte=13 THEN BPUT#printhand%,13 : REM put head to left of paper
15420NEXT cco
15430ENDPROC
15440:
15450DEFFNspc(num)
15460IF num>0 THEN
15470LOCAL f
15480SP$=""
15490FOR f=1 TO num:SP$+=" ":NEXTf
15500ELSE
15510SP$=""
15520ENDIF
15530=SP$
15540:
15550DEFFNzero(numbs$)
15560LOCAL B
15570B=INSTR(numbs$,".")
15580IF LEN(numbs$)-1=B AND B<>0 THEN numbs$=numbs$+"0"
15590IF B=0 THEN numbs$=numbs$+".00"
15600=numbs$
15610:
15620DEF PROCerror
15630IF ERR=67785 THEN
15640PROCWimp_WindowErrorBox("!ADRBook","Please write enable the disk")
15650CLOSE #X%
15660ELSE
15670DOSAVE%=FALSE
15680PROCWimp_WindowErrorBox("!ADRBook",REPORT$)
15690ENDIF
15700ENDPROC
15710:
15720DEF PROCunbox
15730SYS "OS_ReadModeVariable",-1,11 TO ,,xpic
15740SYS "OS_ReadModeVariable",-1,12 TO ,,ypic
15750SYS "OS_ReadModeVariable",-1,4 TO ,,xfact
15760SYS "OS_ReadModeVariable",-1,5 TO ,,yfact
15770MOUSE RECTANGLE 0,0,xpic<<xfact,ypic<<yfact
15780ENDPROC
ș "OS_GetEnv" � env$
� �env$," -quit ") �
2fileload$=�env$,�env$,�(34),�env$,�(34))+1)+1)
(�
2? �Wimp_Start("PocketM",4990,3913)
<3 �User_SetInitialData
F. �Create_Windows
P, �Create_Menus
Z� fileload$<>" " �
d)�Event_LoadFile(fileload$,"file_faf")
n/�Wimp_IconPutText(Save_Window%,1,fileload$)
x�
�1 �Wimp_WaitForEvent
�. �Wimp_CloseDown
� �
� :
�! � �User_SetInitialData
�
DOSAVE%=�
� SA%=�
�
UPDATE%=�
� CD%=�
�
PRT%=�
�� title% 256
� PSEL%=1
� EE%=�
PASSALLOW%=�
PCOVER$="***************"
correct%=�
"PASS$="POO"
, MONEY%=0
6
DD%=27
@
MM%=04
J YY%=1993
TSTATUS$="Save"
^
COL%=�
hPOUNDVAL%=156
r � A%(15)
| total%=1
�
cur%=1
�totpage%=0
�curpage%=0
�� AMMOUNT(999)
�� STATUS$(999)
�� DATE$(999)
�� WHO$(999)
�� CURTOT(999)
�� DD$(999)
�� MM$(999)
�� YY$(999)
�AMMOUNT()=0
�STATUS$()=""
DATE$()=""
WHO$()=""
CURTOT()=0
& EDII%=�
0 �
: :
D � �Create_Windows
N �Wimp_SpritesLoad
X; Info_Window%=�Wimp_WindowLoad("Info")
b< Entry_Window%=�Wimp_WindowLoad("Entry")
l; Main_Window%=�Wimp_WindowLoad("Main")
v= Delete_Window%=�Wimp_WindowLoad("Delete")
�> Options_Window%=�Wimp_WindowLoad("Options")
�; Save_Window%=�Wimp_WindowLoad("Save")
�? Password_Window%=�Wimp_WindowLoad("Password")
�< Save2_Window%=�Wimp_WindowLoad("Save2")
�< Print_Window%=�Wimp_WindowLoad("Print")
�< Close_Window%=�Wimp_WindowLoad("Close")
�. Bar_Icon%=�Wimp_IconBar("!PocketM")
�+�Wimp_IconPutText(Options_Window%,3,"")
��resetentry
� �
�
:
�" � �Event_Save(window%)
� Ȏ window% �
" � Save_Window% :=�
$ � Save2_Window% : =�
:=�
�
*
:
4. � �Event_Sprites(window%)=sprites%
> :
H � �Create_Menus
RV Save_Menu%=�Wimp_MenuCreate("Save\Pocket>Save_Window%\Text>Save2_Window%")
\} Bar_Menu%=�Wimp_MenuCreate("PocketM\Info>Info_Window%\Password>Options_Window%\Save>Save_Menu%\Clear Data\Quit")
fW Main_Menu%=�Wimp_MenuCreate("PocketM\Start\Back\Print\Add\Delete\Next\End")
p"�Wimp_MenuDisable(Bar_Menu%,3)
z%�Wimp_MenuDottedLine(Bar_Menu%,1)
�%�Wimp_MenuDottedLine(Bar_Menu%,3)
�%�Wimp_MenuDottedLine(Bar_Menu%,4)
�&�Wimp_MenuDottedLine(Main_Menu%,2)
�&�Wimp_MenuDottedLine(Main_Menu%,5)
� �
�
:
�" � �Event_Menu(window%)
� Ȏ window% �
�. � Bar_Window% : =Bar_Menu%
�/ � Main_Window% : =Main_Menu%
�! : =�
�
�
� :
1 � �Event_WindowClose(window%,buttons%)
Ȏ window% �
A � Entry_Window% : �Wimp_WindowBringToTop(Main_Window%)
$ �
. �
8 :
B5 � �Event_Draw(window%,x_origin%,y_origin%)
L Ȏ window% �
V8 � Info_Window% : �User_DrawInfoWindow
` �
j �
t :
~' � �User_DrawInfoWindow
� �
� :
�; � �Event_MouseClick(window%,icon%,button%,x%,y%)
� Ȏ window% �
�1 � Bar_Window% : �User_MouseBar
�B � Info_Window% : �User_MouseInfo( button%,icon%)
�C � Entry_Window% : �User_MouseEntry( button%,icon%)
�B � Main_Window% : �User_MouseMain( button%,icon%)
�D � Delete_Window% : �User_MouseDelete( button%,icon%)
�E � Options_Window% : �User_MouseOptions( button%,icon%)
�C � Print_Window% : �User_MousePrint( button%,icon%)
�C � Close_Window% : �User_MouseClose( button%,icon%)
�
�
:
/ � �User_MouseClose( button%,icon%)
( � icon%=1 �
2 SA%=�
<
�unbox
F$�Wimp_WindowClose(Close_Window%)
P
UPDATE%=�
Z(�Wimp_WindowBringToTop(Save_Window%)
d%A$=�Wimp_IconText(Save_Window%,1)
n)�Wimp_IconCaret(Save_Window%,1,�(A$))
x�
� � icon%=2 �
�
�unbox
�
UPDATE%=�
�$�Wimp_WindowClose(Close_Window%)
� CD%=�
��
� � icon%=3 �
�
�unbox
�$�Wimp_WindowClose(Close_Window%)
��
� � CD%=� � �Wimp_CloseDown
��
� � �User_MouseBar
1 �Wimp_WindowBringToTop(Main_Window%)
�
:
"/ � �User_MousePrint( button%,icon%)
,- � icon%=5 � �pdsel:PSEL%=1:�psel
6- � icon%=6 � �pdsel:PSEL%=2:�psel
@- � icon%=7 � �pdsel:PSEL%=3:�psel
J! � icon%=4 � PRT%=� �
T � PSEL%=1 �
^ �print
h �
r � PSEL%=2 �
|1 A=�(�Wimp_IconText(Print_Window%,8))
�. � (A-1)<(totpage%+1) � (A-1)>-1 �
� �print
� �
� �
� � PSEL%=3 �
�1 A=�(�Wimp_IconText(Print_Window%,9))
�2 B=�(�Wimp_IconText(Print_Window%,11))
�, � (A-1)>-1 � (B-1)<(total%-1) �
� �print
� �
� �
� �
� �
:
. � �User_MouseInfo( button%,icon%)
�
& :
0/ � �User_MouseEntry( button%,icon%)
:� � icon%=7 � STATUS$="Spend" � STATUS$="Save":�Wimp_IconPutText(Entry_Window%,3,STATUS$):�Wimp_IconEnable(Entry_Window%,16)
D) � icon%=8 � STATUS$="Save" �
NSTATUS$="Spend"
X.�Wimp_IconPutText(Entry_Window%,3,STATUS$)
b'�Wimp_IconDisable(Entry_Window%,16)
l*�Wimp_IconPutText(Entry_Window%,16,"")
v&A$=�Wimp_IconText(Entry_Window%,5)
�*�Wimp_IconCaret(Entry_Window%,5,�(A$))
��
�F � icon%=18 � �Wimp_WindowClose(Entry_Window%):�resetentry
� � icon%=17 �
�
� EE%=� �
�&A$=�Wimp_IconText(Entry_Window%,5)
�#� A$<>"" � A$<>"." � �(A$)<>0 �
� �read
�
�input
��
��
�&A$=�Wimp_IconText(Entry_Window%,5)
�#� A$<>"" � A$<>"." � �(A$)<>0 �
; AMMOUNT(AABB)=�(�Wimp_IconText(Entry_Window%,5))
STATUS$(AABB)=STATUS$
� DATE$(AABB)=�Wimp_IconText(Entry_Window%,11)+"/"+�Wimp_IconText(Entry_Window%,12)+"/"+�Wimp_IconText(Entry_Window%,13)
5 DD$(AABB)=�Wimp_IconText(Entry_Window%,11)
*5 MM$(AABB)=�Wimp_IconText(Entry_Window%,12)
45 YY$(AABB)=�Wimp_IconText(Entry_Window%,13)
>6 WHO$(AABB)=�Wimp_IconText(Entry_Window%,16)
H UPDATE%=�
R �recalc
\ �input
f�
p�
z.� total%>1 � �Wimp_MenuEnable(Bar_Menu%,3)
�(�PROCWimp_WindowClose(Entry_Window%)
��resetentry
� �cutdate
�&�Wimp_IconCaret(Entry_Window%,5,0)
��
� �
� :
�. � �User_MouseMain( button%,icon%)
�. � icon%>70 � icon%<85 � icon%-=70
�. � icon%>16 � icon%<31 � icon%-=16
�. � icon%>31 � icon%<46 � icon%-=31
�. � icon%>45 � icon%<57 � icon%-=45
�/ � icon%>85 � icon%<100 � icon%-=85
# � icon%>0 � icon%<15 �
" A=(curpage%*14)+icon%
� A<total% � A>0 �
$2 �Wimp_WindowBringToTop(Entry_Window%)
.= �Wimp_IconPutText(Entry_Window%,5,�(AMMOUNT(A)))
8> �Wimp_IconCaret(Entry_Window%,5,�(�(AMMOUNT(A))))
B> �Wimp_IconCaret(Entry_Window%,5,�(�(AMMOUNT(A))))
L: �Wimp_IconPutText(Entry_Window%,3,STATUS$(A))
V UPDATE%=�
` STATUS$=STATUS$(A)
jl � STATUS$(A)="Spend" � �Wimp_IconDisable(Entry_Window%,16) � �Wimp_IconEnable(Entry_Window%,16)
t7 �Wimp_IconPutText(Entry_Window%,11,DD$(A))
~7 �Wimp_IconPutText(Entry_Window%,12,MM$(A))
�7 �Wimp_IconPutText(Entry_Window%,13,YY$(A))
�8 �Wimp_IconPutText(Entry_Window%,16,WHO$(A))
� EE%=�
� AABB=A
� �
� �
�] � icon%=66 � total%>1 � �openprinter:�Wimp_WindowBringToTop(Print_Window%):�psel
�o � icon%=67 � total%>1 � �Wimp_WindowBringToTop(Delete_Window%):�Wimp_IconCaret(Delete_Window%,3,0)
� � icon%=15 �
� �cutdate
� EE%=�
�)�Wimp_WindowBringToTop(Entry_Window%)
2 �Wimp_IconPutText(Entry_Window%,5,"")
6 �Wimp_IconPutText(Entry_Window%,3,"Save")
STATUS$="Save"
/ �Wimp_IconEnable(Entry_Window%,16)
(&�Wimp_IconCaret(Entry_Window%,5,0)
2�
<9 � icon%=62 � curpage%>0 � curpage%-=1:�input
F@ � icon%=61 � curpage%<totpage% � curpage%+=1:�input
P8 � icon%=64 � curpage%>0 � curpage%=0:�input
ZF � icon%=63 � curpage%<totpage% � curpage%=totpage%:�input
d �
n :
x0 � �User_MouseDelete( button%,icon%)
� � icon%=4 �
�)NUM$=�Wimp_IconText(Delete_Window%,3)
�-� NUM$<>"" � �(NUM$)<total% � �(NUM$)>0 �
�Xdo%=�Wimp_WindowCancel("Delete","Are you sure you want to delete number "+NUM$+" ?")
�
� do%=� �
�*�Wimp_IconPutText(Delete_Window%,3,"")
�'�Wimp_IconCaret(Delete_Window%,3,0)
�)�PROCWimp_WindowClose(Delete_Window%)
��
�
�
� do%=� �
�"� �(NUM$)>0 � �(NUM$)<total% �
�
UPDATE%=�
cur%=�(NUM$)
� cur%=total% � total%-=1
"� cur%<total% �
,� A=�(NUM$) � total%
6AMMOUNT(A)=AMMOUNT(A+1)
@STATUS$(A)=STATUS$(A+1)
JDATE$(A)=DATE$(A+1)
TWHO$(A)=WHO$(A+1)
^CURTOT(A)=CURTOT(A+1)
h� A
r
total%-=1
|�
�
� � (total%-1)/15<totpage% �
�totpage%-=1
�%� totpage%>curpage% � curpage%-=1
��
�
� �page
� �recalc
�
�input
��
�*�Wimp_IconPutText(Delete_Window%,3,"")
�'�Wimp_IconCaret(Delete_Window%,3,0)
�)�PROCWimp_WindowClose(Delete_Window%)
/� total%=1 � �Wimp_MenuDisable(Bar_Menu%,3)
�
�
&�
0a � icon%=5 � �Wimp_IconPutText(Delete_Window%,3,""):�Wimp_WindowClose(Delete_Window%)
: �
D :
N1 � �User_MouseOptions( button%,icon%)
X� � icon%=2 � PASSALLOW%=� � �Wimp_IconPutText(Options_Window%,3,PASS$):Ȗ:Ȗ:Ȗ:Ȗ:Ȗ:Ȗ:Ȗ:Ȗ:Ȗ:Ȗ:Ȗ:Ȗ:Ȗ:�Wimp_IconPutText(Options_Window%,3,�PCOVER$,�(PASS$)))
b,�Wimp_IconPutText(Password_Window%,3,"")
l �
v :
�0 � �Event_KeyPress(window%,icon%,key%)
� Ȏ window% �
�F � Entry_Window% : �User_KeyPressEntry( icon%,key%)
�G � Delete_Window% : �User_KeyPressDelete( icon%,key%)
�I � Password_Window% : �User_KeyPressPassword( icon%,key%)
�H � Options_Window% : �User_KeyPressOptions( icon%,key%)
� �
� �
� :
�/ � �User_KeyPressEntry( icon%,key%)
�h � key%=13 � icon%=5 � �Wimp_IconCaret(Entry_Window%,11,�(�Wimp_IconText(Entry_Window%,11)))
�i � key%=13 � icon%=11 � �Wimp_IconCaret(Entry_Window%,12,�(�Wimp_IconText(Entry_Window%,12)))
�i � key%=13 � icon%=12 � �Wimp_IconCaret(Entry_Window%,13,�(�Wimp_IconText(Entry_Window%,13)))
z � key%=13 � icon%=13 � STATUS$="Save" � �Wimp_IconCaret(Entry_Window%,16,�(�Wimp_IconText(Entry_Window%,16)))
M � key%=13 � icon%=13 � STATUS$="Spend" � �User_MouseEntry( 4,17)
; � key%=13 � icon%=16 � �User_MouseEntry( 4,17)
�
* :
40 � �User_KeyPressDelete( icon%,key%)
> �
H :
R2 � �User_KeyPressPassword( icon%,key%)
\ NEWPASS$=""
f � key%=13 �
p/NEWPASS$=�Wimp_IconText(Password_Window%,2)
z�checkpassword
��
� �
� :
�1 � �User_KeyPressOptions( icon%,key%)
� � key%=13 �
�; POUNDVAL%=�(�Wimp_IconText(Options_Window%,3))
� �
� �
� :
�% � �Event_MenuChoice(menu%)
� Ȏ menu% �
�< � Bar_Menu% : �User_MenuChoiceBar
�= � Main_Menu% : �User_MenuChoiceMain
�
�
:
$" � �User_MenuChoiceMain
.$ Ȏ �Wimp_MenuChoice(0) �
8) � 1 : �User_MouseMain( 4,64)
B) � 2 : �User_MouseMain( 4,62)
L) � 3 : �User_MouseMain( 4,66)
V) � 4 : �User_MouseMain( 4,15)
`) � 5 : �User_MouseMain( 4,67)
j) � 6 : �User_MouseMain( 4,61)
t) � 7 : �User_MouseMain( 4,63)
~+ �Wimp_MenuAdjustOn(Main_Menu%)
� �
� �
� :
� � �User_MenuChoiceBar
�$ Ȏ �Wimp_MenuChoice(0) �
� � 1 :
� � 2 :
� � 4
�RANS%=�Wimp_WindowCancel("!PocketM","Are you sure you want to clear the data?")
�� ANS%=� �
�2�Wimp_IconPutText(Save_Window%,1,"PocketData")
�3�Wimp_IconPutText(Save2_Window%,1,"PocketText")
AMMOUNT()=0
STATUS$()=""
DATE$()=""
WHO$()=""
(CURTOT()=0
2�clearmain
< total%=1
F
cur%=1
Ptotpage%=0
Zcurpage%=0
d
UPDATE%=�
n"�Wimp_MenuDisable(Bar_Menu%,3)
x�
� � 5
�� UPDATE%=� �
�D�Wimp_IconPutText(Close_Window%,0,"This file has been modified")
�)�Wimp_WindowBringToTop(Close_Window%)
� �mousebox(Close_Window%)
��
� � UPDATE%=� � finished%=�
�
�
�) �Wimp_MenuAdjustOn(Bar_Menu%)
� �
� :
�) � �Event_LoadFile(file$,type$)
�haa$=file$
+�Wimp_IconPutText(Options_Window%,3,"")
PASS$=""
file2$=file$
"X%=�(file$)
,� #X%,LONG
6� #X%,VCN%
@� LONG<>0 �
JVCN%=VCN%/2
TLONG=LONG/VCN%
^� AB=1 � LONG
h� #X%,A%(AB)
rA%(AB)=A%(AB) � VCN%
|� AB
�� AB=1 � LONG
�A%(AB)=A%(AB)/VCN%
�PASS$=PASS$+�(A%(AB))
�� AB
� � #X%
�,�Wimp_IconPutText(Password_Window%,2,"")
�,�Wimp_WindowBringToTop(Password_Window%)
� �mousebox(Password_Window%)
�)�Wimp_IconCaret(Password_Window%,2,0)
��
� � #X%
� �parttwo
��
�
� �parttwo
&� LONG=0 � correct%=� �
0X%=�(file2$)
:� #X%,LONG
D� #X%,VCN%
NVCN%=VCN%/2
X� LONG<>0 �
b� AB=1 � LONG/VCN%
l� #X%,A%(AB)
v� AB
��
�6� \/\/\/\/\/\/\/ Put load in here \/\/\/\/\/\/\/\/
�� #X%,total%
�� #X%,totpage%
�� A=0 � total%-1
�� #X%,AMMOUNT(A)
�� #X%,STATUS$(A)
�� #X%,DATE$(A)
�� #X%,WHO$(A)
�� #X%,CURTOT(A)
�� #X%,DD$(A)
�� #X%,MM$(A)
�� #X%,YY$(A)
�A
UPDATE%=�
(�Wimp_WindowBringToTop(Main_Window%)
�input
* � #X%
4�
>.� total%>1 � �Wimp_MenuEnable(Bar_Menu%,3)
HA� correct%=� � �Wimp_WindowClose(Password_Window%):correct%=�
R�
\ :
f+ � �Event_SaveFile(file$,window%)
p � window%=Save_Window% �
z� �
�� � � �error
�� DOSAVE%=� �
�,SETPASS1$=�Wimp_IconText(Save_Window%,4)
�,SETPASS2$=�Wimp_IconText(Save_Window%,5)
�{� SETPASS1$<>SETPASS2$ � �Wimp_WindowAlert("Password Protection","The two passwords are not the same. File not saved.")
�� SETPASS1$=SETPASS2$ �
�� SETPASS1$<>"" �
�VCN%=�(�(1000000))+1
�X%=�(file$)
�� AB=1 � �(SETPASS1$)
� A%(AB)=�(�SETPASS1$,AB,1))
�� AB
�� #X%,�(SETPASS1$)*VCN%
� #X%,VCN%*2
PASS$=SETPASS1$
;�Wimp_IconPutText(Options_Window%,3,�PCOVER$,�(PASS$)))
$� AB=1 � �(SETPASS1$)
.A%(AB)=A%(AB)*VCN%
8� #X%,A%(AB) � VCN%
B� AB
L�
VX%=�(file$)
` � #X%,0
j � #X%,0
t�
~8� \/\/\/\/\/\/\/\/\/ Put Save in here \/\/\/\/\/\/\/
�� #X%,total%
�� #X%,totpage%
�� A=0 � total%-1
�� #X%,AMMOUNT(A)
�� #X%,STATUS$(A)
�� #X%,DATE$(A)
�� #X%,WHO$(A)
�� #X%,CURTOT(A)
�� #X%,DD$(A)
�� #X%,MM$(A)
�� #X%,YY$(A)
��A
UPDATE%=�
� #X%
�("SETTYPE ")+file$+" FAF"
�Wimp_MenuClose
(-� PROCWimp_IconPutText(Save_Window%,4,"")
2-� PROCWimp_IconPutText(Save_Window%,5,"")
<�
F�
P�
Z � window%=Save2_Window% �
d� �
n� � � �error
x� DOSAVE%=� �
��21
��("SPOOL "+file$)
�S�"+---+-----------+-----+----------+--------------------+-----------+";:�(10);
�S�"|Num| Ammount |State| Date | Who gave it to you | TOTAL |";:�(10);
�S�"+---+-----------+-----+----------+--------------------+-----------+";:�(10);
�� A=1 � total%-1
� A$=�(A)
� AA=�(A$)
�S$=�spc(3-AA)
�B$=�(AMMOUNT(A))
�B$=�zero(B$)
� BB=�(B$)
�SS$=�spc(11-BB)
%� STATUS$(A)="Spend" � C$="Spend"
$� STATUS$(A)="Save" � C$="Save "
CC=�(DATE$(A))
"SSS$=�spc(10-CC)
,DD=�(WHO$(A))
6SSSS$=�spc(20-DD)
@E$=�(CURTOT(A))
JE$=�zero(E$)
T EE=�(E$)
^SSSSS$=�spc(11-EE)
h_�"|"+A$+S$+"|"+B$+SS$+"|"+C$+"|"+DATE$(A)+SSS$+"|"+WHO$(A)+SSSS$+"|"+E$+SSSSS$+"|";:�(10);
r�A
|S�"+---+-----------+-----+----------+--------------------+-----------+";:�(10);
��("SPOOL")
� �("SETTYPE "+file$+" FFF")
��6
� � file$="<Wimp$Scrap>" �
��Wimp_SendToEdit(file$)
�+�Wimp_IconPutText(Save2_Window%,1,ACE$)
��
��
��
��6
�� DOSAVE%=� � DOSAVE%=�
��
� :
� �cutdate
DD%=�(��$,5,2))
MM$=��$,8,3)
& � MM$="Jan" � MM%=1
0 � MM$="Feb" � MM%=2
: � MM$="Mar" � MM%=3
D � MM$="Apr" � MM%=4
N � MM$="May" � MM%=5
X � MM$="Jun" � MM%=6
b � MM$="Jul" � MM%=7
l � MM$="Aug" � MM%=8
v � MM$="Sep" � MM%=9
� � MM$="Oct" � MM%=10
� � MM$="Nov" � MM%=11
� � MM$="Dec" � MM%=12
� YY%=�(��$,12,4))
�.�Wimp_IconPutText(Entry_Window%,11,�(DD%))
�.�Wimp_IconPutText(Entry_Window%,12,�(MM%))
�.�Wimp_IconPutText(Entry_Window%,13,�(YY%))
� �
� :
� � �checkpassword
� � PASS$=NEWPASS$ �
�correct%=�
�PASSALLOW%=�
�parttwo
;�Wimp_IconPutText(Options_Window%,3,�PCOVER$,�(PASS$)))
+�Wimp_IconPutText(Save_Window%,4,PASS$)
+�Wimp_IconPutText(Save_Window%,5,PASS$)
**�Wimp_IconPutText(Save_Window%,1,haa$)
4�
>PASSALLOW%=�
H��Wimp_WindowClose(Password_Window%):�Wimp_WindowAlert("Password Protection","The file has not been loaded due to incorrect password entry.")
Rcorrect%=�
\�
f*ș"OS_ReadModeVariable",-1,11 � ,,Xpic
p*ș"OS_ReadModeVariable",-1,12 � ,,Ypic
z*ș"OS_ReadModeVariable",-1,4 � ,,Xfact
�*ș"OS_ReadModeVariable",-1,5 � ,,Yfact
�%ȗ ȓ 0,0,Xpic<<Xfact,Ypic<<Yfact
� �
� :
�� �mousebox(w%)
�wimp%!0=w%
�$ș"Wimp_GetWindowOutline",,wimp%
�Cȗ ȓ wimp%!4+2,wimp%!8+2,wimp%!12-wimp%!4-4,wimp%!16-wimp%!8-4
��
� :
�� �resetentry
�)�Wimp_IconPutText(Entry_Window%,5,"")
�.�Wimp_IconPutText(Entry_Window%,3,STATUS$)
*�Wimp_IconPutText(Entry_Window%,16,"")
�
:
$ � �read
. UPDATE%=�
8= AMMOUNT(total%)=�(�Wimp_IconText(Entry_Window%,5))
B" STATUS$(total%)=STATUS$
L� DATE$(total%)=�Wimp_IconText(Entry_Window%,11)+"/"+�Wimp_IconText(Entry_Window%,12)+"/"+�Wimp_IconText(Entry_Window%,13)
V7 DD$(total%)=�Wimp_IconText(Entry_Window%,11)
`7 MM$(total%)=�Wimp_IconText(Entry_Window%,12)
j7 YY$(total%)=�Wimp_IconText(Entry_Window%,13)
t8 WHO$(total%)=�Wimp_IconText(Entry_Window%,16)
~U � STATUS$(total%)="Save" � CURTOT(total%)=CURTOT(total%-1)+AMMOUNT(total%)
�V � STATUS$(total%)="Spend" � CURTOT(total%)=CURTOT(total%-1)-AMMOUNT(total%)
� total%+=1
� cur%=total%
� �page
� �
�
� � �input
�; �Wimp_IconPutText(Main_Window%,69,�(curpage%+1))
�; �Wimp_IconPutText(Main_Window%,65,�(totpage%+1))
� B=curpage%*14
� � A=1 � 14
�� AMMOUNT(A+B)<>0 �
6 �Wimp_IconPutText(Main_Window%,A+70,�(A+B))
b$=�(AMMOUNT(A+B))
b$=�cut(b$)
a$=�zero(b$)
(/ �Wimp_IconPutText(Main_Window%,A,a$)
2< �Wimp_IconPutText(Main_Window%,A+16,STATUS$(A+B))
<: �Wimp_IconPutText(Main_Window%,A+31,DATE$(A+B))
F9 �Wimp_IconPutText(Main_Window%,A+45,WHO$(A+B))
Pb$=�(CURTOT(A+B))
Zb$=�cut(b$)
da$=�zero(b$)
n2 �Wimp_IconPutText(Main_Window%,A+85,a$)
x�
�+�Wimp_IconPutText(Main_Window%,A+70,"")
�/ �Wimp_IconPutText(Main_Window%,A,"")
�2 �Wimp_IconPutText(Main_Window%,A+16,"")
�2 �Wimp_IconPutText(Main_Window%,A+31,"")
�2 �Wimp_IconPutText(Main_Window%,A+45,"")
�2 �Wimp_IconPutText(Main_Window%,A+85,"")
��
�
�A
� �
�
� � �clearmain
� � A=1 � 14
�2 �Wimp_IconPutText(Main_Window%,A+70,"")
/ �Wimp_IconPutText(Main_Window%,A,"")
2 �Wimp_IconPutText(Main_Window%,A+16,"")
2 �Wimp_IconPutText(Main_Window%,A+31,"")
"2 �Wimp_IconPutText(Main_Window%,A+45,"")
,2 �Wimp_IconPutText(Main_Window%,A+85,"")
6
�A
@1 �Wimp_IconPutText(Main_Window%,69,"1")
J1 �Wimp_IconPutText(Main_Window%,65,"1")
T �
^ :
h � �page
r" curpage%=�((cur%-1)/15)
|2 � curpage%>totpage% � totpage%=curpage%
� �
� :
� � �recalc
� � A=1 � total%
�A � STATUS$(A)="Save" � CURTOT(A)=CURTOT(A-1)+AMMOUNT(A)
�B � STATUS$(A)="Spend" � CURTOT(A)=CURTOT(A-1)-AMMOUNT(A)
�
�A
� �
�:
�J� ********************************************************************
�:
�(� �Wimp_WindowAlert(title$,message$)
�+�Wimp_WindowAlertBox(title$,message$,0)
�
:
3� �Wimp_WindowAlertBox(title$,message$,button%)
&� response%
0$(wimp%+4)=message$
:Ȏ button% �
D � 2 : response%=1
N � 1 : response%=15
X! � 3 : response%=(1<<5)+16
b! � 4 : response%=(1<<6)+16
l : response%=16
v�
�=ș "Wimp_ReportError",wimp%,response%,title$ � ,response%
��
�:
�)� �Wimp_WindowCancel(title$,message$)
�$(wimp%+4)=message$
�response%=23
�=ș "Wimp_ReportError",wimp%,response%,title$ � ,response%
�=response%-2
�:
�+� �Wimp_WindowErrorBox(title$,message$)
�+�Wimp_WindowAlertBox(title$,message$,2)
��
�:
� �Wimp_WindowTitle(window%)
wimp%!0=window%
ș "Wimp_GetWindInfo",,wimp%
6� ((wimp%!60)�&100)=0 � 1,"Title isn't indirected"
*=$(wimp%!76)
4:
> � �Wimp_WindowLoad(window$)
H9=�Wimp_WindowLoadFrom(window$,"<Obey$Dir>.Templates")
R:
\-� �Wimp_WindowLoadFrom(window$,template$)
f� c%,i%,n%,j%,sp$,sp2$
p%ș "Wimp_OpenTemplate",,template$
zMș "Wimp_LoadTemplate",,wimp%,icons%,icon_memory%,-1,window$,0 � ,,icons%
�Ȏ sprites% �
� � 1 : wimp%!64=sprites%
�) : wimp%!64=�Event_Sprites(window%)
��
�&ș "Wimp_CreateWindow",,wimp% � c%
�ș "Wimp_CloseTemplate"
�7ș "Wimp_WhichIcon",c%,wimp%+40,1+2+(1<<8),2+(1<<8)
�Ȏ wimp%!40 �
�
� -1 :
� : i%=40
� �
�$ wimp%!4=wimp%!i% : wimp%!0=c%
�$ ș "Wimp_GetIconState",,wimp%
- sp$=�Wimp_GetStringAtAddress(wimp%!28)
" ș "Wimp_DeleteIcon",,wimp%
Ȏ sprites% �
$ � 1 : wimp%!32=1
. :
8/ ș "OS_SpriteOp",&108,sprites% � ,,,n%
B
j%=0
L � : j%+=1
V= ș "OS_SpriteOp",&10D,sprites%,pointer_block%,20,j%
`7 sp2$=�Wimp_GetStringAtAddress(pointer_block%)
j � j%=n% � sp$=sp2$
t4 � sp$=sp2$ � wimp%!32=sprites% � wimp%!32=1
~ �
� wimp%!4=c%
�. ș "Wimp_CreateIcon",,wimp%+4 � handle%
� i%+=4
� � (wimp%!i%)=-1
��
�=c%
�:
�%� �Wimp_WindowBringToTop(window%)
�!wimp%=window%
�#ș "Wimp_GetWindowState",,wimp%
�wimp%!28=-1
� ș "Wimp_OpenWindow",,wimp%
�
:
� �Wimp_WindowClose(window%)
!wimp%=window%
( ș "Wimp_CloseWindow",,wimp%
2�
<:
F$� �Wimp_WindowForceDraw(window%)
PȎ window% �
Z8 � -1 : ș "Wimp_ForceRedraw",-1,0,0,2*1280,2*1024
d9 : ș "Wimp_ForceRedraw",window%,0,-2*1024,2*1280,0
n�
x�
�:
� � �Wimp_WindowOpen(window%)
�!wimp%=window%
�#ș "Wimp_GetWindowState",,wimp%
� ș "Wimp_OpenWindow",,wimp%
��
�:
��Wimp_WindowInterface
� ș"Wimp_BorderWindow",,wimp%
��
�:
�J� ********************************************************************
�:
0� �Wimp_SetIconSprite(window%,icon%,sprite$)
wimp%!0=window%
wimp%!4=icon%
"!ș "Wimp_GetIconState",,wimp%
,$wimp%!32="S"+sprite$
6wimp%!0=window%
@
wimp%!8=0
Jwimp%!12=0
T!ș "Wimp_SetIconState",,wimp%
^�
h:
r � �Wimp_IconBar(Sprite$)
| � icon%
�wimp%!0=-1
� wimp%!4=0 : wimp%!8=0
� wimp%!12=88 : wimp%!16=74
�wimp%!20=&3002
�$(wimp%+24)=Sprite$
�'ș "Wimp_CreateIcon",,wimp% � icon%
�
=icon%
�:
�+� �Wimp_IconCaret(window%,icon%,chars%)
�8ș "Wimp_SetCaretPosition",window%,icon%,,,-1,chars%
��
�:
�#� �Wimp_IconText(window%,icon%)
#wimp%!0=window% : wimp%!4=icon%
!ș "Wimp_GetIconState",,wimp%
7� ((wimp%!24) � &100)=0 � 1,"Icon isn't indirected"
&=$(wimp%!28)
0:
:)� �Wimp_IconValidation(window%,icon%)
D#wimp%!0=window% : wimp%!4=icon%
N!ș "Wimp_GetIconState",,wimp%
X7� ((wimp%!24) � &100)=0 � 1,"Icon isn't indirected"
b=$(wimp%!32)
l:
v&� �Wimp_IconDisable(window%,icon%)
�#wimp%!0=window% : wimp%!4=icon%
�$wimp%!8=1<<22 : wimp%!12=1<<22
�!ș "Wimp_SetIconState",,wimp%
��
�:
�%� �Wimp_IconEnable(window%,icon%)
�#wimp%!0=window% : wimp%!4=icon%
�$wimp%!8=0 : wimp%!12=1<<22
�!ș "Wimp_SetIconState",,wimp%
��
�:
�0� �Wimp_IconPutSprite(window%,icon%,sprite$)
�!wimp%!0=window%:wimp%!4=icon%
!!ș "Wimp_GetIconState",,wimp%
! ș "Wimp_DeleteIcon",,wimp%
!=wimp%!4=wimp%!8 : wimp%!8=wimp%!12 : wimp%!12=wimp%!16
! ?wimp%!16=wimp%!20 : wimp%!20=wimp%!24 : $(wimp%+24)=sprite$
!*'ș "Wimp_CreateIcon",,wimp% � icon%
!4
=icon%
!>:
!H,� �Wimp_IconPutText(window%,icon%,text$)
!R#wimp%!0=window% : wimp%!4=icon%
!\!ș "Wimp_GetIconState",,wimp%
!f7� ((wimp%!24) � &100)=0 � 1,"Icon isn't indirected"
!p$(wimp%!28)=text$
!z#wimp%!0=window% : wimp%!4=icon%
!�wimp%!8=0 : wimp%!12=0
!�!ș "Wimp_SetIconState",,wimp%
!��
!�:
!� � �Wimp_IconInterfaceStart
!� ș"Wimp_BorderIcon",,wimp%
!��
!�:
!� � �Wimp_IconInterfaceFinish
!�
wimp%!8=0
!� ș"Wimp_BorderIcon",,wimp%
!��
!�:
"J� ********************************************************************
":
" � �Wimp_MenuAdjustOn(menu%)
"$,ș "Wimp_GetPointerInfo",,pointer_block%
".^� ((pointer_block%!8)�1)=1 � ș "Wimp_CreateMenu",,menu%,pointer_block%!0,pointer_block%!4
"8�
"B:
"L � �Wimp_MenuChoice(level%)
"V=(wimp%!(4*level%))+1
"`:
"j � �Wimp_MenuCreate(menu$)
"t)� menu$="Colours" �=�Wimp_MenuColours
"~'� menu%,index%,width%,length%,k%,s%
"�.� menu% 28+�Wimp_MenuNoOfEntries(menu$)*24
"�7menu%?12=7 : menu%?13=2 : menu%?14=7 :menu%?15=0
"�+menu%!16=140 : menu%!20=44 : menu%!24=0
"�index%=menu%+28
"� $menu%=�menu$,�menu$,"\")-1)
"�#width%=�(�menu$,�menu$,"\")-1))
"�$menu$+="\" : Menu_NoOfEntries%=0
"�ȕ menu$<>""
"� menu$=�menu$,�menu$,"\")+1)
"�Ȏ menu$ �
"� � ""
"� :
#1 !index%=0 : index%!4=-1 : index%!8=&7000021
#
length%=�menu$,"\")-1
# k%=��menu$,length%),">")
#
Ȏ k% �
#(
� 0
#2
#<% s%=�(�menu$,k%+1,length%-k%))
#F index%!4=s%
#P length%=k%-1
#Z �
#d" $(index%+12)=�menu$,length%)
#n' � length%>width% � width%=length%
#x index%+=24
#��
#��
#�menu%!16=16*(width%+1)
#�(index%!-24=index%!-24 � &80 : =menu%
#�:
#�� �Wimp_MenuColours
#�!=�Wimp_MenuCreateColours(" ")
#�:
#�%� �Wimp_MenuCreateColours(title$)
#�� x$,men%,j%,i%
#�6x$=title$+"\0\1\2\3\4\5\6\7\8\9\10\11\12\13\14\15"
#� men%=�Wimp_MenuCreate(x$)
#�� i%=0 � 15
$
Ȏ � �
$(� i%<4,i%=9,i%=12,i%=14,i%=15 : j%=7
$ : j%=0
$"�
$, men%?(39+i%*24)=i%*16+j%
$6 �Wimp_MenuCentre(men%,i%+1)
$@�
$J =men%
$T:
$^"� �Wimp_MenuNoOfEntries(menu$)
$h� n% ,j% : n%=0 : j%=0
$r�
$|j%=�menu$,"\",j%+1)
$�� j%<>0 � n%+=1
$�
� j%=0
$�=n%
$�:
$�5� �Wimp_MenuBackGroundColour(menu%,item%,colour%)
$�� fore%,i%
$�&fore%=(menu%?(39+(item%-1)*24))�16
$�(i%=((menu%?(39+(item%-1)*24))�16)�16
$�/menu%?(39+(item%-1)*24)=fore%+16*colour%+i%
$��
$�:
$�7� �Wimp_IconBackGroundColour(window%,icon%,colour%)
$�� fore%,i%
%(fore%=(window%?(39+(icon%-1)*24))�16
%*i%=((window%?(39+(icon%-1)*24))�16)�16
% 1window%?(39+(icon%-1)*24)=fore%+16*colour%+i%
%&�
%0:
%:#� �Wimp_MenuCentre(menu%,item%)
%D:menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)�(1<<3)
%N�
%X:
%b� �Wimp_MenuClose
%lș "Wimp_CreateMenu",-1
%v�
%�:
%�$� �Wimp_MenuDisable(menu%,item%)
%�;menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)�(1<<22)
%��
%�:
%�'� �Wimp_MenuDottedLine(menu%,item%)
%�7menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))�2
%��
%�:
%�#� �Wimp_MenuEnable(menu%,item%)
%�"�Wimp_MenuDisable(menu%,item%)
%�;menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)�(1<<22)
%��
&:
& 5� �Wimp_MenuForegroundColour(menu%,item%,colour%)
&Emenu%?(39+(item%-1)*24)=colour%+16*((menu%?(39+(item%-1)*24))�16)
& �
&*:
&4)� �Wimp_MenuGlue(menu1%,item%,menu2%)
&> menu1%!(8+item%*24)=menu2%
&H�
&R:
&\'� �Wimp_MenuItem(menu%,item%,item$)
&f,$(menu%+(40+(item%-1)*24))=�item$,12)+�0
&p�
&z:
&�$� �Wimp_MenuMessage(menu%,item%)
&�<menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))�(1<<3)
&��
&�:
&�"� �Wimp_MenuPopUp(Menu%,x%,y%)
&�
� SA%=� �
&�menu%=Menu%
&�+ș "Wimp_CreateMenu",,menu%,x%-64,y%+20
&��
&��
&�:
&� � �Wimp_MenuPopUpBar(x%,y%)
&�� n% : n%=0
'+ȕ ((Bar_Menu%!(28+n%*24))�%10000000)=0
' n%+=1
'�
'$2ș "Wimp_CreateMenu",,Bar_Menu%,x%-64,96+n%*44
'.menu%=Bar_Menu%
'8�
'B:
'L!� �Wimp_MenuTick(menu%,item%)
'V7menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))�1
'`�
'j:
't#� �Wimp_MenuTitle(menu%,title$)
'~$menu%=�title$,12)+�0
'��
'�:
'�=� �Wimp_MenuWrite(menu%,item%,buffer%,val%,BufferLength%)
'�7menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))�4
'�8menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)�&100
'�#menu%!(40+(item%-1)*24)=buffer%
'� menu%!(44+(item%-1)*24)=val%
'�)menu%!(48+(item%-1)*24)=BufferLength%
'��
'�:
'�J� ********************************************************************
'�:
(%� �Wimp_SelectIcon(window%,icon%)
(
wimp%!0=window%
(wimp%!4=icon%
( #wimp%!8=%1000000000000000000000
(($wimp%!12=%1000000000000000000000
(2ș&400CD,,wimp%
(<�
(F:
(P'� �Wimp_UnselectIcon(window%,icon%)
(Zwimp%!0=window%
(dwimp%!4=icon%
(n
wimp%!8=0
(x$wimp%!12=%1000000000000000000000
(�ș&400CD,,wimp%
(��
(�:
(�� �Wimp_SpritesLoad
(�/�Wimp_SpritesPathLoad("<Obey$Dir>.Sprites")
(� direct_sprites%=sprites%
(��
(�:
(�&� �Wimp_SpritesPathLoad(pathname$)
(�
�S%,T%
(�,S%=�"<Obey$Dir>.Sprites":T%=�#S%+16:�#S%
(��sprites%T%,spname%12
(� !sprites%=T%:sprites%!8=0
)!ș"OS_SpriteOp",&109,sprites%
)+ș"OS_SpriteOp",&10A,sprites%,pathname$
)�
)":
),J� ********************************************************************
)6:
)@� �Wimp_FileType(type%)
)J Ȏtype%�
)T�&FFF:="Text"
)^�&FFD:="Data"
)h�&FFB:="Basic"
)r�&FF9:="Sprite"
)|�&FED:="Palette"
)��&FEC:="Template"
)��&AFF:="Draw"
)��&1000:="Folder"
)��&2000:="Application"
)�=�~(type%)
)��
)�:
)�� �Wimp_GetFilePathName
)�'=�Wimp_GetStringAtAddress(wimp%+44)
)�:
)� � �Wimp_FileLoad(pathname$)
)��S%,T%,file%
)�S%=�pathname$
*T%=�#S%+16
*�#S%
* �file%T%
*&"�("LOAD"+pathname$+""+�~file%)
*0
=file%
*:;
*D&� �Wimp_GetStringAtAddress(array%)
*N
�s$:s$=""
*X<ȕ(?array%<>13)�(?array%<>0):s$+=�(?array%):array%+=1:�:
*b=s$
*l:
*v#� �Wimp_GetFileFromPathname(f$)
*�Ȏ �f$,".") �
*� � 0 :=f$
*�7 :=�Wimp_GetFileFromPathname(�f$,�(f$)-�f$,".")))
*��
*�:
*� � �Wimp_SendToEdit(file$)
*�� n%
*�wimp%!4=&6CC01C0C
*�wimp%!16=5
*�wimp%!36=0
*�wimp%!40=&FFF
*�$(wimp%+44)=file$+�0
*�n%=�file$+45
+,� n%�4 � !wimp%=4+(n%>>2)<<2 � !wimp%=n%
+ $ș "Wimp_SendMessage",17,wimp%,0
+�
+ :
+*J� ********************************************************************
+4:
+>/� �Wimp_Start(TaskName$,wimp_memory%,icon%)
+H%� wimp% wimp_memory%,icons% icon%
+R)� wimp_memory%<256 � wimp_memory%=256
+\ icon_memory%=icons%+icon%
+ftask$=TaskName$
+p+indirect_sprites%=1 : direct_sprites%=1
+z�Wimp_SetEventVariables
+�� � �Wimp_Error:�
+�@ș"Wimp_Initialise",200,&4B534154,TaskName$ � version%,task%
+��
+�:
+�� �Wimp_BASICParameters
+� � com$,param$,I%
+� ș "OS_GetEnv" � com$
+� params$=""
+� I%=�com$," -quit ")
+�5 � I% � params$=�com$,�com$," ",I%+�" -quit ")+1)
+� =params$
+�:
+� � �Wimp_SetEventVariables
,� pointer_block% 20
,interface%=�
,.null%=1 :draw%=2 : pointer_leaving%=1<<4
,$1pointer_entering%=1<<5:mouse%=1<<6:drag%=1<<7
,.&key%=1<<8:menu%=1<<9:scroll%=1<<10
,8@lose_caret%=1<<11:gain_caret%=1<<12:message%=(1<<17)+(1<<18)
,B0recorder%=1<<18:acknowledge%=1<<19:window%=0
,L!sprites%=1:version%=0:task%=0
,V*Bar_Window%=-2:Bar_Icon%=0:Bar_Menu%=0
,`*x_origin%=0:y_origin%=0:SaveWindow%=-3
,j3message_quit%=0:message_save%=2:message_load%=3
,t!mouse_button%=2:save_event%=0
,~ top_line%=0 : bottom_line%=0
,��
,�:
,�� �Wimp_Error
,�
�X$,x%
,� � � �
,�x%=�
,�X$=�$+"atline"+�(x%�10)
,��ErrorMsg%36
,�EErrorMsg%!0=36:ErrorMsg%!12=0:ErrorMsg%!16=&81080:ErrorMsg%!20=x%
,� $(ErrorMsg%+24)="!RunImage"
,�%ș"Wimp_SendMessage",17,ErrorMsg%
,� �Wimp_WindowAlert(task$,X$)
-�Wimp_CloseDown
-
�
-:
- � �Wimp_CloseDown
-(#ș"Wimp_CloseDown",task%,"TASK"
-2�
-<:
-F� �Wimp_Quit
-Pfinished%=�
-Z�
-d:
-n#� �Wimp_ReadVariable(Variable$)
-x�len%,result%,variable%
-�$wimp%=Variable$
-�3ș"OS_ReadVarVal",wimp%,wimp%+255,255,,3�,,len%
-�wimp%?(len%+255)=13
-�=$(wimp%+255)
-�:
-�J� ********************************************************************
-�:
-�� �Wimp_WaitForEvent
-�� mask%,event%
-�finished%=�
-�mask%=%111000011001
-��
-�' ș"Wimp_Poll",mask%,wimp% � event%
. Ȏ event% �
.
�0 :
. �1 : �Wimp_PollDrawWindow
."& �2 : ș "Wimp_OpenWindow",,wimp%
., �3 : �Wimp_PollCloseWindow
.6
�4 :
.@
�5 :
.J �6 : �Wimp_PollMouseClick
.T �7 : �Wimp_PollSaveMessage
.^ �8 : �Wimp_PollKeyPress
.h# �9 : �Event_MenuChoice(menu%)
.r
�10:
.|
�11:
.�
�12:
.� �17,18: �Wimp_PollMessages
.�
�19:
.� �
.�� finished%
.��
.�:
.�� �Wimp_PollDrawWindow
.� � more%
.�&ș"Wimp_RedrawWindow",,wimp%�more%
.�window%=wimp%!0
.�Ax_origin%=16+wimp%!4-wimp%!20:y_origin%=-16+wimp%!16-wimp%!24
.� ȕmore%
/0 � interface% � ș"Wimp_BorderWindow",,wimp%
/- �Event_Draw(window%,x_origin%,y_origin%)
/ ' ș"Wimp_GetRectangle",,wimp%�more%
/&�
/0�
/::
/D� �Wimp_PollCloseWindow
/N% ș "Wimp_GetPointerInfo",,wimp%
/X) window%=wimp%!12 : buttons%=wimp%!8
/b) �Event_WindowClose(window%,buttons%)
/l2 !wimp%=window% : ș "Wimp_CloseWindow",,wimp%
/v�
/�:
/�� �Wimp_PollMouseClick
/�J button%=wimp%!8:window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4
/� Ȏ button% �
/�" �2 : �Wimp_PollMenuPopUp
/�# : Ȏ �Event_Save(window%) �
/�, � � : �Wimp_PollMouseSave
/�1 � �: �Wimp_PollEventMouseClick
/� �
/� �
/��
/�:
/�� �Wimp_PollMenuPopUp
0
� SA%=� �
0 menu%=�Event_Menu(window%)
0 Ȏ menu% �
0 � �:
0*
:
04 Ȏ window% �
0> � -2 : n%=0
0H3 ȕ ((Bar_Menu%!(28+n%*24))�%10000000)=0
0R n%+=1
0\
�
0f: ș "Wimp_CreateMenu",,Bar_Menu%,x%-64,96+n%*73
0p4 : ș"Wimp_CreateMenu",,menu%,x%-64,y%+20
0z
�
0� �
0��
0��
0�:
0�� �Wimp_PollMouseSave
0� Ȏ icon% �
0�8 � 0 : � button% � &50 � �Wimp_PollDragBox(window%)
0�8 � 2 : � button% � 5 � �Wimp_PollSaveFile(window%)
0� �
0��
0�:
0� � �Wimp_PollEventMouseClick
0�. � interface% � ș"Wimp_BorderIcon",,wimp%
13 �Event_MouseClick(window%,icon%,button%,x%,y%)
1 Ȏ interface% �
1 � � :
1$( wimp%!0=x%:wimp%!4=y% : wimp%!8=0
1.( wimp%!12=window% : wimp%!16=icon%
18! ș"Wimp_BorderIcon",,wimp%
1B �
1L�
1V:
1`!� �Wimp_PollSaveFile(window%)
1j
�file$
1t@ wimp%!0=window% : wimp%!4=1 : ș "Wimp_GetIconState",,wimp%
1~ file$=$(wimp%!28)
1� Ȏ �file$,".") �
1�
� 0 :
1�� key%=13 �
1�@ $(wimp%+4)="To save, drag the icon to a directory window"
1�+ ș "Wimp_ReportError",wimp%,16,task$
1��
1� :
1�1 � key%=13 � �Event_SaveFile(file$,window%)
1� �
1�&� key%=13 � ș"Wimp_CreateMenu",-1
1� � SA%=� � �Wimp_CloseDown
1��
2:
2
� �Wimp_PollDragBox(window%)
2
�x%,y%
2 save%=window%
2( !wimp%=window%
22# ș"Wimp_GetWindowState",,wimp%
2<- x%=wimp%!4-wimp%!20:y%=wimp%!16-wimp%!24
2F wimp%!4=0
2P! ș"Wimp_GetIconState",,wimp%
2Z !wimp%=window%
2d wimp%!4=5
2n, wimp%!8=x%+wimp%!8:wimp%!12=y%+wimp%!12
2x. wimp%!16=x%+wimp%!16:wimp%!20=y%+wimp%!20
2� wimp%!24=0:wimp%!28=0
2�* wimp%!32=&7FFFFFFF:wimp%!36=&7FFFFFFF
2� ș"Wimp_DragBox",,wimp%
2��
2�:
2�� �Wimp_PollKeyPress
2�1 window%=wimp%!0:icon%=wimp%!4:key%=wimp%!24
2� Ȏ �Event_Save(window%) �
2�( � � : �Wimp_PollSaveFile(window%)
2�/ � �: �Event_KeyPress(window%,icon%,key%)
2� �
2��
2�:
3� �Wimp_PollSaveMessage
3 �file$,window%,icon%,x%,y%
3# ș"Wimp_GetPointerInfo",,wimp%
3": window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4
3,> wimp%!0=save% : wimp%!4=1 : ș "Wimp_GetIconState",,wimp%
36 file$=$(wimp%!28)
3@+ file$=�Wimp_GetFileFromPathname(file$)
3JACE$=file$
3T wimp%!20=window%
3^ wimp%!24=icon%
3h wimp%!28=x%:wimp%!32=y%
3r wimp%!36=length%
3| wimp%!0=64
3� wimp%!12=0
3� wimp%!16=1
3� wimp%!40=&FFF
3� $(wimp%+44)=file$
3�4 ș"Wimp_SendMessage",17,wimp%,wimp%!20,wimp%!24
3��
3�:
3�� �Wimp_PollMessages
3� � file$
3�,file$=�Wimp_GetStringAtAddress(wimp%+44)
3� Ȏ wimp%!16 �
3� � 0 : finished%=�
3� � 1 :
4 � 2 :
4/ � PROCWimp_IconPutText(save%,1,file$)
4 C wimp%!0=save% : wimp%!4=1 : ș "Wimp_GetIconState",,wimp%
4& $(wimp%!28)=file$
40< wimp%!0=save% : wimp%!4=1 : wimp%!8=0 : wimp%!12=0
4:' ș "Wimp_SetIconState",,wimp%
4D0 � PROCWimp_IconCaret(save%,1,LENfile$)
4N8 ș "Wimp_SetCaretPosition",save%,1,,,-1,�file$
4X& �Event_SaveFile(file$,save%)
4b# � SA%=� � �Wimp_CloseDown
4l � 3
4vG type$=�Wimp_FileType(wimp%!40) : �Event_LoadFile(file$,type$)
4� � 5 :
4�!� wimp%!40=&FAF � event%=18 �
4�wimp%!12=wimp%!8
4�+ș"XWimp_SendMessage",17,wimp%,wimp%!20
4� file$=�Wimp_GetFilePathName
4� type$=�Wimp_FileType(&FAF)
4� �Event_LoadFile(file$,type$)
4��
4� �
4��
4�:
4�&� �Wimp_GetStringAtAddress(array%)
4�
�s$:s$=""
5<ȕ(?array%<>13)�(?array%<>0):s$+=�(?array%):array%+=1:�:
5 =s$
5:
5 #� �Wimp_GetFileFromPathname(f$)
5*Ȏ �f$,".") �
54 � 0 :=f$
5>7 :=�Wimp_GetFileFromPathname(�f$,�(f$)-�f$,".")))
5H�
5R:
5\� �Wimp_FileType(type%)
5f Ȏtype%�
5p�&FFF:="Text"
5z�&FFD:="Data"
5��&FFB:="Basic"
5��&FF9:="Sprite"
5��&FED:="Palette"
5��&FEC:="Template"
5��&AFF:="Draw"
5��&1000:="Folder"
5��&2000:="Application"
5�=�~(type%)
5��
5�:
5�
ݤcut(A$)
5�Ab=�A$,".")
5�"� Ab<>0 � B$=�A$,Ab+2) � B$=A$
6=B$
6:
6 ��pdsel
6$� PSEL%=2 �
6.&�Wimp_IconDisable(Print_Window%,8)
68�
6B� PSEL%=3 �
6L&�Wimp_IconDisable(Print_Window%,9)
6V'�Wimp_IconDisable(Print_Window%,11)
6`�
6j�
6t:
6~
��psel
6�� PSEL%=1 �
6�%�Wimp_SelectIcon(Print_Window%,5)
6��
6�� PSEL%=2 �
6�%�Wimp_SelectIcon(Print_Window%,6)
6�%�Wimp_IconEnable(Print_Window%,8)
6�G�Wimp_IconCaret(Print_Window%,8,�(�Wimp_IconText(Print_Window%,8)))
6��
6�� PSEL%=3 �
6�%�Wimp_SelectIcon(Print_Window%,7)
6�%�Wimp_IconEnable(Print_Window%,9)
6�&�Wimp_IconEnable(Print_Window%,11)
7G�Wimp_IconCaret(Print_Window%,9,�(�Wimp_IconText(Print_Window%,9)))
7
�
7�
7 :
7(� �getstring(array%)
72� path$,pointer%
7< path$=""
7Fpointer%=array%
7P�
7Zpath$+=�?pointer%
7dpointer%+=1
7n � ?pointer%=0 � ?pointer%=13
7x
=path$
7�:
7���openprinter
7�0ș "XPDriver_Info" � R0,R1,R2,R3,R4,R5,R6,R7
7�/� R1=0 � R2=0 � R3=0 � R5=0 � R6=0 � R7=0 �
7�9�Wimp_IconPutText(Print_Window%,3,"No driver loaded")
7�
PRT%=�
7��
7�printer$=�getstring(R4)
7�/�Wimp_IconPutText(Print_Window%,3,printer$)
7�
PRT%=�
7��
7��
7�:
8 ��print
8:
86printhand%=�("PRINTER:$.Job1") : � start a job !!!
8"$title%="Cheat file"
8, ș &80145,printhand%,title%
86>�#printhand%,13 : � put head to left of paper to start!!!!
8@:
8J� PSEL%=1 �
8T[�printline("+---+-----------+-----+----------+--------------------+-----------+"+�(10))
8^[�printline("|Num| Ammount |State| Date | Who gave it to you | TOTAL |"+�(10))
8h[�printline("+---+-----------+-----+----------+--------------------+-----------+"+�(10))
8r� A=1 � total%-1
8|� AMMOUNT(A)<>0 �
8� A$=�(A)
8� AA=�(A$)
8�S$=�spc(3-AA)
8�B$=�(AMMOUNT(A))
8�B$=�zero(B$)
8� BB=�(B$)
8�SS$=�spc(11-BB)
8�%� STATUS$(A)="Spend" � C$="Spend"
8�$� STATUS$(A)="Save" � C$="Save "
8�CC=�(DATE$(A))
8�SSS$=�spc(10-CC)
8�DD=�(WHO$(A))
8�SSSS$=�spc(20-DD)
9E$=�(CURTOT(A))
9E$=�zero(E$)
9 EE=�(E$)
9&SSSSS$=�spc(11-EE)
90g�printline("|"+A$+S$+"|"+B$+SS$+"|"+C$+"|"+DATE$(A)+SSS$+"|"+WHO$(A)+SSSS$+"|"+E$+SSSSS$+"|"+�(10))
9:�
9D�A
9N[�printline("+---+-----------+-----+----------+--------------------+-----------+"+�(10))
9X�
9b
9l� PSEL%=2 �
9v)PA=�(�Wimp_IconText(Print_Window%,8))
9�PB=(PA-1)*14
9�[�printline("+---+-----------+-----+----------+--------------------+-----------+"+�(10))
9�[�printline("|Num| Ammount |State| Date | Who gave it to you | TOTAL |"+�(10))
9�[�printline("+---+-----------+-----+----------+--------------------+-----------+"+�(10))
9�� A=(1+PB) � (14+PB)
9�� AMMOUNT(A)<>0 �
9� A$=�(A)
9� AA=�(A$)
9�S$=�spc(3-AA)
9�B$=�(AMMOUNT(A))
9�B$=�zero(B$)
9� BB=�(B$)
9�SS$=�spc(11-BB)
:%� STATUS$(A)="Spend" � C$="Spend"
: $� STATUS$(A)="Save" � C$="Save "
:CC=�(DATE$(A))
: SSS$=�spc(10-CC)
:*DD=�(WHO$(A))
:4SSSS$=�spc(20-DD)
:>E$=�(CURTOT(A))
:HE$=�zero(E$)
:R EE=�(E$)
:\SSSSS$=�spc(11-EE)
:fg�printline("|"+A$+S$+"|"+B$+SS$+"|"+C$+"|"+DATE$(A)+SSS$+"|"+WHO$(A)+SSSS$+"|"+E$+SSSSS$+"|"+�(10))
:p�
:z�A
:�[�printline("+---+-----------+-----+----------+--------------------+-----------+"+�(10))
:��
:�
:�� PSEL%=3 �
:�(A=�(�Wimp_IconText(Print_Window%,9))
:�)B=�(�Wimp_IconText(Print_Window%,11))
:�[�printline("+---+-----------+-----+----------+--------------------+-----------+"+�(10))
:�[�printline("|Num| Ammount |State| Date | Who gave it to you | TOTAL |"+�(10))
:�[�printline("+---+-----------+-----+----------+--------------------+-----------+"+�(10))
:�
� A=A � B
:�� AMMOUNT(A)<>0 �
:� A$=�(A)
:� AA=�(A$)
;S$=�spc(3-AA)
;B$=�(AMMOUNT(A))
;B$=�zero(B$)
;$ BB=�(B$)
;.SS$=�spc(11-BB)
;8%� STATUS$(A)="Spend" � C$="Spend"
;B$� STATUS$(A)="Save" � C$="Save "
;LCC=�(DATE$(A))
;VSSS$=�spc(10-CC)
;`DD=�(WHO$(A))
;jSSSS$=�spc(20-DD)
;tE$=�(CURTOT(A))
;~E$=�zero(E$)
;� EE=�(E$)
;�SSSSS$=�spc(11-EE)
;�g�printline("|"+A$+S$+"|"+B$+SS$+"|"+C$+"|"+DATE$(A)+SSS$+"|"+WHO$(A)+SSSS$+"|"+E$+SSSSS$+"|"+�(10))
;��
;��A
;�[�printline("+---+-----------+-----+----------+--------------------+-----------+"+�(10))
;��
;�:
;�(�#printhand%,12 : � do linefeed !!!!
;�ș &80148,printhand%
;�� #printhand%
;��
<:
<
��printline(line$)
<� cco=1 � �(line$)
< byte=�(�line$,cco,1))
<(�#printhand%,byte
<2G� byte=10 � byte=13 � �#printhand%,13 : � put head to left of paper
<< � cco
<F�
<P:
<Zݤspc(num)
<d
� num>0 �
<n� f
<x
SP$=""
<�� f=1 � num:SP$+=" ":�f
<��
<�
SP$=""
<��
<�=SP$
<�:
<�ݤzero(numbs$)
<�� B
<�B=�numbs$,".")
<�.� �(numbs$)-1=B � B<>0 � numbs$=numbs$+"0"
<� � B=0 � numbs$=numbs$+".00"
<� =numbs$
<�:
= � �error
=� �=67785 �
=C�Wimp_WindowErrorBox("!ADRBook","Please write enable the disk")
=" � #X%
=,�
=6
DOSAVE%=�
=@'�Wimp_WindowErrorBox("!ADRBook",�$)
=J�
=T�
=^:
=h � �unbox
=r+ș "OS_ReadModeVariable",-1,11 � ,,xpic
=|+ș "OS_ReadModeVariable",-1,12 � ,,ypic
=�+ș "OS_ReadModeVariable",-1,4 � ,,xfact
=�+ș "OS_ReadModeVariable",-1,5 � ,,yfact
=�%ȗ ȓ 0,0,xpic<<xfact,ypic<<yfact
=��
� 00000000 0d 00 0a 19 c8 99 20 22 4f 53 5f 47 65 74 45 6e |...... "OS_GetEn|
00000010 76 22 20 b8 20 65 6e 76 24 0d 00 14 18 e7 20 a7 |v" . env$..... .|
00000020 65 6e 76 24 2c 22 20 2d 71 75 69 74 20 22 29 20 |env$," -quit ") |
00000030 8c 0d 00 1e 32 66 69 6c 65 6c 6f 61 64 24 3d c1 |....2fileload$=.|
00000040 65 6e 76 24 2c a7 65 6e 76 24 2c bd 28 33 34 29 |env$,.env$,.(34)|
00000050 2c a7 65 6e 76 24 2c bd 28 33 34 29 29 2b 31 29 |,.env$,.(34))+1)|
00000060 2b 31 29 0d 00 28 05 cd 0d 00 32 3f 20 20 20 20 |+1)..(....2? |
00000070 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000080 20 20 20 20 20 20 20 f2 57 69 6d 70 5f 53 74 61 | .Wimp_Sta|
00000090 72 74 28 22 50 6f 63 6b 65 74 4d 22 2c 34 39 39 |rt("PocketM",499|
000000a0 30 2c 33 39 31 33 29 0d 00 3c 33 20 20 20 20 20 |0,3913)..<3 |
000000b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000c0 20 20 20 20 20 20 f2 55 73 65 72 5f 53 65 74 49 | .User_SetI|
000000d0 6e 69 74 69 61 6c 44 61 74 61 0d 00 46 2e 20 20 |nitialData..F. |
000000e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000f0 20 20 20 20 20 20 20 20 20 f2 43 72 65 61 74 65 | .Create|
00000100 5f 57 69 6e 64 6f 77 73 0d 00 50 2c 20 20 20 20 |_Windows..P, |
00000110 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000120 20 20 20 20 20 20 20 f2 43 72 65 61 74 65 5f 4d | .Create_M|
00000130 65 6e 75 73 0d 00 5a 16 e7 20 66 69 6c 65 6c 6f |enus..Z.. filelo|
00000140 61 64 24 3c 3e 22 20 22 20 8c 0d 00 64 29 f2 45 |ad$<>" " ...d).E|
00000150 76 65 6e 74 5f 4c 6f 61 64 46 69 6c 65 28 66 69 |vent_LoadFile(fi|
00000160 6c 65 6c 6f 61 64 24 2c 22 66 69 6c 65 5f 66 61 |leload$,"file_fa|
00000170 66 22 29 0d 00 6e 2f f2 57 69 6d 70 5f 49 63 6f |f")..n/.Wimp_Ico|
00000180 6e 50 75 74 54 65 78 74 28 53 61 76 65 5f 57 69 |nPutText(Save_Wi|
00000190 6e 64 6f 77 25 2c 31 2c 66 69 6c 65 6c 6f 61 64 |ndow%,1,fileload|
000001a0 24 29 0d 00 78 05 cd 0d 00 82 31 20 20 20 20 20 |$)..x.....1 |
000001b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001c0 20 20 20 20 20 20 f2 57 69 6d 70 5f 57 61 69 74 | .Wimp_Wait|
000001d0 46 6f 72 45 76 65 6e 74 0d 00 8c 2e 20 20 20 20 |ForEvent.... |
000001e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001f0 20 20 20 20 20 20 20 f2 57 69 6d 70 5f 43 6c 6f | .Wimp_Clo|
00000200 73 65 44 6f 77 6e 0d 00 96 20 20 20 20 20 20 20 |seDown... |
00000210 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000220 20 20 20 20 20 e0 0d 00 a0 0c 20 20 20 20 20 20 | ..... |
00000230 20 3a 0d 00 aa 21 20 20 20 20 20 20 20 dd 20 f2 | :...! . .|
00000240 55 73 65 72 5f 53 65 74 49 6e 69 74 69 61 6c 44 |User_SetInitialD|
00000250 61 74 61 0d 00 b4 0d 44 4f 53 41 56 45 25 3d b9 |ata....DOSAVE%=.|
00000260 0d 00 be 09 53 41 25 3d a3 0d 00 c8 0d 55 50 44 |....SA%=.....UPD|
00000270 41 54 45 25 3d a3 0d 00 d2 09 43 44 25 3d a3 0d |ATE%=.....CD%=..|
00000280 00 dc 0a 50 52 54 25 3d a3 0d 00 e6 10 de 20 74 |...PRT%=...... t|
00000290 69 74 6c 65 25 20 32 35 36 0d 00 f0 0b 50 53 45 |itle% 256....PSE|
000002a0 4c 25 3d 31 0d 00 fa 09 45 45 25 3d b9 0d 01 04 |L%=1....EE%=....|
000002b0 10 50 41 53 53 41 4c 4c 4f 57 25 3d a3 0d 01 0e |.PASSALLOW%=....|
000002c0 1d 50 43 4f 56 45 52 24 3d 22 2a 2a 2a 2a 2a 2a |.PCOVER$="******|
000002d0 2a 2a 2a 2a 2a 2a 2a 2a 2a 22 0d 01 18 0e 63 6f |*********"....co|
000002e0 72 72 65 63 74 25 3d a3 0d 01 22 0f 50 41 53 53 |rrect%=...".PASS|
000002f0 24 3d 22 50 4f 4f 22 0d 01 2c 0c 4d 4f 4e 45 59 |$="POO"..,.MONEY|
00000300 25 3d 30 0d 01 36 0a 44 44 25 3d 32 37 0d 01 40 |%=0..6.DD%=27..@|
00000310 0a 4d 4d 25 3d 30 34 0d 01 4a 0c 59 59 25 3d 31 |.MM%=04..J.YY%=1|
00000320 39 39 33 0d 01 54 12 53 54 41 54 55 53 24 3d 22 |993..T.STATUS$="|
00000330 53 61 76 65 22 0d 01 5e 0a 43 4f 4c 25 3d b9 0d |Save"..^.COL%=..|
00000340 01 68 11 50 4f 55 4e 44 56 41 4c 25 3d 31 35 36 |.h.POUNDVAL%=156|
00000350 0d 01 72 0c de 20 41 25 28 31 35 29 0d 01 7c 0c |..r.. A%(15)..|.|
00000360 74 6f 74 61 6c 25 3d 31 0d 01 86 0a 63 75 72 25 |total%=1....cur%|
00000370 3d 31 0d 01 90 0e 74 6f 74 70 61 67 65 25 3d 30 |=1....totpage%=0|
00000380 0d 01 9a 0e 63 75 72 70 61 67 65 25 3d 30 0d 01 |....curpage%=0..|
00000390 a4 12 de 20 41 4d 4d 4f 55 4e 54 28 39 39 39 29 |... AMMOUNT(999)|
000003a0 0d 01 ae 12 de 20 53 54 41 54 55 53 24 28 39 39 |..... STATUS$(99|
000003b0 39 29 0d 01 b8 10 de 20 44 41 54 45 24 28 39 39 |9)..... DATE$(99|
000003c0 39 29 0d 01 c2 0f de 20 57 48 4f 24 28 39 39 39 |9)..... WHO$(999|
000003d0 29 0d 01 cc 11 de 20 43 55 52 54 4f 54 28 39 39 |)..... CURTOT(99|
000003e0 39 29 0d 01 d6 0e de 20 44 44 24 28 39 39 39 29 |9)..... DD$(999)|
000003f0 0d 01 e0 0e de 20 4d 4d 24 28 39 39 39 29 0d 01 |..... MM$(999)..|
00000400 ea 0e de 20 59 59 24 28 39 39 39 29 0d 01 f4 0f |... YY$(999)....|
00000410 41 4d 4d 4f 55 4e 54 28 29 3d 30 0d 01 fe 10 53 |AMMOUNT()=0....S|
00000420 54 41 54 55 53 24 28 29 3d 22 22 0d 02 08 0e 44 |TATUS$()=""....D|
00000430 41 54 45 24 28 29 3d 22 22 0d 02 12 0d 57 48 4f |ATE$()=""....WHO|
00000440 24 28 29 3d 22 22 0d 02 1c 0e 43 55 52 54 4f 54 |$()=""....CURTOT|
00000450 28 29 3d 30 0d 02 26 0b 45 44 49 49 25 3d a3 0d |()=0..&.EDII%=..|
00000460 02 30 0c 20 20 20 20 20 20 20 e1 0d 02 3a 0c 20 |.0. ...:. |
00000470 20 20 20 20 20 20 3a 0d 02 44 1c 20 20 20 20 20 | :..D. |
00000480 20 20 dd 20 f2 43 72 65 61 74 65 5f 57 69 6e 64 | . .Create_Wind|
00000490 6f 77 73 0d 02 4e 1e 20 20 20 20 20 20 20 20 20 |ows..N. |
000004a0 f2 57 69 6d 70 5f 53 70 72 69 74 65 73 4c 6f 61 |.Wimp_SpritesLoa|
000004b0 64 0d 02 58 3b 20 20 20 20 20 20 20 20 20 20 20 |d..X; |
000004c0 20 20 20 20 20 20 20 49 6e 66 6f 5f 57 69 6e 64 | Info_Wind|
000004d0 6f 77 25 3d a4 57 69 6d 70 5f 57 69 6e 64 6f 77 |ow%=.Wimp_Window|
000004e0 4c 6f 61 64 28 22 49 6e 66 6f 22 29 0d 02 62 3c |Load("Info")..b<|
000004f0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000500 20 45 6e 74 72 79 5f 57 69 6e 64 6f 77 25 3d a4 | Entry_Window%=.|
00000510 57 69 6d 70 5f 57 69 6e 64 6f 77 4c 6f 61 64 28 |Wimp_WindowLoad(|
00000520 22 45 6e 74 72 79 22 29 0d 02 6c 3b 20 20 20 20 |"Entry")..l; |
00000530 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 61 | Ma|
00000540 69 6e 5f 57 69 6e 64 6f 77 25 3d a4 57 69 6d 70 |in_Window%=.Wimp|
00000550 5f 57 69 6e 64 6f 77 4c 6f 61 64 28 22 4d 61 69 |_WindowLoad("Mai|
00000560 6e 22 29 0d 02 76 3d 20 20 20 20 20 20 20 20 20 |n")..v= |
00000570 20 20 20 20 20 20 20 44 65 6c 65 74 65 5f 57 69 | Delete_Wi|
00000580 6e 64 6f 77 25 3d a4 57 69 6d 70 5f 57 69 6e 64 |ndow%=.Wimp_Wind|
00000590 6f 77 4c 6f 61 64 28 22 44 65 6c 65 74 65 22 29 |owLoad("Delete")|
000005a0 0d 02 80 3e 20 20 20 20 20 20 20 20 20 20 20 20 |...> |
000005b0 20 20 20 4f 70 74 69 6f 6e 73 5f 57 69 6e 64 6f | Options_Windo|
000005c0 77 25 3d a4 57 69 6d 70 5f 57 69 6e 64 6f 77 4c |w%=.Wimp_WindowL|
000005d0 6f 61 64 28 22 4f 70 74 69 6f 6e 73 22 29 0d 02 |oad("Options")..|
000005e0 8a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.; |
000005f0 20 20 20 20 53 61 76 65 5f 57 69 6e 64 6f 77 25 | Save_Window%|
00000600 3d a4 57 69 6d 70 5f 57 69 6e 64 6f 77 4c 6f 61 |=.Wimp_WindowLoa|
00000610 64 28 22 53 61 76 65 22 29 0d 02 94 3f 20 20 20 |d("Save")...? |
00000620 20 20 20 20 20 20 20 20 20 20 20 50 61 73 73 77 | Passw|
00000630 6f 72 64 5f 57 69 6e 64 6f 77 25 3d a4 57 69 6d |ord_Window%=.Wim|
00000640 70 5f 57 69 6e 64 6f 77 4c 6f 61 64 28 22 50 61 |p_WindowLoad("Pa|
00000650 73 73 77 6f 72 64 22 29 0d 02 9e 3c 20 20 20 20 |ssword")...< |
00000660 20 20 20 20 20 20 20 20 20 20 20 20 20 53 61 76 | Sav|
00000670 65 32 5f 57 69 6e 64 6f 77 25 3d a4 57 69 6d 70 |e2_Window%=.Wimp|
00000680 5f 57 69 6e 64 6f 77 4c 6f 61 64 28 22 53 61 76 |_WindowLoad("Sav|
00000690 65 32 22 29 0d 02 a8 3c 20 20 20 20 20 20 20 20 |e2")...< |
000006a0 20 20 20 20 20 20 20 20 20 50 72 69 6e 74 5f 57 | Print_W|
000006b0 69 6e 64 6f 77 25 3d a4 57 69 6d 70 5f 57 69 6e |indow%=.Wimp_Win|
000006c0 64 6f 77 4c 6f 61 64 28 22 50 72 69 6e 74 22 29 |dowLoad("Print")|
000006d0 0d 02 b2 3c 20 20 20 20 20 20 20 20 20 20 20 20 |...< |
000006e0 20 20 20 20 20 43 6c 6f 73 65 5f 57 69 6e 64 6f | Close_Windo|
000006f0 77 25 3d a4 57 69 6d 70 5f 57 69 6e 64 6f 77 4c |w%=.Wimp_WindowL|
00000700 6f 61 64 28 22 43 6c 6f 73 65 22 29 0d 02 bc 2e |oad("Close")....|
00000710 20 20 20 20 20 20 20 42 61 72 5f 49 63 6f 6e 25 | Bar_Icon%|
00000720 3d a4 57 69 6d 70 5f 49 63 6f 6e 42 61 72 28 22 |=.Wimp_IconBar("|
00000730 21 50 6f 63 6b 65 74 4d 22 29 0d 02 c6 2b f2 57 |!PocketM")...+.W|
00000740 69 6d 70 5f 49 63 6f 6e 50 75 74 54 65 78 74 28 |imp_IconPutText(|
00000750 4f 70 74 69 6f 6e 73 5f 57 69 6e 64 6f 77 25 2c |Options_Window%,|
00000760 33 2c 22 22 29 0d 02 d0 0f f2 72 65 73 65 74 65 |3,"").....resete|
00000770 6e 74 72 79 0d 02 da 0c 20 20 20 20 20 20 20 e1 |ntry.... .|
00000780 0d 02 e4 0d 20 20 20 20 20 20 20 20 3a 0d 02 ee |.... :...|
00000790 22 20 20 20 20 20 20 20 20 dd 20 a4 45 76 65 6e |" . .Even|
000007a0 74 5f 53 61 76 65 28 77 69 6e 64 6f 77 25 29 0d |t_Save(window%).|
000007b0 02 f8 1a 20 20 20 20 20 20 20 20 20 20 c8 8e 20 |... .. |
000007c0 77 69 6e 64 6f 77 25 20 ca 0d 03 02 22 20 20 20 |window% ...." |
000007d0 20 20 20 20 20 20 20 20 20 c9 20 53 61 76 65 5f | . Save_|
000007e0 57 69 6e 64 6f 77 25 20 3a 3d b9 0d 03 0c 24 20 |Window% :=....$ |
000007f0 20 20 20 20 20 20 20 20 20 20 20 c9 20 53 61 76 | . Sav|
00000800 65 32 5f 57 69 6e 64 6f 77 25 20 3a 20 3d b9 0d |e2_Window% : =..|
00000810 03 16 15 20 20 20 20 20 20 20 20 20 20 20 20 7f |... .|
00000820 20 3a 3d a3 0d 03 20 0f 20 20 20 20 20 20 20 20 | :=... . |
00000830 20 20 cb 0d 03 2a 0d 20 20 20 20 20 20 20 20 3a | ...*. :|
00000840 0d 03 34 2e 20 20 20 20 20 20 20 20 dd 20 a4 45 |..4. . .E|
00000850 76 65 6e 74 5f 53 70 72 69 74 65 73 28 77 69 6e |vent_Sprites(win|
00000860 64 6f 77 25 29 3d 73 70 72 69 74 65 73 25 0d 03 |dow%)=sprites%..|
00000870 3e 0c 20 20 20 20 20 20 20 3a 0d 03 48 1a 20 20 |>. :..H. |
00000880 20 20 20 20 20 dd 20 f2 43 72 65 61 74 65 5f 4d | . .Create_M|
00000890 65 6e 75 73 0d 03 52 56 20 20 20 20 20 20 20 20 |enus..RV |
000008a0 53 61 76 65 5f 4d 65 6e 75 25 3d a4 57 69 6d 70 |Save_Menu%=.Wimp|
000008b0 5f 4d 65 6e 75 43 72 65 61 74 65 28 22 53 61 76 |_MenuCreate("Sav|
000008c0 65 5c 50 6f 63 6b 65 74 3e 53 61 76 65 5f 57 69 |e\Pocket>Save_Wi|
000008d0 6e 64 6f 77 25 5c 54 65 78 74 3e 53 61 76 65 32 |ndow%\Text>Save2|
000008e0 5f 57 69 6e 64 6f 77 25 22 29 0d 03 5c 7d 20 20 |_Window%")..\} |
000008f0 20 20 20 20 20 20 20 42 61 72 5f 4d 65 6e 75 25 | Bar_Menu%|
00000900 3d a4 57 69 6d 70 5f 4d 65 6e 75 43 72 65 61 74 |=.Wimp_MenuCreat|
00000910 65 28 22 50 6f 63 6b 65 74 4d 5c 49 6e 66 6f 3e |e("PocketM\Info>|
00000920 49 6e 66 6f 5f 57 69 6e 64 6f 77 25 5c 50 61 73 |Info_Window%\Pas|
00000930 73 77 6f 72 64 3e 4f 70 74 69 6f 6e 73 5f 57 69 |sword>Options_Wi|
00000940 6e 64 6f 77 25 5c 53 61 76 65 3e 53 61 76 65 5f |ndow%\Save>Save_|
00000950 4d 65 6e 75 25 5c 43 6c 65 61 72 20 44 61 74 61 |Menu%\Clear Data|
00000960 5c 51 75 69 74 22 29 0d 03 66 57 20 20 20 20 20 |\Quit")..fW |
00000970 20 20 20 4d 61 69 6e 5f 4d 65 6e 75 25 3d a4 57 | Main_Menu%=.W|
00000980 69 6d 70 5f 4d 65 6e 75 43 72 65 61 74 65 28 22 |imp_MenuCreate("|
00000990 50 6f 63 6b 65 74 4d 5c 53 74 61 72 74 5c 42 61 |PocketM\Start\Ba|
000009a0 63 6b 5c 50 72 69 6e 74 5c 41 64 64 5c 44 65 6c |ck\Print\Add\Del|
000009b0 65 74 65 5c 4e 65 78 74 5c 45 6e 64 22 29 0d 03 |ete\Next\End")..|
000009c0 70 22 f2 57 69 6d 70 5f 4d 65 6e 75 44 69 73 61 |p".Wimp_MenuDisa|
000009d0 62 6c 65 28 42 61 72 5f 4d 65 6e 75 25 2c 33 29 |ble(Bar_Menu%,3)|
000009e0 0d 03 7a 25 f2 57 69 6d 70 5f 4d 65 6e 75 44 6f |..z%.Wimp_MenuDo|
000009f0 74 74 65 64 4c 69 6e 65 28 42 61 72 5f 4d 65 6e |ttedLine(Bar_Men|
00000a00 75 25 2c 31 29 0d 03 84 25 f2 57 69 6d 70 5f 4d |u%,1)...%.Wimp_M|
00000a10 65 6e 75 44 6f 74 74 65 64 4c 69 6e 65 28 42 61 |enuDottedLine(Ba|
00000a20 72 5f 4d 65 6e 75 25 2c 33 29 0d 03 8e 25 f2 57 |r_Menu%,3)...%.W|
00000a30 69 6d 70 5f 4d 65 6e 75 44 6f 74 74 65 64 4c 69 |imp_MenuDottedLi|
00000a40 6e 65 28 42 61 72 5f 4d 65 6e 75 25 2c 34 29 0d |ne(Bar_Menu%,4).|
00000a50 03 98 26 f2 57 69 6d 70 5f 4d 65 6e 75 44 6f 74 |..&.Wimp_MenuDot|
00000a60 74 65 64 4c 69 6e 65 28 4d 61 69 6e 5f 4d 65 6e |tedLine(Main_Men|
00000a70 75 25 2c 32 29 0d 03 a2 26 f2 57 69 6d 70 5f 4d |u%,2)...&.Wimp_M|
00000a80 65 6e 75 44 6f 74 74 65 64 4c 69 6e 65 28 4d 61 |enuDottedLine(Ma|
00000a90 69 6e 5f 4d 65 6e 75 25 2c 35 29 0d 03 ac 0c 20 |in_Menu%,5).... |
00000aa0 20 20 20 20 20 20 e1 0d 03 b6 0d 20 20 20 20 20 | ..... |
00000ab0 20 20 20 3a 0d 03 c0 22 20 20 20 20 20 20 20 20 | :..." |
00000ac0 dd 20 a4 45 76 65 6e 74 5f 4d 65 6e 75 28 77 69 |. .Event_Menu(wi|
00000ad0 6e 64 6f 77 25 29 0d 03 ca 18 20 20 20 20 20 20 |ndow%).... |
00000ae0 20 20 c8 8e 20 77 69 6e 64 6f 77 25 20 ca 0d 03 | .. window% ...|
00000af0 d4 2e 20 20 20 20 20 20 20 20 20 c9 20 42 61 72 |.. . Bar|
00000b00 5f 57 69 6e 64 6f 77 25 20 20 20 20 20 20 20 20 |_Window% |
00000b10 3a 20 3d 42 61 72 5f 4d 65 6e 75 25 0d 03 de 2f |: =Bar_Menu%.../|
00000b20 20 20 20 20 20 20 20 20 20 c9 20 4d 61 69 6e 5f | . Main_|
00000b30 57 69 6e 64 6f 77 25 20 20 20 20 20 20 20 3a 20 |Window% : |
00000b40 3d 4d 61 69 6e 5f 4d 65 6e 75 25 0d 03 e8 21 20 |=Main_Menu%...! |
00000b50 20 20 20 20 20 20 20 20 7f 20 20 20 20 20 20 20 | . |
00000b60 20 20 20 20 20 20 20 20 3a 20 3d a3 0d 03 f2 0d | : =.....|
00000b70 20 20 20 20 20 20 20 20 cb 0d 03 fc 0c 20 20 20 | ..... |
00000b80 20 20 20 20 3a 0d 04 06 31 20 20 20 20 20 20 20 | :...1 |
00000b90 dd 20 f2 45 76 65 6e 74 5f 57 69 6e 64 6f 77 43 |. .Event_WindowC|
00000ba0 6c 6f 73 65 28 77 69 6e 64 6f 77 25 2c 62 75 74 |lose(window%,but|
00000bb0 74 6f 6e 73 25 29 0d 04 10 17 20 20 20 20 20 20 |tons%).... |
00000bc0 20 c8 8e 20 77 69 6e 64 6f 77 25 20 ca 0d 04 1a | .. window% ....|
00000bd0 41 20 20 20 20 20 20 20 c9 20 45 6e 74 72 79 5f |A . Entry_|
00000be0 57 69 6e 64 6f 77 25 20 3a 20 f2 57 69 6d 70 5f |Window% : .Wimp_|
00000bf0 57 69 6e 64 6f 77 42 72 69 6e 67 54 6f 54 6f 70 |WindowBringToTop|
00000c00 28 4d 61 69 6e 5f 57 69 6e 64 6f 77 25 29 0d 04 |(Main_Window%)..|
00000c10 24 0c 20 20 20 20 20 20 20 cb 0d 04 2e 0c 20 20 |$. ..... |
00000c20 20 20 20 20 20 e1 0d 04 38 0c 20 20 20 20 20 20 | ...8. |
00000c30 20 3a 0d 04 42 35 20 20 20 20 20 20 20 dd 20 f2 | :..B5 . .|
00000c40 45 76 65 6e 74 5f 44 72 61 77 28 77 69 6e 64 6f |Event_Draw(windo|
00000c50 77 25 2c 78 5f 6f 72 69 67 69 6e 25 2c 79 5f 6f |w%,x_origin%,y_o|
00000c60 72 69 67 69 6e 25 29 0d 04 4c 17 20 20 20 20 20 |rigin%)..L. |
00000c70 20 20 c8 8e 20 77 69 6e 64 6f 77 25 20 ca 0d 04 | .. window% ...|
00000c80 56 38 20 20 20 20 20 20 20 20 c9 20 49 6e 66 6f |V8 . Info|
00000c90 5f 57 69 6e 64 6f 77 25 20 20 20 20 20 20 20 20 |_Window% |
00000ca0 3a 20 f2 55 73 65 72 5f 44 72 61 77 49 6e 66 6f |: .User_DrawInfo|
00000cb0 57 69 6e 64 6f 77 0d 04 60 0c 20 20 20 20 20 20 |Window..`. |
00000cc0 20 cb 0d 04 6a 0c 20 20 20 20 20 20 20 e1 0d 04 | ...j. ...|
00000cd0 74 12 20 20 20 20 20 20 20 20 20 20 20 20 20 3a |t. :|
00000ce0 0d 04 7e 27 20 20 20 20 20 20 20 20 20 20 20 20 |..~' |
00000cf0 20 dd 20 f2 55 73 65 72 5f 44 72 61 77 49 6e 66 | . .User_DrawInf|
00000d00 6f 57 69 6e 64 6f 77 0d 04 88 12 20 20 20 20 20 |oWindow.... |
00000d10 20 20 20 20 20 20 20 20 e1 0d 04 92 0c 20 20 20 | ..... |
00000d20 20 20 20 20 3a 0d 04 9c 3b 20 20 20 20 20 20 20 | :...; |
00000d30 dd 20 f2 45 76 65 6e 74 5f 4d 6f 75 73 65 43 6c |. .Event_MouseCl|
00000d40 69 63 6b 28 77 69 6e 64 6f 77 25 2c 69 63 6f 6e |ick(window%,icon|
00000d50 25 2c 62 75 74 74 6f 6e 25 2c 78 25 2c 79 25 29 |%,button%,x%,y%)|
00000d60 0d 04 a6 17 20 20 20 20 20 20 20 c8 8e 20 77 69 |.... .. wi|
00000d70 6e 64 6f 77 25 20 ca 0d 04 b0 31 20 20 20 20 20 |ndow% ....1 |
00000d80 20 20 20 c9 20 42 61 72 5f 57 69 6e 64 6f 77 25 | . Bar_Window%|
00000d90 20 20 20 20 20 20 20 20 3a 20 f2 55 73 65 72 5f | : .User_|
00000da0 4d 6f 75 73 65 42 61 72 0d 04 ba 42 20 20 20 20 |MouseBar...B |
00000db0 20 20 20 20 c9 20 49 6e 66 6f 5f 57 69 6e 64 6f | . Info_Windo|
00000dc0 77 25 20 20 20 20 20 20 20 3a 20 f2 55 73 65 72 |w% : .User|
00000dd0 5f 4d 6f 75 73 65 49 6e 66 6f 28 20 62 75 74 74 |_MouseInfo( butt|
00000de0 6f 6e 25 2c 69 63 6f 6e 25 29 0d 04 c4 43 20 20 |on%,icon%)...C |
00000df0 20 20 20 20 20 20 c9 20 45 6e 74 72 79 5f 57 69 | . Entry_Wi|
00000e00 6e 64 6f 77 25 20 20 20 20 20 20 3a 20 f2 55 73 |ndow% : .Us|
00000e10 65 72 5f 4d 6f 75 73 65 45 6e 74 72 79 28 20 62 |er_MouseEntry( b|
00000e20 75 74 74 6f 6e 25 2c 69 63 6f 6e 25 29 0d 04 ce |utton%,icon%)...|
00000e30 42 20 20 20 20 20 20 20 20 c9 20 4d 61 69 6e 5f |B . Main_|
00000e40 57 69 6e 64 6f 77 25 20 20 20 20 20 20 20 3a 20 |Window% : |
00000e50 f2 55 73 65 72 5f 4d 6f 75 73 65 4d 61 69 6e 28 |.User_MouseMain(|
00000e60 20 62 75 74 74 6f 6e 25 2c 69 63 6f 6e 25 29 0d | button%,icon%).|
00000e70 04 d8 44 20 20 20 20 20 20 20 20 c9 20 44 65 6c |..D . Del|
00000e80 65 74 65 5f 57 69 6e 64 6f 77 25 20 20 20 20 20 |ete_Window% |
00000e90 3a 20 f2 55 73 65 72 5f 4d 6f 75 73 65 44 65 6c |: .User_MouseDel|
00000ea0 65 74 65 28 20 62 75 74 74 6f 6e 25 2c 69 63 6f |ete( button%,ico|
00000eb0 6e 25 29 0d 04 e2 45 20 20 20 20 20 20 20 20 c9 |n%)...E .|
00000ec0 20 4f 70 74 69 6f 6e 73 5f 57 69 6e 64 6f 77 25 | Options_Window%|
00000ed0 20 20 20 20 3a 20 f2 55 73 65 72 5f 4d 6f 75 73 | : .User_Mous|
00000ee0 65 4f 70 74 69 6f 6e 73 28 20 62 75 74 74 6f 6e |eOptions( button|
00000ef0 25 2c 69 63 6f 6e 25 29 0d 04 ec 43 20 20 20 20 |%,icon%)...C |
00000f00 20 20 20 20 c9 20 50 72 69 6e 74 5f 57 69 6e 64 | . Print_Wind|
00000f10 6f 77 25 20 20 20 20 20 20 3a 20 f2 55 73 65 72 |ow% : .User|
00000f20 5f 4d 6f 75 73 65 50 72 69 6e 74 28 20 62 75 74 |_MousePrint( but|
00000f30 74 6f 6e 25 2c 69 63 6f 6e 25 29 0d 04 f6 43 20 |ton%,icon%)...C |
00000f40 20 20 20 20 20 20 20 c9 20 43 6c 6f 73 65 5f 57 | . Close_W|
00000f50 69 6e 64 6f 77 25 20 20 20 20 20 20 3a 20 f2 55 |indow% : .U|
00000f60 73 65 72 5f 4d 6f 75 73 65 43 6c 6f 73 65 28 20 |ser_MouseClose( |
00000f70 62 75 74 74 6f 6e 25 2c 69 63 6f 6e 25 29 0d 05 |button%,icon%)..|
00000f80 00 0c 20 20 20 20 20 20 20 cb 0d 05 0a 0c 20 20 |.. ..... |
00000f90 20 20 20 20 20 e1 0d 05 14 0e 20 20 20 20 20 20 | ..... |
00000fa0 20 20 20 3a 0d 05 1e 2f 20 20 20 20 20 20 20 20 | :.../ |
00000fb0 20 dd 20 f2 55 73 65 72 5f 4d 6f 75 73 65 43 6c | . .User_MouseCl|
00000fc0 6f 73 65 28 20 62 75 74 74 6f 6e 25 2c 69 63 6f |ose( button%,ico|
00000fd0 6e 25 29 0d 05 28 18 20 20 20 20 20 20 20 20 20 |n%)..(. |
00000fe0 e7 20 69 63 6f 6e 25 3d 31 20 8c 0d 05 32 09 53 |. icon%=1 ...2.S|
00000ff0 41 25 3d b9 0d 05 3c 0a f2 75 6e 62 6f 78 0d 05 |A%=...<..unbox..|
00001000 46 24 f2 57 69 6d 70 5f 57 69 6e 64 6f 77 43 6c |F$.Wimp_WindowCl|
00001010 6f 73 65 28 43 6c 6f 73 65 5f 57 69 6e 64 6f 77 |ose(Close_Window|
00001020 25 29 0d 05 50 0d 55 50 44 41 54 45 25 3d a3 0d |%)..P.UPDATE%=..|
00001030 05 5a 28 f2 57 69 6d 70 5f 57 69 6e 64 6f 77 42 |.Z(.Wimp_WindowB|
00001040 72 69 6e 67 54 6f 54 6f 70 28 53 61 76 65 5f 57 |ringToTop(Save_W|
00001050 69 6e 64 6f 77 25 29 0d 05 64 25 41 24 3d a4 57 |indow%)..d%A$=.W|
00001060 69 6d 70 5f 49 63 6f 6e 54 65 78 74 28 53 61 76 |imp_IconText(Sav|
00001070 65 5f 57 69 6e 64 6f 77 25 2c 31 29 0d 05 6e 29 |e_Window%,1)..n)|
00001080 f2 57 69 6d 70 5f 49 63 6f 6e 43 61 72 65 74 28 |.Wimp_IconCaret(|
00001090 53 61 76 65 5f 57 69 6e 64 6f 77 25 2c 31 2c a9 |Save_Window%,1,.|
000010a0 28 41 24 29 29 0d 05 78 05 cd 0d 05 82 18 20 20 |(A$))..x...... |
000010b0 20 20 20 20 20 20 20 e7 20 69 63 6f 6e 25 3d 32 | . icon%=2|
000010c0 20 8c 0d 05 8c 0a f2 75 6e 62 6f 78 0d 05 96 0d | ......unbox....|
000010d0 55 50 44 41 54 45 25 3d a3 0d 05 a0 24 f2 57 69 |UPDATE%=....$.Wi|
000010e0 6d 70 5f 57 69 6e 64 6f 77 43 6c 6f 73 65 28 43 |mp_WindowClose(C|
000010f0 6c 6f 73 65 5f 57 69 6e 64 6f 77 25 29 0d 05 aa |lose_Window%)...|
00001100 09 43 44 25 3d b9 0d 05 b4 05 cd 0d 05 be 18 20 |.CD%=.......... |
00001110 20 20 20 20 20 20 20 20 e7 20 69 63 6f 6e 25 3d | . icon%=|
00001120 33 20 8c 0d 05 c8 0a f2 75 6e 62 6f 78 0d 05 d2 |3 ......unbox...|
00001130 24 f2 57 69 6d 70 5f 57 69 6e 64 6f 77 43 6c 6f |$.Wimp_WindowClo|
00001140 73 65 28 43 6c 6f 73 65 5f 57 69 6e 64 6f 77 25 |se(Close_Window%|
00001150 29 0d 05 dc 05 cd 0d 05 e6 1d e7 20 43 44 25 3d |).......... CD%=|
00001160 b9 20 8c 20 f2 57 69 6d 70 5f 43 6c 6f 73 65 44 |. . .Wimp_CloseD|
00001170 6f 77 6e 0d 05 f0 05 e1 0d 05 fa 1d 20 20 20 20 |own......... |
00001180 20 20 20 20 20 dd 20 f2 55 73 65 72 5f 4d 6f 75 | . .User_Mou|
00001190 73 65 42 61 72 0d 06 04 31 20 20 20 20 20 20 20 |seBar...1 |
000011a0 20 20 f2 57 69 6d 70 5f 57 69 6e 64 6f 77 42 72 | .Wimp_WindowBr|
000011b0 69 6e 67 54 6f 54 6f 70 28 4d 61 69 6e 5f 57 69 |ingToTop(Main_Wi|
000011c0 6e 64 6f 77 25 29 0d 06 0e 0e 20 20 20 20 20 20 |ndow%).... |
000011d0 20 20 20 e1 0d 06 18 0e 20 20 20 20 20 20 20 20 | ..... |
000011e0 20 3a 0d 06 22 2f 20 20 20 20 20 20 20 20 20 dd | :.."/ .|
000011f0 20 f2 55 73 65 72 5f 4d 6f 75 73 65 50 72 69 6e | .User_MousePrin|
00001200 74 28 20 62 75 74 74 6f 6e 25 2c 69 63 6f 6e 25 |t( button%,icon%|
00001210 29 0d 06 2c 2d 20 20 20 20 20 20 20 20 20 e7 20 |)..,- . |
00001220 69 63 6f 6e 25 3d 35 20 8c 20 f2 70 64 73 65 6c |icon%=5 . .pdsel|
00001230 3a 50 53 45 4c 25 3d 31 3a f2 70 73 65 6c 0d 06 |:PSEL%=1:.psel..|
00001240 36 2d 20 20 20 20 20 20 20 20 20 e7 20 69 63 6f |6- . ico|
00001250 6e 25 3d 36 20 8c 20 f2 70 64 73 65 6c 3a 50 53 |n%=6 . .pdsel:PS|
00001260 45 4c 25 3d 32 3a f2 70 73 65 6c 0d 06 40 2d 20 |EL%=2:.psel..@- |
00001270 20 20 20 20 20 20 20 20 e7 20 69 63 6f 6e 25 3d | . icon%=|
00001280 37 20 8c 20 f2 70 64 73 65 6c 3a 50 53 45 4c 25 |7 . .pdsel:PSEL%|
00001290 3d 33 3a f2 70 73 65 6c 0d 06 4a 21 20 20 20 20 |=3:.psel..J! |
000012a0 20 20 20 20 20 e7 20 69 63 6f 6e 25 3d 34 20 80 | . icon%=4 .|
000012b0 20 50 52 54 25 3d b9 20 8c 0d 06 54 18 20 20 20 | PRT%=. ...T. |
000012c0 20 20 20 20 20 20 e7 20 50 53 45 4c 25 3d 31 20 | . PSEL%=1 |
000012d0 8c 0d 06 5e 13 20 20 20 20 20 20 20 20 20 f2 70 |...^. .p|
000012e0 72 69 6e 74 0d 06 68 0e 20 20 20 20 20 20 20 20 |rint..h. |
000012f0 20 cd 0d 06 72 18 20 20 20 20 20 20 20 20 20 e7 | ...r. .|
00001300 20 50 53 45 4c 25 3d 32 20 8c 0d 06 7c 31 20 20 | PSEL%=2 ...|1 |
00001310 20 20 20 20 20 20 20 41 3d bb 28 a4 57 69 6d 70 | A=.(.Wimp|
00001320 5f 49 63 6f 6e 54 65 78 74 28 50 72 69 6e 74 5f |_IconText(Print_|
00001330 57 69 6e 64 6f 77 25 2c 38 29 29 0d 06 86 2e 20 |Window%,8)).... |
00001340 20 20 20 20 20 20 20 20 e7 20 28 41 2d 31 29 3c | . (A-1)<|
00001350 28 74 6f 74 70 61 67 65 25 2b 31 29 20 80 20 28 |(totpage%+1) . (|
00001360 41 2d 31 29 3e 2d 31 20 8c 0d 06 90 13 20 20 20 |A-1)>-1 ..... |
00001370 20 20 20 20 20 20 f2 70 72 69 6e 74 0d 06 9a 0e | .print....|
00001380 20 20 20 20 20 20 20 20 20 cd 0d 06 a4 0e 20 20 | ..... |
00001390 20 20 20 20 20 20 20 cd 0d 06 ae 18 20 20 20 20 | ..... |
000013a0 20 20 20 20 20 e7 20 50 53 45 4c 25 3d 33 20 8c | . PSEL%=3 .|
000013b0 0d 06 b8 31 20 20 20 20 20 20 20 20 20 41 3d bb |...1 A=.|
000013c0 28 a4 57 69 6d 70 5f 49 63 6f 6e 54 65 78 74 28 |(.Wimp_IconText(|
000013d0 50 72 69 6e 74 5f 57 69 6e 64 6f 77 25 2c 39 29 |Print_Window%,9)|
000013e0 29 0d 06 c2 32 20 20 20 20 20 20 20 20 20 42 3d |)...2 B=|
000013f0 bb 28 a4 57 69 6d 70 5f 49 63 6f 6e 54 65 78 74 |.(.Wimp_IconText|
00001400 28 50 72 69 6e 74 5f 57 69 6e 64 6f 77 25 2c 31 |(Print_Window%,1|
00001410 31 29 29 0d 06 cc 2c 20 20 20 20 20 20 20 20 20 |1))..., |
00001420 e7 20 28 41 2d 31 29 3e 2d 31 20 80 20 28 42 2d |. (A-1)>-1 . (B-|
00001430 31 29 3c 28 74 6f 74 61 6c 25 2d 31 29 20 8c 0d |1)<(total%-1) ..|
00001440 06 d6 13 20 20 20 20 20 20 20 20 20 f2 70 72 69 |... .pri|
00001450 6e 74 0d 06 e0 0e 20 20 20 20 20 20 20 20 20 cd |nt.... .|
00001460 0d 06 ea 0e 20 20 20 20 20 20 20 20 20 cd 0d 06 |.... ...|
00001470 f4 0e 20 20 20 20 20 20 20 20 20 cd 0d 06 fe 0e |.. .....|
00001480 20 20 20 20 20 20 20 20 20 e1 0d 07 08 0e 20 20 | ..... |
00001490 20 20 20 20 20 20 20 3a 0d 07 12 2e 20 20 20 20 | :.... |
000014a0 20 20 20 20 20 dd 20 f2 55 73 65 72 5f 4d 6f 75 | . .User_Mou|
000014b0 73 65 49 6e 66 6f 28 20 62 75 74 74 6f 6e 25 2c |seInfo( button%,|
000014c0 69 63 6f 6e 25 29 0d 07 1c 0e 20 20 20 20 20 20 |icon%).... |
000014d0 20 20 20 e1 0d 07 26 0e 20 20 20 20 20 20 20 20 | ...&. |
000014e0 20 3a 0d 07 30 2f 20 20 20 20 20 20 20 20 20 dd | :..0/ .|
000014f0 20 f2 55 73 65 72 5f 4d 6f 75 73 65 45 6e 74 72 | .User_MouseEntr|
00001500 79 28 20 62 75 74 74 6f 6e 25 2c 69 63 6f 6e 25 |y( button%,icon%|
00001510 29 0d 07 3a 87 20 20 20 20 20 20 20 20 20 e7 20 |)..:. . |
00001520 69 63 6f 6e 25 3d 37 20 80 20 53 54 41 54 55 53 |icon%=7 . STATUS|
00001530 24 3d 22 53 70 65 6e 64 22 20 8c 20 53 54 41 54 |$="Spend" . STAT|
00001540 55 53 24 3d 22 53 61 76 65 22 3a f2 57 69 6d 70 |US$="Save":.Wimp|
00001550 5f 49 63 6f 6e 50 75 74 54 65 78 74 28 45 6e 74 |_IconPutText(Ent|
00001560 72 79 5f 57 69 6e 64 6f 77 25 2c 33 2c 53 54 41 |ry_Window%,3,STA|
00001570 54 55 53 24 29 3a f2 57 69 6d 70 5f 49 63 6f 6e |TUS$):.Wimp_Icon|
00001580 45 6e 61 62 6c 65 28 45 6e 74 72 79 5f 57 69 6e |Enable(Entry_Win|
00001590 64 6f 77 25 2c 31 36 29 0d 07 44 29 20 20 20 20 |dow%,16)..D) |
000015a0 20 20 20 20 20 e7 20 69 63 6f 6e 25 3d 38 20 80 | . icon%=8 .|
000015b0 20 53 54 41 54 55 53 24 3d 22 53 61 76 65 22 20 | STATUS$="Save" |
000015c0 8c 0d 07 4e 13 53 54 41 54 55 53 24 3d 22 53 70 |...N.STATUS$="Sp|
000015d0 65 6e 64 22 0d 07 58 2e f2 57 69 6d 70 5f 49 63 |end"..X..Wimp_Ic|
000015e0 6f 6e 50 75 74 54 65 78 74 28 45 6e 74 72 79 5f |onPutText(Entry_|
000015f0 57 69 6e 64 6f 77 25 2c 33 2c 53 54 41 54 55 53 |Window%,3,STATUS|
00001600 24 29 0d 07 62 27 f2 57 69 6d 70 5f 49 63 6f 6e |$)..b'.Wimp_Icon|
00001610 44 69 73 61 62 6c 65 28 45 6e 74 72 79 5f 57 69 |Disable(Entry_Wi|
00001620 6e 64 6f 77 25 2c 31 36 29 0d 07 6c 2a f2 57 69 |ndow%,16)..l*.Wi|
00001630 6d 70 5f 49 63 6f 6e 50 75 74 54 65 78 74 28 45 |mp_IconPutText(E|
00001640 6e 74 72 79 5f 57 69 6e 64 6f 77 25 2c 31 36 2c |ntry_Window%,16,|
00001650 22 22 29 0d 07 76 26 41 24 3d a4 57 69 6d 70 5f |"")..v&A$=.Wimp_|
00001660 49 63 6f 6e 54 65 78 74 28 45 6e 74 72 79 5f 57 |IconText(Entry_W|
00001670 69 6e 64 6f 77 25 2c 35 29 0d 07 80 2a f2 57 69 |indow%,5)...*.Wi|
00001680 6d 70 5f 49 63 6f 6e 43 61 72 65 74 28 45 6e 74 |mp_IconCaret(Ent|
00001690 72 79 5f 57 69 6e 64 6f 77 25 2c 35 2c a9 28 41 |ry_Window%,5,.(A|
000016a0 24 29 29 0d 07 8a 05 cd 0d 07 94 46 20 20 20 20 |$))........F |
000016b0 20 20 20 20 20 e7 20 69 63 6f 6e 25 3d 31 38 20 | . icon%=18 |
000016c0 8c 20 f2 57 69 6d 70 5f 57 69 6e 64 6f 77 43 6c |. .Wimp_WindowCl|
000016d0 6f 73 65 28 45 6e 74 72 79 5f 57 69 6e 64 6f 77 |ose(Entry_Window|
000016e0 25 29 3a f2 72 65 73 65 74 65 6e 74 72 79 0d 07 |%):.resetentry..|
000016f0 9e 19 20 20 20 20 20 20 20 20 20 e7 20 69 63 6f |.. . ico|
00001700 6e 25 3d 31 37 20 8c 0d 07 a8 0d e7 20 45 45 25 |n%=17 ...... EE%|
00001710 3d b9 20 8c 0d 07 b2 26 41 24 3d a4 57 69 6d 70 |=. ....&A$=.Wimp|
00001720 5f 49 63 6f 6e 54 65 78 74 28 45 6e 74 72 79 5f |_IconText(Entry_|
00001730 57 69 6e 64 6f 77 25 2c 35 29 0d 07 bc 23 e7 20 |Window%,5)...#. |
00001740 41 24 3c 3e 22 22 20 80 20 41 24 3c 3e 22 2e 22 |A$<>"" . A$<>"."|
00001750 20 80 20 bb 28 41 24 29 3c 3e 30 20 8c 0d 07 c6 | . .(A$)<>0 ....|
00001760 09 f2 72 65 61 64 0d 07 d0 0a f2 69 6e 70 75 74 |..read.....input|
00001770 0d 07 da 05 cd 0d 07 e4 05 cc 0d 07 ee 26 41 24 |.............&A$|
00001780 3d a4 57 69 6d 70 5f 49 63 6f 6e 54 65 78 74 28 |=.Wimp_IconText(|
00001790 45 6e 74 72 79 5f 57 69 6e 64 6f 77 25 2c 35 29 |Entry_Window%,5)|
000017a0 0d 07 f8 23 e7 20 41 24 3c 3e 22 22 20 80 20 41 |...#. A$<>"" . A|
000017b0 24 3c 3e 22 2e 22 20 80 20 bb 28 41 24 29 3c 3e |$<>"." . .(A$)<>|
000017c0 30 20 8c 0d 08 02 3b 20 20 20 20 20 20 20 41 4d |0 ....; AM|
000017d0 4d 4f 55 4e 54 28 41 41 42 42 29 3d bb 28 a4 57 |MOUNT(AABB)=.(.W|
000017e0 69 6d 70 5f 49 63 6f 6e 54 65 78 74 28 45 6e 74 |imp_IconText(Ent|
000017f0 72 79 5f 57 69 6e 64 6f 77 25 2c 35 29 29 0d 08 |ry_Window%,5))..|
00001800 0c 20 20 20 20 20 20 20 20 53 54 41 54 55 53 24 |. STATUS$|
00001810 28 41 41 42 42 29 3d 53 54 41 54 55 53 24 0d 08 |(AABB)=STATUS$..|
00001820 16 81 20 20 20 20 20 20 20 44 41 54 45 24 28 41 |.. DATE$(A|
00001830 41 42 42 29 3d a4 57 69 6d 70 5f 49 63 6f 6e 54 |ABB)=.Wimp_IconT|
00001840 65 78 74 28 45 6e 74 72 79 5f 57 69 6e 64 6f 77 |ext(Entry_Window|
00001850 25 2c 31 31 29 2b 22 2f 22 2b a4 57 69 6d 70 5f |%,11)+"/"+.Wimp_|
00001860 49 63 6f 6e 54 65 78 74 28 45 6e 74 72 79 5f 57 |IconText(Entry_W|
00001870 69 6e 64 6f 77 25 2c 31 32 29 2b 22 2f 22 2b a4 |indow%,12)+"/"+.|
00001880 57 69 6d 70 5f 49 63 6f 6e 54 65 78 74 28 45 6e |Wimp_IconText(En|
00001890 74 72 79 5f 57 69 6e 64 6f 77 25 2c 31 33 29 0d |try_Window%,13).|
000018a0 08 20 35 20 20 20 20 20 20 20 44 44 24 28 41 41 |. 5 DD$(AA|
000018b0 42 42 29 3d a4 57 69 6d 70 5f 49 63 6f 6e 54 65 |BB)=.Wimp_IconTe|
000018c0 78 74 28 45 6e 74 72 79 5f 57 69 6e 64 6f 77 25 |xt(Entry_Window%|
000018d0 2c 31 31 29 0d 08 2a 35 20 20 20 20 20 20 20 4d |,11)..*5 M|
000018e0 4d 24 28 41 41 42 42 29 3d a4 57 69 6d 70 5f 49 |M$(AABB)=.Wimp_I|
000018f0 63 6f 6e 54 65 78 74 28 45 6e 74 72 79 5f 57 69 |conText(Entry_Wi|
00001900 6e 64 6f 77 25 2c 31 32 29 0d 08 34 35 20 20 20 |ndow%,12)..45 |
00001910 20 20 20 20 59 59 24 28 41 41 42 42 29 3d a4 57 | YY$(AABB)=.W|
00001920 69 6d 70 5f 49 63 6f 6e 54 65 78 74 28 45 6e 74 |imp_IconText(Ent|
00001930 72 79 5f 57 69 6e 64 6f 77 25 2c 31 33 29 0d 08 |ry_Window%,13)..|
00001940 3e 36 20 20 20 20 20 20 20 57 48 4f 24 28 41 41 |>6 WHO$(AA|
00001950 42 42 29 3d a4 57 69 6d 70 5f 49 63 6f 6e 54 65 |BB)=.Wimp_IconTe|
00001960 78 74 28 45 6e 74 72 79 5f 57 69 6e 64 6f 77 25 |xt(Entry_Window%|
00001970 2c 31 36 29 0d 08 48 14 20 20 20 20 20 20 20 55 |,16)..H. U|
00001980 50 44 41 54 45 25 3d b9 0d 08 52 12 20 20 20 20 |PDATE%=...R. |
00001990 20 20 20 f2 72 65 63 61 6c 63 0d 08 5c 11 20 20 | .recalc..\. |
000019a0 20 20 20 20 20 f2 69 6e 70 75 74 0d 08 66 05 cd | .input..f..|
000019b0 0d 08 70 05 cd 0d 08 7a 2e e7 20 74 6f 74 61 6c |..p....z.. total|
000019c0 25 3e 31 20 8c 20 f2 57 69 6d 70 5f 4d 65 6e 75 |%>1 . .Wimp_Menu|
000019d0 45 6e 61 62 6c 65 28 42 61 72 5f 4d 65 6e 75 25 |Enable(Bar_Menu%|
000019e0 2c 33 29 0d 08 84 28 f4 50 52 4f 43 57 69 6d 70 |,3)...(.PROCWimp|
000019f0 5f 57 69 6e 64 6f 77 43 6c 6f 73 65 28 45 6e 74 |_WindowClose(Ent|
00001a00 72 79 5f 57 69 6e 64 6f 77 25 29 0d 08 8e 0f f2 |ry_Window%).....|
00001a10 72 65 73 65 74 65 6e 74 72 79 0d 08 98 0c f2 63 |resetentry.....c|
00001a20 75 74 64 61 74 65 0d 08 a2 26 f2 57 69 6d 70 5f |utdate...&.Wimp_|
00001a30 49 63 6f 6e 43 61 72 65 74 28 45 6e 74 72 79 5f |IconCaret(Entry_|
00001a40 57 69 6e 64 6f 77 25 2c 35 2c 30 29 0d 08 ac 05 |Window%,5,0)....|
00001a50 cd 0d 08 b6 0e 20 20 20 20 20 20 20 20 20 e1 0d |..... ..|
00001a60 08 c0 0e 20 20 20 20 20 20 20 20 20 3a 0d 08 ca |... :...|
00001a70 2e 20 20 20 20 20 20 20 20 20 dd 20 f2 55 73 65 |. . .Use|
00001a80 72 5f 4d 6f 75 73 65 4d 61 69 6e 28 20 62 75 74 |r_MouseMain( but|
00001a90 74 6f 6e 25 2c 69 63 6f 6e 25 29 0d 08 d4 2e 20 |ton%,icon%).... |
00001aa0 20 20 20 20 20 20 20 20 e7 20 69 63 6f 6e 25 3e | . icon%>|
00001ab0 37 30 20 80 20 69 63 6f 6e 25 3c 38 35 20 8c 20 |70 . icon%<85 . |
00001ac0 69 63 6f 6e 25 2d 3d 37 30 0d 08 de 2e 20 20 20 |icon%-=70.... |
00001ad0 20 20 20 20 20 20 e7 20 69 63 6f 6e 25 3e 31 36 | . icon%>16|
00001ae0 20 80 20 69 63 6f 6e 25 3c 33 31 20 8c 20 69 63 | . icon%<31 . ic|
00001af0 6f 6e 25 2d 3d 31 36 0d 08 e8 2e 20 20 20 20 20 |on%-=16.... |
00001b00 20 20 20 20 e7 20 69 63 6f 6e 25 3e 33 31 20 80 | . icon%>31 .|
00001b10 20 69 63 6f 6e 25 3c 34 36 20 8c 20 69 63 6f 6e | icon%<46 . icon|
00001b20 25 2d 3d 33 31 0d 08 f2 2e 20 20 20 20 20 20 20 |%-=31.... |
00001b30 20 20 e7 20 69 63 6f 6e 25 3e 34 35 20 80 20 69 | . icon%>45 . i|
00001b40 63 6f 6e 25 3c 35 37 20 8c 20 69 63 6f 6e 25 2d |con%<57 . icon%-|
00001b50 3d 34 35 0d 08 fc 2f 20 20 20 20 20 20 20 20 20 |=45.../ |
00001b60 e7 20 69 63 6f 6e 25 3e 38 35 20 80 20 69 63 6f |. icon%>85 . ico|
00001b70 6e 25 3c 31 30 30 20 8c 20 69 63 6f 6e 25 2d 3d |n%<100 . icon%-=|
00001b80 38 35 0d 09 06 23 20 20 20 20 20 20 20 20 20 e7 |85...# .|
00001b90 20 69 63 6f 6e 25 3e 30 20 80 20 69 63 6f 6e 25 | icon%>0 . icon%|
00001ba0 3c 31 35 20 8c 0d 09 10 22 20 20 20 20 20 20 20 |<15 ...." |
00001bb0 20 20 41 3d 28 63 75 72 70 61 67 65 25 2a 31 34 | A=(curpage%*14|
00001bc0 29 2b 69 63 6f 6e 25 0d 09 1a 1f 20 20 20 20 20 |)+icon%.... |
00001bd0 20 20 20 20 e7 20 41 3c 74 6f 74 61 6c 25 20 80 | . A<total% .|
00001be0 20 41 3e 30 20 8c 0d 09 24 32 20 20 20 20 20 20 | A>0 ...$2 |
00001bf0 20 20 20 f2 57 69 6d 70 5f 57 69 6e 64 6f 77 42 | .Wimp_WindowB|
00001c00 72 69 6e 67 54 6f 54 6f 70 28 45 6e 74 72 79 5f |ringToTop(Entry_|
00001c10 57 69 6e 64 6f 77 25 29 0d 09 2e 3d 20 20 20 20 |Window%)...= |
00001c20 20 20 20 20 20 f2 57 69 6d 70 5f 49 63 6f 6e 50 | .Wimp_IconP|
00001c30 75 74 54 65 78 74 28 45 6e 74 72 79 5f 57 69 6e |utText(Entry_Win|
00001c40 64 6f 77 25 2c 35 2c c3 28 41 4d 4d 4f 55 4e 54 |dow%,5,.(AMMOUNT|
00001c50 28 41 29 29 29 0d 09 38 3e 20 20 20 20 20 20 20 |(A)))..8> |
00001c60 20 20 f2 57 69 6d 70 5f 49 63 6f 6e 43 61 72 65 | .Wimp_IconCare|
00001c70 74 28 45 6e 74 72 79 5f 57 69 6e 64 6f 77 25 2c |t(Entry_Window%,|
00001c80 35 2c a9 28 c3 28 41 4d 4d 4f 55 4e 54 28 41 29 |5,.(.(AMMOUNT(A)|
00001c90 29 29 29 0d 09 42 3e 20 20 20 20 20 20 20 20 20 |)))..B> |
00001ca0 f2 57 69 6d 70 5f 49 63 6f 6e 43 61 72 65 74 28 |.Wimp_IconCaret(|
00001cb0 45 6e 74 72 79 5f 57 69 6e 64 6f 77 25 2c 35 2c |Entry_Window%,5,|
00001cc0 a9 28 c3 28 41 4d 4d 4f 55 4e 54 28 41 29 29 29 |.(.(AMMOUNT(A)))|
00001cd0 29 0d 09 4c 3a 20 20 20 20 20 20 20 20 20 f2 57 |)..L: .W|
00001ce0 69 6d 70 5f 49 63 6f 6e 50 75 74 54 65 78 74 28 |imp_IconPutText(|
00001cf0 45 6e 74 72 79 5f 57 69 6e 64 6f 77 25 2c 33 2c |Entry_Window%,3,|
00001d00 53 54 41 54 55 53 24 28 41 29 29 0d 09 56 16 20 |STATUS$(A))..V. |
00001d10 20 20 20 20 20 20 20 20 55 50 44 41 54 45 25 3d | UPDATE%=|
00001d20 b9 0d 09 60 1f 20 20 20 20 20 20 20 20 20 53 54 |...`. ST|
00001d30 41 54 55 53 24 3d 53 54 41 54 55 53 24 28 41 29 |ATUS$=STATUS$(A)|
00001d40 0d 09 6a 6c 20 20 20 20 20 20 20 20 20 e7 20 53 |..jl . S|
00001d50 54 41 54 55 53 24 28 41 29 3d 22 53 70 65 6e 64 |TATUS$(A)="Spend|
00001d60 22 20 8c 20 f2 57 69 6d 70 5f 49 63 6f 6e 44 69 |" . .Wimp_IconDi|
00001d70 73 61 62 6c 65 28 45 6e 74 72 79 5f 57 69 6e 64 |sable(Entry_Wind|
00001d80 6f 77 25 2c 31 36 29 20 8b 20 f2 57 69 6d 70 5f |ow%,16) . .Wimp_|
00001d90 49 63 6f 6e 45 6e 61 62 6c 65 28 45 6e 74 72 79 |IconEnable(Entry|
00001da0 5f 57 69 6e 64 6f 77 25 2c 31 36 29 0d 09 74 37 |_Window%,16)..t7|
00001db0 20 20 20 20 20 20 20 20 20 f2 57 69 6d 70 5f 49 | .Wimp_I|
00001dc0 63 6f 6e 50 75 74 54 65 78 74 28 45 6e 74 72 79 |conPutText(Entry|
00001dd0 5f 57 69 6e 64 6f 77 25 2c 31 31 2c 44 44 24 28 |_Window%,11,DD$(|
00001de0 41 29 29 0d 09 7e 37 20 20 20 20 20 20 20 20 20 |A))..~7 |
00001df0 f2 57 69 6d 70 5f 49 63 6f 6e 50 75 74 54 65 78 |.Wimp_IconPutTex|
00001e00 74 28 45 6e 74 72 79 5f 57 69 6e 64 6f 77 25 2c |t(Entry_Window%,|
00001e10 31 32 2c 4d 4d 24 28 41 29 29 0d 09 88 37 20 20 |12,MM$(A))...7 |
00001e20 20 20 20 20 20 20 20 f2 57 69 6d 70 5f 49 63 6f | .Wimp_Ico|
00001e30 6e 50 75 74 54 65 78 74 28 45 6e 74 72 79 5f 57 |nPutText(Entry_W|
00001e40 69 6e 64 6f 77 25 2c 31 33 2c 59 59 24 28 41 29 |indow%,13,YY$(A)|
00001e50 29 0d 09 92 38 20 20 20 20 20 20 20 20 20 f2 57 |)...8 .W|
00001e60 69 6d 70 5f 49 63 6f 6e 50 75 74 54 65 78 74 28 |imp_IconPutText(|
00001e70 45 6e 74 72 79 5f 57 69 6e 64 6f 77 25 2c 31 36 |Entry_Window%,16|
00001e80 2c 57 48 4f 24 28 41 29 29 0d 09 9c 12 20 20 20 |,WHO$(A)).... |
00001e90 20 20 20 20 20 20 45 45 25 3d a3 0d 09 a6 13 20 | EE%=..... |
00001ea0 20 20 20 20 20 20 20 20 41 41 42 42 3d 41 0d 09 | AABB=A..|
00001eb0 b0 0e 20 20 20 20 20 20 20 20 20 cd 0d 09 ba 0e |.. .....|
00001ec0 20 20 20 20 20 20 20 20 20 cd 0d 09 c4 5d 20 20 | ....] |
00001ed0 20 20 20 20 20 20 20 e7 20 69 63 6f 6e 25 3d 36 | . icon%=6|
00001ee0 36 20 80 20 74 6f 74 61 6c 25 3e 31 20 8c 20 f2 |6 . total%>1 . .|
00001ef0 6f 70 65 6e 70 72 69 6e 74 65 72 3a f2 57 69 6d |openprinter:.Wim|
00001f00 70 5f 57 69 6e 64 6f 77 42 72 69 6e 67 54 6f 54 |p_WindowBringToT|
00001f10 6f 70 28 50 72 69 6e 74 5f 57 69 6e 64 6f 77 25 |op(Print_Window%|
00001f20 29 3a f2 70 73 65 6c 0d 09 ce 6f 20 20 20 20 20 |):.psel...o |
00001f30 20 20 20 20 e7 20 69 63 6f 6e 25 3d 36 37 20 80 | . icon%=67 .|
00001f40 20 74 6f 74 61 6c 25 3e 31 20 8c 20 f2 57 69 6d | total%>1 . .Wim|
00001f50 70 5f 57 69 6e 64 6f 77 42 72 69 6e 67 54 6f 54 |p_WindowBringToT|
00001f60 6f 70 28 44 65 6c 65 74 65 5f 57 69 6e 64 6f 77 |op(Delete_Window|
00001f70 25 29 3a f2 57 69 6d 70 5f 49 63 6f 6e 43 61 72 |%):.Wimp_IconCar|
00001f80 65 74 28 44 65 6c 65 74 65 5f 57 69 6e 64 6f 77 |et(Delete_Window|
00001f90 25 2c 33 2c 30 29 0d 09 d8 19 20 20 20 20 20 20 |%,3,0).... |
00001fa0 20 20 20 e7 20 69 63 6f 6e 25 3d 31 35 20 8c 0d | . icon%=15 ..|
00001fb0 09 e2 0c f2 63 75 74 64 61 74 65 0d 09 ec 09 45 |....cutdate....E|
00001fc0 45 25 3d b9 0d 09 f6 29 f2 57 69 6d 70 5f 57 69 |E%=....).Wimp_Wi|
00001fd0 6e 64 6f 77 42 72 69 6e 67 54 6f 54 6f 70 28 45 |ndowBringToTop(E|
00001fe0 6e 74 72 79 5f 57 69 6e 64 6f 77 25 29 0d 0a 00 |ntry_Window%)...|
00001ff0 32 20 20 20 20 20 20 20 20 20 f2 57 69 6d 70 5f |2 .Wimp_|
00002000 49 63 6f 6e 50 75 74 54 65 78 74 28 45 6e 74 72 |IconPutText(Entr|
00002010 79 5f 57 69 6e 64 6f 77 25 2c 35 2c 22 22 29 0d |y_Window%,5,"").|
00002020 0a 0a 36 20 20 20 20 20 20 20 20 20 f2 57 69 6d |..6 .Wim|
00002030 70 5f 49 63 6f 6e 50 75 74 54 65 78 74 28 45 6e |p_IconPutText(En|
00002040 74 72 79 5f 57 69 6e 64 6f 77 25 2c 33 2c 22 53 |try_Window%,3,"S|
00002050 61 76 65 22 29 0d 0a 14 1b 20 20 20 20 20 20 20 |ave").... |
00002060 20 20 53 54 41 54 55 53 24 3d 22 53 61 76 65 22 | STATUS$="Save"|
00002070 0d 0a 1e 2f 20 20 20 20 20 20 20 20 20 f2 57 69 |.../ .Wi|
00002080 6d 70 5f 49 63 6f 6e 45 6e 61 62 6c 65 28 45 6e |mp_IconEnable(En|
00002090 74 72 79 5f 57 69 6e 64 6f 77 25 2c 31 36 29 0d |try_Window%,16).|
000020a0 0a 28 26 f2 57 69 6d 70 5f 49 63 6f 6e 43 61 72 |.(&.Wimp_IconCar|
000020b0 65 74 28 45 6e 74 72 79 5f 57 69 6e 64 6f 77 25 |et(Entry_Window%|
000020c0 2c 35 2c 30 29 0d 0a 32 05 cd 0d 0a 3c 39 20 20 |,5,0)..2....<9 |
000020d0 20 20 20 20 20 20 20 e7 20 69 63 6f 6e 25 3d 36 | . icon%=6|
000020e0 32 20 80 20 63 75 72 70 61 67 65 25 3e 30 20 8c |2 . curpage%>0 .|
000020f0 20 63 75 72 70 61 67 65 25 2d 3d 31 3a f2 69 6e | curpage%-=1:.in|
00002100 70 75 74 0d 0a 46 40 20 20 20 20 20 20 20 20 20 |put..F@ |
00002110 e7 20 69 63 6f 6e 25 3d 36 31 20 80 20 63 75 72 |. icon%=61 . cur|
00002120 70 61 67 65 25 3c 74 6f 74 70 61 67 65 25 20 8c |page%<totpage% .|
00002130 20 63 75 72 70 61 67 65 25 2b 3d 31 3a f2 69 6e | curpage%+=1:.in|
00002140 70 75 74 0d 0a 50 38 20 20 20 20 20 20 20 20 20 |put..P8 |
00002150 e7 20 69 63 6f 6e 25 3d 36 34 20 80 20 63 75 72 |. icon%=64 . cur|
00002160 70 61 67 65 25 3e 30 20 8c 20 63 75 72 70 61 67 |page%>0 . curpag|
00002170 65 25 3d 30 3a f2 69 6e 70 75 74 0d 0a 5a 46 20 |e%=0:.input..ZF |
00002180 20 20 20 20 20 20 20 20 e7 20 69 63 6f 6e 25 3d | . icon%=|
00002190 36 33 20 80 20 63 75 72 70 61 67 65 25 3c 74 6f |63 . curpage%<to|
000021a0 74 70 61 67 65 25 20 8c 20 63 75 72 70 61 67 65 |tpage% . curpage|
000021b0 25 3d 74 6f 74 70 61 67 65 25 3a f2 69 6e 70 75 |%=totpage%:.inpu|
000021c0 74 0d 0a 64 0e 20 20 20 20 20 20 20 20 20 e1 0d |t..d. ..|
000021d0 0a 6e 0e 20 20 20 20 20 20 20 20 20 3a 0d 0a 78 |.n. :..x|
000021e0 30 20 20 20 20 20 20 20 20 20 dd 20 f2 55 73 65 |0 . .Use|
000021f0 72 5f 4d 6f 75 73 65 44 65 6c 65 74 65 28 20 62 |r_MouseDelete( b|
00002200 75 74 74 6f 6e 25 2c 69 63 6f 6e 25 29 0d 0a 82 |utton%,icon%)...|
00002210 18 20 20 20 20 20 20 20 20 20 e7 20 69 63 6f 6e |. . icon|
00002220 25 3d 34 20 8c 0d 0a 8c 29 4e 55 4d 24 3d a4 57 |%=4 ....)NUM$=.W|
00002230 69 6d 70 5f 49 63 6f 6e 54 65 78 74 28 44 65 6c |imp_IconText(Del|
00002240 65 74 65 5f 57 69 6e 64 6f 77 25 2c 33 29 0d 0a |ete_Window%,3)..|
00002250 96 2d e7 20 4e 55 4d 24 3c 3e 22 22 20 80 20 bb |.-. NUM$<>"" . .|
00002260 28 4e 55 4d 24 29 3c 74 6f 74 61 6c 25 20 80 20 |(NUM$)<total% . |
00002270 bb 28 4e 55 4d 24 29 3e 30 20 8c 0d 0a a0 58 64 |.(NUM$)>0 ....Xd|
00002280 6f 25 3d a4 57 69 6d 70 5f 57 69 6e 64 6f 77 43 |o%=.Wimp_WindowC|
00002290 61 6e 63 65 6c 28 22 44 65 6c 65 74 65 22 2c 22 |ancel("Delete","|
000022a0 41 72 65 20 79 6f 75 20 73 75 72 65 20 79 6f 75 |Are you sure you|
000022b0 20 77 61 6e 74 20 74 6f 20 64 65 6c 65 74 65 20 | want to delete |
000022c0 6e 75 6d 62 65 72 20 22 2b 4e 55 4d 24 2b 22 20 |number "+NUM$+" |
000022d0 3f 22 29 0d 0a aa 0d e7 20 64 6f 25 3d a3 20 8c |?")..... do%=. .|
000022e0 0d 0a b4 2a f2 57 69 6d 70 5f 49 63 6f 6e 50 75 |...*.Wimp_IconPu|
000022f0 74 54 65 78 74 28 44 65 6c 65 74 65 5f 57 69 6e |tText(Delete_Win|
00002300 64 6f 77 25 2c 33 2c 22 22 29 0d 0a be 27 f2 57 |dow%,3,"")...'.W|
00002310 69 6d 70 5f 49 63 6f 6e 43 61 72 65 74 28 44 65 |imp_IconCaret(De|
00002320 6c 65 74 65 5f 57 69 6e 64 6f 77 25 2c 33 2c 30 |lete_Window%,3,0|
00002330 29 0d 0a c8 29 f4 50 52 4f 43 57 69 6d 70 5f 57 |)...).PROCWimp_W|
00002340 69 6e 64 6f 77 43 6c 6f 73 65 28 44 65 6c 65 74 |indowClose(Delet|
00002350 65 5f 57 69 6e 64 6f 77 25 29 0d 0a d2 05 cd 0d |e_Window%)......|
00002360 0a dc 04 0d 0a e6 0d e7 20 64 6f 25 3d b9 20 8c |........ do%=. .|
00002370 0d 0a f0 22 e7 20 bb 28 4e 55 4d 24 29 3e 30 20 |...". .(NUM$)>0 |
00002380 80 20 bb 28 4e 55 4d 24 29 3c 74 6f 74 61 6c 25 |. .(NUM$)<total%|
00002390 20 8c 0d 0a fa 0d 55 50 44 41 54 45 25 3d b9 0d | .....UPDATE%=..|
000023a0 0b 04 10 63 75 72 25 3d bb 28 4e 55 4d 24 29 0d |...cur%=.(NUM$).|
000023b0 0b 0e 1d e7 20 63 75 72 25 3d 74 6f 74 61 6c 25 |.... cur%=total%|
000023c0 20 8c 20 74 6f 74 61 6c 25 2d 3d 31 0d 0b 18 04 | . total%-=1....|
000023d0 0d 0b 22 13 e7 20 63 75 72 25 3c 74 6f 74 61 6c |..".. cur%<total|
000023e0 25 20 8c 0d 0b 2c 18 e3 20 41 3d bb 28 4e 55 4d |% ...,.. A=.(NUM|
000023f0 24 29 20 b8 20 74 6f 74 61 6c 25 0d 0b 36 1b 41 |$) . total%..6.A|
00002400 4d 4d 4f 55 4e 54 28 41 29 3d 41 4d 4d 4f 55 4e |MMOUNT(A)=AMMOUN|
00002410 54 28 41 2b 31 29 0d 0b 40 1b 53 54 41 54 55 53 |T(A+1)..@.STATUS|
00002420 24 28 41 29 3d 53 54 41 54 55 53 24 28 41 2b 31 |$(A)=STATUS$(A+1|
00002430 29 0d 0b 4a 17 44 41 54 45 24 28 41 29 3d 44 41 |)..J.DATE$(A)=DA|
00002440 54 45 24 28 41 2b 31 29 0d 0b 54 15 57 48 4f 24 |TE$(A+1)..T.WHO$|
00002450 28 41 29 3d 57 48 4f 24 28 41 2b 31 29 0d 0b 5e |(A)=WHO$(A+1)..^|
00002460 19 43 55 52 54 4f 54 28 41 29 3d 43 55 52 54 4f |.CURTOT(A)=CURTO|
00002470 54 28 41 2b 31 29 0d 0b 68 07 ed 20 41 0d 0b 72 |T(A+1)..h.. A..r|
00002480 0d 74 6f 74 61 6c 25 2d 3d 31 0d 0b 7c 05 cd 0d |.total%-=1..|...|
00002490 0b 86 04 0d 0b 90 1e e7 20 28 74 6f 74 61 6c 25 |........ (total%|
000024a0 2d 31 29 2f 31 35 3c 74 6f 74 70 61 67 65 25 20 |-1)/15<totpage% |
000024b0 8c 0d 0b 9a 0f 74 6f 74 70 61 67 65 25 2d 3d 31 |.....totpage%-=1|
000024c0 0d 0b a4 25 e7 20 74 6f 74 70 61 67 65 25 3e 63 |...%. totpage%>c|
000024d0 75 72 70 61 67 65 25 20 8c 20 63 75 72 70 61 67 |urpage% . curpag|
000024e0 65 25 2d 3d 31 0d 0b ae 05 cd 0d 0b b8 04 0d 0b |e%-=1...........|
000024f0 c2 09 f2 70 61 67 65 0d 0b cc 0b f2 72 65 63 61 |...page.....reca|
00002500 6c 63 0d 0b d6 0a f2 69 6e 70 75 74 0d 0b e0 05 |lc.....input....|
00002510 cd 0d 0b ea 2a f2 57 69 6d 70 5f 49 63 6f 6e 50 |....*.Wimp_IconP|
00002520 75 74 54 65 78 74 28 44 65 6c 65 74 65 5f 57 69 |utText(Delete_Wi|
00002530 6e 64 6f 77 25 2c 33 2c 22 22 29 0d 0b f4 27 f2 |ndow%,3,"")...'.|
00002540 57 69 6d 70 5f 49 63 6f 6e 43 61 72 65 74 28 44 |Wimp_IconCaret(D|
00002550 65 6c 65 74 65 5f 57 69 6e 64 6f 77 25 2c 33 2c |elete_Window%,3,|
00002560 30 29 0d 0b fe 29 f4 50 52 4f 43 57 69 6d 70 5f |0)...).PROCWimp_|
00002570 57 69 6e 64 6f 77 43 6c 6f 73 65 28 44 65 6c 65 |WindowClose(Dele|
00002580 74 65 5f 57 69 6e 64 6f 77 25 29 0d 0c 08 2f e7 |te_Window%).../.|
00002590 20 74 6f 74 61 6c 25 3d 31 20 8c 20 f2 57 69 6d | total%=1 . .Wim|
000025a0 70 5f 4d 65 6e 75 44 69 73 61 62 6c 65 28 42 61 |p_MenuDisable(Ba|
000025b0 72 5f 4d 65 6e 75 25 2c 33 29 0d 0c 12 05 cd 0d |r_Menu%,3)......|
000025c0 0c 1c 05 cd 0d 0c 26 05 cd 0d 0c 30 61 20 20 20 |......&....0a |
000025d0 20 20 20 20 20 20 e7 20 69 63 6f 6e 25 3d 35 20 | . icon%=5 |
000025e0 8c 20 f2 57 69 6d 70 5f 49 63 6f 6e 50 75 74 54 |. .Wimp_IconPutT|
000025f0 65 78 74 28 44 65 6c 65 74 65 5f 57 69 6e 64 6f |ext(Delete_Windo|
00002600 77 25 2c 33 2c 22 22 29 3a f2 57 69 6d 70 5f 57 |w%,3,""):.Wimp_W|
00002610 69 6e 64 6f 77 43 6c 6f 73 65 28 44 65 6c 65 74 |indowClose(Delet|
00002620 65 5f 57 69 6e 64 6f 77 25 29 0d 0c 3a 0e 20 20 |e_Window%)..:. |
00002630 20 20 20 20 20 20 20 e1 0d 0c 44 0e 20 20 20 20 | ...D. |
00002640 20 20 20 20 20 3a 0d 0c 4e 31 20 20 20 20 20 20 | :..N1 |
00002650 20 20 20 dd 20 f2 55 73 65 72 5f 4d 6f 75 73 65 | . .User_Mouse|
00002660 4f 70 74 69 6f 6e 73 28 20 62 75 74 74 6f 6e 25 |Options( button%|
00002670 2c 69 63 6f 6e 25 29 0d 0c 58 b1 20 20 20 20 20 |,icon%)..X. |
00002680 20 20 20 20 e7 20 69 63 6f 6e 25 3d 32 20 80 20 | . icon%=2 . |
00002690 50 41 53 53 41 4c 4c 4f 57 25 3d b9 20 8c 20 f2 |PASSALLOW%=. . .|
000026a0 57 69 6d 70 5f 49 63 6f 6e 50 75 74 54 65 78 74 |Wimp_IconPutText|
000026b0 28 4f 70 74 69 6f 6e 73 5f 57 69 6e 64 6f 77 25 |(Options_Window%|
000026c0 2c 33 2c 50 41 53 53 24 29 3a c8 96 3a c8 96 3a |,3,PASS$):..:..:|
000026d0 c8 96 3a c8 96 3a c8 96 3a c8 96 3a c8 96 3a c8 |..:..:..:..:..:.|
000026e0 96 3a c8 96 3a c8 96 3a c8 96 3a c8 96 3a c8 96 |.:..:..:..:..:..|
000026f0 3a f2 57 69 6d 70 5f 49 63 6f 6e 50 75 74 54 65 |:.Wimp_IconPutTe|
00002700 78 74 28 4f 70 74 69 6f 6e 73 5f 57 69 6e 64 6f |xt(Options_Windo|
00002710 77 25 2c 33 2c c0 50 43 4f 56 45 52 24 2c a9 28 |w%,3,.PCOVER$,.(|
00002720 50 41 53 53 24 29 29 29 0d 0c 62 2c f2 57 69 6d |PASS$)))..b,.Wim|
00002730 70 5f 49 63 6f 6e 50 75 74 54 65 78 74 28 50 61 |p_IconPutText(Pa|
00002740 73 73 77 6f 72 64 5f 57 69 6e 64 6f 77 25 2c 33 |ssword_Window%,3|
00002750 2c 22 22 29 0d 0c 6c 0e 20 20 20 20 20 20 20 20 |,"")..l. |
00002760 20 e1 0d 0c 76 0c 20 20 20 20 20 20 20 3a 0d 0c | ...v. :..|
00002770 80 30 20 20 20 20 20 20 20 dd 20 f2 45 76 65 6e |.0 . .Even|
00002780 74 5f 4b 65 79 50 72 65 73 73 28 77 69 6e 64 6f |t_KeyPress(windo|
00002790 77 25 2c 69 63 6f 6e 25 2c 6b 65 79 25 29 0d 0c |w%,icon%,key%)..|
000027a0 8a 1a 20 20 20 20 20 20 20 20 20 20 c8 8e 20 77 |.. .. w|
000027b0 69 6e 64 6f 77 25 20 ca 0d 0c 94 46 20 20 20 20 |indow% ....F |
000027c0 20 20 20 20 20 20 20 c9 20 45 6e 74 72 79 5f 57 | . Entry_W|
000027d0 69 6e 64 6f 77 25 20 20 20 20 20 20 3a 20 f2 55 |indow% : .U|
000027e0 73 65 72 5f 4b 65 79 50 72 65 73 73 45 6e 74 72 |ser_KeyPressEntr|
000027f0 79 28 20 69 63 6f 6e 25 2c 6b 65 79 25 29 0d 0c |y( icon%,key%)..|
00002800 9e 47 20 20 20 20 20 20 20 20 20 20 20 c9 20 44 |.G . D|
00002810 65 6c 65 74 65 5f 57 69 6e 64 6f 77 25 20 20 20 |elete_Window% |
00002820 20 20 3a 20 f2 55 73 65 72 5f 4b 65 79 50 72 65 | : .User_KeyPre|
00002830 73 73 44 65 6c 65 74 65 28 20 69 63 6f 6e 25 2c |ssDelete( icon%,|
00002840 6b 65 79 25 29 0d 0c a8 49 20 20 20 20 20 20 20 |key%)...I |
00002850 20 20 20 20 c9 20 50 61 73 73 77 6f 72 64 5f 57 | . Password_W|
00002860 69 6e 64 6f 77 25 20 20 20 3a 20 f2 55 73 65 72 |indow% : .User|
00002870 5f 4b 65 79 50 72 65 73 73 50 61 73 73 77 6f 72 |_KeyPressPasswor|
00002880 64 28 20 69 63 6f 6e 25 2c 6b 65 79 25 29 0d 0c |d( icon%,key%)..|
00002890 b2 48 20 20 20 20 20 20 20 20 20 20 20 c9 20 4f |.H . O|
000028a0 70 74 69 6f 6e 73 5f 57 69 6e 64 6f 77 25 20 20 |ptions_Window% |
000028b0 20 20 3a 20 f2 55 73 65 72 5f 4b 65 79 50 72 65 | : .User_KeyPre|
000028c0 73 73 4f 70 74 69 6f 6e 73 28 20 69 63 6f 6e 25 |ssOptions( icon%|
000028d0 2c 6b 65 79 25 29 0d 0c bc 0f 20 20 20 20 20 20 |,key%).... |
000028e0 20 20 20 20 cb 0d 0c c6 0c 20 20 20 20 20 20 20 | ..... |
000028f0 e1 0d 0c d0 0e 20 20 20 20 20 20 20 20 20 3a 0d |..... :.|
00002900 0c da 2f 20 20 20 20 20 20 20 20 20 dd 20 f2 55 |../ . .U|
00002910 73 65 72 5f 4b 65 79 50 72 65 73 73 45 6e 74 72 |ser_KeyPressEntr|
00002920 79 28 20 69 63 6f 6e 25 2c 6b 65 79 25 29 0d 0c |y( icon%,key%)..|
00002930 e4 68 20 20 20 20 20 20 20 20 20 e7 20 6b 65 79 |.h . key|
00002940 25 3d 31 33 20 80 20 69 63 6f 6e 25 3d 35 20 8c |%=13 . icon%=5 .|
00002950 20 f2 57 69 6d 70 5f 49 63 6f 6e 43 61 72 65 74 | .Wimp_IconCaret|
00002960 28 45 6e 74 72 79 5f 57 69 6e 64 6f 77 25 2c 31 |(Entry_Window%,1|
00002970 31 2c a9 28 a4 57 69 6d 70 5f 49 63 6f 6e 54 65 |1,.(.Wimp_IconTe|
00002980 78 74 28 45 6e 74 72 79 5f 57 69 6e 64 6f 77 25 |xt(Entry_Window%|
00002990 2c 31 31 29 29 29 0d 0c ee 69 20 20 20 20 20 20 |,11)))...i |
000029a0 20 20 20 e7 20 6b 65 79 25 3d 31 33 20 80 20 69 | . key%=13 . i|
000029b0 63 6f 6e 25 3d 31 31 20 8c 20 f2 57 69 6d 70 5f |con%=11 . .Wimp_|
000029c0 49 63 6f 6e 43 61 72 65 74 28 45 6e 74 72 79 5f |IconCaret(Entry_|
000029d0 57 69 6e 64 6f 77 25 2c 31 32 2c a9 28 a4 57 69 |Window%,12,.(.Wi|
000029e0 6d 70 5f 49 63 6f 6e 54 65 78 74 28 45 6e 74 72 |mp_IconText(Entr|
000029f0 79 5f 57 69 6e 64 6f 77 25 2c 31 32 29 29 29 0d |y_Window%,12))).|
00002a00 0c f8 69 20 20 20 20 20 20 20 20 20 e7 20 6b 65 |..i . ke|
00002a10 79 25 3d 31 33 20 80 20 69 63 6f 6e 25 3d 31 32 |y%=13 . icon%=12|
00002a20 20 8c 20 f2 57 69 6d 70 5f 49 63 6f 6e 43 61 72 | . .Wimp_IconCar|
00002a30 65 74 28 45 6e 74 72 79 5f 57 69 6e 64 6f 77 25 |et(Entry_Window%|
00002a40 2c 31 33 2c a9 28 a4 57 69 6d 70 5f 49 63 6f 6e |,13,.(.Wimp_Icon|
00002a50 54 65 78 74 28 45 6e 74 72 79 5f 57 69 6e 64 6f |Text(Entry_Windo|
00002a60 77 25 2c 31 33 29 29 29 0d 0d 02 7a 20 20 20 20 |w%,13)))...z |
00002a70 20 20 20 20 20 e7 20 6b 65 79 25 3d 31 33 20 80 | . key%=13 .|
00002a80 20 69 63 6f 6e 25 3d 31 33 20 80 20 53 54 41 54 | icon%=13 . STAT|
00002a90 55 53 24 3d 22 53 61 76 65 22 20 8c 20 f2 57 69 |US$="Save" . .Wi|
00002aa0 6d 70 5f 49 63 6f 6e 43 61 72 65 74 28 45 6e 74 |mp_IconCaret(Ent|
00002ab0 72 79 5f 57 69 6e 64 6f 77 25 2c 31 36 2c a9 28 |ry_Window%,16,.(|
00002ac0 a4 57 69 6d 70 5f 49 63 6f 6e 54 65 78 74 28 45 |.Wimp_IconText(E|
00002ad0 6e 74 72 79 5f 57 69 6e 64 6f 77 25 2c 31 36 29 |ntry_Window%,16)|
00002ae0 29 29 0d 0d 0c 4d 20 20 20 20 20 20 20 20 20 e7 |))...M .|
00002af0 20 6b 65 79 25 3d 31 33 20 80 20 69 63 6f 6e 25 | key%=13 . icon%|
00002b00 3d 31 33 20 80 20 53 54 41 54 55 53 24 3d 22 53 |=13 . STATUS$="S|
00002b10 70 65 6e 64 22 20 8c 20 f2 55 73 65 72 5f 4d 6f |pend" . .User_Mo|
00002b20 75 73 65 45 6e 74 72 79 28 20 34 2c 31 37 29 0d |useEntry( 4,17).|
00002b30 0d 16 3b 20 20 20 20 20 20 20 20 20 e7 20 6b 65 |..; . ke|
00002b40 79 25 3d 31 33 20 80 20 69 63 6f 6e 25 3d 31 36 |y%=13 . icon%=16|
00002b50 20 8c 20 f2 55 73 65 72 5f 4d 6f 75 73 65 45 6e | . .User_MouseEn|
00002b60 74 72 79 28 20 34 2c 31 37 29 0d 0d 20 0e 20 20 |try( 4,17).. . |
00002b70 20 20 20 20 20 20 20 e1 0d 0d 2a 0e 20 20 20 20 | ...*. |
00002b80 20 20 20 20 20 3a 0d 0d 34 30 20 20 20 20 20 20 | :..40 |
00002b90 20 20 20 dd 20 f2 55 73 65 72 5f 4b 65 79 50 72 | . .User_KeyPr|
00002ba0 65 73 73 44 65 6c 65 74 65 28 20 69 63 6f 6e 25 |essDelete( icon%|
00002bb0 2c 6b 65 79 25 29 0d 0d 3e 0e 20 20 20 20 20 20 |,key%)..>. |
00002bc0 20 20 20 e1 0d 0d 48 0e 20 20 20 20 20 20 20 20 | ...H. |
00002bd0 20 3a 0d 0d 52 32 20 20 20 20 20 20 20 20 20 dd | :..R2 .|
00002be0 20 f2 55 73 65 72 5f 4b 65 79 50 72 65 73 73 50 | .User_KeyPressP|
00002bf0 61 73 73 77 6f 72 64 28 20 69 63 6f 6e 25 2c 6b |assword( icon%,k|
00002c00 65 79 25 29 0d 0d 5c 18 20 20 20 20 20 20 20 20 |ey%)..\. |
00002c10 20 4e 45 57 50 41 53 53 24 3d 22 22 0d 0d 66 18 | NEWPASS$=""..f.|
00002c20 20 20 20 20 20 20 20 20 20 e7 20 6b 65 79 25 3d | . key%=|
00002c30 31 33 20 8c 0d 0d 70 2f 4e 45 57 50 41 53 53 24 |13 ...p/NEWPASS$|
00002c40 3d a4 57 69 6d 70 5f 49 63 6f 6e 54 65 78 74 28 |=.Wimp_IconText(|
00002c50 50 61 73 73 77 6f 72 64 5f 57 69 6e 64 6f 77 25 |Password_Window%|
00002c60 2c 32 29 0d 0d 7a 12 f2 63 68 65 63 6b 70 61 73 |,2)..z..checkpas|
00002c70 73 77 6f 72 64 0d 0d 84 05 cd 0d 0d 8e 0e 20 20 |sword......... |
00002c80 20 20 20 20 20 20 20 e1 0d 0d 98 0e 20 20 20 20 | ..... |
00002c90 20 20 20 20 20 3a 0d 0d a2 31 20 20 20 20 20 20 | :...1 |
00002ca0 20 20 20 dd 20 f2 55 73 65 72 5f 4b 65 79 50 72 | . .User_KeyPr|
00002cb0 65 73 73 4f 70 74 69 6f 6e 73 28 20 69 63 6f 6e |essOptions( icon|
00002cc0 25 2c 6b 65 79 25 29 0d 0d ac 18 20 20 20 20 20 |%,key%).... |
00002cd0 20 20 20 20 e7 20 6b 65 79 25 3d 31 33 20 8c 0d | . key%=13 ..|
00002ce0 0d b6 3b 20 20 20 20 20 20 20 20 20 50 4f 55 4e |..; POUN|
00002cf0 44 56 41 4c 25 3d bb 28 a4 57 69 6d 70 5f 49 63 |DVAL%=.(.Wimp_Ic|
00002d00 6f 6e 54 65 78 74 28 4f 70 74 69 6f 6e 73 5f 57 |onText(Options_W|
00002d10 69 6e 64 6f 77 25 2c 33 29 29 0d 0d c0 0e 20 20 |indow%,3)).... |
00002d20 20 20 20 20 20 20 20 cd 0d 0d ca 0e 20 20 20 20 | ..... |
00002d30 20 20 20 20 20 e1 0d 0d d4 0c 20 20 20 20 20 20 | ..... |
00002d40 20 3a 0d 0d de 25 20 20 20 20 20 20 20 dd 20 f2 | :...% . .|
00002d50 45 76 65 6e 74 5f 4d 65 6e 75 43 68 6f 69 63 65 |Event_MenuChoice|
00002d60 28 6d 65 6e 75 25 29 0d 0d e8 16 20 20 20 20 20 |(menu%).... |
00002d70 20 20 20 c8 8e 20 6d 65 6e 75 25 20 ca 0d 0d f2 | .. menu% ....|
00002d80 3c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c9 |< .|
00002d90 20 42 61 72 5f 4d 65 6e 75 25 20 20 20 20 20 20 | Bar_Menu% |
00002da0 20 20 20 20 3a 20 f2 55 73 65 72 5f 4d 65 6e 75 | : .User_Menu|
00002db0 43 68 6f 69 63 65 42 61 72 0d 0d fc 3d 20 20 20 |ChoiceBar...= |
00002dc0 20 20 20 20 20 20 20 20 20 20 20 c9 20 4d 61 69 | . Mai|
00002dd0 6e 5f 4d 65 6e 75 25 20 20 20 20 20 20 20 20 20 |n_Menu% |
00002de0 3a 20 f2 55 73 65 72 5f 4d 65 6e 75 43 68 6f 69 |: .User_MenuChoi|
00002df0 63 65 4d 61 69 6e 0d 0e 06 0d 20 20 20 20 20 20 |ceMain.... |
00002e00 20 20 cb 0d 0e 10 0c 20 20 20 20 20 20 20 e1 0d | ..... ..|
00002e10 0e 1a 05 3a 0d 0e 24 22 20 20 20 20 20 20 20 20 |...:..$" |
00002e20 dd 20 f2 55 73 65 72 5f 4d 65 6e 75 43 68 6f 69 |. .User_MenuChoi|
00002e30 63 65 4d 61 69 6e 0d 0e 2e 24 20 20 20 20 20 20 |ceMain...$ |
00002e40 20 20 c8 8e 20 a4 57 69 6d 70 5f 4d 65 6e 75 43 | .. .Wimp_MenuC|
00002e50 68 6f 69 63 65 28 30 29 20 ca 0d 0e 38 29 20 20 |hoice(0) ...8) |
00002e60 20 20 20 20 20 20 20 c9 20 31 20 3a 20 f2 55 73 | . 1 : .Us|
00002e70 65 72 5f 4d 6f 75 73 65 4d 61 69 6e 28 20 34 2c |er_MouseMain( 4,|
00002e80 36 34 29 0d 0e 42 29 20 20 20 20 20 20 20 20 20 |64)..B) |
00002e90 c9 20 32 20 3a 20 f2 55 73 65 72 5f 4d 6f 75 73 |. 2 : .User_Mous|
00002ea0 65 4d 61 69 6e 28 20 34 2c 36 32 29 0d 0e 4c 29 |eMain( 4,62)..L)|
00002eb0 20 20 20 20 20 20 20 20 20 c9 20 33 20 3a 20 f2 | . 3 : .|
00002ec0 55 73 65 72 5f 4d 6f 75 73 65 4d 61 69 6e 28 20 |User_MouseMain( |
00002ed0 34 2c 36 36 29 0d 0e 56 29 20 20 20 20 20 20 20 |4,66)..V) |
00002ee0 20 20 c9 20 34 20 3a 20 f2 55 73 65 72 5f 4d 6f | . 4 : .User_Mo|
00002ef0 75 73 65 4d 61 69 6e 28 20 34 2c 31 35 29 0d 0e |useMain( 4,15)..|
00002f00 60 29 20 20 20 20 20 20 20 20 20 c9 20 35 20 3a |`) . 5 :|
00002f10 20 f2 55 73 65 72 5f 4d 6f 75 73 65 4d 61 69 6e | .User_MouseMain|
00002f20 28 20 34 2c 36 37 29 0d 0e 6a 29 20 20 20 20 20 |( 4,67)..j) |
00002f30 20 20 20 20 c9 20 36 20 3a 20 f2 55 73 65 72 5f | . 6 : .User_|
00002f40 4d 6f 75 73 65 4d 61 69 6e 28 20 34 2c 36 31 29 |MouseMain( 4,61)|
00002f50 0d 0e 74 29 20 20 20 20 20 20 20 20 20 c9 20 37 |..t) . 7|
00002f60 20 3a 20 f2 55 73 65 72 5f 4d 6f 75 73 65 4d 61 | : .User_MouseMa|
00002f70 69 6e 28 20 34 2c 36 33 29 0d 0e 7e 2b 20 20 20 |in( 4,63)..~+ |
00002f80 20 20 20 20 20 20 f2 57 69 6d 70 5f 4d 65 6e 75 | .Wimp_Menu|
00002f90 41 64 6a 75 73 74 4f 6e 28 4d 61 69 6e 5f 4d 65 |AdjustOn(Main_Me|
00002fa0 6e 75 25 29 0d 0e 88 0e 20 20 20 20 20 20 20 20 |nu%).... |
00002fb0 20 cb 0d 0e 92 0e 20 20 20 20 20 20 20 20 20 e1 | ..... .|
00002fc0 0d 0e 9c 0c 20 20 20 20 20 20 20 3a 0d 0e a6 20 |.... :... |
00002fd0 20 20 20 20 20 20 20 dd 20 f2 55 73 65 72 5f 4d | . .User_M|
00002fe0 65 6e 75 43 68 6f 69 63 65 42 61 72 0d 0e b0 24 |enuChoiceBar...$|
00002ff0 20 20 20 20 20 20 20 20 c8 8e 20 a4 57 69 6d 70 | .. .Wimp|
00003000 5f 4d 65 6e 75 43 68 6f 69 63 65 28 30 29 20 ca |_MenuChoice(0) .|
00003010 0d 0e ba 12 20 20 20 20 20 20 20 20 20 c9 20 31 |.... . 1|
00003020 20 3a 0d 0e c4 12 20 20 20 20 20 20 20 20 20 c9 | :.... .|
00003030 20 32 20 3a 0d 0e ce 10 20 20 20 20 20 20 20 20 | 2 :.... |
00003040 20 c9 20 34 0d 0e d8 52 41 4e 53 25 3d a4 57 69 | . 4...RANS%=.Wi|
00003050 6d 70 5f 57 69 6e 64 6f 77 43 61 6e 63 65 6c 28 |mp_WindowCancel(|
00003060 22 21 50 6f 63 6b 65 74 4d 22 2c 22 41 72 65 20 |"!PocketM","Are |
00003070 79 6f 75 20 73 75 72 65 20 79 6f 75 20 77 61 6e |you sure you wan|
00003080 74 20 74 6f 20 63 6c 65 61 72 20 74 68 65 20 64 |t to clear the d|
00003090 61 74 61 3f 22 29 0d 0e e2 0e e7 20 41 4e 53 25 |ata?")..... ANS%|
000030a0 3d b9 20 8c 0d 0e ec 32 f2 57 69 6d 70 5f 49 63 |=. ....2.Wimp_Ic|
000030b0 6f 6e 50 75 74 54 65 78 74 28 53 61 76 65 5f 57 |onPutText(Save_W|
000030c0 69 6e 64 6f 77 25 2c 31 2c 22 50 6f 63 6b 65 74 |indow%,1,"Pocket|
000030d0 44 61 74 61 22 29 0d 0e f6 33 f2 57 69 6d 70 5f |Data")...3.Wimp_|
000030e0 49 63 6f 6e 50 75 74 54 65 78 74 28 53 61 76 65 |IconPutText(Save|
000030f0 32 5f 57 69 6e 64 6f 77 25 2c 31 2c 22 50 6f 63 |2_Window%,1,"Poc|
00003100 6b 65 74 54 65 78 74 22 29 0d 0f 00 0f 41 4d 4d |ketText")....AMM|
00003110 4f 55 4e 54 28 29 3d 30 0d 0f 0a 10 53 54 41 54 |OUNT()=0....STAT|
00003120 55 53 24 28 29 3d 22 22 0d 0f 14 0e 44 41 54 45 |US$()=""....DATE|
00003130 24 28 29 3d 22 22 0d 0f 1e 0d 57 48 4f 24 28 29 |$()=""....WHO$()|
00003140 3d 22 22 0d 0f 28 0e 43 55 52 54 4f 54 28 29 3d |=""..(.CURTOT()=|
00003150 30 0d 0f 32 0e f2 63 6c 65 61 72 6d 61 69 6e 0d |0..2..clearmain.|
00003160 0f 3c 0c 74 6f 74 61 6c 25 3d 31 0d 0f 46 0a 63 |.<.total%=1..F.c|
00003170 75 72 25 3d 31 0d 0f 50 0e 74 6f 74 70 61 67 65 |ur%=1..P.totpage|
00003180 25 3d 30 0d 0f 5a 0e 63 75 72 70 61 67 65 25 3d |%=0..Z.curpage%=|
00003190 30 0d 0f 64 0d 55 50 44 41 54 45 25 3d a3 0d 0f |0..d.UPDATE%=...|
000031a0 6e 22 f2 57 69 6d 70 5f 4d 65 6e 75 44 69 73 61 |n".Wimp_MenuDisa|
000031b0 62 6c 65 28 42 61 72 5f 4d 65 6e 75 25 2c 33 29 |ble(Bar_Menu%,3)|
000031c0 0d 0f 78 05 cd 0d 0f 82 10 20 20 20 20 20 20 20 |..x...... |
000031d0 20 20 c9 20 35 0d 0f 8c 11 e7 20 55 50 44 41 54 | . 5..... UPDAT|
000031e0 45 25 3d b9 20 8c 0d 0f 96 44 f2 57 69 6d 70 5f |E%=. ....D.Wimp_|
000031f0 49 63 6f 6e 50 75 74 54 65 78 74 28 43 6c 6f 73 |IconPutText(Clos|
00003200 65 5f 57 69 6e 64 6f 77 25 2c 30 2c 22 54 68 69 |e_Window%,0,"Thi|
00003210 73 20 66 69 6c 65 20 68 61 73 20 62 65 65 6e 20 |s file has been |
00003220 6d 6f 64 69 66 69 65 64 22 29 0d 0f a0 29 f2 57 |modified")...).W|
00003230 69 6d 70 5f 57 69 6e 64 6f 77 42 72 69 6e 67 54 |imp_WindowBringT|
00003240 6f 54 6f 70 28 43 6c 6f 73 65 5f 57 69 6e 64 6f |oTop(Close_Windo|
00003250 77 25 29 0d 0f aa 1c f2 6d 6f 75 73 65 62 6f 78 |w%).....mousebox|
00003260 28 43 6c 6f 73 65 5f 57 69 6e 64 6f 77 25 29 0d |(Close_Window%).|
00003270 0f b4 05 cd 0d 0f be 1d e7 20 55 50 44 41 54 45 |......... UPDATE|
00003280 25 3d a3 20 8c 20 66 69 6e 69 73 68 65 64 25 3d |%=. . finished%=|
00003290 b9 0d 0f c8 0d 20 20 20 20 20 20 20 20 cb 0d 0f |..... ...|
000032a0 d2 29 20 20 20 20 20 20 20 20 f2 57 69 6d 70 5f |.) .Wimp_|
000032b0 4d 65 6e 75 41 64 6a 75 73 74 4f 6e 28 42 61 72 |MenuAdjustOn(Bar|
000032c0 5f 4d 65 6e 75 25 29 0d 0f dc 0c 20 20 20 20 20 |_Menu%).... |
000032d0 20 20 e1 0d 0f e6 0c 20 20 20 20 20 20 20 3a 0d | ..... :.|
000032e0 0f f0 29 20 20 20 20 20 20 20 dd 20 f2 45 76 65 |..) . .Eve|
000032f0 6e 74 5f 4c 6f 61 64 46 69 6c 65 28 66 69 6c 65 |nt_LoadFile(file|
00003300 24 2c 74 79 70 65 24 29 0d 0f fa 0e 68 61 61 24 |$,type$)....haa$|
00003310 3d 66 69 6c 65 24 0d 10 04 2b f2 57 69 6d 70 5f |=file$...+.Wimp_|
00003320 49 63 6f 6e 50 75 74 54 65 78 74 28 4f 70 74 69 |IconPutText(Opti|
00003330 6f 6e 73 5f 57 69 6e 64 6f 77 25 2c 33 2c 22 22 |ons_Window%,3,""|
00003340 29 0d 10 0e 0c 50 41 53 53 24 3d 22 22 0d 10 18 |)....PASS$=""...|
00003350 10 66 69 6c 65 32 24 3d 66 69 6c 65 24 0d 10 22 |.file2$=file$.."|
00003360 0f 58 25 3d 8e 28 66 69 6c 65 24 29 0d 10 2c 0e |.X%=.(file$)..,.|
00003370 e8 20 23 58 25 2c 4c 4f 4e 47 0d 10 36 0e e8 20 |. #X%,LONG..6.. |
00003380 23 58 25 2c 56 43 4e 25 0d 10 40 0f e7 20 4c 4f |#X%,VCN%..@.. LO|
00003390 4e 47 3c 3e 30 20 8c 0d 10 4a 0f 56 43 4e 25 3d |NG<>0 ...J.VCN%=|
000033a0 56 43 4e 25 2f 32 0d 10 54 12 4c 4f 4e 47 3d 4c |VCN%/2..T.LONG=L|
000033b0 4f 4e 47 2f 56 43 4e 25 0d 10 5e 11 e3 20 41 42 |ONG/VCN%..^.. AB|
000033c0 3d 31 20 b8 20 4c 4f 4e 47 0d 10 68 10 e8 20 23 |=1 . LONG..h.. #|
000033d0 58 25 2c 41 25 28 41 42 29 0d 10 72 18 41 25 28 |X%,A%(AB)..r.A%(|
000033e0 41 42 29 3d 41 25 28 41 42 29 20 82 20 56 43 4e |AB)=A%(AB) . VCN|
000033f0 25 0d 10 7c 08 ed 20 41 42 0d 10 86 11 e3 20 41 |%..|.. AB..... A|
00003400 42 3d 31 20 b8 20 4c 4f 4e 47 0d 10 90 16 41 25 |B=1 . LONG....A%|
00003410 28 41 42 29 3d 41 25 28 41 42 29 2f 56 43 4e 25 |(AB)=A%(AB)/VCN%|
00003420 0d 10 9a 19 50 41 53 53 24 3d 50 41 53 53 24 2b |....PASS$=PASS$+|
00003430 bd 28 41 25 28 41 42 29 29 0d 10 a4 08 ed 20 41 |.(A%(AB))..... A|
00003440 42 0d 10 ae 09 d9 20 23 58 25 0d 10 b8 2c f2 57 |B..... #X%...,.W|
00003450 69 6d 70 5f 49 63 6f 6e 50 75 74 54 65 78 74 28 |imp_IconPutText(|
00003460 50 61 73 73 77 6f 72 64 5f 57 69 6e 64 6f 77 25 |Password_Window%|
00003470 2c 32 2c 22 22 29 0d 10 c2 2c f2 57 69 6d 70 5f |,2,"")...,.Wimp_|
00003480 57 69 6e 64 6f 77 42 72 69 6e 67 54 6f 54 6f 70 |WindowBringToTop|
00003490 28 50 61 73 73 77 6f 72 64 5f 57 69 6e 64 6f 77 |(Password_Window|
000034a0 25 29 0d 10 cc 1f f2 6d 6f 75 73 65 62 6f 78 28 |%).....mousebox(|
000034b0 50 61 73 73 77 6f 72 64 5f 57 69 6e 64 6f 77 25 |Password_Window%|
000034c0 29 0d 10 d6 29 f2 57 69 6d 70 5f 49 63 6f 6e 43 |)...).Wimp_IconC|
000034d0 61 72 65 74 28 50 61 73 73 77 6f 72 64 5f 57 69 |aret(Password_Wi|
000034e0 6e 64 6f 77 25 2c 32 2c 30 29 0d 10 e0 05 cc 0d |ndow%,2,0)......|
000034f0 10 ea 09 d9 20 23 58 25 0d 10 f4 0c f2 70 61 72 |.... #X%.....par|
00003500 74 74 77 6f 0d 10 fe 05 cd 0d 11 08 05 e1 0d 11 |ttwo............|
00003510 12 04 0d 11 1c 0e dd 20 f2 70 61 72 74 74 77 6f |....... .parttwo|
00003520 0d 11 26 1b e7 20 4c 4f 4e 47 3d 30 20 84 20 63 |..&.. LONG=0 . c|
00003530 6f 72 72 65 63 74 25 3d b9 20 8c 0d 11 30 10 58 |orrect%=. ...0.X|
00003540 25 3d 8e 28 66 69 6c 65 32 24 29 0d 11 3a 0e e8 |%=.(file2$)..:..|
00003550 20 23 58 25 2c 4c 4f 4e 47 0d 11 44 0e e8 20 23 | #X%,LONG..D.. #|
00003560 58 25 2c 56 43 4e 25 0d 11 4e 0f 56 43 4e 25 3d |X%,VCN%..N.VCN%=|
00003570 56 43 4e 25 2f 32 0d 11 58 0f e7 20 4c 4f 4e 47 |VCN%/2..X.. LONG|
00003580 3c 3e 30 20 8c 0d 11 62 16 e3 20 41 42 3d 31 20 |<>0 ...b.. AB=1 |
00003590 b8 20 4c 4f 4e 47 2f 56 43 4e 25 0d 11 6c 10 e8 |. LONG/VCN%..l..|
000035a0 20 23 58 25 2c 41 25 28 41 42 29 0d 11 76 08 ed | #X%,A%(AB)..v..|
000035b0 20 41 42 0d 11 80 05 cd 0d 11 8a 36 f4 20 5c 2f | AB........6. \/|
000035c0 5c 2f 5c 2f 5c 2f 5c 2f 5c 2f 5c 2f 20 50 75 74 |\/\/\/\/\/\/ Put|
000035d0 20 6c 6f 61 64 20 69 6e 20 68 65 72 65 20 5c 2f | load in here \/|
000035e0 5c 2f 5c 2f 5c 2f 5c 2f 5c 2f 5c 2f 5c 2f 0d 11 |\/\/\/\/\/\/\/..|
000035f0 94 10 e8 20 23 58 25 2c 74 6f 74 61 6c 25 0d 11 |... #X%,total%..|
00003600 9e 12 e8 20 23 58 25 2c 74 6f 74 70 61 67 65 25 |... #X%,totpage%|
00003610 0d 11 a8 14 e3 20 41 3d 30 20 b8 20 74 6f 74 61 |..... A=0 . tota|
00003620 6c 25 2d 31 0d 11 b2 14 e8 20 23 58 25 2c 41 4d |l%-1..... #X%,AM|
00003630 4d 4f 55 4e 54 28 41 29 0d 11 bc 14 e8 20 23 58 |MOUNT(A)..... #X|
00003640 25 2c 53 54 41 54 55 53 24 28 41 29 0d 11 c6 12 |%,STATUS$(A)....|
00003650 e8 20 23 58 25 2c 44 41 54 45 24 28 41 29 0d 11 |. #X%,DATE$(A)..|
00003660 d0 11 e8 20 23 58 25 2c 57 48 4f 24 28 41 29 0d |... #X%,WHO$(A).|
00003670 11 da 13 e8 20 23 58 25 2c 43 55 52 54 4f 54 28 |.... #X%,CURTOT(|
00003680 41 29 0d 11 e4 10 e8 20 23 58 25 2c 44 44 24 28 |A)..... #X%,DD$(|
00003690 41 29 0d 11 ee 10 e8 20 23 58 25 2c 4d 4d 24 28 |A)..... #X%,MM$(|
000036a0 41 29 0d 11 f8 10 e8 20 23 58 25 2c 59 59 24 28 |A)..... #X%,YY$(|
000036b0 41 29 0d 12 02 06 ed 41 0d 12 0c 0d 55 50 44 41 |A).....A....UPDA|
000036c0 54 45 25 3d a3 0d 12 16 28 f2 57 69 6d 70 5f 57 |TE%=....(.Wimp_W|
000036d0 69 6e 64 6f 77 42 72 69 6e 67 54 6f 54 6f 70 28 |indowBringToTop(|
000036e0 4d 61 69 6e 5f 57 69 6e 64 6f 77 25 29 0d 12 20 |Main_Window%).. |
000036f0 0a f2 69 6e 70 75 74 0d 12 2a 09 d9 20 23 58 25 |..input..*.. #X%|
00003700 0d 12 34 05 cd 0d 12 3e 2e e7 20 74 6f 74 61 6c |..4....>.. total|
00003710 25 3e 31 20 8c 20 f2 57 69 6d 70 5f 4d 65 6e 75 |%>1 . .Wimp_Menu|
00003720 45 6e 61 62 6c 65 28 42 61 72 5f 4d 65 6e 75 25 |Enable(Bar_Menu%|
00003730 2c 33 29 0d 12 48 41 e7 20 63 6f 72 72 65 63 74 |,3)..HA. correct|
00003740 25 3d b9 20 8c 20 f2 57 69 6d 70 5f 57 69 6e 64 |%=. . .Wimp_Wind|
00003750 6f 77 43 6c 6f 73 65 28 50 61 73 73 77 6f 72 64 |owClose(Password|
00003760 5f 57 69 6e 64 6f 77 25 29 3a 63 6f 72 72 65 63 |_Window%):correc|
00003770 74 25 3d a3 0d 12 52 05 e1 0d 12 5c 0c 20 20 20 |t%=...R....\. |
00003780 20 20 20 20 3a 0d 12 66 2b 20 20 20 20 20 20 20 | :..f+ |
00003790 dd 20 f2 45 76 65 6e 74 5f 53 61 76 65 46 69 6c |. .Event_SaveFil|
000037a0 65 28 66 69 6c 65 24 2c 77 69 6e 64 6f 77 25 29 |e(file$,window%)|
000037b0 0d 12 70 1c e7 20 77 69 6e 64 6f 77 25 3d 53 61 |..p.. window%=Sa|
000037c0 76 65 5f 57 69 6e 64 6f 77 25 20 8c 0d 12 7a 07 |ve_Window% ...z.|
000037d0 ea 20 85 0d 12 84 10 ee 20 85 20 ea 20 f2 65 72 |. ...... . . .er|
000037e0 72 6f 72 0d 12 8e 11 e7 20 44 4f 53 41 56 45 25 |ror..... DOSAVE%|
000037f0 3d b9 20 8c 0d 12 98 2c 53 45 54 50 41 53 53 31 |=. ....,SETPASS1|
00003800 24 3d a4 57 69 6d 70 5f 49 63 6f 6e 54 65 78 74 |$=.Wimp_IconText|
00003810 28 53 61 76 65 5f 57 69 6e 64 6f 77 25 2c 34 29 |(Save_Window%,4)|
00003820 0d 12 a2 2c 53 45 54 50 41 53 53 32 24 3d a4 57 |...,SETPASS2$=.W|
00003830 69 6d 70 5f 49 63 6f 6e 54 65 78 74 28 53 61 76 |imp_IconText(Sav|
00003840 65 5f 57 69 6e 64 6f 77 25 2c 35 29 0d 12 ac 7b |e_Window%,5)...{|
00003850 e7 20 53 45 54 50 41 53 53 31 24 3c 3e 53 45 54 |. SETPASS1$<>SET|
00003860 50 41 53 53 32 24 20 8c 20 f2 57 69 6d 70 5f 57 |PASS2$ . .Wimp_W|
00003870 69 6e 64 6f 77 41 6c 65 72 74 28 22 50 61 73 73 |indowAlert("Pass|
00003880 77 6f 72 64 20 50 72 6f 74 65 63 74 69 6f 6e 22 |word Protection"|
00003890 2c 22 54 68 65 20 74 77 6f 20 70 61 73 73 77 6f |,"The two passwo|
000038a0 72 64 73 20 61 72 65 20 6e 6f 74 20 74 68 65 20 |rds are not the |
000038b0 73 61 6d 65 2e 20 46 69 6c 65 20 6e 6f 74 20 73 |same. File not s|
000038c0 61 76 65 64 2e 22 29 0d 12 b6 1b e7 20 53 45 54 |aved.")..... SET|
000038d0 50 41 53 53 31 24 3d 53 45 54 50 41 53 53 32 24 |PASS1$=SETPASS2$|
000038e0 20 8c 0d 12 c0 15 e7 20 53 45 54 50 41 53 53 31 | ...... SETPASS1|
000038f0 24 3c 3e 22 22 20 8c 0d 12 ca 18 56 43 4e 25 3d |$<>"" .....VCN%=|
00003900 a8 28 b3 28 31 30 30 30 30 30 30 29 29 2b 31 0d |.(.(1000000))+1.|
00003910 12 d4 0f 58 25 3d ae 28 66 69 6c 65 24 29 0d 12 |...X%=.(file$)..|
00003920 de 19 e3 20 41 42 3d 31 20 b8 20 a9 28 53 45 54 |... AB=1 . .(SET|
00003930 50 41 53 53 31 24 29 0d 12 e8 1e 41 25 28 41 42 |PASS1$)....A%(AB|
00003940 29 3d 97 28 c1 53 45 54 50 41 53 53 31 24 2c 41 |)=.(.SETPASS1$,A|
00003950 42 2c 31 29 29 0d 12 f2 08 ed 20 41 42 0d 12 fc |B,1))..... AB...|
00003960 1b f1 20 23 58 25 2c a9 28 53 45 54 50 41 53 53 |.. #X%,.(SETPASS|
00003970 31 24 29 2a 56 43 4e 25 0d 13 06 10 f1 20 23 58 |1$)*VCN%..... #X|
00003980 25 2c 56 43 4e 25 2a 32 0d 13 10 13 50 41 53 53 |%,VCN%*2....PASS|
00003990 24 3d 53 45 54 50 41 53 53 31 24 0d 13 1a 3b f2 |$=SETPASS1$...;.|
000039a0 57 69 6d 70 5f 49 63 6f 6e 50 75 74 54 65 78 74 |Wimp_IconPutText|
000039b0 28 4f 70 74 69 6f 6e 73 5f 57 69 6e 64 6f 77 25 |(Options_Window%|
000039c0 2c 33 2c c0 50 43 4f 56 45 52 24 2c a9 28 50 41 |,3,.PCOVER$,.(PA|
000039d0 53 53 24 29 29 29 0d 13 24 19 e3 20 41 42 3d 31 |SS$)))..$.. AB=1|
000039e0 20 b8 20 a9 28 53 45 54 50 41 53 53 31 24 29 0d | . .(SETPASS1$).|
000039f0 13 2e 16 41 25 28 41 42 29 3d 41 25 28 41 42 29 |...A%(AB)=A%(AB)|
00003a00 2a 56 43 4e 25 0d 13 38 17 f1 20 23 58 25 2c 41 |*VCN%..8.. #X%,A|
00003a10 25 28 41 42 29 20 82 20 56 43 4e 25 0d 13 42 08 |%(AB) . VCN%..B.|
00003a20 ed 20 41 42 0d 13 4c 05 cc 0d 13 56 0f 58 25 3d |. AB..L....V.X%=|
00003a30 ae 28 66 69 6c 65 24 29 0d 13 60 0b f1 20 23 58 |.(file$)..`.. #X|
00003a40 25 2c 30 0d 13 6a 0b f1 20 23 58 25 2c 30 0d 13 |%,0..j.. #X%,0..|
00003a50 74 05 cd 0d 13 7e 38 f4 20 5c 2f 5c 2f 5c 2f 5c |t....~8. \/\/\/\|
00003a60 2f 5c 2f 5c 2f 5c 2f 5c 2f 5c 2f 20 50 75 74 20 |/\/\/\/\/\/ Put |
00003a70 53 61 76 65 20 69 6e 20 68 65 72 65 20 5c 2f 5c |Save in here \/\|
00003a80 2f 5c 2f 5c 2f 5c 2f 5c 2f 5c 2f 0d 13 88 10 f1 |/\/\/\/\/\/.....|
00003a90 20 23 58 25 2c 74 6f 74 61 6c 25 0d 13 92 12 f1 | #X%,total%.....|
00003aa0 20 23 58 25 2c 74 6f 74 70 61 67 65 25 0d 13 9c | #X%,totpage%...|
00003ab0 14 e3 20 41 3d 30 20 b8 20 74 6f 74 61 6c 25 2d |.. A=0 . total%-|
00003ac0 31 0d 13 a6 14 f1 20 23 58 25 2c 41 4d 4d 4f 55 |1..... #X%,AMMOU|
00003ad0 4e 54 28 41 29 0d 13 b0 14 f1 20 23 58 25 2c 53 |NT(A)..... #X%,S|
00003ae0 54 41 54 55 53 24 28 41 29 0d 13 ba 12 f1 20 23 |TATUS$(A)..... #|
00003af0 58 25 2c 44 41 54 45 24 28 41 29 0d 13 c4 11 f1 |X%,DATE$(A).....|
00003b00 20 23 58 25 2c 57 48 4f 24 28 41 29 0d 13 ce 13 | #X%,WHO$(A)....|
00003b10 f1 20 23 58 25 2c 43 55 52 54 4f 54 28 41 29 0d |. #X%,CURTOT(A).|
00003b20 13 d8 10 f1 20 23 58 25 2c 44 44 24 28 41 29 0d |.... #X%,DD$(A).|
00003b30 13 e2 10 f1 20 23 58 25 2c 4d 4d 24 28 41 29 0d |.... #X%,MM$(A).|
00003b40 13 ec 10 f1 20 23 58 25 2c 59 59 24 28 41 29 0d |.... #X%,YY$(A).|
00003b50 13 f6 06 ed 41 0d 14 00 0d 55 50 44 41 54 45 25 |....A....UPDATE%|
00003b60 3d a3 0d 14 0a 09 d9 20 23 58 25 0d 14 14 1e ff |=...... #X%.....|
00003b70 28 22 53 45 54 54 59 50 45 20 22 29 2b 66 69 6c |("SETTYPE ")+fil|
00003b80 65 24 2b 22 20 46 41 46 22 0d 14 1e 13 f2 57 69 |e$+" FAF".....Wi|
00003b90 6d 70 5f 4d 65 6e 75 43 6c 6f 73 65 0d 14 28 2d |mp_MenuClose..(-|
00003ba0 f4 20 50 52 4f 43 57 69 6d 70 5f 49 63 6f 6e 50 |. PROCWimp_IconP|
00003bb0 75 74 54 65 78 74 28 53 61 76 65 5f 57 69 6e 64 |utText(Save_Wind|
00003bc0 6f 77 25 2c 34 2c 22 22 29 0d 14 32 2d f4 20 50 |ow%,4,"")..2-. P|
00003bd0 52 4f 43 57 69 6d 70 5f 49 63 6f 6e 50 75 74 54 |ROCWimp_IconPutT|
00003be0 65 78 74 28 53 61 76 65 5f 57 69 6e 64 6f 77 25 |ext(Save_Window%|
00003bf0 2c 35 2c 22 22 29 0d 14 3c 05 cd 0d 14 46 05 cd |,5,"")..<....F..|
00003c00 0d 14 50 05 cd 0d 14 5a 1d e7 20 77 69 6e 64 6f |..P....Z.. windo|
00003c10 77 25 3d 53 61 76 65 32 5f 57 69 6e 64 6f 77 25 |w%=Save2_Window%|
00003c20 20 8c 0d 14 64 07 ea 20 85 0d 14 6e 10 ee 20 85 | ...d.. ...n.. .|
00003c30 20 ea 20 f2 65 72 72 6f 72 0d 14 78 11 e7 20 44 | . .error..x.. D|
00003c40 4f 53 41 56 45 25 3d b9 20 8c 0d 14 82 07 ef 32 |OSAVE%=. ......2|
00003c50 31 0d 14 8c 15 ff 28 22 53 50 4f 4f 4c 20 22 2b |1.....("SPOOL "+|
00003c60 66 69 6c 65 24 29 0d 14 96 53 f1 22 2b 2d 2d 2d |file$)...S."+---|
00003c70 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 2d 2d 2d |+-----------+---|
00003c80 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 2d 2d |--+----------+--|
00003c90 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00003ca0 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 22 |--+-----------+"|
00003cb0 3b 3a f1 bd 28 31 30 29 3b 0d 14 a0 53 f1 22 7c |;:..(10);...S."||
00003cc0 4e 75 6d 7c 20 20 41 6d 6d 6f 75 6e 74 20 20 7c |Num| Ammount ||
00003cd0 53 74 61 74 65 7c 20 20 20 44 61 74 65 20 20 20 |State| Date |
00003ce0 7c 20 57 68 6f 20 67 61 76 65 20 69 74 20 74 6f || Who gave it to|
00003cf0 20 79 6f 75 20 7c 20 20 20 54 4f 54 41 4c 20 20 | you | TOTAL |
00003d00 20 7c 22 3b 3a f1 bd 28 31 30 29 3b 0d 14 aa 53 | |";:..(10);...S|
00003d10 f1 22 2b 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d |."+---+---------|
00003d20 2d 2d 2b 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d |--+-----+-------|
00003d30 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |---+------------|
00003d40 2d 2d 2d 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d |--------+-------|
00003d50 2d 2d 2d 2d 2b 22 3b 3a f1 bd 28 31 30 29 3b 0d |----+";:..(10);.|
00003d60 14 b4 14 e3 20 41 3d 31 20 b8 20 74 6f 74 61 6c |.... A=1 . total|
00003d70 25 2d 31 0d 14 be 0b 41 24 3d c3 28 41 29 0d 14 |%-1....A$=.(A)..|
00003d80 c8 0c 41 41 3d a9 28 41 24 29 0d 14 d2 11 53 24 |..AA=.(A$)....S$|
00003d90 3d a4 73 70 63 28 33 2d 41 41 29 0d 14 dc 14 42 |=.spc(3-AA)....B|
00003da0 24 3d c3 28 41 4d 4d 4f 55 4e 54 28 41 29 29 0d |$=.(AMMOUNT(A)).|
00003db0 14 e6 10 42 24 3d a4 7a 65 72 6f 28 42 24 29 0d |...B$=.zero(B$).|
00003dc0 14 f0 0c 42 42 3d a9 28 42 24 29 0d 14 fa 13 53 |...BB=.(B$)....S|
00003dd0 53 24 3d a4 73 70 63 28 31 31 2d 42 42 29 0d 15 |S$=.spc(11-BB)..|
00003de0 04 25 e7 20 53 54 41 54 55 53 24 28 41 29 3d 22 |.%. STATUS$(A)="|
00003df0 53 70 65 6e 64 22 20 8c 20 43 24 3d 22 53 70 65 |Spend" . C$="Spe|
00003e00 6e 64 22 0d 15 0e 24 e7 20 53 54 41 54 55 53 24 |nd"...$. STATUS$|
00003e10 28 41 29 3d 22 53 61 76 65 22 20 8c 20 43 24 3d |(A)="Save" . C$=|
00003e20 22 53 61 76 65 20 22 0d 15 18 12 43 43 3d a9 28 |"Save "....CC=.(|
00003e30 44 41 54 45 24 28 41 29 29 0d 15 22 14 53 53 53 |DATE$(A))..".SSS|
00003e40 24 3d a4 73 70 63 28 31 30 2d 43 43 29 0d 15 2c |$=.spc(10-CC)..,|
00003e50 11 44 44 3d a9 28 57 48 4f 24 28 41 29 29 0d 15 |.DD=.(WHO$(A))..|
00003e60 36 15 53 53 53 53 24 3d a4 73 70 63 28 32 30 2d |6.SSSS$=.spc(20-|
00003e70 44 44 29 0d 15 40 13 45 24 3d c3 28 43 55 52 54 |DD)..@.E$=.(CURT|
00003e80 4f 54 28 41 29 29 0d 15 4a 10 45 24 3d a4 7a 65 |OT(A))..J.E$=.ze|
00003e90 72 6f 28 45 24 29 0d 15 54 0c 45 45 3d a9 28 45 |ro(E$)..T.EE=.(E|
00003ea0 24 29 0d 15 5e 16 53 53 53 53 53 24 3d a4 73 70 |$)..^.SSSSS$=.sp|
00003eb0 63 28 31 31 2d 45 45 29 0d 15 68 5f f1 22 7c 22 |c(11-EE)..h_."|"|
00003ec0 2b 41 24 2b 53 24 2b 22 7c 22 2b 42 24 2b 53 53 |+A$+S$+"|"+B$+SS|
00003ed0 24 2b 22 7c 22 2b 43 24 2b 22 7c 22 2b 44 41 54 |$+"|"+C$+"|"+DAT|
00003ee0 45 24 28 41 29 2b 53 53 53 24 2b 22 7c 22 2b 57 |E$(A)+SSS$+"|"+W|
00003ef0 48 4f 24 28 41 29 2b 53 53 53 53 24 2b 22 7c 22 |HO$(A)+SSSS$+"|"|
00003f00 2b 45 24 2b 53 53 53 53 53 24 2b 22 7c 22 3b 3a |+E$+SSSSS$+"|";:|
00003f10 f1 bd 28 31 30 29 3b 0d 15 72 06 ed 41 0d 15 7c |..(10);..r..A..||
00003f20 53 f1 22 2b 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d |S."+---+--------|
00003f30 2d 2d 2d 2b 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d |---+-----+------|
00003f40 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----+-----------|
00003f50 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d |---------+------|
00003f60 2d 2d 2d 2d 2d 2b 22 3b 3a f1 bd 28 31 30 29 3b |-----+";:..(10);|
00003f70 0d 15 86 0e ff 28 22 53 50 4f 4f 4c 22 29 0d 15 |.....("SPOOL")..|
00003f80 90 1e ff 28 22 53 45 54 54 59 50 45 20 22 2b 66 |...("SETTYPE "+f|
00003f90 69 6c 65 24 2b 22 20 46 46 46 22 29 0d 15 9a 06 |ile$+" FFF")....|
00003fa0 ef 36 0d 15 a4 1c e7 20 66 69 6c 65 24 3d 22 3c |.6..... file$="<|
00003fb0 57 69 6d 70 24 53 63 72 61 70 3e 22 20 8c 0d 15 |Wimp$Scrap>" ...|
00003fc0 ae 1b f2 57 69 6d 70 5f 53 65 6e 64 54 6f 45 64 |...Wimp_SendToEd|
00003fd0 69 74 28 66 69 6c 65 24 29 0d 15 b8 2b f2 57 69 |it(file$)...+.Wi|
00003fe0 6d 70 5f 49 63 6f 6e 50 75 74 54 65 78 74 28 53 |mp_IconPutText(S|
00003ff0 61 76 65 32 5f 57 69 6e 64 6f 77 25 2c 31 2c 41 |ave2_Window%,1,A|
00004000 43 45 24 29 0d 15 c2 05 cd 0d 15 cc 05 cd 0d 15 |CE$)............|
00004010 d6 05 cd 0d 15 e0 06 ef 36 0d 15 ea 1b e7 20 44 |........6..... D|
00004020 4f 53 41 56 45 25 3d a3 20 8c 20 44 4f 53 41 56 |OSAVE%=. . DOSAV|
00004030 45 25 3d b9 0d 15 f4 05 e1 0d 15 fe 0c 20 20 20 |E%=.......... |
00004040 20 20 20 20 3a 0d 16 08 15 20 20 20 20 20 20 20 | :.... |
00004050 dd 20 f2 63 75 74 64 61 74 65 0d 16 12 1a 20 20 |. .cutdate.... |
00004060 20 20 20 20 20 44 44 25 3d bb 28 c1 91 24 2c 35 | DD%=.(..$,5|
00004070 2c 32 29 29 0d 16 1c 17 20 20 20 20 20 20 20 4d |,2)).... M|
00004080 4d 24 3d c1 91 24 2c 38 2c 33 29 0d 16 26 1e 20 |M$=..$,8,3)..&. |
00004090 20 20 20 20 20 20 e7 20 4d 4d 24 3d 22 4a 61 6e | . MM$="Jan|
000040a0 22 20 8c 20 4d 4d 25 3d 31 0d 16 30 1e 20 20 20 |" . MM%=1..0. |
000040b0 20 20 20 20 e7 20 4d 4d 24 3d 22 46 65 62 22 20 | . MM$="Feb" |
000040c0 8c 20 4d 4d 25 3d 32 0d 16 3a 1e 20 20 20 20 20 |. MM%=2..:. |
000040d0 20 20 e7 20 4d 4d 24 3d 22 4d 61 72 22 20 8c 20 | . MM$="Mar" . |
000040e0 4d 4d 25 3d 33 0d 16 44 1e 20 20 20 20 20 20 20 |MM%=3..D. |
000040f0 e7 20 4d 4d 24 3d 22 41 70 72 22 20 8c 20 4d 4d |. MM$="Apr" . MM|
00004100 25 3d 34 0d 16 4e 1e 20 20 20 20 20 20 20 e7 20 |%=4..N. . |
00004110 4d 4d 24 3d 22 4d 61 79 22 20 8c 20 4d 4d 25 3d |MM$="May" . MM%=|
00004120 35 0d 16 58 1e 20 20 20 20 20 20 20 e7 20 4d 4d |5..X. . MM|
00004130 24 3d 22 4a 75 6e 22 20 8c 20 4d 4d 25 3d 36 0d |$="Jun" . MM%=6.|
00004140 16 62 1e 20 20 20 20 20 20 20 e7 20 4d 4d 24 3d |.b. . MM$=|
00004150 22 4a 75 6c 22 20 8c 20 4d 4d 25 3d 37 0d 16 6c |"Jul" . MM%=7..l|
00004160 1e 20 20 20 20 20 20 20 e7 20 4d 4d 24 3d 22 41 |. . MM$="A|
00004170 75 67 22 20 8c 20 4d 4d 25 3d 38 0d 16 76 1e 20 |ug" . MM%=8..v. |
00004180 20 20 20 20 20 20 e7 20 4d 4d 24 3d 22 53 65 70 | . MM$="Sep|
00004190 22 20 8c 20 4d 4d 25 3d 39 0d 16 80 1f 20 20 20 |" . MM%=9.... |
000041a0 20 20 20 20 e7 20 4d 4d 24 3d 22 4f 63 74 22 20 | . MM$="Oct" |
000041b0 8c 20 4d 4d 25 3d 31 30 0d 16 8a 1f 20 20 20 20 |. MM%=10.... |
000041c0 20 20 20 e7 20 4d 4d 24 3d 22 4e 6f 76 22 20 8c | . MM$="Nov" .|
000041d0 20 4d 4d 25 3d 31 31 0d 16 94 1f 20 20 20 20 20 | MM%=11.... |
000041e0 20 20 e7 20 4d 4d 24 3d 22 44 65 63 22 20 8c 20 | . MM$="Dec" . |
000041f0 4d 4d 25 3d 31 32 0d 16 9e 1b 20 20 20 20 20 20 |MM%=12.... |
00004200 20 59 59 25 3d bb 28 c1 91 24 2c 31 32 2c 34 29 | YY%=.(..$,12,4)|
00004210 29 0d 16 a8 2e f2 57 69 6d 70 5f 49 63 6f 6e 50 |).....Wimp_IconP|
00004220 75 74 54 65 78 74 28 45 6e 74 72 79 5f 57 69 6e |utText(Entry_Win|
00004230 64 6f 77 25 2c 31 31 2c c3 28 44 44 25 29 29 0d |dow%,11,.(DD%)).|
00004240 16 b2 2e f2 57 69 6d 70 5f 49 63 6f 6e 50 75 74 |....Wimp_IconPut|
00004250 54 65 78 74 28 45 6e 74 72 79 5f 57 69 6e 64 6f |Text(Entry_Windo|
00004260 77 25 2c 31 32 2c c3 28 4d 4d 25 29 29 0d 16 bc |w%,12,.(MM%))...|
00004270 2e f2 57 69 6d 70 5f 49 63 6f 6e 50 75 74 54 65 |..Wimp_IconPutTe|
00004280 78 74 28 45 6e 74 72 79 5f 57 69 6e 64 6f 77 25 |xt(Entry_Window%|
00004290 2c 31 33 2c c3 28 59 59 25 29 29 0d 16 c6 0c 20 |,13,.(YY%)).... |
000042a0 20 20 20 20 20 20 e1 0d 16 d0 0c 20 20 20 20 20 | ..... |
000042b0 20 20 3a 0d 16 da 1b 20 20 20 20 20 20 20 dd 20 | :.... . |
000042c0 f2 63 68 65 63 6b 70 61 73 73 77 6f 72 64 0d 16 |.checkpassword..|
000042d0 e4 1d 20 20 20 20 20 20 20 e7 20 50 41 53 53 24 |.. . PASS$|
000042e0 3d 4e 45 57 50 41 53 53 24 20 8c 0d 16 ee 0e 63 |=NEWPASS$ .....c|
000042f0 6f 72 72 65 63 74 25 3d b9 0d 16 f8 10 50 41 53 |orrect%=.....PAS|
00004300 53 41 4c 4c 4f 57 25 3d b9 0d 17 02 0c f2 70 61 |SALLOW%=......pa|
00004310 72 74 74 77 6f 0d 17 0c 3b f2 57 69 6d 70 5f 49 |rttwo...;.Wimp_I|
00004320 63 6f 6e 50 75 74 54 65 78 74 28 4f 70 74 69 6f |conPutText(Optio|
00004330 6e 73 5f 57 69 6e 64 6f 77 25 2c 33 2c c0 50 43 |ns_Window%,3,.PC|
00004340 4f 56 45 52 24 2c a9 28 50 41 53 53 24 29 29 29 |OVER$,.(PASS$)))|
00004350 0d 17 16 2b f2 57 69 6d 70 5f 49 63 6f 6e 50 75 |...+.Wimp_IconPu|
00004360 74 54 65 78 74 28 53 61 76 65 5f 57 69 6e 64 6f |tText(Save_Windo|
00004370 77 25 2c 34 2c 50 41 53 53 24 29 0d 17 20 2b f2 |w%,4,PASS$).. +.|
00004380 57 69 6d 70 5f 49 63 6f 6e 50 75 74 54 65 78 74 |Wimp_IconPutText|
00004390 28 53 61 76 65 5f 57 69 6e 64 6f 77 25 2c 35 2c |(Save_Window%,5,|
000043a0 50 41 53 53 24 29 0d 17 2a 2a f2 57 69 6d 70 5f |PASS$)..**.Wimp_|
000043b0 49 63 6f 6e 50 75 74 54 65 78 74 28 53 61 76 65 |IconPutText(Save|
000043c0 5f 57 69 6e 64 6f 77 25 2c 31 2c 68 61 61 24 29 |_Window%,1,haa$)|
000043d0 0d 17 34 05 cc 0d 17 3e 10 50 41 53 53 41 4c 4c |..4....>.PASSALL|
000043e0 4f 57 25 3d a3 0d 17 48 90 f2 57 69 6d 70 5f 57 |OW%=...H..Wimp_W|
000043f0 69 6e 64 6f 77 43 6c 6f 73 65 28 50 61 73 73 77 |indowClose(Passw|
00004400 6f 72 64 5f 57 69 6e 64 6f 77 25 29 3a f2 57 69 |ord_Window%):.Wi|
00004410 6d 70 5f 57 69 6e 64 6f 77 41 6c 65 72 74 28 22 |mp_WindowAlert("|
00004420 50 61 73 73 77 6f 72 64 20 50 72 6f 74 65 63 74 |Password Protect|
00004430 69 6f 6e 22 2c 22 54 68 65 20 66 69 6c 65 20 68 |ion","The file h|
00004440 61 73 20 6e 6f 74 20 62 65 65 6e 20 6c 6f 61 64 |as not been load|
00004450 65 64 20 64 75 65 20 74 6f 20 69 6e 63 6f 72 72 |ed due to incorr|
00004460 65 63 74 20 70 61 73 73 77 6f 72 64 20 65 6e 74 |ect password ent|
00004470 72 79 2e 22 29 0d 17 52 0e 63 6f 72 72 65 63 74 |ry.")..R.correct|
00004480 25 3d a3 0d 17 5c 05 cd 0d 17 66 2a c8 99 22 4f |%=...\....f*.."O|
00004490 53 5f 52 65 61 64 4d 6f 64 65 56 61 72 69 61 62 |S_ReadModeVariab|
000044a0 6c 65 22 2c 2d 31 2c 31 31 20 b8 20 2c 2c 58 70 |le",-1,11 . ,,Xp|
000044b0 69 63 0d 17 70 2a c8 99 22 4f 53 5f 52 65 61 64 |ic..p*.."OS_Read|
000044c0 4d 6f 64 65 56 61 72 69 61 62 6c 65 22 2c 2d 31 |ModeVariable",-1|
000044d0 2c 31 32 20 b8 20 2c 2c 59 70 69 63 0d 17 7a 2a |,12 . ,,Ypic..z*|
000044e0 c8 99 22 4f 53 5f 52 65 61 64 4d 6f 64 65 56 61 |.."OS_ReadModeVa|
000044f0 72 69 61 62 6c 65 22 2c 2d 31 2c 34 20 b8 20 2c |riable",-1,4 . ,|
00004500 2c 58 66 61 63 74 0d 17 84 2a c8 99 22 4f 53 5f |,Xfact...*.."OS_|
00004510 52 65 61 64 4d 6f 64 65 56 61 72 69 61 62 6c 65 |ReadModeVariable|
00004520 22 2c 2d 31 2c 35 20 b8 20 2c 2c 59 66 61 63 74 |",-1,5 . ,,Yfact|
00004530 0d 17 8e 25 c8 97 20 c8 93 20 30 2c 30 2c 58 70 |...%.. .. 0,0,Xp|
00004540 69 63 3c 3c 58 66 61 63 74 2c 59 70 69 63 3c 3c |ic<<Xfact,Ypic<<|
00004550 59 66 61 63 74 0d 17 98 0c 20 20 20 20 20 20 20 |Yfact.... |
00004560 e1 0d 17 a2 0c 20 20 20 20 20 20 20 3a 0d 17 ac |..... :...|
00004570 13 dd 20 f2 6d 6f 75 73 65 62 6f 78 28 77 25 29 |.. .mousebox(w%)|
00004580 0d 17 b6 0e 77 69 6d 70 25 21 30 3d 77 25 0d 17 |....wimp%!0=w%..|
00004590 c0 24 c8 99 22 57 69 6d 70 5f 47 65 74 57 69 6e |.$.."Wimp_GetWin|
000045a0 64 6f 77 4f 75 74 6c 69 6e 65 22 2c 2c 77 69 6d |dowOutline",,wim|
000045b0 70 25 0d 17 ca 43 c8 97 20 c8 93 20 77 69 6d 70 |p%...C.. .. wimp|
000045c0 25 21 34 2b 32 2c 77 69 6d 70 25 21 38 2b 32 2c |%!4+2,wimp%!8+2,|
000045d0 77 69 6d 70 25 21 31 32 2d 77 69 6d 70 25 21 34 |wimp%!12-wimp%!4|
000045e0 2d 34 2c 77 69 6d 70 25 21 31 36 2d 77 69 6d 70 |-4,wimp%!16-wimp|
000045f0 25 21 38 2d 34 0d 17 d4 05 e1 0d 17 de 0c 20 20 |%!8-4......... |
00004600 20 20 20 20 20 3a 0d 17 e8 11 dd 20 f2 72 65 73 | :..... .res|
00004610 65 74 65 6e 74 72 79 0d 17 f2 29 f2 57 69 6d 70 |etentry...).Wimp|
00004620 5f 49 63 6f 6e 50 75 74 54 65 78 74 28 45 6e 74 |_IconPutText(Ent|
00004630 72 79 5f 57 69 6e 64 6f 77 25 2c 35 2c 22 22 29 |ry_Window%,5,"")|
00004640 0d 17 fc 2e f2 57 69 6d 70 5f 49 63 6f 6e 50 75 |.....Wimp_IconPu|
00004650 74 54 65 78 74 28 45 6e 74 72 79 5f 57 69 6e 64 |tText(Entry_Wind|
00004660 6f 77 25 2c 33 2c 53 54 41 54 55 53 24 29 0d 18 |ow%,3,STATUS$)..|
00004670 06 2a f2 57 69 6d 70 5f 49 63 6f 6e 50 75 74 54 |.*.Wimp_IconPutT|
00004680 65 78 74 28 45 6e 74 72 79 5f 57 69 6e 64 6f 77 |ext(Entry_Window|
00004690 25 2c 31 36 2c 22 22 29 0d 18 10 05 e1 0d 18 1a |%,16,"")........|
000046a0 0c 20 20 20 20 20 20 20 3a 0d 18 24 12 20 20 20 |. :..$. |
000046b0 20 20 20 20 dd 20 f2 72 65 61 64 0d 18 2e 14 20 | . .read.... |
000046c0 20 20 20 20 20 20 55 50 44 41 54 45 25 3d b9 0d | UPDATE%=..|
000046d0 18 38 3d 20 20 20 20 20 20 20 41 4d 4d 4f 55 4e |.8= AMMOUN|
000046e0 54 28 74 6f 74 61 6c 25 29 3d bb 28 a4 57 69 6d |T(total%)=.(.Wim|
000046f0 70 5f 49 63 6f 6e 54 65 78 74 28 45 6e 74 72 79 |p_IconText(Entry|
00004700 5f 57 69 6e 64 6f 77 25 2c 35 29 29 0d 18 42 22 |_Window%,5))..B"|
00004710 20 20 20 20 20 20 20 53 54 41 54 55 53 24 28 74 | STATUS$(t|
00004720 6f 74 61 6c 25 29 3d 53 54 41 54 55 53 24 0d 18 |otal%)=STATUS$..|
00004730 4c 83 20 20 20 20 20 20 20 44 41 54 45 24 28 74 |L. DATE$(t|
00004740 6f 74 61 6c 25 29 3d a4 57 69 6d 70 5f 49 63 6f |otal%)=.Wimp_Ico|
00004750 6e 54 65 78 74 28 45 6e 74 72 79 5f 57 69 6e 64 |nText(Entry_Wind|
00004760 6f 77 25 2c 31 31 29 2b 22 2f 22 2b a4 57 69 6d |ow%,11)+"/"+.Wim|
00004770 70 5f 49 63 6f 6e 54 65 78 74 28 45 6e 74 72 79 |p_IconText(Entry|
00004780 5f 57 69 6e 64 6f 77 25 2c 31 32 29 2b 22 2f 22 |_Window%,12)+"/"|
00004790 2b a4 57 69 6d 70 5f 49 63 6f 6e 54 65 78 74 28 |+.Wimp_IconText(|
000047a0 45 6e 74 72 79 5f 57 69 6e 64 6f 77 25 2c 31 33 |Entry_Window%,13|
000047b0 29 0d 18 56 37 20 20 20 20 20 20 20 44 44 24 28 |)..V7 DD$(|
000047c0 74 6f 74 61 6c 25 29 3d a4 57 69 6d 70 5f 49 63 |total%)=.Wimp_Ic|
000047d0 6f 6e 54 65 78 74 28 45 6e 74 72 79 5f 57 69 6e |onText(Entry_Win|
000047e0 64 6f 77 25 2c 31 31 29 0d 18 60 37 20 20 20 20 |dow%,11)..`7 |
000047f0 20 20 20 4d 4d 24 28 74 6f 74 61 6c 25 29 3d a4 | MM$(total%)=.|
00004800 57 69 6d 70 5f 49 63 6f 6e 54 65 78 74 28 45 6e |Wimp_IconText(En|
00004810 74 72 79 5f 57 69 6e 64 6f 77 25 2c 31 32 29 0d |try_Window%,12).|
00004820 18 6a 37 20 20 20 20 20 20 20 59 59 24 28 74 6f |.j7 YY$(to|
00004830 74 61 6c 25 29 3d a4 57 69 6d 70 5f 49 63 6f 6e |tal%)=.Wimp_Icon|
00004840 54 65 78 74 28 45 6e 74 72 79 5f 57 69 6e 64 6f |Text(Entry_Windo|
00004850 77 25 2c 31 33 29 0d 18 74 38 20 20 20 20 20 20 |w%,13)..t8 |
00004860 20 57 48 4f 24 28 74 6f 74 61 6c 25 29 3d a4 57 | WHO$(total%)=.W|
00004870 69 6d 70 5f 49 63 6f 6e 54 65 78 74 28 45 6e 74 |imp_IconText(Ent|
00004880 72 79 5f 57 69 6e 64 6f 77 25 2c 31 36 29 0d 18 |ry_Window%,16)..|
00004890 7e 55 20 20 20 20 20 20 20 e7 20 53 54 41 54 55 |~U . STATU|
000048a0 53 24 28 74 6f 74 61 6c 25 29 3d 22 53 61 76 65 |S$(total%)="Save|
000048b0 22 20 8c 20 43 55 52 54 4f 54 28 74 6f 74 61 6c |" . CURTOT(total|
000048c0 25 29 3d 43 55 52 54 4f 54 28 74 6f 74 61 6c 25 |%)=CURTOT(total%|
000048d0 2d 31 29 2b 41 4d 4d 4f 55 4e 54 28 74 6f 74 61 |-1)+AMMOUNT(tota|
000048e0 6c 25 29 0d 18 88 56 20 20 20 20 20 20 20 e7 20 |l%)...V . |
000048f0 53 54 41 54 55 53 24 28 74 6f 74 61 6c 25 29 3d |STATUS$(total%)=|
00004900 22 53 70 65 6e 64 22 20 8c 20 43 55 52 54 4f 54 |"Spend" . CURTOT|
00004910 28 74 6f 74 61 6c 25 29 3d 43 55 52 54 4f 54 28 |(total%)=CURTOT(|
00004920 74 6f 74 61 6c 25 2d 31 29 2d 41 4d 4d 4f 55 4e |total%-1)-AMMOUN|
00004930 54 28 74 6f 74 61 6c 25 29 0d 18 92 14 20 20 20 |T(total%).... |
00004940 20 20 20 20 74 6f 74 61 6c 25 2b 3d 31 0d 18 9c | total%+=1...|
00004950 16 20 20 20 20 20 20 20 63 75 72 25 3d 74 6f 74 |. cur%=tot|
00004960 61 6c 25 0d 18 a6 10 20 20 20 20 20 20 20 f2 70 |al%.... .p|
00004970 61 67 65 0d 18 b0 0c 20 20 20 20 20 20 20 e1 0d |age.... ..|
00004980 18 ba 04 0d 18 c4 13 20 20 20 20 20 20 20 dd 20 |....... . |
00004990 f2 69 6e 70 75 74 0d 18 ce 3b 20 20 20 20 20 20 |.input...; |
000049a0 20 f2 57 69 6d 70 5f 49 63 6f 6e 50 75 74 54 65 | .Wimp_IconPutTe|
000049b0 78 74 28 4d 61 69 6e 5f 57 69 6e 64 6f 77 25 2c |xt(Main_Window%,|
000049c0 36 39 2c c3 28 63 75 72 70 61 67 65 25 2b 31 29 |69,.(curpage%+1)|
000049d0 29 0d 18 d8 3b 20 20 20 20 20 20 20 f2 57 69 6d |)...; .Wim|
000049e0 70 5f 49 63 6f 6e 50 75 74 54 65 78 74 28 4d 61 |p_IconPutText(Ma|
000049f0 69 6e 5f 57 69 6e 64 6f 77 25 2c 36 35 2c c3 28 |in_Window%,65,.(|
00004a00 74 6f 74 70 61 67 65 25 2b 31 29 29 0d 18 e2 18 |totpage%+1))....|
00004a10 20 20 20 20 20 20 20 42 3d 63 75 72 70 61 67 65 | B=curpage|
00004a20 25 2a 31 34 0d 18 ec 15 20 20 20 20 20 20 20 e3 |%*14.... .|
00004a30 20 41 3d 31 20 b8 20 31 34 0d 18 f6 17 e7 20 41 | A=1 . 14..... A|
00004a40 4d 4d 4f 55 4e 54 28 41 2b 42 29 3c 3e 30 20 8c |MMOUNT(A+B)<>0 .|
00004a50 0d 19 00 36 20 20 20 20 20 20 20 f2 57 69 6d 70 |...6 .Wimp|
00004a60 5f 49 63 6f 6e 50 75 74 54 65 78 74 28 4d 61 69 |_IconPutText(Mai|
00004a70 6e 5f 57 69 6e 64 6f 77 25 2c 41 2b 37 30 2c c3 |n_Window%,A+70,.|
00004a80 28 41 2b 42 29 29 0d 19 0a 16 62 24 3d c3 28 41 |(A+B))....b$=.(A|
00004a90 4d 4d 4f 55 4e 54 28 41 2b 42 29 29 0d 19 14 0f |MMOUNT(A+B))....|
00004aa0 62 24 3d a4 63 75 74 28 62 24 29 0d 19 1e 10 61 |b$=.cut(b$)....a|
00004ab0 24 3d a4 7a 65 72 6f 28 62 24 29 0d 19 28 2f 20 |$=.zero(b$)..(/ |
00004ac0 20 20 20 20 20 20 f2 57 69 6d 70 5f 49 63 6f 6e | .Wimp_Icon|
00004ad0 50 75 74 54 65 78 74 28 4d 61 69 6e 5f 57 69 6e |PutText(Main_Win|
00004ae0 64 6f 77 25 2c 41 2c 61 24 29 0d 19 32 3c 20 20 |dow%,A,a$)..2< |
00004af0 20 20 20 20 20 f2 57 69 6d 70 5f 49 63 6f 6e 50 | .Wimp_IconP|
00004b00 75 74 54 65 78 74 28 4d 61 69 6e 5f 57 69 6e 64 |utText(Main_Wind|
00004b10 6f 77 25 2c 41 2b 31 36 2c 53 54 41 54 55 53 24 |ow%,A+16,STATUS$|
00004b20 28 41 2b 42 29 29 0d 19 3c 3a 20 20 20 20 20 20 |(A+B))..<: |
00004b30 20 f2 57 69 6d 70 5f 49 63 6f 6e 50 75 74 54 65 | .Wimp_IconPutTe|
00004b40 78 74 28 4d 61 69 6e 5f 57 69 6e 64 6f 77 25 2c |xt(Main_Window%,|
00004b50 41 2b 33 31 2c 44 41 54 45 24 28 41 2b 42 29 29 |A+31,DATE$(A+B))|
00004b60 0d 19 46 39 20 20 20 20 20 20 20 f2 57 69 6d 70 |..F9 .Wimp|
00004b70 5f 49 63 6f 6e 50 75 74 54 65 78 74 28 4d 61 69 |_IconPutText(Mai|
00004b80 6e 5f 57 69 6e 64 6f 77 25 2c 41 2b 34 35 2c 57 |n_Window%,A+45,W|
00004b90 48 4f 24 28 41 2b 42 29 29 0d 19 50 15 62 24 3d |HO$(A+B))..P.b$=|
00004ba0 c3 28 43 55 52 54 4f 54 28 41 2b 42 29 29 0d 19 |.(CURTOT(A+B))..|
00004bb0 5a 0f 62 24 3d a4 63 75 74 28 62 24 29 0d 19 64 |Z.b$=.cut(b$)..d|
00004bc0 10 61 24 3d a4 7a 65 72 6f 28 62 24 29 0d 19 6e |.a$=.zero(b$)..n|
00004bd0 32 20 20 20 20 20 20 20 f2 57 69 6d 70 5f 49 63 |2 .Wimp_Ic|
00004be0 6f 6e 50 75 74 54 65 78 74 28 4d 61 69 6e 5f 57 |onPutText(Main_W|
00004bf0 69 6e 64 6f 77 25 2c 41 2b 38 35 2c 61 24 29 0d |indow%,A+85,a$).|
00004c00 19 78 05 cc 0d 19 82 2b f2 57 69 6d 70 5f 49 63 |.x.....+.Wimp_Ic|
00004c10 6f 6e 50 75 74 54 65 78 74 28 4d 61 69 6e 5f 57 |onPutText(Main_W|
00004c20 69 6e 64 6f 77 25 2c 41 2b 37 30 2c 22 22 29 0d |indow%,A+70,"").|
00004c30 19 8c 2f 20 20 20 20 20 20 20 f2 57 69 6d 70 5f |../ .Wimp_|
00004c40 49 63 6f 6e 50 75 74 54 65 78 74 28 4d 61 69 6e |IconPutText(Main|
00004c50 5f 57 69 6e 64 6f 77 25 2c 41 2c 22 22 29 0d 19 |_Window%,A,"")..|
00004c60 96 32 20 20 20 20 20 20 20 f2 57 69 6d 70 5f 49 |.2 .Wimp_I|
00004c70 63 6f 6e 50 75 74 54 65 78 74 28 4d 61 69 6e 5f |conPutText(Main_|
00004c80 57 69 6e 64 6f 77 25 2c 41 2b 31 36 2c 22 22 29 |Window%,A+16,"")|
00004c90 0d 19 a0 32 20 20 20 20 20 20 20 f2 57 69 6d 70 |...2 .Wimp|
00004ca0 5f 49 63 6f 6e 50 75 74 54 65 78 74 28 4d 61 69 |_IconPutText(Mai|
00004cb0 6e 5f 57 69 6e 64 6f 77 25 2c 41 2b 33 31 2c 22 |n_Window%,A+31,"|
00004cc0 22 29 0d 19 aa 32 20 20 20 20 20 20 20 f2 57 69 |")...2 .Wi|
00004cd0 6d 70 5f 49 63 6f 6e 50 75 74 54 65 78 74 28 4d |mp_IconPutText(M|
00004ce0 61 69 6e 5f 57 69 6e 64 6f 77 25 2c 41 2b 34 35 |ain_Window%,A+45|
00004cf0 2c 22 22 29 0d 19 b4 32 20 20 20 20 20 20 20 f2 |,"")...2 .|
00004d00 57 69 6d 70 5f 49 63 6f 6e 50 75 74 54 65 78 74 |Wimp_IconPutText|
00004d10 28 4d 61 69 6e 5f 57 69 6e 64 6f 77 25 2c 41 2b |(Main_Window%,A+|
00004d20 38 35 2c 22 22 29 0d 19 be 05 cd 0d 19 c8 0d 20 |85,"")......... |
00004d30 20 20 20 20 20 20 ed 41 0d 19 d2 0c 20 20 20 20 | .A.... |
00004d40 20 20 20 e1 0d 19 dc 04 0d 19 e6 17 20 20 20 20 | ......... |
00004d50 20 20 20 dd 20 f2 63 6c 65 61 72 6d 61 69 6e 0d | . .clearmain.|
00004d60 19 f0 15 20 20 20 20 20 20 20 e3 20 41 3d 31 20 |... . A=1 |
00004d70 b8 20 31 34 0d 19 fa 32 20 20 20 20 20 20 20 f2 |. 14...2 .|
00004d80 57 69 6d 70 5f 49 63 6f 6e 50 75 74 54 65 78 74 |Wimp_IconPutText|
00004d90 28 4d 61 69 6e 5f 57 69 6e 64 6f 77 25 2c 41 2b |(Main_Window%,A+|
00004da0 37 30 2c 22 22 29 0d 1a 04 2f 20 20 20 20 20 20 |70,"").../ |
00004db0 20 f2 57 69 6d 70 5f 49 63 6f 6e 50 75 74 54 65 | .Wimp_IconPutTe|
00004dc0 78 74 28 4d 61 69 6e 5f 57 69 6e 64 6f 77 25 2c |xt(Main_Window%,|
00004dd0 41 2c 22 22 29 0d 1a 0e 32 20 20 20 20 20 20 20 |A,"")...2 |
00004de0 f2 57 69 6d 70 5f 49 63 6f 6e 50 75 74 54 65 78 |.Wimp_IconPutTex|
00004df0 74 28 4d 61 69 6e 5f 57 69 6e 64 6f 77 25 2c 41 |t(Main_Window%,A|
00004e00 2b 31 36 2c 22 22 29 0d 1a 18 32 20 20 20 20 20 |+16,"")...2 |
00004e10 20 20 f2 57 69 6d 70 5f 49 63 6f 6e 50 75 74 54 | .Wimp_IconPutT|
00004e20 65 78 74 28 4d 61 69 6e 5f 57 69 6e 64 6f 77 25 |ext(Main_Window%|
00004e30 2c 41 2b 33 31 2c 22 22 29 0d 1a 22 32 20 20 20 |,A+31,"").."2 |
00004e40 20 20 20 20 f2 57 69 6d 70 5f 49 63 6f 6e 50 75 | .Wimp_IconPu|
00004e50 74 54 65 78 74 28 4d 61 69 6e 5f 57 69 6e 64 6f |tText(Main_Windo|
00004e60 77 25 2c 41 2b 34 35 2c 22 22 29 0d 1a 2c 32 20 |w%,A+45,"")..,2 |
00004e70 20 20 20 20 20 20 f2 57 69 6d 70 5f 49 63 6f 6e | .Wimp_Icon|
00004e80 50 75 74 54 65 78 74 28 4d 61 69 6e 5f 57 69 6e |PutText(Main_Win|
00004e90 64 6f 77 25 2c 41 2b 38 35 2c 22 22 29 0d 1a 36 |dow%,A+85,"")..6|
00004ea0 0d 20 20 20 20 20 20 20 ed 41 0d 1a 40 31 20 20 |. .A..@1 |
00004eb0 20 20 20 20 20 f2 57 69 6d 70 5f 49 63 6f 6e 50 | .Wimp_IconP|
00004ec0 75 74 54 65 78 74 28 4d 61 69 6e 5f 57 69 6e 64 |utText(Main_Wind|
00004ed0 6f 77 25 2c 36 39 2c 22 31 22 29 0d 1a 4a 31 20 |ow%,69,"1")..J1 |
00004ee0 20 20 20 20 20 20 f2 57 69 6d 70 5f 49 63 6f 6e | .Wimp_Icon|
00004ef0 50 75 74 54 65 78 74 28 4d 61 69 6e 5f 57 69 6e |PutText(Main_Win|
00004f00 64 6f 77 25 2c 36 35 2c 22 31 22 29 0d 1a 54 0c |dow%,65,"1")..T.|
00004f10 20 20 20 20 20 20 20 e1 0d 1a 5e 0c 20 20 20 20 | ...^. |
00004f20 20 20 20 3a 0d 1a 68 12 20 20 20 20 20 20 20 dd | :..h. .|
00004f30 20 f2 70 61 67 65 0d 1a 72 22 20 20 20 20 20 20 | .page..r" |
00004f40 20 63 75 72 70 61 67 65 25 3d a8 28 28 63 75 72 | curpage%=.((cur|
00004f50 25 2d 31 29 2f 31 35 29 0d 1a 7c 32 20 20 20 20 |%-1)/15)..|2 |
00004f60 20 20 20 e7 20 63 75 72 70 61 67 65 25 3e 74 6f | . curpage%>to|
00004f70 74 70 61 67 65 25 20 8c 20 74 6f 74 70 61 67 65 |tpage% . totpage|
00004f80 25 3d 63 75 72 70 61 67 65 25 0d 1a 86 0c 20 20 |%=curpage%.... |
00004f90 20 20 20 20 20 e1 0d 1a 90 0c 20 20 20 20 20 20 | ..... |
00004fa0 20 3a 0d 1a 9a 14 20 20 20 20 20 20 20 dd 20 f2 | :.... . .|
00004fb0 72 65 63 61 6c 63 0d 1a a4 19 20 20 20 20 20 20 |recalc.... |
00004fc0 20 e3 20 41 3d 31 20 b8 20 74 6f 74 61 6c 25 0d | . A=1 . total%.|
00004fd0 1a ae 41 20 20 20 20 20 20 20 e7 20 53 54 41 54 |..A . STAT|
00004fe0 55 53 24 28 41 29 3d 22 53 61 76 65 22 20 8c 20 |US$(A)="Save" . |
00004ff0 43 55 52 54 4f 54 28 41 29 3d 43 55 52 54 4f 54 |CURTOT(A)=CURTOT|
00005000 28 41 2d 31 29 2b 41 4d 4d 4f 55 4e 54 28 41 29 |(A-1)+AMMOUNT(A)|
00005010 0d 1a b8 42 20 20 20 20 20 20 20 e7 20 53 54 41 |...B . STA|
00005020 54 55 53 24 28 41 29 3d 22 53 70 65 6e 64 22 20 |TUS$(A)="Spend" |
00005030 8c 20 43 55 52 54 4f 54 28 41 29 3d 43 55 52 54 |. CURTOT(A)=CURT|
00005040 4f 54 28 41 2d 31 29 2d 41 4d 4d 4f 55 4e 54 28 |OT(A-1)-AMMOUNT(|
00005050 41 29 0d 1a c2 0d 20 20 20 20 20 20 20 ed 41 0d |A).... .A.|
00005060 1a cc 0c 20 20 20 20 20 20 20 e1 0d 1a d6 05 3a |... .....:|
00005070 0d 1a e0 4a f4 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |...J. **********|
00005080 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
000050b0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 1a ea 05 3a 0d |**********....:.|
000050c0 1a f4 28 dd 20 f2 57 69 6d 70 5f 57 69 6e 64 6f |..(. .Wimp_Windo|
000050d0 77 41 6c 65 72 74 28 74 69 74 6c 65 24 2c 6d 65 |wAlert(title$,me|
000050e0 73 73 61 67 65 24 29 0d 1a fe 2b f2 57 69 6d 70 |ssage$)...+.Wimp|
000050f0 5f 57 69 6e 64 6f 77 41 6c 65 72 74 42 6f 78 28 |_WindowAlertBox(|
00005100 74 69 74 6c 65 24 2c 6d 65 73 73 61 67 65 24 2c |title$,message$,|
00005110 30 29 0d 1b 08 05 e1 0d 1b 12 05 3a 0d 1b 1c 33 |0).........:...3|
00005120 dd 20 f2 57 69 6d 70 5f 57 69 6e 64 6f 77 41 6c |. .Wimp_WindowAl|
00005130 65 72 74 42 6f 78 28 74 69 74 6c 65 24 2c 6d 65 |ertBox(title$,me|
00005140 73 73 61 67 65 24 2c 62 75 74 74 6f 6e 25 29 0d |ssage$,button%).|
00005150 1b 26 0f ea 20 72 65 73 70 6f 6e 73 65 25 0d 1b |.&.. response%..|
00005160 30 17 24 28 77 69 6d 70 25 2b 34 29 3d 6d 65 73 |0.$(wimp%+4)=mes|
00005170 73 61 67 65 24 0d 1b 3a 10 c8 8e 20 62 75 74 74 |sage$..:... butt|
00005180 6f 6e 25 20 ca 0d 1b 44 19 20 c9 20 32 20 20 20 |on% ...D. . 2 |
00005190 20 3a 20 72 65 73 70 6f 6e 73 65 25 3d 31 0d 1b | : response%=1..|
000051a0 4e 1a 20 c9 20 31 20 20 20 20 3a 20 72 65 73 70 |N. . 1 : resp|
000051b0 6f 6e 73 65 25 3d 31 35 0d 1b 58 21 20 c9 20 33 |onse%=15..X! . 3|
000051c0 20 20 20 20 3a 20 72 65 73 70 6f 6e 73 65 25 3d | : response%=|
000051d0 28 31 3c 3c 35 29 2b 31 36 0d 1b 62 21 20 c9 20 |(1<<5)+16..b! . |
000051e0 34 20 20 20 20 3a 20 72 65 73 70 6f 6e 73 65 25 |4 : response%|
000051f0 3d 28 31 3c 3c 36 29 2b 31 36 0d 1b 6c 14 7f 20 |=(1<<6)+16..l.. |
00005200 3a 20 72 65 73 70 6f 6e 73 65 25 3d 31 36 0d 1b |: response%=16..|
00005210 76 05 cb 0d 1b 80 3d c8 99 20 22 57 69 6d 70 5f |v.....=.. "Wimp_|
00005220 52 65 70 6f 72 74 45 72 72 6f 72 22 2c 77 69 6d |ReportError",wim|
00005230 70 25 2c 72 65 73 70 6f 6e 73 65 25 2c 74 69 74 |p%,response%,tit|
00005240 6c 65 24 20 b8 20 2c 72 65 73 70 6f 6e 73 65 25 |le$ . ,response%|
00005250 0d 1b 8a 05 e1 0d 1b 94 05 3a 0d 1b 9e 29 dd 20 |.........:...). |
00005260 a4 57 69 6d 70 5f 57 69 6e 64 6f 77 43 61 6e 63 |.Wimp_WindowCanc|
00005270 65 6c 28 74 69 74 6c 65 24 2c 6d 65 73 73 61 67 |el(title$,messag|
00005280 65 24 29 0d 1b a8 17 24 28 77 69 6d 70 25 2b 34 |e$)....$(wimp%+4|
00005290 29 3d 6d 65 73 73 61 67 65 24 0d 1b b2 10 72 65 |)=message$....re|
000052a0 73 70 6f 6e 73 65 25 3d 32 33 0d 1b bc 3d c8 99 |sponse%=23...=..|
000052b0 20 22 57 69 6d 70 5f 52 65 70 6f 72 74 45 72 72 | "Wimp_ReportErr|
000052c0 6f 72 22 2c 77 69 6d 70 25 2c 72 65 73 70 6f 6e |or",wimp%,respon|
000052d0 73 65 25 2c 74 69 74 6c 65 24 20 b8 20 2c 72 65 |se%,title$ . ,re|
000052e0 73 70 6f 6e 73 65 25 0d 1b c6 10 3d 72 65 73 70 |sponse%....=resp|
000052f0 6f 6e 73 65 25 2d 32 0d 1b d0 05 3a 0d 1b da 2b |onse%-2....:...+|
00005300 dd 20 f2 57 69 6d 70 5f 57 69 6e 64 6f 77 45 72 |. .Wimp_WindowEr|
00005310 72 6f 72 42 6f 78 28 74 69 74 6c 65 24 2c 6d 65 |rorBox(title$,me|
00005320 73 73 61 67 65 24 29 0d 1b e4 2b f2 57 69 6d 70 |ssage$)...+.Wimp|
00005330 5f 57 69 6e 64 6f 77 41 6c 65 72 74 42 6f 78 28 |_WindowAlertBox(|
00005340 74 69 74 6c 65 24 2c 6d 65 73 73 61 67 65 24 2c |title$,message$,|
00005350 32 29 0d 1b ee 05 e1 0d 1b f8 05 3a 0d 1c 02 20 |2).........:... |
00005360 dd 20 a4 57 69 6d 70 5f 57 69 6e 64 6f 77 54 69 |. .Wimp_WindowTi|
00005370 74 6c 65 28 77 69 6e 64 6f 77 25 29 0d 1c 0c 13 |tle(window%)....|
00005380 77 69 6d 70 25 21 30 3d 77 69 6e 64 6f 77 25 0d |wimp%!0=window%.|
00005390 1c 16 20 c8 99 20 22 57 69 6d 70 5f 47 65 74 57 |.. .. "Wimp_GetW|
000053a0 69 6e 64 49 6e 66 6f 22 2c 2c 77 69 6d 70 25 0d |indInfo",,wimp%.|
000053b0 1c 20 36 e7 20 28 28 77 69 6d 70 25 21 36 30 29 |. 6. ((wimp%!60)|
000053c0 80 26 31 30 30 29 3d 30 20 85 20 31 2c 22 54 69 |.&100)=0 . 1,"Ti|
000053d0 74 6c 65 20 69 73 6e 27 74 20 69 6e 64 69 72 65 |tle isn't indire|
000053e0 63 74 65 64 22 0d 1c 2a 10 3d 24 28 77 69 6d 70 |cted"..*.=$(wimp|
000053f0 25 21 37 36 29 0d 1c 34 05 3a 0d 1c 3e 1f dd 20 |%!76)..4.:..>.. |
00005400 a4 57 69 6d 70 5f 57 69 6e 64 6f 77 4c 6f 61 64 |.Wimp_WindowLoad|
00005410 28 77 69 6e 64 6f 77 24 29 0d 1c 48 39 3d a4 57 |(window$)..H9=.W|
00005420 69 6d 70 5f 57 69 6e 64 6f 77 4c 6f 61 64 46 72 |imp_WindowLoadFr|
00005430 6f 6d 28 77 69 6e 64 6f 77 24 2c 22 3c 4f 62 65 |om(window$,"<Obe|
00005440 79 24 44 69 72 3e 2e 54 65 6d 70 6c 61 74 65 73 |y$Dir>.Templates|
00005450 22 29 0d 1c 52 05 3a 0d 1c 5c 2d dd 20 a4 57 69 |")..R.:..\-. .Wi|
00005460 6d 70 5f 57 69 6e 64 6f 77 4c 6f 61 64 46 72 6f |mp_WindowLoadFro|
00005470 6d 28 77 69 6e 64 6f 77 24 2c 74 65 6d 70 6c 61 |m(window$,templa|
00005480 74 65 24 29 0d 1c 66 1a ea 20 63 25 2c 69 25 2c |te$)..f.. c%,i%,|
00005490 6e 25 2c 6a 25 2c 73 70 24 2c 73 70 32 24 0d 1c |n%,j%,sp$,sp2$..|
000054a0 70 25 c8 99 20 22 57 69 6d 70 5f 4f 70 65 6e 54 |p%.. "Wimp_OpenT|
000054b0 65 6d 70 6c 61 74 65 22 2c 2c 74 65 6d 70 6c 61 |emplate",,templa|
000054c0 74 65 24 0d 1c 7a 4d c8 99 20 22 57 69 6d 70 5f |te$..zM.. "Wimp_|
000054d0 4c 6f 61 64 54 65 6d 70 6c 61 74 65 22 2c 2c 77 |LoadTemplate",,w|
000054e0 69 6d 70 25 2c 69 63 6f 6e 73 25 2c 69 63 6f 6e |imp%,icons%,icon|
000054f0 5f 6d 65 6d 6f 72 79 25 2c 2d 31 2c 77 69 6e 64 |_memory%,-1,wind|
00005500 6f 77 24 2c 30 20 b8 20 2c 2c 69 63 6f 6e 73 25 |ow$,0 . ,,icons%|
00005510 0d 1c 84 11 c8 8e 20 73 70 72 69 74 65 73 25 20 |...... sprites% |
00005520 ca 0d 1c 8e 1f 20 c9 20 31 20 20 20 20 3a 20 77 |..... . 1 : w|
00005530 69 6d 70 25 21 36 34 3d 73 70 72 69 74 65 73 25 |imp%!64=sprites%|
00005540 0d 1c 98 29 20 7f 20 3a 20 77 69 6d 70 25 21 36 |...) . : wimp%!6|
00005550 34 3d a4 45 76 65 6e 74 5f 53 70 72 69 74 65 73 |4=.Event_Sprites|
00005560 28 77 69 6e 64 6f 77 25 29 0d 1c a2 05 cb 0d 1c |(window%).......|
00005570 ac 26 c8 99 20 22 57 69 6d 70 5f 43 72 65 61 74 |.&.. "Wimp_Creat|
00005580 65 57 69 6e 64 6f 77 22 2c 2c 77 69 6d 70 25 20 |eWindow",,wimp% |
00005590 b8 20 63 25 0d 1c b6 1b c8 99 20 22 57 69 6d 70 |. c%...... "Wimp|
000055a0 5f 43 6c 6f 73 65 54 65 6d 70 6c 61 74 65 22 0d |_CloseTemplate".|
000055b0 1c c0 37 c8 99 20 22 57 69 6d 70 5f 57 68 69 63 |..7.. "Wimp_Whic|
000055c0 68 49 63 6f 6e 22 2c 63 25 2c 77 69 6d 70 25 2b |hIcon",c%,wimp%+|
000055d0 34 30 2c 31 2b 32 2b 28 31 3c 3c 38 29 2c 32 2b |40,1+2+(1<<8),2+|
000055e0 28 31 3c 3c 38 29 0d 1c ca 11 c8 8e 20 77 69 6d |(1<<8)...... wim|
000055f0 70 25 21 34 30 20 ca 0d 1c d4 0d 20 c9 20 2d 31 |p%!40 ..... . -1|
00005600 20 20 20 3a 0d 1c de 0e 20 7f 20 3a 20 69 25 3d | :.... . : i%=|
00005610 34 30 0d 1c e8 06 20 f5 0d 1c f2 24 20 20 20 77 |40.... ....$ w|
00005620 69 6d 70 25 21 34 3d 77 69 6d 70 25 21 69 25 20 |imp%!4=wimp%!i% |
00005630 3a 20 77 69 6d 70 25 21 30 3d 63 25 0d 1c fc 24 |: wimp%!0=c%...$|
00005640 20 20 20 c8 99 20 22 57 69 6d 70 5f 47 65 74 49 | .. "Wimp_GetI|
00005650 63 6f 6e 53 74 61 74 65 22 2c 2c 77 69 6d 70 25 |conState",,wimp%|
00005660 0d 1d 06 2d 20 20 20 73 70 24 3d a4 57 69 6d 70 |...- sp$=.Wimp|
00005670 5f 47 65 74 53 74 72 69 6e 67 41 74 41 64 64 72 |_GetStringAtAddr|
00005680 65 73 73 28 77 69 6d 70 25 21 32 38 29 0d 1d 10 |ess(wimp%!28)...|
00005690 22 20 20 20 c8 99 20 22 57 69 6d 70 5f 44 65 6c |" .. "Wimp_Del|
000056a0 65 74 65 49 63 6f 6e 22 2c 2c 77 69 6d 70 25 0d |eteIcon",,wimp%.|
000056b0 1d 1a 14 20 20 20 c8 8e 20 73 70 72 69 74 65 73 |... .. sprites|
000056c0 25 20 ca 0d 1d 24 1b 20 20 20 20 c9 20 31 20 20 |% ...$. . 1 |
000056d0 20 20 3a 20 77 69 6d 70 25 21 33 32 3d 31 0d 1d | : wimp%!32=1..|
000056e0 2e 0b 20 20 20 20 7f 20 3a 0d 1d 38 2f 20 20 20 |.. . :..8/ |
000056f0 20 20 c8 99 20 22 4f 53 5f 53 70 72 69 74 65 4f | .. "OS_SpriteO|
00005700 70 22 2c 26 31 30 38 2c 73 70 72 69 74 65 73 25 |p",&108,sprites%|
00005710 20 b8 20 2c 2c 2c 6e 25 0d 1d 42 0d 20 20 20 20 | . ,,,n%..B. |
00005720 20 6a 25 3d 30 0d 1d 4c 12 20 20 20 20 20 f5 20 | j%=0..L. . |
00005730 3a 20 6a 25 2b 3d 31 0d 1d 56 3d 20 20 20 20 20 |: j%+=1..V= |
00005740 20 c8 99 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 | .. "OS_SpriteOp|
00005750 22 2c 26 31 30 44 2c 73 70 72 69 74 65 73 25 2c |",&10D,sprites%,|
00005760 70 6f 69 6e 74 65 72 5f 62 6c 6f 63 6b 25 2c 32 |pointer_block%,2|
00005770 30 2c 6a 25 0d 1d 60 37 20 20 20 20 20 20 73 70 |0,j%..`7 sp|
00005780 32 24 3d a4 57 69 6d 70 5f 47 65 74 53 74 72 69 |2$=.Wimp_GetStri|
00005790 6e 67 41 74 41 64 64 72 65 73 73 28 70 6f 69 6e |ngAtAddress(poin|
000057a0 74 65 72 5f 62 6c 6f 63 6b 25 29 0d 1d 6a 1b 20 |ter_block%)..j. |
000057b0 20 20 20 20 fd 20 6a 25 3d 6e 25 20 84 20 73 70 | . j%=n% . sp|
000057c0 24 3d 73 70 32 24 0d 1d 74 34 20 20 20 20 20 e7 |$=sp2$..t4 .|
000057d0 20 73 70 24 3d 73 70 32 24 20 8c 20 77 69 6d 70 | sp$=sp2$ . wimp|
000057e0 25 21 33 32 3d 73 70 72 69 74 65 73 25 20 8b 20 |%!32=sprites% . |
000057f0 77 69 6d 70 25 21 33 32 3d 31 0d 1d 7e 08 20 20 |wimp%!32=1..~. |
00005800 20 cb 0d 1d 88 11 20 20 20 77 69 6d 70 25 21 34 | ..... wimp%!4|
00005810 3d 63 25 0d 1d 92 2e 20 20 20 c8 99 20 22 57 69 |=c%.... .. "Wi|
00005820 6d 70 5f 43 72 65 61 74 65 49 63 6f 6e 22 2c 2c |mp_CreateIcon",,|
00005830 77 69 6d 70 25 2b 34 20 b8 20 68 61 6e 64 6c 65 |wimp%+4 . handle|
00005840 25 0d 1d 9c 0c 20 20 20 69 25 2b 3d 34 0d 1d a6 |%.... i%+=4...|
00005850 14 20 fd 20 28 77 69 6d 70 25 21 69 25 29 3d 2d |. . (wimp%!i%)=-|
00005860 31 0d 1d b0 05 cb 0d 1d ba 07 3d 63 25 0d 1d c4 |1.........=c%...|
00005870 05 3a 0d 1d ce 25 dd 20 f2 57 69 6d 70 5f 57 69 |.:...%. .Wimp_Wi|
00005880 6e 64 6f 77 42 72 69 6e 67 54 6f 54 6f 70 28 77 |ndowBringToTop(w|
00005890 69 6e 64 6f 77 25 29 0d 1d d8 12 21 77 69 6d 70 |indow%)....!wimp|
000058a0 25 3d 77 69 6e 64 6f 77 25 0d 1d e2 23 c8 99 20 |%=window%...#.. |
000058b0 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 53 |"Wimp_GetWindowS|
000058c0 74 61 74 65 22 2c 2c 77 69 6d 70 25 0d 1d ec 0f |tate",,wimp%....|
000058d0 77 69 6d 70 25 21 32 38 3d 2d 31 0d 1d f6 1f c8 |wimp%!28=-1.....|
000058e0 99 20 22 57 69 6d 70 5f 4f 70 65 6e 57 69 6e 64 |. "Wimp_OpenWind|
000058f0 6f 77 22 2c 2c 77 69 6d 70 25 0d 1e 00 05 e1 0d |ow",,wimp%......|
00005900 1e 0a 05 3a 0d 1e 14 20 dd 20 f2 57 69 6d 70 5f |...:... . .Wimp_|
00005910 57 69 6e 64 6f 77 43 6c 6f 73 65 28 77 69 6e 64 |WindowClose(wind|
00005920 6f 77 25 29 0d 1e 1e 12 21 77 69 6d 70 25 3d 77 |ow%)....!wimp%=w|
00005930 69 6e 64 6f 77 25 0d 1e 28 20 c8 99 20 22 57 69 |indow%..( .. "Wi|
00005940 6d 70 5f 43 6c 6f 73 65 57 69 6e 64 6f 77 22 2c |mp_CloseWindow",|
00005950 2c 77 69 6d 70 25 0d 1e 32 05 e1 0d 1e 3c 05 3a |,wimp%..2....<.:|
00005960 0d 1e 46 24 dd 20 f2 57 69 6d 70 5f 57 69 6e 64 |..F$. .Wimp_Wind|
00005970 6f 77 46 6f 72 63 65 44 72 61 77 28 77 69 6e 64 |owForceDraw(wind|
00005980 6f 77 25 29 0d 1e 50 10 c8 8e 20 77 69 6e 64 6f |ow%)..P... windo|
00005990 77 25 20 ca 0d 1e 5a 38 20 c9 20 2d 31 20 20 20 |w% ...Z8 . -1 |
000059a0 3a 20 c8 99 20 22 57 69 6d 70 5f 46 6f 72 63 65 |: .. "Wimp_Force|
000059b0 52 65 64 72 61 77 22 2c 2d 31 2c 30 2c 30 2c 32 |Redraw",-1,0,0,2|
000059c0 2a 31 32 38 30 2c 32 2a 31 30 32 34 0d 1e 64 39 |*1280,2*1024..d9|
000059d0 20 7f 20 3a 20 c8 99 20 22 57 69 6d 70 5f 46 6f | . : .. "Wimp_Fo|
000059e0 72 63 65 52 65 64 72 61 77 22 2c 77 69 6e 64 6f |rceRedraw",windo|
000059f0 77 25 2c 30 2c 2d 32 2a 31 30 32 34 2c 32 2a 31 |w%,0,-2*1024,2*1|
00005a00 32 38 30 2c 30 0d 1e 6e 05 cb 0d 1e 78 05 e1 0d |280,0..n....x...|
00005a10 1e 82 05 3a 0d 1e 8c 1f dd 20 f2 57 69 6d 70 5f |...:..... .Wimp_|
00005a20 57 69 6e 64 6f 77 4f 70 65 6e 28 77 69 6e 64 6f |WindowOpen(windo|
00005a30 77 25 29 0d 1e 96 12 21 77 69 6d 70 25 3d 77 69 |w%)....!wimp%=wi|
00005a40 6e 64 6f 77 25 0d 1e a0 23 c8 99 20 22 57 69 6d |ndow%...#.. "Wim|
00005a50 70 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 74 65 |p_GetWindowState|
00005a60 22 2c 2c 77 69 6d 70 25 0d 1e aa 1f c8 99 20 22 |",,wimp%...... "|
00005a70 57 69 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 |Wimp_OpenWindow"|
00005a80 2c 2c 77 69 6d 70 25 0d 1e b4 05 e1 0d 1e be 05 |,,wimp%.........|
00005a90 3a 0d 1e c8 19 f2 57 69 6d 70 5f 57 69 6e 64 6f |:.....Wimp_Windo|
00005aa0 77 49 6e 74 65 72 66 61 63 65 0d 1e d2 20 c8 99 |wInterface... ..|
00005ab0 22 57 69 6d 70 5f 42 6f 72 64 65 72 57 69 6e 64 |"Wimp_BorderWind|
00005ac0 6f 77 22 2c 2c 77 69 6d 70 25 0d 1e dc 05 e1 0d |ow",,wimp%......|
00005ad0 1e e6 05 3a 0d 1e f0 4a f4 20 2a 2a 2a 2a 2a 2a |...:...J. ******|
00005ae0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00005b10 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 1e |**************..|
00005b20 fa 05 3a 0d 1f 04 30 dd 20 f2 57 69 6d 70 5f 53 |..:...0. .Wimp_S|
00005b30 65 74 49 63 6f 6e 53 70 72 69 74 65 28 77 69 6e |etIconSprite(win|
00005b40 64 6f 77 25 2c 69 63 6f 6e 25 2c 73 70 72 69 74 |dow%,icon%,sprit|
00005b50 65 24 29 0d 1f 0e 13 77 69 6d 70 25 21 30 3d 77 |e$)....wimp%!0=w|
00005b60 69 6e 64 6f 77 25 0d 1f 18 11 77 69 6d 70 25 21 |indow%....wimp%!|
00005b70 34 3d 69 63 6f 6e 25 0d 1f 22 21 c8 99 20 22 57 |4=icon%.."!.. "W|
00005b80 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 |imp_GetIconState|
00005b90 22 2c 2c 77 69 6d 70 25 0d 1f 2c 19 24 77 69 6d |",,wimp%..,.$wim|
00005ba0 70 25 21 33 32 3d 22 53 22 2b 73 70 72 69 74 65 |p%!32="S"+sprite|
00005bb0 24 0d 1f 36 13 77 69 6d 70 25 21 30 3d 77 69 6e |$..6.wimp%!0=win|
00005bc0 64 6f 77 25 0d 1f 40 0d 77 69 6d 70 25 21 38 3d |dow%..@.wimp%!8=|
00005bd0 30 0d 1f 4a 0e 77 69 6d 70 25 21 31 32 3d 30 0d |0..J.wimp%!12=0.|
00005be0 1f 54 21 c8 99 20 22 57 69 6d 70 5f 53 65 74 49 |.T!.. "Wimp_SetI|
00005bf0 63 6f 6e 53 74 61 74 65 22 2c 2c 77 69 6d 70 25 |conState",,wimp%|
00005c00 0d 1f 5e 05 e1 0d 1f 68 05 3a 0d 1f 72 1c dd 20 |..^....h.:..r.. |
00005c10 a4 57 69 6d 70 5f 49 63 6f 6e 42 61 72 28 53 70 |.Wimp_IconBar(Sp|
00005c20 72 69 74 65 24 29 0d 1f 7c 0b ea 20 69 63 6f 6e |rite$)..|.. icon|
00005c30 25 0d 1f 86 0e 77 69 6d 70 25 21 30 3d 2d 31 0d |%....wimp%!0=-1.|
00005c40 1f 90 1d 77 69 6d 70 25 21 34 3d 30 20 20 20 20 |...wimp%!4=0 |
00005c50 20 3a 20 77 69 6d 70 25 21 38 3d 30 0d 1f 9a 1d | : wimp%!8=0....|
00005c60 77 69 6d 70 25 21 31 32 3d 38 38 20 3a 20 77 69 |wimp%!12=88 : wi|
00005c70 6d 70 25 21 31 36 3d 37 34 0d 1f a4 12 77 69 6d |mp%!16=74....wim|
00005c80 70 25 21 32 30 3d 26 33 30 30 32 0d 1f ae 17 24 |p%!20=&3002....$|
00005c90 28 77 69 6d 70 25 2b 32 34 29 3d 53 70 72 69 74 |(wimp%+24)=Sprit|
00005ca0 65 24 0d 1f b8 27 c8 99 20 22 57 69 6d 70 5f 43 |e$...'.. "Wimp_C|
00005cb0 72 65 61 74 65 49 63 6f 6e 22 2c 2c 77 69 6d 70 |reateIcon",,wimp|
00005cc0 25 20 b8 20 69 63 6f 6e 25 0d 1f c2 0a 3d 69 63 |% . icon%....=ic|
00005cd0 6f 6e 25 0d 1f cc 05 3a 0d 1f d6 2b dd 20 f2 57 |on%....:...+. .W|
00005ce0 69 6d 70 5f 49 63 6f 6e 43 61 72 65 74 28 77 69 |imp_IconCaret(wi|
00005cf0 6e 64 6f 77 25 2c 69 63 6f 6e 25 2c 63 68 61 72 |ndow%,icon%,char|
00005d00 73 25 29 0d 1f e0 38 c8 99 20 22 57 69 6d 70 5f |s%)...8.. "Wimp_|
00005d10 53 65 74 43 61 72 65 74 50 6f 73 69 74 69 6f 6e |SetCaretPosition|
00005d20 22 2c 77 69 6e 64 6f 77 25 2c 69 63 6f 6e 25 2c |",window%,icon%,|
00005d30 2c 2c 2d 31 2c 63 68 61 72 73 25 0d 1f ea 05 e1 |,,-1,chars%.....|
00005d40 0d 1f f4 05 3a 0d 1f fe 23 dd 20 a4 57 69 6d 70 |....:...#. .Wimp|
00005d50 5f 49 63 6f 6e 54 65 78 74 28 77 69 6e 64 6f 77 |_IconText(window|
00005d60 25 2c 69 63 6f 6e 25 29 0d 20 08 23 77 69 6d 70 |%,icon%). .#wimp|
00005d70 25 21 30 3d 77 69 6e 64 6f 77 25 20 3a 20 77 69 |%!0=window% : wi|
00005d80 6d 70 25 21 34 3d 69 63 6f 6e 25 0d 20 12 21 c8 |mp%!4=icon%. .!.|
00005d90 99 20 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 |. "Wimp_GetIconS|
00005da0 74 61 74 65 22 2c 2c 77 69 6d 70 25 0d 20 1c 37 |tate",,wimp%. .7|
00005db0 e7 20 28 28 77 69 6d 70 25 21 32 34 29 20 80 20 |. ((wimp%!24) . |
00005dc0 26 31 30 30 29 3d 30 20 85 20 31 2c 22 49 63 6f |&100)=0 . 1,"Ico|
00005dd0 6e 20 69 73 6e 27 74 20 69 6e 64 69 72 65 63 74 |n isn't indirect|
00005de0 65 64 22 0d 20 26 10 3d 24 28 77 69 6d 70 25 21 |ed". &.=$(wimp%!|
00005df0 32 38 29 0d 20 30 05 3a 0d 20 3a 29 dd 20 a4 57 |28). 0.:. :). .W|
00005e00 69 6d 70 5f 49 63 6f 6e 56 61 6c 69 64 61 74 69 |imp_IconValidati|
00005e10 6f 6e 28 77 69 6e 64 6f 77 25 2c 69 63 6f 6e 25 |on(window%,icon%|
00005e20 29 0d 20 44 23 77 69 6d 70 25 21 30 3d 77 69 6e |). D#wimp%!0=win|
00005e30 64 6f 77 25 20 3a 20 77 69 6d 70 25 21 34 3d 69 |dow% : wimp%!4=i|
00005e40 63 6f 6e 25 0d 20 4e 21 c8 99 20 22 57 69 6d 70 |con%. N!.. "Wimp|
00005e50 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c |_GetIconState",,|
00005e60 77 69 6d 70 25 0d 20 58 37 e7 20 28 28 77 69 6d |wimp%. X7. ((wim|
00005e70 70 25 21 32 34 29 20 80 20 26 31 30 30 29 3d 30 |p%!24) . &100)=0|
00005e80 20 85 20 31 2c 22 49 63 6f 6e 20 69 73 6e 27 74 | . 1,"Icon isn't|
00005e90 20 69 6e 64 69 72 65 63 74 65 64 22 0d 20 62 10 | indirected". b.|
00005ea0 3d 24 28 77 69 6d 70 25 21 33 32 29 0d 20 6c 05 |=$(wimp%!32). l.|
00005eb0 3a 0d 20 76 26 dd 20 f2 57 69 6d 70 5f 49 63 6f |:. v&. .Wimp_Ico|
00005ec0 6e 44 69 73 61 62 6c 65 28 77 69 6e 64 6f 77 25 |nDisable(window%|
00005ed0 2c 69 63 6f 6e 25 29 0d 20 80 23 77 69 6d 70 25 |,icon%). .#wimp%|
00005ee0 21 30 3d 77 69 6e 64 6f 77 25 20 3a 20 77 69 6d |!0=window% : wim|
00005ef0 70 25 21 34 3d 69 63 6f 6e 25 0d 20 8a 24 77 69 |p%!4=icon%. .$wi|
00005f00 6d 70 25 21 38 3d 31 3c 3c 32 32 20 20 20 3a 20 |mp%!8=1<<22 : |
00005f10 77 69 6d 70 25 21 31 32 3d 31 3c 3c 32 32 0d 20 |wimp%!12=1<<22. |
00005f20 94 21 c8 99 20 22 57 69 6d 70 5f 53 65 74 49 63 |.!.. "Wimp_SetIc|
00005f30 6f 6e 53 74 61 74 65 22 2c 2c 77 69 6d 70 25 0d |onState",,wimp%.|
00005f40 20 9e 05 e1 0d 20 a8 05 3a 0d 20 b2 25 dd 20 f2 | .... ..:. .%. .|
00005f50 57 69 6d 70 5f 49 63 6f 6e 45 6e 61 62 6c 65 28 |Wimp_IconEnable(|
00005f60 77 69 6e 64 6f 77 25 2c 69 63 6f 6e 25 29 0d 20 |window%,icon%). |
00005f70 bc 23 77 69 6d 70 25 21 30 3d 77 69 6e 64 6f 77 |.#wimp%!0=window|
00005f80 25 20 3a 20 77 69 6d 70 25 21 34 3d 69 63 6f 6e |% : wimp%!4=icon|
00005f90 25 0d 20 c6 24 77 69 6d 70 25 21 38 3d 30 20 20 |%. .$wimp%!8=0 |
00005fa0 20 20 20 20 20 3a 20 77 69 6d 70 25 21 31 32 3d | : wimp%!12=|
00005fb0 31 3c 3c 32 32 0d 20 d0 21 c8 99 20 22 57 69 6d |1<<22. .!.. "Wim|
00005fc0 70 5f 53 65 74 49 63 6f 6e 53 74 61 74 65 22 2c |p_SetIconState",|
00005fd0 2c 77 69 6d 70 25 0d 20 da 05 e1 0d 20 e4 05 3a |,wimp%. .... ..:|
00005fe0 0d 20 ee 30 dd 20 a4 57 69 6d 70 5f 49 63 6f 6e |. .0. .Wimp_Icon|
00005ff0 50 75 74 53 70 72 69 74 65 28 77 69 6e 64 6f 77 |PutSprite(window|
00006000 25 2c 69 63 6f 6e 25 2c 73 70 72 69 74 65 24 29 |%,icon%,sprite$)|
00006010 0d 20 f8 21 77 69 6d 70 25 21 30 3d 77 69 6e 64 |. .!wimp%!0=wind|
00006020 6f 77 25 3a 77 69 6d 70 25 21 34 3d 69 63 6f 6e |ow%:wimp%!4=icon|
00006030 25 0d 21 02 21 c8 99 20 22 57 69 6d 70 5f 47 65 |%.!.!.. "Wimp_Ge|
00006040 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 77 69 6d |tIconState",,wim|
00006050 70 25 0d 21 0c 1f c8 99 20 22 57 69 6d 70 5f 44 |p%.!.... "Wimp_D|
00006060 65 6c 65 74 65 49 63 6f 6e 22 2c 2c 77 69 6d 70 |eleteIcon",,wimp|
00006070 25 0d 21 16 3d 77 69 6d 70 25 21 34 3d 77 69 6d |%.!.=wimp%!4=wim|
00006080 70 25 21 38 20 20 20 3a 20 77 69 6d 70 25 21 38 |p%!8 : wimp%!8|
00006090 3d 77 69 6d 70 25 21 31 32 20 20 3a 20 77 69 6d |=wimp%!12 : wim|
000060a0 70 25 21 31 32 3d 77 69 6d 70 25 21 31 36 0d 21 |p%!12=wimp%!16.!|
000060b0 20 3f 77 69 6d 70 25 21 31 36 3d 77 69 6d 70 25 | ?wimp%!16=wimp%|
000060c0 21 32 30 20 3a 20 77 69 6d 70 25 21 32 30 3d 77 |!20 : wimp%!20=w|
000060d0 69 6d 70 25 21 32 34 20 3a 20 24 28 77 69 6d 70 |imp%!24 : $(wimp|
000060e0 25 2b 32 34 29 3d 73 70 72 69 74 65 24 0d 21 2a |%+24)=sprite$.!*|
000060f0 27 c8 99 20 22 57 69 6d 70 5f 43 72 65 61 74 65 |'.. "Wimp_Create|
00006100 49 63 6f 6e 22 2c 2c 77 69 6d 70 25 20 b8 20 69 |Icon",,wimp% . i|
00006110 63 6f 6e 25 0d 21 34 0a 3d 69 63 6f 6e 25 0d 21 |con%.!4.=icon%.!|
00006120 3e 05 3a 0d 21 48 2c dd 20 f2 57 69 6d 70 5f 49 |>.:.!H,. .Wimp_I|
00006130 63 6f 6e 50 75 74 54 65 78 74 28 77 69 6e 64 6f |conPutText(windo|
00006140 77 25 2c 69 63 6f 6e 25 2c 74 65 78 74 24 29 0d |w%,icon%,text$).|
00006150 21 52 23 77 69 6d 70 25 21 30 3d 77 69 6e 64 6f |!R#wimp%!0=windo|
00006160 77 25 20 3a 20 77 69 6d 70 25 21 34 3d 69 63 6f |w% : wimp%!4=ico|
00006170 6e 25 0d 21 5c 21 c8 99 20 22 57 69 6d 70 5f 47 |n%.!\!.. "Wimp_G|
00006180 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 77 69 |etIconState",,wi|
00006190 6d 70 25 0d 21 66 37 e7 20 28 28 77 69 6d 70 25 |mp%.!f7. ((wimp%|
000061a0 21 32 34 29 20 80 20 26 31 30 30 29 3d 30 20 85 |!24) . &100)=0 .|
000061b0 20 31 2c 22 49 63 6f 6e 20 69 73 6e 27 74 20 69 | 1,"Icon isn't i|
000061c0 6e 64 69 72 65 63 74 65 64 22 0d 21 70 15 24 28 |ndirected".!p.$(|
000061d0 77 69 6d 70 25 21 32 38 29 3d 74 65 78 74 24 0d |wimp%!28)=text$.|
000061e0 21 7a 23 77 69 6d 70 25 21 30 3d 77 69 6e 64 6f |!z#wimp%!0=windo|
000061f0 77 25 20 3a 20 77 69 6d 70 25 21 34 3d 69 63 6f |w% : wimp%!4=ico|
00006200 6e 25 0d 21 84 1a 77 69 6d 70 25 21 38 3d 30 20 |n%.!..wimp%!8=0 |
00006210 3a 20 77 69 6d 70 25 21 31 32 3d 30 0d 21 8e 21 |: wimp%!12=0.!.!|
00006220 c8 99 20 22 57 69 6d 70 5f 53 65 74 49 63 6f 6e |.. "Wimp_SetIcon|
00006230 53 74 61 74 65 22 2c 2c 77 69 6d 70 25 0d 21 98 |State",,wimp%.!.|
00006240 05 e1 0d 21 a2 05 3a 0d 21 ac 1e dd 20 f2 57 69 |...!..:.!... .Wi|
00006250 6d 70 5f 49 63 6f 6e 49 6e 74 65 72 66 61 63 65 |mp_IconInterface|
00006260 53 74 61 72 74 0d 21 b6 1e c8 99 22 57 69 6d 70 |Start.!...."Wimp|
00006270 5f 42 6f 72 64 65 72 49 63 6f 6e 22 2c 2c 77 69 |_BorderIcon",,wi|
00006280 6d 70 25 0d 21 c0 05 e1 0d 21 ca 05 3a 0d 21 d4 |mp%.!....!..:.!.|
00006290 1f dd 20 f2 57 69 6d 70 5f 49 63 6f 6e 49 6e 74 |.. .Wimp_IconInt|
000062a0 65 72 66 61 63 65 46 69 6e 69 73 68 0d 21 de 0d |erfaceFinish.!..|
000062b0 77 69 6d 70 25 21 38 3d 30 0d 21 e8 1e c8 99 22 |wimp%!8=0.!...."|
000062c0 57 69 6d 70 5f 42 6f 72 64 65 72 49 63 6f 6e 22 |Wimp_BorderIcon"|
000062d0 2c 2c 77 69 6d 70 25 0d 21 f2 05 e1 0d 21 fc 05 |,,wimp%.!....!..|
000062e0 3a 0d 22 06 4a f4 20 2a 2a 2a 2a 2a 2a 2a 2a 2a |:.".J. *********|
000062f0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00006320 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 22 10 05 3a |***********."..:|
00006330 0d 22 1a 1f dd 20 f2 57 69 6d 70 5f 4d 65 6e 75 |."... .Wimp_Menu|
00006340 41 64 6a 75 73 74 4f 6e 28 6d 65 6e 75 25 29 0d |AdjustOn(menu%).|
00006350 22 24 2c c8 99 20 22 57 69 6d 70 5f 47 65 74 50 |"$,.. "Wimp_GetP|
00006360 6f 69 6e 74 65 72 49 6e 66 6f 22 2c 2c 70 6f 69 |ointerInfo",,poi|
00006370 6e 74 65 72 5f 62 6c 6f 63 6b 25 0d 22 2e 5e e7 |nter_block%.".^.|
00006380 20 28 28 70 6f 69 6e 74 65 72 5f 62 6c 6f 63 6b | ((pointer_block|
00006390 25 21 38 29 80 31 29 3d 31 20 8c 20 c8 99 20 22 |%!8).1)=1 . .. "|
000063a0 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 |Wimp_CreateMenu"|
000063b0 2c 2c 6d 65 6e 75 25 2c 70 6f 69 6e 74 65 72 5f |,,menu%,pointer_|
000063c0 62 6c 6f 63 6b 25 21 30 2c 70 6f 69 6e 74 65 72 |block%!0,pointer|
000063d0 5f 62 6c 6f 63 6b 25 21 34 0d 22 38 05 e1 0d 22 |_block%!4."8..."|
000063e0 42 05 3a 0d 22 4c 1e dd 20 a4 57 69 6d 70 5f 4d |B.:."L.. .Wimp_M|
000063f0 65 6e 75 43 68 6f 69 63 65 28 6c 65 76 65 6c 25 |enuChoice(level%|
00006400 29 0d 22 56 19 3d 28 77 69 6d 70 25 21 28 34 2a |)."V.=(wimp%!(4*|
00006410 6c 65 76 65 6c 25 29 29 2b 31 0d 22 60 05 3a 0d |level%))+1."`.:.|
00006420 22 6a 1d dd 20 a4 57 69 6d 70 5f 4d 65 6e 75 43 |"j.. .Wimp_MenuC|
00006430 72 65 61 74 65 28 6d 65 6e 75 24 29 0d 22 74 29 |reate(menu$)."t)|
00006440 e7 20 6d 65 6e 75 24 3d 22 43 6f 6c 6f 75 72 73 |. menu$="Colours|
00006450 22 20 8c 3d a4 57 69 6d 70 5f 4d 65 6e 75 43 6f |" .=.Wimp_MenuCo|
00006460 6c 6f 75 72 73 0d 22 7e 27 ea 20 6d 65 6e 75 25 |lours."~'. menu%|
00006470 2c 69 6e 64 65 78 25 2c 77 69 64 74 68 25 2c 6c |,index%,width%,l|
00006480 65 6e 67 74 68 25 2c 6b 25 2c 73 25 0d 22 88 2e |ength%,k%,s%."..|
00006490 de 20 6d 65 6e 75 25 20 32 38 2b a4 57 69 6d 70 |. menu% 28+.Wimp|
000064a0 5f 4d 65 6e 75 4e 6f 4f 66 45 6e 74 72 69 65 73 |_MenuNoOfEntries|
000064b0 28 6d 65 6e 75 24 29 2a 32 34 0d 22 92 37 6d 65 |(menu$)*24.".7me|
000064c0 6e 75 25 3f 31 32 3d 37 20 20 20 3a 20 6d 65 6e |nu%?12=7 : men|
000064d0 75 25 3f 31 33 3d 32 20 20 3a 20 6d 65 6e 75 25 |u%?13=2 : menu%|
000064e0 3f 31 34 3d 37 20 3a 6d 65 6e 75 25 3f 31 35 3d |?14=7 :menu%?15=|
000064f0 30 0d 22 9c 2b 6d 65 6e 75 25 21 31 36 3d 31 34 |0.".+menu%!16=14|
00006500 30 20 3a 20 6d 65 6e 75 25 21 32 30 3d 34 34 20 |0 : menu%!20=44 |
00006510 3a 20 6d 65 6e 75 25 21 32 34 3d 30 0d 22 a6 13 |: menu%!24=0."..|
00006520 69 6e 64 65 78 25 3d 6d 65 6e 75 25 2b 32 38 0d |index%=menu%+28.|
00006530 22 b0 20 24 6d 65 6e 75 25 3d c0 6d 65 6e 75 24 |". $menu%=.menu$|
00006540 2c a7 6d 65 6e 75 24 2c 22 5c 22 29 2d 31 29 0d |,.menu$,"\")-1).|
00006550 22 ba 23 77 69 64 74 68 25 3d a9 28 c0 6d 65 6e |".#width%=.(.men|
00006560 75 24 2c a7 6d 65 6e 75 24 2c 22 5c 22 29 2d 31 |u$,.menu$,"\")-1|
00006570 29 29 0d 22 c4 24 6d 65 6e 75 24 2b 3d 22 5c 22 |)).".$menu$+="\"|
00006580 20 3a 20 4d 65 6e 75 5f 4e 6f 4f 66 45 6e 74 72 | : Menu_NoOfEntr|
00006590 69 65 73 25 3d 30 0d 22 ce 10 c8 95 20 6d 65 6e |ies%=0.".... men|
000065a0 75 24 3c 3e 22 22 0d 22 d8 1f 6d 65 6e 75 24 3d |u$<>""."..menu$=|
000065b0 c1 6d 65 6e 75 24 2c a7 6d 65 6e 75 24 2c 22 5c |.menu$,.menu$,"\|
000065c0 22 29 2b 31 29 0d 22 e2 0e c8 8e 20 6d 65 6e 75 |")+1).".... menu|
000065d0 24 20 ca 0d 22 ec 09 20 c9 20 22 22 0d 22 f6 08 |$ ..".. . ""."..|
000065e0 20 7f 20 3a 0d 23 00 31 20 20 21 69 6e 64 65 78 | . :.#.1 !index|
000065f0 25 3d 30 20 3a 20 69 6e 64 65 78 25 21 34 3d 2d |%=0 : index%!4=-|
00006600 31 20 3a 20 69 6e 64 65 78 25 21 38 3d 26 37 30 |1 : index%!8=&70|
00006610 30 30 30 32 31 0d 23 0a 1b 20 20 6c 65 6e 67 74 |00021.#.. lengt|
00006620 68 25 3d a7 6d 65 6e 75 24 2c 22 5c 22 29 2d 31 |h%=.menu$,"\")-1|
00006630 0d 23 14 1e 20 20 6b 25 3d a7 c0 6d 65 6e 75 24 |.#.. k%=..menu$|
00006640 2c 6c 65 6e 67 74 68 25 29 2c 22 3e 22 29 0d 23 |,length%),">").#|
00006650 1e 0d 20 20 c8 8e 20 6b 25 20 ca 0d 23 28 0a 20 |.. .. k% ..#(. |
00006660 20 20 c9 20 30 0d 23 32 08 20 20 20 7f 0d 23 3c | . 0.#2. ..#<|
00006670 25 20 20 20 20 73 25 3d a0 28 c1 6d 65 6e 75 24 |% s%=.(.menu$|
00006680 2c 6b 25 2b 31 2c 6c 65 6e 67 74 68 25 2d 6b 25 |,k%+1,length%-k%|
00006690 29 29 0d 23 46 13 20 20 20 20 69 6e 64 65 78 25 |)).#F. index%|
000066a0 21 34 3d 73 25 0d 23 50 14 20 20 20 20 6c 65 6e |!4=s%.#P. len|
000066b0 67 74 68 25 3d 6b 25 2d 31 0d 23 5a 07 20 20 cb |gth%=k%-1.#Z. .|
000066c0 0d 23 64 22 20 20 24 28 69 6e 64 65 78 25 2b 31 |.#d" $(index%+1|
000066d0 32 29 3d c0 6d 65 6e 75 24 2c 6c 65 6e 67 74 68 |2)=.menu$,length|
000066e0 25 29 0d 23 6e 27 20 20 e7 20 6c 65 6e 67 74 68 |%).#n' . length|
000066f0 25 3e 77 69 64 74 68 25 20 8c 20 77 69 64 74 68 |%>width% . width|
00006700 25 3d 6c 65 6e 67 74 68 25 0d 23 78 10 20 20 69 |%=length%.#x. i|
00006710 6e 64 65 78 25 2b 3d 32 34 0d 23 82 05 cb 0d 23 |ndex%+=24.#....#|
00006720 8c 05 ce 0d 23 96 1a 6d 65 6e 75 25 21 31 36 3d |....#..menu%!16=|
00006730 31 36 2a 28 77 69 64 74 68 25 2b 31 29 0d 23 a0 |16*(width%+1).#.|
00006740 28 69 6e 64 65 78 25 21 2d 32 34 3d 69 6e 64 65 |(index%!-24=inde|
00006750 78 25 21 2d 32 34 20 84 20 26 38 30 20 3a 20 3d |x%!-24 . &80 : =|
00006760 6d 65 6e 75 25 0d 23 aa 05 3a 0d 23 b4 17 dd 20 |menu%.#..:.#... |
00006770 a4 57 69 6d 70 5f 4d 65 6e 75 43 6f 6c 6f 75 72 |.Wimp_MenuColour|
00006780 73 0d 23 be 21 3d a4 57 69 6d 70 5f 4d 65 6e 75 |s.#.!=.Wimp_Menu|
00006790 43 72 65 61 74 65 43 6f 6c 6f 75 72 73 28 22 20 |CreateColours(" |
000067a0 22 29 0d 23 c8 05 3a 0d 23 d2 25 dd 20 a4 57 69 |").#..:.#.%. .Wi|
000067b0 6d 70 5f 4d 65 6e 75 43 72 65 61 74 65 43 6f 6c |mp_MenuCreateCol|
000067c0 6f 75 72 73 28 74 69 74 6c 65 24 29 0d 23 dc 13 |ours(title$).#..|
000067d0 ea 20 78 24 2c 6d 65 6e 25 2c 6a 25 2c 69 25 0d |. x$,men%,j%,i%.|
000067e0 23 e6 36 78 24 3d 74 69 74 6c 65 24 2b 22 5c 30 |#.6x$=title$+"\0|
000067f0 5c 31 5c 32 5c 33 5c 34 5c 35 5c 36 5c 37 5c 38 |\1\2\3\4\5\6\7\8|
00006800 5c 39 5c 31 30 5c 31 31 5c 31 32 5c 31 33 5c 31 |\9\10\11\12\13\1|
00006810 34 5c 31 35 22 0d 23 f0 1d 6d 65 6e 25 3d a4 57 |4\15".#..men%=.W|
00006820 69 6d 70 5f 4d 65 6e 75 43 72 65 61 74 65 28 78 |imp_MenuCreate(x|
00006830 24 29 0d 23 fa 0f e3 20 69 25 3d 30 20 b8 20 31 |$).#... i%=0 . 1|
00006840 35 0d 24 04 0a c8 8e 20 b9 20 ca 0d 24 0e 28 c9 |5.$.... . ..$.(.|
00006850 20 69 25 3c 34 2c 69 25 3d 39 2c 69 25 3d 31 32 | i%<4,i%=9,i%=12|
00006860 2c 69 25 3d 31 34 2c 69 25 3d 31 35 20 3a 20 6a |,i%=14,i%=15 : j|
00006870 25 3d 37 0d 24 18 0c 7f 20 3a 20 6a 25 3d 30 0d |%=7.$... : j%=0.|
00006880 24 22 05 cb 0d 24 2c 1c 6d 65 6e 25 3f 28 33 39 |$"...$,.men%?(39|
00006890 2b 69 25 2a 32 34 29 3d 69 25 2a 31 36 2b 6a 25 |+i%*24)=i%*16+j%|
000068a0 0d 24 36 1f f2 57 69 6d 70 5f 4d 65 6e 75 43 65 |.$6..Wimp_MenuCe|
000068b0 6e 74 72 65 28 6d 65 6e 25 2c 69 25 2b 31 29 0d |ntre(men%,i%+1).|
000068c0 24 40 05 ed 0d 24 4a 09 3d 6d 65 6e 25 0d 24 54 |$@...$J.=men%.$T|
000068d0 05 3a 0d 24 5e 22 dd 20 a4 57 69 6d 70 5f 4d 65 |.:.$^". .Wimp_Me|
000068e0 6e 75 4e 6f 4f 66 45 6e 74 72 69 65 73 28 6d 65 |nuNoOfEntries(me|
000068f0 6e 75 24 29 0d 24 68 1a ea 20 6e 25 20 2c 6a 25 |nu$).$h.. n% ,j%|
00006900 20 3a 20 6e 25 3d 30 20 3a 20 6a 25 3d 30 0d 24 | : n%=0 : j%=0.$|
00006910 72 05 f5 0d 24 7c 17 6a 25 3d a7 6d 65 6e 75 24 |r...$|.j%=.menu$|
00006920 2c 22 5c 22 2c 6a 25 2b 31 29 0d 24 86 13 e7 20 |,"\",j%+1).$... |
00006930 6a 25 3c 3e 30 20 8c 20 6e 25 2b 3d 31 0d 24 90 |j%<>0 . n%+=1.$.|
00006940 0a fd 20 6a 25 3d 30 0d 24 9a 07 3d 6e 25 0d 24 |.. j%=0.$..=n%.$|
00006950 a4 05 3a 0d 24 ae 35 dd 20 f2 57 69 6d 70 5f 4d |..:.$.5. .Wimp_M|
00006960 65 6e 75 42 61 63 6b 47 72 6f 75 6e 64 43 6f 6c |enuBackGroundCol|
00006970 6f 75 72 28 6d 65 6e 75 25 2c 69 74 65 6d 25 2c |our(menu%,item%,|
00006980 63 6f 6c 6f 75 72 25 29 0d 24 b8 0e ea 20 66 6f |colour%).$... fo|
00006990 72 65 25 2c 69 25 0d 24 c2 26 66 6f 72 65 25 3d |re%,i%.$.&fore%=|
000069a0 28 6d 65 6e 75 25 3f 28 33 39 2b 28 69 74 65 6d |(menu%?(39+(item|
000069b0 25 2d 31 29 2a 32 34 29 29 83 31 36 0d 24 cc 28 |%-1)*24)).16.$.(|
000069c0 69 25 3d 28 28 6d 65 6e 75 25 3f 28 33 39 2b 28 |i%=((menu%?(39+(|
000069d0 69 74 65 6d 25 2d 31 29 2a 32 34 29 29 81 31 36 |item%-1)*24)).16|
000069e0 29 83 31 36 0d 24 d6 2f 6d 65 6e 75 25 3f 28 33 |).16.$./menu%?(3|
000069f0 39 2b 28 69 74 65 6d 25 2d 31 29 2a 32 34 29 3d |9+(item%-1)*24)=|
00006a00 66 6f 72 65 25 2b 31 36 2a 63 6f 6c 6f 75 72 25 |fore%+16*colour%|
00006a10 2b 69 25 0d 24 e0 05 e1 0d 24 ea 05 3a 0d 24 f4 |+i%.$....$..:.$.|
00006a20 37 dd 20 f2 57 69 6d 70 5f 49 63 6f 6e 42 61 63 |7. .Wimp_IconBac|
00006a30 6b 47 72 6f 75 6e 64 43 6f 6c 6f 75 72 28 77 69 |kGroundColour(wi|
00006a40 6e 64 6f 77 25 2c 69 63 6f 6e 25 2c 63 6f 6c 6f |ndow%,icon%,colo|
00006a50 75 72 25 29 0d 24 fe 0e ea 20 66 6f 72 65 25 2c |ur%).$... fore%,|
00006a60 69 25 0d 25 08 28 66 6f 72 65 25 3d 28 77 69 6e |i%.%.(fore%=(win|
00006a70 64 6f 77 25 3f 28 33 39 2b 28 69 63 6f 6e 25 2d |dow%?(39+(icon%-|
00006a80 31 29 2a 32 34 29 29 83 31 36 0d 25 12 2a 69 25 |1)*24)).16.%.*i%|
00006a90 3d 28 28 77 69 6e 64 6f 77 25 3f 28 33 39 2b 28 |=((window%?(39+(|
00006aa0 69 63 6f 6e 25 2d 31 29 2a 32 34 29 29 81 31 36 |icon%-1)*24)).16|
00006ab0 29 83 31 36 0d 25 1c 31 77 69 6e 64 6f 77 25 3f |).16.%.1window%?|
00006ac0 28 33 39 2b 28 69 63 6f 6e 25 2d 31 29 2a 32 34 |(39+(icon%-1)*24|
00006ad0 29 3d 66 6f 72 65 25 2b 31 36 2a 63 6f 6c 6f 75 |)=fore%+16*colou|
00006ae0 72 25 2b 69 25 0d 25 26 05 e1 0d 25 30 05 3a 0d |r%+i%.%&...%0.:.|
00006af0 25 3a 23 dd 20 f2 57 69 6d 70 5f 4d 65 6e 75 43 |%:#. .Wimp_MenuC|
00006b00 65 6e 74 72 65 28 6d 65 6e 75 25 2c 69 74 65 6d |entre(menu%,item|
00006b10 25 29 0d 25 44 3a 6d 65 6e 75 25 21 28 33 36 2b |%).%D:menu%!(36+|
00006b20 28 69 74 65 6d 25 2d 31 29 2a 32 34 29 3d 6d 65 |(item%-1)*24)=me|
00006b30 6e 75 25 21 28 33 36 2b 28 69 74 65 6d 25 2d 31 |nu%!(36+(item%-1|
00006b40 29 2a 32 34 29 84 28 31 3c 3c 33 29 0d 25 4e 05 |)*24).(1<<3).%N.|
00006b50 e1 0d 25 58 05 3a 0d 25 62 15 dd 20 f2 57 69 6d |..%X.:.%b.. .Wim|
00006b60 70 5f 4d 65 6e 75 43 6c 6f 73 65 0d 25 6c 1b c8 |p_MenuClose.%l..|
00006b70 99 20 22 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 |. "Wimp_CreateMe|
00006b80 6e 75 22 2c 2d 31 0d 25 76 05 e1 0d 25 80 05 3a |nu",-1.%v...%..:|
00006b90 0d 25 8a 24 dd 20 f2 57 69 6d 70 5f 4d 65 6e 75 |.%.$. .Wimp_Menu|
00006ba0 44 69 73 61 62 6c 65 28 6d 65 6e 75 25 2c 69 74 |Disable(menu%,it|
00006bb0 65 6d 25 29 0d 25 94 3b 6d 65 6e 75 25 21 28 33 |em%).%.;menu%!(3|
00006bc0 36 2b 28 69 74 65 6d 25 2d 31 29 2a 32 34 29 3d |6+(item%-1)*24)=|
00006bd0 6d 65 6e 75 25 21 28 33 36 2b 28 69 74 65 6d 25 |menu%!(36+(item%|
00006be0 2d 31 29 2a 32 34 29 84 28 31 3c 3c 32 32 29 0d |-1)*24).(1<<22).|
00006bf0 25 9e 05 e1 0d 25 a8 05 3a 0d 25 b2 27 dd 20 f2 |%....%..:.%.'. .|
00006c00 57 69 6d 70 5f 4d 65 6e 75 44 6f 74 74 65 64 4c |Wimp_MenuDottedL|
00006c10 69 6e 65 28 6d 65 6e 75 25 2c 69 74 65 6d 25 29 |ine(menu%,item%)|
00006c20 0d 25 bc 37 6d 65 6e 75 25 21 28 32 38 2b 28 69 |.%.7menu%!(28+(i|
00006c30 74 65 6d 25 2d 31 29 2a 32 34 29 3d 28 6d 65 6e |tem%-1)*24)=(men|
00006c40 75 25 21 28 32 38 2b 28 69 74 65 6d 25 2d 31 29 |u%!(28+(item%-1)|
00006c50 2a 32 34 29 29 84 32 0d 25 c6 05 e1 0d 25 d0 05 |*24)).2.%....%..|
00006c60 3a 0d 25 da 23 dd 20 f2 57 69 6d 70 5f 4d 65 6e |:.%.#. .Wimp_Men|
00006c70 75 45 6e 61 62 6c 65 28 6d 65 6e 75 25 2c 69 74 |uEnable(menu%,it|
00006c80 65 6d 25 29 0d 25 e4 22 f2 57 69 6d 70 5f 4d 65 |em%).%.".Wimp_Me|
00006c90 6e 75 44 69 73 61 62 6c 65 28 6d 65 6e 75 25 2c |nuDisable(menu%,|
00006ca0 69 74 65 6d 25 29 0d 25 ee 3b 6d 65 6e 75 25 21 |item%).%.;menu%!|
00006cb0 28 33 36 2b 28 69 74 65 6d 25 2d 31 29 2a 32 34 |(36+(item%-1)*24|
00006cc0 29 3d 6d 65 6e 75 25 21 28 33 36 2b 28 69 74 65 |)=menu%!(36+(ite|
00006cd0 6d 25 2d 31 29 2a 32 34 29 82 28 31 3c 3c 32 32 |m%-1)*24).(1<<22|
00006ce0 29 0d 25 f8 05 e1 0d 26 02 05 3a 0d 26 0c 35 dd |).%....&..:.&.5.|
00006cf0 20 f2 57 69 6d 70 5f 4d 65 6e 75 46 6f 72 65 67 | .Wimp_MenuForeg|
00006d00 72 6f 75 6e 64 43 6f 6c 6f 75 72 28 6d 65 6e 75 |roundColour(menu|
00006d10 25 2c 69 74 65 6d 25 2c 63 6f 6c 6f 75 72 25 29 |%,item%,colour%)|
00006d20 0d 26 16 45 6d 65 6e 75 25 3f 28 33 39 2b 28 69 |.&.Emenu%?(39+(i|
00006d30 74 65 6d 25 2d 31 29 2a 32 34 29 3d 63 6f 6c 6f |tem%-1)*24)=colo|
00006d40 75 72 25 2b 31 36 2a 28 28 6d 65 6e 75 25 3f 28 |ur%+16*((menu%?(|
00006d50 33 39 2b 28 69 74 65 6d 25 2d 31 29 2a 32 34 29 |39+(item%-1)*24)|
00006d60 29 81 31 36 29 0d 26 20 05 e1 0d 26 2a 05 3a 0d |).16).& ...&*.:.|
00006d70 26 34 29 dd 20 f2 57 69 6d 70 5f 4d 65 6e 75 47 |&4). .Wimp_MenuG|
00006d80 6c 75 65 28 6d 65 6e 75 31 25 2c 69 74 65 6d 25 |lue(menu1%,item%|
00006d90 2c 6d 65 6e 75 32 25 29 0d 26 3e 1e 6d 65 6e 75 |,menu2%).&>.menu|
00006da0 31 25 21 28 38 2b 69 74 65 6d 25 2a 32 34 29 3d |1%!(8+item%*24)=|
00006db0 6d 65 6e 75 32 25 0d 26 48 05 e1 0d 26 52 05 3a |menu2%.&H...&R.:|
00006dc0 0d 26 5c 27 dd 20 f2 57 69 6d 70 5f 4d 65 6e 75 |.&\'. .Wimp_Menu|
00006dd0 49 74 65 6d 28 6d 65 6e 75 25 2c 69 74 65 6d 25 |Item(menu%,item%|
00006de0 2c 69 74 65 6d 24 29 0d 26 66 2c 24 28 6d 65 6e |,item$).&f,$(men|
00006df0 75 25 2b 28 34 30 2b 28 69 74 65 6d 25 2d 31 29 |u%+(40+(item%-1)|
00006e00 2a 32 34 29 29 3d c0 69 74 65 6d 24 2c 31 32 29 |*24))=.item$,12)|
00006e10 2b bd 30 0d 26 70 05 e1 0d 26 7a 05 3a 0d 26 84 |+.0.&p...&z.:.&.|
00006e20 24 dd 20 f2 57 69 6d 70 5f 4d 65 6e 75 4d 65 73 |$. .Wimp_MenuMes|
00006e30 73 61 67 65 28 6d 65 6e 75 25 2c 69 74 65 6d 25 |sage(menu%,item%|
00006e40 29 0d 26 8e 3c 6d 65 6e 75 25 21 28 32 38 2b 28 |).&.<menu%!(28+(|
00006e50 69 74 65 6d 25 2d 31 29 2a 32 34 29 3d 28 6d 65 |item%-1)*24)=(me|
00006e60 6e 75 25 21 28 32 38 2b 28 69 74 65 6d 25 2d 31 |nu%!(28+(item%-1|
00006e70 29 2a 32 34 29 29 82 28 31 3c 3c 33 29 0d 26 98 |)*24)).(1<<3).&.|
00006e80 05 e1 0d 26 a2 05 3a 0d 26 ac 22 dd 20 f2 57 69 |...&..:.&.". .Wi|
00006e90 6d 70 5f 4d 65 6e 75 50 6f 70 55 70 28 4d 65 6e |mp_MenuPopUp(Men|
00006ea0 75 25 2c 78 25 2c 79 25 29 0d 26 b6 0d e7 20 53 |u%,x%,y%).&... S|
00006eb0 41 25 3d a3 20 8c 0d 26 c0 0f 6d 65 6e 75 25 3d |A%=. ..&..menu%=|
00006ec0 4d 65 6e 75 25 0d 26 ca 2b c8 99 20 22 57 69 6d |Menu%.&.+.. "Wim|
00006ed0 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c 2c 6d |p_CreateMenu",,m|
00006ee0 65 6e 75 25 2c 78 25 2d 36 34 2c 79 25 2b 32 30 |enu%,x%-64,y%+20|
00006ef0 0d 26 d4 05 cd 0d 26 de 05 e1 0d 26 e8 05 3a 0d |.&....&....&..:.|
00006f00 26 f2 1f dd 20 f2 57 69 6d 70 5f 4d 65 6e 75 50 |&... .Wimp_MenuP|
00006f10 6f 70 55 70 42 61 72 28 78 25 2c 79 25 29 0d 26 |opUpBar(x%,y%).&|
00006f20 fc 0f ea 20 6e 25 20 3a 20 6e 25 3d 30 0d 27 06 |... n% : n%=0.'.|
00006f30 2b c8 95 20 28 28 42 61 72 5f 4d 65 6e 75 25 21 |+.. ((Bar_Menu%!|
00006f40 28 32 38 2b 6e 25 2a 32 34 29 29 80 25 31 30 30 |(28+n%*24)).%100|
00006f50 30 30 30 30 30 29 3d 30 0d 27 10 09 6e 25 2b 3d |00000)=0.'..n%+=|
00006f60 31 0d 27 1a 05 ce 0d 27 24 32 c8 99 20 22 57 69 |1.'....'$2.. "Wi|
00006f70 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c 2c |mp_CreateMenu",,|
00006f80 42 61 72 5f 4d 65 6e 75 25 2c 78 25 2d 36 34 2c |Bar_Menu%,x%-64,|
00006f90 39 36 2b 6e 25 2a 34 34 0d 27 2e 13 6d 65 6e 75 |96+n%*44.'..menu|
00006fa0 25 3d 42 61 72 5f 4d 65 6e 75 25 0d 27 38 05 e1 |%=Bar_Menu%.'8..|
00006fb0 0d 27 42 05 3a 0d 27 4c 21 dd 20 f2 57 69 6d 70 |.'B.:.'L!. .Wimp|
00006fc0 5f 4d 65 6e 75 54 69 63 6b 28 6d 65 6e 75 25 2c |_MenuTick(menu%,|
00006fd0 69 74 65 6d 25 29 0d 27 56 37 6d 65 6e 75 25 21 |item%).'V7menu%!|
00006fe0 28 32 38 2b 28 69 74 65 6d 25 2d 31 29 2a 32 34 |(28+(item%-1)*24|
00006ff0 29 3d 28 6d 65 6e 75 25 21 28 32 38 2b 28 69 74 |)=(menu%!(28+(it|
00007000 65 6d 25 2d 31 29 2a 32 34 29 29 82 31 0d 27 60 |em%-1)*24)).1.'`|
00007010 05 e1 0d 27 6a 05 3a 0d 27 74 23 dd 20 f2 57 69 |...'j.:.'t#. .Wi|
00007020 6d 70 5f 4d 65 6e 75 54 69 74 6c 65 28 6d 65 6e |mp_MenuTitle(men|
00007030 75 25 2c 74 69 74 6c 65 24 29 0d 27 7e 19 24 6d |u%,title$).'~.$m|
00007040 65 6e 75 25 3d c0 74 69 74 6c 65 24 2c 31 32 29 |enu%=.title$,12)|
00007050 2b bd 30 0d 27 88 05 e1 0d 27 92 05 3a 0d 27 9c |+.0.'....'..:.'.|
00007060 3d dd 20 f2 57 69 6d 70 5f 4d 65 6e 75 57 72 69 |=. .Wimp_MenuWri|
00007070 74 65 28 6d 65 6e 75 25 2c 69 74 65 6d 25 2c 62 |te(menu%,item%,b|
00007080 75 66 66 65 72 25 2c 76 61 6c 25 2c 42 75 66 66 |uffer%,val%,Buff|
00007090 65 72 4c 65 6e 67 74 68 25 29 0d 27 a6 37 6d 65 |erLength%).'.7me|
000070a0 6e 75 25 21 28 32 38 2b 28 69 74 65 6d 25 2d 31 |nu%!(28+(item%-1|
000070b0 29 2a 32 34 29 3d 28 6d 65 6e 75 25 21 28 32 38 |)*24)=(menu%!(28|
000070c0 2b 28 69 74 65 6d 25 2d 31 29 2a 32 34 29 29 84 |+(item%-1)*24)).|
000070d0 34 0d 27 b0 38 6d 65 6e 75 25 21 28 33 36 2b 28 |4.'.8menu%!(36+(|
000070e0 69 74 65 6d 25 2d 31 29 2a 32 34 29 3d 6d 65 6e |item%-1)*24)=men|
000070f0 75 25 21 28 33 36 2b 28 69 74 65 6d 25 2d 31 29 |u%!(36+(item%-1)|
00007100 2a 32 34 29 84 26 31 30 30 0d 27 ba 23 6d 65 6e |*24).&100.'.#men|
00007110 75 25 21 28 34 30 2b 28 69 74 65 6d 25 2d 31 29 |u%!(40+(item%-1)|
00007120 2a 32 34 29 3d 62 75 66 66 65 72 25 0d 27 c4 20 |*24)=buffer%.'. |
00007130 6d 65 6e 75 25 21 28 34 34 2b 28 69 74 65 6d 25 |menu%!(44+(item%|
00007140 2d 31 29 2a 32 34 29 3d 76 61 6c 25 0d 27 ce 29 |-1)*24)=val%.'.)|
00007150 6d 65 6e 75 25 21 28 34 38 2b 28 69 74 65 6d 25 |menu%!(48+(item%|
00007160 2d 31 29 2a 32 34 29 3d 42 75 66 66 65 72 4c 65 |-1)*24)=BufferLe|
00007170 6e 67 74 68 25 0d 27 d8 05 e1 0d 27 e2 05 3a 0d |ngth%.'....'..:.|
00007180 27 ec 4a f4 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |'.J. ***********|
00007190 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
000071c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 27 f6 05 3a 0d 28 |*********.'..:.(|
000071d0 00 25 dd 20 f2 57 69 6d 70 5f 53 65 6c 65 63 74 |.%. .Wimp_Select|
000071e0 49 63 6f 6e 28 77 69 6e 64 6f 77 25 2c 69 63 6f |Icon(window%,ico|
000071f0 6e 25 29 0d 28 0a 13 77 69 6d 70 25 21 30 3d 77 |n%).(..wimp%!0=w|
00007200 69 6e 64 6f 77 25 0d 28 14 11 77 69 6d 70 25 21 |indow%.(..wimp%!|
00007210 34 3d 69 63 6f 6e 25 0d 28 1e 23 77 69 6d 70 25 |4=icon%.(.#wimp%|
00007220 21 38 3d 25 31 30 30 30 30 30 30 30 30 30 30 30 |!8=%100000000000|
00007230 30 30 30 30 30 30 30 30 30 30 0d 28 28 24 77 69 |0000000000.(($wi|
00007240 6d 70 25 21 31 32 3d 25 31 30 30 30 30 30 30 30 |mp%!12=%10000000|
00007250 30 30 30 30 30 30 30 30 30 30 30 30 30 30 0d 28 |00000000000000.(|
00007260 32 13 c8 99 26 34 30 30 43 44 2c 2c 77 69 6d 70 |2...&400CD,,wimp|
00007270 25 0d 28 3c 05 e1 0d 28 46 05 3a 0d 28 50 27 dd |%.(<...(F.:.(P'.|
00007280 20 f2 57 69 6d 70 5f 55 6e 73 65 6c 65 63 74 49 | .Wimp_UnselectI|
00007290 63 6f 6e 28 77 69 6e 64 6f 77 25 2c 69 63 6f 6e |con(window%,icon|
000072a0 25 29 0d 28 5a 13 77 69 6d 70 25 21 30 3d 77 69 |%).(Z.wimp%!0=wi|
000072b0 6e 64 6f 77 25 0d 28 64 11 77 69 6d 70 25 21 34 |ndow%.(d.wimp%!4|
000072c0 3d 69 63 6f 6e 25 0d 28 6e 0d 77 69 6d 70 25 21 |=icon%.(n.wimp%!|
000072d0 38 3d 30 0d 28 78 24 77 69 6d 70 25 21 31 32 3d |8=0.(x$wimp%!12=|
000072e0 25 31 30 30 30 30 30 30 30 30 30 30 30 30 30 30 |%100000000000000|
000072f0 30 30 30 30 30 30 30 0d 28 82 13 c8 99 26 34 30 |0000000.(....&40|
00007300 30 43 44 2c 2c 77 69 6d 70 25 0d 28 8c 05 e1 0d |0CD,,wimp%.(....|
00007310 28 96 05 3a 0d 28 a0 17 dd 20 f2 57 69 6d 70 5f |(..:.(... .Wimp_|
00007320 53 70 72 69 74 65 73 4c 6f 61 64 0d 28 aa 2f f2 |SpritesLoad.(./.|
00007330 57 69 6d 70 5f 53 70 72 69 74 65 73 50 61 74 68 |Wimp_SpritesPath|
00007340 4c 6f 61 64 28 22 3c 4f 62 65 79 24 44 69 72 3e |Load("<Obey$Dir>|
00007350 2e 53 70 72 69 74 65 73 22 29 0d 28 b4 1c 64 69 |.Sprites").(..di|
00007360 72 65 63 74 5f 73 70 72 69 74 65 73 25 3d 73 70 |rect_sprites%=sp|
00007370 72 69 74 65 73 25 0d 28 be 05 e1 0d 28 c8 05 3a |rites%.(....(..:|
00007380 0d 28 d2 26 dd 20 f2 57 69 6d 70 5f 53 70 72 69 |.(.&. .Wimp_Spri|
00007390 74 65 73 50 61 74 68 4c 6f 61 64 28 70 61 74 68 |tesPathLoad(path|
000073a0 6e 61 6d 65 24 29 0d 28 dc 0a ea 53 25 2c 54 25 |name$).(...S%,T%|
000073b0 0d 28 e6 2c 53 25 3d 8e 22 3c 4f 62 65 79 24 44 |.(.,S%=."<Obey$D|
000073c0 69 72 3e 2e 53 70 72 69 74 65 73 22 3a 54 25 3d |ir>.Sprites":T%=|
000073d0 a2 23 53 25 2b 31 36 3a d9 23 53 25 0d 28 f0 19 |.#S%+16:.#S%.(..|
000073e0 de 73 70 72 69 74 65 73 25 54 25 2c 73 70 6e 61 |.sprites%T%,spna|
000073f0 6d 65 25 31 32 0d 28 fa 1d 21 73 70 72 69 74 65 |me%12.(..!sprite|
00007400 73 25 3d 54 25 3a 73 70 72 69 74 65 73 25 21 38 |s%=T%:sprites%!8|
00007410 3d 30 0d 29 04 21 c8 99 22 4f 53 5f 53 70 72 69 |=0.).!.."OS_Spri|
00007420 74 65 4f 70 22 2c 26 31 30 39 2c 73 70 72 69 74 |teOp",&109,sprit|
00007430 65 73 25 0d 29 0e 2b c8 99 22 4f 53 5f 53 70 72 |es%.).+.."OS_Spr|
00007440 69 74 65 4f 70 22 2c 26 31 30 41 2c 73 70 72 69 |iteOp",&10A,spri|
00007450 74 65 73 25 2c 70 61 74 68 6e 61 6d 65 24 0d 29 |tes%,pathname$.)|
00007460 18 05 e1 0d 29 22 05 3a 0d 29 2c 4a f4 20 2a 2a |....)".:.),J. **|
00007470 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
000074b0 2a 2a 0d 29 36 05 3a 0d 29 40 1b dd 20 a4 57 69 |**.)6.:.)@.. .Wi|
000074c0 6d 70 5f 46 69 6c 65 54 79 70 65 28 74 79 70 65 |mp_FileType(type|
000074d0 25 29 0d 29 4a 0c c8 8e 74 79 70 65 25 ca 0d 29 |%).)J...type%..)|
000074e0 54 11 c9 26 46 46 46 3a 3d 22 54 65 78 74 22 0d |T..&FFF:="Text".|
000074f0 29 5e 11 c9 26 46 46 44 3a 3d 22 44 61 74 61 22 |)^..&FFD:="Data"|
00007500 0d 29 68 12 c9 26 46 46 42 3a 3d 22 42 61 73 69 |.)h..&FFB:="Basi|
00007510 63 22 0d 29 72 13 c9 26 46 46 39 3a 3d 22 53 70 |c".)r..&FF9:="Sp|
00007520 72 69 74 65 22 0d 29 7c 14 c9 26 46 45 44 3a 3d |rite".)|..&FED:=|
00007530 22 50 61 6c 65 74 74 65 22 0d 29 86 15 c9 26 46 |"Palette".)...&F|
00007540 45 43 3a 3d 22 54 65 6d 70 6c 61 74 65 22 0d 29 |EC:="Template".)|
00007550 90 11 c9 26 41 46 46 3a 3d 22 44 72 61 77 22 0d |...&AFF:="Draw".|
00007560 29 9a 14 c9 26 31 30 30 30 3a 3d 22 46 6f 6c 64 |)...&1000:="Fold|
00007570 65 72 22 0d 29 a4 19 c9 26 32 30 30 30 3a 3d 22 |er".)...&2000:="|
00007580 41 70 70 6c 69 63 61 74 69 6f 6e 22 0d 29 ae 0f |Application".)..|
00007590 7f 3d c3 7e 28 74 79 70 65 25 29 0d 29 b8 05 cb |.=.~(type%).)...|
000075a0 0d 29 c2 05 3a 0d 29 cc 1b dd 20 a4 57 69 6d 70 |.)..:.)... .Wimp|
000075b0 5f 47 65 74 46 69 6c 65 50 61 74 68 4e 61 6d 65 |_GetFilePathName|
000075c0 0d 29 d6 27 3d a4 57 69 6d 70 5f 47 65 74 53 74 |.).'=.Wimp_GetSt|
000075d0 72 69 6e 67 41 74 41 64 64 72 65 73 73 28 77 69 |ringAtAddress(wi|
000075e0 6d 70 25 2b 34 34 29 0d 29 e0 05 3a 0d 29 ea 1f |mp%+44).)..:.)..|
000075f0 dd 20 a4 57 69 6d 70 5f 46 69 6c 65 4c 6f 61 64 |. .Wimp_FileLoad|
00007600 28 70 61 74 68 6e 61 6d 65 24 29 0d 29 f4 10 ea |(pathname$).)...|
00007610 53 25 2c 54 25 2c 66 69 6c 65 25 0d 29 fe 11 53 |S%,T%,file%.)..S|
00007620 25 3d 8e 70 61 74 68 6e 61 6d 65 24 0d 2a 08 0e |%=.pathname$.*..|
00007630 54 25 3d a2 23 53 25 2b 31 36 0d 2a 12 08 d9 23 |T%=.#S%+16.*...#|
00007640 53 25 0d 2a 1c 0c de 66 69 6c 65 25 54 25 0d 2a |S%.*...file%T%.*|
00007650 26 22 ff 28 22 4c 4f 41 44 22 2b 70 61 74 68 6e |&".("LOAD"+pathn|
00007660 61 6d 65 24 2b 22 22 2b c3 7e 66 69 6c 65 25 29 |ame$+""+.~file%)|
00007670 0d 2a 30 0a 3d 66 69 6c 65 25 0d 2a 3a 05 3b 0d |.*0.=file%.*:.;.|
00007680 2a 44 26 dd 20 a4 57 69 6d 70 5f 47 65 74 53 74 |*D&. .Wimp_GetSt|
00007690 72 69 6e 67 41 74 41 64 64 72 65 73 73 28 61 72 |ringAtAddress(ar|
000076a0 72 61 79 25 29 0d 2a 4e 0d ea 73 24 3a 73 24 3d |ray%).*N..s$:s$=|
000076b0 22 22 0d 2a 58 3c c8 95 28 3f 61 72 72 61 79 25 |"".*X<..(?array%|
000076c0 3c 3e 31 33 29 80 28 3f 61 72 72 61 79 25 3c 3e |<>13).(?array%<>|
000076d0 30 29 3a 73 24 2b 3d bd 28 3f 61 72 72 61 79 25 |0):s$+=.(?array%|
000076e0 29 3a 61 72 72 61 79 25 2b 3d 31 3a ce 3a 0d 2a |):array%+=1:.:.*|
000076f0 62 07 3d 73 24 0d 2a 6c 05 3a 0d 2a 76 23 dd 20 |b.=s$.*l.:.*v#. |
00007700 a4 57 69 6d 70 5f 47 65 74 46 69 6c 65 46 72 6f |.Wimp_GetFileFro|
00007710 6d 50 61 74 68 6e 61 6d 65 28 66 24 29 0d 2a 80 |mPathname(f$).*.|
00007720 11 c8 8e 20 a7 66 24 2c 22 2e 22 29 20 ca 0d 2a |... .f$,".") ..*|
00007730 8a 10 20 c9 20 30 20 20 20 20 3a 3d 66 24 0d 2a |.. . 0 :=f$.*|
00007740 94 37 20 7f 20 3a 3d a4 57 69 6d 70 5f 47 65 74 |.7 . :=.Wimp_Get|
00007750 46 69 6c 65 46 72 6f 6d 50 61 74 68 6e 61 6d 65 |FileFromPathname|
00007760 28 c2 66 24 2c a9 28 66 24 29 2d a7 66 24 2c 22 |(.f$,.(f$)-.f$,"|
00007770 2e 22 29 29 29 0d 2a 9e 05 cb 0d 2a a8 05 3a 0d |."))).*....*..:.|
00007780 2a b2 1d dd 20 f2 57 69 6d 70 5f 53 65 6e 64 54 |*... .Wimp_SendT|
00007790 6f 45 64 69 74 28 66 69 6c 65 24 29 0d 2a bc 08 |oEdit(file$).*..|
000077a0 ea 20 6e 25 0d 2a c6 15 77 69 6d 70 25 21 34 3d |. n%.*..wimp%!4=|
000077b0 26 36 43 43 30 31 43 30 43 0d 2a d0 0e 77 69 6d |&6CC01C0C.*..wim|
000077c0 70 25 21 31 36 3d 35 0d 2a da 0e 77 69 6d 70 25 |p%!16=5.*..wimp%|
000077d0 21 33 36 3d 30 0d 2a e4 11 77 69 6d 70 25 21 34 |!36=0.*..wimp%!4|
000077e0 30 3d 26 46 46 46 0d 2a ee 18 24 28 77 69 6d 70 |0=&FFF.*..$(wimp|
000077f0 25 2b 34 34 29 3d 66 69 6c 65 24 2b bd 30 0d 2a |%+44)=file$+.0.*|
00007800 f8 10 6e 25 3d a9 66 69 6c 65 24 2b 34 35 0d 2b |..n%=.file$+45.+|
00007810 02 2c e7 20 6e 25 83 34 20 8c 20 21 77 69 6d 70 |.,. n%.4 . !wimp|
00007820 25 3d 34 2b 28 6e 25 3e 3e 32 29 3c 3c 32 20 8b |%=4+(n%>>2)<<2 .|
00007830 20 21 77 69 6d 70 25 3d 6e 25 0d 2b 0c 24 c8 99 | !wimp%=n%.+.$..|
00007840 20 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 73 61 | "Wimp_SendMessa|
00007850 67 65 22 2c 31 37 2c 77 69 6d 70 25 2c 30 0d 2b |ge",17,wimp%,0.+|
00007860 16 05 e1 0d 2b 20 05 3a 0d 2b 2a 4a f4 20 2a 2a |....+ .:.+*J. **|
00007870 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
000078b0 2a 2a 0d 2b 34 05 3a 0d 2b 3e 2f dd 20 f2 57 69 |**.+4.:.+>/. .Wi|
000078c0 6d 70 5f 53 74 61 72 74 28 54 61 73 6b 4e 61 6d |mp_Start(TaskNam|
000078d0 65 24 2c 77 69 6d 70 5f 6d 65 6d 6f 72 79 25 2c |e$,wimp_memory%,|
000078e0 69 63 6f 6e 25 29 0d 2b 48 25 de 20 77 69 6d 70 |icon%).+H%. wimp|
000078f0 25 20 77 69 6d 70 5f 6d 65 6d 6f 72 79 25 2c 69 |% wimp_memory%,i|
00007900 63 6f 6e 73 25 20 69 63 6f 6e 25 0d 2b 52 29 e7 |cons% icon%.+R).|
00007910 20 77 69 6d 70 5f 6d 65 6d 6f 72 79 25 3c 32 35 | wimp_memory%<25|
00007920 36 20 8c 20 77 69 6d 70 5f 6d 65 6d 6f 72 79 25 |6 . wimp_memory%|
00007930 3d 32 35 36 0d 2b 5c 1d 69 63 6f 6e 5f 6d 65 6d |=256.+\.icon_mem|
00007940 6f 72 79 25 3d 69 63 6f 6e 73 25 2b 69 63 6f 6e |ory%=icons%+icon|
00007950 25 0d 2b 66 13 74 61 73 6b 24 3d 54 61 73 6b 4e |%.+f.task$=TaskN|
00007960 61 6d 65 24 0d 2b 70 2b 69 6e 64 69 72 65 63 74 |ame$.+p+indirect|
00007970 5f 73 70 72 69 74 65 73 25 3d 31 20 3a 20 64 69 |_sprites%=1 : di|
00007980 72 65 63 74 5f 73 70 72 69 74 65 73 25 3d 31 0d |rect_sprites%=1.|
00007990 2b 7a 1b f2 57 69 6d 70 5f 53 65 74 45 76 65 6e |+z..Wimp_SetEven|
000079a0 74 56 61 72 69 61 62 6c 65 73 0d 2b 84 15 ee 20 |tVariables.+... |
000079b0 85 20 f2 57 69 6d 70 5f 45 72 72 6f 72 3a e0 0d |. .Wimp_Error:..|
000079c0 2b 8e 40 c8 99 22 57 69 6d 70 5f 49 6e 69 74 69 |+.@.."Wimp_Initi|
000079d0 61 6c 69 73 65 22 2c 32 30 30 2c 26 34 42 35 33 |alise",200,&4B53|
000079e0 34 31 35 34 2c 54 61 73 6b 4e 61 6d 65 24 20 b8 |4154,TaskName$ .|
000079f0 20 76 65 72 73 69 6f 6e 25 2c 74 61 73 6b 25 0d | version%,task%.|
00007a00 2b 98 05 e1 0d 2b a2 05 3a 0d 2b ac 1b dd 20 a4 |+....+..:.+... .|
00007a10 57 69 6d 70 5f 42 41 53 49 43 50 61 72 61 6d 65 |Wimp_BASICParame|
00007a20 74 65 72 73 0d 2b b6 15 20 ea 20 63 6f 6d 24 2c |ters.+.. . com$,|
00007a30 70 61 72 61 6d 24 2c 49 25 0d 2b c0 1a 20 c8 99 |param$,I%.+.. ..|
00007a40 20 22 4f 53 5f 47 65 74 45 6e 76 22 20 b8 20 63 | "OS_GetEnv" . c|
00007a50 6f 6d 24 0d 2b ca 0f 20 70 61 72 61 6d 73 24 3d |om$.+.. params$=|
00007a60 22 22 0d 2b d4 18 20 49 25 3d a7 63 6f 6d 24 2c |"".+.. I%=.com$,|
00007a70 22 20 2d 71 75 69 74 20 22 29 0d 2b de 35 20 e7 |" -quit ").+.5 .|
00007a80 20 49 25 20 8c 20 70 61 72 61 6d 73 24 3d c1 63 | I% . params$=.c|
00007a90 6f 6d 24 2c a7 63 6f 6d 24 2c 22 20 22 2c 49 25 |om$,.com$," ",I%|
00007aa0 2b a9 22 20 2d 71 75 69 74 20 22 29 2b 31 29 0d |+." -quit ")+1).|
00007ab0 2b e8 0c 3d 70 61 72 61 6d 73 24 0d 2b f2 05 3a |+..=params$.+..:|
00007ac0 0d 2b fc 1d dd 20 f2 57 69 6d 70 5f 53 65 74 45 |.+... .Wimp_SetE|
00007ad0 76 65 6e 74 56 61 72 69 61 62 6c 65 73 0d 2c 06 |ventVariables.,.|
00007ae0 17 de 20 70 6f 69 6e 74 65 72 5f 62 6c 6f 63 6b |.. pointer_block|
00007af0 25 20 32 30 0d 2c 10 10 69 6e 74 65 72 66 61 63 |% 20.,..interfac|
00007b00 65 25 3d a3 0d 2c 1a 2e 6e 75 6c 6c 25 3d 31 20 |e%=..,..null%=1 |
00007b10 20 3a 64 72 61 77 25 3d 32 20 3a 20 20 70 6f 69 | :draw%=2 : poi|
00007b20 6e 74 65 72 5f 6c 65 61 76 69 6e 67 25 3d 31 3c |nter_leaving%=1<|
00007b30 3c 34 0d 2c 24 31 70 6f 69 6e 74 65 72 5f 65 6e |<4.,$1pointer_en|
00007b40 74 65 72 69 6e 67 25 3d 31 3c 3c 35 3a 6d 6f 75 |tering%=1<<5:mou|
00007b50 73 65 25 3d 31 3c 3c 36 3a 64 72 61 67 25 3d 31 |se%=1<<6:drag%=1|
00007b60 3c 3c 37 0d 2c 2e 26 6b 65 79 25 3d 31 3c 3c 38 |<<7.,.&key%=1<<8|
00007b70 3a 6d 65 6e 75 25 3d 31 3c 3c 39 3a 73 63 72 6f |:menu%=1<<9:scro|
00007b80 6c 6c 25 3d 31 3c 3c 31 30 0d 2c 38 40 6c 6f 73 |ll%=1<<10.,8@los|
00007b90 65 5f 63 61 72 65 74 25 3d 31 3c 3c 31 31 3a 67 |e_caret%=1<<11:g|
00007ba0 61 69 6e 5f 63 61 72 65 74 25 3d 31 3c 3c 31 32 |ain_caret%=1<<12|
00007bb0 3a 6d 65 73 73 61 67 65 25 3d 28 31 3c 3c 31 37 |:message%=(1<<17|
00007bc0 29 2b 28 31 3c 3c 31 38 29 0d 2c 42 30 72 65 63 |)+(1<<18).,B0rec|
00007bd0 6f 72 64 65 72 25 3d 31 3c 3c 31 38 3a 61 63 6b |order%=1<<18:ack|
00007be0 6e 6f 77 6c 65 64 67 65 25 3d 31 3c 3c 31 39 3a |nowledge%=1<<19:|
00007bf0 77 69 6e 64 6f 77 25 3d 30 0d 2c 4c 21 73 70 72 |window%=0.,L!spr|
00007c00 69 74 65 73 25 3d 31 3a 76 65 72 73 69 6f 6e 25 |ites%=1:version%|
00007c10 3d 30 3a 74 61 73 6b 25 3d 30 0d 2c 56 2a 42 61 |=0:task%=0.,V*Ba|
00007c20 72 5f 57 69 6e 64 6f 77 25 3d 2d 32 3a 42 61 72 |r_Window%=-2:Bar|
00007c30 5f 49 63 6f 6e 25 3d 30 3a 42 61 72 5f 4d 65 6e |_Icon%=0:Bar_Men|
00007c40 75 25 3d 30 0d 2c 60 2a 78 5f 6f 72 69 67 69 6e |u%=0.,`*x_origin|
00007c50 25 3d 30 3a 79 5f 6f 72 69 67 69 6e 25 3d 30 3a |%=0:y_origin%=0:|
00007c60 53 61 76 65 57 69 6e 64 6f 77 25 3d 2d 33 0d 2c |SaveWindow%=-3.,|
00007c70 6a 33 6d 65 73 73 61 67 65 5f 71 75 69 74 25 3d |j3message_quit%=|
00007c80 30 3a 6d 65 73 73 61 67 65 5f 73 61 76 65 25 3d |0:message_save%=|
00007c90 32 3a 6d 65 73 73 61 67 65 5f 6c 6f 61 64 25 3d |2:message_load%=|
00007ca0 33 0d 2c 74 21 6d 6f 75 73 65 5f 62 75 74 74 6f |3.,t!mouse_butto|
00007cb0 6e 25 3d 32 3a 73 61 76 65 5f 65 76 65 6e 74 25 |n%=2:save_event%|
00007cc0 3d 30 0d 2c 7e 20 74 6f 70 5f 6c 69 6e 65 25 3d |=0.,~ top_line%=|
00007cd0 30 20 3a 20 62 6f 74 74 6f 6d 5f 6c 69 6e 65 25 |0 : bottom_line%|
00007ce0 3d 30 0d 2c 88 05 e1 0d 2c 92 05 3a 0d 2c 9c 11 |=0.,....,..:.,..|
00007cf0 dd 20 f2 57 69 6d 70 5f 45 72 72 6f 72 0d 2c a6 |. .Wimp_Error.,.|
00007d00 0a ea 58 24 2c 78 25 0d 2c b0 09 ee 20 85 20 87 |..X$,x%.,... . .|
00007d10 0d 2c ba 08 78 25 3d 9e 0d 2c c4 1b 58 24 3d f6 |.,..x%=..,..X$=.|
00007d20 24 2b 22 61 74 6c 69 6e 65 22 2b c3 28 78 25 81 |$+"atline"+.(x%.|
00007d30 31 30 29 0d 2c ce 10 de 45 72 72 6f 72 4d 73 67 |10).,...ErrorMsg|
00007d40 25 33 36 0d 2c d8 45 45 72 72 6f 72 4d 73 67 25 |%36.,.EErrorMsg%|
00007d50 21 30 3d 33 36 3a 45 72 72 6f 72 4d 73 67 25 21 |!0=36:ErrorMsg%!|
00007d60 31 32 3d 30 3a 45 72 72 6f 72 4d 73 67 25 21 31 |12=0:ErrorMsg%!1|
00007d70 36 3d 26 38 31 30 38 30 3a 45 72 72 6f 72 4d 73 |6=&81080:ErrorMs|
00007d80 67 25 21 32 30 3d 78 25 0d 2c e2 1f 24 28 45 72 |g%!20=x%.,..$(Er|
00007d90 72 6f 72 4d 73 67 25 2b 32 34 29 3d 22 21 52 75 |rorMsg%+24)="!Ru|
00007da0 6e 49 6d 61 67 65 22 0d 2c ec 25 c8 99 22 57 69 |nImage".,.%.."Wi|
00007db0 6d 70 5f 53 65 6e 64 4d 65 73 73 61 67 65 22 2c |mp_SendMessage",|
00007dc0 31 37 2c 45 72 72 6f 72 4d 73 67 25 0d 2c f6 1f |17,ErrorMsg%.,..|
00007dd0 f2 57 69 6d 70 5f 57 69 6e 64 6f 77 41 6c 65 72 |.Wimp_WindowAler|
00007de0 74 28 74 61 73 6b 24 2c 58 24 29 0d 2d 00 13 f2 |t(task$,X$).-...|
00007df0 57 69 6d 70 5f 43 6c 6f 73 65 44 6f 77 6e 0d 2d |Wimp_CloseDown.-|
00007e00 0a 05 e1 0d 2d 14 05 3a 0d 2d 1e 15 dd 20 f2 57 |....-..:.-... .W|
00007e10 69 6d 70 5f 43 6c 6f 73 65 44 6f 77 6e 0d 2d 28 |imp_CloseDown.-(|
00007e20 23 c8 99 22 57 69 6d 70 5f 43 6c 6f 73 65 44 6f |#.."Wimp_CloseDo|
00007e30 77 6e 22 2c 74 61 73 6b 25 2c 22 54 41 53 4b 22 |wn",task%,"TASK"|
00007e40 0d 2d 32 05 e1 0d 2d 3c 05 3a 0d 2d 46 10 dd 20 |.-2...-<.:.-F.. |
00007e50 f2 57 69 6d 70 5f 51 75 69 74 0d 2d 50 0f 66 69 |.Wimp_Quit.-P.fi|
00007e60 6e 69 73 68 65 64 25 3d b9 0d 2d 5a 05 e1 0d 2d |nished%=..-Z...-|
00007e70 64 05 3a 0d 2d 6e 23 dd 20 a4 57 69 6d 70 5f 52 |d.:.-n#. .Wimp_R|
00007e80 65 61 64 56 61 72 69 61 62 6c 65 28 56 61 72 69 |eadVariable(Vari|
00007e90 61 62 6c 65 24 29 0d 2d 78 1b ea 6c 65 6e 25 2c |able$).-x..len%,|
00007ea0 72 65 73 75 6c 74 25 2c 76 61 72 69 61 62 6c 65 |result%,variable|
00007eb0 25 0d 2d 82 14 24 77 69 6d 70 25 3d 56 61 72 69 |%.-..$wimp%=Vari|
00007ec0 61 62 6c 65 24 0d 2d 8c 33 c8 99 22 4f 53 5f 52 |able$.-.3.."OS_R|
00007ed0 65 61 64 56 61 72 56 61 6c 22 2c 77 69 6d 70 25 |eadVarVal",wimp%|
00007ee0 2c 77 69 6d 70 25 2b 32 35 35 2c 32 35 35 2c 2c |,wimp%+255,255,,|
00007ef0 33 b8 2c 2c 6c 65 6e 25 0d 2d 96 17 77 69 6d 70 |3.,,len%.-..wimp|
00007f00 25 3f 28 6c 65 6e 25 2b 32 35 35 29 3d 31 33 0d |%?(len%+255)=13.|
00007f10 2d a0 11 3d 24 28 77 69 6d 70 25 2b 32 35 35 29 |-..=$(wimp%+255)|
00007f20 0d 2d aa 05 3a 0d 2d b4 4a f4 20 2a 2a 2a 2a 2a |.-..:.-.J. *****|
00007f30 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00007f60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d |***************.|
00007f70 2d be 05 3a 0d 2d c8 18 dd 20 f2 57 69 6d 70 5f |-..:.-... .Wimp_|
00007f80 57 61 69 74 46 6f 72 45 76 65 6e 74 0d 2d d2 12 |WaitForEvent.-..|
00007f90 ea 20 6d 61 73 6b 25 2c 65 76 65 6e 74 25 0d 2d |. mask%,event%.-|
00007fa0 dc 0f 66 69 6e 69 73 68 65 64 25 3d a3 0d 2d e6 |..finished%=..-.|
00007fb0 17 6d 61 73 6b 25 3d 25 31 31 31 30 30 30 30 31 |.mask%=%11100001|
00007fc0 31 30 30 31 0d 2d f0 05 f5 0d 2d fa 27 20 c8 99 |1001.-....-.' ..|
00007fd0 22 57 69 6d 70 5f 50 6f 6c 6c 22 2c 6d 61 73 6b |"Wimp_Poll",mask|
00007fe0 25 2c 77 69 6d 70 25 20 b8 20 65 76 65 6e 74 25 |%,wimp% . event%|
00007ff0 0d 2e 04 10 20 c8 8e 20 65 76 65 6e 74 25 20 ca |.... .. event% .|
00008000 0d 2e 0e 0a 20 20 c9 30 20 3a 0d 2e 18 1f 20 20 |.... .0 :.... |
00008010 c9 31 20 3a 20 f2 57 69 6d 70 5f 50 6f 6c 6c 44 |.1 : .Wimp_PollD|
00008020 72 61 77 57 69 6e 64 6f 77 0d 2e 22 26 20 20 c9 |rawWindow.."& .|
00008030 32 20 3a 20 c8 99 20 22 57 69 6d 70 5f 4f 70 65 |2 : .. "Wimp_Ope|
00008040 6e 57 69 6e 64 6f 77 22 2c 2c 77 69 6d 70 25 0d |nWindow",,wimp%.|
00008050 2e 2c 20 20 20 c9 33 20 3a 20 f2 57 69 6d 70 5f |., .3 : .Wimp_|
00008060 50 6f 6c 6c 43 6c 6f 73 65 57 69 6e 64 6f 77 0d |PollCloseWindow.|
00008070 2e 36 0a 20 20 c9 34 20 3a 0d 2e 40 0a 20 20 c9 |.6. .4 :..@. .|
00008080 35 20 3a 0d 2e 4a 1f 20 20 c9 36 20 3a 20 f2 57 |5 :..J. .6 : .W|
00008090 69 6d 70 5f 50 6f 6c 6c 4d 6f 75 73 65 43 6c 69 |imp_PollMouseCli|
000080a0 63 6b 0d 2e 54 20 20 20 c9 37 20 3a 20 f2 57 69 |ck..T .7 : .Wi|
000080b0 6d 70 5f 50 6f 6c 6c 53 61 76 65 4d 65 73 73 61 |mp_PollSaveMessa|
000080c0 67 65 0d 2e 5e 1d 20 20 c9 38 20 3a 20 f2 57 69 |ge..^. .8 : .Wi|
000080d0 6d 70 5f 50 6f 6c 6c 4b 65 79 50 72 65 73 73 0d |mp_PollKeyPress.|
000080e0 2e 68 23 20 20 c9 39 20 3a 20 f2 45 76 65 6e 74 |.h# .9 : .Event|
000080f0 5f 4d 65 6e 75 43 68 6f 69 63 65 28 6d 65 6e 75 |_MenuChoice(menu|
00008100 25 29 0d 2e 72 0a 20 20 c9 31 30 3a 0d 2e 7c 0a |%)..r. .10:..|.|
00008110 20 20 c9 31 31 3a 0d 2e 86 0a 20 20 c9 31 32 3a | .11:.... .12:|
00008120 0d 2e 90 20 20 20 c9 31 37 2c 31 38 3a 20 f2 57 |... .17,18: .W|
00008130 69 6d 70 5f 50 6f 6c 6c 4d 65 73 73 61 67 65 73 |imp_PollMessages|
00008140 0d 2e 9a 0a 20 20 c9 31 39 3a 0d 2e a4 06 20 cb |.... .19:.... .|
00008150 0d 2e ae 0f fd 20 66 69 6e 69 73 68 65 64 25 0d |..... finished%.|
00008160 2e b8 05 e1 0d 2e c2 05 3a 0d 2e cc 1a dd 20 f2 |........:..... .|
00008170 57 69 6d 70 5f 50 6f 6c 6c 44 72 61 77 57 69 6e |Wimp_PollDrawWin|
00008180 64 6f 77 0d 2e d6 0b ea 20 6d 6f 72 65 25 0d 2e |dow..... more%..|
00008190 e0 26 c8 99 22 57 69 6d 70 5f 52 65 64 72 61 77 |.&.."Wimp_Redraw|
000081a0 57 69 6e 64 6f 77 22 2c 2c 77 69 6d 70 25 b8 6d |Window",,wimp%.m|
000081b0 6f 72 65 25 0d 2e ea 13 77 69 6e 64 6f 77 25 3d |ore%....window%=|
000081c0 77 69 6d 70 25 21 30 0d 2e f4 41 78 5f 6f 72 69 |wimp%!0...Ax_ori|
000081d0 67 69 6e 25 3d 31 36 2b 77 69 6d 70 25 21 34 2d |gin%=16+wimp%!4-|
000081e0 77 69 6d 70 25 21 32 30 3a 79 5f 6f 72 69 67 69 |wimp%!20:y_origi|
000081f0 6e 25 3d 2d 31 36 2b 77 69 6d 70 25 21 31 36 2d |n%=-16+wimp%!16-|
00008200 77 69 6d 70 25 21 32 34 0d 2e fe 0b c8 95 6d 6f |wimp%!24......mo|
00008210 72 65 25 0d 2f 08 30 20 e7 20 69 6e 74 65 72 66 |re%./.0 . interf|
00008220 61 63 65 25 20 8c 20 c8 99 22 57 69 6d 70 5f 42 |ace% . .."Wimp_B|
00008230 6f 72 64 65 72 57 69 6e 64 6f 77 22 2c 2c 77 69 |orderWindow",,wi|
00008240 6d 70 25 0d 2f 12 2d 20 f2 45 76 65 6e 74 5f 44 |mp%./.- .Event_D|
00008250 72 61 77 28 77 69 6e 64 6f 77 25 2c 78 5f 6f 72 |raw(window%,x_or|
00008260 69 67 69 6e 25 2c 79 5f 6f 72 69 67 69 6e 25 29 |igin%,y_origin%)|
00008270 0d 2f 1c 27 20 c8 99 22 57 69 6d 70 5f 47 65 74 |./.' .."Wimp_Get|
00008280 52 65 63 74 61 6e 67 6c 65 22 2c 2c 77 69 6d 70 |Rectangle",,wimp|
00008290 25 b8 6d 6f 72 65 25 0d 2f 26 05 ce 0d 2f 30 05 |%.more%./&.../0.|
000082a0 e1 0d 2f 3a 05 3a 0d 2f 44 1b dd 20 f2 57 69 6d |../:.:./D.. .Wim|
000082b0 70 5f 50 6f 6c 6c 43 6c 6f 73 65 57 69 6e 64 6f |p_PollCloseWindo|
000082c0 77 0d 2f 4e 25 20 20 c8 99 20 22 57 69 6d 70 5f |w./N% .. "Wimp_|
000082d0 47 65 74 50 6f 69 6e 74 65 72 49 6e 66 6f 22 2c |GetPointerInfo",|
000082e0 2c 77 69 6d 70 25 0d 2f 58 29 20 20 77 69 6e 64 |,wimp%./X) wind|
000082f0 6f 77 25 3d 77 69 6d 70 25 21 31 32 20 3a 20 62 |ow%=wimp%!12 : b|
00008300 75 74 74 6f 6e 73 25 3d 77 69 6d 70 25 21 38 0d |uttons%=wimp%!8.|
00008310 2f 62 29 20 f2 45 76 65 6e 74 5f 57 69 6e 64 6f |/b) .Event_Windo|
00008320 77 43 6c 6f 73 65 28 77 69 6e 64 6f 77 25 2c 62 |wClose(window%,b|
00008330 75 74 74 6f 6e 73 25 29 0d 2f 6c 32 20 21 77 69 |uttons%)./l2 !wi|
00008340 6d 70 25 3d 77 69 6e 64 6f 77 25 20 3a 20 c8 99 |mp%=window% : ..|
00008350 20 22 57 69 6d 70 5f 43 6c 6f 73 65 57 69 6e 64 | "Wimp_CloseWind|
00008360 6f 77 22 2c 2c 77 69 6d 70 25 0d 2f 76 05 e1 0d |ow",,wimp%./v...|
00008370 2f 80 05 3a 0d 2f 8a 1a dd 20 f2 57 69 6d 70 5f |/..:./... .Wimp_|
00008380 50 6f 6c 6c 4d 6f 75 73 65 43 6c 69 63 6b 0d 2f |PollMouseClick./|
00008390 94 4a 20 62 75 74 74 6f 6e 25 3d 77 69 6d 70 25 |.J button%=wimp%|
000083a0 21 38 3a 77 69 6e 64 6f 77 25 3d 77 69 6d 70 25 |!8:window%=wimp%|
000083b0 21 31 32 3a 69 63 6f 6e 25 3d 77 69 6d 70 25 21 |!12:icon%=wimp%!|
000083c0 31 36 3a 78 25 3d 77 69 6d 70 25 21 30 3a 79 25 |16:x%=wimp%!0:y%|
000083d0 3d 77 69 6d 70 25 21 34 0d 2f 9e 11 20 c8 8e 20 |=wimp%!4./.. .. |
000083e0 62 75 74 74 6f 6e 25 20 ca 0d 2f a8 22 20 20 20 |button% ../." |
000083f0 c9 32 20 20 20 20 3a 20 f2 57 69 6d 70 5f 50 6f |.2 : .Wimp_Po|
00008400 6c 6c 4d 65 6e 75 50 6f 70 55 70 0d 2f b2 23 20 |llMenuPopUp./.# |
00008410 20 20 7f 3a 20 c8 8e 20 a4 45 76 65 6e 74 5f 53 | .: .. .Event_S|
00008420 61 76 65 28 77 69 6e 64 6f 77 25 29 20 ca 0d 2f |ave(window%) ../|
00008430 bc 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |., |
00008440 20 c9 20 b9 20 3a 20 f2 57 69 6d 70 5f 50 6f 6c | . . : .Wimp_Pol|
00008450 6c 4d 6f 75 73 65 53 61 76 65 0d 2f c6 31 20 20 |lMouseSave./.1 |
00008460 20 20 20 20 20 20 20 20 20 20 20 20 20 c9 20 a3 | . .|
00008470 3a 20 f2 57 69 6d 70 5f 50 6f 6c 6c 45 76 65 6e |: .Wimp_PollEven|
00008480 74 4d 6f 75 73 65 43 6c 69 63 6b 0d 2f d0 13 20 |tMouseClick./.. |
00008490 20 20 20 20 20 20 20 20 20 20 20 20 20 cb 0d 2f | ../|
000084a0 da 06 20 cb 0d 2f e4 05 e1 0d 2f ee 05 3a 0d 2f |.. ../..../..:./|
000084b0 f8 19 dd 20 f2 57 69 6d 70 5f 50 6f 6c 6c 4d 65 |... .Wimp_PollMe|
000084c0 6e 75 50 6f 70 55 70 0d 30 02 0d e7 20 53 41 25 |nuPopUp.0... SA%|
000084d0 3d a3 20 8c 0d 30 0c 1e 6d 65 6e 75 25 3d a4 45 |=. ..0..menu%=.E|
000084e0 76 65 6e 74 5f 4d 65 6e 75 28 77 69 6e 64 6f 77 |vent_Menu(window|
000084f0 25 29 0d 30 16 11 20 20 c8 8e 20 6d 65 6e 75 25 |%).0.. .. menu%|
00008500 20 20 ca 0d 30 20 0b 20 20 20 c9 20 a3 3a 0d 30 | ..0 . . .:.0|
00008510 2a 0a 20 20 20 7f 20 3a 0d 30 34 15 20 20 20 20 |*. . :.04. |
00008520 20 c8 8e 20 77 69 6e 64 6f 77 25 20 ca 0d 30 3e | .. window% ..0>|
00008530 17 20 20 20 20 20 20 c9 20 2d 32 20 20 20 3a 20 |. . -2 : |
00008540 6e 25 3d 30 0d 30 48 33 20 20 20 20 20 20 20 20 |n%=0.0H3 |
00008550 c8 95 20 28 28 42 61 72 5f 4d 65 6e 75 25 21 28 |.. ((Bar_Menu%!(|
00008560 32 38 2b 6e 25 2a 32 34 29 29 80 25 31 30 30 30 |28+n%*24)).%1000|
00008570 30 30 30 30 29 3d 30 0d 30 52 12 20 20 20 20 20 |0000)=0.0R. |
00008580 20 20 20 20 6e 25 2b 3d 31 0d 30 5c 0d 20 20 20 | n%+=1.0\. |
00008590 20 20 20 20 20 ce 0d 30 66 3a 20 20 20 20 20 20 | ..0f: |
000085a0 20 20 c8 99 20 22 57 69 6d 70 5f 43 72 65 61 74 | .. "Wimp_Creat|
000085b0 65 4d 65 6e 75 22 2c 2c 42 61 72 5f 4d 65 6e 75 |eMenu",,Bar_Menu|
000085c0 25 2c 78 25 2d 36 34 2c 39 36 2b 6e 25 2a 37 33 |%,x%-64,96+n%*73|
000085d0 0d 30 70 34 20 20 20 20 20 20 7f 20 3a 20 c8 99 |.0p4 . : ..|
000085e0 22 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 |"Wimp_CreateMenu|
000085f0 22 2c 2c 6d 65 6e 75 25 2c 78 25 2d 36 34 2c 79 |",,menu%,x%-64,y|
00008600 25 2b 32 30 0d 30 7a 0a 20 20 20 20 20 cb 0d 30 |%+20.0z. ..0|
00008610 84 07 20 20 cb 0d 30 8e 05 cd 0d 30 98 05 e1 0d |.. ..0....0....|
00008620 30 a2 05 3a 0d 30 ac 19 dd 20 f2 57 69 6d 70 5f |0..:.0... .Wimp_|
00008630 50 6f 6c 6c 4d 6f 75 73 65 53 61 76 65 0d 30 b6 |PollMouseSave.0.|
00008640 0f 20 c8 8e 20 69 63 6f 6e 25 20 ca 0d 30 c0 38 |. .. icon% ..0.8|
00008650 20 20 c9 20 30 20 3a 20 e7 20 62 75 74 74 6f 6e | . 0 : . button|
00008660 25 20 80 20 26 35 30 20 8c 20 f2 57 69 6d 70 5f |% . &50 . .Wimp_|
00008670 50 6f 6c 6c 44 72 61 67 42 6f 78 28 77 69 6e 64 |PollDragBox(wind|
00008680 6f 77 25 29 0d 30 ca 38 20 20 c9 20 32 20 3a 20 |ow%).0.8 . 2 : |
00008690 e7 20 62 75 74 74 6f 6e 25 20 80 20 35 20 8c 20 |. button% . 5 . |
000086a0 20 f2 57 69 6d 70 5f 50 6f 6c 6c 53 61 76 65 46 | .Wimp_PollSaveF|
000086b0 69 6c 65 28 77 69 6e 64 6f 77 25 29 0d 30 d4 06 |ile(window%).0..|
000086c0 20 cb 0d 30 de 05 e1 0d 30 e8 05 3a 0d 30 f2 1f | ..0....0..:.0..|
000086d0 dd 20 f2 57 69 6d 70 5f 50 6f 6c 6c 45 76 65 6e |. .Wimp_PollEven|
000086e0 74 4d 6f 75 73 65 43 6c 69 63 6b 0d 30 fc 2e 20 |tMouseClick.0.. |
000086f0 e7 20 69 6e 74 65 72 66 61 63 65 25 20 8c 20 c8 |. interface% . .|
00008700 99 22 57 69 6d 70 5f 42 6f 72 64 65 72 49 63 6f |."Wimp_BorderIco|
00008710 6e 22 2c 2c 77 69 6d 70 25 0d 31 06 33 20 f2 45 |n",,wimp%.1.3 .E|
00008720 76 65 6e 74 5f 4d 6f 75 73 65 43 6c 69 63 6b 28 |vent_MouseClick(|
00008730 77 69 6e 64 6f 77 25 2c 69 63 6f 6e 25 2c 62 75 |window%,icon%,bu|
00008740 74 74 6f 6e 25 2c 78 25 2c 79 25 29 0d 31 10 15 |tton%,x%,y%).1..|
00008750 20 c8 8e 20 20 69 6e 74 65 72 66 61 63 65 25 20 | .. interface% |
00008760 ca 0d 31 1a 0b 20 20 c9 20 b9 20 3a 0d 31 24 28 |..1.. . . :.1$(|
00008770 20 20 20 77 69 6d 70 25 21 30 3d 78 25 3a 77 69 | wimp%!0=x%:wi|
00008780 6d 70 25 21 34 3d 79 25 20 3a 20 77 69 6d 70 25 |mp%!4=y% : wimp%|
00008790 21 38 3d 30 0d 31 2e 28 20 20 20 77 69 6d 70 25 |!8=0.1.( wimp%|
000087a0 21 31 32 3d 77 69 6e 64 6f 77 25 20 3a 20 77 69 |!12=window% : wi|
000087b0 6d 70 25 21 31 36 3d 69 63 6f 6e 25 0d 31 38 21 |mp%!16=icon%.18!|
000087c0 20 20 20 c8 99 22 57 69 6d 70 5f 42 6f 72 64 65 | .."Wimp_Borde|
000087d0 72 49 63 6f 6e 22 2c 2c 77 69 6d 70 25 0d 31 42 |rIcon",,wimp%.1B|
000087e0 06 20 cb 0d 31 4c 05 e1 0d 31 56 05 3a 0d 31 60 |. ..1L...1V.:.1`|
000087f0 21 dd 20 f2 57 69 6d 70 5f 50 6f 6c 6c 53 61 76 |!. .Wimp_PollSav|
00008800 65 46 69 6c 65 28 77 69 6e 64 6f 77 25 29 0d 31 |eFile(window%).1|
00008810 6a 0a ea 66 69 6c 65 24 0d 31 74 40 20 77 69 6d |j..file$.1t@ wim|
00008820 70 25 21 30 3d 77 69 6e 64 6f 77 25 20 3a 20 77 |p%!0=window% : w|
00008830 69 6d 70 25 21 34 3d 31 20 3a 20 c8 99 20 22 57 |imp%!4=1 : .. "W|
00008840 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 |imp_GetIconState|
00008850 22 2c 2c 77 69 6d 70 25 0d 31 7e 16 20 66 69 6c |",,wimp%.1~. fil|
00008860 65 24 3d 24 28 77 69 6d 70 25 21 32 38 29 0d 31 |e$=$(wimp%!28).1|
00008870 88 15 20 c8 8e 20 a7 66 69 6c 65 24 2c 22 2e 22 |.. .. .file$,"."|
00008880 29 20 ca 0d 31 92 0d 20 20 c9 20 30 20 20 20 3a |) ..1.. . 0 :|
00008890 0d 31 9c 0f e7 20 6b 65 79 25 3d 31 33 20 8c 0d |.1... key%=13 ..|
000088a0 31 a6 40 20 20 20 24 28 77 69 6d 70 25 2b 34 29 |1.@ $(wimp%+4)|
000088b0 3d 22 54 6f 20 73 61 76 65 2c 20 64 72 61 67 20 |="To save, drag |
000088c0 74 68 65 20 69 63 6f 6e 20 74 6f 20 61 20 64 69 |the icon to a di|
000088d0 72 65 63 74 6f 72 79 20 77 69 6e 64 6f 77 22 0d |rectory window".|
000088e0 31 b0 2b 20 20 20 c8 99 20 22 57 69 6d 70 5f 52 |1.+ .. "Wimp_R|
000088f0 65 70 6f 72 74 45 72 72 6f 72 22 2c 77 69 6d 70 |eportError",wimp|
00008900 25 2c 31 36 2c 74 61 73 6b 24 0d 31 ba 05 cd 0d |%,16,task$.1....|
00008910 31 c4 08 20 20 7f 3a 0d 31 ce 31 20 20 20 e7 20 |1.. .:.1.1 . |
00008920 6b 65 79 25 3d 31 33 20 8c 20 f2 45 76 65 6e 74 |key%=13 . .Event|
00008930 5f 53 61 76 65 46 69 6c 65 28 66 69 6c 65 24 2c |_SaveFile(file$,|
00008940 77 69 6e 64 6f 77 25 29 0d 31 d8 06 20 cb 0d 31 |window%).1.. ..1|
00008950 e2 26 e7 20 6b 65 79 25 3d 31 33 20 8c 20 c8 99 |.&. key%=13 . ..|
00008960 22 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 |"Wimp_CreateMenu|
00008970 22 2c 2d 31 0d 31 ec 1d e7 20 53 41 25 3d b9 20 |",-1.1... SA%=. |
00008980 8c 20 f2 57 69 6d 70 5f 43 6c 6f 73 65 44 6f 77 |. .Wimp_CloseDow|
00008990 6e 0d 31 f6 05 e1 0d 32 00 05 3a 0d 32 0a 20 dd |n.1....2..:.2. .|
000089a0 20 f2 57 69 6d 70 5f 50 6f 6c 6c 44 72 61 67 42 | .Wimp_PollDragB|
000089b0 6f 78 28 77 69 6e 64 6f 77 25 29 0d 32 14 0a ea |ox(window%).2...|
000089c0 78 25 2c 79 25 0d 32 1e 12 20 73 61 76 65 25 3d |x%,y%.2.. save%=|
000089d0 77 69 6e 64 6f 77 25 0d 32 28 13 20 21 77 69 6d |window%.2(. !wim|
000089e0 70 25 3d 77 69 6e 64 6f 77 25 0d 32 32 23 20 c8 |p%=window%.22# .|
000089f0 99 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 |."Wimp_GetWindow|
00008a00 53 74 61 74 65 22 2c 2c 77 69 6d 70 25 0d 32 3c |State",,wimp%.2<|
00008a10 2d 20 78 25 3d 77 69 6d 70 25 21 34 2d 77 69 6d |- x%=wimp%!4-wim|
00008a20 70 25 21 32 30 3a 79 25 3d 77 69 6d 70 25 21 31 |p%!20:y%=wimp%!1|
00008a30 36 2d 77 69 6d 70 25 21 32 34 0d 32 46 0e 20 77 |6-wimp%!24.2F. w|
00008a40 69 6d 70 25 21 34 3d 30 0d 32 50 21 20 c8 99 22 |imp%!4=0.2P! .."|
00008a50 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 |Wimp_GetIconStat|
00008a60 65 22 2c 2c 77 69 6d 70 25 0d 32 5a 13 20 21 77 |e",,wimp%.2Z. !w|
00008a70 69 6d 70 25 3d 77 69 6e 64 6f 77 25 0d 32 64 0e |imp%=window%.2d.|
00008a80 20 77 69 6d 70 25 21 34 3d 35 0d 32 6e 2c 20 77 | wimp%!4=5.2n, w|
00008a90 69 6d 70 25 21 38 3d 78 25 2b 77 69 6d 70 25 21 |imp%!8=x%+wimp%!|
00008aa0 38 3a 77 69 6d 70 25 21 31 32 3d 79 25 2b 77 69 |8:wimp%!12=y%+wi|
00008ab0 6d 70 25 21 31 32 0d 32 78 2e 20 77 69 6d 70 25 |mp%!12.2x. wimp%|
00008ac0 21 31 36 3d 78 25 2b 77 69 6d 70 25 21 31 36 3a |!16=x%+wimp%!16:|
00008ad0 77 69 6d 70 25 21 32 30 3d 79 25 2b 77 69 6d 70 |wimp%!20=y%+wimp|
00008ae0 25 21 32 30 0d 32 82 1a 20 77 69 6d 70 25 21 32 |%!20.2.. wimp%!2|
00008af0 34 3d 30 3a 77 69 6d 70 25 21 32 38 3d 30 0d 32 |4=0:wimp%!28=0.2|
00008b00 8c 2a 20 77 69 6d 70 25 21 33 32 3d 26 37 46 46 |.* wimp%!32=&7FF|
00008b10 46 46 46 46 46 3a 77 69 6d 70 25 21 33 36 3d 26 |FFFFF:wimp%!36=&|
00008b20 37 46 46 46 46 46 46 46 0d 32 96 1c 20 c8 99 22 |7FFFFFFF.2.. .."|
00008b30 57 69 6d 70 5f 44 72 61 67 42 6f 78 22 2c 2c 77 |Wimp_DragBox",,w|
00008b40 69 6d 70 25 0d 32 a0 05 e1 0d 32 aa 05 3a 0d 32 |imp%.2....2..:.2|
00008b50 b4 18 dd 20 f2 57 69 6d 70 5f 50 6f 6c 6c 4b 65 |... .Wimp_PollKe|
00008b60 79 50 72 65 73 73 0d 32 be 31 20 20 77 69 6e 64 |yPress.2.1 wind|
00008b70 6f 77 25 3d 77 69 6d 70 25 21 30 3a 69 63 6f 6e |ow%=wimp%!0:icon|
00008b80 25 3d 77 69 6d 70 25 21 34 3a 6b 65 79 25 3d 77 |%=wimp%!4:key%=w|
00008b90 69 6d 70 25 21 32 34 0d 32 c8 1f 20 20 c8 8e 20 |imp%!24.2.. .. |
00008ba0 a4 45 76 65 6e 74 5f 53 61 76 65 28 77 69 6e 64 |.Event_Save(wind|
00008bb0 6f 77 25 29 20 ca 0d 32 d2 28 20 20 20 c9 20 b9 |ow%) ..2.( . .|
00008bc0 20 3a 20 f2 57 69 6d 70 5f 50 6f 6c 6c 53 61 76 | : .Wimp_PollSav|
00008bd0 65 46 69 6c 65 28 77 69 6e 64 6f 77 25 29 0d 32 |eFile(window%).2|
00008be0 dc 2f 20 20 20 c9 20 a3 3a 20 f2 45 76 65 6e 74 |./ . .: .Event|
00008bf0 5f 4b 65 79 50 72 65 73 73 28 77 69 6e 64 6f 77 |_KeyPress(window|
00008c00 25 2c 69 63 6f 6e 25 2c 6b 65 79 25 29 0d 32 e6 |%,icon%,key%).2.|
00008c10 07 20 20 cb 0d 32 f0 05 e1 0d 32 fa 05 3a 0d 33 |. ..2....2..:.3|
00008c20 04 1b dd 20 f2 57 69 6d 70 5f 50 6f 6c 6c 53 61 |... .Wimp_PollSa|
00008c30 76 65 4d 65 73 73 61 67 65 0d 33 0e 1e ea 66 69 |veMessage.3...fi|
00008c40 6c 65 24 2c 77 69 6e 64 6f 77 25 2c 69 63 6f 6e |le$,window%,icon|
00008c50 25 2c 78 25 2c 79 25 0d 33 18 23 20 c8 99 22 57 |%,x%,y%.3.# .."W|
00008c60 69 6d 70 5f 47 65 74 50 6f 69 6e 74 65 72 49 6e |imp_GetPointerIn|
00008c70 66 6f 22 2c 2c 77 69 6d 70 25 0d 33 22 3a 20 77 |fo",,wimp%.3": w|
00008c80 69 6e 64 6f 77 25 3d 77 69 6d 70 25 21 31 32 3a |indow%=wimp%!12:|
00008c90 69 63 6f 6e 25 3d 77 69 6d 70 25 21 31 36 3a 78 |icon%=wimp%!16:x|
00008ca0 25 3d 77 69 6d 70 25 21 30 3a 79 25 3d 77 69 6d |%=wimp%!0:y%=wim|
00008cb0 70 25 21 34 0d 33 2c 3e 20 77 69 6d 70 25 21 30 |p%!4.3,> wimp%!0|
00008cc0 3d 73 61 76 65 25 20 3a 20 77 69 6d 70 25 21 34 |=save% : wimp%!4|
00008cd0 3d 31 20 3a 20 c8 99 20 22 57 69 6d 70 5f 47 65 |=1 : .. "Wimp_Ge|
00008ce0 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 77 69 6d |tIconState",,wim|
00008cf0 70 25 0d 33 36 16 20 66 69 6c 65 24 3d 24 28 77 |p%.36. file$=$(w|
00008d00 69 6d 70 25 21 32 38 29 0d 33 40 2b 20 66 69 6c |imp%!28).3@+ fil|
00008d10 65 24 3d a4 57 69 6d 70 5f 47 65 74 46 69 6c 65 |e$=.Wimp_GetFile|
00008d20 46 72 6f 6d 50 61 74 68 6e 61 6d 65 28 66 69 6c |FromPathname(fil|
00008d30 65 24 29 0d 33 4a 0e 41 43 45 24 3d 66 69 6c 65 |e$).3J.ACE$=file|
00008d40 24 0d 33 54 15 20 77 69 6d 70 25 21 32 30 3d 77 |$.3T. wimp%!20=w|
00008d50 69 6e 64 6f 77 25 0d 33 5e 13 20 77 69 6d 70 25 |indow%.3^. wimp%|
00008d60 21 32 34 3d 69 63 6f 6e 25 0d 33 68 1c 20 77 69 |!24=icon%.3h. wi|
00008d70 6d 70 25 21 32 38 3d 78 25 3a 77 69 6d 70 25 21 |mp%!28=x%:wimp%!|
00008d80 33 32 3d 79 25 0d 33 72 15 20 77 69 6d 70 25 21 |32=y%.3r. wimp%!|
00008d90 33 36 3d 6c 65 6e 67 74 68 25 0d 33 7c 0f 20 77 |36=length%.3|. w|
00008da0 69 6d 70 25 21 30 3d 36 34 0d 33 86 0f 20 77 69 |imp%!0=64.3.. wi|
00008db0 6d 70 25 21 31 32 3d 30 0d 33 90 0f 20 77 69 6d |mp%!12=0.3.. wim|
00008dc0 70 25 21 31 36 3d 31 0d 33 9a 12 20 77 69 6d 70 |p%!16=1.3.. wimp|
00008dd0 25 21 34 30 3d 26 46 46 46 0d 33 a4 16 20 24 28 |%!40=&FFF.3.. $(|
00008de0 77 69 6d 70 25 2b 34 34 29 3d 66 69 6c 65 24 0d |wimp%+44)=file$.|
00008df0 33 ae 34 20 c8 99 22 57 69 6d 70 5f 53 65 6e 64 |3.4 .."Wimp_Send|
00008e00 4d 65 73 73 61 67 65 22 2c 31 37 2c 77 69 6d 70 |Message",17,wimp|
00008e10 25 2c 77 69 6d 70 25 21 32 30 2c 77 69 6d 70 25 |%,wimp%!20,wimp%|
00008e20 21 32 34 0d 33 b8 05 e1 0d 33 c2 05 3a 0d 33 cc |!24.3....3..:.3.|
00008e30 18 dd 20 f2 57 69 6d 70 5f 50 6f 6c 6c 4d 65 73 |.. .Wimp_PollMes|
00008e40 73 61 67 65 73 0d 33 d6 0b ea 20 66 69 6c 65 24 |sages.3... file$|
00008e50 0d 33 e0 2c 66 69 6c 65 24 3d a4 57 69 6d 70 5f |.3.,file$=.Wimp_|
00008e60 47 65 74 53 74 72 69 6e 67 41 74 41 64 64 72 65 |GetStringAtAddre|
00008e70 73 73 28 77 69 6d 70 25 2b 34 34 29 0d 33 ea 15 |ss(wimp%+44).3..|
00008e80 20 20 20 20 c8 8e 20 77 69 6d 70 25 21 31 36 20 | .. wimp%!16 |
00008e90 ca 0d 33 f4 1a 20 20 20 20 20 c9 20 30 20 3a 20 |..3.. . 0 : |
00008ea0 66 69 6e 69 73 68 65 64 25 3d b9 0d 33 fe 0e 20 |finished%=..3.. |
00008eb0 20 20 20 20 c9 20 31 20 3a 0d 34 08 0e 20 20 20 | . 1 :.4.. |
00008ec0 20 20 c9 20 32 20 3a 0d 34 12 2f 20 20 20 20 20 | . 2 :.4./ |
00008ed0 20 f4 20 50 52 4f 43 57 69 6d 70 5f 49 63 6f 6e | . PROCWimp_Icon|
00008ee0 50 75 74 54 65 78 74 28 73 61 76 65 25 2c 31 2c |PutText(save%,1,|
00008ef0 66 69 6c 65 24 29 0d 34 1c 43 20 20 20 20 20 20 |file$).4.C |
00008f00 77 69 6d 70 25 21 30 3d 73 61 76 65 25 20 3a 20 |wimp%!0=save% : |
00008f10 77 69 6d 70 25 21 34 3d 31 20 3a 20 c8 99 20 22 |wimp%!4=1 : .. "|
00008f20 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 |Wimp_GetIconStat|
00008f30 65 22 2c 2c 77 69 6d 70 25 0d 34 26 1b 20 20 20 |e",,wimp%.4&. |
00008f40 20 20 20 24 28 77 69 6d 70 25 21 32 38 29 3d 66 | $(wimp%!28)=f|
00008f50 69 6c 65 24 0d 34 30 3c 20 20 20 20 20 20 77 69 |ile$.40< wi|
00008f60 6d 70 25 21 30 3d 73 61 76 65 25 20 3a 20 77 69 |mp%!0=save% : wi|
00008f70 6d 70 25 21 34 3d 31 20 3a 20 77 69 6d 70 25 21 |mp%!4=1 : wimp%!|
00008f80 38 3d 30 20 3a 20 77 69 6d 70 25 21 31 32 3d 30 |8=0 : wimp%!12=0|
00008f90 0d 34 3a 27 20 20 20 20 20 20 c8 99 20 22 57 69 |.4:' .. "Wi|
00008fa0 6d 70 5f 53 65 74 49 63 6f 6e 53 74 61 74 65 22 |mp_SetIconState"|
00008fb0 2c 2c 77 69 6d 70 25 0d 34 44 30 20 20 20 20 20 |,,wimp%.4D0 |
00008fc0 20 f4 20 50 52 4f 43 57 69 6d 70 5f 49 63 6f 6e | . PROCWimp_Icon|
00008fd0 43 61 72 65 74 28 73 61 76 65 25 2c 31 2c 4c 45 |Caret(save%,1,LE|
00008fe0 4e 66 69 6c 65 24 29 0d 34 4e 38 20 20 20 20 20 |Nfile$).4N8 |
00008ff0 20 c8 99 20 22 57 69 6d 70 5f 53 65 74 43 61 72 | .. "Wimp_SetCar|
00009000 65 74 50 6f 73 69 74 69 6f 6e 22 2c 73 61 76 65 |etPosition",save|
00009010 25 2c 31 2c 2c 2c 2d 31 2c a9 66 69 6c 65 24 0d |%,1,,,-1,.file$.|
00009020 34 58 26 20 20 20 20 20 20 f2 45 76 65 6e 74 5f |4X& .Event_|
00009030 53 61 76 65 46 69 6c 65 28 66 69 6c 65 24 2c 73 |SaveFile(file$,s|
00009040 61 76 65 25 29 0d 34 62 23 20 20 20 20 20 20 e7 |ave%).4b# .|
00009050 20 53 41 25 3d b9 20 8c 20 f2 57 69 6d 70 5f 43 | SA%=. . .Wimp_C|
00009060 6c 6f 73 65 44 6f 77 6e 0d 34 6c 0c 20 20 20 20 |loseDown.4l. |
00009070 20 c9 20 33 0d 34 76 47 20 20 20 20 20 20 74 79 | . 3.4vG ty|
00009080 70 65 24 3d a4 57 69 6d 70 5f 46 69 6c 65 54 79 |pe$=.Wimp_FileTy|
00009090 70 65 28 77 69 6d 70 25 21 34 30 29 20 3a 20 f2 |pe(wimp%!40) : .|
000090a0 45 76 65 6e 74 5f 4c 6f 61 64 46 69 6c 65 28 66 |Event_LoadFile(f|
000090b0 69 6c 65 24 2c 74 79 70 65 24 29 0d 34 80 0e 20 |ile$,type$).4.. |
000090c0 20 20 20 20 c9 20 35 20 3a 0d 34 8a 21 e7 20 77 | . 5 :.4.!. w|
000090d0 69 6d 70 25 21 34 30 3d 26 46 41 46 20 80 20 65 |imp%!40=&FAF . e|
000090e0 76 65 6e 74 25 3d 31 38 20 8c 0d 34 94 14 77 69 |vent%=18 ..4..wi|
000090f0 6d 70 25 21 31 32 3d 77 69 6d 70 25 21 38 0d 34 |mp%!12=wimp%!8.4|
00009100 9e 2b c8 99 22 58 57 69 6d 70 5f 53 65 6e 64 4d |.+.."XWimp_SendM|
00009110 65 73 73 61 67 65 22 2c 31 37 2c 77 69 6d 70 25 |essage",17,wimp%|
00009120 2c 77 69 6d 70 25 21 32 30 0d 34 a8 1f 66 69 6c |,wimp%!20.4..fil|
00009130 65 24 3d a4 57 69 6d 70 5f 47 65 74 46 69 6c 65 |e$=.Wimp_GetFile|
00009140 50 61 74 68 4e 61 6d 65 0d 34 b2 1e 74 79 70 65 |PathName.4..type|
00009150 24 3d a4 57 69 6d 70 5f 46 69 6c 65 54 79 70 65 |$=.Wimp_FileType|
00009160 28 26 46 41 46 29 0d 34 bc 20 f2 45 76 65 6e 74 |(&FAF).4. .Event|
00009170 5f 4c 6f 61 64 46 69 6c 65 28 66 69 6c 65 24 2c |_LoadFile(file$,|
00009180 74 79 70 65 24 29 0d 34 c6 05 cd 0d 34 d0 09 20 |type$).4....4.. |
00009190 20 20 20 cb 0d 34 da 05 e1 0d 34 e4 05 3a 0d 34 | ..4....4..:.4|
000091a0 ee 26 dd 20 a4 57 69 6d 70 5f 47 65 74 53 74 72 |.&. .Wimp_GetStr|
000091b0 69 6e 67 41 74 41 64 64 72 65 73 73 28 61 72 72 |ingAtAddress(arr|
000091c0 61 79 25 29 0d 34 f8 0d ea 73 24 3a 73 24 3d 22 |ay%).4...s$:s$="|
000091d0 22 0d 35 02 3c c8 95 28 3f 61 72 72 61 79 25 3c |".5.<..(?array%<|
000091e0 3e 31 33 29 80 28 3f 61 72 72 61 79 25 3c 3e 30 |>13).(?array%<>0|
000091f0 29 3a 73 24 2b 3d bd 28 3f 61 72 72 61 79 25 29 |):s$+=.(?array%)|
00009200 3a 61 72 72 61 79 25 2b 3d 31 3a ce 3a 0d 35 0c |:array%+=1:.:.5.|
00009210 07 3d 73 24 0d 35 16 05 3a 0d 35 20 23 dd 20 a4 |.=s$.5..:.5 #. .|
00009220 57 69 6d 70 5f 47 65 74 46 69 6c 65 46 72 6f 6d |Wimp_GetFileFrom|
00009230 50 61 74 68 6e 61 6d 65 28 66 24 29 0d 35 2a 11 |Pathname(f$).5*.|
00009240 c8 8e 20 a7 66 24 2c 22 2e 22 29 20 ca 0d 35 34 |.. .f$,".") ..54|
00009250 10 20 c9 20 30 20 20 20 20 3a 3d 66 24 0d 35 3e |. . 0 :=f$.5>|
00009260 37 20 7f 20 3a 3d a4 57 69 6d 70 5f 47 65 74 46 |7 . :=.Wimp_GetF|
00009270 69 6c 65 46 72 6f 6d 50 61 74 68 6e 61 6d 65 28 |ileFromPathname(|
00009280 c2 66 24 2c a9 28 66 24 29 2d a7 66 24 2c 22 2e |.f$,.(f$)-.f$,".|
00009290 22 29 29 29 0d 35 48 05 cb 0d 35 52 05 3a 0d 35 |"))).5H...5R.:.5|
000092a0 5c 1b dd 20 a4 57 69 6d 70 5f 46 69 6c 65 54 79 |\.. .Wimp_FileTy|
000092b0 70 65 28 74 79 70 65 25 29 0d 35 66 0c c8 8e 74 |pe(type%).5f...t|
000092c0 79 70 65 25 ca 0d 35 70 11 c9 26 46 46 46 3a 3d |ype%..5p..&FFF:=|
000092d0 22 54 65 78 74 22 0d 35 7a 11 c9 26 46 46 44 3a |"Text".5z..&FFD:|
000092e0 3d 22 44 61 74 61 22 0d 35 84 12 c9 26 46 46 42 |="Data".5...&FFB|
000092f0 3a 3d 22 42 61 73 69 63 22 0d 35 8e 13 c9 26 46 |:="Basic".5...&F|
00009300 46 39 3a 3d 22 53 70 72 69 74 65 22 0d 35 98 14 |F9:="Sprite".5..|
00009310 c9 26 46 45 44 3a 3d 22 50 61 6c 65 74 74 65 22 |.&FED:="Palette"|
00009320 0d 35 a2 15 c9 26 46 45 43 3a 3d 22 54 65 6d 70 |.5...&FEC:="Temp|
00009330 6c 61 74 65 22 0d 35 ac 11 c9 26 41 46 46 3a 3d |late".5...&AFF:=|
00009340 22 44 72 61 77 22 0d 35 b6 14 c9 26 31 30 30 30 |"Draw".5...&1000|
00009350 3a 3d 22 46 6f 6c 64 65 72 22 0d 35 c0 19 c9 26 |:="Folder".5...&|
00009360 32 30 30 30 3a 3d 22 41 70 70 6c 69 63 61 74 69 |2000:="Applicati|
00009370 6f 6e 22 0d 35 ca 0f 7f 3d c3 7e 28 74 79 70 65 |on".5...=.~(type|
00009380 25 29 0d 35 d4 05 cb 0d 35 de 05 3a 0d 35 e8 0d |%).5....5..:.5..|
00009390 dd a4 63 75 74 28 41 24 29 0d 35 f2 0f 41 62 3d |..cut(A$).5..Ab=|
000093a0 a7 41 24 2c 22 2e 22 29 0d 35 fc 22 e7 20 41 62 |.A$,".").5.". Ab|
000093b0 3c 3e 30 20 8c 20 42 24 3d c0 41 24 2c 41 62 2b |<>0 . B$=.A$,Ab+|
000093c0 32 29 20 8b 20 42 24 3d 41 24 0d 36 06 07 3d 42 |2) . B$=A$.6..=B|
000093d0 24 0d 36 10 05 3a 0d 36 1a 0b dd f2 70 64 73 65 |$.6..:.6....pdse|
000093e0 6c 0d 36 24 0f e7 20 50 53 45 4c 25 3d 32 20 8c |l.6$.. PSEL%=2 .|
000093f0 0d 36 2e 26 f2 57 69 6d 70 5f 49 63 6f 6e 44 69 |.6.&.Wimp_IconDi|
00009400 73 61 62 6c 65 28 50 72 69 6e 74 5f 57 69 6e 64 |sable(Print_Wind|
00009410 6f 77 25 2c 38 29 0d 36 38 05 cd 0d 36 42 0f e7 |ow%,8).68...6B..|
00009420 20 50 53 45 4c 25 3d 33 20 8c 0d 36 4c 26 f2 57 | PSEL%=3 ..6L&.W|
00009430 69 6d 70 5f 49 63 6f 6e 44 69 73 61 62 6c 65 28 |imp_IconDisable(|
00009440 50 72 69 6e 74 5f 57 69 6e 64 6f 77 25 2c 39 29 |Print_Window%,9)|
00009450 0d 36 56 27 f2 57 69 6d 70 5f 49 63 6f 6e 44 69 |.6V'.Wimp_IconDi|
00009460 73 61 62 6c 65 28 50 72 69 6e 74 5f 57 69 6e 64 |sable(Print_Wind|
00009470 6f 77 25 2c 31 31 29 0d 36 60 05 cd 0d 36 6a 05 |ow%,11).6`...6j.|
00009480 e1 0d 36 74 05 3a 0d 36 7e 0a dd f2 70 73 65 6c |..6t.:.6~...psel|
00009490 0d 36 88 0f e7 20 50 53 45 4c 25 3d 31 20 8c 0d |.6... PSEL%=1 ..|
000094a0 36 92 25 f2 57 69 6d 70 5f 53 65 6c 65 63 74 49 |6.%.Wimp_SelectI|
000094b0 63 6f 6e 28 50 72 69 6e 74 5f 57 69 6e 64 6f 77 |con(Print_Window|
000094c0 25 2c 35 29 0d 36 9c 05 cd 0d 36 a6 0f e7 20 50 |%,5).6....6... P|
000094d0 53 45 4c 25 3d 32 20 8c 0d 36 b0 25 f2 57 69 6d |SEL%=2 ..6.%.Wim|
000094e0 70 5f 53 65 6c 65 63 74 49 63 6f 6e 28 50 72 69 |p_SelectIcon(Pri|
000094f0 6e 74 5f 57 69 6e 64 6f 77 25 2c 36 29 0d 36 ba |nt_Window%,6).6.|
00009500 25 f2 57 69 6d 70 5f 49 63 6f 6e 45 6e 61 62 6c |%.Wimp_IconEnabl|
00009510 65 28 50 72 69 6e 74 5f 57 69 6e 64 6f 77 25 2c |e(Print_Window%,|
00009520 38 29 0d 36 c4 47 f2 57 69 6d 70 5f 49 63 6f 6e |8).6.G.Wimp_Icon|
00009530 43 61 72 65 74 28 50 72 69 6e 74 5f 57 69 6e 64 |Caret(Print_Wind|
00009540 6f 77 25 2c 38 2c a9 28 a4 57 69 6d 70 5f 49 63 |ow%,8,.(.Wimp_Ic|
00009550 6f 6e 54 65 78 74 28 50 72 69 6e 74 5f 57 69 6e |onText(Print_Win|
00009560 64 6f 77 25 2c 38 29 29 29 0d 36 ce 05 cd 0d 36 |dow%,8))).6....6|
00009570 d8 0f e7 20 50 53 45 4c 25 3d 33 20 8c 0d 36 e2 |... PSEL%=3 ..6.|
00009580 25 f2 57 69 6d 70 5f 53 65 6c 65 63 74 49 63 6f |%.Wimp_SelectIco|
00009590 6e 28 50 72 69 6e 74 5f 57 69 6e 64 6f 77 25 2c |n(Print_Window%,|
000095a0 37 29 0d 36 ec 25 f2 57 69 6d 70 5f 49 63 6f 6e |7).6.%.Wimp_Icon|
000095b0 45 6e 61 62 6c 65 28 50 72 69 6e 74 5f 57 69 6e |Enable(Print_Win|
000095c0 64 6f 77 25 2c 39 29 0d 36 f6 26 f2 57 69 6d 70 |dow%,9).6.&.Wimp|
000095d0 5f 49 63 6f 6e 45 6e 61 62 6c 65 28 50 72 69 6e |_IconEnable(Prin|
000095e0 74 5f 57 69 6e 64 6f 77 25 2c 31 31 29 0d 37 00 |t_Window%,11).7.|
000095f0 47 f2 57 69 6d 70 5f 49 63 6f 6e 43 61 72 65 74 |G.Wimp_IconCaret|
00009600 28 50 72 69 6e 74 5f 57 69 6e 64 6f 77 25 2c 39 |(Print_Window%,9|
00009610 2c a9 28 a4 57 69 6d 70 5f 49 63 6f 6e 54 65 78 |,.(.Wimp_IconTex|
00009620 74 28 50 72 69 6e 74 5f 57 69 6e 64 6f 77 25 2c |t(Print_Window%,|
00009630 39 29 29 29 0d 37 0a 05 cd 0d 37 14 05 e1 0d 37 |9))).7....7....7|
00009640 1e 05 3a 0d 37 28 18 dd 20 a4 67 65 74 73 74 72 |..:.7(.. .getstr|
00009650 69 6e 67 28 61 72 72 61 79 25 29 0d 37 32 14 ea |ing(array%).72..|
00009660 20 70 61 74 68 24 2c 70 6f 69 6e 74 65 72 25 0d | path$,pointer%.|
00009670 37 3c 0c 70 61 74 68 24 3d 22 22 0d 37 46 13 70 |7<.path$="".7F.p|
00009680 6f 69 6e 74 65 72 25 3d 61 72 72 61 79 25 0d 37 |ointer%=array%.7|
00009690 50 05 f5 0d 37 5a 15 70 61 74 68 24 2b 3d bd 3f |P...7Z.path$+=.?|
000096a0 70 6f 69 6e 74 65 72 25 0d 37 64 0f 70 6f 69 6e |pointer%.7d.poin|
000096b0 74 65 72 25 2b 3d 31 0d 37 6e 20 fd 20 3f 70 6f |ter%+=1.7n . ?po|
000096c0 69 6e 74 65 72 25 3d 30 20 84 20 3f 70 6f 69 6e |inter%=0 . ?poin|
000096d0 74 65 72 25 3d 31 33 0d 37 78 0a 3d 70 61 74 68 |ter%=13.7x.=path|
000096e0 24 0d 37 82 05 3a 0d 37 8c 11 dd f2 6f 70 65 6e |$.7..:.7....open|
000096f0 70 72 69 6e 74 65 72 0d 37 96 30 c8 99 20 22 58 |printer.7.0.. "X|
00009700 50 44 72 69 76 65 72 5f 49 6e 66 6f 22 20 b8 20 |PDriver_Info" . |
00009710 52 30 2c 52 31 2c 52 32 2c 52 33 2c 52 34 2c 52 |R0,R1,R2,R3,R4,R|
00009720 35 2c 52 36 2c 52 37 0d 37 a0 2f e7 20 52 31 3d |5,R6,R7.7./. R1=|
00009730 30 20 80 20 52 32 3d 30 20 80 20 52 33 3d 30 20 |0 . R2=0 . R3=0 |
00009740 80 20 52 35 3d 30 20 80 20 52 36 3d 30 20 80 20 |. R5=0 . R6=0 . |
00009750 52 37 3d 30 20 8c 0d 37 aa 39 f2 57 69 6d 70 5f |R7=0 ..7.9.Wimp_|
00009760 49 63 6f 6e 50 75 74 54 65 78 74 28 50 72 69 6e |IconPutText(Prin|
00009770 74 5f 57 69 6e 64 6f 77 25 2c 33 2c 22 4e 6f 20 |t_Window%,3,"No |
00009780 64 72 69 76 65 72 20 6c 6f 61 64 65 64 22 29 0d |driver loaded").|
00009790 37 b4 0a 50 52 54 25 3d a3 0d 37 be 05 cc 0d 37 |7..PRT%=..7....7|
000097a0 c8 1b 70 72 69 6e 74 65 72 24 3d a4 67 65 74 73 |..printer$=.gets|
000097b0 74 72 69 6e 67 28 52 34 29 0d 37 d2 2f f2 57 69 |tring(R4).7./.Wi|
000097c0 6d 70 5f 49 63 6f 6e 50 75 74 54 65 78 74 28 50 |mp_IconPutText(P|
000097d0 72 69 6e 74 5f 57 69 6e 64 6f 77 25 2c 33 2c 70 |rint_Window%,3,p|
000097e0 72 69 6e 74 65 72 24 29 0d 37 dc 0a 50 52 54 25 |rinter$).7..PRT%|
000097f0 3d b9 0d 37 e6 05 cd 0d 37 f0 05 e1 0d 37 fa 05 |=..7....7....7..|
00009800 3a 0d 38 04 0b dd f2 70 72 69 6e 74 0d 38 0e 05 |:.8....print.8..|
00009810 3a 0d 38 18 36 70 72 69 6e 74 68 61 6e 64 25 3d |:.8.6printhand%=|
00009820 ae 28 22 50 52 49 4e 54 45 52 3a 24 2e 4a 6f 62 |.("PRINTER:$.Job|
00009830 31 22 29 20 3a 20 f4 20 73 74 61 72 74 20 61 20 |1") : . start a |
00009840 6a 6f 62 20 21 21 21 0d 38 22 18 24 74 69 74 6c |job !!!.8".$titl|
00009850 65 25 3d 22 43 68 65 61 74 20 66 69 6c 65 22 0d |e%="Cheat file".|
00009860 38 2c 1f c8 99 20 26 38 30 31 34 35 2c 70 72 69 |8,... &80145,pri|
00009870 6e 74 68 61 6e 64 25 2c 74 69 74 6c 65 25 0d 38 |nthand%,title%.8|
00009880 36 3e d5 23 70 72 69 6e 74 68 61 6e 64 25 2c 31 |6>.#printhand%,1|
00009890 33 20 3a 20 f4 20 70 75 74 20 68 65 61 64 20 74 |3 : . put head t|
000098a0 6f 20 6c 65 66 74 20 6f 66 20 70 61 70 65 72 20 |o left of paper |
000098b0 74 6f 20 73 74 61 72 74 21 21 21 21 0d 38 40 05 |to start!!!!.8@.|
000098c0 3a 0d 38 4a 0f e7 20 50 53 45 4c 25 3d 31 20 8c |:.8J.. PSEL%=1 .|
000098d0 0d 38 54 5b f2 70 72 69 6e 74 6c 69 6e 65 28 22 |.8T[.printline("|
000098e0 2b 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |+---+-----------|
000098f0 2b 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d |+-----+---------|
00009900 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |-+--------------|
00009910 2d 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d |------+---------|
00009920 2d 2d 2b 22 2b bd 28 31 30 29 29 0d 38 5e 5b f2 |--+"+.(10)).8^[.|
00009930 70 72 69 6e 74 6c 69 6e 65 28 22 7c 4e 75 6d 7c |printline("|Num||
00009940 20 20 41 6d 6d 6f 75 6e 74 20 20 7c 53 74 61 74 | Ammount |Stat|
00009950 65 7c 20 20 20 44 61 74 65 20 20 20 7c 20 57 68 |e| Date | Wh|
00009960 6f 20 67 61 76 65 20 69 74 20 74 6f 20 79 6f 75 |o gave it to you|
00009970 20 7c 20 20 20 54 4f 54 41 4c 20 20 20 7c 22 2b | | TOTAL |"+|
00009980 bd 28 31 30 29 29 0d 38 68 5b f2 70 72 69 6e 74 |.(10)).8h[.print|
00009990 6c 69 6e 65 28 22 2b 2d 2d 2d 2b 2d 2d 2d 2d 2d |line("+---+-----|
000099a0 2d 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2b 2d 2d 2d |------+-----+---|
000099b0 2d 2d 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d |-------+--------|
000099c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 2d 2d 2d |------------+---|
000099d0 2d 2d 2d 2d 2d 2d 2d 2d 2b 22 2b bd 28 31 30 29 |--------+"+.(10)|
000099e0 29 0d 38 72 14 e3 20 41 3d 31 20 b8 20 74 6f 74 |).8r.. A=1 . tot|
000099f0 61 6c 25 2d 31 0d 38 7c 15 e7 20 41 4d 4d 4f 55 |al%-1.8|.. AMMOU|
00009a00 4e 54 28 41 29 3c 3e 30 20 8c 0d 38 86 0b 41 24 |NT(A)<>0 ..8..A$|
00009a10 3d c3 28 41 29 0d 38 90 0c 41 41 3d a9 28 41 24 |=.(A).8..AA=.(A$|
00009a20 29 0d 38 9a 11 53 24 3d a4 73 70 63 28 33 2d 41 |).8..S$=.spc(3-A|
00009a30 41 29 0d 38 a4 14 42 24 3d c3 28 41 4d 4d 4f 55 |A).8..B$=.(AMMOU|
00009a40 4e 54 28 41 29 29 0d 38 ae 10 42 24 3d a4 7a 65 |NT(A)).8..B$=.ze|
00009a50 72 6f 28 42 24 29 0d 38 b8 0c 42 42 3d a9 28 42 |ro(B$).8..BB=.(B|
00009a60 24 29 0d 38 c2 13 53 53 24 3d a4 73 70 63 28 31 |$).8..SS$=.spc(1|
00009a70 31 2d 42 42 29 0d 38 cc 25 e7 20 53 54 41 54 55 |1-BB).8.%. STATU|
00009a80 53 24 28 41 29 3d 22 53 70 65 6e 64 22 20 8c 20 |S$(A)="Spend" . |
00009a90 43 24 3d 22 53 70 65 6e 64 22 0d 38 d6 24 e7 20 |C$="Spend".8.$. |
00009aa0 53 54 41 54 55 53 24 28 41 29 3d 22 53 61 76 65 |STATUS$(A)="Save|
00009ab0 22 20 8c 20 43 24 3d 22 53 61 76 65 20 22 0d 38 |" . C$="Save ".8|
00009ac0 e0 12 43 43 3d a9 28 44 41 54 45 24 28 41 29 29 |..CC=.(DATE$(A))|
00009ad0 0d 38 ea 14 53 53 53 24 3d a4 73 70 63 28 31 30 |.8..SSS$=.spc(10|
00009ae0 2d 43 43 29 0d 38 f4 11 44 44 3d a9 28 57 48 4f |-CC).8..DD=.(WHO|
00009af0 24 28 41 29 29 0d 38 fe 15 53 53 53 53 24 3d a4 |$(A)).8..SSSS$=.|
00009b00 73 70 63 28 32 30 2d 44 44 29 0d 39 08 13 45 24 |spc(20-DD).9..E$|
00009b10 3d c3 28 43 55 52 54 4f 54 28 41 29 29 0d 39 12 |=.(CURTOT(A)).9.|
00009b20 10 45 24 3d a4 7a 65 72 6f 28 45 24 29 0d 39 1c |.E$=.zero(E$).9.|
00009b30 0c 45 45 3d a9 28 45 24 29 0d 39 26 16 53 53 53 |.EE=.(E$).9&.SSS|
00009b40 53 53 24 3d a4 73 70 63 28 31 31 2d 45 45 29 0d |SS$=.spc(11-EE).|
00009b50 39 30 67 f2 70 72 69 6e 74 6c 69 6e 65 28 22 7c |90g.printline("||
00009b60 22 2b 41 24 2b 53 24 2b 22 7c 22 2b 42 24 2b 53 |"+A$+S$+"|"+B$+S|
00009b70 53 24 2b 22 7c 22 2b 43 24 2b 22 7c 22 2b 44 41 |S$+"|"+C$+"|"+DA|
00009b80 54 45 24 28 41 29 2b 53 53 53 24 2b 22 7c 22 2b |TE$(A)+SSS$+"|"+|
00009b90 57 48 4f 24 28 41 29 2b 53 53 53 53 24 2b 22 7c |WHO$(A)+SSSS$+"||
00009ba0 22 2b 45 24 2b 53 53 53 53 53 24 2b 22 7c 22 2b |"+E$+SSSSS$+"|"+|
00009bb0 bd 28 31 30 29 29 0d 39 3a 05 cd 0d 39 44 06 ed |.(10)).9:...9D..|
00009bc0 41 0d 39 4e 5b f2 70 72 69 6e 74 6c 69 6e 65 28 |A.9N[.printline(|
00009bd0 22 2b 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |"+---+----------|
00009be0 2d 2b 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d |-+-----+--------|
00009bf0 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |--+-------------|
00009c00 2d 2d 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d |-------+--------|
00009c10 2d 2d 2d 2b 22 2b bd 28 31 30 29 29 0d 39 58 05 |---+"+.(10)).9X.|
00009c20 cd 0d 39 62 04 0d 39 6c 0f e7 20 50 53 45 4c 25 |..9b..9l.. PSEL%|
00009c30 3d 32 20 8c 0d 39 76 29 50 41 3d bb 28 a4 57 69 |=2 ..9v)PA=.(.Wi|
00009c40 6d 70 5f 49 63 6f 6e 54 65 78 74 28 50 72 69 6e |mp_IconText(Prin|
00009c50 74 5f 57 69 6e 64 6f 77 25 2c 38 29 29 0d 39 80 |t_Window%,8)).9.|
00009c60 10 50 42 3d 28 50 41 2d 31 29 2a 31 34 0d 39 8a |.PB=(PA-1)*14.9.|
00009c70 5b f2 70 72 69 6e 74 6c 69 6e 65 28 22 2b 2d 2d |[.printline("+--|
00009c80 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 2d 2d |-+-----------+--|
00009c90 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 2d |---+----------+-|
00009ca0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00009cb0 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b |---+-----------+|
00009cc0 22 2b bd 28 31 30 29 29 0d 39 94 5b f2 70 72 69 |"+.(10)).9.[.pri|
00009cd0 6e 74 6c 69 6e 65 28 22 7c 4e 75 6d 7c 20 20 41 |ntline("|Num| A|
00009ce0 6d 6d 6f 75 6e 74 20 20 7c 53 74 61 74 65 7c 20 |mmount |State| |
00009cf0 20 20 44 61 74 65 20 20 20 7c 20 57 68 6f 20 67 | Date | Who g|
00009d00 61 76 65 20 69 74 20 74 6f 20 79 6f 75 20 7c 20 |ave it to you | |
00009d10 20 20 54 4f 54 41 4c 20 20 20 7c 22 2b bd 28 31 | TOTAL |"+.(1|
00009d20 30 29 29 0d 39 9e 5b f2 70 72 69 6e 74 6c 69 6e |0)).9.[.printlin|
00009d30 65 28 22 2b 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d |e("+---+--------|
00009d40 2d 2d 2d 2b 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d |---+-----+------|
00009d50 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----+-----------|
00009d60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d |---------+------|
00009d70 2d 2d 2d 2d 2d 2b 22 2b bd 28 31 30 29 29 0d 39 |-----+"+.(10)).9|
00009d80 a8 18 e3 20 41 3d 28 31 2b 50 42 29 20 b8 20 28 |... A=(1+PB) . (|
00009d90 31 34 2b 50 42 29 0d 39 b2 15 e7 20 41 4d 4d 4f |14+PB).9... AMMO|
00009da0 55 4e 54 28 41 29 3c 3e 30 20 8c 0d 39 bc 0b 41 |UNT(A)<>0 ..9..A|
00009db0 24 3d c3 28 41 29 0d 39 c6 0c 41 41 3d a9 28 41 |$=.(A).9..AA=.(A|
00009dc0 24 29 0d 39 d0 11 53 24 3d a4 73 70 63 28 33 2d |$).9..S$=.spc(3-|
00009dd0 41 41 29 0d 39 da 14 42 24 3d c3 28 41 4d 4d 4f |AA).9..B$=.(AMMO|
00009de0 55 4e 54 28 41 29 29 0d 39 e4 10 42 24 3d a4 7a |UNT(A)).9..B$=.z|
00009df0 65 72 6f 28 42 24 29 0d 39 ee 0c 42 42 3d a9 28 |ero(B$).9..BB=.(|
00009e00 42 24 29 0d 39 f8 13 53 53 24 3d a4 73 70 63 28 |B$).9..SS$=.spc(|
00009e10 31 31 2d 42 42 29 0d 3a 02 25 e7 20 53 54 41 54 |11-BB).:.%. STAT|
00009e20 55 53 24 28 41 29 3d 22 53 70 65 6e 64 22 20 8c |US$(A)="Spend" .|
00009e30 20 43 24 3d 22 53 70 65 6e 64 22 0d 3a 0c 24 e7 | C$="Spend".:.$.|
00009e40 20 53 54 41 54 55 53 24 28 41 29 3d 22 53 61 76 | STATUS$(A)="Sav|
00009e50 65 22 20 8c 20 43 24 3d 22 53 61 76 65 20 22 0d |e" . C$="Save ".|
00009e60 3a 16 12 43 43 3d a9 28 44 41 54 45 24 28 41 29 |:..CC=.(DATE$(A)|
00009e70 29 0d 3a 20 14 53 53 53 24 3d a4 73 70 63 28 31 |).: .SSS$=.spc(1|
00009e80 30 2d 43 43 29 0d 3a 2a 11 44 44 3d a9 28 57 48 |0-CC).:*.DD=.(WH|
00009e90 4f 24 28 41 29 29 0d 3a 34 15 53 53 53 53 24 3d |O$(A)).:4.SSSS$=|
00009ea0 a4 73 70 63 28 32 30 2d 44 44 29 0d 3a 3e 13 45 |.spc(20-DD).:>.E|
00009eb0 24 3d c3 28 43 55 52 54 4f 54 28 41 29 29 0d 3a |$=.(CURTOT(A)).:|
00009ec0 48 10 45 24 3d a4 7a 65 72 6f 28 45 24 29 0d 3a |H.E$=.zero(E$).:|
00009ed0 52 0c 45 45 3d a9 28 45 24 29 0d 3a 5c 16 53 53 |R.EE=.(E$).:\.SS|
00009ee0 53 53 53 24 3d a4 73 70 63 28 31 31 2d 45 45 29 |SSS$=.spc(11-EE)|
00009ef0 0d 3a 66 67 f2 70 72 69 6e 74 6c 69 6e 65 28 22 |.:fg.printline("|
00009f00 7c 22 2b 41 24 2b 53 24 2b 22 7c 22 2b 42 24 2b ||"+A$+S$+"|"+B$+|
00009f10 53 53 24 2b 22 7c 22 2b 43 24 2b 22 7c 22 2b 44 |SS$+"|"+C$+"|"+D|
00009f20 41 54 45 24 28 41 29 2b 53 53 53 24 2b 22 7c 22 |ATE$(A)+SSS$+"|"|
00009f30 2b 57 48 4f 24 28 41 29 2b 53 53 53 53 24 2b 22 |+WHO$(A)+SSSS$+"|
00009f40 7c 22 2b 45 24 2b 53 53 53 53 53 24 2b 22 7c 22 ||"+E$+SSSSS$+"|"|
00009f50 2b bd 28 31 30 29 29 0d 3a 70 05 cd 0d 3a 7a 06 |+.(10)).:p...:z.|
00009f60 ed 41 0d 3a 84 5b f2 70 72 69 6e 74 6c 69 6e 65 |.A.:.[.printline|
00009f70 28 22 2b 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d |("+---+---------|
00009f80 2d 2d 2b 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d |--+-----+-------|
00009f90 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |---+------------|
00009fa0 2d 2d 2d 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d |--------+-------|
00009fb0 2d 2d 2d 2d 2b 22 2b bd 28 31 30 29 29 0d 3a 8e |----+"+.(10)).:.|
00009fc0 05 cd 0d 3a 98 04 0d 3a a2 0f e7 20 50 53 45 4c |...:...:... PSEL|
00009fd0 25 3d 33 20 8c 0d 3a ac 28 41 3d bb 28 a4 57 69 |%=3 ..:.(A=.(.Wi|
00009fe0 6d 70 5f 49 63 6f 6e 54 65 78 74 28 50 72 69 6e |mp_IconText(Prin|
00009ff0 74 5f 57 69 6e 64 6f 77 25 2c 39 29 29 0d 3a b6 |t_Window%,9)).:.|
0000a000 29 42 3d bb 28 a4 57 69 6d 70 5f 49 63 6f 6e 54 |)B=.(.Wimp_IconT|
0000a010 65 78 74 28 50 72 69 6e 74 5f 57 69 6e 64 6f 77 |ext(Print_Window|
0000a020 25 2c 31 31 29 29 0d 3a c0 5b f2 70 72 69 6e 74 |%,11)).:.[.print|
0000a030 6c 69 6e 65 28 22 2b 2d 2d 2d 2b 2d 2d 2d 2d 2d |line("+---+-----|
0000a040 2d 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2b 2d 2d 2d |------+-----+---|
0000a050 2d 2d 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d |-------+--------|
0000a060 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 2d 2d 2d |------------+---|
0000a070 2d 2d 2d 2d 2d 2d 2d 2d 2b 22 2b bd 28 31 30 29 |--------+"+.(10)|
0000a080 29 0d 3a ca 5b f2 70 72 69 6e 74 6c 69 6e 65 28 |).:.[.printline(|
0000a090 22 7c 4e 75 6d 7c 20 20 41 6d 6d 6f 75 6e 74 20 |"|Num| Ammount |
0000a0a0 20 7c 53 74 61 74 65 7c 20 20 20 44 61 74 65 20 | |State| Date |
0000a0b0 20 20 7c 20 57 68 6f 20 67 61 76 65 20 69 74 20 | | Who gave it |
0000a0c0 74 6f 20 79 6f 75 20 7c 20 20 20 54 4f 54 41 4c |to you | TOTAL|
0000a0d0 20 20 20 7c 22 2b bd 28 31 30 29 29 0d 3a d4 5b | |"+.(10)).:.[|
0000a0e0 f2 70 72 69 6e 74 6c 69 6e 65 28 22 2b 2d 2d 2d |.printline("+---|
0000a0f0 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 2d 2d 2d |+-----------+---|
0000a100 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 2d 2d |--+----------+--|
0000a110 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
0000a120 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2b 22 |--+-----------+"|
0000a130 2b bd 28 31 30 29 29 0d 3a de 0d e3 20 41 3d 41 |+.(10)).:... A=A|
0000a140 20 b8 20 42 0d 3a e8 15 e7 20 41 4d 4d 4f 55 4e | . B.:... AMMOUN|
0000a150 54 28 41 29 3c 3e 30 20 8c 0d 3a f2 0b 41 24 3d |T(A)<>0 ..:..A$=|
0000a160 c3 28 41 29 0d 3a fc 0c 41 41 3d a9 28 41 24 29 |.(A).:..AA=.(A$)|
0000a170 0d 3b 06 11 53 24 3d a4 73 70 63 28 33 2d 41 41 |.;..S$=.spc(3-AA|
0000a180 29 0d 3b 10 14 42 24 3d c3 28 41 4d 4d 4f 55 4e |).;..B$=.(AMMOUN|
0000a190 54 28 41 29 29 0d 3b 1a 10 42 24 3d a4 7a 65 72 |T(A)).;..B$=.zer|
0000a1a0 6f 28 42 24 29 0d 3b 24 0c 42 42 3d a9 28 42 24 |o(B$).;$.BB=.(B$|
0000a1b0 29 0d 3b 2e 13 53 53 24 3d a4 73 70 63 28 31 31 |).;..SS$=.spc(11|
0000a1c0 2d 42 42 29 0d 3b 38 25 e7 20 53 54 41 54 55 53 |-BB).;8%. STATUS|
0000a1d0 24 28 41 29 3d 22 53 70 65 6e 64 22 20 8c 20 43 |$(A)="Spend" . C|
0000a1e0 24 3d 22 53 70 65 6e 64 22 0d 3b 42 24 e7 20 53 |$="Spend".;B$. S|
0000a1f0 54 41 54 55 53 24 28 41 29 3d 22 53 61 76 65 22 |TATUS$(A)="Save"|
0000a200 20 8c 20 43 24 3d 22 53 61 76 65 20 22 0d 3b 4c | . C$="Save ".;L|
0000a210 12 43 43 3d a9 28 44 41 54 45 24 28 41 29 29 0d |.CC=.(DATE$(A)).|
0000a220 3b 56 14 53 53 53 24 3d a4 73 70 63 28 31 30 2d |;V.SSS$=.spc(10-|
0000a230 43 43 29 0d 3b 60 11 44 44 3d a9 28 57 48 4f 24 |CC).;`.DD=.(WHO$|
0000a240 28 41 29 29 0d 3b 6a 15 53 53 53 53 24 3d a4 73 |(A)).;j.SSSS$=.s|
0000a250 70 63 28 32 30 2d 44 44 29 0d 3b 74 13 45 24 3d |pc(20-DD).;t.E$=|
0000a260 c3 28 43 55 52 54 4f 54 28 41 29 29 0d 3b 7e 10 |.(CURTOT(A)).;~.|
0000a270 45 24 3d a4 7a 65 72 6f 28 45 24 29 0d 3b 88 0c |E$=.zero(E$).;..|
0000a280 45 45 3d a9 28 45 24 29 0d 3b 92 16 53 53 53 53 |EE=.(E$).;..SSSS|
0000a290 53 24 3d a4 73 70 63 28 31 31 2d 45 45 29 0d 3b |S$=.spc(11-EE).;|
0000a2a0 9c 67 f2 70 72 69 6e 74 6c 69 6e 65 28 22 7c 22 |.g.printline("|"|
0000a2b0 2b 41 24 2b 53 24 2b 22 7c 22 2b 42 24 2b 53 53 |+A$+S$+"|"+B$+SS|
0000a2c0 24 2b 22 7c 22 2b 43 24 2b 22 7c 22 2b 44 41 54 |$+"|"+C$+"|"+DAT|
0000a2d0 45 24 28 41 29 2b 53 53 53 24 2b 22 7c 22 2b 57 |E$(A)+SSS$+"|"+W|
0000a2e0 48 4f 24 28 41 29 2b 53 53 53 53 24 2b 22 7c 22 |HO$(A)+SSSS$+"|"|
0000a2f0 2b 45 24 2b 53 53 53 53 53 24 2b 22 7c 22 2b bd |+E$+SSSSS$+"|"+.|
0000a300 28 31 30 29 29 0d 3b a6 05 cd 0d 3b b0 06 ed 41 |(10)).;....;...A|
0000a310 0d 3b ba 5b f2 70 72 69 6e 74 6c 69 6e 65 28 22 |.;.[.printline("|
0000a320 2b 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |+---+-----------|
0000a330 2b 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d |+-----+---------|
0000a340 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |-+--------------|
0000a350 2d 2d 2d 2d 2d 2d 2b 2d 2d 2d 2d 2d 2d 2d 2d 2d |------+---------|
0000a360 2d 2d 2b 22 2b bd 28 31 30 29 29 0d 3b c4 05 cd |--+"+.(10)).;...|
0000a370 0d 3b ce 05 3a 0d 3b d8 28 d5 23 70 72 69 6e 74 |.;..:.;.(.#print|
0000a380 68 61 6e 64 25 2c 31 32 20 3a 20 f4 20 64 6f 20 |hand%,12 : . do |
0000a390 6c 69 6e 65 66 65 65 64 20 21 21 21 21 0d 3b e2 |linefeed !!!!.;.|
0000a3a0 18 c8 99 20 26 38 30 31 34 38 2c 70 72 69 6e 74 |... &80148,print|
0000a3b0 68 61 6e 64 25 0d 3b ec 11 d9 20 23 70 72 69 6e |hand%.;... #prin|
0000a3c0 74 68 61 6e 64 25 0d 3b f6 05 e1 0d 3c 00 05 3a |thand%.;....<..:|
0000a3d0 0d 3c 0a 16 dd f2 70 72 69 6e 74 6c 69 6e 65 28 |.<....printline(|
0000a3e0 6c 69 6e 65 24 29 0d 3c 14 16 e3 20 63 63 6f 3d |line$).<... cco=|
0000a3f0 31 20 b8 20 a9 28 6c 69 6e 65 24 29 0d 3c 1e 19 |1 . .(line$).<..|
0000a400 62 79 74 65 3d 97 28 c1 6c 69 6e 65 24 2c 63 63 |byte=.(.line$,cc|
0000a410 6f 2c 31 29 29 0d 3c 28 15 d5 23 70 72 69 6e 74 |o,1)).<(..#print|
0000a420 68 61 6e 64 25 2c 62 79 74 65 0d 3c 32 47 e7 20 |hand%,byte.<2G. |
0000a430 62 79 74 65 3d 31 30 20 84 20 62 79 74 65 3d 31 |byte=10 . byte=1|
0000a440 33 20 8c 20 d5 23 70 72 69 6e 74 68 61 6e 64 25 |3 . .#printhand%|
0000a450 2c 31 33 20 3a 20 f4 20 70 75 74 20 68 65 61 64 |,13 : . put head|
0000a460 20 74 6f 20 6c 65 66 74 20 6f 66 20 70 61 70 65 | to left of pape|
0000a470 72 0d 3c 3c 09 ed 20 63 63 6f 0d 3c 46 05 e1 0d |r.<<.. cco.<F...|
0000a480 3c 50 05 3a 0d 3c 5a 0e dd a4 73 70 63 28 6e 75 |<P.:.<Z...spc(nu|
0000a490 6d 29 0d 3c 64 0d e7 20 6e 75 6d 3e 30 20 8c 0d |m).<d.. num>0 ..|
0000a4a0 3c 6e 07 ea 20 66 0d 3c 78 0a 53 50 24 3d 22 22 |<n.. f.<x.SP$=""|
0000a4b0 0d 3c 82 1b e3 20 66 3d 31 20 b8 20 6e 75 6d 3a |.<... f=1 . num:|
0000a4c0 53 50 24 2b 3d 22 20 22 3a ed 66 0d 3c 8c 05 cc |SP$+=" ":.f.<...|
0000a4d0 0d 3c 96 0a 53 50 24 3d 22 22 0d 3c a0 05 cd 0d |.<..SP$="".<....|
0000a4e0 3c aa 08 3d 53 50 24 0d 3c b4 05 3a 0d 3c be 12 |<..=SP$.<..:.<..|
0000a4f0 dd a4 7a 65 72 6f 28 6e 75 6d 62 73 24 29 0d 3c |..zero(numbs$).<|
0000a500 c8 07 ea 20 42 0d 3c d2 12 42 3d a7 6e 75 6d 62 |... B.<..B=.numb|
0000a510 73 24 2c 22 2e 22 29 0d 3c dc 2e e7 20 a9 28 6e |s$,".").<... .(n|
0000a520 75 6d 62 73 24 29 2d 31 3d 42 20 80 20 42 3c 3e |umbs$)-1=B . B<>|
0000a530 30 20 8c 20 6e 75 6d 62 73 24 3d 6e 75 6d 62 73 |0 . numbs$=numbs|
0000a540 24 2b 22 30 22 0d 3c e6 1f e7 20 42 3d 30 20 8c |$+"0".<... B=0 .|
0000a550 20 6e 75 6d 62 73 24 3d 6e 75 6d 62 73 24 2b 22 | numbs$=numbs$+"|
0000a560 2e 30 30 22 0d 3c f0 0b 3d 6e 75 6d 62 73 24 0d |.00".<..=numbs$.|
0000a570 3c fa 05 3a 0d 3d 04 0c dd 20 f2 65 72 72 6f 72 |<..:.=... .error|
0000a580 0d 3d 0e 0f e7 20 9f 3d 36 37 37 38 35 20 8c 0d |.=... .=67785 ..|
0000a590 3d 18 43 f2 57 69 6d 70 5f 57 69 6e 64 6f 77 45 |=.C.Wimp_WindowE|
0000a5a0 72 72 6f 72 42 6f 78 28 22 21 41 44 52 42 6f 6f |rrorBox("!ADRBoo|
0000a5b0 6b 22 2c 22 50 6c 65 61 73 65 20 77 72 69 74 65 |k","Please write|
0000a5c0 20 65 6e 61 62 6c 65 20 74 68 65 20 64 69 73 6b | enable the disk|
0000a5d0 22 29 0d 3d 22 09 d9 20 23 58 25 0d 3d 2c 05 cc |").=".. #X%.=,..|
0000a5e0 0d 3d 36 0d 44 4f 53 41 56 45 25 3d a3 0d 3d 40 |.=6.DOSAVE%=..=@|
0000a5f0 27 f2 57 69 6d 70 5f 57 69 6e 64 6f 77 45 72 72 |'.Wimp_WindowErr|
0000a600 6f 72 42 6f 78 28 22 21 41 44 52 42 6f 6f 6b 22 |orBox("!ADRBook"|
0000a610 2c f6 24 29 0d 3d 4a 05 cd 0d 3d 54 05 e1 0d 3d |,.$).=J...=T...=|
0000a620 5e 05 3a 0d 3d 68 0c dd 20 f2 75 6e 62 6f 78 0d |^.:.=h.. .unbox.|
0000a630 3d 72 2b c8 99 20 22 4f 53 5f 52 65 61 64 4d 6f |=r+.. "OS_ReadMo|
0000a640 64 65 56 61 72 69 61 62 6c 65 22 2c 2d 31 2c 31 |deVariable",-1,1|
0000a650 31 20 b8 20 2c 2c 78 70 69 63 0d 3d 7c 2b c8 99 |1 . ,,xpic.=|+..|
0000a660 20 22 4f 53 5f 52 65 61 64 4d 6f 64 65 56 61 72 | "OS_ReadModeVar|
0000a670 69 61 62 6c 65 22 2c 2d 31 2c 31 32 20 b8 20 2c |iable",-1,12 . ,|
0000a680 2c 79 70 69 63 0d 3d 86 2b c8 99 20 22 4f 53 5f |,ypic.=.+.. "OS_|
0000a690 52 65 61 64 4d 6f 64 65 56 61 72 69 61 62 6c 65 |ReadModeVariable|
0000a6a0 22 2c 2d 31 2c 34 20 b8 20 2c 2c 78 66 61 63 74 |",-1,4 . ,,xfact|
0000a6b0 0d 3d 90 2b c8 99 20 22 4f 53 5f 52 65 61 64 4d |.=.+.. "OS_ReadM|
0000a6c0 6f 64 65 56 61 72 69 61 62 6c 65 22 2c 2d 31 2c |odeVariable",-1,|
0000a6d0 35 20 b8 20 2c 2c 79 66 61 63 74 0d 3d 9a 25 c8 |5 . ,,yfact.=.%.|
0000a6e0 97 20 c8 93 20 30 2c 30 2c 78 70 69 63 3c 3c 78 |. .. 0,0,xpic<<x|
0000a6f0 66 61 63 74 2c 79 70 69 63 3c 3c 79 66 61 63 74 |fact,ypic<<yfact|
0000a700 0d 3d a4 05 e1 0d ff |.=.....|
0000a707 
.