Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199607.adf » Regulars » StarInfo/Whitehouse/!Trees/!RunImage
StarInfo/Whitehouse/!Trees/!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_AcornUser_199607.adf » Regulars |
| Filename: | StarInfo/Whitehouse/!Trees/!RunImage |
| Read OK: | ✔ |
| File size: | 1B63 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM
20REM
30PROCstartup
40PROCpoll_loop
50PROCclosedown
60END
70:
80: *** startup sequence ***
90:
100DEFPROCstartup
110appname$="Trees":indir_size%=20000
120
130DIM b% 2400, tb% 2048, indirect% indir_size%, temp% 48:pb%=temp%
140DIM font_array% 256
150FOR w%=0 TO 255:font_array%?w%=0:NEXT
160DIM display_buffer% 170000
170!display_buffer%=170000:display_buffer%!4=0
180display_buffer%!8=16:display_buffer%!12=16
190
200ON ERROR ON ERROR OFF:PROCerror("Can't start "+appname$+" - "+REPORT$+" at line "+STR$(ERL)):PROCclosedown:END
210
220DIM w% 32:w%!0=3:w%!4=10:w%!8=&502:w%!12=&400C5:w%!16=&4B480:w%!20=&4B481
230w%!24=&4B483:w%!28=0
240SYS "Wimp_Initialise",310,&4B534154,appname$,w% TO ,taskhandle%
250
260SYS "Tempest_Hello",,4+16+32+512,tb%,2048,appname$
270SYS "Tempest_MiscOp",11,"",tb%,"IBAR"
280
290REM load templates - sprite link first; windows; menus; I-help
300REM all this is loaded into indirect% (inc. WinSprs, Text)
310REM windows - module calls Wimp_CreateWindow, & sets the sprite areas
320
330SYS "Tempest_RegisterIndirectArea",indirect%,indirect%+indir_size%,tb%
340SYS "Tempest_OpenFile","<Obey$Dir>.Templates",,tb%
350
360SYS "Tempest_MiscOp",13,display_buffer%,tb%
370SYS "Tempest_LoadObject","display",b%,tb%,-1,0 TO display_H%
380REM has its own private sprite buffer
390
400SYS "Tempest_LoadObject","SpriteLink",b%,tb%,-1
410
420SYS "Tempest_LoadObject","IconBar",b%,tb%,font_array%,0 TO ibarmenu%
430SYS "Tempest_LoadObject","MainMenu",b%,tb%,font_array%,0 TO mainmenu%
440
450SYS "Tempest_LoadObject","ProgInfo",b%,tb%,font_array%,0 TO infohandle%
460SYS "Tempest_LoadObject","MainWindow",b%,tb%,font_array%,0 TO mainhandle%
470
480SYS "Tempest_LoadObject","General",b%,tb%,font_array%,0 TO general_H%
490SYS "Tempest_LoadObject","Greens",b%,tb%,font_array%,0 TO greens_H%
500SYS "Tempest_LoadObject","Branching",b%,tb%,font_array%,0 TO branching_H%
510SYS "Tempest_LoadObject","Trunk",b%,tb%,font_array%,0 TO trunk_H%
520
530SYS "Tempest_LoadObject","SaveBox",b%,tb%,font_array%,0 TO saveH%
540SYS "Tempest_LoadObject","savedata",b%,tb%,font_array%,0 TO savedataH%
550
560SYS "Tempest_LoadObject","HelpText",b%,tb%,-1,0 TO help%
570REM load text file, and install for interactive help.
580
590SYS "Tempest_CloseFile",,,tb%
600SYS "Tempest_LinkMenus",,0,tb%
610
620tb%!856=general_H%
630LIBRARY "<Obey$Dir>.IcnDefs":PROCiconnumbers
640LIBRARY "<Obey$Dir>.WTrees"
650PROCtrees_startup
660ENDPROC
670:
680:
690: *** wimp poll ***
700:
710:
720DEFPROCpoll_loop
730ON ERROR LOCAL PROCerror("Error in "+appname$+" - "+REPORT$+" ["+STR$ERL+"] OK=Continue/Cancel=Quit"):IF err_result%<>1 THEN PROCclosedown:END
740quit%=FALSE
750REPEAT
760 SYS "Wimp_Poll",&3831 AND tb%!1000,b% TO reason%
770 SYS "Tempest_PreProcess",reason%,b%,tb% TO reason%
780 CASE reason% OF
790 WHEN 2 : SYS "Tempest_OpenWindow",,b%,tb%
800 WHEN 3 : SYS "Tempest_CloseWindow",,b%,tb%
810 WHEN 6 : PROCmouse_click
820 WHEN 7 : PROCuser_drag
830 WHEN 8 : SYS "Wimp_ProcessKey",b%!24
840 WHEN 9 : PROCmenuselect
850 WHEN 17,18 : PROCmessage
860 ENDCASE
870UNTIL quit%=TRUE
880ENDPROC
890:
900: *** mouse click ***
910:
920DEFPROCmouse_click
930REM b%!12 = window, b%!8 = button state
940
950CASE b%!12 OF
960
970 WHEN -2 : REM click on icon bar icon
980 CASE b%!8 OF
990 WHEN 1 : PROCerror(STR$(HIMEM-END))
1000 WHEN 2 : SYS "Tempest_ShowMenu",0,,tb%,ibarmenu%
1010 WHEN 4 : PROCopenmain
1020 ENDCASE
1030
1040 WHEN mainhandle% : REM click on main window
1050 CASE b%!16 OF
1060 WHEN mainwindow_start% : PROCtrees_draw
1070 WHEN mainwindow_claim% : PROCe_claim(10000)
1080 ENDCASE
1090
1100 WHEN saveH%,savedataH% :
1110 IF b%!12=saveH% THEN
1120 save_type%=&FF9
1130 save_ptr%=display_buffer%+4
1140 save_size%=display_buffer%!12-4
1150 ELSE
1160 save_type%=&FFD
1170 save_ptr%=b%+1024
1180 save_size%=256
1190 ENDIF
1200 save_name%=FNget(b%!12,savebox_field%)
1210 REM all this relies on the icon numbers being the same in each saver
1220
1230 CASE b%!16 OF
1240 WHEN savebox_OK% :
1250 SYS "XTempest_SaveButton",save_name%,0,tb%,,save_type% TO w%;flags%
1260 IF flags% AND 1 THEN PROCerror(FNzero(w%+4))
1270
1280 WHEN savebox_sprite% : SYS "Tempest_DragAnIcon",0,b%+12,tb%
1290 ENDCASE
1300
1310
1320 WHEN display_H% :
1330 IF b%!8=2 THEN SYS "Tempest_ShowMenu",1,,tb%,mainmenu%
1340
1350ENDCASE
1360ENDPROC
1370:
1380:
1390DEFPROCuser_drag
1400SYS "XTempest_StartSaveSequence",save_name%,b%+32,tb%,save_size%,save_type% TO w%;flags%
1410IF flags% AND 1 THEN PROCerror(FNzero(w%+4))
1420ENDPROC
1430:
1440:
1450: *** menu select ***
1460:
1470DEFPROCmenuselect : REM tb%!8 is last menu created
1480CASE tb%!8 OF
1490
1500 WHEN ibarmenu% :
1510 CASE b%!0 OF
1520 WHEN iconbar_info% : SYS "Tempest_ShowMenu",1,,tb%,infohandle%
1530 WHEN iconbar_instr% : *SET Browzer$HelpFile <Trees$Dir>.Instr
1540 *Filer_Run <Browzer$Dir>.!Run
1550 WHEN iconbar_quit% : quit%=TRUE
1560 ENDCASE
1570
1580 WHEN mainmenu% :
1590 CASE b%!0 OF
1600 WHEN mainmenu_full% : PROCfull_screen
1610 ENDCASE
1620
1630ENDCASE
1640SYS "Tempest_ShowMenu",7,,tb%,0 : REM redisplays last menu on ADJUST
1650ENDPROC
1660:
1670: *** messages ***
1680:
1690DEFPROCmessage
1700CASE b%!16 OF
1710 WHEN 0 : quit%=TRUE
1720 WHEN 3 : IF b%!40=&FFD THEN PROCload
1730 WHEN 10 : REM done by module ('cos flags bit5 is set)
1740 WHEN &400C5 : REM slot size
1750 IF b%!24=taskhandle% THEN
1760 IF b%!20>HIMEM-PAGE+20000 THEN PROCe_claim(b%!20/1024)
1770 SYS "Tempest_MiscOp",20,b%,tb%
1780 ENDIF
1790 WHEN &4B480 : PROCsave_result
1800 WHEN &4B481 : PROCsave_prepare
1810 WHEN &4B483 : PROCe_scroll
1820ENDCASE
1830ENDPROC
1840:
1850: <<< end of poll responses >>>
1860: *** miscellaneous routines ***
1870:
1880DEFFNzero(A%):LOCAL w$:w$="":WHILE ?A%>13:w$=w$+CHR$?A%:A%+=1:ENDWHILE:=w$
1890:
1900DEFPROCerror(err$)
1910!b%=255
1920$(b%+4)=err$+CHR$0
1930SYS "Wimp_ReportError",b%,3,appname$ TO ,err_result%
1940ENDPROC
1950:
1960DEFPROCclosedown
1970ON ERROR OFF
1980SYS "Tempest_ReduceFontArray",0,font_array%,tb%
1990SYS "Tempest_MiscOp",10,,tb%
2000SYS "Wimp_CloseDown"
2010ENDPROC
2020:
2030DEFFNrange(A%,B%,C%)
2040IF A%<B% THEN =B%
2050IF A%>C% THEN =C% ELSE =A%
2060:
2070:
2080DEFPROCopenmain
2090!pb%=tb%!856 : SYS "Tempest_CloseWindow",,pb%,tb% : REM close #14 w/o validn
2100tb%!852=&02066103
2110tb%!856=general_H%
2120!temp%=mainhandle%
2130SYS "Tempest_ShowWindow",&33C11,temp%,tb% : REM open to front, centred, focus etc..
2140SYS "Tempest_SetIconState",mainhandle%,mainwindow_general%,tb%,1<<21,1<<21
2150REM does 'de' and 'i0>U_GEN' reopening the sub-window, and setting !856 to _GEN.
2160
2170IF tree_done% THEN
2180 !pb%=display_H%
2190 SYS "Tempest_ShowWindow",&33C01,pb%,tb%
2200ENDIF
2210ENDPROC
2220:
2230DEFFNget(pb%!0,pb%!4)
2240SYS "Tempest_GetEntityInfo",,pb%,tb%
2250=tb%!44
2260
2270
2280
2290DEFPROCsave_result
2300CASE b%!20 OF
2310 WHEN 1 : $save_name%=FNzero(b%+28)
2320 WHEN 17 : PROCerror(FNzero(b%!24+4))
2330ENDCASE
2340ENDPROC
2350
2360
2370DEFPROCsave_prepare
2380LOCAL ptr%,index%
2390IF save_type%=&FFD THEN
2400 ptr%=b%+1024+4
2410 ptr%!-4=&49987AAA
2420 FOR index%=1 TO e_nv%
2430 !ptr%=e_val%(index%)
2440 ptr%+=4
2450 NEXT
2460ENDIF
2470
2480SYS "XTempest_DataIsReady",0,b%,tb%,save_ptr%,save_size% TO w%;flags%
2490IF flags% AND 1 THEN PROCerror(FNzero(w%+4))
2500ENDPROC
2510
2520
2530DEFPROCload
2540LOCAL channel%, ptr%
2550channel%=OPENIN(FNzero(b%+44))
2560IF channel%=0 THEN ENDPROC
2570SYS "OS_GBPB",4,channel%,pb%,4
2580IF !pb%<>&49987AAA THEN CLOSE#channel%:ENDPROC
2590
2600SYS "OS_GBPB",3,channel%,b%+1024,256,0
2610CLOSE#channel%
2620
2630ptr%=b%+1028
2640FOR index%=1 TO e_nv%
2650 e_val%(index%)=!ptr%
2660 ptr%+=4
2670NEXT
2680PROCe_writeall
2690PROCe_validate
2700ENDPROC
2710
2720
2730
2740
2750
�
�
�startup
(�poll_loop
2�closedown
<�
F:
P-: *** startup sequence ***
Z:
d
��startup
n&appname$="Trees":indir_size%=20000
x
�B� b% 2400, tb% 2048, indirect% indir_size%, temp% 48:pb%=temp%
�� font_array% 256
�#� w%=0 � 255:font_array%?w%=0:�
� � display_buffer% 170000
�/!display_buffer%=170000:display_buffer%!4=0
�.display_buffer%!8=16:display_buffer%!12=16
�
�T� � � � �:�error("Can't start "+appname$+" - "+�$+" at line "+�(�)):�closedown:�
�
�K� w% 32:w%!0=3:w%!4=10:w%!8=&502:w%!12=&400C5:w%!16=&4B480:w%!20=&4B481
�w%!24=&4B483:w%!28=0
�Aș "Wimp_Initialise",310,&4B534154,appname$,w% � ,taskhandle%
�
5ș "Tempest_Hello",,4+16+32+512,tb%,2048,appname$
(ș "Tempest_MiscOp",11,"",tb%,"IBAR"
"@� load templates - sprite link first; windows; menus; I-help
,<� all this is loaded into indirect% (inc. WinSprs, Text)
6G� windows - module calls Wimp_CreateWindow, & sets the sprite areas
@
JIș "Tempest_RegisterIndirectArea",indirect%,indirect%+indir_size%,tb%
T5ș "Tempest_OpenFile","<Obey$Dir>.Templates",,tb%
^
h.ș "Tempest_MiscOp",13,display_buffer%,tb%
r>ș "Tempest_LoadObject","display",b%,tb%,-1,0 � display_H%
|'� has its own private sprite buffer
�
�2ș "Tempest_LoadObject","SpriteLink",b%,tb%,-1
�
�Fș "Tempest_LoadObject","IconBar",b%,tb%,font_array%,0 � ibarmenu%
�Gș "Tempest_LoadObject","MainMenu",b%,tb%,font_array%,0 � mainmenu%
�
�Iș "Tempest_LoadObject","ProgInfo",b%,tb%,font_array%,0 � infohandle%
�Kș "Tempest_LoadObject","MainWindow",b%,tb%,font_array%,0 � mainhandle%
�
�Gș "Tempest_LoadObject","General",b%,tb%,font_array%,0 � general_H%
�Eș "Tempest_LoadObject","Greens",b%,tb%,font_array%,0 � greens_H%
�Kș "Tempest_LoadObject","Branching",b%,tb%,font_array%,0 � branching_H%
�Cș "Tempest_LoadObject","Trunk",b%,tb%,font_array%,0 � trunk_H%
Cș "Tempest_LoadObject","SaveBox",b%,tb%,font_array%,0 � saveH%
Hș "Tempest_LoadObject","savedata",b%,tb%,font_array%,0 � savedataH%
&
0:ș "Tempest_LoadObject","HelpText",b%,tb%,-1,0 � help%
:7� load text file, and install for interactive help.
D
N ș "Tempest_CloseFile",,,tb%
X!ș "Tempest_LinkMenus",,0,tb%
b
ltb%!856=general_H%
v(ț "<Obey$Dir>.IcnDefs":�iconnumbers
�ț "<Obey$Dir>.WTrees"
��trees_startup
��
�:
�:
�&: *** wimp poll ***
�:
�:
���poll_loop
�t� � � �error("Error in "+appname$+" - "+�$+" ["+Þ+"] OK=Continue/Cancel=Quit"):� err_result%<>1 � �closedown:�
� quit%=�
��
�2 ș "Wimp_Poll",&3831 � tb%!1000,b% � reason%
6 ș "Tempest_PreProcess",reason%,b%,tb% � reason%
Ȏ reason% �
- � 2 : ș "Tempest_OpenWindow",,b%,tb%
. � 3 : ș "Tempest_CloseWindow",,b%,tb%
* � 6 : �mouse_click
4 � 7 : �user_drag
>( � 8 : ș "Wimp_ProcessKey",b%!24
H � 9 : �menuselect
R � 17,18 : �message
\ �
f
� quit%=�
p�
z:
�': *** mouse click ***
�:
���mouse_click
�)� b%!12 = window, b%!8 = button state
�
�Ȏ b%!12 �
�
�% � -2 : � click on icon bar icon
� Ȏ b%!8 �
� � 1 : �error(�(�-�))
�4 � 2 : ș "Tempest_ShowMenu",0,,tb%,ibarmenu%
� � 4 : �openmain
� �
, � mainhandle% : � click on main window
Ȏ b%!16 �
$) � mainwindow_start% : �trees_draw
.- � mainwindow_claim% : �e_claim(10000)
8 �
B
L � saveH%,savedataH% :
V � b%!12=saveH% �
` save_type%=&FF9
j# save_ptr%=display_buffer%+4
t' save_size%=display_buffer%!12-4
~ �
� save_type%=&FFD
� save_ptr%=b%+1024
� save_size%=256
� �
�+ save_name%=�get(b%!12,savebox_field%)
�H � all this relies on the icon numbers being the same in each saver
�
� Ȏ b%!16 �
� � savebox_OK% :
�I ș "XTempest_SaveButton",save_name%,0,tb%,,save_type% � w%;flags%
�* � flags% � 1 � �error(�zero(w%+4))
�
? � savebox_sprite% : ș "Tempest_DragAnIcon",0,b%+12,tb%
�
( � display_H% :
27 � b%!8=2 � ș "Tempest_ShowMenu",1,,tb%,mainmenu%
<
F�
P�
Z:
d:
n��user_drag
xZș "XTempest_StartSaveSequence",save_name%,b%+32,tb%,save_size%,save_type% � w%;flags%
�&� flags% � 1 � �error(�zero(w%+4))
��
�:
�:
�*: *** menu select ***
�:
�/��menuselect : � tb%!8 is last menu created
�Ȏ tb%!8 �
�
� � ibarmenu% :
� Ȏ b%!0 �
�B � iconbar_info% : ș "Tempest_ShowMenu",1,,tb%,infohandle%
�B � iconbar_instr% : *SET Browzer$HelpFile <Trees$Dir>.Instr
% *Filer_Run <Browzer$Dir>.!Run
! � iconbar_quit% : quit%=�
�
"
, � mainmenu% :
6 Ȏ b%!0 �
@' � mainmenu_full% : �full_screen
J �
T
^�
hEș "Tempest_ShowMenu",7,,tb%,0 : � redisplays last menu on ADJUST
r�
|:
�&: *** messages ***
�:
�
��message
�Ȏ b%!16 �
� � 0 : quit%=�
� � 3 : � b%!40=&FFD � �load
�6 � 10 : � done by module ('cos flags bit5 is set)
� � &400C5 : � slot size
� � b%!24=taskhandle% �
�0 � b%!20>�-�+20000 � �e_claim(b%!20/1024)
�% ș "Tempest_MiscOp",20,b%,tb%
� �
� � &4B480 : �save_result
� &4B481 : �save_prepare
� &4B483 : �e_scroll
�
&�
0:
:3: <<< end of poll responses >>>
D4: *** miscellaneous routines ***
N:
X:ݤzero(A%):� w$:w$="":ȕ ?A%>13:w$=w$+�?A%:A%+=1:�:=w$
b:
l��error(err$)
v !b%=255
�$(b%+4)=err$+�0
�6ș "Wimp_ReportError",b%,3,appname$ � ,err_result%
��
�:
���closedown
� � � �
�2ș "Tempest_ReduceFontArray",0,font_array%,tb%
� ș "Tempest_MiscOp",10,,tb%
�ș "Wimp_CloseDown"
��
�:
�ݤrange(A%,B%,C%)
�� A%<B% � =B%
� A%>C% � =C% � =A%
:
:
��openmain
*M!pb%=tb%!856 : ș "Tempest_CloseWindow",,pb%,tb% : � close #14 w/o validn
4tb%!852=&02066103
>tb%!856=general_H%
H!temp%=mainhandle%
RTș "Tempest_ShowWindow",&33C11,temp%,tb% : � open to front, centred, focus etc..
\Mș "Tempest_SetIconState",mainhandle%,mainwindow_general%,tb%,1<<21,1<<21
fR� does 'de' and 'i0>U_GEN' reopening the sub-window, and setting !856 to _GEN.
p
z� tree_done% �
� !pb%=display_H%
�, ș "Tempest_ShowWindow",&33C01,pb%,tb%
��
��
�:
�ݤget(pb%!0,pb%!4)
�'ș "Tempest_GetEntityInfo",,pb%,tb%
� =tb%!44
�
�
�
���save_result
�Ȏ b%!20 �
$ � 1 : $save_name%=�zero(b%+28)
# � 17 : �error(�zero(b%!24+4))
�
$�
.
8
B��save_prepare
L� ptr%,index%
V� save_type%=&FFD �
` ptr%=b%+1024+4
j ptr%!-4=&49987AAA
t � index%=1 � e_nv%
~ !ptr%=e_val%(index%)
� ptr%+=4
� �
��
�
�Gș "XTempest_DataIsReady",0,b%,tb%,save_ptr%,save_size% � w%;flags%
�&� flags% � 1 � �error(�zero(w%+4))
��
�
�
�
��load
�� channel%, ptr%
� channel%=�(�zero(b%+44))
� channel%=0 � �
!ș "OS_GBPB",4,channel%,pb%,4
$� !pb%<>&49987AAA � �#channel%:�
()ș "OS_GBPB",3,channel%,b%+1024,256,0
2�#channel%
<
Fptr%=b%+1028
P� index%=1 � e_nv%
Z e_val%(index%)=!ptr%
d
ptr%+=4
n�
x�e_writeall
��e_validate
��
�
�
�
�
�
� 00000000 0d 00 0a 05 f4 0d 00 14 05 f4 0d 00 1e 0c f2 73 |...............s|
00000010 74 61 72 74 75 70 0d 00 28 0e f2 70 6f 6c 6c 5f |tartup..(..poll_|
00000020 6c 6f 6f 70 0d 00 32 0e f2 63 6c 6f 73 65 64 6f |loop..2..closedo|
00000030 77 6e 0d 00 3c 05 e0 0d 00 46 05 3a 0d 00 50 2d |wn..<....F.:..P-|
00000040 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |: |
00000050 20 2a 2a 2a 20 73 74 61 72 74 75 70 20 73 65 71 | *** startup seq|
00000060 75 65 6e 63 65 20 2a 2a 2a 0d 00 5a 05 3a 0d 00 |uence ***..Z.:..|
00000070 64 0d dd f2 73 74 61 72 74 75 70 0d 00 6e 26 61 |d...startup..n&a|
00000080 70 70 6e 61 6d 65 24 3d 22 54 72 65 65 73 22 3a |ppname$="Trees":|
00000090 69 6e 64 69 72 5f 73 69 7a 65 25 3d 32 30 30 30 |indir_size%=2000|
000000a0 30 0d 00 78 04 0d 00 82 42 de 20 62 25 20 32 34 |0..x....B. b% 24|
000000b0 30 30 2c 20 74 62 25 20 32 30 34 38 2c 20 69 6e |00, tb% 2048, in|
000000c0 64 69 72 65 63 74 25 20 69 6e 64 69 72 5f 73 69 |direct% indir_si|
000000d0 7a 65 25 2c 20 74 65 6d 70 25 20 34 38 3a 70 62 |ze%, temp% 48:pb|
000000e0 25 3d 74 65 6d 70 25 0d 00 8c 15 de 20 66 6f 6e |%=temp%..... fon|
000000f0 74 5f 61 72 72 61 79 25 20 32 35 36 0d 00 96 23 |t_array% 256...#|
00000100 e3 20 77 25 3d 30 20 b8 20 32 35 35 3a 66 6f 6e |. w%=0 . 255:fon|
00000110 74 5f 61 72 72 61 79 25 3f 77 25 3d 30 3a ed 0d |t_array%?w%=0:..|
00000120 00 a0 1c de 20 64 69 73 70 6c 61 79 5f 62 75 66 |.... display_buf|
00000130 66 65 72 25 20 31 37 30 30 30 30 0d 00 aa 2f 21 |fer% 170000.../!|
00000140 64 69 73 70 6c 61 79 5f 62 75 66 66 65 72 25 3d |display_buffer%=|
00000150 31 37 30 30 30 30 3a 64 69 73 70 6c 61 79 5f 62 |170000:display_b|
00000160 75 66 66 65 72 25 21 34 3d 30 0d 00 b4 2e 64 69 |uffer%!4=0....di|
00000170 73 70 6c 61 79 5f 62 75 66 66 65 72 25 21 38 3d |splay_buffer%!8=|
00000180 31 36 3a 64 69 73 70 6c 61 79 5f 62 75 66 66 65 |16:display_buffe|
00000190 72 25 21 31 32 3d 31 36 0d 00 be 04 0d 00 c8 54 |r%!12=16.......T|
000001a0 ee 20 85 20 ee 20 85 20 87 3a f2 65 72 72 6f 72 |. . . . .:.error|
000001b0 28 22 43 61 6e 27 74 20 73 74 61 72 74 20 22 2b |("Can't start "+|
000001c0 61 70 70 6e 61 6d 65 24 2b 22 20 2d 20 22 2b f6 |appname$+" - "+.|
000001d0 24 2b 22 20 61 74 20 6c 69 6e 65 20 22 2b c3 28 |$+" at line "+.(|
000001e0 9e 29 29 3a f2 63 6c 6f 73 65 64 6f 77 6e 3a e0 |.)):.closedown:.|
000001f0 0d 00 d2 04 0d 00 dc 4b de 20 77 25 20 33 32 3a |.......K. w% 32:|
00000200 77 25 21 30 3d 33 3a 77 25 21 34 3d 31 30 3a 77 |w%!0=3:w%!4=10:w|
00000210 25 21 38 3d 26 35 30 32 3a 77 25 21 31 32 3d 26 |%!8=&502:w%!12=&|
00000220 34 30 30 43 35 3a 77 25 21 31 36 3d 26 34 42 34 |400C5:w%!16=&4B4|
00000230 38 30 3a 77 25 21 32 30 3d 26 34 42 34 38 31 0d |80:w%!20=&4B481.|
00000240 00 e6 18 77 25 21 32 34 3d 26 34 42 34 38 33 3a |...w%!24=&4B483:|
00000250 77 25 21 32 38 3d 30 0d 00 f0 41 c8 99 20 22 57 |w%!28=0...A.. "W|
00000260 69 6d 70 5f 49 6e 69 74 69 61 6c 69 73 65 22 2c |imp_Initialise",|
00000270 33 31 30 2c 26 34 42 35 33 34 31 35 34 2c 61 70 |310,&4B534154,ap|
00000280 70 6e 61 6d 65 24 2c 77 25 20 b8 20 2c 74 61 73 |pname$,w% . ,tas|
00000290 6b 68 61 6e 64 6c 65 25 0d 00 fa 04 0d 01 04 35 |khandle%.......5|
000002a0 c8 99 20 22 54 65 6d 70 65 73 74 5f 48 65 6c 6c |.. "Tempest_Hell|
000002b0 6f 22 2c 2c 34 2b 31 36 2b 33 32 2b 35 31 32 2c |o",,4+16+32+512,|
000002c0 74 62 25 2c 32 30 34 38 2c 61 70 70 6e 61 6d 65 |tb%,2048,appname|
000002d0 24 0d 01 0e 28 c8 99 20 22 54 65 6d 70 65 73 74 |$...(.. "Tempest|
000002e0 5f 4d 69 73 63 4f 70 22 2c 31 31 2c 22 22 2c 74 |_MiscOp",11,"",t|
000002f0 62 25 2c 22 49 42 41 52 22 0d 01 18 04 0d 01 22 |b%,"IBAR"......"|
00000300 40 f4 20 6c 6f 61 64 20 74 65 6d 70 6c 61 74 65 |@. load template|
00000310 73 20 2d 20 73 70 72 69 74 65 20 6c 69 6e 6b 20 |s - sprite link |
00000320 66 69 72 73 74 3b 20 77 69 6e 64 6f 77 73 3b 20 |first; windows; |
00000330 6d 65 6e 75 73 3b 20 49 2d 68 65 6c 70 0d 01 2c |menus; I-help..,|
00000340 3c f4 20 61 6c 6c 20 74 68 69 73 20 69 73 20 6c |<. all this is l|
00000350 6f 61 64 65 64 20 69 6e 74 6f 20 69 6e 64 69 72 |oaded into indir|
00000360 65 63 74 25 20 28 69 6e 63 2e 20 57 69 6e 53 70 |ect% (inc. WinSp|
00000370 72 73 2c 20 54 65 78 74 29 0d 01 36 47 f4 20 77 |rs, Text)..6G. w|
00000380 69 6e 64 6f 77 73 20 2d 20 6d 6f 64 75 6c 65 20 |indows - module |
00000390 63 61 6c 6c 73 20 57 69 6d 70 5f 43 72 65 61 74 |calls Wimp_Creat|
000003a0 65 57 69 6e 64 6f 77 2c 20 26 20 73 65 74 73 20 |eWindow, & sets |
000003b0 74 68 65 20 73 70 72 69 74 65 20 61 72 65 61 73 |the sprite areas|
000003c0 0d 01 40 04 0d 01 4a 49 c8 99 20 22 54 65 6d 70 |..@...JI.. "Temp|
000003d0 65 73 74 5f 52 65 67 69 73 74 65 72 49 6e 64 69 |est_RegisterIndi|
000003e0 72 65 63 74 41 72 65 61 22 2c 69 6e 64 69 72 65 |rectArea",indire|
000003f0 63 74 25 2c 69 6e 64 69 72 65 63 74 25 2b 69 6e |ct%,indirect%+in|
00000400 64 69 72 5f 73 69 7a 65 25 2c 74 62 25 0d 01 54 |dir_size%,tb%..T|
00000410 35 c8 99 20 22 54 65 6d 70 65 73 74 5f 4f 70 65 |5.. "Tempest_Ope|
00000420 6e 46 69 6c 65 22 2c 22 3c 4f 62 65 79 24 44 69 |nFile","<Obey$Di|
00000430 72 3e 2e 54 65 6d 70 6c 61 74 65 73 22 2c 2c 74 |r>.Templates",,t|
00000440 62 25 0d 01 5e 04 0d 01 68 2e c8 99 20 22 54 65 |b%..^...h... "Te|
00000450 6d 70 65 73 74 5f 4d 69 73 63 4f 70 22 2c 31 33 |mpest_MiscOp",13|
00000460 2c 64 69 73 70 6c 61 79 5f 62 75 66 66 65 72 25 |,display_buffer%|
00000470 2c 74 62 25 0d 01 72 3e c8 99 20 22 54 65 6d 70 |,tb%..r>.. "Temp|
00000480 65 73 74 5f 4c 6f 61 64 4f 62 6a 65 63 74 22 2c |est_LoadObject",|
00000490 22 64 69 73 70 6c 61 79 22 2c 62 25 2c 74 62 25 |"display",b%,tb%|
000004a0 2c 2d 31 2c 30 20 b8 20 64 69 73 70 6c 61 79 5f |,-1,0 . display_|
000004b0 48 25 0d 01 7c 27 f4 20 68 61 73 20 69 74 73 20 |H%..|'. has its |
000004c0 6f 77 6e 20 70 72 69 76 61 74 65 20 73 70 72 69 |own private spri|
000004d0 74 65 20 62 75 66 66 65 72 0d 01 86 04 0d 01 90 |te buffer.......|
000004e0 32 c8 99 20 22 54 65 6d 70 65 73 74 5f 4c 6f 61 |2.. "Tempest_Loa|
000004f0 64 4f 62 6a 65 63 74 22 2c 22 53 70 72 69 74 65 |dObject","Sprite|
00000500 4c 69 6e 6b 22 2c 62 25 2c 74 62 25 2c 2d 31 0d |Link",b%,tb%,-1.|
00000510 01 9a 04 0d 01 a4 46 c8 99 20 22 54 65 6d 70 65 |......F.. "Tempe|
00000520 73 74 5f 4c 6f 61 64 4f 62 6a 65 63 74 22 2c 22 |st_LoadObject","|
00000530 49 63 6f 6e 42 61 72 22 2c 62 25 2c 74 62 25 2c |IconBar",b%,tb%,|
00000540 66 6f 6e 74 5f 61 72 72 61 79 25 2c 30 20 b8 20 |font_array%,0 . |
00000550 69 62 61 72 6d 65 6e 75 25 0d 01 ae 47 c8 99 20 |ibarmenu%...G.. |
00000560 22 54 65 6d 70 65 73 74 5f 4c 6f 61 64 4f 62 6a |"Tempest_LoadObj|
00000570 65 63 74 22 2c 22 4d 61 69 6e 4d 65 6e 75 22 2c |ect","MainMenu",|
00000580 62 25 2c 74 62 25 2c 66 6f 6e 74 5f 61 72 72 61 |b%,tb%,font_arra|
00000590 79 25 2c 30 20 b8 20 6d 61 69 6e 6d 65 6e 75 25 |y%,0 . mainmenu%|
000005a0 0d 01 b8 04 0d 01 c2 49 c8 99 20 22 54 65 6d 70 |.......I.. "Temp|
000005b0 65 73 74 5f 4c 6f 61 64 4f 62 6a 65 63 74 22 2c |est_LoadObject",|
000005c0 22 50 72 6f 67 49 6e 66 6f 22 2c 62 25 2c 74 62 |"ProgInfo",b%,tb|
000005d0 25 2c 66 6f 6e 74 5f 61 72 72 61 79 25 2c 30 20 |%,font_array%,0 |
000005e0 b8 20 69 6e 66 6f 68 61 6e 64 6c 65 25 0d 01 cc |. infohandle%...|
000005f0 4b c8 99 20 22 54 65 6d 70 65 73 74 5f 4c 6f 61 |K.. "Tempest_Loa|
00000600 64 4f 62 6a 65 63 74 22 2c 22 4d 61 69 6e 57 69 |dObject","MainWi|
00000610 6e 64 6f 77 22 2c 62 25 2c 74 62 25 2c 66 6f 6e |ndow",b%,tb%,fon|
00000620 74 5f 61 72 72 61 79 25 2c 30 20 b8 20 6d 61 69 |t_array%,0 . mai|
00000630 6e 68 61 6e 64 6c 65 25 0d 01 d6 04 0d 01 e0 47 |nhandle%.......G|
00000640 c8 99 20 22 54 65 6d 70 65 73 74 5f 4c 6f 61 64 |.. "Tempest_Load|
00000650 4f 62 6a 65 63 74 22 2c 22 47 65 6e 65 72 61 6c |Object","General|
00000660 22 2c 62 25 2c 74 62 25 2c 66 6f 6e 74 5f 61 72 |",b%,tb%,font_ar|
00000670 72 61 79 25 2c 30 20 b8 20 67 65 6e 65 72 61 6c |ray%,0 . general|
00000680 5f 48 25 0d 01 ea 45 c8 99 20 22 54 65 6d 70 65 |_H%...E.. "Tempe|
00000690 73 74 5f 4c 6f 61 64 4f 62 6a 65 63 74 22 2c 22 |st_LoadObject","|
000006a0 47 72 65 65 6e 73 22 2c 62 25 2c 74 62 25 2c 66 |Greens",b%,tb%,f|
000006b0 6f 6e 74 5f 61 72 72 61 79 25 2c 30 20 b8 20 67 |ont_array%,0 . g|
000006c0 72 65 65 6e 73 5f 48 25 0d 01 f4 4b c8 99 20 22 |reens_H%...K.. "|
000006d0 54 65 6d 70 65 73 74 5f 4c 6f 61 64 4f 62 6a 65 |Tempest_LoadObje|
000006e0 63 74 22 2c 22 42 72 61 6e 63 68 69 6e 67 22 2c |ct","Branching",|
000006f0 62 25 2c 74 62 25 2c 66 6f 6e 74 5f 61 72 72 61 |b%,tb%,font_arra|
00000700 79 25 2c 30 20 b8 20 62 72 61 6e 63 68 69 6e 67 |y%,0 . branching|
00000710 5f 48 25 0d 01 fe 43 c8 99 20 22 54 65 6d 70 65 |_H%...C.. "Tempe|
00000720 73 74 5f 4c 6f 61 64 4f 62 6a 65 63 74 22 2c 22 |st_LoadObject","|
00000730 54 72 75 6e 6b 22 2c 62 25 2c 74 62 25 2c 66 6f |Trunk",b%,tb%,fo|
00000740 6e 74 5f 61 72 72 61 79 25 2c 30 20 b8 20 74 72 |nt_array%,0 . tr|
00000750 75 6e 6b 5f 48 25 0d 02 08 04 0d 02 12 43 c8 99 |unk_H%.......C..|
00000760 20 22 54 65 6d 70 65 73 74 5f 4c 6f 61 64 4f 62 | "Tempest_LoadOb|
00000770 6a 65 63 74 22 2c 22 53 61 76 65 42 6f 78 22 2c |ject","SaveBox",|
00000780 62 25 2c 74 62 25 2c 66 6f 6e 74 5f 61 72 72 61 |b%,tb%,font_arra|
00000790 79 25 2c 30 20 b8 20 73 61 76 65 48 25 0d 02 1c |y%,0 . saveH%...|
000007a0 48 c8 99 20 22 54 65 6d 70 65 73 74 5f 4c 6f 61 |H.. "Tempest_Loa|
000007b0 64 4f 62 6a 65 63 74 22 2c 22 73 61 76 65 64 61 |dObject","saveda|
000007c0 74 61 22 2c 62 25 2c 74 62 25 2c 66 6f 6e 74 5f |ta",b%,tb%,font_|
000007d0 61 72 72 61 79 25 2c 30 20 b8 20 73 61 76 65 64 |array%,0 . saved|
000007e0 61 74 61 48 25 0d 02 26 04 0d 02 30 3a c8 99 20 |ataH%..&...0:.. |
000007f0 22 54 65 6d 70 65 73 74 5f 4c 6f 61 64 4f 62 6a |"Tempest_LoadObj|
00000800 65 63 74 22 2c 22 48 65 6c 70 54 65 78 74 22 2c |ect","HelpText",|
00000810 62 25 2c 74 62 25 2c 2d 31 2c 30 20 b8 20 68 65 |b%,tb%,-1,0 . he|
00000820 6c 70 25 0d 02 3a 37 f4 20 6c 6f 61 64 20 74 65 |lp%..:7. load te|
00000830 78 74 20 66 69 6c 65 2c 20 61 6e 64 20 69 6e 73 |xt file, and ins|
00000840 74 61 6c 6c 20 66 6f 72 20 69 6e 74 65 72 61 63 |tall for interac|
00000850 74 69 76 65 20 68 65 6c 70 2e 0d 02 44 04 0d 02 |tive help...D...|
00000860 4e 20 c8 99 20 22 54 65 6d 70 65 73 74 5f 43 6c |N .. "Tempest_Cl|
00000870 6f 73 65 46 69 6c 65 22 2c 2c 2c 74 62 25 0d 02 |oseFile",,,tb%..|
00000880 58 21 c8 99 20 22 54 65 6d 70 65 73 74 5f 4c 69 |X!.. "Tempest_Li|
00000890 6e 6b 4d 65 6e 75 73 22 2c 2c 30 2c 74 62 25 0d |nkMenus",,0,tb%.|
000008a0 02 62 04 0d 02 6c 16 74 62 25 21 38 35 36 3d 67 |.b...l.tb%!856=g|
000008b0 65 6e 65 72 61 6c 5f 48 25 0d 02 76 28 c8 9b 20 |eneral_H%..v(.. |
000008c0 22 3c 4f 62 65 79 24 44 69 72 3e 2e 49 63 6e 44 |"<Obey$Dir>.IcnD|
000008d0 65 66 73 22 3a f2 69 63 6f 6e 6e 75 6d 62 65 72 |efs":.iconnumber|
000008e0 73 0d 02 80 1a c8 9b 20 22 3c 4f 62 65 79 24 44 |s...... "<Obey$D|
000008f0 69 72 3e 2e 57 54 72 65 65 73 22 0d 02 8a 12 f2 |ir>.WTrees".....|
00000900 74 72 65 65 73 5f 73 74 61 72 74 75 70 0d 02 94 |trees_startup...|
00000910 05 e1 0d 02 9e 05 3a 0d 02 a8 05 3a 0d 02 b2 26 |......:....:...&|
00000920 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |: |
00000930 20 2a 2a 2a 20 77 69 6d 70 20 70 6f 6c 6c 20 2a | *** wimp poll *|
00000940 2a 2a 0d 02 bc 05 3a 0d 02 c6 05 3a 0d 02 d0 0f |**....:....:....|
00000950 dd f2 70 6f 6c 6c 5f 6c 6f 6f 70 0d 02 da 74 ee |..poll_loop...t.|
00000960 20 85 20 ea 20 f2 65 72 72 6f 72 28 22 45 72 72 | . . .error("Err|
00000970 6f 72 20 69 6e 20 22 2b 61 70 70 6e 61 6d 65 24 |or in "+appname$|
00000980 2b 22 20 2d 20 22 2b f6 24 2b 22 20 5b 22 2b c3 |+" - "+.$+" ["+.|
00000990 9e 2b 22 5d 20 20 4f 4b 3d 43 6f 6e 74 69 6e 75 |.+"] OK=Continu|
000009a0 65 2f 43 61 6e 63 65 6c 3d 51 75 69 74 22 29 3a |e/Cancel=Quit"):|
000009b0 e7 20 65 72 72 5f 72 65 73 75 6c 74 25 3c 3e 31 |. err_result%<>1|
000009c0 20 8c 20 f2 63 6c 6f 73 65 64 6f 77 6e 3a e0 0d | . .closedown:..|
000009d0 02 e4 0b 71 75 69 74 25 3d a3 0d 02 ee 05 f5 0d |...quit%=.......|
000009e0 02 f8 32 20 20 c8 99 20 22 57 69 6d 70 5f 50 6f |..2 .. "Wimp_Po|
000009f0 6c 6c 22 2c 26 33 38 33 31 20 80 20 74 62 25 21 |ll",&3831 . tb%!|
00000a00 31 30 30 30 2c 62 25 20 b8 20 72 65 61 73 6f 6e |1000,b% . reason|
00000a10 25 0d 03 02 36 20 20 c8 99 20 22 54 65 6d 70 65 |%...6 .. "Tempe|
00000a20 73 74 5f 50 72 65 50 72 6f 63 65 73 73 22 2c 72 |st_PreProcess",r|
00000a30 65 61 73 6f 6e 25 2c 62 25 2c 74 62 25 20 b8 20 |eason%,b%,tb% . |
00000a40 72 65 61 73 6f 6e 25 0d 03 0c 12 20 20 c8 8e 20 |reason%.... .. |
00000a50 72 65 61 73 6f 6e 25 20 ca 0d 03 16 2d 20 20 20 |reason% ....- |
00000a60 20 c9 20 32 20 3a 20 c8 99 20 22 54 65 6d 70 65 | . 2 : .. "Tempe|
00000a70 73 74 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 2c 2c |st_OpenWindow",,|
00000a80 62 25 2c 74 62 25 0d 03 20 2e 20 20 20 20 c9 20 |b%,tb%.. . . |
00000a90 33 20 3a 20 c8 99 20 22 54 65 6d 70 65 73 74 5f |3 : .. "Tempest_|
00000aa0 43 6c 6f 73 65 57 69 6e 64 6f 77 22 2c 2c 62 25 |CloseWindow",,b%|
00000ab0 2c 74 62 25 0d 03 2a 1a 20 20 20 20 c9 20 36 20 |,tb%..*. . 6 |
00000ac0 3a 20 f2 6d 6f 75 73 65 5f 63 6c 69 63 6b 0d 03 |: .mouse_click..|
00000ad0 34 18 20 20 20 20 c9 20 37 20 3a 20 f2 75 73 65 |4. . 7 : .use|
00000ae0 72 5f 64 72 61 67 0d 03 3e 28 20 20 20 20 c9 20 |r_drag..>( . |
00000af0 38 20 3a 20 c8 99 20 22 57 69 6d 70 5f 50 72 6f |8 : .. "Wimp_Pro|
00000b00 63 65 73 73 4b 65 79 22 2c 62 25 21 32 34 0d 03 |cessKey",b%!24..|
00000b10 48 19 20 20 20 20 c9 20 39 20 3a 20 f2 6d 65 6e |H. . 9 : .men|
00000b20 75 73 65 6c 65 63 74 0d 03 52 1a 20 20 20 20 c9 |uselect..R. .|
00000b30 20 31 37 2c 31 38 20 3a 20 f2 6d 65 73 73 61 67 | 17,18 : .messag|
00000b40 65 0d 03 5c 07 20 20 cb 0d 03 66 0d fd 20 71 75 |e..\. ...f.. qu|
00000b50 69 74 25 3d b9 0d 03 70 05 e1 0d 03 7a 05 3a 0d |it%=...p....z.:.|
00000b60 03 84 27 3a 20 20 20 20 20 20 20 20 20 20 20 20 |..': |
00000b70 20 20 20 2a 2a 2a 20 6d 6f 75 73 65 20 63 6c 69 | *** mouse cli|
00000b80 63 6b 20 2a 2a 2a 0d 03 8e 05 3a 0d 03 98 11 dd |ck ***....:.....|
00000b90 f2 6d 6f 75 73 65 5f 63 6c 69 63 6b 0d 03 a2 29 |.mouse_click...)|
00000ba0 f4 20 62 25 21 31 32 20 3d 20 77 69 6e 64 6f 77 |. b%!12 = window|
00000bb0 2c 20 62 25 21 38 20 3d 20 62 75 74 74 6f 6e 20 |, b%!8 = button |
00000bc0 73 74 61 74 65 0d 03 ac 04 0d 03 b6 0e c8 8e 20 |state.......... |
00000bd0 62 25 21 31 32 20 ca 0d 03 c0 05 20 0d 03 ca 25 |b%!12 ..... ...%|
00000be0 20 20 c9 20 2d 32 20 3a 20 f4 20 63 6c 69 63 6b | . -2 : . click|
00000bf0 20 6f 6e 20 69 63 6f 6e 20 62 61 72 20 69 63 6f | on icon bar ico|
00000c00 6e 0d 03 d4 0f 20 20 c8 8e 20 62 25 21 38 20 ca |n.... .. b%!8 .|
00000c10 0d 03 de 1c 20 20 20 20 c9 20 31 20 3a 20 f2 65 |.... . 1 : .e|
00000c20 72 72 6f 72 28 c3 28 93 2d e0 29 29 0d 03 e8 34 |rror(.(.-.))...4|
00000c30 20 20 20 20 c9 20 32 20 3a 20 c8 99 20 22 54 65 | . 2 : .. "Te|
00000c40 6d 70 65 73 74 5f 53 68 6f 77 4d 65 6e 75 22 2c |mpest_ShowMenu",|
00000c50 30 2c 2c 74 62 25 2c 69 62 61 72 6d 65 6e 75 25 |0,,tb%,ibarmenu%|
00000c60 0d 03 f2 17 20 20 20 20 c9 20 34 20 3a 20 f2 6f |.... . 4 : .o|
00000c70 70 65 6e 6d 61 69 6e 0d 03 fc 07 20 20 cb 0d 04 |penmain.... ...|
00000c80 06 05 20 0d 04 10 2c 20 20 c9 20 6d 61 69 6e 68 |.. ..., . mainh|
00000c90 61 6e 64 6c 65 25 20 3a 20 f4 20 63 6c 69 63 6b |andle% : . click|
00000ca0 20 6f 6e 20 6d 61 69 6e 20 77 69 6e 64 6f 77 0d | on main window.|
00000cb0 04 1a 10 20 20 c8 8e 20 62 25 21 31 36 20 ca 0d |... .. b%!16 ..|
00000cc0 04 24 29 20 20 20 20 c9 20 6d 61 69 6e 77 69 6e |.$) . mainwin|
00000cd0 64 6f 77 5f 73 74 61 72 74 25 20 3a 20 f2 74 72 |dow_start% : .tr|
00000ce0 65 65 73 5f 64 72 61 77 0d 04 2e 2d 20 20 20 20 |ees_draw...- |
00000cf0 c9 20 6d 61 69 6e 77 69 6e 64 6f 77 5f 63 6c 61 |. mainwindow_cla|
00000d00 69 6d 25 20 3a 20 f2 65 5f 63 6c 61 69 6d 28 31 |im% : .e_claim(1|
00000d10 30 30 30 30 29 0d 04 38 07 20 20 cb 0d 04 42 05 |0000)..8. ...B.|
00000d20 20 0d 04 4c 1b 20 20 c9 20 73 61 76 65 48 25 2c | ..L. . saveH%,|
00000d30 73 61 76 65 64 61 74 61 48 25 20 3a 0d 04 56 16 |savedataH% :..V.|
00000d40 20 20 e7 20 62 25 21 31 32 3d 73 61 76 65 48 25 | . b%!12=saveH%|
00000d50 20 8c 0d 04 60 17 20 20 20 20 73 61 76 65 5f 74 | ...`. save_t|
00000d60 79 70 65 25 3d 26 46 46 39 0d 04 6a 23 20 20 20 |ype%=&FF9..j# |
00000d70 20 73 61 76 65 5f 70 74 72 25 3d 64 69 73 70 6c | save_ptr%=displ|
00000d80 61 79 5f 62 75 66 66 65 72 25 2b 34 0d 04 74 27 |ay_buffer%+4..t'|
00000d90 20 20 20 20 73 61 76 65 5f 73 69 7a 65 25 3d 64 | save_size%=d|
00000da0 69 73 70 6c 61 79 5f 62 75 66 66 65 72 25 21 31 |isplay_buffer%!1|
00000db0 32 2d 34 0d 04 7e 07 20 20 cc 0d 04 88 17 20 20 |2-4..~. ..... |
00000dc0 20 20 73 61 76 65 5f 74 79 70 65 25 3d 26 46 46 | save_type%=&FF|
00000dd0 44 0d 04 92 19 20 20 20 20 73 61 76 65 5f 70 74 |D.... save_pt|
00000de0 72 25 3d 62 25 2b 31 30 32 34 0d 04 9c 16 20 20 |r%=b%+1024.... |
00000df0 20 20 73 61 76 65 5f 73 69 7a 65 25 3d 32 35 36 | save_size%=256|
00000e00 0d 04 a6 07 20 20 cd 0d 04 b0 2b 20 20 73 61 76 |.... ....+ sav|
00000e10 65 5f 6e 61 6d 65 25 3d a4 67 65 74 28 62 25 21 |e_name%=.get(b%!|
00000e20 31 32 2c 73 61 76 65 62 6f 78 5f 66 69 65 6c 64 |12,savebox_field|
00000e30 25 29 0d 04 ba 48 20 20 f4 20 61 6c 6c 20 74 68 |%)...H . all th|
00000e40 69 73 20 72 65 6c 69 65 73 20 6f 6e 20 74 68 65 |is relies on the|
00000e50 20 69 63 6f 6e 20 6e 75 6d 62 65 72 73 20 62 65 | icon numbers be|
00000e60 69 6e 67 20 74 68 65 20 73 61 6d 65 20 69 6e 20 |ing the same in |
00000e70 65 61 63 68 20 73 61 76 65 72 0d 04 c4 05 20 0d |each saver.... .|
00000e80 04 ce 10 20 20 c8 8e 20 62 25 21 31 36 20 ca 0d |... .. b%!16 ..|
00000e90 04 d8 17 20 20 20 20 c9 20 73 61 76 65 62 6f 78 |... . savebox|
00000ea0 5f 4f 4b 25 20 3a 0d 04 e2 49 20 20 20 20 c8 99 |_OK% :...I ..|
00000eb0 20 22 58 54 65 6d 70 65 73 74 5f 53 61 76 65 42 | "XTempest_SaveB|
00000ec0 75 74 74 6f 6e 22 2c 73 61 76 65 5f 6e 61 6d 65 |utton",save_name|
00000ed0 25 2c 30 2c 74 62 25 2c 2c 73 61 76 65 5f 74 79 |%,0,tb%,,save_ty|
00000ee0 70 65 25 20 b8 20 77 25 3b 66 6c 61 67 73 25 0d |pe% . w%;flags%.|
00000ef0 04 ec 2a 20 20 20 20 e7 20 66 6c 61 67 73 25 20 |..* . flags% |
00000f00 80 20 31 20 8c 20 f2 65 72 72 6f 72 28 a4 7a 65 |. 1 . .error(.ze|
00000f10 72 6f 28 77 25 2b 34 29 29 0d 04 f6 05 20 0d 05 |ro(w%+4)).... ..|
00000f20 00 3f 20 20 20 20 c9 20 73 61 76 65 62 6f 78 5f |.? . savebox_|
00000f30 73 70 72 69 74 65 25 20 3a 20 c8 99 20 22 54 65 |sprite% : .. "Te|
00000f40 6d 70 65 73 74 5f 44 72 61 67 41 6e 49 63 6f 6e |mpest_DragAnIcon|
00000f50 22 2c 30 2c 62 25 2b 31 32 2c 74 62 25 0d 05 0a |",0,b%+12,tb%...|
00000f60 07 20 20 cb 0d 05 14 05 20 0d 05 1e 05 20 0d 05 |. ..... .... ..|
00000f70 28 14 20 20 c9 20 64 69 73 70 6c 61 79 5f 48 25 |(. . display_H%|
00000f80 20 3a 0d 05 32 37 20 20 e7 20 62 25 21 38 3d 32 | :..27 . b%!8=2|
00000f90 20 8c 20 c8 99 20 22 54 65 6d 70 65 73 74 5f 53 | . .. "Tempest_S|
00000fa0 68 6f 77 4d 65 6e 75 22 2c 31 2c 2c 74 62 25 2c |howMenu",1,,tb%,|
00000fb0 6d 61 69 6e 6d 65 6e 75 25 0d 05 3c 05 20 0d 05 |mainmenu%..<. ..|
00000fc0 46 05 cb 0d 05 50 05 e1 0d 05 5a 05 3a 0d 05 64 |F....P....Z.:..d|
00000fd0 05 3a 0d 05 6e 0f dd f2 75 73 65 72 5f 64 72 61 |.:..n...user_dra|
00000fe0 67 0d 05 78 5a c8 99 20 22 58 54 65 6d 70 65 73 |g..xZ.. "XTempes|
00000ff0 74 5f 53 74 61 72 74 53 61 76 65 53 65 71 75 65 |t_StartSaveSeque|
00001000 6e 63 65 22 2c 73 61 76 65 5f 6e 61 6d 65 25 2c |nce",save_name%,|
00001010 62 25 2b 33 32 2c 74 62 25 2c 73 61 76 65 5f 73 |b%+32,tb%,save_s|
00001020 69 7a 65 25 2c 73 61 76 65 5f 74 79 70 65 25 20 |ize%,save_type% |
00001030 b8 20 77 25 3b 66 6c 61 67 73 25 0d 05 82 26 e7 |. w%;flags%...&.|
00001040 20 66 6c 61 67 73 25 20 80 20 31 20 8c 20 f2 65 | flags% . 1 . .e|
00001050 72 72 6f 72 28 a4 7a 65 72 6f 28 77 25 2b 34 29 |rror(.zero(w%+4)|
00001060 29 0d 05 8c 05 e1 0d 05 96 05 3a 0d 05 a0 05 3a |).........:....:|
00001070 0d 05 aa 2a 3a 20 20 20 20 20 20 20 20 20 20 20 |...*: |
00001080 20 20 20 20 20 20 20 2a 2a 2a 20 6d 65 6e 75 20 | *** menu |
00001090 73 65 6c 65 63 74 20 2a 2a 2a 0d 05 b4 05 3a 0d |select ***....:.|
000010a0 05 be 2f dd f2 6d 65 6e 75 73 65 6c 65 63 74 20 |../..menuselect |
000010b0 3a 20 f4 20 74 62 25 21 38 20 69 73 20 6c 61 73 |: . tb%!8 is las|
000010c0 74 20 6d 65 6e 75 20 63 72 65 61 74 65 64 0d 05 |t menu created..|
000010d0 c8 0e c8 8e 20 74 62 25 21 38 20 ca 0d 05 d2 05 |.... tb%!8 .....|
000010e0 20 0d 05 dc 13 20 20 c9 20 69 62 61 72 6d 65 6e | .... . ibarmen|
000010f0 75 25 20 3a 0d 05 e6 0f 20 20 c8 8e 20 62 25 21 |u% :.... .. b%!|
00001100 30 20 ca 0d 05 f0 42 20 20 20 20 c9 20 69 63 6f |0 ....B . ico|
00001110 6e 62 61 72 5f 69 6e 66 6f 25 20 3a 20 c8 99 20 |nbar_info% : .. |
00001120 22 54 65 6d 70 65 73 74 5f 53 68 6f 77 4d 65 6e |"Tempest_ShowMen|
00001130 75 22 2c 31 2c 2c 74 62 25 2c 69 6e 66 6f 68 61 |u",1,,tb%,infoha|
00001140 6e 64 6c 65 25 0d 05 fa 42 20 20 20 20 c9 20 69 |ndle%...B . i|
00001150 63 6f 6e 62 61 72 5f 69 6e 73 74 72 25 20 3a 20 |conbar_instr% : |
00001160 2a 53 45 54 20 42 72 6f 77 7a 65 72 24 48 65 6c |*SET Browzer$Hel|
00001170 70 46 69 6c 65 20 3c 54 72 65 65 73 24 44 69 72 |pFile <Trees$Dir|
00001180 3e 2e 49 6e 73 74 72 0d 06 04 25 20 20 20 20 2a |>.Instr...% *|
00001190 46 69 6c 65 72 5f 52 75 6e 20 3c 42 72 6f 77 7a |Filer_Run <Browz|
000011a0 65 72 24 44 69 72 3e 2e 21 52 75 6e 0d 06 0e 21 |er$Dir>.!Run...!|
000011b0 20 20 20 20 c9 20 69 63 6f 6e 62 61 72 5f 71 75 | . iconbar_qu|
000011c0 69 74 25 20 3a 20 71 75 69 74 25 3d b9 0d 06 18 |it% : quit%=....|
000011d0 07 20 20 cb 0d 06 22 05 20 0d 06 2c 13 20 20 c9 |. ...". ..,. .|
000011e0 20 6d 61 69 6e 6d 65 6e 75 25 20 3a 0d 06 36 0f | mainmenu% :..6.|
000011f0 20 20 c8 8e 20 62 25 21 30 20 ca 0d 06 40 27 20 | .. b%!0 ...@' |
00001200 20 20 20 c9 20 6d 61 69 6e 6d 65 6e 75 5f 66 75 | . mainmenu_fu|
00001210 6c 6c 25 20 3a 20 f2 66 75 6c 6c 5f 73 63 72 65 |ll% : .full_scre|
00001220 65 6e 0d 06 4a 07 20 20 cb 0d 06 54 05 20 0d 06 |en..J. ...T. ..|
00001230 5e 05 cb 0d 06 68 45 c8 99 20 22 54 65 6d 70 65 |^....hE.. "Tempe|
00001240 73 74 5f 53 68 6f 77 4d 65 6e 75 22 2c 37 2c 2c |st_ShowMenu",7,,|
00001250 74 62 25 2c 30 20 3a 20 f4 20 72 65 64 69 73 70 |tb%,0 : . redisp|
00001260 6c 61 79 73 20 6c 61 73 74 20 6d 65 6e 75 20 6f |lays last menu o|
00001270 6e 20 41 44 4a 55 53 54 0d 06 72 05 e1 0d 06 7c |n ADJUST..r....||
00001280 05 3a 0d 06 86 26 3a 20 20 20 20 20 20 20 20 20 |.:...&: |
00001290 20 20 20 20 20 20 20 20 2a 2a 2a 20 6d 65 73 73 | *** mess|
000012a0 61 67 65 73 20 2a 2a 2a 0d 06 90 05 3a 0d 06 9a |ages ***....:...|
000012b0 0d dd f2 6d 65 73 73 61 67 65 0d 06 a4 0e c8 8e |...message......|
000012c0 20 62 25 21 31 36 20 ca 0d 06 ae 13 20 20 c9 20 | b%!16 ..... . |
000012d0 30 20 3a 20 71 75 69 74 25 3d b9 0d 06 b8 20 20 |0 : quit%=.... |
000012e0 20 c9 20 33 20 3a 20 e7 20 62 25 21 34 30 3d 26 | . 3 : . b%!40=&|
000012f0 46 46 44 20 8c 20 f2 6c 6f 61 64 0d 06 c2 36 20 |FFD . .load...6 |
00001300 20 c9 20 31 30 20 3a 20 f4 20 64 6f 6e 65 20 62 | . 10 : . done b|
00001310 79 20 6d 6f 64 75 6c 65 20 28 27 63 6f 73 20 66 |y module ('cos f|
00001320 6c 61 67 73 20 62 69 74 35 20 69 73 20 73 65 74 |lags bit5 is set|
00001330 29 0d 06 cc 1c 20 20 c9 20 26 34 30 30 43 35 20 |).... . &400C5 |
00001340 3a 20 f4 20 73 6c 6f 74 20 73 69 7a 65 0d 06 d6 |: . slot size...|
00001350 1b 20 20 e7 20 62 25 21 32 34 3d 74 61 73 6b 68 |. . b%!24=taskh|
00001360 61 6e 64 6c 65 25 20 8c 0d 06 e0 30 20 20 20 20 |andle% ....0 |
00001370 e7 20 62 25 21 32 30 3e 93 2d 90 2b 32 30 30 30 |. b%!20>.-.+2000|
00001380 30 20 8c 20 f2 65 5f 63 6c 61 69 6d 28 62 25 21 |0 . .e_claim(b%!|
00001390 32 30 2f 31 30 32 34 29 0d 06 ea 25 20 20 20 20 |20/1024)...% |
000013a0 c8 99 20 22 54 65 6d 70 65 73 74 5f 4d 69 73 63 |.. "Tempest_Misc|
000013b0 4f 70 22 2c 32 30 2c 62 25 2c 74 62 25 0d 06 f4 |Op",20,b%,tb%...|
000013c0 07 20 20 cd 0d 06 fe 1d 20 20 c9 20 26 34 42 34 |. ..... . &4B4|
000013d0 38 30 20 3a 20 f2 73 61 76 65 5f 72 65 73 75 6c |80 : .save_resul|
000013e0 74 0d 07 08 1e 20 20 c9 20 26 34 42 34 38 31 20 |t.... . &4B481 |
000013f0 3a 20 f2 73 61 76 65 5f 70 72 65 70 61 72 65 0d |: .save_prepare.|
00001400 07 12 1a 20 20 c9 20 26 34 42 34 38 33 20 3a 20 |... . &4B483 : |
00001410 f2 65 5f 73 63 72 6f 6c 6c 0d 07 1c 05 cb 0d 07 |.e_scroll.......|
00001420 26 05 e1 0d 07 30 05 3a 0d 07 3a 33 3a 20 20 20 |&....0.:..:3: |
00001430 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3c | <<|
00001440 3c 20 65 6e 64 20 6f 66 20 70 6f 6c 6c 20 72 65 |< end of poll re|
00001450 73 70 6f 6e 73 65 73 20 3e 3e 3e 0d 07 44 34 3a |sponses >>>..D4:|
00001460 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001470 20 2a 2a 2a 20 6d 69 73 63 65 6c 6c 61 6e 65 6f | *** miscellaneo|
00001480 75 73 20 72 6f 75 74 69 6e 65 73 20 2a 2a 2a 0d |us routines ***.|
00001490 07 4e 05 3a 0d 07 58 3a dd a4 7a 65 72 6f 28 41 |.N.:..X:..zero(A|
000014a0 25 29 3a ea 20 77 24 3a 77 24 3d 22 22 3a c8 95 |%):. w$:w$="":..|
000014b0 20 3f 41 25 3e 31 33 3a 77 24 3d 77 24 2b bd 3f | ?A%>13:w$=w$+.?|
000014c0 41 25 3a 41 25 2b 3d 31 3a ce 3a 3d 77 24 0d 07 |A%:A%+=1:.:=w$..|
000014d0 62 05 3a 0d 07 6c 11 dd f2 65 72 72 6f 72 28 65 |b.:..l...error(e|
000014e0 72 72 24 29 0d 07 76 0b 21 62 25 3d 32 35 35 0d |rr$)..v.!b%=255.|
000014f0 07 80 13 24 28 62 25 2b 34 29 3d 65 72 72 24 2b |...$(b%+4)=err$+|
00001500 bd 30 0d 07 8a 36 c8 99 20 22 57 69 6d 70 5f 52 |.0...6.. "Wimp_R|
00001510 65 70 6f 72 74 45 72 72 6f 72 22 2c 62 25 2c 33 |eportError",b%,3|
00001520 2c 61 70 70 6e 61 6d 65 24 20 b8 20 2c 65 72 72 |,appname$ . ,err|
00001530 5f 72 65 73 75 6c 74 25 0d 07 94 05 e1 0d 07 9e |_result%........|
00001540 05 3a 0d 07 a8 0f dd f2 63 6c 6f 73 65 64 6f 77 |.:......closedow|
00001550 6e 0d 07 b2 09 ee 20 85 20 87 0d 07 bc 32 c8 99 |n..... . ....2..|
00001560 20 22 54 65 6d 70 65 73 74 5f 52 65 64 75 63 65 | "Tempest_Reduce|
00001570 46 6f 6e 74 41 72 72 61 79 22 2c 30 2c 66 6f 6e |FontArray",0,fon|
00001580 74 5f 61 72 72 61 79 25 2c 74 62 25 0d 07 c6 1f |t_array%,tb%....|
00001590 c8 99 20 22 54 65 6d 70 65 73 74 5f 4d 69 73 63 |.. "Tempest_Misc|
000015a0 4f 70 22 2c 31 30 2c 2c 74 62 25 0d 07 d0 17 c8 |Op",10,,tb%.....|
000015b0 99 20 22 57 69 6d 70 5f 43 6c 6f 73 65 44 6f 77 |. "Wimp_CloseDow|
000015c0 6e 22 0d 07 da 05 e1 0d 07 e4 05 3a 0d 07 ee 15 |n".........:....|
000015d0 dd a4 72 61 6e 67 65 28 41 25 2c 42 25 2c 43 25 |..range(A%,B%,C%|
000015e0 29 0d 07 f8 11 e7 20 41 25 3c 42 25 20 8c 20 3d |)..... A%<B% . =|
000015f0 42 25 0d 08 02 17 e7 20 41 25 3e 43 25 20 8c 20 |B%..... A%>C% . |
00001600 3d 43 25 20 8b 20 3d 41 25 0d 08 0c 05 3a 0d 08 |=C% . =A%....:..|
00001610 16 05 3a 0d 08 20 0e dd f2 6f 70 65 6e 6d 61 69 |..:.. ...openmai|
00001620 6e 0d 08 2a 4d 21 70 62 25 3d 74 62 25 21 38 35 |n..*M!pb%=tb%!85|
00001630 36 20 3a 20 c8 99 20 22 54 65 6d 70 65 73 74 5f |6 : .. "Tempest_|
00001640 43 6c 6f 73 65 57 69 6e 64 6f 77 22 2c 2c 70 62 |CloseWindow",,pb|
00001650 25 2c 74 62 25 20 3a 20 f4 20 63 6c 6f 73 65 20 |%,tb% : . close |
00001660 23 31 34 20 77 2f 6f 20 76 61 6c 69 64 6e 0d 08 |#14 w/o validn..|
00001670 34 15 74 62 25 21 38 35 32 3d 26 30 32 30 36 36 |4.tb%!852=&02066|
00001680 31 30 33 0d 08 3e 16 74 62 25 21 38 35 36 3d 67 |103..>.tb%!856=g|
00001690 65 6e 65 72 61 6c 5f 48 25 0d 08 48 16 21 74 65 |eneral_H%..H.!te|
000016a0 6d 70 25 3d 6d 61 69 6e 68 61 6e 64 6c 65 25 0d |mp%=mainhandle%.|
000016b0 08 52 54 c8 99 20 22 54 65 6d 70 65 73 74 5f 53 |.RT.. "Tempest_S|
000016c0 68 6f 77 57 69 6e 64 6f 77 22 2c 26 33 33 43 31 |howWindow",&33C1|
000016d0 31 2c 74 65 6d 70 25 2c 74 62 25 20 3a 20 f4 20 |1,temp%,tb% : . |
000016e0 6f 70 65 6e 20 74 6f 20 66 72 6f 6e 74 2c 20 63 |open to front, c|
000016f0 65 6e 74 72 65 64 2c 20 66 6f 63 75 73 20 65 74 |entred, focus et|
00001700 63 2e 2e 0d 08 5c 4d c8 99 20 22 54 65 6d 70 65 |c....\M.. "Tempe|
00001710 73 74 5f 53 65 74 49 63 6f 6e 53 74 61 74 65 22 |st_SetIconState"|
00001720 2c 6d 61 69 6e 68 61 6e 64 6c 65 25 2c 6d 61 69 |,mainhandle%,mai|
00001730 6e 77 69 6e 64 6f 77 5f 67 65 6e 65 72 61 6c 25 |nwindow_general%|
00001740 2c 74 62 25 2c 31 3c 3c 32 31 2c 31 3c 3c 32 31 |,tb%,1<<21,1<<21|
00001750 0d 08 66 52 f4 20 64 6f 65 73 20 27 64 65 27 20 |..fR. does 'de' |
00001760 61 6e 64 20 27 69 30 3e 55 5f 47 45 4e 27 20 72 |and 'i0>U_GEN' r|
00001770 65 6f 70 65 6e 69 6e 67 20 74 68 65 20 73 75 62 |eopening the sub|
00001780 2d 77 69 6e 64 6f 77 2c 20 61 6e 64 20 73 65 74 |-window, and set|
00001790 74 69 6e 67 20 21 38 35 36 20 74 6f 20 5f 47 45 |ting !856 to _GE|
000017a0 4e 2e 0d 08 70 04 0d 08 7a 12 e7 20 74 72 65 65 |N...p...z.. tree|
000017b0 5f 64 6f 6e 65 25 20 8c 0d 08 84 15 20 20 21 70 |_done% ..... !p|
000017c0 62 25 3d 64 69 73 70 6c 61 79 5f 48 25 0d 08 8e |b%=display_H%...|
000017d0 2c 20 20 c8 99 20 22 54 65 6d 70 65 73 74 5f 53 |, .. "Tempest_S|
000017e0 68 6f 77 57 69 6e 64 6f 77 22 2c 26 33 33 43 30 |howWindow",&33C0|
000017f0 31 2c 70 62 25 2c 74 62 25 0d 08 98 05 cd 0d 08 |1,pb%,tb%.......|
00001800 a2 05 e1 0d 08 ac 05 3a 0d 08 b6 16 dd a4 67 65 |.......:......ge|
00001810 74 28 70 62 25 21 30 2c 70 62 25 21 34 29 0d 08 |t(pb%!0,pb%!4)..|
00001820 c0 27 c8 99 20 22 54 65 6d 70 65 73 74 5f 47 65 |.'.. "Tempest_Ge|
00001830 74 45 6e 74 69 74 79 49 6e 66 6f 22 2c 2c 70 62 |tEntityInfo",,pb|
00001840 25 2c 74 62 25 0d 08 ca 0b 3d 74 62 25 21 34 34 |%,tb%....=tb%!44|
00001850 0d 08 d4 04 0d 08 de 04 0d 08 e8 04 0d 08 f2 11 |................|
00001860 dd f2 73 61 76 65 5f 72 65 73 75 6c 74 0d 08 fc |..save_result...|
00001870 0e c8 8e 20 62 25 21 32 30 20 ca 0d 09 06 24 20 |... b%!20 ....$ |
00001880 20 c9 20 31 20 3a 20 24 73 61 76 65 5f 6e 61 6d | . 1 : $save_nam|
00001890 65 25 3d a4 7a 65 72 6f 28 62 25 2b 32 38 29 0d |e%=.zero(b%+28).|
000018a0 09 10 23 20 20 c9 20 31 37 20 3a 20 f2 65 72 72 |..# . 17 : .err|
000018b0 6f 72 28 a4 7a 65 72 6f 28 62 25 21 32 34 2b 34 |or(.zero(b%!24+4|
000018c0 29 29 0d 09 1a 05 cb 0d 09 24 05 e1 0d 09 2e 04 |)).......$......|
000018d0 0d 09 38 04 0d 09 42 12 dd f2 73 61 76 65 5f 70 |..8...B...save_p|
000018e0 72 65 70 61 72 65 0d 09 4c 11 ea 20 70 74 72 25 |repare..L.. ptr%|
000018f0 2c 69 6e 64 65 78 25 0d 09 56 17 e7 20 73 61 76 |,index%..V.. sav|
00001900 65 5f 74 79 70 65 25 3d 26 46 46 44 20 8c 0d 09 |e_type%=&FFD ...|
00001910 60 14 20 20 70 74 72 25 3d 62 25 2b 31 30 32 34 |`. ptr%=b%+1024|
00001920 2b 34 0d 09 6a 17 20 20 70 74 72 25 21 2d 34 3d |+4..j. ptr%!-4=|
00001930 26 34 39 39 38 37 41 41 41 0d 09 74 18 20 20 e3 |&49987AAA..t. .|
00001940 20 69 6e 64 65 78 25 3d 31 20 b8 20 65 5f 6e 76 | index%=1 . e_nv|
00001950 25 0d 09 7e 1c 20 20 20 20 21 70 74 72 25 3d 65 |%..~. !ptr%=e|
00001960 5f 76 61 6c 25 28 69 6e 64 65 78 25 29 0d 09 88 |_val%(index%)...|
00001970 0f 20 20 20 20 70 74 72 25 2b 3d 34 0d 09 92 07 |. ptr%+=4....|
00001980 20 20 ed 0d 09 9c 05 cd 0d 09 a6 04 0d 09 b0 47 | .............G|
00001990 c8 99 20 22 58 54 65 6d 70 65 73 74 5f 44 61 74 |.. "XTempest_Dat|
000019a0 61 49 73 52 65 61 64 79 22 2c 30 2c 62 25 2c 74 |aIsReady",0,b%,t|
000019b0 62 25 2c 73 61 76 65 5f 70 74 72 25 2c 73 61 76 |b%,save_ptr%,sav|
000019c0 65 5f 73 69 7a 65 25 20 b8 20 77 25 3b 66 6c 61 |e_size% . w%;fla|
000019d0 67 73 25 0d 09 ba 26 e7 20 66 6c 61 67 73 25 20 |gs%...&. flags% |
000019e0 80 20 31 20 8c 20 f2 65 72 72 6f 72 28 a4 7a 65 |. 1 . .error(.ze|
000019f0 72 6f 28 77 25 2b 34 29 29 0d 09 c4 05 e1 0d 09 |ro(w%+4)).......|
00001a00 ce 04 0d 09 d8 04 0d 09 e2 0a dd f2 6c 6f 61 64 |............load|
00001a10 0d 09 ec 14 ea 20 63 68 61 6e 6e 65 6c 25 2c 20 |..... channel%, |
00001a20 70 74 72 25 0d 09 f6 1c 63 68 61 6e 6e 65 6c 25 |ptr%....channel%|
00001a30 3d 8e 28 a4 7a 65 72 6f 28 62 25 2b 34 34 29 29 |=.(.zero(b%+44))|
00001a40 0d 0a 00 14 e7 20 63 68 61 6e 6e 65 6c 25 3d 30 |..... channel%=0|
00001a50 20 8c 20 e1 0d 0a 0a 21 c8 99 20 22 4f 53 5f 47 | . ....!.. "OS_G|
00001a60 42 50 42 22 2c 34 2c 63 68 61 6e 6e 65 6c 25 2c |BPB",4,channel%,|
00001a70 70 62 25 2c 34 0d 0a 14 24 e7 20 21 70 62 25 3c |pb%,4...$. !pb%<|
00001a80 3e 26 34 39 39 38 37 41 41 41 20 8c 20 d9 23 63 |>&49987AAA . .#c|
00001a90 68 61 6e 6e 65 6c 25 3a e1 0d 0a 1e 04 0d 0a 28 |hannel%:.......(|
00001aa0 29 c8 99 20 22 4f 53 5f 47 42 50 42 22 2c 33 2c |).. "OS_GBPB",3,|
00001ab0 63 68 61 6e 6e 65 6c 25 2c 62 25 2b 31 30 32 34 |channel%,b%+1024|
00001ac0 2c 32 35 36 2c 30 0d 0a 32 0e d9 23 63 68 61 6e |,256,0..2..#chan|
00001ad0 6e 65 6c 25 0d 0a 3c 04 0d 0a 46 10 70 74 72 25 |nel%..<...F.ptr%|
00001ae0 3d 62 25 2b 31 30 32 38 0d 0a 50 16 e3 20 69 6e |=b%+1028..P.. in|
00001af0 64 65 78 25 3d 31 20 b8 20 65 5f 6e 76 25 0d 0a |dex%=1 . e_nv%..|
00001b00 5a 1a 20 20 65 5f 76 61 6c 25 28 69 6e 64 65 78 |Z. e_val%(index|
00001b10 25 29 3d 21 70 74 72 25 0d 0a 64 0d 20 20 70 74 |%)=!ptr%..d. pt|
00001b20 72 25 2b 3d 34 0d 0a 6e 05 ed 0d 0a 78 0f f2 65 |r%+=4..n....x..e|
00001b30 5f 77 72 69 74 65 61 6c 6c 0d 0a 82 0f f2 65 5f |_writeall.....e_|
00001b40 76 61 6c 69 64 61 74 65 0d 0a 8c 05 e1 0d 0a 96 |validate........|
00001b50 04 0d 0a a0 04 0d 0a aa 04 0d 0a b4 04 0d 0a be |................|
00001b60 04 0d ff |...|
00001b63 
.