mirror of
https://github.com/pkimpel/retro-b5500.git
synced 2026-02-13 19:54:50 +00:00
22 lines
1.9 KiB
Plaintext
22 lines
1.9 KiB
Plaintext
$ SET $ LIST PRT DEBUGN 00001000120505PK
|
|
% TEST FOR MULTIPLE INVOCATIONS OF A SWITCH DECLARATION. 00002000120505PK
|
|
% 2012-05-05 P.KIMPEL 00003000120505PK
|
|
00004000120505PK
|
|
BEGIN 00005000120505PK
|
|
LABEL L1, L2; 00006000120505PK
|
|
INTEGER I, J; 00007000120505PK
|
|
SWITCH SW ~ L2, L1; 00008000120505PK
|
|
00009000120505PK
|
|
L1: 00010000120505PK
|
|
FOR I ~ 0 STEP 1 UNTIL 3 DO 00011000120505PK
|
|
BEGIN 00012000120505PK
|
|
J:= I; 00013000120505PK
|
|
WHEN(I); 00014000120505PK
|
|
GO TO SW[J]; 00015000120505PK
|
|
END FOR; 00016000120505PK
|
|
00017000120505PK
|
|
L2: 00018000120505PK
|
|
I ~ J; 00019000120505PK
|
|
GO TO SW[I]; 00020000120505PK
|
|
END. 00021000120505PK
|