GRAPHMAKER
FILE INFORMATION
FILENAME(S): GRAPHMAKER
FILE TYPE(S): PRG
FILE SIZE: 4.6K
FIRST SEEN: 2025-11-30 19:47:31
APPEARS ON: 2 disk(s)
FILE HASH
63ee0f3e462a9013e6f73b0e6ad13c21478ee72893212e1b5655679a2bba8a97
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| KOPIDISK | GRAPHMAKER | PRG | Curtcool, Frank | 19 | 0 | DOWNLOAD FILE |
| ANNI | GRAPHMAKER | PRG | Curtcool, Frank | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 01 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..'.... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 00 4D 08 02 00 8F 20 2A 20 |*******.M.... * |
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 73 08 | *.s.|
00000050: 03 00 8F 20 2A 20 20 20 20 20 20 47 52 41 50 48 |... * GRAPH|
00000060: 4D 41 4B 45 52 20 36 34 20 28 43 29 20 31 39 38 |MAKER 64 (C) 198|
00000070: 34 20 2A 00 99 08 04 00 8F 20 2A 20 20 20 20 20 |4 *...... * |
00000080: 20 20 20 20 44 4F 55 47 20 53 4D 4F 41 4B 20 20 | DOUG SMOAK |
00000090: 20 20 20 20 20 20 20 20 2A 00 BF 08 05 00 8F 20 | *...... |
000000A0: 2A 20 20 20 20 20 20 20 20 20 33 30 33 20 48 45 |* 303 HE|
000000B0: 59 57 41 52 44 20 53 54 2E 20 20 20 20 20 2A 00 |YWARD ST. *.|
000000C0: E5 08 06 00 8F 20 2A 20 20 20 20 20 20 20 20 20 |..... * |
000000D0: 43 4F 4C 55 4D 42 49 41 20 53 43 20 32 39 32 30 |COLUMBIA SC 2920|
000000E0: 31 20 20 20 2A 00 0B 09 07 00 8F 20 2A 20 20 20 |1 *...... * |
000000F0: 20 20 20 20 20 20 28 38 30 33 29 2D 37 36 35 2D | (803)-765-|
00000100: 31 31 38 39 20 20 20 20 20 20 2A 00 31 09 08 00 |1189 *.1...|
00000110: 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |. * |
00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000130: 2A 00 57 09 09 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*.W.... ********|
00000140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000150: 2A 2A 2A 2A 2A 2A 2A 00 81 09 0A 00 42 4F B2 35 |*******.....BO.5|
00000160: 33 32 38 30 3A 42 47 B2 42 4F AA 31 3A 97 42 47 |3280:BG.BO.1:.BG|
00000170: 2C 30 3A 97 42 4F 2C 30 3A 97 35 36 32 39 36 2C |,0:.BO,0:.56296,|
00000180: 30 00 B5 09 14 00 4F 56 24 B2 22 1D 1D 1D 1D 1D |0.....OV$.".....|
00000190: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000001A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000001B0: 1D 1D 1D 1D 22 00 D6 09 1E 00 44 4E 24 B2 22 13 |....".....DN$.".|
000001C0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000001D0: 11 11 11 11 11 22 00 12 0A 28 00 42 4C 24 B2 44 |....."...(.BL$.D|
000001E0: 4E 24 AA 22 11 11 11 22 AA 22 20 20 20 20 20 20 |N$."..."." |
000001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000210: 13 22 00 47 0A 32 00 43 43 B2 34 3A 86 46 52 24 |.".G.2.CC.4:.FR$|
00000220: 28 37 29 2C 54 24 28 33 36 29 2C 56 28 33 36 29 |(7),T$(36),V(36)|
00000230: 2C 43 4C 24 28 37 29 2C 46 24 28 32 29 2C 53 28 |,CL$(7),F$(2),S(|
00000240: 32 29 2C 45 28 32 29 00 75 0A 3C 00 53 28 31 29 |2),E(2).u.<.S(1)|
00000250: B2 31 30 32 34 3A 45 28 31 29 B2 32 30 32 34 3A |.1024:E(1).2024:|
00000260: 53 28 32 29 B2 35 35 32 39 36 3A 45 28 32 29 B2 |S(2).55296:E(2).|
00000270: 35 36 32 39 37 00 BB 0A 46 00 43 4C 24 28 30 29 |56297...F.CL$(0)|
00000280: B2 22 98 22 3A 43 4C 24 28 31 29 B2 22 9E 22 3A |.".":CL$(1).".":|
00000290: 43 4C 24 28 32 29 B2 22 81 22 3A 43 4C 24 28 33 |CL$(2).".":CL$(3|
000002A0: 29 B2 22 1C 22 3A 43 4C 24 28 34 29 B2 22 9C 22 |).".":CL$(4)."."|
000002B0: 3A 43 4C 24 28 35 29 B2 22 1F 22 00 D5 0A 50 00 |:CL$(5)."."...P.|
000002C0: 43 4C 24 28 36 29 B2 22 9A 22 3A 43 4C 24 28 37 |CL$(6).".":CL$(7|
000002D0: 29 B2 22 9B 22 00 FA 0A 5A 00 99 22 93 98 20 20 |)."."...Z..".. |
000002E0: 20 20 20 20 20 20 20 20 20 20 20 20 47 52 41 50 | GRAP|
000002F0: 48 4D 41 4B 45 52 20 36 34 22 00 29 0B 64 00 99 |HMAKER 64".).d..|
00000300: 22 11 11 1D 43 5F 43 52 45 41 54 45 20 41 20 47 |"...C_CREATE A G|
00000310: 52 41 50 48 22 3A 99 22 11 1D 4C 5F 4C 4F 41 44 |RAPH":."..L_LOAD|
00000320: 20 41 20 47 52 41 50 48 22 00 54 0B 6E 00 A1 47 | A GRAPH".T.n..G|
00000330: 24 3A 91 AB 28 47 24 B2 22 22 29 89 31 31 30 3A |$:..(G$."").110:|
00000340: 8B 47 24 B3 B1 22 4C 22 AF 47 24 B3 B1 22 43 22 |.G$.."L".G$.."C"|
00000350: A7 31 31 30 00 65 0B 78 00 8B 47 24 B2 22 4C 22 |.110.e.x..G$."L"|
00000360: A7 31 31 37 30 00 AB 0B 82 00 85 22 93 11 1D 4D |.1170......"...M|
00000370: 41 58 49 4D 55 4D 20 56 45 52 54 49 43 41 4C 20 |AXIMUM VERTICAL |
00000380: 53 43 41 4C 45 20 56 41 4C 55 45 22 3B 4D 58 3A |SCALE VALUE";MX:|
00000390: 42 49 B2 4D 58 AD 32 30 3A 4C 49 B2 42 49 AD 37 |BI.MX.20:LI.BI.7|
000003A0: 3A 8B 4D 58 B2 B3 30 A7 31 33 30 00 B9 0B 8C 00 |:.MX..0.130.....|
000003B0: 8D 32 38 30 3A 8D 35 37 30 00 C5 0B 96 00 81 49 |.280:.570......I|
000003C0: B2 31 A4 56 42 00 FE 0B A0 00 99 22 93 11 1D 56 |.1.VB......"...V|
000003D0: 41 4C 55 45 20 54 4F 20 42 45 20 47 52 41 50 48 |ALUE TO BE GRAPH|
000003E0: 45 44 22 3A 99 22 11 1D 46 4F 52 20 42 41 52 20 |ED":."..FOR BAR |
000003F0: 23 22 49 22 9D 2C 20 22 54 24 28 49 29 3B 00 19 |#"I"., "T$(I);..|
00000400: 0C AA 00 85 56 28 49 29 3A 8B 56 28 49 29 B1 4D |....V(I):.V(I).M|
00000410: 58 A7 56 28 49 29 B2 4D 58 00 22 0C B4 00 8D 33 |X.V(I).MX."....3|
00000420: 39 30 00 30 0C BE 00 82 3A 99 47 52 24 4D 58 24 |90.0....:.GR$MX$|
00000430: 00 36 0C C8 00 3A 00 50 0C D2 00 8F 20 2A 2A 20 |.6...:.P.... ** |
00000440: 4C 4F 4F 50 20 46 4F 52 20 42 41 52 53 20 2A 2A |LOOP FOR BARS **|
00000450: 00 56 0C DC 00 3A 00 7D 0C E6 00 81 43 B2 31 A4 |.V...:.}....C.1.|
00000460: 56 42 3A 56 B2 56 28 43 29 3A 56 B2 56 AB 33 AC |VB:V.V(C):V.V.3.|
00000470: 28 42 49 AD 37 29 3A 8D 34 36 30 3A 82 00 86 0C |(BI.7):.460:....|
00000480: F0 00 89 38 31 30 00 8C 0C FA 00 3A 00 AA 0C 04 |...810.....:....|
00000490: 01 8F 20 2A 2A 20 53 45 54 20 55 50 20 50 41 52 |.. ** SET UP PAR|
000004A0: 41 4D 45 54 45 52 53 20 2A 2A 00 B0 0C 0E 01 3A |AMETERS **.....:|
000004B0: 00 E3 0C 18 01 99 22 93 11 1D 48 4F 57 20 4D 41 |......"...HOW MA|
000004C0: 4E 59 20 56 45 52 54 49 43 41 4C 20 42 41 52 53 |NY VERTICAL BARS|
000004D0: 22 3A 99 22 11 1D 28 32 2D 33 36 29 20 22 3B 3A |":."..(2-36) ";:|
000004E0: 85 56 42 00 F7 0C 22 01 8B 56 42 B1 33 36 B0 56 |.VB..."..VB.36.V|
000004F0: 42 B3 32 A7 32 38 30 00 07 0D 2C 01 42 57 B2 B5 |B.2.280...,.BW..|
00000500: 28 33 36 AD 56 42 29 00 13 0D 36 01 81 49 B2 31 |(36.VB)...6..I.1|
00000510: A4 56 42 00 48 0D 40 01 99 22 93 11 1D 54 49 54 |.VB.H.@.."...TIT|
00000520: 4C 45 20 46 4F 52 20 42 41 52 20 23 22 49 3A 99 |LE FOR BAR #"I:.|
00000530: 22 11 1D 55 50 20 54 4F 22 42 57 22 43 48 41 52 |"..UP TO"BW"CHAR|
00000540: 41 43 54 45 52 53 22 3B 00 68 0D 4A 01 85 54 24 |ACTERS";.h.J..T$|
00000550: 28 49 29 3A 8B 54 24 28 49 29 B2 22 22 A7 54 24 |(I):.T$(I)."".T$|
00000560: 28 49 29 B2 C4 28 49 29 00 84 0D 54 01 8B C3 28 |(I)..(I)...T...(|
00000570: 54 24 28 49 29 29 B1 42 57 AF 28 42 57 B1 32 29 |T$(I)).BW.(BW.2)|
00000580: A7 33 32 30 00 8C 0D 5E 01 82 3A 8E 00 92 0D 68 |.320...^..:....h|
00000590: 01 3A 00 AD 0D 72 01 8F 20 2A 2A 20 43 45 4E 54 |.:...r.. ** CENT|
000005A0: 45 52 20 52 4F 55 54 49 4E 45 20 2A 2A 00 B3 0D |ER ROUTINE **...|
000005B0: 7C 01 3A 00 D0 0D 86 01 8B 42 57 B3 33 A7 54 24 ||.:......BW.3.T$|
000005C0: 28 49 29 B2 C9 28 54 24 28 49 29 2C 31 29 3A 8E |(I)..(T$(I),1):.|
000005D0: 00 E3 0D 90 01 8B C3 28 54 24 28 49 29 29 B2 42 |.......(T$(I)).B|
000005E0: 57 A7 8E 00 06 0E 9A 01 4D 52 B2 42 57 AB C3 28 |W.......MR.BW..(|
000005F0: 54 24 28 49 29 29 3A 4D 52 B2 4D 52 AD 32 3A 8B |T$(I)):MR.MR.2:.|
00000600: 4D 52 B3 31 A7 8E 00 3C 0E A4 01 4D 52 24 B2 22 |MR.1...<...MR$."|
00000610: 22 3A 81 4A B2 31 A4 4D 52 3A 43 24 B2 22 1D 22 |":.J.1.MR:C$."."|
00000620: AA 43 24 3A 82 3A 54 24 28 49 29 B2 43 24 AA 54 |.C$:.:T$(I).C$.T|
00000630: 24 28 49 29 3A 43 24 B2 22 22 3A 8E 00 42 0E AE |$(I):C$."":..B..|
00000640: 01 3A 00 5B 0E B8 01 8F 20 2A 2A 20 43 48 41 52 |.:.[.... ** CHAR|
00000650: 54 20 52 4F 55 54 49 4E 45 2A 2A 00 61 0E C2 01 |T ROUTINE**.a...|
00000660: 3A 00 7C 0E CC 01 8B 56 B3 4C 49 AF 56 28 43 29 |:.|....V.LI.V(C)|
00000670: B1 30 A7 46 52 B2 31 3A 89 34 38 30 00 A5 0E D6 |.0.FR.1:.480....|
00000680: 01 8B 56 B1 30 A7 42 4C B2 B5 28 56 AD 42 49 29 |..V.0.BL..(V.BI)|
00000690: 3A 46 B2 56 AB 42 4C AC 42 49 3A 46 52 B2 B5 28 |:F.V.BL.BI:FR..(|
000006A0: 46 AD 4C 49 29 00 B7 0E E0 01 43 43 24 B2 C8 28 |F.LI).....CC$..(|
000006B0: 4F 56 24 2C 43 43 29 00 CE 0E EA 01 99 44 4E 24 |OV$,CC)......DN$|
000006C0: 22 98 11 11 22 43 43 24 54 24 28 43 29 3B 00 DF |"..."CC$T$(C);..|
000006D0: 0E F4 01 99 22 13 22 43 4C 24 28 43 AF 37 29 00 |...."."CL$(C.7).|
000006E0: F6 0E FE 01 99 44 4E 24 43 43 24 3B 3A 8B 42 4C |.....DN$CC$;:.BL|
000006F0: B2 30 A7 35 33 30 00 0A 0F 08 02 81 49 B2 31 A4 |.0.530......I.1.|
00000700: 42 4C 3A 99 43 4C 24 3B 3A 82 00 1D 0F 12 02 8B |BL:.CL$;:.......|
00000710: 46 52 B1 30 A7 99 46 52 24 28 46 52 29 00 36 0F |FR.0..FR$(FR).6.|
00000720: 1C 02 43 43 B2 43 43 AA 42 57 3A 42 4C B2 30 3A |..CC.CC.BW:BL.0:|
00000730: 46 52 B2 30 3A 8E 00 3C 0F 26 02 3A 00 57 0F 30 |FR.0:..<.&.:.W.0|
00000740: 02 8F 20 2A 2A 20 53 45 54 20 55 50 20 53 54 52 |.. ** SET UP STR|
00000750: 49 4E 47 53 20 2A 2A 00 5D 0F 3A 02 3A 00 7F 0F |INGS **.].:.:...|
00000760: 44 02 4D 58 24 B2 C4 28 4D 58 29 3A 4D 58 24 B2 |D.MX$..(MX):MX$.|
00000770: C9 28 4D 58 24 2C C3 28 4D 58 24 29 AB 31 29 00 |.(MX$,.(MX$).1).|
00000780: A4 0F 4E 02 4D 58 24 B2 C8 28 4D 58 24 2C 33 29 |..N.MX$..(MX$,3)|
00000790: 3A 4A B2 33 AB C3 28 4D 58 24 29 3A 8B 4A B2 30 |:J.3..(MX$):.J.0|
000007A0: A7 36 31 30 00 CC 0F 58 02 81 49 B2 31 A4 4A 3A |.610...X..I.1.J:|
000007B0: 4D 24 B2 22 20 22 AA 4D 24 3A 82 3A 4D 58 24 B2 |M$." ".M$:.:MX$.|
000007C0: 4D 24 AA 4D 58 24 3A 4D 24 B2 22 22 00 F9 0F 62 |M$.MX$:M$.""...b|
000007D0: 02 48 46 B2 31 30 30 AC 4D 58 3A 48 46 B2 B5 28 |.HF.100.MX:HF..(|
000007E0: 48 46 AD 32 29 3A 48 46 B2 48 46 AD 31 30 30 3A |HF.2):HF.HF.100:|
000007F0: 48 46 24 B2 C4 28 48 46 29 00 1E 10 6C 02 48 46 |HF$..(HF)...l.HF|
00000800: 24 B2 C9 28 48 46 24 2C C3 28 48 46 24 29 AB 31 |$..(HF$,.(HF$).1|
00000810: 29 3A 48 46 24 B2 C8 28 48 46 24 2C 33 29 00 36 |):HF$..(HF$,3).6|
00000820: 10 76 02 4A B2 33 AB C3 28 48 46 24 29 3A 8B 4A |.v.J.3..(HF$):.J|
00000830: B2 30 A7 36 35 30 00 5E 10 80 02 81 49 B2 31 A4 |.0.650.^....I.1.|
00000840: 4A 3A 4D 24 B2 4D 24 AA 22 20 22 3A 82 3A 48 46 |J:M$.M$." ":.:HF|
00000850: 24 B2 4D 24 AA 48 46 24 3A 4D 24 B2 22 22 00 82 |$.M$.HF$:M$.""..|
00000860: 10 8A 02 8B C5 28 48 46 24 29 B1 C5 28 4D 58 24 |.....(HF$)..(MX$|
00000870: 29 A7 48 46 24 B2 C8 28 22 20 22 AA 48 46 24 2C |).HF$..(" ".HF$,|
00000880: 33 29 00 A8 10 94 02 4D 58 24 B2 22 13 11 11 22 |3).....MX$."..."|
00000890: AA 4D 58 24 AA 22 11 11 11 11 11 11 11 11 11 11 |.MX$."..........|
000008A0: 9D 9D 9D 22 AA 48 46 24 00 D2 10 9E 02 47 52 24 |...".HF$.....GR$|
000008B0: B2 22 DD 11 9D AB 11 9D 22 3A 81 49 B2 31 A4 34 |."......":.I.1.4|
000008C0: 3A 43 24 B2 43 24 AA 47 52 24 3A 82 3A 43 24 B2 |:C$.C$.GR$:.:C$.|
000008D0: 43 24 00 E9 10 A8 02 43 24 B2 22 98 93 11 11 1D |C$.....C$.".....|
000008E0: 1D 1D AB 11 9D 22 AA 43 24 00 13 11 B2 02 81 49 |.....".C$......I|
000008F0: B2 31 A4 35 3A 43 24 B2 43 24 AA 47 52 24 3A 82 |.1.5:C$.C$.GR$:.|
00000900: 3A 47 52 24 B2 43 24 AA 22 DD 9D 11 22 3A 43 24 |:GR$.C$."...":C$|
00000910: B2 22 22 00 4A 11 BC 02 47 52 24 B2 47 52 24 AA |."".J...GR$.GR$.|
00000920: 22 9D 30 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |".0.............|
00000930: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000940: C0 C0 C0 C0 C0 C0 C0 C0 13 22 00 6F 11 C6 02 81 |.........".o....|
00000950: 49 B2 31 A4 42 57 3A 43 24 B2 43 24 AA 22 20 22 |I.1.BW:C$.C$." "|
00000960: 3A 82 3A 43 4C 24 B2 43 24 3A 43 24 B2 22 22 00 |:.:CL$.C$:C$."".|
00000970: A1 11 D0 02 81 49 B2 31 A4 42 57 3A 43 24 B2 43 |.....I.1.BW:C$.C|
00000980: 24 AA 22 9D 22 3A 82 3A 43 4C 24 B2 22 12 22 AA |$.".":.:CL$.".".|
00000990: 43 4C 24 AA 43 24 AA 22 91 92 22 3A 43 24 B2 22 |CL$.C$."..":C$."|
000009A0: 22 00 CC 11 DA 02 46 52 24 B2 22 A4 AF B9 A2 B8 |".....FR$.".....|
000009B0: B7 A3 22 3A 81 49 B2 31 A4 37 3A 46 52 24 28 49 |..":.I.1.7:FR$(I|
000009C0: 29 B2 CA 28 46 52 24 2C 49 2C 31 29 00 EB 11 E4 |)..(FR$,I,1)....|
000009D0: 02 8B 49 B1 34 A7 46 52 24 28 49 29 B2 22 12 22 |..I.4.FR$(I)."."|
000009E0: AA 46 52 24 28 49 29 AA 22 92 22 00 F1 11 EE 02 |.FR$(I).".".....|
000009F0: 82 00 27 12 F8 02 81 49 B2 31 A4 37 3A 81 4A B2 |..'....I.1.7:.J.|
00000A00: 31 A4 42 57 3A 46 24 B2 46 24 AA 46 52 24 28 49 |1.BW:F$.F$.FR$(I|
00000A10: 29 3A 82 4A 3A 46 52 24 28 49 29 B2 46 24 3A 46 |):.J:FR$(I).F$:F|
00000A20: 24 B2 22 22 3A 82 49 00 2D 12 02 03 8E 00 33 12 |$."":.I.-.....3.|
00000A30: 0C 03 3A 00 57 12 16 03 8F 2A 2A 20 49 4E 50 55 |..:.W....** INPU|
00000A40: 54 20 46 4F 52 20 53 2F 4C 2C 54 49 54 4C 45 20 |T FOR S/L,TITLE |
00000A50: 2C 45 54 43 2E 2A 2A 00 5D 12 20 03 3A 00 9E 12 |,ETC.**.]. .:...|
00000A60: 2A 03 99 44 4E 24 22 98 11 11 11 1D 1D 3C 54 3E |*..DN$"......<T>|
00000A70: 45 58 54 20 3C 53 3E 41 56 45 20 3C 41 3E 42 4F |EXT <S>AVE <A>BO|
00000A80: 52 54 20 3C 4C 3E 4F 41 44 20 3C 50 3E 52 49 4E |RT <L>OAD <P>RIN|
00000A90: 54 13 22 3A 81 54 B2 31 A4 38 30 30 3A 82 00 B8 |T.":.T.1.800:...|
00000AA0: 12 34 03 A1 47 24 3A 8B 47 24 B3 B1 22 22 A7 99 |.4..G$:.G$..""..|
00000AB0: 42 4C 24 3A 89 38 34 30 00 D1 12 3E 03 99 42 4C |BL$:.840...>..BL|
00000AC0: 24 3A 81 54 B2 31 A4 31 32 35 3A 82 3A 89 38 31 |$:.T.1.125:.:.81|
00000AD0: 30 00 DF 12 48 03 8B 47 24 B2 22 41 22 A7 8A 00 |0...H..G$."A"...|
00000AE0: F0 12 52 03 8B 47 24 B2 22 4C 22 A7 31 31 37 30 |..R..G$."L".1170|
00000AF0: 00 01 13 5C 03 8B 47 24 B2 22 54 22 A7 31 32 35 |...\..G$."T".125|
00000B00: 30 00 12 13 66 03 8B 47 24 B2 22 50 22 A7 31 34 |0...f..G$."P".14|
00000B10: 36 30 00 23 13 70 03 8B 47 24 B3 B1 22 53 22 A7 |60.#.p..G$.."S".|
00000B20: 38 31 30 00 29 13 7A 03 3A 00 47 13 84 03 8F 20 |810.).z.:.G.... |
00000B30: 2A 2A 20 47 45 54 20 53 41 56 45 20 46 49 4C 45 |** GET SAVE FILE|
00000B40: 4E 41 4D 45 20 2A 2A 00 4D 13 8E 03 3A 00 6E 13 |NAME **.M...:.n.|
00000B50: 98 03 46 24 B2 22 22 3A 99 44 4E 24 22 11 11 11 |..F$."":.DN$"...|
00000B60: 46 49 4C 45 4E 41 4D 45 3F 20 A6 9D 22 3B 00 84 |FILENAME? ..";..|
00000B70: 13 A2 03 A1 47 24 3A 91 AB 28 47 24 B2 22 22 29 |....G$:..(G$."")|
00000B80: 89 39 33 30 00 A4 13 AC 03 8B C6 28 47 24 29 B1 |.930.......(G$).|
00000B90: 33 31 AF C6 28 47 24 29 B3 39 36 A7 46 24 B2 46 |31..(G$).96.F$.F|
00000BA0: 24 AA 47 24 00 C5 13 B6 03 8B 47 24 B3 B1 C7 28 |$.G$......G$...(|
00000BB0: 31 33 29 A7 99 22 20 9D 22 47 24 22 A6 9D 22 3B |13).." ."G$"..";|
00000BC0: 3A 89 39 33 30 00 D9 13 C0 03 99 42 4C 24 3A 8B |:.930......BL$:.|
00000BD0: 46 24 B2 22 22 A7 38 31 30 00 EB 13 CA 03 8B C3 |F$."".810.......|
00000BE0: 28 46 24 29 B1 31 34 A7 39 32 30 00 06 14 D4 03 |(F$).14.920.....|
00000BF0: 46 24 28 31 29 B2 46 24 3A 46 24 28 32 29 B2 46 |F$(1).F$:F$(2).F|
00000C00: 24 AA 22 2E 43 22 00 22 14 DE 03 4F 50 24 B2 22 |$.".C"."...OP$."|
00000C10: 53 22 3A 81 4A B2 31 A4 32 3A 46 24 B2 46 24 28 |S":.J.1.2:F$.F$(|
00000C20: 4A 29 00 34 14 E8 03 53 B2 53 28 4A 29 3A 45 B2 |J).4...S.S(J):E.|
00000C30: 45 28 4A 29 00 4B 14 F2 03 8D 31 30 35 30 3A 82 |E(J).K....1050:.|
00000C40: 3A 8D 31 36 30 30 3A 89 38 31 30 00 51 14 FC 03 |:.1600:.810.Q...|
00000C50: 3A 00 6A 14 06 04 8F 20 2A 2A 20 53 41 56 45 20 |:.j.... ** SAVE |
00000C60: 41 4E 44 20 4C 4F 41 44 2A 2A 00 70 14 10 04 3A |AND LOAD**.p...:|
00000C70: 00 95 14 1A 04 81 49 B2 31 A4 C3 28 46 24 29 3A |......I.1..(F$):|
00000C80: 97 38 31 39 AA 49 2C C6 28 CA 28 46 24 2C 49 2C |.819.I,.(.(F$,I,|
00000C90: 31 29 29 3A 82 00 C1 14 24 04 97 31 38 33 2C C3 |1)):....$..183,.|
00000CA0: 28 46 24 29 3A 97 31 38 37 2C 35 32 3A 97 31 38 |(F$):.187,52:.18|
00000CB0: 38 2C 33 3A 97 31 38 36 2C 38 3A 97 31 38 35 2C |8,3:.186,8:.185,|
00000CC0: 31 00 D3 14 2E 04 8B 4F 50 24 B2 22 4C 22 A7 31 |1......OP$."L".1|
00000CD0: 32 31 30 00 D9 14 38 04 3A 00 EA 14 42 04 8F 20 |210...8.:...B.. |
00000CE0: 2A 2A 20 53 41 56 45 20 2A 2A 00 F0 14 4C 04 3A |** SAVE **...L.:|
00000CF0: 00 24 15 56 04 53 48 B2 B5 28 53 AD 32 35 36 29 |.$.V.SH..(S.256)|
00000D00: 3A 53 4C B2 53 AB 53 48 AC 32 35 36 3A 45 48 B2 |:SL.S.SH.256:EH.|
00000D10: B5 28 45 AD 32 35 36 29 3A 45 4C B2 45 AB 45 48 |.(E.256):EL.E.EH|
00000D20: AC 32 35 36 00 51 15 60 04 97 32 35 31 2C 53 4C |.256.Q.`..251,SL|
00000D30: 3A 97 32 35 32 2C 53 48 3A 97 37 38 30 2C 32 35 |:.252,SH:.780,25|
00000D40: 31 3A 97 37 38 31 2C 45 4C 3A 97 37 38 32 2C 45 |1:.781,EL:.782,E|
00000D50: 48 00 5E 15 6A 04 9E 36 35 34 39 36 3A 8E 00 64 |H.^.j..65496:..d|
00000D60: 15 74 04 3A 00 75 15 7E 04 8F 20 2A 2A 20 4C 4F |.t.:.u.~.. ** LO|
00000D70: 41 44 20 2A 2A 00 7B 15 88 04 3A 00 AC 15 92 04 |AD **.{...:.....|
00000D80: 85 22 93 11 1D 45 58 41 43 54 20 46 49 4C 45 4E |."...EXACT FILEN|
00000D90: 41 4D 45 22 3B 46 24 3A 8B 46 24 B2 22 22 B0 C3 |AME";F$:.F$.""..|
00000DA0: 28 46 24 29 B1 31 34 A7 31 31 37 30 00 C7 15 9C |(F$).14.1170....|
00000DB0: 04 46 24 28 31 29 B2 46 24 3A 46 24 28 32 29 B2 |.F$(1).F$:F$(2).|
00000DC0: 46 24 AA 22 2E 43 22 00 E9 15 A6 04 81 4A B2 31 |F$.".C"......J.1|
00000DD0: A4 32 3A 46 24 B2 46 24 28 4A 29 3A 4F 50 24 B2 |.2:F$.F$(J):OP$.|
00000DE0: 22 4C 22 3A 8D 31 30 35 30 00 FA 15 B0 04 82 3A |"L":.1050......:|
00000DF0: 8D 31 36 30 30 3A 89 38 31 30 00 0E 16 BA 04 97 |.1600:.810......|
00000E00: 37 38 30 2C 30 3A 9E 36 35 34 39 33 3A 8E 00 14 |780,0:.65493:...|
00000E10: 16 C4 04 3A 00 2F 16 CE 04 8F 20 2A 2A 20 43 55 |...:./.... ** CU|
00000E20: 52 53 4F 52 20 52 4F 55 54 49 4E 45 20 2A 2A 00 |RSOR ROUTINE **.|
00000E30: 35 16 D8 04 3A 00 4A 16 E2 04 53 43 B2 31 30 32 |5...:.J...SC.102|
00000E40: 34 3A 43 52 B2 35 35 32 39 36 00 59 16 EC 04 8B |4:CR.55296.Y....|
00000E50: 49 4E B3 30 A7 49 4E B2 30 00 6C 16 F6 04 8B 49 |IN.0.IN.0.l....I|
00000E60: 4E B1 39 35 39 A7 49 4E B2 39 35 39 00 88 16 00 |N.959.IN.959....|
00000E70: 05 4F 4D B2 C2 28 53 43 AA 49 4E 29 3A 4F 43 B2 |.OM..(SC.IN):OC.|
00000E80: C2 28 43 52 AA 49 4E 29 00 B4 16 0A 05 97 53 43 |.(CR.IN)......SC|
00000E90: AA 49 4E 2C 28 C2 28 53 43 AA 49 4E 29 AA 31 32 |.IN,(.(SC.IN).12|
00000EA0: 38 29 AF 32 35 35 3A 97 43 52 AA 49 4E 2C C2 28 |8).255:.CR.IN,.(|
00000EB0: 36 34 36 29 00 CB 16 14 05 A1 47 24 3A 91 AB 28 |646)......G$:..(|
00000EC0: 47 24 B2 22 22 29 89 31 32 39 30 00 E2 16 1E 05 |G$."").1290.....|
00000ED0: 8B 47 24 B2 22 5C 22 A7 8D 31 34 31 30 3A 89 38 |.G$."\"..1410:.8|
00000EE0: 31 30 00 FC 16 28 05 8B 47 24 B2 22 94 22 B0 47 |10...(..G$.".".G|
00000EF0: 24 B2 22 14 22 A7 47 24 B2 22 9D 22 00 2E 17 32 |$.".".G$."."...2|
00000F00: 05 8B 47 24 B2 C7 28 31 33 29 A7 4F 4D B2 28 4F |..G$..(13).OM.(O|
00000F10: 4D AA 31 32 38 29 AF 32 35 35 3A 8D 31 34 31 30 |M.128).255:.1410|
00000F20: 3A 49 4E B2 49 4E AA 31 3A 89 31 32 36 30 00 50 |:IN.IN.1:.1260.P|
00000F30: 17 3C 05 8B 47 24 B2 22 1D 22 A7 8D 31 34 31 30 |.<..G$."."..1410|
00000F40: 3A 49 4E B2 28 49 4E AA 31 29 3A 89 31 32 36 30 |:IN.(IN.1):.1260|
00000F50: 00 72 17 46 05 8B 47 24 B2 22 9D 22 A7 8D 31 34 |.r.F..G$."."..14|
00000F60: 31 30 3A 49 4E B2 28 49 4E AB 31 29 3A 89 31 32 |10:IN.(IN.1):.12|
00000F70: 36 30 00 95 17 50 05 8B 47 24 B2 22 91 22 A7 8D |60...P..G$."."..|
00000F80: 31 34 31 30 3A 49 4E B2 28 49 4E AB 34 30 29 3A |1410:IN.(IN.40):|
00000F90: 89 31 32 36 30 00 B8 17 5A 05 8B 47 24 B2 22 11 |.1260...Z..G$.".|
00000FA0: 22 A7 8D 31 34 31 30 3A 49 4E B2 28 49 4E AA 34 |"..1410:IN.(IN.4|
00000FB0: 30 29 3A 89 31 32 36 30 00 CC 17 64 05 53 50 B2 |0):.1260...d.SP.|
00000FC0: 49 4E 3A 8D 31 34 32 30 3A 99 47 24 00 EC 17 6E |IN:.1420:.G$...n|
00000FD0: 05 8B C6 28 47 24 29 B1 33 31 AF C6 28 47 24 29 |...(G$).31..(G$)|
00000FE0: B3 31 32 38 A7 49 4E B2 49 4E AA 31 00 F6 17 78 |.128.IN.IN.1...x|
00000FF0: 05 89 31 32 36 30 00 10 18 82 05 97 53 43 AA 49 |..1260......SC.I|
00001000: 4E 2C 4F 4D 3A 97 43 52 AA 49 4E 2C 4F 43 3A 8E |N,OM:.CR.IN,OC:.|
00001010: 00 40 18 8C 05 59 B2 B5 28 53 50 AD 34 30 29 3A |.@...Y..(SP.40):|
00001020: 58 B2 53 50 AB 34 30 AC 59 3A 97 37 38 31 2C 59 |X.SP.40.Y:.781,Y|
00001030: 3A 97 37 38 32 2C 58 3A 9E 36 35 35 32 30 3A 8E |:.782,X:.65520:.|
00001040: 00 46 18 96 05 3A 00 5F 18 A0 05 8F 20 2A 2A 20 |.F...:._.... ** |
00001050: 50 52 49 4E 54 45 52 20 44 55 4D 50 20 2A 2A 00 |PRINTER DUMP **.|
00001060: 65 18 AA 05 3A 00 92 18 B4 05 52 24 B2 C7 28 31 |e...:.....R$..(1|
00001070: 34 35 29 3A 56 24 B2 C7 28 31 34 36 29 3A 9F 34 |45):V$..(146):.4|
00001080: 2C 34 3A 9D 34 3A 47 B2 C2 28 36 34 38 29 AC 32 |,4:.4:G..(648).2|
00001090: 35 36 00 A1 18 BE 05 99 52 24 AA C7 28 31 34 29 |56......R$..(14)|
000010A0: 3B 00 B0 18 C8 05 81 50 B2 47 A4 47 AA 39 39 39 |;......P.G.G.999|
000010B0: 00 C1 18 D2 05 43 B2 C2 28 50 29 3A 43 24 B2 22 |.....C..(P):C$."|
000010C0: 22 00 EE 18 DC 05 8B 28 50 AB 47 29 AD 34 30 B2 |"......(P.G).40.|
000010D0: B5 28 28 50 AB 47 29 AD 34 30 29 A7 99 C7 28 38 |.((P.G).40)...(8|
000010E0: 29 AA C7 28 31 33 29 AA C7 28 31 34 29 3B 00 0A |)..(13)..(14);..|
000010F0: 19 E6 05 8B 43 B1 31 32 38 A7 43 B2 43 AB 31 32 |....C.128.C.C.12|
00001100: 38 3A 43 24 B2 C7 28 31 38 29 00 26 19 F0 05 8B |8:C$..(18).&....|
00001110: 43 B3 33 32 B0 43 B1 39 35 A7 43 B2 43 AA 36 34 |C.32.C.95.C.C.64|
00001120: 3A 89 31 35 34 30 00 3D 19 FA 05 8B 43 B1 36 33 |:.1540.=....C.63|
00001130: AF 43 B3 39 36 A7 43 B2 43 AA 31 32 38 00 61 19 |.C.96.C.C.128.a.|
00001140: 04 06 43 24 B2 43 24 AA C7 28 43 29 3A 8B C3 28 |..C$.C$..(C):..(|
00001150: 43 24 29 B1 31 A7 43 24 B2 43 24 AA 56 24 AA 52 |C$).1.C$.C$.V$.R|
00001160: 24 00 72 19 0E 06 99 43 24 3B 3A 82 3A 98 34 3A |$.r....C$;:.:.4:|
00001170: A0 34 00 7B 19 18 06 89 38 31 30 00 81 19 22 06 |.4.{....810...".|
00001180: 3A 00 A0 19 2C 06 8F 20 2A 2A 20 52 45 41 44 20 |:...,.. ** READ |
00001190: 44 49 53 4B 20 45 52 52 4F 52 20 43 48 20 2A 2A |DISK ERROR CH **|
000011A0: 00 A6 19 36 06 3A 00 C0 19 40 06 9F 31 35 2C 38 |...6.:...@..15,8|
000011B0: 2C 31 35 3A 84 31 35 2C 41 2C 42 24 2C 43 2C 44 |,15:.15,A,B$,C,D|
000011C0: 00 C8 19 4A 06 A0 31 35 00 D3 19 54 06 8B 41 B2 |...J..15...T..A.|
000011D0: 30 A7 8E 00 01 1A 5E 06 99 42 4C 24 44 4E 24 22 |0.....^..BL$DN$"|
000011E0: 11 11 11 1D 1D 22 41 22 9D 20 22 42 24 22 20 45 |....."A". "B$" E|
000011F0: 52 52 4F 52 13 22 3A 81 54 B2 31 A4 38 35 30 3A |RROR.":.T.1.850:|
00001200: 82 00 13 1A 68 06 A1 47 24 3A 8B 47 24 B3 B1 22 |....h..G$:.G$.."|
00001210: 22 A7 8E 00 4E 1A 72 06 99 44 4E 24 22 11 11 11 |"...N.r..DN$"...|
00001220: 1D 1D 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 |..PRESS ANY KEY |
00001230: 54 4F 20 43 4F 4E 54 49 4E 55 45 13 22 3A 81 54 |TO CONTINUE.":.T|
00001240: B2 31 A4 38 35 30 3A 82 3A 89 31 36 33 30 00 00 |.1.850:.:.1630..|
00001250: 00 |. |
..'.... *******************************.
M.... * *.S.
... * GRAPHMAKER 64 (C) 1984 *.....
. * DOUG SMOAK *......
* 303 HEYWARD ST. *...... *
COLUMBIA SC 29201 *...... *
(803)-765-1189 *.1.... *
*.W.... ********
***********************.....BO.53280:BG.
BO.1:.BG,0:.BO,0:.56296,0.....OV$.".....
....................................".V.
..DN$."......................"...(.BL$.D
N$."..."."
.".G.2.CC.4:.FR$(7),T$(36),V(36)
,CL$(7),F$(2),S(2),E(2).U.<.S(1).1024:E(
1).2024:S(2).55296:E(2).56297...F.CL$(0)
.".":CL$(1).".":CL$(2).".":CL$(3).".":CL
$(4).".":CL$(5).".".U.P.CL$(6).".":CL$(7
)."."...Z..".. GRAPHMAKER 6
4".).D.."...C_CREATE A GRAPH":."..L_LOAD
A GRAPH".T.N..G$:..(G$."").110:.G$.."L"
.G$.."C".110.E.X..G$."L".1170......"...M
AXIMUM VERTICAL SCALE VALUE";MX:BI.MX.20
:LI.BI.7:.MX..0.130......280:.570.E....I
.1.VB... .."...VALUE TO BE GRAPHED":."..
FOR BAR #"I"., "T$(I);......V(I):.V(I).M
X.V(I).MX."....390.0....:.GR$MX$.6.H.:.P
.R.. ** LOOP FOR BARS **.V...:.}....C.1.
VB:V.V(C):V.V.3.(BI.7):.460:.......810..
...:...... ** SET UP PARAMETERS **.....:
......"...HOW MANY VERTICAL BARS":."..(2
-36) ";:.VB..."..VB.36.VB.2.280...,.BW..
(36.VB)...6..I.1.VB.H.@.."...TITLE FOR B
AR #"I:."..UP TO"BW"CHARACTERS";.H.J..T$
(I):.T$(I)."".T$(I).D(I)...T..C(T$(I)).B
W.(BW.2).320...^..:....H.:...R.. ** CENT
ER ROUTINE **...|.:.P....BW.3.T$(I).I(T$
(I),1):.......C(T$(I)).BW.......MR.BW.C(
T$(I)):MR.MR.2:.MR.1...<...MR$."":.J.1.M
R:C$.".".C$:.:T$(I).C$.T$(I):C$."":..B..
.:.[.... ** CHART ROUTINE**.A.B.:.|.L..V
.LI.V(C).0.FR.1:.480...V..V.0.BL..(V.BI)
:F.V.BL.BI:FR..(F.LI).....CC$.H(OV$,CC).
N....DN$"..."CC$T$(C);......"."CL$(C.7).
.....DN$CC$;:.BL.0.530......I.1.BL:.CL$;
:.......FR.0..FR$(FR).6...CC.CC.BW:BL.0:
FR.0:..<.&.:.W.0.. ** SET UP STRINGS **.
].:.:..D.MX$.D(MX):MX$.I(MX$,C(MX$).1).
..N.MX$.H(MX$,3):J.3.C(MX$):.J.0.610.L.X
..I.1.J:M$." ".M$:.:MX$.M$.MX$:M$.""...B
.HF.100.MX:HF..(HF.2):HF.HF.100:HF$.D(HF
)...L.HF$.I(HF$,C(HF$).1):HF$.H(HF$,3).6
.V.J.3.C(HF$):.J.0.650.^....I.1.J:M$.M$.
" ":.:HF$.M$.HF$:M$.""......E(HF$).E(MX$
).HF$.H(" ".HF$,3).....MX$."...".MX$."..
...........".HF$.R...GR$."......":.I.1.4
:C$.C$.GR$:.:C$.C$.....C$."..........".C
$......I.1.5:C$.C$.GR$:.:GR$.C$."...":C$
."".J...GR$.GR$.".0.....................
.................".O.F..I.1.BW:C$.C$." "
:.:CL$.C$:C$.""...P..I.1.BW:C$.C$.".":.:
CL$.".".CL$.C$."..":C$."".L.Z.FR$.".....
..":.I.1.7:FR$(I).J(FR$,I,1)......I.4.FR
$(I).".".FR$(I).".".......'....I.1.7:.J.
1.BW:F$.F$.FR$(I):.J:FR$(I).F$:F$."":.I.
-.....3...:.W....** INPUT FOR S/L,TITLE
,ETC.**.]. .:...*..DN$"......<T>EXT <S>A
VE <A>BORT <L>OAD <P>RINT.":.T.1.800:...
.4..G$:.G$..""..BL$:.840.Q.>..BL$:.T.1.1
25:.:.810...H..G$."A".....R..G$."L".1170
...\..G$."T".1250...F..G$."P".1460.#.P..
G$.."S".810.).Z.:.G.... ** GET SAVE FILE
NAME **.M...:.N...F$."":.DN$"...FILENAME
? ..";......G$:..(G$."").930......F(G$).
31.F(G$).96.F$.F$.G$.E....G$..G(13).." .
"G$"..";:.930.Y....BL$:.F$."".810...J..C
(F$).14.920...T.F$(1).F$:F$(2).F$.".C"."
...OP$."S":.J.1.2:F$.F$(J).4...S.S(J):E.
E(J).K....1050:.:.1600:.810.Q...:.J....
** SAVE AND LOAD**.P...:......I.1.C(F$):
.819.I,F(J(F$,I,1)):..A.$..183,C(F$):.18
7,52:.188,3:.186,8:.185,1.S....OP$."L".1
210.Y.8.:...B.. ** SAVE **...L.:.$.V.SH.
.(S.256):SL.S.SH.256:EH..(E.256):EL.E.EH
.256.Q.`..251,SL:.252,SH:.780,251:.781,E
L:.782,EH.^.J..65496:..D.T.:.U.~.. ** LO
AD **.{...:......"...EXACT FILENAME";F$:
.F$."".C(F$).14.1170.G...F$(1).F$:F$(2).
F$.".C"......J.1.2:F$.F$(J):OP$."L":.105
0......:.1600:.810......780,0:.65493:...
.D.:./.N.. ** CURSOR ROUTINE **.5.X.:.J.
..SC.1024:CR.55296.Y....IN.0.IN.0.L....I
N.959.IN.959.....OM.B(SC.IN):OC.B(CR.IN)
......SC.IN,(B(SC.IN).128).255:.CR.IN,B(
646).K....G$:..(G$."").1290......G$."\".
.1410:.810...(..G$.".".G$.".".G$."."...2
..G$.G(13).OM.(OM.128).255:.1410:IN.IN.1
:.1260.P.<..G$."."..1410:IN.(IN.1):.1260
.R.F..G$."."..1410:IN.(IN.1):.1260...P..
G$."."..1410:IN.(IN.40):.1260...Z..G$.".
"..1410:IN.(IN.40):.1260.L.D.SP.IN:.1420
:.G$...N..F(G$).31.F(G$).128.IN.IN.1...X
..1260......SC.IN,OM:.CR.IN,OC:..@...Y..
(SP.40):X.SP.40.Y:.781,Y:.782,X:.65520:.
.F...:._. .. ** PRINTER DUMP **.E...:...
..R$.G(145):V$.G(146):.4,4:.4:G.B(648).2
56......R$.G(14);...H..P.G.G.999.A.R.C.B
(P):C$.""......(P.G).40..((P.G).40)..G(8
).G(13).G(14);......C.128.C.C.128:C$.G(1
8).&....C.32.C.95.C.C.64:.1540.=....C.63
.C.96.C.C.128.A...C$.C$.G(C):.C(C$).1.C$
.C$.V$.R$.R....C$;:.:.4: 4.{....810...".
:. .,.. ** READ DISK ERROR CH **...6.:..
.@..15,8,15:.15,A,B$,C,D.H.J. 15.S.T..A.
0.....^..BL$DN$"....."A". "B$" ERROR.":.
T.1.850:....H..G$:.G$..""...N.R..DN$"...
..PRESS ANY KEY TO CONTINUE.":.T.1.850:.
:.1630...
> CLICK IMAGE PREVIEW FOR FULL MODAL