0010 LET K=0
0020 INPUT L
0030 IF L<0THEN GOTO 0250
0040 LET Z=0
0050 LET P=0
0060070 LET P=0
0080 CALL 0,Z,P
0090 LET P=0
0100 LET Z=255
0110 CALL 0,Z,P
0120 LET P=0
0130 LET Z=255
0140 CALL 0,Z,P
0150 LET Y=0
0160 LET P=0
0170 CALL 0,Y,P
0180 LET P=0
0190 LET Z=K
0200 CALL 0,Z,P
0210 LET X=K
0220 CALL 0,X,P
0230 GOSUB 0260
0240 GOTO 0020
0250 STOP 
0260 LET A=Y
0270 GOSUB 0370
0280 LET Y=B
0290 LET A=Z
0300 GOSUB 0370
0310 LET Z=B
0320 LET A=X
0330 GOSUB 0370
0340 LET X=B
0350 PRINT Y;Z;X
0360 RETURN 
0370 LET B=0
0380 FOR J=1TO 8
0390   LET A=A/8
0400   LET C=INT(A)
0410   LET B=B+10^(J-1)*(A-C)*8
0420   LET A=C
0430   IF A=0THEN RETURN 
0440 NEXT J
0450 RETURN 
0460 LET X=0
0470 LET Y=5
0480 LET Z=15
0490 GOSUB 0260
0500 STOP 

