$INCLUDE GRAPHICS.BAS

VAR V1, H1, RADIUS = INTEGER
VAR V2, H2, HEIGHT, WIDTH = INTEGER
VAR V3, H3, LENGTH = INTEGER
VAR V4, H4, H, W, V.PERSPECTIVE, H.PERSPECTIVE, INTERIOR, DEPTH = INTEGER
VAR X,O,C = INTEGER
VAR S,Y = CHAR

0	CLEAR.SCREEN

PRINT "                       SALES HISTORY SINCE 1971"

PRINT CHR(27);"C4";

REM 1971
V4 = 84
H4 = 10
H = 20
W = 5
DEPTH = 3
V.PERSPECTIVE = -1
H.PERSPECTIVE = 1
INTERIOR = 1
BAR V4, H4, H, W, DEPTH, INTERIOR, V.PERSPECTIVE, H.PERSPECTIVE

REM 1972
V4 = 84
H4 = 20
H = 40
W = 5
DEPTH = 3
V.PERSPECTIVE = -1
H.PERSPECTIVE = 1
INTERIOR = 1
BAR V4, H4, H, W, DEPTH, INTERIOR, V.PERSPECTIVE, H.PERSPECTIVE

REM 1973
V4 = 84
H4 = 30
H = 50
W = 5
DEPTH = 3
V.PERSPECTIVE = -1
H.PERSPECTIVE = 1
INTERIOR = 1
BAR V4, H4, H, W, DEPTH, INTERIOR, V.PERSPECTIVE, H.PERSPECTIVE

REM 1974
V4 = 84
H4 = 40
H = 60
W = 5
DEPTH = 3
V.PERSPECTIVE = -1
H.PERSPECTIVE = 1
INTERIOR = 1
BAR V4, H4, H, W, DEPTH, INTERIOR, V.PERSPECTIVE, H.PERSPECTIVE

REM 1975
V4 = 84
H4 = 50
H = 33
W = 5
DEPTH = 3
V.PERSPECTIVE = -1
H.PERSPECTIVE = 1
INTERIOR = 1
BAR V4, H4, H, W, DEPTH, INTERIOR, V.PERSPECTIVE, H.PERSPECTIVE

REM 1976
V4 = 84
H4 = 60
H = 46
W = 5
DEPTH = 3
V.PERSPECTIVE = -1
H.PERSPECTIVE = 1
INTERIOR = 1
BAR V4, H4, H, W, DEPTH, INTERIOR, V.PERSPECTIVE, H.PERSPECTIVE

REM 1977
V4 = 84
H4 = 70
H = 55
W = 5
DEPTH = 3
V.PERSPECTIVE = -1
H.PERSPECTIVE = 1
INTERIOR = 1
BAR V4, H4, H, W, DEPTH, INTERIOR, V.PERSPECTIVE, H.PERSPECTIVE

REM 1978
V4 = 84
H4 = 80
H = 50
W = 5
DEPTH = 3
V.PERSPECTIVE = -1
H.PERSPECTIVE = 1
INTERIOR = 1
BAR V4, H4, H, W, DEPTH, INTERIOR, V.PERSPECTIVE, H.PERSPECTIVE

REM 1979
V4 = 84
H4 = 90
H = 22
W = 5
DEPTH = 3
V.PERSPECTIVE = -1
H.PERSPECTIVE = 1
INTERIOR = 1
BAR V4, H4, H, W, DEPTH, INTERIOR, V.PERSPECTIVE, H.PERSPECTIVE

REM 1980
V4 = 84
H4 = 100
H = 34
W = 5
DEPTH = 3
V.PERSPECTIVE = -1
H.PERSPECTIVE = 1
INTERIOR = 1
BAR V4, H4, H, W, DEPTH, INTERIOR, V.PERSPECTIVE, H.PERSPECTIVE

REM 1981
V4 = 84
H4 = 110
H = 50
W = 5
DEPTH = 3
V.PERSPECTIVE = -1
H.PERSPECTIVE = 1
INTERIOR = 1
BAR V4, H4, H, W, DEPTH, INTERIOR, V.PERSPECTIVE, H.PERSPECTIVE

REM 1982
V4 = 84
H4 = 120
H = 30
W = 5
DEPTH = 3
V.PERSPECTIVE = -1
H.PERSPECTIVE = 1
INTERIOR = 1
BAR V4, H4, H, W, DEPTH, INTERIOR, V.PERSPECTIVE, H.PERSPECTIVE

REM 1983
V4 = 84
H4 = 130
H = 65
W = 5
DEPTH = 3
V.PERSPECTIVE = -1
H.PERSPECTIVE = 1
INTERIOR = 1
BAR V4, H4, H, W, DEPTH, INTERIOR, V.PERSPECTIVE, H.PERSPECTIVE

POSITION 23,5

PRINT " 71   72   73   74   75   76   77   78   79   80   81   82   83"
LINEON 86,5,86,135
LINEON 88,8,10,8

RESTORE
FOR X = 22 TO 4 STEP -2
	READ Y
	DATA 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
	POSITION X,1
	PRINT Y
NEXT X

INPUT3 S
PRINT CHR(27);"B4"


FOR X = 1 TO 90
	FOR Y = 160 TO 40 STEP 8
	LINEON X,Y,(X+10),(Y-X)

INPUT3 S
GOTO 0

	
RSPECTIVE = -1
H.PERSPECTIVE = 1
INTERIOR = 1
BAR V4, H4, H, W, DEPTH, INTERIOR, V.P