Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-06 - 43,50422/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