5  IF  ERROR  THEN 520
10  DIM I$[65]
11  IF TIM(1)>11 THEN 14
12  PRINT "GOOD MORNING, ";
13  GOTO 20
14  IF TIM(1)>15 THEN 17
15  PRINT "GOOD AFTERNOON, ";
16  GOTO 20
17  PRINT "GOOD EVENING, ";
20  PRINT "NEED INSTRUCTIONS (Y/N)"
30  INPUT N$
40  IF N$="N" THEN 170
50  DATA "'SLDRUL' IS AN ELECTRONIC VERSION OF THE"
60  DATA "SLIDE RULE. TWO SCALES ('C' AND 'D') ARE USED ALONG"
70  DATA "WITH A SET OF OPERATORS ('OP')."
80  DATA "AVAILABLE OPERATORS ARE:"
90  DATA "+, -, *, ^, R, B, E"
100  DATA "'R' TAKES ROOTS"
110  DATA "'B' BEGINS A NEW PROBLEM"
120  DATA "'E' ENDS THE PROGRAM"
130  FOR I=1 TO 8
140  READ I$
150  PRINT I$
160  NEXT I
170  REM RANDY WONG 9/20/71
180  DIM F$[8]
190  J=0
200  F$="+-*/^RBE"
210  PRINT 
220  J=J+1
230  PRINT "-----"J
240  PRINT "C=";
250  INPUT C
260  PRINT "OP";
270  INPUT O$
280  IF O$="B" THEN 210
290  IF O$="E" THEN 510
300  PRINT "D";
310  INPUT D
320  FOR I=1 TO 8
330  IF O$=F$[I,I] THEN 360
340  NEXT I
350  GOTO 520
360  GOSUB I OF 390,410,430,450,470,490
370  PRINT "C= "C
380  GOTO 260
390  C=C+D
400  RETURN 
410  C=C-D
420  RETURN 
430  C=C*D
440  RETURN 
450  C=C/D
460  RETURN 
470  C=C^D
480  RETURN 
490  C=C^(1/D)
500  RETURN 
510  PRINT '10'10"PROGRAM";
520  CHAIN R,"*HELP"
530  SYSTEM X,"BYE"
540  END 
