1000 ! This is the routine which uses MODULE$ to determine & ! which routine is to be called next. & ! & ! STAT11 is always called first. & 1010 ON ERROR GOTO 32700 & \ COMMON (STAT) MODULE$ = 6%, LINE%, SAV.F$ = 127% & \ MODULE$, SAV.F$ = "" & \ LINE% = 0% & \ MOD.POS$ = "ANALYS CHI0SQ CORREL CROSS0 DATAIN EDIT00 ELEMEN " & + "ESCRWM HISTOG LINE0P PLOTER RANK0C REGRES SCATTE " & + "STATCM STAT00 STAT11 STEPWI TRANSF T0TEST " & 1020 CALL STAT11 & 1100 GOTO 32700 IF MODULE$ = "FINISH" & \ POSITION% = POS(MOD.POS$,MODULE$,1%)/7% & \ ON POSITION%+1% GOTO 2000,2010,2020,2030,2040,2050,2060,2070, & 2080,2090,2100,2110,2120,2130,2140,2150,2160, & 2170,2180,2190 & 2000 CALL ANALYS & \ GOTO 1100 & 2010 CALL CHI0SQ & \ GOTO 1100 & 2020 CALL CORREL & \ GOTO 1100 & 2030 CALL CROSS0 & \ GOTO 1100 & 2040 CALL DATAIN & \ GOTO 1100 & 2050 CALL EDIT00 & \ GOTO 1100 & 2060 CALL ELEMEN & \ GOTO 1100 & 2070 CALL ESCRWM & \ GOTO 1100 & 2080 CALL HISTOG & \ GOTO 1100 & 2090 CALL LINE0P & \ GOTO 1100 & 2100 CALL PLOTER & \ GOTO 1100 & 2110 CALL RANK0C & \ GOTO 1100 & 2120 CALL REGRES & \ GOTO 1100 & 2130 CALL SCATTE & \ GOTO 1100 & 2140 CALL STATCM & \ GOTO 1100 & 2150 CALL STAT00 & \ GOTO 1100 & 2160 CALL STAT11 & \ GOTO 1100 & 2170 CALL STEPWI & \ GOTO 1100 & 2180 CALL TRANSF & \ GOTO 1100 & 2190 CALL T0TEST & \ GOTO 1100 & 32700 CLOSE #I% FOR I% = 1% TO 12% & \ F3$ = EDIT$(MID$(SAV.F$,31%,15%),-1%) & \ ON ERROR GOTO 32710 & \ KILL F3$ + ";0" & 32710 ON ERROR GOTO 32767 & \ F3$=LEFT$(F3$,6%) & \ KILL F3$ + ".ESF;0" UNTIL 0% & 32767 PRINT & \ PRINT "STAT11 TERMINATED - ";TIME$(0);" ";DATE$(0%) & \ PRINT & \ PRINT & \ END