Web pdp-10.trailing-edge.com

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0020/teach.uti
There are 2 other files named teach.uti in the archive. Click here to see a list.
```10000'  NAME--TEACH-
10010'
10020'  DESCRIPTION--A SKELETON TEACH PROGRAM.
10030'
10040'  SOURCE-- JOHN G. KEMENY (MODIFIED BY KIEWIT CENTER)
10050'
10060'  INSTRUCTIONS--THIS PROGRAM USES VARIABLES AS FOLLOWS:
10070'  \$9 (ONE MORE THAN THE NUMBER OF PASSES THRU PROGRAM)
10080'  \$7 (NO. OF TIMES YOU WISH TO GO TO STUDENT PROGRAM)
10090'  \$8 (USED IN CHECKING THE AMOUNT HE READS)
10100'  READ EACH OF THE REMS STARTING IN LINE 10160 AND INSERT
10110'  INSTRUCTIONS IMMEDIATELY FOLLOWING THE REM, WHEREVER APPROPRIATE.
10120'
10130'
10140'  *  *  *  *  *  *  *  *  MAIN PROGRAM  *  *  *  *  *  *  *  *  *  *
10150'
10160 REM  DESCRIPTION OF PROBLEM:
10170 REM  REMINDER:CHANGE NAME OF PROBLEM, USING 'RENAME'.
10180
12000 LET \$9 = \$9 + 1
12010
12020 IF \$9 > 1 THEN 20000
13000 REM INITIALIZE STUDENT'S VARIABLES BY READING RECOGNIZABLE
13010 REM WRONG NUMBERS.
13020
14000 REM  INITIALIZE YOUR \$-VARIABLES, ELSE THEY WILL BE 0.
14010
15000 GO TO *
15010
16000 REM TIME-LIMIT SET AT 1 SECOND. CHANGE IF DESIRED.
16010 TIME 1
16020
20000 IF \$9 > 2 THEN 30000
20020 IF \$8 = 117 THEN 30000
20030 PRINT "YOU ARE READING THE WRONG AMOUNT OF DATA."
20040 REM  INSERT AN ADDITIONAL SENTENCE, IF DESIRED.
20050 STOP
20060
30000 REM  READ A DUPLICATE SET OF DATA, TO BE USED IN
30010 REM  PRINTING ERROR-MESSAGES.
30030 REM  CHECK STUDENT ANSWERS -- IF ERROR, THEN 40000.
30040
39000 IF \$9 <= \$7 THEN *
39010 PRINT "CONGRATULATIONS. YOUR PROGRAM WORKS."
39030 STOP
39040
40000 IF \$9 > 2 THEN 50000
40010 REM  CHECK WHETHER ANY OF THE INITIAL VALUES YOU SUPPLIED
40020 REM  ARE UNCHANGED. IF SO, STUDENT IS NOT USING THE
40030 REM  CORRECT VARIABLE(S).
40040
41000 REM  CHECK WHETHER WRONG ANSWER IS RESULT OF YOUR
41010 REM  INITIAL VALUES. THEN HE IS NOT INITIALIZING.
41020
50000 REM  DETAILED ERROR ANALYSIS. THIS IS THE PAY-OFF.
50010 REM  REMINDER: BE SURE THERE IS A 'STOP' AFTER EACH
50020 REM  ERROR MESSAGE YOU USE.
50030
90000 REM  DATA: NO. OF TIMES YOU WANT TO GO THRU STUDENT PROGRAM.
90010
91000 REM  DATA: FIRST SET OF DATA FOR STUDENT.
91010
91980 DATA 117
91990
92000 REM  DATA: DUPLICATE OF STUDENT DATA, OTHER DATA FOR
92010 REM        CHECKING FIRST STUDENT PASS.
92020
93000 REM  DATA: DATA FOR LATER PASSES. ALWAYS HAVE
93010 REM        STUDENT DATA, THEN DUPLICATE, THEN OTHER DATA.
93020
99999 END

```