Atari 8-bit Source code

5 GRAPHICS 0
10 DIM MONAT(12),​M$(20),​HBALKEN(12)
100 ? "":​? "":​? " ROCNI BILANCE - GRAFIK  ";:​TRAP 100:​RESTORE
110 ? ""
115 ? "ROK ==> ";:​INPUT ROK
117 ? ""
120 FOR I=1 TO 12
130 READ M$:​? M$;" ==> ";:​INPUT WERT
135 IF WERT<0 THEN RUN
140 MONAT(I)=WERT
150 NEXT I
160 GOSUB 2000
170 GOSUB 3000
180 GOSUB 4000
2000 REM 100 PROCENT
2010 HPROC=MONAT(1)
2020 FOR I=1 TO 12
2030 IF MONAT(I)>HPROC THEN HPROC=MONAT(I)
2040 NEXT I
2050 RETURN
3000 REM 
3010 FOR I=1 TO 12
3015 IF MONAT(I)=0 THEN HBALKEN(I)=0:​GOTO 3030
3020 HBALKEN(I)=1.4000000000000001*(MONAT(I)/(HPROC/100))
3030 NEXT I
3040 RETURN
4000 GRAPHICS 8:​SETCOLOR 2,​15,​15:​SETCOLOR 1,​0,​0:​COLOR 1:​POKE 752,​1
4010 ? ""
4020 ? ""
4030 ? ""
4040 ? " ROCNI VYROCI ";ROK;
4050 PLOT 5,​150:​DRAWTO 5,​150-140
4060 FOR I=150 TO 10 STEP -14:​PLOT 5,​I:​DRAWTO 15,​I:​NEXT I:​FOR I=10 TO 150 STEP 7:​PLOT 5,​I:​DRAWTO 10,​I:​NEXT I
4070 REM 
4075 ST=23.5
4080 FOR I=1 TO 12
4090 IF HBALKEN(I)=0 THEN 5040
5000 FOR T=150 TO 150-HBALKEN(I) STEP -1
5010 PLOT 3+(I*ST),​T:​DRAWTO 3+(I*ST)+10,​T:​DRAWTO 3+(I*ST)+15,​T-5:​COLOR 0:​PLOT 3+(I*ST)+10,​T:​COLOR 1
5020 NEXT T
5030 PLOT 3+(I*ST)+15,​T-5:​DRAWTO 3+(I*ST)+5,​T-5:​DRAWTO 3+(I*ST),​T
5040 NEXT I
5050 OPEN #1,​4,​0,​"K:​"
5060 GET #1,​R
5070 IF R=ASC(" ") THEN RUN
5075 ST=22
5080 GOTO 5060
6000 DATA JANUAR,​ FEBRUAR,​ MAREC,​ APRIL,​ MAJ,​ JUN,​ JUL,​ AUGUST,​ SEPTEMBER,​ OKTOBER
6010 DATA NOVEMBER,​ DECEMBER	

• Download link 1
• Download link 2