:59468,12: BAR COPYRIGHT (C) 1978 GLEN FISHER[ CURSOR #3, SEPTEMBER, 1978| BOX 550, GOLETA, CA. 93017: AS OF 10 SEP 80ZPG$"BAR":NM$"3":62000dMC34:SK(MC),NM(MC),TL$(MC)nLB$" ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"'xLM20: HIGHEST UNSCALED BAR5AX(LM1)CCR$(13)NQUIT0^QUIT0204}"MORE GRAPHS? ";:9000(IN$,1)"N"50000(IN$,1)"_"2000QUIT1:"":"WHAT IS THE SUBJECT OF THIS GRAPH? ";60000TL$(1)IN$-Q0:Q$"DO YOU WANT HEADINGS":8900:HDQfSY$"":"THE BARS WILL USE '";SY$;"'. IF YOU WANT""SOMETHING ELSE, ENTER IT/THEM: ";:"? ";:9000IN$""SY$IN$Q$"WHAT WIDTH FOR BARS":8950:QIN$"2" CW(IN$):CW1"NOW REALLY, ";:240BCW34"THEY CAN'T BE WIDER THAN 34 COLUMNS.":240HC(MCCW):"ONLY";HC;"COLUMNS WILL FIT ON THE SCREEN."COL1:TC1,"AFTER ENTERING LAST NUMBER, TYPE '-'"1MX06Q$(COL)" - NUMBER":8950@IN$"-"1000!JSK(COL)Q:Q"(COLUMN SKIPPED)":500WTNM(IN$):NM(NM)NM(NM.5):"ROUNDED TO";NMfYNM(COL)NMw^NMMXMXNMHD0500"ENTER HEADING: ";:9000(IN$)35"35 CHARACTERS OR LESS, PLEASE":410TCTC1:TL$(TC)IN$ COLCOL1:COLHC310< "ONLY";HC;"COLUMNS WILL FIT ON THE SCREEN."I TTI120W TIT530] :k COLCOL1| LMXLMMXLM VI1COL `:SK(I)0NM(I)((NM(I)MX)LM.5) jI I0LM :AX(I)(ILMMX.5) I ""; ILM01 T$((AX(I)),2,255)6 (T$)5T$(" "T$,5)Q T$;("",2(ILM),1)X Ig ""; 4: PRINT ""; >SN1:TN2 HI1COL MWD1CW R""; WSK(I)2190 \HDWD((1CW)2)"";(LB$,TN,1);"";:TNTN1 aNM(I)02190. fJ1NM(I)E p(SY$,SN,1);"";L zJw ("",NM(I)); ""; WD SK(I)0SNSN1:SN(SY$)SN1 I "":TMTI:SW2:I$" ":2605 I$:I$""2600 TITM2510* ("? ",SW,1);"";:TMTI15:SW3SW:25109 ( TC22630E - I1TC] 2 (LB$,I,1)I$2650d < Iw F I$(13)2700 P 2510 Z " ";I$;(" :",2(I$" "),1);" ";TL$(I); d T(TL$(I)):LNT2680 n (" ",LNT); x "":LNT:2510% "":200- @:N "Q$;"? ";:9000:IN$(IN$,1)\ "IN$"" "IN$"Y"IN$"N"Q(IN$"Y"): "IN$"E"IN$"S"IN$"Q"8940 ""PLEASE ANSWER 'YES' OR 'NO'.":8900 ""THANKS.": "Q$;"? ";:9000:Q(IN$""):Q#I1(IN$)B #:T$(IN$,I,1):T$"0"T$"9"8980n#T$"-"T$".""NOT A NUMBER.":8950u#I{#&#'#:(#IN$" ":INTI:SW2:NC12#I$:I$""9100<#(TIIN)9010F#("֒",2SW);P#SW3SW:INTI15:90102#CD(I$):(CD127)31IN$IN$I$:I$;:NCNC1:9010=#" ";a#CD13IN$(IN$,2,255):CR$;:#CD20NC1NCNC1:IN$(IN$,NC):"";:9010#CD141I$(20(NC1)):CD2NC:I$;:CD:9000#9010PÙ"THANKS."ZÀ`IN$" ":ZTTI:ZC2:ZD$(20)&jZ$:Z$""60070VtZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15a~60010Z(Z$):ZL(IN$):(Z127)32" ";:60110FL(Z127)64(Z127)91Z$((Z128)255)ZL25460010IN$IN$Z$:Z$;ZD$;Z$; Z13IN$(IN$,2):CR$;:9Z20ZL1IN$(IN$,ZL1):"";:60010lZ141Z$(20(ZL1)):Z2ZL:Z$;:Z:60000w60010(PN060250260500:"PRESS RETURN TO ";"THE PLOTS.R60200\"IF YOU WANT TO SEE THE PREVIOUSf"GRAPH AGAIN, ENTER '_' WHEN ASKEDp"'MORE GRAPHS?'. NOTE: MAX OF 34 NUMBERS0z"CAN BE PLOTTED WITH 1 COLUMN WIDE<"BARS.b:"YOU CAN PROVIDE SPACE BETWEEN"BARS BY 'SKIPPING' A COLUMN,"(E.G. HIT RETURN INSTEAD OF ENTERING"MINUS SIGN '-' TO SIGNAL THAT ALL"NUMBERS HAVE BEEN ENTERED."FOR THAT COLUMN.": 60200