home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1990-03-14 | 7.7 KB |
view JSON data
|
view as text
|
open on a Mac
|
open on a PC
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0c f4 3e 53 54 | 52 49 4e 47 0d 00 14 0e |.....>ST|RING....|
|00000010| f4 20 31 30 2f 31 32 2f | 38 38 0d 00 1e 0b eb 31 |. 10/12/|88.....1|
|00000020| 32 3a fb 20 33 0d 00 28 | 14 2a 41 4c 50 48 41 42 |2:. 3..(|.*ALPHAB|
|00000030| 45 54 20 47 52 45 45 43 | 45 0d 00 32 10 ee 20 85 |ET GREEC|E..2.. .|
|00000040| 20 2a 44 45 53 4b 54 4f | 50 0d 00 3c 16 ef 31 39 | *DESKTO|P..<..19|
|00000050| 2c 31 2c 32 34 2c 26 38 | 30 2c 26 38 30 2c 30 0d |,1,24,&8|0,&80,0.|
|00000060| 00 46 14 d8 3a ef 32 36 | 3a da 3a db 3a 54 45 53 |.F..:.26|:.:.:TES|
|00000070| 54 3d a3 0d 00 50 1b 4e | 58 25 3d 32 30 3a f4 20 |T=...P.N|X%=20:. |
|00000080| 4e 4f 2e 20 4f 46 20 58 | 2d 53 54 45 50 53 0d 00 |NO. OF X|-STEPS..|
|00000090| 5a 23 4e 46 25 3d 4e 58 | 25 3a f4 20 4e 4f 2e 20 |Z#NF%=NX|%:. NO. |
|000000a0| 4f 46 20 46 4f 55 52 49 | 45 52 20 43 4f 45 46 46 |OF FOURI|ER COEFF|
|000000b0| 53 0d 00 64 2b 44 41 4d | 50 3d 31 3a f4 20 44 41 |S..d+DAM|P=1:. DA|
|000000c0| 4d 50 49 4e 47 20 46 41 | 43 54 4f 52 20 31 20 49 |MPING FA|CTOR 1 I|
|000000d0| 53 20 4e 4f 20 44 41 4d | 50 49 4e 47 0d 00 6e 29 |S NO DAM|PING..n)|
|000000e0| e7 20 4e 46 25 3e 4e 58 | 25 20 4e 46 25 3d 4e 58 |. NF%>NX|% NF%=NX|
|000000f0| 25 3a f4 20 54 4f 4f 20 | 4d 41 4e 59 20 49 53 20 |%:. TOO |MANY IS |
|00000100| 53 49 4c 4c 59 0d 00 78 | 2e de 20 53 41 28 32 2a |SILLY..x|.. SA(2*|
|00000110| 4e 58 25 29 2c 53 28 4e | 58 25 2c 31 29 2c 43 41 |NX%),S(N|X%,1),CA|
|00000120| 28 4e 58 25 29 3a de 20 | 50 52 45 54 54 59 25 20 |(NX%):. |PRETTY% |
|00000130| 33 30 30 0d 00 82 09 f2 | 49 4e 49 54 0d 00 8c 0c |300.....|INIT....|
|00000140| f2 54 45 4c 4c 41 4c 4c | 0d 00 96 3b d8 3a ef 32 |.TELLALL|...;.:.2|
|00000150| 36 3a da 3a db 3a 54 45 | 53 54 3d a3 3a 4e 58 25 |6:.:.:TE|ST=.:NX%|
|00000160| 3d 32 30 3a 4e 46 25 3d | 34 30 3a 44 41 4d 50 3d |=20:NF%=|40:DAMP=|
|00000170| 31 3a e7 20 4e 46 25 3e | 4e 58 25 20 4e 46 25 3d |1:. NF%>|NX% NF%=|
|00000180| 4e 58 25 0d 00 a0 2e de | 20 53 41 28 32 2a 4e 58 |NX%.....| SA(2*NX|
|00000190| 25 29 2c 53 28 4e 58 25 | 2c 31 29 2c 43 41 28 4e |%),S(NX%|,1),CA(N|
|000001a0| 58 25 29 3a de 20 50 52 | 45 54 54 59 25 20 33 30 |X%):. PR|ETTY% 30|
|000001b0| 30 0d 00 aa 09 f2 49 4e | 49 54 0d 00 b4 0c f2 50 |0.....IN|IT.....P|
|000001c0| 52 45 50 41 52 45 0d 00 | be 0c f2 46 4f 55 52 49 |REPARE..|...FOURI|
|000001d0| 45 52 0d 00 c8 0b f2 45 | 56 4f 4c 56 45 0d 00 d2 |ER.....E|VOLVE...|
|000001e0| 18 ef 32 38 2c 30 2c 33 | 31 2c 37 30 2c 32 31 3a |..28,0,3|1,70,21:|
|000001f0| db 3a ef 32 36 0d 00 dc | 35 f1 8a 30 2c 32 32 29 |.:.26...|5..0,22)|
|00000200| 3b 22 44 6f 20 79 6f 75 | 20 77 61 6e 74 20 74 6f |;"Do you| want to|
|00000210| 20 72 75 6e 20 74 68 65 | 20 70 72 6f 67 72 61 6d | run the| program|
|00000220| 6d 65 20 61 67 61 69 6e | 3f 22 0d 00 e6 1d e7 20 |me again|?"..... |
|00000230| a4 59 45 53 4e 4f 20 e5 | 20 8d 74 56 40 20 8b 20 |.YESNO .| .tV@ . |
|00000240| d7 22 4d 45 4e 55 22 0d | 00 f0 05 e0 0d 00 fa 05 |."MENU".|........|
|00000250| 3a 0d 01 04 0b dd 20 f2 | 49 4e 49 54 0d 01 0e 08 |:..... .|INIT....|
|00000260| ef 34 3a db 0d 01 18 3f | 58 4f 25 3d 31 30 30 3a |.4:....?|XO%=100:|
|00000270| 58 52 41 4e 47 45 25 3d | 31 30 30 30 3a 59 4f 25 |XRANGE%=|1000:YO%|
|00000280| 3d 37 30 30 3a 59 52 41 | 4e 47 45 25 3d 33 30 30 |=700:YRA|NGE%=300|
|00000290| 3a 58 53 54 45 50 25 3d | 58 52 41 4e 47 45 25 2f |:XSTEP%=|XRANGE%/|
|000002a0| 4e 58 25 0d 01 22 0f 59 | 46 52 41 4d 45 25 3d 33 |NX%..".Y|FRAME%=3|
|000002b0| 35 30 0d 01 2c 2b 50 3d | af 2f 4e 58 25 3a e3 20 |50..,+P=|./NX%:. |
|000002c0| 49 25 3d 31 20 b8 20 4e | 58 25 2a 32 3a 53 41 28 |I%=1 . N|X%*2:SA(|
|000002d0| 49 25 29 3d b5 28 50 2a | 49 25 29 3a ed 0d 01 36 |I%)=.(P*|I%):...6|
|000002e0| 2a e3 20 49 25 3d 30 20 | b8 20 4e 58 25 3a 53 28 |*. I%=0 |. NX%:S(|
|000002f0| 49 25 2c 30 29 3d 59 4f | 25 3a 53 28 49 25 2c 31 |I%,0)=YO|%:S(I%,1|
|00000300| 29 3d 59 4f 25 3a ed 0d | 01 40 0d 4f 25 3d 30 3a |)=YO%:..|.@.O%=0:|
|00000310| 4e 25 3d 31 0d 01 4a 21 | e6 20 37 3a 86 20 58 4f |N%=1..J!|. 7:. XO|
|00000320| 25 2c 59 4f 25 2c 58 52 | 41 4e 47 45 25 2b 58 4f |%,YO%,XR|ANGE%+XO|
|00000330| 25 2c 59 4f 25 0d 01 54 | 67 ef 35 3a e3 20 49 25 |%,YO%..T|g.5:. I%|
|00000340| 3d 30 20 b8 20 31 30 3a | 58 25 3d 58 4f 25 2b 49 |=0 . 10:|X%=XO%+I|
|00000350| 25 2a 58 52 41 4e 47 45 | 25 2f 31 30 3a 86 20 58 |%*XRANGE|%/10:. X|
|00000360| 25 2c 59 4f 25 2b 38 2c | 58 25 2c 59 4f 25 2d 38 |%,YO%+8,|X%,YO%-8|
|00000370| 3a ec 20 58 25 2d 32 34 | 2c 59 4f 25 2d 33 32 3a |:. X%-24|,YO%-32:|
|00000380| e7 20 49 25 3c 31 30 20 | f1 22 30 2e 22 3b c3 28 |. I%<10 |."0.";.(|
|00000390| 49 25 29 3a 8b 20 f1 22 | 31 2e 30 22 0d 01 5e 05 |I%):. ."|1.0"..^.|
|000003a0| ed 0d 01 68 25 86 20 58 | 4f 25 2c 59 4f 25 2d 59 |...h%. X|O%,YO%-Y|
|000003b0| 52 41 4e 47 45 25 2c 58 | 4f 25 2c 59 4f 25 2b 59 |RANGE%,X|O%,YO%+Y|
|000003c0| 52 41 4e 47 45 25 0d 01 | 72 4b e3 20 49 25 3d 2d |RANGE%..|rK. I%=-|
|000003d0| 31 30 20 b8 20 31 30 20 | 88 20 35 3a 59 25 3d 59 |10 . 10 |. 5:Y%=Y|
|000003e0| 4f 25 2b 49 25 2a 59 52 | 41 4e 47 45 25 2f 31 30 |O%+I%*YR|ANGE%/10|
|000003f0| 3a 86 20 58 4f 25 2c 59 | 25 2c 58 4f 25 2b 38 2c |:. XO%,Y|%,XO%+8,|
|00000400| 59 25 3a ec 20 58 4f 25 | 2d 38 30 2c 59 25 2b 31 |Y%:. XO%|-80,Y%+1|
|00000410| 36 0d 01 7c 32 e7 20 49 | 25 3e 3d 30 20 80 20 49 |6..|2. I|%>=0 . I|
|00000420| 25 3c 31 30 20 f1 22 20 | 30 2e 22 3b c3 28 49 25 |%<10 ." |0.";.(I%|
|00000430| 29 3a 8b 20 e7 20 49 25 | 3d 31 30 20 f1 22 20 31 |):. . I%|=10 ." 1|
|00000440| 2e 30 22 0d 01 86 36 e7 | 20 49 25 3c 30 20 80 20 |.0"...6.| I%<0 . |
|00000450| 49 25 3e 2d 31 30 20 f1 | 22 2d 30 2e 22 3b c3 28 |I%>-10 .|"-0.";.(|
|00000460| 94 28 49 25 29 29 3a 8b | 20 e7 20 49 25 3d 2d 31 |.(I%)):.| . I%=-1|
|00000470| 30 20 f1 22 2d 31 2e 30 | 22 0d 01 90 05 ed 0d 01 |0 ."-1.0|".......|
|00000480| 9a 21 e6 20 36 3a c8 93 | 20 c8 90 20 30 2c 34 2b |.!. 6:..| .. 0,4+|
|00000490| 59 46 52 41 4d 45 25 2c | 31 32 37 39 2c 32 34 0d |YFRAME%,|1279,24.|
|000004a0| 01 a4 05 e1 0d 01 ae 05 | 3a 0d 01 b8 0e dd 20 f2 |........|:..... .|
|000004b0| 50 52 45 50 41 52 45 0d | 01 c2 2a e3 20 49 25 3d |PREPARE.|..*. I%=|
|000004c0| 30 20 b8 20 4e 58 25 3a | 53 28 49 25 2c 30 29 3d |0 . NX%:|S(I%,0)=|
|000004d0| 59 4f 25 3a 53 28 49 25 | 2c 31 29 3d 59 4f 25 3a |YO%:S(I%|,1)=YO%:|
|000004e0| ed 0d 01 cc 2c 58 25 3d | 36 36 3a 59 25 3d 31 37 |....,X%=|66:Y%=17|
|000004f0| 3a f1 8a 58 25 2c 59 25 | 29 3b 22 20 20 20 20 20 |:..X%,Y%|);" |
|00000500| 20 20 20 20 20 20 20 20 | 20 20 20 22 3b 0d 01 d6 | | ";...|
|00000510| 23 f1 8a 33 30 2c 32 33 | 29 3b 22 50 52 45 50 41 |#..30,23|);"PREPA|
|00000520| 52 49 4e 47 20 54 48 45 | 20 53 54 52 49 4e 47 22 |RING THE| STRING"|
|00000530| 0d 01 e0 41 f1 8a 30 2c | 32 35 29 3b 22 44 6f 20 |...A..0,|25);"Do |
|00000540| 79 6f 75 20 77 61 6e 74 | 20 74 6f 20 75 73 65 20 |you want| to use |
|00000550| 74 68 65 20 6d 6f 75 73 | 65 20 74 6f 20 70 72 65 |the mous|e to pre|
|00000560| 70 61 72 65 20 74 68 65 | 20 73 74 72 69 6e 67 3f |pare the| string?|
|00000570| 22 0d 01 ea 34 e7 20 54 | 45 53 54 3a ef 32 34 2c |"...4. T|EST:.24,|
|00000580| 30 3b 30 3b 31 30 32 33 | 3b 59 46 52 41 4d 45 25 |0;0;1023|;YFRAME%|
|00000590| 3b 3a da 3a ef 32 36 3a | c8 97 20 87 3a f2 53 48 |;:.:.26:|.. .:.SH|
|000005a0| 41 50 45 3a e1 0d 01 f4 | 0e e7 20 a4 59 45 53 4e |APE:....|.. .YESN|
|000005b0| 4f 20 8c 0d 01 fe 25 20 | 20 20 20 20 20 ef 32 34 |O ....% | .24|
|000005c0| 2c 30 3b 30 3b 31 30 32 | 33 3b 59 46 52 41 4d 45 |,0;0;102|3;YFRAME|
|000005d0| 25 3b 3a da 3a ef 32 36 | 0d 02 08 16 20 20 20 20 |%;:.:.26|.... |
|000005e0| 20 20 c8 97 20 b8 20 35 | 30 30 2c 59 4f 25 0d 02 | .. . 5|00,YO%..|
|000005f0| 12 15 20 20 20 20 20 20 | f2 53 48 41 50 45 4d 4f |.. |.SHAPEMO|
|00000600| 55 53 45 0d 02 1c 05 cc | 0d 02 26 25 20 20 20 20 |USE.....|..&% |
|00000610| 20 20 ef 32 34 2c 30 3b | 30 3b 31 30 32 33 3b 59 | .24,0;|0;1023;Y|
|00000620| 46 52 41 4d 45 25 3b 3a | da 3a ef 32 36 0d 02 30 |FRAME%;:|.:.26..0|
|00000630| 15 20 20 20 20 20 20 c8 | 97 20 87 3a f2 53 48 41 |. .|. .:.SHA|
|00000640| 50 45 0d 02 3a 05 cd 0d | 02 44 25 20 20 20 20 20 |PE..:...|.D% |
|00000650| 20 ef 32 34 2c 30 3b 30 | 3b 31 30 32 33 3b 59 46 | .24,0;0|;1023;YF|
|00000660| 52 41 4d 45 25 3b 3a da | 3a ef 32 36 0d 02 4e 3a |RAME%;:.|:.26..N:|
|00000670| f4 50 52 49 4e 54 22 44 | 6f 20 79 6f 75 20 77 61 |.PRINT"D|o you wa|
|00000680| 6e 74 20 74 68 65 20 68 | 69 67 68 65 72 20 68 61 |nt the h|igher ha|
|00000690| 72 6d 6f 6e 69 63 73 20 | 74 6f 20 62 65 20 64 61 |rmonics |to be da|
|000006a0| 6d 70 65 64 3f 22 0d 02 | 58 2a f4 49 46 20 46 4e |mped?"..|X*.IF FN|
|000006b0| 59 45 53 4e 4f 20 54 48 | 45 4e 20 44 41 4d 50 3d |YESNO TH|EN DAMP=|
|000006c0| 30 2e 39 39 20 45 4c 53 | 45 20 44 41 4d 50 3d 31 |0.99 ELS|E DAMP=1|
|000006d0| 0d 02 62 05 e1 0d 02 6c | 05 3a 0d 02 76 11 dd 20 |..b....l|.:..v.. |
|000006e0| f2 53 48 41 50 45 4d 4f | 55 53 45 0d 02 80 0e fb |.SHAPEMO|USE.....|
|000006f0| 20 33 3a 41 25 3d 30 3a | 87 0d 02 8a 44 c8 97 20 | 3:A%=0:|....D.. |
|00000700| c8 93 20 58 4f 25 2c 59 | 4f 25 2d 59 52 41 4e 47 |.. XO%,Y|O%-YRANG|
|00000710| 45 25 2d 31 30 2c 31 32 | 37 30 2d 58 4f 25 2c 32 |E%-10,12|70-XO%,2|
|00000720| 2a 59 52 41 4e 47 45 25 | 3a c8 97 20 b8 20 58 4f |*YRANGE%|:.. . XO|
|00000730| 25 2b 31 30 30 2c 59 4f | 25 2d 31 30 30 0d 02 94 |%+100,YO|%-100...|
|00000740| 2d de 20 50 55 4c 4c 25 | 28 4e 58 25 29 3a e3 20 |-. PULL%|(NX%):. |
|00000750| 49 25 3d 30 20 b8 20 4e | 58 25 3a 50 55 4c 4c 25 |I%=0 . N|X%:PULL%|
|00000760| 28 49 25 29 3d 59 4f 25 | 3a ed 0d 02 9e 52 de 20 |(I%)=YO%|:....R. |
|00000770| 50 55 4c 4c 32 25 28 4e | 58 25 2c 31 29 3a e3 20 |PULL2%(N|X%,1):. |
|00000780| 49 25 3d 30 20 b8 20 4e | 58 25 3a 50 55 4c 4c 32 |I%=0 . N|X%:PULL2|
|00000790| 25 28 49 25 2c 30 29 3d | 4e 58 25 3a 50 55 4c 4c |%(I%,0)=|NX%:PULL|
|000007a0| 32 25 28 49 25 2c 31 29 | 3d 59 4f 25 3a ed 3a 50 |2%(I%,1)|=YO%:.:P|
|000007b0| 55 4c 4c 32 25 28 30 2c | 30 29 3d 30 0d 02 a8 22 |ULL2%(0,|0)=0..."|
|000007c0| f1 8a 30 2c 32 32 29 3b | 3a e3 20 49 3d 31 20 b8 |..0,22);|:. I=1 .|
|000007d0| 20 35 3a f1 c4 37 38 2c | 22 20 22 29 3a ed 0d 02 | 5:..78,|" "):...|
|000007e0| b2 a1 41 25 3d 30 3a f1 | 8a 30 2c 32 32 29 3b 22 |..A%=0:.|.0,22);"|
|000007f0| 54 68 65 20 6d 6f 75 73 | 65 20 70 75 73 68 65 73 |The mous|e pushes|
|00000800| 20 74 68 65 20 73 74 72 | 69 6e 67 20 75 70 20 6f | the str|ing up o|
|00000810| 72 20 70 75 6c 6c 73 20 | 74 68 65 20 73 74 72 69 |r pulls |the stri|
|00000820| 6e 67 20 64 6f 77 6e 20 | 77 68 65 6e 20 61 20 62 |ng down |when a b|
|00000830| 75 74 74 6f 6e 20 69 73 | 22 3a f1 22 70 72 65 73 |utton is|":."pres|
|00000840| 73 65 64 2e 20 54 68 65 | 20 63 6f 6f 72 64 69 6e |sed. The| coordin|
|00000850| 61 74 65 73 20 6f 66 20 | 74 68 65 20 70 6f 69 6e |ates of |the poin|
|00000860| 74 65 72 20 61 72 65 20 | 73 68 6f 77 6e 20 61 74 |ter are |shown at|
|00000870| 20 74 68 65 20 74 6f 70 | 20 6c 65 66 74 2e 22 0d | the top| left.".|
|00000880| 02 bc 06 f1 3a 0d 02 c6 | 4e f1 22 20 20 20 20 20 |....:...|N." |
|00000890| 20 20 53 45 4c 45 43 54 | 20 28 6c 65 66 74 20 68 | SELECT| (left h|
|000008a0| 61 6e 64 20 62 75 74 74 | 6f 6e 20 29 20 69 73 20 |and butt|on ) is |
|000008b0| 63 6f 61 72 73 65 20 61 | 6e 64 20 6d 6f 76 65 73 |coarse a|nd moves|
|000008c0| 20 74 68 65 20 65 6e 74 | 69 72 65 20 73 74 72 69 | the ent|ire stri|
|000008d0| 6e 67 22 0d 02 d0 4e f1 | 22 20 20 20 20 20 20 20 |ng"...N.|" |
|000008e0| 4d 45 4e 55 20 20 20 28 | 63 65 6e 74 72 65 20 62 |MENU (|centre b|
|000008f0| 75 74 74 6f 6e 20 20 20 | 20 29 20 69 73 20 66 69 |utton | ) is fi|
|00000900| 6e 65 72 20 61 6e 64 20 | 6d 6f 76 65 73 20 70 61 |ner and |moves pa|
|00000910| 72 74 20 6f 66 20 74 68 | 65 20 73 74 72 69 6e 67 |rt of th|e string|
|00000920| 22 0d 02 da 4b f1 22 20 | 20 20 20 20 20 20 41 44 |"...K." | AD|
|00000930| 4a 55 53 54 20 28 72 69 | 67 68 74 20 68 61 6e 64 |JUST (ri|ght hand|
|00000940| 20 62 75 74 74 6f 6e 29 | 20 61 6c 6c 6f 77 73 20 | button)| allows |
|00000950| 66 69 6e 65 20 61 64 6a | 75 73 74 6d 65 6e 74 73 |fine adj|ustments|
|00000960| 20 74 6f 20 62 65 20 6d | 61 64 65 22 0d 02 e4 04 | to be m|ade"....|
|00000970| 0d 02 ee 31 f1 3a f1 22 | 43 6c 69 63 6b 20 6f 6e |...1.:."|Click on|
|00000980| 20 52 45 4c 45 41 53 45 | 21 20 74 6f 20 72 65 6c | RELEASE|! to rel|
|00000990| 65 61 73 65 20 74 68 65 | 20 73 74 72 69 6e 67 22 |ease the| string"|
|000009a0| 3b 0d 02 f8 2f f1 8a 37 | 30 2c 31 38 29 3b 3a fb |;.../..7|0,18);:.|
|000009b0| 20 31 33 31 3a fb 20 30 | 3a f1 22 20 52 45 4c 45 | 131:. 0|:." RELE|
|000009c0| 41 53 45 21 20 22 3a fb | 20 37 3a fb 20 31 32 38 |ASE! ":.| 7:. 128|
|000009d0| 0d 03 02 05 3a 0d 03 0c | 18 d1 3d 30 3a f5 20 fd |....:...|..=0:. .|
|000009e0| 20 91 3e 35 30 3a 2a 46 | 58 32 31 2c 39 0d 03 16 | .>50:*F|X21,9...|
|000009f0| 11 f5 20 c8 97 20 58 58 | 2c 59 59 2c 42 3a 0d 03 |.. .. XX|,YY,B:..|
|00000a00| 20 4d 58 3d a8 28 4e 58 | 25 2a 28 58 58 2b 58 53 | MX=.(NX|%*(XX+XS|
|00000a10| 54 45 50 25 2f 32 2d 58 | 4f 25 29 2f 58 52 41 4e |TEP%/2-X|O%)/XRAN|
|00000a20| 47 45 25 29 2f 4e 58 25 | 3a 59 3d a8 28 31 30 30 |GE%)/NX%|:Y=.(100|
|00000a30| 30 2a 28 59 59 2b 31 30 | 2d 59 4f 25 29 2f 59 52 |0*(YY+10|-YO%)/YR|
|00000a40| 41 4e 47 45 25 29 2f 31 | 30 30 30 0d 03 2a 27 c8 |ANGE%)/1|000..*'.|
|00000a50| 96 3a f1 8a 37 30 2c 31 | 29 3b 22 20 20 20 20 20 |.:..70,1|);" |
|00000a60| 20 22 3b 3a f1 8a 37 30 | 2c 31 29 3b 22 58 3d 22 | ";:..70|,1);"X="|
|00000a70| 3b 58 0d 03 34 28 f1 8a | 37 30 2c 32 29 3b 22 20 |;X..4(..|70,2);" |
|00000a80| 20 20 20 20 20 20 20 20 | 22 3b 3a f1 8a 37 30 2c | |";:..70,|
|00000a90| 32 29 3b 22 59 3d 22 3b | 59 3b 0d 03 3e 0f d1 3d |2);"Y=";|Y;..>..=|
|00000aa0| 30 3a f5 20 fd 20 91 3e | 38 0d 03 48 0a fd 20 42 |0:. . .>|8..H.. B|
|00000ab0| 3c 3e 30 0d 03 52 3d e7 | 20 58 58 3e 31 31 30 30 |<>0..R=.| XX>1100|
|00000ac0| 20 80 20 59 59 3c 34 35 | 30 3a f1 8a 37 30 2c 31 | . YY<45|0:..70,1|
|00000ad0| 29 3b 22 20 20 20 20 20 | 20 22 3a f1 8a 37 30 2c |);" | ":..70,|
|00000ae0| 32 29 3b 22 20 20 20 20 | 20 20 20 20 20 22 3a e1 |2);" | ":.|
|00000af0| 0d 03 5c 1f e7 20 42 3c | 3e 31 20 80 20 42 3c 3e |..\.. B<|>1 . B<>|
|00000b00| 32 20 80 20 42 3c 3e 34 | 20 e5 20 8d 64 6e 42 0d |2 . B<>4| . .dnB.|
|00000b10| 03 66 05 3a 0d 03 70 24 | e3 20 49 25 3d 31 20 b8 |.f.:..p$|. I%=1 .|
|00000b20| 20 4e 58 25 3a 53 28 49 | 25 2c 4e 25 29 3d 53 28 | NX%:S(I|%,N%)=S(|
|00000b30| 49 25 2c 4f 25 29 3a ed | 0d 03 7a 2b 58 25 3d 28 |I%,O%):.|..z+X%=(|
|00000b40| 58 2b 2e 30 32 29 2a 4e | 58 25 3a e7 20 58 25 3c |X+.02)*N|X%:. X%<|
|00000b50| 31 20 84 20 58 25 3e 4e | 58 25 2d 31 20 e5 20 8d |1 . X%>N|X%-1 . .|
|00000b60| 54 4c 43 0d 03 84 3d 59 | 25 3d 59 2a 59 52 41 4e |TLC...=Y|%=Y*YRAN|
|00000b70| 47 45 25 2b 59 4f 25 3a | e7 20 59 25 3c 59 4f 25 |GE%+YO%:|. Y%<YO%|
|00000b80| 2d 59 52 41 4e 47 45 25 | 20 84 20 59 25 3e 59 4f |-YRANGE%| . Y%>YO|
|00000b90| 25 2b 59 52 41 4e 47 45 | 25 20 e5 20 8d 54 4c 43 |%+YRANGE|% . .TLC|
|00000ba0| 0d 03 8e 05 3a 0d 03 98 | 0b e7 20 42 3d 32 20 8c |....:...|.. B=2 .|
|00000bb0| 0d 03 a2 23 20 20 20 20 | e7 20 94 28 59 25 2d 53 |...# |. .(Y%-S|
|00000bc0| 28 58 25 2c 4f 25 29 29 | 3e 31 30 30 20 e5 20 8d |(X%,O%))|>100 . .|
|00000bd0| 54 4c 43 0d 03 ac 33 20 | 20 20 20 44 59 25 3d 59 |TLC...3 | DY%=Y|
|00000be0| 25 2d 53 28 58 25 2c 4f | 25 29 3a e7 20 94 28 44 |%-S(X%,O|%):. .(D|
|00000bf0| 59 25 29 3e 31 30 30 20 | 44 59 25 3d 31 30 30 2a |Y%)>100 |DY%=100*|
|00000c00| b4 28 44 59 25 29 0d 03 | b6 1d 20 20 20 20 53 28 |.(DY%)..|.. S(|
|00000c10| 58 25 2c 4e 25 29 3d 53 | 28 58 25 2c 4f 25 29 2b |X%,N%)=S|(X%,O%)+|
|00000c20| 44 59 25 0d 03 c0 11 20 | 20 20 20 44 59 25 3d 44 |DY%.... | DY%=D|
|00000c30| 59 25 2f 32 0d 03 ca 2a | 20 20 20 20 e7 20 58 25 |Y%/2...*| . X%|
|00000c40| 3c 4e 58 25 20 53 28 58 | 25 2b 31 2c 4e 25 29 3d |<NX% S(X|%+1,N%)=|
|00000c50| 53 28 58 25 2b 31 2c 4f | 25 29 2b 44 59 25 0d 03 |S(X%+1,O|%)+DY%..|
|00000c60| d4 28 20 20 20 20 e7 20 | 58 25 3e 31 20 53 28 58 |.( . |X%>1 S(X|
|00000c70| 25 2d 31 2c 4e 25 29 3d | 53 28 58 25 2d 31 2c 4f |%-1,N%)=|S(X%-1,O|
|00000c80| 25 29 2b 44 59 25 0d 03 | de 09 20 20 20 20 3a 0d |%)+DY%..|.. :.|
|00000c90| 03 e8 0c cc e7 20 42 3d | 31 20 8c 0d 03 f2 22 20 |..... B=|1 ...." |
|00000ca0| 20 20 20 e7 20 94 28 59 | 25 2d 53 28 58 25 2c 4f | . .(Y|%-S(X%,O|
|00000cb0| 25 29 29 3e 35 30 20 e5 | 20 8d 54 4c 43 0d 03 fc |%))>50 .| .TLC...|
|00000cc0| 2f 20 20 20 20 44 59 25 | 3d 59 25 2d 53 28 58 25 |/ DY%|=Y%-S(X%|
|00000cd0| 2c 4f 25 29 3a e7 20 94 | 28 44 59 25 29 3e 38 20 |,O%):. .|(DY%)>8 |
|00000ce0| 44 59 25 3d 38 2a b4 28 | 44 59 25 29 0d 04 06 1d |DY%=8*.(|DY%)....|
|00000cf0| 20 20 20 20 53 28 58 25 | 2c 4e 25 29 3d 53 28 58 | S(X%|,N%)=S(X|
|00000d00| 25 2c 4f 25 29 2b 44 59 | 25 0d 04 10 0c cc e7 20 |%,O%)+DY|%...... |
|00000d10| 42 3d 34 20 8c 0d 04 1a | 3b 20 20 52 3d a3 3a e3 |B=4 ....|; R=.:.|
|00000d20| 20 49 25 3d 31 20 b8 20 | 41 25 3a e7 20 58 25 3d | I%=1 . |A%:. X%=|
|00000d30| 50 55 4c 4c 32 25 28 49 | 25 2c 30 29 20 50 55 4c |PULL2%(I|%,0) PUL|
|00000d40| 4c 32 25 28 49 25 2c 31 | 29 3d 59 25 3a 52 3d b9 |L2%(I%,1|)=Y%:R=.|
|00000d50| 0d 04 24 12 20 20 ed 3a | e7 20 52 20 e5 20 8d 44 |..$. .:|. R . .D|
|00000d60| 56 44 0d 04 2e 2d 20 20 | 41 25 3d 41 25 2b 31 3a |VD...- |A%=A%+1:|
|00000d70| 52 3d a3 3a e3 20 49 25 | 3d 41 25 20 b8 20 31 20 |R=.:. I%|=A% . 1 |
|00000d80| 88 20 2d 31 3a e7 20 52 | 20 e5 20 8d 44 4c 44 0d |. -1:. R| . .DLD.|
|00000d90| 04 38 51 20 20 e7 20 58 | 25 3c 50 55 4c 4c 32 25 |.8Q . X|%<PULL2%|
|00000da0| 28 49 25 2d 31 2c 30 29 | 20 50 55 4c 4c 32 25 28 |(I%-1,0)| PULL2%(|
|00000db0| 49 25 2c 30 29 3d 50 55 | 4c 4c 32 25 28 49 25 2d |I%,0)=PU|LL2%(I%-|
|00000dc0| 31 2c 30 29 3a 50 55 4c | 4c 32 25 28 49 25 2c 31 |1,0):PUL|L2%(I%,1|
|00000dd0| 29 3d 50 55 4c 4c 32 25 | 28 49 25 2d 31 2c 31 29 |)=PULL2%|(I%-1,1)|
|00000de0| 0d 04 42 3d 20 20 e7 20 | 58 25 3e 50 55 4c 4c 32 |..B= . |X%>PULL2|
|00000df0| 25 28 49 25 2d 31 2c 30 | 29 20 50 55 4c 4c 32 25 |%(I%-1,0|) PULL2%|
|00000e00| 28 49 25 2c 30 29 3d 58 | 25 3a 50 55 4c 4c 32 25 |(I%,0)=X|%:PULL2%|
|00000e10| 28 49 25 2c 31 29 3d 59 | 25 3a 52 3d b9 0d 04 4c |(I%,1)=Y|%:R=...L|
|00000e20| 07 20 20 ed 0d 04 56 5b | 20 20 e3 20 49 25 3d 30 |. ...V[| . I%=0|
|00000e30| 20 b8 20 41 25 3a 47 3d | 50 55 4c 4c 32 25 28 49 | . A%:G=|PULL2%(I|
|00000e40| 25 2b 31 2c 31 29 2d 50 | 55 4c 4c 32 25 28 49 25 |%+1,1)-P|ULL2%(I%|
|00000e50| 2c 31 29 3a 47 3d 47 2f | 28 30 2e 30 30 30 30 31 |,1):G=G/|(0.00001|
|00000e60| 2b 28 50 55 4c 4c 32 25 | 28 49 25 2b 31 2c 30 29 |+(PULL2%|(I%+1,0)|
|00000e70| 2d 50 55 4c 4c 32 25 28 | 49 25 2c 30 29 29 29 0d |-PULL2%(|I%,0))).|
|00000e80| 04 60 2e 20 20 49 4e 43 | 3d 30 3a e3 20 4a 25 3d |.`. INC|=0:. J%=|
|00000e90| 50 55 4c 4c 32 25 28 49 | 25 2c 30 29 20 b8 20 50 |PULL2%(I|%,0) . P|
|00000ea0| 55 4c 4c 32 25 28 49 25 | 2b 31 2c 30 29 0d 04 6a |ULL2%(I%|+1,0)..j|
|00000eb0| 29 20 20 53 28 4a 25 2c | 4e 25 29 3d 50 55 4c 4c |) S(J%,|N%)=PULL|
|00000ec0| 32 25 28 49 25 2c 31 29 | 2b 49 4e 43 3a 49 4e 43 |2%(I%,1)|+INC:INC|
|00000ed0| 3d 49 4e 43 2b 47 0d 04 | 74 07 20 20 ed 0d 04 7e |=INC+G..|t. ...~|
|00000ee0| 07 20 20 ed 0d 04 88 11 | 20 20 d1 3d 30 3a f5 20 |. .....| .=0:. |
|00000ef0| fd 20 91 3e 31 0d 04 92 | 07 20 20 cd 0d 04 9c 09 |. .>1...|. .....|
|00000f00| 20 20 20 20 cd 0d 04 a6 | 05 cd 0d 04 b0 09 f2 44 | ....|.......D|
|00000f10| 52 41 57 0d 04 ba 0a e5 | 20 8d 54 4c 43 0d 04 c4 |RAW.....| .TLC...|
|00000f20| 05 3a 0d 04 ce 05 e1 0d | 04 d8 05 3a 0d 04 e2 0b |.:......|...:....|
|00000f30| dd 20 f2 44 52 41 57 0d | 04 ec 09 e6 20 33 2c 32 |. .DRAW.|.... 3,2|
|00000f40| 0d 04 f6 39 58 25 3d 58 | 4f 25 3a 55 25 3d 58 25 |...9X%=X|O%:U%=X%|
|00000f50| 3a 44 58 25 3d 58 52 41 | 4e 47 45 25 2f 4e 58 25 |:DX%=XRA|NGE%/NX%|
|00000f60| 3a e3 20 49 25 3d 30 20 | b8 20 4e 58 25 2d 31 3a |:. I%=0 |. NX%-1:|
|00000f70| 55 25 3d 55 25 2b 44 58 | 25 0d 05 00 2c 86 20 58 |U%=U%+DX|%...,. X|
|00000f80| 25 2c 53 28 49 25 2c 4f | 25 29 2c 55 25 2c 53 28 |%,S(I%,O|%),U%,S(|
|00000f90| 49 25 2b 31 2c 4f 25 29 | 3a 53 28 49 25 2c 4f 25 |I%+1,O%)|:S(I%,O%|
|00000fa0| 29 3d 59 4f 25 0d 05 0a | 1f 86 20 58 25 2c 53 28 |)=YO%...|.. X%,S(|
|00000fb0| 49 25 2c 4e 25 29 2c 55 | 25 2c 53 28 49 25 2b 31 |I%,N%),U|%,S(I%+1|
|00000fc0| 2c 4e 25 29 0d 05 14 0b | 58 25 3d 55 25 3a ed 0d |,N%)....|X%=U%:..|
|00000fd0| 05 1e 11 4e 25 3d 4f 25 | 3a 4f 25 3d 31 2d 4f 25 |...N%=O%|:O%=1-O%|
|00000fe0| 0d 05 28 05 e1 0d 05 32 | 05 3a 0d 05 3c 0e dd 20 |..(....2|.:..<.. |
|00000ff0| f2 46 4f 55 52 49 45 52 | 0d 05 46 0b 40 25 3d 26 |.FOURIER|..F.@%=&|
|00001000| 33 30 33 0d 05 50 22 f1 | 8a 30 2c 32 32 29 3b 3a |303..P".|.0,22);:|
|00001010| e3 20 49 3d 31 20 b8 20 | 37 3a f1 c4 37 38 2c 22 |. I=1 . |7:..78,"|
|00001020| 20 22 29 3a ed 0d 05 5a | 59 fb 20 33 3a f1 8a 30 | "):...Z|Y. 3:..0|
|00001030| 2c 32 37 29 3b 22 20 43 | 61 6c 63 75 6c 61 74 69 |,27);" C|alculati|
|00001040| 6e 67 20 74 68 65 20 46 | 6f 75 72 69 65 72 20 63 |ng the F|ourier c|
|00001050| 6f 65 66 66 69 63 69 65 | 6e 74 73 2e 20 44 6f 20 |oefficie|nts. Do |
|00001060| 79 6f 75 20 77 61 6e 74 | 20 74 6f 20 73 65 65 20 |you want| to see |
|00001070| 74 68 65 69 72 20 76 61 | 6c 75 65 73 3f 22 0d 05 |their va|lues?"..|
|00001080| 64 0d 50 52 3d a4 59 45 | 53 4e 4f 0d 05 6e 18 ef |d.PR=.YE|SNO..n..|
|00001090| 32 38 2c 30 2c 33 31 2c | 37 30 2c 32 31 3a db 3a |28,0,31,|70,21:.:|
|000010a0| ef 32 36 0d 05 78 46 fb | 20 37 3a e7 20 50 52 20 |.26..xF.| 7:. PR |
|000010b0| f1 8a 30 2c 32 32 29 3b | 22 4e 20 20 43 6f 65 66 |..0,22);|"N Coef|
|000010c0| 20 20 20 20 20 20 4e 20 | 20 43 6f 65 66 20 20 20 | N | Coef |
|000010d0| 20 20 20 20 4e 20 20 20 | 43 6f 65 66 20 20 20 20 | N |Coef |
|000010e0| 20 4e 20 20 43 6f 65 66 | 22 0d 05 82 1b 4e 58 32 | N Coef|"....NX2|
|000010f0| 25 3d 32 2a 4e 58 25 3a | 53 32 3d 32 2f 4e 58 25 |%=2*NX%:|S2=2/NX%|
|00001100| 3a fb 20 33 0d 05 8c 10 | e3 20 41 25 3d 31 20 b8 |:. 3....|. A%=1 .|
|00001110| 20 4e 46 25 0d 05 96 3a | 41 3d 30 3a e3 20 4a 25 | NF%...:|A=0:. J%|
|00001120| 3d 30 20 b8 20 4e 58 25 | 3a 41 3d 41 2b 53 41 28 |=0 . NX%|:A=A+SA(|
|00001130| 41 25 2a 4a 25 20 83 20 | 4e 58 32 25 29 2a 28 53 |A%*J% . |NX2%)*(S|
|00001140| 28 4a 25 2c 4f 25 29 2d | 59 4f 25 29 3a ed 0d 05 |(J%,O%)-|YO%):...|
|00001150| a0 0f 43 41 28 41 25 29 | 3d 41 2a 53 32 0d 05 aa |..CA(A%)|=A*S2...|
|00001160| 43 e7 20 50 52 20 f1 8a | 31 33 2a 28 28 41 25 2d |C. PR ..|13*((A%-|
|00001170| 31 29 20 81 20 35 29 2c | 32 34 2b 28 28 41 25 2d |1) . 5),|24+((A%-|
|00001180| 31 29 20 83 20 35 29 29 | 3b 41 25 3b 22 20 20 22 |1) . 5))|;A%;" "|
|00001190| 3b 41 2a b6 28 53 32 29 | 2f 59 52 41 4e 47 45 25 |;A*.(S2)|/YRANGE%|
|000011a0| 0d 05 b4 0d ed 3a 43 41 | 28 30 29 3d 30 0d 05 be |.....:CA|(0)=0...|
|000011b0| 05 e1 0d 05 c8 05 3a 0d | 05 d2 0d dd 20 f2 45 56 |......:.|.... .EV|
|000011c0| 4f 4c 56 45 0d 05 dc 34 | de 20 53 30 28 4e 58 25 |OLVE...4|. S0(NX%|
|000011d0| 29 2c 53 31 28 4e 58 25 | 29 3a e3 20 49 25 3d 30 |),S1(NX%|):. I%=0|
|000011e0| 20 b8 20 4e 58 25 3a 53 | 30 28 49 25 29 3d 53 28 | . NX%:S|0(I%)=S(|
|000011f0| 49 25 2c 4f 25 29 3a ed | 0d 05 e6 41 fb 20 35 3a |I%,O%):.|...A. 5:|
|00001200| f1 8a 31 30 2c 33 30 29 | 3b 22 50 72 65 73 73 20 |..10,30)|;"Press |
|00001210| 61 6e 79 20 6d 6f 75 73 | 65 20 62 75 74 74 6f 6e |any mous|e button|
|00001220| 20 74 6f 20 73 74 6f 70 | 20 74 68 65 20 70 72 6f | to stop| the pro|
|00001230| 67 72 61 6d 6d 65 2e 22 | 3b 0d 05 f0 0b 2a 46 58 |gramme."|;....*FX|
|00001240| 32 31 2c 39 0d 05 fa 24 | fb 20 33 3a 87 3a ef 32 |21,9...$|. 3:.:.2|
|00001250| 34 2c 30 2c 59 46 52 41 | 4d 45 25 2b 34 30 2c 31 |4,0,YFRA|ME%+40,1|
|00001260| 32 37 39 2c 31 30 32 32 | 0d 06 04 21 44 54 3d 31 |279,1022|...!DT=1|
|00001270| 2f 4e 58 25 3a 54 3d 2d | 44 54 3a 44 44 46 3d 31 |/NX%:T=-|DT:DDF=1|
|00001280| 3a f5 20 54 3d 54 2b 44 | 54 0d 06 0e 29 43 50 49 |:. T=T+D|T...)CPI|
|00001290| 54 3d af 2a 54 3a 44 44 | 46 3d 44 44 46 2a 44 41 |T=.*T:DD|F=DDF*DA|
|000012a0| 4d 50 3a 44 46 3d 31 3a | 53 31 28 29 3d 28 59 4f |MP:DF=1:|S1()=(YO|
|000012b0| 25 29 0d 06 18 3f e3 20 | 4a 25 3d 31 20 b8 20 4e |%)...?. |J%=1 . N|
|000012c0| 46 25 3a 4e 50 49 43 54 | 3d 4a 25 2a 43 50 49 54 |F%:NPICT|=J%*CPIT|
|000012d0| 3a 43 57 54 3d 44 46 2a | 43 41 28 4a 25 29 2a 9b |:CWT=DF*|CA(J%)*.|
|000012e0| 28 4e 50 49 43 54 29 3a | 44 46 3d 44 46 2a 44 44 |(NPICT):|DF=DF*DD|
|000012f0| 46 0d 06 22 35 e3 20 49 | 25 3d 31 20 b8 20 4e 58 |F.."5. I|%=1 . NX|
|00001300| 25 3a 53 31 28 49 25 29 | 3d 53 31 28 49 25 29 2b |%:S1(I%)|=S1(I%)+|
|00001310| 53 41 28 4a 25 2a 49 25 | 20 83 20 4e 58 32 25 29 |SA(J%*I%| . NX2%)|
|00001320| 2a 43 57 54 3a ed 0d 06 | 2c 05 ed 0d 06 36 42 58 |*CWT:...|,....6BX|
|00001330| 25 3d 36 36 3a 59 25 3d | 31 37 3a f1 8a 58 25 2c |%=66:Y%=|17:..X%,|
|00001340| 59 25 29 3b 22 20 20 20 | 20 20 20 20 20 20 20 20 |Y%);" | |
|00001350| 20 20 20 20 20 22 3b 3a | f1 8a 58 25 2c 59 25 29 | ";:|..X%,Y%)|
|00001360| 3b 22 54 49 4d 45 20 3d | 20 22 3b 54 3b 0d 06 40 |;"TIME =| ";T;..@|
|00001370| 09 e6 20 33 2c 32 0d 06 | 4a 39 58 25 3d 58 4f 25 |.. 3,2..|J9X%=XO%|
|00001380| 3a 55 25 3d 58 25 3a 44 | 58 25 3d 58 52 41 4e 47 |:U%=X%:D|X%=XRANG|
|00001390| 45 25 2f 4e 58 25 3a e3 | 20 49 25 3d 30 20 b8 20 |E%/NX%:.| I%=0 . |
|000013a0| 4e 58 25 2d 31 3a 55 25 | 3d 55 25 2b 44 58 25 0d |NX%-1:U%|=U%+DX%.|
|000013b0| 06 54 1b 86 20 58 25 2c | 53 30 28 49 25 29 2c 55 |.T.. X%,|S0(I%),U|
|000013c0| 25 2c 53 30 28 49 25 2b | 31 29 0d 06 5e 1b 86 20 |%,S0(I%+|1)..^.. |
|000013d0| 58 25 2c 53 31 28 49 25 | 29 2c 55 25 2c 53 31 28 |X%,S1(I%|),U%,S1(|
|000013e0| 49 25 2b 31 29 0d 06 68 | 0b 58 25 3d 55 25 3a ed |I%+1)..h|.X%=U%:.|
|000013f0| 0d 06 72 0d 53 30 28 29 | 3d 53 31 28 29 0d 06 7c |..r.S0()|=S1()..||
|00001400| 0c c8 97 20 58 2c 59 2c | 42 0d 06 86 0a fd 20 42 |... X,Y,|B..... B|
|00001410| 3c 3e 30 0d 06 90 19 ef | 20 32 38 2c 30 2c 33 31 |<>0.....| 28,0,31|
|00001420| 2c 37 39 2c 32 32 3a db | 3a ef 32 36 0d 06 9a 05 |,79,22:.|:.26....|
|00001430| e1 0d 06 a4 05 3a 0d 06 | ae 0c dd 20 f2 53 48 41 |.....:..|... .SHA|
|00001440| 50 45 0d 06 b8 4c de 20 | 50 55 4c 4c 25 28 31 30 |PE...L. |PULL%(10|
|00001450| 2c 31 29 3a e3 20 49 25 | 3d 30 20 b8 20 31 30 3a |,1):. I%|=0 . 10:|
|00001460| 50 55 4c 4c 25 28 49 25 | 2c 30 29 3d 4e 58 25 3a |PULL%(I%|,0)=NX%:|
|00001470| 50 55 4c 4c 25 28 49 25 | 2c 31 29 3d 59 4f 25 3a |PULL%(I%|,1)=YO%:|
|00001480| ed 3a 50 55 4c 4c 25 28 | 30 2c 30 29 3d 30 0d 06 |.:PULL%(|0,0)=0..|
|00001490| c2 45 e7 20 54 45 53 54 | 20 50 55 4c 4c 25 28 31 |.E. TEST| PULL%(1|
|000014a0| 2c 30 29 3d 2e 35 2a 4e | 58 25 3a 50 55 4c 4c 25 |,0)=.5*N|X%:PULL%|
|000014b0| 28 31 2c 31 29 3d 59 4f | 25 2b 59 52 41 4e 47 45 |(1,1)=YO|%+YRANGE|
|000014c0| 25 3a 41 25 3d 31 3a f2 | 44 52 41 57 3a e5 20 8d |%:A%=1:.|DRAW:. .|
|000014d0| 44 62 47 0d 06 cc 37 41 | 25 3d 30 3a f1 8a 30 2c |DbG...7A|%=0:..0,|
|000014e0| 32 32 29 3b 22 45 6e 74 | 65 72 20 63 6f 6f 72 64 |22);"Ent|er coord|
|000014f0| 69 6e 61 74 65 73 20 6f | 66 20 64 69 73 63 6f 6e |inates o|f discon|
|00001500| 74 69 6e 75 69 74 69 65 | 73 22 0d 06 d6 0b f1 8a |tinuitie|s"......|
|00001510| 30 2c 32 33 29 0d 06 e0 | 29 f1 8a 30 2c 32 34 29 |0,23)...|)..0,24)|
|00001520| 22 20 30 20 3c 20 58 20 | 3c 20 31 20 20 20 41 4e |" 0 < X |< 1 AN|
|00001530| 44 20 20 20 2d 31 3c 20 | 59 20 3c 20 31 22 0d 06 |D -1< |Y < 1"..|
|00001540| ea 42 f1 8a 30 2c 32 35 | 29 3b 22 20 45 6e 74 65 |.B..0,25|);" Ente|
|00001550| 72 20 20 2d 31 20 20 66 | 6f 72 20 58 20 74 6f 20 |r -1 f|or X to |
|00001560| 62 65 67 69 6e 20 70 6c | 6f 74 74 69 6e 67 22 3a |begin pl|otting":|
|00001570| f1 8a 30 2c 32 37 29 3b | c4 32 30 2c 22 20 22 29 |..0,27);|.20," ")|
|00001580| 0d 06 f4 4e f1 8a 30 2c | 32 36 29 3b 22 58 3d 20 |...N..0,|26);"X= |
|00001590| 20 20 20 20 20 20 22 3b | 3a ef 38 2c 38 2c 38 2c | ";|:.8,8,8,|
|000015a0| 38 2c 38 2c 38 3a e8 58 | 3a e7 20 58 20 3d 2d 31 |8,8,8:.X|:. X =-1|
|000015b0| 20 8c 20 e1 20 8b 20 e7 | 20 58 3c 3d 30 20 84 20 | . . . .| X<=0 . |
|000015c0| 58 3e 3d 31 20 ef 37 3a | e5 20 8d 64 56 46 0d 06 |X>=1 .7:|. .dVF..|
|000015d0| fe 3f f1 22 59 3d 20 20 | 20 20 20 20 20 22 3b 3a |.?."Y= | ";:|
|000015e0| ef 38 2c 38 2c 38 2c 38 | 2c 38 2c 38 3a e8 59 3a |.8,8,8,8|,8,8:.Y:|
|000015f0| ef 31 31 2c 31 31 3a e7 | 20 59 3c 2d 31 20 84 20 |.11,11:.| Y<-1 . |
|00001600| 59 3e 31 20 ef 37 3a e5 | 20 8d 64 56 46 0d 07 08 |Y>1 .7:.| .dVF...|
|00001610| 1d 58 25 3d 58 2a 4e 58 | 25 3a 59 25 3d 59 2a 59 |.X%=X*NX|%:Y%=Y*Y|
|00001620| 52 41 4e 47 45 25 2b 59 | 4f 25 0d 07 12 37 52 3d |RANGE%+Y|O%...7R=|
|00001630| a3 3a e3 20 49 25 3d 31 | 20 b8 20 41 25 3a e7 20 |.:. I%=1| . A%:. |
|00001640| 58 25 3d 50 55 4c 4c 25 | 28 49 25 2c 30 29 20 50 |X%=PULL%|(I%,0) P|
|00001650| 55 4c 4c 25 28 49 25 2c | 31 29 3d 59 25 3a 52 3d |ULL%(I%,|1)=Y%:R=|
|00001660| b9 0d 07 1c 10 ed 3a e7 | 20 52 20 e5 20 8d 44 4e |......:.| R . .DN|
|00001670| 47 0d 07 26 2b 41 25 3d | 41 25 2b 31 3a 52 3d a3 |G..&+A%=|A%+1:R=.|
|00001680| 3a e3 20 49 25 3d 41 25 | 20 b8 20 31 20 88 20 2d |:. I%=A%| . 1 . -|
|00001690| 31 3a e7 20 52 20 e5 20 | 8d 44 44 47 0d 07 30 4a |1:. R . |.DDG..0J|
|000016a0| e7 20 58 25 3c 50 55 4c | 4c 25 28 49 25 2d 31 2c |. X%<PUL|L%(I%-1,|
|000016b0| 30 29 20 50 55 4c 4c 25 | 28 49 25 2c 30 29 3d 50 |0) PULL%|(I%,0)=P|
|000016c0| 55 4c 4c 25 28 49 25 2d | 31 2c 30 29 3a 50 55 4c |ULL%(I%-|1,0):PUL|
|000016d0| 4c 25 28 49 25 2c 31 29 | 3d 50 55 4c 4c 25 28 49 |L%(I%,1)|=PULL%(I|
|000016e0| 25 2d 31 2c 31 29 0d 07 | 3a 39 20 e7 20 58 25 3e |%-1,1)..|:9 . X%>|
|000016f0| 50 55 4c 4c 25 28 49 25 | 2d 31 2c 30 29 20 50 55 |PULL%(I%|-1,0) PU|
|00001700| 4c 4c 25 28 49 25 2c 30 | 29 3d 58 25 3a 50 55 4c |LL%(I%,0|)=X%:PUL|
|00001710| 4c 25 28 49 25 2c 31 29 | 3d 59 25 3a 52 3d b9 0d |L%(I%,1)|=Y%:R=..|
|00001720| 07 44 05 ed 0d 07 4e 4b | e3 20 49 25 3d 30 20 b8 |.D....NK|. I%=0 .|
|00001730| 20 41 25 3a 47 3d 50 55 | 4c 4c 25 28 49 25 2b 31 | A%:G=PU|LL%(I%+1|
|00001740| 2c 31 29 2d 50 55 4c 4c | 25 28 49 25 2c 31 29 3a |,1)-PULL|%(I%,1):|
|00001750| 47 3d 47 2f 28 50 55 4c | 4c 25 28 49 25 2b 31 2c |G=G/(PUL|L%(I%+1,|
|00001760| 30 29 2d 50 55 4c 4c 25 | 28 49 25 2c 30 29 29 0d |0)-PULL%|(I%,0)).|
|00001770| 07 58 51 49 4e 43 3d 30 | 3a e3 20 4a 25 3d 50 55 |.XQINC=0|:. J%=PU|
|00001780| 4c 4c 25 28 49 25 2c 30 | 29 20 b8 20 50 55 4c 4c |LL%(I%,0|) . PULL|
|00001790| 25 28 49 25 2b 31 2c 30 | 29 3a 53 28 4a 25 2c 4e |%(I%+1,0|):S(J%,N|
|000017a0| 25 29 3d 50 55 4c 4c 25 | 28 49 25 2c 31 29 2b 49 |%)=PULL%|(I%,1)+I|
|000017b0| 4e 43 3a 49 4e 43 3d 49 | 4e 43 2b 47 3a ed 3a ed |NC:INC=I|NC+G:.:.|
|000017c0| 0d 07 62 09 f2 44 52 41 | 57 0d 07 6c 13 e7 20 ac |..b..DRA|W..l.. .|
|000017d0| 20 54 45 53 54 20 e5 20 | 8d 64 56 46 0d 07 76 05 | TEST . |.dVF..v.|
|000017e0| e1 0d 07 80 05 3a 0d 07 | 8a 0c dd 20 a4 59 45 53 |.....:..|... .YES|
|000017f0| 4e 4f 0d 07 94 06 ef 34 | 0d 07 9e 61 f1 8a 33 30 |NO.....4|...a..30|
|00001800| 2c 32 39 29 3b 22 20 43 | 6c 69 63 6b 20 6f 6e 20 |,29);" C|lick on |
|00001810| 22 3b 3a fb 20 31 33 31 | 3a fb 20 30 3a f1 22 20 |";:. 131|:. 0:." |
|00001820| 20 59 45 53 20 20 22 3b | 3a fb 20 37 3a fb 20 31 | YES ";|:. 7:. 1|
|00001830| 32 38 3a f1 22 20 6f 72 | 20 22 3b 3a fb 20 31 33 |28:." or| ";:. 13|
|00001840| 33 3a fb 20 30 3a f1 22 | 20 20 4e 4f 20 20 22 3a |3:. 0:."| NO ":|
|00001850| fb 20 37 3a fb 20 31 32 | 38 0d 07 a8 0e 2a 50 4f |. 7:. 12|8....*PO|
|00001860| 49 4e 54 45 52 20 30 0d | 07 b2 19 c8 97 20 ee 3a |INTER 0.|..... .:|
|00001870| c8 93 20 34 38 30 2c 34 | 38 2c 34 38 30 2c 35 36 |.. 480,4|8,480,56|
|00001880| 0d 07 bc 22 c8 97 20 c8 | 93 20 36 34 30 2c 34 38 |...".. .|. 640,48|
|00001890| 2c 32 38 30 2c 35 30 3a | c8 97 20 b8 20 37 30 30 |,280,50:|.. . 700|
|000018a0| 2c 30 0d 07 c6 18 d1 3d | 30 3a f5 20 fd 20 91 3e |,0.....=|0:. . .>|
|000018b0| 35 30 3a 2a 46 58 32 31 | 2c 39 0d 07 d0 22 f5 20 |50:*FX21|,9...". |
|000018c0| c8 97 20 58 2c 59 2c 42 | 3a f4 50 52 49 4e 54 54 |.. X,Y,B|:.PRINTT|
|000018d0| 41 42 28 30 2c 30 29 2c | 58 2c 59 3a 0d 07 da 0a |AB(0,0),|X,Y:....|
|000018e0| fd 20 42 3c 3e 30 0d 07 | e4 2d e7 20 58 3e 38 31 |. B<>0..|.-. X>81|
|000018f0| 30 20 8c 20 41 4e 53 3d | 32 3a 8b e7 20 58 3c 37 |0 . ANS=|2:.. X<7|
|00001900| 36 30 20 8c 20 41 4e 53 | 3d 31 20 8b 20 e5 20 8d |60 . ANS|=1 . . .|
|00001910| 64 50 47 0d 07 ee 17 c8 | 97 20 c8 93 20 30 2c 30 |dPG.....|. .. 0,0|
|00001920| 2c 31 32 37 39 2c 31 30 | 32 33 0d 07 f8 23 ef 32 |,1279,10|23...#.2|
|00001930| 34 2c 30 3b 30 3b 31 30 | 32 33 3b 59 46 52 41 4d |4,0;0;10|23;YFRAM|
|00001940| 45 25 3b 3a da 3a ef 32 | 36 3a fb 20 33 0d 08 02 |E%;:.:.2|6:. 3...|
|00001950| 0c 3d 28 41 4e 53 3d 31 | 29 0d 08 0c 05 e1 0d 08 |.=(ANS=1|).......|
|00001960| 16 05 3a 0d 08 20 11 dd | 20 f2 50 52 45 54 54 59 |..:.. ..| .PRETTY|
|00001970| 28 41 24 29 0d 08 2a 1e | 24 50 52 45 54 54 59 25 |(A$)..*.|$PRETTY%|
|00001980| 3d bd 33 31 2b bd 33 31 | 2b bd 33 31 2b 41 24 2b |=.31+.31|+.31+A$+|
|00001990| bd 30 0d 08 34 1f c8 99 | 20 22 4f 53 5f 50 72 65 |.0..4...| "OS_Pre|
|000019a0| 74 74 79 50 72 69 6e 74 | 22 2c 50 52 45 54 54 59 |ttyPrint|",PRETTY|
|000019b0| 25 0d 08 3e 07 f1 3a f1 | 0d 08 48 05 e1 0d 08 52 |%..>..:.|..H....R|
|000019c0| 05 3a 0d 08 5c 0e dd 20 | f2 54 45 4c 4c 41 4c 4c |.:..\.. |.TELLALL|
|000019d0| 0d 08 66 50 87 3a 47 3d | 32 30 3a 49 4e 43 3d 59 |..fP.:G=|20:INC=Y|
|000019e0| 4f 25 2b 47 3a e3 20 4a | 25 3d 31 20 b8 20 4e 58 |O%+G:. J|%=1 . NX|
|000019f0| 25 3a 53 28 4a 25 2c 4e | 25 29 3d 49 4e 43 3a 49 |%:S(J%,N|%)=INC:I|
|00001a00| 4e 43 3d 49 4e 43 2b 47 | 3a e7 20 4a 25 3e 3d 28 |NC=INC+G|:. J%>=(|
|00001a10| 4e 58 25 2f 32 29 2d 31 | 2e 35 20 47 3d 2d 32 30 |NX%/2)-1|.5 G=-20|
|00001a20| 0d 08 70 05 ed 0d 08 7a | 0a ef 34 3a ef 32 36 0d |..p....z|..4:.26.|
|00001a30| 08 84 09 f2 44 52 41 57 | 0d 08 8e 13 ef 20 32 38 |....DRAW|..... 28|
|00001a40| 2c 30 2c 33 31 2c 37 39 | 2c 32 32 0d 08 98 46 f2 |,0,31,79|,22...F.|
|00001a50| 50 52 45 54 54 59 28 22 | 20 20 20 20 20 54 68 69 |PRETTY("| Thi|
|00001a60| 73 20 70 72 6f 67 72 61 | 6d 6d 65 20 69 6c 6c 75 |s progra|mme illu|
|00001a70| 73 74 72 61 74 65 73 20 | 74 68 65 20 6d 6f 74 69 |strates |the moti|
|00001a80| 6f 6e 20 6f 66 20 61 20 | 73 74 72 69 6e 67 2e 22 |on of a |string."|
|00001a90| 29 0d 08 a2 9a f2 50 52 | 45 54 54 59 28 22 20 20 |).....PR|ETTY(" |
|00001aa0| 20 20 20 54 68 65 20 73 | 74 72 69 6e 67 20 69 73 | The s|tring is|
|00001ab0| 20 70 75 6c 6c 65 64 20 | 61 73 69 64 65 20 66 72 | pulled |aside fr|
|00001ac0| 6f 6d 20 74 68 65 20 65 | 71 75 69 6c 69 62 72 69 |om the e|quilibri|
|00001ad0| 75 6d 20 70 6f 73 69 74 | 69 6f 6e 20 61 6c 6f 6e |um posit|ion alon|
|00001ae0| 67 20 74 68 65 20 58 2d | 61 78 69 73 20 69 6e 74 |g the X-|axis int|
|00001af0| 6f 20 69 74 73 20 69 6e | 69 74 69 61 6c 20 73 68 |o its in|itial sh|
|00001b00| 61 70 65 20 73 75 63 68 | 20 61 73 20 74 68 65 20 |ape such| as the |
|00001b10| 6f 6e 65 20 73 68 6f 77 | 6e 2c 20 74 68 65 6e 20 |one show|n, then |
|00001b20| 72 65 6c 65 61 73 65 64 | 2e 22 29 0d 08 ac bc f2 |released|.").....|
|00001b30| 50 52 45 54 54 59 28 22 | 20 20 20 20 20 59 6f 75 |PRETTY("| You|
|00001b40| 20 77 69 6c 6c 20 62 65 | 20 61 62 6c 65 20 74 6f | will be| able to|
|00001b50| 20 63 68 6f 6f 73 65 20 | 74 68 65 20 73 68 61 70 | choose |the shap|
|00001b60| 65 20 6f 66 20 74 68 65 | 20 73 74 72 69 6e 67 20 |e of the| string |
|00001b70| 66 6f 72 20 79 6f 75 72 | 73 65 6c 66 2c 20 65 69 |for your|self, ei|
|00001b80| 74 68 65 72 20 62 79 20 | 75 73 69 6e 67 20 74 68 |ther by |using th|
|00001b90| 65 20 6d 6f 75 73 65 20 | 6f 72 20 62 79 20 74 79 |e mouse |or by ty|
|00001ba0| 70 69 6e 67 20 69 6e 20 | 61 63 74 75 61 6c 20 76 |ping in |actual v|
|00001bb0| 61 6c 75 65 73 2e 20 54 | 72 79 20 73 6f 6d 65 20 |alues. T|ry some |
|00001bc0| 73 68 61 70 65 73 20 66 | 6f 72 20 77 68 69 63 68 |shapes f|or which|
|00001bd0| 20 79 6f 75 20 6b 6e 6f | 77 20 74 68 65 20 61 6e | you kno|w the an|
|00001be0| 73 77 65 72 2e 22 29 0d | 08 b6 06 f2 43 0d 08 c0 |swer.").|....C...|
|00001bf0| 64 f2 50 52 45 54 54 59 | 28 22 54 68 65 20 6d 65 |d.PRETTY|("The me|
|00001c00| 74 68 6f 64 20 69 73 20 | 61 73 20 66 6f 6c 6c 6f |thod is |as follo|
|00001c10| 77 73 2e 20 41 20 46 6f | 75 72 69 65 72 20 61 6e |ws. A Fo|urier an|
|00001c20| 61 6c 79 73 69 73 20 69 | 73 20 70 65 72 66 6f 72 |alysis i|s perfor|
|00001c30| 6d 65 64 20 6f 6e 20 74 | 68 65 20 69 6e 69 74 69 |med on t|he initi|
|00001c40| 61 6c 20 73 68 61 70 65 | 20 20 79 28 78 29 2e 22 |al shape| y(x)."|
|00001c50| 29 0d 08 ca 52 f2 50 52 | 45 54 54 59 28 22 54 68 |)...R.PR|ETTY("Th|
|00001c60| 65 20 46 6f 75 72 69 65 | 72 20 63 6f 65 66 66 69 |e Fourie|r coeffi|
|00001c70| 63 69 65 6e 74 73 20 61 | 72 65 20 63 61 6c 63 75 |cients a|re calcu|
|00001c80| 6c 61 74 65 64 20 62 79 | 20 69 6e 74 65 67 72 61 |lated by| integra|
|00001c90| 74 69 6e 67 20 74 68 65 | 20 66 75 6e 63 74 69 6f |ting the| functio|
|00001ca0| 6e 22 29 0d 08 d4 1c 53 | 4e 50 49 58 24 3d 22 73 |n")....S|NPIX$="s|
|00001cb0| 69 6e 28 6e 22 2b bd 32 | 34 30 2b 22 78 29 22 0d |in(n"+.2|40+"x)".|
|00001cc0| 08 de 24 f2 50 52 45 54 | 54 59 28 c4 32 30 2c bd |..$.PRET|TY(.20,.|
|00001cd0| 33 31 29 2b 53 4e 50 49 | 58 24 2b 22 20 79 28 78 |31)+SNPI|X$+" y(x|
|00001ce0| 29 22 29 0d 08 e8 3a f2 | 50 52 45 54 54 59 28 22 |)")...:.|PRETTY("|
|00001cf0| 66 72 6f 6d 20 78 3d 30 | 20 74 6f 20 78 3d 31 20 |from x=0| to x=1 |
|00001d00| 61 6e 64 20 66 6f 72 20 | 6e 3d 20 31 2c 20 32 2c |and for |n= 1, 2,|
|00001d10| 20 2e 2e 2e 20 32 30 2e | 22 29 3a f2 43 0d 08 f2 | ... 20.|"):.C...|
|00001d20| 76 f2 50 52 45 54 54 59 | 28 22 54 68 65 20 73 68 |v.PRETTY|("The sh|
|00001d30| 61 70 65 20 6f 66 20 74 | 68 65 20 73 74 72 69 6e |ape of t|he strin|
|00001d40| 67 20 61 74 20 6c 61 74 | 65 72 20 74 69 6d 65 73 |g at lat|er times|
|00001d50| 20 69 73 20 63 61 6c 63 | 75 6c 61 74 65 64 20 66 | is calc|ulated f|
|00001d60| 72 6f 6d 20 74 68 65 20 | 46 6f 75 72 69 65 72 20 |rom the |Fourier |
|00001d70| 73 65 72 69 65 73 20 61 | 6e 64 20 70 6c 6f 74 74 |series a|nd plott|
|00001d80| 65 64 20 6f 6e 20 74 68 | 65 20 73 63 72 65 65 6e |ed on th|e screen|
|00001d90| 2e 22 29 0d 08 fc 62 f2 | 50 52 45 54 54 59 28 22 |.")...b.|PRETTY("|
|00001da0| 54 68 69 73 20 77 69 6c | 6c 20 6e 6f 77 20 62 65 |This wil|l now be|
|00001db0| 20 64 6f 6e 65 20 66 6f | 72 20 74 68 65 20 73 68 | done fo|r the sh|
|00001dc0| 61 70 65 20 73 68 6f 77 | 6e 20 69 6e 20 74 68 65 |ape show|n in the|
|00001dd0| 20 66 69 67 75 72 65 2e | 20 55 73 65 20 74 68 65 | figure.| Use the|
|00001de0| 20 6d 6f 75 73 65 20 61 | 73 20 72 65 71 75 69 72 | mouse a|s requir|
|00001df0| 65 64 2e 22 29 0d 09 06 | 0a f2 43 3a ef 32 36 0d |ed.")...|..C:.26.|
|00001e00| 09 10 0c f2 46 4f 55 52 | 49 45 52 0d 09 1a 0b f2 |....FOUR|IER.....|
|00001e10| 45 56 4f 4c 56 45 0d 09 | 24 05 e1 0d 09 2e 08 dd |EVOLVE..|$.......|
|00001e20| 20 f2 43 0d 09 38 0e 2a | 50 4f 49 4e 54 45 52 20 | .C..8.*|POINTER |
|00001e30| 30 0d 09 42 08 c8 97 20 | ee 0d 09 4c 18 d1 3d 30 |0..B... |...L..=0|
|00001e40| 3a f5 20 fd 20 91 3e 32 | 30 3a 2a 46 58 32 31 2c |:. . .>2|0:*FX21,|
|00001e50| 39 0d 09 56 3f f1 8a 30 | 2c 38 29 3b 22 43 6c 69 |9..V?..0|,8);"Cli|
|00001e60| 63 6b 20 6f 6e 65 20 6f | 66 20 74 68 65 20 6d 6f |ck one o|f the mo|
|00001e70| 75 73 65 20 62 75 74 74 | 6f 6e 73 20 77 68 65 6e |use butt|ons when|
|00001e80| 20 79 6f 75 27 72 65 20 | 72 65 61 64 79 2e 22 3b | you're |ready.";|
|00001e90| 0d 09 60 15 f5 20 c8 97 | 20 58 2c 59 2c 42 3a fd |..`.. ..| X,Y,B:.|
|00001ea0| 20 42 3c 3e 30 0d 09 6a | 0a c8 97 20 87 3a db 0d | B<>0..j|... .:..|
|00001eb0| 09 74 05 e1 0d ff | |.t.... | |
+--------+-------------------------+-------------------------+--------+--------+
