Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
decus/20-0113/cmod21.bas
There are 2 other files named cmod21.bas in the archive. Click here to see a list.
00020REM***********************************************************
00030REM CMOD21 CMOD21 CMOD21 CMOD21 CMOD21
00040REM***********************************************************
00050REM***********************************************************
00060REM DATA FILE #3 ESAA PILOT STUDY DATA
00070REM***********************************************************
00080PRINT " "
00090 FILES RFILE1,RFILE2,RFILE3
00130RESTORE#1
00131 INPUT# 1,I1,I2,I3
00140SCRATCH#1
00141 PRINT # 1,52,I2,I3
00150PRINT "IF YOU WANT A DESCRIPTION OF THIS FILE TYPE '1', ELSE '0'.";
00160GOSUB 9000
00170IF O1=0 THEN 370
00180PRINT L$
00190PRINT " DATA FILE #3"
00200PRINT " "
00210PRINT "THIS DATA FILE CONTAINS STANDARDIZED TEST SCORES USED"
00220PRINT "IN THE PILOT PROGRAM OF THE ESAA PROJECT. THE DATA CONSISTS OF"
00230PRINT "TOTAL MATH AND READING SCORES FOR TWO SCHOOLS FROM THE SAME "
00240PRINT "SCHOOL DISTRICT; ONE TREATMENT AND ONE CONTROL. "
00250PRINT "THERE ARE TWO SCORES FOR EACH INDIVIDUAL FOR EACH SUBJECT-"
00260PRINT "PRETEST AND POSTTEST."
00270PRINT "VARIABLE 1---TREATMENT=1,CONTROL=2"
00280PRINT "VARIABLE 2---TOTAL MATH PRETEST"
00290PRINT "VARIABLE 3---TOTAL MATH POSTTEST"
00300PRINT "VARIABLE 4---TOTAL READING PRETEST"
00310PRINT "VARIABLE 5---TOTAL READING POSTTEST"
00320PRINT " "
00330PRINT "IF YOU WANT TO USE THIS FILE TYPE '1', ELSE '0'.";
00340GOSUB 9000
00350IF O1=1 THEN 370
00360CHAIN "RSTRT"
00370SCRATCH#2
00371 PRINT # 2,3
00375REM THE 3 TELLS CMOD20 THAT THE DATA IS ON FILE3
00380CHAIN "CMOD20"
09000REM--SUBROUTINE THAT DETERMINES IF RESTART HAS BEEN REQUESTED.
09005INPUT O1
09015IF O1=-9999 THEN 9025
09020RETURN
09025CHAIN "RSTRT"
09035REM*************END ROUTINE
09999 END