Hercules Hyperion TurnKey5 MVS3.8j with KICKS

This guide is based on the TK5 update 2 by Rob Prince.
The steps describe installation an a RaspberryPi, but should also work on other platforms.

Raspberry Pi

Download the imager from RaspberryPi.com and install the latest 64bit version.
For more information on installing Raspberry Pi Os see the RaspberryPi documentation.

Docker

First uninstall docker remainders:

Then install a fresh Docker

Some docker commands:

Build the TK5 Docker container

Folders for persistent running the container

First you need to create the 'persistent' folders.
(Or use a set you may have saved.)
Put them in the /var/lib/docker/volumes folder.

To build the container go to (create) a folder where you want to create it.
Then Create a new file Dockerfile and paste the following into it.

# Port of the tk4-hercules dockerfile to Turnkey5, running on Alpine Linux
#
# Initial tk4-hercules author:
#   Ken Godoy - skunklabz (https://github.com/skunklabz/tk4-hercules)
# Turnkey5 modifications & port to Alpine Linux:
#   Joerg Schultze-Lutter (https://github.com/joergschultzelutter/tk5-hercules)
#
# run via docker run -dti -p3270:3270 -p8038:8038 tk5
#
# This is free and unencumbered software released into the public domain.
#
# Anyone is free to copy, modify, publish, use, compile, sell, or
# distribute this software, either in source code form or as a compiled
# binary, for any purpose, commercial or non-commercial, and by any
# means.
#
# In jurisdictions that recognize copyright laws, the author or authors
# of this software dedicate any and all copyright interest in the
# software to the public domain. We make this dedication for the benefit
# of the public at large and to the detriment of our heirs and
# successors. We intend this dedication to be an overt act of
# relinquishment in perpetuity of all present and future rights to this
# software under copyright law.
#
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
# IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY CLAIM, DAMAGES OR
# OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
# ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
# OTHER DEALINGS IN THE SOFTWARE.
#
# For more information, please refer to <http://unlicense.org/>

FROM alpine as builder

WORKDIR /tk5/
ADD https://www.prince-webdesign.nl/images/downloads/mvs-tk5.zip /tk5/

RUN unzip mvs-tk5.zip && \
    rm -rf mvs-tk5.zip
RUN cd mvs-tk5 && \
    mv * .. && \
    cd .. && \
    rm -rf mvs-tk5 && \
    chmod -R +x *
RUN echo "CONSOLE">/tk5/unattended/mode
RUN rm -rf /tk5/hercules/darwin && \
    rm -rf /tk5/hercules/windows

FROM alpine
LABEL version="1.00"
LABEL description="OS/VS2 MVS 3.8j Service Level 8505, Tur(n)key Level 5 Version 1.00"
WORKDIR /tk5/
COPY --from=builder /tk5/ .
VOLUME [ "/tk5/conf","/tk5/local_conf","/tk5/local_scripts","/tk5/prt","/tk5/dasd","/tk5/pch","/tk5/jcl","/tk5/log","/tk5/tape" ]
RUN apk update && apk upgrade
RUN apk add gcompat libstdc++ bash libbz2
RUN cd /usr/lib && \
    ln -s libbz2.so.1 libbz2.so.1.0
CMD ["/tk5/mvs"]
EXPOSE 3270 8038

Then, in the Command Line Interface (Terminal), build the image with:
This may take a wile depending on yout platform.
When the build has finished find the image id whith
Look for tk5mvs and copy the IMAGE ID
Replace the last line in exec with the IMAGE ID of your image.
Next run the image creating a container with name tk5mvs

Where the last line should contain your image id.
You can change the first portnumber in de -p option to use another port for your
3270 terminal session if for instance you got another MVS running.
The shell is placed in Hercules console mode where you get log messages
and where you can enter console commands in the prompt at the bottom of the window.
The container will run MVS-IPL which will take a couple of minutes.
You can then logon to the MVS image using a 3270 terminal emulator.

Add a & to run x3270 detached so you can repeat the command to get several x3270 windows.
There is also a web console available at URL 127.0.0.1:8038

When you have quiesced MVS and stopped the container next time you start
the container with:

Customizing your MVS-TSO environment

First thing to do is changing the passwords of the pre-defined users.
Edit SYS1.SECURE.CNTL(USERS).
Take care to keep the parameters in the right columns and de userids in alphabetical order.
Position 1 - 7 USERID 10 - 17 AUTHORISATION 18 CONTINUATION ASTERIX 19 - 26 PASSWORD 28 Y / N for enable / disable user 31 - EOL Free for comments, full name for instance
Userids MUST be in alphabetical order!
Apply changes and save.
Then in the console do:
/stop rakf
/start rakf
The log should show that updates are detected.
Next go to SYS2.JCLLIB(ADDUSER)
Adjust the jobcard and add a line for each newly added user.
Watch out all datasets starting with the HLQ for that user will be deleted.
So don't add lines for the pre-defined users.
//HERC01R JOB (TSO), // ADDTSOUSERS, // CLASS=A, // MSGCLASS=H, // COND=(0,NE), // MSGLEVEL=(1,1), // NOTIFY=HERC01
//NEWUSER EXEC ADDUSER,HLQ=NEWUSER,UTYPE=USER
In SYS1.PROCLIB(IKJACCNT) change
//IKJACCNT EXEC PGM=IKJEFT01
to
//IKJACCNT EXEC PGM=IKJEFT01,DYNAMNBR=64
Create some PDSs.
Go to ISPF panel 3.2 and create HERC01.INSTALL.JCL with: RECFM=FB LRECL=80 BLKSIZE=27920 VOLUME=TSO001 SPACE UNIT=C Primary=2 Secondary=1 Directory blocks=50 Create source PDS-es if you want to show a possible standard naming e.g.: <userid>.SOURCE.COBOL <userid>.SOURCE.MAPS <userid>.SOURCE.CNTL <userid>.SOURCE.PLIB <userid>.SOURCE.CLIST with the same aspects. <userid>.EXEC with: RECFM=VB LRECL=255 BLKSIZE=27795 VOLUME=TSO001SPACE UNIT=C PRIMARY=2 SECONDARY=1 DIRECTORY BLOCKS=50

Install KICKS

Download the KICKS package:
wget https://github.com/moshix/kicks/archive/master.zip
unzip master.zip
In the kicks-master folder unzip kicks-tso-v1r5m0.zip Download the KICKS package to TSO.
In ISPF go to the TSO COMMAND prompt.
In the 3270 terminal go to File Transfer
Local File Name : /kicks-tso-v1r5m0.xmi
Host File Name: KICKS.V1R5M0.XMI
Host filename will be prefixed by the userid (HERC01)
Send to host
Host is TSO
Transfer binary file
Record Format Fixed
Record length 80
Block Size 80
DFT Buffer Size 4096
Space Allocation Units Default

Click Transfer File and wait until transfer is complete.

Now a dataset has been created, prefixed with the current users HLQ:
HERC01.KICKS.V1R5M0.XMI
Unpack the dataset with the following bit of JCL.
//HERC01G JOB (1),'RECEIVE',CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1), // REGION=4M,NOTIFY=HERC01 //******** KICKS ******************************* //RECV370 EXEC PGM=RECV370 //RECVLOG DD SYSOUT=* //XMITIN DD DSN=HERC01.KICKS.V1R5M0.XMI,DISP=SHR //SYSPRINT DD SYSOUT=* //SYSUT1 DD DSN=&&SYSUT1, // UNIT=3390,VOL=SER=TSO003, // SPACE=(TRK,(300,60)) //SYSUT2 DD DSN=KICKS.V1R5M0.INSTALL, // UNIT=3390,VOL=SER=TSO003, // SPACE=(TRK,(300,60,20),RLSE), // DISP=(NEW,CATLG,DELETE) //SYSIN DD DUMMY
This creates a PDS KICKS.V1R5M0.INSTALL which contains several members that also
need to be unpacked/received.
Edit the KICKS.V1R5M0.INSTALL(V1R5M0) member at the bottom of the list.
Change the JOBCARD to
//HERC02A JOB (1),UNPACK,CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1), // REGION=4096K,NOTIFY=HERC02
Replacing HERC02 with your userid.
On the PROC statement change HERC01 to KICKS so that all KICKS datasets will have a KICKS HLQ.
Change XMITIN DD DSN to
//XMITIN DD DSN=KICKS.V1R5M0.INSTALL(&MEM),DISP=SHR
Submit the job and check the output.

This will create the KICKS datasets. KICKS.KICKS.V1R5M0.CB2 KICKS.KICKS.V1R5M0.COB KICKS.KICKS.V1R5M0.COBCOPY KICKS.KICKS.V1R5M0.GCC KICKS.KICKS.V1R5M0.GCCCOPY KICKS.KICKS.V1R5M0.INSTLIB KICKS.KICKS.V1R5M0.KIKRPL KICKS.KICKS.V1R5M0.MAPSRC KICKS.KICKS.V1R5M0.OPIDS KICKS.KICKS.V1R5M0.SPUFI.IN KICKS.KICKSSYS.V1R5M0.CLIST KICKS.KICKSSYS.V1R5M0.COB KICKS.KICKSSYS.V1R5M0.COBCOPY KICKS.KICKSSYS.V1R5M0.DOC KICKS.KICKSSYS.V1R5M0.GCC KICKS.KICKSSYS.V1R5M0.GCCCOPY KICKS.KICKSSYS.V1R5M0.INSTLIB KICKS.KICKSSYS.V1R5M0.KIKRPL KICKS.KICKSSYS.V1R5M0.MACLIB KICKS.KICKSSYS.V1R5M0.MAPSRC KICKS.KICKSSYS.V1R5M0.PROCLIB KICKS.KICKSSYS.V1R5M0.PROCLIBZ KICKS.KICKSSYS.V1R5M0.SKIKLOAD KICKS.KICKSSYS.V1R5M0.TESTCOB KICKS.KICKSSYS.V1R5M0.TESTFILE KICKS.KICKSSYS.V1R5M0.TESTGCC
The KICKS.V1R5M0.INSTALL and HERC01.KICKS.V1R5M0.XMI (or other HLQ) may now
be deleted, they are no longer needed.

Create INTRA, TEMP and test application datasets

Edit SYS1.PROCLIB(IKJACCNT) and set the DYNAMNBR parameter to 64

//IKJACCNT EXEC PGM=IKJEFT01,DYNAMNBR=64
Save the file, logoff and logon again. Go to the TSO READY prompt. Change your prefix to KICKS profile prefix(kicks)
Execute th KFIX clist: EXEC 'KICKS.KICKSSYS.V1R5M0.CLIST(KFIX)'
Then press Enter until HLQ KICKS is suggested, then reply yes.
Once READY reset your prefix by profile noprefix
In the KICKS.KICKS.V1R5M0.INSTLIB PDS change all three members. Change the JOBCARD to
//HERC02A JOB (1),LOAD,CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1), // REGION=1024K,NOTIFY=HERC02
And change all PUB002 references to WORK03.

Do the same for KICKS.KICKSSYS.V1R5M0.INSTLIB, members LODINTRA and LODTEMP
and submit all 5 jobs.

Edit KICKS.KICKSSYS.V1R5M0.CLIST(KICKS), line 146 must be deleted.
This one:
000146 '&KIKID..KICKS.&VER..SKIKLOAD' +

Start KICKS for the first time.

Go to the TSO prompt and do:
The example transid is BTC0

KICKS programming

Example programs and mapsets can be found in
KICKS.KICKS.V1R5M0.COB for Cobol programs
KICKS.KICKS.V1R5M0.GCC for Gnu C programs
KICKS.KICKS.V1R5M0.MAPSRC BMS map sopurces

KICKS table assembly jobs are in KICKS.KICKSSYS.V1R5M0.INSTLIB

Some examples

BMS map

PRINT NOGEN                                                    
*                                                                       
M00101   DFHMSD MODE=INOUT,CTRL=FREEKB,                                *
                DSATTS=(COLOR,HILIGHT),                                 *
                MAPATTS=(COLOR,HILIGHT),                                *
                LANG=COBOL                                               
*                                                                       
S00101   DFHMDI SIZE=(24,80)                                            
*                                                                       
            DFHMDF POS=(01,01),LENGTH=10,COLOR=BLUE,INITIAL='S00101'      
            DFHMDF POS=(01,14),LENGTH=56,COLOR=GREEN,                     *
                INITIAL='BASIC CICS PROGRAM'                             
            DFHMDF POS=(01,69),LENGTH=10,COLOR=BLUE,INITIAL='ALEA DEV'     
SVISITS  DFHMDF POS=(05,10),LENGTH=18,COLOR=BLUE,                      *
                INITIAL='EERSTE KEER HIER'                               
            DFHMDF POS=(06,10),LENGTH=13,COLOR=BLUE,INITIAL='HOE HEET JE?' 
SINPUT   DFHMDF POS=(06,26),LENGTH=20,COLOR=BLUE,                      *
                ATTRB=(IC,UNPROT,FSET),INITIAL=' '                       
            DFHMDF POS=(06,48),LENGTH=01,ATTRB=ASKIP                       
            DFHMDF POS=(22,10),LENGTH=60,COLOR=YELLOW,INITIAL='PF12 = END' 
SMSG     DFHMDF POS=(24,01),LENGTH=78,COLOR=RED,INITIAL=' '             
            DFHMSD TYPE=FINAL                                              
            END

Cobol CICS

IDENTIFICATION DIVISION.                                     
       PROGRAM-ID.    CICT101.                                      
       AUTHOR.        Hedde de Weert.                               
       DATE-WRITTEN.  05/03/24.                                     
       DATE-COMPILED. TODAY.                                        
                                                                 
       REMARKS.                                                     
                   Just some COBOL CICS testing.                 
                                                                 
      * ---------------------------------------------------- *      
        ENVIRONMENT DIVISION.                                        
      * ---------------------------------------------------- *      
                                                                 
      * ---------------------------------------------------- *      
       DATA DIVISION.                                               
      * ---------------------------------------------------- *      
       WORKING-STORAGE SECTION.                                     
                                                                 
       77  PGM-ID                 PIC  X(24) VALUE 'CICT101'.       
       77  MAPSET-NAME            PIC  X(08) VALUE 'M00101'.       
       77  MAP-NAME               PIC  X(08) VALUE 'S00101'.        
       77  TRNID                  PIC  X(04) VALUE 'CI10'.          
                                                                 
       01  COMM-AREA.                                               
           05  PROG               PIC  X(08) VALUE 'CICT101'.       
           05  MESSAGE            PIC  X(50) VALUE SPACES.          
                                                                 
       01  CA-MESSAGES.                                             
           05  CA-ERR-MSG         PIC  X(70) VALUE SPACES.          
                                                                 
       COPY M00101.                                                
                                                                 
       COPY DFHBMSCA.                                               
                                                                 
       COPY ATTR.                                                   
                                                                  
       COPY KIKAID.                                                 
      *                                                             
      * .................................................... *      
       LINKAGE SECTION.                                           
                                                                  
       01  DFHCOMMAREA            PIC X(58).                      
                                                              
      * ---------------------------------------------------- *    
       PROCEDURE DIVISION.                                        
      * ---------------------------------------------------- *    
           DISPLAY PROG.                                          
                                                              
           DISPLAY EIBAID.                                        
                                                               
           IF EIBAID EQUAL KIKCLEAR OR                            
              EIBAID EQUAL KIKPF12  OR                            
              EIBAID EQUAL KIKPF24                                
              PERFORM CICS-RETURN                                 
           ELSE                                                   
              NEXT SENTENCE.                                      
                                                              
           IF EIBCALEN EQUAL ZERO                                 
              MOVE 'Welkom bij dit testprogramma'                 
                TO CA-ERR-MSG                                     
                PERFORM SEND-S00101                              
                PERFORM RETURN-TRANSID                            
           ELSE                                                   
              MOVE DFHCOMMAREA TO COMM-AREA.                      
                                                              
           PERFORM RECEIVE-S00101.                               
                                                              
           IF SINPUTI NOT EQUAL SPACES                            
              MOVE SINPUTI TO CA-ERR-MSG                          
           ELSE                                                   
              NEXT SENTENCE.                                      
                                                              
           PERFORM SEND-S00101.                                  
           PERFORM RETURN-TRANSID.

SEND-S00101.                                           
           MOVE CA-ERR-MSG TO SMSGO.                           
           EXEC CICS SEND                                      
                MAPSET(MAPSET-NAME)                            
                MAP(MAP-NAME)                                  
                FROM(S00101O)                                  
                ERASEAUP FREEKB                                
           END-EXEC.                                           
                                                               
       RECEIVE-S00101.                                        
           EXEC CICS RECEIVE                                   
                MAPSET(MAPSET-NAME)                            
                MAP(MAP-NAME)                                  
                INTO(S00101I)                                  
           END-EXEC.                                           
           MOVE SPACES TO CA-ERR-MSG.                          
                                                               
       RETURN-TRANSID.                                         
           EXEC CICS RETURN TRANSID(TRNID)                     
                COMMAREA(COMM-AREA)                            
                LENGTH(58)                                     
           END-EXEC.                                           
                                                               
       CICS-RETURN.                                            
           EXEC CICS SEND CONTROL ERASE END-EXEC.              
           EXEC CICS RETURN END-EXEC.                          
           STOP RUN.

JCL for assembling a mapset

JCL for compiling Cobol CICS program

//UPON010R JOB CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1),NOTIFY=UPON010        
//*                                                                    
//JOBPROC  DD  DSN=KICKS.KICKSSYS.V1R5M0.PROCLIB,DISP=SHR              
//***************************************************************      
//*                                                                    
//* MY FIRST COBOL-CICS PROGRAM                                        
//*                                                                    
//***************************************************************      
//CSTMNTB  EXEC K2KCOBCL                                               
//COPY.SYSUT1 DD  DISP=SHR,DSN=UPON010.SOURCE.COBOL(CICT101)           
//SYSPRINT DD   SYSOUT=*                                               
//SYSLIB   DD   DISP=SHR,DSN=KICKS.KICKS.V1R5M0.COBCOPY                
//         DD   DISP=SHR,DSN=KICKS.KICKSSYS.V1R5M0.COBCOPY             
//LKED.SYSIN  DD  *                                                    
    INCLUDE SKIKLOAD(KIKCOBGL)                                           
    ENTRY CICT101                                                        
    NAME CICT101(R)                                                      
//***************************************************************      
//

PCT entry

PPT entry

Cobol batch example

//UPON010A JOB (BATCHCOB),                                             
//             'TEST COBOL',                                           
//             CLASS=A,                                                
//             MSGCLASS=H,                                             
//             MSGLEVEL=(1,1),                                         
//             NOTIFY=UPON010
//******************************************************************** 
//*                                                                    
//* NAME: SYS2.JCLLIB(TESTCOB)                                         
//*                                                                    
//* DESC: TEST COBOL INSTALLATION                                      
//*                                                                    
//******************************************************************** 
//HELOWRLD  EXEC COBUCLG                                               
//COB.SYSPUNCH DD SYSOUT=T                                             
//COB.SYSIN DD *                                                       
        IDENTIFICATION DIVISION.                                        
        PROGRAM-ID.  'HELLO'.                                           
                                                                        
        ENVIRONMENT DIVISION.                                           
        CONFIGURATION SECTION.                                          
        SOURCE-COMPUTER.  IBM-360.                                      
        OBJECT-COMPUTER.  IBM-360.                                      
        SPECIAL-NAMES.                                                  
            CONSOLE IS CNSL.                                            
                                                                        
        DATA DIVISION.                                                  
        WORKING-STORAGE SECTION.                                        
        77  HELLO-CONST   PIC X(12) VALUE 'HELLO, WORLD'.               
                                                                        
        PROCEDURE DIVISION.                                             
        000-DISPLAY.                                                    
            DISPLAY HELLO-CONST UPON CNSL.                              
            STOP RUN.                                                   
                                                                        
//LKED.SYSLIB DD DSNAME=SYS1.COBLIB,DISP=SHR                           
//            DD DSNAME=SYS1.LINKLIB,DISP=SHR                          
//GO.SYSPRINT DD SYSOUT=T                                              
//

IDCAMS

//UPON010A JOB (1),'CREATE VSAM',CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1),   
// REGION=4M,NOTIFY=UPON010                                           
//*                                                                   
//DELDEF EXEC PGM=IDCAMS,REGION=1024K                                 
//SYSPRINT DD SYSOUT=*                                                
//SYSIN    DD *                                                       
    DELETE UPON010.EMPLOYE                                              
    SET MAXCC = 0                                                       
    DEFINE CLUSTER                          -                           
    ( NAME( UPON010.EMPLOYE ) INDEXED     -                           
        VOLUMES( PUB001 )                   -                           
        TRACKS( 15 15 )                     -                           
        SHAREOPTIONS( 1 3 ) UNIQUE          -                           
        RECORDSIZE( 23 23 ) SPANNED         -                           
        KEYS( 2 0 )                         -                           
    )                                     -                           
    DATA  ( NAME( UPON010.EMPLOYE.DATA ) )  -                           
    INDEX ( NAME( UPON010.EMPLOYE.INDEX ) )                             
/*                                                                    
//

Rexx

Save the program in your .EXEC PDS (e.g. SHOWDATE) and execute it with
TSO REXX SHOWDATE

/* REXX */                                                              
say 'Hoi, ik ben user' USERID() 'and it is' today('long')               
say                                                                     
/* ---------------------------------------------------------------------
    * Example extended DATE functions                  PEJ 3. December 2018
    * ---------------------------------------------------------------------
    */                                                                     
    /* Date Output Formats                                                 
    Base      is days since 01.01.0001            **1                   
    JDN       is days since 24. November 4714 BC  **1                   
    Julian    is yyyyddd    e.g. 2018257          **1                   
    Days      is ddd days in this year e.g. 257                         
    Weekday   is weekday of day e.g. Monday                             
    Century   is dddd days in this century                              
    European  is dd/mm/yyyy e.g. 11/11/2018       **1                   
    German    is dd.mm.yyyy e.g. 20.09.2018       **1                   
    USA       is mm/dd/yyyy e.g. 12.31.2018       **1                   
    STANDARD  is yyyymmdd        e.g. 20181219    **1                   
    ORDERED   is yyyy/mm/dd e.g. 2018/12/19       **1                   
    SHORT     is dd mon yyyy e.g. 28. OCT 2018                          
    LONG      is dd month yyyy e.g. 12. MARCH 2018                      
                                                                        
    **1 are also Date Input Formats                                     
    */   
    /* ---------------------------------------------------------------------
    * Examples of today()                                                  
    * ---------------------------------------------------------------------
    */                                                                     
   say 'Default      'today()      /* Output Format defaults to European */
   say 'JDN          'today('jdn')                                         
   say 'Julian       'today('julian')                                      
   say 'Base         'today('base')                                        
   say 'USA          'today('usa')                                         
   say 'European     'today('EUROPEAN')                                    
   say 'German       'today('GERMAN')                                      
   say 'Standard     'today('standard')                                    
   say 'Short        'today('SHort')                                       
   say 'Long         'today('LONg')                                        
   say 'Ordered      'today('Ordered')                                     
   say 'Weekday      'today('weekday')

ALGOL

//ALGSAMP1 JOB (ALGOL),                                                
//             'ALGOL Sample Program',                                 
//             CLASS=A,                                                
//             MSGCLASS=A,                                             
//             REGION=1024K,COND=(0,NE),MSGLEVEL=(1,1)                 
//******************************************************************** 
//*                                                                    
//* Name: SYS2.JCLLIB(ALGSAMP1)                                        
//*                                                                    
//* Desc: IBM Algol F Level 2.1 IVP                                    
//*                                                                    
//******************************************************************** 
//*                                                                    
//*       360S-AL-531 Algol F Compiler                                 
//*            and                                                     
//*       360S-LM-532 Algol F Library                                  
//*                                                                    
//IVP1   EXEC  ALGOFCLG,PARM.GO='TRACE'                                
//ALGOL.SYSIN  DD  *                                                   
        'BEGIN'                                                           
        'COMMENT' TEST PROGRAM Q09                                       
                MODIFIED FOR IBM ALGOL F LEVEL 2.1 IVP                 
                                                                        
                GENERATE AND PRINTS THE FIRST TWENTY                   
                LINES OF PASCALS TRIANGLE                              
                                                                        
            THE K TH ELEMENT P(K,J) OF THE J TH LINE SHOULD BE           
            EQUAL TO THE SUM OF P(K-1,J-1) AND P(K,J-1) FOR K ¬= 0       
            AND K ¬= J. P(0,J)=P(J,J)=1                                  
            THUS BY ADDING TWO BY TWO ALL ELEMENTS IN ONE LINE           
            PLACING EACH SUM BELOW AND BETWEEN THE TWO ELEMENTS THE      
            NEXT LINE OF PASCALS TRIANGLE COULD BE EXPANDED ;            
            'INTEGER' l,k,n,i,m,Powerten;                               
            'INTEGER' 'ARRAY' a[0:19];                                  
            'BOOLEAN' c;                                                
            SYSACT(1,6,120);                                            
            SYSACT(1,8,62);                                             
            SYSACT(1,12,1);                                             
            SYSACT(1,2,56);                                             
            OUTSTRING (1,'('Pascals Triangle')');                       
            'FOR' l := 0 'STEP' 1 'UNTIL' 19 'DO'                       
            'BEGIN'                                                    
            SYSACT(1,14,3);                                           
            'IF' l < 19 'THEN'                                        
                SYSACT(1,2,58-3*l);                                     
            a[l] := 1;                                                
            'FOR' k := l-1 'STEP' -1 'UNTIL' 1 'DO'                   
                a[k] := a[k-1] + a[k];                                   
                'FOR' K :=0 'STEP' 1 'UNTIL' L 'DO'                      
                'BEGIN'                                                 
                c := 'TRUE';                                           
                m := a[k];                                             
                'FOR' I := 5 'STEP' -1 'UNTIL' 0 'DO'                  
                'BEGIN'                                               
                    Powerten := 10 ** I;                                
                    n := m '/' Powerten;                                
                    m := m-n * Powerten;                                
                    'IF' n 'EQUAL' 0 'THEN'                             
                    'BEGIN'                                            
                    'IF' c 'THEN' OUTSYMBOL (1,'(' ')',1)             
                        'ELSE' OUTSYMBOL (1,'('0')',1);                 
                    'END'                                              
                    'ELSE'                                            
                        'BEGIN'                                          
                        c := 'FALSE';                                   
                        OUTSYMBOL(1,'('123456789')',N);                 
                        'END'                                            
                'END'                                                 
                'END'                                                   
            'END'                                                      
            'END'                                                       
/*                                                               
//AMBLIST  EXEC PGM=AMBLIST                                   
//*                                                           
//*        DEMONSTRATE LANGUAGE TRANSLATOR ID FOR ALGOL F     
//*        PROGRAMS AND TIME OF COMPILATION                   
//*                                                           
//SYSPRINT  DD  SYSOUT=*                                      
//SYSLIB    DD  DSN=&&GOSET,DISP=(OLD,PASS)                   
//SYSIN     DD  *                                             
        LISTIDR  MEMBER=GO                                    
/*                                                            
//