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