mirror of
https://github.com/pkimpel/retro-b5500.git
synced 2026-04-26 12:18:08 +00:00
22 lines
1.9 KiB
Plaintext
22 lines
1.9 KiB
Plaintext
$ SET LIST $ RESET PRT DEBUGN 00000010120506PK
|
|
% DONALD KNUTH-S "MAN OR BOY TEST" 00000100120506PK
|
|
% FROM ALGOL BULLETIN 17.2.4, JULY 1964, PAGE 7. 00000200120506PK
|
|
00000900120506PK
|
|
BEGIN 00002000120506PK
|
|
FILE OUT OUTPUT 18 (1, 15); 00003000120506PK
|
|
REAL PROCEDURE A(K, X1, X2, X3, X4, X5); 00004000120506PK
|
|
VALUE K; INTEGER K; 00005000120506PK
|
|
REAL X1, X2, X3, X4, X5; 00006000120506PK
|
|
BEGIN 00007000120506PK
|
|
REAL PROCEDURE B; 00008000120506PK
|
|
BEGIN 00009000120506PK
|
|
K:= K-1; 00010000120506PK
|
|
B:= A:= A(K, B, X1, X2, X3, X4); 00011000120506PK
|
|
END B; 00012000120506PK
|
|
00013000120506PK
|
|
IF K { 0 THEN A:= X4+X5 ELSE B 00014000120506PK
|
|
END A; 00015000120506PK
|
|
00016000120506PK
|
|
WRITE(OUTPUT, /, A(10, 1, -1, -1, 1, 0)); 00017000120506PK
|
|
END. 00018000120506PK
|