_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

GR.DEMO BALKGRAF

FILE INFORMATION

FILENAME(S): GR.DEMO BALKGRAF

FILE TYPE(S): PRG

FILE SIZE: 754b

FIRST SEEN: 2025-11-30 21:07:27

APPEARS ON: 1 disk(s)

FILE HASH

323265c15d65f52c8020b2cf409a1063955fc8e9d49888ac387b5a4f47df2a27

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
VCGN C 128 D0012 GR.DEMO BALKGRAF PRG DuncanTwain 22 5 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 40 22 40 05 00 E7 30  2C 31 3A E7 34 2C 31 3A  |.@"@...0,1:.4,1:|
00000010: 8F 20 2A 2A 2A 53 45 54  20 43 4F 4C 4F 52 53 2A  |. ***SET COLORS*|
00000020: 2A 2A 00 55 40 0A 00 DE  31 2C 31 3A 8F 20 2A 2A  |**.U@...1,1:. **|
00000030: 2A 50 55 54 53 20 53 43  52 45 45 4E 20 49 4E 20  |*PUTS SCREEN IN |
00000040: 53 54 41 4E 44 41 52 44  20 42 49 54 2D 4D 41 50  |STANDARD BIT-MAP|
00000050: 20 4D 4F 44 45 00 8E 40  14 00 E9 31 2C 31 30 30  | MODE..@...1,100|
00000060: 30 2C 31 30 30 30 3A 8F  20 2A 2A 2A 53 43 41 4C  |0,1000:. ***SCAL|
00000070: 45 20 53 43 52 45 45 4E  20 46 4F 52 20 58 3D 31  |E SCREEN FOR X=1|
00000080: 30 30 30 2C 20 59 3D 31  30 30 30 2A 2A 2A 00 C3  |000, Y=1000***..|
00000090: 40 28 00 E7 31 2C 32 3A  E0 31 2C 31 2C 31 2C 22  |@(..1,2:.1,1,1,"|
000000A0: 33 44 20 42 41 52 20 47  52 41 50 48 22 3A 8F 20  |3D BAR GRAPH":. |
000000B0: 2A 2A 2A 44 49 53 50 4C  41 59 20 54 49 54 4C 45  |***DISPLAY TITLE|
000000C0: 2A 2A 2A 00 F3 40 32 00  E7 31 2C 37 3A D7 37 30  |***..@2..1,7:.70|
000000D0: 3A 8F 20 2A 2A 2A 53 45  54 20 45 52 52 4F 52 20  |:. ***SET ERROR |
000000E0: 54 52 41 50 20 46 4F 52  20 4C 49 4E 45 20 37 30  |TRAP FOR LINE 70|
000000F0: 2A 2A 2A 00 07 41 3C 00  87 56 28 49 29 3A 49 B2  |***..A<..V(I):I.|
00000100: 49 AA 31 3A 89 36 30 00  39 41 46 00 49 B2 30 3A  |I.1:.60.9AF.I.0:|
00000110: 43 B2 30 3A 58 B2 30 3A  8F 20 2A 2A 2A 50 52 4F  |C.0:X.0:. ***PRO|
00000120: 47 52 41 4D 20 43 4F 4D  45 53 20 48 45 52 45 20  |GRAM COMES HERE |
00000130: 57 49 54 48 20 54 52 41  50 00 52 41 50 00 EB 3A  |WITH TRAP.RAP..:|
00000140: 8F 20 2A 2A 2A 53 54 41  52 54 20 4C 4F 4F 50 2A  |. ***START LOOP*|
00000150: 2A 2A 00 82 41 5A 00 48  B2 31 30 30 30 AB 56 28  |**..AZ.H.1000.V(|
00000160: 43 29 3A 8F 20 2A 2A 2A  44 45 46 49 4E 45 53 20  |C):. ***DEFINES |
00000170: 46 49 52 53 54 20 59 20  43 4F 4F 52 44 49 4E 41  |FIRST Y COORDINA|
00000180: 54 45 00 B6 41 64 00 E1  31 2C 49 AC 31 30 30 2C  |TE..Ad..1,I.100,|
00000190: 48 2C 49 AC 31 30 30 AA  37 35 2C 31 30 30 30 2C  |H,I.100.75,1000,|
000001A0: 2C 31 3A 8F 20 2A 2A 2A  44 52 41 57 53 20 4D 41  |,1:. ***DRAWS MA|
000001B0: 49 4E 20 42 41 52 00 0B  42 6E 00 E5 31 2C 49 AC  |IN BAR..Bn..1,I.|
000001C0: 31 30 30 2C 48 A4 49 AC  31 30 30 AA 33 30 2C 48  |100,H.I.100.30,H|
000001D0: AB 35 30 A4 49 AC 31 30  30 AA 39 35 2C 48 AB 35  |.50.I.100.95,H.5|
000001E0: 30 A4 49 AC 31 30 30 AA  39 35 2C 31 30 30 30 3A  |0.I.100.95,1000:|
000001F0: E5 31 2C 49 AC 31 30 30  AA 39 35 2C 48 AB 35 30  |.1,I.100.95,H.50|
00000200: A4 49 AC 31 30 30 AA 37  35 2C 48 00 35 42 78 00  |.I.100.75,H.5Bx.|
00000210: 56 24 B2 C4 28 56 28 43  29 29 3A E7 31 2C 32 3A  |V$..(V(C)):.1,2:|
00000220: E0 31 2C 58 2C 32 34 2C  56 24 3A 58 B2 58 AA 34  |.1,X,24,V$:X.X.4|
00000230: 3A E7 31 2C 37 00 63 42  82 00 8F 20 2A 2A 2A 41  |:.1,7.cB... ***A|
00000240: 44 44 53 20 33 44 20 53  45 43 54 49 4F 4E 20 41  |DDS 3D SECTION A|
00000250: 4E 44 20 50 52 49 4E 54  53 20 56 41 4C 55 45 53  |ND PRINTS VALUES|
00000260: 2A 2A 2A 00 8A 42 8C 00  49 B2 49 AA 31 3A 43 B2  |***..B..I.I.1:C.|
00000270: 43 AA 31 3A 8B 49 B2 31  30 A7 A1 F9 41 24 3A DE  |C.1:.I.10...A$:.|
00000280: 30 3A 99 22 93 22 3A D5  3A EC 00 B7 42 96 00 83  |0:.".":.:...B...|
00000290: 20 36 30 30 2C 33 30 2C  35 30 30 2C 33 30 32 2C  | 600,30,500,302,|
000002A0: 36 35 34 2C 33 34 35 2C  38 36 35 2C 33 34 35 2C  |654,345,865,345,|
000002B0: 31 32 33 2C 35 34 33 00  EF 42 A0 00 8F 20 2A 2A  |123,543..B... **|
000002C0: 2A 59 4F 55 20 4D 41 59  20 50 55 54 20 59 4F 55  |*YOU MAY PUT YOU|
000002D0: 52 20 4F 57 4E 20 56 41  4C 55 45 53 20 49 4E 20  |R OWN VALUES IN |
000002E0: 46 4F 52 20 54 48 45 20  44 41 54 41 2A 2A 2A 00  |FOR THE DATA***.|
000002F0: 00 00                                             |..              |

.@"@...0,1:.4,1:. ***SET COLORS***.U@...
1,1:. ***PUTS SCREEN IN STANDARD BIT-MAP
 MODE..@...1,1000,1000:. ***SCALE SCREEN
 FOR X=1000, Y=1000***.C@(..1,2:.1,1,1,"
3D BAR GRAPH":. ***DISPLAY TITLE***..@2.
.1,7:W70:. ***SET ERROR TRAP FOR LINE 70
***..A<..V(I):I.I.1:.60.9AF.I.0:C.0:X.0:
. ***PROGRAM COMES HERE WITH TRAP.RAP..:
. ***START LOOP***..AZ.H.1000.V(C):. ***
DEFINES FIRST Y COORDINATE..AD..1,I.100,
H,I.100.75,1000,,1:. ***DRAWS MAIN BAR..
BN..1,I.100,H.I.100.30,H.50.I.100.95,H.5
0.I.100.95,1000:.1,I.100.95,H.50.I.100.7
5,H.5BX.V$.D(V(C)):.1,2:.1,X,24,V$:X.X.4
:.1,7.CB... ***ADDS 3D SECTION AND PRINT
S VALUES***..B..I.I.1:C.C.1:.I.10...A$:.
0:.".":U:...B... 600,30,500,302,654,345,
865,345,123,543..B .. ***YOU MAY PUT YOU
R OWN VALUES IN FOR THE DATA***...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL