10  COM X[103,22],M[19,19],U[19,19],Q[20],V[20],P[78]
30  COM M$[60],N$[72]
40  COM N,K,N8,K8,N9,K9,Q9,Q7,Q5,Q4,Q3,Q2,Q1
45  COM I3,I4,U9,X$[20]
50  REM: 14 JUL 74
52  REM:Q1=1 FOR>RECO;=2 FOR>RETO;=3 FOR>RETB
54  REM:Q1=4 FOR>CHGO;=5 FOR>DELO;=6 FOR>DELB
150  DIM C$[7],D$[12],E$[4],A[19]
165  Q[6]=26
200  IF Q[1]=0 THEN 9990
220  GOTO Q1 OF 1570,1570,1570,2500,3500,4000
1570  GOSUB 6600
1580  IF N0<(N-Q4+1) THEN 1590
1582  PRINT "ALL"N-Q4+1"DEFINED ROWS ALREADY ACTIVE."
1584  PRINT "REQUESTED OPERATION UNNECESSARY."
1586  GOTO 9998
1590  IF Q4=1 THEN 1598
1591  IF Q9>2 THEN 1598
1592  PRINT  USING 9000;Q4-1
1593  PRINT  USING 9002
1594  PRINT "THEY CANNOT BE MADE ACTIVE BY USE OF 'RECO', 'RETO', OR 'RETB.'"
1596  PRINT "WARNING ONLY."
1598  GOTO Q1 OF 1600,1700,1800
1600  E$="RECO"
1602  I3=1
1610  I4=N
1620  Q[8]=0
1630  FOR I=I3 TO I4
1640  X[I,K9+2]=1
1650  NEXT I
1660  GOTO 9911
1700  E$="RETO"
1705  GOTO Q9 OF 1710,1710,1720
1710  PRINT "RETRIEVE WHICH ROW (GIVE #  ";
1715  GOTO 1725
1720  PRINT "ROW = ";
1725  INPUT I3
1726  IF I3 <= N THEN 1730
1727  PRINT "NO DATA IN ROWS BEYOND"N
1728  GOTO 1720
1730  IF I3>Q4-1 THEN 1750
1735  PRINT  USING 9000;Q4-1
1740  PRINT  USING 9002
1745  GOTO 9996
1750  IF X[I3,K9+2]=0 THEN 1770
1755  PRINT  USING 1760;I3
1760  IMAGE "ROW",3D," IS ACTIVELY IN USE ALREADY"
1765  GOTO 9996
1770  I4=I3
1775  Q[8]=0
1776  GOTO 9911
1800  E$="RETB"
1810  GOTO Q9 OF 1820,1820,1850
1820  PRINT "TO RETRIEVE ROWS I1 TO I2 INCLUSIVE, GIVE"
1830  PRINT "TWO NUMBERS, SEPARATED BY A COMMA, FOR I1,I2: ";
1840  GOTO 1860
1850  PRINT "1ST ROW, LAST ROW = ";
1860  INPUT I3,I4
1862  IF I3 <= I4 THEN 1870
1864  PRINT  USING 8020
1866  PRINT  USING 8014
1868  GOTO 1850
1870  IF I3>Q4-1 THEN 1890
1880  GOTO 1735
1890  IF I4<N+1 THEN 1920
1900  PRINT "NO DATA IN ROWS BEYOND"N
1910  GOTO 9996
1920  FOR I=I3 TO I4
1922  X[I,K9+2]=1
1924  NEXT I
1930  Q[8]=0
1940  GOTO 9912
2500  D$="CHGO"
2510  GOTO Q9 OF 2520,2520,2540
2520  PRINT "GIVE ROW NUMBER I, COLUMN NUMBER J,"
2530  PRINT "AND THE NEW DATA VALUE X(I,J) :"
2540  PRINT "I, J, X(I,J) = ";
2550  INPUT I,J,X[I,J]
2560  IF I>Q4-1 THEN 2570
2562  PRINT  USING 8004;Q4-1
2564  PRINT  USING 8006
2566  GOTO 9996
2570  IF I>N THEN 1900
2580  IF J>K THEN 2650
2590  IF X[I,K9+2]#0 THEN 2600
2592  PRINT "ROW"I"IS INACTIVE."
2594  GOTO 9996
2600  Q[8]=Q[6]
2610  I3=I4=J
2620  GOTO 9911
2650  PRINT "NO DATA BEYOND COL."K
2660  GOTO 9996
3500  E$="DELO"
3510  GOTO Q9 OF 3520,3520,3540
3520  PRINT "DELETE WHICH ROW (GIVE #) ";
3530  GOTO 3550
3540  PRINT "ROW = ";
3550  INPUT I
3560  IF I >= Q4 THEN 3610
3570  PRINT "REQUESTED OPERATION UNNECESSARY."
3580  PRINT  USING 3590;I
3590  IMAGE "ROW",3D," IS ALREADY INACTIVE."
3600  GOTO 9996
3610  IF X[I,K9+2]#0 THEN 3640
3620  PRINT  USING 4200;I
3630  GOTO 9996
3640  I3=I4=I
3650  Q[8]=0
3670  GOTO 9911
4000  E$="DELB"
4010  GOTO Q9 OF 4020,4020,4050
4020  PRINT "DELETE ROWS I1 TO I2 INCLUSIVE.  GIVE"
4030  PRINT "TWO VALUES, SEPARATED BY A COMMA, FOR I1, I2 :"
4040  GOTO 4070
4050  PRINT "FIRST ROW, LAST ROW ";
4060  IMAGE "ROWS",3D," TO",3D," ARE BEING DELETED."
4070  INPUT I3,I4
4072  IF I3 <= I4 THEN 4076
4074  PRINT "FIRST ROW CANNOT BE LARGER THAN LAST ROW"
4075  GOTO 4050
4076  IF I3 <= N AND I4 <= N THEN 4080
4077  PRINT "NO DATA IN ROWS BEYOND"N
4078  GOTO 4050
4080  IF I3 >= Q4 THEN 4170
4090  IF I4 >= Q4 THEN 4140
4100  PRINT "REQUESTED OPERATION UNNECESSARY."
4110  PRINT  USING 4120;I3,I4
4120  IMAGE "ROWS",3D," TO",3D," ARE ALREADY INACTIVE."
4125  PRINT  USING 8006
4130  GOTO 9996
4140  PRINT  USING 4120;I3,(Q4-1)
4150  I3=Q4
4160  PRINT  USING 4060;I3,I4
4170  FOR I=I3 TO I4
4180  IF X[I,K9+2]#0 THEN 4210
4190  PRINT  USING 4200;I
4200  IMAGE "WARNING: ROW",3D," HAS PREVIOUSLY BEEN DELETED"
4210  NEXT I
4220  REM:FLAG DELETED ROWS AND GOTO IDA912 FOR UPDATING
4240  FOR I=I3 TO I4
4250  X[I,K9+2]=0
4260  NEXT I
4270  Q[8]=0
4280  GOTO 9911
4300  REM
6600  REM: # OBS. IN COL.
6610  N0=0
6615  Z=K9+2
6620  FOR J0=Q4 TO N
6630  N0=N0+X[J0,Z]
6640  NEXT J0
6650  RETURN 
8002  IMAGE "FIRST ",3D," OF ",3D," ROWS AND FIRST ",2D," OF ",2D," COL.(S)"
8004  IMAGE #,"FIRST ",3D," ROWS UNDEFINED "
8006  IMAGE "BECAUSE OF PREVIOUS USE OF 'DIFF' OR 'LAGG'."
8014  IMAGE "TRY AGAIN!"
8020  IMAGE "FIRST NUMBER CANNOT BE LARGER THAN LAST."
9000  IMAGE "THE FIRST",4D,"ROWS ARE UNDEFINED BECAUSE OF PREVIOUS USE OF"
9002  IMAGE "'DIFF' OR 'LAGG' AND ARE UNAVAILABLE FOR ANALYSIS."
9911  REM:GOTO IDA912 FOR UPDATING MEANS AND STD.DEV(S).
9912  CHAIN "$IDA912"
9990  CHAIN "$IDA",9990
9996  PRINT E$" NOT EXECUTED"
9998  CHAIN "$IDA",150
9999  END 
