Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape07a_acorn_eu_1990_january.wav » PIE

PIE

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 » Personal collection » Acorn tapes » Electron_User » Electron_User_tape07a_acorn_eu_1990_january.wav
Filename: PIE
Read OK: ✔
File size: 07F0 bytes
Load address: 2000
Exec address: 1900
Duplicates

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

File contents
   10 REM **** PIE-CHARTIST ****
   20 REM ** Jon Willington  ***
   25 REM **(C) ELECTRON USER **
   30 MODE1
   40 X%=640:Y%=512:J%=400:K%=150
   50 VDU19,3,4;0;19,1,6;0;
   60 V=0:D%=-50
   70 A$="PIE-CHARTIST":PROCtitle
   80 PROCinput
   90 REM* Calculate angles of sectors*
  100 T=48-2*N:R=T/V
  110 FOR B=1 TO N:Q(B)=Q(B)*R
  120 Q(B)=INTQ(B)-(Q(B)-INTQ(B)>.5)
  130 NEXT:F=1
  140 FOR B=1 TO N
  150 H%(B,1)=F:H%(B,2)=H%(B,1)+Q(B)
  160 F=H%(B,2)+2:NEXT
  170 P=(H%(N,2)+1)/(2*PI)
  180 GCOL11,129
  190 REM *** Draw sides of sectors ***
  200 VDU23,1,0;0;0;0;
  210 FOR A%=1 TO N
  220 M=H%(A%,1)/P
  230 MOVE X%,Y%:MOVEX%,Y%+D%
  240 IF COSM>0 PLOT87,J%*COS(M)+X%,K%*SIN(M)+Y%:PLOT83,0,D%
  250 MOVE X%,Y%:MOVEX%,Y%+D%
  260 M=H%(A%,2)/P
  270 IF COSM<0 PLOT87,J%*COS(M)+X%,K%*SIN(M)+Y%:PLOT83,0,D%
  280 NEXT:GCOL0,1
  290 REM *** Draw top of pie ****
  300 VDU 23,1,0;0;0;0;
  310 FOR A%=1 TO N
  320 M=(H%(A%,1)/P)
  330 MOVEJ%*COS(M)+X%,K%*SIN(M)+Y%
  340 FOR F%=H%(A%,1) TO H%(A%,2)
  350 MOVEX%,Y%
  360 PLOT85,J%*COS(F%/P)+X%,K%*SIN(F%/P)+Y%
  370 NEXT:NEXT:GCOL0,3
  380 REM *** Draw outside of pie ***
  390 FOR A%=1 TO N
  400 FOR F%=H%(A%,1) TO H%(A%,2)-1
  410 M=F%/P:V=(F%+1)/P
  420 IF SINM>0 THEN 440
  430 MOVEJ%*COS(M)+X%,K%*SIN(M)+Y%:PLOT0,0,D%:PLOT85,J%*COS(V)+X%,K%*SIN(V)+Y%:PLOT81,0,D%
  440 NEXT:NEXT
  450 REM *** Label sectors ***
  460 FOR M=1 TO N
  470 V=(H%(M,2)-H%(M,1))/2:V=V+H%(M,1):V=V/P
  480 GCOL0,1:VDU5
  490 MOVE400*COS(V)+X%,150*SIN(V)+490
  500 DRAW600*COS(V)+X%,225*SIN(V)+530
  510 MOVE610*COS(V)+X%,233*SIN(V)+530
  520 GCOL0,2:PRINTCHR$(96+M);CHR$(41):GCOL0,3
  530 NEXT
  540 REPEAT UNTIL FALSE
  550 END
  560 DEFPROCinput
  570 VDU4:COLOUR128:COLOUR1
  580 VDU23,1,0;0;0;0;
  590 INPUTTAB(2,8)"TITLE OF CHART",A$
  600 INPUT TAB(2,10)"NUMBER OF SECTORS (MAX: 10)"N
  610 IF N<1 OR N>10 THEN VDU7:CLS:GOTO600
  620 DIM Q(N),H%(N,2)
  630 PRINT'"NOW COMPLETE THIS TABLE"
  640 W=INKEY(150)
  650 VDU12,17,2,17,131
  660 PRINT'''"   NAME OF ENTRY";SPC9;"VALUE";SPC10
  670 GCOL0,1
  680 MOVE0,928:PLOT1,0,-36-(N*32)
  690 PLOT1,1279,0:DRAW1279,928
  700 GCOL3,1:MOVE640,928
  710 PLOT1,0,-36-(N*32):COLOUR128:COLOUR 2
  720 FOR A=1 TO N
  730 PRINTTAB(1,3+A)CHR$(96+A);CHR$41
  740 INPUTTAB(5,3+A)DY$
  750 INPUTTAB(25,3+A)Q(A)
  760 V=V+Q(A)
  770 NEXT
  780 FOR G=1 TO (31-VPOS)
  790 VDU31,0,0,11
  800 VDU23,1,0;0;0;0;
  810 DELAY=INKEY5
  820 NEXT
  830 PROCtitle
  840 VDU29,0;(N*32)/2;
  850 ENDPROC
  860 DEFPROCtitle
  870 COLOUR131:PRINTTAB(0,0)STRING$(80,CHR$32)
  880 VDU5:CV=640-(LENA$*16)
  890GCOL0,0:MOVECV,1015:PRINTA$:MOVECV+4,1011:PRINTA$:GCOL0,2:MOVECV+8,1007:PRINTA$
  900 VDU 4
  910 ENDPROC


 � **** PIE-CHARTIST ****
 � ** Jon Willington  ***
 � **(C) ELECTRON USER **
 �1
(  X%=640:Y%=512:J%=400:K%=150
2 �19,3,4;0;19,1,6;0;
< V=0:D%=-50
F A$="PIE-CHARTIST":�title
P �input
Z$ �* Calculate angles of sectors*
d T=48-2*N:R=T/V
n � B=1 � N:Q(B)=Q(B)*R
x Q(B)=�Q(B)-(Q(B)-�Q(B)>.5)
�
 �:F=1
� � B=1 � N
�# H%(B,1)=F:H%(B,2)=H%(B,1)+Q(B)
� F=H%(B,2)+2:�
� P=(H%(N,2)+1)/(2*�)
� �11,129
�$ � *** Draw sides of sectors ***
� �23,1,0;0;0;0;
� � A%=1 � N
� M=H%(A%,1)/P
� � X%,Y%:�X%,Y%+D%
�. � �M>0 �87,J%*�(M)+X%,K%*�(M)+Y%:�83,0,D%
� � X%,Y%:�X%,Y%+D%
 M=H%(A%,2)/P
. � �M<0 �87,J%*�(M)+X%,K%*�(M)+Y%:�83,0,D%
 �:�0,1
" � *** Draw top of pie ****
, � 23,1,0;0;0;0;
6 � A%=1 � N
@ M=(H%(A%,1)/P)
J �J%*�(M)+X%,K%*�(M)+Y%
T � F%=H%(A%,1) � H%(A%,2)
^ �X%,Y%
h$ �85,J%*�(F%/P)+X%,K%*�(F%/P)+Y%
r
 �:�:�0,3
|" � *** Draw outside of pie ***
� � A%=1 � N
� � F%=H%(A%,1) � H%(A%,2)-1
� M=F%/P:V=(F%+1)/P
� � �M>0 � �txA
�F �J%*�(M)+X%,K%*�(M)+Y%:�0,0,D%:�85,J%*�(V)+X%,K%*�(V)+Y%:�81,0,D%
� �:�
� � *** Label sectors ***
� � M=1 � N
�, V=(H%(M,2)-H%(M,1))/2:V=V+H%(M,1):V=V/P
� �0,1:�5
� �400*�(V)+X%,150*�(V)+490
� �600*�(V)+X%,225*�(V)+530
� �610*�(V)+X%,233*�(V)+530
 �0,2:�(96+M);�(41):�0,3
 �

 � � �
& �
0 ��input
: �4:�128:�1
D �23,1,0;0;0;0;
N �2,8)"TITLE OF CHART",A$
X+ � �2,10)"NUMBER OF SECTORS (MAX: 10)"N
b � N<1 � N>10 � �7:�:�DXB
l � Q(N),H%(N,2)
v  �'"NOW COMPLETE THIS TABLE"
�
 W=�(150)
� �12,17,2,17,131
�* �'''"   NAME OF ENTRY";�9;"VALUE";�10
�	 �0,1
� �0,928:�1,0,-36-(N*32)
� �1,1279,0:�1279,928
� �3,1:�640,928
� �1,0,-36-(N*32):�128:� 2
� � A=1 � N
� �1,3+A)�(96+A);�41
� �5,3+A)DY$
� �25,3+A)Q(A)
�
 V=V+Q(A)
 �
 � G=1 � (31-�)
 �31,0,0,11
  �23,1,0;0;0;0;
*
 DELAY=�5
4 �
> �title
H �29,0;(N*32)/2;
R �
\ ��title
f �131:�0,0)�80,�32)
p �5:CV=640-(�A$*16)
z8�0,0:�CV,1015:�A$:�CV+4,1011:�A$:�0,2:�CV+8,1007:�A$
� � 4
� �
�
00000000  0d 00 0a 1d 20 f4 20 2a  2a 2a 2a 20 50 49 45 2d  |.... . **** PIE-|
00000010  43 48 41 52 54 49 53 54  20 2a 2a 2a 2a 0d 00 14  |CHARTIST ****...|
00000020  1d 20 f4 20 2a 2a 20 4a  6f 6e 20 57 69 6c 6c 69  |. . ** Jon Willi|
00000030  6e 67 74 6f 6e 20 20 2a  2a 2a 0d 00 19 1d 20 f4  |ngton  ***.... .|
00000040  20 2a 2a 28 43 29 20 45  4c 45 43 54 52 4f 4e 20  | **(C) ELECTRON |
00000050  55 53 45 52 20 2a 2a 0d  00 1e 07 20 eb 31 0d 00  |USER **.... .1..|
00000060  28 20 20 58 25 3d 36 34  30 3a 59 25 3d 35 31 32  |(  X%=640:Y%=512|
00000070  3a 4a 25 3d 34 30 30 3a  4b 25 3d 31 35 30 0d 00  |:J%=400:K%=150..|
00000080  32 18 20 ef 31 39 2c 33  2c 34 3b 30 3b 31 39 2c  |2. .19,3,4;0;19,|
00000090  31 2c 36 3b 30 3b 0d 00  3c 0f 20 56 3d 30 3a 44  |1,6;0;..<. V=0:D|
000000a0  25 3d 2d 35 30 0d 00 46  1d 20 41 24 3d 22 50 49  |%=-50..F. A$="PI|
000000b0  45 2d 43 48 41 52 54 49  53 54 22 3a f2 74 69 74  |E-CHARTIST":.tit|
000000c0  6c 65 0d 00 50 0b 20 f2  69 6e 70 75 74 0d 00 5a  |le..P. .input..Z|
000000d0  24 20 f4 2a 20 43 61 6c  63 75 6c 61 74 65 20 61  |$ .* Calculate a|
000000e0  6e 67 6c 65 73 20 6f 66  20 73 65 63 74 6f 72 73  |ngles of sectors|
000000f0  2a 0d 00 64 13 20 54 3d  34 38 2d 32 2a 4e 3a 52  |*..d. T=48-2*N:R|
00000100  3d 54 2f 56 0d 00 6e 1a  20 e3 20 42 3d 31 20 b8  |=T/V..n. . B=1 .|
00000110  20 4e 3a 51 28 42 29 3d  51 28 42 29 2a 52 0d 00  | N:Q(B)=Q(B)*R..|
00000120  78 1f 20 51 28 42 29 3d  a8 51 28 42 29 2d 28 51  |x. Q(B)=.Q(B)-(Q|
00000130  28 42 29 2d a8 51 28 42  29 3e 2e 35 29 0d 00 82  |(B)-.Q(B)>.5)...|
00000140  0a 20 ed 3a 46 3d 31 0d  00 8c 0e 20 e3 20 42 3d  |. .:F=1.... . B=|
00000150  31 20 b8 20 4e 0d 00 96  23 20 48 25 28 42 2c 31  |1 . N...# H%(B,1|
00000160  29 3d 46 3a 48 25 28 42  2c 32 29 3d 48 25 28 42  |)=F:H%(B,2)=H%(B|
00000170  2c 31 29 2b 51 28 42 29  0d 00 a0 12 20 46 3d 48  |,1)+Q(B).... F=H|
00000180  25 28 42 2c 32 29 2b 32  3a ed 0d 00 aa 18 20 50  |%(B,2)+2:..... P|
00000190  3d 28 48 25 28 4e 2c 32  29 2b 31 29 2f 28 32 2a  |=(H%(N,2)+1)/(2*|
000001a0  af 29 0d 00 b4 0c 20 e6  31 31 2c 31 32 39 0d 00  |.).... .11,129..|
000001b0  be 24 20 f4 20 2a 2a 2a  20 44 72 61 77 20 73 69  |.$ . *** Draw si|
000001c0  64 65 73 20 6f 66 20 73  65 63 74 6f 72 73 20 2a  |des of sectors *|
000001d0  2a 2a 0d 00 c8 13 20 ef  32 33 2c 31 2c 30 3b 30  |**.... .23,1,0;0|
000001e0  3b 30 3b 30 3b 0d 00 d2  0f 20 e3 20 41 25 3d 31  |;0;0;.... . A%=1|
000001f0  20 b8 20 4e 0d 00 dc 11  20 4d 3d 48 25 28 41 25  | . N.... M=H%(A%|
00000200  2c 31 29 2f 50 0d 00 e6  16 20 ec 20 58 25 2c 59  |,1)/P.... . X%,Y|
00000210  25 3a ec 58 25 2c 59 25  2b 44 25 0d 00 f0 2e 20  |%:.X%,Y%+D%.... |
00000220  e7 20 9b 4d 3e 30 20 f0  38 37 2c 4a 25 2a 9b 28  |. .M>0 .87,J%*.(|
00000230  4d 29 2b 58 25 2c 4b 25  2a b5 28 4d 29 2b 59 25  |M)+X%,K%*.(M)+Y%|
00000240  3a f0 38 33 2c 30 2c 44  25 0d 00 fa 16 20 ec 20  |:.83,0,D%.... . |
00000250  58 25 2c 59 25 3a ec 58  25 2c 59 25 2b 44 25 0d  |X%,Y%:.X%,Y%+D%.|
00000260  01 04 11 20 4d 3d 48 25  28 41 25 2c 32 29 2f 50  |... M=H%(A%,2)/P|
00000270  0d 01 0e 2e 20 e7 20 9b  4d 3c 30 20 f0 38 37 2c  |.... . .M<0 .87,|
00000280  4a 25 2a 9b 28 4d 29 2b  58 25 2c 4b 25 2a b5 28  |J%*.(M)+X%,K%*.(|
00000290  4d 29 2b 59 25 3a f0 38  33 2c 30 2c 44 25 0d 01  |M)+Y%:.83,0,D%..|
000002a0  18 0b 20 ed 3a e6 30 2c  31 0d 01 22 1f 20 f4 20  |.. .:.0,1..". . |
000002b0  2a 2a 2a 20 44 72 61 77  20 74 6f 70 20 6f 66 20  |*** Draw top of |
000002c0  70 69 65 20 2a 2a 2a 2a  0d 01 2c 14 20 ef 20 32  |pie ****..,. . 2|
000002d0  33 2c 31 2c 30 3b 30 3b  30 3b 30 3b 0d 01 36 0f  |3,1,0;0;0;0;..6.|
000002e0  20 e3 20 41 25 3d 31 20  b8 20 4e 0d 01 40 13 20  | . A%=1 . N..@. |
000002f0  4d 3d 28 48 25 28 41 25  2c 31 29 2f 50 29 0d 01  |M=(H%(A%,1)/P)..|
00000300  4a 1b 20 ec 4a 25 2a 9b  28 4d 29 2b 58 25 2c 4b  |J. .J%*.(M)+X%,K|
00000310  25 2a b5 28 4d 29 2b 59  25 0d 01 54 1d 20 e3 20  |%*.(M)+Y%..T. . |
00000320  46 25 3d 48 25 28 41 25  2c 31 29 20 b8 20 48 25  |F%=H%(A%,1) . H%|
00000330  28 41 25 2c 32 29 0d 01  5e 0b 20 ec 58 25 2c 59  |(A%,2)..^. .X%,Y|
00000340  25 0d 01 68 24 20 f0 38  35 2c 4a 25 2a 9b 28 46  |%..h$ .85,J%*.(F|
00000350  25 2f 50 29 2b 58 25 2c  4b 25 2a b5 28 46 25 2f  |%/P)+X%,K%*.(F%/|
00000360  50 29 2b 59 25 0d 01 72  0d 20 ed 3a ed 3a e6 30  |P)+Y%..r. .:.:.0|
00000370  2c 33 0d 01 7c 22 20 f4  20 2a 2a 2a 20 44 72 61  |,3..|" . *** Dra|
00000380  77 20 6f 75 74 73 69 64  65 20 6f 66 20 70 69 65  |w outside of pie|
00000390  20 2a 2a 2a 0d 01 86 0f  20 e3 20 41 25 3d 31 20  | ***.... . A%=1 |
000003a0  b8 20 4e 0d 01 90 1f 20  e3 20 46 25 3d 48 25 28  |. N.... . F%=H%(|
000003b0  41 25 2c 31 29 20 b8 20  48 25 28 41 25 2c 32 29  |A%,1) . H%(A%,2)|
000003c0  2d 31 0d 01 9a 16 20 4d  3d 46 25 2f 50 3a 56 3d  |-1.... M=F%/P:V=|
000003d0  28 46 25 2b 31 29 2f 50  0d 01 a4 12 20 e7 20 b5  |(F%+1)/P.... . .|
000003e0  4d 3e 30 20 8c 20 8d 74  78 41 0d 01 ae 46 20 ec  |M>0 . .txA...F .|
000003f0  4a 25 2a 9b 28 4d 29 2b  58 25 2c 4b 25 2a b5 28  |J%*.(M)+X%,K%*.(|
00000400  4d 29 2b 59 25 3a f0 30  2c 30 2c 44 25 3a f0 38  |M)+Y%:.0,0,D%:.8|
00000410  35 2c 4a 25 2a 9b 28 56  29 2b 58 25 2c 4b 25 2a  |5,J%*.(V)+X%,K%*|
00000420  b5 28 56 29 2b 59 25 3a  f0 38 31 2c 30 2c 44 25  |.(V)+Y%:.81,0,D%|
00000430  0d 01 b8 08 20 ed 3a ed  0d 01 c2 1c 20 f4 20 2a  |.... .:..... . *|
00000440  2a 2a 20 4c 61 62 65 6c  20 73 65 63 74 6f 72 73  |** Label sectors|
00000450  20 2a 2a 2a 0d 01 cc 0e  20 e3 20 4d 3d 31 20 b8  | ***.... . M=1 .|
00000460  20 4e 0d 01 d6 2c 20 56  3d 28 48 25 28 4d 2c 32  | N..., V=(H%(M,2|
00000470  29 2d 48 25 28 4d 2c 31  29 29 2f 32 3a 56 3d 56  |)-H%(M,1))/2:V=V|
00000480  2b 48 25 28 4d 2c 31 29  3a 56 3d 56 2f 50 0d 01  |+H%(M,1):V=V/P..|
00000490  e0 0c 20 e6 30 2c 31 3a  ef 35 0d 01 ea 1e 20 ec  |.. .0,1:.5.... .|
000004a0  34 30 30 2a 9b 28 56 29  2b 58 25 2c 31 35 30 2a  |400*.(V)+X%,150*|
000004b0  b5 28 56 29 2b 34 39 30  0d 01 f4 1e 20 df 36 30  |.(V)+490.... .60|
000004c0  30 2a 9b 28 56 29 2b 58  25 2c 32 32 35 2a b5 28  |0*.(V)+X%,225*.(|
000004d0  56 29 2b 35 33 30 0d 01  fe 1e 20 ec 36 31 30 2a  |V)+530.... .610*|
000004e0  9b 28 56 29 2b 58 25 2c  32 33 33 2a b5 28 56 29  |.(V)+X%,233*.(V)|
000004f0  2b 35 33 30 0d 02 08 1d  20 e6 30 2c 32 3a f1 bd  |+530.... .0,2:..|
00000500  28 39 36 2b 4d 29 3b bd  28 34 31 29 3a e6 30 2c  |(96+M);.(41):.0,|
00000510  33 0d 02 12 06 20 ed 0d  02 1c 0a 20 f5 20 fd 20  |3.... ..... . . |
00000520  a3 0d 02 26 06 20 e0 0d  02 30 0c 20 dd f2 69 6e  |...&. ...0. ..in|
00000530  70 75 74 0d 02 3a 0f 20  ef 34 3a fb 31 32 38 3a  |put..:. .4:.128:|
00000540  fb 31 0d 02 44 13 20 ef  32 33 2c 31 2c 30 3b 30  |.1..D. .23,1,0;0|
00000550  3b 30 3b 30 3b 0d 02 4e  1e 20 e8 8a 32 2c 38 29  |;0;0;..N. ..2,8)|
00000560  22 54 49 54 4c 45 20 4f  46 20 43 48 41 52 54 22  |"TITLE OF CHART"|
00000570  2c 41 24 0d 02 58 2b 20  e8 20 8a 32 2c 31 30 29  |,A$..X+ . .2,10)|
00000580  22 4e 55 4d 42 45 52 20  4f 46 20 53 45 43 54 4f  |"NUMBER OF SECTO|
00000590  52 53 20 28 4d 41 58 3a  20 31 30 29 22 4e 0d 02  |RS (MAX: 10)"N..|
000005a0  62 1e 20 e7 20 4e 3c 31  20 84 20 4e 3e 31 30 20  |b. . N<1 . N>10 |
000005b0  8c 20 ef 37 3a db 3a e5  8d 44 58 42 0d 02 6c 13  |. .7:.:..DXB..l.|
000005c0  20 de 20 51 28 4e 29 2c  48 25 28 4e 2c 32 29 0d  | . Q(N),H%(N,2).|
000005d0  02 76 20 20 f1 27 22 4e  4f 57 20 43 4f 4d 50 4c  |.v  .'"NOW COMPL|
000005e0  45 54 45 20 54 48 49 53  20 54 41 42 4c 45 22 0d  |ETE THIS TABLE".|
000005f0  02 80 0d 20 57 3d a6 28  31 35 30 29 0d 02 8a 14  |... W=.(150)....|
00000600  20 ef 31 32 2c 31 37 2c  32 2c 31 37 2c 31 33 31  | .12,17,2,17,131|
00000610  0d 02 94 2a 20 f1 27 27  27 22 20 20 20 4e 41 4d  |...* .'''"   NAM|
00000620  45 20 4f 46 20 45 4e 54  52 59 22 3b 89 39 3b 22  |E OF ENTRY";.9;"|
00000630  56 41 4c 55 45 22 3b 89  31 30 0d 02 9e 09 20 e6  |VALUE";.10.... .|
00000640  30 2c 31 0d 02 a8 1b 20  ec 30 2c 39 32 38 3a f0  |0,1.... .0,928:.|
00000650  31 2c 30 2c 2d 33 36 2d  28 4e 2a 33 32 29 0d 02  |1,0,-36-(N*32)..|
00000660  b2 18 20 f0 31 2c 31 32  37 39 2c 30 3a df 31 32  |.. .1,1279,0:.12|
00000670  37 39 2c 39 32 38 0d 02  bc 12 20 e6 33 2c 31 3a  |79,928.... .3,1:|
00000680  ec 36 34 30 2c 39 32 38  0d 02 c6 1d 20 f0 31 2c  |.640,928.... .1,|
00000690  30 2c 2d 33 36 2d 28 4e  2a 33 32 29 3a fb 31 32  |0,-36-(N*32):.12|
000006a0  38 3a fb 20 32 0d 02 d0  0e 20 e3 20 41 3d 31 20  |8:. 2.... . A=1 |
000006b0  b8 20 4e 0d 02 da 18 20  f1 8a 31 2c 33 2b 41 29  |. N.... ..1,3+A)|
000006c0  bd 28 39 36 2b 41 29 3b  bd 34 31 0d 02 e4 10 20  |.(96+A);.41.... |
000006d0  e8 8a 35 2c 33 2b 41 29  44 59 24 0d 02 ee 12 20  |..5,3+A)DY$.... |
000006e0  e8 8a 32 35 2c 33 2b 41  29 51 28 41 29 0d 02 f8  |..25,3+A)Q(A)...|
000006f0  0d 20 56 3d 56 2b 51 28  41 29 0d 03 02 06 20 ed  |. V=V+Q(A).... .|
00000700  0d 03 0c 13 20 e3 20 47  3d 31 20 b8 20 28 33 31  |.... . G=1 . (31|
00000710  2d bc 29 0d 03 16 0f 20  ef 33 31 2c 30 2c 30 2c  |-.).... .31,0,0,|
00000720  31 31 0d 03 20 13 20 ef  32 33 2c 31 2c 30 3b 30  |11.. . .23,1,0;0|
00000730  3b 30 3b 30 3b 0d 03 2a  0d 20 44 45 4c 41 59 3d  |;0;0;..*. DELAY=|
00000740  a6 35 0d 03 34 06 20 ed  0d 03 3e 0b 20 f2 74 69  |.5..4. ...>. .ti|
00000750  74 6c 65 0d 03 48 14 20  ef 32 39 2c 30 3b 28 4e  |tle..H. .29,0;(N|
00000760  2a 33 32 29 2f 32 3b 0d  03 52 06 20 e1 0d 03 5c  |*32)/2;..R. ...\|
00000770  0c 20 dd f2 74 69 74 6c  65 0d 03 66 18 20 fb 31  |. ..title..f. .1|
00000780  33 31 3a f1 8a 30 2c 30  29 c4 38 30 2c bd 33 32  |31:..0,0).80,.32|
00000790  29 0d 03 70 17 20 ef 35  3a 43 56 3d 36 34 30 2d  |)..p. .5:CV=640-|
000007a0  28 a9 41 24 2a 31 36 29  0d 03 7a 38 e6 30 2c 30  |(.A$*16)..z8.0,0|
000007b0  3a ec 43 56 2c 31 30 31  35 3a f1 41 24 3a ec 43  |:.CV,1015:.A$:.C|
000007c0  56 2b 34 2c 31 30 31 31  3a f1 41 24 3a e6 30 2c  |V+4,1011:.A$:.0,|
000007d0  32 3a ec 43 56 2b 38 2c  31 30 30 37 3a f1 41 24  |2:.CV+8,1007:.A$|
000007e0  0d 03 84 08 20 ef 20 34  0d 03 8e 06 20 e1 0d ff  |.... . 4.... ...|
000007f0
PIE.m0
PIE.m1
PIE.m2
PIE.m4
PIE.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .