> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 26 08 05 00 8F 3A 57 52 49 54 54 45 4E 20 |..&....:WRITTEN |
00000010: 42 59 20 4D 2E 43 2E 48 4F 46 48 45 49 4E 5A 2C |BY M.C.HOFHEINZ,|
00000020: 38 2F 31 2F 37 38 00 42 08 0A 00 97 35 33 32 38 |8/1/78.B....5328|
00000030: 30 2C 31 3A 97 35 33 32 38 31 2C 31 3A 99 22 93 |0,1:.53281,1:.".|
00000040: 90 22 00 65 08 14 00 99 22 20 20 54 48 49 53 20 |.".e...." THIS |
00000050: 49 53 20 54 48 45 20 47 52 41 50 48 20 50 52 4F |IS THE GRAPH PRO|
00000060: 47 52 41 4D 2E 00 89 08 1E 00 99 22 20 20 49 54 |GRAM......." IT|
00000070: 20 57 49 4C 4C 20 50 52 45 53 45 4E 54 20 41 20 | WILL PRESENT A |
00000080: 42 41 52 20 47 52 41 50 48 00 AB 08 28 00 99 22 |BAR GRAPH...(.."|
00000090: 20 20 57 49 54 48 20 42 41 52 20 4C 45 4E 47 54 | WITH BAR LENGT|
000000A0: 48 53 20 45 51 55 41 4C 20 54 4F 00 CB 08 32 00 |HS EQUAL TO...2.|
000000B0: 99 22 20 20 54 48 45 20 51 55 41 4E 54 49 54 49 |." THE QUANTITI|
000000C0: 45 53 20 45 4E 54 45 52 45 44 2E 00 EE 08 3C 00 |ES ENTERED....<.|
000000D0: 99 22 20 20 54 48 45 20 53 43 41 4C 45 20 49 53 |." THE SCALE IS|
000000E0: 20 41 55 54 4F 4D 41 54 49 43 41 4C 4C 59 00 12 | AUTOMATICALLY..|
000000F0: 09 46 00 99 22 20 20 41 44 4A 55 53 54 45 44 20 |.F.." ADJUSTED |
00000100: 54 4F 20 53 55 49 54 20 54 48 45 20 56 41 4C 55 |TO SUIT THE VALU|
00000110: 45 53 00 59 09 50 00 99 22 20 20 45 4E 54 45 52 |ES.Y.P.." ENTER|
00000120: 45 44 2E 54 48 45 20 51 55 41 4E 54 49 54 49 45 |ED.THE QUANTITIE|
00000130: 53 20 4D 55 53 54 20 20 20 20 20 20 20 20 20 20 |S MUST |
00000140: 20 20 20 42 45 20 42 45 54 57 45 45 4E 20 31 20 | BE BETWEEN 1 |
00000150: 41 4E 44 20 31 30 30 30 2E 00 63 09 55 00 99 3A |AND 1000..c.U..:|
00000160: 99 3A 99 00 90 09 5A 00 99 22 20 20 48 4F 57 20 |.:....Z.." HOW |
00000170: 4D 41 4E 59 20 4E 41 4D 45 53 20 57 49 4C 4C 20 |MANY NAMES WILL |
00000180: 54 48 45 52 45 20 42 45 3F 22 3A 99 3A 99 3A 99 |THERE BE?":.:.:.|
00000190: 00 A3 09 64 00 A1 20 5A 3A 8B 20 5A B2 30 20 A7 |...d.. Z:. Z.0 .|
000001A0: 31 30 30 00 C2 09 6E 00 99 22 57 48 41 54 20 49 |100...n.."WHAT I|
000001B0: 53 20 46 49 52 53 54 20 4E 41 4D 45 22 3A 85 20 |S FIRST NAME":. |
000001C0: 41 24 00 E5 09 78 00 99 22 57 48 41 54 20 49 53 |A$...x.."WHAT IS|
000001D0: 20 46 49 52 53 54 20 51 55 41 4E 54 49 54 59 22 | FIRST QUANTITY"|
000001E0: 3B 3A 85 20 41 00 F5 09 82 00 8B 20 5A B2 31 20 |;:. A...... Z.1 |
000001F0: A7 20 32 38 30 00 16 0A 8C 00 99 22 57 48 41 54 |. 280......"WHAT|
00000200: 20 49 53 20 53 45 43 4F 4E 44 20 4E 41 4D 45 22 | IS SECOND NAME"|
00000210: 3B 3A 85 20 42 24 00 3A 0A 96 00 99 22 57 48 41 |;:. B$.:...."WHA|
00000220: 54 20 49 53 20 53 45 43 4F 4E 44 20 51 55 41 4E |T IS SECOND QUAN|
00000230: 54 49 54 59 22 3B 3A 85 20 42 00 4A 0A A0 00 8B |TITY";:. B.J....|
00000240: 20 5A B2 32 20 A7 20 32 38 30 00 6A 0A AA 00 99 | Z.2 . 280.j....|
00000250: 22 57 48 41 54 20 49 53 20 54 48 49 52 44 20 4E |"WHAT IS THIRD N|
00000260: 41 4D 45 22 3B 3A 85 20 43 24 00 8D 0A B4 00 99 |AME";:. C$......|
00000270: 22 57 48 41 54 20 49 53 20 54 48 49 52 44 20 51 |"WHAT IS THIRD Q|
00000280: 55 41 4E 54 49 54 59 22 3B 3A 85 20 43 00 9D 0A |UANTITY";:. C...|
00000290: BE 00 8B 20 5A B2 33 20 A7 20 32 38 30 00 BE 0A |... Z.3 . 280...|
000002A0: C8 00 99 22 57 48 41 54 20 49 53 20 46 4F 55 52 |..."WHAT IS FOUR|
000002B0: 54 48 20 4E 41 4D 45 22 3B 3A 85 20 44 24 00 E2 |TH NAME";:. D$..|
000002C0: 0A D2 00 99 22 57 48 41 54 20 49 53 20 46 4F 55 |...."WHAT IS FOU|
000002D0: 52 54 48 20 51 55 41 4E 54 49 54 59 22 3B 3A 85 |RTH QUANTITY";:.|
000002E0: 20 44 00 F2 0A DC 00 8B 20 5A B2 34 20 A7 20 32 | D...... Z.4 . 2|
000002F0: 38 30 00 12 0B E6 00 99 22 57 48 41 54 20 49 53 |80......"WHAT IS|
00000300: 20 46 49 46 54 48 20 4E 41 4D 45 22 3B 3A 85 20 | FIFTH NAME";:. |
00000310: 45 24 00 35 0B F0 00 99 22 57 48 41 54 20 49 53 |E$.5...."WHAT IS|
00000320: 20 46 49 46 54 48 20 51 55 41 4E 54 49 54 59 22 | FIFTH QUANTITY"|
00000330: 3B 3A 85 20 45 00 45 0B FA 00 8B 20 5A B2 35 20 |;:. E.E.... Z.5 |
00000340: A7 20 32 38 30 00 65 0B 04 01 99 22 57 48 41 54 |. 280.e...."WHAT|
00000350: 20 49 53 20 53 49 58 54 48 20 4E 41 4D 45 22 3B | IS SIXTH NAME";|
00000360: 3A 85 20 46 24 00 88 0B 0E 01 99 22 57 48 41 54 |:. F$......"WHAT|
00000370: 20 49 53 20 53 49 58 54 48 20 51 55 41 4E 54 49 | IS SIXTH QUANTI|
00000380: 54 59 22 3B 3A 85 20 46 00 B7 0B 18 01 8B 20 41 |TY";:. F...... A|
00000390: B1 42 20 AF 20 41 B1 43 20 AF 20 41 B1 44 20 AF |.B . A.C . A.D .|
000003A0: 20 41 B1 45 20 AF 20 41 B1 46 20 A7 20 4E B2 41 | A.E . A.F . N.A|
000003B0: 3A 20 89 20 33 34 30 00 E6 0B 22 01 8B 20 42 B1 |: . 340...".. B.|
000003C0: 41 20 AF 20 42 B1 43 20 AF 20 42 B1 44 20 AF 20 |A . B.C . B.D . |
000003D0: 42 B1 45 20 AF 20 42 B1 46 20 A7 20 4E B2 42 3A |B.E . B.F . N.B:|
000003E0: 20 89 20 33 34 30 00 15 0C 2C 01 8B 20 43 B1 41 | . 340...,.. C.A|
000003F0: 20 AF 20 43 B1 42 20 AF 20 43 B1 44 20 AF 20 43 | . C.B . C.D . C|
00000400: B1 45 20 AF 20 43 B1 46 20 A7 20 4E B2 43 3A 20 |.E . C.F . N.C: |
00000410: 89 20 33 34 30 00 44 0C 36 01 8B 20 44 B1 41 20 |. 340.D.6.. D.A |
00000420: AF 20 44 B1 42 20 AF 20 44 B1 43 20 AF 20 44 B1 |. D.B . D.C . D.|
00000430: 45 20 AF 20 44 B1 46 20 A7 20 4E B2 44 3A 20 89 |E . D.F . N.D: .|
00000440: 20 33 34 30 00 73 0C 40 01 8B 20 45 B1 41 20 AF | 340.s.@.. E.A .|
00000450: 20 45 B1 42 20 AF 20 45 B1 43 20 AF 20 45 B1 44 | E.B . E.C . E.D|
00000460: 20 AF 20 45 B1 46 20 A7 20 4E B2 45 3A 20 89 20 | . E.F . N.E: . |
00000470: 33 34 30 00 7B 0C 4A 01 4E B2 46 00 99 0C 54 01 |340.{.J.N.F...T.|
00000480: 8B 20 4E B1 B2 31 20 AF 20 4E B3 35 20 A7 20 4E |. N..1 . N.5 . N|
00000490: B2 35 3A 20 89 20 34 31 30 00 B9 0C 5E 01 8B 20 |.5: . 410...^.. |
000004A0: 4E B1 B2 35 20 AF 20 4E B3 31 30 20 A7 20 4E B2 |N..5 . N.10 . N.|
000004B0: 31 30 3A 20 89 20 34 31 30 00 DA 0C 68 01 8B 20 |10: . 410...h.. |
000004C0: 4E B1 B2 31 30 20 AF 20 4E B3 32 30 20 A7 20 4E |N..10 . N.20 . N|
000004D0: B2 32 30 3A 20 89 20 34 31 30 00 FB 0C 72 01 8B |.20: . 410...r..|
000004E0: 20 4E B1 B2 32 30 20 AF 20 4E B3 35 30 20 A7 20 | N..20 . N.50 . |
000004F0: 4E B2 35 30 3A 20 89 20 34 31 30 00 1D 0D 7C 01 |N.50: . 410...|.|
00000500: 8B 20 4E B1 B2 35 30 20 AF 20 4E B3 31 30 30 20 |. N..50 . N.100 |
00000510: A7 20 4E B2 31 30 30 3A 89 20 34 31 30 00 3F 0D |. N.100:. 410.?.|
00000520: 86 01 8B 20 4E B1 B2 31 30 30 20 AF 20 4E B3 35 |... N..100 . N.5|
00000530: 30 30 20 A7 20 4E B2 35 30 30 3A 89 34 31 30 00 |00 . N.500:.410.|
00000540: 5E 0D 90 01 8B 20 4E B1 B2 35 30 30 20 AF 20 4E |^.... N..500 . N|
00000550: B3 31 30 30 30 20 A7 20 4E B2 31 30 30 30 00 85 |.1000 . N.1000..|
00000560: 0D 9A 01 99 22 93 9E 22 3A 99 22 30 22 3B 3A 99 |...."..":."0";:.|
00000570: A3 35 29 3B 4E AD 35 3B 3A 99 A3 31 31 29 3B 32 |.5);N.5;:..11);2|
00000580: AC 4E AD 35 3B 00 97 0D 9F 01 99 20 A3 31 37 29 |.N.5;...... .17)|
00000590: 3B 33 AC 4E AD 35 3B 00 B0 0D A4 01 99 20 A3 32 |;3.N.5;...... .2|
000005A0: 33 29 3B 34 AC 4E AD 35 3B 3A 99 A3 32 39 29 4E |3);4.N.5;:..29)N|
000005B0: 00 D7 0D AE 01 99 22 90 B0 C0 C0 C0 C0 C0 B2 C0 |......".........|
000005C0: C0 C0 C0 C0 B2 C0 C0 C0 C0 C0 B2 C0 C0 C0 C0 C0 |................|
000005D0: B2 C0 C0 C0 C0 C0 AE 00 E3 0D B8 01 99 22 DD 22 |............."."|
000005E0: 3B 41 24 00 0C 0E C2 01 99 22 DD 22 3B 3A 81 20 |;A$......".";:. |
000005F0: 4D B2 31 20 A4 20 33 30 AC 41 AD 4E 3A 99 22 1C |M.1 . 30.A.N:.".|
00000600: 12 20 90 22 3B 3A 82 20 4D 20 3A 99 00 1C 0E CC |. .";:. M :.....|
00000610: 01 8B 20 5A B2 31 20 A7 20 36 36 30 00 42 0E D6 |.. Z.1 . 660.B..|
00000620: 01 99 22 AB C0 C0 C0 C0 C0 DB C0 C0 C0 C0 C0 DB |..".............|
00000630: C0 C0 C0 C0 C0 DB C0 C0 C0 C0 C0 DB C0 C0 C0 C0 |................|
00000640: C0 B3 00 4E 0E E0 01 99 22 DD 22 3B 42 24 00 76 |...N....".";B$.v|
00000650: 0E EA 01 99 22 DD 22 3B 3A 81 20 51 B2 31 20 A4 |....".";:. Q.1 .|
00000660: 20 33 30 AC 42 AD 4E 3A 99 22 9F 12 20 90 22 3B | 30.B.N:.".. .";|
00000670: 3A 82 20 51 3A 99 00 86 0E F4 01 8B 20 5A B2 32 |:. Q:....... Z.2|
00000680: 20 A7 20 36 36 30 00 AC 0E FE 01 99 22 AB C0 C0 | . 660......"...|
00000690: C0 C0 C0 DB C0 C0 C0 C0 C0 DB C0 C0 C0 C0 C0 DB |................|
000006A0: C0 C0 C0 C0 C0 DB C0 C0 C0 C0 C0 B3 00 B8 0E 08 |................|
000006B0: 02 99 22 DD 22 3B 43 24 00 E1 0E 12 02 99 22 DD |..".";C$......".|
000006C0: 22 3B 3A 81 20 4F B2 31 20 A4 20 33 30 AC 43 AD |";:. O.1 . 30.C.|
000006D0: 4E 3A 99 22 9C 12 20 90 22 3B 3A 82 20 4F 20 3A |N:.".. .";:. O :|
000006E0: 99 00 F1 0E 1C 02 8B 20 5A B2 33 20 A7 20 36 36 |....... Z.3 . 66|
000006F0: 30 00 17 0F 26 02 99 22 AB C0 C0 C0 C0 C0 DB C0 |0...&.."........|
00000700: C0 C0 C0 C0 DB C0 C0 C0 C0 C0 DB C0 C0 C0 C0 C0 |................|
00000710: DB C0 C0 C0 C0 C0 B3 00 23 0F 30 02 99 22 DD 22 |........#.0.."."|
00000720: 3B 44 24 00 4B 0F 3A 02 99 22 DD 22 3B 3A 81 20 |;D$.K.:..".";:. |
00000730: 50 B2 31 20 A4 20 33 30 AC 44 AD 4E 3A 99 22 1E |P.1 . 30.D.N:.".|
00000740: 12 20 90 22 3B 3A 82 20 50 3A 99 00 5B 0F 44 02 |. .";:. P:..[.D.|
00000750: 8B 20 5A B2 34 20 A7 20 36 36 30 00 81 0F 4E 02 |. Z.4 . 660...N.|
00000760: 99 22 AB C0 C0 C0 C0 C0 DB C0 C0 C0 C0 C0 DB C0 |."..............|
00000770: C0 C0 C0 C0 DB C0 C0 C0 C0 C0 DB C0 C0 C0 C0 C0 |................|
00000780: B3 00 8D 0F 58 02 99 22 DD 22 3B 45 24 00 B6 0F |....X..".";E$...|
00000790: 62 02 99 22 DD 22 3B 3A 81 20 52 B2 31 20 A4 20 |b..".";:. R.1 . |
000007A0: 33 30 AC 45 AD 4E 3A 99 22 1F 12 20 90 22 3B 3A |30.E.N:.".. .";:|
000007B0: 82 20 52 20 3A 99 00 C6 0F 6C 02 8B 20 5A B2 35 |. R :....l.. Z.5|
000007C0: 20 A7 20 36 36 30 00 EC 0F 76 02 99 22 AB C0 C0 | . 660...v.."...|
000007D0: C0 C0 C0 DB C0 C0 C0 C0 C0 DB C0 C0 C0 C0 C0 DB |................|
000007E0: C0 C0 C0 C0 C0 DB C0 C0 C0 C0 C0 B3 00 F8 0F 80 |................|
000007F0: 02 99 22 DD 22 3B 46 24 00 21 10 8A 02 99 22 DD |..".";F$.!....".|
00000800: 22 3B 3A 81 20 53 B2 31 20 A4 20 33 30 AC 46 AD |";:. S.1 . 30.F.|
00000810: 4E 3A 99 22 95 12 20 90 22 3B 3A 82 20 53 20 3A |N:.".. .";:. S :|
00000820: 99 00 4D 10 94 02 99 20 20 20 20 20 20 22 AD C0 |..M.... "..|
00000830: C0 C0 C0 C0 DB C0 C0 C0 C0 C0 DB C0 C0 C0 C0 C0 |................|
00000840: DB C0 C0 C0 C0 C0 DB C0 C0 C0 C0 C0 BD 00 56 10 |..............V.|
00000850: 9E 02 89 36 37 30 00 00 00 0A |...670.... |
..&....:WRITTEN BY M.C.HOFHEINZ,8/1/78.B
....53280,1:.53281,1:."..".E...." THIS
IS THE GRAPH PROGRAM......." IT WILL PR
ESENT A BAR GRAPH...(.." WITH BAR LENGT
HS EQUAL TO.K.2.." THE QUANTITIES ENTER
ED....<.." THE SCALE IS AUTOMATICALLY..
.F.." ADJUSTED TO SUIT THE VALUES.Y.P..
" ENTERED.THE QUANTITIES MUST
BE BETWEEN 1 AND 1000..C.U..:.:....Z.
." HOW MANY NAMES WILL THERE BE?":.:.:.
...D.. Z:. Z.0 .100.B.N.."WHAT IS FIRST
NAME":. A$...X.."WHAT IS FIRST QUANTITY"
;:. A...... Z.1 . 280......"WHAT IS SECO
ND NAME";:. B$.:...."WHAT IS SECOND QUAN
TITY";:. B.J. .. Z.2 . 280.J...."WHAT IS
THIRD NAME";:. C$......"WHAT IS THIRD Q
UANTITY";:. C...... Z.3 . 280...H.."WHAT
IS FOURTH NAME";:. D$...R.."WHAT IS FOU
RTH QUANTITY";:. D...... Z.4 . 280......
"WHAT IS FIFTH NAME";:. E$.5...."WHAT IS
FIFTH QUANTITY";:. E.E.... Z.5 . 280.E.
..."WHAT IS SIXTH NAME";:. F$......"WHAT
IS SIXTH QUANTITY";:. F...... A.B . A.C
. A.D . A.E . A.F . N.A: . 340...".. B.
A . B.C . B.D . B.E . B.F . N.B: . 340..
.,.. C.A . C.B . C.D . C.E . C.F . N.C:
. 340.D.6.. D.A . D.B . D.C . D.E . D.F
. N.D: . 340.S.@.. E.A . E.B . E.C . E.D
. E.F . N.E: . 340.{.J.N.F...T.. N..1 .
N.5 . N.5: . 410...^.. N..5 . N.10 . N.
10: . 410.Z.H.. N..10 . N.20 . N.20: . 4
10...R.. N..20 . N.50 . N.50: . 410...|.
. N..50 . N.100 . N.100:. 410.?.... N..1
00 . N.500 . N.500:.410.^.... N..500 . N
.1000 . N.1000......"..":."0";:..5);N.5;
:..11);2.N.5;...... .17);3.N.5;...... .2
3);4.N.5;:..29)N.W....".................
.....................".";A$...B..".";:.
M.1 . 30.A.N:.".. .";:. M :....L.. Z.1 .
660.B.V..".............................
...N....".";B$.V....".";:. Q.1 . 30.B.N:
.".. .";:. Q:....... Z.2 . 660......"...
..................................".";C$
......".";:. O.1 . 30.C.N:.".. .";:. O :
....... Z.3 . 660...&.."................
................#.0..".";D$.K.:..".";:.
P.1 . 30.D.N:.".. .";:. P:..[.D.. Z.4 .
660...N.."..............................
....X..".";E$...B..".";:. R.1 . 30.E.N:.
".. .";:. R :..F.L.. Z.5 . 660...V.."...
..................................".";F$
.!....".";:. S.1 . 30.F.N:.".. .";:. S :
..M.... "..........................
......V....670....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL