PD/!Status/!RunImage

Home » Archimedes archive » Acorn Computing » 1994 07 subscription disc.adf » 9407s » PD/!Status/!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 » Acorn Computing » 1994 07 subscription disc.adf » 9407s
Filename:	PD/!Status/!RunImage
Read OK:	✔
File size:	0DAE bytes
Load address:	0000
Exec address:	0000

File contents

   10REM ><Status$Dir>.!RunImage
   20ON ERROR MODE 0:PRINT"Error : "+REPORT$+" at line "+STR$ERL:END
   30DIM window% 1024,mu% 80,q% 4096:windowend%=window%+1024:finished%=FALSE:log%=FALSE
   40SYS "Hourglass_On"
   50SYS "Wimp_Initialise",200,&4B534154,"Status" TO ,taskh%
   60SYS "Wimp_OpenTemplate",,"<Status$Dir>.Templates"
   70SYS "Wimp_LoadTemplate",,q%,window%,windowend%,-1,"prog_info",0 TO ,,window%
   80SYS "Wimp_CreateWindow",,q% TO info%
   90SYS "Wimp_LoadTemplate",,q%,window%,windowend%,-1,"main",0 TO ,,window%
  100SYS "Wimp_CreateWindow",,q% TO main%
  110SYS "Wimp_CloseTemplate"
  120OSCLI "Load <Status$Dir>.Menu "+STR$~mu%:mu%!32=info%
  130SYS "Hourglass_Off"
  140ON ERROR PROCerror
  150!q%=main%:SYS "Wimp_GetWindowState",,q%:q%!28=-1:SYS "Wimp_OpenWindow",,q%
  160IF log% h%=OPENOUT("<Status$Dir>.MsgLog")
  170REPEAT
  180SYS "Wimp_Poll",,q% TO reason%
  190CASE reason% OF
  200WHEN 1:SYS "Wimp_RedrawWindow",,q% TO flg%:WHILE flg%:SYS "Interface_Render3dWindow",,q%:SYS "Wimp_GetRectangle",,q% TO flg%:ENDWHILE
  210WHEN 2:SYS "Wimp_OpenWindow",,q%
  220WHEN 6:x%=!q%:y%=q%!4:buttons%=q%!8:window%=q%!12:icon%=q%!16:CASE window% OF
  230WHEN main%:CASE buttons% OF
  240WHEN 4,1:CASE icon% OF
  250WHEN 0:SYS "Interface_SlabButton",,q%:q%!128=main%:SYS "Wimp_GetWindowState",,q%+128:q%!156=-2:SYS "Wimp_OpenWindow",,q%+128:q%!8=0:SYS "Interface_SlabButton",,q%
  260WHEN 1:SYS "Interface_SlabButton",,q%:finished%=TRUE:q%!8=0:SYS "Interface_SlabButton",,q%
  270OTHERWISE:!q%=main%:q%!4=1:SYS "Wimp_DragBox",,q%
  280ENDCASE
  290WHEN 2:SYS "Wimp_CreateMenu",,mu%,x%-96,y%
  300ENDCASE
  310ENDCASE
  320WHEN 9:IF !q%=1 finished%=TRUE
  330SYS "Wimp_GetPointerInfo",,q%:IF q%!8=1 SYS "Wimp_CreateMenu",,mu%,x%-96,y%
  340WHEN 17,18:CASE q%!16 OF
  350WHEN 0:finished%=TRUE
  360WHEN 1:PROCi("DataSave, "+FNvar(q%+44)+", &"+STR$~q%!40)
  370WHEN 2:PROCi("DataSaveAck, "+FNvar(q%+44)+", &"+STR$~q%!40)
  380WHEN 3:PROCi("DataLoad, "+FNvar(q%+44)+", &"+STR$~q%!40)
  390WHEN 4:PROCi("DataLoadAck, "+FNvar(q%+44)+", &"+STR$~q%!40)
  400WHEN 5:PROCi("DataOpen, "+FNvar(q%+44)+", &"+STR$~q%!40)
  410WHEN 6:PROCi("RAMFetch, "+STR$~q%!20+", &"+STR$~q%!24)
  420WHEN 7:PROCi("RAMTransmit, "+STR$~q%!20+", &"+STR$~q%!24)
  430WHEN 8:PROCi("This application is about to be shut down")
  440WHEN 9:PROCi("The desktop palette has changed")
  450WHEN 10:PROCi("The desktop state is being saved")
  460WHEN 11:PROCi("DeviceClaim, "+STR$q%!20+", "+STR$q%!24+", "+FNvar(q%+28))
  470WHEN 12:PROCi("DeviceInUse, "+STR$q%!20+", "+STR$q%!24+", "+FNvar(q%+28))
  480WHEN &400:PROCi("FilerOpenDir, "+FNvar(q%+28))
  490WHEN &401:PROCi("FilerCloseDir, "+FNvar(q%+28))
  500WHEN &502:PROCi("The !Help application is on the scrounge")
  510WHEN &503:PROCi("Some swine's replied to the !Help application")
  520WHEN &400C0:PROCi("MenuWarning")
  530WHEN &400C1:PROCi("The Wimp has changed to mode "+STR$MODE)
  540WHEN &400C2:PROCi("Task '"+FNvar(q%+28)+"' (&"+STR$~q%!4+") has started up. SlotSize "+STR$(q%!24/1024)+"K")
  550WHEN &400C3:PROCi("Task &"+STR$~q%!4+" has closed down")
  560REM WHEN &400C4:PROCi("SlotSize")
  570REM WHEN &400C5:PROCi("SetSlot")
  580REM WHEN &400C6:PROCi("TasknameRequest")
  590REM WHEN &400C7:PROCi("TasknameIs")
  600REM WHEN &400CA:PROCi("Iconize")
  610REM WHEN &400CB:PROCi("WindowClosed")
  620REM WHEN &400CC:PROCi("WindowInfo")
  630REM OTHERWISE PROCi("Message &"+STR$~q%!16+" received")
  640ENDCASE
  650ENDCASE
  660UNTIL finished%
  670PROCi("You killed me, aaaaaarrrrrrgh!"):FOR die%=0 TO 99:SYS "Wimp_Poll",,q%:NEXT
  680IF log% CLOSE#h%
  690SYS "Wimp_CloseDown",taskh%,&4B534154
  700END
  710
  720DEF FNvar(ptr%):string$="":WHILE ?ptr%>31:string$+=CHR$?ptr%:ptr%+=1:ENDWHILE:=string$
  730
  740DEF PROCi(text$)
  750IF log% BPUT#h%,MID$(TIME$,17,8)+" : "+text$
  760q%!128=main%:q%!132=2:SYS "Wimp_GetIconState",,q%+128:$q%!156=text$::q%!136=0:q%!140=0:SYS "Wimp_SetIconState",,q%+128
  770ENDPROC
  780
  790DEF PROCerror
  800!q%=ERR:$(q%+4)=REPORT$+" (IEC "+STR$ ERL+")"+CHR$0
  810SYS "Wimp_ReportError",q%,3,"Status" TO ,mb%
  820IF mb%=2 SYS "Wimp_CloseDown",taskh%,&4B534154:END
  830ENDPROC


� ><Status$Dir>.!RunImage
+� � � 0:�"Error : "+�$+" at line "+Þ:�
L� window% 1024,mu% 80,q% 4096:windowend%=window%+1024:finished%=�:log%=�
(ș "Hourglass_On"
29ș "Wimp_Initialise",200,&4B534154,"Status" � ,taskh%
<4ș "Wimp_OpenTemplate",,"<Status$Dir>.Templates"
FNș "Wimp_LoadTemplate",,q%,window%,windowend%,-1,"prog_info",0 � ,,window%
P&ș "Wimp_CreateWindow",,q% � info%
ZIș "Wimp_LoadTemplate",,q%,window%,windowend%,-1,"main",0 � ,,window%
d&ș "Wimp_CreateWindow",,q% � main%
nș "Wimp_CloseTemplate"
x2� "Load <Status$Dir>.Menu "+�~mu%:mu%!32=info%
�ș "Hourglass_Off"
�� � �error
�L!q%=main%:ș "Wimp_GetWindowState",,q%:q%!28=-1:ș "Wimp_OpenWindow",,q%
�&� log% h%=�("<Status$Dir>.MsgLog")
��
� ș "Wimp_Poll",,q% � reason%
�Ȏ reason% �
�w� 1:ș "Wimp_RedrawWindow",,q% � flg%:ȕ flg%:ș "Interface_Render3dWindow",,q%:ș "Wimp_GetRectangle",,q% � flg%:�
� � 2:ș "Wimp_OpenWindow",,q%
�K� 6:x%=!q%:y%=q%!4:buttons%=q%!8:window%=q%!12:icon%=q%!16:Ȏ window% �
�� main%:Ȏ buttons% �
�� 4,1:Ȏ icon% �
��� 0:ș "Interface_SlabButton",,q%:q%!128=main%:ș "Wimp_GetWindowState",,q%+128:q%!156=-2:ș "Wimp_OpenWindow",,q%+128:q%!8=0:ș "Interface_SlabButton",,q%
V� 1:ș "Interface_SlabButton",,q%:finished%=�:q%!8=0:ș "Interface_SlabButton",,q%
,:!q%=main%:q%!4=1:ș "Wimp_DragBox",,q%
�
"*� 2:ș "Wimp_CreateMenu",,mu%,x%-96,y%
,�
6�
@� 9:� !q%=1 finished%=�
JLș "Wimp_GetPointerInfo",,q%:� q%!8=1 ș "Wimp_CreateMenu",,mu%,x%-96,y%
T� 17,18:Ȏ q%!16 �
^� 0:finished%=�
h2� 1:�i("DataSave, "+�var(q%+44)+", &"+�~q%!40)
r5� 2:�i("DataSaveAck, "+�var(q%+44)+", &"+�~q%!40)
|2� 3:�i("DataLoad, "+�var(q%+44)+", &"+�~q%!40)
�5� 4:�i("DataLoadAck, "+�var(q%+44)+", &"+�~q%!40)
�2� 5:�i("DataOpen, "+�var(q%+44)+", &"+�~q%!40)
�.� 6:�i("RAMFetch, "+�~q%!20+", &"+�~q%!24)
�1� 7:�i("RAMTransmit, "+�~q%!20+", &"+�~q%!24)
�7� 8:�i("This application is about to be shut down")
�-� 9:�i("The desktop palette has changed")
�/� 10:�i("The desktop state is being saved")
�@� 11:�i("DeviceClaim, "+�q%!20+", "+�q%!24+", "+�var(q%+28))
�@� 12:�i("DeviceInUse, "+�q%!20+", "+�q%!24+", "+�var(q%+28))
�+� &400:�i("FilerOpenDir, "+�var(q%+28))
�,� &401:�i("FilerCloseDir, "+�var(q%+28))
�9� &502:�i("The !Help application is on the scrounge")
�>� &503:�i("Some swine's replied to the !Help application")
� &400C0:�i("MenuWarning")
3� &400C1:�i("The Wimp has changed to mode "+��)
c� &400C2:�i("Task '"+�var(q%+28)+"' (&"+�~q%!4+") has started up. SlotSize "+�(q%!24/1024)+"K")
&3� &400C3:�i("Task &"+�~q%!4+" has closed down")
0#� WHEN &400C4:PROCi("SlotSize")
:"� WHEN &400C5:PROCi("SetSlot")
D*� WHEN &400C6:PROCi("TasknameRequest")
N%� WHEN &400C7:PROCi("TasknameIs")
X"� WHEN &400CA:PROCi("Iconize")
b'� WHEN &400CB:PROCi("WindowClosed")
l%� WHEN &400CC:PROCi("WindowInfo")
v9� OTHERWISE PROCi("Message &"+STR$~q%!16+" received")
��
��
�� finished%
�K�i("You killed me, aaaaaarrrrrrgh!"):� die%=0 � 99:ș "Wimp_Poll",,q%:�
�� log% �#h%
�(ș "Wimp_CloseDown",taskh%,&4B534154
��
�
�J� �var(ptr%):string$="":ȕ ?ptr%>31:string$+=�?ptr%:ptr%+=1:�:=string$
�
�� �i(text$)
�%� log% �#h%,��$,17,8)+" : "+text$
�xq%!128=main%:q%!132=2:ș "Wimp_GetIconState",,q%+128:$q%!156=text$::q%!136=0:q%!140=0:ș "Wimp_SetIconState",,q%+128
�

� �error
 (!q%=�:$(q%+4)=�$+" (IEC "+� �+")"+�0
*.ș "Wimp_ReportError",q%,3,"Status" � ,mb%
42� mb%=2 ș "Wimp_CloseDown",taskh%,&4B534154:�
>�
�

00000000  0d 00 0a 1d f4 20 3e 3c  53 74 61 74 75 73 24 44  |..... ><Status$D|
00000010  69 72 3e 2e 21 52 75 6e  49 6d 61 67 65 0d 00 14  |ir>.!RunImage...|
00000020  2b ee 20 85 20 eb 20 30  3a f1 22 45 72 72 6f 72  |+. . . 0:."Error|
00000030  20 3a 20 22 2b f6 24 2b  22 20 61 74 20 6c 69 6e  | : "+.$+" at lin|
00000040  65 20 22 2b c3 9e 3a e0  0d 00 1e 4c de 20 77 69  |e "+..:....L. wi|
00000050  6e 64 6f 77 25 20 31 30  32 34 2c 6d 75 25 20 38  |ndow% 1024,mu% 8|
00000060  30 2c 71 25 20 34 30 39  36 3a 77 69 6e 64 6f 77  |0,q% 4096:window|
00000070  65 6e 64 25 3d 77 69 6e  64 6f 77 25 2b 31 30 32  |end%=window%+102|
00000080  34 3a 66 69 6e 69 73 68  65 64 25 3d a3 3a 6c 6f  |4:finished%=.:lo|
00000090  67 25 3d a3 0d 00 28 15  c8 99 20 22 48 6f 75 72  |g%=...(... "Hour|
000000a0  67 6c 61 73 73 5f 4f 6e  22 0d 00 32 39 c8 99 20  |glass_On"..29.. |
000000b0  22 57 69 6d 70 5f 49 6e  69 74 69 61 6c 69 73 65  |"Wimp_Initialise|
000000c0  22 2c 32 30 30 2c 26 34  42 35 33 34 31 35 34 2c  |",200,&4B534154,|
000000d0  22 53 74 61 74 75 73 22  20 b8 20 2c 74 61 73 6b  |"Status" . ,task|
000000e0  68 25 0d 00 3c 34 c8 99  20 22 57 69 6d 70 5f 4f  |h%..<4.. "Wimp_O|
000000f0  70 65 6e 54 65 6d 70 6c  61 74 65 22 2c 2c 22 3c  |penTemplate",,"<|
00000100  53 74 61 74 75 73 24 44  69 72 3e 2e 54 65 6d 70  |Status$Dir>.Temp|
00000110  6c 61 74 65 73 22 0d 00  46 4e c8 99 20 22 57 69  |lates"..FN.. "Wi|
00000120  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
00000130  2c 2c 71 25 2c 77 69 6e  64 6f 77 25 2c 77 69 6e  |,,q%,window%,win|
00000140  64 6f 77 65 6e 64 25 2c  2d 31 2c 22 70 72 6f 67  |dowend%,-1,"prog|
00000150  5f 69 6e 66 6f 22 2c 30  20 b8 20 2c 2c 77 69 6e  |_info",0 . ,,win|
00000160  64 6f 77 25 0d 00 50 26  c8 99 20 22 57 69 6d 70  |dow%..P&.. "Wimp|
00000170  5f 43 72 65 61 74 65 57  69 6e 64 6f 77 22 2c 2c  |_CreateWindow",,|
00000180  71 25 20 b8 20 69 6e 66  6f 25 0d 00 5a 49 c8 99  |q% . info%..ZI..|
00000190  20 22 57 69 6d 70 5f 4c  6f 61 64 54 65 6d 70 6c  | "Wimp_LoadTempl|
000001a0  61 74 65 22 2c 2c 71 25  2c 77 69 6e 64 6f 77 25  |ate",,q%,window%|
000001b0  2c 77 69 6e 64 6f 77 65  6e 64 25 2c 2d 31 2c 22  |,windowend%,-1,"|
000001c0  6d 61 69 6e 22 2c 30 20  b8 20 2c 2c 77 69 6e 64  |main",0 . ,,wind|
000001d0  6f 77 25 0d 00 64 26 c8  99 20 22 57 69 6d 70 5f  |ow%..d&.. "Wimp_|
000001e0  43 72 65 61 74 65 57 69  6e 64 6f 77 22 2c 2c 71  |CreateWindow",,q|
000001f0  25 20 b8 20 6d 61 69 6e  25 0d 00 6e 1b c8 99 20  |% . main%..n... |
00000200  22 57 69 6d 70 5f 43 6c  6f 73 65 54 65 6d 70 6c  |"Wimp_CloseTempl|
00000210  61 74 65 22 0d 00 78 32  ff 20 22 4c 6f 61 64 20  |ate"..x2. "Load |
00000220  3c 53 74 61 74 75 73 24  44 69 72 3e 2e 4d 65 6e  |<Status$Dir>.Men|
00000230  75 20 22 2b c3 7e 6d 75  25 3a 6d 75 25 21 33 32  |u "+.~mu%:mu%!32|
00000240  3d 69 6e 66 6f 25 0d 00  82 16 c8 99 20 22 48 6f  |=info%...... "Ho|
00000250  75 72 67 6c 61 73 73 5f  4f 66 66 22 0d 00 8c 0e  |urglass_Off"....|
00000260  ee 20 85 20 f2 65 72 72  6f 72 0d 00 96 4c 21 71  |. . .error...L!q|
00000270  25 3d 6d 61 69 6e 25 3a  c8 99 20 22 57 69 6d 70  |%=main%:.. "Wimp|
00000280  5f 47 65 74 57 69 6e 64  6f 77 53 74 61 74 65 22  |_GetWindowState"|
00000290  2c 2c 71 25 3a 71 25 21  32 38 3d 2d 31 3a c8 99  |,,q%:q%!28=-1:..|
000002a0  20 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  | "Wimp_OpenWindo|
000002b0  77 22 2c 2c 71 25 0d 00  a0 26 e7 20 6c 6f 67 25  |w",,q%...&. log%|
000002c0  20 68 25 3d ae 28 22 3c  53 74 61 74 75 73 24 44  | h%=.("<Status$D|
000002d0  69 72 3e 2e 4d 73 67 4c  6f 67 22 29 0d 00 aa 05  |ir>.MsgLog")....|
000002e0  f5 0d 00 b4 20 c8 99 20  22 57 69 6d 70 5f 50 6f  |.... .. "Wimp_Po|
000002f0  6c 6c 22 2c 2c 71 25 20  b8 20 72 65 61 73 6f 6e  |ll",,q% . reason|
00000300  25 0d 00 be 10 c8 8e 20  72 65 61 73 6f 6e 25 20  |%...... reason% |
00000310  ca 0d 00 c8 77 c9 20 31  3a c8 99 20 22 57 69 6d  |....w. 1:.. "Wim|
00000320  70 5f 52 65 64 72 61 77  57 69 6e 64 6f 77 22 2c  |p_RedrawWindow",|
00000330  2c 71 25 20 b8 20 66 6c  67 25 3a c8 95 20 66 6c  |,q% . flg%:.. fl|
00000340  67 25 3a c8 99 20 22 49  6e 74 65 72 66 61 63 65  |g%:.. "Interface|
00000350  5f 52 65 6e 64 65 72 33  64 57 69 6e 64 6f 77 22  |_Render3dWindow"|
00000360  2c 2c 71 25 3a c8 99 20  22 57 69 6d 70 5f 47 65  |,,q%:.. "Wimp_Ge|
00000370  74 52 65 63 74 61 6e 67  6c 65 22 2c 2c 71 25 20  |tRectangle",,q% |
00000380  b8 20 66 6c 67 25 3a ce  0d 00 d2 20 c9 20 32 3a  |. flg%:.... . 2:|
00000390  c8 99 20 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |.. "Wimp_OpenWin|
000003a0  64 6f 77 22 2c 2c 71 25  0d 00 dc 4b c9 20 36 3a  |dow",,q%...K. 6:|
000003b0  78 25 3d 21 71 25 3a 79  25 3d 71 25 21 34 3a 62  |x%=!q%:y%=q%!4:b|
000003c0  75 74 74 6f 6e 73 25 3d  71 25 21 38 3a 77 69 6e  |uttons%=q%!8:win|
000003d0  64 6f 77 25 3d 71 25 21  31 32 3a 69 63 6f 6e 25  |dow%=q%!12:icon%|
000003e0  3d 71 25 21 31 36 3a c8  8e 20 77 69 6e 64 6f 77  |=q%!16:.. window|
000003f0  25 20 ca 0d 00 e6 19 c9  20 6d 61 69 6e 25 3a c8  |% ...... main%:.|
00000400  8e 20 62 75 74 74 6f 6e  73 25 20 ca 0d 00 f0 14  |. buttons% .....|
00000410  c9 20 34 2c 31 3a c8 8e  20 69 63 6f 6e 25 20 ca  |. 4,1:.. icon% .|
00000420  0d 00 fa 9f c9 20 30 3a  c8 99 20 22 49 6e 74 65  |..... 0:.. "Inte|
00000430  72 66 61 63 65 5f 53 6c  61 62 42 75 74 74 6f 6e  |rface_SlabButton|
00000440  22 2c 2c 71 25 3a 71 25  21 31 32 38 3d 6d 61 69  |",,q%:q%!128=mai|
00000450  6e 25 3a c8 99 20 22 57  69 6d 70 5f 47 65 74 57  |n%:.. "Wimp_GetW|
00000460  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 71 25 2b  |indowState",,q%+|
00000470  31 32 38 3a 71 25 21 31  35 36 3d 2d 32 3a c8 99  |128:q%!156=-2:..|
00000480  20 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  | "Wimp_OpenWindo|
00000490  77 22 2c 2c 71 25 2b 31  32 38 3a 71 25 21 38 3d  |w",,q%+128:q%!8=|
000004a0  30 3a c8 99 20 22 49 6e  74 65 72 66 61 63 65 5f  |0:.. "Interface_|
000004b0  53 6c 61 62 42 75 74 74  6f 6e 22 2c 2c 71 25 0d  |SlabButton",,q%.|
000004c0  01 04 56 c9 20 31 3a c8  99 20 22 49 6e 74 65 72  |..V. 1:.. "Inter|
000004d0  66 61 63 65 5f 53 6c 61  62 42 75 74 74 6f 6e 22  |face_SlabButton"|
000004e0  2c 2c 71 25 3a 66 69 6e  69 73 68 65 64 25 3d b9  |,,q%:finished%=.|
000004f0  3a 71 25 21 38 3d 30 3a  c8 99 20 22 49 6e 74 65  |:q%!8=0:.. "Inte|
00000500  72 66 61 63 65 5f 53 6c  61 62 42 75 74 74 6f 6e  |rface_SlabButton|
00000510  22 2c 2c 71 25 0d 01 0e  2c 7f 3a 21 71 25 3d 6d  |",,q%...,.:!q%=m|
00000520  61 69 6e 25 3a 71 25 21  34 3d 31 3a c8 99 20 22  |ain%:q%!4=1:.. "|
00000530  57 69 6d 70 5f 44 72 61  67 42 6f 78 22 2c 2c 71  |Wimp_DragBox",,q|
00000540  25 0d 01 18 05 cb 0d 01  22 2a c9 20 32 3a c8 99  |%......."*. 2:..|
00000550  20 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  | "Wimp_CreateMen|
00000560  75 22 2c 2c 6d 75 25 2c  78 25 2d 39 36 2c 79 25  |u",,mu%,x%-96,y%|
00000570  0d 01 2c 05 cb 0d 01 36  05 cb 0d 01 40 1b c9 20  |..,....6....@.. |
00000580  39 3a e7 20 21 71 25 3d  31 20 66 69 6e 69 73 68  |9:. !q%=1 finish|
00000590  65 64 25 3d b9 0d 01 4a  4c c8 99 20 22 57 69 6d  |ed%=...JL.. "Wim|
000005a0  70 5f 47 65 74 50 6f 69  6e 74 65 72 49 6e 66 6f  |p_GetPointerInfo|
000005b0  22 2c 2c 71 25 3a e7 20  71 25 21 38 3d 31 20 c8  |",,q%:. q%!8=1 .|
000005c0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
000005d0  6e 75 22 2c 2c 6d 75 25  2c 78 25 2d 39 36 2c 79  |nu",,mu%,x%-96,y|
000005e0  25 0d 01 54 16 c9 20 31  37 2c 31 38 3a c8 8e 20  |%..T.. 17,18:.. |
000005f0  71 25 21 31 36 20 ca 0d  01 5e 13 c9 20 30 3a 66  |q%!16 ...^.. 0:f|
00000600  69 6e 69 73 68 65 64 25  3d b9 0d 01 68 32 c9 20  |inished%=...h2. |
00000610  31 3a f2 69 28 22 44 61  74 61 53 61 76 65 2c 20  |1:.i("DataSave, |
00000620  22 2b a4 76 61 72 28 71  25 2b 34 34 29 2b 22 2c  |"+.var(q%+44)+",|
00000630  20 26 22 2b c3 7e 71 25  21 34 30 29 0d 01 72 35  | &"+.~q%!40)..r5|
00000640  c9 20 32 3a f2 69 28 22  44 61 74 61 53 61 76 65  |. 2:.i("DataSave|
00000650  41 63 6b 2c 20 22 2b a4  76 61 72 28 71 25 2b 34  |Ack, "+.var(q%+4|
00000660  34 29 2b 22 2c 20 26 22  2b c3 7e 71 25 21 34 30  |4)+", &"+.~q%!40|
00000670  29 0d 01 7c 32 c9 20 33  3a f2 69 28 22 44 61 74  |)..|2. 3:.i("Dat|
00000680  61 4c 6f 61 64 2c 20 22  2b a4 76 61 72 28 71 25  |aLoad, "+.var(q%|
00000690  2b 34 34 29 2b 22 2c 20  26 22 2b c3 7e 71 25 21  |+44)+", &"+.~q%!|
000006a0  34 30 29 0d 01 86 35 c9  20 34 3a f2 69 28 22 44  |40)...5. 4:.i("D|
000006b0  61 74 61 4c 6f 61 64 41  63 6b 2c 20 22 2b a4 76  |ataLoadAck, "+.v|
000006c0  61 72 28 71 25 2b 34 34  29 2b 22 2c 20 26 22 2b  |ar(q%+44)+", &"+|
000006d0  c3 7e 71 25 21 34 30 29  0d 01 90 32 c9 20 35 3a  |.~q%!40)...2. 5:|
000006e0  f2 69 28 22 44 61 74 61  4f 70 65 6e 2c 20 22 2b  |.i("DataOpen, "+|
000006f0  a4 76 61 72 28 71 25 2b  34 34 29 2b 22 2c 20 26  |.var(q%+44)+", &|
00000700  22 2b c3 7e 71 25 21 34  30 29 0d 01 9a 2e c9 20  |"+.~q%!40)..... |
00000710  36 3a f2 69 28 22 52 41  4d 46 65 74 63 68 2c 20  |6:.i("RAMFetch, |
00000720  22 2b c3 7e 71 25 21 32  30 2b 22 2c 20 26 22 2b  |"+.~q%!20+", &"+|
00000730  c3 7e 71 25 21 32 34 29  0d 01 a4 31 c9 20 37 3a  |.~q%!24)...1. 7:|
00000740  f2 69 28 22 52 41 4d 54  72 61 6e 73 6d 69 74 2c  |.i("RAMTransmit,|
00000750  20 22 2b c3 7e 71 25 21  32 30 2b 22 2c 20 26 22  | "+.~q%!20+", &"|
00000760  2b c3 7e 71 25 21 32 34  29 0d 01 ae 37 c9 20 38  |+.~q%!24)...7. 8|
00000770  3a f2 69 28 22 54 68 69  73 20 61 70 70 6c 69 63  |:.i("This applic|
00000780  61 74 69 6f 6e 20 69 73  20 61 62 6f 75 74 20 74  |ation is about t|
00000790  6f 20 62 65 20 73 68 75  74 20 64 6f 77 6e 22 29  |o be shut down")|
000007a0  0d 01 b8 2d c9 20 39 3a  f2 69 28 22 54 68 65 20  |...-. 9:.i("The |
000007b0  64 65 73 6b 74 6f 70 20  70 61 6c 65 74 74 65 20  |desktop palette |
000007c0  68 61 73 20 63 68 61 6e  67 65 64 22 29 0d 01 c2  |has changed")...|
000007d0  2f c9 20 31 30 3a f2 69  28 22 54 68 65 20 64 65  |/. 10:.i("The de|
000007e0  73 6b 74 6f 70 20 73 74  61 74 65 20 69 73 20 62  |sktop state is b|
000007f0  65 69 6e 67 20 73 61 76  65 64 22 29 0d 01 cc 40  |eing saved")...@|
00000800  c9 20 31 31 3a f2 69 28  22 44 65 76 69 63 65 43  |. 11:.i("DeviceC|
00000810  6c 61 69 6d 2c 20 22 2b  c3 71 25 21 32 30 2b 22  |laim, "+.q%!20+"|
00000820  2c 20 22 2b c3 71 25 21  32 34 2b 22 2c 20 22 2b  |, "+.q%!24+", "+|
00000830  a4 76 61 72 28 71 25 2b  32 38 29 29 0d 01 d6 40  |.var(q%+28))...@|
00000840  c9 20 31 32 3a f2 69 28  22 44 65 76 69 63 65 49  |. 12:.i("DeviceI|
00000850  6e 55 73 65 2c 20 22 2b  c3 71 25 21 32 30 2b 22  |nUse, "+.q%!20+"|
00000860  2c 20 22 2b c3 71 25 21  32 34 2b 22 2c 20 22 2b  |, "+.q%!24+", "+|
00000870  a4 76 61 72 28 71 25 2b  32 38 29 29 0d 01 e0 2b  |.var(q%+28))...+|
00000880  c9 20 26 34 30 30 3a f2  69 28 22 46 69 6c 65 72  |. &400:.i("Filer|
00000890  4f 70 65 6e 44 69 72 2c  20 22 2b a4 76 61 72 28  |OpenDir, "+.var(|
000008a0  71 25 2b 32 38 29 29 0d  01 ea 2c c9 20 26 34 30  |q%+28))...,. &40|
000008b0  31 3a f2 69 28 22 46 69  6c 65 72 43 6c 6f 73 65  |1:.i("FilerClose|
000008c0  44 69 72 2c 20 22 2b a4  76 61 72 28 71 25 2b 32  |Dir, "+.var(q%+2|
000008d0  38 29 29 0d 01 f4 39 c9  20 26 35 30 32 3a f2 69  |8))...9. &502:.i|
000008e0  28 22 54 68 65 20 21 48  65 6c 70 20 61 70 70 6c  |("The !Help appl|
000008f0  69 63 61 74 69 6f 6e 20  69 73 20 6f 6e 20 74 68  |ication is on th|
00000900  65 20 73 63 72 6f 75 6e  67 65 22 29 0d 01 fe 3e  |e scrounge")...>|
00000910  c9 20 26 35 30 33 3a f2  69 28 22 53 6f 6d 65 20  |. &503:.i("Some |
00000920  73 77 69 6e 65 27 73 20  72 65 70 6c 69 65 64 20  |swine's replied |
00000930  74 6f 20 74 68 65 20 21  48 65 6c 70 20 61 70 70  |to the !Help app|
00000940  6c 69 63 61 74 69 6f 6e  22 29 0d 02 08 1e c9 20  |lication")..... |
00000950  26 34 30 30 43 30 3a f2  69 28 22 4d 65 6e 75 57  |&400C0:.i("MenuW|
00000960  61 72 6e 69 6e 67 22 29  0d 02 12 33 c9 20 26 34  |arning")...3. &4|
00000970  30 30 43 31 3a f2 69 28  22 54 68 65 20 57 69 6d  |00C1:.i("The Wim|
00000980  70 20 68 61 73 20 63 68  61 6e 67 65 64 20 74 6f  |p has changed to|
00000990  20 6d 6f 64 65 20 22 2b  c3 eb 29 0d 02 1c 63 c9  | mode "+..)...c.|
000009a0  20 26 34 30 30 43 32 3a  f2 69 28 22 54 61 73 6b  | &400C2:.i("Task|
000009b0  20 27 22 2b a4 76 61 72  28 71 25 2b 32 38 29 2b  | '"+.var(q%+28)+|
000009c0  22 27 20 28 26 22 2b c3  7e 71 25 21 34 2b 22 29  |"' (&"+.~q%!4+")|
000009d0  20 68 61 73 20 73 74 61  72 74 65 64 20 75 70 2e  | has started up.|
000009e0  20 53 6c 6f 74 53 69 7a  65 20 22 2b c3 28 71 25  | SlotSize "+.(q%|
000009f0  21 32 34 2f 31 30 32 34  29 2b 22 4b 22 29 0d 02  |!24/1024)+"K")..|
00000a00  26 33 c9 20 26 34 30 30  43 33 3a f2 69 28 22 54  |&3. &400C3:.i("T|
00000a10  61 73 6b 20 26 22 2b c3  7e 71 25 21 34 2b 22 20  |ask &"+.~q%!4+" |
00000a20  68 61 73 20 63 6c 6f 73  65 64 20 64 6f 77 6e 22  |has closed down"|
00000a30  29 0d 02 30 23 f4 20 57  48 45 4e 20 26 34 30 30  |)..0#. WHEN &400|
00000a40  43 34 3a 50 52 4f 43 69  28 22 53 6c 6f 74 53 69  |C4:PROCi("SlotSi|
00000a50  7a 65 22 29 0d 02 3a 22  f4 20 57 48 45 4e 20 26  |ze")..:". WHEN &|
00000a60  34 30 30 43 35 3a 50 52  4f 43 69 28 22 53 65 74  |400C5:PROCi("Set|
00000a70  53 6c 6f 74 22 29 0d 02  44 2a f4 20 57 48 45 4e  |Slot")..D*. WHEN|
00000a80  20 26 34 30 30 43 36 3a  50 52 4f 43 69 28 22 54  | &400C6:PROCi("T|
00000a90  61 73 6b 6e 61 6d 65 52  65 71 75 65 73 74 22 29  |asknameRequest")|
00000aa0  0d 02 4e 25 f4 20 57 48  45 4e 20 26 34 30 30 43  |..N%. WHEN &400C|
00000ab0  37 3a 50 52 4f 43 69 28  22 54 61 73 6b 6e 61 6d  |7:PROCi("Tasknam|
00000ac0  65 49 73 22 29 0d 02 58  22 f4 20 57 48 45 4e 20  |eIs")..X". WHEN |
00000ad0  26 34 30 30 43 41 3a 50  52 4f 43 69 28 22 49 63  |&400CA:PROCi("Ic|
00000ae0  6f 6e 69 7a 65 22 29 0d  02 62 27 f4 20 57 48 45  |onize")..b'. WHE|
00000af0  4e 20 26 34 30 30 43 42  3a 50 52 4f 43 69 28 22  |N &400CB:PROCi("|
00000b00  57 69 6e 64 6f 77 43 6c  6f 73 65 64 22 29 0d 02  |WindowClosed")..|
00000b10  6c 25 f4 20 57 48 45 4e  20 26 34 30 30 43 43 3a  |l%. WHEN &400CC:|
00000b20  50 52 4f 43 69 28 22 57  69 6e 64 6f 77 49 6e 66  |PROCi("WindowInf|
00000b30  6f 22 29 0d 02 76 39 f4  20 4f 54 48 45 52 57 49  |o")..v9. OTHERWI|
00000b40  53 45 20 50 52 4f 43 69  28 22 4d 65 73 73 61 67  |SE PROCi("Messag|
00000b50  65 20 26 22 2b 53 54 52  24 7e 71 25 21 31 36 2b  |e &"+STR$~q%!16+|
00000b60  22 20 72 65 63 65 69 76  65 64 22 29 0d 02 80 05  |" received")....|
00000b70  cb 0d 02 8a 05 cb 0d 02  94 0f fd 20 66 69 6e 69  |........... fini|
00000b80  73 68 65 64 25 0d 02 9e  4b f2 69 28 22 59 6f 75  |shed%...K.i("You|
00000b90  20 6b 69 6c 6c 65 64 20  6d 65 2c 20 61 61 61 61  | killed me, aaaa|
00000ba0  61 61 72 72 72 72 72 72  67 68 21 22 29 3a e3 20  |aarrrrrrgh!"):. |
00000bb0  64 69 65 25 3d 30 20 b8  20 39 39 3a c8 99 20 22  |die%=0 . 99:.. "|
00000bc0  57 69 6d 70 5f 50 6f 6c  6c 22 2c 2c 71 25 3a ed  |Wimp_Poll",,q%:.|
00000bd0  0d 02 a8 0f e7 20 6c 6f  67 25 20 d9 23 68 25 0d  |..... log% .#h%.|
00000be0  02 b2 28 c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |..(.. "Wimp_Clos|
00000bf0  65 44 6f 77 6e 22 2c 74  61 73 6b 68 25 2c 26 34  |eDown",taskh%,&4|
00000c00  42 35 33 34 31 35 34 0d  02 bc 05 e0 0d 02 c6 04  |B534154.........|
00000c10  0d 02 d0 4a dd 20 a4 76  61 72 28 70 74 72 25 29  |...J. .var(ptr%)|
00000c20  3a 73 74 72 69 6e 67 24  3d 22 22 3a c8 95 20 3f  |:string$="":.. ?|
00000c30  70 74 72 25 3e 33 31 3a  73 74 72 69 6e 67 24 2b  |ptr%>31:string$+|
00000c40  3d bd 3f 70 74 72 25 3a  70 74 72 25 2b 3d 31 3a  |=.?ptr%:ptr%+=1:|
00000c50  ce 3a 3d 73 74 72 69 6e  67 24 0d 02 da 04 0d 02  |.:=string$......|
00000c60  e4 0f dd 20 f2 69 28 74  65 78 74 24 29 0d 02 ee  |... .i(text$)...|
00000c70  25 e7 20 6c 6f 67 25 20  d5 23 68 25 2c c1 91 24  |%. log% .#h%,..$|
00000c80  2c 31 37 2c 38 29 2b 22  20 3a 20 22 2b 74 65 78  |,17,8)+" : "+tex|
00000c90  74 24 0d 02 f8 78 71 25  21 31 32 38 3d 6d 61 69  |t$...xq%!128=mai|
00000ca0  6e 25 3a 71 25 21 31 33  32 3d 32 3a c8 99 20 22  |n%:q%!132=2:.. "|
00000cb0  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
00000cc0  65 22 2c 2c 71 25 2b 31  32 38 3a 24 71 25 21 31  |e",,q%+128:$q%!1|
00000cd0  35 36 3d 74 65 78 74 24  3a 3a 71 25 21 31 33 36  |56=text$::q%!136|
00000ce0  3d 30 3a 71 25 21 31 34  30 3d 30 3a c8 99 20 22  |=0:q%!140=0:.. "|
00000cf0  57 69 6d 70 5f 53 65 74  49 63 6f 6e 53 74 61 74  |Wimp_SetIconStat|
00000d00  65 22 2c 2c 71 25 2b 31  32 38 0d 03 02 05 e1 0d  |e",,q%+128......|
00000d10  03 0c 04 0d 03 16 0c dd  20 f2 65 72 72 6f 72 0d  |........ .error.|
00000d20  03 20 28 21 71 25 3d 9f  3a 24 28 71 25 2b 34 29  |. (!q%=.:$(q%+4)|
00000d30  3d f6 24 2b 22 20 28 49  45 43 20 22 2b c3 20 9e  |=.$+" (IEC "+. .|
00000d40  2b 22 29 22 2b bd 30 0d  03 2a 2e c8 99 20 22 57  |+")"+.0..*... "W|
00000d50  69 6d 70 5f 52 65 70 6f  72 74 45 72 72 6f 72 22  |imp_ReportError"|
00000d60  2c 71 25 2c 33 2c 22 53  74 61 74 75 73 22 20 b8  |,q%,3,"Status" .|
00000d70  20 2c 6d 62 25 0d 03 34  32 e7 20 6d 62 25 3d 32  | ,mb%..42. mb%=2|
00000d80  20 c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 44  | .. "Wimp_CloseD|
00000d90  6f 77 6e 22 2c 74 61 73  6b 68 25 2c 26 34 42 35  |own",taskh%,&4B5|
00000da0  33 34 31 35 34 3a e0 0d  03 3e 05 e1 0d ff        |34154:...>....|
00000dae

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .