0 REM MONGRAPH REV.2 JERRY WHITE›1 REM FOR COMPUTE TUTORIAL›2 DIM A$(20),AMT(12),JW(12):GOSUB 2000›4 GRAPHICS 6:SETCOLOR 2,4,4:SETCOLOR 4,4,4:Z=1:SETCOLOR 0,1,10›5 GRAPHICS 6:SETCOLOR 2,4,4:SETCOLOR 4,4,4:Z=1:SETCOLOR 0,1,10›6 PX=4:PY=0:A$="M0NTHLY GRAPH":GOSUB 20›8 COLOR Z:PLOT 18,9:DRAWTO 158,9:DRAWTO 158,75:DRAWTO 18,75:DRAWTO 18,9›10 GOTO 100›20 DL=PEEK(560)+PEEK(561)*256:D1=PEEK(DL+4)+PEEK(DL+5)*256›22 FOR U=Z TO LEN(A$):D2=57344+((ASC(A$(U,U))-32)*8):D3=D1+PY*20+PX+U-Z:FOR JZ=0 TO 7›24 POKE D3+JZ*20,PEEK(D2+JZ):NEXT JZ:NEXT U:RETURN ›100 FOR MON=Z TO 12:IF AMT(MON)>HAMT THEN HAMT=AMT(MON)›110 NEXT MON›120 J1=HAMT/65›130 FOR MON=Z TO 12:TAMT=75-(AMT(MON)/J1):JW(MON)=INT(TAMT):NEXT MON›140 IF HAMT>=10000 THEN K=INT(HAMT/1000):GOTO 200›150 IF HAMT>=1000 THEN K=INT(HAMT/100):GOTO 200›160 IF HAMT>=100 THEN K=INT(HAMT/10):GOTO 200›170 K=INT(HAMT)›200 KD=K/5:K2=INT(K-KD):K3=INT(K-(KD*2))›220 K4=INT(K-(KD*3)):K5=INT(K-(KD*4))›222 A$=STR$(K):PX=2-LEN(A$):PY=10:GOSUB 20›224 IF K<5 OR K>99 THEN 280›240 A$=STR$(K2):PX=2-LEN(A$):PY=24:GOSUB 20›250 A$=STR$(K3):PX=2-LEN(A$):PY=38:GOSUB 20›260 A$=STR$(K4):PX=2-LEN(A$):PY=52:GOSUB 20›270 A$=STR$(K5):PX=2-LEN(A$):PY=66:GOSUB 20›280 POKE 82,0:POKE 83,40:POKE 752,Z›300 ? :? " K J F M A M J J A S O N D"›302 ? " E A E A P A U U U E C O E"›304 ? " Y N B R R Y N L G P T V C"›310 FOR MON=Z TO 12:JY=MON-Z›312 PLOT 18+(JY*12),JW(MON)›314 DRAWTO 25+(JY*12),JW(MON)›320 DRAWTO 25+(JY*12),75›330 DRAWTO 18+(JY*12),75›340 POSITION 18+(JY*12),JW(MON)›350 POKE 765,3:XIO 18,#6,0,0,"S:"›360 FOR VOL=10 TO 0 STEP -1:SOUND 0,JW(MON),10,VOL:NEXT VOL:NEXT MON›400 POKE 82,2:POKE 83,39›500 GOTO 500›2000 GRAPHICS 0:SETCOLOR 2,0,0:SETCOLOR 1,0,10:SETCOLOR 4,0,0:POKE 752,1›2080 ? :? ," MONTHLY GRAPH "›2100 ? :? " TYPE AMOUNTS FOR EACH MONTH: ":? ›2120 ? " DO NOT USE NEGATIVE AMOUNTS ":? ›2200 TRAP 2200:? ,"JAN=";:INPUT JAN:AMT(1)=JAN:TRAP 40000›2210 TRAP 2210:? ,"FEB=";:INPUT FEB:AMT(2)=FEB:TRAP 40000›2220 TRAP 2220:? ,"MAR=";:INPUT MAR:AMT(3)=MAR:TRAP 40000›2230 TRAP 2230:? ,"APR=";:INPUT APR:AMT(4)=APR:TRAP 40000›2240 TRAP 2240:? ,"MAY=";:INPUT MAY:AMT(5)=MAY:TRAP 40000›2250 TRAP 2250:? ,"JUN=";:INPUT JUN:AMT(6)=JUN:TRAP 40000›2260 TRAP 2260:? ,"JUL=";:INPUT JUL:AMT(7)=JUL:TRAP 40000›2270 TRAP 2270:? ,"AUG=";:INPUT AUG:AMT(8)=AUG:TRAP 40000›2280 TRAP 2280:? ,"SEP=";:INPUT SEP:AMT(9)=SEP:TRAP 40000›2290 TRAP 2290:? ,"OCT=";:INPUT OCT:AMT(10)=OCT:TRAP 40000›2300 TRAP 2300:? ,"NOV=";:INPUT NOV:AMT(11)=NOV:TRAP 40000›2310 TRAP 2310:? ,"DEC=";:INPUT DEC:AMT(12)=DEC:TRAP 40000›2400 RETURN ›