HEADING:(SET.LG) DATALOG 'SET DUMMIES' ROUTINE    7/25/90 GF


STEP
550   LET  M = DUM 811
551   FOR  N = 01 TO M 
552   GOSU  STEP 570
553   IF  DUM I > DUM 810 THEN   IF  DUM I < DUM 809 THEN   GOTO  STEP 556
554   PRIN  "DID NOT LOG"
555   EXIT
556   NEXT  N
557   PRIN  "DATA LOGGING"
558   LET  DUM 800 = DUM 800 + 01
559   FOR  N = 01 TO M 
560   GOSU  STEP 570
561   LET  DUM J = DUM J + DUM I
562   LET  DUM K = DUM K + ( DUM I * DUM I )
563   NEXT  N
569   EXIT