DCAlgol

The following is a DCALGOL version. The DCALGOL language is native to the Unisys A-Series mainframe. This example would be the equivalent of a CICS Cobol program written for an IBM/MVS system.

     BEGIN
     ARRAY DCREC [0:0];
     MESSAGE BUSTER;
     QUEUE PRIMARY;
     INTEGER I1;
     POINTER P1;
     
     ALLOCATE (BUSTER, 8);
     BUSTER [0] := 0;
     I1 := DCWRITE (BUSTER, PRIMARY); %Initialize Primary Queue
     ALLOCATE (BUSTER, 9);
     BUSTER [0] := 0 & 4 [47:8] & 1 [31:1] & 1 [30:1] & 1 [29:1] 
     & 1 [28:1] & 1 [27:1] & 1 [26:1] & 1 [25:1] & 472 [22:23];
     I1 := DCWRITE (BUSTER); %Station Inquiry
     RESIZE (DCREC, SIZE (BUSTER) + 10, DISCARD);
     REPLACE P1:DCREC [1] BY POINTER (BUSTER [1], 8) FOR (SIZE (BUSTER) - 
     1) * 6;
     WHILE MYSELF.TASKVALUE = 0 DO
       DISPLAY ("HELLO WORLD"); %Duh
     END.

submitted by: Bucky.Butler@gsa.gov (Paul Butler)