Expert Systems Program

10 REM This program will be used to determine the required land area 
15 REM for a new landfill.
20 REM Written by Sean P. Mc Guigan
25 KEY OFF
26 WIDTH 80
30 CLS
40 PRINT "This program is used to size new landfills."
50 PRINT
60 GR =0
65 VOL =0
70 AREA =0
80 PRINT "IS THE PROPOSED LANDFILL 5,000 FT. FROM AN AIRPORT?"
90 PRINT "TYPE 1 FOR YES OR 2 FOR NO."
100 INPUT A
110 IF A = 1 THEN PRINT "LANDFILL CAN'T BE PLACED ON SITE.  IT IS TOO CLOSE TO AN
AIRPORT."
112 IF A = 1 GOTO 1000
115 PRINT
120 PRINT "IS THE PROPOSED LANDFILL TO BE PLACED ON WETLANDS?"
130 PRINT "TYPE 1 FOR YES OR 2 FOR NO."
140 INPUT W
150 IF W = 1 THEN PRINT "LANDFILL CAN'T BE PLACED ON WETLANDS."
155 IF W = 1 GOTO 1000
160 PRINT
170 PRINT "IS THE PROPOSED LANDFILL TO BE PLACED ON A LOW-LYING AREA WHICH FLOODS?"
180 PRINT "TYPE 1 FOR YES OR 2 FOR NO."
190 INPUT F
200 IF F = 1 THEN PRINT "LANDFILL CAN'T BE PLACED IN AN AREA WHICH IS PRONE TO 
FLOODING."
205 IF F = 1 THEN GOTO 1000
210 PRINT
220 PRINT "HOW MANY PEOPLE WILL BE USING THE LANDFILL?"
230 INPUT L
240 PRINT
250 PRINT "WHAT IS THE SOLID WASTE GENERATION PER CAPITA (LB/CAPITA)?  IF NOT KNOWN, 
ENTER 6.4."
260 INPUT SWG
270 PRINT
280 PRINT "WHAT IS THE COMPACTED SPECIFIC WEIGHT OF THE SOLID WASTE IN THE LANDFILL




260