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

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0c f4 3e 73 74 | 61 72 5f 32 0d 00 0f 0e |.....>st|ar_2....|
|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 32 35 20 | 3a 53 25 3d 31 20 3a 41 |0 :D=25 |:S%=1 :A|
|00000050| 3d 35 32 35 20 3a 41 32 | 3d 41 2b 41 0d 00 32 29 |=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 2c 45 28 44 29 |C(1,1),Z|(D),E(D)|
|00000080| 2c 46 28 44 29 0d 00 3c | 2f 41 28 30 2c 30 29 3d |,F(D)..<|/A(0,0)=|
|00000090| 31 32 30 30 3a 45 28 30 | 29 3d 37 20 3a f4 20 52 |1200:E(0|)=7 :. R|
|000000a0| 41 20 73 74 61 72 74 73 | 20 2d 2d 2d 2d 2d 3e 20 |A starts| -----> |
|000000b0| 45 41 53 54 0d 00 46 0c | e3 4e 3d 31 20 b8 20 44 |EAST..F.|.N=1 . D|
|000000c0| 0d 00 50 37 41 28 30 2c | 4e 29 3d b3 28 41 32 29 |..P7A(0,|N)=.(A2)|
|000000d0| 2d 41 3a 20 41 28 31 2c | 4e 29 3d b3 28 41 32 29 |-A: A(1,|N)=.(A2)|
|000000e0| 2d 41 3a 20 5a 28 4e 29 | 3d b3 28 41 29 3a 45 28 |-A: Z(N)|=.(A):E(|
|000000f0| 4e 29 3d b3 28 37 29 0d | 00 5a 05 ed 0d 00 64 0d |N)=.(7).|.Z....d.|
|00000100| 53 54 49 50 53 3d 32 34 | 30 0d 00 6e 25 e6 34 3a |STIPS=24|0..n%.4:|
|00000110| 20 e3 4d 3d 31 30 30 b8 | 32 30 30 20 88 35 30 3a | .M=100.|200 .50:|
|00000120| c8 9d 20 30 2c 30 2c 33 | 2a 4d 2c 4d 3a ed 0d 00 |.. 0,0,3|*M,M:...|
|00000130| 78 25 ec 2d 36 30 30 2c | 2d 32 30 30 3a 20 ec 20 |x%.-600,|-200: . |
|00000140| 36 30 30 2c 32 30 30 3a | 20 2a 53 47 45 54 20 6f |600,200:| *SGET o|
|00000150| 76 61 6c 0d 00 82 05 f4 | 0d 00 8c 11 54 31 3d 91 |val.....|....T1=.|
|00000160| 3a f4 20 52 45 50 45 41 | 54 0d 00 96 1b e3 20 4e |:. REPEA|T..... N|
|00000170| 3d 30 20 b8 20 33 36 30 | 20 88 20 33 36 30 2f 53 |=0 . 360| . 360/S|
|00000180| 54 49 50 53 0d 00 a0 29 | 54 3d 2d b2 28 4e 29 3a |TIPS...)|T=-.(N):|
|00000190| 20 43 3d 9b 28 54 29 3a | 20 53 3d b5 28 54 29 20 | C=.(T):| S=.(T) |
|000001a0| 3a 43 28 29 3d 43 2c 2d | 53 2c 53 2c 43 0d 00 aa |:C()=C,-|S,S,C...|
|000001b0| 0b f2 73 63 72 65 65 6e | 0d 00 b4 12 f0 26 45 44 |..screen|.....&ED|
|000001c0| 2c 2d 36 30 30 2c 2d 32 | 30 30 0d 00 be 0f 42 28 |,-600,-2|00....B(|
|000001d0| 29 3d 43 28 29 2e 41 28 | 29 0d 00 c8 15 e3 20 50 |)=C().A(|)..... P|
|000001e0| 3d 30 20 b8 20 31 30 3a | e6 20 45 28 50 29 0d 00 |=0 . 10:|. E(P)..|
|000001f0| dc 1a 86 20 30 2c 30 2c | 42 28 30 2c 50 29 2c 20 |... 0,0,|B(0,P), |
|00000200| 42 28 31 2c 50 29 2f 33 | 0d 00 fa 0f df 20 42 59 |B(1,P)/3|..... BY|
|00000210| 20 30 2c 5a 28 50 29 0d | 01 04 1b f0 20 26 39 31 | 0,Z(P).|.... &91|
|00000220| 2c 28 41 32 2d 42 28 31 | 2c 50 29 29 81 20 35 30 |,(A2-B(1|,P)). 50|
|00000230| 2c 30 0d 01 0e 07 ed 20 | 50 0d 01 0f 15 e3 20 50 |,0..... |P..... P|
|00000240| 3d 31 31 20 b8 20 44 3a | e6 20 45 28 50 29 0d 01 |=11 . D:|. E(P)..|
|00000250| 10 1e f4 20 20 20 20 20 | 4d 4f 56 45 42 28 30 2c |...     |MOVEB(0,|
|00000260| 50 29 2c 20 42 28 31 2c | 50 29 2f 33 0d 01 11 18 |P), B(1,|P)/3....|
|00000270| f4 20 20 20 20 20 44 52 | 41 57 20 42 59 20 30 2c |.     DR|AW BY 0,|
|00000280| 5a 28 50 29 0d 01 12 35 | ec 20 42 28 30 2c 50 29 |Z(P)...5|. B(0,P)|
|00000290| 2c 20 42 28 31 2c 50 29 | 2f 33 20 2b 5a 28 50 29 |, B(1,P)|/3 +Z(P)|
|000002a0| 20 3a f0 20 26 39 31 2c | 28 41 32 2d 42 28 31 2c | :. &91,|(A2-B(1,|
|000002b0| 50 29 29 81 20 35 30 2c | 30 0d 01 13 07 ed 20 50 |P)). 50,|0..... P|
|000002c0| 0d 01 22 07 ed 20 4e 0d | 01 36 40 54 31 3d 28 91 |..".. N.|.6@T1=(.|
|000002d0| 2d 54 31 29 2f 31 30 30 | 3a f4 20 55 4e 54 49 4c |-T1)/100|:. UNTIL|
|000002e0| 20 4e 4f 54 20 49 4e 4b | 45 59 28 30 29 3a 20 52 | NOT INK|EY(0): R|
|000002f0| 45 4d 20 50 52 45 53 53 | 20 4b 45 59 20 41 53 20 |EM PRESS| KEY AS |
|00000300| 2d 2d 2d 2d 3e 20 45 0d | 01 40 10 f2 73 63 72 65 |----> E.|.@..scre|
|00000310| 65 6e 20 3a eb 31 32 0d | 01 4a 10 f1 22 54 49 4d |en :.12.|.J.."TIM|
|00000320| 45 3d 20 22 3b 54 31 0d | 01 54 05 e0 0d 01 5e 04 |E= ";T1.|.T....^.|
|00000330| 0d 01 68 0c dd f2 73 63 | 72 65 65 6e 0d 01 72 16 |..h...sc|reen..r.|
|00000340| c8 99 22 4f 53 5f 42 79 | 74 65 22 2c 26 37 31 2c |.."OS_By|te",&71,|
|00000350| 53 25 0d 01 7c 12 53 25 | 3d 53 25 20 82 20 33 20 |S%..|.S%|=S% . 3 |
|00000360| 20 3a c8 96 0d 01 86 16 | c8 99 22 4f 53 5f 42 79 | :......|.."OS_By|
|00000370| 74 65 22 2c 26 37 30 2c | 53 25 0d 01 90 05 db 0d |te",&70,|S%......|
|00000380| 01 9a 05 e1 0d 01 a4 14 | f4 20 23 31 3d 31 31 33 |........|. #1=113|
|00000390| 2c 20 23 32 3d 31 31 32 | 0d ff                   |, #2=112|..      |
+--------+-------------------------+-------------------------+--------+--------+