/ APDL Public Domain 1 / APDL_PD1A.iso / fractal / basicprogs / tangle

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0c f4 3e 74 61 | 6e 67 6c 65 0d 00 0f 0e |.....>ta|ngle....|
|00000010| f4 6e 69 6b 5f 73 74 75 | 66 66 0d 00 14 07 eb 31 |.nik_stu|ff.....1|
|00000020| 33 0d 00 1e 06 eb 39 0d | 00 28 35 58 30 3d 36 34 |3.....9.|.(5X0=64|
|00000030| 30 3a 59 30 3d 33 30 30 | 3a c8 91 20 58 30 2c 59 |0:Y0=300|:.. X0,Y|
|00000040| 30 20 3a 44 3d 37 35 20 | 3a 53 25 3d 31 20 3a 41 |0 :D=75 |:S%=1 :A|
|00000050| 3d 35 32 35 20 3a 41 32 | 3d 41 2b 41 0d 00 32 1f |=525 :A2|=A+A..2.|
|00000060| de 20 41 28 31 2c 44 29 | 2c 42 28 31 2c 44 29 2c |. A(1,D)|,B(1,D),|
|00000070| 43 28 31 2c 31 29 2c 5a | 28 44 29 0d 00 3c 28 41 |C(1,1),Z|(D)..<(A|
|00000080| 28 30 2c 30 29 3d 31 32 | 30 30 20 3a f4 20 52 41 |(0,0)=12|00 :. RA|
|00000090| 20 73 74 61 72 74 73 20 | 2d 2d 2d 2d 2d 3e 20 45 | starts |-----> E|
|000000a0| 41 53 54 0d 00 46 0c e3 | 4e 3d 31 20 b8 20 44 0d |AST..F..|N=1 . D.|
|000000b0| 00 50 2d 41 28 30 2c 4e | 29 3d b3 28 41 32 29 2d |.P-A(0,N|)=.(A2)-|
|000000c0| 41 3a 20 41 28 31 2c 4e | 29 3d b3 28 41 32 29 2d |A: A(1,N|)=.(A2)-|
|000000d0| 41 3a 20 5a 28 4e 29 3d | b3 28 41 29 0d 00 5a 05 |A: Z(N)=|.(A)..Z.|
|000000e0| ed 0d 00 64 3b 53 54 49 | 50 53 3d 31 38 30 20 3a |...d;STI|PS=180 :|
|000000f0| 54 3d 2d b2 28 33 36 30 | 2f 53 54 49 50 53 29 3a |T=-.(360|/STIPS):|
|00000100| 43 3d 9b 28 54 29 3a 20 | 53 3d b5 28 54 29 20 3a |C=.(T): |S=.(T) :|
|00000110| 43 28 29 3d 43 2c 2d 53 | 2c 53 2c 43 0d 00 6e 25 |C()=C,-S|,S,C..n%|
|00000120| e6 34 3a 20 e3 4d 3d 31 | 30 30 b8 32 30 30 20 88 |.4: .M=1|00.200 .|
|00000130| 35 30 3a c8 9d 20 30 2c | 30 2c 33 2a 4d 2c 4d 3a |50:.. 0,|0,3*M,M:|
|00000140| ed 0d 00 78 22 ec 2d 36 | 30 30 2c 2d 32 30 30 3a |...x".-6|00,-200:|
|00000150| 20 ec 20 36 30 30 2c 32 | 30 30 3a 20 2a 53 47 45 | . 600,2|00: *SGE|
|00000160| 54 20 30 0d 00 79 06 e6 | 31 0d 00 82 05 f5 0d 00 |T 0..y..|1.......|
|00000170| a0 2a f2 73 63 72 65 65 | 6e 3a 42 28 29 3d 43 28 |.*.scree|n:B()=C(|
|00000180| 29 2e 41 28 29 3a f4 50 | 4c 4f 54 26 45 44 2c 2d |).A():.P|LOT&ED,-|
|00000190| 36 30 30 2c 2d 32 30 30 | 0d 00 a2 29 e6 34 3a 20 |600,-200|...).4: |
|000001a0| e3 4d 3d 31 30 30 b8 32 | 30 30 20 88 35 30 3a c8 |.M=100.2|00 .50:.|
|000001b0| 9d 20 30 2c 30 2c 33 2a | 4d 2c 4d 3a ed 3a 20 e6 |. 0,0,3*|M,M:.: .|
|000001c0| 31 0d 00 a3 1b ec 42 28 | 30 2c 31 29 2c 20 42 28 |1.....B(|0,1), B(|
|000001d0| 31 2c 31 29 2f 33 20 2b | 5a 28 31 29 0d 00 a5 2c |1,1)/3 +|Z(1)...,|
|000001e0| e3 20 50 25 3d 32 20 b8 | 20 44 3a df 20 42 28 30 |. P%=2 .| D:. B(0|
|000001f0| 2c 50 25 29 2c 20 42 28 | 31 2c 50 25 29 2f 33 20 |,P%), B(|1,P%)/3 |
|00000200| 2b 5a 28 50 25 29 3a ed | 0d 00 af 0b 41 28 29 3d |+Z(P%):.|....A()=|
|00000210| 42 28 29 0d 00 be 27 f4 | 20 49 46 20 4e 3d 32 36 |B()...'.| IF N=26|
|00000220| 20 54 48 45 4e 2a 48 61 | 72 64 43 6f 70 79 4d 58 | THEN*Ha|rdCopyMX|
|00000230| 20 30 20 31 20 31 20 30 | 20 33 0d 00 d2 24 fd 20 | 0 1 1 0| 3...$. |
|00000240| ac 20 a6 28 30 29 3a 20 | f4 20 50 52 45 53 53 20 |. .(0): |. PRESS |
|00000250| 4b 45 59 20 41 53 20 2d | 2d 2d 2d 3e 20 45 0d 00 |KEY AS -|---> E..|
|00000260| dc 10 f2 73 63 72 65 65 | 6e 20 3a eb 31 32 0d 00 |...scree|n :.12..|
|00000270| e6 05 e0 0d 00 f0 04 0d | 00 fa 0c dd f2 73 63 72 |........|.....scr|
|00000280| 65 65 6e 0d 01 04 16 c8 | 99 22 4f 53 5f 42 79 74 |een.....|."OS_Byt|
|00000290| 65 22 2c 31 31 33 2c 53 | 25 0d 01 0e 12 53 25 3d |e",113,S|%....S%=|
|000002a0| 53 25 20 82 20 33 20 20 | 3a c8 96 0d 01 18 16 c8 |S% . 3  |:.......|
|000002b0| 99 22 4f 53 5f 42 79 74 | 65 22 2c 31 31 32 2c 53 |."OS_Byt|e",112,S|
|000002c0| 25 0d 01 22 05 db 0d 01 | 2c 05 e1 0d 04 8d 35 e3 |%.."....|,.....5.|
|000002d0| 20 50 25 3d 30 20 b8 20 | 44 3a ec 42 28 30 2c 50 | P%=0 . |D:.B(0,P|
|000002e0| 25 29 2c 20 42 28 31 2c | 50 25 29 2f 33 20 2b 5a |%), B(1,|P%)/3 +Z|
|000002f0| 28 50 25 29 3a 20 df 20 | 42 59 20 34 2c 30 3a ed |(P%): . |BY 4,0:.|
|00000300| 0d 04 92 36 f4 20 47 43 | 4f 4c 31 3a 20 4c 49 4e |...6. GC|OL1: LIN|
|00000310| 45 20 30 2c 30 2c 42 28 | 30 2c 50 29 2c 20 42 28 |E 0,0,B(|0,P), B(|
|00000320| 31 2c 50 29 2f 33 20 3a | 44 52 41 57 20 42 59 20 |1,P)/3 :|DRAW BY |
|00000330| 30 2c 5a 28 50 29 0d 04 | 94 17 f4 20 47 43 4f 4c |0,Z(P)..|... GCOL|
|00000340| 37 3a 44 52 41 57 20 42 | 59 20 34 2c 30 0d ff    |7:DRAW B|Y 4,0.. |
+--------+-------------------------+-------------------------+--------+--------+