Home » Archimedes archive » Acorn User » AU 1997-03 B.adf » Features » PD/!Gamma/!RunImage
PD/!Gamma/!RunImage
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1997-03 B.adf » Features |
| Filename: | PD/!Gamma/!RunImage |
| Read OK: | ✔ |
| File size: | 08E0 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1REM>!RunImageC
2REMProduced by BasCompress v1.70 (06 Sep 1996)
3SYS&400C0,&C8,&4B534154,"Gamma"TO,T%:DIMA%568,K%&BC,Q%75,D%27,U%767:E%=A%+256:_%=K%+&BD:X%=U%+256:R%=X%+256:SYS&400D9,,"<Gamma$Dir>.Templates":S%=FNE("main"):q%=FNE("prog_info"):SYS&400DA:SYS8,16,"<Gamma$Dir>.Menu",Q%:Q%!32=q%:P%=D%:[OPT0:ADR0,U%:ADD1,0,#256
4ADD2,1,#256:MOV4,#9:MOV9,#35:SWI 52:MOVpc,&E:]:H%=FNM(S%,1):SYS16TOE$:Z%=INSTR(E$,"-set"):IFZ%THENZ%=VALMID$(E$,Z%+4)ELSEZ%=&64
5PROCE:J%=INSTR(E$,"-autoquit")>0:IFNOTJ%THEN
6!A%=-7:A%!4=0:A%!8=0:A%!&C=68:A%!16=68:A%!20=&301A:$(A%+24)="!gamma":SYS&400C2,2<<28,A%
7ENDIF:ONERRORPROCA
8REPEAT:SYS&400C7,1,A%TOz%:CASEz%OF
9WHEN1:PROCM
10WHEN2:SYS&400C5,,A%
11WHEN3:SYS&400C6,,A%
12WHEN6:PROCZ
13WHEN8:PROCF
14WHEN9:PROCS
15WHEN17,18:PROCW
16ENDCASE:UNTILJ%:SYS&400DD,T%,&4B534154:END
17DEFPROCM:!E%=S%:SYS&400CB,,E%:W%=E%!4-E%!20+8+&A:G%=E%!16-E%!24-284+&A:SYS&400C8,,A%TOV%:WHILEV%:SYS&400E6,0:RECTANGLEFILLW%,G%,256:SYS&400E6,7:E=&64/Z%:MOVEW%,G%:FORF%=1TO&FFSTEP&C:DRAWW%+F%,G%+&FF*(F%/&FF)^E:NEXT:SYS&400CA,,A%TOV%:ENDWHILE:ENDPROC
18DEFPROCZ:N%=A%!8:M%=A%!&C:C%=A%!16:CASEM%OF
19WHEN-2:CASEN%OF
20WHEN4,1:PROCP(S%)
21WHEN2:SYS&400D4,,Q%,!A%-76,&B8
22ENDCASE
23WHENS%:CASEN%OF
24WHEN4,1:CASEC%OF
25WHEN2,3:Y%=Z%:IF(C%=3ANDN%=4)OR(C%=2ANDN%=1)THEN
26IFZ%<490THENZ%+=&AELSEZ%=490
27ELSE:IFZ%>&ATHENZ%-=&AELSEZ%=&A
28ENDIF:IFZ%<>Y%THEN
29SYS&400D1,S%,8+&A,-284+&A,284 -&A,-8 -&A:PROCE
30ENDIF
31ENDCASE
32ENDCASE
33ENDCASE:ENDPROC
34DEFPROCF:IFA%!24=&DAND!A%=S%THEN
35Z%=VAL$H%*&64:IFZ%<&ATHENZ%=&AELSEIFZ%>490THENZ%=490
36SYS&400D1,S%,8+&A,-284+&A,284 -&A,-8 -&A:PROCE:SYS&400D2,-1
37ELSE:SYS&400DC,A%!24
38ENDIF:ENDPROC
39DEFPROCS:IF!A%=1THENJ%=TRUEELSESYS&400CF,,A%:IFA%!8=1THENSYS&400D4,,Q%,!A%-72,A%!4
40ENDPROC
41DEFPROCW:CASEA%!16OF
42WHEN0:J%=TRUE
43WHEN&A:BPUT#A%!20,"Run "+FNZ("Gamma$Dir")+" -set "+STR$Z%
44ENDCASE:ENDPROC
45DEFPROCE:@%="+f1.2":$H%=STR$(Z%/&64):@%="g10.9":PROCJ(S%,1,0,0):A=&64/Z%:?U%=0:?X%=0:?R%=0:FORF%=1TO&FF:E=&FF*(F%/&FF)^A:U%?F%=E:X%?F%=E:R%?F%=E:NEXT:CALLD%:ENDPROC
46DEFFNZ(Z$)SYS&20023,Z$,E%,&800,0,0TO,,B%:IFB%>0THENE%?B%=&D:=$E%
47=""
48DEFFNA(w%,B%)SYS53,w%,B%TO,,B%:=B%
49DEFPROCP(M%):!E%=M%:SYS&400CC,,E%:IFE%!32AND(1<<16)THEN
50E%!28=-1
51ELSE:W%=E%!52-E%!44:G%=E%!56-E%!48:I%=(FNA(-1,&B)<<FNA(-1,4))-W%:!E%=M%:E%!4=I%:E%!8=&88:E%!&C=I%+W%:E%!16=&88+G%
52ENDIF:SYS&400C5,,E%:ENDPROC
53DEFFNM(M%,C%):PROCC(M%,C%):=E%!28
54DEFPROCC(M%,C%):!E%=M%:E%!4=C%:SYS&400CE,,E%:ENDPROC
55DEFPROCJ(M%,C%,s%,x%):!E%=M%:E%!4=C%:E%!8=s%:E%!&C=x%:SYS&400CD,,E%:ENDPROC
56DEFFNE(A$):SYS&400DB,,A%,K%,_%,-1,A$,0TO,,K%:SYS&400C1,,A%TOM%:=M%
57DEFPROCA:!E%=ERR:$(E%+4)=REPORT$+" (IEC "+STR$ERL+")"+CHR$0:SYS&400DF,E%,3,"Gamma"TO,a%:IFa%=2THENJ%=TRUE:SYS&400DD,T%,&4B534154:ENDELSEJ%=FALSE
58ENDPROC
�>!RunImageC
0�Produced by BasCompress v1.70 (06 Sep 1996)
�ș&400C0,&C8,&4B534154,"Gamma"�,T%:�A%568,K%&BC,Q%75,D%27,U%767:E%=A%+256:_%=K%+&BD:X%=U%+256:R%=X%+256:ș&400D9,,"<Gamma$Dir>.Templates":S%=�E("main"):q%=�E("prog_info"):ș&400DA:ș8,16,"<Gamma$Dir>.Menu",Q%:Q%!32=q%:P%=D%:[OPT0:ADR0,U%:ADD1,0,#256
nADD2,1,#256:MOV4,#9:MOV9,#35:SWI 52:MOVpc,&E:]:H%=�M(S%,1):ș16�E$:Z%=�E$,"-set"):�Z%�Z%=��E$,Z%+4)�Z%=&64
"�E:J%=�E$,"-autoquit")>0:�J%�
Z!A%=-7:A%!4=0:A%!8=0:A%!&C=68:A%!16=68:A%!20=&301A:$(A%+24)="!gamma":ș&400C2,2<<28,A%
�:��A
�:ș&400C7,1,A%�z%:Ȏz%�
�1:�M
�2:ș&400C5,,A%
�3:ș&400C6,,A%
�6:�Z
�8:�F
�9:�S
�17,18:�W
!�:�J%:ș&400DD,T%,&4B534154:�
���M:!E%=S%:ș&400CB,,E%:W%=E%!4-E%!20+8+&A:G%=E%!16-E%!24-284+&A:ș&400C8,,A%�V%:ȕV%:ș&400E6,0:ȓȐW%,G%,256:ș&400E6,7:E=&64/Z%:�W%,G%:�F%=1�&FF�&C:�W%+F%,G%+&FF*(F%/&FF)^E:�:ș&400CA,,A%�V%:�:�
'��Z:N%=A%!8:M%=A%!&C:C%=A%!16:ȎM%�
�-2:ȎN%�
�4,1:�P(S%)
�2:ș&400D4,,Q%,!A%-76,&B8
�
�S%:ȎN%�
�4,1:ȎC%�
(�2,3:Y%=Z%:�(C%=3�N%=4)�(C%=2�N%=1)�
�Z%<490�Z%+=&A�Z%=490
�:�Z%>&A�Z%-=&A�Z%=&A
�:�Z%<>Y%�
.ș&400D1,S%,8+&A,-284+&A,284 -&A,-8 -&A:�E
�
�
�
!�:�
"��F:�A%!24=&D�!A%=S%�
#+Z%=�$H%*&64:�Z%<&A�Z%=&A��Z%>490�Z%=490
$:ș&400D1,S%,8+&A,-284+&A,284 -&A,-8 -&A:�E:ș&400D2,-1
%�:ș&400DC,A%!24
&�:�
'A��S:�!A%=1�J%=��ș&400CF,,A%:�A%!8=1�ș&400D4,,Q%,!A%-72,A%!4
(�
)��W:ȎA%!16�
* �0:J%=�
+3�&A:�#A%!20,"Run "+�Z("Gamma$Dir")+" -set "+�Z%
,�:�
-���E:@%="+f1.2":$H%=�(Z%/&64):@%="g10.9":�J(S%,1,0,0):A=&64/Z%:?U%=0:?X%=0:?R%=0:�F%=1�&FF:E=&FF*(F%/&FF)^A:U%?F%=E:X%?F%=E:R%?F%=E:�:�D%:�
.;ݤZ(Z$)ș&20023,Z$,E%,&800,0,0�,,B%:�B%>0�E%?B%=&D:=$E%
/=""
0!ݤA(w%,B%)ș53,w%,B%�,,B%:=B%
1/��P(M%):!E%=M%:ș&400CC,,E%:�E%!32�(1<<16)�
2 E%!28=-1
3p�:W%=E%!52-E%!44:G%=E%!56-E%!48:I%=(�A(-1,&B)<<�A(-1,4))-W%:!E%=M%:E%!4=I%:E%!8=&88:E%!&C=I%+W%:E%!16=&88+G%
4�:ș&400C5,,E%:�
5 ݤM(M%,C%):�C(M%,C%):=E%!28
6,��C(M%,C%):!E%=M%:E%!4=C%:ș&400CE,,E%:�
7C��J(M%,C%,s%,x%):!E%=M%:E%!4=C%:E%!8=s%:E%!&C=x%:ș&400CD,,E%:�
8?ݤE(A$):ș&400DB,,A%,K%,_%,-1,A$,0�,,K%:ș&400C1,,A%�M%:=M%
9m��A:!E%=�:$(E%+4)=�$+" (IEC "+Þ+")"+�0:ș&400DF,E%,3,"Gamma"�,a%:�a%=2�J%=�:ș&400DD,T%,&4B534154:�J%=�
:�
� 00000000 0d 00 01 10 f4 3e 21 52 75 6e 49 6d 61 67 65 43 |.....>!RunImageC|
00000010 0d 00 02 30 f4 50 72 6f 64 75 63 65 64 20 62 79 |...0.Produced by|
00000020 20 42 61 73 43 6f 6d 70 72 65 73 73 20 76 31 2e | BasCompress v1.|
00000030 37 30 20 28 30 36 20 53 65 70 20 31 39 39 36 29 |70 (06 Sep 1996)|
00000040 0d 00 03 fd c8 99 26 34 30 30 43 30 2c 26 43 38 |......&400C0,&C8|
00000050 2c 26 34 42 35 33 34 31 35 34 2c 22 47 61 6d 6d |,&4B534154,"Gamm|
00000060 61 22 b8 2c 54 25 3a de 41 25 35 36 38 2c 4b 25 |a".,T%:.A%568,K%|
00000070 26 42 43 2c 51 25 37 35 2c 44 25 32 37 2c 55 25 |&BC,Q%75,D%27,U%|
00000080 37 36 37 3a 45 25 3d 41 25 2b 32 35 36 3a 5f 25 |767:E%=A%+256:_%|
00000090 3d 4b 25 2b 26 42 44 3a 58 25 3d 55 25 2b 32 35 |=K%+&BD:X%=U%+25|
000000a0 36 3a 52 25 3d 58 25 2b 32 35 36 3a c8 99 26 34 |6:R%=X%+256:..&4|
000000b0 30 30 44 39 2c 2c 22 3c 47 61 6d 6d 61 24 44 69 |00D9,,"<Gamma$Di|
000000c0 72 3e 2e 54 65 6d 70 6c 61 74 65 73 22 3a 53 25 |r>.Templates":S%|
000000d0 3d a4 45 28 22 6d 61 69 6e 22 29 3a 71 25 3d a4 |=.E("main"):q%=.|
000000e0 45 28 22 70 72 6f 67 5f 69 6e 66 6f 22 29 3a c8 |E("prog_info"):.|
000000f0 99 26 34 30 30 44 41 3a c8 99 38 2c 31 36 2c 22 |.&400DA:..8,16,"|
00000100 3c 47 61 6d 6d 61 24 44 69 72 3e 2e 4d 65 6e 75 |<Gamma$Dir>.Menu|
00000110 22 2c 51 25 3a 51 25 21 33 32 3d 71 25 3a 50 25 |",Q%:Q%!32=q%:P%|
00000120 3d 44 25 3a 5b 4f 50 54 30 3a 41 44 52 30 2c 55 |=D%:[OPT0:ADR0,U|
00000130 25 3a 41 44 44 31 2c 30 2c 23 32 35 36 0d 00 04 |%:ADD1,0,#256...|
00000140 6e 41 44 44 32 2c 31 2c 23 32 35 36 3a 4d 4f 56 |nADD2,1,#256:MOV|
00000150 34 2c 23 39 3a 4d 4f 56 39 2c 23 33 35 3a 53 57 |4,#9:MOV9,#35:SW|
00000160 49 20 35 32 3a 4d 4f 56 70 63 2c 26 45 3a 5d 3a |I 52:MOVpc,&E:]:|
00000170 48 25 3d a4 4d 28 53 25 2c 31 29 3a c8 99 31 36 |H%=.M(S%,1):..16|
00000180 b8 45 24 3a 5a 25 3d a7 45 24 2c 22 2d 73 65 74 |.E$:Z%=.E$,"-set|
00000190 22 29 3a e7 5a 25 8c 5a 25 3d bb c1 45 24 2c 5a |"):.Z%.Z%=..E$,Z|
000001a0 25 2b 34 29 8b 5a 25 3d 26 36 34 0d 00 05 22 f2 |%+4).Z%=&64...".|
000001b0 45 3a 4a 25 3d a7 45 24 2c 22 2d 61 75 74 6f 71 |E:J%=.E$,"-autoq|
000001c0 75 69 74 22 29 3e 30 3a e7 ac 4a 25 8c 0d 00 06 |uit")>0:..J%....|
000001d0 5a 21 41 25 3d 2d 37 3a 41 25 21 34 3d 30 3a 41 |Z!A%=-7:A%!4=0:A|
000001e0 25 21 38 3d 30 3a 41 25 21 26 43 3d 36 38 3a 41 |%!8=0:A%!&C=68:A|
000001f0 25 21 31 36 3d 36 38 3a 41 25 21 32 30 3d 26 33 |%!16=68:A%!20=&3|
00000200 30 31 41 3a 24 28 41 25 2b 32 34 29 3d 22 21 67 |01A:$(A%+24)="!g|
00000210 61 6d 6d 61 22 3a c8 99 26 34 30 30 43 32 2c 32 |amma":..&400C2,2|
00000220 3c 3c 32 38 2c 41 25 0d 00 07 0a cd 3a ee 85 f2 |<<28,A%.....:...|
00000230 41 0d 00 08 1c f5 3a c8 99 26 34 30 30 43 37 2c |A.....:..&400C7,|
00000240 31 2c 41 25 b8 7a 25 3a c8 8e 7a 25 ca 0d 00 09 |1,A%.z%:..z%....|
00000250 09 c9 31 3a f2 4d 0d 00 0a 13 c9 32 3a c8 99 26 |..1:.M.....2:..&|
00000260 34 30 30 43 35 2c 2c 41 25 0d 00 0b 13 c9 33 3a |400C5,,A%.....3:|
00000270 c8 99 26 34 30 30 43 36 2c 2c 41 25 0d 00 0c 09 |..&400C6,,A%....|
00000280 c9 36 3a f2 5a 0d 00 0d 09 c9 38 3a f2 46 0d 00 |.6:.Z.....8:.F..|
00000290 0e 09 c9 39 3a f2 53 0d 00 0f 0d c9 31 37 2c 31 |...9:.S.....17,1|
000002a0 38 3a f2 57 0d 00 10 21 cb 3a fd 4a 25 3a c8 99 |8:.W...!.:.J%:..|
000002b0 26 34 30 30 44 44 2c 54 25 2c 26 34 42 35 33 34 |&400DD,T%,&4B534|
000002c0 31 35 34 3a e0 0d 00 11 c9 dd f2 4d 3a 21 45 25 |154:.......M:!E%|
000002d0 3d 53 25 3a c8 99 26 34 30 30 43 42 2c 2c 45 25 |=S%:..&400CB,,E%|
000002e0 3a 57 25 3d 45 25 21 34 2d 45 25 21 32 30 2b 38 |:W%=E%!4-E%!20+8|
000002f0 2b 26 41 3a 47 25 3d 45 25 21 31 36 2d 45 25 21 |+&A:G%=E%!16-E%!|
00000300 32 34 2d 32 38 34 2b 26 41 3a c8 99 26 34 30 30 |24-284+&A:..&400|
00000310 43 38 2c 2c 41 25 b8 56 25 3a c8 95 56 25 3a c8 |C8,,A%.V%:..V%:.|
00000320 99 26 34 30 30 45 36 2c 30 3a c8 93 c8 90 57 25 |.&400E6,0:....W%|
00000330 2c 47 25 2c 32 35 36 3a c8 99 26 34 30 30 45 36 |,G%,256:..&400E6|
00000340 2c 37 3a 45 3d 26 36 34 2f 5a 25 3a ec 57 25 2c |,7:E=&64/Z%:.W%,|
00000350 47 25 3a e3 46 25 3d 31 b8 26 46 46 88 26 43 3a |G%:.F%=1.&FF.&C:|
00000360 df 57 25 2b 46 25 2c 47 25 2b 26 46 46 2a 28 46 |.W%+F%,G%+&FF*(F|
00000370 25 2f 26 46 46 29 5e 45 3a ed 3a c8 99 26 34 30 |%/&FF)^E:.:..&40|
00000380 30 43 41 2c 2c 41 25 b8 56 25 3a ce 3a e1 0d 00 |0CA,,A%.V%:.:...|
00000390 12 27 dd f2 5a 3a 4e 25 3d 41 25 21 38 3a 4d 25 |.'..Z:N%=A%!8:M%|
000003a0 3d 41 25 21 26 43 3a 43 25 3d 41 25 21 31 36 3a |=A%!&C:C%=A%!16:|
000003b0 c8 8e 4d 25 ca 0d 00 13 0d c9 2d 32 3a c8 8e 4e |..M%......-2:..N|
000003c0 25 ca 0d 00 14 0f c9 34 2c 31 3a f2 50 28 53 25 |%......4,1:.P(S%|
000003d0 29 0d 00 15 1e c9 32 3a c8 99 26 34 30 30 44 34 |).....2:..&400D4|
000003e0 2c 2c 51 25 2c 21 41 25 2d 37 36 2c 26 42 38 0d |,,Q%,!A%-76,&B8.|
000003f0 00 16 05 cb 0d 00 17 0d c9 53 25 3a c8 8e 4e 25 |.........S%:..N%|
00000400 ca 0d 00 18 0e c9 34 2c 31 3a c8 8e 43 25 ca 0d |......4,1:..C%..|
00000410 00 19 28 c9 32 2c 33 3a 59 25 3d 5a 25 3a e7 28 |..(.2,3:Y%=Z%:.(|
00000420 43 25 3d 33 80 4e 25 3d 34 29 84 28 43 25 3d 32 |C%=3.N%=4).(C%=2|
00000430 80 4e 25 3d 31 29 8c 0d 00 1a 19 e7 5a 25 3c 34 |.N%=1)......Z%<4|
00000440 39 30 8c 5a 25 2b 3d 26 41 8b 5a 25 3d 34 39 30 |90.Z%+=&A.Z%=490|
00000450 0d 00 1b 19 cc 3a e7 5a 25 3e 26 41 8c 5a 25 2d |.....:.Z%>&A.Z%-|
00000460 3d 26 41 8b 5a 25 3d 26 41 0d 00 1c 0e cd 3a e7 |=&A.Z%=&A.....:.|
00000470 5a 25 3c 3e 59 25 8c 0d 00 1d 2e c8 99 26 34 30 |Z%<>Y%.......&40|
00000480 30 44 31 2c 53 25 2c 38 2b 26 41 2c 2d 32 38 34 |0D1,S%,8+&A,-284|
00000490 2b 26 41 2c 32 38 34 20 2d 26 41 2c 2d 38 20 2d |+&A,284 -&A,-8 -|
000004a0 26 41 3a f2 45 0d 00 1e 05 cd 0d 00 1f 05 cb 0d |&A:.E...........|
000004b0 00 20 05 cb 0d 00 21 07 cb 3a e1 0d 00 22 19 dd |. ....!..:..."..|
000004c0 f2 46 3a e7 41 25 21 32 34 3d 26 44 80 21 41 25 |.F:.A%!24=&D.!A%|
000004d0 3d 53 25 8c 0d 00 23 2b 5a 25 3d bb 24 48 25 2a |=S%...#+Z%=.$H%*|
000004e0 26 36 34 3a e7 5a 25 3c 26 41 8c 5a 25 3d 26 41 |&64:.Z%<&A.Z%=&A|
000004f0 8b e7 5a 25 3e 34 39 30 8c 5a 25 3d 34 39 30 0d |..Z%>490.Z%=490.|
00000500 00 24 3a c8 99 26 34 30 30 44 31 2c 53 25 2c 38 |.$:..&400D1,S%,8|
00000510 2b 26 41 2c 2d 32 38 34 2b 26 41 2c 32 38 34 20 |+&A,-284+&A,284 |
00000520 2d 26 41 2c 2d 38 20 2d 26 41 3a f2 45 3a c8 99 |-&A,-8 -&A:.E:..|
00000530 26 34 30 30 44 32 2c 2d 31 0d 00 25 14 cc 3a c8 |&400D2,-1..%..:.|
00000540 99 26 34 30 30 44 43 2c 41 25 21 32 34 0d 00 26 |.&400DC,A%!24..&|
00000550 07 cd 3a e1 0d 00 27 41 dd f2 53 3a e7 21 41 25 |..:...'A..S:.!A%|
00000560 3d 31 8c 4a 25 3d b9 8b c8 99 26 34 30 30 43 46 |=1.J%=....&400CF|
00000570 2c 2c 41 25 3a e7 41 25 21 38 3d 31 8c c8 99 26 |,,A%:.A%!8=1...&|
00000580 34 30 30 44 34 2c 2c 51 25 2c 21 41 25 2d 37 32 |400D4,,Q%,!A%-72|
00000590 2c 41 25 21 34 0d 00 28 05 e1 0d 00 29 10 dd f2 |,A%!4..(....)...|
000005a0 57 3a c8 8e 41 25 21 31 36 ca 0d 00 2a 0b c9 30 |W:..A%!16...*..0|
000005b0 3a 4a 25 3d b9 0d 00 2b 33 c9 26 41 3a d5 23 41 |:J%=...+3.&A:.#A|
000005c0 25 21 32 30 2c 22 52 75 6e 20 22 2b a4 5a 28 22 |%!20,"Run "+.Z("|
000005d0 47 61 6d 6d 61 24 44 69 72 22 29 2b 22 20 2d 73 |Gamma$Dir")+" -s|
000005e0 65 74 20 22 2b c3 5a 25 0d 00 2c 07 cb 3a e1 0d |et "+.Z%..,..:..|
000005f0 00 2d 8e dd f2 45 3a 40 25 3d 22 2b 66 31 2e 32 |.-...E:@%="+f1.2|
00000600 22 3a 24 48 25 3d c3 28 5a 25 2f 26 36 34 29 3a |":$H%=.(Z%/&64):|
00000610 40 25 3d 22 67 31 30 2e 39 22 3a f2 4a 28 53 25 |@%="g10.9":.J(S%|
00000620 2c 31 2c 30 2c 30 29 3a 41 3d 26 36 34 2f 5a 25 |,1,0,0):A=&64/Z%|
00000630 3a 3f 55 25 3d 30 3a 3f 58 25 3d 30 3a 3f 52 25 |:?U%=0:?X%=0:?R%|
00000640 3d 30 3a e3 46 25 3d 31 b8 26 46 46 3a 45 3d 26 |=0:.F%=1.&FF:E=&|
00000650 46 46 2a 28 46 25 2f 26 46 46 29 5e 41 3a 55 25 |FF*(F%/&FF)^A:U%|
00000660 3f 46 25 3d 45 3a 58 25 3f 46 25 3d 45 3a 52 25 |?F%=E:X%?F%=E:R%|
00000670 3f 46 25 3d 45 3a ed 3a d6 44 25 3a e1 0d 00 2e |?F%=E:.:.D%:....|
00000680 3b dd a4 5a 28 5a 24 29 c8 99 26 32 30 30 32 33 |;..Z(Z$)..&20023|
00000690 2c 5a 24 2c 45 25 2c 26 38 30 30 2c 30 2c 30 b8 |,Z$,E%,&800,0,0.|
000006a0 2c 2c 42 25 3a e7 42 25 3e 30 8c 45 25 3f 42 25 |,,B%:.B%>0.E%?B%|
000006b0 3d 26 44 3a 3d 24 45 25 0d 00 2f 07 3d 22 22 0d |=&D:=$E%../.="".|
000006c0 00 30 21 dd a4 41 28 77 25 2c 42 25 29 c8 99 35 |.0!..A(w%,B%)..5|
000006d0 33 2c 77 25 2c 42 25 b8 2c 2c 42 25 3a 3d 42 25 |3,w%,B%.,,B%:=B%|
000006e0 0d 00 31 2f dd f2 50 28 4d 25 29 3a 21 45 25 3d |..1/..P(M%):!E%=|
000006f0 4d 25 3a c8 99 26 34 30 30 43 43 2c 2c 45 25 3a |M%:..&400CC,,E%:|
00000700 e7 45 25 21 33 32 80 28 31 3c 3c 31 36 29 8c 0d |.E%!32.(1<<16)..|
00000710 00 32 0c 45 25 21 32 38 3d 2d 31 0d 00 33 70 cc |.2.E%!28=-1..3p.|
00000720 3a 57 25 3d 45 25 21 35 32 2d 45 25 21 34 34 3a |:W%=E%!52-E%!44:|
00000730 47 25 3d 45 25 21 35 36 2d 45 25 21 34 38 3a 49 |G%=E%!56-E%!48:I|
00000740 25 3d 28 a4 41 28 2d 31 2c 26 42 29 3c 3c a4 41 |%=(.A(-1,&B)<<.A|
00000750 28 2d 31 2c 34 29 29 2d 57 25 3a 21 45 25 3d 4d |(-1,4))-W%:!E%=M|
00000760 25 3a 45 25 21 34 3d 49 25 3a 45 25 21 38 3d 26 |%:E%!4=I%:E%!8=&|
00000770 38 38 3a 45 25 21 26 43 3d 49 25 2b 57 25 3a 45 |88:E%!&C=I%+W%:E|
00000780 25 21 31 36 3d 26 38 38 2b 47 25 0d 00 34 14 cd |%!16=&88+G%..4..|
00000790 3a c8 99 26 34 30 30 43 35 2c 2c 45 25 3a e1 0d |:..&400C5,,E%:..|
000007a0 00 35 1f dd a4 4d 28 4d 25 2c 43 25 29 3a f2 43 |.5...M(M%,C%):.C|
000007b0 28 4d 25 2c 43 25 29 3a 3d 45 25 21 32 38 0d 00 |(M%,C%):=E%!28..|
000007c0 36 2c dd f2 43 28 4d 25 2c 43 25 29 3a 21 45 25 |6,..C(M%,C%):!E%|
000007d0 3d 4d 25 3a 45 25 21 34 3d 43 25 3a c8 99 26 34 |=M%:E%!4=C%:..&4|
000007e0 30 30 43 45 2c 2c 45 25 3a e1 0d 00 37 43 dd f2 |00CE,,E%:...7C..|
000007f0 4a 28 4d 25 2c 43 25 2c 73 25 2c 78 25 29 3a 21 |J(M%,C%,s%,x%):!|
00000800 45 25 3d 4d 25 3a 45 25 21 34 3d 43 25 3a 45 25 |E%=M%:E%!4=C%:E%|
00000810 21 38 3d 73 25 3a 45 25 21 26 43 3d 78 25 3a c8 |!8=s%:E%!&C=x%:.|
00000820 99 26 34 30 30 43 44 2c 2c 45 25 3a e1 0d 00 38 |.&400CD,,E%:...8|
00000830 3f dd a4 45 28 41 24 29 3a c8 99 26 34 30 30 44 |?..E(A$):..&400D|
00000840 42 2c 2c 41 25 2c 4b 25 2c 5f 25 2c 2d 31 2c 41 |B,,A%,K%,_%,-1,A|
00000850 24 2c 30 b8 2c 2c 4b 25 3a c8 99 26 34 30 30 43 |$,0.,,K%:..&400C|
00000860 31 2c 2c 41 25 b8 4d 25 3a 3d 4d 25 0d 00 39 6d |1,,A%.M%:=M%..9m|
00000870 dd f2 41 3a 21 45 25 3d 9f 3a 24 28 45 25 2b 34 |..A:!E%=.:$(E%+4|
00000880 29 3d f6 24 2b 22 20 28 49 45 43 20 22 2b c3 9e |)=.$+" (IEC "+..|
00000890 2b 22 29 22 2b bd 30 3a c8 99 26 34 30 30 44 46 |+")"+.0:..&400DF|
000008a0 2c 45 25 2c 33 2c 22 47 61 6d 6d 61 22 b8 2c 61 |,E%,3,"Gamma".,a|
000008b0 25 3a e7 61 25 3d 32 8c 4a 25 3d b9 3a c8 99 26 |%:.a%=2.J%=.:..&|
000008c0 34 30 30 44 44 2c 54 25 2c 26 34 42 35 33 34 31 |400DD,T%,&4B5341|
000008d0 35 34 3a e0 8b 4a 25 3d a3 0d 00 3a 05 e1 0d ff |54:..J%=...:....|
000008e0 
.