00100	BEGIN "TBL0"
00200	STRING S;
00250	INTEGER BRK;
00300	S←"ABCD";
00400	COMMENT SCAN(S,0,BRK);
00410	OPEN(1,"TTY",0,2,0,5,BRK,BRK);
00420	WHILE TRUE DO OUTSTR(INPUT(1,0));
00500	END "TBL0";