Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

%algol begin external procedure pub,r;
%sgnosis
%switch qz false
%if qz
%nextlesson r("LOGOUT");
%nocontrolc
%ifend qz
%qend begin procedure extratest;;
%question
+++++++++++++++++    1 - Talking to the DEC 10.
+ LIST OF       +    2 - Running ready-made programs.
+ LESSONS       +    3 - Project-programmer number and logging in.
+ IN THE COURSE +    4 - Disk files.
+++++++++++++++++    5 - Entering and editing text.
6T - TECO, Insert, cursor movement.     6S - SOS line editing.
7T - Searches, deletions with TECO.     7S - entering and leaving SOS.
8T - TECO handling of pages.            8S - SOS editing inside lines.
9T - TECO as a programming language     9S - SOS handling of pages.
                    10 - Monitor commands for file handling.
                    11 - Programming languages.
                    12 - Logging out.

Type the number of the lesson you want to take now, or type "STOP" if
you do not want to take any more lesson. After that, push the key
labelled "RETURN" or "CARRIAGE RETURN" or "CR" on your terminal.
%neutral 10
%if qz
%algol pub("TOPQ10");
%neutral 11
%algol pub("TOPQ11");
%neutral 12
%algol pub("TOPQ12");
%neutral 1
%goto TOPQ01
%neutral 2
%algol pub("TOPQ02");
%neutral 3
%algol pub("TOPQ03");
%neutral 4
%algol pub("TOPQ04");
%neutral 5
%algol pub("TOPQ05");
%neutral 6 T
%algol pub("TOPQ6T");
%neutral 7 T
%algol pub("TOPQ7T");
%neutral 8 T
%algol pub("TOPQ8T");
%neutral 9 T
%algol pub("TOPQ9T");
%neutral 6 S
%algol pub("TOPQ6S");
%neutral 7 S
%algol pub("TOPQ7S");
%neutral 8 S
%algol pub("TOPQ8S");
%neutral 9 S
%algol pub("TOPQ9S");
%ifend qz
%ifnot qz
%algol pub("TOPS10");
%neutral 11
%algol pub("TOPS11");
%neutral 12
%algol pub("TOPS12");
%neutral 1
%goto TOPQ01
%neutral 2
%algol pub("TOPS02");
%neutral 3
%algol pub("TOPS03");
%neutral 4
%algol pub("TOPS04");
%neutral 5
%algol pub("TOPS05");
%neutral 6 T
%algol pub("TOPS6T");
%neutral 7 T
%algol pub("TOPS7T");
%neutral 8 T
%algol pub("TOPS8T");
%neutral 9 T
%algol pub("TOPS9T");
%neutral 6 S
%algol pub("TOPS6S");
%neutral 7 S
%algol pub("TOPS7S");
%neutral 8 S
%algol pub("TOPS8S");
%neutral 9 S
%algol pub("TOPS9S");
%ifend qz
%neutral 6
Type either 6T or 6S.
%goto repeat
%neutral 7
Type either 7T or 7S.
%goto repeat
%neutral 8
Type either 8T or 8S.
%goto repeat
%neutral 9
Type either 9T or 9S.
%goto repeat
%neutral stop
%algol r("LOGOUT");
%wrong
You should answer with the name of one the lessons,
or with "STOP".
%algol pause;
%wrong
Just type either 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12 or STOP!
%algol pause;
%wrong
%same
%wrong
%algol r("LOGOUT");
%question TOPQ01: nopause:= true;
Have you got a copy of the manual for this course?
Answer "yes" or "no". Push the RETURN or CARRIAGE RETURN key after
your answer.
%neutral yes
%if qz
%algol pub("TOPQ01");
%ifend qz
%ifnot qz
%algol pub("TOPS01");
%ifend qz
%neutral y
%same
%neutral no
%goto next
%neutral n
%same
%wrong
Answer either "YES" or "NO" and then push the RETURN or CARRIAGE RETURN
key on your terminal.
%wrong
%same
%wrong
%same
%wrong
%algol r("LOGOUT");
%text nopause:= true; page;
The manual for the course contains on paper all instructive texts in
the course. You can take the course without the manual, but the manual
is useful for reference during the course.

You can buy the manual from the program library at QZ,
Stockholms Datamaskincentral f`r h`gre utbildning och forskning,
S-10450 Stockholm 80, Sverige.

Write or telephone (no. 08-67 92 80) to the program librarian
and ask for a copy of "TOPS.MAN".
%question
Do you want to continue with the first lesson?
%neutral yes
%if qz
%algol pub("TOPQ01");
%ifend qz
%ifnot qz
%algol pub("TOPS01");
%ifend qz
%neu y
%same
%neutral no
%algol nopause:= true; goto start;
%neu n
%same
%wrong
Answer "YES" or "NO" and then push the RETURN or CARRIAGE RETURN
key.
%wrong
%same
%wrong
%algol end;
%fin
%algohol end;
%end