3D Bar Graph

Date: 198x
Type: Program
Platform(s): TS 1000

Appears on

Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.

Gallery

3D Bar Graph

Source Code

   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.

Scroll to Top