BAR

00000000: 01 04 1E 04 00 00 9C 3A  97 35 39 34 36 38 2C C2  |.......:.59468,.|
00000010: 28 35 39 34 36 38 29 AF  32 35 33 B0 31 32 00 46  |(59468).253.12.F|
00000020: 04 01 00 8F 20 42 41 52  20 43 4F 50 59 52 49 47  |.... BAR COPYRIG|
00000030: 48 54 28 43 29 20 31 39  37 38 20 47 4C 45 4E 20  |HT(C) 1978 GLEN |
00000040: 46 49 53 48 45 52 00 66  04 02 00 8F 20 43 55 52  |FISHER.f.... CUR|
00000050: 53 4F 52 20 23 33 20 53  45 50 54 45 4D 42 45 52  |SOR #3 SEPTEMBER|
00000060: 2C 20 31 39 37 38 00 86  04 03 00 8F 20 42 4F 58  |, 1978...... BOX|
00000070: 20 35 35 30 2C 20 47 4F  4C 45 54 41 2C 43 41 2E  | 550, GOLETA,CA.|
00000080: 20 39 33 30 31 37 00 8C  04 04 00 3A 00 A2 04 32  | 93017.....:...2|
00000090: 00 43 52 24 B2 C7 28 31  33 29 3A 8D 20 36 30 30  |.CR$..(13):. 600|
000000A0: 30 30 00 C4 04 64 00 4D  43 B2 33 34 3A 86 20 53  |00...d.MC.34:. S|
000000B0: 4B 28 4D 43 29 2C 4E 4D  28 4D 43 29 2C 54 4C 24  |K(MC),NM(MC),TL$|
000000C0: 28 4D 43 29 00 F4 04 6E  00 4C 42 24 B2 22 20 41  |(MC)...n.LB$." A|
000000D0: 42 43 44 45 46 47 48 49  4A 4B 4C 4D 4E 4F 50 51  |BCDEFGHIJKLMNOPQ|
000000E0: 52 53 54 55 56 57 58 59  5A 30 31 32 33 34 35 36  |RSTUVWXYZ0123456|
000000F0: 37 38 39 22 00 15 05 78  00 4C 4D B2 32 30 3A 8F  |789"...x.LM.20:.|
00000100: 20 48 49 47 48 45 53 54  20 55 4E 53 43 41 4C 45  | HIGHEST UNSCALE|
00000110: 44 20 42 41 52 00 24 05  82 00 86 20 41 58 28 4C  |D BAR.$.... AX(L|
00000120: 4D AA 31 29 00 32 05 8C  00 43 52 24 B2 C7 28 31  |M.1).2...CR$..(1|
00000130: 33 29 00 3D 05 96 00 51  55 49 54 B2 30 00 4F 05  |3).=...QUIT.0.O.|
00000140: C8 00 8B 20 51 55 49 54  B2 30 A7 20 32 30 34 00  |... QUIT.0. 204.|
00000150: 6E 05 C9 00 99 22 93 11  11 4D 4F 52 45 20 47 52  |n...."...MORE GR|
00000160: 41 50 48 53 3F 20 22 3B  3A 8D 39 30 30 30 00 86  |APHS? ";:.9000..|
00000170: 05 CA 00 8B C8 28 49 4E  24 2C 31 29 B2 22 4E 22  |.....(IN$,1)."N"|
00000180: A7 35 30 30 30 30 00 9D  05 CB 00 8B C8 28 49 4E  |.50000.......(IN|
00000190: 24 2C 31 29 B2 22 5F 22  A7 32 30 30 30 00 CF 05  |$,1)."_".2000...|
000001A0: CC 00 51 55 49 54 B2 31  3A 99 22 11 57 48 41 54  |..QUIT.1:.".WHAT|
000001B0: 20 49 53 20 54 48 45 20  53 55 42 4A 45 43 54 20  | IS THE SUBJECT |
000001C0: 4F 46 20 54 48 49 53 20  47 52 41 50 48 3F 22 00  |OF THIS GRAPH?".|
000001D0: F3 05 CD 00 99 20 22 3F  20 22 3B 3A 8D 20 39 30  |..... "? ";:. 90|
000001E0: 30 30 3A 8B 20 49 4E 24  B2 22 5F 22 20 A7 20 32  |00:. IN$."_" . 2|
000001F0: 30 30 30 00 02 06 CE 00  54 4C 24 28 31 29 B2 49  |000.....TL$(1).I|
00000200: 4E 24 00 31 06 D2 00 51  B2 30 3A 51 24 B2 22 11  |N$.1...Q.0:Q$.".|
00000210: 44 4F 20 59 4F 55 20 57  41 4E 54 20 48 45 41 44  |DO YOU WANT HEAD|
00000220: 49 4E 47 53 22 3A 8D 20  38 39 30 30 3A 48 44 B2  |INGS":. 8900:HD.|
00000230: 51 00 6B 06 DC 00 53 59  24 B2 22 A6 22 3A 99 20  |Q.k...SY$.".":. |
00000240: 22 11 54 48 45 20 42 41  52 53 20 57 49 4C 4C 20  |".THE BARS WILL |
00000250: 55 53 45 20 27 22 3B 53  59 24 3B 22 27 2E 20 49  |USE '";SY$;"'. I|
00000260: 46 20 59 4F 55 20 57 41  4E 54 22 00 A3 06 E1 00  |F YOU WANT".....|
00000270: 99 20 22 53 4F 4D 45 54  48 49 4E 47 20 45 4C 53  |. "SOMETHING ELS|
00000280: 45 2C 20 45 4E 54 45 52  20 49 54 2F 54 48 45 4D  |E, ENTER IT/THEM|
00000290: 3A 20 22 3B 3A 99 20 22  3F 20 22 3B 3A 8D 20 39  |: ";:. "? ";:. 9|
000002A0: 30 30 30 00 BB 06 E6 00  8B 20 49 4E 24 B3 B1 22  |000...... IN$.."|
000002B0: 22 20 A7 20 53 59 24 B2  49 4E 24 00 EE 06 F0 00  |" . SY$.IN$.....|
000002C0: 51 24 B2 22 11 57 48 41  54 20 57 49 44 54 48 20  |Q$.".WHAT WIDTH |
000002D0: 46 4F 52 20 42 41 52 53  22 3A 8D 20 38 39 35 30  |FOR BARS":. 8950|
000002E0: 3A 8B 20 51 20 A7 20 49  4E 24 B2 22 32 22 00 1E  |:. Q . IN$."2"..|
000002F0: 07 FA 00 43 57 B2 C5 28  49 4E 24 29 3A 8B 20 43  |...CW..(IN$):. C|
00000300: 57 B3 31 20 A7 20 99 20  22 4E 4F 57 20 52 45 41  |W.1 . . "NOW REA|
00000310: 4C 4C 59 2C 20 91 22 3B  3A 89 20 32 34 30 00 5B  |LLY, .";:. 240.[|
00000320: 07 FB 00 8B 20 43 57 B1  33 34 20 A7 20 99 20 22  |.... CW.34 . . "|
00000330: 54 48 45 59 20 43 41 4E  27 54 20 42 45 20 57 49  |THEY CAN'T BE WI|
00000340: 44 45 52 20 54 48 41 4E  20 33 34 20 43 4F 4C 55  |DER THAN 34 COLU|
00000350: 4D 4E 53 2E 22 3A 89 20  32 34 30 00 99 07 FF 00  |MNS.":. 240.....|
00000360: 48 43 B2 B5 28 4D 43 AD  43 57 29 3A 99 20 22 4F  |HC..(MC.CW):. "O|
00000370: 4E 4C 59 22 3B 48 43 3B  22 43 4F 4C 55 4D 4E 53  |NLY";HC;"COLUMNS|
00000380: 20 57 49 4C 4C 20 46 49  54 20 4F 4E 20 54 48 45  | WILL FIT ON THE|
00000390: 20 53 43 52 45 45 4E 2E  22 00 A8 07 04 01 43 4F  | SCREEN.".....CO|
000003A0: 4C B2 31 3A 54 43 B2 31  00 D6 07 2C 01 99 22 11  |L.1:TC.1...,..".|
000003B0: 41 46 54 45 52 20 45 4E  54 45 52 49 4E 47 20 4C  |AFTER ENTERING L|
000003C0: 41 53 54 20 4E 55 4D 42  45 52 2C 20 54 59 50 45  |AST NUMBER, TYPE|
000003D0: 20 27 2D 27 11 22 00 DF  07 31 01 4D 58 B2 30 00  | '-'."...1.MX.0.|
000003E0: 00 08 36 01 51 24 B2 C4  28 43 4F 4C 29 AA 22 20  |..6.Q$..(COL)." |
000003F0: 2D 20 4E 55 4D 42 45 52                           |- NUMBER        |

.......:.59468,B(59468).253.12.F.... BAR
 COPYRIGHT(C) 1978 GLEN FISHER.F.... CUR
SOR #3 SEPTEMBER, 1978...... BOX 550, GO
LETA,CA. 93017.....:...2.CR$.G(13):. 600
00.D.D.MC.34:. SK(MC),NM(MC),TL$(MC)...N
.LB$." ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456
789"...X.LM.20:. HIGHEST UNSCALED BAR.$.
... AX(LM.1).2...CR$.G(13).=...QUIT.0.O.
H.. QUIT.0. 204.N.I.."...MORE GRAPHS? ";
:.9000...J..H(IN$,1)."N".50000...K..H(IN
$,1)."_".2000.O.L.QUIT.1:.".WHAT IS THE 
SUBJECT OF THIS GRAPH?"...M.. "? ";:. 90
00:. IN$."_" . 2000...N.TL$(1).IN$.1.R.Q
.0:Q$.".DO YOU WANT HEADINGS":. 8900:HD.
Q.K...SY$.".":. ".THE BARS WILL USE '";S
Y$;"'. IF YOU WANT"...... "SOMETHING ELS
E, ENTER IT/THEM: ";:. "? ";:. 9000.....
. IN$.."" . SY$.IN$.....Q$.".WHAT WIDTH 
FOR BARS":. 8950:. Q . IN$."2".....CW.E(
IN$):. CW.1 . . "NOW REALLY, .";:. 240.[
.... CW.34 . . "THEY CAN'T BE WIDER THAN
 34 COLUMNS.":. 240.....HC..(MC.CW):. "O
NLY";HC;"COLUMNS WILL FIT ON THE SCREEN.
".....COL.1:TC.1.V.,..".AFTER ENTERING L
AST NUMBER, TYPE '-'."...1.MX.0...6.Q$.D
(COL)." - NUMBER

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL