mirror of
https://github.com/pkimpel/retro-b5500.git
synced 2026-05-05 15:44:28 +00:00
44 lines
3.9 KiB
Plaintext
44 lines
3.9 KiB
Plaintext
$ SET LIST $ PRT DEBUGN 00001000120504PK
|
|
% DEFINE AND CALL-BY-NAME PARAMETER TEST. 00002000120504PK
|
|
% 2012-05-04 P.KIMPEL 00003000120504PK
|
|
00004000120504PK
|
|
BEGIN 00005000120504PK
|
|
DEFINE 00006000120504PK
|
|
FS = 2 #, 00007000120504PK
|
|
FP = 5 #, 00008000120504PK
|
|
FQ = 7 #, 00009000120504PK
|
|
LONGISH = REAL THISISSOMEDEFINETEXTTHATISMUCHLONGERTHANONEWORD #; 00010000120504PK
|
|
INTEGER 00011000120504PK
|
|
TEMP; 00012000120504PK
|
|
00012500120504PK
|
|
LONGISH; 00013000120504PK
|
|
00015000120504PK
|
|
PROCEDURE VARIABLE(P1); 00016000120504PK
|
|
REAL P1; 00017000120504PK
|
|
BEGIN 00018000120504PK
|
|
LABEL EXIT; 00019000120504PK
|
|
INTEGER I; 00020000120504PK
|
|
00021000120504PK
|
|
IF P1 > FQ THEN 00022000120504PK
|
|
GO TO EXIT; 00023000120504PK
|
|
00024000120504PK
|
|
IF P1 = FS THEN 00025000120504PK
|
|
I:= P1 00026000120504PK
|
|
ELSE 00027000120504PK
|
|
IF P1 = FP THEN 00028000120504PK
|
|
BEGIN 00029000120504PK
|
|
I:= 17; 00030000120504PK
|
|
P1:= 0; 00031000120504PK
|
|
END 00032000120504PK
|
|
ELSE 00033000120504PK
|
|
GO TO EXIT; 00034000120504PK
|
|
00035000120504PK
|
|
EXIT: 00036000120504PK
|
|
END VARIABLE; 00037000120504PK
|
|
00038000120504PK
|
|
VARIABLE(FP); 00039000120504PK
|
|
VARIABLE(TEMP); 00040000120504PK
|
|
VARIABLE(THISISSOMEDEFINETEXTTHATISMUCHLONGERTHANONEWORD); 00041000120504PK
|
|
VARIABLE(TEMP+THISISSOMEDEFINETEXTTHATISMUCHLONGERTHANONEWORD); 00042000120504PK
|
|
END. 00043000120504PK
|