Home » Archimedes archive » Archimedes World » AW-1995-04-Disc1.adf » Disk1Apr95 » !AWApr95/Goodies/Draw/!DrawBasic/DrawBasic

!AWApr95/Goodies/Draw/!DrawBasic/DrawBasic

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Archimedes archive » Archimedes World » AW-1995-04-Disc1.adf » Disk1Apr95
Filename: !AWApr95/Goodies/Draw/!DrawBasic/DrawBasic
Read OK: ✔
File size: 2754 bytes
Load address: 0000
Exec address: 0000
Duplicates

There are 11 duplicate copies of this file in the archive:

File contents
dt�,8DrawBasicFsDrawBasicFs		1.10 (9th Dec 1992) !Utils une@-�0��@����@-� ��A����`1��@-����������E��h3JResources.Edit.!Throw.!RunNIconSprites <Obey$Dir>.!Sprites
WimpSlot -max 32K
Run <Obey$Dir>.!RunImage�E�������Resources.Edit.!Throw.!RunImage�

� > Basic Error Throwback
� � �Error(0)
� wimp% 1211
(�GetErrorInfo
2�UnsetVariables
<�ReportError
F�
P
Z��GetErrorInfo
d+ file$=�Read_Variable("Throwback$File")
n-error$=�Read_Variable("Throwback$Report")
x- line%=�(�Read_Variable("Throwback$ERL"))
�0 dec%=�(�Read_Variable("Throwback$Options"))
�1 prelude$=�Read_Variable("DrawBasic$Options")
�5 ș "OS_File",20,"<ThrowBack$File>" � ,,,,,,type%
� Ȏ type% �
�  � &B9B : inc%=10
�.   : � line% � 10 <> 0 � inc%=1 � inc%=10
� �
�*Unset Throwback$File
��
�
�� �UnsetVariables
�*Unset Throwback$Report
�*Unset Throwback$ERL
*Unset Throwback$Options
�

"� �ReportError
,>ș"Wimp_Initialise",200,&4B534154,"Error ThrowBack"�,task%
6#mask%=%110100110011:finished%=�
@�Window
J�Wimp_Poll
T�
^
h��Window
rDwindow%=�Wimp_WindowLoadFrom("Main","ThrowBack:!Throw.Template")
|+�Wimp_IconPutText(window%,2,error$,100)
�ll%=line%/inc%-dec%
�Ȏ type% �
�  � &B9B
�   � ll%<=0 �
�4    �SetUpWindow(prelude$,"file_B9A",ll%+dec%-1)
�   �
�*    �SetUpWindow(file$,"file_B9B",ll%)
�   �
�   �DisableIcons
�  
�0   �SetUpWindow(file$,"file_FFB",line%/inc%)
�   � inc%=1 � �ToggleIcon
� �
�

� �DisableIcons
&6wimp%!0=window%:wimp%!4=8:wimp%!8=1<<22:wimp%!12=0
0 ș"Wimp_SetIconState",,wimp%
:
wimp%!4=7
D ș"Wimp_SetIconState",,wimp%
N�
X
b� �ToggleIcon
l6wimp%!0=window%:wimp%!4=8:wimp%!8=1<<21:wimp%!12=0
v ș"Wimp_SetIconState",,wimp%
�
wimp%!4=7
� ș"Wimp_SetIconState",,wimp%
��
�
�%� �SetUpWindow(file$,type$,line%)
�/ �Wimp_IconPutText(window%,5,�file$,25),25)
�* �Wimp_IconPutText(window%,9,type$,12)
�E �Wimp_IconPutText(window%,6,"Error at Editor line "+�(line%),32)
��
�
���Wimp_Poll
��
�$ș"Wimp_Poll",mask%,wimp%�event%

Ȏevent%�
8 �2:ș"Wimp_OpenWindow",,wimp% :ș "Hourglass_Smash"
/ �3:ș"Wimp_CloseWindow",,wimp%:finished%=�
  �6:�Mouse
* �17,18,19
4  Ȏwimp%!16�
>   �0:finished%=�
H  �
R�
\� finished%
fș"Wimp_CloseDown"
p�
z
���Mouse
�Ȏwimp%!16�
� �4 : �Throw
� �7 : inc%=10
�K  �Wimp_IconPutText(window%,6,"Error at Editor line "+�(line%/inc%),32)
� �8
�  inc%=1
�K  �Wimp_IconPutText(window%,6,"Error at Editor line "+�(line%/inc%),32)
��
��
�
�� �Throw
�ll%=line%/inc%-dec%
Ȏ type% �
  � &B9B
   � ll%<=0 �
$#     �Wimp_SendToEdit(prelude$)
.     �GoToLine(ll%+dec%-1)
8   �
B      �Wimp_SendToEdit(file$)
L     �GoToLine(ll%)
V   �
`  
j   �Wimp_SendToEdit(file$)
t   �GoToLine(line%/inc%)
~�
�
�MarkLine
��
�
���GoToLine(line%)
��e$,i%,digit%
�e$=�(line%)
�ș"OS_Byte",153,0,&85
��i%=1��(e$)
�digit%=�(�e$,i%,1))
�ș"OS_Byte",153,0,digit%
��
�ș"OS_Byte",153,0,&0d
�


��MarkLine
ș"OS_Byte",153,0,&96
(ș"OS_Byte",153,0,&86
2ș"OS_Byte",153,0,&8E
<ș"OS_Byte",153,0,&86
Fș"OS_Byte",153,0,&8F
Pș "Hourglass_Smash"
Z�
d
n0� ------------------------------------------
x
�ݤRead_Variable(var$)
��len%,i%,f$
�6ș"XOS_ReadVarVal",var$,wimp%,255,,3�,,len%;flags%
�
Ȏflags%�
�
�7: f$=""
�
�	f$=""
��i%=0�len%-1
�f$=f$+�(wimp%?i%)
��
��
�Ȏ�f$)�
��" ":f$=�f$)
�
=f$

""ݤWimp_GetFileFromPathname(f$)
,�i%,j%,k%,g$
6i%=�f$,"."):j%=0
@	Ȏi%�
J�0:g$=f$
T
^'�k%=j%:j%=i%:i%=�f$,".",i%+1):�i%=0
hg$=�f$,�f$-j%)
r�
|=g$
�
���Wimp_SendToEdit(file$)
�� n%
�wimp%!4=&6CC01C0C
�wimp%!16=5
�wimp%!36=0
�wimp%!40=&FFF
�$(wimp%+44)=file$+�0
�n%=�file$+45
�,� n%�4 � !wimp%=4+(n%>>2)<<2 � !wimp%=n%
�$ș "Wimp_SendMessage",18,wimp%,0
��
�
0��Wimp_IconPutText(window%,icon%,text$,len%)
text$=�text$,len%)
!wimp%!0=window%:wimp%!4=icon%
& ș"Wimp_GetIconState",,wimp%
06x0%=wimp%!8:y0%=wimp%!12:x1%=wimp%!16:y1%=wimp%!20
:2�((wimp%!24)�&100)=0�1,"Icon isn't indirected"
D$(wimp%!28)=text$
N!wimp%!0=window%:wimp%!4=icon%
Xwimp%!8=0:wimp%!12=0
b ș"Wimp_SetIconState",,wimp%
l�
v
�7� =================================================
�
�!��Wimp_Alert(title$,message$)
�
wimp%!4=�
�$(wimp%+4)=message$+�0
�'ș"Wimp_ReportError",wimp%,1,title$
��
�
�,ݤWimp_WindowLoadFrom(window$,template$)
�memory%=739
��icons%memory%
�$ș"Wimp_OpenTemplate",,template$
�Lș"Wimp_LoadTemplate",,wimp%,icons%,icons%+memory%,-1,window$,0�,,icons%
#ș"Wimp_CreateWindow",,wimp%�c%
ș"Wimp_CloseTemplate"
�Wimp_WindowBringToTop(c%)
 =c%
*
4$��Wimp_WindowBringToTop(window%)
>!wimp%=window%
H"ș"Wimp_GetWindowState",,wimp%
Rwimp%!28=-1
\ș"Wimp_OpenWindow",,wimp%
f�
p
z%ݤWimp_GetStringAtAddress(array%)
�
�s$:s$=""
�;ȕ(?array%<>13)�(?array%<>0):s$+=�(?array%):array%+=1:�
�=s$
�*��Wimp_IconCaret(window%,icon%,chars%)
�7ș"Wimp_SetCaretPosition",window%,icon%,,,-1,chars%
��
���Error(error%)
�
�
Ȏerror%�
�O�0:�Wimp_Alert("Throwback","Fatal Error in Throwback! internal code "+Þ):�
�7�1:�Wimp_Alert("Throwback",�$+" internal code "+Þ)
��
��
	
��E�����Y.�Resources.Edit.!Throw.!Sprites��<radiooff,4�������������������������"�������"3�����3#����!D���B���1%��!E��U��e��e��"V��21F��;Q'��;#t����CAw����K42u������TUUfW������+TfE����������������������������������������������������������������������������������������������������������������������������������������������������������������<radioon,4�������������������������+TfE�������ufUUE�����{W#!C�����w!4���[GSw52���rQwww1���dswww7#��euwwwW"��Vwwwww!��Vwwwww��UuwwwW��Tswww7��RQwww��K$Sw5����D����23������3"�������"����������������������������������������������������������������������������������������������������������������������������������������������������������������������<TE��fc.Resources.Edit.!Throw.Template����,�Main
*ZzE������	�����������=�����������=a������x���=��d&���������=���2����~���=a����������='�TV��������=�,T���������!2",���zN����w�":�������2��������=e��Error ThrowBack

R3

R3
Error message
R4;L

R4
Throwback
r6
"!BasicFile.!RunImage"
R2
Error at line
R1
normal (10,20,...)
Sradiooff,radioon;U1,19,20,21,22;R0,18;R1,25;U0,26,27,28,29,30,31,32
logical (1,2,...)
Sradiooff,radioon;U0,19,20,21,22;R0,25;R1,18;U1,26,27,28,29,30,31,32
file_ffb
Program line numbers
r1
E����3��Resources.Edit.Convert�
� � �Error(0)
� variable% 512
�CheckWimpScrap
�CheckPrelude
�CheckProgramFile
�StartBuildingProgram
�AddPrelude
�AddProgram
	�RunProgram

�

� �CheckWimpScrap

� �
� � �Error(2)
.ș "XOS_File",13,"DrawBasic:Draw" � found%
1� found%<>2 � ș "OS_File",8,"DrawBasic:Draw"
3ș "XOS_File",13,"DrawBasic:Draw.File" � found%
>� found%<>1 ș "OS_File",11,"DrawBasic:Draw.File",&AFF,0,0
� �
�


� �CheckPrelude
@ș "XOS_File",13,"<DrawBasic$Options>"  � found%,,,,prelude%
� found%<>1 � �Error(3)
�

� �CheckProgramFile
=ș "XOS_File",13,"<Throwback$File>"  � found%,,,,program%
� found%<>1 � �Error(4)
�
 
!� �StartBuildingProgram
"$ � file% 4*256+prelude%+program%
# ptr%=file%
$A �Add("ON ERROR ON ERROR OFF : CHAIN "+"""ThrowBack:Error""")
%+ �Add("LIBRARY "+"""DrawBasic:Utils""")
& �Add("HIMEM=FNFreeSlot")
' �Add("PROCBeginDrawing")
(�
)
*� �AddPrelude
+/ ș "OS_File",12,"<DrawBasic$Options>",ptr%
, �Tokenise(prelude%)
-+ �("Set ThrowBack$Options "+�(line%+4))
.�
/
0� �AddProgram
1- ș "OS_File",12,"<ThrowBack$File>",ptr% 
2 �Tokenise(program%)
3�
4
5� �RunProgram
6ptr%?0=13 : ptr%+=1
75�("Save DrawBasic:Draw.File "+�~file%+" "+�~ptr%)
8&*SetType DrawBasic:Draw.File Basic
9"*Filer_Run DrawBasic:Draw.File
:�
;
<O� -------------------------------------------------------------------------
=
>
?� �Add(x$)
@$ptr%=x$+�13 : ptr%+=�x$+1
A�
B
C� �Tokenise(length%)
D line%=0
E end%=ptr%+length%
F ȕ ptr%<end%
G  Ȏ ptr%?0 �
H$   � 10,13: line%+=1 : ptr%?0=13
I   � 160  : ptr%?0=&F2
J   � 187  : ptr%?0=&A4
K  �
L
  ptr%+=1
M �
N�
O
P� �Error(error%)
Q	� � �
RȎ error% �
S'                                   
T � 0
U*  � "Error in Convert "+�$;"at line";�
V � 2
W>  � 0, "DrawBasic requires a Draw scrap directory to work"
X � 3
Y6   � 0,"DrawBasic requires a 'setup' file to work"
Z � 4
[$   � 0,"Program file not found!"
\�
]�
�DE����U؍Resources.Edit.Error
� >Throwback
x=�
� x=17 �
 *UnSet ThrowBack$File
 �
�
 error$=�$
 � �Library �
	#  file$=��error$,�error$-i%-4))

  error$=�error$,i%)
$  �("Set ThrowBack$File "+file$)
'  �("Set ThrowBack$Report "+error$)

   �("Set ThrowBack$ERL "+Þ)
 �
'  �("Set Throwback$Report "+error$)
   �("Set Throwback$ERL "+Þ)
E  *if "<ThrowBack$File>"="" THEN *Set ThrowBack$File <Basic$File>
 �
 *Run ThrowBack:!Throw
�
�

� �Library
i%=�error$," in "+"""")
� i%=0 � = � �=�

�
00000000  00 00 00 00 64 00 00 00  74 00 00 00 84 00 00 00  |....d...t.......|
00000010  2c 00 00 00 38 00 00 00  00 00 00 00 00 00 00 00  |,...8...........|
00000020  00 00 00 00 00 00 00 00  00 00 00 00 44 72 61 77  |............Draw|
00000030  42 61 73 69 63 46 73 00  44 72 61 77 42 61 73 69  |BasicFs.DrawBasi|
00000040  63 46 73 09 09 31 2e 31  30 20 28 39 74 68 20 44  |cFs..1.10 (9th D|
00000050  65 63 20 31 39 39 32 29  20 21 55 74 69 6c 73 20  |ec 1992) !Utils |
00000060  00 75 6e 65 01 40 2d e9  30 00 8f e2 40 1b 06 ef  |.une.@-.0...@...|
00000070  01 80 fd e8 01 40 2d e9  20 00 8f e2 41 1b 06 ef  |.....@-. ...A...|
00000080  01 80 fd e8 60 00 31 e3  0e f0 a0 11 0f 40 2d e9  |....`.1......@-.|
00000090  08 00 8f e2 0f e0 a0 e1  02 f0 a0 e1 0f 80 fd e8  |................|
000000a0  80 00 00 00 45 eb ff ff  e2 68 18 33 4a 00 00 00  |....E....h.3J...|
000000b0  03 00 00 00 52 65 73 6f  75 72 63 65 73 2e 45 64  |....Resources.Ed|
000000c0  69 74 2e 21 54 68 72 6f  77 2e 21 52 75 6e 00 00  |it.!Throw.!Run..|
000000d0  4e 00 00 00 49 63 6f 6e  53 70 72 69 74 65 73 20  |N...IconSprites |
000000e0  3c 4f 62 65 79 24 44 69  72 3e 2e 21 53 70 72 69  |<Obey$Dir>.!Spri|
000000f0  74 65 73 0a 57 69 6d 70  53 6c 6f 74 20 2d 6d 61  |tes.WimpSlot -ma|
00000100  78 20 33 32 4b 0a 52 75  6e 20 3c 4f 62 65 79 24  |x 32K.Run <Obey$|
00000110  44 69 72 3e 2e 21 52 75  6e 49 6d 61 67 65 00 00  |Dir>.!RunImage..|
00000120  bc 13 00 00 45 fb ff ff  15 f8 93 96 83 13 00 00  |....E...........|
00000130  03 00 00 00 52 65 73 6f  75 72 63 65 73 2e 45 64  |....Resources.Ed|
00000140  69 74 2e 21 54 68 72 6f  77 2e 21 52 75 6e 49 6d  |it.!Throw.!RunIm|
00000150  61 67 65 00 87 13 00 00  0d 00 0a 1d f4 20 3e 20  |age.......... > |
00000160  42 61 73 69 63 20 45 72  72 6f 72 20 54 68 72 6f  |Basic Error Thro|
00000170  77 62 61 63 6b 0d 00 14  11 ee 20 85 20 f2 45 72  |wback..... . .Er|
00000180  72 6f 72 28 30 29 0d 00  1e 10 de 20 77 69 6d 70  |ror(0)..... wimp|
00000190  25 20 31 32 31 31 0d 00  28 11 f2 47 65 74 45 72  |% 1211..(..GetEr|
000001a0  72 6f 72 49 6e 66 6f 0d  00 32 13 f2 55 6e 73 65  |rorInfo..2..Unse|
000001b0  74 56 61 72 69 61 62 6c  65 73 0d 00 3c 10 f2 52  |tVariables..<..R|
000001c0  65 70 6f 72 74 45 72 72  6f 72 0d 00 46 05 e0 0d  |eportError..F...|
000001d0  00 50 04 0d 00 5a 12 dd  f2 47 65 74 45 72 72 6f  |.P...Z...GetErro|
000001e0  72 49 6e 66 6f 0d 00 64  2b 20 66 69 6c 65 24 3d  |rInfo..d+ file$=|
000001f0  a4 52 65 61 64 5f 56 61  72 69 61 62 6c 65 28 22  |.Read_Variable("|
00000200  54 68 72 6f 77 62 61 63  6b 24 46 69 6c 65 22 29  |Throwback$File")|
00000210  0d 00 6e 2d 65 72 72 6f  72 24 3d a4 52 65 61 64  |..n-error$=.Read|
00000220  5f 56 61 72 69 61 62 6c  65 28 22 54 68 72 6f 77  |_Variable("Throw|
00000230  62 61 63 6b 24 52 65 70  6f 72 74 22 29 0d 00 78  |back$Report")..x|
00000240  2d 20 6c 69 6e 65 25 3d  bb 28 a4 52 65 61 64 5f  |- line%=.(.Read_|
00000250  56 61 72 69 61 62 6c 65  28 22 54 68 72 6f 77 62  |Variable("Throwb|
00000260  61 63 6b 24 45 52 4c 22  29 29 0d 00 82 30 20 64  |ack$ERL"))...0 d|
00000270  65 63 25 3d bb 28 a4 52  65 61 64 5f 56 61 72 69  |ec%=.(.Read_Vari|
00000280  61 62 6c 65 28 22 54 68  72 6f 77 62 61 63 6b 24  |able("Throwback$|
00000290  4f 70 74 69 6f 6e 73 22  29 29 0d 00 8c 31 20 70  |Options"))...1 p|
000002a0  72 65 6c 75 64 65 24 3d  a4 52 65 61 64 5f 56 61  |relude$=.Read_Va|
000002b0  72 69 61 62 6c 65 28 22  44 72 61 77 42 61 73 69  |riable("DrawBasi|
000002c0  63 24 4f 70 74 69 6f 6e  73 22 29 0d 00 96 35 20  |c$Options")...5 |
000002d0  c8 99 20 22 4f 53 5f 46  69 6c 65 22 2c 32 30 2c  |.. "OS_File",20,|
000002e0  22 3c 54 68 72 6f 77 42  61 63 6b 24 46 69 6c 65  |"<ThrowBack$File|
000002f0  3e 22 20 b8 20 2c 2c 2c  2c 2c 2c 74 79 70 65 25  |>" . ,,,,,,type%|
00000300  0d 00 a0 0f 20 c8 8e 20  74 79 70 65 25 20 ca 0d  |.... .. type% ..|
00000310  00 aa 16 20 20 c9 20 26  42 39 42 20 3a 20 69 6e  |...  . &B9B : in|
00000320  63 25 3d 31 30 0d 00 b4  2e 20 20 7f 20 3a 20 e7  |c%=10....  . : .|
00000330  20 6c 69 6e 65 25 20 83  20 31 30 20 3c 3e 20 30  | line% . 10 <> 0|
00000340  20 8c 20 69 6e 63 25 3d  31 20 8b 20 69 6e 63 25  | . inc%=1 . inc%|
00000350  3d 31 30 0d 00 be 06 20  cb 0d 00 c8 19 2a 55 6e  |=10.... .....*Un|
00000360  73 65 74 20 54 68 72 6f  77 62 61 63 6b 24 46 69  |set Throwback$Fi|
00000370  6c 65 0d 00 d2 05 e1 0d  00 dc 04 0d 00 e6 15 dd  |le..............|
00000380  20 f2 55 6e 73 65 74 56  61 72 69 61 62 6c 65 73  | .UnsetVariables|
00000390  0d 00 f0 1b 2a 55 6e 73  65 74 20 54 68 72 6f 77  |....*Unset Throw|
000003a0  62 61 63 6b 24 52 65 70  6f 72 74 0d 00 fa 18 2a  |back$Report....*|
000003b0  55 6e 73 65 74 20 54 68  72 6f 77 62 61 63 6b 24  |Unset Throwback$|
000003c0  45 52 4c 0d 01 04 1c 2a  55 6e 73 65 74 20 54 68  |ERL....*Unset Th|
000003d0  72 6f 77 62 61 63 6b 24  4f 70 74 69 6f 6e 73 0d  |rowback$Options.|
000003e0  01 0e 05 e1 0d 01 18 04  0d 01 22 12 dd 20 f2 52  |..........".. .R|
000003f0  65 70 6f 72 74 45 72 72  6f 72 0d 01 2c 3e c8 99  |eportError..,>..|
00000400  22 57 69 6d 70 5f 49 6e  69 74 69 61 6c 69 73 65  |"Wimp_Initialise|
00000410  22 2c 32 30 30 2c 26 34  42 35 33 34 31 35 34 2c  |",200,&4B534154,|
00000420  22 45 72 72 6f 72 20 54  68 72 6f 77 42 61 63 6b  |"Error ThrowBack|
00000430  22 b8 2c 74 61 73 6b 25  0d 01 36 23 6d 61 73 6b  |".,task%..6#mask|
00000440  25 3d 25 31 31 30 31 30  30 31 31 30 30 31 31 3a  |%=%110100110011:|
00000450  66 69 6e 69 73 68 65 64  25 3d a3 0d 01 40 0b f2  |finished%=...@..|
00000460  57 69 6e 64 6f 77 0d 01  4a 0e f2 57 69 6d 70 5f  |Window..J..Wimp_|
00000470  50 6f 6c 6c 0d 01 54 05  e1 0d 01 5e 04 0d 01 68  |Poll..T....^...h|
00000480  0c dd f2 57 69 6e 64 6f  77 0d 01 72 44 77 69 6e  |...Window..rDwin|
00000490  64 6f 77 25 3d a4 57 69  6d 70 5f 57 69 6e 64 6f  |dow%=.Wimp_Windo|
000004a0  77 4c 6f 61 64 46 72 6f  6d 28 22 4d 61 69 6e 22  |wLoadFrom("Main"|
000004b0  2c 22 54 68 72 6f 77 42  61 63 6b 3a 21 54 68 72  |,"ThrowBack:!Thr|
000004c0  6f 77 2e 54 65 6d 70 6c  61 74 65 22 29 0d 01 7c  |ow.Template")..||
000004d0  2b f2 57 69 6d 70 5f 49  63 6f 6e 50 75 74 54 65  |+.Wimp_IconPutTe|
000004e0  78 74 28 77 69 6e 64 6f  77 25 2c 32 2c 65 72 72  |xt(window%,2,err|
000004f0  6f 72 24 2c 31 30 30 29  0d 01 86 17 6c 6c 25 3d  |or$,100)....ll%=|
00000500  6c 69 6e 65 25 2f 69 6e  63 25 2d 64 65 63 25 0d  |line%/inc%-dec%.|
00000510  01 90 0e c8 8e 20 74 79  70 65 25 20 ca 0d 01 9a  |..... type% ....|
00000520  0c 20 20 c9 20 26 42 39  42 0d 01 a4 11 20 20 20  |.  . &B9B....   |
00000530  e7 20 6c 6c 25 3c 3d 30  20 8c 0d 01 ae 34 20 20  |. ll%<=0 ....4  |
00000540  20 20 f2 53 65 74 55 70  57 69 6e 64 6f 77 28 70  |  .SetUpWindow(p|
00000550  72 65 6c 75 64 65 24 2c  22 66 69 6c 65 5f 42 39  |relude$,"file_B9|
00000560  41 22 2c 6c 6c 25 2b 64  65 63 25 2d 31 29 0d 01  |A",ll%+dec%-1)..|
00000570  b8 08 20 20 20 cc 0d 01  c2 2a 20 20 20 20 f2 53  |..   ....*    .S|
00000580  65 74 55 70 57 69 6e 64  6f 77 28 66 69 6c 65 24  |etUpWindow(file$|
00000590  2c 22 66 69 6c 65 5f 42  39 42 22 2c 6c 6c 25 29  |,"file_B9B",ll%)|
000005a0  0d 01 cc 08 20 20 20 cd  0d 01 d6 14 20 20 20 f2  |....   .....   .|
000005b0  44 69 73 61 62 6c 65 49  63 6f 6e 73 0d 01 e0 07  |DisableIcons....|
000005c0  20 20 7f 0d 01 ea 30 20  20 20 f2 53 65 74 55 70  |  ....0   .SetUp|
000005d0  57 69 6e 64 6f 77 28 66  69 6c 65 24 2c 22 66 69  |Window(file$,"fi|
000005e0  6c 65 5f 46 46 42 22 2c  6c 69 6e 65 25 2f 69 6e  |le_FFB",line%/in|
000005f0  63 25 29 0d 01 f4 1d 20  20 20 e7 20 69 6e 63 25  |c%)....   . inc%|
00000600  3d 31 20 8c 20 f2 54 6f  67 67 6c 65 49 63 6f 6e  |=1 . .ToggleIcon|
00000610  0d 01 fe 06 20 cb 0d 02  08 05 e1 0d 02 12 04 0d  |.... ...........|
00000620  02 1c 13 dd 20 f2 44 69  73 61 62 6c 65 49 63 6f  |.... .DisableIco|
00000630  6e 73 0d 02 26 36 77 69  6d 70 25 21 30 3d 77 69  |ns..&6wimp%!0=wi|
00000640  6e 64 6f 77 25 3a 77 69  6d 70 25 21 34 3d 38 3a  |ndow%:wimp%!4=8:|
00000650  77 69 6d 70 25 21 38 3d  31 3c 3c 32 32 3a 77 69  |wimp%!8=1<<22:wi|
00000660  6d 70 25 21 31 32 3d 30  0d 02 30 20 c8 99 22 57  |mp%!12=0..0 .."W|
00000670  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00000680  22 2c 2c 77 69 6d 70 25  0d 02 3a 0d 77 69 6d 70  |",,wimp%..:.wimp|
00000690  25 21 34 3d 37 0d 02 44  20 c8 99 22 57 69 6d 70  |%!4=7..D .."Wimp|
000006a0  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
000006b0  77 69 6d 70 25 0d 02 4e  05 e1 0d 02 58 04 0d 02  |wimp%..N....X...|
000006c0  62 11 dd 20 f2 54 6f 67  67 6c 65 49 63 6f 6e 0d  |b.. .ToggleIcon.|
000006d0  02 6c 36 77 69 6d 70 25  21 30 3d 77 69 6e 64 6f  |.l6wimp%!0=windo|
000006e0  77 25 3a 77 69 6d 70 25  21 34 3d 38 3a 77 69 6d  |w%:wimp%!4=8:wim|
000006f0  70 25 21 38 3d 31 3c 3c  32 31 3a 77 69 6d 70 25  |p%!8=1<<21:wimp%|
00000700  21 31 32 3d 30 0d 02 76  20 c8 99 22 57 69 6d 70  |!12=0..v .."Wimp|
00000710  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00000720  77 69 6d 70 25 0d 02 80  0d 77 69 6d 70 25 21 34  |wimp%....wimp%!4|
00000730  3d 37 0d 02 8a 20 c8 99  22 57 69 6d 70 5f 53 65  |=7... .."Wimp_Se|
00000740  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 77 69 6d  |tIconState",,wim|
00000750  70 25 0d 02 94 05 e1 0d  02 9e 04 0d 02 a8 25 dd  |p%............%.|
00000760  20 f2 53 65 74 55 70 57  69 6e 64 6f 77 28 66 69  | .SetUpWindow(fi|
00000770  6c 65 24 2c 74 79 70 65  24 2c 6c 69 6e 65 25 29  |le$,type$,line%)|
00000780  0d 02 b2 2f 20 f2 57 69  6d 70 5f 49 63 6f 6e 50  |.../ .Wimp_IconP|
00000790  75 74 54 65 78 74 28 77  69 6e 64 6f 77 25 2c 35  |utText(window%,5|
000007a0  2c c2 66 69 6c 65 24 2c  32 35 29 2c 32 35 29 0d  |,.file$,25),25).|
000007b0  02 bc 2a 20 f2 57 69 6d  70 5f 49 63 6f 6e 50 75  |..* .Wimp_IconPu|
000007c0  74 54 65 78 74 28 77 69  6e 64 6f 77 25 2c 39 2c  |tText(window%,9,|
000007d0  74 79 70 65 24 2c 31 32  29 0d 02 c6 45 20 f2 57  |type$,12)...E .W|
000007e0  69 6d 70 5f 49 63 6f 6e  50 75 74 54 65 78 74 28  |imp_IconPutText(|
000007f0  77 69 6e 64 6f 77 25 2c  36 2c 22 45 72 72 6f 72  |window%,6,"Error|
00000800  20 61 74 20 45 64 69 74  6f 72 20 6c 69 6e 65 20  | at Editor line |
00000810  22 2b c3 28 6c 69 6e 65  25 29 2c 33 32 29 0d 02  |"+.(line%),32)..|
00000820  d0 05 e1 0d 02 da 04 0d  02 e4 0f dd f2 57 69 6d  |.............Wim|
00000830  70 5f 50 6f 6c 6c 0d 02  ee 05 f5 0d 02 f8 24 c8  |p_Poll........$.|
00000840  99 22 57 69 6d 70 5f 50  6f 6c 6c 22 2c 6d 61 73  |."Wimp_Poll",mas|
00000850  6b 25 2c 77 69 6d 70 25  b8 65 76 65 6e 74 25 0d  |k%,wimp%.event%.|
00000860  03 02 0d c8 8e 65 76 65  6e 74 25 ca 0d 03 0c 38  |.....event%....8|
00000870  20 c9 32 3a c8 99 22 57  69 6d 70 5f 4f 70 65 6e  | .2:.."Wimp_Open|
00000880  57 69 6e 64 6f 77 22 2c  2c 77 69 6d 70 25 20 3a  |Window",,wimp% :|
00000890  c8 99 20 22 48 6f 75 72  67 6c 61 73 73 5f 53 6d  |.. "Hourglass_Sm|
000008a0  61 73 68 22 0d 03 16 2f  20 c9 33 3a c8 99 22 57  |ash".../ .3:.."W|
000008b0  69 6d 70 5f 43 6c 6f 73  65 57 69 6e 64 6f 77 22  |imp_CloseWindow"|
000008c0  2c 2c 77 69 6d 70 25 3a  66 69 6e 69 73 68 65 64  |,,wimp%:finished|
000008d0  25 3d b9 0d 03 20 0e 20  c9 36 3a f2 4d 6f 75 73  |%=... . .6:.Mous|
000008e0  65 0d 03 2a 0e 20 c9 31  37 2c 31 38 2c 31 39 0d  |e..*. .17,18,19.|
000008f0  03 34 11 20 20 c8 8e 77  69 6d 70 25 21 31 36 ca  |.4.  ..wimp%!16.|
00000900  0d 03 3e 15 20 20 20 c9  30 3a 66 69 6e 69 73 68  |..>.   .0:finish|
00000910  65 64 25 3d b9 0d 03 48  07 20 20 cb 0d 03 52 05  |ed%=...H.  ...R.|
00000920  cb 0d 03 5c 0f fd 20 66  69 6e 69 73 68 65 64 25  |...\.. finished%|
00000930  0d 03 66 16 c8 99 22 57  69 6d 70 5f 43 6c 6f 73  |..f..."Wimp_Clos|
00000940  65 44 6f 77 6e 22 0d 03  70 05 e1 0d 03 7a 04 0d  |eDown"..p....z..|
00000950  03 84 0b dd f2 4d 6f 75  73 65 0d 03 8e 0f c8 8e  |.....Mouse......|
00000960  77 69 6d 70 25 21 31 36  ca 0d 03 98 10 20 c9 34  |wimp%!16..... .4|
00000970  20 3a 20 f2 54 68 72 6f  77 0d 03 a2 11 20 c9 37  | : .Throw.... .7|
00000980  20 3a 20 69 6e 63 25 3d  31 30 0d 03 ac 4b 20 20  | : inc%=10...K  |
00000990  f2 57 69 6d 70 5f 49 63  6f 6e 50 75 74 54 65 78  |.Wimp_IconPutTex|
000009a0  74 28 77 69 6e 64 6f 77  25 2c 36 2c 22 45 72 72  |t(window%,6,"Err|
000009b0  6f 72 20 61 74 20 45 64  69 74 6f 72 20 6c 69 6e  |or at Editor lin|
000009c0  65 20 22 2b c3 28 6c 69  6e 65 25 2f 69 6e 63 25  |e "+.(line%/inc%|
000009d0  29 2c 33 32 29 0d 03 b6  07 20 c9 38 0d 03 c0 0c  |),32).... .8....|
000009e0  20 20 69 6e 63 25 3d 31  0d 03 ca 4b 20 20 f2 57  |  inc%=1...K  .W|
000009f0  69 6d 70 5f 49 63 6f 6e  50 75 74 54 65 78 74 28  |imp_IconPutText(|
00000a00  77 69 6e 64 6f 77 25 2c  36 2c 22 45 72 72 6f 72  |window%,6,"Error|
00000a10  20 61 74 20 45 64 69 74  6f 72 20 6c 69 6e 65 20  | at Editor line |
00000a20  22 2b c3 28 6c 69 6e 65  25 2f 69 6e 63 25 29 2c  |"+.(line%/inc%),|
00000a30  33 32 29 0d 03 d4 05 cb  0d 03 de 05 e1 0d 03 e8  |32).............|
00000a40  04 0d 03 f2 0c dd 20 f2  54 68 72 6f 77 0d 03 fc  |...... .Throw...|
00000a50  17 6c 6c 25 3d 6c 69 6e  65 25 2f 69 6e 63 25 2d  |.ll%=line%/inc%-|
00000a60  64 65 63 25 0d 04 06 0e  c8 8e 20 74 79 70 65 25  |dec%...... type%|
00000a70  20 ca 0d 04 10 0c 20 20  c9 20 26 42 39 42 0d 04  | .....  . &B9B..|
00000a80  1a 11 20 20 20 e7 20 6c  6c 25 3c 3d 30 20 8c 0d  |..   . ll%<=0 ..|
00000a90  04 24 23 20 20 20 20 20  f2 57 69 6d 70 5f 53 65  |.$#     .Wimp_Se|
00000aa0  6e 64 54 6f 45 64 69 74  28 70 72 65 6c 75 64 65  |ndToEdit(prelude|
00000ab0  24 29 0d 04 2e 1e 20 20  20 20 20 f2 47 6f 54 6f  |$)....     .GoTo|
00000ac0  4c 69 6e 65 28 6c 6c 25  2b 64 65 63 25 2d 31 29  |Line(ll%+dec%-1)|
00000ad0  0d 04 38 08 20 20 20 cc  0d 04 42 20 20 20 20 20  |..8.   ...B     |
00000ae0  20 f2 57 69 6d 70 5f 53  65 6e 64 54 6f 45 64 69  | .Wimp_SendToEdi|
00000af0  74 28 66 69 6c 65 24 29  0d 04 4c 17 20 20 20 20  |t(file$)..L.    |
00000b00  20 f2 47 6f 54 6f 4c 69  6e 65 28 6c 6c 25 29 0d  | .GoToLine(ll%).|
00000b10  04 56 08 20 20 20 cd 0d  04 60 07 20 20 7f 0d 04  |.V.   ...`.  ...|
00000b20  6a 1e 20 20 20 f2 57 69  6d 70 5f 53 65 6e 64 54  |j.   .Wimp_SendT|
00000b30  6f 45 64 69 74 28 66 69  6c 65 24 29 0d 04 74 1c  |oEdit(file$)..t.|
00000b40  20 20 20 f2 47 6f 54 6f  4c 69 6e 65 28 6c 69 6e  |   .GoToLine(lin|
00000b50  65 25 2f 69 6e 63 25 29  0d 04 7e 05 cb 0d 04 88  |e%/inc%)..~.....|
00000b60  0d f2 4d 61 72 6b 4c 69  6e 65 0d 04 92 05 e1 0d  |..MarkLine......|
00000b70  04 9c 04 0d 04 a6 15 dd  f2 47 6f 54 6f 4c 69 6e  |.........GoToLin|
00000b80  65 28 6c 69 6e 65 25 29  0d 04 b0 11 ea 65 24 2c  |e(line%).....e$,|
00000b90  69 25 2c 64 69 67 69 74  25 0d 04 ba 0f 65 24 3d  |i%,digit%....e$=|
00000ba0  c3 28 6c 69 6e 65 25 29  0d 04 c4 19 c8 99 22 4f  |.(line%)......"O|
00000bb0  53 5f 42 79 74 65 22 2c  31 35 33 2c 30 2c 26 38  |S_Byte",153,0,&8|
00000bc0  35 0d 04 ce 0f e3 69 25  3d 31 b8 a9 28 65 24 29  |5.....i%=1..(e$)|
00000bd0  0d 04 d8 17 64 69 67 69  74 25 3d 97 28 c1 65 24  |....digit%=.(.e$|
00000be0  2c 69 25 2c 31 29 29 0d  04 e2 1c c8 99 22 4f 53  |,i%,1))......"OS|
00000bf0  5f 42 79 74 65 22 2c 31  35 33 2c 30 2c 64 69 67  |_Byte",153,0,dig|
00000c00  69 74 25 0d 04 ec 05 ed  0d 04 f6 19 c8 99 22 4f  |it%..........."O|
00000c10  53 5f 42 79 74 65 22 2c  31 35 33 2c 30 2c 26 30  |S_Byte",153,0,&0|
00000c20  64 0d 05 00 05 e1 0d 05  0a 04 0d 05 14 0e dd f2  |d...............|
00000c30  4d 61 72 6b 4c 69 6e 65  0d 05 1e 19 c8 99 22 4f  |MarkLine......"O|
00000c40  53 5f 42 79 74 65 22 2c  31 35 33 2c 30 2c 26 39  |S_Byte",153,0,&9|
00000c50  36 0d 05 28 19 c8 99 22  4f 53 5f 42 79 74 65 22  |6..(..."OS_Byte"|
00000c60  2c 31 35 33 2c 30 2c 26  38 36 0d 05 32 19 c8 99  |,153,0,&86..2...|
00000c70  22 4f 53 5f 42 79 74 65  22 2c 31 35 33 2c 30 2c  |"OS_Byte",153,0,|
00000c80  26 38 45 0d 05 3c 19 c8  99 22 4f 53 5f 42 79 74  |&8E..<..."OS_Byt|
00000c90  65 22 2c 31 35 33 2c 30  2c 26 38 36 0d 05 46 19  |e",153,0,&86..F.|
00000ca0  c8 99 22 4f 53 5f 42 79  74 65 22 2c 31 35 33 2c  |.."OS_Byte",153,|
00000cb0  30 2c 26 38 46 0d 05 50  18 c8 99 20 22 48 6f 75  |0,&8F..P... "Hou|
00000cc0  72 67 6c 61 73 73 5f 53  6d 61 73 68 22 0d 05 5a  |rglass_Smash"..Z|
00000cd0  05 e1 0d 05 64 04 0d 05  6e 30 f4 20 2d 2d 2d 2d  |....d...n0. ----|
00000ce0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000d00  2d 2d 2d 2d 2d 2d 0d 05  78 04 0d 05 82 19 dd a4  |------..x.......|
00000d10  52 65 61 64 5f 56 61 72  69 61 62 6c 65 28 76 61  |Read_Variable(va|
00000d20  72 24 29 0d 05 8c 0f ea  6c 65 6e 25 2c 69 25 2c  |r$).....len%,i%,|
00000d30  66 24 0d 05 96 36 c8 99  22 58 4f 53 5f 52 65 61  |f$...6.."XOS_Rea|
00000d40  64 56 61 72 56 61 6c 22  2c 76 61 72 24 2c 77 69  |dVarVal",var$,wi|
00000d50  6d 70 25 2c 32 35 35 2c  2c 33 b8 2c 2c 6c 65 6e  |mp%,255,,3.,,len|
00000d60  25 3b 66 6c 61 67 73 25  0d 05 a0 0d c8 8e 66 6c  |%;flags%......fl|
00000d70  61 67 73 25 ca 0d 05 aa  0d c9 37 3a 20 66 24 3d  |ags%......7: f$=|
00000d80  22 22 0d 05 b4 05 7f 0d  05 be 09 66 24 3d 22 22  |"".........f$=""|
00000d90  0d 05 c8 10 e3 69 25 3d  30 b8 6c 65 6e 25 2d 31  |.....i%=0.len%-1|
00000da0  0d 05 d2 15 66 24 3d 66  24 2b bd 28 77 69 6d 70  |....f$=f$+.(wimp|
00000db0  25 3f 69 25 29 0d 05 dc  05 ed 0d 05 e6 05 cb 0d  |%?i%)...........|
00000dc0  05 f0 0b c8 8e c2 66 24  29 ca 0d 05 fa 10 c9 22  |......f$)......"|
00000dd0  20 22 3a 66 24 3d c0 66  24 29 0d 06 04 05 cb 0d  | ":f$=.f$)......|
00000de0  06 0e 07 3d 66 24 0d 06  18 04 0d 06 22 22 dd a4  |...=f$......""..|
00000df0  57 69 6d 70 5f 47 65 74  46 69 6c 65 46 72 6f 6d  |Wimp_GetFileFrom|
00000e00  50 61 74 68 6e 61 6d 65  28 66 24 29 0d 06 2c 10  |Pathname(f$)..,.|
00000e10  ea 69 25 2c 6a 25 2c 6b  25 2c 67 24 0d 06 36 14  |.i%,j%,k%,g$..6.|
00000e20  69 25 3d a7 66 24 2c 22  2e 22 29 3a 6a 25 3d 30  |i%=.f$,"."):j%=0|
00000e30  0d 06 40 09 c8 8e 69 25  ca 0d 06 4a 0c c9 30 3a  |..@...i%...J..0:|
00000e40  67 24 3d 66 24 0d 06 54  05 7f 0d 06 5e 27 f5 6b  |g$=f$..T....^'.k|
00000e50  25 3d 6a 25 3a 6a 25 3d  69 25 3a 69 25 3d a7 66  |%=j%:j%=i%:i%=.f|
00000e60  24 2c 22 2e 22 2c 69 25  2b 31 29 3a fd 69 25 3d  |$,".",i%+1):.i%=|
00000e70  30 0d 06 68 12 67 24 3d  c2 66 24 2c a9 66 24 2d  |0..h.g$=.f$,.f$-|
00000e80  6a 25 29 0d 06 72 05 cb  0d 06 7c 07 3d 67 24 0d  |j%)..r....|.=g$.|
00000e90  06 86 04 0d 06 90 1c dd  f2 57 69 6d 70 5f 53 65  |.........Wimp_Se|
00000ea0  6e 64 54 6f 45 64 69 74  28 66 69 6c 65 24 29 0d  |ndToEdit(file$).|
00000eb0  06 9a 08 ea 20 6e 25 0d  06 a4 15 77 69 6d 70 25  |.... n%....wimp%|
00000ec0  21 34 3d 26 36 43 43 30  31 43 30 43 0d 06 ae 0e  |!4=&6CC01C0C....|
00000ed0  77 69 6d 70 25 21 31 36  3d 35 0d 06 b8 0e 77 69  |wimp%!16=5....wi|
00000ee0  6d 70 25 21 33 36 3d 30  0d 06 c2 11 77 69 6d 70  |mp%!36=0....wimp|
00000ef0  25 21 34 30 3d 26 46 46  46 0d 06 cc 18 24 28 77  |%!40=&FFF....$(w|
00000f00  69 6d 70 25 2b 34 34 29  3d 66 69 6c 65 24 2b bd  |imp%+44)=file$+.|
00000f10  30 0d 06 d6 10 6e 25 3d  a9 66 69 6c 65 24 2b 34  |0....n%=.file$+4|
00000f20  35 0d 06 e0 2c e7 20 6e  25 83 34 20 8c 20 21 77  |5...,. n%.4 . !w|
00000f30  69 6d 70 25 3d 34 2b 28  6e 25 3e 3e 32 29 3c 3c  |imp%=4+(n%>>2)<<|
00000f40  32 20 8b 20 21 77 69 6d  70 25 3d 6e 25 0d 06 ea  |2 . !wimp%=n%...|
00000f50  24 c8 99 20 22 57 69 6d  70 5f 53 65 6e 64 4d 65  |$.. "Wimp_SendMe|
00000f60  73 73 61 67 65 22 2c 31  38 2c 77 69 6d 70 25 2c  |ssage",18,wimp%,|
00000f70  30 0d 06 f4 05 e1 0d 06  fe 04 0d 07 08 30 dd f2  |0............0..|
00000f80  57 69 6d 70 5f 49 63 6f  6e 50 75 74 54 65 78 74  |Wimp_IconPutText|
00000f90  28 77 69 6e 64 6f 77 25  2c 69 63 6f 6e 25 2c 74  |(window%,icon%,t|
00000fa0  65 78 74 24 2c 6c 65 6e  25 29 0d 07 12 16 74 65  |ext$,len%)....te|
00000fb0  78 74 24 3d c0 74 65 78  74 24 2c 6c 65 6e 25 29  |xt$=.text$,len%)|
00000fc0  0d 07 1c 21 77 69 6d 70  25 21 30 3d 77 69 6e 64  |...!wimp%!0=wind|
00000fd0  6f 77 25 3a 77 69 6d 70  25 21 34 3d 69 63 6f 6e  |ow%:wimp%!4=icon|
00000fe0  25 0d 07 26 20 c8 99 22  57 69 6d 70 5f 47 65 74  |%..& .."Wimp_Get|
00000ff0  49 63 6f 6e 53 74 61 74  65 22 2c 2c 77 69 6d 70  |IconState",,wimp|
00001000  25 0d 07 30 36 78 30 25  3d 77 69 6d 70 25 21 38  |%..06x0%=wimp%!8|
00001010  3a 79 30 25 3d 77 69 6d  70 25 21 31 32 3a 78 31  |:y0%=wimp%!12:x1|
00001020  25 3d 77 69 6d 70 25 21  31 36 3a 79 31 25 3d 77  |%=wimp%!16:y1%=w|
00001030  69 6d 70 25 21 32 30 0d  07 3a 32 e7 28 28 77 69  |imp%!20..:2.((wi|
00001040  6d 70 25 21 32 34 29 80  26 31 30 30 29 3d 30 85  |mp%!24).&100)=0.|
00001050  31 2c 22 49 63 6f 6e 20  69 73 6e 27 74 20 69 6e  |1,"Icon isn't in|
00001060  64 69 72 65 63 74 65 64  22 0d 07 44 15 24 28 77  |directed"..D.$(w|
00001070  69 6d 70 25 21 32 38 29  3d 74 65 78 74 24 0d 07  |imp%!28)=text$..|
00001080  4e 21 77 69 6d 70 25 21  30 3d 77 69 6e 64 6f 77  |N!wimp%!0=window|
00001090  25 3a 77 69 6d 70 25 21  34 3d 69 63 6f 6e 25 0d  |%:wimp%!4=icon%.|
000010a0  07 58 18 77 69 6d 70 25  21 38 3d 30 3a 77 69 6d  |.X.wimp%!8=0:wim|
000010b0  70 25 21 31 32 3d 30 0d  07 62 20 c8 99 22 57 69  |p%!12=0..b .."Wi|
000010c0  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
000010d0  2c 2c 77 69 6d 70 25 0d  07 6c 05 e1 0d 07 76 04  |,,wimp%..l....v.|
000010e0  0d 07 80 37 f4 20 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |...7. ==========|
000010f0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00001110  3d 3d 3d 3d 3d 3d 3d 0d  07 8a 04 0d 07 94 21 dd  |=======.......!.|
00001120  f2 57 69 6d 70 5f 41 6c  65 72 74 28 74 69 74 6c  |.Wimp_Alert(titl|
00001130  65 24 2c 6d 65 73 73 61  67 65 24 29 0d 07 9e 0d  |e$,message$)....|
00001140  77 69 6d 70 25 21 34 3d  9f 0d 07 a8 1a 24 28 77  |wimp%!4=.....$(w|
00001150  69 6d 70 25 2b 34 29 3d  6d 65 73 73 61 67 65 24  |imp%+4)=message$|
00001160  2b bd 30 0d 07 b2 27 c8  99 22 57 69 6d 70 5f 52  |+.0...'.."Wimp_R|
00001170  65 70 6f 72 74 45 72 72  6f 72 22 2c 77 69 6d 70  |eportError",wimp|
00001180  25 2c 31 2c 74 69 74 6c  65 24 0d 07 bc 05 e1 0d  |%,1,title$......|
00001190  07 c6 04 0d 07 d0 2c dd  a4 57 69 6d 70 5f 57 69  |......,..Wimp_Wi|
000011a0  6e 64 6f 77 4c 6f 61 64  46 72 6f 6d 28 77 69 6e  |ndowLoadFrom(win|
000011b0  64 6f 77 24 2c 74 65 6d  70 6c 61 74 65 24 29 0d  |dow$,template$).|
000011c0  07 da 0f 6d 65 6d 6f 72  79 25 3d 37 33 39 0d 07  |...memory%=739..|
000011d0  e4 12 de 69 63 6f 6e 73  25 6d 65 6d 6f 72 79 25  |...icons%memory%|
000011e0  0d 07 ee 24 c8 99 22 57  69 6d 70 5f 4f 70 65 6e  |...$.."Wimp_Open|
000011f0  54 65 6d 70 6c 61 74 65  22 2c 2c 74 65 6d 70 6c  |Template",,templ|
00001200  61 74 65 24 0d 07 f8 4c  c8 99 22 57 69 6d 70 5f  |ate$...L.."Wimp_|
00001210  4c 6f 61 64 54 65 6d 70  6c 61 74 65 22 2c 2c 77  |LoadTemplate",,w|
00001220  69 6d 70 25 2c 69 63 6f  6e 73 25 2c 69 63 6f 6e  |imp%,icons%,icon|
00001230  73 25 2b 6d 65 6d 6f 72  79 25 2c 2d 31 2c 77 69  |s%+memory%,-1,wi|
00001240  6e 64 6f 77 24 2c 30 b8  2c 2c 69 63 6f 6e 73 25  |ndow$,0.,,icons%|
00001250  0d 08 02 23 c8 99 22 57  69 6d 70 5f 43 72 65 61  |...#.."Wimp_Crea|
00001260  74 65 57 69 6e 64 6f 77  22 2c 2c 77 69 6d 70 25  |teWindow",,wimp%|
00001270  b8 63 25 0d 08 0c 1a c8  99 22 57 69 6d 70 5f 43  |.c%......"Wimp_C|
00001280  6c 6f 73 65 54 65 6d 70  6c 61 74 65 22 0d 08 16  |loseTemplate"...|
00001290  1e f2 57 69 6d 70 5f 57  69 6e 64 6f 77 42 72 69  |..Wimp_WindowBri|
000012a0  6e 67 54 6f 54 6f 70 28  63 25 29 0d 08 20 07 3d  |ngToTop(c%).. .=|
000012b0  63 25 0d 08 2a 04 0d 08  34 24 dd f2 57 69 6d 70  |c%..*...4$..Wimp|
000012c0  5f 57 69 6e 64 6f 77 42  72 69 6e 67 54 6f 54 6f  |_WindowBringToTo|
000012d0  70 28 77 69 6e 64 6f 77  25 29 0d 08 3e 12 21 77  |p(window%)..>.!w|
000012e0  69 6d 70 25 3d 77 69 6e  64 6f 77 25 0d 08 48 22  |imp%=window%..H"|
000012f0  c8 99 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |.."Wimp_GetWindo|
00001300  77 53 74 61 74 65 22 2c  2c 77 69 6d 70 25 0d 08  |wState",,wimp%..|
00001310  52 0f 77 69 6d 70 25 21  32 38 3d 2d 31 0d 08 5c  |R.wimp%!28=-1..\|
00001320  1e c8 99 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |..."Wimp_OpenWin|
00001330  64 6f 77 22 2c 2c 77 69  6d 70 25 0d 08 66 05 e1  |dow",,wimp%..f..|
00001340  0d 08 70 04 0d 08 7a 25  dd a4 57 69 6d 70 5f 47  |..p...z%..Wimp_G|
00001350  65 74 53 74 72 69 6e 67  41 74 41 64 64 72 65 73  |etStringAtAddres|
00001360  73 28 61 72 72 61 79 25  29 0d 08 84 0d ea 73 24  |s(array%).....s$|
00001370  3a 73 24 3d 22 22 0d 08  8e 3b c8 95 28 3f 61 72  |:s$=""...;..(?ar|
00001380  72 61 79 25 3c 3e 31 33  29 80 28 3f 61 72 72 61  |ray%<>13).(?arra|
00001390  79 25 3c 3e 30 29 3a 73  24 2b 3d bd 28 3f 61 72  |y%<>0):s$+=.(?ar|
000013a0  72 61 79 25 29 3a 61 72  72 61 79 25 2b 3d 31 3a  |ray%):array%+=1:|
000013b0  ce 0d 08 98 07 3d 73 24  0d 08 a2 2a dd f2 57 69  |.....=s$...*..Wi|
000013c0  6d 70 5f 49 63 6f 6e 43  61 72 65 74 28 77 69 6e  |mp_IconCaret(win|
000013d0  64 6f 77 25 2c 69 63 6f  6e 25 2c 63 68 61 72 73  |dow%,icon%,chars|
000013e0  25 29 0d 08 ac 37 c8 99  22 57 69 6d 70 5f 53 65  |%)...7.."Wimp_Se|
000013f0  74 43 61 72 65 74 50 6f  73 69 74 69 6f 6e 22 2c  |tCaretPosition",|
00001400  77 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 2c 2c 2c  |window%,icon%,,,|
00001410  2d 31 2c 63 68 61 72 73  25 0d 08 b6 05 e1 0d 08  |-1,chars%.......|
00001420  c0 13 dd f2 45 72 72 6f  72 28 65 72 72 6f 72 25  |....Error(error%|
00001430  29 0d 08 ca 07 ee 85 87  0d 08 d4 0d c8 8e 65 72  |).............er|
00001440  72 6f 72 25 ca 0d 08 de  4f c9 30 3a f2 57 69 6d  |ror%....O.0:.Wim|
00001450  70 5f 41 6c 65 72 74 28  22 54 68 72 6f 77 62 61  |p_Alert("Throwba|
00001460  63 6b 22 2c 22 46 61 74  61 6c 20 45 72 72 6f 72  |ck","Fatal Error|
00001470  20 69 6e 20 54 68 72 6f  77 62 61 63 6b 21 20 69  | in Throwback! i|
00001480  6e 74 65 72 6e 61 6c 20  63 6f 64 65 20 22 2b c3  |nternal code "+.|
00001490  9e 29 3a e0 0d 08 e8 37  c9 31 3a f2 57 69 6d 70  |.):....7.1:.Wimp|
000014a0  5f 41 6c 65 72 74 28 22  54 68 72 6f 77 62 61 63  |_Alert("Throwbac|
000014b0  6b 22 2c f6 24 2b 22 20  69 6e 74 65 72 6e 61 6c  |k",.$+" internal|
000014c0  20 63 6f 64 65 20 22 2b  c3 9e 29 0d 08 f2 05 cb  | code "+..).....|
000014d0  0d 08 fc 05 e1 0d 09 06  04 0d ff 00 c0 04 00 00  |................|
000014e0  45 f9 ff ff b3 b4 59 2e  84 04 00 00 03 00 00 00  |E.....Y.........|
000014f0  52 65 73 6f 75 72 63 65  73 2e 45 64 69 74 2e 21  |Resources.Edit.!|
00001500  54 68 72 6f 77 2e 21 53  70 72 69 74 65 73 00 00  |Throw.!Sprites..|
00001510  88 04 00 00 02 00 00 00  10 00 00 00 88 04 00 00  |................|
00001520  3c 02 00 00 72 61 64 69  6f 6f 66 66 00 00 00 00  |<...radiooff....|
00001530  02 00 00 00 15 00 00 00  00 00 00 00 17 00 00 00  |................|
00001540  2c 00 00 00 34 01 00 00  14 00 00 00 bb bb bb bb  |,...4...........|
00001550  bb bb bb bb bb bb bb 00  bb bb bb bb bb bb bb bb  |................|
00001560  bb bb bb 00 bb bb bb 1b  10 11 22 bb bb bb bb 00  |..........".....|
00001570  bb bb bb 00 10 11 22 33  bb bb bb 00 bb bb 0b 00  |......"3........|
00001580  11 11 11 33 23 bb bb 00  bb bb 00 10 11 11 11 21  |...3#..........!|
00001590  44 bb bb 00 bb 0b 00 11  11 11 11 11 42 b4 bb 00  |D...........B...|
000015a0  bb 01 10 11 11 11 11 11  31 25 bb 00 bb 00 11 11  |........1%......|
000015b0  11 11 11 11 21 45 bb 00  bb 11 11 11 11 11 11 11  |....!E..........|
000015c0  11 55 bb 00 bb 11 11 11  11 11 11 11 11 65 bb 00  |.U...........e..|
000015d0  bb 12 11 11 11 11 11 11  11 65 bb 00 bb 22 11 11  |.........e..."..|
000015e0  11 11 11 11 11 56 bb 00  bb 32 11 11 11 11 11 11  |.....V...2......|
000015f0  31 46 bb 00 bb 3b 13 11  11 11 11 11 51 27 bb 00  |1F...;......Q'..|
00001600  bb 3b 23 11 11 11 11 11  74 b5 bb 00 bb bb 43 12  |.;#.....t.....C.|
00001610  11 11 11 41 77 bb bb 00  bb bb 4b 34 12 11 32 75  |...Aw.....K4..2u|
00001620  b7 bb bb 00 bb bb bb 54  55 55 66 57 bb bb bb 00  |.......TUUfW....|
00001630  bb bb bb 2b 54 66 45 b2  bb bb bb 00 bb bb bb bb  |...+TfE.........|
00001640  bb bb bb bb bb bb bb 00  bb bb bb bb bb bb bb bb  |................|
00001650  bb bb bb 00 00 00 00 00  00 00 00 00 00 00 00 ff  |................|
00001660  00 00 00 00 00 00 00 00  00 00 00 ff 00 00 00 f0  |................|
00001670  ff ff ff 00 00 00 00 ff  00 00 00 ff ff ff ff ff  |................|
00001680  00 00 00 ff 00 00 f0 ff  ff ff ff ff ff 00 00 ff  |................|
00001690  00 00 ff ff ff ff ff ff  ff 00 00 ff 00 f0 ff ff  |................|
000016a0  ff ff ff ff ff 0f 00 ff  00 ff ff ff ff ff ff ff  |................|
000016b0  ff ff 00 ff 00 ff ff ff  ff ff ff ff ff ff 00 ff  |................|
000016c0  00 ff ff ff ff ff ff ff  ff ff 00 ff 00 ff ff ff  |................|
000016d0  ff ff ff ff ff ff 00 ff  00 ff ff ff ff ff ff ff  |................|
000016e0  ff ff 00 ff 00 ff ff ff  ff ff ff ff ff ff 00 ff  |................|
000016f0  00 ff ff ff ff ff ff ff  ff ff 00 ff 00 f0 ff ff  |................|
00001700  ff ff ff ff ff ff 00 ff  00 f0 ff ff ff ff ff ff  |................|
00001710  ff 0f 00 ff 00 00 ff ff  ff ff ff ff ff 00 00 ff  |................|
00001720  00 00 f0 ff ff ff ff ff  0f 00 00 ff 00 00 00 ff  |................|
00001730  ff ff ff ff 00 00 00 ff  00 00 00 f0 ff ff ff 0f  |................|
00001740  00 00 00 ff 00 00 00 00  00 00 00 00 00 00 00 ff  |................|
00001750  00 00 00 00 00 00 00 00  00 00 00 ff 3c 02 00 00  |............<...|
00001760  72 61 64 69 6f 6f 6e 00  00 00 00 00 02 00 00 00  |radioon.........|
00001770  15 00 00 00 00 00 00 00  17 00 00 00 2c 00 00 00  |............,...|
00001780  34 01 00 00 14 00 00 00  bb bb bb bb bb bb bb bb  |4...............|
00001790  bb bb bb 00 bb bb bb bb  bb bb bb bb bb bb bb 00  |................|
000017a0  bb bb bb 2b 54 66 45 b2  bb bb bb 00 bb bb bb 75  |...+TfE........u|
000017b0  66 55 55 45 bb bb bb 00  bb bb 7b 57 23 11 21 43  |fUUE......{W#.!C|
000017c0  b4 bb bb 00 bb bb 77 14  11 11 11 21 34 bb bb 00  |......w....!4...|
000017d0  bb 5b 47 11 53 77 35 11  32 b3 bb 00 bb 72 15 51  |.[G.Sw5.2....r.Q|
000017e0  77 77 77 15 31 b3 bb 00  bb 64 13 73 77 77 77 37  |www.1....d.swww7|
000017f0  11 23 bb 00 bb 65 11 75  77 77 77 57 11 22 bb 00  |.#...e.uwwwW."..|
00001800  bb 56 11 77 77 77 77 77  11 21 bb 00 bb 56 11 77  |.V.wwwww.!...V.w|
00001810  77 77 77 77 11 11 bb 00  bb 55 11 75 77 77 77 57  |wwww.....U.uwwwW|
00001820  11 11 bb 00 bb 54 12 73  77 77 77 37 11 00 bb 00  |.....T.swww7....|
00001830  bb 52 13 51 77 77 77 15  01 10 bb 00 bb 4b 24 11  |.R.Qwww......K$.|
00001840  53 77 35 11 00 b0 bb 00  bb bb 44 12 11 11 11 01  |Sw5.......D.....|
00001850  00 bb bb 00 bb bb 32 33  11 11 11 00 b0 bb bb 00  |......23........|
00001860  bb bb bb 33 22 11 01 00  bb bb bb 00 bb bb bb bb  |...3"...........|
00001870  22 11 01 b1 bb bb bb 00  bb bb bb bb bb bb bb bb  |"...............|
00001880  bb bb bb 00 bb bb bb bb  bb bb bb bb bb bb bb ff  |................|
00001890  00 00 00 00 00 00 00 00  00 00 00 ff 00 00 00 00  |................|
000018a0  00 00 00 00 00 00 00 ff  00 00 00 f0 ff ff ff 0f  |................|
000018b0  00 00 00 ff 00 00 00 ff  ff ff ff ff 00 00 00 ff  |................|
000018c0  00 00 f0 ff ff ff ff ff  0f 00 00 ff 00 00 ff ff  |................|
000018d0  ff ff ff ff ff 00 00 ff  00 f0 ff ff ff ff ff ff  |................|
000018e0  ff 0f 00 ff 00 ff ff ff  ff ff ff ff ff 0f 00 ff  |................|
000018f0  00 ff ff ff ff ff ff ff  ff ff 00 ff 00 ff ff ff  |................|
00001900  ff ff ff ff ff ff 00 ff  00 ff ff ff ff ff ff ff  |................|
00001910  ff ff 00 ff 00 ff ff ff  ff ff ff ff ff ff 00 ff  |................|
00001920  00 ff ff ff ff ff ff ff  ff ff 00 ff 00 ff ff ff  |................|
00001930  ff ff ff ff ff ff 00 ff  00 ff ff ff ff ff ff ff  |................|
00001940  ff ff 00 ff 00 f0 ff ff  ff ff ff ff ff 0f 00 ff  |................|
00001950  00 00 ff ff ff ff ff ff  ff 00 00 ff 00 00 ff ff  |................|
00001960  ff ff ff ff 0f 00 00 ff  00 00 00 ff ff ff ff ff  |................|
00001970  00 00 00 ff 00 00 00 00  ff ff ff 0f 00 00 00 ff  |................|
00001980  00 00 00 00 00 00 00 00  00 00 00 ff 00 00 00 00  |................|
00001990  00 00 00 00 00 00 00 3c  00 00 00 00 54 03 00 00  |.......<....T...|
000019a0  45 ec ff ff c9 66 63 2e  1b 03 00 00 03 00 00 00  |E....fc.........|
000019b0  52 65 73 6f 75 72 63 65  73 2e 45 64 69 74 2e 21  |Resources.Edit.!|
000019c0  54 68 72 6f 77 2e 54 65  6d 70 6c 61 74 65 00 00  |Throw.Template..|
000019d0  1f 03 00 00 ff ff ff ff  00 00 00 00 00 00 00 00  |................|
000019e0  00 00 00 00 2c 00 00 00  ef 02 00 00 01 00 00 00  |....,...........|
000019f0  4d 61 69 6e 0d 00 00 00  00 00 00 00 00 00 00 00  |Main............|
00001a00  2a 03 00 00 5a 02 00 00  0c 06 00 00 7a 04 00 00  |*...Z.......z...|
00001a10  00 00 00 00 00 00 00 00  45 9f 86 01 12 00 07 ff  |........E.......|
00001a20  07 02 07 01 03 01 0c 00  00 00 00 00 e0 fd ff ff  |................|
00001a30  e2 02 00 00 00 00 00 00  09 01 00 00 00 00 00 00  |................|
00001a40  01 00 00 00 00 00 00 00  b8 01 00 00 ff ff ff ff  |................|
00001a50  17 00 00 00 0b 00 00 00  08 00 00 00 e4 fd ff ff  |................|
00001a60  d4 02 00 00 d0 ff ff ff  3d 01 00 17 c8 01 00 00  |........=.......|
00001a70  c9 01 00 00 0c 00 00 00  1c 00 00 00 fe fd ff ff  |................|
00001a80  aa 01 00 00 ac fe ff ff  3d 61 00 17 cc 01 00 00  |........=a......|
00001a90  cd 01 00 00 0c 00 00 00  1e 00 00 00 d0 fe ff ff  |................|
00001aa0  aa 02 00 00 78 ff ff ff  3d 01 00 1b d0 01 00 00  |....x...=.......|
00001ab0  de 01 00 00 64 00 00 00  26 00 00 00 92 ff ff ff  |....d...&.......|
00001ac0  9e 00 00 00 f8 ff ff ff  3d 01 00 17 e3 01 00 00  |........=.......|
00001ad0  e4 01 00 00 01 00 00 00  c4 01 00 00 32 fe ff ff  |............2...|
00001ae0  ae 02 00 00 7e fe ff ff  3d 61 00 17 e7 01 00 00  |....~...=a......|
00001af0  f1 01 00 00 0c 00 00 00  cc 00 00 00 ac ff ff ff  |................|
00001b00  96 02 00 00 ec ff ff ff  3d 01 00 27 f4 01 00 00  |........=..'....|
00001b10  0b 02 00 00 1a 00 00 00  54 00 00 00 56 ff ff ff  |........T...V...|
00001b20  80 02 00 00 88 ff ff ff  3d 05 00 17 0e 02 00 00  |........=.......|
00001b30  1c 02 00 00 ff 00 00 00  2c 00 00 00 54 fe ff ff  |........,...T...|
00001b40  80 01 00 00 90 fe ff ff  13 b1 21 17 1f 02 00 00  |..........!.....|
00001b50  32 02 00 00 22 00 00 00  2c 00 00 00 14 fe ff ff  |2..."...,.......|
00001b60  7a 01 00 00 4e fe ff ff  13 b1 01 17 77 02 00 00  |z...N.......w...|
00001b70  89 02 00 00 22 00 00 00  3a 00 00 00 98 ff ff ff  |...."...:.......|
00001b80  8c 00 00 00 f4 ff ff ff  1a 01 00 17 ce 02 00 00  |................|
00001b90  01 00 00 00 0c 00 00 00  32 00 00 00 96 fe ff ff  |........2.......|
00001ba0  98 01 00 00 c6 fe ff ff  3d 65 00 17 d7 02 00 00  |........=e......|
00001bb0  ec 02 00 00 15 00 00 00  45 72 72 6f 72 20 54 68  |........Error Th|
00001bc0  72 6f 77 42 61 63 6b 0d  0d 52 33 0d 0d 52 33 0d  |rowBack..R3..R3.|
00001bd0  45 72 72 6f 72 20 6d 65  73 73 61 67 65 0d 52 34  |Error message.R4|
00001be0  3b 4c 0d 0d 52 34 0d 54  68 72 6f 77 62 61 63 6b  |;L..R4.Throwback|
00001bf0  0d 72 36 0d 22 21 42 61  73 69 63 46 69 6c 65 2e  |.r6."!BasicFile.|
00001c00  21 52 75 6e 49 6d 61 67  65 22 0d 52 32 0d 45 72  |!RunImage".R2.Er|
00001c10  72 6f 72 20 61 74 20 6c  69 6e 65 0d 52 31 0d 6e  |ror at line.R1.n|
00001c20  6f 72 6d 61 6c 20 28 31  30 2c 32 30 2c 2e 2e 2e  |ormal (10,20,...|
00001c30  29 0d 53 72 61 64 69 6f  6f 66 66 2c 72 61 64 69  |).Sradiooff,radi|
00001c40  6f 6f 6e 3b 55 31 2c 31  39 2c 32 30 2c 32 31 2c  |oon;U1,19,20,21,|
00001c50  32 32 3b 52 30 2c 31 38  3b 52 31 2c 32 35 3b 55  |22;R0,18;R1,25;U|
00001c60  30 2c 32 36 2c 32 37 2c  32 38 2c 32 39 2c 33 30  |0,26,27,28,29,30|
00001c70  2c 33 31 2c 33 32 0d 6c  6f 67 69 63 61 6c 20 28  |,31,32.logical (|
00001c80  31 2c 32 2c 2e 2e 2e 29  0d 53 72 61 64 69 6f 6f  |1,2,...).Sradioo|
00001c90  66 66 2c 72 61 64 69 6f  6f 6e 3b 55 30 2c 31 39  |ff,radioon;U0,19|
00001ca0  2c 32 30 2c 32 31 2c 32  32 3b 52 30 2c 32 35 3b  |,20,21,22;R0,25;|
00001cb0  52 31 2c 31 38 3b 55 31  2c 32 36 2c 32 37 2c 32  |R1,18;U1,26,27,2|
00001cc0  38 2c 32 39 2c 33 30 2c  33 31 2c 33 32 0d 66 69  |8,29,30,31,32.fi|
00001cd0  6c 65 5f 66 66 62 0d 50  72 6f 67 72 61 6d 20 6c  |le_ffb.Program l|
00001ce0  69 6e 65 20 6e 75 6d 62  65 72 73 0d 72 31 0d 00  |ine numbers.r1..|
00001cf0  18 08 00 00 45 fb ff ff  1c b0 33 97 e6 07 00 00  |....E.....3.....|
00001d00  03 00 00 00 52 65 73 6f  75 72 63 65 73 2e 45 64  |....Resources.Ed|
00001d10  69 74 2e 43 6f 6e 76 65  72 74 00 00 ea 07 00 00  |it.Convert......|
00001d20  0d 00 01 11 ee 20 85 20  f2 45 72 72 6f 72 28 30  |..... . .Error(0|
00001d30  29 0d 00 02 13 de 20 76  61 72 69 61 62 6c 65 25  |)..... variable%|
00001d40  20 35 31 32 0d 00 03 13  f2 43 68 65 63 6b 57 69  | 512.....CheckWi|
00001d50  6d 70 53 63 72 61 70 0d  00 04 11 f2 43 68 65 63  |mpScrap.....Chec|
00001d60  6b 50 72 65 6c 75 64 65  0d 00 05 15 f2 43 68 65  |kPrelude.....Che|
00001d70  63 6b 50 72 6f 67 72 61  6d 46 69 6c 65 0d 00 06  |ckProgramFile...|
00001d80  19 f2 53 74 61 72 74 42  75 69 6c 64 69 6e 67 50  |..StartBuildingP|
00001d90  72 6f 67 72 61 6d 0d 00  07 0f f2 41 64 64 50 72  |rogram.....AddPr|
00001da0  65 6c 75 64 65 0d 00 08  0f f2 41 64 64 50 72 6f  |elude.....AddPro|
00001db0  67 72 61 6d 0d 00 09 0f  f2 52 75 6e 50 72 6f 67  |gram.....RunProg|
00001dc0  72 61 6d 0d 00 0a 05 e0  0d 00 0b 04 0d 00 0c 15  |ram.............|
00001dd0  dd 20 f2 43 68 65 63 6b  57 69 6d 70 53 63 72 61  |. .CheckWimpScra|
00001de0  70 0d 00 0d 07 ea 20 85  0d 00 0e 11 ee 20 85 20  |p..... ...... . |
00001df0  f2 45 72 72 6f 72 28 32  29 0d 00 0f 2e c8 99 20  |.Error(2)...... |
00001e00  22 58 4f 53 5f 46 69 6c  65 22 2c 31 33 2c 22 44  |"XOS_File",13,"D|
00001e10  72 61 77 42 61 73 69 63  3a 44 72 61 77 22 20 b8  |rawBasic:Draw" .|
00001e20  20 66 6f 75 6e 64 25 0d  00 10 31 e7 20 66 6f 75  | found%...1. fou|
00001e30  6e 64 25 3c 3e 32 20 8c  20 c8 99 20 22 4f 53 5f  |nd%<>2 . .. "OS_|
00001e40  46 69 6c 65 22 2c 38 2c  22 44 72 61 77 42 61 73  |File",8,"DrawBas|
00001e50  69 63 3a 44 72 61 77 22  0d 00 11 33 c8 99 20 22  |ic:Draw"...3.. "|
00001e60  58 4f 53 5f 46 69 6c 65  22 2c 31 33 2c 22 44 72  |XOS_File",13,"Dr|
00001e70  61 77 42 61 73 69 63 3a  44 72 61 77 2e 46 69 6c  |awBasic:Draw.Fil|
00001e80  65 22 20 b8 20 66 6f 75  6e 64 25 0d 00 12 3e e7  |e" . found%...>.|
00001e90  20 66 6f 75 6e 64 25 3c  3e 31 20 c8 99 20 22 4f  | found%<>1 .. "O|
00001ea0  53 5f 46 69 6c 65 22 2c  31 31 2c 22 44 72 61 77  |S_File",11,"Draw|
00001eb0  42 61 73 69 63 3a 44 72  61 77 2e 46 69 6c 65 22  |Basic:Draw.File"|
00001ec0  2c 26 41 46 46 2c 30 2c  30 0d 00 13 07 f7 20 85  |,&AFF,0,0..... .|
00001ed0  0d 00 14 05 e1 0d 00 15  04 0d 00 16 04 0d 00 17  |................|
00001ee0  13 dd 20 f2 43 68 65 63  6b 50 72 65 6c 75 64 65  |.. .CheckPrelude|
00001ef0  0d 00 18 40 c8 99 20 22  58 4f 53 5f 46 69 6c 65  |...@.. "XOS_File|
00001f00  22 2c 31 33 2c 22 3c 44  72 61 77 42 61 73 69 63  |",13,"<DrawBasic|
00001f10  24 4f 70 74 69 6f 6e 73  3e 22 20 20 b8 20 66 6f  |$Options>"  . fo|
00001f20  75 6e 64 25 2c 2c 2c 2c  70 72 65 6c 75 64 65 25  |und%,,,,prelude%|
00001f30  0d 00 19 1b e7 20 66 6f  75 6e 64 25 3c 3e 31 20  |..... found%<>1 |
00001f40  8c 20 f2 45 72 72 6f 72  28 33 29 0d 00 1a 05 e1  |. .Error(3).....|
00001f50  0d 00 1b 04 0d 00 1c 17  dd 20 f2 43 68 65 63 6b  |......... .Check|
00001f60  50 72 6f 67 72 61 6d 46  69 6c 65 0d 00 1d 3d c8  |ProgramFile...=.|
00001f70  99 20 22 58 4f 53 5f 46  69 6c 65 22 2c 31 33 2c  |. "XOS_File",13,|
00001f80  22 3c 54 68 72 6f 77 62  61 63 6b 24 46 69 6c 65  |"<Throwback$File|
00001f90  3e 22 20 20 b8 20 66 6f  75 6e 64 25 2c 2c 2c 2c  |>"  . found%,,,,|
00001fa0  70 72 6f 67 72 61 6d 25  0d 00 1e 1b e7 20 66 6f  |program%..... fo|
00001fb0  75 6e 64 25 3c 3e 31 20  8c 20 f2 45 72 72 6f 72  |und%<>1 . .Error|
00001fc0  28 34 29 0d 00 1f 05 e1  0d 00 20 04 0d 00 21 1b  |(4)....... ...!.|
00001fd0  dd 20 f2 53 74 61 72 74  42 75 69 6c 64 69 6e 67  |. .StartBuilding|
00001fe0  50 72 6f 67 72 61 6d 0d  00 22 24 20 de 20 66 69  |Program.."$ . fi|
00001ff0  6c 65 25 20 34 2a 32 35  36 2b 70 72 65 6c 75 64  |le% 4*256+prelud|
00002000  65 25 2b 70 72 6f 67 72  61 6d 25 0d 00 23 0f 20  |e%+program%..#. |
00002010  70 74 72 25 3d 66 69 6c  65 25 0d 00 24 41 20 f2  |ptr%=file%..$A .|
00002020  41 64 64 28 22 4f 4e 20  45 52 52 4f 52 20 4f 4e  |Add("ON ERROR ON|
00002030  20 45 52 52 4f 52 20 4f  46 46 20 3a 20 43 48 41  | ERROR OFF : CHA|
00002040  49 4e 20 22 2b 22 22 22  54 68 72 6f 77 42 61 63  |IN "+"""ThrowBac|
00002050  6b 3a 45 72 72 6f 72 22  22 22 29 0d 00 25 2b 20  |k:Error""")..%+ |
00002060  f2 41 64 64 28 22 4c 49  42 52 41 52 59 20 22 2b  |.Add("LIBRARY "+|
00002070  22 22 22 44 72 61 77 42  61 73 69 63 3a 55 74 69  |"""DrawBasic:Uti|
00002080  6c 73 22 22 22 29 0d 00  26 1d 20 f2 41 64 64 28  |ls""")..&. .Add(|
00002090  22 48 49 4d 45 4d 3d 46  4e 46 72 65 65 53 6c 6f  |"HIMEM=FNFreeSlo|
000020a0  74 22 29 0d 00 27 1d 20  f2 41 64 64 28 22 50 52  |t")..'. .Add("PR|
000020b0  4f 43 42 65 67 69 6e 44  72 61 77 69 6e 67 22 29  |OCBeginDrawing")|
000020c0  0d 00 28 05 e1 0d 00 29  04 0d 00 2a 11 dd 20 f2  |..(....)...*.. .|
000020d0  41 64 64 50 72 65 6c 75  64 65 0d 00 2b 2f 20 c8  |AddPrelude..+/ .|
000020e0  99 20 22 4f 53 5f 46 69  6c 65 22 2c 31 32 2c 22  |. "OS_File",12,"|
000020f0  3c 44 72 61 77 42 61 73  69 63 24 4f 70 74 69 6f  |<DrawBasic$Optio|
00002100  6e 73 3e 22 2c 70 74 72  25 0d 00 2c 18 20 f2 54  |ns>",ptr%..,. .T|
00002110  6f 6b 65 6e 69 73 65 28  70 72 65 6c 75 64 65 25  |okenise(prelude%|
00002120  29 0d 00 2d 2b 20 ff 28  22 53 65 74 20 54 68 72  |)..-+ .("Set Thr|
00002130  6f 77 42 61 63 6b 24 4f  70 74 69 6f 6e 73 20 22  |owBack$Options "|
00002140  2b c3 28 6c 69 6e 65 25  2b 34 29 29 0d 00 2e 05  |+.(line%+4))....|
00002150  e1 0d 00 2f 04 0d 00 30  11 dd 20 f2 41 64 64 50  |.../...0.. .AddP|
00002160  72 6f 67 72 61 6d 0d 00  31 2d 20 c8 99 20 22 4f  |rogram..1- .. "O|
00002170  53 5f 46 69 6c 65 22 2c  31 32 2c 22 3c 54 68 72  |S_File",12,"<Thr|
00002180  6f 77 42 61 63 6b 24 46  69 6c 65 3e 22 2c 70 74  |owBack$File>",pt|
00002190  72 25 20 0d 00 32 18 20  f2 54 6f 6b 65 6e 69 73  |r% ..2. .Tokenis|
000021a0  65 28 70 72 6f 67 72 61  6d 25 29 0d 00 33 05 e1  |e(program%)..3..|
000021b0  0d 00 34 04 0d 00 35 11  dd 20 f2 52 75 6e 50 72  |..4...5.. .RunPr|
000021c0  6f 67 72 61 6d 0d 00 36  17 70 74 72 25 3f 30 3d  |ogram..6.ptr%?0=|
000021d0  31 33 20 3a 20 70 74 72  25 2b 3d 31 0d 00 37 35  |13 : ptr%+=1..75|
000021e0  ff 28 22 53 61 76 65 20  44 72 61 77 42 61 73 69  |.("Save DrawBasi|
000021f0  63 3a 44 72 61 77 2e 46  69 6c 65 20 22 2b c3 7e  |c:Draw.File "+.~|
00002200  66 69 6c 65 25 2b 22 20  22 2b c3 7e 70 74 72 25  |file%+" "+.~ptr%|
00002210  29 0d 00 38 26 2a 53 65  74 54 79 70 65 20 44 72  |)..8&*SetType Dr|
00002220  61 77 42 61 73 69 63 3a  44 72 61 77 2e 46 69 6c  |awBasic:Draw.Fil|
00002230  65 20 42 61 73 69 63 0d  00 39 22 2a 46 69 6c 65  |e Basic..9"*File|
00002240  72 5f 52 75 6e 20 44 72  61 77 42 61 73 69 63 3a  |r_Run DrawBasic:|
00002250  44 72 61 77 2e 46 69 6c  65 0d 00 3a 05 e1 0d 00  |Draw.File..:....|
00002260  3b 04 0d 00 3c 4f f4 20  2d 2d 2d 2d 2d 2d 2d 2d  |;...<O. --------|
00002270  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000022b0  2d 0d 00 3d 04 0d 00 3e  04 0d 00 3f 0e dd 20 f2  |-..=...>...?.. .|
000022c0  41 64 64 28 78 24 29 0d  00 40 1e 24 70 74 72 25  |Add(x$)..@.$ptr%|
000022d0  3d 78 24 2b bd 31 33 20  3a 20 70 74 72 25 2b 3d  |=x$+.13 : ptr%+=|
000022e0  a9 78 24 2b 31 0d 00 41  05 e1 0d 00 42 04 0d 00  |.x$+1..A....B...|
000022f0  43 18 dd 20 f2 54 6f 6b  65 6e 69 73 65 28 6c 65  |C.. .Tokenise(le|
00002300  6e 67 74 68 25 29 0d 00  44 0c 20 6c 69 6e 65 25  |ngth%)..D. line%|
00002310  3d 30 0d 00 45 16 20 65  6e 64 25 3d 70 74 72 25  |=0..E. end%=ptr%|
00002320  2b 6c 65 6e 67 74 68 25  0d 00 46 11 20 c8 95 20  |+length%..F. .. |
00002330  70 74 72 25 3c 65 6e 64  25 0d 00 47 11 20 20 c8  |ptr%<end%..G.  .|
00002340  8e 20 70 74 72 25 3f 30  20 ca 0d 00 48 24 20 20  |. ptr%?0 ...H$  |
00002350  20 c9 20 31 30 2c 31 33  3a 20 6c 69 6e 65 25 2b  | . 10,13: line%+|
00002360  3d 31 20 3a 20 70 74 72  25 3f 30 3d 31 33 0d 00  |=1 : ptr%?0=13..|
00002370  49 1a 20 20 20 c9 20 31  36 30 20 20 3a 20 70 74  |I.   . 160  : pt|
00002380  72 25 3f 30 3d 26 46 32  0d 00 4a 1a 20 20 20 c9  |r%?0=&F2..J.   .|
00002390  20 31 38 37 20 20 3a 20  70 74 72 25 3f 30 3d 26  | 187  : ptr%?0=&|
000023a0  41 34 0d 00 4b 07 20 20  cb 0d 00 4c 0d 20 20 70  |A4..K.  ...L.  p|
000023b0  74 72 25 2b 3d 31 0d 00  4d 06 20 ce 0d 00 4e 05  |tr%+=1..M. ...N.|
000023c0  e1 0d 00 4f 04 0d 00 50  14 dd 20 f2 45 72 72 6f  |...O...P.. .Erro|
000023d0  72 28 65 72 72 6f 72 25  29 0d 00 51 09 ee 20 85  |r(error%)..Q.. .|
000023e0  20 87 0d 00 52 0f c8 8e  20 65 72 72 6f 72 25 20  | ...R... error% |
000023f0  ca 0d 00 53 27 20 20 20  20 20 20 20 20 20 20 20  |...S'           |
00002400  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002410  20 20 20 20 20 20 20 20  0d 00 54 08 20 c9 20 30  |        ..T. . 0|
00002420  0d 00 55 2a 20 20 f1 20  22 45 72 72 6f 72 20 69  |..U*  . "Error i|
00002430  6e 20 43 6f 6e 76 65 72  74 20 22 2b f6 24 3b 22  |n Convert "+.$;"|
00002440  61 74 20 6c 69 6e 65 22  3b 9e 0d 00 56 08 20 c9  |at line";...V. .|
00002450  20 32 0d 00 57 3e 20 20  85 20 30 2c 20 22 44 72  | 2..W>  . 0, "Dr|
00002460  61 77 42 61 73 69 63 20  72 65 71 75 69 72 65 73  |awBasic requires|
00002470  20 61 20 44 72 61 77 20  73 63 72 61 70 20 64 69  | a Draw scrap di|
00002480  72 65 63 74 6f 72 79 20  74 6f 20 77 6f 72 6b 22  |rectory to work"|
00002490  0d 00 58 08 20 c9 20 33  0d 00 59 36 20 20 20 85  |..X. . 3..Y6   .|
000024a0  20 30 2c 22 44 72 61 77  42 61 73 69 63 20 72 65  | 0,"DrawBasic re|
000024b0  71 75 69 72 65 73 20 61  20 27 73 65 74 75 70 27  |quires a 'setup'|
000024c0  20 66 69 6c 65 20 74 6f  20 77 6f 72 6b 22 0d 00  | file to work"..|
000024d0  5a 08 20 c9 20 34 0d 00  5b 24 20 20 20 85 20 30  |Z. . 4..[$   . 0|
000024e0  2c 22 50 72 6f 67 72 61  6d 20 66 69 6c 65 20 6e  |,"Program file n|
000024f0  6f 74 20 66 6f 75 6e 64  21 22 0d 00 5c 05 cb 0d  |ot found!"..\...|
00002500  00 5d 05 e0 0d ff 00 00  44 02 00 00 45 fb ff ff  |.]......D...E...|
00002510  ae 55 d8 8d 10 02 00 00  03 00 00 00 52 65 73 6f  |.U..........Reso|
00002520  75 72 63 65 73 2e 45 64  69 74 2e 45 72 72 6f 72  |urces.Edit.Error|
00002530  00 00 00 00 14 02 00 00  0d 00 01 10 f4 20 3e 54  |............. >T|
00002540  68 72 6f 77 62 61 63 6b  0d 00 02 07 78 3d 9f 0d  |hrowback....x=..|
00002550  00 03 0c e7 20 78 3d 31  37 20 8c 0d 00 04 1a 20  |.... x=17 ..... |
00002560  2a 55 6e 53 65 74 20 54  68 72 6f 77 42 61 63 6b  |*UnSet ThrowBack|
00002570  24 46 69 6c 65 0d 00 05  06 20 fa 0d 00 06 05 cc  |$File.... ......|
00002580  0d 00 07 0e 20 65 72 72  6f 72 24 3d f6 24 0d 00  |.... error$=.$..|
00002590  08 11 20 e7 20 a4 4c 69  62 72 61 72 79 20 8c 0d  |.. . .Library ..|
000025a0  00 09 23 20 20 66 69 6c  65 24 3d c0 c2 65 72 72  |..#  file$=..err|
000025b0  6f 72 24 2c a9 65 72 72  6f 72 24 2d 69 25 2d 34  |or$,.error$-i%-4|
000025c0  29 29 0d 00 0a 18 20 20  65 72 72 6f 72 24 3d c0  |))....  error$=.|
000025d0  65 72 72 6f 72 24 2c 69  25 29 0d 00 0b 24 20 20  |error$,i%)...$  |
000025e0  ff 28 22 53 65 74 20 54  68 72 6f 77 42 61 63 6b  |.("Set ThrowBack|
000025f0  24 46 69 6c 65 20 22 2b  66 69 6c 65 24 29 0d 00  |$File "+file$)..|
00002600  0c 27 20 20 ff 28 22 53  65 74 20 54 68 72 6f 77  |.'  .("Set Throw|
00002610  42 61 63 6b 24 52 65 70  6f 72 74 20 22 2b 65 72  |Back$Report "+er|
00002620  72 6f 72 24 29 0d 00 0d  20 20 20 ff 28 22 53 65  |ror$)...   .("Se|
00002630  74 20 54 68 72 6f 77 42  61 63 6b 24 45 52 4c 20  |t ThrowBack$ERL |
00002640  22 2b c3 9e 29 0d 00 0e  06 20 cc 0d 00 0f 27 20  |"+..).... ....' |
00002650  20 ff 28 22 53 65 74 20  54 68 72 6f 77 62 61 63  | .("Set Throwbac|
00002660  6b 24 52 65 70 6f 72 74  20 22 2b 65 72 72 6f 72  |k$Report "+error|
00002670  24 29 0d 00 10 20 20 20  ff 28 22 53 65 74 20 54  |$)...   .("Set T|
00002680  68 72 6f 77 62 61 63 6b  24 45 52 4c 20 22 2b c3  |hrowback$ERL "+.|
00002690  9e 29 0d 00 11 45 20 20  2a 69 66 20 22 3c 54 68  |.)...E  *if "<Th|
000026a0  72 6f 77 42 61 63 6b 24  46 69 6c 65 3e 22 3d 22  |rowBack$File>"="|
000026b0  22 20 54 48 45 4e 20 2a  53 65 74 20 54 68 72 6f  |" THEN *Set Thro|
000026c0  77 42 61 63 6b 24 46 69  6c 65 20 3c 42 61 73 69  |wBack$File <Basi|
000026d0  63 24 46 69 6c 65 3e 0d  00 12 06 20 cd 0d 00 13  |c$File>.... ....|
000026e0  1a 20 2a 52 75 6e 20 54  68 72 6f 77 42 61 63 6b  |. *Run ThrowBack|
000026f0  3a 21 54 68 72 6f 77 0d  00 14 05 cd 0d 00 15 05  |:!Throw.........|
00002700  e0 0d 00 16 04 0d 00 17  0e dd 20 a4 4c 69 62 72  |.......... .Libr|
00002710  61 72 79 0d 00 18 1b 69  25 3d a7 65 72 72 6f 72  |ary....i%=.error|
00002720  24 2c 22 20 69 6e 20 22  2b 22 22 22 22 29 0d 00  |$," in "+"""")..|
00002730  19 14 e7 20 69 25 3d 30  20 8c 20 3d 20 a3 20 8b  |... i%=0 . = . .|
00002740  3d b9 0d 00 1a 04 0d ff  00 00 00 00 00 00 00 00  |=...............|
00002750  00 00 00 00                                       |....|
00002754

© Dominic Ford 2021–2025.

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