Content
Image Gallery
3D Bar Graph
1 GOSUB 100
10 FOR Y=1 TO N
11 LET P1=Y*6-6
12 LET P2=Y*6-2
13 LET P3=Y*6+2
20 FOR Z=1 TO A(Y)
30 PLOT P1,Z
31 UNPLOT P1+2,Z
32 PLOT P2,Z
33 PLOT P3,Z+4
34 UNPLOT P1+1,Z
35 NEXT Z
40 FOR X=P1 TO P2
41 PLOT X,1
42 PLOT X,A(Y)
43 PLOT X+4,A(Y)+4
44 NEXT X
50 FOR X=1 TO 4
51 PLOT P1+X-1,A(Y)+X-1
52 PLOT P2+X-1,A(Y)+X-1
53 PLOT P2+X-1,X
54 IF X>1 THEN UNPLOT P1+X,A(Y)+X-1
55 NEXT X
56 LET N$=STR$ A(Y)
57 IF A(Y)<10 THEN LET N$=" "+N$
58 PRINT AT 19,Y*3-2;N$(1);AT 20,Y*3-2;N$(2)
60 NEXT Y
61 PRINT AT 0,INT ((32-LEN L$)/2);L$
70 IF INKEY$="" THEN GOTO 70
100 PRINT AT 21,0;"HOW MANY ITEMS?"
101 INPUT N
102 PRINT AT 21,0;"ITEM: "
103 DIM A(N)
104 FOR X=1 TO N
105 PRINT AT 21,5;X
106 INPUT A(X)
107 NEXT X
108 PRINT AT 21,0;"LABEL?"
109 INPUT L$
110 CLS
111 PRINT AT 0,INT ((32-LEN L$)/2);L$
112 RETURN
200 SAVE "1009%6"
201 GOTO 1
People
No people associated with this content.