Home » Archimedes archive » Archimedes World » AW-1992-08.adf » AWaug92 » !AWaug92/Goodies/Wimped/!WimpEd/Library/Selection
!AWaug92/Goodies/Wimped/!WimpEd/Library/Selection
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-1992-08.adf » AWaug92 |
Filename: | !AWaug92/Goodies/Wimped/!WimpEd/Library/Selection |
Read OK: | ✔ |
File size: | 1635 bytes |
Load address: | 0000 |
Exec address: | 0000 |
File contents
EM|_________________________________________________________________________ REM|_________________________________________________________________________ REM|_________________________________________________________________________ REM| REM| REM| REM| ------------------------------- 6/1/92 REM| WIMP PROCEDURE LIBRARY REM| REM| Index of Contents REM| REM| ------------------------------- REM| REM| 1.�Windows REM| REM| 2.�Icons REM| REM| 3.�Menus REM| REM| 4.�Sprites REM| REM| 5.�Miscellaneous REM| REM| 6.�Polling REM| REM| ------------------------------- REM| REM| REM| REM| REM| REM| REM| ------------------------------- REM| 1.�Windows REM| ------------------------------- REM| REM| REM| ------------------------------------------------ REM| REM| Procedures : REM| REM| PROCWimp_WindowAlert(title$,message$) REM| PROCWimp_WindowAlertBox(title$,message$,button%) REM| FNWimp_WindowCancel(title$,message$) REM| PROCWimp_WindowErrorBox(title$,message$) REM| FNWimp_WindowTitle(window%) REM| FNWimp_WindowLoad(window$) REM| FNWimp_WindowLoadFrom(window$,template$) REM| PROCWimp_WindowBringToTop(window%) REM| PROCWimp_WindowForceDraw(window%) REM| PROCWimp_WindowOpen(window%) REM| PROCWimp_WindowInterface REM| REM| ---------------------------------------------- REM| ------------------------- REM| 2.�Icons REM| ------------------------- REM| REM| REM| ------------------------------------------ REM| REM| Procedures : REM| REM| FNWimp_IconBar(Sprite$) REM| PROCWimp_IconCaret(window%,icon%,chars%) REM| FNWimp_IconText(window%,icon%) REM| FNWimp_IconValidation(window%,icon%) REM| PROCWimp_IconDisable(window%,icon%) REM| PROCWimp_IconEnable(window%,icon%) REM| FNWimp_IconPutSprite(window%,icon%,sprite$) REM| PROCWimp_IconPutText(window%,icon%,text$) REM| PROCWimp_IconInterfaceStart REM| PROCWimp_IconInterfaceFinish REM| REM| ------------------------------------------ REM| REM| ------------------------- REM| 3.�Menus REM| ------------------------- REM| REM| REM| ---------------------------------------------- REM| REM| Procedures : REM| REM| REM| PROCWimp_MenuAdjustOn(menu%) REM| FNWimp_MenuChoice(level%) REM| FNWimp_MenuCreate(menu$) REM| FNWimp_MenuColours REM| FNWimp_MenuCreateColours(title$) REM| FNWimp_MenuNoOfEntries(menu$) REM| PROCWimp_MenuBackGroundColour(menu%,item%,colour%) REM| PROCWimp_MenuCentre(menu%,item%) REM| PROCWimp_MenuClose REM| PROCWimp_MenuDisable(menu%,item%) REM| PROCWimp_MenuDottedLine(menu%,item%) REM| PROCWimp_MenuEnable(menu%,item%) REM| PROCWimp_MenuForegroundColour(menu%,item%,colour%) REM| PROCWimp_MenuGlue(menu1%,item%,menu2%) REM| PROCWimp_MenuItem(menu%,item%,item$) REM| PROCWimp_MenuMessage(menu%,item%) REM| PROCWimp_MenuPopUp(Menu%,x%,y%) REM| PROCWimp_MenuPopUpBar(x%,y%) REM| PROCWimp_MenuTick(menu%,item%) REM| PROCWimp_MenuTitle(menu%,title$) REM| PROCWimp_MenuWrite(menu%,item%,buffer%,val%,BufferLength%) REM| REM| ---------------------------------------------- REM| REM| ------------------------- REM| 4.�Sprites REM| ------------------------- REM| REM| REM| ------------------------------------ REM| REM| Procedures : REM| REM| REM| PROCWimp_SpritesLoad REM| PROCWimp_SpritesPathLoad(pathname$ REM| REM| REM| REM| ------------------------------------ REM| REM| ------------------------- REM| 5.�Files REM| ------------------------- REM| REM| REM| ------------------------------- REM| REM| Procedures : REM| REM| REM| FNWimp_FileType(type%) REM| FNWimp_GetFilePathName REM| FNWimp_FileLoad(pathname$) REM| FNWimp_GetStringAtAddress(array%) REM| FNWimp_GetFileFromPathname(f$) REM| PROCWimp_SendToEdit(file$) REM| REM| ------------------------------- REM| REM| REM| : REM| REM| REM| ------------------------- REM| 5.�Miscellaneous REM| ------------------------- REM| REM| REM| ------------------------------- REM| REM| Procedures : REM| REM| REM| PROCWimp_Start(TaskName$,wimp_memory%,icon%) REM| FNWimp_BASICParameters REM| PROCWimp_SetEventVariables REM| PROCWimp_Error(task%,TaskName$) REM| PROCWimp_CloseDown REM| PROCWimp_Quit REM| FNWimp_ReadVariable(Variable$) REM| REM| REM| ------------------------------- REM| : REM| REM|
00000000 45 4d 7c 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f |EM|_____________| 00000010 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f |________________| * 00000040 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0a 52 45 4d |____________.REM| 00000050 7c 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ||_______________| 00000060 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f |________________| * 00000090 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 0a 52 45 4d 7c 5f |__________.REM|_| 000000a0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f |________________| * 000000e0 5f 5f 5f 5f 5f 5f 5f 5f 0a 52 45 4d 7c 0a 52 45 |________.REM|.RE| 000000f0 4d 7c 0a 52 45 4d 7c 0a 52 45 4d 7c 20 20 20 20 |M|.REM|.REM| | 00000100 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d 2d 2d | ----| 00000110 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------| 00000120 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 20 20 20 |----------- | 00000130 20 20 20 20 20 36 2f 31 2f 39 32 0a 52 45 4d 7c | 6/1/92.REM|| 00000140 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000150 20 20 20 57 49 4d 50 20 50 52 4f 43 45 44 55 52 | WIMP PROCEDUR| 00000160 45 20 4c 49 42 52 41 52 59 0a 52 45 4d 7c 0a 52 |E LIBRARY.REM|.R| 00000170 45 4d 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 |EM| | 00000180 20 20 20 20 20 20 20 20 49 6e 64 65 78 20 6f 66 | Index of| 00000190 20 43 6f 6e 74 65 6e 74 73 0a 52 45 4d 7c 0a 52 | Contents.REM|.R| 000001a0 45 4d 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 |EM| | 000001b0 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | -------------| 000001c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------| 000001d0 2d 2d 0a 52 45 4d 7c 0a 52 45 4d 7c 20 20 20 20 |--.REM|.REM| | 000001e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001f0 31 2e a0 57 69 6e 64 6f 77 73 0a 52 45 4d 7c 0a |1..Windows.REM|.| 00000200 52 45 4d 7c 20 20 20 20 20 20 20 20 20 20 20 20 |REM| | 00000210 20 20 20 20 20 20 20 20 32 2e a0 49 63 6f 6e 73 | 2..Icons| 00000220 0a 52 45 4d 7c 0a 52 45 4d 7c 20 20 20 20 20 20 |.REM|.REM| | 00000230 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 2e | 3.| 00000240 a0 4d 65 6e 75 73 0a 52 45 4d 7c 0a 52 45 4d 7c |.Menus.REM|.REM|| 00000250 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000260 20 20 20 20 34 2e a0 53 70 72 69 74 65 73 0a 52 | 4..Sprites.R| 00000270 45 4d 7c 0a 52 45 4d 7c 20 20 20 20 20 20 20 20 |EM|.REM| | 00000280 20 20 20 20 20 20 20 20 20 20 20 20 35 2e a0 4d | 5..M| 00000290 69 73 63 65 6c 6c 61 6e 65 6f 75 73 0a 52 45 4d |iscellaneous.REM| 000002a0 7c 0a 52 45 4d 7c 20 20 20 20 20 20 20 20 20 20 ||.REM| | 000002b0 20 20 20 20 20 20 20 20 20 20 36 2e a0 50 6f 6c | 6..Pol| 000002c0 6c 69 6e 67 0a 52 45 4d 7c 0a 52 45 4d 7c 20 20 |ling.REM|.REM| | 000002d0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d | --| 000002e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------| 000002f0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 52 45 |-------------.RE| 00000300 4d 7c 0a 52 45 4d 7c 0a 52 45 4d 7c 0a 52 45 4d |M|.REM|.REM|.REM| 00000310 7c 0a 52 45 4d 7c 0a 52 45 4d 7c 0a 52 45 4d 7c ||.REM|.REM|.REM|| 00000320 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000330 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------| 00000340 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a |---------------.| 00000350 52 45 4d 7c 20 20 20 20 20 20 20 20 20 20 20 20 |REM| | 00000360 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 2e | 1.| 00000370 a0 57 69 6e 64 6f 77 73 0a 52 45 4d 7c 20 20 20 |.Windows.REM| | 00000380 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d 2d | ---| 00000390 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------| 000003a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 52 45 4d |------------.REM| 000003b0 7c 0a 52 45 4d 7c 0a 52 45 4d 7c 20 20 20 20 20 ||.REM|.REM| | 000003c0 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | -----------| 000003d0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------| * 000003f0 2d 2d 2d 2d 2d 0a 52 45 4d 7c 0a 52 45 4d 7c 20 |-----.REM|.REM| | 00000400 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000410 20 20 20 20 20 50 72 6f 63 65 64 75 72 65 73 20 | Procedures | 00000420 3a 0a 52 45 4d 7c 0a 52 45 4d 7c 20 20 20 20 20 |:.REM|.REM| | 00000430 20 20 20 20 20 20 20 20 50 52 4f 43 57 69 6d 70 | PROCWimp| 00000440 5f 57 69 6e 64 6f 77 41 6c 65 72 74 28 74 69 74 |_WindowAlert(tit| 00000450 6c 65 24 2c 6d 65 73 73 61 67 65 24 29 0a 52 45 |le$,message$).RE| 00000460 4d 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 50 |M| P| 00000470 52 4f 43 57 69 6d 70 5f 57 69 6e 64 6f 77 41 6c |ROCWimp_WindowAl| 00000480 65 72 74 42 6f 78 28 74 69 74 6c 65 24 2c 6d 65 |ertBox(title$,me| 00000490 73 73 61 67 65 24 2c 62 75 74 74 6f 6e 25 29 0a |ssage$,button%).| 000004a0 52 45 4d 7c 20 20 20 20 20 20 20 20 20 20 20 20 |REM| | 000004b0 20 46 4e 57 69 6d 70 5f 57 69 6e 64 6f 77 43 61 | FNWimp_WindowCa| 000004c0 6e 63 65 6c 28 74 69 74 6c 65 24 2c 6d 65 73 73 |ncel(title$,mess| 000004d0 61 67 65 24 29 0a 52 45 4d 7c 20 20 20 20 20 20 |age$).REM| | 000004e0 20 20 20 20 20 20 20 50 52 4f 43 57 69 6d 70 5f | PROCWimp_| 000004f0 57 69 6e 64 6f 77 45 72 72 6f 72 42 6f 78 28 74 |WindowErrorBox(t| 00000500 69 74 6c 65 24 2c 6d 65 73 73 61 67 65 24 29 0a |itle$,message$).| 00000510 52 45 4d 7c 20 20 20 20 20 20 20 20 20 20 20 20 |REM| | 00000520 20 46 4e 57 69 6d 70 5f 57 69 6e 64 6f 77 54 69 | FNWimp_WindowTi| 00000530 74 6c 65 28 77 69 6e 64 6f 77 25 29 0a 52 45 4d |tle(window%).REM| 00000540 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 46 4e || FN| 00000550 57 69 6d 70 5f 57 69 6e 64 6f 77 4c 6f 61 64 28 |Wimp_WindowLoad(| 00000560 77 69 6e 64 6f 77 24 29 0a 52 45 4d 7c 20 20 20 |window$).REM| | 00000570 20 20 20 20 20 20 20 20 20 20 46 4e 57 69 6d 70 | FNWimp| 00000580 5f 57 69 6e 64 6f 77 4c 6f 61 64 46 72 6f 6d 28 |_WindowLoadFrom(| 00000590 77 69 6e 64 6f 77 24 2c 74 65 6d 70 6c 61 74 65 |window$,template| 000005a0 24 29 0a 52 45 4d 7c 20 20 20 20 20 20 20 20 20 |$).REM| | 000005b0 20 20 20 20 50 52 4f 43 57 69 6d 70 5f 57 69 6e | PROCWimp_Win| 000005c0 64 6f 77 42 72 69 6e 67 54 6f 54 6f 70 28 77 69 |dowBringToTop(wi| 000005d0 6e 64 6f 77 25 29 0a 52 45 4d 7c 20 20 20 20 20 |ndow%).REM| | 000005e0 20 20 20 20 20 20 20 20 50 52 4f 43 57 69 6d 70 | PROCWimp| 000005f0 5f 57 69 6e 64 6f 77 46 6f 72 63 65 44 72 61 77 |_WindowForceDraw| 00000600 28 77 69 6e 64 6f 77 25 29 0a 52 45 4d 7c 20 20 |(window%).REM| | 00000610 20 20 20 20 20 20 20 20 20 20 20 50 52 4f 43 57 | PROCW| 00000620 69 6d 70 5f 57 69 6e 64 6f 77 4f 70 65 6e 28 77 |imp_WindowOpen(w| 00000630 69 6e 64 6f 77 25 29 0a 52 45 4d 7c 20 20 20 20 |indow%).REM| | 00000640 20 20 20 20 20 20 20 20 20 50 52 4f 43 57 69 6d | PROCWim| 00000650 70 5f 57 69 6e 64 6f 77 49 6e 74 65 72 66 61 63 |p_WindowInterfac| 00000660 65 0a 52 45 4d 7c 0a 52 45 4d 7c 20 20 20 20 20 |e.REM|.REM| | 00000670 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | ----------| 00000680 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------| * 000006a0 2d 2d 2d 2d 0a 0a 52 45 4d 7c 20 20 20 20 20 20 |----..REM| | 000006b0 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d 2d 2d | ----| 000006c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------| 000006d0 2d 2d 2d 2d 2d 0a 52 45 4d 7c 20 20 20 20 20 20 |-----.REM| | 000006e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000006f0 20 20 20 20 32 2e a0 49 63 6f 6e 73 0a 52 45 4d | 2..Icons.REM| 00000700 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 || | 00000710 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | -------------| 00000720 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 52 45 4d |------------.REM| 00000730 7c 0a 52 45 4d 7c 0a 52 45 4d 7c 20 20 20 20 20 ||.REM|.REM| | 00000740 20 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d | --------| 00000750 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------| * 00000770 2d 2d 0a 52 45 4d 7c 0a 52 45 4d 7c 20 20 20 20 |--.REM|.REM| | 00000780 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000790 20 20 50 72 6f 63 65 64 75 72 65 73 20 3a 0a 52 | Procedures :.R| 000007a0 45 4d 7c 0a 52 45 4d 7c 20 20 20 20 20 20 20 20 |EM|.REM| | 000007b0 20 20 20 20 20 20 46 4e 57 69 6d 70 5f 49 63 6f | FNWimp_Ico| 000007c0 6e 42 61 72 28 53 70 72 69 74 65 24 29 0a 52 45 |nBar(Sprite$).RE| 000007d0 4d 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |M| | 000007e0 50 52 4f 43 57 69 6d 70 5f 49 63 6f 6e 43 61 72 |PROCWimp_IconCar| 000007f0 65 74 28 77 69 6e 64 6f 77 25 2c 69 63 6f 6e 25 |et(window%,icon%| 00000800 2c 63 68 61 72 73 25 29 0a 52 45 4d 7c 20 20 20 |,chars%).REM| | 00000810 20 20 20 20 20 20 20 20 20 20 20 46 4e 57 69 6d | FNWim| 00000820 70 5f 49 63 6f 6e 54 65 78 74 28 77 69 6e 64 6f |p_IconText(windo| 00000830 77 25 2c 69 63 6f 6e 25 29 0a 52 45 4d 7c 20 20 |w%,icon%).REM| | 00000840 20 20 20 20 20 20 20 20 20 20 20 20 46 4e 57 69 | FNWi| 00000850 6d 70 5f 49 63 6f 6e 56 61 6c 69 64 61 74 69 6f |mp_IconValidatio| 00000860 6e 28 77 69 6e 64 6f 77 25 2c 69 63 6f 6e 25 29 |n(window%,icon%)| 00000870 0a 52 45 4d 7c 20 20 20 20 20 20 20 20 20 20 20 |.REM| | 00000880 20 20 20 50 52 4f 43 57 69 6d 70 5f 49 63 6f 6e | PROCWimp_Icon| 00000890 44 69 73 61 62 6c 65 28 77 69 6e 64 6f 77 25 2c |Disable(window%,| 000008a0 69 63 6f 6e 25 29 0a 52 45 4d 7c 20 20 20 20 20 |icon%).REM| | 000008b0 20 20 20 20 20 20 20 20 20 50 52 4f 43 57 69 6d | PROCWim| 000008c0 70 5f 49 63 6f 6e 45 6e 61 62 6c 65 28 77 69 6e |p_IconEnable(win| 000008d0 64 6f 77 25 2c 69 63 6f 6e 25 29 0a 52 45 4d 7c |dow%,icon%).REM|| 000008e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 4e | FN| 000008f0 57 69 6d 70 5f 49 63 6f 6e 50 75 74 53 70 72 69 |Wimp_IconPutSpri| 00000900 74 65 28 77 69 6e 64 6f 77 25 2c 69 63 6f 6e 25 |te(window%,icon%| 00000910 2c 73 70 72 69 74 65 24 29 0a 52 45 4d 7c 20 20 |,sprite$).REM| | 00000920 20 20 20 20 20 20 20 20 20 20 20 20 50 52 4f 43 | PROC| 00000930 57 69 6d 70 5f 49 63 6f 6e 50 75 74 54 65 78 74 |Wimp_IconPutText| 00000940 28 77 69 6e 64 6f 77 25 2c 69 63 6f 6e 25 2c 74 |(window%,icon%,t| 00000950 65 78 74 24 29 0a 52 45 4d 7c 20 20 20 20 20 20 |ext$).REM| | 00000960 20 20 20 20 20 20 20 20 50 52 4f 43 57 69 6d 70 | PROCWimp| 00000970 5f 49 63 6f 6e 49 6e 74 65 72 66 61 63 65 53 74 |_IconInterfaceSt| 00000980 61 72 74 0a 52 45 4d 7c 20 20 20 20 20 20 20 20 |art.REM| | 00000990 20 20 20 20 20 20 50 52 4f 43 57 69 6d 70 5f 49 | PROCWimp_I| 000009a0 63 6f 6e 49 6e 74 65 72 66 61 63 65 46 69 6e 69 |conInterfaceFini| 000009b0 73 68 0a 52 45 4d 7c 0a 52 45 4d 7c 20 20 20 20 |sh.REM|.REM| | 000009c0 20 20 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d | -------| 000009d0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------| * 000009f0 2d 2d 2d 0a 0a 52 45 4d 7c 0a 52 45 4d 7c 20 20 |---..REM|.REM| | 00000a00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000a10 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------| 00000a20 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 52 45 4d 7c 20 20 |---------.REM| | 00000a30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000a40 20 20 20 20 20 20 20 20 33 2e a0 4d 65 6e 75 73 | 3..Menus| 00000a50 0a 52 45 4d 7c 20 20 20 20 20 20 20 20 20 20 20 |.REM| | 00000a60 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d | ---------| 00000a70 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------| 00000a80 0a 52 45 4d 7c 0a 52 45 4d 7c 0a 52 45 4d 7c 20 |.REM|.REM|.REM| | 00000a90 20 20 20 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d | ------| 00000aa0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------| * 00000ac0 2d 2d 2d 2d 2d 2d 2d 2d 0a 52 45 4d 7c 0a 52 45 |--------.REM|.RE| 00000ad0 4d 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |M| | 00000ae0 20 20 20 20 20 20 20 20 50 72 6f 63 65 64 75 72 | Procedur| 00000af0 65 73 20 3a 0a 52 45 4d 7c 0a 52 45 4d 7c 0a 52 |es :.REM|.REM|.R| 00000b00 45 4d 7c 20 20 20 20 20 20 20 20 20 20 20 20 50 |EM| P| 00000b10 52 4f 43 57 69 6d 70 5f 4d 65 6e 75 41 64 6a 75 |ROCWimp_MenuAdju| 00000b20 73 74 4f 6e 28 6d 65 6e 75 25 29 0a 52 45 4d 7c |stOn(menu%).REM|| 00000b30 20 20 20 20 20 20 20 20 20 20 20 20 46 4e 57 69 | FNWi| 00000b40 6d 70 5f 4d 65 6e 75 43 68 6f 69 63 65 28 6c 65 |mp_MenuChoice(le| 00000b50 76 65 6c 25 29 0a 52 45 4d 7c 20 20 20 20 20 20 |vel%).REM| | 00000b60 20 20 20 20 20 20 46 4e 57 69 6d 70 5f 4d 65 6e | FNWimp_Men| 00000b70 75 43 72 65 61 74 65 28 6d 65 6e 75 24 29 0a 52 |uCreate(menu$).R| 00000b80 45 4d 7c 20 20 20 20 20 20 20 20 20 20 20 20 46 |EM| F| 00000b90 4e 57 69 6d 70 5f 4d 65 6e 75 43 6f 6c 6f 75 72 |NWimp_MenuColour| 00000ba0 73 0a 52 45 4d 7c 20 20 20 20 20 20 20 20 20 20 |s.REM| | 00000bb0 20 20 46 4e 57 69 6d 70 5f 4d 65 6e 75 43 72 65 | FNWimp_MenuCre| 00000bc0 61 74 65 43 6f 6c 6f 75 72 73 28 74 69 74 6c 65 |ateColours(title| 00000bd0 24 29 0a 52 45 4d 7c 20 20 20 20 20 20 20 20 20 |$).REM| | 00000be0 20 20 20 46 4e 57 69 6d 70 5f 4d 65 6e 75 4e 6f | FNWimp_MenuNo| 00000bf0 4f 66 45 6e 74 72 69 65 73 28 6d 65 6e 75 24 29 |OfEntries(menu$)| 00000c00 0a 52 45 4d 7c 20 20 20 20 20 20 20 20 20 20 20 |.REM| | 00000c10 20 50 52 4f 43 57 69 6d 70 5f 4d 65 6e 75 42 61 | PROCWimp_MenuBa| 00000c20 63 6b 47 72 6f 75 6e 64 43 6f 6c 6f 75 72 28 6d |ckGroundColour(m| 00000c30 65 6e 75 25 2c 69 74 65 6d 25 2c 63 6f 6c 6f 75 |enu%,item%,colou| 00000c40 72 25 29 0a 52 45 4d 7c 20 20 20 20 20 20 20 20 |r%).REM| | 00000c50 20 20 20 20 50 52 4f 43 57 69 6d 70 5f 4d 65 6e | PROCWimp_Men| 00000c60 75 43 65 6e 74 72 65 28 6d 65 6e 75 25 2c 69 74 |uCentre(menu%,it| 00000c70 65 6d 25 29 0a 52 45 4d 7c 20 20 20 20 20 20 20 |em%).REM| | 00000c80 20 20 20 20 20 50 52 4f 43 57 69 6d 70 5f 4d 65 | PROCWimp_Me| 00000c90 6e 75 43 6c 6f 73 65 0a 52 45 4d 7c 20 20 20 20 |nuClose.REM| | 00000ca0 20 20 20 20 20 20 20 20 50 52 4f 43 57 69 6d 70 | PROCWimp| 00000cb0 5f 4d 65 6e 75 44 69 73 61 62 6c 65 28 6d 65 6e |_MenuDisable(men| 00000cc0 75 25 2c 69 74 65 6d 25 29 0a 52 45 4d 7c 20 20 |u%,item%).REM| | 00000cd0 20 20 20 20 20 20 20 20 20 20 50 52 4f 43 57 69 | PROCWi| 00000ce0 6d 70 5f 4d 65 6e 75 44 6f 74 74 65 64 4c 69 6e |mp_MenuDottedLin| 00000cf0 65 28 6d 65 6e 75 25 2c 69 74 65 6d 25 29 0a 52 |e(menu%,item%).R| 00000d00 45 4d 7c 20 20 20 20 20 20 20 20 20 20 20 20 50 |EM| P| 00000d10 52 4f 43 57 69 6d 70 5f 4d 65 6e 75 45 6e 61 62 |ROCWimp_MenuEnab| 00000d20 6c 65 28 6d 65 6e 75 25 2c 69 74 65 6d 25 29 0a |le(menu%,item%).| 00000d30 52 45 4d 7c 20 20 20 20 20 20 20 20 20 20 20 20 |REM| | 00000d40 50 52 4f 43 57 69 6d 70 5f 4d 65 6e 75 46 6f 72 |PROCWimp_MenuFor| 00000d50 65 67 72 6f 75 6e 64 43 6f 6c 6f 75 72 28 6d 65 |egroundColour(me| 00000d60 6e 75 25 2c 69 74 65 6d 25 2c 63 6f 6c 6f 75 72 |nu%,item%,colour| 00000d70 25 29 0a 52 45 4d 7c 20 20 20 20 20 20 20 20 20 |%).REM| | 00000d80 20 20 20 50 52 4f 43 57 69 6d 70 5f 4d 65 6e 75 | PROCWimp_Menu| 00000d90 47 6c 75 65 28 6d 65 6e 75 31 25 2c 69 74 65 6d |Glue(menu1%,item| 00000da0 25 2c 6d 65 6e 75 32 25 29 0a 52 45 4d 7c 20 20 |%,menu2%).REM| | 00000db0 20 20 20 20 20 20 20 20 20 20 50 52 4f 43 57 69 | PROCWi| 00000dc0 6d 70 5f 4d 65 6e 75 49 74 65 6d 28 6d 65 6e 75 |mp_MenuItem(menu| 00000dd0 25 2c 69 74 65 6d 25 2c 69 74 65 6d 24 29 0a 52 |%,item%,item$).R| 00000de0 45 4d 7c 20 20 20 20 20 20 20 20 20 20 20 20 50 |EM| P| 00000df0 52 4f 43 57 69 6d 70 5f 4d 65 6e 75 4d 65 73 73 |ROCWimp_MenuMess| 00000e00 61 67 65 28 6d 65 6e 75 25 2c 69 74 65 6d 25 29 |age(menu%,item%)| 00000e10 0a 52 45 4d 7c 20 20 20 20 20 20 20 20 20 20 20 |.REM| | 00000e20 20 50 52 4f 43 57 69 6d 70 5f 4d 65 6e 75 50 6f | PROCWimp_MenuPo| 00000e30 70 55 70 28 4d 65 6e 75 25 2c 78 25 2c 79 25 29 |pUp(Menu%,x%,y%)| 00000e40 0a 52 45 4d 7c 20 20 20 20 20 20 20 20 20 20 20 |.REM| | 00000e50 20 50 52 4f 43 57 69 6d 70 5f 4d 65 6e 75 50 6f | PROCWimp_MenuPo| 00000e60 70 55 70 42 61 72 28 78 25 2c 79 25 29 0a 52 45 |pUpBar(x%,y%).RE| 00000e70 4d 7c 20 20 20 20 20 20 20 20 20 20 20 20 50 52 |M| PR| 00000e80 4f 43 57 69 6d 70 5f 4d 65 6e 75 54 69 63 6b 28 |OCWimp_MenuTick(| 00000e90 6d 65 6e 75 25 2c 69 74 65 6d 25 29 0a 52 45 4d |menu%,item%).REM| 00000ea0 7c 20 20 20 20 20 20 20 20 20 20 20 20 50 52 4f || PRO| 00000eb0 43 57 69 6d 70 5f 4d 65 6e 75 54 69 74 6c 65 28 |CWimp_MenuTitle(| 00000ec0 6d 65 6e 75 25 2c 74 69 74 6c 65 24 29 0a 52 45 |menu%,title$).RE| 00000ed0 4d 7c 20 20 20 20 20 20 20 20 20 20 20 20 50 52 |M| PR| 00000ee0 4f 43 57 69 6d 70 5f 4d 65 6e 75 57 72 69 74 65 |OCWimp_MenuWrite| 00000ef0 28 6d 65 6e 75 25 2c 69 74 65 6d 25 2c 62 75 66 |(menu%,item%,buf| 00000f00 66 65 72 25 2c 76 61 6c 25 2c 42 75 66 66 65 72 |fer%,val%,Buffer| 00000f10 4c 65 6e 67 74 68 25 29 0a 52 45 4d 7c 0a 52 45 |Length%).REM|.RE| 00000f20 4d 7c 20 20 20 20 20 20 20 20 20 20 20 2d 2d 2d |M| ---| 00000f30 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------| * 00000f50 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 52 45 4d |-----------..REM| 00000f60 7c 0a 52 45 4d 7c 20 20 20 20 20 20 20 20 20 20 ||.REM| | 00000f70 20 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d | --------| 00000f80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------| 00000f90 2d 0a 52 45 4d 7c 20 20 20 20 20 20 20 20 20 20 |-.REM| | 00000fa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000fb0 34 2e a0 53 70 72 69 74 65 73 0a 52 45 4d 7c 20 |4..Sprites.REM| | 00000fc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000fd0 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | ---------------| 00000fe0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 52 45 4d 7c 0a |----------.REM|.| 00000ff0 52 45 4d 7c 0a 52 45 4d 7c 20 20 20 20 20 20 20 |REM|.REM| | 00001000 20 20 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d | -------| 00001010 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------| 00001020 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 52 45 |-------------.RE| 00001030 4d 7c 0a 52 45 4d 7c 20 20 20 20 20 20 20 20 20 |M|.REM| | 00001040 20 20 20 20 20 20 20 20 20 20 20 20 20 50 72 6f | Pro| 00001050 63 65 64 75 72 65 73 20 3a 0a 52 45 4d 7c 0a 52 |cedures :.REM|.R| 00001060 45 4d 7c 0a 52 45 4d 7c 20 20 20 20 20 20 20 20 |EM|.REM| | 00001070 20 20 20 20 20 20 20 20 20 20 50 52 4f 43 57 69 | PROCWi| 00001080 6d 70 5f 53 70 72 69 74 65 73 4c 6f 61 64 0a 52 |mp_SpritesLoad.R| 00001090 45 4d 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 |EM| | 000010a0 20 20 20 20 20 50 52 4f 43 57 69 6d 70 5f 53 70 | PROCWimp_Sp| 000010b0 72 69 74 65 73 50 61 74 68 4c 6f 61 64 28 70 61 |ritesPathLoad(pa| 000010c0 74 68 6e 61 6d 65 24 0a 52 45 4d 7c 0a 52 45 4d |thname$.REM|.REM| 000010d0 7c 0a 52 45 4d 7c 0a 52 45 4d 7c 20 20 20 20 20 ||.REM|.REM| | 000010e0 20 20 20 20 20 20 20 20 20 20 20 2d 2d 2d 2d 2d | -----| 000010f0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------| 00001100 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a |---------------.| 00001110 52 45 4d 7c 0a 0a 52 45 4d 7c 20 20 20 20 20 20 |REM|..REM| | 00001120 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d 2d 2d | ----| 00001130 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------| 00001140 2d 2d 2d 2d 2d 0a 52 45 4d 7c 20 20 20 20 20 20 |-----.REM| | 00001150 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001160 20 20 20 20 35 2e a0 46 69 6c 65 73 0a 52 45 4d | 5..Files.REM| 00001170 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 || | 00001180 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | -------------| 00001190 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 52 45 4d |------------.REM| 000011a0 7c 0a 52 45 4d 7c 0a 52 45 4d 7c 20 20 20 20 20 ||.REM|.REM| | 000011b0 20 20 20 20 20 20 20 20 20 20 20 2d 2d 2d 2d 2d | -----| 000011c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------| 000011d0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 52 45 4d 7c 0a |----------.REM|.| 000011e0 52 45 4d 7c 20 20 20 20 20 20 20 20 20 20 20 20 |REM| | 000011f0 20 20 20 20 20 20 20 20 20 20 50 72 6f 63 65 64 | Proced| 00001200 75 72 65 73 20 3a 0a 52 45 4d 7c 0a 52 45 4d 7c |ures :.REM|.REM|| 00001210 0a 52 45 4d 7c 20 20 20 20 20 20 20 20 20 20 20 |.REM| | 00001220 20 20 20 20 20 20 20 46 4e 57 69 6d 70 5f 46 69 | FNWimp_Fi| 00001230 6c 65 54 79 70 65 28 74 79 70 65 25 29 0a 52 45 |leType(type%).RE| 00001240 4d 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |M| | 00001250 20 20 20 20 46 4e 57 69 6d 70 5f 47 65 74 46 69 | FNWimp_GetFi| 00001260 6c 65 50 61 74 68 4e 61 6d 65 0a 52 45 4d 7c 20 |lePathName.REM| | 00001270 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001280 20 46 4e 57 69 6d 70 5f 46 69 6c 65 4c 6f 61 64 | FNWimp_FileLoad| 00001290 28 70 61 74 68 6e 61 6d 65 24 29 0a 52 45 4d 7c |(pathname$).REM|| 000012a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000012b0 20 20 46 4e 57 69 6d 70 5f 47 65 74 53 74 72 69 | FNWimp_GetStri| 000012c0 6e 67 41 74 41 64 64 72 65 73 73 28 61 72 72 61 |ngAtAddress(arra| 000012d0 79 25 29 0a 52 45 4d 7c 20 20 20 20 20 20 20 20 |y%).REM| | 000012e0 20 20 20 20 20 20 20 20 20 20 46 4e 57 69 6d 70 | FNWimp| 000012f0 5f 47 65 74 46 69 6c 65 46 72 6f 6d 50 61 74 68 |_GetFileFromPath| 00001300 6e 61 6d 65 28 66 24 29 0a 52 45 4d 7c 20 20 20 |name(f$).REM| | 00001310 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 | P| 00001320 52 4f 43 57 69 6d 70 5f 53 65 6e 64 54 6f 45 64 |ROCWimp_SendToEd| 00001330 69 74 28 66 69 6c 65 24 29 0a 52 45 4d 7c 0a 52 |it(file$).REM|.R| 00001340 45 4d 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 |EM| | 00001350 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | -------------| 00001360 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------| 00001370 2d 2d 0a 52 45 4d 7c 0a 52 45 4d 7c 0a 52 45 4d |--.REM|.REM|.REM| 00001380 7c 0a 3a 0a 52 45 4d 7c 0a 52 45 4d 7c 0a 52 45 ||.:.REM|.REM|.RE| 00001390 4d 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |M| | 000013a0 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | ------------| 000013b0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 52 45 |-------------.RE| 000013c0 4d 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |M| | 000013d0 20 20 20 20 20 20 20 20 35 2e a0 4d 69 73 63 65 | 5..Misce| 000013e0 6c 6c 61 6e 65 6f 75 73 0a 52 45 4d 7c 20 20 20 |llaneous.REM| | 000013f0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d | -| 00001400 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------| 00001410 2d 2d 2d 2d 2d 2d 2d 2d 0a 52 45 4d 7c 0a 52 45 |--------.REM|.RE| 00001420 4d 7c 0a 52 45 4d 7c 20 20 20 20 20 20 20 20 20 |M|.REM| | 00001430 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d | ---------| 00001440 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------| 00001450 2d 2d 2d 2d 2d 2d 0a 52 45 4d 7c 0a 52 45 4d 7c |------.REM|.REM|| 00001460 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001470 20 20 20 20 20 20 50 72 6f 63 65 64 75 72 65 73 | Procedures| 00001480 20 3a 0a 52 45 4d 7c 0a 52 45 4d 7c 0a 52 45 4d | :.REM|.REM|.REM| 00001490 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 || | 000014a0 20 20 20 50 52 4f 43 57 69 6d 70 5f 53 74 61 72 | PROCWimp_Star| 000014b0 74 28 54 61 73 6b 4e 61 6d 65 24 2c 77 69 6d 70 |t(TaskName$,wimp| 000014c0 5f 6d 65 6d 6f 72 79 25 2c 69 63 6f 6e 25 29 0a |_memory%,icon%).| 000014d0 52 45 4d 7c 20 20 20 20 20 20 20 20 20 20 20 20 |REM| | 000014e0 20 20 20 20 20 20 46 4e 57 69 6d 70 5f 42 41 53 | FNWimp_BAS| 000014f0 49 43 50 61 72 61 6d 65 74 65 72 73 0a 52 45 4d |ICParameters.REM| 00001500 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 || | 00001510 20 20 20 50 52 4f 43 57 69 6d 70 5f 53 65 74 45 | PROCWimp_SetE| 00001520 76 65 6e 74 56 61 72 69 61 62 6c 65 73 0a 52 45 |ventVariables.RE| 00001530 4d 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |M| | 00001540 20 20 20 20 50 52 4f 43 57 69 6d 70 5f 45 72 72 | PROCWimp_Err| 00001550 6f 72 28 74 61 73 6b 25 2c 54 61 73 6b 4e 61 6d |or(task%,TaskNam| 00001560 65 24 29 0a 52 45 4d 7c 20 20 20 20 20 20 20 20 |e$).REM| | 00001570 20 20 20 20 20 20 20 20 20 20 50 52 4f 43 57 69 | PROCWi| 00001580 6d 70 5f 43 6c 6f 73 65 44 6f 77 6e 0a 52 45 4d |mp_CloseDown.REM| 00001590 7c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 || | 000015a0 20 20 20 50 52 4f 43 57 69 6d 70 5f 51 75 69 74 | PROCWimp_Quit| 000015b0 0a 52 45 4d 7c 20 20 20 20 20 20 20 20 20 20 20 |.REM| | 000015c0 20 20 20 20 20 20 20 46 4e 57 69 6d 70 5f 52 65 | FNWimp_Re| 000015d0 61 64 56 61 72 69 61 62 6c 65 28 56 61 72 69 61 |adVariable(Varia| 000015e0 62 6c 65 24 29 0a 52 45 4d 7c 0a 52 45 4d 7c 0a |ble$).REM|.REM|.| 000015f0 52 45 4d 7c 20 20 20 20 20 20 20 20 20 20 20 20 |REM| | 00001600 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | ------------| 00001610 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------| 00001620 2d 2d 2d 0a 52 45 4d 7c 0a 3a 0a 0a 52 45 4d 7c |---.REM|.:..REM|| 00001630 0a 52 45 4d 7c |.REM|| 00001635