Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornComputing_199402.adf » 9402 » Miscellany/Encrypt/!Crypt/!RunImage

Miscellany/Encrypt/!Crypt/!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 » Recent acquisitions » Acorn ADFS disks » adfs_AcornComputing_199402.adf » 9402
Filename: Miscellany/Encrypt/!Crypt/!RunImage
Read OK: ✔
File size: 178F bytes
Load address: 0000
Exec address: 0000
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10 REM >!RunImage
   20 REM by Paul Carpenter
   30 REM (c) Acorn Computing
   40 :
   50 DIM data% 136,bufi% 4096,pollblock% 256,block2% 256, drag% 64
   60 DIM template% 2048, code% 1024, smallcode% 40
   70 P%=smallcode%
   80 [OPT 2
   90 .load EQUD 0:.addr EQUD 0:.ok EQUD 0:.exec EQUD 0:.len EQUD 0
  100 .magic STMFD R13!,{R14}: BL code%+4: ADR R5,load: STMIA R5,{R0-R4}
  110 LDMFD R13!,{R15}
  120 ]
  130 OSCLI("L. <Crypt$Dir>.CryptCode "+STR$~code%)
  140 SYS "Wimp_Initialise",200,&4B534154,"Crypt" TO ,handle
  150 ON ERROR $(template%+4)=REPORT$+" (Internal Code "+STR$ERL+")": SYS "Wimp_ReportError",template%,3,"Crypt": END
  160 SYS "OS_File",255,"<Crypt$Dir>.Data",data%,0
  170 SYS "Wimp_CreateIcon",,data%
  180 SYS "Wimp_OpenTemplate",,"<Crypt$Dir>.Templates"
  190 SYS "Wimp_LoadTemplate",,template%,bufi%,bufi%+4095,-1,"proginfo" TO ,,bufw%
  200 SYS "Wimp_CreateWindow",,template% TO info%
  210 SYS "Wimp_LoadTemplate",,template%,bufw%,bufi%+4095,-1,"saveas" TO ,,bufv%
  220 SYS "Wimp_CreateWindow",,template% TO saveas%
  230 SYS "Wimp_LoadTemplate",,template%,bufv%,bufi%+4095,-1,"password" TO ,,bufx%
  240 SYS "Wimp_CreateWindow",,template% TO password%
  250 data%!&44=info%
  260 SYS "Wimp_CloseTemplate"
  270 quit%=FALSE: togo=FALSE: das%=FALSE: myref=0
  280 :
  290 REPEAT
  300 SYS "Wimp_Poll",1,pollblock% TO whatdyawant%
  310 CASE whatdyawant% OF
  320 WHEN 1: PROCredraw
  330 WHEN 2: PROCopenup
  340 WHEN 3: PROCclosedn
  350 WHEN 6: PROCclick
  360 WHEN 7: PROCdragbox
  370 WHEN 8: PROCkeypressed
  380 WHEN 9: PROCmenusel
  390 WHEN 17,18: PROCmessage
  400 ENDCASE
  410 UNTIL quit%
  420 PROCdealloc
  430 SYS "Wimp_CloseDown",0,0,0
  440 END
  450 :
  460 DEFPROCmessage
  470 CASE pollblock%!16 OF
  480 WHEN 0: quit%=TRUE
  490 WHEN 1
  500 !pollblock%=60
  510 pollblock%!16=2
  520 pollblock%!12=pollblock%!8
  530 $(pollblock%+44)="<Wimp$Scrap>"+CHR$&00
  540 pollblock%!36=-1
  550 SYS "Wimp_SendMessage",17,pollblock%,pollblock%!4
  560 WHEN 2
  570 IF myref>0 AND (myref=pollblock%!12) THEN
  580 b$=FNgetstr(pollblock%+44)
  590 PROCsaveitout(a$,b$): PROCclosesave
  600 ENDIF
  610 WHEN 3
  620 a$=FNgetstr(pollblock%+44): b$=a$
  630 pollblock%!16=4
  640 pollblock%!12=pollblock%!8
  650 SYS "Wimp_SendMessage",17,pollblock%,pollblock%!4
  660 PROCsaveas(pollblock%+44,b$)
  670 ENDIF
  680 ENDCASE
  690 ENDPROC
  700 :
  710 DEFPROCredraw
  720 SYS "Wimp_RedrawWindow",,pollblock% TO anything
  730 ENDPROC
  740 :
  750 DEFPROCopenup
  760 SYS "Wimp_OpenWindow",,pollblock%
  770 ENDPROC
  780 :
  790 DEFPROCclosedn
  800 SYS "Wimp_CloseWindow",,pollblock%
  810 ENDPROC
  820 :
  830 DEFPROCmenusel
  840 CASE !pollblock% OF
  850 WHEN 1: PROCpasswindow
  860 WHEN 2: quit%=TRUE
  870 ENDCASE
  880 SYS "Wimp_GetPointerInfo",,pollblock%
  890 IF (pollblock%!8 AND 1) THEN PROCmymenu
  900 ENDPROC
  910 :
  920 DEFPROCclick
  930 safe%=TRUE
  940 b=pollblock%!8
  950 CASE pollblock%!12 OF
  960 WHEN -2
  970 CASE b OF
  980 WHEN 1,4: PROCpasswindow
  990 WHEN 2: PROCmymenu
 1000 ENDCASE
 1010 PROCclosesave
 1020 WHEN saveas%
 1030 CASE pollblock%!16 OF
 1040 WHEN 0: IF b=1 OR b=4 PROCinitdrag
 1050 WHEN 2: IF b=1 OR b=4 PROCsaveitout(a$,$(bufw%+12)): PROCclosesave
 1060 ENDCASE
 1070 ENDCASE
 1080 ENDPROC
 1090 :
 1100 DEFPROCmymenu
 1110 menuopen=TRUE
 1120 ym=316-44*2
 1130 SYS "Wimp_CreateMenu",,data%+&24,!pollblock%-64,ym
 1140 ENDPROC
 1150 :
 1160 DEFFNgetstr(addr)
 1170 a$=""
 1180 REPEAT
 1190 IF ?addr<>0 a$+=CHR$?addr
 1200 addr+=1
 1210 UNTIL addr?-1=0
 1220 =a$
 1230 :
 1240 DEFPROCsaveitout(input$,output$)
 1250 IF !load=-1 THEN
 1260 SYS "OS_File",10,output$,&FFD,,!addr,!addr+!len
 1270 ELSE
 1280 SYS "OS_File",0,output$,!load,!exec,!addr,!addr+!len
 1290 ENDIF
 1300 PROCdealloc
 1310 ENDPROC
 1320 :
 1330 DEFPROCdealloc
 1340 IF !addr<>0 SYS "XOS_Module",7,,!addr
 1350 !addr=0
 1360 ENDPROC
 1370 :
 1380 DEFPROCsetpass(password%)
 1390 A%=password%: CALL code%
 1400 ENDPROC
 1410 :
 1420 DEFPROCpasswindow
 1430 pollblock%!0=password%:SYS"Wimp_GetWindowState",,pollblock%
 1440 pollblock%!28=-1:SYS"Wimp_OpenWindow",,pollblock%
 1450 ENDPROC
 1460 :
 1470 DEFPROCsaveas(A%,b$)
 1480 MOUSE x,y,b
 1490 SYS "Hourglass_On"
 1500 CALL magic
 1510 SYS "Hourglass_Off"
 1520 CASE !ok OF
 1530 WHEN 0: error$=""
 1540 WHEN 1: error$="Insufficient memory in module area"
 1550 WHEN 2: error$="Incorrect password"
 1560 WHEN 3: error$="Source must be a single file"
 1570 ENDCASE
 1580 IF error$="" THEN
 1590 togo=TRUE
 1600 $(bufw%+12)=b$
 1610 IF !load=-1 THEN file$="file_ffd":filetype=&FFD
 1620 IF !load>0 THEN file$="file_xxx":filetype=&1000
 1630 IF !load<-1 THEN filetype=(!load AND &FFF00)DIV 256:file$="file_"+STR$~(filetype)
 1640 $bufw%=file$
 1650 pollblock%!4=x-124
 1660 pollblock%!12=x+124
 1670 !pollblock%=saveas%: pollblock%!8=0
 1680 pollblock%!16=168
 1690 pollblock%!20=0: pollblock%!24=0: pollblock%!28=-1
 1700 pollblock%!0=saveas%
 1710 pollblock%!28=-1:SYS"Wimp_OpenWindow",,pollblock%
 1720 SYS "Wimp_SetCaretPosition",saveas%,1,,,-1,LEN(b$)
 1730 ELSE
 1740 $(template%+4)=error$: SYS "Wimp_ReportError",template%,2,"Crypt"
 1750 PROCdealloc
 1760 ENDIF
 1770 ENDPROC
 1780 :
 1790 DEFPROCinitdrag
 1800 IF pollblock%!16<>0 ENDPROC
 1810 togo=FALSE
 1820 !pollblock%=pollblock%!12
 1830 pollblock%!4=pollblock%!16
 1840 SYS "Wimp_GetIconState",,pollblock%
 1850 !block2%=!pollblock%: !drag%=!block2%
 1860 SYS "Wimp_GetWindowState",,block2%
 1870 a=block2%!4-block2%!20
 1880 b=block2%!16-block2%!24
 1890 drag%!4=5
 1900 drag%!8=pollblock%!8+a
 1910 drag%!12=pollblock%!12+b
 1920 drag%!16=pollblock%!16+a
 1930 drag%!20=pollblock%!20+b
 1940 drag%!24=0: drag%!28=0
 1950 drag%!32=&7FFFF: drag%!36=&7FFFF
 1960 SYS "XOS_SWINumberFromString",,"DragASprite_Start" TO a
 1970 SYS "OS_Byte",161,28 TO ,,n
 1980 IF a>&100000 OR (n AND 2)=0 THEN
 1990 SYS "Wimp_DragBox",,drag%
 2000 ELSE
 2010 das%=TRUE
 2020 SYS "DragASprite_Start",&C5,1,file$,drag%+8,drag%+24
 2030 ENDIF
 2040 ENDPROC
 2050 :
 2060 DEFPROCclosesave
 2070 togo=FALSE
 2080 !pollblock%=saveas%: SYS "Wimp_CloseWindow",,pollblock%
 2090 PROCdealloc
 2100 ENDPROC
 2110 :
 2120 DEFPROCclosepass
 2130 !pollblock%=password%: SYS "Wimp_CloseWindow",,pollblock%
 2140 ENDPROC
 2150 :
 2160 DEFPROCdragbox
 2170 b$=FNright($(bufw%+12))
 2180 IF das% THEN SYS "XDragASprite_Stop"
 2190 SYS "Wimp_GetPointerInfo",,pollblock%
 2200 CASE pollblock%!12 OF
 2210 WHEN saveas%,info%,password%
 2220 OTHERWISE
 2230 !block2%=(((45+LEN(b$))-1)OR 3)+1
 2240 block2%!16=1
 2250 block2%!20=pollblock%!12
 2260 block2%!24=pollblock%!16
 2270 block2%!28=!pollblock%
 2280 block2%!32=pollblock%!4
 2290 block2%!36=-1: block2%!40=filetype
 2300 $(block2%+44)=b$:?(block2%+44+LEN(b$))=0
 2310 SYS "Wimp_SendMessage",17,block2%,pollblock%!12,1
 2320 myref=block2%!8
 2330 ENDCASE
 2340 ENDPROC
 2350 :
 2360 DEFPROCkeypressed
 2370 IF pollblock%!24=13 THEN
 2380 CASE !pollblock% OF
 2390 WHEN saveas%: PROCsaveitout(a$,b$): PROCclosesave
 2400 WHEN password%: PROCsetpass(bufv%+20): PROCclosepass
 2410 ELSE
 2420 SYS "Wimp_ProcessKey",pollblock%!24
 2430 ENDIF
 2440 ENDPROC
 2450 :
 2460 DEFFNright(A$)
 2470 e=LEN(A$)
 2480 REPEAT:e-=1:UNTIL MID$(A$,e,1)="." OR e=0
 2490 =RIGHT$(A$,LEN(A$)-e)


 � >!RunImage
 � by Paul Carpenter
 � (c) Acorn Computing
( :
2@ � data% 136,bufi% 4096,pollblock% 256,block2% 256, drag% 64
<0 � template% 2048, code% 1024, smallcode% 40
F P%=smallcode%
P [OPT 2
ZB .load EQUD 0:.addr EQUD 0:.ok EQUD 0:.exec EQUD 0:.len EQUD 0
dG .magic STMFD R13!,{R14}: BL code%+4: ADR R5,load: STMIA R5,{R0-R4}
n LDMFD R13!,{R15}
x ]
�+ �("L. <Crypt$Dir>.CryptCode "+�~code%)
�9 ș "Wimp_Initialise",200,&4B534154,"Crypt" � ,handle
�b � � $(template%+4)=�$+" (Internal Code "+Þ+")": ș "Wimp_ReportError",template%,3,"Crypt": �
�0 ș "OS_File",255,"<Crypt$Dir>.Data",data%,0
�  ș "Wimp_CreateIcon",,data%
�4 ș "Wimp_OpenTemplate",,"<Crypt$Dir>.Templates"
�O ș "Wimp_LoadTemplate",,template%,bufi%,bufi%+4095,-1,"proginfo" � ,,bufw%
�. ș "Wimp_CreateWindow",,template% � info%
�M ș "Wimp_LoadTemplate",,template%,bufw%,bufi%+4095,-1,"saveas" � ,,bufv%
�0 ș "Wimp_CreateWindow",,template% � saveas%
�O ș "Wimp_LoadTemplate",,template%,bufv%,bufi%+4095,-1,"password" � ,,bufx%
�2 ș "Wimp_CreateWindow",,template% � password%
� data%!&44=info%
 ș "Wimp_CloseTemplate"
% quit%=�: togo=�: das%=�: myref=0
 :
" �
,/ ș "Wimp_Poll",1,pollblock% � whatdyawant%
6 Ȏ whatdyawant% �
@ � 1: �redraw
J � 2: �openup
T � 3: �closedn
^ � 6: �click
h � 7: �dragbox
r � 8: �keypressed
| � 9: �menusel
� � 17,18: �message
� �
� � quit%
�
 �dealloc
� ș "Wimp_CloseDown",0,0,0
� �
� :
� ��message
� Ȏ pollblock%!16 �
� � 0: quit%=�
� � 1
� !pollblock%=60
� pollblock%!16=2
 pollblock%!12=pollblock%!8
) $(pollblock%+44)="<Wimp$Scrap>"+�&00
 pollblock%!36=-1
&5 ș "Wimp_SendMessage",17,pollblock%,pollblock%!4
0 � 2
:( � myref>0 � (myref=pollblock%!12) �
D b$=�getstr(pollblock%+44)
N" �saveitout(a$,b$): �closesave
X �
b � 3
l% a$=�getstr(pollblock%+44): b$=a$
v pollblock%!16=4
� pollblock%!12=pollblock%!8
�5 ș "Wimp_SendMessage",17,pollblock%,pollblock%!4
� �saveas(pollblock%+44,b$)
� �
� �
� �
� :
�
 ��redraw
�2 ș "Wimp_RedrawWindow",,pollblock% � anything
� �
� :
�
 ��openup
�% ș "Wimp_OpenWindow",,pollblock%
 �
 :
 ��closedn
 & ș "Wimp_CloseWindow",,pollblock%
* �
4 :
> ��menusel
H Ȏ !pollblock% �
R � 1: �passwindow
\ � 2: quit%=�
f �
p) ș "Wimp_GetPointerInfo",,pollblock%
z# � (pollblock%!8 � 1) � �mymenu
� �
� :
� ��click
� safe%=�
� b=pollblock%!8
� Ȏ pollblock%!12 �
�	 � -2
� Ȏ b �
� � 1,4: �passwindow
� � 2: �mymenu
� �
� �closesave
� � saveas%
 Ȏ pollblock%!16 �
 � 0: � b=1 � b=4 �initdrag
< � 2: � b=1 � b=4 �saveitout(a$,$(bufw%+12)): �closesave
$ �
. �
8 �
B :
L
 ��mymenu
V menuopen=�
` ym=316-44*2
j6 ș "Wimp_CreateMenu",,data%+&24,!pollblock%-64,ym
t �
~ :
� ݤgetstr(addr)
�
 a$=""
� �
� � ?addr<>0 a$+=�?addr
� addr+=1
� � addr?-1=0
� =a$
� :
�  ��saveitout(input$,output$)
� � !load=-1 �
�3 ș "OS_File",10,output$,&FFD,,!addr,!addr+!len
� �
8 ș "OS_File",0,output$,!load,!exec,!addr,!addr+!len

 �

 �dealloc
 �
( :
2 ��dealloc
<( � !addr<>0 ș "XOS_Module",7,,!addr
F !addr=0
P �
Z :
d ��setpass(password%)
n A%=password%: � code%
x �
� :
� ��passwindow
�? pollblock%!0=password%:ș"Wimp_GetWindowState",,pollblock%
�5 pollblock%!28=-1:ș"Wimp_OpenWindow",,pollblock%
� �
� :
� ��saveas(A%,b$)
�
 ȗ x,y,b
� ș "Hourglass_On"
� � magic
� ș "Hourglass_Off"
�
 Ȏ !ok �
� � 0: error$=""
5 � 1: error$="Insufficient memory in module area"
% � 2: error$="Incorrect password"
/ � 3: error$="Source must be a single file"
" �
, � error$="" �
6 togo=�
@ $(bufw%+12)=b$
J0 � !load=-1 � file$="file_ffd":filetype=&FFD
T0 � !load>0 � file$="file_xxx":filetype=&1000
^K � !load<-1 � filetype=(!load � &FFF00)� 256:file$="file_"+�~(filetype)
h $bufw%=file$
r pollblock%!4=x-124
| pollblock%!12=x+124
�( !pollblock%=saveas%: pollblock%!8=0
� pollblock%!16=168
�7 pollblock%!20=0: pollblock%!24=0: pollblock%!28=-1
� pollblock%!0=saveas%
�5 pollblock%!28=-1:ș"Wimp_OpenWindow",,pollblock%
�4 ș "Wimp_SetCaretPosition",saveas%,1,,,-1,�(b$)
� �
�E $(template%+4)=error$: ș "Wimp_ReportError",template%,2,"Crypt"
�
 �dealloc
� �
� �
� :
� ��initdrag
 � pollblock%!16<>0 �
 togo=�
 !pollblock%=pollblock%!12
& pollblock%!4=pollblock%!16
0' ș "Wimp_GetIconState",,pollblock%
:* !block2%=!pollblock%: !drag%=!block2%
D& ș "Wimp_GetWindowState",,block2%
N a=block2%!4-block2%!20
X b=block2%!16-block2%!24
b drag%!4=5
l drag%!8=pollblock%!8+a
v drag%!12=pollblock%!12+b
� drag%!16=pollblock%!16+a
� drag%!20=pollblock%!20+b
� drag%!24=0: drag%!28=0
�% drag%!32=&7FFFF: drag%!36=&7FFFF
�: ș "XOS_SWINumberFromString",,"DragASprite_Start" � a
� ș "OS_Byte",161,28 � ,,n
� � a>&100000 � (n � 2)=0 �
� ș "Wimp_DragBox",,drag%
� �
� das%=�
�8 ș "DragASprite_Start",&C5,1,file$,drag%+8,drag%+24
� �
� �
 :
 ��closesave
 togo=�
 ; !pollblock%=saveas%: ș "Wimp_CloseWindow",,pollblock%
*
 �dealloc
4 �
> :
H ��closepass
R= !pollblock%=password%: ș "Wimp_CloseWindow",,pollblock%
\ �
f :
p ��dragbox
z b$=�right($(bufw%+12))
�$ � das% � ș "XDragASprite_Stop"
�) ș "Wimp_GetPointerInfo",,pollblock%
� Ȏ pollblock%!12 �
� � saveas%,info%,password%
� 
�# !block2%=(((45+�(b$))-1)� 3)+1
� block2%!16=1
� block2%!20=pollblock%!12
� block2%!24=pollblock%!16
� block2%!28=!pollblock%
� block2%!32=pollblock%!4
�' block2%!36=-1: block2%!40=filetype
�+ $(block2%+44)=b$:?(block2%+44+�(b$))=0
	5 ș "Wimp_SendMessage",17,block2%,pollblock%!12,1
	 myref=block2%!8
	 �
	$ �
	. :
	8 ��keypressed
	B � pollblock%!24=13 �
	L Ȏ !pollblock% �
	V- � saveas%: �saveitout(a$,b$): �closesave
	`0 � password%: �setpass(bufv%+20): �closepass
	j �
	t' ș "Wimp_ProcessKey",pollblock%!24
	~ �
	� �
	� :
	� ݤright(A$)
	� e=�(A$)
	�  �:e-=1:� �A$,e,1)="." � e=0
	� =�A$,�(A$)-e)
�
00000000  0d 00 0a 11 20 f4 20 3e  21 52 75 6e 49 6d 61 67  |.... . >!RunImag|
00000010  65 0d 00 14 18 20 f4 20  62 79 20 50 61 75 6c 20  |e.... . by Paul |
00000020  43 61 72 70 65 6e 74 65  72 0d 00 1e 1a 20 f4 20  |Carpenter.... . |
00000030  28 63 29 20 41 63 6f 72  6e 20 43 6f 6d 70 75 74  |(c) Acorn Comput|
00000040  69 6e 67 0d 00 28 06 20  3a 0d 00 32 40 20 de 20  |ing..(. :..2@ . |
00000050  64 61 74 61 25 20 31 33  36 2c 62 75 66 69 25 20  |data% 136,bufi% |
00000060  34 30 39 36 2c 70 6f 6c  6c 62 6c 6f 63 6b 25 20  |4096,pollblock% |
00000070  32 35 36 2c 62 6c 6f 63  6b 32 25 20 32 35 36 2c  |256,block2% 256,|
00000080  20 64 72 61 67 25 20 36  34 0d 00 3c 30 20 de 20  | drag% 64..<0 . |
00000090  74 65 6d 70 6c 61 74 65  25 20 32 30 34 38 2c 20  |template% 2048, |
000000a0  63 6f 64 65 25 20 31 30  32 34 2c 20 73 6d 61 6c  |code% 1024, smal|
000000b0  6c 63 6f 64 65 25 20 34  30 0d 00 46 12 20 50 25  |lcode% 40..F. P%|
000000c0  3d 73 6d 61 6c 6c 63 6f  64 65 25 0d 00 50 0b 20  |=smallcode%..P. |
000000d0  5b 4f 50 54 20 32 0d 00  5a 42 20 2e 6c 6f 61 64  |[OPT 2..ZB .load|
000000e0  20 45 51 55 44 20 30 3a  2e 61 64 64 72 20 45 51  | EQUD 0:.addr EQ|
000000f0  55 44 20 30 3a 2e 6f 6b  20 45 51 55 44 20 30 3a  |UD 0:.ok EQUD 0:|
00000100  2e 65 78 65 63 20 45 51  55 44 20 30 3a 2e 6c 65  |.exec EQUD 0:.le|
00000110  6e 20 45 51 55 44 20 30  0d 00 64 47 20 2e 6d 61  |n EQUD 0..dG .ma|
00000120  67 69 63 20 53 54 4d 46  44 20 52 31 33 21 2c 7b  |gic STMFD R13!,{|
00000130  52 31 34 7d 3a 20 42 4c  20 63 6f 64 65 25 2b 34  |R14}: BL code%+4|
00000140  3a 20 41 44 52 20 52 35  2c 6c 6f 61 64 3a 20 53  |: ADR R5,load: S|
00000150  54 4d 49 41 20 52 35 2c  7b 52 30 2d 52 34 7d 0d  |TMIA R5,{R0-R4}.|
00000160  00 6e 15 20 4c 44 4d 46  44 20 52 31 33 21 2c 7b  |.n. LDMFD R13!,{|
00000170  52 31 35 7d 0d 00 78 06  20 5d 0d 00 82 2b 20 ff  |R15}..x. ]...+ .|
00000180  28 22 4c 2e 20 3c 43 72  79 70 74 24 44 69 72 3e  |("L. <Crypt$Dir>|
00000190  2e 43 72 79 70 74 43 6f  64 65 20 22 2b c3 7e 63  |.CryptCode "+.~c|
000001a0  6f 64 65 25 29 0d 00 8c  39 20 c8 99 20 22 57 69  |ode%)...9 .. "Wi|
000001b0  6d 70 5f 49 6e 69 74 69  61 6c 69 73 65 22 2c 32  |mp_Initialise",2|
000001c0  30 30 2c 26 34 42 35 33  34 31 35 34 2c 22 43 72  |00,&4B534154,"Cr|
000001d0  79 70 74 22 20 b8 20 2c  68 61 6e 64 6c 65 0d 00  |ypt" . ,handle..|
000001e0  96 62 20 ee 20 85 20 24  28 74 65 6d 70 6c 61 74  |.b . . $(templat|
000001f0  65 25 2b 34 29 3d f6 24  2b 22 20 28 49 6e 74 65  |e%+4)=.$+" (Inte|
00000200  72 6e 61 6c 20 43 6f 64  65 20 22 2b c3 9e 2b 22  |rnal Code "+..+"|
00000210  29 22 3a 20 c8 99 20 22  57 69 6d 70 5f 52 65 70  |)": .. "Wimp_Rep|
00000220  6f 72 74 45 72 72 6f 72  22 2c 74 65 6d 70 6c 61  |ortError",templa|
00000230  74 65 25 2c 33 2c 22 43  72 79 70 74 22 3a 20 e0  |te%,3,"Crypt": .|
00000240  0d 00 a0 30 20 c8 99 20  22 4f 53 5f 46 69 6c 65  |...0 .. "OS_File|
00000250  22 2c 32 35 35 2c 22 3c  43 72 79 70 74 24 44 69  |",255,"<Crypt$Di|
00000260  72 3e 2e 44 61 74 61 22  2c 64 61 74 61 25 2c 30  |r>.Data",data%,0|
00000270  0d 00 aa 20 20 c8 99 20  22 57 69 6d 70 5f 43 72  |...  .. "Wimp_Cr|
00000280  65 61 74 65 49 63 6f 6e  22 2c 2c 64 61 74 61 25  |eateIcon",,data%|
00000290  0d 00 b4 34 20 c8 99 20  22 57 69 6d 70 5f 4f 70  |...4 .. "Wimp_Op|
000002a0  65 6e 54 65 6d 70 6c 61  74 65 22 2c 2c 22 3c 43  |enTemplate",,"<C|
000002b0  72 79 70 74 24 44 69 72  3e 2e 54 65 6d 70 6c 61  |rypt$Dir>.Templa|
000002c0  74 65 73 22 0d 00 be 4f  20 c8 99 20 22 57 69 6d  |tes"...O .. "Wim|
000002d0  70 5f 4c 6f 61 64 54 65  6d 70 6c 61 74 65 22 2c  |p_LoadTemplate",|
000002e0  2c 74 65 6d 70 6c 61 74  65 25 2c 62 75 66 69 25  |,template%,bufi%|
000002f0  2c 62 75 66 69 25 2b 34  30 39 35 2c 2d 31 2c 22  |,bufi%+4095,-1,"|
00000300  70 72 6f 67 69 6e 66 6f  22 20 b8 20 2c 2c 62 75  |proginfo" . ,,bu|
00000310  66 77 25 0d 00 c8 2e 20  c8 99 20 22 57 69 6d 70  |fw%.... .. "Wimp|
00000320  5f 43 72 65 61 74 65 57  69 6e 64 6f 77 22 2c 2c  |_CreateWindow",,|
00000330  74 65 6d 70 6c 61 74 65  25 20 b8 20 69 6e 66 6f  |template% . info|
00000340  25 0d 00 d2 4d 20 c8 99  20 22 57 69 6d 70 5f 4c  |%...M .. "Wimp_L|
00000350  6f 61 64 54 65 6d 70 6c  61 74 65 22 2c 2c 74 65  |oadTemplate",,te|
00000360  6d 70 6c 61 74 65 25 2c  62 75 66 77 25 2c 62 75  |mplate%,bufw%,bu|
00000370  66 69 25 2b 34 30 39 35  2c 2d 31 2c 22 73 61 76  |fi%+4095,-1,"sav|
00000380  65 61 73 22 20 b8 20 2c  2c 62 75 66 76 25 0d 00  |eas" . ,,bufv%..|
00000390  dc 30 20 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |.0 .. "Wimp_Crea|
000003a0  74 65 57 69 6e 64 6f 77  22 2c 2c 74 65 6d 70 6c  |teWindow",,templ|
000003b0  61 74 65 25 20 b8 20 73  61 76 65 61 73 25 0d 00  |ate% . saveas%..|
000003c0  e6 4f 20 c8 99 20 22 57  69 6d 70 5f 4c 6f 61 64  |.O .. "Wimp_Load|
000003d0  54 65 6d 70 6c 61 74 65  22 2c 2c 74 65 6d 70 6c  |Template",,templ|
000003e0  61 74 65 25 2c 62 75 66  76 25 2c 62 75 66 69 25  |ate%,bufv%,bufi%|
000003f0  2b 34 30 39 35 2c 2d 31  2c 22 70 61 73 73 77 6f  |+4095,-1,"passwo|
00000400  72 64 22 20 b8 20 2c 2c  62 75 66 78 25 0d 00 f0  |rd" . ,,bufx%...|
00000410  32 20 c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |2 .. "Wimp_Creat|
00000420  65 57 69 6e 64 6f 77 22  2c 2c 74 65 6d 70 6c 61  |eWindow",,templa|
00000430  74 65 25 20 b8 20 70 61  73 73 77 6f 72 64 25 0d  |te% . password%.|
00000440  00 fa 14 20 64 61 74 61  25 21 26 34 34 3d 69 6e  |... data%!&44=in|
00000450  66 6f 25 0d 01 04 1c 20  c8 99 20 22 57 69 6d 70  |fo%.... .. "Wimp|
00000460  5f 43 6c 6f 73 65 54 65  6d 70 6c 61 74 65 22 0d  |_CloseTemplate".|
00000470  01 0e 25 20 71 75 69 74  25 3d a3 3a 20 74 6f 67  |..% quit%=.: tog|
00000480  6f 3d a3 3a 20 64 61 73  25 3d a3 3a 20 6d 79 72  |o=.: das%=.: myr|
00000490  65 66 3d 30 0d 01 18 06  20 3a 0d 01 22 06 20 f5  |ef=0.... :..". .|
000004a0  0d 01 2c 2f 20 c8 99 20  22 57 69 6d 70 5f 50 6f  |..,/ .. "Wimp_Po|
000004b0  6c 6c 22 2c 31 2c 70 6f  6c 6c 62 6c 6f 63 6b 25  |ll",1,pollblock%|
000004c0  20 b8 20 77 68 61 74 64  79 61 77 61 6e 74 25 0d  | . whatdyawant%.|
000004d0  01 36 16 20 c8 8e 20 77  68 61 74 64 79 61 77 61  |.6. .. whatdyawa|
000004e0  6e 74 25 20 ca 0d 01 40  11 20 c9 20 31 3a 20 f2  |nt% ...@. . 1: .|
000004f0  72 65 64 72 61 77 0d 01  4a 11 20 c9 20 32 3a 20  |redraw..J. . 2: |
00000500  f2 6f 70 65 6e 75 70 0d  01 54 12 20 c9 20 33 3a  |.openup..T. . 3:|
00000510  20 f2 63 6c 6f 73 65 64  6e 0d 01 5e 10 20 c9 20  | .closedn..^. . |
00000520  36 3a 20 f2 63 6c 69 63  6b 0d 01 68 12 20 c9 20  |6: .click..h. . |
00000530  37 3a 20 f2 64 72 61 67  62 6f 78 0d 01 72 15 20  |7: .dragbox..r. |
00000540  c9 20 38 3a 20 f2 6b 65  79 70 72 65 73 73 65 64  |. 8: .keypressed|
00000550  0d 01 7c 12 20 c9 20 39  3a 20 f2 6d 65 6e 75 73  |..|. . 9: .menus|
00000560  65 6c 0d 01 86 16 20 c9  20 31 37 2c 31 38 3a 20  |el.... . 17,18: |
00000570  f2 6d 65 73 73 61 67 65  0d 01 90 06 20 cb 0d 01  |.message.... ...|
00000580  9a 0c 20 fd 20 71 75 69  74 25 0d 01 a4 0d 20 f2  |.. . quit%.... .|
00000590  64 65 61 6c 6c 6f 63 0d  01 ae 1e 20 c8 99 20 22  |dealloc.... .. "|
000005a0  57 69 6d 70 5f 43 6c 6f  73 65 44 6f 77 6e 22 2c  |Wimp_CloseDown",|
000005b0  30 2c 30 2c 30 0d 01 b8  06 20 e0 0d 01 c2 06 20  |0,0,0.... ..... |
000005c0  3a 0d 01 cc 0e 20 dd f2  6d 65 73 73 61 67 65 0d  |:.... ..message.|
000005d0  01 d6 17 20 c8 8e 20 70  6f 6c 6c 62 6c 6f 63 6b  |... .. pollblock|
000005e0  25 21 31 36 20 ca 0d 01  e0 11 20 c9 20 30 3a 20  |%!16 ..... . 0: |
000005f0  71 75 69 74 25 3d b9 0d  01 ea 08 20 c9 20 31 0d  |quit%=..... . 1.|
00000600  01 f4 13 20 21 70 6f 6c  6c 62 6c 6f 63 6b 25 3d  |... !pollblock%=|
00000610  36 30 0d 01 fe 14 20 70  6f 6c 6c 62 6c 6f 63 6b  |60.... pollblock|
00000620  25 21 31 36 3d 32 0d 02  08 1f 20 70 6f 6c 6c 62  |%!16=2.... pollb|
00000630  6c 6f 63 6b 25 21 31 32  3d 70 6f 6c 6c 62 6c 6f  |lock%!12=pollblo|
00000640  63 6b 25 21 38 0d 02 12  29 20 24 28 70 6f 6c 6c  |ck%!8...) $(poll|
00000650  62 6c 6f 63 6b 25 2b 34  34 29 3d 22 3c 57 69 6d  |block%+44)="<Wim|
00000660  70 24 53 63 72 61 70 3e  22 2b bd 26 30 30 0d 02  |p$Scrap>"+.&00..|
00000670  1c 15 20 70 6f 6c 6c 62  6c 6f 63 6b 25 21 33 36  |.. pollblock%!36|
00000680  3d 2d 31 0d 02 26 35 20  c8 99 20 22 57 69 6d 70  |=-1..&5 .. "Wimp|
00000690  5f 53 65 6e 64 4d 65 73  73 61 67 65 22 2c 31 37  |_SendMessage",17|
000006a0  2c 70 6f 6c 6c 62 6c 6f  63 6b 25 2c 70 6f 6c 6c  |,pollblock%,poll|
000006b0  62 6c 6f 63 6b 25 21 34  0d 02 30 08 20 c9 20 32  |block%!4..0. . 2|
000006c0  0d 02 3a 28 20 e7 20 6d  79 72 65 66 3e 30 20 80  |..:( . myref>0 .|
000006d0  20 28 6d 79 72 65 66 3d  70 6f 6c 6c 62 6c 6f 63  | (myref=pollbloc|
000006e0  6b 25 21 31 32 29 20 8c  0d 02 44 1e 20 62 24 3d  |k%!12) ...D. b$=|
000006f0  a4 67 65 74 73 74 72 28  70 6f 6c 6c 62 6c 6f 63  |.getstr(pollbloc|
00000700  6b 25 2b 34 34 29 0d 02  4e 22 20 f2 73 61 76 65  |k%+44)..N" .save|
00000710  69 74 6f 75 74 28 61 24  2c 62 24 29 3a 20 f2 63  |itout(a$,b$): .c|
00000720  6c 6f 73 65 73 61 76 65  0d 02 58 06 20 cd 0d 02  |losesave..X. ...|
00000730  62 08 20 c9 20 33 0d 02  6c 25 20 61 24 3d a4 67  |b. . 3..l% a$=.g|
00000740  65 74 73 74 72 28 70 6f  6c 6c 62 6c 6f 63 6b 25  |etstr(pollblock%|
00000750  2b 34 34 29 3a 20 62 24  3d 61 24 0d 02 76 14 20  |+44): b$=a$..v. |
00000760  70 6f 6c 6c 62 6c 6f 63  6b 25 21 31 36 3d 34 0d  |pollblock%!16=4.|
00000770  02 80 1f 20 70 6f 6c 6c  62 6c 6f 63 6b 25 21 31  |... pollblock%!1|
00000780  32 3d 70 6f 6c 6c 62 6c  6f 63 6b 25 21 38 0d 02  |2=pollblock%!8..|
00000790  8a 35 20 c8 99 20 22 57  69 6d 70 5f 53 65 6e 64  |.5 .. "Wimp_Send|
000007a0  4d 65 73 73 61 67 65 22  2c 31 37 2c 70 6f 6c 6c  |Message",17,poll|
000007b0  62 6c 6f 63 6b 25 2c 70  6f 6c 6c 62 6c 6f 63 6b  |block%,pollblock|
000007c0  25 21 34 0d 02 94 1e 20  f2 73 61 76 65 61 73 28  |%!4.... .saveas(|
000007d0  70 6f 6c 6c 62 6c 6f 63  6b 25 2b 34 34 2c 62 24  |pollblock%+44,b$|
000007e0  29 0d 02 9e 06 20 cd 0d  02 a8 06 20 cb 0d 02 b2  |).... ..... ....|
000007f0  06 20 e1 0d 02 bc 06 20  3a 0d 02 c6 0d 20 dd f2  |. ..... :.... ..|
00000800  72 65 64 72 61 77 0d 02  d0 32 20 c8 99 20 22 57  |redraw...2 .. "W|
00000810  69 6d 70 5f 52 65 64 72  61 77 57 69 6e 64 6f 77  |imp_RedrawWindow|
00000820  22 2c 2c 70 6f 6c 6c 62  6c 6f 63 6b 25 20 b8 20  |",,pollblock% . |
00000830  61 6e 79 74 68 69 6e 67  0d 02 da 06 20 e1 0d 02  |anything.... ...|
00000840  e4 06 20 3a 0d 02 ee 0d  20 dd f2 6f 70 65 6e 75  |.. :.... ..openu|
00000850  70 0d 02 f8 25 20 c8 99  20 22 57 69 6d 70 5f 4f  |p...% .. "Wimp_O|
00000860  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 70 6f 6c 6c  |penWindow",,poll|
00000870  62 6c 6f 63 6b 25 0d 03  02 06 20 e1 0d 03 0c 06  |block%.... .....|
00000880  20 3a 0d 03 16 0e 20 dd  f2 63 6c 6f 73 65 64 6e  | :.... ..closedn|
00000890  0d 03 20 26 20 c8 99 20  22 57 69 6d 70 5f 43 6c  |.. & .. "Wimp_Cl|
000008a0  6f 73 65 57 69 6e 64 6f  77 22 2c 2c 70 6f 6c 6c  |oseWindow",,poll|
000008b0  62 6c 6f 63 6b 25 0d 03  2a 06 20 e1 0d 03 34 06  |block%..*. ...4.|
000008c0  20 3a 0d 03 3e 0e 20 dd  f2 6d 65 6e 75 73 65 6c  | :..>. ..menusel|
000008d0  0d 03 48 15 20 c8 8e 20  21 70 6f 6c 6c 62 6c 6f  |..H. .. !pollblo|
000008e0  63 6b 25 20 ca 0d 03 52  15 20 c9 20 31 3a 20 f2  |ck% ...R. . 1: .|
000008f0  70 61 73 73 77 69 6e 64  6f 77 0d 03 5c 11 20 c9  |passwindow..\. .|
00000900  20 32 3a 20 71 75 69 74  25 3d b9 0d 03 66 06 20  | 2: quit%=...f. |
00000910  cb 0d 03 70 29 20 c8 99  20 22 57 69 6d 70 5f 47  |...p) .. "Wimp_G|
00000920  65 74 50 6f 69 6e 74 65  72 49 6e 66 6f 22 2c 2c  |etPointerInfo",,|
00000930  70 6f 6c 6c 62 6c 6f 63  6b 25 0d 03 7a 23 20 e7  |pollblock%..z# .|
00000940  20 28 70 6f 6c 6c 62 6c  6f 63 6b 25 21 38 20 80  | (pollblock%!8 .|
00000950  20 31 29 20 8c 20 f2 6d  79 6d 65 6e 75 0d 03 84  | 1) . .mymenu...|
00000960  06 20 e1 0d 03 8e 06 20  3a 0d 03 98 0c 20 dd f2  |. ..... :.... ..|
00000970  63 6c 69 63 6b 0d 03 a2  0c 20 73 61 66 65 25 3d  |click.... safe%=|
00000980  b9 0d 03 ac 13 20 62 3d  70 6f 6c 6c 62 6c 6f 63  |..... b=pollbloc|
00000990  6b 25 21 38 0d 03 b6 17  20 c8 8e 20 70 6f 6c 6c  |k%!8.... .. poll|
000009a0  62 6c 6f 63 6b 25 21 31  32 20 ca 0d 03 c0 09 20  |block%!12 ..... |
000009b0  c9 20 2d 32 0d 03 ca 0b  20 c8 8e 20 62 20 ca 0d  |. -2.... .. b ..|
000009c0  03 d4 17 20 c9 20 31 2c  34 3a 20 f2 70 61 73 73  |... . 1,4: .pass|
000009d0  77 69 6e 64 6f 77 0d 03  de 11 20 c9 20 32 3a 20  |window.... . 2: |
000009e0  f2 6d 79 6d 65 6e 75 0d  03 e8 06 20 cb 0d 03 f2  |.mymenu.... ....|
000009f0  0f 20 f2 63 6c 6f 73 65  73 61 76 65 0d 03 fc 0e  |. .closesave....|
00000a00  20 c9 20 73 61 76 65 61  73 25 0d 04 06 17 20 c8  | . saveas%.... .|
00000a10  8e 20 70 6f 6c 6c 62 6c  6f 63 6b 25 21 31 36 20  |. pollblock%!16 |
00000a20  ca 0d 04 10 1f 20 c9 20  30 3a 20 e7 20 62 3d 31  |..... . 0: . b=1|
00000a30  20 84 20 62 3d 34 20 f2  69 6e 69 74 64 72 61 67  | . b=4 .initdrag|
00000a40  0d 04 1a 3c 20 c9 20 32  3a 20 e7 20 62 3d 31 20  |...< . 2: . b=1 |
00000a50  84 20 62 3d 34 20 f2 73  61 76 65 69 74 6f 75 74  |. b=4 .saveitout|
00000a60  28 61 24 2c 24 28 62 75  66 77 25 2b 31 32 29 29  |(a$,$(bufw%+12))|
00000a70  3a 20 f2 63 6c 6f 73 65  73 61 76 65 0d 04 24 06  |: .closesave..$.|
00000a80  20 cb 0d 04 2e 06 20 cb  0d 04 38 06 20 e1 0d 04  | ..... ...8. ...|
00000a90  42 06 20 3a 0d 04 4c 0d  20 dd f2 6d 79 6d 65 6e  |B. :..L. ..mymen|
00000aa0  75 0d 04 56 0f 20 6d 65  6e 75 6f 70 65 6e 3d b9  |u..V. menuopen=.|
00000ab0  0d 04 60 10 20 79 6d 3d  33 31 36 2d 34 34 2a 32  |..`. ym=316-44*2|
00000ac0  0d 04 6a 36 20 c8 99 20  22 57 69 6d 70 5f 43 72  |..j6 .. "Wimp_Cr|
00000ad0  65 61 74 65 4d 65 6e 75  22 2c 2c 64 61 74 61 25  |eateMenu",,data%|
00000ae0  2b 26 32 34 2c 21 70 6f  6c 6c 62 6c 6f 63 6b 25  |+&24,!pollblock%|
00000af0  2d 36 34 2c 79 6d 0d 04  74 06 20 e1 0d 04 7e 06  |-64,ym..t. ...~.|
00000b00  20 3a 0d 04 88 13 20 dd  a4 67 65 74 73 74 72 28  | :.... ..getstr(|
00000b10  61 64 64 72 29 0d 04 92  0a 20 61 24 3d 22 22 0d  |addr).... a$="".|
00000b20  04 9c 06 20 f5 0d 04 a6  1a 20 e7 20 3f 61 64 64  |... ..... . ?add|
00000b30  72 3c 3e 30 20 61 24 2b  3d bd 3f 61 64 64 72 0d  |r<>0 a$+=.?addr.|
00000b40  04 b0 0c 20 61 64 64 72  2b 3d 31 0d 04 ba 10 20  |... addr+=1.... |
00000b50  fd 20 61 64 64 72 3f 2d  31 3d 30 0d 04 c4 08 20  |. addr?-1=0.... |
00000b60  3d 61 24 0d 04 ce 06 20  3a 0d 04 d8 20 20 dd f2  |=a$.... :...  ..|
00000b70  73 61 76 65 69 74 6f 75  74 28 69 6e 70 75 74 24  |saveitout(input$|
00000b80  2c 6f 75 74 70 75 74 24  29 0d 04 e2 11 20 e7 20  |,output$).... . |
00000b90  21 6c 6f 61 64 3d 2d 31  20 8c 0d 04 ec 33 20 c8  |!load=-1 ....3 .|
00000ba0  99 20 22 4f 53 5f 46 69  6c 65 22 2c 31 30 2c 6f  |. "OS_File",10,o|
00000bb0  75 74 70 75 74 24 2c 26  46 46 44 2c 2c 21 61 64  |utput$,&FFD,,!ad|
00000bc0  64 72 2c 21 61 64 64 72  2b 21 6c 65 6e 0d 04 f6  |dr,!addr+!len...|
00000bd0  06 20 cc 0d 05 00 38 20  c8 99 20 22 4f 53 5f 46  |. ....8 .. "OS_F|
00000be0  69 6c 65 22 2c 30 2c 6f  75 74 70 75 74 24 2c 21  |ile",0,output$,!|
00000bf0  6c 6f 61 64 2c 21 65 78  65 63 2c 21 61 64 64 72  |load,!exec,!addr|
00000c00  2c 21 61 64 64 72 2b 21  6c 65 6e 0d 05 0a 06 20  |,!addr+!len.... |
00000c10  cd 0d 05 14 0d 20 f2 64  65 61 6c 6c 6f 63 0d 05  |..... .dealloc..|
00000c20  1e 06 20 e1 0d 05 28 06  20 3a 0d 05 32 0e 20 dd  |.. ...(. :..2. .|
00000c30  f2 64 65 61 6c 6c 6f 63  0d 05 3c 28 20 e7 20 21  |.dealloc..<( . !|
00000c40  61 64 64 72 3c 3e 30 20  c8 99 20 22 58 4f 53 5f  |addr<>0 .. "XOS_|
00000c50  4d 6f 64 75 6c 65 22 2c  37 2c 2c 21 61 64 64 72  |Module",7,,!addr|
00000c60  0d 05 46 0c 20 21 61 64  64 72 3d 30 0d 05 50 06  |..F. !addr=0..P.|
00000c70  20 e1 0d 05 5a 06 20 3a  0d 05 64 19 20 dd f2 73  | ...Z. :..d. ..s|
00000c80  65 74 70 61 73 73 28 70  61 73 73 77 6f 72 64 25  |etpass(password%|
00000c90  29 0d 05 6e 1a 20 41 25  3d 70 61 73 73 77 6f 72  |)..n. A%=passwor|
00000ca0  64 25 3a 20 d6 20 63 6f  64 65 25 0d 05 78 06 20  |d%: . code%..x. |
00000cb0  e1 0d 05 82 06 20 3a 0d  05 8c 11 20 dd f2 70 61  |..... :.... ..pa|
00000cc0  73 73 77 69 6e 64 6f 77  0d 05 96 3f 20 70 6f 6c  |sswindow...? pol|
00000cd0  6c 62 6c 6f 63 6b 25 21  30 3d 70 61 73 73 77 6f  |lblock%!0=passwo|
00000ce0  72 64 25 3a c8 99 22 57  69 6d 70 5f 47 65 74 57  |rd%:.."Wimp_GetW|
00000cf0  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 70 6f 6c  |indowState",,pol|
00000d00  6c 62 6c 6f 63 6b 25 0d  05 a0 35 20 70 6f 6c 6c  |lblock%...5 poll|
00000d10  62 6c 6f 63 6b 25 21 32  38 3d 2d 31 3a c8 99 22  |block%!28=-1:.."|
00000d20  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
00000d30  2c 2c 70 6f 6c 6c 62 6c  6f 63 6b 25 0d 05 aa 06  |,,pollblock%....|
00000d40  20 e1 0d 05 b4 06 20 3a  0d 05 be 14 20 dd f2 73  | ..... :.... ..s|
00000d50  61 76 65 61 73 28 41 25  2c 62 24 29 0d 05 c8 0d  |aveas(A%,b$)....|
00000d60  20 c8 97 20 78 2c 79 2c  62 0d 05 d2 16 20 c8 99  | .. x,y,b.... ..|
00000d70  20 22 48 6f 75 72 67 6c  61 73 73 5f 4f 6e 22 0d  | "Hourglass_On".|
00000d80  05 dc 0c 20 d6 20 6d 61  67 69 63 0d 05 e6 17 20  |... . magic.... |
00000d90  c8 99 20 22 48 6f 75 72  67 6c 61 73 73 5f 4f 66  |.. "Hourglass_Of|
00000da0  66 22 0d 05 f0 0d 20 c8  8e 20 21 6f 6b 20 ca 0d  |f".... .. !ok ..|
00000db0  05 fa 13 20 c9 20 30 3a  20 65 72 72 6f 72 24 3d  |... . 0: error$=|
00000dc0  22 22 0d 06 04 35 20 c9  20 31 3a 20 65 72 72 6f  |""...5 . 1: erro|
00000dd0  72 24 3d 22 49 6e 73 75  66 66 69 63 69 65 6e 74  |r$="Insufficient|
00000de0  20 6d 65 6d 6f 72 79 20  69 6e 20 6d 6f 64 75 6c  | memory in modul|
00000df0  65 20 61 72 65 61 22 0d  06 0e 25 20 c9 20 32 3a  |e area"...% . 2:|
00000e00  20 65 72 72 6f 72 24 3d  22 49 6e 63 6f 72 72 65  | error$="Incorre|
00000e10  63 74 20 70 61 73 73 77  6f 72 64 22 0d 06 18 2f  |ct password".../|
00000e20  20 c9 20 33 3a 20 65 72  72 6f 72 24 3d 22 53 6f  | . 3: error$="So|
00000e30  75 72 63 65 20 6d 75 73  74 20 62 65 20 61 20 73  |urce must be a s|
00000e40  69 6e 67 6c 65 20 66 69  6c 65 22 0d 06 22 06 20  |ingle file"..". |
00000e50  cb 0d 06 2c 12 20 e7 20  65 72 72 6f 72 24 3d 22  |...,. . error$="|
00000e60  22 20 8c 0d 06 36 0b 20  74 6f 67 6f 3d b9 0d 06  |" ...6. togo=...|
00000e70  40 13 20 24 28 62 75 66  77 25 2b 31 32 29 3d 62  |@. $(bufw%+12)=b|
00000e80  24 0d 06 4a 30 20 e7 20  21 6c 6f 61 64 3d 2d 31  |$..J0 . !load=-1|
00000e90  20 8c 20 66 69 6c 65 24  3d 22 66 69 6c 65 5f 66  | . file$="file_f|
00000ea0  66 64 22 3a 66 69 6c 65  74 79 70 65 3d 26 46 46  |fd":filetype=&FF|
00000eb0  44 0d 06 54 30 20 e7 20  21 6c 6f 61 64 3e 30 20  |D..T0 . !load>0 |
00000ec0  8c 20 66 69 6c 65 24 3d  22 66 69 6c 65 5f 78 78  |. file$="file_xx|
00000ed0  78 22 3a 66 69 6c 65 74  79 70 65 3d 26 31 30 30  |x":filetype=&100|
00000ee0  30 0d 06 5e 4b 20 e7 20  21 6c 6f 61 64 3c 2d 31  |0..^K . !load<-1|
00000ef0  20 8c 20 66 69 6c 65 74  79 70 65 3d 28 21 6c 6f  | . filetype=(!lo|
00000f00  61 64 20 80 20 26 46 46  46 30 30 29 81 20 32 35  |ad . &FFF00). 25|
00000f10  36 3a 66 69 6c 65 24 3d  22 66 69 6c 65 5f 22 2b  |6:file$="file_"+|
00000f20  c3 7e 28 66 69 6c 65 74  79 70 65 29 0d 06 68 11  |.~(filetype)..h.|
00000f30  20 24 62 75 66 77 25 3d  66 69 6c 65 24 0d 06 72  | $bufw%=file$..r|
00000f40  17 20 70 6f 6c 6c 62 6c  6f 63 6b 25 21 34 3d 78  |. pollblock%!4=x|
00000f50  2d 31 32 34 0d 06 7c 18  20 70 6f 6c 6c 62 6c 6f  |-124..|. pollblo|
00000f60  63 6b 25 21 31 32 3d 78  2b 31 32 34 0d 06 86 28  |ck%!12=x+124...(|
00000f70  20 21 70 6f 6c 6c 62 6c  6f 63 6b 25 3d 73 61 76  | !pollblock%=sav|
00000f80  65 61 73 25 3a 20 70 6f  6c 6c 62 6c 6f 63 6b 25  |eas%: pollblock%|
00000f90  21 38 3d 30 0d 06 90 16  20 70 6f 6c 6c 62 6c 6f  |!8=0.... pollblo|
00000fa0  63 6b 25 21 31 36 3d 31  36 38 0d 06 9a 37 20 70  |ck%!16=168...7 p|
00000fb0  6f 6c 6c 62 6c 6f 63 6b  25 21 32 30 3d 30 3a 20  |ollblock%!20=0: |
00000fc0  70 6f 6c 6c 62 6c 6f 63  6b 25 21 32 34 3d 30 3a  |pollblock%!24=0:|
00000fd0  20 70 6f 6c 6c 62 6c 6f  63 6b 25 21 32 38 3d 2d  | pollblock%!28=-|
00000fe0  31 0d 06 a4 19 20 70 6f  6c 6c 62 6c 6f 63 6b 25  |1.... pollblock%|
00000ff0  21 30 3d 73 61 76 65 61  73 25 0d 06 ae 35 20 70  |!0=saveas%...5 p|
00001000  6f 6c 6c 62 6c 6f 63 6b  25 21 32 38 3d 2d 31 3a  |ollblock%!28=-1:|
00001010  c8 99 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |.."Wimp_OpenWind|
00001020  6f 77 22 2c 2c 70 6f 6c  6c 62 6c 6f 63 6b 25 0d  |ow",,pollblock%.|
00001030  06 b8 34 20 c8 99 20 22  57 69 6d 70 5f 53 65 74  |..4 .. "Wimp_Set|
00001040  43 61 72 65 74 50 6f 73  69 74 69 6f 6e 22 2c 73  |CaretPosition",s|
00001050  61 76 65 61 73 25 2c 31  2c 2c 2c 2d 31 2c a9 28  |aveas%,1,,,-1,.(|
00001060  62 24 29 0d 06 c2 06 20  cc 0d 06 cc 45 20 24 28  |b$).... ....E $(|
00001070  74 65 6d 70 6c 61 74 65  25 2b 34 29 3d 65 72 72  |template%+4)=err|
00001080  6f 72 24 3a 20 c8 99 20  22 57 69 6d 70 5f 52 65  |or$: .. "Wimp_Re|
00001090  70 6f 72 74 45 72 72 6f  72 22 2c 74 65 6d 70 6c  |portError",templ|
000010a0  61 74 65 25 2c 32 2c 22  43 72 79 70 74 22 0d 06  |ate%,2,"Crypt"..|
000010b0  d6 0d 20 f2 64 65 61 6c  6c 6f 63 0d 06 e0 06 20  |.. .dealloc.... |
000010c0  cd 0d 06 ea 06 20 e1 0d  06 f4 06 20 3a 0d 06 fe  |..... ..... :...|
000010d0  0f 20 dd f2 69 6e 69 74  64 72 61 67 0d 07 08 19  |. ..initdrag....|
000010e0  20 e7 20 70 6f 6c 6c 62  6c 6f 63 6b 25 21 31 36  | . pollblock%!16|
000010f0  3c 3e 30 20 e1 0d 07 12  0b 20 74 6f 67 6f 3d a3  |<>0 ..... togo=.|
00001100  0d 07 1c 1e 20 21 70 6f  6c 6c 62 6c 6f 63 6b 25  |.... !pollblock%|
00001110  3d 70 6f 6c 6c 62 6c 6f  63 6b 25 21 31 32 0d 07  |=pollblock%!12..|
00001120  26 1f 20 70 6f 6c 6c 62  6c 6f 63 6b 25 21 34 3d  |&. pollblock%!4=|
00001130  70 6f 6c 6c 62 6c 6f 63  6b 25 21 31 36 0d 07 30  |pollblock%!16..0|
00001140  27 20 c8 99 20 22 57 69  6d 70 5f 47 65 74 49 63  |' .. "Wimp_GetIc|
00001150  6f 6e 53 74 61 74 65 22  2c 2c 70 6f 6c 6c 62 6c  |onState",,pollbl|
00001160  6f 63 6b 25 0d 07 3a 2a  20 21 62 6c 6f 63 6b 32  |ock%..:* !block2|
00001170  25 3d 21 70 6f 6c 6c 62  6c 6f 63 6b 25 3a 20 21  |%=!pollblock%: !|
00001180  64 72 61 67 25 3d 21 62  6c 6f 63 6b 32 25 0d 07  |drag%=!block2%..|
00001190  44 26 20 c8 99 20 22 57  69 6d 70 5f 47 65 74 57  |D& .. "Wimp_GetW|
000011a0  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 62 6c 6f  |indowState",,blo|
000011b0  63 6b 32 25 0d 07 4e 1b  20 61 3d 62 6c 6f 63 6b  |ck2%..N. a=block|
000011c0  32 25 21 34 2d 62 6c 6f  63 6b 32 25 21 32 30 0d  |2%!4-block2%!20.|
000011d0  07 58 1c 20 62 3d 62 6c  6f 63 6b 32 25 21 31 36  |.X. b=block2%!16|
000011e0  2d 62 6c 6f 63 6b 32 25  21 32 34 0d 07 62 0e 20  |-block2%!24..b. |
000011f0  64 72 61 67 25 21 34 3d  35 0d 07 6c 1b 20 64 72  |drag%!4=5..l. dr|
00001200  61 67 25 21 38 3d 70 6f  6c 6c 62 6c 6f 63 6b 25  |ag%!8=pollblock%|
00001210  21 38 2b 61 0d 07 76 1d  20 64 72 61 67 25 21 31  |!8+a..v. drag%!1|
00001220  32 3d 70 6f 6c 6c 62 6c  6f 63 6b 25 21 31 32 2b  |2=pollblock%!12+|
00001230  62 0d 07 80 1d 20 64 72  61 67 25 21 31 36 3d 70  |b.... drag%!16=p|
00001240  6f 6c 6c 62 6c 6f 63 6b  25 21 31 36 2b 61 0d 07  |ollblock%!16+a..|
00001250  8a 1d 20 64 72 61 67 25  21 32 30 3d 70 6f 6c 6c  |.. drag%!20=poll|
00001260  62 6c 6f 63 6b 25 21 32  30 2b 62 0d 07 94 1b 20  |block%!20+b.... |
00001270  64 72 61 67 25 21 32 34  3d 30 3a 20 64 72 61 67  |drag%!24=0: drag|
00001280  25 21 32 38 3d 30 0d 07  9e 25 20 64 72 61 67 25  |%!28=0...% drag%|
00001290  21 33 32 3d 26 37 46 46  46 46 3a 20 64 72 61 67  |!32=&7FFFF: drag|
000012a0  25 21 33 36 3d 26 37 46  46 46 46 0d 07 a8 3a 20  |%!36=&7FFFF...: |
000012b0  c8 99 20 22 58 4f 53 5f  53 57 49 4e 75 6d 62 65  |.. "XOS_SWINumbe|
000012c0  72 46 72 6f 6d 53 74 72  69 6e 67 22 2c 2c 22 44  |rFromString",,"D|
000012d0  72 61 67 41 53 70 72 69  74 65 5f 53 74 61 72 74  |ragASprite_Start|
000012e0  22 20 b8 20 61 0d 07 b2  1e 20 c8 99 20 22 4f 53  |" . a.... .. "OS|
000012f0  5f 42 79 74 65 22 2c 31  36 31 2c 32 38 20 b8 20  |_Byte",161,28 . |
00001300  2c 2c 6e 0d 07 bc 1e 20  e7 20 61 3e 26 31 30 30  |,,n.... . a>&100|
00001310  30 30 30 20 84 20 28 6e  20 80 20 32 29 3d 30 20  |000 . (n . 2)=0 |
00001320  8c 0d 07 c6 1d 20 c8 99  20 22 57 69 6d 70 5f 44  |..... .. "Wimp_D|
00001330  72 61 67 42 6f 78 22 2c  2c 64 72 61 67 25 0d 07  |ragBox",,drag%..|
00001340  d0 06 20 cc 0d 07 da 0b  20 64 61 73 25 3d b9 0d  |.. ..... das%=..|
00001350  07 e4 38 20 c8 99 20 22  44 72 61 67 41 53 70 72  |..8 .. "DragASpr|
00001360  69 74 65 5f 53 74 61 72  74 22 2c 26 43 35 2c 31  |ite_Start",&C5,1|
00001370  2c 66 69 6c 65 24 2c 64  72 61 67 25 2b 38 2c 64  |,file$,drag%+8,d|
00001380  72 61 67 25 2b 32 34 0d  07 ee 06 20 cd 0d 07 f8  |rag%+24.... ....|
00001390  06 20 e1 0d 08 02 06 20  3a 0d 08 0c 10 20 dd f2  |. ..... :.... ..|
000013a0  63 6c 6f 73 65 73 61 76  65 0d 08 16 0b 20 74 6f  |closesave.... to|
000013b0  67 6f 3d a3 0d 08 20 3b  20 21 70 6f 6c 6c 62 6c  |go=... ; !pollbl|
000013c0  6f 63 6b 25 3d 73 61 76  65 61 73 25 3a 20 c8 99  |ock%=saveas%: ..|
000013d0  20 22 57 69 6d 70 5f 43  6c 6f 73 65 57 69 6e 64  | "Wimp_CloseWind|
000013e0  6f 77 22 2c 2c 70 6f 6c  6c 62 6c 6f 63 6b 25 0d  |ow",,pollblock%.|
000013f0  08 2a 0d 20 f2 64 65 61  6c 6c 6f 63 0d 08 34 06  |.*. .dealloc..4.|
00001400  20 e1 0d 08 3e 06 20 3a  0d 08 48 10 20 dd f2 63  | ...>. :..H. ..c|
00001410  6c 6f 73 65 70 61 73 73  0d 08 52 3d 20 21 70 6f  |losepass..R= !po|
00001420  6c 6c 62 6c 6f 63 6b 25  3d 70 61 73 73 77 6f 72  |llblock%=passwor|
00001430  64 25 3a 20 c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |d%: .. "Wimp_Clo|
00001440  73 65 57 69 6e 64 6f 77  22 2c 2c 70 6f 6c 6c 62  |seWindow",,pollb|
00001450  6c 6f 63 6b 25 0d 08 5c  06 20 e1 0d 08 66 06 20  |lock%..\. ...f. |
00001460  3a 0d 08 70 0e 20 dd f2  64 72 61 67 62 6f 78 0d  |:..p. ..dragbox.|
00001470  08 7a 1b 20 62 24 3d a4  72 69 67 68 74 28 24 28  |.z. b$=.right($(|
00001480  62 75 66 77 25 2b 31 32  29 29 0d 08 84 24 20 e7  |bufw%+12))...$ .|
00001490  20 64 61 73 25 20 8c 20  c8 99 20 22 58 44 72 61  | das% . .. "XDra|
000014a0  67 41 53 70 72 69 74 65  5f 53 74 6f 70 22 0d 08  |gASprite_Stop"..|
000014b0  8e 29 20 c8 99 20 22 57  69 6d 70 5f 47 65 74 50  |.) .. "Wimp_GetP|
000014c0  6f 69 6e 74 65 72 49 6e  66 6f 22 2c 2c 70 6f 6c  |ointerInfo",,pol|
000014d0  6c 62 6c 6f 63 6b 25 0d  08 98 17 20 c8 8e 20 70  |lblock%.... .. p|
000014e0  6f 6c 6c 62 6c 6f 63 6b  25 21 31 32 20 ca 0d 08  |ollblock%!12 ...|
000014f0  a2 1e 20 c9 20 73 61 76  65 61 73 25 2c 69 6e 66  |.. . saveas%,inf|
00001500  6f 25 2c 70 61 73 73 77  6f 72 64 25 0d 08 ac 06  |o%,password%....|
00001510  20 7f 0d 08 b6 23 20 21  62 6c 6f 63 6b 32 25 3d  | ....# !block2%=|
00001520  28 28 28 34 35 2b a9 28  62 24 29 29 2d 31 29 84  |(((45+.(b$))-1).|
00001530  20 33 29 2b 31 0d 08 c0  11 20 62 6c 6f 63 6b 32  | 3)+1.... block2|
00001540  25 21 31 36 3d 31 0d 08  ca 1d 20 62 6c 6f 63 6b  |%!16=1.... block|
00001550  32 25 21 32 30 3d 70 6f  6c 6c 62 6c 6f 63 6b 25  |2%!20=pollblock%|
00001560  21 31 32 0d 08 d4 1d 20  62 6c 6f 63 6b 32 25 21  |!12.... block2%!|
00001570  32 34 3d 70 6f 6c 6c 62  6c 6f 63 6b 25 21 31 36  |24=pollblock%!16|
00001580  0d 08 de 1b 20 62 6c 6f  63 6b 32 25 21 32 38 3d  |.... block2%!28=|
00001590  21 70 6f 6c 6c 62 6c 6f  63 6b 25 0d 08 e8 1c 20  |!pollblock%.... |
000015a0  62 6c 6f 63 6b 32 25 21  33 32 3d 70 6f 6c 6c 62  |block2%!32=pollb|
000015b0  6c 6f 63 6b 25 21 34 0d  08 f2 27 20 62 6c 6f 63  |lock%!4...' bloc|
000015c0  6b 32 25 21 33 36 3d 2d  31 3a 20 62 6c 6f 63 6b  |k2%!36=-1: block|
000015d0  32 25 21 34 30 3d 66 69  6c 65 74 79 70 65 0d 08  |2%!40=filetype..|
000015e0  fc 2b 20 24 28 62 6c 6f  63 6b 32 25 2b 34 34 29  |.+ $(block2%+44)|
000015f0  3d 62 24 3a 3f 28 62 6c  6f 63 6b 32 25 2b 34 34  |=b$:?(block2%+44|
00001600  2b a9 28 62 24 29 29 3d  30 0d 09 06 35 20 c8 99  |+.(b$))=0...5 ..|
00001610  20 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  | "Wimp_SendMessa|
00001620  67 65 22 2c 31 37 2c 62  6c 6f 63 6b 32 25 2c 70  |ge",17,block2%,p|
00001630  6f 6c 6c 62 6c 6f 63 6b  25 21 31 32 2c 31 0d 09  |ollblock%!12,1..|
00001640  10 14 20 6d 79 72 65 66  3d 62 6c 6f 63 6b 32 25  |.. myref=block2%|
00001650  21 38 0d 09 1a 06 20 cb  0d 09 24 06 20 e1 0d 09  |!8.... ...$. ...|
00001660  2e 06 20 3a 0d 09 38 11  20 dd f2 6b 65 79 70 72  |.. :..8. ..keypr|
00001670  65 73 73 65 64 0d 09 42  19 20 e7 20 70 6f 6c 6c  |essed..B. . poll|
00001680  62 6c 6f 63 6b 25 21 32  34 3d 31 33 20 8c 0d 09  |block%!24=13 ...|
00001690  4c 15 20 c8 8e 20 21 70  6f 6c 6c 62 6c 6f 63 6b  |L. .. !pollblock|
000016a0  25 20 ca 0d 09 56 2d 20  c9 20 73 61 76 65 61 73  |% ...V- . saveas|
000016b0  25 3a 20 f2 73 61 76 65  69 74 6f 75 74 28 61 24  |%: .saveitout(a$|
000016c0  2c 62 24 29 3a 20 f2 63  6c 6f 73 65 73 61 76 65  |,b$): .closesave|
000016d0  0d 09 60 30 20 c9 20 70  61 73 73 77 6f 72 64 25  |..`0 . password%|
000016e0  3a 20 f2 73 65 74 70 61  73 73 28 62 75 66 76 25  |: .setpass(bufv%|
000016f0  2b 32 30 29 3a 20 f2 63  6c 6f 73 65 70 61 73 73  |+20): .closepass|
00001700  0d 09 6a 06 20 cc 0d 09  74 27 20 c8 99 20 22 57  |..j. ...t' .. "W|
00001710  69 6d 70 5f 50 72 6f 63  65 73 73 4b 65 79 22 2c  |imp_ProcessKey",|
00001720  70 6f 6c 6c 62 6c 6f 63  6b 25 21 32 34 0d 09 7e  |pollblock%!24..~|
00001730  06 20 cd 0d 09 88 06 20  e1 0d 09 92 06 20 3a 0d  |. ..... ..... :.|
00001740  09 9c 10 20 dd a4 72 69  67 68 74 28 41 24 29 0d  |... ..right(A$).|
00001750  09 a6 0c 20 65 3d a9 28  41 24 29 0d 09 b0 20 20  |... e=.(A$)...  |
00001760  f5 3a 65 2d 3d 31 3a fd  20 c1 41 24 2c 65 2c 31  |.:e-=1:. .A$,e,1|
00001770  29 3d 22 2e 22 20 84 20  65 3d 30 0d 09 ba 12 20  |)="." . e=0.... |
00001780  3d c2 41 24 2c a9 28 41  24 29 2d 65 29 0d ff     |=.A$,.(A$)-e)..|
0000178f

© Dominic Ford 2021–2026.

Our privacy policy is here.
Last updated: 01 Jun 2026, 20:16 UTC
Website designed by .