BAR GRAPH I
FILE INFORMATION
FILENAME(S): BAR GRAPH I
FILE TYPE(S): PRG
FILE SIZE: 1.8K
FIRST SEEN: 2025-11-30 21:06:55
APPEARS ON: 1 disk(s)
FILE HASH
17f8109111f96ee1b0430c1d630000a326a56e6f964eebf1ffb842158f6e272e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DICK 12 | BAR GRAPH I | PRG | DuncanTwain | 26 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 9D 0B E2 0B 64 00 8F 20 2A 2A 2A 20 42 41 52 20 |....d.. *** BAR | 00000010: 47 52 41 50 48 20 49 20 2A 2A 2A 20 20 20 20 20 |GRAPH I *** | 00000020: 20 20 20 20 20 20 20 20 31 30 35 20 52 45 4D 20 | 105 REM | 00000030: 49 4E 54 45 52 41 43 54 49 56 45 20 44 41 54 41 |INTERACTIVE DATA| 00000040: 20 45 4E 54 52 59 00 05 0C 6E 00 9F 34 2C 36 2C | ENTRY...n..4,6,| 00000050: 30 20 20 20 20 20 3A 8F 20 50 52 49 4E 54 20 41 |0 :. PRINT A| 00000060: 53 43 49 49 20 44 41 54 41 00 25 0C 78 00 9F 31 |SCII DATA.%.x..1| 00000070: 2C 36 2C 31 20 20 20 20 20 3A 8F 20 50 4C 4F 54 |,6,1 :. PLOT| 00000080: 20 58 2C 59 20 44 41 54 41 00 3D 0C 82 00 9F 32 | X,Y DATA.=....2| 00000090: 2C 36 2C 32 20 20 20 20 20 3A 8F 20 43 4F 4C 4F |,6,2 :. COLO| 000000A0: 52 00 5E 0C 8C 00 9F 33 2C 36 2C 33 20 20 20 20 |R.^....3,6,3 | 000000B0: 20 3A 8F 20 43 48 41 52 41 43 54 45 52 20 53 49 | :. CHARACTER SI| 000000C0: 5A 45 00 80 0C 91 00 98 34 3A 98 34 3A 98 34 2C |ZE......4:.4:.4,| 000000D0: 22 42 41 52 20 43 48 41 52 54 22 3A 98 34 3A 98 |"BAR CHART":.4:.| 000000E0: 34 3A 98 34 00 89 0C 96 00 8D 39 38 30 00 96 0C |4:.4......980...| 000000F0: AA 00 43 B2 31 3A 8D 39 35 30 00 A8 0C B4 00 98 |..C.1:.950......| 00000100: 31 2C 22 4D 22 3B 30 2C AB 32 30 30 00 AF 0C BE |1,"M";0,.200....| 00000110: 00 98 34 00 BF 0C C8 00 98 31 2C 22 4D 22 3B 32 |..4......1,"M";2| 00000120: 30 2C 30 00 D1 0C D2 00 98 31 2C 22 44 22 3B 32 |0,0......1,"D";2| 00000130: 30 2C 32 30 30 00 DC 0C DC 00 98 31 2C 22 48 22 |0,200......1,"H"| 00000140: 00 EC 0C E6 00 98 31 2C 22 4D 22 3B 32 30 2C 30 |......1,"M";20,0| 00000150: 00 FD 0C F0 00 98 31 2C 22 44 22 3B 34 38 30 2C |......1,"D";480,| 00000160: 30 00 13 0D FA 00 81 20 49 B2 32 35 20 A4 20 32 |0...... I.25 . 2| 00000170: 30 30 20 A9 20 32 35 00 23 0D 04 01 98 31 2C 22 |00 . 25.#....1,"| 00000180: 4D 22 3B 31 35 2C 49 00 33 0D 0E 01 98 31 2C 22 |M";15,I.3....1,"| 00000190: 44 22 3B 32 30 2C 49 00 3A 0D 18 01 82 49 00 40 |D";20,I.:....I.@| 000001A0: 0D 22 01 3A 00 4E 0D 2C 01 81 20 49 B2 31 20 A4 |.".:.N.,.. I.1 .| 000001B0: 20 4C 00 5B 0D 36 01 43 B2 31 3A 8D 39 35 30 00 | L.[.6.C.1:.950.| 000001C0: 6D 0D 40 01 48 B2 41 28 49 29 AC 35 3A 8D 35 39 |m.@.H.A(I).5:.59| 000001D0: 30 00 74 0D 4A 01 82 49 00 7A 0D 54 01 3A 00 88 |0.t.J..I.z.T.:..| 000001E0: 0D 5E 01 81 20 49 B2 31 20 A4 20 4C 00 95 0D 68 |.^.. I.1 . L...h| 000001F0: 01 43 B2 49 3A 8D 39 35 30 00 A7 0D 72 01 48 B2 |.C.I:.950...r.H.| 00000200: 41 28 49 29 AC 35 3A 8D 36 37 30 00 AE 0D 7C 01 |A(I).5:.670...|.| 00000210: 82 49 00 B4 0D 86 01 3A 00 BF 0D 90 01 98 31 2C |.I.....:......1,| 00000220: 22 48 22 00 C6 0D 9A 01 98 34 00 CC 0D A4 01 3A |"H"......4.....:| 00000230: 00 DA 0D AE 01 81 20 49 B2 31 20 A4 20 4C 00 EB |...... I.1 . L..| 00000240: 0D B8 01 43 B2 31 3A 53 B2 31 3A 8D 39 35 30 00 |...C.1:S.1:.950.| 00000250: 0A 0E C2 01 58 B2 30 3A 59 B2 30 3A 20 20 20 20 |....X.0:Y.0: | 00000260: 20 20 20 20 20 20 20 20 20 3A 8D 38 30 30 00 11 | :.800..| 00000270: 0E CC 01 82 49 00 17 0E D6 01 3A 00 21 0E E0 01 |....I.....:.!...| 00000280: 41 24 B2 54 24 00 32 0E EA 01 43 B2 33 3A 53 B2 |A$.T$.2...C.3:S.| 00000290: 32 3A 8D 39 35 30 00 46 0E F4 01 58 B2 33 30 3A |2:.950.F...X.30:| 000002A0: 59 B2 32 32 30 3A 8D 38 39 30 00 50 0E FE 01 41 |Y.220:.890.P...A| 000002B0: 24 B2 53 24 00 61 0E 08 02 43 B2 32 3A 53 B2 31 |$.S$.a...C.2:S.1| 000002C0: 3A 8D 39 35 30 00 76 0E 12 02 58 B2 32 30 30 3A |:.950.v...X.200:| 000002D0: 59 B2 32 30 30 3A 8D 38 39 30 00 7C 0E 1C 02 3A |Y.200:.890.|...:| 000002E0: 00 90 0E 26 02 98 31 2C 22 48 22 3A 98 34 3A 98 |...&..1,"H":.4:.| 000002F0: 34 3A 98 34 00 9D 0E 29 02 98 34 3A 98 34 3A 98 |4:.4...)..4:.4:.| 00000300: 34 00 A8 0E 2A 02 8D 20 31 31 30 35 00 C6 0E 2B |4...*.. 1105...+| 00000310: 02 9F 37 2C 36 2C 37 3A 98 37 3A 8F 20 52 45 53 |..7,6,7:.7:. RES| 00000320: 45 54 20 50 4C 4F 54 54 45 52 00 D9 0E 30 02 A0 |ET PLOTTER...0..| 00000330: 34 3A A0 31 3A A0 32 3A A0 33 3A A0 37 00 DF 0E |4:.1:.2:.3:.7...| 00000340: 3A 02 80 00 E5 0E 44 02 3A 00 FD 0E 4E 02 8F 20 |:.....D.:...N.. | 00000350: 3D 20 3D 20 57 52 49 54 45 20 42 4F 58 20 3D 20 |= = WRITE BOX = | 00000360: 3D 00 19 0F 58 02 58 28 49 29 B2 28 49 AB 31 29 |=...X.X(I).(I.1)| 00000370: AC 33 36 AC 32 AA 33 36 3A 57 B2 33 36 00 2B 0F |.36.2.36:W.36.+.| 00000380: 62 02 98 31 2C 22 4D 22 3B 58 28 49 29 2C 30 00 |b..1,"M";X(I),0.| 00000390: 3D 0F 6C 02 98 31 2C 22 44 22 3B 58 28 49 29 2C |=.l..1,"D";X(I),| 000003A0: 48 00 51 0F 76 02 98 31 2C 22 44 22 3B 58 28 49 |H.Q.v..1,"D";X(I| 000003B0: 29 AA 57 2C 48 00 65 0F 80 02 98 31 2C 22 44 22 |).W,H.e....1,"D"| 000003C0: 3B 58 28 49 29 AA 57 2C 30 00 6B 0F 8A 02 8E 00 |;X(I).W,0.k.....| 000003D0: 71 0F 94 02 3A 00 88 0F 9E 02 8F 20 3D 20 3D 20 |q...:...... = = | 000003E0: 46 49 4C 4C 20 42 4F 58 20 3D 20 3D 00 A4 0F A8 |FILL BOX = =....| 000003F0: 02 58 28 49 29 B2 28 49 AB 31 29 AC 33 36 AC 32 |.X(I).(I.1).36.2| 00000400: AA 33 36 3A 57 B2 33 36 00 B6 0F B2 02 98 31 2C |.36:W.36......1,| 00000410: 22 4D 22 3B 58 28 49 29 2C 30 00 C8 0F BC 02 81 |"M";X(I),0......| 00000420: 20 4A B2 30 20 A4 20 48 20 A9 20 32 00 DC 0F C6 | J.0 . H . 2....| 00000430: 02 98 31 2C 22 44 22 3B 58 28 49 29 AA 57 2C 4A |..1,"D";X(I).W,J| 00000440: 00 F2 0F D0 02 98 31 2C 22 44 22 3B 58 28 49 29 |......1,"D";X(I)| 00000450: AA 57 2C 4A AA 31 00 05 10 DA 02 8B 20 4A AA 31 |.W,J.1...... J.1| 00000460: B1 B2 48 20 A7 20 37 37 30 00 19 10 E4 02 98 31 |..H . 770......1| 00000470: 2C 22 44 22 3B 58 28 49 29 2C 4A AA 31 00 2D 10 |,"D";X(I),J.1.-.| 00000480: EE 02 98 31 2C 22 44 22 3B 58 28 49 29 2C 4A AA |...1,"D";X(I),J.| 00000490: 32 00 34 10 F8 02 82 4A 00 3A 10 02 03 8E 00 40 |2.4....J.:.....@| 000004A0: 10 0C 03 3A 00 5A 10 16 03 8F 20 3D 20 3D 20 43 |...:.Z.... = = C| 000004B0: 48 41 52 41 43 54 45 52 20 59 20 3D 20 3D 00 6C |HARACTER Y = =.l| 000004C0: 10 20 03 98 31 2C 22 4D 22 3B 58 2C 59 3A 98 34 |. ..1,"M";X,Y:.4| 000004D0: 00 7C 10 2A 03 53 53 B2 28 32 AE 53 29 AC 31 30 |.|.*.SS.(2.S).10| 000004E0: 00 8E 10 34 03 81 20 4D B2 31 20 A4 20 C3 28 41 |...4.. M.1 . .(A| 000004F0: 24 29 00 A5 10 3E 03 98 31 2C 22 4D 22 3B 58 28 |$)...>..1,"M";X(| 00000500: 49 29 AA 39 2C 53 53 AD 35 00 B6 10 48 03 98 34 |I).9,SS.5...H..4| 00000510: 2C CA 28 41 24 2C 4D 2C 31 29 00 BD 10 52 03 82 |,.(A$,M,1)...R..| 00000520: 4D 00 E1 10 5C 03 98 31 2C 22 4D 22 3B 30 2C 53 |M...\..1,"M";0,S| 00000530: 53 AC 34 AD 35 AC C3 28 41 24 29 AA 53 53 AC 32 |S.4.5..(A$).SS.2| 00000540: AA 59 3A 98 34 00 E7 10 66 03 8E 00 ED 10 70 03 |.Y:.4...f.....p.| 00000550: 3A 00 08 11 7A 03 8F 20 3D 20 3D 20 43 48 41 52 |:...z.. = = CHAR| 00000560: 54 41 43 54 45 52 20 58 20 3D 20 3D 00 17 11 84 |TACTER X = =....| 00000570: 03 98 31 2C 22 4D 22 3B 58 2C 59 00 21 11 98 03 |..1,"M";X,Y.!...| 00000580: 98 34 2C 41 24 00 3B 11 A2 03 98 31 2C 22 4D 22 |.4,A$.;....1,"M"| 00000590: 3B 58 2C AB 59 AA 34 30 AC 53 3A 98 34 3A 8E 00 |;X,.Y.40.S:.4:..| 000005A0: 41 11 AC 03 3A 00 5A 11 B6 03 8F 20 3D 20 3D 20 |A...:.Z.... = = | 000005B0: 43 4F 4C 4F 52 20 53 49 5A 45 20 3D 20 3D 00 6A |COLOR SIZE = =.j| 000005C0: 11 C0 03 98 32 2C 43 3A 98 33 2C 53 3A 8E 00 70 |....2,C:.3,S:..p| 000005D0: 11 CA 03 3A 00 7D 11 D4 03 99 20 C7 28 31 34 37 |...:.}.... .(147| 000005E0: 29 00 98 11 DE 03 85 22 45 4E 54 45 52 20 4D 41 |)......"ENTER MA| 000005F0: 49 4E 20 54 49 54 4C 45 22 3B 54 24 00 B2 11 E8 |IN TITLE";T$....| 00000600: 03 85 22 45 4E 54 45 52 20 53 55 42 20 54 49 54 |.."ENTER SUB TIT| 00000610: 4C 45 22 3B 53 24 00 DB 11 F2 03 85 22 45 4E 54 |LE";S$......"ENT| 00000620: 45 52 20 4E 55 4D 42 45 52 20 4F 46 20 44 41 54 |ER NUMBER OF DAT| 00000630: 41 20 50 4F 49 4E 54 53 20 31 2D 36 22 3B 4C 00 |A POINTS 1-6";L.| 00000640: F4 11 FC 03 8B 20 4C B3 31 20 B0 20 4C B1 36 20 |..... L.1 . L.6 | 00000650: A7 20 89 20 31 30 31 30 00 02 12 06 04 81 20 49 |. . 1010...... I| 00000660: B2 31 20 A4 20 4C 00 1B 12 10 04 99 22 20 22 3A |.1 . L......" ":| 00000670: 99 22 44 41 54 41 20 50 4F 49 4E 54 22 2C 49 00 |."DATA POINT",I.| 00000680: 3D 12 1A 04 85 22 45 4E 54 45 52 20 4E 41 4D 45 |=...."ENTER NAME| 00000690: 20 31 2D 36 20 43 48 41 52 53 22 3B 41 24 28 49 | 1-6 CHARS";A$(I| 000006A0: 29 00 59 12 24 04 85 22 45 4E 54 45 52 20 53 49 |).Y.$.."ENTER SI| 000006B0: 5A 45 20 30 2D 34 30 22 3B 41 28 49 29 00 78 12 |ZE 0-40";A(I).x.| 000006C0: 2E 04 8B 20 41 28 49 29 B3 30 20 B0 20 41 28 49 |... A(I).0 . A(I| 000006D0: 29 B1 34 30 20 A7 89 20 31 30 36 30 00 7F 12 38 |).40 .. 1060...8| 000006E0: 04 82 49 00 85 12 42 04 8E 00 8B 12 4C 04 3A 00 |..I...B.....L.:.| 000006F0: 94 12 51 04 98 32 2C 32 00 AE 12 56 04 98 34 2C |..Q..2,2...V..4,| 00000700: 22 44 41 54 41 20 50 4F 49 4E 54 53 2E 2E 2E 2E |"DATA POINTS....| 00000710: 2E 22 00 BC 12 60 04 81 20 49 B2 31 20 A4 20 4C |."...`.. I.1 . L| 00000720: 00 CE 12 6A 04 98 34 2C 41 24 28 49 29 2C 41 28 |...j..4,A$(I),A(| 00000730: 49 29 00 D5 12 74 04 82 49 00 E2 12 7E 04 98 34 |I)...t..I...~..4| 00000740: 3A 98 34 3A 98 34 00 EF 12 88 04 98 34 3A 98 34 |:.4:.4......4:.4| 00000750: 3A 98 34 00 F5 12 92 04 8E 00 00 00 FB |:.4.......... |
....D.. *** BAR GRAPH I *** 105 REM INTERACTIVE DATA ENTRY...N..4,6, 0 :. PRINT ASCII DATA.%.X..1,6,1 :. PLOT X,Y DATA.=....2,6,2 :. COLO R.^....3,6,3 :. CHARACTER SIZE...... 4:.4:.4,"BAR CHART":.4:.4:.4......980... ..C.1:.950......1,"M";0,.200......4...H. .1,"M";20,0.Q.R..1,"D";20,200......1,"H" ......1,"M";20,0......1,"D";480,0...... I.25 . 200 . 25.#....1,"M";15,I.3....1," D";20,I.:....I.@.".:.N.,.. I.1 . L.[.6.C .1:.950.M.@.H.A(I).5:.590.T.J..I.Z.T.:.. .^.. I.1 . L...H.C.I:.950...R.H.A(I).5:. 670...|..I.....:......1,"H".F....4.L...: .Z.... I.1 . L.....C.1:S.1:.950...B.X.0: Y.0: :.800...L..I...V.:.!... A$.T$.2...C.3:S.2:.950.F...X.30:Y.220:.8 90.P...A$.S$.A...C.2:S.1:.950.V...X.200: Y.200:.890.|...:...&..1,"H":.4:.4:.4...) ..4:.4:.4...*.. 1105.F.+..7,6,7:.7:. RES ET PLOTTER.Y.0. 4: 1: 2: 3: 7...:.....D. :...N.. = = WRITE BOX = =...X.X(I).(I.1) .36.2.36:W.36.+.B..1,"M";X(I),0.=.L..1," D";X(I),H.Q.V..1,"D";X(I).W,H.E....1,"D" ;X(I).W,0.K.....Q...:...... = = FILL BOX = =.....X(I).(I.1).36.2.36:W.36......1, "M";X(I),0.H.... J.0 . H . 2...F..1,"D"; X(I).W,J...P..1,"D";X(I).W,J.1...Z.. J.1 ..H . 770......1,"D";X(I),J.1.-....1,"D" ;X(I),J.2.4....J.:.....@...:.Z.... = = C HARACTER Y = =.L. ..1,"M";X,Y:.4.|.*.SS. (2.S).10...4.. M.1 . C(A$)...>..1,"M";X( I).9,SS.5...H..4,J(A$,M,1)...R..M...\..1 ,"M";0,SS.4.5.C(A$).SS.2.Y:.4...F.....P. :...Z.. = = CHARTACTER X = =......1,"M"; X,Y.!....4,A$.;....1,"M";X,.Y.40.S:.4:.. A...:.Z.... = = COLOR SIZE = =.J....2,C: .3,S:..P.J.:.}.T.. G(147)......"ENTER MA IN TITLE";T$......"ENTER SUB TITLE";S$.. ...."ENTER NUMBER OF DATA POINTS 1-6";L. ..... L.1 . L.6 . . 1010...... I.1 . L.. ...." ":."DATA POINT",I.=...."ENTER NAME 1-6 CHARS";A$(I).Y.$.."ENTER SIZE 0-40" ;A(I).X.... A(I).0 . A(I).40 .. 1060..8 ..I...B.....L.:...Q..2,2...V..4,"DATA PO INTS....."...`.. I.1 . L.N.J..4,A$(I),A( I).U.T..I...~..4:.4:.4......4:.4:.4..... .....
> CLICK IMAGE PREVIEW FOR FULL MODAL