### Appears on

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

### 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