BAR CHARTER
FILE INFORMATION
FILENAME(S): BAR CHARTER
FILE TYPE(S): PRG
FILE SIZE: 1.2K
FIRST SEEN: 2025-10-19 22:48:37
APPEARS ON: 1 disk(s)
FILE HASH
187e3bfd9b0bd0893c8a0a615e7aba54ef831af340dc90c8ad36e1c43a1442a6
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAZETTE DEC 86 | BAR CHARTER | PRG | Radd Maxx | 20 | 17 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 44 1C 64 00 4E B2 33 38 3A 86 42 28 4E 29 |..D.d.N.38:.B(N)| 00000010: 3A 81 49 B2 31 A4 4E 3A 87 54 3A 42 B2 42 AA 54 |:.I.1.N:.T:B.B.T| 00000020: 3A 42 28 49 29 B2 42 3A 82 3A 8F 20 53 45 54 20 |:B(I).B:.:. SET | 00000030: 4E 20 54 4F 20 23 20 4F 46 20 49 4E 43 52 45 4D |N TO # OF INCREM| 00000040: 45 4E 54 53 00 6E 1C 6E 00 85 22 93 05 41 43 43 |ENTS.n.n.."..ACC| 00000050: 4F 55 4E 54 20 4E 41 4D 45 22 3B 41 4E 24 3A 41 |OUNT NAME";AN$:A| 00000060: 4E 24 B2 C8 28 41 4E 24 2C 33 39 29 3A 99 00 8D |N$..(AN$,39):...| 00000070: 1C 78 00 83 35 30 2C 32 30 2C 2D 31 35 2C 32 35 |.x..50,20,-15,25| 00000080: 2C 33 30 2C 31 32 2C 2D 32 30 2C 31 37 00 AA 1C |,30,12,-20,17...| 00000090: 82 00 83 35 2C 31 30 2C 31 33 2C 2D 39 2C 32 32 |...5,10,13,-9,22| 000000A0: 2C 31 31 2C 31 30 2C 2D 31 37 00 CA 1C 8C 00 83 |,11,10,-17......| 000000B0: 31 30 2C 31 35 2C 31 32 2C 2D 33 30 2C 2D 32 35 |10,15,12,-30,-25| 000000C0: 2C 2D 31 30 2C 33 30 2C 31 30 00 EC 1C 96 00 83 |,-10,30,10......| 000000D0: 2D 31 30 2C 2D 32 35 2C 2D 31 36 2C 2D 32 37 2C |-10,-25,-16,-27,| 000000E0: 31 30 2C 31 35 2C 2D 31 36 2C 31 30 00 08 1D A0 |10,15,-16,10....| 000000F0: 00 83 2D 31 35 2C 2D 31 36 2C 2D 31 32 2C 2D 32 |..-15,-16,-12,-2| 00000100: 30 2C 2D 31 30 2C 31 32 00 23 1D E8 03 8F 20 20 |0,-10,12.#.... | 00000110: 42 45 47 49 4E 20 43 48 41 52 54 20 52 4F 55 54 |BEGIN CHART ROUT| 00000120: 49 4E 45 00 46 1D F2 03 97 20 37 38 33 2C 30 3A |INE.F.... 783,0:| 00000130: 97 35 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C |.53280,0:.53281,| 00000140: 30 3A 99 22 97 22 00 78 1D FC 03 4C 35 24 B2 22 |0:.".".x...L5$."| 00000150: 35 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |5...............| 00000160: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................| 00000170: A3 A3 A3 A3 A3 A3 A3 22 00 AA 1D 06 04 4C 30 24 |.......".....L0$| 00000180: B2 22 30 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |."0.............| 00000190: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................| 000001A0: A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 CE 1D 10 04 85 |........."......| 000001B0: 22 53 45 54 20 49 4E 43 52 45 4D 45 4E 54 20 56 |"SET INCREMENT V| 000001C0: 41 4C 55 45 22 3B 49 4E 43 3A 99 22 93 22 00 EE |ALUE";INC:."."..| 000001D0: 1D 1A 04 49 4E 43 24 B2 C4 28 49 4E 43 29 3A 8B |...INC$..(INC):.| 000001E0: C3 28 49 4E 43 24 29 B1 35 A7 31 33 34 30 00 FE |.(INC$).5.1340..| 000001F0: 1D 24 04 8B 49 4E 43 B3 31 A7 31 33 34 30 00 2A |.$..INC.1.1340.*| 00000200: 1E 2E 04 99 22 52 45 4C 41 54 49 56 45 20 42 41 |...."RELATIVE BA| 00000210: 4C 41 4E 43 45 53 2E 20 49 4E 43 52 45 4D 45 4E |LANCES. INCREMEN| 00000220: 54 53 20 3D 20 24 22 49 4E 43 00 4D 1E 38 04 81 |TS = $"INC.M.8..| 00000230: 49 B2 31 A4 33 39 3A 99 22 12 20 22 3B 3A 82 3A |I.1.39:.". ";:.:| 00000240: 99 3A 99 22 91 12 22 41 4E 24 22 92 22 00 5F 1E |.:.".."AN$"."._.| 00000250: 42 04 81 49 B2 31 A4 34 3A 99 22 A3 22 3A 82 00 |B..I.1.4:.".":..| 00000260: 76 1E 4C 04 99 4C 35 24 3A 81 49 B2 31 A4 34 3A |v.L..L5$:.I.1.4:| 00000270: 99 22 A3 22 3A 82 00 8D 1E 56 04 99 4C 30 24 3A |.".":....V..L0$:| 00000280: 81 49 B2 31 A4 34 3A 99 22 A3 22 3A 82 00 A4 1E |.I.1.4:.".":....| 00000290: 60 04 99 4C 35 24 3A 81 49 B2 31 A4 34 3A 99 22 |`..L5$:.I.1.4:."| 000002A0: A3 22 3A 82 00 B6 1E 6A 04 56 4C B2 32 32 3A 58 |.":....j.VL.22:X| 000002B0: B2 31 3A 41 B2 30 00 CA 1E 74 04 41 B2 41 AA 31 |.1:A.0...t.A.A.1| 000002C0: 3A 8B 41 B1 4E A7 31 32 39 30 00 E6 1E 7E 04 43 |:.A.N.1290...~.C| 000002D0: 4F 4C B2 43 4F 4C AA 31 3A 8B 43 4F 4C B1 31 35 |OL.COL.1:.COL.15| 000002E0: A7 43 4F 4C B2 31 00 F3 1E 88 04 97 36 34 36 2C |.COL.1......646,| 000002F0: 43 4F 4C 00 03 1F 92 04 42 4C B2 42 28 41 29 AD |COL.....BL.B(A).| 00000300: 49 4E 43 00 1C 1F 9C 04 8B 49 4E 43 B1 42 28 41 |INC......INC.B(A| 00000310: 29 A7 45 4D B2 31 3A 89 31 32 36 30 00 33 1F A6 |).EM.1:.1260.3..| 00000320: 04 8B 42 4C B2 B1 32 30 A7 45 4D B2 32 3A 89 31 |..BL..20.EM.2:.1| 00000330: 32 36 30 00 43 1F B0 04 44 56 B2 56 4C AB B5 28 |260.C...DV.VL..(| 00000340: 42 4C 29 00 5D 1F BA 04 97 37 38 32 2C 58 3A 97 |BL).]....782,X:.| 00000350: 37 38 31 2C 44 56 3A 9E 36 35 35 32 30 00 66 1F |781,DV:.65520.f.| 00000360: C4 04 99 22 A1 22 00 75 1F CE 04 8B 42 4C B3 32 |...".".u....BL.2| 00000370: A7 31 32 35 30 00 8D 1F D8 04 81 49 B2 31 A4 42 |.1250......I.1.B| 00000380: 4C AB 31 3A 99 A3 58 29 22 A1 22 3A 82 00 9D 1F |L.1:..X)".":....| 00000390: E2 04 58 B2 58 AA 31 3A 89 31 31 34 30 00 B7 1F |..X.X.1:.1140...| 000003A0: EC 04 97 37 38 32 2C 58 3A 97 37 38 31 2C 32 31 |...782,X:.781,21| 000003B0: 3A 9E 36 35 35 32 30 00 CC 1F F6 04 8B 45 4D B2 |:.65520......EM.| 000003C0: 31 A7 99 22 3C 22 3A 89 31 32 35 30 00 DB 1F 00 |1.."<":.1250....| 000003D0: 05 99 22 3E 22 3A 89 31 32 35 30 00 F5 1F 0A 05 |..">":.1250.....| 000003E0: 97 37 38 32 2C 30 3A 97 37 38 31 2C 32 32 3A 9E |.782,0:.781,22:.| 000003F0: 36 35 35 32 30 00 27 20 14 05 99 22 97 12 20 20 |65520.' ...".. | 00000400: 3C 2D 42 45 4C 4F 57 20 53 43 41 4C 45 20 20 20 |<-BELOW SCALE | 00000410: 3A 20 20 20 3E 2D 45 58 43 45 45 44 53 20 52 41 |: >-EXCEEDS RA| 00000420: 4E 47 45 20 20 92 22 00 41 20 1E 05 99 22 41 4E |NGE .".A ..."AN| 00000430: 59 20 4B 45 59 20 54 4F 20 45 58 49 54 2E 2E 2E |Y KEY TO EXIT...| 00000440: 22 00 57 20 28 05 A1 4F 50 24 3A 8B 4F 50 24 B2 |".W (..OP$:.OP$.| 00000450: 22 22 A7 31 33 32 30 00 91 20 32 05 80 3A 8F 20 |"".1320.. 2..:. | 00000460: 5B 45 4E 44 20 43 48 41 52 54 20 52 4F 55 54 49 |[END CHART ROUTI| 00000470: 4E 45 20 2D 20 42 52 41 4E 43 48 20 42 41 43 4B |NE - BRANCH BACK| 00000480: 20 54 4F 20 4D 41 49 4E 20 50 52 4F 47 52 41 4D | TO MAIN PROGRAM| 00000490: 5D 00 C2 20 3C 05 99 22 11 55 4E 41 43 43 45 50 |].. <..".UNACCEP| 000004A0: 54 41 42 4C 45 20 56 41 4C 55 45 20 2D 20 4F 55 |TABLE VALUE - OU| 000004B0: 54 20 4F 46 20 52 41 4E 47 45 11 22 3A 89 31 30 |T OF RANGE.":.10| 000004C0: 34 30 00 00 00 |40... |
..D.D.N.38:.B(N):.I.1.N:.T:B.B.T:B(I).B: .:. SET N TO # OF INCREMENTS.N.N.."..ACC OUNT NAME";AN$:AN$.H(AN$,39):....X..50,2 0,-15,25,30,12,-20,17......5,10,13,-9,22 ,11,10,-17.J....10,15,12,-30,-25,-10,30, 10......-10,-25,-16,-27,10,15,-16,10... ..-15,-16,-12,-20,-10,12.#.... BEGIN CH ART ROUTINE.F.... 783,0:.53280,0:.53281, 0:.".".X...L5$."5....................... ...............".....L0$."0............. .........................".N...."SET INC REMENT VALUE";INC:.".".....INC$.D(INC):. C(INC$).5.1340...$..INC.1.1340.*...."REL ATIVE BALANCES. INCREMENTS = $"INC.M.8.. I.1.39:.". ";:.:.:.".."AN$"."._.B..I.1.4 :.".":..V.L..L5$:.I.1.4:.".":....V..L0$: .I.1.4:.".":....`..L5$:.I.1.4:.".":....J .VL.22:X.1:A.0.J.T.A.A.1:.A.N.1290...~.C OL.COL.1:.COL.15.COL.1......646,COL..... BL.B(A).INC......INC.B(A).EM.1:.1260.3.. ..BL..20.EM.2:.1260.C...DV.VL..(BL).]... .782,X:.781,DV:.65520.F.D..".".U.N..BL.2 .1250...X..I.1.BL.1:..X)".":......X.X.1: .1140......782,X:.781,21:.65520.L....EM. 1.."<":.1250......">":.1250......782,0:. 781,22:.65520.' ...".. <-BELOW SCALE : >-EXCEEDS RANGE .".A ..."ANY KEY TO EXIT...".W (..OP$:.OP$."".1320.. 2..:. [END CHART ROUTINE - BRANCH BACK TO MAIN PROGRAM].B <..".UNACCEPTABLE VALUE - OU T OF RANGE.":.1040...
> CLICK IMAGE PREVIEW FOR FULL MODAL