home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / bus / bgraph.200 < prev    next >
Text File  |  2006-10-19  |  2KB  |  15 lines
  1. 0 ' BGRAPH/BAS - AUTHOR UNKNOWN            Modified for T200 by Steve St.Laurent
  2. 1 ' Club 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 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$="janfebmaraprmayjunjulaugsepoctnovdec"
  4. 3 PRINT"Enter title in 40 of fewer characters":INPUTA$:IFLEN(A$)>40THENPRINT"Title"LEN(A$)-40"characters too long. Try again?":GOTO3
  5. 4 CLS:FORA=1TO12:PRINTB$(A)" figure";:INPUTB(A):IFB(A)>250THENPRINT"I'm sorry. I only accept numbers up to 250...":END
  6. 5 IFB(A)>ZTHENZ=B(A)
  7. 6 NEXTA:CLS:IFZ>1000000THENG=200000:Z$="millions":ELSEIFZ>100000THENB=20000:Z$="100 thous."ELSEIFZ>1000THENG=200:Z$="hundreds"ELSEG=2:Z$="tens
  8. 7 FORA=1TO12:B(A)=B(A)/G:NEXTA:PRINT@480,"incr:"Z$;:C=1:PRINT@0,A$:PRINT@536,"j f m a m j j a s o n d";:PRINT@576,"a e a p a u u u e c o e";:PRINT@616,"n b r r y n l g p t v c";:T=92:F=13:FORW=92TO238STEP2:PSET(W,F):NEXTW:FORW=13TO127:PSET(T,W)
  9. 8 IFL=0ORL/5=INT(L/5)THENFORQ=TTOT-3STEP-1:PSET(Q,W):NEXTQ
  10. 9 L=L+1:NEXTW:C=1:FORA=102TO242STEP12:FORB=127TO127-B(C)STEP-1:FORD=ATOA+4:PSET(D,B):NEXTD:NEXTB:C=C+1:NEXTA
  11. 10 PRINT@80,SPACE$(14);:PRINT@80,"";:PRINT"month...":L=0:INPUTR$:PRINT@80,SPACE$(14);:PRINT@120,SPACE$(14);:FORA=1TO36STEP3:L=L+1:IFR$=MID$(M$,A,3)THENPRINT@80,R$;:PRINT@120,B(L)*G;:GOTO12
  12. 11 NEXTA
  13. 12 IFINKEY$<>""THENPRINT@80,SPACE$(14);:PRINT@120,SPACE$(14);:GOTO10ELSE12
  14. 13 END
  15.