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
12030 READ $7
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
20010 READ $8
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.
30020 REM READ OR COMPUTE CORRECT ANSWERS.
30030 REM CHECK STUDENT ANSWERS -- IF ERROR, THEN 40000.
30040
39000 IF $9 <= $7 THEN *
39010 PRINT "CONGRATULATIONS. YOUR PROGRAM WORKS."
39020 REM ADD AN ADDITIONAL USEFUL OR FUNNY SENTENCE.
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