0 ' BGRAPH/BAS - AUTHOR UNKNOWN 1 ' Club 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 CLS:CLEAR200:DIMB(12),B$(12):DATA Jan., Feb., Mar., Apr., May., Jun., Jul., Aug., Sep., Oct., Nov., Dec.:FORA=1TO12:READB$(A):NEXTA:M$="janfebmaraprmayjunaugsepoctnovdec 3 PRINT"Enter title in 40 of fewer characters":INPUTA$:IFLEN(A$)>40THENPRINT"Title"LEN(A$)-40"characters too long. Try again?":GOTO3 4 CLS:FORA=1TO12:PRINTB$(A)" figure";:INPUTB(A):IFB(A)>10000000THENPRINT"I'm sorry. I only accept numbers up to 10 million (10000000)...":END 5 IFB(A)>ZTHENZ=B(A) 6 NEXTA:CLS:IFZ>1000000THENG=200000:Z$="millions":ELSEIFZ>100000THENB=20000:Z$="100 thous."ELSEIFZ>1000THENG=200:Z$="hundreds"ELSEG=2:Z$="tens 7 FORA=1TO12:B(A)=B(A)/G:NEXTA:PRINT@240,"incr:"Z$;:C=1:PRINT@0,A$:PRINT@216,"j f m a m j j a s o n d";:PRINT@256,"a e a p a u u u e c o e";:PRINT@296,"n b r r y n l g p t v c";:T=92:F=13:FORW=92TO238STEP2:PSET(W,F):NEXTW:FORW=13TO63:PSET(T,W) 8 IFL=0ORL/5=INT(L/5)THENFORQ=TTOT-3STEP-1:PSET(Q,W):NEXTQ 9 L=L+1:NEXTW:C=1:FORA=102TO242STEP12:FORB=63TO63-B(C)STEP-1:FORD=ATOA+4:PSET(D,B):NEXTD:NEXTB:C=C+1:NEXTA 10 PRINT@80,SPACE$(14);:PRINT@80,"";:PRINT"month...":L=0:INPUTR$:PRINT@80,SPACE$(14);:PRINT@120,SPACE$(14);:FORA=1TO34STEP3:L=L+1:IFR$=MID$(M$,A,3)THENPRINT@80,R$;:PRINT@120,B(L)*G;:GOTO12 11 NEXTA 12 IFINKEY$<>""THENPRINT@80,SPACE$(14);:PRINT@120,SPACE$(14);:GOTO10ELSE12 13 END