Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-04 - decus/20-0113/cmod18.bas
There are 2 other files named cmod18.bas in the archive. Click here to see a list.
00020REM***********************************************************
00030REM  CMOD18     CMOD18     CMOD18     CMOD18     CMOD18
00040REM***********************************************************
00050REM***********************************************************
00060REM DATA FILE #1  ITBS SCORES SCHOOL 1
00070REM***********************************************************
00080PRINT
00090 FILES RFILE1,RFILE2,RFILE3,RF4,RF5,RF6,RF7,RF8,RF9
00130RESTORE#1
00131  INPUT#  1,I1,I2,I3
00140SCRATCH#1
00141  PRINT #  1,49,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 #1"
00200PRINT " "
00210PRINT "THIS DATA FILE CONTAINS IOWA TESTS OF BASIC SKILL SCORES"
00220PRINT "FOR 51 IOWA SCHOOL STUDENTS IN A CITY WITH POPULATION OF"
00230PRINT "APPROXIMATELY 80,000.  THE DATA, REFFERED TO AS SCHOOL #1"
00240PRINT "OF THE 19 SCHOOLS FOR THE YEAR 1970-1972, WAS TAKEN FROM"
00250PRINT "SHIGEMASU'S ARTICLE IN THE SUMMER ISSUE OF THE 1976 JOURNAL OF"
00260PRINT "EDUCATIONAL STATISTICS AND CONTAINS INFORMATION ON 5 VARIABLES:"
00270PRINT "VARIABLE 1---SEX(0=MALE,1=FEMALE)"
00280PRINT "VARIABLE 2---VOCABULARY SCORE"
00290PRINT "VARIABLE 3---READING SCORE"
00300PRINT "VARIABLE 4---ARITHMETIC SKILLS SCORE"
00310PRINT "VARIABLE 5---COMPOSITE(1972)."
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,1
00375REM   THE 1 TELLS CMOD20 THAT DATA IS ON FILE1
00380CHAIN "CMOD20"
09000REM--SUBROUTINE THAT DETERMINES IF RESTART HAS BEEN REQUESTED.
09005INPUT O1
09015IF O1=-9999 THEN 9025
09020RETURN
09025CHAIN "RSTRT"
09035REM*************END ROUTINE
09999END