Home » Archimedes archive » Archimedes World » AW-1992-12.adf » AWDec92 » !AWDec92/Goodies/Wimp/Software/Stages/!Sort_0/!RunImage

!AWDec92/Goodies/Wimp/Software/Stages/!Sort_0/!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-1992-12.adf » AWDec92
Filename: !AWDec92/Goodies/Wimp/Software/Stages/!Sort_0/!RunImage
Read OK:
File size: 02E1 bytes
Load address: 0000
Exec address: 0000
File contents
   10LIBRARY"<Obey$Dir>.Wimp"
   20PROCWimp_Start("!Sort",0,0)
   30PROCUser_SetInitialData
   40PROCCreate_Windows
   50PROCCreate_Menus
   60PROCWimp_WaitForEvent
   70PROCWimp_CloseDown
   80END
   90:
  100DEFPROCUser_SetInitialData
  110ENDPROC
  120:
  130DEFPROCCreate_Windows
  140ENDPROC
  150:
  160DEFFNEvent_Save(window%)=FALSE
  170:
  180DEFFNEvent_Sprites(window%)=sprites%
  190:
  200DEFPROCCreate_Menus
  210ENDPROC
  220:
  230DEFFNEvent_Menu(window%)=FALSE
  240:
  250DEFPROCEvent_WindowClose(window%,buttons%)
  260ENDPROC
  270:
  280DEFPROCEvent_Draw(window%,x_origin%,y_origin%)
  290ENDPROC
  300:
  310DEFPROCUser_DrawMainWindow
  320ENDPROC
  330:
  340DEFPROCEvent_MouseClick(window%,icon%,button%,x%,y%)
  350ENDPROC
  360:
  370DEFPROCEvent_KeyPress(window%,icon%,key%)
  380ENDPROC
  390:
  400DEFPROCEvent_MenuChoice(menu%)
  410ENDPROC
  420:
  430DEFPROCEvent_LoadFile(file$,type$)
  440ENDPROC
  450:
  460DEFPROCEvent_SaveFile(file$,window%)
  470ENDPROC

ț"<Obey$Dir>.Wimp"
�Wimp_Start("!Sort",0,0)
�User_SetInitialData
(�Create_Windows
2�Create_Menus
<�Wimp_WaitForEvent
F�Wimp_CloseDown
P�
Z:
d��User_SetInitialData
n�
x:
���Create_Windows
��
�:
�ݤEvent_Save(window%)=�
�:
�%ݤEvent_Sprites(window%)=sprites%
�:
���Create_Menus
��
�:
�ݤEvent_Menu(window%)=�
�:
�)��Event_WindowClose(window%,buttons%)
�
:
-��Event_Draw(window%,x_origin%,y_origin%)
"�
,:
6��User_DrawMainWindow
@�
J:
T3��Event_MouseClick(window%,icon%,button%,x%,y%)
^�
h:
r(��Event_KeyPress(window%,icon%,key%)
|�
�:
���Event_MenuChoice(menu%)
��
�:
�!��Event_LoadFile(file$,type$)
��
�:
�#��Event_SaveFile(file$,window%)
��
�
00000000  0d 00 0a 17 c8 9b 22 3c  4f 62 65 79 24 44 69 72  |......"<Obey$Dir|
00000010  3e 2e 57 69 6d 70 22 0d  00 14 1c f2 57 69 6d 70  |>.Wimp".....Wimp|
00000020  5f 53 74 61 72 74 28 22  21 53 6f 72 74 22 2c 30  |_Start("!Sort",0|
00000030  2c 30 29 0d 00 1e 18 f2  55 73 65 72 5f 53 65 74  |,0).....User_Set|
00000040  49 6e 69 74 69 61 6c 44  61 74 61 0d 00 28 13 f2  |InitialData..(..|
00000050  43 72 65 61 74 65 5f 57  69 6e 64 6f 77 73 0d 00  |Create_Windows..|
00000060  32 11 f2 43 72 65 61 74  65 5f 4d 65 6e 75 73 0d  |2..Create_Menus.|
00000070  00 3c 16 f2 57 69 6d 70  5f 57 61 69 74 46 6f 72  |.<..Wimp_WaitFor|
00000080  45 76 65 6e 74 0d 00 46  13 f2 57 69 6d 70 5f 43  |Event..F..Wimp_C|
00000090  6c 6f 73 65 44 6f 77 6e  0d 00 50 05 e0 0d 00 5a  |loseDown..P....Z|
000000a0  05 3a 0d 00 64 19 dd f2  55 73 65 72 5f 53 65 74  |.:..d...User_Set|
000000b0  49 6e 69 74 69 61 6c 44  61 74 61 0d 00 6e 05 e1  |InitialData..n..|
000000c0  0d 00 78 05 3a 0d 00 82  14 dd f2 43 72 65 61 74  |..x.:......Creat|
000000d0  65 5f 57 69 6e 64 6f 77  73 0d 00 8c 05 e1 0d 00  |e_Windows.......|
000000e0  96 05 3a 0d 00 a0 1b dd  a4 45 76 65 6e 74 5f 53  |..:......Event_S|
000000f0  61 76 65 28 77 69 6e 64  6f 77 25 29 3d a3 0d 00  |ave(window%)=...|
00000100  aa 05 3a 0d 00 b4 25 dd  a4 45 76 65 6e 74 5f 53  |..:...%..Event_S|
00000110  70 72 69 74 65 73 28 77  69 6e 64 6f 77 25 29 3d  |prites(window%)=|
00000120  73 70 72 69 74 65 73 25  0d 00 be 05 3a 0d 00 c8  |sprites%....:...|
00000130  12 dd f2 43 72 65 61 74  65 5f 4d 65 6e 75 73 0d  |...Create_Menus.|
00000140  00 d2 05 e1 0d 00 dc 05  3a 0d 00 e6 1b dd a4 45  |........:......E|
00000150  76 65 6e 74 5f 4d 65 6e  75 28 77 69 6e 64 6f 77  |vent_Menu(window|
00000160  25 29 3d a3 0d 00 f0 05  3a 0d 00 fa 29 dd f2 45  |%)=.....:...)..E|
00000170  76 65 6e 74 5f 57 69 6e  64 6f 77 43 6c 6f 73 65  |vent_WindowClose|
00000180  28 77 69 6e 64 6f 77 25  2c 62 75 74 74 6f 6e 73  |(window%,buttons|
00000190  25 29 0d 01 04 05 e1 0d  01 0e 05 3a 0d 01 18 2d  |%).........:...-|
000001a0  dd f2 45 76 65 6e 74 5f  44 72 61 77 28 77 69 6e  |..Event_Draw(win|
000001b0  64 6f 77 25 2c 78 5f 6f  72 69 67 69 6e 25 2c 79  |dow%,x_origin%,y|
000001c0  5f 6f 72 69 67 69 6e 25  29 0d 01 22 05 e1 0d 01  |_origin%).."....|
000001d0  2c 05 3a 0d 01 36 19 dd  f2 55 73 65 72 5f 44 72  |,.:..6...User_Dr|
000001e0  61 77 4d 61 69 6e 57 69  6e 64 6f 77 0d 01 40 05  |awMainWindow..@.|
000001f0  e1 0d 01 4a 05 3a 0d 01  54 33 dd f2 45 76 65 6e  |...J.:..T3..Even|
00000200  74 5f 4d 6f 75 73 65 43  6c 69 63 6b 28 77 69 6e  |t_MouseClick(win|
00000210  64 6f 77 25 2c 69 63 6f  6e 25 2c 62 75 74 74 6f  |dow%,icon%,butto|
00000220  6e 25 2c 78 25 2c 79 25  29 0d 01 5e 05 e1 0d 01  |n%,x%,y%)..^....|
00000230  68 05 3a 0d 01 72 28 dd  f2 45 76 65 6e 74 5f 4b  |h.:..r(..Event_K|
00000240  65 79 50 72 65 73 73 28  77 69 6e 64 6f 77 25 2c  |eyPress(window%,|
00000250  69 63 6f 6e 25 2c 6b 65  79 25 29 0d 01 7c 05 e1  |icon%,key%)..|..|
00000260  0d 01 86 05 3a 0d 01 90  1d dd f2 45 76 65 6e 74  |....:......Event|
00000270  5f 4d 65 6e 75 43 68 6f  69 63 65 28 6d 65 6e 75  |_MenuChoice(menu|
00000280  25 29 0d 01 9a 05 e1 0d  01 a4 05 3a 0d 01 ae 21  |%).........:...!|
00000290  dd f2 45 76 65 6e 74 5f  4c 6f 61 64 46 69 6c 65  |..Event_LoadFile|
000002a0  28 66 69 6c 65 24 2c 74  79 70 65 24 29 0d 01 b8  |(file$,type$)...|
000002b0  05 e1 0d 01 c2 05 3a 0d  01 cc 23 dd f2 45 76 65  |......:...#..Eve|
000002c0  6e 74 5f 53 61 76 65 46  69 6c 65 28 66 69 6c 65  |nt_SaveFile(file|
000002d0  24 2c 77 69 6e 64 6f 77  25 29 0d 01 d6 05 e1 0d  |$,window%)......|
000002e0  ff                                                |.|
000002e1