Liren Large Software Subsidy 13

home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p068 / 4.img < prev
DOSIMG Disk Image | 1993-07-31 | 730.7 KB
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: DOSIMG Disk Image (archive/dosimg).

You can browse this item here: 4.img
Confidence	Program	Detection	Match Type	Support
`100%`	dexvert	DOSIMG Disk Image `(archive/dosimg)`	magic	Supported
`66%`	dexvert	Alias PIX Image `(image/aliasPIX)`	ext	Supported
`66%`	dexvert	GEM Raster Bitmap `(image/gem)`	ext	Supported
`66%`	dexvert	DaVinci `(image/daVinci)`	ext	Supported
`46%`	dexvert	Disk Image `(archive/diskImage)`	ext	Supported
`1%`	dexvert	AIX/BFF backup/restore `(archive/aixBackupRestore)`	ext	Unsupported
`1%`	dexvert	The Duplicator Toolkit disk image `(archive/duplicatorToolkitDiskImage)`	ext	Unsupported
`1%`	dexvert	PTS-DOS disk image `(archive/ptsDOSDiskImage)`	ext	Unsupported
`1%`	dexvert	QNX volume disk image `(archive/qnxVolumeDiskImage)`	ext	Unsupported
`1%`	dexvert	SNATCH-IT Disk Image `(archive/snatchItDiskImage)`	ext	Unsupported
`1%`	dexvert	Android boot image `(archive/androidBootImage)`	ext	Unsupported
`1%`	dexvert	Paragon DOS disk image `(archive/paragonDOSDiskImage)`	ext	Unsupported
`1%`	dexvert	QEMU QCOW Image `(archive/qemuQCOWImage)`	ext	Unsupported
`1%`	dexvert	Davilex Games game data format `(other/davilexGamesGameDataFormat)`	ext	Unsupported
`1%`	dexvert	Eclipse Image `(other/eclipseImage)`	ext	Unsupported
`1%`	dexvert	InfoComics game data `(other/infoComicsGameData)`	ext	Unsupported
`1%`	dexvert	Garmin map `(other/garminMap)`	ext	Unsupported
`1%`	dexvert	Piklib/BlooMoo graphic data `(other/piklibGraphicData)`	ext	Unsupported
`100%`	file	data	default
`100%`	TrID	DOSIMG disk image (80t/15s)	default
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 4f 0f 01 01 01 01 01 01 | 01 01 01 01 01 01 01 01 |O.......|........|
|00000010| 01 01 01 01 01 01 01 01 | 01 01 01 01 01 01 01 01 |........|........|
|00000020| 01 01 01 01 01 01 01 01 | 01 01 01 01 01 01 01 01 |........|........|
|00000030| 01 01 01 01 01 01 01 01 | 01 01 01 01 01 01 01 01 |........|........|
|00000040| 01 01 01 01 01 01 01 01 | 01 01 01 01 01 01 01 01 |........|........|
|00000050| 01 01 01 01 01 01 01 01 | 01 01 01 01 01 01 01 01 |........|........|
|00000060| 01 01 01 01 01 01 01 01 | 01 01 01 01 01 01 01 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 8c 13 | fe eb 3e 90 50 43 20 54 |........|..>.PC T|
|000000b0| 6f 6f 6c 73 00 02 01 01 | 00 02 e0 00 60 09 f9 07 |ools....|....`...|
|000000c0| 00 0f 00 02 fe 00 09 0f | fe 00 04 01 fe 00 07 01 |........|........|
|000000d0| 01 00 01 0f 1d fe 00 09 | fa fc 33 c0 8e d0 bc 00 |........|..3.....|
|000000e0| 7c 8e d8 fb e8 4a 00 0a | 0d 54 68 69 73 20 69 73 ||....J..|.This is|
|000000f0| 20 6e 6f 74 20 61 20 62 | 6f 6f 74 61 62 6c 65 20 | not a b|ootable |
|00000100| 64 69 73 6b 65 74 74 65 | 0a 0d 52 65 70 6c 61 63 |diskette|..Replac|
|00000110| 65 20 61 6e 64 20 70 72 | 65 73 73 20 61 6e 79 20 |e and pr|ess any |
|00000120| 6b 65 79 20 77 68 65 6e | 20 72 65 61 64 79 0a 0d |key when| ready..|
|00000130| 00 5e ac 0a c0 74 09 bb | 07 00 b4 0e cd 10 eb f2 |.^...t..|........|
|00000140| 32 e4 cd 16 cd 19 fe 00 | ff fe 00 51 55 aa f9 fe |2.......|...QU...|
|00000150| ff 03 4f 00 05 60 00 07 | 80 00 09 a0 00 0b c0 00 |..O..`..|........|
|00000160| 0d e0 00 0f 00 01 11 20 | 01 13 40 01 15 60 01 17 |....... |..@..`..|
|00000170| 80 01 19 a0 01 fe ff 03 | 1d e0 01 1f 00 02 21 20 |........|......! |
|00000180| 02 23 40 02 25 60 02 27 | 80 02 ff af 02 2b c0 02 |.#@.%`.'|.....+..|
|00000190| 2d e0 02 2f 00 03 31 20 | 03 33 40 03 35 60 03 ff |-../..1 |.3@.5`..|
|000001a0| 8f 03 39 a0 03 3b c0 03 | 3d e0 03 3f 00 04 41 20 |..9..;..|=..?..A |
|000001b0| 04 43 40 04 45 60 04 47 | 80 04 49 a0 04 4b c0 04 |.C@.E`.G|..I..K..|
|000001c0| 4d e0 04 4f 00 05 51 20 | 05 53 40 05 55 60 05 57 |M..O..Q |.S@.U`.W|
|000001d0| 80 05 59 a0 05 5b c0 05 | 5d e0 05 5f 00 06 61 20 |..Y..[..|].._..a |
|000001e0| 06 63 40 06 65 60 06 67 | 80 06 69 a0 06 6b c0 06 |.c@.e`.g|..i..k..|
|000001f0| 6d e0 06 6f 00 07 71 20 | 07 73 40 07 75 60 07 77 |m..o..q |.s@.u`.w|
|00000200| 80 07 79 a0 07 7b c0 07 | 7d e0 07 7f 00 08 81 20 |..y..{..|}...... |
|00000210| 08 83 40 08 85 60 08 87 | 80 08 89 a0 08 8b c0 08 |..@..`..|........|
|00000220| 8d e0 08 8f 00 09 91 20 | 09 93 40 09 95 60 09 97 |....... |..@..`..|
|00000230| 80 09 99 a0 09 9b c0 09 | 9d e0 09 9f 00 0a a1 20 |........|....... |
|00000240| 0a a3 40 0a a5 60 0a a7 | 80 0a a9 a0 0a ab c0 0a |..@..`..|........|
|00000250| ad e0 0a af 00 0b b1 20 | 0b b3 40 0b b5 60 0b b7 |....... |..@..`..|
|00000260| 80 0b b9 a0 0b bb c0 0b | bd e0 0b bf 00 0c c1 20 |........|....... |
|00000270| 0c c3 40 0c c5 60 0c c7 | 80 0c c9 a0 0c cb c0 0c |..@..`..|........|
|00000280| cd e0 0c cf 00 0d d1 20 | 0d d3 40 0d d5 60 0d d7 |....... |..@..`..|
|00000290| 80 0d d9 a0 0d db c0 0d | dd e0 0d df 00 0e e1 20 |........|....... |
|000002a0| 0e e3 40 0e e5 60 0e e7 | 80 0e e9 a0 0e eb c0 0e |..@..`..|........|
|000002b0| ed e0 0e ef 00 0f f1 20 | 0f f3 40 0f f5 60 0f f7 |....... |..@..`..|
|000002c0| 80 0f f9 a0 0f fb c0 0f | fd e0 0f ff 00 10 01 21 |........|.......!|
|000002d0| 10 03 41 10 05 61 10 07 | 81 10 09 a1 10 0b c1 10 |..A..a..|........|
|000002e0| 0d e1 10 0f 01 11 11 21 | 11 13 41 11 15 61 11 17 |.......!|..A..a..|
|000002f0| 81 11 19 a1 11 1b c1 11 | 1d e1 11 1f 01 12 21 21 |........|......!!|
|00000300| 12 23 41 12 25 61 12 ff | 8f 12 29 a1 12 2b c1 12 |.#A.%a..|..)..+..|
|00000310| 2d e1 12 2f 01 13 ff 2f | 13 33 41 13 35 61 13 37 |-../.../|.3A.5a.7|
|00000320| f1 ff 39 a1 13 3b c1 13 | ff ef 13 3f 01 14 41 21 |..9..;..|...?..A!|
|00000330| 14 43 41 14 45 61 14 47 | f1 ff 49 a1 14 4b c1 14 |.CA.Ea.G|..I..K..|
|00000340| 4d e1 14 4f 01 15 ff 2f | 15 53 41 15 55 61 15 57 |M..O.../|.SA.Ua.W|
|00000350| 81 15 59 a1 15 5b c1 15 | 5d e1 15 ff 0f 16 61 21 |..Y..[..|].....a!|
|00000360| 16 63 41 16 65 61 16 ff | 8f 16 69 a1 16 6b f1 ff |.cA.ea..|..i..k..|
|00000370| 6d e1 16 6f 01 17 71 21 | 17 73 41 17 75 61 17 77 |m..o..q!|.sA.ua.w|
|00000380| 81 17 79 a1 17 7b c1 17 | 7d e1 17 7f 01 18 81 21 |..y..{..|}......!|
|00000390| 18 83 41 18 85 61 18 87 | 81 18 89 a1 18 8b c1 18 |..A..a..|........|
|000003a0| ff ef 18 8f 01 19 91 21 | 19 93 41 19 95 61 19 97 |.......!|..A..a..|
|000003b0| 81 19 99 a1 19 ff cf 19 | 9d e1 19 9f f1 ff a1 21 |........|.......!|
|000003c0| 1a ff 4f 1a a5 61 1a a7 | 81 1a a9 a1 1a ab c1 1a |..O..a..|........|
|000003d0| ad f1 ff af f1 ff ff 2f | 1b b3 41 1b b5 61 1b b7 |......./|..A..a..|
|000003e0| f1 ff b9 a1 1b bb c1 1b | bd e1 1b bf f1 ff c1 21 |........|.......!|
|000003f0| 1c c3 41 1c c5 61 1c c7 | 81 1c c9 a1 1c cb c1 1c |..A..a..|........|
|00000400| cd f1 ff cf 01 1d d1 21 | 1d d3 41 1d d5 61 1d d7 |.......!|..A..a..|
|00000410| 81 1d d9 a1 1d db f1 ff | dd e1 1d df 01 1e e1 21 |........|.......!|
|00000420| 1e e3 41 1e ff 6f 1e e7 | 81 1e e9 f1 ff eb c1 1e |..A..o..|........|
|00000430| ed e1 1e ef 01 1f f1 21 | 1f f3 41 1f ff 6f 1f f7 |.......!|..A..o..|
|00000440| 81 1f f9 a1 1f fb c1 1f | fd e1 1f ff f1 ff 01 22 |........|......."|
|00000450| 20 03 42 20 ff 6f 20 07 | 82 20 ff af 20 0b c2 20 | .B .o .|. .. .. |
|00000460| 0d f2 ff 0f 02 21 11 22 | 21 13 42 21 15 62 21 17 |.....!."|!.B!.b!.|
|00000470| 82 21 ff af 21 1b c2 21 | 1d e2 21 1f 02 22 21 22 |.!..!..!|..!.."!"|
|00000480| 22 23 42 22 25 62 22 27 | f2 ff 29 a2 22 2b c2 22 |"#B"%b"'|..)."+."|
|00000490| 2d e2 22 2f 02 23 31 22 | 23 33 42 23 35 62 23 ff |-."/.#1"|#3B#5b#.|
|000004a0| 8f 23 39 a2 23 3b c2 23 | 3d e2 23 3f f2 ff 41 22 |.#9.#;.#|=.#?..A"|
|000004b0| 24 43 42 24 ff 6f 24 47 | 82 24 49 a2 24 4b c2 24 |$CB$.o$G|.$I.$K.$|
|000004c0| 4d e2 24 4f 02 25 51 22 | 25 53 42 25 55 62 25 57 |M.$O.%Q"|%SB%Ub%W|
|000004d0| 82 25 59 a2 25 5b c2 25 | 5d e2 25 5f 02 26 ff 2f |.%Y.%[.%|].%_.&./|
|000004e0| 26 63 42 26 65 62 26 67 | 82 26 69 a2 26 6b c2 26 |&cB&eb&g|.&i.&k.&|
|000004f0| 6d e2 26 6f 02 27 71 22 | 27 73 42 27 75 62 27 77 |m.&o.'q"|'sB'ub'w|
|00000500| 82 27 79 a2 27 7b c2 27 | ff ef 27 7f 02 28 81 22 |.'y.'{.'|..'..(."|
|00000510| 28 83 42 28 85 62 28 87 | f2 fe ff 04 8b c2 28 8d |(.B(.b(.|......(.|
|00000520| e2 28 8f 02 29 91 22 29 | 93 42 29 95 62 29 97 82 |.(..).")|.B).b)..|
|00000530| 29 99 a2 29 9b c2 29 9d | e2 29 9f 02 2a a1 22 2a |)..)..).|.)..*."*|
|00000540| a3 42 2a a5 62 2a a7 82 | 2a a9 a2 2a ab c2 2a ad |.B*.b*..|*..*..*.|
|00000550| e2 2a af 02 2b b1 22 2b | b3 42 2b b5 62 2b b7 82 |.*..+."+|.B+.b+..|
|00000560| 2b b9 a2 2b bb c2 2b bd | e2 2b bf 02 2c c1 22 2c |+..+..+.|.+..,.",|
|00000570| c3 42 2c c5 62 2c c7 82 | 2c c9 a2 2c cb c2 2c cd |.B,.b,..|,..,..,.|
|00000580| e2 2c cf 02 2d d1 22 2d | d3 42 2d d5 62 2d d7 82 |.,..-."-|.B-.b-..|
|00000590| 2d d9 a2 2d db c2 2d dd | e2 2d df 02 2e e1 22 2e |-..-..-.|.-....".|
|000005a0| e3 42 2e e5 62 2e e7 82 | 2e e9 a2 2e eb c2 2e ed |.B..b...|........|
|000005b0| e2 2e ef 02 2f f1 22 2f | f3 42 2f f5 62 2f f7 82 |..../."/|.B/.b/..|
|000005c0| 2f f9 a2 2f fb c2 2f fd | e2 2f ff 02 30 01 23 30 |/../../.|./..0.#0|
|000005d0| 03 43 30 05 63 30 07 83 | 30 09 a3 30 0b c3 30 0d |.C0.c0..|0..0..0.|
|000005e0| e3 30 0f 03 31 11 23 31 | 13 43 31 15 63 31 17 83 |.0..1.#1|.C1.c1..|
|000005f0| 31 19 a3 31 1b c3 31 1d | e3 31 1f 03 32 21 23 32 |1..1..1.|.1..2!#2|
|00000600| 23 43 32 25 63 32 27 83 | 32 29 a3 32 2b c3 32 2d |#C2%c2'.|2).2+.2-|
|00000610| e3 32 2f 03 33 31 23 33 | 33 43 33 35 63 33 37 83 |.2/.31#3|3C35c37.|
|00000620| 33 39 a3 33 3b c3 33 3d | e3 33 3f 03 34 41 23 34 |39.3;.3=|.3?.4A#4|
|00000630| 43 43 34 45 63 34 47 83 | 34 49 a3 34 4b c3 34 ff |CC4Ec4G.|4I.4K.4.|
|00000640| ef 34 4f 03 35 51 23 35 | 53 43 35 55 63 35 57 83 |.4O.5Q#5|SC5Uc5W.|
|00000650| 35 59 a3 35 5b c3 35 5d | e3 35 5f 03 36 61 23 36 |5Y.5[.5]|.5_.6a#6|
|00000660| 63 43 36 65 63 36 67 83 | 36 69 a3 36 6b c3 36 6d |cC6ec6g.|6i.6k.6m|
|00000670| e3 36 6f 03 37 71 23 37 | 73 43 37 75 63 37 77 83 |.6o.7q#7|sC7uc7w.|
|00000680| 37 79 a3 37 7b c3 37 7d | e3 37 7f 03 38 81 23 38 |7y.7{.7}|.7..8.#8|
|00000690| 83 43 38 85 63 38 87 83 | 38 89 a3 38 8b c3 38 8d |.C8.c8..|8..8..8.|
|000006a0| e3 38 8f 03 39 91 23 39 | 93 43 39 95 63 39 97 83 |.8..9.#9|.C9.c9..|
|000006b0| 39 99 a3 39 9b c3 39 9d | e3 39 9f 03 3a a1 23 3a |9..9..9.|.9..:.#:|
|000006c0| a3 43 3a a5 63 3a a7 83 | 3a a9 a3 3a ab c3 3a ad |.C:.c:..|:..:..:.|
|000006d0| e3 3a af 03 3b b1 23 3b | b3 43 3b b5 63 3b b7 83 |.:..;.#;|.C;.c;..|
|000006e0| 3b b9 a3 3b bb c3 3b bd | e3 3b bf 03 3c c1 23 3c |;..;..;.|.;..<.#<|
|000006f0| c3 43 3c c5 63 3c c7 83 | 3c c9 a3 3c cb c3 3c cd |.C<.c<..|<..<..<.|
|00000700| e3 3c cf 03 3d d1 23 3d | d3 43 3d d5 63 3d d7 83 |.<..=.#=|.C=.c=..|
|00000710| 3d d9 a3 3d db c3 3d dd | e3 3d df 03 3e e1 23 3e |=..=..=.|.=..>.#>|
|00000720| e3 43 3e e5 63 3e e7 83 | 3e e9 a3 3e eb c3 3e ff |.C>.c>..|>..>..>.|
|00000730| ef 3e ff 0f 3f f1 23 3f | f3 43 3f f5 63 3f f7 83 |.>..?.#?|.C?.c?..|
|00000740| 3f f9 a3 3f fb c3 3f fd | e3 3f ff 03 40 01 24 40 |?..?..?.|.?..@.$@|
|00000750| 03 44 40 05 64 40 07 84 | 40 ff af 40 0b c4 40 0d |.D@.d@..|@..@..@.|
|00000760| e4 40 0f 04 41 11 24 41 | 13 f4 ff 15 64 41 17 84 |.@..A.$A|....dA..|
|00000770| 41 19 a4 41 1b c4 41 1d | e4 41 1f 04 42 21 24 42 |A..A..A.|.A..B!$B|
|00000780| 23 44 42 25 f4 ff 27 84 | 42 29 a4 42 ff cf 42 2d |#DB%..'.|B).B..B-|
|00000790| e4 42 2f 04 43 31 24 43 | 33 44 43 35 64 43 37 84 |.B/.C1$C|3DC5dC7.|
|000007a0| 43 39 f4 ff 3b c4 43 3d | e4 43 3f 04 44 41 24 44 |C9..;.C=|.C?.DA$D|
|000007b0| 43 44 44 ff 6f 44 47 84 | 44 49 a4 44 4b c4 44 4d |CDD.oDG.|DI.DK.DM|
|000007c0| e4 44 4f 04 45 fe ff 03 | 53 44 45 55 64 45 57 84 |.DO.E...|SDEUdEW.|
|000007d0| 45 ff af 45 5b c4 45 5d | e4 45 5f 04 46 61 24 46 |E..E[.E]|.E_.Fa$F|
|000007e0| 63 44 46 65 f4 ff 67 84 | 46 69 a4 46 6b f4 ff 6d |cDFe..g.|Fi.Fk..m|
|000007f0| e4 46 ff 0f 47 71 24 47 | 73 44 47 75 64 47 77 84 |.F..Gq$G|sDGudGw.|
|00000800| 47 79 a4 47 7b c4 47 7d | e4 47 7f 04 48 81 24 48 |Gy.G{.G}|.G..H.$H|
|00000810| 83 44 48 85 64 48 87 84 | 48 89 a4 48 8b c4 48 8d |.DH.dH..|H..H..H.|
|00000820| e4 48 8f 04 49 91 24 49 | 93 44 49 95 64 49 ff 8f |.H..I.$I|.DI.dI..|
|00000830| 49 99 a4 49 9b c4 49 9d | e4 49 9f 04 4a a1 24 4a |I..I..I.|.I..J.$J|
|00000840| a3 44 4a a5 64 4a a7 f4 | fe ff 04 ab c4 4a ad e4 |.DJ.dJ..|.....J..|
|00000850| 4a af 04 4b b1 24 4b b3 | 44 4b b5 64 4b b7 84 4b |J..K.$K.|DK.dK..K|
|00000860| b9 a4 4b bb c4 4b bd e4 | 4b bf 04 4c c1 24 4c c3 |..K..K..|K..L.$L.|
|00000870| 44 4c c5 64 4c c7 84 4c | c9 a4 4c cb c4 4c cd e4 |DL.dL..L|..L..L..|
|00000880| 4c cf f4 fe ff 05 4f 4d | d5 64 4d d7 84 4d d9 a4 |L.....OM|.dM..M..|
|00000890| 4d db c4 4d dd e4 4d df | 04 4e e1 24 4e e3 44 4e |M..M..M.|.N.$N.DN|
|000008a0| e5 64 4e e7 84 4e e9 a4 | 4e eb c4 4e ed e4 4e ef |.dN..N..|N..N..N.|
|000008b0| 04 4f f1 24 4f f3 44 4f | f5 64 4f f7 84 4f f9 a4 |.O.$O.DO|.dO..O..|
|000008c0| 4f fb c4 4f fd e4 4f ff | 04 50 01 25 50 03 45 50 |O..O..O.|.P.%P.EP|
|000008d0| 05 65 50 07 85 50 09 a5 | 50 0b c5 50 0d e5 50 0f |.eP..P..|P..P..P.|
|000008e0| 05 51 11 25 51 13 45 51 | 15 65 51 17 85 51 19 a5 |.Q.%Q.EQ|.eQ..Q..|
|000008f0| 51 1b c5 51 1d e5 51 1f | 05 52 21 25 52 23 45 52 |Q..Q..Q.|.R!%R#ER|
|00000900| 25 65 52 27 85 52 29 a5 | 52 2b c5 52 2d e5 52 2f |%eR'.R).|R+.R-.R/|
|00000910| 05 53 31 25 53 33 45 53 | 35 65 53 37 85 53 39 a5 |.S1%S3ES|5eS7.S9.|
|00000920| 53 3b c5 53 3d e5 53 3f | 05 54 41 25 54 43 45 54 |S;.S=.S?|.TA%TCET|
|00000930| 45 65 54 47 85 54 49 a5 | 54 4b c5 54 4d e5 54 4f |EeTG.TI.|TK.TM.TO|
|00000940| 05 55 51 25 55 53 45 55 | 55 65 55 57 85 55 59 a5 |.UQ%USEU|UeUW.UY.|
|00000950| 55 5b c5 55 5d e5 55 5f | 05 56 61 25 56 63 45 56 |U[.U].U_|.Va%VcEV|
|00000960| 65 65 56 67 85 56 69 a5 | 56 6b c5 56 6d e5 56 6f |eeVg.Vi.|Vk.Vm.Vo|
|00000970| 05 57 71 25 57 73 45 57 | 75 65 57 77 85 57 79 a5 |.Wq%WsEW|ueWw.Wy.|
|00000980| 57 7b c5 57 7d e5 57 7f | 05 58 81 25 58 83 45 58 |W{.W}.W.|.X.%X.EX|
|00000990| 85 65 58 87 85 58 89 a5 | 58 8b c5 58 8d e5 58 8f |.eX..X..|X..X..X.|
|000009a0| 05 59 91 25 59 93 45 59 | 95 65 59 97 85 59 99 a5 |.Y.%Y.EY|.eY..Y..|
|000009b0| 59 9b c5 59 9d e5 59 9f | 05 5a a1 25 5a a3 45 5a |Y..Y..Y.|.Z.%Z.EZ|
|000009c0| a5 65 5a a7 85 5a a9 a5 | 5a ab c5 5a ad e5 5a af |.eZ..Z..|Z..Z..Z.|
|000009d0| 05 5b b1 25 5b b3 45 5b | b5 65 5b b7 85 5b b9 a5 |.[.%[.E[|.e[..[..|
|000009e0| 5b bb c5 5b bd e5 5b bf | 05 5c c1 25 5c c3 45 5c |[..[..[.|.\.%\.E\|
|000009f0| c5 65 5c c7 85 5c c9 a5 | 5c cb c5 5c cd e5 5c cf |.e\..\..|\..\..\.|
|00000a00| 05 5d d1 f5 ff d3 45 5d | d5 65 5d d7 85 5d d9 a5 |.]....E]|.e]..]..|
|00000a10| 5d db c5 5d dd e5 5d df | 05 5e e1 25 5e e3 45 5e |]..]..].|.^.%^.E^|
|00000a20| e5 f5 ff e7 85 5e e9 f5 | ff eb c5 5e ed e5 5e ef |.....^..|...^..^.|
|00000a30| 05 5f f1 25 5f f3 45 5f | f5 65 5f ff 8f 5f f9 a5 |._.%_.E_|.e_.._..|
|00000a40| 5f ff cf 5f fd e5 5f ff | 05 60 01 26 60 ff 4f 60 |_.._.._.|.`.&`.O`|
|00000a50| 05 f6 ff 07 86 60 ff af | 60 0b c6 60 ff ef 60 0f |.....`..|`..`..`.|
|00000a60| 06 61 ff 2f 61 13 f6 ff | 15 66 61 17 86 61 19 a6 |.a./a...|.fa..a..|
|00000a70| 61 ff cf 61 1d f6 ff ff | 0f 62 21 f6 ff 23 46 62 |a..a....|.b!..#Fb|
|00000a80| 25 f6 ff 27 86 62 29 a6 | 62 2b c6 62 2d e6 62 2f |%..'.b).|b+.b-.b/|
|00000a90| 06 63 31 26 63 ff 4f 63 | 35 66 63 37 86 63 39 a6 |.c1&c.Oc|5fc7.c9.|
|00000aa0| 63 3b c6 63 3d e6 63 3f | 06 64 41 26 64 43 f6 ff |c;.c=.c?|.dA&dC..|
|00000ab0| ff 0f fe 00 ff fe 00 ff | fe 00 ff fe 00 ff fe 00 |........|........|
|00000ac0| 9c f9 fe ff 03 4f 00 05 | 60 00 07 80 00 09 a0 00 |.....O..|`.......|
|00000ad0| 0b c0 00 0d e0 00 0f 00 | 01 11 20 01 13 40 01 15 |........|.. ..@..|
|00000ae0| 60 01 17 80 01 19 a0 01 | fe ff 03 1d e0 01 1f 00 |`.......|........|
|00000af0| 02 21 20 02 23 40 02 25 | 60 02 27 80 02 ff af 02 |.! .#@.%|`.'.....|
|00000b00| 2b c0 02 2d e0 02 2f 00 | 03 31 20 03 33 40 03 35 |+..-../.|.1 .3@.5|
|00000b10| 60 03 ff 8f 03 39 a0 03 | 3b c0 03 3d e0 03 3f 00 |`....9..|;..=..?.|
|00000b20| 04 41 20 04 43 40 04 45 | 60 04 47 80 04 49 a0 04 |.A .C@.E|`.G..I..|
|00000b30| 4b c0 04 4d e0 04 4f 00 | 05 51 20 05 53 40 05 55 |K..M..O.|.Q .S@.U|
|00000b40| 60 05 57 80 05 59 a0 05 | 5b c0 05 5d e0 05 5f 00 |`.W..Y..|[..].._.|
|00000b50| 06 61 20 06 63 40 06 65 | 60 06 67 80 06 69 a0 06 |.a .c@.e|`.g..i..|
|00000b60| 6b c0 06 6d e0 06 6f 00 | 07 71 20 07 73 40 07 75 |k..m..o.|.q .s@.u|
|00000b70| 60 07 77 80 07 79 a0 07 | 7b c0 07 7d e0 07 7f 00 |`.w..y..|{..}....|
|00000b80| 08 81 20 08 83 40 08 85 | 60 08 87 80 08 89 a0 08 |.. ..@..|`.......|
|00000b90| 8b c0 08 8d e0 08 8f 00 | 09 91 20 09 93 40 09 95 |........|.. ..@..|
|00000ba0| 60 09 97 80 09 99 a0 09 | 9b c0 09 9d e0 09 9f 00 |`.......|........|
|00000bb0| 0a a1 20 0a a3 40 0a a5 | 60 0a a7 80 0a a9 a0 0a |.. ..@..|`.......|
|00000bc0| ab c0 0a ad e0 0a af 00 | 0b b1 20 0b b3 40 0b b5 |........|.. ..@..|
|00000bd0| 60 0b b7 80 0b b9 a0 0b | bb c0 0b bd e0 0b bf 00 |`.......|........|
|00000be0| 0c c1 20 0c c3 40 0c c5 | 60 0c c7 80 0c c9 a0 0c |.. ..@..|`.......|
|00000bf0| cb c0 0c cd e0 0c cf 00 | 0d d1 20 0d d3 40 0d d5 |........|.. ..@..|
|00000c00| 60 0d d7 80 0d d9 a0 0d | db c0 0d dd e0 0d df 00 |`.......|........|
|00000c10| 0e e1 20 0e e3 40 0e e5 | 60 0e e7 80 0e e9 a0 0e |.. ..@..|`.......|
|00000c20| eb c0 0e ed e0 0e ef 00 | 0f f1 20 0f f3 40 0f f5 |........|.. ..@..|
|00000c30| 60 0f f7 80 0f f9 a0 0f | fb c0 0f fd e0 0f ff 00 |`.......|........|
|00000c40| 10 01 21 10 03 41 10 05 | 61 10 07 81 10 09 a1 10 |..!..A..|a.......|
|00000c50| 0b c1 10 0d e1 10 0f 01 | 11 11 21 11 13 41 11 15 |........|..!..A..|
|00000c60| 61 11 17 81 11 19 a1 11 | 1b c1 11 1d e1 11 1f 01 |a.......|........|
|00000c70| 12 21 21 12 23 41 12 25 | 61 12 ff 8f 12 29 a1 12 |.!!.#A.%|a....)..|
|00000c80| 2b c1 12 2d e1 12 2f 01 | 13 ff 2f 13 33 41 13 35 |+..-../.|../.3A.5|
|00000c90| 61 13 37 f1 ff 39 a1 13 | 3b c1 13 ff ef 13 3f 01 |a.7..9..|;.....?.|
|00000ca0| 14 41 21 14 43 41 14 45 | 61 14 47 f1 ff 49 a1 14 |.A!.CA.E|a.G..I..|
|00000cb0| 4b c1 14 4d e1 14 4f 01 | 15 ff 2f 15 53 41 15 55 |K..M..O.|../.SA.U|
|00000cc0| 61 15 57 81 15 59 a1 15 | 5b c1 15 5d e1 15 ff 0f |a.W..Y..|[..]....|
|00000cd0| 16 61 21 16 63 41 16 65 | 61 16 ff 8f 16 69 a1 16 |.a!.cA.e|a....i..|
|00000ce0| 6b f1 ff 6d e1 16 6f 01 | 17 71 21 17 73 41 17 75 |k..m..o.|.q!.sA.u|
|00000cf0| 61 17 77 81 17 79 a1 17 | 7b c1 17 7d e1 17 7f 01 |a.w..y..|{..}....|
|00000d00| 18 81 21 18 83 41 18 85 | 61 18 87 81 18 89 a1 18 |..!..A..|a.......|
|00000d10| 8b c1 18 ff ef 18 8f 01 | 19 91 21 19 93 41 19 95 |........|..!..A..|
|00000d20| 61 19 97 81 19 99 a1 19 | ff cf 19 9d e1 19 9f f1 |a.......|........|
|00000d30| ff a1 21 1a ff 4f 1a a5 | 61 1a a7 81 1a a9 a1 1a |..!..O..|a.......|
|00000d40| ab c1 1a ad f1 ff af f1 | ff ff 2f 1b b3 41 1b b5 |........|../..A..|
|00000d50| 61 1b b7 f1 ff b9 a1 1b | bb c1 1b bd e1 1b bf f1 |a.......|........|
|00000d60| ff c1 21 1c c3 41 1c c5 | 61 1c c7 81 1c c9 a1 1c |..!..A..|a.......|
|00000d70| cb c1 1c cd f1 ff cf 01 | 1d d1 21 1d d3 41 1d d5 |........|..!..A..|
|00000d80| 61 1d d7 81 1d d9 a1 1d | db f1 ff dd e1 1d df 01 |a.......|........|
|00000d90| 1e e1 21 1e e3 41 1e ff | 6f 1e e7 81 1e e9 f1 ff |..!..A..|o.......|
|00000da0| eb c1 1e ed e1 1e ef 01 | 1f f1 21 1f f3 41 1f ff |........|..!..A..|
|00000db0| 6f 1f f7 81 1f f9 a1 1f | fb c1 1f fd e1 1f ff f1 |o.......|........|
|00000dc0| ff 01 22 20 03 42 20 ff | 6f 20 07 82 20 ff af 20 |.." .B .|o .. .. |
|00000dd0| 0b c2 20 0d f2 ff 0f 02 | 21 11 22 21 13 42 21 15 |.. .....|!."!.B!.|
|00000de0| 62 21 17 82 21 ff af 21 | 1b c2 21 1d e2 21 1f 02 |b!..!..!|..!..!..|
|00000df0| 22 21 22 22 23 42 22 25 | 62 22 27 f2 ff 29 a2 22 |"!""#B"%|b"'..)."|
|00000e00| 2b c2 22 2d e2 22 2f 02 | 23 31 22 23 33 42 23 35 |+."-."/.|#1"#3B#5|
|00000e10| 62 23 ff 8f 23 39 a2 23 | 3b c2 23 3d e2 23 3f f2 |b#..#9.#|;.#=.#?.|
|00000e20| ff 41 22 24 43 42 24 ff | 6f 24 47 82 24 49 a2 24 |.A"$CB$.|o$G.$I.$|
|00000e30| 4b c2 24 4d e2 24 4f 02 | 25 51 22 25 53 42 25 55 |K.$M.$O.|%Q"%SB%U|
|00000e40| 62 25 57 82 25 59 a2 25 | 5b c2 25 5d e2 25 5f 02 |b%W.%Y.%|[.%].%_.|
|00000e50| 26 ff 2f 26 63 42 26 65 | 62 26 67 82 26 69 a2 26 |&./&cB&e|b&g.&i.&|
|00000e60| 6b c2 26 6d e2 26 6f 02 | 27 71 22 27 73 42 27 75 |k.&m.&o.|'q"'sB'u|
|00000e70| 62 27 77 82 27 79 a2 27 | 7b c2 27 ff ef 27 7f 02 |b'w.'y.'|{.'..'..|
|00000e80| 28 81 22 28 83 42 28 85 | 62 28 87 f2 fe ff 04 8b |(."(.B(.|b(......|
|00000e90| c2 28 8d e2 28 8f 02 29 | 91 22 29 93 42 29 95 62 |.(..(..)|.").B).b|
|00000ea0| 29 97 82 29 99 a2 29 9b | c2 29 9d e2 29 9f 02 2a |)..)..).|.)..)..*|
|00000eb0| a1 22 2a a3 42 2a a5 62 | 2a a7 82 2a a9 a2 2a ab |."*.B*.b|*..*..*.|
|00000ec0| c2 2a ad e2 2a af 02 2b | b1 22 2b b3 42 2b b5 62 |.*..*..+|."+.B+.b|
|00000ed0| 2b b7 82 2b b9 a2 2b bb | c2 2b bd e2 2b bf 02 2c |+..+..+.|.+..+..,|
|00000ee0| c1 22 2c c3 42 2c c5 62 | 2c c7 82 2c c9 a2 2c cb |.",.B,.b|,..,..,.|
|00000ef0| c2 2c cd e2 2c cf 02 2d | d1 22 2d d3 42 2d d5 62 |.,..,..-|."-.B-.b|
|00000f00| 2d d7 82 2d d9 a2 2d db | c2 2d dd e2 2d df 02 2e |-..-..-.|.-..-...|
|00000f10| e1 22 2e e3 42 2e e5 62 | 2e e7 82 2e e9 a2 2e eb |."..B..b|........|
|00000f20| c2 2e ed e2 2e ef 02 2f | f1 22 2f f3 42 2f f5 62 |......./|."/.B/.b|
|00000f30| 2f f7 82 2f f9 a2 2f fb | c2 2f fd e2 2f ff 02 30 |/../../.|./../..0|
|00000f40| 01 23 30 03 43 30 05 63 | 30 07 83 30 09 a3 30 0b |.#0.C0.c|0..0..0.|
|00000f50| c3 30 0d e3 30 0f 03 31 | 11 23 31 13 43 31 15 63 |.0..0..1|.#1.C1.c|
|00000f60| 31 17 83 31 19 a3 31 1b | c3 31 1d e3 31 1f 03 32 |1..1..1.|.1..1..2|
|00000f70| 21 23 32 23 43 32 25 63 | 32 27 83 32 29 a3 32 2b |!#2#C2%c|2'.2).2+|
|00000f80| c3 32 2d e3 32 2f 03 33 | 31 23 33 33 43 33 35 63 |.2-.2/.3|1#33C35c|
|00000f90| 33 37 83 33 39 a3 33 3b | c3 33 3d e3 33 3f 03 34 |37.39.3;|.3=.3?.4|
|00000fa0| 41 23 34 43 43 34 45 63 | 34 47 83 34 49 a3 34 4b |A#4CC4Ec|4G.4I.4K|
|00000fb0| c3 34 ff ef 34 4f 03 35 | 51 23 35 53 43 35 55 63 |.4..4O.5|Q#5SC5Uc|
|00000fc0| 35 57 83 35 59 a3 35 5b | c3 35 5d e3 35 5f 03 36 |5W.5Y.5[|.5].5_.6|
|00000fd0| 61 23 36 63 43 36 65 63 | 36 67 83 36 69 a3 36 6b |a#6cC6ec|6g.6i.6k|
|00000fe0| c3 36 6d e3 36 6f 03 37 | 71 23 37 73 43 37 75 63 |.6m.6o.7|q#7sC7uc|
|00000ff0| 37 77 83 37 79 a3 37 7b | c3 37 7d e3 37 7f 03 38 |7w.7y.7{|.7}.7..8|
|00001000| 81 23 38 83 43 38 85 63 | 38 87 83 38 89 a3 38 8b |.#8.C8.c|8..8..8.|
|00001010| c3 38 8d e3 38 8f 03 39 | 91 23 39 93 43 39 95 63 |.8..8..9|.#9.C9.c|
|00001020| 39 97 83 39 99 a3 39 9b | c3 39 9d e3 39 9f 03 3a |9..9..9.|.9..9..:|
|00001030| a1 23 3a a3 43 3a a5 63 | 3a a7 83 3a a9 a3 3a ab |.#:.C:.c|:..:..:.|
|00001040| c3 3a ad e3 3a af 03 3b | b1 23 3b b3 43 3b b5 63 |.:..:..;|.#;.C;.c|
|00001050| 3b b7 83 3b b9 a3 3b bb | c3 3b bd e3 3b bf 03 3c |;..;..;.|.;..;..<|
|00001060| c1 23 3c c3 43 3c c5 63 | 3c c7 83 3c c9 a3 3c cb |.#<.C<.c|<..<..<.|
|00001070| c3 3c cd e3 3c cf 03 3d | d1 23 3d d3 43 3d d5 63 |.<..<..=|.#=.C=.c|
|00001080| 3d d7 83 3d d9 a3 3d db | c3 3d dd e3 3d df 03 3e |=..=..=.|.=..=..>|
|00001090| e1 23 3e e3 43 3e e5 63 | 3e e7 83 3e e9 a3 3e eb |.#>.C>.c|>..>..>.|
|000010a0| c3 3e ff ef 3e ff 0f 3f | f1 23 3f f3 43 3f f5 63 |.>..>..?|.#?.C?.c|
|000010b0| 3f f7 83 3f f9 a3 3f fb | c3 3f fd e3 3f ff 03 40 |?..?..?.|.?..?..@|
|000010c0| 01 24 40 03 44 40 05 64 | 40 07 84 40 ff af 40 0b |.$@.D@.d|@..@..@.|
|000010d0| c4 40 0d e4 40 0f 04 41 | 11 24 41 13 f4 ff 15 64 |.@..@..A|.$A....d|
|000010e0| 41 17 84 41 19 a4 41 1b | c4 41 1d e4 41 1f 04 42 |A..A..A.|.A..A..B|
|000010f0| 21 24 42 23 44 42 25 f4 | ff 27 84 42 29 a4 42 ff |!$B#DB%.|.'.B).B.|
|00001100| cf 42 2d e4 42 2f 04 43 | 31 24 43 33 44 43 35 64 |.B-.B/.C|1$C3DC5d|
|00001110| 43 37 84 43 39 f4 ff 3b | c4 43 3d e4 43 3f 04 44 |C7.C9..;|.C=.C?.D|
|00001120| 41 24 44 43 44 44 ff 6f | 44 47 84 44 49 a4 44 4b |A$DCDD.o|DG.DI.DK|
|00001130| c4 44 4d e4 44 4f 04 45 | fe ff 03 53 44 45 55 64 |.DM.DO.E|...SDEUd|
|00001140| 45 57 84 45 ff af 45 5b | c4 45 5d e4 45 5f 04 46 |EW.E..E[|.E].E_.F|
|00001150| 61 24 46 63 44 46 65 f4 | ff 67 84 46 69 a4 46 6b |a$FcDFe.|.g.Fi.Fk|
|00001160| f4 ff 6d e4 46 ff 0f 47 | 71 24 47 73 44 47 75 64 |..m.F..G|q$GsDGud|
|00001170| 47 77 84 47 79 a4 47 7b | c4 47 7d e4 47 7f 04 48 |Gw.Gy.G{|.G}.G..H|
|00001180| 81 24 48 83 44 48 85 64 | 48 87 84 48 89 a4 48 8b |.$H.DH.d|H..H..H.|
|00001190| c4 48 8d e4 48 8f 04 49 | 91 24 49 93 44 49 95 64 |.H..H..I|.$I.DI.d|
|000011a0| 49 ff 8f 49 99 a4 49 9b | c4 49 9d e4 49 9f 04 4a |I..I..I.|.I..I..J|
|000011b0| a1 24 4a a3 44 4a a5 64 | 4a a7 f4 fe ff 04 ab c4 |.$J.DJ.d|J.......|
|000011c0| 4a ad e4 4a af 04 4b b1 | 24 4b b3 44 4b b5 64 4b |J..J..K.|$K.DK.dK|
|000011d0| b7 84 4b b9 a4 4b bb c4 | 4b bd e4 4b bf 04 4c c1 |..K..K..|K..K..L.|
|000011e0| 24 4c c3 44 4c c5 64 4c | c7 84 4c c9 a4 4c cb c4 |$L.DL.dL|..L..L..|
|000011f0| 4c cd e4 4c cf f4 fe ff | 05 4f 4d d5 64 4d d7 84 |L..L....|.OM.dM..|
|00001200| 4d d9 a4 4d db c4 4d dd | e4 4d df 04 4e e1 24 4e |M..M..M.|.M..N.$N|
|00001210| e3 44 4e e5 64 4e e7 84 | 4e e9 a4 4e eb c4 4e ed |.DN.dN..|N..N..N.|
|00001220| e4 4e ef 04 4f f1 24 4f | f3 44 4f f5 64 4f f7 84 |.N..O.$O|.DO.dO..|
|00001230| 4f f9 a4 4f fb c4 4f fd | e4 4f ff 04 50 01 25 50 |O..O..O.|.O..P.%P|
|00001240| 03 45 50 05 65 50 07 85 | 50 09 a5 50 0b c5 50 0d |.EP.eP..|P..P..P.|
|00001250| e5 50 0f 05 51 11 25 51 | 13 45 51 15 65 51 17 85 |.P..Q.%Q|.EQ.eQ..|
|00001260| 51 19 a5 51 1b c5 51 1d | e5 51 1f 05 52 21 25 52 |Q..Q..Q.|.Q..R!%R|
|00001270| 23 45 52 25 65 52 27 85 | 52 29 a5 52 2b c5 52 2d |#ER%eR'.|R).R+.R-|
|00001280| e5 52 2f 05 53 31 25 53 | 33 45 53 35 65 53 37 85 |.R/.S1%S|3ES5eS7.|
|00001290| 53 39 a5 53 3b c5 53 3d | e5 53 3f 05 54 41 25 54 |S9.S;.S=|.S?.TA%T|
|000012a0| 43 45 54 45 65 54 47 85 | 54 49 a5 54 4b c5 54 4d |CETEeTG.|TI.TK.TM|
|000012b0| e5 54 4f 05 55 51 25 55 | 53 45 55 55 65 55 57 85 |.TO.UQ%U|SEUUeUW.|
|000012c0| 55 59 a5 55 5b c5 55 5d | e5 55 5f 05 56 61 25 56 |UY.U[.U]|.U_.Va%V|
|000012d0| 63 45 56 65 65 56 67 85 | 56 69 a5 56 6b c5 56 6d |cEVeeVg.|Vi.Vk.Vm|
|000012e0| e5 56 6f 05 57 71 25 57 | 73 45 57 75 65 57 77 85 |.Vo.Wq%W|sEWueWw.|
|000012f0| 57 79 a5 57 7b c5 57 7d | e5 57 7f 05 58 81 25 58 |Wy.W{.W}|.W..X.%X|
|00001300| 83 45 58 85 65 58 87 85 | 58 89 a5 58 8b c5 58 8d |.EX.eX..|X..X..X.|
|00001310| e5 58 8f 05 59 91 25 59 | 93 45 59 95 65 59 97 85 |.X..Y.%Y|.EY.eY..|
|00001320| 59 99 a5 59 9b c5 59 9d | e5 59 9f 05 5a a1 25 5a |Y..Y..Y.|.Y..Z.%Z|
|00001330| a3 45 5a a5 65 5a a7 85 | 5a a9 a5 5a ab c5 5a ad |.EZ.eZ..|Z..Z..Z.|
|00001340| e5 5a af 05 5b b1 25 5b | b3 45 5b b5 65 5b b7 85 |.Z..[.%[|.E[.e[..|
|00001350| 5b b9 a5 5b bb c5 5b bd | e5 5b bf 05 5c c1 25 5c |[..[..[.|.[..\.%\|
|00001360| c3 45 5c c5 65 5c c7 85 | 5c c9 a5 5c cb c5 5c cd |.E\.e\..|\..\..\.|
|00001370| e5 5c cf 05 5d d1 f5 ff | d3 45 5d d5 65 5d d7 85 |.\..]...|.E].e]..|
|00001380| 5d d9 a5 5d db c5 5d dd | e5 5d df 05 5e e1 25 5e |]..]..].|.]..^.%^|
|00001390| e3 45 5e e5 f5 ff e7 85 | 5e e9 f5 ff eb c5 5e ed |.E^.....|^.....^.|
|000013a0| e5 5e ef 05 5f f1 25 5f | f3 45 5f f5 65 5f ff 8f |.^.._.%_|.E_.e_..|
|000013b0| 5f f9 a5 5f ff cf 5f fd | e5 5f ff 05 60 01 26 60 |_.._.._.|._..`.&`|
|000013c0| ff 4f 60 05 f6 ff 07 86 | 60 ff af 60 0b c6 60 ff |.O`.....|`..`..`.|
|000013d0| ef 60 0f 06 61 ff 2f 61 | 13 f6 ff 15 66 61 17 86 |.`..a./a|....fa..|
|000013e0| 61 19 a6 61 ff cf 61 1d | f6 ff ff 0f 62 21 f6 ff |a..a..a.|....b!..|
|000013f0| 23 46 62 25 f6 ff 27 86 | 62 29 a6 62 2b c6 62 2d |#Fb%..'.|b).b+.b-|
|00001400| e6 62 2f 06 63 31 26 63 | ff 4f 63 35 66 63 37 86 |.b/.c1&c|.Oc5fc7.|
|00001410| 63 39 a6 63 3b c6 63 3d | e6 63 3f 06 64 41 26 64 |c9.c;.c=|.c?.dA&d|
|00001420| 43 f6 ff ff 0f fe 00 ff | fe 00 ff fe 00 ff fe 00 |C.......|........|
|00001430| ff fe 00 9c db 0b ff 41 | 43 54 ff 20 09 ff 00 0a |.......A|CT. ....|
|00001440| b1 7a 52 11 02 00 c0 01 | 00 00 42 4c 4f 43 4b ff |.zR.....|..BLOCK.|
|00001450| 20 03 43 44 4c 20 ff 00 | 0a d0 79 24 12 03 00 af | .CDL ..|..y$....|
|00001460| 2e 00 00 43 4b 53 ff 20 | 05 42 41 54 20 ff 00 0a |...CKS. |.BAT ...|
|00001470| c2 79 24 12 1b 00 79 ff | 00 03 43 4f 4c 4f 52 ff |.y$...y.|..COLOR.|
|00001480| 20 03 43 44 4c 20 ff 00 | 0a c4 79 24 12 1c 00 aa | .CDL ..|..y$....|
|00001490| 18 00 00 43 4f 4e 45 ff | 20 04 43 44 4c 20 ff 00 |...CONE.| .CDL ..|
|000014a0| 0a d1 79 24 12 29 00 1d | 1a 00 00 43 53 ff 20 06 |..y$.)..|...CS. .|
|000014b0| 45 58 45 20 ff 00 0a e9 | 74 24 12 37 00 30 df 01 |EXE ....|t$.7.0..|
|000014c0| 00 43 53 31 ff 20 05 4f | 56 4c 20 ff 00 0a d3 74 |.CS1. .O|VL ....t|
|000014d0| 24 12 27 01 40 12 00 00 | 43 53 31 30 ff 20 04 4f |$.'.@...|CS10. .O|
|000014e0| 56 4c 20 ff 00 0a d1 74 | 24 12 31 01 70 0d 00 00 |VL ....t|$.1.p...|
|000014f0| 43 53 31 31 ff 20 04 4f | 56 4c 20 ff 00 0a d3 74 |CS11. .O|VL ....t|
|00001500| 24 12 38 01 90 08 00 00 | 43 53 31 32 ff 20 04 4f |$.8.....|CS12. .O|
|00001510| 56 4c 20 ff 00 0a d4 74 | 24 12 3d 01 50 14 00 00 |VL ....t|$.=.P...|
|00001520| 43 53 32 ff 20 05 4f 56 | 4c 20 ff 00 0a d4 74 24 |CS2. .OV|L ....t$|
|00001530| 12 48 01 b0 10 00 00 43 | 53 33 ff 20 05 4f 56 4c |.H.....C|S3. .OVL|
|00001540| 20 ff 00 0a b0 74 24 12 | 51 01 f0 1b 00 00 43 53 | ....t$.|Q.....CS|
|00001550| 33 31 ff 20 04 4f 56 4c | 20 ff 00 0a b1 74 24 12 |31. .OVL| ....t$.|
|00001560| 5f 01 e0 0f 00 00 43 53 | 33 32 ff 20 04 4f 56 4c |_.....CS|32. .OVL|
|00001570| 20 ff 00 0a b2 74 24 12 | 67 01 a0 08 00 00 43 53 | ....t$.|g.....CS|
|00001580| 33 33 ff 20 04 4f 56 4c | 20 ff 00 0a e0 74 24 12 |33. .OVL| ....t$.|
|00001590| 6c 01 e0 40 00 00 43 53 | 34 ff 20 05 4f 56 4c 20 |l..@..CS|4. .OVL |
|000015a0| ff 00 0a d9 74 24 12 8d | 01 e0 1b 00 00 43 53 34 |....t$..|.....CS4|
|000015b0| 30 ff 20 04 4f 56 4c 20 | ff 00 0a b3 74 24 12 9b |0. .OVL |....t$..|
|000015c0| 01 10 08 00 00 43 53 34 | 31 ff 20 04 4f 56 4c 20 |.....CS4|1. .OVL |
|000015d0| ff 00 0a b3 74 24 12 a0 | 01 c0 05 00 00 43 53 34 |....t$..|.....CS4|
|000015e0| 32 ff 20 04 4f 56 4c 20 | ff 00 0a d6 74 24 12 a3 |2. .OVL |....t$..|
|000015f0| 01 b0 14 00 00 43 53 34 | 33 ff 20 04 4f 56 4c 20 |.....CS4|3. .OVL |
|00001600| ff 00 0a b4 74 24 12 ae | 01 70 02 00 00 43 53 34 |....t$..|.p...CS4|
|00001610| 34 ff 20 04 4f 56 4c 20 | ff 00 0a b5 74 24 12 b0 |4. .OVL |....t$..|
|00001620| 01 30 01 00 00 43 53 34 | 35 ff 20 04 4f 56 4c 20 |.0...CS4|5. .OVL |
|00001630| ff 00 0a d7 74 24 12 b1 | 01 10 0d 00 00 43 53 34 |....t$..|.....CS4|
|00001640| 36 ff 20 04 4f 56 4c 20 | ff 00 0a b7 74 24 12 b8 |6. .OVL |....t$..|
|00001650| 01 c0 0e 00 00 43 53 34 | 37 ff 20 04 4f 56 4c 20 |.....CS4|7. .OVL |
|00001660| ff 00 0a b9 74 24 12 c0 | 01 00 1c 00 00 43 53 34 |....t$..|.....CS4|
|00001670| 38 ff 20 04 4f 56 4c 20 | ff 00 0a ba 74 24 12 ce |8. .OVL |....t$..|
|00001680| 01 b0 1b 00 00 43 53 34 | 39 ff 20 04 4f 56 4c 20 |.....CS4|9. .OVL |
|00001690| ff 00 0a bc 74 24 12 dc | 01 20 11 00 00 43 53 35 |....t$..|. ...CS5|
|000016a0| ff 20 05 4f 56 4c 20 ff | 00 0a bc 74 24 12 e5 01 |. .OVL .|...t$...|
|000016b0| 40 08 00 00 43 53 35 32 | ff 20 04 4f 56 4c 20 ff |@...CS52|. .OVL .|
|000016c0| 00 0a bd 74 24 12 ea 01 | b0 15 00 00 43 53 35 32 |...t$...|....CS52|
|000016d0| 31 ff 20 03 4f 56 4c 20 | ff 00 0a c1 74 24 12 f5 |1. .OVL |....t$..|
|000016e0| 01 b0 14 00 00 43 53 35 | 32 32 ff 20 03 4f 56 4c |.....CS5|22. .OVL|
|000016f0| 20 ff 00 0a c1 74 24 12 | 00 02 60 08 00 00 43 53 | ....t$.|..`...CS|
|00001700| 35 33 ff 20 04 4f 56 4c | 20 ff 00 0a c2 74 24 12 |53. .OVL| ....t$.|
|00001710| 05 02 60 06 00 00 43 53 | 35 34 ff 20 04 4f 56 4c |..`...CS|54. .OVL|
|00001720| 20 ff 00 0a c3 74 24 12 | 09 02 f0 09 00 00 43 53 | ....t$.|......CS|
|00001730| 36 ff 20 05 4f 56 4c 20 | ff 00 0a d8 74 24 12 0e |6. .OVL |....t$..|
|00001740| 02 c0 14 00 00 43 53 36 | 31 ff 20 04 4f 56 4c 20 |.....CS6|1. .OVL |
|00001750| ff 00 0a c8 74 24 12 19 | 02 70 1c 00 00 43 53 36 |....t$..|.p...CS6|
|00001760| 32 ff 20 04 4f 56 4c 20 | ff 00 0a ca 74 24 12 28 |2. .OVL |....t$.(|
|00001770| 02 90 1d 00 00 43 53 36 | 33 ff 20 04 4f 56 4c 20 |.....CS6|3. .OVL |
|00001780| ff 00 0a d8 74 24 12 37 | 02 d0 11 00 00 43 53 36 |....t$.7|.....CS6|
|00001790| 35 ff 20 04 4f 56 4c 20 | ff 00 0a cb 74 24 12 40 |5. .OVL |....t$.@|
|000017a0| 02 00 09 00 00 43 53 38 | ff 20 05 4f 56 4c 20 ff |.....CS8|. .OVL .|
|000017b0| 00 0a d9 74 24 12 45 02 | e0 36 00 00 43 53 38 31 |...t$.E.|.6..CS81|
|000017c0| ff 20 04 4f 56 4c 20 ff | 00 0a e4 74 24 12 61 02 |. .OVL .|...t$.a.|
|000017d0| a0 37 00 00 43 53 38 32 | ff 20 04 4f 56 4c 20 ff |.7..CS82|. .OVL .|
|000017e0| 00 0a d0 74 24 12 7d 02 | 70 15 00 00 43 53 43 4f |...t$.}.|p...CSCO|
|000017f0| 4e 46 49 47 44 41 54 20 | ff 00 0a b2 7a 52 11 88 |NFIGDAT |....zR..|
|00001800| 02 8d 01 00 00 43 53 44 | 45 4d 4f 20 20 42 41 54 |.....CSD|EMO  BAT|
|00001810| 20 ff 00 0a c3 79 24 12 | 89 02 4d ff 00 03 43 53 | ....y$.|..M...CS|
|00001820| 44 45 4d 4f 31 20 43 44 | 4c 20 ff 00 0a 8b 80 9d |DEMO1 CD|L ......|
|00001830| 11 8a 02 a3 85 01 00 43 | 53 44 45 4d 4f 32 20 43 |.......C|SDEMO2 C|
|00001840| 44 4c 20 ff 00 0a 8c 80 | 9d 11 4d 03 df 3f 01 00 |DL .....|..M..?..|
|00001850| 43 53 4d 45 4e 55 53 20 | 54 58 54 20 ff 00 0a 44 |CSMENUS |TXT ...D|
|00001860| 57 61 11 ed 03 fe 02 00 | 00 43 53 50 4d 50 54 53 |Wa......|.CSPMPTS|
|00001870| 20 54 58 54 20 ff 00 0a | 44 57 61 11 ef 03 27 32 | TXT ...|DWa...'2|
|00001880| 00 00 43 53 58 31 ff 20 | 04 43 44 4c 20 ff 00 0a |..CSX1. |.CDL ...|
|00001890| cc 79 24 12 09 04 4c 15 | 00 00 43 53 58 31 ff 20 |.y$...L.|..CSX1. |
|000018a0| 04 50 52 54 20 ff 00 0a | 45 73 7e 11 14 04 26 22 |.PRT ...|Es~...&"|
|000018b0| 00 00 43 53 58 32 ff 20 | 04 43 44 4c 20 ff 00 0a |..CSX2. |.CDL ...|
|000018c0| cd 79 24 12 26 04 ac 09 | 00 00 43 53 58 32 ff 20 |.y$.&...|..CSX2. |
|000018d0| 04 50 52 54 20 ff 00 0a | 48 73 7e 11 2b 04 ce 1c |.PRT ...|Hs~.+...|
|000018e0| 00 00 43 53 58 33 ff 20 | 04 43 44 4c 20 ff 00 0a |..CSX3. |.CDL ...|
|000018f0| ce 79 24 12 3a 04 8a 14 | 00 00 43 59 4c 49 4e 44 |.y$.:...|..CYLIND|
|00001900| 45 52 43 44 4c 20 ff 00 | 0a d3 79 24 12 45 04 bd |ERCDL ..|..y$.E..|
|00001910| 17 00 00 45 58 49 54 ff | 20 04 54 58 54 20 ff 00 |...EXIT.| .TXT ..|
|00001920| 0a 43 57 61 11 51 04 14 | ff 00 03 47 45 52 52 ff |.CWa.Q..|...GERR.|
|00001930| 20 04 43 44 4c 20 ff 00 | 0a c5 79 24 12 52 04 3a | .CDL ..|..y$.R.:|
|00001940| 0c 00 00 47 52 4f 55 50 | 53 20 20 43 44 4c 20 ff |...GROUP|S  CDL .|
|00001950| 00 0a c7 79 24 12 59 04 | 3b 19 00 00 49 4e 50 4d |...y$.Y.|;...INPM|
|00001960| 50 54 53 20 54 58 54 20 | ff 00 0a ee 7b 9e 11 66 |PTS TXT |....{..f|
|00001970| 04 80 0b 00 00 49 4e 53 | 54 41 4c 4c 20 44 41 54 |.....INS|TALL DAT|
|00001980| 20 ff 00 0a db 7a 24 12 | 6c 04 29 05 00 00 49 4e | ....z$.|l.)...IN|
|00001990| 53 54 41 4c 4c 20 45 58 | 45 20 ff 00 0a 15 55 51 |STALL EX|E ....UQ|
|000019a0| 11 6f 04 76 4f 00 00 4c | 49 47 48 54 ff 20 03 43 |.o.vO..L|IGHT. .C|
|000019b0| 44 4c 20 ff 00 0a c8 79 | 24 12 97 04 90 20 00 00 |DL ....y|$.... ..|
|000019c0| 4c 4f 4f 4b ff 20 04 54 | 58 54 20 ff 00 0a 43 57 |LOOK. .T|XT ...CW|
|000019d0| 61 11 a8 04 1e ff 00 03 | 4d 41 54 54 45 52 20 20 |a.......|MATTER  |
|000019e0| 44 41 54 20 ff 00 0a b2 | 7a 52 11 a9 04 31 01 00 |DAT ....|zR...1..|
|000019f0| 00 50 56 ff 20 06 43 44 | 4c 20 ff 00 0a ca 79 24 |.PV. .CD|L ....y$|
|00001a00| 12 aa 04 52 4a 00 00 52 | 45 41 44 ff 20 04 4d 45 |...RJ..R|EAD. .ME|
|00001a10| 20 20 ff 00 0a b1 7a 52 | 11 d0 04 0f ff 00 03 52 |  ....zR|.......R|
|00001a20| 55 4e 50 56 ff 20 03 54 | 58 54 20 ff 00 0a 42 57 |UNPV. .T|XT ...BW|
|00001a30| 61 11 d1 04 23 ff 00 03 | 53 41 56 45 49 54 20 20 |a...#...|SAVEIT  |
|00001a40| 54 58 54 20 ff 00 0a 43 | 57 61 11 d2 04 3e ff 00 |TXT ...C|Wa...>..|
|00001a50| 03 53 48 41 44 45 ff 20 | 03 45 58 45 20 ff 00 0a |.SHADE. |.EXE ...|
|00001a60| b7 75 24 12 d3 04 b0 fc | 01 00 53 48 41 44 45 31 |.u$.....|..SHADE1|
|00001a70| 20 20 4f 56 4c 20 ff 00 | 0a a9 75 24 12 d2 05 30 |  OVL ..|..u$...0|
|00001a80| 26 00 00 53 48 41 44 45 | 31 30 20 4f 56 4c 20 ff |&..SHADE|10 OVL .|
|00001a90| 00 0a ae 75 24 12 e6 05 | e0 06 00 00 53 48 41 44 |...u$...|....SHAD|
|00001aa0| 45 32 20 20 4f 56 4c 20 | ff 00 0a ab 75 24 12 ea |E2  OVL |....u$..|
|00001ab0| 05 40 19 00 00 53 48 41 | 44 45 32 31 20 4f 56 4c |.@...SHA|DE21 OVL|
|00001ac0| 20 ff 00 0a ab 75 24 12 | f7 05 30 06 00 00 53 48 | ....u$.|..0...SH|
|00001ad0| 41 44 45 32 32 20 4f 56 | 4c 20 ff 00 0a ac 75 24 |ADE22 OV|L ....u$|
|00001ae0| 12 fb 05 70 0e 00 00 53 | 48 41 44 45 32 33 20 4f |...p...S|HADE23 O|
|00001af0| 56 4c 20 ff 00 0a ac 75 | 24 12 03 06 20 05 00 00 |VL ....u|$... ...|
|00001b00| 53 48 41 44 45 32 34 20 | 4f 56 4c 20 ff 00 0a ac |SHADE24 |OVL ....|
|00001b10| 75 24 12 06 06 80 04 00 | 00 53 48 41 44 45 32 35 |u$......|.SHADE25|
|00001b20| 20 4f 56 4c 20 ff 00 0a | ac 75 24 12 09 06 00 08 | OVL ...|.u$.....|
|00001b30| 00 00 53 48 41 44 45 32 | 36 20 4f 56 4c 20 ff 00 |..SHADE2|6 OVL ..|
|00001b40| 0a ac 75 24 12 0d 06 10 | 07 00 00 53 48 41 44 45 |..u$....|...SHADE|
|00001b50| 32 37 20 4f 56 4c 20 ff | 00 0a ad 75 24 12 11 06 |27 OVL .|...u$...|
|00001b60| 00 06 00 00 53 48 41 44 | 45 32 38 20 4f 56 4c 20 |....SHAD|E28 OVL |
|00001b70| ff 00 0a ad 75 24 12 14 | 06 20 0c 00 00 53 48 50 |....u$..|. ...SHP|
|00001b80| 4d 50 54 53 20 54 58 54 | 20 ff 00 0a 2b 85 9c 11 |MPTS TXT| ...+...|
|00001b90| 1b 06 30 05 00 00 53 4f | 4c 49 44 ff 20 03 54 58 |..0...SO|LID. .TX|
|00001ba0| 54 20 ff 00 0a 43 57 61 | 11 1e 06 20 ff 00 03 53 |T ...CWa|... ...S|
|00001bb0| 50 ff 20 06 43 44 4c 20 | ff 00 0a d4 79 24 12 1f |P. .CDL |....y$..|
|00001bc0| 06 ce 04 00 00 53 50 48 | 45 52 45 20 20 43 44 4c |.....SPH|ERE  CDL|
|00001bd0| 20 ff 00 0a d5 79 24 12 | 22 06 d0 07 00 00 54 4f | ....y$.|".....TO|
|00001be0| 52 55 53 ff 20 03 43 44 | 4c 20 ff 00 0a d6 79 24 |RUS. .CD|L ....y$|
|00001bf0| 12 26 06 41 18 00 00 57 | 45 44 47 45 ff 20 03 43 |.&.A...W|EDGE. .C|
|00001c00| 44 4c 20 ff 00 0a d7 79 | 24 12 33 06 fd 21 00 00 |DL ....y|$.3..!..|
|00001c10| 58 50 56 ff 20 05 54 58 | 54 20 ff 00 0a 42 57 61 |XPV. .TX|T ...BWa|
|00001c20| 11 44 06 2d ff 00 04 ff | f6 1f 00 ff f6 1f 00 ff |.D.-....|........|
|00001c30| f6 1f 00 ff f6 1f 00 ff | f6 1f 00 ff f6 1f 00 ff |........|........|
|00001c40| f6 1f 00 ff f6 1f 00 ff | f6 1f 00 ff f6 1f 00 ff |........|........|
|00001c50| f6 1f 00 ff f6 1f 00 ff | f6 1f 00 ff f6 1f 00 ff |........|........|
|00001c60| f6 1f 00 ff f6 1f 00 ff | f6 1f 00 ff f6 1f 00 ff |........|........|
|00001c70| f6 1f 00 ff f6 1f 00 ff | f6 1f 00 ff f6 1f 00 ff |........|........|
|00001c80| f6 1f 00 ff f6 1f 00 ff | f6 1f 00 ff f6 1f 00 ff |........|........|
|00001c90| f6 1f 00 ff f6 1f 00 ff | f6 1f 00 ff f6 1f 00 ff |........|........|
|00001ca0| f6 1f 00 ff f6 1f 00 ff | f6 1f 00 ff f6 1f 00 ff |........|........|
|00001cb0| f6 1f 00 ff f6 1f 00 ff | f6 1f 00 ff f6 1f 00 ff |........|........|
|00001cc0| f6 1f 00 ff f6 1f 00 ff | f6 1f 00 ff f6 1f 00 ff |........|........|
|00001cd0| f6 1f 00 ff f6 1f 00 ff | f6 1f 00 ff f6 1f 00 ff |........|........|
|00001ce0| f6 1f 00 ff f6 1f 00 ff | f6 1f 00 ff f6 1f 00 ff |........|........|
|00001cf0| f6 1f 00 ff f6 1f 00 ff | f6 1f 00 ff f6 1f 00 ff |........|........|
|00001d00| f6 1f 00 ff f6 1f 00 ff | f6 1f 00 ff f6 1f 00 ff |........|........|
|00001d10| f6 1f 00 ff f6 1f 00 ff | f6 1f 00 ff f6 1f 00 ff |........|........|
|00001d20| f6 1f 00 ff f6 1f 00 ff | f6 1f 00 ff f6 1f 00 ff |........|........|
|00001d30| f6 1f 00 ff f6 1f 00 ff | f6 1f 00 ff f6 1f 00 ff |........|........|
|00001d40| f6 1f 00 ff f6 1f 00 ff | f6 1f 00 ff f6 1f 00 ff |........|........|
|00001d50| f6 1f 00 ff f6 1f 00 ff | f6 1f 00 ff f6 1f 00 ff |........|........|
|00001d60| f6 1f 00 ff f6 1f 00 ff | f6 1f 00 ff f6 1f 00 ff |........|........|
|00001d70| f6 1f 00 ff f6 1f 00 ff | f6 1f 00 ff f6 1f 00 ff |........|........|
|00001d80| f6 1f 00 ff f6 1f 00 ff | f6 1f 00 ff f6 1f 00 ff |........|........|
|00001d90| f6 1f 00 ff f6 1f 00 ff | f6 1f 00 ff f6 1f 00 ff |........|........|
|00001da0| f6 1f 00 ff f6 1f 00 ff | f6 1f 00 ff f6 1f 00 ff |........|........|
|00001db0| f6 1f 00 ff f6 1f 00 ff | f6 1f 00 ff f6 1f 00 ff |........|........|
|00001dc0| f6 1f 00 ff f6 1f 00 ff | f6 1f 00 ff f6 1f 00 ff |........|........|
|00001dd0| f6 1f 00 ff f6 1f 00 ff | f6 1f 00 ff f6 1f 00 ff |........|........|
|00001de0| f6 1f 00 ff f6 1f 00 ff | f6 1f 00 ff f6 1f 00 ff |........|........|
|00001df0| f6 1f 00 ff f6 1f 00 ff | f6 1f 00 ff f6 1f 00 ff |........|........|
|00001e00| f6 1f 00 ff f6 1f 00 ff | f6 1f 00 ff f6 1f 00 ff |........|........|
|00001e10| f6 1f 00 ff f6 1f 00 ff | f6 1f 00 ff f6 1f 00 ff |........|........|
|00001e20| f6 1f 00 ff f6 1f 00 ff | f6 1f 00 ff f6 1f 00 ff |........|........|
|00001e30| f6 1f 00 ff f6 1f 00 ff | f6 1f 00 ff f6 1f 00 ff |........|........|
|00001e40| f6 1f 00 ff f6 1f 00 ff | f6 1f 00 ff f6 1f 00 ff |........|........|
|00001e50| f6 1f 00 ff f6 1f 52 45 | 4d 20 20 40 28 23 29 43 |......RE|M  @(#)C|
|00001e60| 41 44 4b 45 59 20 53 4f | 4c 49 44 53 09 61 63 74 |ADKEY SO|LIDS.act|
|00001e70| 09 32 2e 31 09 31 30 2f | 31 38 2f 38 38 0a 52 45 |.2.1.10/|18/88.RE|
|00001e80| 4d 0a 52 45 4d 20 74 68 | 69 73 20 61 6e 69 6d 61 |M.REM th|is anima|
|00001e90| 74 69 6f 6e 20 66 69 6c | 65 20 67 65 6e 65 72 61 |tion fil|e genera|
|00001ea0| 74 65 64 20 62 79 20 70 | 76 2e 63 64 6c 20 56 32 |ted by p|v.cdl V2|
|00001eb0| 2e 30 31 0a 0a 4d 4f 44 | 45 20 44 52 41 57 0a 44 |.01..MOD|E DRAW.D|
|00001ec0| 52 41 57 20 31 0a 46 49 | 4c 4c 20 31 0a 4c 49 47 |RAW 1.FI|LL 1.LIG|
|00001ed0| 48 54 20 31 2e ff 30 06 | 2c 20 30 2e 36 34 ff 30 |HT 1..0.|, 0.64.0|
|00001ee0| 04 2c 20 2d 30 2e 31 37 | ff 30 04 0a 43 41 4d 45 |., -0.17|.0..CAME|
|00001ef0| 52 41 20 30 2e 30 2c 20 | 30 2e 30 2c 20 30 2e 30 |RA 0.0, |0.0, 0.0|
|00001f00| 2c 20 2d 31 2e 30 36 32 | 38 33 37 2c 20 2d 31 2e |, -1.062|837, -1.|
|00001f10| 31 33 37 38 38 31 2c 20 | 2d 30 2e 34 38 36 31 37 |137881, |-0.48617|
|00001f20| 34 2c 20 30 2e ff 30 06 | 0a 44 55 4d 50 43 4f 4c |4, 0..0.|.DUMPCOL|
|00001f30| 4f 52 0a 43 48 41 4e 47 | 45 50 41 4c 0a 70 72 6f |OR.CHANG|EPAL.pro|
|00001f40| 6d 70 74 20 22 46 72 61 | 6d 65 20 31 3a 20 44 72 |mpt "Fra|me 1: Dr|
|00001f50| 61 77 69 6e 67 2c 20 70 | 6c 65 61 73 65 20 77 61 |awing, p|lease wa|
|00001f60| 69 74 ff 2e 03 22 0a 41 | 55 54 4f 57 49 4e 44 4f |it...".A|UTOWINDO|
|00001f70| 57 20 30 2e 30 35 2c 20 | 30 2e 30 35 2c 20 30 2e |W 0.05, |0.05, 0.|
|00001f80| 39 35 2c 20 30 2e 39 35 | 0a 43 4c 53 0a 48 4c 52 |95, 0.95|.CLS.HLR|
|00001f90| 20 30 2c 20 31 0a 70 61 | 75 73 65 20 22 46 72 61 | 0, 1.pa|use "Fra|
|00001fa0| 6d 65 20 31 20 28 52 45 | 54 55 52 4e 20 66 6f 72 |me 1 (RE|TURN for|
|00001fb0| 20 6e 65 78 74 20 66 72 | 61 6d 65 2c 20 45 53 43 | next fr|ame, ESC|
|00001fc0| 20 74 6f 20 71 75 69 74 | 29 2e 22 0a 69 66 20 28 | to quit|).".if (|
|00001fd0| 40 6b 65 79 20 3d 3d 20 | 2d 33 29 0a 4d 4f 44 45 |@key == |-3).MODE|
|00001fe0| 20 4e 4f 52 4d 41 4c 0a | 69 66 20 28 40 6b 65 79 | NORMAL.|if (@key|
|00001ff0| 20 3d 3d 20 2d 33 29 0a | 65 78 69 74 0a 4d 4f 44 | == -3).|exit.MOD|
|00002000| 45 20 4e 4f 52 4d 41 4c | 0a 65 78 69 74 0a ff 00 |E NORMAL|.exit...|
|00002010| 40 f1 1c ff 52 45 4d 20 | 20 40 28 23 29 43 41 44 |@...REM | @(#)CAD|
|00002020| 4b 45 59 20 53 4f 4c 49 | 44 53 09 62 6c 6f 63 6b |KEY SOLI|DS.block|
|00002030| 2e 63 64 6c 09 32 2e 32 | 09 31 30 2f 33 31 2f 38 |.cdl.2.2|.10/31/8|
|00002040| 38 0d 0a 52 45 4d 20 50 | 72 6f 67 72 61 6d 20 74 |8..REM P|rogram t|
|00002050| 6f 20 64 72 61 77 20 61 | 20 62 6c 6f 63 6b 20 65 |o draw a| block e|
|00002060| 6e 74 69 74 79 0d 0a 61 | 72 72 61 79 20 76 6d 61 |ntity..a|rray vma|
|00002070| 74 5b 39 5d 0d 0a 0d 0a | 3a 62 6c 6f 63 6b 0d 0a |t[9]....|:block..|
|00002080| 52 45 4d 20 47 65 74 20 | 74 68 65 20 58 2d 59 20 |REM Get |the X-Y |
|00002090| 70 6c 61 6e 65 2e 20 43 | 55 52 2d 53 59 53 20 6f |plane. C|UR-SYS o|
|000020a0| 70 74 69 6f 6e 20 6d 65 | 61 6e 73 20 63 68 6f 6f |ption me|ans choo|
|000020b0| 73 65 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 73 |se the c|urrent s|
|000020c0| 79 73 74 65 6d 20 58 2d | 59 0d 0a 52 45 4d 20 70 |ystem X-|Y..REM p|
|000020d0| 6c 61 6e 65 20 28 76 69 | 65 77 20 6f 72 20 77 6f |lane (vi|ew or wo|
|000020e0| 72 6c 64 2c 20 64 65 70 | 65 6e 64 69 6e 67 20 6f |rld, dep|ending o|
|000020f0| 6e 20 74 68 65 20 76 69 | 65 77 2f 77 6f 72 6c 64 |n the vi|ew/world|
|00002100| 20 73 77 69 74 63 68 20 | 73 65 74 74 69 6e 67 29 | switch |setting)|
|00002110| 2e 20 0d 0a 52 45 4d 20 | 44 45 46 49 4e 45 20 6f |. ..REM |DEFINE o|
|00002120| 70 74 69 6f 6e 20 6c 65 | 74 73 20 74 68 65 20 75 |ption le|ts the u|
|00002130| 73 65 72 20 64 65 66 69 | 6e 65 20 74 68 65 20 58 |ser defi|ne the X|
|00002140| 2d 59 20 70 6c 61 6e 65 | 2e 0d 0a 0d 0a 67 65 74 |-Y plane|.....get|
|00002150| 6d 65 6e 75 20 22 43 68 | 6f 6f 73 65 20 58 2d 59 |menu "Ch|oose X-Y|
|00002160| 20 70 6c 61 6e 65 20 6f | 70 74 69 6f 6e 22 2c 5c | plane o|ption",\|
|00002170| 0d 0a ff 20 08 22 56 49 | 45 57 22 2c 5c 0d 0a ff |... ."VI|EW",\...|
|00002180| 20 08 22 57 4f 52 4c 44 | 22 2c 5c 0d 0a ff 20 08 | ."WORLD|",\... .|
|00002190| 22 44 45 46 49 4e 45 22 | 0d 0a 0d 0a 69 66 20 28 |"DEFINE"|....if (|
|000021a0| 40 6b 65 79 20 3c 3d 20 | 2d 32 29 0d 0a ff 20 08 |@key <= |-2)... .|
|000021b0| 65 78 69 74 0d 0a 69 66 | 20 28 40 6b 65 79 20 3d |exit..if| (@key =|
|000021c0| 3d 20 33 29 0d 0a ff 20 | 08 67 6f 74 6f 20 64 65 |= 3)... |.goto de|
|000021d0| 66 69 6e 65 0d 0a 0d 0a | 52 45 4d 20 73 65 74 20 |fine....|REM set |
|000021e0| 76 69 65 77 2f 77 6f 72 | 6c 64 20 73 77 69 74 63 |view/wor|ld switc|
|000021f0| 68 20 0d 0a 0d 0a 76 77 | 77 6c 64 20 3d 20 31 0d |h ....vw|wld = 1.|
|00002200| 0a 69 66 20 28 61 62 73 | 28 40 6b 65 79 29 20 3d |.if (abs|(@key) =|
|00002210| 3d 20 31 29 0d 0a ff 20 | 08 76 77 77 6c 64 20 3d |= 1)... |.vwwld =|
|00002220| 20 30 0d 0a 0d 0a 52 45 | 4d 20 76 6e 75 6d 20 64 | 0....RE|M vnum d|
|00002230| 65 66 69 6e 65 73 20 74 | 68 65 20 76 69 65 77 20 |efines t|he view |
|00002240| 6e 75 6d 62 65 72 20 74 | 6f 20 75 73 65 20 66 6f |number t|o use fo|
|00002250| 72 20 64 72 61 77 69 6e | 67 20 74 68 65 20 56 4c |r drawin|g the VL|
|00002260| 49 4e 45 73 2e 0d 0a 52 | 45 4d 20 76 6e 75 6d 20 |INEs...R|EM vnum |
|00002270| 3d 20 30 20 6d 65 61 6e | 73 20 63 75 72 72 65 6e |= 0 mean|s curren|
|00002280| 74 20 76 69 65 77 2c 20 | 76 6e 75 6d 20 3d 20 31 |t view, |vnum = 1|
|00002290| 30 20 6d 65 61 6e 73 20 | 75 73 65 72 20 64 65 66 |0 means |user def|
|000022a0| 69 6e 65 64 20 76 69 65 | 77 2e 0d 0a 76 6e 75 6d |ined vie|w...vnum|
|000022b0| 20 3d 20 30 0d 0a 0d 0a | 3a 76 69 65 77 0d 0a 52 | = 0....|:view..R|
|000022c0| 45 4d 20 54 68 69 73 20 | 70 6f 72 74 69 6f 6e 20 |EM This |portion |
|000022d0| 69 73 20 65 78 65 63 75 | 74 65 64 20 77 68 65 6e |is execu|ted when|
|000022e0| 20 43 55 52 2d 53 59 53 | 20 28 64 65 66 61 75 6c | CUR-SYS| (defaul|
|000022f0| 74 29 20 6f 70 74 69 6f | 6e 20 69 73 20 73 65 6c |t) optio|n is sel|
|00002300| 65 63 74 65 64 2e 0d 0a | 52 45 4d 20 43 4f 52 4e |ected...|REM CORN|
|00002310| 45 52 53 20 6f 70 74 69 | 6f 6e 20 6c 65 74 73 20 |ERS opti|on lets |
|00002320| 74 68 65 20 75 73 65 72 | 20 70 69 63 6b 20 74 77 |the user| pick tw|
|00002330| 6f 20 63 6f 72 6e 65 72 | 73 20 69 6e 20 74 68 65 |o corner|s in the|
|00002340| 20 63 75 72 72 65 6e 74 | 20 73 79 73 74 65 6d 0d | current| system.|
|00002350| 0a 52 45 4d 20 58 2d 59 | 20 70 6c 61 6e 65 20 61 |.REM X-Y| plane a|
|00002360| 6e 64 20 74 68 65 6e 20 | 65 6e 74 65 72 20 64 69 |nd then |enter di|
|00002370| 73 70 6c 61 63 65 6d 65 | 6e 74 20 28 70 6f 73 69 |splaceme|nt (posi|
|00002380| 74 69 76 65 20 6f 72 20 | 6e 65 67 61 74 69 76 65 |tive or |negative|
|00002390| 29 20 61 6c 6f 6e 67 20 | 74 68 65 0d 0a 52 45 4d |) along |the..REM|
|000023a0| 20 5a 2d 61 78 69 73 20 | 74 6f 20 64 65 66 69 6e | Z-axis |to defin|
|000023b0| 65 20 74 68 65 20 62 6c | 6f 63 6b 2e 0d 0a 0d 0a |e the bl|ock.....|
|000023c0| 67 65 74 6d 65 6e 75 20 | 22 43 68 6f 6f 73 65 20 |getmenu |"Choose |
|000023d0| 62 6c 6f 63 6b 20 64 65 | 66 69 6e 69 6e 67 20 6f |block de|fining o|
|000023e0| 70 74 69 6f 6e 22 2c 5c | 0d 0a ff 20 08 22 43 4f |ption",\|... ."CO|
|000023f0| 52 4e 45 52 53 22 2c 5c | 0d 0a ff 20 08 22 56 41 |RNERS",\|... ."VA|
|00002400| 4c 55 45 53 22 0d 0a 0d | 0a 6f 6e 20 28 40 6b 65 |LUES"...|.on (@ke|
|00002410| 79 20 2b 20 33 29 20 67 | 6f 74 6f 20 65 78 69 74 |y + 3) g|oto exit|
|00002420| 2c 20 62 6c 6f 63 6b 2c | 20 63 6f 72 6e 65 72 73 |, block,| corners|
|00002430| 2c 20 2c 20 63 6f 72 6e | 65 72 73 2c 20 76 61 6c |, , corn|ers, val|
|00002440| 75 65 73 0d 0a 0d 0a 3a | 63 6f 72 6e 65 72 73 0d |ues....:|corners.|
|00002450| 0a 52 45 4d 20 54 6f 20 | 64 65 66 69 6e 65 20 74 |.REM To |define t|
|00002460| 68 65 20 63 6f 72 6e 65 | 72 73 2c 20 65 61 63 68 |he corne|rs, each|
|00002470| 20 47 45 54 50 4f 53 20 | 63 6f 6d 6d 61 6e 64 20 | GETPOS |command |
|00002480| 69 73 20 66 6f 6c 6c 6f | 77 65 64 20 62 79 20 61 |is follo|wed by a|
|00002490| 20 63 68 65 63 6b 20 6f | 6e 20 74 68 65 0d 0a 52 | check o|n the..R|
|000024a0| 45 4d 20 76 77 77 6c 64 | 20 76 61 72 69 61 62 6c |EM vwwld| variabl|
|000024b0| 65 20 28 76 69 65 77 2f | 77 6f 72 6c 64 20 73 65 |e (view/|world se|
|000024c0| 74 74 69 6e 67 20 73 74 | 6f 72 65 64 20 70 72 65 |tting st|ored pre|
|000024d0| 76 69 6f 75 73 6c 79 29 | 20 74 6f 20 64 65 74 65 |viously)| to dete|
|000024e0| 72 6d 69 6e 65 20 77 68 | 69 63 68 0d 0a 52 45 4d |rmine wh|ich..REM|
|000024f0| 20 73 65 74 20 6f 66 20 | 63 6f 6f 72 64 69 6e 61 | set of |coordina|
|00002500| 74 65 73 20 20 73 68 6f | 75 6c 64 20 62 65 20 72 |tes  sho|uld be r|
|00002510| 65 61 64 2e 20 0d 0a 0d | 0a 64 65 66 20 3d 20 31 |ead. ...|.def = 1|
|00002520| 0d 0a 0d 0a 3a 76 69 65 | 77 5f 31 0d 0a 67 65 74 |....:vie|w_1..get|
|00002530| 70 6f 73 20 22 49 6e 64 | 69 63 61 74 65 20 31 73 |pos "Ind|icate 1s|
|00002540| 74 20 63 6f 72 6e 65 72 | 22 2c 20 64 65 66 0d 0a |t corner|", def..|
|00002550| 69 66 20 28 40 6b 65 79 | 20 3d 3d 20 2d 31 29 0d |if (@key| == -1).|
|00002560| 0a ff 20 08 67 6f 74 6f | 20 76 69 65 77 5f 31 0d |.. .goto| view_1.|
|00002570| 0a 69 66 20 28 76 77 77 | 6c 64 20 3d 3d 20 31 29 |.if (vww|ld == 1)|
|00002580| 0d 0a ff 20 08 67 6f 74 | 6f 20 77 6c 64 5f 31 73 |... .got|o wld_1s|
|00002590| 74 0d 0a 78 31 20 3d 20 | 40 78 76 69 65 77 0d 0a |t..x1 = |@xview..|
|000025a0| 79 31 20 3d 20 40 79 76 | 69 65 77 0d 0a 7a 31 20 |y1 = @yv|iew..z1 |
|000025b0| 3d 20 40 7a 76 69 65 77 | 0d 0a 67 6f 74 6f 20 63 |= @zview|..goto c|
|000025c0| 68 65 63 6b 31 0d 0a 0d | 0a 3a 77 6c 64 5f 31 73 |heck1...|.:wld_1s|
|000025d0| 74 0d 0a 78 31 20 3d 20 | 40 78 77 6f 72 6c 64 0d |t..x1 = |@xworld.|
|000025e0| 0a 79 31 20 3d 20 40 79 | 77 6f 72 6c 64 0d 0a 7a |.y1 = @y|world..z|
|000025f0| 31 20 3d 20 40 7a 77 6f | 72 6c 64 0d 0a 0d 0a 3a |1 = @zwo|rld....:|
|00002600| 63 68 65 63 6b 31 0d 0a | 69 66 20 28 40 6b 65 79 |check1..|if (@key|
|00002610| 20 3d 3d 20 2d 33 29 0d | 0a ff 20 08 65 78 69 74 | == -3).|.. .exit|
|00002620| 0d 0a 69 66 20 28 40 6b | 65 79 20 3d 3d 20 2d 32 |..if (@k|ey == -2|
|00002630| 29 0d 0a ff 20 08 67 6f | 74 6f 20 76 69 65 77 0d |)... .go|to view.|
|00002640| 0a 64 65 66 20 3d 20 40 | 6b 65 79 0d 0a 0d 0a 3a |.def = @|key....:|
|00002650| 76 69 65 77 5f 32 0d 0a | 67 65 74 70 6f 73 20 22 |view_2..|getpos "|
|00002660| 49 6e 64 69 63 61 74 65 | 20 32 6e 64 20 63 6f 72 |Indicate| 2nd cor|
|00002670| 6e 65 72 22 2c 20 64 65 | 66 0d 0a 69 66 20 28 40 |ner", de|f..if (@|
|00002680| 6b 65 79 20 3d 3d 20 2d | 31 29 0d 0a ff 20 08 67 |key == -|1)... .g|
|00002690| 6f 74 6f 20 76 69 65 77 | 5f 32 0d 0a 69 66 20 28 |oto view|_2..if (|
|000026a0| 76 77 77 6c 64 20 3d 3d | 20 31 29 0d 0a ff 20 08 |vwwld ==| 1)... .|
|000026b0| 67 6f 74 6f 20 77 6c 64 | 5f 32 6e 64 0d 0a 78 63 |goto wld|_2nd..xc|
|000026c0| 20 3d 20 40 78 76 69 65 | 77 20 2d 20 78 31 0d 0a | = @xvie|w - x1..|
|000026d0| 79 63 20 3d 20 40 79 76 | 69 65 77 20 2d 20 79 31 |yc = @yv|iew - y1|
|000026e0| 0d 0a 7a 63 20 3d 20 40 | 7a 76 69 65 77 20 2d 20 |..zc = @|zview - |
|000026f0| 7a 31 0d 0a 67 6f 74 6f | 20 63 68 65 63 6b 32 0d |z1..goto| check2.|
|00002700| 0a 0d 0a 3a 77 6c 64 5f | 32 6e 64 0d 0a 52 45 4d |...:wld_|2nd..REM|
|00002710| 20 78 63 2c 20 79 63 20 | 61 6e 64 20 7a 63 20 73 | xc, yc |and zc s|
|00002720| 74 6f 72 65 20 74 68 65 | 20 64 69 73 74 61 6e 63 |tore the| distanc|
|00002730| 65 73 20 62 65 74 77 65 | 65 6e 20 74 68 65 20 70 |es betwe|en the p|
|00002740| 6f 69 6e 74 73 20 69 6e | 20 63 75 72 72 65 6e 74 |oints in| current|
|00002750| 20 78 2c 20 79 20 61 6e | 64 0d 0a 52 45 4d 20 7a | x, y an|d..REM z|
|00002760| 20 64 69 72 65 63 74 69 | 6f 6e 73 2e 20 54 68 65 | directi|ons. The|
|00002770| 20 63 6f 72 6e 65 72 73 | 20 6d 75 73 74 20 64 65 | corners| must de|
|00002780| 66 69 6e 65 20 61 20 72 | 65 63 74 61 6e 67 6c 65 |fine a r|ectangle|
|00002790| 20 69 6e 20 74 68 65 20 | 58 2d 59 20 70 6c 61 6e | in the |X-Y plan|
|000027a0| 65 0d 0a 52 45 4d 20 28 | 78 63 20 3e 20 30 2c 20 |e..REM (|xc > 0, |
|000027b0| 79 63 20 3e 20 30 29 20 | 61 6e 64 20 68 61 76 65 |yc > 0) |and have|
|000027c0| 20 74 6f 20 62 65 20 69 | 6e 20 74 68 65 20 70 6c | to be i|n the pl|
|000027d0| 61 6e 65 20 73 65 6c 65 | 63 74 65 64 20 28 7a 63 |ane sele|cted (zc|
|000027e0| 20 3d 20 30 29 0d 0a 0d | 0a 78 63 20 3d 20 40 78 | = 0)...|.xc = @x|
|000027f0| 77 6f 72 6c 64 20 2d 20 | 78 31 0d 0a 79 63 20 3d |world - |x1..yc =|
|00002800| 20 40 79 77 6f 72 6c 64 | 20 2d 20 79 31 0d 0a 7a | @yworld| - y1..z|
|00002810| 63 20 3d 20 40 7a 77 6f | 72 6c 64 20 2d 20 7a 31 |c = @zwo|rld - z1|
|00002820| 0d 0a 0d 0a 3a 63 68 65 | 63 6b 32 0d 0a 69 66 20 |....:che|ck2..if |
|00002830| 28 40 6b 65 79 20 3d 3d | 20 2d 33 29 0d 0a ff 20 |(@key ==| -3)... |
|00002840| 08 65 78 69 74 0d 0a 69 | 66 20 28 40 6b 65 79 20 |.exit..i|f (@key |
|00002850| 3d 3d 20 2d 32 29 0d 0a | ff 20 08 67 6f 74 6f 20 |== -2)..|. .goto |
|00002860| 76 69 65 77 5f 31 0d 0a | 64 65 66 20 3d 20 40 6b |view_1..|def = @k|
|00002870| 65 79 0d 0a 69 66 20 28 | 28 61 62 73 28 78 63 29 |ey..if (|(abs(xc)|
|00002880| 20 3e 20 30 2e ff 30 04 | 31 29 20 26 26 20 5c 0d | > 0..0.|1) && \.|
|00002890| 0a ff 20 04 28 61 62 73 | 28 79 63 29 20 3e 20 30 |.. .(abs|(yc) > 0|
|000028a0| 2e ff 30 04 31 29 20 26 | 26 20 5c 0d 0a ff 20 04 |..0.1) &|& \... .|
|000028b0| 28 61 62 73 28 7a 63 29 | 20 3c 20 30 2e ff 30 04 |(abs(zc)| < 0..0.|
|000028c0| 31 29 29 0d 0a ff 20 08 | 67 6f 74 6f 20 6c 65 6e |1))... .|goto len|
|000028d0| 67 74 68 0d 0a 70 61 75 | 73 65 20 22 49 6e 76 61 |gth..pau|se "Inva|
|000028e0| 6c 69 64 20 70 6f 69 6e | 74 20 ff 2e 03 20 28 50 |lid poin|t ... (P|
|000028f0| 72 65 73 73 20 52 45 54 | 55 52 4e 29 22 0d 0a 67 |ress RET|URN)"..g|
|00002900| 6f 74 6f 20 76 69 65 77 | 5f 32 0d 0a 0d 0a 3a 6c |oto view|_2....:l|
|00002910| 65 6e 67 74 68 0d 0a 52 | 45 4d 20 54 68 65 20 64 |ength..R|EM The d|
|00002920| 65 66 69 6e 65 64 20 72 | 65 63 74 61 6e 67 6c 65 |efined r|ectangle|
|00002930| 20 69 6e 20 74 68 65 20 | 58 2d 59 20 70 6c 61 6e | in the |X-Y plan|
|00002940| 65 20 77 69 6c 6c 20 62 | 65 20 70 72 6f 6a 65 63 |e will b|e projec|
|00002950| 74 65 64 20 61 6c 6f 6e | 67 20 74 68 65 20 5a 2d |ted alon|g the Z-|
|00002960| 61 78 69 73 0d 0a 52 45 | 4d 20 69 6e 20 65 69 74 |axis..RE|M in eit|
|00002970| 68 65 72 20 70 6f 73 69 | 74 69 76 65 20 6f 72 20 |her posi|tive or |
|00002980| 6e 65 67 61 74 69 76 65 | 20 64 69 72 65 63 74 69 |negative| directi|
|00002990| 6f 6e 20 62 79 20 61 20 | 6e 6f 6e 2d 7a 65 72 6f |on by a |non-zero|
|000029a0| 20 64 69 73 70 6c 61 63 | 65 6d 65 6e 74 2e 0d 0a | displac|ement...|
|000029b0| 0d 0a 67 65 74 66 6c 74 | 20 22 44 69 73 70 6c 61 |..getflt| "Displa|
|000029c0| 63 65 6d 65 6e 74 20 61 | 6c 6f 6e 67 20 5a 20 61 |cement a|long Z a|
|000029d0| 78 69 73 20 28 25 66 29 | 20 3d 3e 22 2c 20 31 2e |xis (%f)| =>", 1.|
|000029e0| 30 30 2c 20 7a 63 0d 0a | 69 66 20 28 40 6b 65 79 |00, zc..|if (@key|
|000029f0| 20 3d 3d 20 2d 33 29 0d | 0a ff 20 08 65 78 69 74 | == -3).|.. .exit|
|00002a00| 0d 0a 69 66 20 28 40 6b | 65 79 20 3d 3d 20 2d 32 |..if (@k|ey == -2|
|00002a10| 29 0d 0a ff 20 08 67 6f | 74 6f 20 76 69 65 77 5f |)... .go|to view_|
|00002a20| 32 0d 0a 0d 0a 52 45 4d | 20 41 66 74 65 72 20 74 |2....REM| After t|
|00002a30| 68 65 20 74 77 6f 20 70 | 6f 69 6e 74 73 20 61 6e |he two p|oints an|
|00002a40| 64 20 74 68 65 20 64 69 | 73 70 6c 61 63 65 6d 65 |d the di|splaceme|
|00002a50| 6e 74 20 68 61 76 65 20 | 62 65 65 6e 20 65 6e 74 |nt have |been ent|
|00002a60| 65 72 65 64 2c 20 73 65 | 74 20 74 68 65 0d 0a 52 |ered, se|t the..R|
|00002a70| 45 4d 20 72 65 74 75 72 | 6e 20 66 6c 61 67 20 74 |EM retur|n flag t|
|00002a80| 6f 20 63 6f 6d 70 75 74 | 65 20 74 68 65 20 72 65 |o comput|e the re|
|00002a90| 74 75 72 6e 20 61 72 65 | 61 20 61 6e 64 20 67 6f |turn are|a and go|
|00002aa0| 74 6f 20 74 68 65 20 62 | 6c 6f 63 6b 20 64 72 61 |to the b|lock dra|
|00002ab0| 77 69 6e 67 20 70 61 72 | 74 2e 0d 0a 0d 0a 69 66 |wing par|t.....if|
|00002ac0| 20 28 61 62 73 28 7a 63 | 29 20 3e 20 30 2e ff 30 | (abs(zc|) > 0..0|
|00002ad0| 04 31 29 0d 0a ff 20 08 | 72 65 74 5f 66 6c 61 67 |.1)... .|ret_flag|
|00002ae0| 20 3d 20 30 0d 0a 69 66 | 20 28 61 62 73 28 7a 63 | = 0..if| (abs(zc|
|00002af0| 29 20 3e 20 30 2e ff 30 | 04 31 29 0d 0a ff 20 08 |) > 0..0|.1)... .|
|00002b00| 67 6f 74 6f 20 63 61 6c | 63 0d 0a 0d 0a 70 61 75 |goto cal|c....pau|
|00002b10| 73 65 20 22 49 6e 76 61 | 6c 69 64 20 64 69 73 70 |se "Inva|lid disp|
|00002b20| 6c 61 63 65 6d 65 6e 74 | 20 ff 2e 03 20 28 50 72 |lacement| ... (Pr|
|00002b30| 65 73 73 20 52 45 54 55 | 52 4e 29 22 0d 0a 67 6f |ess RETU|RN)"..go|
|00002b40| 74 6f 20 6c 65 6e 67 74 | 68 0d 0a 0d 0a 3a 76 61 |to lengt|h....:va|
|00002b50| 6c 75 65 73 0d 0a 52 45 | 4d 20 49 66 20 74 68 65 |lues..RE|M If the|
|00002b60| 20 56 41 4c 55 45 53 20 | 6f 70 74 69 6f 6e 20 69 | VALUES |option i|
|00002b70| 73 20 73 65 6c 65 63 74 | 65 64 20 61 66 74 65 72 |s select|ed after|
|00002b80| 20 43 55 52 2d 53 59 53 | 2c 20 74 68 72 65 65 20 | CUR-SYS|, three |
|00002b90| 70 6f 73 69 74 69 76 65 | 20 6c 65 6e 67 74 68 73 |positive| lengths|
|00002ba0| 0d 0a 52 45 4d 20 68 61 | 76 65 20 74 6f 20 62 65 |..REM ha|ve to be|
|00002bb0| 20 65 6e 74 65 72 65 64 | 20 28 61 6c 6f 6e 67 20 | entered| (along |
|00002bc0| 63 75 72 72 65 6e 74 20 | 78 2c 20 79 2c 20 61 6e |current |x, y, an|
|00002bd0| 64 20 7a 20 61 78 65 73 | 29 2c 20 61 6e 64 20 74 |d z axes|), and t|
|00002be0| 68 65 20 6f 72 69 67 69 | 6e 20 0d 0a 52 45 4d 20 |he origi|n ..REM |
|00002bf0| 70 6f 69 6e 74 20 66 6f | 72 20 74 68 65 20 62 6c |point fo|r the bl|
|00002c00| 6f 63 6b 20 69 6e 64 69 | 63 61 74 65 64 0d 0a 0d |ock indi|cated...|
|00002c10| 0a 64 65 66 20 3d 20 31 | 0d 0a 67 65 74 66 6c 74 |.def = 1|..getflt|
|00002c20| 20 22 4c 65 6e 67 74 68 | 20 61 6c 6f 6e 67 20 58 | "Length| along X|
|00002c30| 20 61 78 69 73 20 28 25 | 66 29 20 3d 3e 22 2c 20 | axis (%|f) =>", |
|00002c40| 31 2e 30 30 2c 20 78 63 | 0d 0a 69 66 20 28 40 6b |1.00, xc|..if (@k|
|00002c50| 65 79 20 3d 3d 20 2d 33 | 29 0d 0a ff 20 08 65 78 |ey == -3|)... .ex|
|00002c60| 69 74 0d 0a 69 66 20 28 | 40 6b 65 79 20 3d 3d 20 |it..if (|@key == |
|00002c70| 2d 32 29 0d 0a ff 20 08 | 67 6f 74 6f 20 76 69 65 |-2)... .|goto vie|
|00002c80| 77 0d 0a 69 66 20 28 61 | 62 73 28 78 63 29 20 3e |w..if (a|bs(xc) >|
|00002c90| 20 30 2e ff 30 04 31 29 | 0d 0a ff 20 08 67 6f 74 | 0..0.1)|... .got|
|00002ca0| 6f 20 79 5f 76 61 6c 0d | 0a 70 61 75 73 65 20 22 |o y_val.|.pause "|
|00002cb0| 49 6e 76 61 6c 69 64 20 | 6c 65 6e 67 74 68 20 ff |Invalid |length .|
|00002cc0| 2e 03 20 28 50 72 65 73 | 73 20 52 45 54 55 52 4e |.. (Pres|s RETURN|
|00002cd0| 29 22 0d 0a 67 6f 74 6f | 20 76 61 6c 75 65 73 20 |)"..goto| values |
|00002ce0| 0d 0a 0d 0a 3a 79 5f 76 | 61 6c 0d 0a 67 65 74 66 |....:y_v|al..getf|
|00002cf0| 6c 74 20 22 4c 65 6e 67 | 74 68 20 61 6c 6f 6e 67 |lt "Leng|th along|
|00002d00| 20 59 20 61 78 69 73 20 | 28 25 66 29 20 3d 3e 22 | Y axis |(%f) =>"|
|00002d10| 2c 20 31 2e 30 30 2c 20 | 79 63 0d 0a 69 66 20 28 |, 1.00, |yc..if (|
|00002d20| 40 6b 65 79 20 3d 3d 20 | 2d 33 29 0d 0a ff 20 08 |@key == |-3)... .|
|00002d30| 65 78 69 74 0d 0a 69 66 | 20 28 40 6b 65 79 20 3d |exit..if| (@key =|
|00002d40| 3d 20 2d 32 29 0d 0a ff | 20 08 67 6f 74 6f 20 76 |= -2)...| .goto v|
|00002d50| 61 6c 75 65 73 0d 0a 69 | 66 20 28 61 62 73 28 79 |alues..i|f (abs(y|
|00002d60| 63 29 20 3e 20 30 2e ff | 30 04 31 29 0d 0a ff 20 |c) > 0..|0.1)... |
|00002d70| 08 67 6f 74 6f 20 7a 5f | 76 61 6c 0d 0a 70 61 75 |.goto z_|val..pau|
|00002d80| 73 65 20 22 49 6e 76 61 | 6c 69 64 20 6c 65 6e 67 |se "Inva|lid leng|
|00002d90| 74 68 20 ff 2e 03 20 28 | 50 72 65 73 73 20 52 45 |th ... (|Press RE|
|00002da0| 54 55 52 4e 29 22 0d 0a | 67 6f 74 6f 20 79 5f 76 |TURN)"..|goto y_v|
|00002db0| 61 6c 0d 0a 0d 0a 3a 7a | 5f 76 61 6c 0d 0a 67 65 |al....:z|_val..ge|
|00002dc0| 74 66 6c 74 20 22 4c 65 | 6e 67 74 68 20 61 6c 6f |tflt "Le|ngth alo|
|00002dd0| 6e 67 20 5a 20 61 78 69 | 73 20 28 25 66 29 20 3d |ng Z axi|s (%f) =|
|00002de0| 3e 22 2c 20 31 2e 30 30 | 2c 20 7a 63 0d 0a 69 66 |>", 1.00|, zc..if|
|00002df0| 20 28 40 6b 65 79 20 3d | 3d 20 2d 33 29 0d 0a ff | (@key =|= -3)...|
|00002e00| 20 08 65 78 69 74 0d 0a | 69 66 20 28 40 6b 65 79 | .exit..|if (@key|
|00002e10| 20 3d 3d 20 2d 32 29 0d | 0a ff 20 08 67 6f 74 6f | == -2).|.. .goto|
|00002e20| 20 79 5f 76 61 6c 0d 0a | 69 66 20 28 61 62 73 28 | y_val..|if (abs(|
|00002e30| 7a 63 29 20 3e 20 30 2e | ff 30 04 31 29 0d 0a ff |zc) > 0.|.0.1)...|
|00002e40| 20 08 67 6f 74 6f 20 69 | 6e 73 65 72 74 0d 0a 70 | .goto i|nsert..p|
|00002e50| 61 75 73 65 20 22 49 6e | 76 61 6c 69 64 20 6c 65 |ause "In|valid le|
|00002e60| 6e 67 74 68 20 ff 2e 03 | 20 28 50 72 65 73 73 20 |ngth ...| (Press |
|00002e70| 52 45 54 55 52 4e 29 22 | 0d 0a 67 6f 74 6f 20 7a |RETURN)"|..goto z|
|00002e80| 5f 76 61 6c 20 0d 0a 20 | 0d 0a 3a 69 6e 73 65 72 |_val .. |..:inser|
|00002e90| 74 0d 0a 52 45 4d 20 56 | 69 65 77 20 6f 72 20 57 |t..REM V|iew or W|
|00002ea0| 6f 72 6c 64 20 6f 72 69 | 67 69 6e 20 70 6f 69 6e |orld ori|gin poin|
|00002eb0| 74 20 63 6f 6f 72 64 69 | 6e 61 74 65 73 20 61 72 |t coordi|nates ar|
|00002ec0| 65 20 72 65 61 64 2c 20 | 64 65 70 65 6e 64 69 6e |e read, |dependin|
|00002ed0| 67 20 6f 6e 20 76 77 77 | 6c 64 2e 0d 0a 67 65 74 |g on vww|ld...get|
|00002ee0| 70 6f 73 20 22 49 6e 64 | 69 63 61 74 65 20 63 6f |pos "Ind|icate co|
|00002ef0| 72 6e 65 72 20 70 6f 69 | 6e 74 22 2c 20 64 65 66 |rner poi|nt", def|
|00002f00| 0d 0a 69 66 20 28 40 6b | 65 79 20 3d 3d 20 2d 31 |..if (@k|ey == -1|
|00002f10| 29 0d 0a ff 20 08 67 6f | 74 6f 20 69 6e 73 65 72 |)... .go|to inser|
|00002f20| 74 0d 0a 69 66 20 28 76 | 77 77 6c 64 20 3d 3d 20 |t..if (v|wwld == |
|00002f30| 31 29 0d 0a ff 20 08 67 | 6f 74 6f 20 77 6c 64 5f |1)... .g|oto wld_|
|00002f40| 69 6e 73 74 0d 0a 78 31 | 20 3d 20 40 78 76 69 65 |inst..x1| = @xvie|
|00002f50| 77 0d 0a 79 31 20 3d 20 | 40 79 76 69 65 77 0d 0a |w..y1 = |@yview..|
|00002f60| 7a 31 20 3d 20 40 7a 76 | 69 65 77 0d 0a 67 6f 74 |z1 = @zv|iew..got|
|00002f70| 6f 20 63 68 6b 5f 69 6e | 73 74 0d 0a 0d 0a 3a 77 |o chk_in|st....:w|
|00002f80| 6c 64 5f 69 6e 73 74 0d | 0a 78 31 20 3d 20 40 78 |ld_inst.|.x1 = @x|
|00002f90| 77 6f 72 6c 64 0d 0a 79 | 31 20 3d 20 40 79 77 6f |world..y|1 = @ywo|
|00002fa0| 72 6c 64 0d 0a 7a 31 20 | 3d 20 40 7a 77 6f 72 6c |rld..z1 |= @zworl|
|00002fb0| 64 0d 0a 0d 0a 3a 63 68 | 6b 5f 69 6e 73 74 0d 0a |d....:ch|k_inst..|
|00002fc0| 69 66 20 28 40 6b 65 79 | 20 3d 3d 20 2d 33 29 0d |if (@key| == -3).|
|00002fd0| 0a ff 20 08 65 78 69 74 | 0d 0a 69 66 20 28 40 6b |.. .exit|..if (@k|
|00002fe0| 65 79 20 3d 3d 20 2d 32 | 29 0d 0a ff 20 08 67 6f |ey == -2|)... .go|
|00002ff0| 74 6f 20 7a 5f 76 61 6c | 0d 0a 64 65 66 20 3d 20 |to z_val|..def = |
|00003000| 40 6b 65 79 0d 0a 0d 0a | 52 45 4d 20 41 66 74 65 |@key....|REM Afte|
|00003010| 72 20 74 68 65 20 74 68 | 72 65 65 20 6c 65 6e 67 |r the th|ree leng|
|00003020| 74 68 73 20 61 6e 64 20 | 74 68 65 20 6f 72 69 67 |ths and |the orig|
|00003030| 69 6e 20 70 6f 69 6e 74 | 20 68 61 76 65 20 62 65 |in point| have be|
|00003040| 65 6e 20 65 6e 74 65 72 | 65 64 2c 20 73 65 74 20 |en enter|ed, set |
|00003050| 74 68 65 0d 0a 52 45 4d | 20 72 65 74 75 72 6e 20 |the..REM| return |
|00003060| 66 6c 61 67 20 74 6f 20 | 63 6f 6d 70 75 74 65 20 |flag to |compute |
|00003070| 74 68 65 20 72 65 74 75 | 72 6e 20 61 72 65 61 20 |the retu|rn area |
|00003080| 61 6e 64 20 67 6f 74 6f | 20 74 68 65 20 62 6c 6f |and goto| the blo|
|00003090| 63 6b 20 64 72 61 77 69 | 6e 67 20 70 61 72 74 2e |ck drawi|ng part.|
|000030a0| 0d 0a 0d 0a 72 65 74 5f | 66 6c 61 67 20 3d 20 31 |....ret_|flag = 1|
|000030b0| 0d 0a 67 6f 74 6f 20 63 | 61 6c 63 0d 0a 0d 0a 3a |..goto c|alc....:|
|000030c0| 64 65 66 69 6e 65 0d 0a | 52 45 4d 20 49 66 20 74 |define..|REM If t|
|000030d0| 68 65 20 44 45 46 49 4e | 45 20 6f 70 74 69 6f 6e |he DEFIN|E option|
|000030e0| 20 68 61 73 20 62 65 65 | 6e 20 73 65 6c 65 63 74 | has bee|n select|
|000030f0| 65 64 20 66 72 6f 6d 20 | 74 68 65 20 42 4c 4f 43 |ed from |the BLOC|
|00003100| 4b 20 6d 65 6e 75 2c 20 | 74 68 65 20 75 73 65 72 |K menu, |the user|
|00003110| 20 77 69 6c 6c 0d 0a 52 | 45 4d 20 64 65 66 69 6e | will..R|EM defin|
|00003120| 65 20 74 68 65 20 58 2d | 59 20 70 6c 61 6e 65 2e |e the X-|Y plane.|
|00003130| 20 54 68 65 20 62 6c 6f | 63 6b 20 77 69 6c 6c 20 | The blo|ck will |
|00003140| 62 65 20 64 72 61 77 6e | 20 69 6e 20 20 74 68 69 |be drawn| in  thi|
|00003150| 73 20 6e 65 77 20 76 69 | 65 77 2c 20 73 6f 20 74 |s new vi|ew, so t|
|00003160| 68 65 0d 0a 52 45 4d 20 | 76 77 77 6c 64 20 73 77 |he..REM |vwwld sw|
|00003170| 69 74 63 68 20 69 73 20 | 73 65 74 20 74 6f 20 30 |itch is |set to 0|
|00003180| 20 28 76 69 65 77 29 20 | 61 6e 64 20 76 6e 75 6d | (view) |and vnum|
|00003190| 20 74 6f 20 31 30 20 28 | 75 73 65 72 20 64 65 66 | to 10 (|user def|
|000031a0| 69 6e 65 64 29 2e 0d 0a | 0d 0a 76 77 77 6c 64 20 |ined)...|..vwwld |
|000031b0| 3d 20 30 0d 0a 76 6e 75 | 6d 20 3d 20 31 30 0d 0a |= 0..vnu|m = 10..|
|000031c0| 0d 0a 3a 70 6c 61 6e 65 | 0d 0a 67 65 74 70 6c 61 |..:plane|..getpla|
|000031d0| 6e 65 20 22 49 6e 64 69 | 63 61 74 65 20 58 2d 59 |ne "Indi|cate X-Y|
|000031e0| 20 70 6c 61 6e 65 20 66 | 6f 72 20 74 68 65 20 62 | plane f|or the b|
|000031f0| 6c 6f 63 6b 22 2c 20 31 | 0d 0a 0d 0a 69 66 20 28 |lock", 1|....if (|
|00003200| 40 6b 65 79 20 3d 3d 20 | 2d 33 29 0d 0a ff 20 08 |@key == |-3)... .|
|00003210| 65 78 69 74 0d 0a 69 66 | 20 28 40 6b 65 79 20 3d |exit..if| (@key =|
|00003220| 3d 20 2d 32 29 0d 0a ff | 20 08 67 6f 74 6f 20 62 |= -2)...| .goto b|
|00003230| 6c 6f 63 6b 0d 0a 0d 0a | 67 65 74 6d 65 6e 75 20 |lock....|getmenu |
|00003240| 22 41 63 63 65 70 74 20 | 70 6c 61 6e 65 20 28 59 |"Accept |plane (Y|
|00003250| 45 53 29 20 3f 20 22 2c | 5c 0d 0a ff 20 08 22 4e |ES) ? ",|\... ."N|
|00003260| 4f 22 2c 5c 0d 0a ff 20 | 08 22 59 45 53 22 0d 0a |O",\... |."YES"..|
|00003270| 0d 0a 6f 6e 20 28 40 6b | 65 79 2b 33 29 20 67 6f |..on (@k|ey+3) go|
|00003280| 74 6f 20 65 78 69 74 2c | 20 70 6c 61 6e 65 2c 20 |to exit,| plane, |
|00003290| 2c 20 2c 20 70 6c 61 6e | 65 2c 20 70 6c 6d 61 74 |, , plan|e, plmat|
|000032a0| 0d 0a 0d 0a 3a 70 6c 6d | 61 74 0d 0a 52 45 4d 20 |....:plm|at..REM |
|000032b0| 6f 72 69 67 69 6e 20 70 | 6f 69 6e 74 20 66 6f 72 |origin p|oint for|
|000032c0| 20 74 68 65 20 74 72 69 | 6e 6f 6d 65 6e 2e 0d 0a | the tri|nomen...|
|000032d0| 0d 0a 63 61 6c 6c 20 78 | 66 76 77 2c 20 40 78 6d |..call x|fvw, @xm|
|000032e0| 61 78 2d 30 2e 37 35 2f | 40 73 63 61 6c 65 2c 20 |ax-0.75/|@scale, |
|000032f0| 40 79 6d 61 78 2d 30 2e | 37 35 2f 40 73 63 61 6c |@ymax-0.|75/@scal|
|00003300| 65 2c 20 30 2e 30 2c 20 | 78 31 2c 20 79 31 2c 20 |e, 0.0, |x1, y1, |
|00003310| 7a 31 0d 0a 0d 0a 52 45 | 4d 20 64 65 66 69 6e 65 |z1....RE|M define|
|00003320| 20 74 68 65 20 76 69 65 | 77 20 6d 61 74 72 69 78 | the vie|w matrix|
|00003330| 20 61 6e 64 20 74 68 65 | 20 76 69 65 77 20 77 69 | and the| view wi|
|00003340| 74 68 20 72 65 66 20 6e | 6f 2e 20 31 30 0d 0a 0d |th ref n|o. 10...|
|00003350| 0a 76 6d 61 74 5b 30 5d | 20 3d 20 40 66 6c 74 64 |.vmat[0]| = @fltd|
|00003360| 61 74 5b 31 5d 0d 0a 76 | 6d 61 74 5b 31 5d 20 3d |at[1]..v|mat[1] =|
|00003370| 20 40 66 6c 74 64 61 74 | 5b 32 5d 0d 0a 76 6d 61 | @fltdat|[2]..vma|
|00003380| 74 5b 32 5d 20 3d 20 40 | 66 6c 74 64 61 74 5b 33 |t[2] = @|fltdat[3|
|00003390| 5d 0d 0a 76 6d 61 74 5b | 33 5d 20 3d 20 40 66 6c |]..vmat[|3] = @fl|
|000033a0| 74 64 61 74 5b 34 5d 0d | 0a 76 6d 61 74 5b 34 5d |tdat[4].|.vmat[4]|
|000033b0| 20 3d 20 40 66 6c 74 64 | 61 74 5b 35 5d 0d 0a 76 | = @fltd|at[5]..v|
|000033c0| 6d 61 74 5b 35 5d 20 3d | 20 40 66 6c 74 64 61 74 |mat[5] =| @fltdat|
|000033d0| 5b 36 5d 0d 0a 76 6d 61 | 74 5b 36 5d 20 3d 20 40 |[6]..vma|t[6] = @|
|000033e0| 66 6c 74 64 61 74 5b 37 | 5d 0d 0a 76 6d 61 74 5b |fltdat[7|]..vmat[|
|000033f0| 37 5d 20 3d 20 40 66 6c | 74 64 61 74 5b 38 5d 0d |7] = @fl|tdat[8].|
|00003400| 0a 76 6d 61 74 5b 38 5d | 20 3d 20 40 66 6c 74 64 |.vmat[8]| = @fltd|
|00003410| 61 74 5b 39 5d 0d 0a 0d | 0a 3a 64 65 66 5f 76 69 |at[9]...|.:def_vi|
|00003420| 65 77 0d 0a 76 69 65 77 | 20 31 30 2c 20 76 6d 61 |ew..view| 10, vma|
|00003430| 74 5b 30 5d 2c 20 76 6d | 61 74 5b 31 5d 2c 20 76 |t[0], vm|at[1], v|
|00003440| 6d 61 74 5b 32 5d 2c 5c | 0d 0a ff 20 09 76 6d 61 |mat[2],\|... .vma|
|00003450| 74 5b 33 5d 2c 20 76 6d | 61 74 5b 34 5d 2c 20 76 |t[3], vm|at[4], v|
|00003460| 6d 61 74 5b 35 5d 2c 5c | 0d 0a ff 20 09 76 6d 61 |mat[5],\|... .vma|
|00003470| 74 5b 36 5d 2c 20 76 6d | 61 74 5b 37 5d 2c 20 76 |t[6], vm|at[7], v|
|00003480| 6d 61 74 5b 38 5d 0d 0a | 0d 0a 3a 74 72 69 6e 6f |mat[8]..|..:trino|
|00003490| 6d 65 6e 0d 0a 6d 6f 64 | 65 20 64 72 61 77 0d 0a |men..mod|e draw..|
|000034a0| 67 65 74 76 69 65 77 20 | 40 76 69 65 77 0d 0a 52 |getview |@view..R|
|000034b0| 45 4d 20 44 72 61 77 20 | 6c 69 6e 65 20 6f 66 20 |EM Draw |line of |
|000034c0| 6d 61 67 6e 69 74 75 64 | 65 20 31 2f 32 20 69 6e |magnitud|e 1/2 in|
|000034d0| 20 58 20 75 6e 69 74 20 | 76 65 63 74 6f 72 20 64 | X unit |vector d|
|000034e0| 69 72 65 63 74 69 6f 6e | 20 77 69 74 68 20 22 58 |irection| with "X|
|000034f0| 22 20 61 74 20 69 74 73 | 20 65 6e 64 0d 0a 0d 0a |" at its| end....|
|00003500| 63 61 6c 6c 20 64 6f 74 | 70 72 6f 64 2c 20 76 6d |call dot|prod, vm|
|00003510| 61 74 5b 30 5d 2c 20 76 | 6d 61 74 5b 33 5d 2c 20 |at[0], v|mat[3], |
|00003520| 76 6d 61 74 5b 36 5d 2c | 20 40 66 6c 74 64 61 74 |vmat[6],| @fltdat|
|00003530| 5b 32 5d 2c 20 40 66 6c | 74 64 61 74 5b 35 5d 2c |[2], @fl|tdat[5],|
|00003540| 20 40 66 6c 74 64 61 74 | 5b 38 5d 2c 20 72 0d 0a | @fltdat|[8], r..|
|00003550| 69 66 20 28 72 20 3c 20 | 30 29 0d 0a ff 20 08 6c |if (r < |0)... .l|
|00003560| 74 79 70 65 20 3d 20 32 | 0d 0a 69 66 20 28 72 20 |type = 2|..if (r |
|00003570| 3e 3d 20 30 29 0d 0a ff | 20 08 6c 74 79 70 65 20 |>= 0)...| .ltype |
|00003580| 3d 20 31 0d 0a 0d 0a 64 | 78 20 3d 20 76 6d 61 74 |= 1....d|x = vmat|
|00003590| 5b 30 5d 2f 28 32 2a 40 | 73 63 61 6c 65 29 0d 0a |[0]/(2*@|scale)..|
|000035a0| 64 79 20 3d 20 76 6d 61 | 74 5b 33 5d 2f 28 32 2a |dy = vma|t[3]/(2*|
|000035b0| 40 73 63 61 6c 65 29 0d | 0a 64 7a 20 3d 20 76 6d |@scale).|.dz = vm|
|000035c0| 61 74 5b 36 5d 2f 28 32 | 2a 40 73 63 61 6c 65 29 |at[6]/(2|*@scale)|
|000035d0| 0d 0a 6c 69 6e 65 20 78 | 31 2c 20 79 31 2c 20 7a |..line x|1, y1, z|
|000035e0| 31 2c 20 78 31 2b 64 78 | 2c 20 79 31 2b 64 79 2c |1, x1+dx|, y1+dy,|
|000035f0| 20 7a 31 2b 64 7a 2c 20 | 31 35 2c 20 2c 20 6c 74 | z1+dz, |15, , lt|
|00003600| 79 70 65 0d 0a 61 72 72 | 20 3d 20 30 2e 31 35 2f |ype..arr| = 0.15/|
|00003610| 40 73 63 61 6c 65 0d 0a | 63 61 6c 6c 20 78 66 77 |@scale..|call xfw|
|00003620| 76 2c 20 78 31 2b 31 2e | 33 2a 64 78 2c 20 79 31 |v, x1+1.|3*dx, y1|
|00003630| 2b 31 2e 33 2a 64 79 2c | 20 7a 31 2b 31 2e 33 2a |+1.3*dy,| z1+1.3*|
|00003640| 64 7a 2c 20 78 63 2c 20 | 79 63 2c 20 7a 63 0d 0a |dz, xc, |yc, zc..|
|00003650| 74 65 78 74 20 78 63 2c | 20 79 63 2c 20 22 78 22 |text xc,| yc, "x"|
|00003660| 2c 20 30 2c 20 61 72 72 | 2c 20 30 2e 37 2c 20 30 |, 0, arr|, 0.7, 0|
|00003670| 2c 20 31 35 0d 0a 0d 0a | 52 45 4d 20 44 72 61 77 |, 15....|REM Draw|
|00003680| 20 6c 69 6e 65 20 6f 66 | 20 6d 61 67 6e 69 74 75 | line of| magnitu|
|00003690| 64 65 20 31 2f 32 20 69 | 6e 20 59 20 75 6e 69 74 |de 1/2 i|n Y unit|
|000036a0| 20 76 65 63 74 6f 72 20 | 64 69 72 65 63 74 69 6f | vector |directio|
|000036b0| 6e 20 77 69 74 68 20 22 | 59 22 20 61 74 20 69 74 |n with "|Y" at it|
|000036c0| 73 20 65 6e 64 0d 0a 0d | 0a 63 61 6c 6c 20 64 6f |s end...|.call do|
|000036d0| 74 70 72 6f 64 2c 20 76 | 6d 61 74 5b 31 5d 2c 20 |tprod, v|mat[1], |
|000036e0| 76 6d 61 74 5b 34 5d 2c | 20 76 6d 61 74 5b 37 5d |vmat[4],| vmat[7]|
|000036f0| 2c 20 40 66 6c 74 64 61 | 74 5b 32 5d 2c 20 40 66 |, @fltda|t[2], @f|
|00003700| 6c 74 64 61 74 5b 35 5d | 2c 20 40 66 6c 74 64 61 |ltdat[5]|, @fltda|
|00003710| 74 5b 38 5d 2c 20 72 0d | 0a 69 66 20 28 72 20 3c |t[8], r.|.if (r <|
|00003720| 20 30 29 0d 0a ff 20 08 | 6c 74 79 70 65 20 3d 20 | 0)... .|ltype = |
|00003730| 32 0d 0a 69 66 20 28 72 | 20 3e 3d 20 30 29 0d 0a |2..if (r| >= 0)..|
|00003740| ff 20 08 6c 74 79 70 65 | 20 3d 20 31 0d 0a 0d 0a |. .ltype| = 1....|
|00003750| 64 78 20 3d 20 76 6d 61 | 74 5b 31 5d 2f 28 32 2a |dx = vma|t[1]/(2*|
|00003760| 40 73 63 61 6c 65 29 0d | 0a 64 79 20 3d 20 76 6d |@scale).|.dy = vm|
|00003770| 61 74 5b 34 5d 2f 28 32 | 2a 40 73 63 61 6c 65 29 |at[4]/(2|*@scale)|
|00003780| 0d 0a 64 7a 20 3d 20 76 | 6d 61 74 5b 37 5d 2f 28 |..dz = v|mat[7]/(|
|00003790| 32 2a 40 73 63 61 6c 65 | 29 0d 0a 6c 69 6e 65 20 |2*@scale|)..line |
|000037a0| 78 31 2c 20 79 31 2c 20 | 7a 31 2c 20 78 31 2b 64 |x1, y1, |z1, x1+d|
|000037b0| 78 2c 20 79 31 2b 64 79 | 2c 20 7a 31 2b 64 7a 2c |x, y1+dy|, z1+dz,|
|000037c0| 20 31 35 2c 20 2c 20 6c | 74 79 70 65 0d 0a 63 61 | 15, , l|type..ca|
|000037d0| 6c 6c 20 78 66 77 76 2c | 20 78 31 2b 31 2e 33 2a |ll xfwv,| x1+1.3*|
|000037e0| 64 78 2c 20 79 31 2b 31 | 2e 33 2a 64 79 2c 20 7a |dx, y1+1|.3*dy, z|
|000037f0| 31 2b 31 2e 33 2a 64 7a | 2c 20 78 63 2c 20 79 63 |1+1.3*dz|, xc, yc|
|00003800| 2c 20 7a 63 0d 0a 74 65 | 78 74 20 78 63 2c 20 79 |, zc..te|xt xc, y|
|00003810| 63 2c 20 22 79 22 2c 20 | 30 2c 20 61 72 72 2c 20 |c, "y", |0, arr, |
|00003820| 30 2e 37 2c 20 30 2c 20 | 31 35 0d 0a 0d 0a 52 45 |0.7, 0, |15....RE|
|00003830| 4d 20 44 72 61 77 20 6c | 69 6e 65 20 6f 66 20 6d |M Draw l|ine of m|
|00003840| 61 67 6e 69 74 75 64 65 | 20 31 2f 32 20 69 6e 20 |agnitude| 1/2 in |
|00003850| 5a 20 75 6e 69 74 20 76 | 65 63 74 6f 72 20 64 69 |Z unit v|ector di|
|00003860| 72 65 63 74 69 6f 6e 20 | 77 69 74 68 20 22 5a 22 |rection |with "Z"|
|00003870| 20 61 74 20 69 74 73 20 | 65 6e 64 0d 0a 0d 0a 63 | at its |end....c|
|00003880| 61 6c 6c 20 64 6f 74 70 | 72 6f 64 2c 20 76 6d 61 |all dotp|rod, vma|
|00003890| 74 5b 32 5d 2c 20 76 6d | 61 74 5b 35 5d 2c 20 76 |t[2], vm|at[5], v|
|000038a0| 6d 61 74 5b 38 5d 2c 20 | 40 66 6c 74 64 61 74 5b |mat[8], |@fltdat[|
|000038b0| 32 5d 2c 20 40 66 6c 74 | 64 61 74 5b 35 5d 2c 20 |2], @flt|dat[5], |
|000038c0| 40 66 6c 74 64 61 74 5b | 38 5d 2c 20 72 0d 0a 69 |@fltdat[|8], r..i|
|000038d0| 66 20 28 72 20 3c 20 30 | 29 0d 0a ff 20 08 6c 74 |f (r < 0|)... .lt|
|000038e0| 79 70 65 20 3d 20 32 0d | 0a 69 66 20 28 72 20 3e |ype = 2.|.if (r >|
|000038f0| 3d 20 30 29 0d 0a ff 20 | 08 6c 74 79 70 65 20 3d |= 0)... |.ltype =|
|00003900| 20 31 0d 0a 0d 0a 64 78 | 20 3d 20 76 6d 61 74 5b | 1....dx| = vmat[|
|00003910| 32 5d 2f 28 32 2a 40 73 | 63 61 6c 65 29 0d 0a 64 |2]/(2*@s|cale)..d|
|00003920| 79 20 3d 20 76 6d 61 74 | 5b 35 5d 2f 28 32 2a 40 |y = vmat|[5]/(2*@|
|00003930| 73 63 61 6c 65 29 0d 0a | 64 7a 20 3d 20 76 6d 61 |scale)..|dz = vma|
|00003940| 74 5b 38 5d 2f 28 32 2a | 40 73 63 61 6c 65 29 0d |t[8]/(2*|@scale).|
|00003950| 0a 6c 69 6e 65 20 78 31 | 2c 20 79 31 2c 20 7a 31 |.line x1|, y1, z1|
|00003960| 2c 20 78 31 2b 64 78 2c | 20 79 31 2b 64 79 2c 20 |, x1+dx,| y1+dy, |
|00003970| 7a 31 2b 64 7a 2c 20 31 | 35 2c 20 2c 20 6c 74 79 |z1+dz, 1|5, , lty|
|00003980| 70 65 0d 0a 63 61 6c 6c | 20 78 66 77 76 2c 20 78 |pe..call| xfwv, x|
|00003990| 31 2b 31 2e 33 2a 64 78 | 2c 20 79 31 2b 31 2e 33 |1+1.3*dx|, y1+1.3|
|000039a0| 2a 64 79 2c 20 7a 31 2b | 31 2e 33 2a 64 7a 2c 20 |*dy, z1+|1.3*dz, |
|000039b0| 78 63 2c 20 79 63 2c 20 | 7a 63 0d 0a 74 65 78 74 |xc, yc, |zc..text|
|000039c0| 20 78 63 2c 20 79 63 2c | 20 22 7a 22 2c 20 30 2c | xc, yc,| "z", 0,|
|000039d0| 20 61 72 72 2c 20 30 2e | 37 2c 20 30 2c 20 31 35 | arr, 0.|7, 0, 15|
|000039e0| 0d 0a 6d 6f 64 65 20 6e | 6f 72 6d 61 6c 0d 0a 0d |..mode n|ormal...|
|000039f0| 0a 3a 64 65 66 32 0d 0a | 52 45 4d 20 41 66 74 65 |.:def2..|REM Afte|
|00003a00| 72 20 74 68 65 20 75 73 | 65 72 20 68 61 73 20 64 |r the us|er has d|
|00003a10| 65 66 69 6e 65 64 20 74 | 68 65 20 58 2d 59 20 70 |efined t|he X-Y p|
|00003a20| 6c 61 6e 65 2c 20 74 68 | 65 20 73 61 6d 65 20 6f |lane, th|e same o|
|00003a30| 70 74 69 6f 6e 73 20 61 | 73 20 43 55 52 5f 53 59 |ptions a|s CUR_SY|
|00003a40| 53 0d 0a 52 45 4d 20 61 | 72 65 20 61 76 61 69 6c |S..REM a|re avail|
|00003a50| 61 62 6c 65 20 73 70 65 | 63 69 66 79 20 74 68 65 |able spe|cify the|
|00003a60| 20 62 6c 6f 63 6b 20 70 | 61 72 61 6d 65 74 65 72 | block p|arameter|
|00003a70| 0d 0a 20 0d 0a 67 65 74 | 6d 65 6e 75 20 22 43 68 |.. ..get|menu "Ch|
|00003a80| 6f 6f 73 65 20 62 6c 6f | 63 6b 20 64 65 66 69 6e |oose blo|ck defin|
|00003a90| 69 6e 67 20 6f 70 74 69 | 6f 6e 22 2c 5c 0d 0a ff |ing opti|on",\...|
|00003aa0| 20 08 22 43 4f 52 4e 45 | 52 53 22 2c 5c 0d 0a ff | ."CORNE|RS",\...|
|00003ab0| 20 08 22 56 41 4c 55 45 | 53 22 0d 0a 0d 0a 6f 6e | ."VALUE|S"....on|
|00003ac0| 20 28 40 6b 65 79 20 2b | 20 33 29 20 67 6f 74 6f | (@key +| 3) goto|
|00003ad0| 20 65 78 69 74 2c 20 62 | 6c 6f 63 6b 2c 20 63 6f | exit, b|lock, co|
|00003ae0| 72 6e 65 72 73 32 2c 20 | 2c 20 63 6f 72 6e 65 72 |rners2, |, corner|
|00003af0| 73 32 2c 20 76 61 6c 75 | 65 73 32 0d 0a 0d 0a 3a |s2, valu|es2....:|
|00003b00| 63 6f 72 6e 65 72 73 32 | 0d 0a 52 45 4d 20 43 4f |corners2|..REM CO|
|00003b10| 52 4e 45 52 53 20 6f 70 | 74 69 6f 6e 20 6c 65 74 |RNERS op|tion let|
|00003b20| 73 20 74 68 65 20 75 73 | 65 72 20 70 69 63 6b 20 |s the us|er pick |
|00003b30| 74 77 6f 20 63 6f 72 6e | 65 72 73 20 69 6e 20 74 |two corn|ers in t|
|00003b40| 68 65 20 75 73 65 72 20 | 64 65 66 69 6e 65 64 0d |he user |defined.|
|00003b50| 0a 52 45 4d 20 58 2d 59 | 20 70 6c 61 6e 65 20 61 |.REM X-Y| plane a|
|00003b60| 6e 64 20 74 68 65 6e 20 | 65 6e 74 65 72 20 64 69 |nd then |enter di|
|00003b70| 73 70 6c 61 63 65 6d 65 | 6e 74 20 28 70 6f 73 69 |splaceme|nt (posi|
|00003b80| 74 69 76 65 20 6f 72 20 | 6e 65 67 61 74 69 76 65 |tive or |negative|
|00003b90| 29 20 61 6c 6f 6e 67 20 | 74 68 65 0d 0a 52 45 4d |) along |the..REM|
|00003ba0| 20 5a 2d 61 78 69 73 20 | 74 6f 20 64 65 66 69 6e | Z-axis |to defin|
|00003bb0| 65 20 74 68 65 20 62 6c | 6f 63 6b 2e 0d 0a 64 65 |e the bl|ock...de|
|00003bc0| 66 20 3d 20 31 0d 0a 0d | 0a 3a 70 6f 73 5f 31 0d |f = 1...|.:pos_1.|
|00003bd0| 0a 67 65 74 70 6f 73 20 | 22 49 6e 64 69 63 61 74 |.getpos |"Indicat|
|00003be0| 65 20 31 73 74 20 63 6f | 72 6e 65 72 22 2c 20 64 |e 1st co|rner", d|
|00003bf0| 65 66 0d 0a 69 66 20 28 | 40 6b 65 79 20 3d 3d 20 |ef..if (|@key == |
|00003c00| 2d 31 29 0d 0a ff 20 08 | 67 6f 74 6f 20 70 6f 73 |-1)... .|goto pos|
|00003c10| 5f 31 0d 0a 63 61 6c 6c | 20 78 66 6d 77 76 2c 20 |_1..call| xfmwv, |
|00003c20| 76 6d 61 74 2c 20 40 78 | 77 6f 72 6c 64 2c 20 40 |vmat, @x|world, @|
|00003c30| 79 77 6f 72 6c 64 2c 20 | 40 7a 77 6f 72 6c 64 2c |yworld, |@zworld,|
|00003c40| 20 78 31 2c 20 79 31 2c | 20 7a 31 0d 0a 0d 0a 69 | x1, y1,| z1....i|
|00003c50| 66 20 28 40 6b 65 79 20 | 3d 3d 20 2d 33 29 0d 0a |f (@key |== -3)..|
|00003c60| ff 20 08 65 78 69 74 0d | 0a 69 66 20 28 40 6b 65 |. .exit.|.if (@ke|
|00003c70| 79 20 3d 3d 20 2d 32 29 | 0d 0a ff 20 08 67 6f 74 |y == -2)|... .got|
|00003c80| 6f 20 64 65 66 32 0d 0a | 64 65 66 20 3d 20 40 6b |o def2..|def = @k|
|00003c90| 65 79 0d 0a 0d 0a 3a 70 | 6f 73 5f 32 0d 0a 67 65 |ey....:p|os_2..ge|
|00003ca0| 74 70 6f 73 20 22 49 6e | 64 69 63 61 74 65 20 32 |tpos "In|dicate 2|
|00003cb0| 6e 64 20 63 6f 72 6e 65 | 72 22 2c 20 64 65 66 0d |nd corne|r", def.|
|00003cc0| 0a 69 66 20 28 40 6b 65 | 79 20 3d 3d 20 2d 31 29 |.if (@ke|y == -1)|
|00003cd0| 0d 0a ff 20 08 67 6f 74 | 6f 20 70 6f 73 5f 32 0d |... .got|o pos_2.|
|00003ce0| 0a 63 61 6c 6c 20 78 66 | 6d 77 76 2c 20 76 6d 61 |.call xf|mwv, vma|
|00003cf0| 74 2c 20 40 78 77 6f 72 | 6c 64 2c 20 40 79 77 6f |t, @xwor|ld, @ywo|
|00003d00| 72 6c 64 2c 10 1d ee 20 | 40 7a 77 6f 72 6c 64 2c |rld,... |@zworld,|
|00003d10| 20 78 32 2c 20 79 32 2c | 20 7a 32 0d 0a 0d 0a 69 | x2, y2,| z2....i|
|00003d20| 66 20 28 40 6b 65 79 20 | 3d 3d 20 2d 33 29 0d 0a |f (@key |== -3)..|
|00003d30| ee 20 08 65 78 69 74 0d | 0a 69 66 20 28 40 6b 65 |. .exit.|.if (@ke|
|00003d40| 79 20 3d 3d 20 2d 32 29 | 0d 0a ee 20 08 67 6f 74 |y == -2)|... .got|
|00003d50| 6f 20 70 6f 73 5f 31 0d | 0a 0d 0a 64 65 66 20 3d |o pos_1.|...def =|
|00003d60| 20 40 6b 65 79 0d 0a 0d | 0a 52 45 4d 20 78 63 2c | @key...|.REM xc,|
|00003d70| 20 79 63 20 61 6e 64 20 | 7a 63 20 73 74 6f 72 65 | yc and |zc store|
|00003d80| 20 74 68 65 20 64 69 73 | 74 61 6e 63 65 73 20 62 | the dis|tances b|
|00003d90| 65 74 77 65 65 6e 20 74 | 68 65 20 70 6f 69 6e 74 |etween t|he point|
|00003da0| 73 20 69 6e 20 75 73 65 | 72 20 64 65 66 69 6e 65 |s in use|r define|
|00003db0| 64 20 78 2c 0d 0a 52 45 | 4d 20 79 20 61 6e 64 20 |d x,..RE|M y and |
|00003dc0| 7a 20 64 69 72 65 63 74 | 69 6f 6e 73 2e 20 54 68 |z direct|ions. Th|
|00003dd0| 65 20 63 6f 72 6e 65 72 | 73 20 6d 75 73 74 20 64 |e corner|s must d|
|00003de0| 65 66 69 6e 65 20 61 20 | 72 65 63 74 61 6e 67 6c |efine a |rectangl|
|00003df0| 65 20 69 6e 20 74 68 65 | 20 58 2d 59 20 70 6c 61 |e in the| X-Y pla|
|00003e00| 6e 65 0d 0a 52 45 4d 20 | 28 78 63 20 3e 20 30 2c |ne..REM |(xc > 0,|
|00003e10| 20 79 63 20 3e 20 30 29 | 20 61 6e 64 20 68 61 76 | yc > 0)| and hav|
|00003e20| 65 20 74 6f 20 62 65 20 | 69 6e 20 74 68 65 20 70 |e to be |in the p|
|00003e30| 6c 61 6e 65 20 73 65 6c | 65 63 74 65 64 20 28 7a |lane sel|ected (z|
|00003e40| 63 20 3d 20 30 29 0d 0a | 0d 0a 78 63 20 3d 20 78 |c = 0)..|..xc = x|
|00003e50| 32 20 2d 20 78 31 0d 0a | 79 63 20 3d 20 79 32 20 |2 - x1..|yc = y2 |
|00003e60| 2d 20 79 31 0d 0a 7a 63 | 20 3d 20 7a 32 20 2d 20 |- y1..zc| = z2 - |
|00003e70| 7a 31 0d 0a 0d 0a 69 66 | 20 28 28 61 62 73 28 78 |z1....if| ((abs(x|
|00003e80| 63 29 20 3e 20 30 2e ee | 30 04 31 29 20 26 26 20 |c) > 0..|0.1) && |
|00003e90| 5c 0d 0a ee 20 04 28 61 | 62 73 28 79 63 29 20 3e |\... .(a|bs(yc) >|
|00003ea0| 20 30 2e ee 30 04 31 29 | 20 26 26 20 5c 0d 0a ee | 0..0.1)| && \...|
|00003eb0| 20 04 28 61 62 73 28 7a | 63 29 20 3c 20 30 2e ee | .(abs(z|c) < 0..|
|00003ec0| 30 04 31 29 29 0d 0a ee | 20 08 67 6f 74 6f 20 6c |0.1))...| .goto l|
|00003ed0| 65 6e 67 74 68 32 0d 0a | 70 61 75 73 65 20 22 49 |ength2..|pause "I|
|00003ee0| 6e 76 61 6c 69 64 20 70 | 6f 69 6e 74 20 ee 2e 03 |nvalid p|oint ...|
|00003ef0| 20 28 50 72 65 73 73 20 | 52 45 54 55 52 4e 29 22 | (Press |RETURN)"|
|00003f00| 0d 0a 67 6f 74 6f 20 70 | 6f 73 5f 32 0d 0a 0d 0a |..goto p|os_2....|
|00003f10| 3a 6c 65 6e 67 74 68 32 | 0d 0a 52 45 4d 20 54 68 |:length2|..REM Th|
|00003f20| 65 20 64 65 66 69 6e 65 | 64 20 72 65 63 74 61 6e |e define|d rectan|
|00003f30| 67 6c 65 20 69 6e 20 74 | 68 65 20 58 2d 59 20 70 |gle in t|he X-Y p|
|00003f40| 6c 61 6e 65 20 77 69 6c | 6c 20 62 65 20 70 72 6f |lane wil|l be pro|
|00003f50| 6a 65 63 74 65 64 20 61 | 6c 6f 6e 67 20 74 68 65 |jected a|long the|
|00003f60| 20 5a 2d 61 78 69 73 0d | 0a 52 45 4d 20 69 6e 20 | Z-axis.|.REM in |
|00003f70| 65 69 74 68 65 72 20 70 | 6f 73 69 74 69 76 65 20 |either p|ositive |
|00003f80| 6f 72 20 6e 65 67 61 74 | 69 76 65 20 64 69 72 65 |or negat|ive dire|
|00003f90| 63 74 69 6f 6e 20 62 79 | 20 61 20 6e 6f 6e 2d 7a |ction by| a non-z|
|00003fa0| 65 72 6f 20 64 69 73 70 | 6c 61 63 65 6d 65 6e 74 |ero disp|lacement|
|00003fb0| 2e 0d 0a 0d 0a 67 65 74 | 66 6c 74 20 22 44 69 73 |.....get|flt "Dis|
|00003fc0| 70 6c 61 63 65 6d 65 6e | 74 20 61 6c 6f 6e 67 20 |placemen|t along |
|00003fd0| 5a 20 61 78 69 73 20 28 | 25 66 29 20 3d 3e 22 2c |Z axis (|%f) =>",|
|00003fe0| 20 31 2e 30 30 2c 20 7a | 63 0d 0a 69 66 20 28 40 | 1.00, z|c..if (@|
|00003ff0| 6b 65 79 20 3d 3d 20 2d | 33 29 0d 0a ee 20 08 65 |key == -|3)... .e|
|00004000| 78 69 74 0d 0a 69 66 20 | 28 40 6b 65 79 20 3d 3d |xit..if |(@key ==|
|00004010| 20 2d 32 29 0d 0a ee 20 | 08 67 6f 74 6f 20 70 6f | -2)... |.goto po|
|00004020| 73 5f 32 0d 0a 0d 0a 52 | 45 4d 20 41 66 74 65 72 |s_2....R|EM After|
|00004030| 20 74 68 65 20 74 77 6f | 20 70 6f 69 6e 74 73 20 | the two| points |
|00004040| 61 6e 64 20 74 68 65 20 | 64 69 73 70 6c 61 63 65 |and the |displace|
|00004050| 6d 65 6e 74 20 68 61 76 | 65 20 62 65 65 6e 20 65 |ment hav|e been e|
|00004060| 6e 74 65 72 65 64 2c 20 | 73 65 74 20 74 68 65 0d |ntered, |set the.|
|00004070| 0a 52 45 4d 20 72 65 74 | 75 72 6e 20 66 6c 61 67 |.REM ret|urn flag|
|00004080| 20 74 6f 20 63 6f 6d 70 | 75 74 65 20 74 68 65 20 | to comp|ute the |
|00004090| 72 65 74 75 72 6e 20 61 | 72 65 61 20 61 6e 64 20 |return a|rea and |
|000040a0| 67 6f 74 6f 20 74 68 65 | 20 62 6c 6f 63 6b 20 64 |goto the| block d|
|000040b0| 72 61 77 69 6e 67 20 70 | 61 72 74 2e 0d 0a 0d 0a |rawing p|art.....|
|000040c0| 69 66 20 28 61 62 73 28 | 7a 63 29 20 3e 20 30 2e |if (abs(|zc) > 0.|
|000040d0| ee 30 04 31 29 0d 0a ee | 20 08 72 65 74 5f 66 6c |.0.1)...| .ret_fl|
|000040e0| 61 67 20 3d 20 32 0d 0a | 69 66 20 28 61 62 73 28 |ag = 2..|if (abs(|
|000040f0| 7a 63 29 20 3e 20 30 2e | ee 30 04 31 29 0d 0a ee |zc) > 0.|.0.1)...|
|00004100| 20 08 67 6f 74 6f 20 63 | 61 6c 63 0d 0a 70 61 75 | .goto c|alc..pau|
|00004110| 73 65 20 22 49 6e 76 61 | 6c 69 64 20 64 69 73 70 |se "Inva|lid disp|
|00004120| 6c 61 63 65 6d 65 6e 74 | 20 ee 2e 03 20 28 50 72 |lacement| ... (Pr|
|00004130| 65 73 73 20 52 45 54 55 | 52 4e 29 22 0d 0a 67 6f |ess RETU|RN)"..go|
|00004140| 74 6f 20 6c 65 6e 67 74 | 68 32 0d 0a 0d 0a 3a 76 |to lengt|h2....:v|
|00004150| 61 6c 75 65 73 32 0d 0a | 52 45 4d 20 49 66 20 74 |alues2..|REM If t|
|00004160| 68 65 20 56 41 4c 55 45 | 53 20 6f 70 74 69 6f 6e |he VALUE|S option|
|00004170| 20 69 73 20 73 65 6c 65 | 63 74 65 64 20 61 66 74 | is sele|cted aft|
|00004180| 65 72 20 44 45 46 49 4e | 45 2c 20 74 68 72 65 65 |er DEFIN|E, three|
|00004190| 20 70 6f 73 69 74 69 76 | 65 20 6c 65 6e 67 74 68 | positiv|e length|
|000041a0| 73 0d 0a 52 45 4d 20 68 | 61 76 65 20 74 6f 20 62 |s..REM h|ave to b|
|000041b0| 65 20 65 6e 74 65 72 65 | 64 20 28 61 6c 6f 6e 67 |e entere|d (along|
|000041c0| 20 75 73 65 72 20 64 65 | 66 69 6e 65 64 20 78 2c | user de|fined x,|
|000041d0| 20 79 2c 20 61 6e 64 20 | 7a 20 61 78 65 73 29 2c | y, and |z axes),|
|000041e0| 20 61 6e 64 20 74 68 65 | 20 6f 72 69 67 69 6e 20 | and the| origin |
|000041f0| 0d 0a 52 45 4d 20 70 6f | 69 6e 74 20 66 6f 72 20 |..REM po|int for |
|00004200| 74 68 65 20 62 6c 6f 63 | 6b 0d 0a 0d 0a 64 65 66 |the bloc|k....def|
|00004210| 20 3d 20 31 0d 0a 67 65 | 74 66 6c 74 20 22 4c 65 | = 1..ge|tflt "Le|
|00004220| 6e 67 74 68 20 61 6c 6f | 6e 67 20 58 20 61 78 69 |ngth alo|ng X axi|
|00004230| 73 20 28 25 66 29 20 3d | 3e 22 2c 20 31 2e 30 30 |s (%f) =|>", 1.00|
|00004240| 2c 20 78 63 0d 0a 69 66 | 20 28 40 6b 65 79 20 3d |, xc..if| (@key =|
|00004250| 3d 20 2d 33 29 0d 0a ee | 20 08 65 78 69 74 0d 0a |= -3)...| .exit..|
|00004260| 69 66 20 28 40 6b 65 79 | 20 3d 3d 20 2d 32 29 0d |if (@key| == -2).|
|00004270| 0a ee 20 08 67 6f 74 6f | 20 64 65 66 32 0d 0a 69 |.. .goto| def2..i|
|00004280| 66 20 28 61 62 73 28 78 | 63 29 20 3e 20 30 2e ee |f (abs(x|c) > 0..|
|00004290| 30 04 31 29 0d 0a ee 20 | 08 67 6f 74 6f 20 79 5f |0.1)... |.goto y_|
|000042a0| 76 61 6c 32 0d 0a 70 61 | 75 73 65 20 22 49 6e 76 |val2..pa|use "Inv|
|000042b0| 61 6c 69 64 20 6c 65 6e | 67 74 68 20 ee 2e 03 20 |alid len|gth ... |
|000042c0| 28 50 72 65 73 73 20 52 | 45 54 55 52 4e 29 22 0d |(Press R|ETURN)".|
|000042d0| 0a 67 6f 74 6f 20 76 61 | 6c 75 65 73 32 20 0d 0a |.goto va|lues2 ..|
|000042e0| 0d 0a 3a 79 5f 76 61 6c | 32 0d 0a 67 65 74 66 6c |..:y_val|2..getfl|
|000042f0| 74 20 22 4c 65 6e 67 74 | 68 20 61 6c 6f 6e 67 20 |t "Lengt|h along |
|00004300| 59 20 61 78 69 73 20 28 | 25 66 29 20 3d 3e 22 2c |Y axis (|%f) =>",|
|00004310| 20 31 2e 30 30 2c 20 79 | 63 0d 0a 69 66 20 28 40 | 1.00, y|c..if (@|
|00004320| 6b 65 79 20 3d 3d 20 2d | 33 29 0d 0a ee 20 08 65 |key == -|3)... .e|
|00004330| 78 69 74 0d 0a 69 66 20 | 28 40 6b 65 79 20 3d 3d |xit..if |(@key ==|
|00004340| 20 2d 32 29 0d 0a ee 20 | 08 67 6f 74 6f 20 76 61 | -2)... |.goto va|
|00004350| 6c 75 65 73 32 0d 0a 69 | 66 20 28 61 62 73 28 79 |lues2..i|f (abs(y|
|00004360| 63 29 20 3e 20 30 2e ee | 30 04 31 29 0d 0a ee 20 |c) > 0..|0.1)... |
|00004370| 08 67 6f 74 6f 20 7a 5f | 76 61 6c 32 0d 0a 70 61 |.goto z_|val2..pa|
|00004380| 75 73 65 20 22 49 6e 76 | 61 6c 69 64 20 6c 65 6e |use "Inv|alid len|
|00004390| 67 74 68 20 ee 2e 03 20 | 28 50 72 65 73 73 20 52 |gth ... |(Press R|
|000043a0| 45 54 55 52 4e 29 22 0d | 0a 67 6f 74 6f 20 79 5f |ETURN)".|.goto y_|
|000043b0| 76 61 6c 32 20 0d 0a 0d | 0a 3a 7a 5f 76 61 6c 32 |val2 ...|.:z_val2|
|000043c0| 0d 0a 67 65 74 66 6c 74 | 20 22 4c 65 6e 67 74 68 |..getflt| "Length|
|000043d0| 20 61 6c 6f 6e 67 20 5a | 20 61 78 69 73 20 28 25 | along Z| axis (%|
|000043e0| 66 29 20 3d 3e 22 2c 20 | 31 2e 30 30 2c 20 7a 63 |f) =>", |1.00, zc|
|000043f0| 0d 0a 69 66 20 28 40 6b | 65 79 20 3d 3d 20 2d 33 |..if (@k|ey == -3|
|00004400| 29 0d 0a ee 20 08 65 78 | 69 74 0d 0a 69 66 20 28 |)... .ex|it..if (|
|00004410| 40 6b 65 79 20 3d 3d 20 | 2d 32 29 0d 0a ee 20 08 |@key == |-2)... .|
|00004420| 67 6f 74 6f 20 79 5f 76 | 61 6c 32 0d 0a 69 66 20 |goto y_v|al2..if |
|00004430| 28 61 62 73 28 7a 63 29 | 20 3e 20 30 2e ee 30 04 |(abs(zc)| > 0..0.|
|00004440| 31 29 0d 0a ee 20 08 67 | 6f 74 6f 20 69 6e 73 65 |1)... .g|oto inse|
|00004450| 72 74 32 0d 0a 70 61 75 | 73 65 20 22 49 6e 76 61 |rt2..pau|se "Inva|
|00004460| 6c 69 64 20 6c 65 6e 67 | 74 68 20 ee 2e 03 20 28 |lid leng|th ... (|
|00004470| 50 72 65 73 73 20 52 45 | 54 55 52 4e 29 22 0d 0a |Press RE|TURN)"..|
|00004480| 67 6f 74 6f 20 7a 5f 76 | 61 6c 32 0d 0a 0d 0a 3a |goto z_v|al2....:|
|00004490| 69 6e 73 65 72 74 32 0d | 0a 52 45 4d 20 44 65 66 |insert2.|.REM Def|
|000044a0| 69 6e 65 64 20 56 69 65 | 77 20 6f 72 69 67 69 6e |ined Vie|w origin|
|000044b0| 20 70 6f 69 6e 74 20 63 | 6f 6f 72 64 69 6e 61 74 | point c|oordinat|
|000044c0| 65 73 20 61 72 65 20 72 | 65 61 64 20 62 79 20 74 |es are r|ead by t|
|000044d0| 72 61 6e 66 6f 72 6d 61 | 74 69 6f 6e 2e 0d 0a 0d |ranforma|tion....|
|000044e0| 0a 67 65 74 70 6f 73 20 | 22 49 6e 64 69 63 61 74 |.getpos |"Indicat|
|000044f0| 65 20 63 6f 72 6e 65 72 | 20 70 6f 69 6e 74 22 2c |e corner| point",|
|00004500| 20 64 65 66 0d 0a 69 66 | 20 28 40 6b 65 79 20 3d | def..if| (@key =|
|00004510| 3d 20 2d 31 29 0d 0a ee | 20 08 67 6f 74 6f 20 69 |= -1)...| .goto i|
|00004520| 6e 73 65 72 74 32 0d 0a | 63 61 6c 6c 20 78 66 6d |nsert2..|call xfm|
|00004530| 77 76 2c 20 76 6d 61 74 | 2c 20 40 78 77 6f 72 6c |wv, vmat|, @xworl|
|00004540| 64 2c 20 40 79 77 6f 72 | 6c 64 2c 20 40 7a 77 6f |d, @ywor|ld, @zwo|
|00004550| 72 6c 64 2c 20 78 31 2c | 20 79 31 2c 20 7a 31 0d |rld, x1,| y1, z1.|
|00004560| 0a 0d 0a 69 66 20 28 40 | 6b 65 79 20 3d 3d 20 2d |...if (@|key == -|
|00004570| 33 29 0d 0a ee 20 08 65 | 78 69 74 0d 0a 69 66 20 |3)... .e|xit..if |
|00004580| 28 40 6b 65 79 20 3d 3d | 20 2d 32 29 0d 0a ee 20 |(@key ==| -2)... |
|00004590| 08 67 6f 74 6f 20 7a 5f | 76 61 6c 32 0d 0a 0d 0a |.goto z_|val2....|
|000045a0| 52 45 4d 20 41 66 74 65 | 72 20 74 68 65 20 74 68 |REM Afte|r the th|
|000045b0| 72 65 65 20 6c 65 6e 67 | 74 68 73 20 61 6e 64 20 |ree leng|ths and |
|000045c0| 74 68 65 20 6f 72 69 67 | 69 6e 20 70 6f 69 6e 74 |the orig|in point|
|000045d0| 20 68 61 76 65 20 62 65 | 65 6e 20 65 6e 74 65 72 | have be|en enter|
|000045e0| 65 64 2c 20 73 65 74 20 | 74 68 65 0d 0a 52 45 4d |ed, set |the..REM|
|000045f0| 20 72 65 74 75 72 6e 20 | 66 6c 61 67 20 74 6f 20 | return |flag to |
|00004600| 63 6f 6d 70 75 74 65 20 | 74 68 65 20 72 65 74 75 |compute |the retu|
|00004610| 72 6e 20 61 72 65 61 20 | 61 6e 64 20 67 6f 74 6f |rn area |and goto|
|00004620| 20 74 68 65 20 62 6c 6f | 63 6b 20 64 72 61 77 69 | the blo|ck drawi|
|00004630| 6e 67 20 70 61 72 74 2e | 0d 0a 0d 0a 72 65 74 5f |ng part.|....ret_|
|00004640| 66 6c 61 67 20 3d 20 33 | 0d 0a 0d 0a 3a 63 61 6c |flag = 3|....:cal|
|00004650| 63 0d 0a 52 45 4d 20 49 | 6e 63 72 65 6d 65 6e 74 |c..REM I|ncrement|
|00004660| 20 74 68 65 20 74 6f 74 | 61 6c 20 67 72 6f 75 70 | the tot|al group|
|00004670| 20 6e 75 6d 62 65 72 20 | 61 6e 64 20 63 68 65 63 | number |and chec|
|00004680| 6b 20 66 6f 72 20 6f 76 | 65 72 66 6c 6f 77 0d 0a |k for ov|erflow..|
|00004690| 0d 0a 70 74 6f 74 20 3d | 20 70 74 6f 74 20 2b 20 |..ptot =| ptot + |
|000046a0| 31 0d 0a 49 46 20 28 70 | 74 6f 74 20 3e 20 31 32 |1..IF (p|tot > 12|
|000046b0| 38 29 0d 0a 09 67 6f 74 | 6f 20 6f 76 65 72 66 6c |8)...got|o overfl|
|000046c0| 6f 77 0d 0a 0d 0a 52 45 | 4d 20 4e 61 6d 65 20 61 |ow....RE|M Name a|
|000046d0| 6e 64 20 6d 61 6b 65 20 | 74 68 65 20 67 72 6f 75 |nd make |the grou|
|000046e0| 70 2e 0d 0a 0d 0a 73 70 | 72 69 6e 74 20 24 67 72 |p.....sp|rint $gr|
|000046f0| 70 2c 20 22 5f 62 6c 6b | 25 64 22 2c 20 70 74 6f |p, "_blk|%d", pto|
|00004700| 74 0d 0a 67 72 6f 75 70 | 20 24 67 72 70 2c 20 70 |t..group| $grp, p|
|00004710| 74 6f 74 2c 20 31 0d 0a | 0d 0a 69 66 20 28 76 77 |tot, 1..|..if (vw|
|00004720| 77 6c 64 20 3d 3d 20 30 | 29 0d 0a ee 20 08 67 6f |wld == 0|)... .go|
|00004730| 74 6f 20 64 72 61 77 5f | 76 69 65 77 0d 0a 0d 0a |to draw_|view....|
|00004740| 3a 64 72 61 77 5f 77 6c | 64 0d 0a 6c 69 6e 65 20 |:draw_wl|d..line |
|00004750| 78 31 2c 20 79 31 2c 20 | 7a 31 2c 20 78 31 2b 78 |x1, y1, |z1, x1+x|
|00004760| 63 2c 20 79 31 2c 20 7a | 31 ee 2c 04 20 70 74 6f |c, y1, z|1.,. pto|
|00004770| 74 2c 20 31 0d 0a 6c 69 | 6e 65 20 78 31 2b 78 63 |t, 1..li|ne x1+xc|
|00004780| 2c 20 79 31 2c 20 7a 31 | 2c 20 78 31 2b 78 63 2c |, y1, z1|, x1+xc,|
|00004790| 20 79 31 2b 79 63 2c 20 | 7a 31 ee 2c 04 20 70 74 | y1+yc, |z1.,. pt|
|000047a0| 6f 74 2c 20 31 0d 0a 6c | 69 6e 65 20 78 31 2b 78 |ot, 1..l|ine x1+x|
|000047b0| 63 2c 20 79 31 2b 79 63 | 2c 20 7a 31 2c 20 78 31 |c, y1+yc|, z1, x1|
|000047c0| 2c 20 79 31 2b 79 63 2c | 20 7a 31 ee 2c 04 20 70 |, y1+yc,| z1.,. p|
|000047d0| 74 6f 74 2c 20 31 0d 0a | 6c 69 6e 65 20 78 31 2c |tot, 1..|line x1,|
|000047e0| 20 79 31 2b 79 63 2c 20 | 7a 31 2c 20 78 31 2c 20 | y1+yc, |z1, x1, |
|000047f0| 79 31 2c 20 7a 31 ee 2c | 04 20 70 74 6f 74 2c 20 |y1, z1.,|. ptot, |
|00004800| 31 0d 0a 0d 0a 6c 69 6e | 65 20 78 31 2c 20 79 31 |1....lin|e x1, y1|
|00004810| 2c 20 7a 31 2c 20 78 31 | 2c 20 79 31 2c 20 7a 31 |, z1, x1|, y1, z1|
|00004820| 2b 7a 63 ee 2c 04 20 70 | 74 6f 74 2c 20 31 0d 0a |+zc.,. p|tot, 1..|
|00004830| 6c 69 6e 65 20 78 31 2b | 78 63 2c 20 79 31 2c 20 |line x1+|xc, y1, |
|00004840| 7a 31 2c 20 78 31 2b 78 | 63 2c 20 79 31 2c 20 7a |z1, x1+x|c, y1, z|
|00004850| 31 2b 7a 63 ee 2c 04 20 | 70 74 6f 74 2c 20 31 0d |1+zc.,. |ptot, 1.|
|00004860| 0a 6c 69 6e 65 20 78 31 | 2b 78 63 2c 20 79 31 2b |.line x1|+xc, y1+|
|00004870| 79 63 2c 20 7a 31 2c 20 | 78 31 2b 78 63 2c 20 79 |yc, z1, |x1+xc, y|
|00004880| 31 2b 79 63 2c 20 7a 31 | 2b 7a 63 ee 2c 04 20 70 |1+yc, z1|+zc.,. p|
|00004890| 74 6f 74 2c 20 31 0d 0a | 6c 69 6e 65 20 78 31 2c |tot, 1..|line x1,|
|000048a0| 20 79 31 2b 79 63 2c 20 | 7a 31 2c 20 78 31 2c 20 | y1+yc, |z1, x1, |
|000048b0| 79 31 2b 79 63 2c 20 7a | 31 2b 7a 63 ee 2c 04 20 |y1+yc, z|1+zc.,. |
|000048c0| 70 74 6f 74 2c 20 31 0d | 0a 0d 0a 6c 69 6e 65 20 |ptot, 1.|...line |
|000048d0| 78 31 2c 20 79 31 2c 20 | 7a 31 2b 7a 63 2c 20 78 |x1, y1, |z1+zc, x|
|000048e0| 31 2b 78 63 2c 20 79 31 | 2c 20 7a 31 2b 7a 63 ee |1+xc, y1|, z1+zc.|
|000048f0| 2c 04 20 70 74 6f 74 2c | 20 31 0d 0a 6c 69 6e 65 |,. ptot,| 1..line|
|00004900| 20 78 31 2b 78 63 2c 20 | 79 31 2c 20 7a 31 2b 7a | x1+xc, |y1, z1+z|
|00004910| 63 2c 20 78 31 2b 78 63 | 2c 20 79 31 2b 79 63 2c |c, x1+xc|, y1+yc,|
|00004920| 20 7a 31 2b 7a 63 ee 2c | 04 20 70 74 6f 74 2c 20 | z1+zc.,|. ptot, |
|00004930| 31 0d 0a 6c 69 6e 65 20 | 78 31 2b 78 63 2c 20 79 |1..line |x1+xc, y|
|00004940| 31 2b 79 63 2c 20 7a 31 | 2b 7a 63 2c 20 78 31 2c |1+yc, z1|+zc, x1,|
|00004950| 20 79 31 2b 79 63 2c 20 | 7a 31 2b 7a 63 ee 2c 04 | y1+yc, |z1+zc.,.|
|00004960| 20 70 74 6f 74 2c 20 31 | 0d 0a 6c 69 6e 65 20 78 | ptot, 1|..line x|
|00004970| 31 2c 20 79 31 2b 79 63 | 2c 20 7a 31 2b 7a 63 2c |1, y1+yc|, z1+zc,|
|00004980| 20 78 31 2c 20 79 31 2c | 20 7a 31 2b 7a 63 ee 2c | x1, y1,| z1+zc.,|
|00004990| 04 20 70 74 6f 74 2c 20 | 31 0d 0a 67 6f 74 6f 20 |. ptot, |1..goto |
|000049a0| 72 65 74 75 72 6e 0d 0a | 0d 0a 3a 64 72 61 77 5f |return..|..:draw_|
|000049b0| 76 69 65 77 0d 0a 76 6c | 69 6e 65 20 78 31 2c 20 |view..vl|ine x1, |
|000049c0| 79 31 2c 20 7a 31 2c 20 | 78 31 2b 78 63 2c 20 79 |y1, z1, |x1+xc, y|
|000049d0| 31 2c 20 7a 31 2c 20 76 | 6e 75 6d ee 2c 04 20 70 |1, z1, v|num.,. p|
|000049e0| 74 6f 74 2c 20 31 0d 0a | 76 6c 69 6e 65 20 78 31 |tot, 1..|vline x1|
|000049f0| 2b 78 63 2c 20 79 31 2c | 20 7a 31 2c 20 78 31 2b |+xc, y1,| z1, x1+|
|00004a00| 78 63 2c 20 79 31 2b 79 | 63 2c 20 7a 31 2c 20 76 |xc, y1+y|c, z1, v|
|00004a10| 6e 75 6d ee 2c 04 20 70 | 74 6f 74 2c 20 31 0d 0a |num.,. p|tot, 1..|
|00004a20| 76 6c 69 6e 65 20 78 31 | 2b 78 63 2c 20 79 31 2b |vline x1|+xc, y1+|
|00004a30| 79 63 2c 20 7a 31 2c 20 | 78 31 2c 20 79 31 2b 79 |yc, z1, |x1, y1+y|
|00004a40| 63 2c 20 7a 31 2c 20 76 | 6e 75 6d ee 2c 04 20 70 |c, z1, v|num.,. p|
|00004a50| 74 6f 74 2c 20 31 0d 0a | 76 6c 69 6e 65 20 78 31 |tot, 1..|vline x1|
|00004a60| 2c 20 79 31 2b 79 63 2c | 20 7a 31 2c 20 78 31 2c |, y1+yc,| z1, x1,|
|00004a70| 20 79 31 2c 20 7a 31 2c | 20 76 6e 75 6d ee 2c 04 | y1, z1,| vnum.,.|
|00004a80| 20 70 74 6f 74 2c 20 31 | 0d 0a 0d 0a 76 6c 69 6e | ptot, 1|....vlin|
|00004a90| 65 20 78 31 2c 20 79 31 | 2c 20 7a 31 2c 20 78 31 |e x1, y1|, z1, x1|
|00004aa0| 2c 20 79 31 2c 20 7a 31 | 2b 7a 63 2c 20 76 6e 75 |, y1, z1|+zc, vnu|
|00004ab0| 6d ee 2c 04 20 70 74 6f | 74 2c 20 31 0d 0a 76 6c |m.,. pto|t, 1..vl|
|00004ac0| 69 6e 65 20 78 31 2b 78 | 63 2c 20 79 31 2c 20 7a |ine x1+x|c, y1, z|
|00004ad0| 31 2c 20 78 31 2b 78 63 | 2c 20 79 31 2c 20 7a 31 |1, x1+xc|, y1, z1|
|00004ae0| 2b 7a 63 2c 20 76 6e 75 | 6d ee 2c 04 20 70 74 6f |+zc, vnu|m.,. pto|
|00004af0| 74 2c 20 31 0d 0a 76 6c | 69 6e 65 20 78 31 2b 78 |t, 1..vl|ine x1+x|
|00004b00| 63 2c 20 79 31 2b 79 63 | 2c 20 7a 31 2c 20 78 31 |c, y1+yc|, z1, x1|
|00004b10| 2b 78 63 2c 20 79 31 2b | 79 63 2c 20 7a 31 2b 7a |+xc, y1+|yc, z1+z|
|00004b20| 63 2c 20 76 6e 75 6d ee | 2c 04 20 70 74 6f 74 2c |c, vnum.|,. ptot,|
|00004b30| 20 31 0d 0a 76 6c 69 6e | 65 20 78 31 2c 20 79 31 | 1..vlin|e x1, y1|
|00004b40| 2b 79 63 2c 20 7a 31 2c | 20 78 31 2c 20 79 31 2b |+yc, z1,| x1, y1+|
|00004b50| 79 63 2c 20 7a 31 2b 7a | 63 2c 20 76 6e 75 6d ee |yc, z1+z|c, vnum.|
|00004b60| 2c 04 20 70 74 6f 74 2c | 20 31 0d 0a 0d 0a 76 6c |,. ptot,| 1....vl|
|00004b70| 69 6e 65 20 78 31 2c 20 | 79 31 2c 20 7a 31 2b 7a |ine x1, |y1, z1+z|
|00004b80| 63 2c 20 78 31 2b 78 63 | 2c 20 79 31 2c 20 7a 31 |c, x1+xc|, y1, z1|
|00004b90| 2b 7a 63 2c 20 76 6e 75 | 6d ee 2c 04 20 70 74 6f |+zc, vnu|m.,. pto|
|00004ba0| 74 2c 20 31 0d 0a 76 6c | 69 6e 65 20 78 31 2b 78 |t, 1..vl|ine x1+x|
|00004bb0| 63 2c 20 79 31 2c 20 7a | 31 2b 7a 63 2c 20 78 31 |c, y1, z|1+zc, x1|
|00004bc0| 2b 78 63 2c 20 79 31 2b | 79 63 2c 20 7a 31 2b 7a |+xc, y1+|yc, z1+z|
|00004bd0| 63 2c 20 76 6e 75 6d ee | 2c 04 20 70 74 6f 74 2c |c, vnum.|,. ptot,|
|00004be0| 20 31 0d 0a 76 6c 69 6e | 65 20 78 31 2b 78 63 2c | 1..vlin|e x1+xc,|
|00004bf0| 20 79 31 2b 79 63 2c 20 | 7a 31 2b 7a 63 2c 20 78 | y1+yc, |z1+zc, x|
|00004c00| 31 2c 20 79 31 2b 79 63 | 2c 20 7a 31 2b 7a 63 2c |1, y1+yc|, z1+zc,|
|00004c10| 20 76 6e 75 6d ee 2c 04 | 20 70 74 6f 74 2c 20 31 | vnum.,.| ptot, 1|
|00004c20| 0d 0a 76 6c 69 6e 65 20 | 78 31 2c 20 79 31 2b 79 |..vline |x1, y1+y|
|00004c30| 63 2c 20 7a 31 2b 7a 63 | 2c 20 78 31 2c 20 79 31 |c, z1+zc|, x1, y1|
|00004c40| 2c 20 7a 31 2b 7a 63 2c | 20 76 6e 75 6d ee 2c 04 |, z1+zc,| vnum.,.|
|00004c50| 20 70 74 6f 74 2c 20 31 | 0d 0a 0d 0a 3a 72 65 74 | ptot, 1|....:ret|
|00004c60| 75 72 6e 0d 0a 0d 0a 52 | 45 4d 20 41 66 74 65 72 |urn....R|EM After|
|00004c70| 20 64 72 61 77 69 6e 67 | 20 74 68 65 20 62 6c 6f | drawing| the blo|
|00004c80| 63 6b 2c 20 72 65 74 75 | 72 6e 20 74 6f 20 74 68 |ck, retu|rn to th|
|00004c90| 65 20 61 70 70 72 6f 70 | 72 69 61 74 65 20 70 61 |e approp|riate pa|
|00004ca0| 72 74 0d 0a 20 0d 0a 6f | 6e 20 28 72 65 74 5f 66 |rt.. ..o|n (ret_f|
|00004cb0| 6c 61 67 29 20 67 6f 74 | 6f 20 76 69 65 77 5f 31 |lag) got|o view_1|
|00004cc0| 2c 20 69 6e 73 65 72 74 | 2c 20 70 6f 73 5f 31 2c |, insert|, pos_1,|
|00004cd0| 20 69 6e 73 65 72 74 32 | 0d 0a 0d 0a 3a 65 78 69 | insert2|....:exi|
|00004ce0| 74 0d 0a 65 78 69 74 0d | 0a 0d 0a 3a 6f 76 65 72 |t..exit.|...:over|
|00004cf0| 66 6c 6f 77 0d 0a 70 61 | 75 73 65 20 22 47 72 6f |flow..pa|use "Gro|
|00004d00| 75 70 20 6f 76 65 72 66 | 6c 6f 77 20 ee 2e 03 20 |up overf|low ... |
|00004d10| 41 62 6e 6f 72 6d 61 6c | 20 74 65 72 6d 69 6e 61 |Abnormal| termina|
|00004d20| 74 69 6f 6e 22 0d 0a 61 | 62 6f 72 74 0d 0a 0d 0a |tion"..a|bort....|
|00004d30| 44 59 44 5a 44 5b 44 5c | 44 5d 44 5e 44 5f 44 60 |DYDZD[D\|D]D^D_D`|
|00004d40| 44 61 44 62 44 63 44 64 | 44 65 44 66 44 67 44 68 |DaDbDcDd|DeDfDgDh|
|00004d50| 44 69 44 6a 44 6b 44 6c | 44 6d 44 6e 44 6f 44 70 |DiDjDkDl|DmDnDoDp|
|00004d60| 44 71 44 72 44 73 44 74 | 44 75 44 76 44 77 44 78 |DqDrDsDt|DuDvDwDx|
|00004d70| 44 79 44 7a 44 7b 44 7c | 44 7d 44 7e 44 7f 44 80 |DyDzD{D||D}D~D.D.|
|00004d80| 44 81 44 82 44 83 44 84 | 44 85 44 86 44 87 44 88 |D.D.D.D.|D.D.D.D.|
|00004d90| 44 89 44 8a 44 8b 44 8c | 44 8d 44 8e 44 8f 44 90 |D.D.D.D.|D.D.D.D.|
|00004da0| 44 91 44 92 44 93 44 94 | 44 95 44 96 44 97 44 98 |D.D.D.D.|D.D.D.D.|
|00004db0| 44 99 44 9a 44 9b 44 9c | 44 9d 44 9e 44 9f 44 a0 |D.D.D.D.|D.D.D.D.|
|00004dc0| 44 a1 44 a2 44 a3 44 a4 | 44 a5 44 a6 44 a7 44 a8 |D.D.D.D.|D.D.D.D.|
|00004dd0| 44 a9 44 aa 44 ab 44 ac | 44 ad 44 ae 44 af 44 b0 |D.D.D.D.|D.D.D.D.|
|00004de0| 44 b1 44 b2 44 b3 44 b4 | 44 b5 44 b6 44 b7 44 b8 |D.D.D.D.|D.D.D.D.|
|00004df0| 44 b9 44 ba 44 bb 44 bc | 44 bd 44 be 44 bf 44 c0 |D.D.D.D.|D.D.D.D.|
|00004e00| 44 c1 44 c2 44 c3 44 c4 | 44 c5 44 c6 44 c7 44 c8 |D.D.D.D.|D.D.D.D.|
|00004e10| 44 c9 44 ca 44 cb 44 cc | 44 cd 44 ce 44 cf 44 d0 |D.D.D.D.|D.D.D.D.|
|00004e20| 44 d1 44 d2 44 d3 44 d4 | 44 d5 44 d6 44 d7 44 d8 |D.D.D.D.|D.D.D.D.|
|00004e30| 44 d9 44 da 44 db 44 dc | 44 dd 44 de 44 df 44 ff |D.D.D.D.|D.D.D.D.|
|00004e40| ff ee 00 40 52 45 4d 20 | 40 28 23 29 43 41 44 4b |...@REM |@(#)CADK|
|00004e50| 45 59 20 53 4f 4c 49 44 | 53 09 63 6b 73 2e 62 61 |EY SOLID|S.cks.ba|
|00004e60| 74 09 31 2e 30 32 09 31 | 30 2f 32 38 2f 38 38 0d |t.1.02.1|0/28/88.|
|00004e70| 0a 65 63 68 6f 20 6f 66 | 66 0d 0a 63 73 20 2d 6e |.echo of|f..cs -n|
|00004e80| 20 2d 69 20 69 73 6f 6c | 69 64 20 2d 6f 20 68 73 | -i isol|id -o hs|
|00004e90| 6f 6c 69 64 20 2d 70 20 | 70 73 6f 6c 69 64 20 2d |olid -p |psolid -|
|00004ea0| 61 20 73 6f 6c 2e 61 6e | 69 20 2d 73 20 73 73 6f |a sol.an|i -s sso|
|00004eb0| 6c 69 64 0d 0a 63 61 64 | 6b 65 79 0d 0a 37 3e 37 |lid..cad|key..7>7|
|00004ec0| 3f 37 40 37 41 37 42 37 | 43 37 44 37 45 37 46 37 |?7@7A7B7|C7D7E7F7|
|00004ed0| 47 37 48 37 49 37 4a 37 | 4b 37 4c 37 4d 37 4e 37 |G7H7I7J7|K7L7M7N7|
|00004ee0| 4f 37 50 37 51 37 52 37 | 53 37 54 37 55 37 56 37 |O7P7Q7R7|S7T7U7V7|
|00004ef0| 57 37 58 37 ff ff 5a 37 | 5b 37 5c 37 5d 37 5e 37 |W7X7..Z7|[7\7]7^7|
|00004f00| 5f 37 ff ff 61 37 62 37 | 63 37 64 37 65 37 66 37 |_7..a7b7|c7d7e7f7|
|00004f10| 67 37 68 37 69 37 6a 37 | 6b 37 6c 37 6d 37 6e 37 |g7h7i7j7|k7l7m7n7|
|00004f20| 6f 37 70 37 71 37 72 37 | 73 37 74 37 75 37 ff ff |o7p7q7r7|s7t7u7..|
|00004f30| 77 37 78 37 79 37 7a 37 | 7b 37 7c 37 7d 37 7e 37 |w7x7y7z7|{7|7}7~7|
|00004f40| 7f 37 80 37 81 37 82 37 | 83 37 84 37 85 37 86 37 |.7.7.7.7|.7.7.7.7|
|00004f50| 87 37 88 37 89 37 8a 37 | 8b 37 8c 37 8d 37 8e 37 |.7.7.7.7|.7.7.7.7|
|00004f60| ff ff 90 37 91 37 92 37 | 93 37 94 37 95 37 ff ff |...7.7.7|.7.7.7..|
|00004f70| 97 37 98 37 99 37 9a 37 | 9b 37 ff ff 9d 37 9e 37 |.7.7.7.7|.7...7.7|
|00004f80| 9f 37 a0 37 a1 37 a2 37 | a3 37 a4 37 a5 37 a6 37 |.7.7.7.7|.7.7.7.7|
|00004f90| a7 37 a8 37 a9 37 aa 37 | ab 37 ac 37 ad 37 ae 37 |.7.7.7.7|.7.7.7.7|
|00004fa0| af 37 b0 37 b1 37 b2 37 | b3 37 ff ff b5 37 b6 37 |.7.7.7.7|.7...7.7|
|00004fb0| b7 37 b8 37 b9 37 ba 37 | bb 37 bc 37 bd 37 be 37 |.7.7.7.7|.7.7.7.7|
|00004fc0| bf 37 ff ff c1 37 c2 37 | c3 37 c4 37 c5 37 c6 37 |.7...7.7|.7.7.7.7|
|00004fd0| c7 37 c8 37 c9 37 ca 37 | cb 37 cc 37 cd 37 ce 37 |.7.7.7.7|.7.7.7.7|
|00004fe0| cf 37 d0 37 d1 37 d2 37 | d3 37 d4 37 ee ff 04 d7 |.7.7.7.7|.7.7....|
|00004ff0| 37 d8 37 d9 37 da 37 db | 37 dc 37 dd 37 de 37 df |7.7.7.7.|7.7.7.7.|
|00005000| 37 e0 37 e1 37 ff ff e3 | 37 e4 37 e5 37 e6 37 e7 |7.7.7...|7.7.7.7.|
|00005010| 37 e8 37 ff ff ea 37 eb | 37 ec 37 ee ff 04 ef 37 |7.7...7.|7.7....7|
|00005020| f0 37 f1 37 f2 37 f3 37 | f4 37 f5 37 f6 37 f7 37 |.7.7.7.7|.7.7.7.7|
|00005030| f8 37 f9 37 fa 37 fb 37 | fc 37 fd 37 fe 37 ff 37 |.7.7.7.7|.7.7.7.7|
|00005040| 00 38 52 45 4d 20 20 40 | 28 23 29 43 41 44 4b 45 |.8REM  @|(#)CADKE|
|00005050| 59 20 53 4f 4c 49 44 53 | 09 63 6f 6c 6f 72 2e 63 |Y SOLIDS|.color.c|
|00005060| 64 6c 09 32 2e 34 09 31 | 30 2f 33 31 2f 38 38 0d |dl.2.4.1|0/31/88.|
|00005070| 0a 52 45 4d 20 20 40 28 | 23 29 53 4f 4c 49 44 53 |.REM  @(|#)SOLIDS|
|00005080| 20 53 59 4e 54 48 45 53 | 49 53 09 63 6f 6c 6f 72 | SYNTHES|IS.color|
|00005090| 2e 63 64 6c 09 33 2e 30 | 32 09 31 2f 32 35 2f 38 |.cdl.3.0|2.1/25/8|
|000050a0| 38 0d 0a 0d 0a 52 45 4d | 20 22 20 50 72 6f 67 72 |8....REM| " Progr|
|000050b0| 61 6d 20 74 6f 20 64 79 | 6e 61 6d 69 63 61 6c 6c |am to dy|namicall|
|000050c0| 79 20 63 68 61 6e 67 65 | 20 74 68 65 20 63 6f 6c |y change| the col|
|000050d0| 6f 72 20 70 61 6c 65 74 | 74 65 20 66 6f 72 20 43 |or palet|te for C|
|000050e0| 41 44 4b 45 59 20 53 4f | 4c 49 44 53 22 0d 0a 52 |ADKEY SO|LIDS"..R|
|000050f0| 45 4d 20 22 20 52 2e 48 | 2e 20 4c 61 52 6f 63 68 |EM " R.H|. LaRoch|
|00005100| 65 6c 6c 65 20 31 31 2d | 31 39 2d 38 37 20 22 0d |elle 11-|19-87 ".|
|00005110| 0a 61 72 72 61 79 20 63 | 6f 6c 6f 72 73 5b 33 5d |.array c|olors[3]|
|00005120| 5b 31 5d 0d 0a 69 66 20 | 28 20 73 69 7a 65 6f 66 |[1]..if |( sizeof|
|00005130| 28 63 6f 6c 72 61 6e 29 | 20 21 3d 20 30 20 29 20 |(colran)| != 0 ) |
|00005140| 0d 0a 67 6f 74 6f 20 64 | 65 66 69 6e 65 64 0d 0a |..goto d|efined..|
|00005150| 61 72 72 61 79 20 63 6f | 6c 72 61 6e 5b 39 5d 5b |array co|lran[9][|
|00005160| 36 5d 20 3d 20 7b 20 5c | 0d 0a 20 31 2c 20 32 2c |6] = { \|.. 1, 2,|
|00005170| 20 31 35 2c ee 20 04 31 | 2e 30 2c 20 31 2e 30 2c | 15,. .1|.0, 1.0,|
|00005180| 20 31 2e 30 2c 20 5c 0d | 0a 20 31 2c 20 31 36 2c | 1.0, \.|. 1, 16,|
|00005190| 20 35 35 2c ee 20 03 31 | 2e 30 2c 20 30 2e 30 2c | 55,. .1|.0, 0.0,|
|000051a0| 20 30 2e 30 2c 20 5c 0d | 0a 20 32 2c 20 35 36 2c | 0.0, \.|. 2, 56,|
|000051b0| 20 39 35 2c ee 20 03 30 | 2e 30 2c 20 31 2e 30 2c | 95,. .0|.0, 1.0,|
|000051c0| 20 30 2e 30 2c 20 5c 0d | 0a 20 33 2c 20 39 36 2c | 0.0, \.|. 3, 96,|
|000051d0| 20 31 33 35 20 2c 20 30 | 2e 30 2c 20 30 2e 30 2c | 135 , 0|.0, 0.0,|
|000051e0| 20 31 2e 30 2c 5c 0d 0a | 20 34 2c 20 31 33 36 2c | 1.0,\..| 4, 136,|
|000051f0| 20 31 37 35 2c 20 30 2e | 30 2c 20 31 2e 30 2c 20 | 175, 0.|0, 1.0, |
|00005200| 31 2e 30 2c 5c 0d 0a 20 | 35 2c 20 31 37 36 2c 20 |1.0,\.. |5, 176, |
|00005210| 32 31 35 2c 20 31 2e 30 | 2c 20 30 2e 30 2c 20 31 |215, 1.0|, 0.0, 1|
|00005220| 2e 30 2c 5c 0d 0a 20 36 | 2c 20 32 31 36 2c 20 32 |.0,\.. 6|, 216, 2|
|00005230| 35 35 2c 20 31 2e 30 2c | 20 31 2e 30 2c 20 30 2e |55, 1.0,| 1.0, 0.|
|00005240| 30 2c 20 5c 0d 0a 20 37 | 2c 20 31 2c 20 31 35 2c |0, \.. 7|, 1, 15,|
|00005250| ee 20 04 31 2e 30 2c 20 | 31 2e 30 2c 20 31 2e 30 |. .1.0, |1.0, 1.0|
|00005260| 2c 5c 0d 0a 20 38 2c 20 | 31 2c 20 31 35 2c ee 20 |,\.. 8, |1, 15,. |
|00005270| 04 31 2e 30 2c 20 30 2e | 30 2c 20 30 2e 30 ee 20 |.1.0, 0.|0, 0.0. |
|00005280| 05 7d 0d 0a 3a 64 65 66 | 69 6e 65 64 0d 0a 61 72 |.}..:def|ined..ar|
|00005290| 72 61 79 20 72 67 62 63 | 6f 6c 20 5b 37 5d 5b 33 |ray rgbc|ol [7][3|
|000052a0| 5d 20 3d 20 7b 20 5c 0d | 0a 31 2c 30 2c 30 2c 20 |] = { \.|.1,0,0, |
|000052b0| 5c 0d 0a 30 2c 31 2c 30 | 2c 20 5c 0d 0a 30 2c 30 |\..0,1,0|, \..0,0|
|000052c0| 2c 31 2c 20 5c 0d 0a 30 | 2c 31 2c 31 2c 20 5c 0d |,1, \..0|,1,1, \.|
|000052d0| 0a 31 2c 30 2c 31 2c 20 | 5c 0d 0a 31 2c 31 2c 30 |.1,0,1, |\..1,1,0|
|000052e0| 2c 20 5c 0d 0a 31 2c 31 | 2c 31 20 7d 0d 0a 70 61 |, \..1,1|,1 }..pa|
|000052f0| 6c 6e 75 6d 20 3d 20 30 | 0d 0a 62 67 72 65 64 20 |lnum = 0|..bgred |
|00005300| 3d 20 30 2e 30 0d 0a 62 | 67 67 72 65 65 6e 20 3d |= 0.0..b|ggreen =|
|00005310| 20 30 2e 30 0d 0a 62 67 | 62 6c 75 65 20 3d 20 30 | 0.0..bg|blue = 0|
|00005320| 2e 30 0d 0a 69 6e 63 20 | 3d 20 2e 31 0d 0a 69 6e |.0..inc |= .1..in|
|00005330| 63 5f 69 6e 74 65 6e 73 | 20 3d 20 30 2e 30 35 0d |c_intens| = 0.05.|
|00005340| 0a 66 72 6f 6d 5f 63 6c | 61 73 73 20 3d 20 30 0d |.from_cl|ass = 0.|
|00005350| 0a 69 6e 64 63 6c 20 3d | 20 31 0d 0a ee 20 03 6f |.indcl =| 1... .o|
|00005360| 6c 63 6f 6c 20 3d 20 63 | 6f 6c 72 61 6e 5b 69 6e |lcol = c|olran[in|
|00005370| 64 63 6c 5d 5b 30 5d 20 | 0d 0a ee 20 03 73 74 63 |dcl][0] |... .stc|
|00005380| 6f 6c 20 3d 20 63 6f 6c | 72 61 6e 5b 69 6e 64 63 |ol = col|ran[indc|
|00005390| 6c 5d 5b 31 5d 0d 0a ee | 20 03 65 6e 64 63 6f 6c |l][1]...| .endcol|
|000053a0| 20 3d 20 63 6f 6c 72 61 | 6e 5b 69 6e 64 63 6c 5d | = colra|n[indcl]|
|000053b0| 5b 32 5d 0d 0a ee 20 03 | 72 65 64 ee 20 03 3d 20 |[2]... .|red. .= |
|000053c0| 63 6f 6c 72 61 6e 5b 69 | 6e 64 63 6c 5d 5b 33 5d |colran[i|ndcl][3]|
|000053d0| 0d 0a ee 20 03 67 72 65 | 65 6e 20 3d 20 63 6f 6c |... .gre|en = col|
|000053e0| 72 61 6e 5b 69 6e 64 63 | 6c 5d 5b 34 5d 20 0d 0a |ran[indc|l][4] ..|
|000053f0| ee 20 03 62 6c 75 65 20 | 20 3d 20 63 6f 6c 72 61 |. .blue | = colra|
|00005400| 6e 5b 69 6e 64 63 6c 5d | 5b 35 5d 20 0d 0a 3a 6d |n[indcl]|[5] ..:m|
|00005410| 61 69 6e 6d 65 6e 75 0d | 0a 09 66 72 6f 6d 5f 63 |ainmenu.|..from_c|
|00005420| 6c 61 73 73 20 3d 20 30 | 0d 0a 09 67 65 74 6d 65 |lass = 0|...getme|
|00005430| 6e 75 20 22 43 4f 4c 4f | 52 3a 20 43 68 6f 6f 73 |nu "COLO|R: Choos|
|00005440| 65 20 6f 70 74 69 6f 6e | 22 2c 5c 0d 0a 09 09 22 |e option|",\...."|
|00005450| 43 4c 41 53 53 22 2c 5c | 0d 0a 09 09 22 43 4f 4c |CLASS",\|...."COL|
|00005460| 4f 52 22 2c 5c 0d 0a 09 | 09 22 49 4e 54 45 4e 53 |OR",\...|."INTENS|
|00005470| 22 2c 5c 0d 0a 09 09 22 | 52 41 4e 47 45 22 2c 5c |",\...."|RANGE",\|
|00005480| 0d 0a 09 09 22 42 41 43 | 4b 47 44 22 2c 5c 0d 0a |...."BAC|KGD",\..|
|00005490| 09 09 22 44 4f 4e 45 22 | 0d 0a 0d 0a 09 6f 6e 20 |.."DONE"|.....on |
|000054a0| 28 40 6b 65 79 2b 33 29 | 20 67 6f 74 6f 20 6c 65 |(@key+3)| goto le|
|000054b0| 61 76 65 5f 69 74 2c 6c | 65 61 76 65 5f 69 74 2c |ave_it,l|eave_it,|
|000054c0| 6d 61 69 6e 6d 65 6e 75 | 2c 2c 5c 0d 0a 09 09 63 |mainmenu|,,\....c|
|000054d0| 6c 61 73 73 6d 65 6e 75 | 2c 5c 0d 0a 09 09 63 6f |lassmenu|,\....co|
|000054e0| 6c 6f 72 6d 65 6e 75 2c | 5c 0d 0a 09 09 69 6e 74 |lormenu,|\....int|
|000054f0| 65 6e 73 6d 65 6e 75 2c | 5c 0d 0a 09 09 67 65 74 |ensmenu,|\....get|
|00005500| 73 74 20 2c 5c 0d 0a 09 | 09 62 67 6d 69 78 2c 5c |st ,\...|.bgmix,\|
|00005510| 0d 0a 09 09 6c 65 61 76 | 65 5f 69 74 0d 0a 09 09 |....leav|e_it....|
|00005520| 67 6f 74 6f 20 6d 61 69 | 6e 6d 65 6e 75 0d 0a 3a |goto mai|nmenu..:|
|00005530| 63 6c 61 73 73 6d 65 6e | 75 0d 0a ee 20 03 67 65 |classmen|u... .ge|
|00005540| 74 6d 65 6e 75 20 22 43 | 4f 4c 4f 52 3a 20 43 68 |tmenu "C|OLOR: Ch|
|00005550| 6f 6f 73 65 20 63 6c 61 | 73 73 20 22 2c 5c 0d 0a |oose cla|ss ",\..|
|00005560| 09 22 43 4c 41 53 53 31 | 22 2c 5c 0d 0a 09 22 43 |."CLASS1|",\..."C|
|00005570| 4c 41 53 53 32 22 2c 5c | 0d 0a 09 22 43 4c 41 53 |LASS2",\|..."CLAS|
|00005580| 53 33 22 2c 5c 0d 0a 09 | 22 43 4c 41 53 53 34 22 |S3",\...|"CLASS4"|
|00005590| 2c 5c 0d 0a 09 22 43 4c | 41 53 53 35 22 2c 5c 0d |,\..."CL|ASS5",\.|
|000055a0| 0a 09 22 43 4c 41 53 53 | 36 22 2c 5c 0d 0a 09 22 |.."CLASS|6",\..."|
|000055b0| 43 4c 41 53 53 37 22 2c | 5c 0d 0a 09 22 43 4c 41 |CLASS7",|\..."CLA|
|000055c0| 53 53 38 22 0d 0a 0d 0a | ee 20 03 6f 6e 20 28 40 |SS8"....|. .on (@|
|000055d0| 6b 65 79 2b 33 29 20 67 | 6f 74 6f 20 20 6c 65 61 |key+3) g|oto  lea|
|000055e0| 76 65 5f 69 74 2c 6d 61 | 69 6e 6d 65 6e 75 2c 63 |ve_it,ma|inmenu,c|
|000055f0| 6c 61 73 73 6d 65 6e 75 | 2c 2c 5c 0d 0a 09 63 6c |lassmenu|,,\...cl|
|00005600| 61 73 73 2c 63 6c 61 73 | 73 2c 63 6c 61 73 73 2c |ass,clas|s,class,|
|00005610| 63 6c 61 73 73 2c 63 6c | 61 73 73 2c 63 6c 61 73 |class,cl|ass,clas|
|00005620| 73 2c 63 6c 61 73 73 2c | 63 6c 61 73 73 20 5c 0d |s,class,|class \.|
|00005630| 0a 09 67 6f 74 6f 20 6d | 61 69 6e 6d 65 6e 75 0d |..goto m|ainmenu.|
|00005640| 0a 0d 0a 3a 62 67 6d 69 | 78 0d 0a 09 69 66 20 28 |...:bgmi|x...if (|
|00005650| 20 40 6e 75 6d 70 61 6c | 20 3e 3d 20 31 37 20 29 | @numpal| >= 17 )|
|00005660| 0d 0a 09 67 6f 74 6f 20 | 6f 6b 62 67 0d 0a 09 20 |...goto |okbg... |
|00005670| 70 61 75 73 65 20 22 4e | 6f 74 20 73 75 70 70 6f |pause "N|ot suppo|
|00005680| 72 74 65 64 20 66 6f 72 | 20 74 68 69 73 20 67 72 |rted for| this gr|
|00005690| 61 70 68 69 63 73 20 63 | 61 72 64 20 ee 2e 03 20 |aphics c|ard ... |
|000056a0| 68 69 74 20 52 45 54 55 | 52 4e 22 0d 0a 09 67 6f |hit RETU|RN"...go|
|000056b0| 74 6f 20 6d 61 69 6e 6d | 65 6e 75 0d 0a 3a 6f 6b |to mainm|enu..:ok|
|000056c0| 62 67 0d 0a ee 20 03 72 | 67 62 20 3d 20 30 0d 0a |bg... .r|gb = 0..|
|000056d0| 3a 73 65 74 70 61 6c 0d | 0a ee 20 03 63 6f 6c 6f |:setpal.|.. .colo|
|000056e0| 72 73 5b 30 5d 5b 30 5d | 20 3d 20 62 67 72 65 64 |rs[0][0]| = bgred|
|000056f0| 0d 0a ee 20 03 63 6f 6c | 6f 72 73 5b 31 5d 5b 30 |... .col|ors[1][0|
|00005700| 5d 20 3d 20 62 67 67 72 | 65 65 6e 20 0d 0a ee 20 |] = bggr|een ... |
|00005710| 03 63 6f 6c 6f 72 73 5b | 32 5d 5b 30 5d 20 3d 20 |.colors[|2][0] = |
|00005720| 62 67 62 6c 75 65 0d 0a | ee 20 03 70 61 6c 65 74 |bgblue..|. .palet|
|00005730| 74 65 20 30 2c 20 31 2c | 20 63 6f 6c 6f 72 73 0d |te 0, 1,| colors.|
|00005740| 0a 0d 0a 3a 67 65 74 6b | 65 79 0d 0a ee 20 03 70 |...:getk|ey... .p|
|00005750| 72 6f 6d 70 74 20 22 42 | 4b 47 44 20 3a 20 53 65 |rompt "B|KGD : Se|
|00005760| 6c 65 63 74 20 63 6f 6c | 6f 72 20 28 52 2c 47 2c |lect col|or (R,G,|
|00005770| 42 29 20 3b 20 64 65 66 | 69 6e 65 20 69 6e 74 65 |B) ; def|ine inte|
|00005780| 6e 73 69 74 79 20 22 0d | 0a ee 20 03 67 65 74 6b |nsity ".|.. .getk|
|00005790| 65 79 0d 0a ee 20 03 69 | 66 20 28 40 6b 65 79 20 |ey... .i|f (@key |
|000057a0| 3d 3d 20 30 29 0d 0a ee | 20 06 67 6f 74 6f 20 67 |== 0)...| .goto g|
|000057b0| 65 74 6b 65 79 0d 0a ee | 20 03 69 66 20 28 40 6b |etkey...| .if (@k|
|000057c0| 65 79 20 3d 3d 20 32 37 | 29 0d 0a ee 20 06 67 6f |ey == 27|)... .go|
|000057d0| 74 6f 20 6c 65 61 76 65 | 5f 69 74 20 0d 0a ee 20 |to leave|_it ... |
|000057e0| 03 69 66 20 28 40 6b 65 | 79 20 3d 3d 20 36 38 29 |.if (@ke|y == 68)|
|000057f0| 0d 0a ee 20 06 67 6f 74 | 6f 20 6d 61 69 6e 6d 65 |... .got|o mainme|
|00005800| 6e 75 0d 0a ee 20 03 69 | 66 20 28 28 40 6b 65 79 |nu... .i|f ((@key|
|00005810| 20 3d 3d 20 37 32 29 20 | 7c 7c 20 28 40 6b 65 79 | == 72) ||| (@key|
|00005820| 20 3d 3d 20 38 30 29 29 | 0d 0a ee 20 06 67 6f 74 | == 80))|... .got|
|00005830| 6f 20 63 68 61 6e 67 65 | 0d 0a ee 20 03 69 66 20 |o change|... .if |
|00005840| 28 40 6b 65 79 20 3d 3d | 20 31 31 34 29 0d 0a ee |(@key ==| 114)...|
|00005850| 20 06 72 67 62 20 3d 20 | 30 0d 0a ee 20 03 69 66 | .rgb = |0... .if|
|00005860| 20 28 40 6b 65 79 20 3d | 3d 20 31 30 33 29 0d 0a | (@key =|= 103)..|
|00005870| ee 20 06 72 67 62 20 3d | 20 31 0d 0a ee 20 03 69 |. .rgb =| 1... .i|
|00005880| 66 20 28 40 6b 65 79 20 | 3d 3d 20 39 38 29 0d 0a |f (@key |== 98)..|
|00005890| ee 20 06 72 67 62 20 3d | 20 32 0d 0a ee 20 03 69 |. .rgb =| 2... .i|
|000058a0| 66 20 28 40 6b 65 79 20 | 3d 3d 20 37 33 29 0d 0a |f (@key |== 73)..|
|000058b0| ee 20 06 69 6e 63 20 3d | 20 69 6e 63 20 2a 20 32 |. .inc =| inc * 2|
|000058c0| 0d 0a ee 20 03 69 66 20 | 28 40 6b 65 79 20 3d 3d |... .if |(@key ==|
|000058d0| 20 38 31 29 0d 0a ee 20 | 06 69 6e 63 20 3d 20 69 | 81)... |.inc = i|
|000058e0| 6e 63 20 2f 20 32 0d 0a | ee 20 03 67 6f 74 6f 20 |nc / 2..|. .goto |
|000058f0| 67 65 74 6b 65 79 0d 0a | 0d 0a 3a 63 68 61 6e 67 |getkey..|..:chang|
|00005900| 65 0d 0a ee 20 03 69 6e | 63 31 20 3d 20 69 6e 63 |e... .in|c1 = inc|
|00005910| 0d 0a ee 20 03 69 66 20 | 28 40 6b 65 79 20 3d 3d |... .if |(@key ==|
|00005920| 20 38 30 29 0d 0a ee 20 | 06 69 6e 63 31 20 3d 20 | 80)... |.inc1 = |
|00005930| 2d 69 6e 63 0d 0a ee 20 | 03 6f 6e 20 72 67 62 20 |-inc... |.on rgb |
|00005940| 67 6f 74 6f 20 72 2c 20 | 67 2c 20 62 0d 0a 3a 72 |goto r, |g, b..:r|
|00005950| 0d 0a ee 20 03 62 67 72 | 65 64 20 3d 20 62 67 72 |... .bgr|ed = bgr|
|00005960| 65 64 20 2b 20 69 6e 63 | 31 0d 0a ee 20 03 69 66 |ed + inc|1... .if|
|00005970| 20 28 62 67 72 65 64 20 | 3e 20 31 2e 30 29 0d 0a | (bgred |> 1.0)..|
|00005980| ee 20 06 62 67 72 65 64 | 20 3d 20 31 2e 30 0d 0a |. .bgred| = 1.0..|
|00005990| ee 20 03 69 66 20 28 62 | 67 72 65 64 20 3c 20 30 |. .if (b|gred < 0|
|000059a0| 2e 30 29 0d 0a ee 20 06 | 62 67 72 65 64 20 3d 20 |.0)... .|bgred = |
|000059b0| 30 2e 30 0d 0a ee 20 03 | 67 6f 74 6f 20 73 65 74 |0.0... .|goto set|
|000059c0| 70 61 6c 0d 0a 3a 67 0d | 0a ee 20 03 62 67 67 72 |pal..:g.|.. .bggr|
|000059d0| 65 65 6e 20 3d 20 62 67 | 67 72 65 65 6e 20 2b 20 |een = bg|green + |
|000059e0| 69 6e 63 31 0d 0a ee 20 | 03 69 66 20 28 62 67 67 |inc1... |.if (bgg|
|000059f0| 72 65 65 6e 20 3e 20 31 | 2e 30 29 0d 0a ee 20 06 |reen > 1|.0)... .|
|00005a00| 62 67 67 72 65 65 6e 20 | 3d 20 31 2e 30 0d 0a ee |bggreen |= 1.0...|
|00005a10| 20 03 69 66 20 28 06 1c | ff 62 67 67 72 65 65 6e | .if (..|.bggreen|
|00005a20| 20 3c 20 30 2e 30 29 0d | 0a ff 20 06 62 67 67 72 | < 0.0).|.. .bggr|
|00005a30| 65 65 6e 20 3d 20 30 2e | 30 0d 0a ff 20 03 67 6f |een = 0.|0... .go|
|00005a40| 74 6f 20 73 65 74 70 61 | 6c 0d 0a 3a 62 0d 0a ff |to setpa|l..:b...|
|00005a50| 20 03 62 67 62 6c 75 65 | 20 3d 20 62 67 62 6c 75 | .bgblue| = bgblu|
|00005a60| 65 20 2b 20 69 6e 63 31 | 0d 0a ff 20 03 69 66 20 |e + inc1|... .if |
|00005a70| 28 62 67 62 6c 75 65 20 | 3e 20 31 2e 30 29 0d 0a |(bgblue |> 1.0)..|
|00005a80| ff 20 06 62 67 62 6c 75 | 65 20 3d 20 31 2e 30 0d |. .bgblu|e = 1.0.|
|00005a90| 0a ff 20 03 69 66 20 28 | 62 67 62 6c 75 65 20 3c |.. .if (|bgblue <|
|00005aa0| 20 30 2e 30 29 0d 0a ff | 20 06 62 67 62 6c 75 65 | 0.0)...| .bgblue|
|00005ab0| 20 3d 20 30 2e 30 0d 0a | ff 20 03 67 6f 74 6f 20 | = 0.0..|. .goto |
|00005ac0| 73 65 74 70 61 6c 0d 0a | 0d 0a 3a 63 6c 61 73 73 |setpal..|..:class|
|00005ad0| 0d 0a ff 20 03 69 6e 64 | 63 6c 20 3d 20 40 6b 65 |... .ind|cl = @ke|
|00005ae0| 79 0d 0a ff 20 03 6f 6c | 63 6f 6c 20 3d 20 63 6f |y... .ol|col = co|
|00005af0| 6c 72 61 6e 5b 69 6e 64 | 63 6c 5d 5b 30 5d 20 0d |lran[ind|cl][0] .|
|00005b00| 0a ff 20 03 73 74 63 6f | 6c 20 3d 20 63 6f 6c 72 |.. .stco|l = colr|
|00005b10| 61 6e 5b 69 6e 64 63 6c | 5d 5b 31 5d 0d 0a ff 20 |an[indcl|][1]... |
|00005b20| 03 65 6e 64 63 6f 6c 20 | 3d 20 63 6f 6c 72 61 6e |.endcol |= colran|
|00005b30| 5b 69 6e 64 63 6c 5d 5b | 32 5d 0d 0a ff 20 03 72 |[indcl][|2]... .r|
|00005b40| 65 64 ff 20 03 3d 20 63 | 6f 6c 72 61 6e 5b 69 6e |ed. .= c|olran[in|
|00005b50| 64 63 6c 5d 5b 33 5d 0d | 0a ff 20 03 67 72 65 65 |dcl][3].|.. .gree|
|00005b60| 6e 20 3d 20 63 6f 6c 72 | 61 6e 5b 69 6e 64 63 6c |n = colr|an[indcl|
|00005b70| 5d 5b 34 5d 20 0d 0a ff | 20 03 62 6c 75 65 20 20 |][4] ...| .blue  |
|00005b80| 3d 20 63 6f 6c 72 61 6e | 5b 69 6e 64 63 6c 5d 5b |= colran|[indcl][|
|00005b90| 35 5d 20 0d 0a ff 20 03 | 66 72 6f 6d 5f 63 6c 61 |5] ... .|from_cla|
|00005ba0| 73 73 20 3d 20 31 0d 0a | ff 20 03 67 6f 74 6f 20 |ss = 1..|. .goto |
|00005bb0| 63 6f 6c 6f 72 6d 65 6e | 75 20 0d 0a 0d 0a 0d 0a |colormen|u ......|
|00005bc0| 3a 67 65 74 73 74 0d 0a | ff 20 03 74 6d 70 20 3d |:getst..|. .tmp =|
|00005bd0| 20 73 74 63 6f 6c 0d 0a | ff 20 03 67 65 74 69 6e | stcol..|. .getin|
|00005be0| 74 20 22 45 6e 74 65 72 | 20 73 74 61 72 74 69 6e |t "Enter| startin|
|00005bf0| 67 20 63 6f 6c 6f 72 20 | 6e 75 6d 62 65 72 20 28 |g color |number (|
|00005c00| 25 64 29 20 3d 3e 22 2c | 20 74 6d 70 20 20 2c 20 |%d) =>",| tmp  , |
|00005c10| 73 74 63 6f 6c 0d 0a ff | 20 03 69 66 20 28 28 73 |stcol...| .if ((s|
|00005c20| 74 63 6f 6c 20 3e 20 30 | 29 20 26 26 20 28 73 74 |tcol > 0|) && (st|
|00005c30| 63 6f 6c 20 3c 3d 20 32 | 35 35 29 29 0d 0a ff 20 |col <= 2|55))... |
|00005c40| 06 67 6f 74 6f 20 6f 6b | 73 74 0d 0a 09 70 61 75 |.goto ok|st...pau|
|00005c50| 73 65 20 22 49 6e 76 61 | 6c 69 64 20 73 74 61 72 |se "Inva|lid star|
|00005c60| 74 20 63 6f 6c 6f 72 ff | 2e 03 70 72 65 73 73 20 |t color.|..press |
|00005c70| 52 45 54 55 52 4e 20 22 | 0d 0a 09 73 74 63 6f 6c |RETURN "|...stcol|
|00005c80| 20 3d 20 74 6d 70 0d 0a | 09 67 6f 74 6f 20 67 65 | = tmp..|.goto ge|
|00005c90| 74 73 74 0d 0a 3a 6f 6b | 73 74 20 0d 0a ff 20 03 |tst..:ok|st ... .|
|00005ca0| 69 66 20 28 40 6b 65 79 | 20 3d 3d 20 2d 32 29 0d |if (@key| == -2).|
|00005cb0| 0a ff 20 06 67 6f 74 6f | 20 6d 61 69 6e 6d 65 6e |.. .goto| mainmen|
|00005cc0| 75 0d 0a ff 20 03 69 66 | 20 28 40 6b 65 79 20 3d |u... .if| (@key =|
|00005cd0| 3d 20 2d 33 29 0d 0a ff | 20 06 67 6f 74 6f 20 6c |= -3)...| .goto l|
|00005ce0| 65 61 76 65 5f 69 74 0d | 0a 0d 0a 3a 67 65 74 65 |eave_it.|...:gete|
|00005cf0| 6e 64 0d 0a ff 20 03 74 | 6d 70 20 3d 20 65 6e 64 |nd... .t|mp = end|
|00005d00| 63 6f 6c 0d 0a ff 20 03 | 67 65 74 69 6e 74 20 22 |col... .|getint "|
|00005d10| 45 6e 74 65 72 20 65 6e | 64 69 6e 67 20 63 6f 6c |Enter en|ding col|
|00005d20| 6f 72 20 6e 75 6d 62 65 | 72 20 28 25 64 29 20 3d |or numbe|r (%d) =|
|00005d30| 3e 22 2c 20 74 6d 70 ff | 20 03 2c 65 6e 64 63 6f |>", tmp.| .,endco|
|00005d40| 6c 0d 0a ff 20 03 69 66 | 20 28 28 65 6e 64 63 6f |l... .if| ((endco|
|00005d50| 6c 20 3e 3d 20 73 74 63 | 6f 6c 29 20 26 26 20 28 |l >= stc|ol) && (|
|00005d60| 65 6e 64 63 6f 6c 20 3c | 3d 20 32 35 35 29 29 0d |endcol <|= 255)).|
|00005d70| 0a ff 20 06 67 6f 74 6f | 20 6f 6b 65 6e 64 20 0d |.. .goto| okend .|
|00005d80| 0a 09 70 61 75 73 65 20 | 22 49 6e 76 61 6c 69 64 |..pause |"Invalid|
|00005d90| 20 65 6e 64 20 63 6f 6c | 6f 72 ff 2e 03 70 72 65 | end col|or...pre|
|00005da0| 73 73 20 52 45 54 55 52 | 4e 20 22 0d 0a 09 65 6e |ss RETUR|N "...en|
|00005db0| 64 63 6f 6c 20 3d 20 74 | 6d 70 0d 0a 09 67 6f 74 |dcol = t|mp...got|
|00005dc0| 6f 20 67 65 74 65 6e 64 | 20 0d 0a 3a 6f 6b 65 6e |o getend| ..:oken|
|00005dd0| 64 0d 0a ff 20 03 69 66 | 20 28 40 6b 65 79 20 3d |d... .if| (@key =|
|00005de0| 3d 20 2d 32 29 0d 0a ff | 20 06 67 6f 74 6f 20 67 |= -2)...| .goto g|
|00005df0| 65 74 73 74 0d 0a ff 20 | 03 69 66 20 28 40 6b 65 |etst... |.if (@ke|
|00005e00| 79 20 3d 3d 20 2d 33 29 | 0d 0a ff 20 06 67 6f 74 |y == -3)|... .got|
|00005e10| 6f 20 6c 65 61 76 65 5f | 69 74 20 0d 0a 0d 0a 3a |o leave_|it ....:|
|00005e20| 63 6f 6c 6f 72 6d 65 6e | 75 0d 0a 0d 0a ff 20 03 |colormen|u..... .|
|00005e30| 67 65 74 6d 65 6e 75 20 | 22 43 4f 4c 4f 52 3a 20 |getmenu |"COLOR: |
|00005e40| 43 68 6f 6f 73 65 20 63 | 6f 6c 6f 72 22 2c 5c 0d |Choose c|olor",\.|
|00005e50| 0a 20 09 22 52 45 44 22 | 2c 5c 0d 0a 20 09 22 47 |. ."RED"|,\.. ."G|
|00005e60| 52 45 45 4e 22 2c 5c 0d | 0a 09 22 42 4c 55 45 22 |REEN",\.|.."BLUE"|
|00005e70| 2c 5c 0d 0a 09 22 43 59 | 41 4e 22 2c 20 5c 0d 0a |,\..."CY|AN", \..|
|00005e80| 09 22 4d 41 47 45 4e 54 | 41 22 2c 5c 0d 0a 09 22 |."MAGENT|A",\..."|
|00005e90| 59 45 4c 4c 4f 57 22 2c | 5c 0d 0a 09 22 57 48 49 |YELLOW",|\..."WHI|
|00005ea0| 54 45 22 0d 0a 0d 0a 20 | 20 69 66 20 28 20 66 72 |TE".... | if ( fr|
|00005eb0| 6f 6d 5f 63 6c 61 73 73 | 20 3d 3d 20 31 20 29 20 |om_class| == 1 ) |
|00005ec0| 20 0d 0a 20 20 67 6f 74 | 6f 20 66 72 63 6c 61 73 | ..  got|o frclas|
|00005ed0| 73 0d 0a ff 20 03 6f 6e | 20 28 40 6b 65 79 2b 33 |s... .on| (@key+3|
|00005ee0| 29 20 67 6f 74 6f 20 6c | 65 61 76 65 5f 69 74 2c |) goto l|eave_it,|
|00005ef0| 6d 61 69 6e 6d 65 6e 75 | 2c 63 6f 6c 6f 72 6d 65 |mainmenu|,colorme|
|00005f00| 6e 75 2c 2c 20 5c 0d 0a | 09 73 74 72 63 6f 6c 2c |nu,, \..|.strcol,|
|00005f10| 20 73 74 72 63 6f 6c 2c | 20 73 74 72 63 6f 6c 2c | strcol,| strcol,|
|00005f20| 20 73 74 72 63 6f 6c 2c | 20 73 74 72 63 6f 6c 2c | strcol,| strcol,|
|00005f30| 20 73 74 72 63 6f 6c 2c | 20 73 74 72 63 6f 6c 0d | strcol,| strcol.|
|00005f40| 0a 20 09 67 6f 74 6f 20 | 6d 61 69 6e 6d 65 6e 75 |. .goto |mainmenu|
|00005f50| 0d 0a 3a 66 72 63 6c 61 | 73 73 0d 0a 20 20 69 66 |..:frcla|ss..  if|
|00005f60| 20 28 20 66 72 6f 6d 5f | 63 6c 61 73 73 20 3d 3d | ( from_|class ==|
|00005f70| 20 31 20 29 20 0d 0a ff | 20 03 6f 6e 20 28 40 6b | 1 ) ...| .on (@k|
|00005f80| 65 79 2b 33 29 20 67 6f | 74 6f 20 6c 65 61 76 65 |ey+3) go|to leave|
|00005f90| 5f 69 74 2c 63 6c 61 73 | 73 6d 65 6e 75 2c 63 6f |_it,clas|smenu,co|
|00005fa0| 6c 6f 72 6d 65 6e 75 2c | 2c 20 5c 0d 0a 09 73 74 |lormenu,|, \...st|
|00005fb0| 72 63 6f 6c 2c 20 73 74 | 72 63 6f 6c 2c 20 73 74 |rcol, st|rcol, st|
|00005fc0| 72 63 6f 6c 2c 20 73 74 | 72 63 6f 6c 2c 20 73 74 |rcol, st|rcol, st|
|00005fd0| 72 63 6f 6c 2c 20 73 74 | 72 63 6f 6c 2c 20 73 74 |rcol, st|rcol, st|
|00005fe0| 72 63 6f 6c 0d 0a 20 09 | 67 6f 74 6f 20 6d 61 69 |rcol.. .|goto mai|
|00005ff0| 6e 6d 65 6e 75 0d 0a 3a | 73 74 72 63 6f 6c 0d 0a |nmenu..:|strcol..|
|00006000| ff 20 03 69 6e 64 20 3d | 20 40 6b 65 79 20 2d 20 |. .ind =| @key - |
|00006010| 31 0d 0a ff 20 03 63 6f | 6c 72 61 6e 5b 69 6e 64 |1... .co|lran[ind|
|00006020| 63 6c 5d 5b 33 5d 20 3d | 20 72 67 62 63 6f 6c 5b |cl][3] =| rgbcol[|
|00006030| 69 6e 64 5d 5b 30 5d 0d | 0a ff 20 03 63 6f 6c 72 |ind][0].|.. .colr|
|00006040| 61 6e 5b 69 6e 64 63 6c | 5d 5b 34 5d 20 3d 20 72 |an[indcl|][4] = r|
|00006050| 67 62 63 6f 6c 5b 69 6e | 64 5d 5b 31 5d 0d 0a ff |gbcol[in|d][1]...|
|00006060| 20 03 63 6f 6c 72 61 6e | 5b 69 6e 64 63 6c 5d 5b | .colran|[indcl][|
|00006070| 35 5d 20 3d 20 72 67 62 | 63 6f 6c 5b 69 6e 64 5d |5] = rgb|col[ind]|
|00006080| 5b 32 5d 0d 0a ff 20 03 | 72 65 64 ff 20 03 3d 20 |[2]... .|red. .= |
|00006090| 63 6f 6c 72 61 6e 5b 69 | 6e 64 63 6c 5d 5b 33 5d |colran[i|ndcl][3]|
|000060a0| 0d 0a ff 20 03 67 72 65 | 65 6e 20 3d 20 63 6f 6c |... .gre|en = col|
|000060b0| 72 61 6e 5b 69 6e 64 63 | 6c 5d 5b 34 5d 20 0d 0a |ran[indc|l][4] ..|
|000060c0| ff 20 03 62 6c 75 65 20 | 20 3d 20 63 6f 6c 72 61 |. .blue | = colra|
|000060d0| 6e 5b 69 6e 64 63 6c 5d | 5b 35 5d 20 0d 0a ff 20 |n[indcl]|[5] ... |
|000060e0| 03 67 6f 74 6f 20 73 65 | 74 72 61 6e 67 65 0d 0a |.goto se|trange..|
|000060f0| 0d 0a 3a 73 65 74 72 61 | 6e 67 65 0d 0a ff 20 03 |..:setra|nge... .|
|00006100| 6e 63 6f 6c 20 3d 20 65 | 6e 64 63 6f 6c 2d 73 74 |ncol = e|ndcol-st|
|00006110| 63 6f 6c 2b 31 0d 0a ff | 20 03 69 20 3d 20 30 0d |col+1...| .i = 0.|
|00006120| 0a ff 20 03 73 72 65 64 | 20 3d 20 30 2e 30 0d 0a |.. .sred| = 0.0..|
|00006130| ff 20 03 73 67 72 65 65 | 6e 20 3d 20 30 2e 30 0d |. .sgree|n = 0.0.|
|00006140| 0a ff 20 03 73 62 6c 75 | 65 20 3d 20 30 2e 30 0d |.. .sblu|e = 0.0.|
|00006150| 0a ff 20 03 65 72 65 64 | 20 3d 20 30 2e 30 0d 0a |.. .ered| = 0.0..|
|00006160| ff 20 03 65 67 72 65 65 | 6e 20 3d 20 30 2e 30 0d |. .egree|n = 0.0.|
|00006170| 0a ff 20 03 65 62 6c 75 | 65 20 3d 20 30 2e 30 0d |.. .eblu|e = 0.0.|
|00006180| 0a ff 20 03 73 72 65 64 | 20 3d 20 28 20 28 32 2e |.. .sred| = ( (2.|
|00006190| 30 5e 28 31 2f 6e 63 6f | 6c 29 29 20 2d 20 31 2e |0^(1/nco|l)) - 1.|
|000061a0| 30 20 20 29 20 2a 20 72 | 65 64 20 0d 0a ff 20 03 |0  ) * r|ed ... .|
|000061b0| 73 67 72 65 65 6e 20 3d | 20 28 20 28 32 2e 30 5e |sgreen =| ( (2.0^|
|000061c0| 28 31 2f 6e 63 6f 6c 29 | 29 20 2d 20 31 2e 30 20 |(1/ncol)|) - 1.0 |
|000061d0| 20 29 20 2a 20 67 72 65 | 65 6e 20 0d 0a ff 20 03 | ) * gre|en ... .|
|000061e0| 73 62 6c 75 65 20 3d 20 | 28 20 28 32 2e 30 5e 28 |sblue = |( (2.0^(|
|000061f0| 31 2f 6e 63 6f 6c 29 29 | 20 2d 20 31 2e 30 20 20 |1/ncol))| - 1.0  |
|00006200| 29 20 2a 20 62 6c 75 65 | 20 0d 0a ff 20 03 65 72 |) * blue| ... .er|
|00006210| 65 64 20 3d 20 72 65 64 | 0d 0a ff 20 03 65 67 72 |ed = red|... .egr|
|00006220| 65 65 6e 20 3d 20 67 72 | 65 65 6e 0d 0a ff 20 03 |een = gr|een... .|
|00006230| 65 62 6c 75 65 20 3d 20 | 62 6c 75 65 0d 0a ff 20 |eblue = |blue... |
|00006240| 03 70 72 61 6e 67 65 20 | 73 74 63 6f 6c 2c 6e 63 |.prange |stcol,nc|
|00006250| 6f 6c 2c 73 72 65 64 2c | 73 67 72 65 65 6e 2c 73 |ol,sred,|sgreen,s|
|00006260| 62 6c 75 65 2c 65 72 65 | 64 2c 65 67 72 65 65 6e |blue,ere|d,egreen|
|00006270| 2c 65 62 6c 75 65 0d 0a | ff 20 03 69 66 20 28 20 |,eblue..|. .if ( |
|00006280| 40 6e 75 6d 70 61 6c 20 | 3c 20 31 37 20 29 0d 0a |@numpal |< 17 )..|
|00006290| 09 52 45 44 52 41 57 0d | 0a ff 20 03 67 6f 74 6f |.REDRAW.|.. .goto|
|000062a0| 20 63 6f 6c 6f 72 6d 65 | 6e 75 0d 0a 0d 0a 3a 69 | colorme|nu....:i|
|000062b0| 6e 74 65 6e 73 6d 65 6e | 75 0d 0a 09 6e 63 6f 6c |ntensmen|u...ncol|
|000062c0| 20 3d 20 65 6e 64 63 6f | 6c 20 2d 20 73 74 63 6f | = endco|l - stco|
|000062d0| 6c 20 2b 20 31 0d 0a 09 | 73 74 61 72 74 5f 69 6e |l + 1...|start_in|
|000062e0| 74 65 6e 73 20 3d 20 32 | 2e 30 5e 28 31 2f 6e 63 |tens = 2|.0^(1/nc|
|000062f0| 6f 6c 29 20 2d 20 31 2e | 30 0d 0a 09 65 6e 64 5f |ol) - 1.|0...end_|
|00006300| 69 6e 74 65 6e 73 20 3d | 20 31 2e 30 0d 0a 09 61 |intens =| 1.0...a|
|00006310| 62 73 5f 73 74 61 72 74 | 20 3d 20 73 74 61 72 74 |bs_start| = start|
|00006320| 5f 69 6e 74 65 6e 73 0d | 0a 20 09 61 62 73 5f 65 |_intens.|. .abs_e|
|00006330| 6e 64 20 3d 20 65 6e 64 | 5f 69 6e 74 65 6e 73 0d |nd = end|_intens.|
|00006340| 0a 3a 67 6b 6b 0d 0a 09 | 70 72 6f 6d 70 74 20 22 |.:gkk...|prompt "|
|00006350| 49 4e 54 45 4e 53 20 3a | 20 43 68 61 6e 67 65 20 |INTENS :| Change |
|00006360| 69 6e 74 65 6e 73 69 74 | 79 20 6f 66 20 63 75 72 |intensit|y of cur|
|00006370| 72 65 6e 74 20 63 6f 6c | 6f 72 20 63 6c 61 73 73 |rent col|or class|
|00006380| 22 0d 0a 09 67 65 74 6b | 65 79 0d 0a 09 69 66 20 |"...getk|ey...if |
|00006390| 28 20 40 6b 65 79 20 3d | 3d 20 30 20 29 0d 0a 09 |( @key =|= 0 )...|
|000063a0| 67 6f 74 6f 20 67 6b 6b | 0d 0a 09 69 66 20 28 40 |goto gkk|...if (@|
|000063b0| 6b 65 79 20 3d 3d 20 32 | 37 20 29 0d 0a 09 67 6f |key == 2|7 )...go|
|000063c0| 74 6f 20 6c 65 61 76 65 | 5f 69 74 0d 0a 09 69 66 |to leave|_it...if|
|000063d0| 20 28 40 6b 65 79 20 3d | 3d 20 36 38 20 29 0d 0a | (@key =|= 68 )..|
|000063e0| 09 67 6f 74 6f 20 6d 61 | 69 6e 6d 65 6e 75 0d 0a |.goto ma|inmenu..|
|000063f0| 09 69 66 20 28 28 20 40 | 6b 65 79 20 3d 3d 20 37 |.if (( @|key == 7|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.