/ APDL Public Domain 1 / APDL_PD1A.iso / art_draw / reflect / !Reflect / Prog / Reflection

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 40 00 9f e5 40 10 9f e5 | 40 20 9f e5 04 30 11 e4 |@...@...|@ ...0..|
|00000010| 04 30 02 e4 04 00 50 e2 | fb ff ff 1a 00 00 8f e2 |.0....P.|........|
|00000020| 05 00 00 ef 42 41 53 49 | 43 20 2d 71 75 69 74 20 |....BASI|C -quit |
|00000030| 40 30 30 30 30 39 30 30 | 30 2c 30 30 30 30 39 36 |@0000900|0,000096|
|00000040| 31 38 0d 00 00 00 00 00 | 1c 06 00 00 6c 86 00 00 |18......|....l...|
|00000050| 18 96 00 00 0d 00 00 0c | f4 3e 52 65 66 6c 65 78 |........|.>Reflex|
|00000060| 0d 00 06 08 eb 20 31 33 | 0d 00 07 05 87 0d 00 08 |..... 13|........|
|00000070| 0e 2a 50 4f 49 4e 54 45 | 52 20 31 0d 00 09 15 2a |.*POINTE|R 1....*|
|00000080| 3c 4f 62 65 79 24 44 69 | 72 3e 2e 42 72 75 73 68 |<Obey$Di|r>.Brush|
|00000090| 0d 00 0a 0c f2 63 6f 6c | 6f 75 72 73 0d 00 13 10 |.....col|ours....|
|000000a0| de 20 63 6f 64 65 32 25 | 20 31 35 30 0d 00 14 11 |. code2%| 150....|
|000000b0| 6c 69 6e 6b 3d 31 34 3a | 70 63 3d 31 35 0d 00 15 |link=14:|pc=15...|
|000000c0| 2a 78 3d 30 3a 79 3d 31 | 3a 70 6f 69 6e 74 3d 32 |*x=0:y=1|:point=2|
|000000d0| 3a 63 6f 6c 6f 75 72 3d | 33 3a 62 61 73 65 3d 34 |:colour=|3:base=4|
|000000e0| 3a 66 75 6c 6c 3d 35 0d | 00 16 24 74 65 6d 70 3d |:full=5.|..$temp=|
|000000f0| 36 3a 72 6e 64 3d 37 3a | 61 64 64 3d 38 3a 72 6e |6:rnd=7:|add=8:rn|
|00000100| 64 32 3d 39 3a 74 6f 70 | 3d 31 30 0d 00 17 15 e3 |d2=9:top|=10.....|
|00000110| 20 70 61 73 73 25 3d 30 | 20 b8 20 32 20 88 20 32 | pass%=0| . 2 . 2|
|00000120| 0d 00 18 0d 50 25 3d 63 | 6f 64 65 32 25 0d 00 19 |....P%=c|ode2%...|
|00000130| 0e 5b 4f 50 54 20 70 61 | 73 73 25 0d 00 1a 16 2e |.[OPT pa|ss%.....|
|00000140| 76 64 75 20 20 20 20 20 | 20 45 51 55 44 20 31 34 |vdu     | EQUD 14|
|00000150| 38 0d 00 1b 0b 45 51 55 | 44 20 2d 31 0d 00 1d 1a |8....EQU|D -1....|
|00000160| 2e 73 74 61 72 74 75 70 | 20 20 4c 44 52 20 62 61 |.startup|  LDR ba|
|00000170| 73 65 2c 76 64 75 0d 00 | 1e 0e 4d 4f 56 20 79 2c |se,vdu..|..MOV y,|
|00000180| 23 31 34 35 0d 00 1f 10 | 4d 4f 56 20 61 64 64 2c |#145....|MOV add,|
|00000190| 23 33 32 30 0d 00 20 0f | 4d 4f 56 20 72 6e 64 2c |#320.. .|MOV rnd,|
|000001a0| 23 31 35 0d 00 21 0f 4d | 4f 56 20 72 6e 64 32 2c |#15..!.M|OV rnd2,|
|000001b0| 23 31 0d 00 22 18 41 44 | 44 20 66 75 6c 6c 2c 62 |#1..".AD|D full,b|
|000001c0| 61 73 65 2c 23 38 31 39 | 32 30 0d 00 23 17 41 44 |ase,#819|20..#.AD|
|000001d0| 44 20 74 6f 70 2c 62 61 | 73 65 2c 23 34 30 39 36 |D top,ba|se,#4096|
|000001e0| 30 0d 00 24 1e 2e 6c 6f | 6f 70 20 20 20 20 20 41 |0..$..lo|op     A|
|000001f0| 44 44 20 72 6e 64 2c 72 | 6e 64 2c 72 6e 64 32 0d |DD rnd,r|nd,rnd2.|
|00000200| 00 25 14 41 44 44 20 72 | 6e 64 32 2c 72 6e 64 32 |.%.ADD r|nd2,rnd2|
|00000210| 2c 23 32 0d 00 26 0f 43 | 4d 50 20 72 6e 64 32 2c |,#2..&.C|MP rnd2,|
|00000220| 23 37 0d 00 27 16 53 55 | 42 47 54 20 72 6e 64 32 |#7..'.SU|BGT rnd2|
|00000230| 2c 72 6e 64 32 2c 23 37 | 0d 00 28 0f 43 4d 50 20 |,rnd2,#7|..(.CMP |
|00000240| 72 6e 64 2c 23 31 37 0d | 00 29 15 53 55 42 47 54 |rnd,#17.|.).SUBGT|
|00000250| 20 72 6e 64 2c 72 6e 64 | 2c 23 31 37 0d 00 2a 0f | rnd,rnd|,#17..*.|
|00000260| 41 44 44 20 78 2c 78 2c | 23 31 33 0d 00 2b 0e 43 |ADD x,x,|#13..+.C|
|00000270| 4d 50 20 78 2c 23 33 32 | 30 0d 00 2c 13 41 44 44 |MP x,#32|0..,.ADD|
|00000280| 20 74 65 6d 70 2c 61 64 | 64 2c 23 31 0d 00 2d 12 | temp,ad|d,#1..-.|
|00000290| 53 55 42 47 54 20 78 2c | 78 2c 74 65 6d 70 0d 00 |SUBGT x,|x,temp..|
|000002a0| 2e 10 53 55 42 47 54 20 | 79 2c 79 2c 23 31 0d 00 |..SUBGT |y,y,#1..|
|000002b0| 2f 1a 41 44 44 20 70 6f | 69 6e 74 2c 62 61 73 65 |/.ADD po|int,base|
|000002c0| 2c 79 2c 4c 53 4c 23 38 | 0d 00 30 1b 41 44 44 20 |,y,LSL#8|..0.ADD |
|000002d0| 70 6f 69 6e 74 2c 70 6f | 69 6e 74 2c 79 2c 4c 53 |point,po|int,y,LS|
|000002e0| 4c 23 36 0d 00 31 19 4c | 44 52 42 20 63 6f 6c 6f |L#6..1.L|DRB colo|
|000002f0| 75 72 2c 5b 70 6f 69 6e | 74 2c 78 5d 0d 00 32 14 |ur,[poin|t,x]..2.|
|00000300| 4d 55 4c 20 74 65 6d 70 | 2c 72 6e 64 2c 61 64 64 |MUL temp|,rnd,add|
|00000310| 0d 00 33 18 53 55 42 20 | 70 6f 69 6e 74 2c 66 75 |..3.SUB |point,fu|
|00000320| 6c 6c 2c 70 6f 69 6e 74 | 0d 00 34 18 41 44 44 20 |ll,point|..4.ADD |
|00000330| 70 6f 69 6e 74 2c 62 61 | 73 65 2c 70 6f 69 6e 74 |point,ba|se,point|
|00000340| 0d 00 35 18 41 44 44 20 | 70 6f 69 6e 74 2c 70 6f |..5.ADD |point,po|
|00000350| 69 6e 74 2c 74 65 6d 70 | 0d 00 36 14 41 44 44 20 |int,temp|..6.ADD |
|00000360| 74 65 6d 70 2c 70 6f 69 | 6e 74 2c 78 0d 00 37 11 |temp,poi|nt,x..7.|
|00000370| 43 4d 50 20 66 75 6c 6c | 2c 74 65 6d 70 0d 00 38 |CMP full|,temp..8|
|00000380| 0c 42 4c 45 20 73 6b 69 | 70 0d 00 39 10 43 4d 50 |.BLE ski|p..9.CMP|
|00000390| 20 74 6f 70 2c 74 65 6d | 70 0d 00 3a 0c 42 47 54 | top,tem|p..:.BGT|
|000003a0| 20 6c 6f 6f 70 0d 00 3b | 11 43 4d 50 20 63 6f 6c | loop..;|.CMP col|
|000003b0| 6f 75 72 2c 23 30 0d 00 | 3c 10 ec 51 20 63 6f 6c |our,#0..|<..Q col|
|000003c0| 6f 75 72 2c 23 32 0d 00 | 3d 19 53 54 52 42 20 63 |our,#2..|=.STRB c|
|000003d0| 6f 6c 6f 75 72 2c 5b 70 | 6f 69 6e 74 2c 78 5d 0d |olour,[p|oint,x].|
|000003e0| 00 3e 16 2e 73 6b 69 70 | 20 20 20 20 20 43 4d 50 |.>..skip|     CMP|
|000003f0| 20 79 2c 23 30 0d 00 3f | 0c 42 47 54 20 6c 6f 6f | y,#0..?|.BGT loo|
|00000400| 70 0d 00 40 0f 4d 4f 56 | 20 70 63 2c 6c 69 6e 6b |p..@.MOV| pc,link|
|00000410| 0d 00 41 05 5d 0d 00 42 | 0b ed 20 70 61 73 73 25 |..A.]..B|.. pass%|
|00000420| 0d 00 43 24 c8 99 20 22 | 4f 53 5f 52 65 61 64 56 |..C$.. "|OS_ReadV|
|00000430| 64 75 56 61 72 69 61 62 | 6c 65 73 22 2c 76 64 75 |duVariab|les",vdu|
|00000440| 2c 76 64 75 0d 00 44 0f | c8 97 20 61 25 2c 62 25 |,vdu..D.|.. a%,b%|
|00000450| 2c 63 25 0d 00 45 09 67 | 25 3d 33 31 0d 00 46 0a |,c%..E.g|%=31..F.|
|00000460| 74 25 3d 32 35 35 0d 00 | 47 07 72 3d a3 0d 00 48 |t%=255..|G.r=...H|
|00000470| 05 f5 0d 00 49 10 e3 20 | 41 25 3d 30 20 b8 20 32 |....I.. |A%=0 . 2|
|00000480| 30 30 0d 00 4a 06 c8 96 | 0d 00 4b 0d d6 20 73 74 |00..J...|..K.. st|
|00000490| 61 72 74 75 70 0d 00 4c | 0f c8 97 20 78 25 2c 79 |artup..L|... x%,y|
|000004a0| 25 2c 7a 25 0d 00 4d 06 | c8 96 0d 00 4e 10 e7 20 |%,z%..M.|....N.. |
|000004b0| 7a 25 20 f2 6d 6f 75 73 | 65 64 0d 00 4f 09 63 25 |z% .mous|ed..O.c%|
|000004c0| 3d 7a 25 0d 00 50 05 ed | 0d 00 51 07 fd 20 a3 0d |=z%..P..|..Q.. ..|
|000004d0| 00 52 05 e0 0d 00 54 0d | dd 20 f2 6d 6f 75 73 65 |.R....T.|. .mouse|
|000004e0| 64 0d 00 55 18 e7 20 63 | 25 3c 3e 7a 25 20 61 25 |d..U.. c|%<>z% a%|
|000004f0| 3d 78 25 3a 62 25 3d 79 | 25 0d 00 56 0f e7 20 79 |=x%:b%=y|%..V.. y|
|00000500| 25 3e 31 30 31 36 20 8c | 0d 00 57 38 e7 20 7a 25 |%>1016 .|..W8. z%|
|00000510| 3d 32 20 67 25 3d 28 78 | 25 2f 34 29 20 81 20 34 |=2 g%=(x|%/4) . 4|
|00000520| 3a 74 25 3d 28 78 25 2f | 34 29 20 83 20 34 2a 36 |:t%=(x%/|4) . 4*6|
|00000530| 34 3a e6 20 67 25 20 c8 | 9c 20 74 25 3a 72 3d a3 |4:. g% .|. t%:r=.|
|00000540| 0d 00 5d 05 cc 0d 00 5e | 2b e7 20 7a 25 3d 34 20 |..]....^|+. z%=4 |
|00000550| 80 20 ac 20 72 20 ec 20 | 61 25 2c 62 25 3a ec 20 |. . r . |a%,b%:. |
|00000560| 78 25 2c 79 25 3a f0 20 | 26 37 31 2c 30 2c 31 32 |x%,y%:. |&71,0,12|
|00000570| 0d 00 60 39 e7 20 7a 25 | 3d 31 20 e6 20 30 20 c8 |..`9. z%|=1 . 0 .|
|00000580| 9c 20 30 3a ec 20 61 25 | 2c 62 25 3a ec 20 78 25 |. 0:. a%|,b%:. x%|
|00000590| 2c 79 25 3a f0 20 26 37 | 31 2c 30 2c 33 36 3a e6 |,y%:. &7|1,0,36:.|
|000005a0| 20 67 25 20 c8 9c 20 74 | 25 0d 00 61 10 e7 20 7a | g% .. t|%..a.. z|
|000005b0| 25 3d 32 20 f2 73 61 76 | 65 0d 00 62 05 cd 0d 00 |%=2 .sav|e..b....|
|000005c0| 63 09 61 25 3d 78 25 0d | 00 64 09 62 25 3d 79 25 |c.a%=x%.|.d.b%=y%|
|000005d0| 0d 00 65 05 e1 0d 00 67 | 0e dd 20 f2 63 6f 6c 6f |..e....g|.. .colo|
|000005e0| 75 72 73 0d 00 68 13 e3 | 20 6e 3d 31 20 b8 20 31 |urs..h..| n=1 . 1|
|000005f0| 32 38 30 20 88 34 0d 00 | 69 1f e6 20 28 6e 2f 34 |280 .4..|i.. (n/4|
|00000600| 29 20 81 20 34 20 c8 9c | 20 28 6e 2f 34 29 20 83 |) . 4 ..| (n/4) .|
|00000610| 20 34 2a 36 34 0d 00 6a | 14 c8 93 20 c8 90 20 6e | 4*64..j|... .. n|
|00000620| 2c 31 30 31 36 2c 34 2c | 38 0d 00 6b 05 ed 0d 00 |,1016,4,|8..k....|
|00000630| 6c 05 e1 0d 00 6e 0b dd | 20 f2 73 61 76 65 0d 00 |l....n..| .save..|
|00000640| 6f 29 2a 53 63 72 65 65 | 6e 53 61 76 65 20 3c 4f |o)*Scree|nSave <O|
|00000650| 62 65 79 24 44 69 72 3e | 2e 50 69 78 2e 52 65 66 |bey$Dir>|.Pix.Ref|
|00000660| 6c 65 63 74 69 6f 6e 0d | ff 69 6e 6b 0d 00 41 05 |lection.|.ink..A.|
+--------+-------------------------+-------------------------+--------+--------+