I was lucky to see the design allows for 12 bars over the screen width. So the program can accommodate the display of the fuel consumption of your car over the year, or similar things.
Greetings,
Michael
Code: Select all
1 REM ** 3D BAR CHART
2 @ON:@CLR
3 Y=191:Z=175:S=25:GOSUB10
4 Y=188:FORX=6TO138STEP12:READZ:GOSUB20:NEXT
5 GETA$:IFA$=""THEN5
6 @RETURN:END
7 :
10 @1,0,YTO147,Y:@1,147,YTO159,Y-12
11 FORT=0TOZSTEPS
12 @1,0,Y-TTO12,Y-T-12:@1,12,Y-T-12TO159,Y-T-12
13 NEXT
14 @1,0,YTO0,Y-Z:@1,12,Y-12TO12,Y-Z-12:@1,159,Y-12TO159,Y-Z-12
15 RETURN
16 :
20 IFZ<2THEN23
21 FORT=1TO8:@0,X+T,Y-1TOX+T,Y-Z+1:NEXT
22 FORT=1TO5:@0,X+T+9,Y-T-1TOX+T+9,Y-T-Z+1:NEXT
23 FORT=1TO5:@0,X+T+1,Y-T-ZTOX+T+8,Y-T-Z:NEXT
24 @1,X,YTOX+9,Y:@1,X+9,YTOX+15,Y-6
25 @1,X,YTOX,Y-Z:@1,X+9,YTOX+9,Y-Z:@1,X+15,Y-6TOX+15,Y-Z-6
26 @1,X,Y-ZTOX+9,Y-Z:@1,X+9,Y-ZTOX+15,Y-Z-6
27 @1,X,Y-ZTOX+6,Y-Z-6:@1,X+6,Y-Z-6TOX+15,Y-Z-6
28 RETURN
29 :
30 DATA 0,1,2,3,10,20,55,175,111,33,81,47