10  DIM A$[72],B$[72],C$[72]
11  REM:  FILE MOVED TO A001 AND LINE BELOW CHANGED 5/26/77 SCHWEIZER
20  FILES DEACOF.A100
30  D=255
40  IF TIM(1)>11 THEN 70
50  PRINT "GOOD MORNING, ";
60  GOTO 110
70  IF TIM(1)>15 THEN 100
80  PRINT "GOOD AFTERNOON, ";
90  GOTO 110
100  PRINT "GOOD EVENING, ";
110  PRINT '10'10"HEY THERE, I'M DEACON--THE MAN/MACHINE WITH THE DRUG INFO."
120  PRINT '10'10"WHAT'S YOUR NAME? ";
130  ENTER #C,D,E,C$
140  READ #1,1
150  PRINT '10'10"TYPE IN THE TERM YOU WANT EXPLAINED "C$" ? ";
160  ENTER #C,D,E,B$
170  PRINT 
180  PRINT 
190  FOR I=1 TO 1000
200  IF  END #1 THEN 420
210  READ #1;A$
220  IF A$[1,1]="*" THEN 240
230  GOTO 210
240  A=LEN(A$)
250  IF A$="*END" THEN 420
260  IF A$[2,A]=B$ THEN 280
270  NEXT I
280  PRINT B$;"..."
290  READ #1;A$
300  IF A$="END" THEN 340
310  PRINT 
320  PRINT A$
330  GOTO 290
340  PRINT '10"ANYTHING ELSE "C$" (YES/NO)? ";
350  ENTER #C,D,E,B$
360  IF B$[1,1]="N" THEN 400
370  IF E<-255 THEN 400
380  GOTO 140
390  PRINT '10'10"TYPE IN THE TERM YOU WANT EXPLAINED ";C$;" ?"
400  PRINT '10"SEE YOU AROUND"
410  GOTO 450
420  PRINT B$;"..."
430  PRINT '10'10"SORRY MAN..."'7'7'7"I'M FRESH OUT OF INFO ON THAT ONE."
440  GOTO 340
450  END 
