Home » Archimedes archive » Archimedes World » AW-1993-09.adf » AWSept93 » !AWSept93/Goodies/ThrowBack/!ThrowBack/Throwback
!AWSept93/Goodies/ThrowBack/!ThrowBack/Throwback
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-1993-09.adf » AWSept93 |
Filename: | !AWSept93/Goodies/ThrowBack/!ThrowBack/Throwback |
Read OK: | ✔ |
File size: | 1ED4 bytes |
Load address: | 0000 |
Exec address: | 0000 |
File contents
t��,@ResourceFSThrowbackResourceFSThrowback 1.10 (9th Dec 1992) !Utils @-�0��@����@-� ��A����`1��@-����������dD��� �,Resources.Edit.!Throw.!Run0*WimpSlot -max 32K *Run <Obey$Dir>.!RunImagexD�������?Resources.Edit.!Throw.!RunImageC � > Basic Error Throwback � � �Error(0) � wimp% 1211 �GetErrorInfo �ReportError � ��GetErrorInfo -error$=�Read_Variable("Throwback$Report") *Unset Throwback$Report ,line%=�(�Read_Variable("Throwback$ERL")) *Unset Throwback$ERL file$=�GetFile inc%=�GetLineIncrement � ݤGetFile �i% sprite$="file_ffb" *file$=�Read_Variable("Throwback$File") *Unset Throwback$File *leaf$=�Wimp_GetFileFromPathname(file$) Ȏ �leaf$,9) � 4�"!RUNIMAGE","!RunImage","!Runimage","!runimage" leaf$=�leaf$,�leaf$-10) � i%=�error$," in "+"""") �i%<>0� file$=�error$,�error$-i%-4) file$=�file$) leaf$=file$ error$=�error$,i%) � =file$ !ݤGetLineIncrement ")line$=�Read_Variable("Basic$Options") #+�line$,"l")��line$,"L")�inc%=1�inc%=10 $=�line$,"+")��Wimp_Alert(leaf$,error$+" at line "+�line%) %auto%=� &� �line$,"a")<>0 � auto%=� ' =inc% (ݤRead_Variable(var$) )�len%,i%,f$ *6ș"XOS_ReadVarVal",var$,wimp%,255,,3�,,len%;flags% + Ȏflags%� ,�7:f$="" - . f$="" /�i%=0�len%-1 0f$=f$+�(wimp%?i%) 1� 2� 3Ȏ�f$)� 4�" ":f$=�f$) 5� 6=f$ 7��ReportError 8>ș"Wimp_Initialise",200,&4B534154,"Basic ThrowBack"�,task% 9�Throwback(error$,line%) :ș"Wimp_CloseDown" ;� <��Throwback(error$,line%) =)��:�Pseudo_Throwback(error$,line%):� >Ȏfile$� ?'�"":�Pseudo_Throwback(error$,line%) @ Aș"DDEUtils_ThrowbackStart" B� C$wimp%=error$+�0 D*ș&42588,1,,file$,(line%�inc%),2,wimp% Eș"DDEUtils_ThrowbackEnd" F� G� H$��Pseudo_Throwback(error$,line%) I��:�Error(1):� J5mask%=%110100110011:finished%=�:loaded%=�:once%=� K�Window(error$,line%,file$) L�Wimp_Poll M� N ��Window(error$,line%,file$) O?window%=�Wimp_WindowLoadFrom("Main","Edit:!Throw.Template") P�ChangeSprite(leaf$) Q.�Wimp_IconPutText(window%,5,�file$,25),25) R+�Wimp_IconPutText(window%,2,error$,100) SB�Wimp_IconPutText(window%,6,"Error at line "+�(line%/inc%),32) T�inc%=1� U6wimp%!0=window%:wimp%!4=9:wimp%!8=1<<21:wimp%!12=0 V ș"Wimp_SetIconState",,wimp% W wimp%!4=7 X ș"Wimp_SetIconState",,wimp% Y� ZȎ auto% � [ � � : save%=�:�GetFile \ : ]9 wimp%!0=window%:wimp%!4=11:wimp%!8=1<<21:wimp%!12=0 ^" ș"Wimp_SetIconState",,wimp% _� `� a��Wimp_Poll b� c$ș"Wimp_Poll",mask%,wimp%�event% d Ȏevent%� e�0:�Keys f!�2:ș"Wimp_OpenWindow",,wimp% g.�3:ș"Wimp_CloseWindow",,wimp%:finished%=� h �6:�Mouse i �17,18,19 jȎwimp%!16� k�0:finished%=� l�3:�Load_File m�&400C3:�loaded%� nloaded%=�:mask%=mask%� 1 o� p� q� r�finished% s� t ��Keys uȎonce%� vɹ:once%=� wɣ xonce%=�:mask%=mask%� 1 yȎsave%� zɹ {�DealWithSave |ɣ }#�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 �ș"OS_Byte",153,0,&8E �ș"OS_Byte",153,0,&86 �ș"OS_Byte",153,0,&8F �� ���DealWithSave �ș"OS_Byte",153,0,&83 �ș"OS_Byte",153,0,&0d �finished%=� �� ���Mouse �Ȏwimp%!8� ��4 �Ȏwimp%!16� ��4:save%=�:�GetFile ��8:save%=�:�GetFile ��7:�SetLineIncrement(10) ��9:�SetLineIncrement(1) �"�11:auto%=�auto% : �SetOptions �� �� �� � ��GetFile ���:�NoLoad:� ��("SetType "+file$+" text") �"�("WimpTask Filer_Run "+file$) � �("SetType "+file$+" basic") � loaded%=� �� ���NoLoad �Tmessage$="Can't find the BASIC program which contains the error! Drag this file" �>message$+=" from a Filer window onto the Throwback window" �%�Wimp_Alert("Throwback",message$) �� �"��SetLineIncrement(increment%) �inc%=increment% �B�Wimp_IconPutText(window%,6,"Error at line "+�(line%/inc%),32) ��SetOptions �� ���SetOptions ��l$ � l$="" ��line$,"+")�l$="+" ��inc%=1�l$+="l" �� auto%=� � l$+="a" �line$=l$ ��line$=""� ��"Unset Basic$Options" �� ��"Set Basic$Options "+line$ �� �� ���Load_File �type%=wimp%!40 �Ȏtype%� � �&FFB �,file$=�Wimp_GetStringAtAddress(wimp%+44) �*leaf$=�Wimp_GetFileFromPathname(file$) ��"Set Basic$File "+file$ �.�Wimp_IconPutText(window%,5,�file$,25),25) ��ChangeSprite("file_ffb") � �&2000 �,file$=�Wimp_GetStringAtAddress(wimp%+44) �*leaf$=�Wimp_GetFileFromPathname(file$) �file$=file$+".!RunImage" ��"Set Basic$File "+file$ �.�Wimp_IconPutText(window%,5,�file$,25),25) ��ChangeSprite(leaf$) �� �� �!��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% �$��Wimp_WindowBringToTop(window%) �!wimp%=window% �"ș"Wimp_GetWindowState",,wimp% �wimp%!28=-1 �ș"Wimp_OpenWindow",,wimp% �� �0��Wimp_IconPutText(window%,icon%,text$,len%) �text$=�text$,len%) �!wimp%!0=window%:wimp%!4=icon% � ș"Wimp_GetIconState",,wimp% �6x0%=wimp%!8:y0%=wimp%!12:x1%=wimp%!16:y1%=wimp%!20 �2�((wimp%!24)�&100)=0�1,"Icon isn't indirected" �$(wimp%!28)=text$ �!wimp%!0=window%:wimp%!4=icon% �wimp%!8=0:wimp%!12=0 � ș"Wimp_SetIconState",,wimp% �� ���ChangeSprite(leaf$) ��ONERRORLOCAL:ENDPROC �Ȏleaf$� �:�"file_ffb":�Wimp_IconPutText(window%,3,"file_ffb",12) � �$wimp%=leaf$ �addr%=0 �1ș"XWimp_SpriteOp",24,,wimp%� ,,addr%;flags% �Ȏ (flags%�1) � �4 � 0 : �Wimp_IconPutText(window%,3,leaf$,12) �2 :�Wimp_IconPutText(window%,3,"file_ffb",12) �� �� 0ș"Wimp_ForceRedraw",window%,x0%,y0%,x1%,y1% � "ݤWimp_GetFileFromPathname(f$) �i%,j%,k%,g$ i%=�f$,"."):j%=0 Ȏi%� �0:g$=f$ '�k%=j%:j%=i%:i%=�f$,".",i%+1):�i%=0 Ȏ�f$,�("!RunImage"))� 4�"!RunImage","!runimage","!Runimage","!RUNIMAGE" g$=�f$,�f$-k%) g$=�f$,�f$-j%) � � =g$ %ݤ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 "+Þ) � � �tD����;Resources.Edit.!Throw.Template?����,Main |�:��0������� �������������=�� ��������=a����������=�d����p����> �&����r���=a~����H�=' 7Ff�������=:H�,T��������!KR"�4���tv���-a��,����N������"R����L���=e�� ����������3� �Error in Basic Program R3 R3 Error message R4;L file_ffb Throwback r6 "!BasicFile.!RunImage" R2 Error at line R1 normal Sradiooff,radioon;U1,19,20,21,22;R0,18;R1,25;U0,26,27,28,29,30,31,32 redo r6 logical Sradiooff,radioon;U0,19,20,21,22;R0,25;R1,18;U1,26,27,28,29,30,31,32 Line numbers r1 auto Soptoff,opton �D���>Resources.Edit.Throwback� � >Throwback $*Set Throwback$File <Basic$File> !�("Set Throwback$Report "+�$) �("Set Throwback$ERL "+Þ) *Run Edit:!Throw � �
00000000 00 00 00 00 74 00 00 00 84 00 00 00 94 00 00 00 |....t...........| 00000010 2c 00 00 00 40 00 00 00 00 00 00 00 00 00 00 00 |,...@...........| 00000020 00 00 00 00 00 00 00 00 00 00 00 00 52 65 73 6f |............Reso| 00000030 75 72 63 65 46 53 54 68 72 6f 77 62 61 63 6b 00 |urceFSThrowback.| 00000040 52 65 73 6f 75 72 63 65 46 53 54 68 72 6f 77 62 |ResourceFSThrowb| 00000050 61 63 6b 09 09 31 2e 31 30 20 28 39 74 68 20 44 |ack..1.10 (9th D| 00000060 65 63 20 31 39 39 32 29 20 21 55 74 69 6c 73 20 |ec 1992) !Utils | 00000070 00 00 00 00 01 40 2d e9 30 00 8f e2 40 1b 06 ef |.....@-.0...@...| 00000080 01 80 fd e8 01 40 2d e9 20 00 8f e2 41 1b 06 ef |.....@-. ...A...| 00000090 01 80 fd e8 60 00 31 e3 0e f0 a0 11 0f 40 2d e9 |....`.1......@-.| 000000a0 08 00 8f e2 0f e0 a0 e1 02 f0 a0 e1 0f 80 fd e8 |................| 000000b0 64 00 00 00 44 eb ff ff b6 c3 09 8a 2c 00 00 00 |d...D.......,...| 000000c0 03 00 00 00 52 65 73 6f 75 72 63 65 73 2e 45 64 |....Resources.Ed| 000000d0 69 74 2e 21 54 68 72 6f 77 2e 21 52 75 6e 00 00 |it.!Throw.!Run..| 000000e0 30 00 00 00 2a 57 69 6d 70 53 6c 6f 74 20 2d 6d |0...*WimpSlot -m| 000000f0 61 78 20 33 32 4b 0a 2a 52 75 6e 20 3c 4f 62 65 |ax 32K.*Run <Obe| 00000100 79 24 44 69 72 3e 2e 21 52 75 6e 49 6d 61 67 65 |y$Dir>.!RunImage| 00000110 00 00 00 00 78 19 00 00 44 fb ff ff 8a 91 fb 8e |....x...D.......| 00000120 3f 19 00 00 03 00 00 00 52 65 73 6f 75 72 63 65 |?.......Resource| 00000130 73 2e 45 64 69 74 2e 21 54 68 72 6f 77 2e 21 52 |s.Edit.!Throw.!R| 00000140 75 6e 49 6d 61 67 65 00 43 19 00 00 0d 00 01 1d |unImage.C.......| 00000150 f4 20 3e 20 42 61 73 69 63 20 45 72 72 6f 72 20 |. > Basic Error | 00000160 54 68 72 6f 77 62 61 63 6b 0d 00 02 11 ee 20 85 |Throwback..... .| 00000170 20 f2 45 72 72 6f 72 28 30 29 0d 00 03 10 de 20 | .Error(0)..... | 00000180 77 69 6d 70 25 20 31 32 31 31 0d 00 04 11 f2 47 |wimp% 1211.....G| 00000190 65 74 45 72 72 6f 72 49 6e 66 6f 0d 00 05 10 f2 |etErrorInfo.....| 000001a0 52 65 70 6f 72 74 45 72 72 6f 72 0d 00 06 05 e0 |ReportError.....| 000001b0 0d 00 07 12 dd f2 47 65 74 45 72 72 6f 72 49 6e |......GetErrorIn| 000001c0 66 6f 0d 00 08 2d 65 72 72 6f 72 24 3d a4 52 65 |fo...-error$=.Re| 000001d0 61 64 5f 56 61 72 69 61 62 6c 65 28 22 54 68 72 |ad_Variable("Thr| 000001e0 6f 77 62 61 63 6b 24 52 65 70 6f 72 74 22 29 0d |owback$Report").| 000001f0 00 09 1b 2a 55 6e 73 65 74 20 54 68 72 6f 77 62 |...*Unset Throwb| 00000200 61 63 6b 24 52 65 70 6f 72 74 0d 00 0a 2c 6c 69 |ack$Report...,li| 00000210 6e 65 25 3d bb 28 a4 52 65 61 64 5f 56 61 72 69 |ne%=.(.Read_Vari| 00000220 61 62 6c 65 28 22 54 68 72 6f 77 62 61 63 6b 24 |able("Throwback$| 00000230 45 52 4c 22 29 29 0d 00 0b 18 2a 55 6e 73 65 74 |ERL"))....*Unset| 00000240 20 54 68 72 6f 77 62 61 63 6b 24 45 52 4c 0d 00 | Throwback$ERL..| 00000250 0c 12 66 69 6c 65 24 3d a4 47 65 74 46 69 6c 65 |..file$=.GetFile| 00000260 0d 00 0d 1a 69 6e 63 25 3d a4 47 65 74 4c 69 6e |....inc%=.GetLin| 00000270 65 49 6e 63 72 65 6d 65 6e 74 0d 00 0e 05 e1 0d |eIncrement......| 00000280 00 0f 0d dd a4 47 65 74 46 69 6c 65 0d 00 10 07 |.....GetFile....| 00000290 ea 69 25 0d 00 11 16 73 70 72 69 74 65 24 3d 22 |.i%....sprite$="| 000002a0 66 69 6c 65 5f 66 66 62 22 0d 00 12 2a 66 69 6c |file_ffb"...*fil| 000002b0 65 24 3d a4 52 65 61 64 5f 56 61 72 69 61 62 6c |e$=.Read_Variabl| 000002c0 65 28 22 54 68 72 6f 77 62 61 63 6b 24 46 69 6c |e("Throwback$Fil| 000002d0 65 22 29 0d 00 13 19 2a 55 6e 73 65 74 20 54 68 |e")....*Unset Th| 000002e0 72 6f 77 62 61 63 6b 24 46 69 6c 65 0d 00 14 2a |rowback$File...*| 000002f0 6c 65 61 66 24 3d a4 57 69 6d 70 5f 47 65 74 46 |leaf$=.Wimp_GetF| 00000300 69 6c 65 46 72 6f 6d 50 61 74 68 6e 61 6d 65 28 |ileFromPathname(| 00000310 66 69 6c 65 24 29 0d 00 15 12 c8 8e 20 c2 6c 65 |file$)...... .le| 00000320 61 66 24 2c 39 29 20 ca 0d 00 16 34 c9 22 21 52 |af$,9) ....4."!R| 00000330 55 4e 49 4d 41 47 45 22 2c 22 21 52 75 6e 49 6d |UNIMAGE","!RunIm| 00000340 61 67 65 22 2c 22 21 52 75 6e 69 6d 61 67 65 22 |age","!Runimage"| 00000350 2c 22 21 72 75 6e 69 6d 61 67 65 22 0d 00 17 1d |,"!runimage"....| 00000360 20 6c 65 61 66 24 3d c0 6c 65 61 66 24 2c a9 6c | leaf$=.leaf$,.l| 00000370 65 61 66 24 2d 31 30 29 20 0d 00 18 05 cb 0d 00 |eaf$-10) .......| 00000380 19 1b 69 25 3d a7 65 72 72 6f 72 24 2c 22 20 69 |..i%=.error$," i| 00000390 6e 20 22 2b 22 22 22 22 29 0d 00 1a 0b e7 69 25 |n "+"""").....i%| 000003a0 3c 3e 30 8c 0d 00 1b 1f 66 69 6c 65 24 3d c2 65 |<>0.....file$=.e| 000003b0 72 72 6f 72 24 2c a9 65 72 72 6f 72 24 2d 69 25 |rror$,.error$-i%| 000003c0 2d 34 29 0d 00 1c 11 66 69 6c 65 24 3d c0 66 69 |-4)....file$=.fi| 000003d0 6c 65 24 29 0d 00 1d 0f 6c 65 61 66 24 3d 66 69 |le$)....leaf$=fi| 000003e0 6c 65 24 0d 00 1e 16 65 72 72 6f 72 24 3d c0 65 |le$....error$=.e| 000003f0 72 72 6f 72 24 2c 69 25 29 0d 00 1f 05 cd 0d 00 |rror$,i%).......| 00000400 20 0a 3d 66 69 6c 65 24 0d 00 21 16 dd a4 47 65 | .=file$..!...Ge| 00000410 74 4c 69 6e 65 49 6e 63 72 65 6d 65 6e 74 0d 00 |tLineIncrement..| 00000420 22 29 6c 69 6e 65 24 3d a4 52 65 61 64 5f 56 61 |")line$=.Read_Va| 00000430 72 69 61 62 6c 65 28 22 42 61 73 69 63 24 4f 70 |riable("Basic$Op| 00000440 74 69 6f 6e 73 22 29 0d 00 23 2b e7 a7 6c 69 6e |tions")..#+..lin| 00000450 65 24 2c 22 6c 22 29 84 a7 6c 69 6e 65 24 2c 22 |e$,"l")..line$,"| 00000460 4c 22 29 8c 69 6e 63 25 3d 31 8b 69 6e 63 25 3d |L").inc%=1.inc%=| 00000470 31 30 0d 00 24 3d e7 a7 6c 69 6e 65 24 2c 22 2b |10..$=..line$,"+| 00000480 22 29 8c f2 57 69 6d 70 5f 41 6c 65 72 74 28 6c |")..Wimp_Alert(l| 00000490 65 61 66 24 2c 65 72 72 6f 72 24 2b 22 20 61 74 |eaf$,error$+" at| 000004a0 20 6c 69 6e 65 20 22 2b c3 6c 69 6e 65 25 29 0d | line "+.line%).| 000004b0 00 25 0b 61 75 74 6f 25 3d b9 0d 00 26 1e e7 20 |.%.auto%=...&.. | 000004c0 a7 6c 69 6e 65 24 2c 22 61 22 29 3c 3e 30 20 8c |.line$,"a")<>0 .| 000004d0 20 61 75 74 6f 25 3d a3 0d 00 27 09 3d 69 6e 63 | auto%=...'.=inc| 000004e0 25 0d 00 28 19 dd a4 52 65 61 64 5f 56 61 72 69 |%..(...Read_Vari| 000004f0 61 62 6c 65 28 76 61 72 24 29 0d 00 29 0f ea 6c |able(var$)..)..l| 00000500 65 6e 25 2c 69 25 2c 66 24 0d 00 2a 36 c8 99 22 |en%,i%,f$..*6.."| 00000510 58 4f 53 5f 52 65 61 64 56 61 72 56 61 6c 22 2c |XOS_ReadVarVal",| 00000520 76 61 72 24 2c 77 69 6d 70 25 2c 32 35 35 2c 2c |var$,wimp%,255,,| 00000530 33 b8 2c 2c 6c 65 6e 25 3b 66 6c 61 67 73 25 0d |3.,,len%;flags%.| 00000540 00 2b 0d c8 8e 66 6c 61 67 73 25 ca 0d 00 2c 0c |.+...flags%...,.| 00000550 c9 37 3a 66 24 3d 22 22 0d 00 2d 05 7f 0d 00 2e |.7:f$=""..-.....| 00000560 09 66 24 3d 22 22 0d 00 2f 10 e3 69 25 3d 30 b8 |.f$=""../..i%=0.| 00000570 6c 65 6e 25 2d 31 0d 00 30 15 66 24 3d 66 24 2b |len%-1..0.f$=f$+| 00000580 bd 28 77 69 6d 70 25 3f 69 25 29 0d 00 31 05 ed |.(wimp%?i%)..1..| 00000590 0d 00 32 05 cb 0d 00 33 0b c8 8e c2 66 24 29 ca |..2....3....f$).| 000005a0 0d 00 34 10 c9 22 20 22 3a 66 24 3d c0 66 24 29 |..4.." ":f$=.f$)| 000005b0 0d 00 35 05 cb 0d 00 36 07 3d 66 24 0d 00 37 11 |..5....6.=f$..7.| 000005c0 dd f2 52 65 70 6f 72 74 45 72 72 6f 72 0d 00 38 |..ReportError..8| 000005d0 3e c8 99 22 57 69 6d 70 5f 49 6e 69 74 69 61 6c |>.."Wimp_Initial| 000005e0 69 73 65 22 2c 32 30 30 2c 26 34 42 35 33 34 31 |ise",200,&4B5341| 000005f0 35 34 2c 22 42 61 73 69 63 20 54 68 72 6f 77 42 |54,"Basic ThrowB| 00000600 61 63 6b 22 b8 2c 74 61 73 6b 25 0d 00 39 1c f2 |ack".,task%..9..| 00000610 54 68 72 6f 77 62 61 63 6b 28 65 72 72 6f 72 24 |Throwback(error$| 00000620 2c 6c 69 6e 65 25 29 0d 00 3a 16 c8 99 22 57 69 |,line%)..:..."Wi| 00000630 6d 70 5f 43 6c 6f 73 65 44 6f 77 6e 22 0d 00 3b |mp_CloseDown"..;| 00000640 05 e1 0d 00 3c 1d dd f2 54 68 72 6f 77 62 61 63 |....<...Throwbac| 00000650 6b 28 65 72 72 6f 72 24 2c 6c 69 6e 65 25 29 0d |k(error$,line%).| 00000660 00 3d 29 ee 85 ea 3a f2 50 73 65 75 64 6f 5f 54 |.=)...:.Pseudo_T| 00000670 68 72 6f 77 62 61 63 6b 28 65 72 72 6f 72 24 2c |hrowback(error$,| 00000680 6c 69 6e 65 25 29 3a e1 0d 00 3e 0c c8 8e 66 69 |line%):...>...fi| 00000690 6c 65 24 ca 0d 00 3f 27 c9 22 22 3a f2 50 73 65 |le$...?'."":.Pse| 000006a0 75 64 6f 5f 54 68 72 6f 77 62 61 63 6b 28 65 72 |udo_Throwback(er| 000006b0 72 6f 72 24 2c 6c 69 6e 65 25 29 0d 00 40 05 7f |ror$,line%)..@..| 000006c0 0d 00 41 1f c8 99 22 44 44 45 55 74 69 6c 73 5f |..A..."DDEUtils_| 000006d0 54 68 72 6f 77 62 61 63 6b 53 74 61 72 74 22 0d |ThrowbackStart".| 000006e0 00 42 06 ea 85 0d 00 43 14 24 77 69 6d 70 25 3d |.B.....C.$wimp%=| 000006f0 65 72 72 6f 72 24 2b bd 30 0d 00 44 2a c8 99 26 |error$+.0..D*..&| 00000700 34 32 35 38 38 2c 31 2c 2c 66 69 6c 65 24 2c 28 |42588,1,,file$,(| 00000710 6c 69 6e 65 25 81 69 6e 63 25 29 2c 32 2c 77 69 |line%.inc%),2,wi| 00000720 6d 70 25 0d 00 45 1d c8 99 22 44 44 45 55 74 69 |mp%..E..."DDEUti| 00000730 6c 73 5f 54 68 72 6f 77 62 61 63 6b 45 6e 64 22 |ls_ThrowbackEnd"| 00000740 0d 00 46 05 cb 0d 00 47 05 e1 0d 00 48 24 dd f2 |..F....G....H$..| 00000750 50 73 65 75 64 6f 5f 54 68 72 6f 77 62 61 63 6b |Pseudo_Throwback| 00000760 28 65 72 72 6f 72 24 2c 6c 69 6e 65 25 29 0d 00 |(error$,line%)..| 00000770 49 13 ee 85 ea 3a f2 45 72 72 6f 72 28 31 29 3a |I....:.Error(1):| 00000780 e1 0d 00 4a 35 6d 61 73 6b 25 3d 25 31 31 30 31 |...J5mask%=%1101| 00000790 30 30 31 31 30 30 31 31 3a 66 69 6e 69 73 68 65 |00110011:finishe| 000007a0 64 25 3d a3 3a 6c 6f 61 64 65 64 25 3d a3 3a 6f |d%=.:loaded%=.:o| 000007b0 6e 63 65 25 3d b9 0d 00 4b 1f f2 57 69 6e 64 6f |nce%=...K..Windo| 000007c0 77 28 65 72 72 6f 72 24 2c 6c 69 6e 65 25 2c 66 |w(error$,line%,f| 000007d0 69 6c 65 24 29 0d 00 4c 0e f2 57 69 6d 70 5f 50 |ile$)..L..Wimp_P| 000007e0 6f 6c 6c 0d 00 4d 05 e1 0d 00 4e 20 dd f2 57 69 |oll..M....N ..Wi| 000007f0 6e 64 6f 77 28 65 72 72 6f 72 24 2c 6c 69 6e 65 |ndow(error$,line| 00000800 25 2c 66 69 6c 65 24 29 0d 00 4f 3f 77 69 6e 64 |%,file$)..O?wind| 00000810 6f 77 25 3d a4 57 69 6d 70 5f 57 69 6e 64 6f 77 |ow%=.Wimp_Window| 00000820 4c 6f 61 64 46 72 6f 6d 28 22 4d 61 69 6e 22 2c |LoadFrom("Main",| 00000830 22 45 64 69 74 3a 21 54 68 72 6f 77 2e 54 65 6d |"Edit:!Throw.Tem| 00000840 70 6c 61 74 65 22 29 0d 00 50 18 f2 43 68 61 6e |plate")..P..Chan| 00000850 67 65 53 70 72 69 74 65 28 6c 65 61 66 24 29 0d |geSprite(leaf$).| 00000860 00 51 2e f2 57 69 6d 70 5f 49 63 6f 6e 50 75 74 |.Q..Wimp_IconPut| 00000870 54 65 78 74 28 77 69 6e 64 6f 77 25 2c 35 2c c2 |Text(window%,5,.| 00000880 66 69 6c 65 24 2c 32 35 29 2c 32 35 29 0d 00 52 |file$,25),25)..R| 00000890 2b f2 57 69 6d 70 5f 49 63 6f 6e 50 75 74 54 65 |+.Wimp_IconPutTe| 000008a0 78 74 28 77 69 6e 64 6f 77 25 2c 32 2c 65 72 72 |xt(window%,2,err| 000008b0 6f 72 24 2c 31 30 30 29 0d 00 53 42 f2 57 69 6d |or$,100)..SB.Wim| 000008c0 70 5f 49 63 6f 6e 50 75 74 54 65 78 74 28 77 69 |p_IconPutText(wi| 000008d0 6e 64 6f 77 25 2c 36 2c 22 45 72 72 6f 72 20 61 |ndow%,6,"Error a| 000008e0 74 20 6c 69 6e 65 20 22 2b c3 28 6c 69 6e 65 25 |t line "+.(line%| 000008f0 2f 69 6e 63 25 29 2c 33 32 29 0d 00 54 0c e7 69 |/inc%),32)..T..i| 00000900 6e 63 25 3d 31 8c 0d 00 55 36 77 69 6d 70 25 21 |nc%=1...U6wimp%!| 00000910 30 3d 77 69 6e 64 6f 77 25 3a 77 69 6d 70 25 21 |0=window%:wimp%!| 00000920 34 3d 39 3a 77 69 6d 70 25 21 38 3d 31 3c 3c 32 |4=9:wimp%!8=1<<2| 00000930 31 3a 77 69 6d 70 25 21 31 32 3d 30 0d 00 56 20 |1:wimp%!12=0..V | 00000940 c8 99 22 57 69 6d 70 5f 53 65 74 49 63 6f 6e 53 |.."Wimp_SetIconS| 00000950 74 61 74 65 22 2c 2c 77 69 6d 70 25 0d 00 57 0d |tate",,wimp%..W.| 00000960 77 69 6d 70 25 21 34 3d 37 0d 00 58 20 c8 99 22 |wimp%!4=7..X .."| 00000970 57 69 6d 70 5f 53 65 74 49 63 6f 6e 53 74 61 74 |Wimp_SetIconStat| 00000980 65 22 2c 2c 77 69 6d 70 25 0d 00 59 05 cd 0d 00 |e",,wimp%..Y....| 00000990 5a 0f c8 8e 20 61 75 74 6f 25 20 20 ca 0d 00 5b |Z... auto% ...[| 000009a0 1b 20 c9 20 b9 20 3a 20 73 61 76 65 25 3d a3 3a |. . . : save%=.:| 000009b0 f2 47 65 74 46 69 6c 65 0d 00 5c 08 20 7f 20 3a |.GetFile..\. . :| 000009c0 0d 00 5d 39 20 20 77 69 6d 70 25 21 30 3d 77 69 |..]9 wimp%!0=wi| 000009d0 6e 64 6f 77 25 3a 77 69 6d 70 25 21 34 3d 31 31 |ndow%:wimp%!4=11| 000009e0 3a 77 69 6d 70 25 21 38 3d 31 3c 3c 32 31 3a 77 |:wimp%!8=1<<21:w| 000009f0 69 6d 70 25 21 31 32 3d 30 0d 00 5e 22 20 20 c8 |imp%!12=0..^" .| 00000a00 99 22 57 69 6d 70 5f 53 65 74 49 63 6f 6e 53 74 |."Wimp_SetIconSt| 00000a10 61 74 65 22 2c 2c 77 69 6d 70 25 0d 00 5f 05 cb |ate",,wimp%.._..| 00000a20 0d 00 60 05 e1 0d 00 61 0f dd f2 57 69 6d 70 5f |..`....a...Wimp_| 00000a30 50 6f 6c 6c 0d 00 62 05 f5 0d 00 63 24 c8 99 22 |Poll..b....c$.."| 00000a40 57 69 6d 70 5f 50 6f 6c 6c 22 2c 6d 61 73 6b 25 |Wimp_Poll",mask%| 00000a50 2c 77 69 6d 70 25 b8 65 76 65 6e 74 25 0d 00 64 |,wimp%.event%..d| 00000a60 0d c8 8e 65 76 65 6e 74 25 ca 0d 00 65 0c c9 30 |...event%...e..0| 00000a70 3a f2 4b 65 79 73 0d 00 66 21 c9 32 3a c8 99 22 |:.Keys..f!.2:.."| 00000a80 57 69 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 |Wimp_OpenWindow"| 00000a90 2c 2c 77 69 6d 70 25 0d 00 67 2e c9 33 3a c8 99 |,,wimp%..g..3:..| 00000aa0 22 57 69 6d 70 5f 43 6c 6f 73 65 57 69 6e 64 6f |"Wimp_CloseWindo| 00000ab0 77 22 2c 2c 77 69 6d 70 25 3a 66 69 6e 69 73 68 |w",,wimp%:finish| 00000ac0 65 64 25 3d b9 0d 00 68 0d c9 36 3a f2 4d 6f 75 |ed%=...h..6:.Mou| 00000ad0 73 65 0d 00 69 0d c9 31 37 2c 31 38 2c 31 39 0d |se..i..17,18,19.| 00000ae0 00 6a 0f c8 8e 77 69 6d 70 25 21 31 36 ca 0d 00 |.j...wimp%!16...| 00000af0 6b 12 c9 30 3a 66 69 6e 69 73 68 65 64 25 3d b9 |k..0:finished%=.| 00000b00 0d 00 6c 11 c9 33 3a f2 4c 6f 61 64 5f 46 69 6c |..l..3:.Load_Fil| 00000b10 65 0d 00 6d 15 c9 26 34 30 30 43 33 3a e7 6c 6f |e..m..&400C3:.lo| 00000b20 61 64 65 64 25 8c 0d 00 6e 1c 6c 6f 61 64 65 64 |aded%...n.loaded| 00000b30 25 3d a3 3a 6d 61 73 6b 25 3d 6d 61 73 6b 25 82 |%=.:mask%=mask%.| 00000b40 20 31 0d 00 6f 05 cd 0d 00 70 05 cb 0d 00 71 05 | 1..o....p....q.| 00000b50 cb 0d 00 72 0e fd 66 69 6e 69 73 68 65 64 25 0d |...r..finished%.| 00000b60 00 73 05 e1 0d 00 74 0a dd f2 4b 65 79 73 0d 00 |.s....t...Keys..| 00000b70 75 0c c8 8e 6f 6e 63 65 25 ca 0d 00 76 0e c9 b9 |u...once%...v...| 00000b80 3a 6f 6e 63 65 25 3d a3 0d 00 77 06 c9 a3 0d 00 |:once%=...w.....| 00000b90 78 1a 6f 6e 63 65 25 3d b9 3a 6d 61 73 6b 25 3d |x.once%=.:mask%=| 00000ba0 6d 61 73 6b 25 82 20 31 0d 00 79 0c c8 8e 73 61 |mask%. 1..y...sa| 00000bb0 76 65 25 ca 0d 00 7a 06 c9 b9 0d 00 7b 11 f2 44 |ve%...z.....{..D| 00000bc0 65 61 6c 57 69 74 68 53 61 76 65 0d 00 7c 06 c9 |ealWithSave..|..| 00000bd0 a3 0d 00 7d 23 f2 47 6f 54 6f 4c 69 6e 65 28 6c |...}#.GoToLine(l| 00000be0 69 6e 65 25 81 69 6e 63 25 29 3a f2 4d 61 72 6b |ine%.inc%):.Mark| 00000bf0 4c 69 6e 65 0d 00 7e 05 cb 0d 00 7f 05 cb 0d 00 |Line..~.........| 00000c00 80 05 e1 0d 00 81 15 dd f2 47 6f 54 6f 4c 69 6e |.........GoToLin| 00000c10 65 28 6c 69 6e 65 25 29 0d 00 82 11 ea 65 24 2c |e(line%).....e$,| 00000c20 69 25 2c 64 69 67 69 74 25 0d 00 83 0f 65 24 3d |i%,digit%....e$=| 00000c30 c3 28 6c 69 6e 65 25 29 0d 00 84 19 c8 99 22 4f |.(line%)......"O| 00000c40 53 5f 42 79 74 65 22 2c 31 35 33 2c 30 2c 26 38 |S_Byte",153,0,&8| 00000c50 35 0d 00 85 0f e3 69 25 3d 31 b8 a9 28 65 24 29 |5.....i%=1..(e$)| 00000c60 0d 00 86 17 64 69 67 69 74 25 3d 97 28 c1 65 24 |....digit%=.(.e$| 00000c70 2c 69 25 2c 31 29 29 0d 00 87 1c c8 99 22 4f 53 |,i%,1))......"OS| 00000c80 5f 42 79 74 65 22 2c 31 35 33 2c 30 2c 64 69 67 |_Byte",153,0,dig| 00000c90 69 74 25 0d 00 88 05 ed 0d 00 89 19 c8 99 22 4f |it%..........."O| 00000ca0 53 5f 42 79 74 65 22 2c 31 35 33 2c 30 2c 26 30 |S_Byte",153,0,&0| 00000cb0 64 0d 00 8a 05 e1 0d 00 8b 0e dd f2 4d 61 72 6b |d...........Mark| 00000cc0 4c 69 6e 65 0d 00 8c 19 c8 99 22 4f 53 5f 42 79 |Line......"OS_By| 00000cd0 74 65 22 2c 31 35 33 2c 30 2c 26 39 36 0d 00 8d |te",153,0,&96...| 00000ce0 19 c8 99 22 4f 53 5f 42 79 74 65 22 2c 31 35 33 |..."OS_Byte",153| 00000cf0 2c 30 2c 26 38 36 0d 00 8e 19 c8 99 22 4f 53 5f |,0,&86......"OS_| 00000d00 42 79 74 65 22 2c 31 35 33 2c 30 2c 26 38 45 0d |Byte",153,0,&8E.| 00000d10 00 8f 19 c8 99 22 4f 53 5f 42 79 74 65 22 2c 31 |....."OS_Byte",1| 00000d20 35 33 2c 30 2c 26 38 36 0d 00 90 19 c8 99 22 4f |53,0,&86......"O| 00000d30 53 5f 42 79 74 65 22 2c 31 35 33 2c 30 2c 26 38 |S_Byte",153,0,&8| 00000d40 46 0d 00 91 05 e1 0d 00 92 12 dd f2 44 65 61 6c |F...........Deal| 00000d50 57 69 74 68 53 61 76 65 0d 00 93 19 c8 99 22 4f |WithSave......"O| 00000d60 53 5f 42 79 74 65 22 2c 31 35 33 2c 30 2c 26 38 |S_Byte",153,0,&8| 00000d70 33 0d 00 94 19 c8 99 22 4f 53 5f 42 79 74 65 22 |3......"OS_Byte"| 00000d80 2c 31 35 33 2c 30 2c 26 30 64 0d 00 95 0f 66 69 |,153,0,&0d....fi| 00000d90 6e 69 73 68 65 64 25 3d b9 0d 00 96 05 e1 0d 00 |nished%=........| 00000da0 97 0b dd f2 4d 6f 75 73 65 0d 00 98 0e c8 8e 77 |....Mouse......w| 00000db0 69 6d 70 25 21 38 ca 0d 00 99 06 c9 34 0d 00 9a |imp%!8......4...| 00000dc0 0f c8 8e 77 69 6d 70 25 21 31 36 ca 0d 00 9b 17 |...wimp%!16.....| 00000dd0 c9 34 3a 73 61 76 65 25 3d a3 3a f2 47 65 74 46 |.4:save%=.:.GetF| 00000de0 69 6c 65 0d 00 9c 17 c9 38 3a 73 61 76 65 25 3d |ile.....8:save%=| 00000df0 b9 3a f2 47 65 74 46 69 6c 65 0d 00 9d 1c c9 37 |.:.GetFile.....7| 00000e00 3a f2 53 65 74 4c 69 6e 65 49 6e 63 72 65 6d 65 |:.SetLineIncreme| 00000e10 6e 74 28 31 30 29 0d 00 9e 1b c9 39 3a f2 53 65 |nt(10).....9:.Se| 00000e20 74 4c 69 6e 65 49 6e 63 72 65 6d 65 6e 74 28 31 |tLineIncrement(1| 00000e30 29 0d 00 9f 22 c9 31 31 3a 61 75 74 6f 25 3d ac |)...".11:auto%=.| 00000e40 61 75 74 6f 25 20 3a 20 f2 53 65 74 4f 70 74 69 |auto% : .SetOpti| 00000e50 6f 6e 73 0d 00 a0 05 cb 0d 00 a1 05 cb 0d 00 a2 |ons.............| 00000e60 05 e1 0d 00 a3 0d dd f2 47 65 74 46 69 6c 65 0d |........GetFile.| 00000e70 00 a4 11 ee 85 ea 3a f2 4e 6f 4c 6f 61 64 3a e1 |......:.NoLoad:.| 00000e80 0d 00 a5 1f ff 28 22 53 65 74 54 79 70 65 20 22 |.....("SetType "| 00000e90 2b 66 69 6c 65 24 2b 22 20 74 65 78 74 22 29 0d |+file$+" text").| 00000ea0 00 a6 22 ff 28 22 57 69 6d 70 54 61 73 6b 20 46 |..".("WimpTask F| 00000eb0 69 6c 65 72 5f 52 75 6e 20 22 2b 66 69 6c 65 24 |iler_Run "+file$| 00000ec0 29 0d 00 a7 20 ff 28 22 53 65 74 54 79 70 65 20 |)... .("SetType | 00000ed0 22 2b 66 69 6c 65 24 2b 22 20 62 61 73 69 63 22 |"+file$+" basic"| 00000ee0 29 0d 00 a8 0d 6c 6f 61 64 65 64 25 3d b9 0d 00 |)....loaded%=...| 00000ef0 a9 05 e1 0d 00 aa 0c dd f2 4e 6f 4c 6f 61 64 0d |.........NoLoad.| 00000f00 00 ab 54 6d 65 73 73 61 67 65 24 3d 22 43 61 6e |..Tmessage$="Can| 00000f10 27 74 20 66 69 6e 64 20 74 68 65 20 42 41 53 49 |'t find the BASI| 00000f20 43 20 70 72 6f 67 72 61 6d 20 77 68 69 63 68 20 |C program which | 00000f30 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 65 72 72 |contains the err| 00000f40 6f 72 21 20 44 72 61 67 20 74 68 69 73 20 66 69 |or! Drag this fi| 00000f50 6c 65 22 0d 00 ac 3e 6d 65 73 73 61 67 65 24 2b |le"...>message$+| 00000f60 3d 22 20 66 72 6f 6d 20 61 20 46 69 6c 65 72 20 |=" from a Filer | 00000f70 77 69 6e 64 6f 77 20 6f 6e 74 6f 20 74 68 65 20 |window onto the | 00000f80 54 68 72 6f 77 62 61 63 6b 20 77 69 6e 64 6f 77 |Throwback window| 00000f90 22 0d 00 ad 25 f2 57 69 6d 70 5f 41 6c 65 72 74 |"...%.Wimp_Alert| 00000fa0 28 22 54 68 72 6f 77 62 61 63 6b 22 2c 6d 65 73 |("Throwback",mes| 00000fb0 73 61 67 65 24 29 0d 00 ae 05 e1 0d 00 af 22 dd |sage$)........".| 00000fc0 f2 53 65 74 4c 69 6e 65 49 6e 63 72 65 6d 65 6e |.SetLineIncremen| 00000fd0 74 28 69 6e 63 72 65 6d 65 6e 74 25 29 0d 00 b0 |t(increment%)...| 00000fe0 13 69 6e 63 25 3d 69 6e 63 72 65 6d 65 6e 74 25 |.inc%=increment%| 00000ff0 0d 00 b1 42 f2 57 69 6d 70 5f 49 63 6f 6e 50 75 |...B.Wimp_IconPu| 00001000 74 54 65 78 74 28 77 69 6e 64 6f 77 25 2c 36 2c |tText(window%,6,| 00001010 22 45 72 72 6f 72 20 61 74 20 6c 69 6e 65 20 22 |"Error at line "| 00001020 2b c3 28 6c 69 6e 65 25 2f 69 6e 63 25 29 2c 33 |+.(line%/inc%),3| 00001030 32 29 0d 00 b2 0f f2 53 65 74 4f 70 74 69 6f 6e |2).....SetOption| 00001040 73 0d 00 b3 05 e1 0d 00 b4 10 dd f2 53 65 74 4f |s...........SetO| 00001050 70 74 69 6f 6e 73 0d 00 b5 07 ea 6c 24 0d 00 b6 |ptions.....l$...| 00001060 09 6c 24 3d 22 22 0d 00 b7 17 e7 a7 6c 69 6e 65 |.l$=""......line| 00001070 24 2c 22 2b 22 29 8c 6c 24 3d 22 2b 22 0d 00 b8 |$,"+").l$="+"...| 00001080 13 e7 69 6e 63 25 3d 31 8c 6c 24 2b 3d 22 6c 22 |..inc%=1.l$+="l"| 00001090 0d 00 b9 17 e7 20 61 75 74 6f 25 3d a3 20 8c 20 |..... auto%=. . | 000010a0 6c 24 2b 3d 22 61 22 0d 00 ba 0c 6c 69 6e 65 24 |l$+="a"....line$| 000010b0 3d 6c 24 0d 00 bb 0e e7 6c 69 6e 65 24 3d 22 22 |=l$.....line$=""| 000010c0 8c 0d 00 bc 1a ff 22 55 6e 73 65 74 20 42 61 73 |......"Unset Bas| 000010d0 69 63 24 4f 70 74 69 6f 6e 73 22 0d 00 bd 05 cc |ic$Options".....| 000010e0 0d 00 be 1f ff 22 53 65 74 20 42 61 73 69 63 24 |....."Set Basic$| 000010f0 4f 70 74 69 6f 6e 73 20 22 2b 6c 69 6e 65 24 0d |Options "+line$.| 00001100 00 bf 05 cd 0d 00 c0 05 e1 0d 00 c1 0f dd f2 4c |...............L| 00001110 6f 61 64 5f 46 69 6c 65 0d 00 c2 12 74 79 70 65 |oad_File....type| 00001120 25 3d 77 69 6d 70 25 21 34 30 0d 00 c3 0c c8 8e |%=wimp%!40......| 00001130 74 79 70 65 25 ca 0d 00 c4 09 c9 26 46 46 42 0d |type%......&FFB.| 00001140 00 c5 2c 66 69 6c 65 24 3d a4 57 69 6d 70 5f 47 |..,file$=.Wimp_G| 00001150 65 74 53 74 72 69 6e 67 41 74 41 64 64 72 65 73 |etStringAtAddres| 00001160 73 28 77 69 6d 70 25 2b 34 34 29 0d 00 c6 2a 6c |s(wimp%+44)...*l| 00001170 65 61 66 24 3d a4 57 69 6d 70 5f 47 65 74 46 69 |eaf$=.Wimp_GetFi| 00001180 6c 65 46 72 6f 6d 50 61 74 68 6e 61 6d 65 28 66 |leFromPathname(f| 00001190 69 6c 65 24 29 0d 00 c7 1c ff 22 53 65 74 20 42 |ile$)....."Set B| 000011a0 61 73 69 63 24 46 69 6c 65 20 22 2b 66 69 6c 65 |asic$File "+file| 000011b0 24 0d 00 c8 2e f2 57 69 6d 70 5f 49 63 6f 6e 50 |$.....Wimp_IconP| 000011c0 75 74 54 65 78 74 28 77 69 6e 64 6f 77 25 2c 35 |utText(window%,5| 000011d0 2c c2 66 69 6c 65 24 2c 32 35 29 2c 32 35 29 0d |,.file$,25),25).| 000011e0 00 c9 1d f2 43 68 61 6e 67 65 53 70 72 69 74 65 |....ChangeSprite| 000011f0 28 22 66 69 6c 65 5f 66 66 62 22 29 0d 00 ca 0a |("file_ffb")....| 00001200 c9 26 32 30 30 30 0d 00 cb 2c 66 69 6c 65 24 3d |.&2000...,file$=| 00001210 a4 57 69 6d 70 5f 47 65 74 53 74 72 69 6e 67 41 |.Wimp_GetStringA| 00001220 74 41 64 64 72 65 73 73 28 77 69 6d 70 25 2b 34 |tAddress(wimp%+4| 00001230 34 29 0d 00 cc 2a 6c 65 61 66 24 3d a4 57 69 6d |4)...*leaf$=.Wim| 00001240 70 5f 47 65 74 46 69 6c 65 46 72 6f 6d 50 61 74 |p_GetFileFromPat| 00001250 68 6e 61 6d 65 28 66 69 6c 65 24 29 0d 00 cd 1c |hname(file$)....| 00001260 66 69 6c 65 24 3d 66 69 6c 65 24 2b 22 2e 21 52 |file$=file$+".!R| 00001270 75 6e 49 6d 61 67 65 22 0d 00 ce 1c ff 22 53 65 |unImage"....."Se| 00001280 74 20 42 61 73 69 63 24 46 69 6c 65 20 22 2b 66 |t Basic$File "+f| 00001290 69 6c 65 24 0d 00 cf 2e f2 57 69 6d 70 5f 49 63 |ile$.....Wimp_Ic| 000012a0 6f 6e 50 75 74 54 65 78 74 28 77 69 6e 64 6f 77 |onPutText(window| 000012b0 25 2c 35 2c c2 66 69 6c 65 24 2c 32 35 29 2c 32 |%,5,.file$,25),2| 000012c0 35 29 0d 00 d0 18 f2 43 68 61 6e 67 65 53 70 72 |5).....ChangeSpr| 000012d0 69 74 65 28 6c 65 61 66 24 29 0d 00 d1 05 cb 0d |ite(leaf$)......| 000012e0 00 d2 05 e1 0d 00 d3 21 dd f2 57 69 6d 70 5f 41 |.......!..Wimp_A| 000012f0 6c 65 72 74 28 74 69 74 6c 65 24 2c 6d 65 73 73 |lert(title$,mess| 00001300 61 67 65 24 29 0d 00 d4 0d 77 69 6d 70 25 21 34 |age$)....wimp%!4| 00001310 3d 9f 0d 00 d5 1a 24 28 77 69 6d 70 25 2b 34 29 |=.....$(wimp%+4)| 00001320 3d 6d 65 73 73 61 67 65 24 2b bd 30 0d 00 d6 27 |=message$+.0...'| 00001330 c8 99 22 57 69 6d 70 5f 52 65 70 6f 72 74 45 72 |.."Wimp_ReportEr| 00001340 72 6f 72 22 2c 77 69 6d 70 25 2c 31 2c 74 69 74 |ror",wimp%,1,tit| 00001350 6c 65 24 0d 00 d7 05 e1 0d 00 d8 2c dd a4 57 69 |le$........,..Wi| 00001360 6d 70 5f 57 69 6e 64 6f 77 4c 6f 61 64 46 72 6f |mp_WindowLoadFro| 00001370 6d 28 77 69 6e 64 6f 77 24 2c 74 65 6d 70 6c 61 |m(window$,templa| 00001380 74 65 24 29 0d 00 d9 0f 6d 65 6d 6f 72 79 25 3d |te$)....memory%=| 00001390 37 33 39 0d 00 da 12 de 69 63 6f 6e 73 25 6d 65 |739.....icons%me| 000013a0 6d 6f 72 79 25 0d 00 db 24 c8 99 22 57 69 6d 70 |mory%...$.."Wimp| 000013b0 5f 4f 70 65 6e 54 65 6d 70 6c 61 74 65 22 2c 2c |_OpenTemplate",,| 000013c0 74 65 6d 70 6c 61 74 65 24 0d 00 dc 4c c8 99 22 |template$...L.."| 000013d0 57 69 6d 70 5f 4c 6f 61 64 54 65 6d 70 6c 61 74 |Wimp_LoadTemplat| 000013e0 65 22 2c 2c 77 69 6d 70 25 2c 69 63 6f 6e 73 25 |e",,wimp%,icons%| 000013f0 2c 69 63 6f 6e 73 25 2b 6d 65 6d 6f 72 79 25 2c |,icons%+memory%,| 00001400 2d 31 2c 77 69 6e 64 6f 77 24 2c 30 b8 2c 2c 69 |-1,window$,0.,,i| 00001410 63 6f 6e 73 25 0d 00 dd 23 c8 99 22 57 69 6d 70 |cons%...#.."Wimp| 00001420 5f 43 72 65 61 74 65 57 69 6e 64 6f 77 22 2c 2c |_CreateWindow",,| 00001430 77 69 6d 70 25 b8 63 25 0d 00 de 1a c8 99 22 57 |wimp%.c%......"W| 00001440 69 6d 70 5f 43 6c 6f 73 65 54 65 6d 70 6c 61 74 |imp_CloseTemplat| 00001450 65 22 0d 00 df 1e f2 57 69 6d 70 5f 57 69 6e 64 |e".....Wimp_Wind| 00001460 6f 77 42 72 69 6e 67 54 6f 54 6f 70 28 63 25 29 |owBringToTop(c%)| 00001470 0d 00 e0 04 0d 00 e1 07 3d 63 25 0d 00 e2 24 dd |........=c%...$.| 00001480 f2 57 69 6d 70 5f 57 69 6e 64 6f 77 42 72 69 6e |.Wimp_WindowBrin| 00001490 67 54 6f 54 6f 70 28 77 69 6e 64 6f 77 25 29 0d |gToTop(window%).| 000014a0 00 e3 12 21 77 69 6d 70 25 3d 77 69 6e 64 6f 77 |...!wimp%=window| 000014b0 25 0d 00 e4 22 c8 99 22 57 69 6d 70 5f 47 65 74 |%...".."Wimp_Get| 000014c0 57 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c 77 69 |WindowState",,wi| 000014d0 6d 70 25 0d 00 e5 0f 77 69 6d 70 25 21 32 38 3d |mp%....wimp%!28=| 000014e0 2d 31 0d 00 e6 1e c8 99 22 57 69 6d 70 5f 4f 70 |-1......"Wimp_Op| 000014f0 65 6e 57 69 6e 64 6f 77 22 2c 2c 77 69 6d 70 25 |enWindow",,wimp%| 00001500 0d 00 e7 05 e1 0d 00 e8 30 dd f2 57 69 6d 70 5f |........0..Wimp_| 00001510 49 63 6f 6e 50 75 74 54 65 78 74 28 77 69 6e 64 |IconPutText(wind| 00001520 6f 77 25 2c 69 63 6f 6e 25 2c 74 65 78 74 24 2c |ow%,icon%,text$,| 00001530 6c 65 6e 25 29 0d 00 e9 16 74 65 78 74 24 3d c0 |len%)....text$=.| 00001540 74 65 78 74 24 2c 6c 65 6e 25 29 0d 00 ea 21 77 |text$,len%)...!w| 00001550 69 6d 70 25 21 30 3d 77 69 6e 64 6f 77 25 3a 77 |imp%!0=window%:w| 00001560 69 6d 70 25 21 34 3d 69 63 6f 6e 25 0d 00 eb 20 |imp%!4=icon%... | 00001570 c8 99 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 |.."Wimp_GetIconS| 00001580 74 61 74 65 22 2c 2c 77 69 6d 70 25 0d 00 ec 36 |tate",,wimp%...6| 00001590 78 30 25 3d 77 69 6d 70 25 21 38 3a 79 30 25 3d |x0%=wimp%!8:y0%=| 000015a0 77 69 6d 70 25 21 31 32 3a 78 31 25 3d 77 69 6d |wimp%!12:x1%=wim| 000015b0 70 25 21 31 36 3a 79 31 25 3d 77 69 6d 70 25 21 |p%!16:y1%=wimp%!| 000015c0 32 30 0d 00 ed 32 e7 28 28 77 69 6d 70 25 21 32 |20...2.((wimp%!2| 000015d0 34 29 80 26 31 30 30 29 3d 30 85 31 2c 22 49 63 |4).&100)=0.1,"Ic| 000015e0 6f 6e 20 69 73 6e 27 74 20 69 6e 64 69 72 65 63 |on isn't indirec| 000015f0 74 65 64 22 0d 00 ee 15 24 28 77 69 6d 70 25 21 |ted"....$(wimp%!| 00001600 32 38 29 3d 74 65 78 74 24 0d 00 ef 21 77 69 6d |28)=text$...!wim| 00001610 70 25 21 30 3d 77 69 6e 64 6f 77 25 3a 77 69 6d |p%!0=window%:wim| 00001620 70 25 21 34 3d 69 63 6f 6e 25 0d 00 f0 18 77 69 |p%!4=icon%....wi| 00001630 6d 70 25 21 38 3d 30 3a 77 69 6d 70 25 21 31 32 |mp%!8=0:wimp%!12| 00001640 3d 30 0d 00 f1 20 c8 99 22 57 69 6d 70 5f 53 65 |=0... .."Wimp_Se| 00001650 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 77 69 6d |tIconState",,wim| 00001660 70 25 0d 00 f2 05 e1 0d 00 f3 19 dd f2 43 68 61 |p%...........Cha| 00001670 6e 67 65 53 70 72 69 74 65 28 6c 65 61 66 24 29 |ngeSprite(leaf$)| 00001680 0d 00 f4 19 f4 4f 4e 45 52 52 4f 52 4c 4f 43 41 |.....ONERRORLOCA| 00001690 4c 3a 45 4e 44 50 52 4f 43 0d 00 f5 0c c8 8e 6c |L:ENDPROC......l| 000016a0 65 61 66 24 ca 0d 00 f6 3a c9 22 66 69 6c 65 5f |eaf$....:."file_| 000016b0 66 66 62 22 3a f2 57 69 6d 70 5f 49 63 6f 6e 50 |ffb":.Wimp_IconP| 000016c0 75 74 54 65 78 74 28 77 69 6e 64 6f 77 25 2c 33 |utText(window%,3| 000016d0 2c 22 66 69 6c 65 5f 66 66 62 22 2c 31 32 29 0d |,"file_ffb",12).| 000016e0 00 f7 05 7f 0d 00 f8 10 24 77 69 6d 70 25 3d 6c |........$wimp%=l| 000016f0 65 61 66 24 0d 00 f9 0c 61 64 64 72 25 3d 30 20 |eaf$....addr%=0 | 00001700 0d 00 fa 31 c8 99 22 58 57 69 6d 70 5f 53 70 72 |...1.."XWimp_Spr| 00001710 69 74 65 4f 70 22 2c 32 34 2c 2c 77 69 6d 70 25 |iteOp",24,,wimp%| 00001720 b8 20 20 2c 2c 61 64 64 72 25 3b 66 6c 61 67 73 |. ,,addr%;flags| 00001730 25 0d 00 fb 13 c8 8e 20 28 66 6c 61 67 73 25 80 |%...... (flags%.| 00001740 31 29 20 ca 0d 00 fc 34 20 c9 20 30 20 20 20 20 |1) ....4 . 0 | 00001750 3a 20 f2 57 69 6d 70 5f 49 63 6f 6e 50 75 74 54 |: .Wimp_IconPutT| 00001760 65 78 74 28 77 69 6e 64 6f 77 25 2c 33 2c 6c 65 |ext(window%,3,le| 00001770 61 66 24 2c 31 32 29 20 0d 00 fd 32 20 7f 20 3a |af$,12) ...2 . :| 00001780 f2 57 69 6d 70 5f 49 63 6f 6e 50 75 74 54 65 78 |.Wimp_IconPutTex| 00001790 74 28 77 69 6e 64 6f 77 25 2c 33 2c 22 66 69 6c |t(window%,3,"fil| 000017a0 65 5f 66 66 62 22 2c 31 32 29 0d 00 fe 05 cb 0d |e_ffb",12)......| 000017b0 00 ff 05 cb 0d 01 00 30 c8 99 22 57 69 6d 70 5f |.......0.."Wimp_| 000017c0 46 6f 72 63 65 52 65 64 72 61 77 22 2c 77 69 6e |ForceRedraw",win| 000017d0 64 6f 77 25 2c 78 30 25 2c 79 30 25 2c 78 31 25 |dow%,x0%,y0%,x1%| 000017e0 2c 79 31 25 0d 01 01 05 e1 0d 01 02 22 dd a4 57 |,y1%........"..W| 000017f0 69 6d 70 5f 47 65 74 46 69 6c 65 46 72 6f 6d 50 |imp_GetFileFromP| 00001800 61 74 68 6e 61 6d 65 28 66 24 29 0d 01 03 10 ea |athname(f$).....| 00001810 69 25 2c 6a 25 2c 6b 25 2c 67 24 0d 01 04 14 69 |i%,j%,k%,g$....i| 00001820 25 3d a7 66 24 2c 22 2e 22 29 3a 6a 25 3d 30 0d |%=.f$,"."):j%=0.| 00001830 01 05 09 c8 8e 69 25 ca 0d 01 06 0c c9 30 3a 67 |.....i%......0:g| 00001840 24 3d 66 24 0d 01 07 05 7f 0d 01 08 27 f5 6b 25 |$=f$........'.k%| 00001850 3d 6a 25 3a 6a 25 3d 69 25 3a 69 25 3d a7 66 24 |=j%:j%=i%:i%=.f$| 00001860 2c 22 2e 22 2c 69 25 2b 31 29 3a fd 69 25 3d 30 |,".",i%+1):.i%=0| 00001870 0d 01 09 1a c8 8e c2 66 24 2c a9 28 22 21 52 75 |.......f$,.("!Ru| 00001880 6e 49 6d 61 67 65 22 29 29 ca 0d 01 0a 34 c9 22 |nImage"))....4."| 00001890 21 52 75 6e 49 6d 61 67 65 22 2c 22 21 72 75 6e |!RunImage","!run| 000018a0 69 6d 61 67 65 22 2c 22 21 52 75 6e 69 6d 61 67 |image","!Runimag| 000018b0 65 22 2c 22 21 52 55 4e 49 4d 41 47 45 22 0d 01 |e","!RUNIMAGE"..| 000018c0 0b 12 67 24 3d c2 66 24 2c a9 66 24 2d 6b 25 29 |..g$=.f$,.f$-k%)| 000018d0 0d 01 0c 05 7f 0d 01 0d 12 67 24 3d c2 66 24 2c |.........g$=.f$,| 000018e0 a9 66 24 2d 6a 25 29 0d 01 0e 05 cb 0d 01 0f 05 |.f$-j%).........| 000018f0 cb 0d 01 10 07 3d 67 24 0d 01 11 25 dd a4 57 69 |.....=g$...%..Wi| 00001900 6d 70 5f 47 65 74 53 74 72 69 6e 67 41 74 41 64 |mp_GetStringAtAd| 00001910 64 72 65 73 73 28 61 72 72 61 79 25 29 0d 01 12 |dress(array%)...| 00001920 0d ea 73 24 3a 73 24 3d 22 22 0d 01 13 3b c8 95 |..s$:s$=""...;..| 00001930 28 3f 61 72 72 61 79 25 3c 3e 31 33 29 80 28 3f |(?array%<>13).(?| 00001940 61 72 72 61 79 25 3c 3e 30 29 3a 73 24 2b 3d bd |array%<>0):s$+=.| 00001950 28 3f 61 72 72 61 79 25 29 3a 61 72 72 61 79 25 |(?array%):array%| 00001960 2b 3d 31 3a ce 0d 01 14 07 3d 73 24 0d 01 15 2a |+=1:.....=s$...*| 00001970 dd f2 57 69 6d 70 5f 49 63 6f 6e 43 61 72 65 74 |..Wimp_IconCaret| 00001980 28 77 69 6e 64 6f 77 25 2c 69 63 6f 6e 25 2c 63 |(window%,icon%,c| 00001990 68 61 72 73 25 29 0d 01 16 37 c8 99 22 57 69 6d |hars%)...7.."Wim| 000019a0 70 5f 53 65 74 43 61 72 65 74 50 6f 73 69 74 69 |p_SetCaretPositi| 000019b0 6f 6e 22 2c 77 69 6e 64 6f 77 25 2c 69 63 6f 6e |on",window%,icon| 000019c0 25 2c 2c 2c 2d 31 2c 63 68 61 72 73 25 0d 01 17 |%,,,-1,chars%...| 000019d0 05 e1 0d 01 18 13 dd f2 45 72 72 6f 72 28 65 72 |........Error(er| 000019e0 72 6f 72 25 29 0d 01 19 07 ee 85 87 0d 01 1a 0d |ror%)...........| 000019f0 c8 8e 65 72 72 6f 72 25 ca 0d 01 1b 4f c9 30 3a |..error%....O.0:| 00001a00 f2 57 69 6d 70 5f 41 6c 65 72 74 28 22 54 68 72 |.Wimp_Alert("Thr| 00001a10 6f 77 62 61 63 6b 22 2c 22 46 61 74 61 6c 20 45 |owback","Fatal E| 00001a20 72 72 6f 72 20 69 6e 20 54 68 72 6f 77 62 61 63 |rror in Throwbac| 00001a30 6b 21 20 69 6e 74 65 72 6e 61 6c 20 63 6f 64 65 |k! internal code| 00001a40 20 22 2b c3 9e 29 3a e0 0d 01 1c 37 c9 31 3a f2 | "+..):....7.1:.| 00001a50 57 69 6d 70 5f 41 6c 65 72 74 28 22 54 68 72 6f |Wimp_Alert("Thro| 00001a60 77 62 61 63 6b 22 2c f6 24 2b 22 20 69 6e 74 65 |wback",.$+" inte| 00001a70 72 6e 61 6c 20 63 6f 64 65 20 22 2b c3 9e 29 0d |rnal code "+..).| 00001a80 01 1d 05 cb 0d 01 1e 05 e1 0d ff 00 74 03 00 00 |............t...| 00001a90 44 ec ff ff fb 91 f4 8e 3b 03 00 00 03 00 00 00 |D.......;.......| 00001aa0 52 65 73 6f 75 72 63 65 73 2e 45 64 69 74 2e 21 |Resources.Edit.!| 00001ab0 54 68 72 6f 77 2e 54 65 6d 70 6c 61 74 65 00 00 |Throw.Template..| 00001ac0 3f 03 00 00 ff ff ff ff 00 00 00 00 00 00 00 00 |?...............| 00001ad0 00 00 00 00 2c 00 00 00 0f 03 00 00 01 00 00 00 |....,...........| 00001ae0 4d 61 69 6e 0d 00 00 00 00 00 00 00 00 00 00 00 |Main............| 00001af0 7c 02 00 00 de 01 00 00 3a 05 00 00 e6 03 00 00 ||.......:.......| 00001b00 00 00 00 00 00 00 00 00 95 30 82 01 12 00 05 ff |.........0......| 00001b10 07 02 07 01 03 01 0c 00 00 00 00 00 f8 fd ff ff |................| 00001b20 be 02 00 00 00 00 00 00 09 01 00 00 00 00 00 00 |................| 00001b30 01 00 00 00 00 00 00 00 d8 01 00 00 ff ff ff ff |................| 00001b40 17 00 00 00 0c 00 00 00 08 00 00 00 fe fd ff ff |................| 00001b50 b8 02 00 00 d8 ff ff ff 3d 01 00 17 ef 01 00 00 |........=.......| 00001b60 f0 01 00 00 0c 00 00 00 1c 00 00 00 0a fe ff ff |................| 00001b70 8c 01 00 00 c0 fe ff ff 3d 61 00 17 f3 01 00 00 |........=a......| 00001b80 f4 01 00 00 0c 00 00 00 1c 00 00 00 d8 fe ff ff |................| 00001b90 a8 02 00 00 80 ff ff ff 3d 01 00 1b f7 01 00 00 |........=.......| 00001ba0 05 02 00 00 64 00 00 00 1e 00 00 00 a2 ff ff ff |....d...........| 00001bb0 70 00 00 00 fc ff ff ff 3e 01 00 17 0a 02 00 00 |p.......>.......| 00001bc0 01 00 00 00 0c 00 00 00 a4 01 00 00 26 fe ff ff |............&...| 00001bd0 8e 02 00 00 72 fe ff ff 3d 61 00 17 13 02 00 00 |....r...=a......| 00001be0 1d 02 00 00 0c 00 00 00 7e 00 00 00 b4 ff ff ff |........~.......| 00001bf0 48 02 00 00 f4 ff ff ff 3d 01 00 27 20 02 00 00 |H.......=..' ...| 00001c00 37 02 00 00 1a 00 00 00 46 00 00 00 66 ff ff ff |7.......F...f...| 00001c10 00 02 00 00 98 ff ff ff 3d 05 00 17 3a 02 00 00 |........=...:...| 00001c20 48 02 00 00 ff 00 00 00 2c 00 00 00 54 fe ff ff |H.......,...T...| 00001c30 1a 01 00 00 90 fe ff ff 13 b1 21 17 4b 02 00 00 |..........!.K...| 00001c40 52 02 00 00 22 00 00 00 f2 00 00 00 34 fe ff ff |R...".......4...| 00001c50 74 01 00 00 76 fe ff ff 2d 61 00 17 97 02 00 00 |t...v...-a......| 00001c60 9c 02 00 00 0c 00 00 00 2c 00 00 00 14 fe ff ff |........,.......| 00001c70 e6 00 00 00 4e fe ff ff 13 b1 01 17 9f 02 00 00 |....N...........| 00001c80 a7 02 00 00 22 00 00 00 52 00 00 00 a2 fe ff ff |...."...R.......| 00001c90 4c 01 00 00 d2 fe ff ff 3d 65 00 17 ec 02 00 00 |L.......=e......| 00001ca0 f9 02 00 00 0d 00 00 00 da 01 00 00 88 fe ff ff |................| 00001cb0 8a 02 00 00 b4 fe ff ff 33 b1 20 17 fc 02 00 00 |........3. .....| 00001cc0 01 03 00 00 10 00 00 00 45 72 72 6f 72 20 69 6e |........Error in| 00001cd0 20 42 61 73 69 63 20 50 72 6f 67 72 61 6d 0d 0d | Basic Program..| 00001ce0 52 33 0d 0d 52 33 0d 45 72 72 6f 72 20 6d 65 73 |R3..R3.Error mes| 00001cf0 73 61 67 65 0d 52 34 3b 4c 0d 66 69 6c 65 5f 66 |sage.R4;L.file_f| 00001d00 66 62 0d 54 68 72 6f 77 62 61 63 6b 0d 72 36 0d |fb.Throwback.r6.| 00001d10 22 21 42 61 73 69 63 46 69 6c 65 2e 21 52 75 6e |"!BasicFile.!Run| 00001d20 49 6d 61 67 65 22 0d 52 32 0d 45 72 72 6f 72 20 |Image".R2.Error | 00001d30 61 74 20 6c 69 6e 65 0d 52 31 0d 6e 6f 72 6d 61 |at line.R1.norma| 00001d40 6c 0d 53 72 61 64 69 6f 6f 66 66 2c 72 61 64 69 |l.Sradiooff,radi| 00001d50 6f 6f 6e 3b 55 31 2c 31 39 2c 32 30 2c 32 31 2c |oon;U1,19,20,21,| 00001d60 32 32 3b 52 30 2c 31 38 3b 52 31 2c 32 35 3b 55 |22;R0,18;R1,25;U| 00001d70 30 2c 32 36 2c 32 37 2c 32 38 2c 32 39 2c 33 30 |0,26,27,28,29,30| 00001d80 2c 33 31 2c 33 32 0d 72 65 64 6f 0d 72 36 0d 6c |,31,32.redo.r6.l| 00001d90 6f 67 69 63 61 6c 0d 53 72 61 64 69 6f 6f 66 66 |ogical.Sradiooff| 00001da0 2c 72 61 64 69 6f 6f 6e 3b 55 30 2c 31 39 2c 32 |,radioon;U0,19,2| 00001db0 30 2c 32 31 2c 32 32 3b 52 30 2c 32 35 3b 52 31 |0,21,22;R0,25;R1| 00001dc0 2c 31 38 3b 55 31 2c 32 36 2c 32 37 2c 32 38 2c |,18;U1,26,27,28,| 00001dd0 32 39 2c 33 30 2c 33 31 2c 33 32 0d 4c 69 6e 65 |29,30,31,32.Line| 00001de0 20 6e 75 6d 62 65 72 73 0d 72 31 0d 61 75 74 6f | numbers.r1.auto| 00001df0 0d 53 6f 70 74 6f 66 66 2c 6f 70 74 6f 6e 0d 00 |.Soptoff,opton..| 00001e00 cc 00 00 00 44 fb ff ff 3e f3 85 8e 94 00 00 00 |....D...>.......| 00001e10 03 00 00 00 52 65 73 6f 75 72 63 65 73 2e 45 64 |....Resources.Ed| 00001e20 69 74 2e 54 68 72 6f 77 62 61 63 6b 00 00 00 00 |it.Throwback....| 00001e30 98 00 00 00 0d 00 01 10 f4 20 3e 54 68 72 6f 77 |......... >Throw| 00001e40 62 61 63 6b 0d 00 02 24 2a 53 65 74 20 54 68 72 |back...$*Set Thr| 00001e50 6f 77 62 61 63 6b 24 46 69 6c 65 20 3c 42 61 73 |owback$File <Bas| 00001e60 69 63 24 46 69 6c 65 3e 0d 00 03 21 ff 28 22 53 |ic$File>...!.("S| 00001e70 65 74 20 54 68 72 6f 77 62 61 63 6b 24 52 65 70 |et Throwback$Rep| 00001e80 6f 72 74 20 22 2b f6 24 29 0d 00 04 1e ff 28 22 |ort "+.$).....("| 00001e90 53 65 74 20 54 68 72 6f 77 62 61 63 6b 24 45 52 |Set Throwback$ER| 00001ea0 4c 20 22 2b c3 9e 29 0d 00 05 16 2a 52 75 6e 20 |L "+..)....*Run | 00001eb0 45 64 69 74 3a 21 54 68 72 6f 77 20 20 0d 00 06 |Edit:!Throw ...| 00001ec0 05 e0 0d 00 07 04 0d ff 00 00 00 00 00 00 00 00 |................| 00001ed0 00 00 00 00 |....| 00001ed4