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

< 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 31 0d 00 0f 0f |.....>st|ar_1....|
|00000010| f4 20 6e 69 6b 5f 73 74 | 75 66 66 0d 00 14 07 eb |. nik_st|uff.....|
|00000020| 31 33 0d 00 1e 06 eb 39 | 0d 00 28 35 58 30 3d 36 |13.....9|..(5X0=6|
|00000030| 34 30 3a 59 30 3d 33 30 | 30 3a c8 91 20 58 30 2c |40:Y0=30|0:.. X0,|
|00000040| 59 30 20 3a 44 3d 37 35 | 20 3a 53 25 3d 31 20 3a |Y0 :D=75| :S%=1 :|
|00000050| 41 3d 35 32 35 20 3a 41 | 32 3d 41 2b 41 0d 00 32 |A=525 :A|2=A+A..2|
|00000060| 29 de 20 41 28 31 2c 44 | 29 2c 42 28 31 2c 44 29 |). A(1,D|),B(1,D)|
|00000070| 2c 43 28 31 2c 31 29 2c | 5a 28 44 29 2c 45 28 44 |,C(1,1),|Z(D),E(D|
|00000080| 29 2c 46 28 44 29 0d 00 | 3c 2f 41 28 30 2c 30 29 |),F(D)..|</A(0,0)|
|00000090| 3d 31 32 30 30 3a 45 28 | 30 29 3d 37 20 3a f4 20 |=1200:E(|0)=7 :. |
|000000a0| 52 41 20 73 74 61 72 74 | 73 20 2d 2d 2d 2d 2d 3e |RA start|s ----->|
|000000b0| 20 45 41 53 54 0d 00 46 | 0c e3 4e 3d 31 20 b8 20 | EAST..F|..N=1 . |
|000000c0| 44 0d 00 50 37 41 28 30 | 2c 4e 29 3d b3 28 41 32 |D..P7A(0|,N)=.(A2|
|000000d0| 29 2d 41 3a 20 41 28 31 | 2c 4e 29 3d b3 28 41 32 |)-A: A(1|,N)=.(A2|
|000000e0| 29 2d 41 3a 20 5a 28 4e | 29 3d b3 28 41 29 3a 45 |)-A: Z(N|)=.(A):E|
|000000f0| 28 4e 29 3d b3 28 37 29 | 0d 00 5a 05 ed 0d 00 64 |(N)=.(7)|..Z....d|
|00000100| 0d 53 54 49 50 53 3d 31 | 38 30 0d 00 6e 25 e6 34 |.STIPS=1|80..n%.4|
|00000110| 3a 20 e3 4d 3d 31 30 30 | b8 32 30 30 20 88 35 30 |: .M=100|.200 .50|
|00000120| 3a c8 9d 20 30 2c 30 2c | 33 2a 4d 2c 4d 3a ed 0d |:.. 0,0,|3*M,M:..|
|00000130| 00 78 25 ec 2d 36 30 30 | 2c 2d 32 30 30 3a 20 ec |.x%.-600|,-200: .|
|00000140| 20 36 30 30 2c 32 30 30 | 3a 20 2a 53 47 45 54 20 | 600,200|: *SGET |
|00000150| 6f 76 61 6c 0d 00 82 05 | f4 0d 00 8c 11 54 31 3d |oval....|.....T1=|
|00000160| 91 3a f4 20 52 45 50 45 | 41 54 0d 00 96 1b e3 20 |.:. REPE|AT..... |
|00000170| 4e 3d 30 20 b8 20 33 36 | 30 20 88 20 33 36 30 2f |N=0 . 36|0 . 360/|
|00000180| 53 54 49 50 53 0d 00 a0 | 29 54 3d 2d b2 28 4e 29 |STIPS...|)T=-.(N)|
|00000190| 3a 20 43 3d 9b 28 54 29 | 3a 20 53 3d b5 28 54 29 |: C=.(T)|: S=.(T)|
|000001a0| 20 3a 43 28 29 3d 43 2c | 2d 53 2c 53 2c 43 0d 00 | :C()=C,|-S,S,C..|
|000001b0| aa 0b f2 73 63 72 65 65 | 6e 0d 00 b4 12 f0 26 45 |...scree|n.....&E|
|000001c0| 44 2c 2d 36 30 30 2c 2d | 32 30 30 0d 00 be 0f 42 |D,-600,-|200....B|
|000001d0| 28 29 3d 43 28 29 2e 41 | 28 29 0d 00 c8 15 e3 20 |()=C().A|()..... |
|000001e0| 50 3d 30 20 b8 20 31 30 | 3a e6 20 45 28 50 29 0d |P=0 . 10|:. E(P).|
|000001f0| 00 dc 1a 86 20 30 2c 30 | 2c 42 28 30 2c 50 29 2c |.... 0,0|,B(0,P),|
|00000200| 20 42 28 31 2c 50 29 2f | 33 0d 00 fa 0f df 20 42 | B(1,P)/|3..... B|
|00000210| 59 20 30 2c 5a 28 50 29 | 0d 01 04 1b f0 20 26 39 |Y 0,Z(P)|..... &9|
|00000220| 39 2c 28 41 32 2d 42 28 | 31 2c 50 29 29 81 20 35 |9,(A2-B(|1,P)). 5|
|00000230| 30 2c 30 0d 01 0e 07 ed | 20 50 0d 01 0f 15 e3 20 |0,0.....| P..... |
|00000240| 50 3d 31 31 20 b8 20 44 | 3a e6 20 45 28 50 29 0d |P=11 . D|:. E(P).|
|00000250| 01 10 1e f4 20 20 20 20 | 20 4d 4f 56 45 42 28 30 |....    | MOVEB(0|
|00000260| 2c 50 29 2c 20 42 28 31 | 2c 50 29 2f 33 0d 01 11 |,P), B(1|,P)/3...|
|00000270| 18 f4 20 20 20 20 20 44 | 52 41 57 20 42 59 20 30 |..     D|RAW BY 0|
|00000280| 2c 5a 28 50 29 0d 01 12 | 35 ec 20 42 28 30 2c 50 |,Z(P)...|5. B(0,P|
|00000290| 29 2c 20 42 28 31 2c 50 | 29 2f 33 20 2b 5a 28 50 |), B(1,P|)/3 +Z(P|
|000002a0| 29 20 3a f0 20 26 39 39 | 2c 28 41 32 2d 42 28 31 |) :. &99|,(A2-B(1|
|000002b0| 2c 50 29 29 81 20 35 30 | 2c 30 0d 01 13 07 ed 20 |,P)). 50|,0..... |
|000002c0| 50 0d 01 22 07 ed 20 4e | 0d 01 36 11 54 31 3d 28 |P..".. N|..6.T1=(|
|000002d0| 91 2d 54 31 29 2f 31 30 | 30 0d 01 40 10 f2 73 63 |.-T1)/10|0..@..sc|
|000002e0| 72 65 65 6e 20 3a eb 31 | 32 0d 01 4a 10 f1 22 54 |reen :.1|2..J.."T|
|000002f0| 49 4d 45 3d 20 22 3b 54 | 31 0d 01 54 05 e0 0d 01 |IME= ";T|1..T....|
|00000300| 5e 04 0d 01 68 0c dd f2 | 73 63 72 65 65 6e 0d 01 |^...h...|screen..|
|00000310| 72 16 c8 99 22 4f 53 5f | 42 79 74 65 22 2c 26 37 |r..."OS_|Byte",&7|
|00000320| 31 2c 53 25 0d 01 7c 12 | 53 25 3d 53 25 20 82 20 |1,S%..|.|S%=S% . |
|00000330| 33 20 20 3a c8 96 0d 01 | 86 16 c8 99 22 4f 53 5f |3  :....|...."OS_|
|00000340| 42 79 74 65 22 2c 26 37 | 30 2c 53 25 0d 01 90 05 |Byte",&7|0,S%....|
|00000350| db 0d 01 9a 05 e1 0d 01 | a4 14 f4 20 23 31 3d 31 |........|... #1=1|
|00000360| 31 33 2c 20 23 32 3d 31 | 31 32 0d ff             |13, #2=1|12..    |
+--------+-------------------------+-------------------------+--------+--------+