summaryrefslogtreecommitdiff
path: root/v1.25/bin/PIECHART.BAS
blob: 943b398803051e41bf7e5b786ac52959b10e3dd7 (plain) (blame)
ofshex dumpascii
0000 ff bb 0c ac 03 8f 20 54 68 65 20 49 42 4d 20 50 65 72 73 6f 6e 61 6c 20 43 6f 6d 70 75 74 65 72 .......The.IBM.Personal.Computer
0020 20 50 69 65 63 68 61 72 74 00 ef 0c b6 03 8f 20 56 65 72 73 69 6f 6e 20 31 2e 31 30 20 28 43 29 .Piechart.......Version.1.10.(C)
0040 43 6f 70 79 72 69 67 68 74 20 49 42 4d 20 43 6f 72 70 20 31 39 38 31 2c 20 31 39 38 32 00 21 0d Copyright.IBM.Corp.1981,.1982.!.
0060 c0 03 8f 20 4c 69 63 65 6e 73 65 64 20 4d 61 74 65 72 69 61 6c 20 2d 20 50 72 6f 67 72 61 6d 20 ....Licensed.Material.-.Program.
0080 50 72 6f 70 65 72 74 79 20 6f 66 20 49 42 4d 00 33 0d cf 03 97 20 53 45 47 3a 20 98 20 0f 6a 2c Property.of.IBM.3.....SEG:....j,
00a0 11 00 45 0d d4 03 53 41 4d 50 4c 45 53 24 e7 22 4e 4f 22 00 4f 0d de 03 89 20 0e f2 03 00 62 0d ..E...SAMPLES$."NO".O.........b.
00c0 e8 03 53 41 4d 50 4c 45 53 24 e7 22 59 45 53 22 00 8f 0d f2 03 c9 20 dd 3a c8 20 11 2c 12 3a bf ..SAMPLES$."YES"........:...,.:.
00e0 20 0f 0f 2c 11 2c 11 3a a0 20 0f 28 3a c0 3a ca 20 16 2c 0f 13 3a 91 20 22 49 42 4d 22 00 b2 0d ...,.,.:...(:.:...,..:.."IBM"...
0100 fc 03 ca 20 18 2c 0f 0c 2c 11 3a 91 20 22 50 65 72 73 6f 6e 61 6c 20 43 6f 6d 70 75 74 65 72 22 .....,..,.:.."Personal.Computer"
0120 00 df 0d 06 04 bf 20 0f 0a 2c 11 3a ca 20 0f 0a 2c 1a 2c 11 3a 91 20 ff 96 28 0f d5 29 e9 d6 28 .........,.:....,.,.:....(..)..(
0140 0f 15 2c 0f cd 29 e9 ff 96 28 0f b8 29 00 14 0e 10 04 ca 20 0f 0b 2c 1a 2c 11 3a 91 20 ff 96 28 ..,..)...(..).........,.,.:....(
0160 0f b3 29 e9 22 20 20 20 20 20 20 50 49 45 43 48 41 52 54 20 20 20 20 20 20 20 22 e9 ff 96 28 0f ..)."......PIECHART......."...(.
0180 b3 29 00 3a 0e 1a 04 ca 20 0f 0c 2c 1a 2c 11 3a 91 20 ff 96 28 0f b3 29 e9 d6 28 0f 15 2c 0f 20 .).:.......,.,.:....(..)..(..,..
01a0 29 e9 ff 96 28 0f b3 29 00 6f 0e 24 04 ca 20 0f 0d 2c 1a 2c 11 3a 91 20 ff 96 28 0f b3 29 e9 22 )...(..).o.$.....,.,.:....(..)."
01c0 20 20 20 20 56 65 72 73 69 6f 6e 20 31 2e 31 30 20 20 20 20 20 22 e9 ff 96 28 0f b3 29 00 95 0e ....Version.1.10....."...(..)...
01e0 2e 04 ca 20 0f 0e 2c 1a 2c 11 3a 91 20 ff 96 28 0f d4 29 e9 d6 28 0f 15 2c 0f cd 29 e9 ff 96 28 ......,.,.:....(..)..(..,..)...(
0200 0f be 29 00 cf 0e 38 04 bf 20 0f 0f 2c 11 3a ca 20 0f 11 2c 15 2c 11 3a 91 20 22 28 43 29 20 43 ..)...8.....,.:....,.,.:.."(C).C
0220 6f 70 79 72 69 67 68 74 20 49 42 4d 20 43 6f 72 70 20 31 39 38 31 2c 20 31 39 38 32 22 00 03 0f opyright.IBM.Corp.1981,.1982"...
0240 42 04 bf 20 0f 0e 2c 11 3a ca 20 0f 17 2c 18 2c 11 3a 91 20 22 50 72 65 73 73 20 73 70 61 63 65 B.....,.:....,.,.:.."Press.space
0260 20 62 61 72 20 74 6f 20 63 6f 6e 74 69 6e 75 65 22 00 17 0f 4c 04 8b 20 de e8 e6 22 22 20 cd 20 .bar.to.continue"...L......""...
0280 89 20 0e 4c 04 00 24 0f 56 04 43 4d 44 24 20 e7 20 de 00 3c 0f 60 04 8b 20 43 4d 44 24 20 e7 20 ...L..$.V.CMD$.....<.`...CMD$...
02a0 22 22 20 cd 20 89 20 0e 56 04 00 58 0f 6a 04 8b 20 43 4d 44 24 20 e7 20 ff 96 28 0f 1b 29 20 cd ""......V..X.j...CMD$.....(..)..
02c0 20 89 20 0e 12 05 00 71 0f 74 04 8b 20 43 4d 44 24 20 e7 20 22 20 22 20 cd 20 89 20 0e 88 04 00 .......q.t...CMD$...".".........
02e0 7b 0f 7e 04 89 20 0e 56 04 00 87 0f 88 04 97 20 53 45 47 e7 11 00 b0 0f 92 04 8b 20 28 ff 97 28 {.~....V........SEG.........(..(
0300 0c 10 04 29 20 ee 20 0c 30 00 29 e8 e6 0c 30 00 20 cd 20 97 20 53 45 47 3a 89 20 0e 0b 05 00 c1 ...)....0.)...0......SEG:.......
0320 0f 9c 04 a0 20 0f 50 3a c0 3a ca 20 14 2c 12 00 d2 0f a6 04 91 20 22 48 4f 4c 44 20 49 54 21 22 ......P:.:...,........"HOLD.IT!"
0340 00 0f 10 b0 04 91 20 22 59 4f 55 27 52 45 20 4e 4f 54 20 55 53 49 4e 47 20 54 48 45 20 43 4f 4c ......."YOU'RE.NOT.USING.THE.COL
0360 4f 52 2f 47 52 41 50 48 49 43 53 20 4d 4f 4e 49 54 4f 52 20 41 44 41 50 54 45 52 21 22 00 4d 10 OR/GRAPHICS.MONITOR.ADAPTER!".M.
0380 ba 04 91 20 22 54 48 49 53 20 50 52 4f 47 52 41 4d 20 55 53 45 53 20 47 52 41 50 48 49 43 53 20 ...."THIS.PROGRAM.USES.GRAPHICS.
03a0 41 4e 44 20 52 45 51 55 49 52 45 53 20 54 48 41 54 20 41 44 41 50 54 45 52 2e 22 00 76 10 c4 04 AND.REQUIRES.THAT.ADAPTER.".v...
03c0 91 20 22 50 52 45 53 53 20 54 48 45 20 53 50 41 43 45 20 42 41 52 20 54 4f 20 43 4f 4e 54 49 4e .."PRESS.THE.SPACE.BAR.TO.CONTIN
03e0 55 45 2e 22 00 80 10 ce 04 97 20 53 45 47 00 94 10 d8 04 8b 20 de e8 e6 22 22 20 cd 20 89 20 0e UE.".......SEG..........""......
0400 d8 04 00 a1 10 e2 04 43 4d 44 24 20 e7 20 de 00 b9 10 ec 04 8b 20 43 4d 44 24 20 e7 20 22 22 20 .......CMD$...........CMD$..."".
0420 cd 20 89 20 0e e2 04 00 d5 10 f6 04 8b 20 43 4d 44 24 20 e7 20 ff 96 28 0f 1b 29 20 cd 20 89 20 ..............CMD$.....(..).....
0440 0e 12 05 00 ee 10 00 05 8b 20 43 4d 44 24 20 e7 20 22 20 22 20 cd 20 89 20 0e 12 05 00 f8 10 0a ..........CMD$..."."............
0460 05 89 20 0e e2 04 00 00 11 0b 05 c9 20 dd 00 0e 11 0c 05 95 20 a7 20 89 20 0e 0f 05 00 1b 11 0d ................................
0480 05 fe 93 20 22 70 31 36 22 00 25 11 0e 05 89 20 0e 14 05 00 32 11 0f 05 bf 20 0f 1f 2c 11 2c 11 ...."p16".%.........2.......,.,.
04a0 00 95 11 10 05 91 20 22 54 48 49 53 20 50 52 4f 47 52 41 4d 20 52 45 51 55 49 52 45 53 20 41 44 ......."THIS.PROGRAM.REQUIRES.AD
04c0 56 41 4e 43 45 44 20 42 41 53 49 43 20 2d 2d 20 55 53 45 20 43 4f 4d 4d 41 4e 44 20 27 42 41 53 VANCED.BASIC.--.USE.COMMAND.'BAS
04e0 49 43 41 27 22 3a bf 20 0f 0f 2c 11 2c 11 3a 82 20 49 e7 12 20 cc 20 1c 28 23 3a 83 3a 20 a8 20 ICA'":....,.,.:..I......(#:.:...
0500 0e 12 05 00 a3 11 12 05 95 20 a7 20 89 20 0e 00 00 00 df 11 13 05 c8 20 11 2c 12 3a 8b 20 53 41 .........................,.:..SA
0520 4d 50 4c 45 53 24 e7 22 59 45 53 22 20 cd 20 fe 8c 22 73 61 6d 70 6c 65 73 22 2c 1c e8 03 20 3a MPLES$."YES"....."samples",....:
0540 a1 20 bf 20 18 2c 11 2c 11 3a c0 3a 81 00 f2 11 14 05 86 20 52 28 0f 64 29 2c 41 24 28 0f 64 29 .....,.,.:.:........R(.d),A$(.d)
0560 00 f8 11 78 05 c0 00 08 12 8c 05 c8 20 12 2c 11 3a bf 20 19 2c 11 00 18 12 a0 05 4c 52 e7 0f 32 ...x..........,.:...,......LR..2
0580 3a 53 52 e7 0f 2c 00 32 12 aa 05 85 20 22 74 69 74 6c 65 20 6f 66 20 63 68 61 72 74 22 3b 54 24 :SR..,.2....."title.of.chart";T$
05a0 00 54 12 b4 05 85 20 22 68 6f 77 20 6d 61 6e 79 20 69 74 65 6d 73 20 69 6e 20 63 68 61 72 74 22 .T....."how.many.items.in.chart"
05c0 3b 4e 00 5c 12 be 05 53 e7 11 00 6a 12 c8 05 82 20 49 e7 12 20 cc 20 4e 00 91 12 d2 05 85 20 22 ;N.\...S...j.....I.....N......."
05e0 6e 75 6d 65 72 69 63 20 76 61 6c 75 65 20 2c 6e 61 6d 65 22 3b 52 28 49 29 2c 41 24 28 49 29 00 numeric.value.,name";R(I),A$(I).
0600 9e 12 dc 05 53 e7 53 e9 52 28 49 29 00 a4 12 e6 05 83 00 c0 12 f0 05 82 20 49 e7 12 20 cc 20 4e ....S.S.R(I).............I.....N
0620 3a 52 28 49 29 e7 52 28 49 29 ec 53 3a 83 00 c9 12 fa 05 41 32 e7 11 00 cf 12 04 06 c0 00 e8 12 :R(I).R(I).S:......A2...........
0640 0e 06 ca 20 13 2c 0f 14 ea ff 92 28 54 24 29 ec 13 3a 91 20 54 24 00 25 13 18 06 b0 20 28 19 eb .....,.....(T$)..:..T$.%.....(..
0660 28 1d 00 00 1c 85 ea ff 92 28 54 24 29 ec 13 29 ea 19 2c 18 29 ea 28 19 eb 28 1d 00 00 1c 85 e9 (........(T$)..)..,.).(..(......
0680 ff 92 28 54 24 29 ec 13 29 20 20 2c 0f 10 29 2c 14 2c 42 00 33 13 22 06 82 20 43 e7 12 20 cc 20 ..(T$)..)..,..),.,B.3."...C.....
06a0 4e 00 54 13 2c 06 41 31 e7 41 32 3a 41 32 e7 41 32 e9 52 28 43 29 eb 13 eb 1f 4f c2 96 68 da 0f N.T.,.A1.A2:A2.A2.R(C)....O..h..
06c0 49 82 00 65 13 36 06 41 41 e7 28 41 31 e9 41 32 29 ec 13 00 7e 13 40 06 43 58 e7 0f a0 e9 ff 8c I..e.6.AA.(A1.A2)...~.@.CX......
06e0 28 41 41 29 eb 28 4c 52 ea 53 52 29 00 97 13 4a 06 43 59 e7 0f 64 ea ff 89 28 41 41 29 eb 28 4c (AA).(LR.SR)...J.CY..d...(AA).(L
0700 52 ea 53 52 29 00 bd 13 54 06 fe 91 20 28 43 58 2c 43 59 29 2c 53 52 2c 12 2c ea 41 31 ea 1d 6f R.SR)...T....(CX,CY),SR,.,.A1..o
0720 12 03 77 2c ea 41 32 2c 16 ec 17 00 f4 13 5e 06 fe 8f 20 28 43 58 e9 ff 8c 28 41 41 29 eb 1d cd ..w,.A2,......^....(CX...(AA)...
0740 cc 4c 80 eb 53 52 2c 43 59 ea ff 89 28 41 41 29 eb 1d cd cc 4c 80 eb 53 52 29 2c 43 20 f3 20 15 .L..SR,CY...(AA)....L..SR),C....
0760 2c 12 00 2e 14 68 06 4c 58 e7 43 58 e9 ff 8c 28 41 41 29 eb 28 0f 10 e9 53 52 29 ea 15 eb ff 92 ,....h.LX.CX...(AA).(...SR).....
0780 28 41 24 28 43 29 29 3a 4c 59 e7 43 59 ea ff 89 28 41 41 29 eb 28 53 52 e9 0f 10 29 00 4f 14 72 (A$(C)):LY.CY...(AA).(SR...).O.r
07a0 06 ca 20 12 e9 28 4c 59 f4 19 29 2c 12 e9 28 4c 58 f4 19 29 3a 91 20 41 24 28 43 29 3b 00 93 14 .....(LY..),..(LX..):..A$(C);...
07c0 7c 06 b0 20 28 28 4c 58 f4 19 29 eb 19 2c 19 eb 28 28 4c 59 f4 19 29 e9 12 29 29 ea 28 28 4c 58 |...((LX..)..,..((LY..)..)).((LX
07e0 f4 19 29 eb 19 e9 19 eb ff 92 28 41 24 28 43 29 29 2c 19 eb 28 28 4c 59 f4 19 29 e9 12 29 29 2c ..).......(A$(C)),..((LY..)..)),
0800 12 00 9b 14 86 06 83 20 43 00 a6 14 90 06 ca 20 0f 17 2c 12 00 c6 14 a4 06 91 22 41 6e 6f 74 68 ........C.........,......."Anoth
0820 65 72 20 43 68 61 72 74 3f 20 28 59 20 6f 72 20 4e 29 22 3b 00 dd 14 ae 06 41 24 e7 de 3a 8b 20 er.Chart?.(Y.or.N)";.....A$..:..
0840 41 24 e7 22 22 20 cd 20 0e ae 06 00 f9 14 c2 06 8b 20 41 24 e7 22 4e 22 20 ef 20 41 24 e7 22 6e A$."".............A$."N"...A$."n
0860 22 20 cd 20 0e 12 05 00 15 15 cc 06 8b 20 41 24 e7 22 59 22 20 ef 20 41 24 e7 22 79 22 20 cd 20 ".............A$."Y"...A$."y"...
0880 0e 78 05 00 1f 15 d6 06 89 20 0e 90 06 00 00 00 1a 1a 2c 12 00 c6 14 a4 06 91 22 41 6e 6f 74 68 .x................,......."Anoth
08a0 65 72 20 43 68 61 72 74 3f 20 28 59 20 6f 72 20 4e 29 22 3b 00 dd 14 ae 06 41 24 e7 de 3a 8b 20 er.Chart?.(Y.or.N)";.....A$..:..
08c0 41 24 e7 22 22 20 cd 20 0e ae 06 00 f9 14 c2 06 8b 20 41 24 e7 22 4e 22 20 ef 20 41 24 e7 22 6e A$."".............A$."N"...A$."n
08e0 22 20 cd 20 0e 12 05 00 15 15 cc 06 8b 20 41 24 e7 22 59 22 20 ef 20 41 24 e7 22 79 22 20 cd 20 ".............A$."Y"...A$."y"...