expect "\n\n." send after=100k "login 100,100\r";  continue
expect -ri "Password:" send after=100k "demo1\r"; continue
expect "\r\n." send "MAKE CTEST.CBL\r"; continue
expect "\r\n*" send "IIDENTIFICATION DIVISION.\rPROGRAM-ID.  BENCHCOB.\rENVIRONMENT DIVISION.\r\33\33"; continue
expect "\r\n*" send "ICONFIGURATION SECTION.\rINPUT-OUTPUT SECTION.\rFILE-CONTROL.\rDATA DIVISION.\r\33\33"; continue
expect "\r\n*" send "IFILE SECTION.\rWORKING-STORAGE SECTION.\r\33\33"; continue
expect "\r\n*" send "I    77 A    PIC 9(18) COMP VALUE 1.\r\33\33"; continue
expect "\r\n*" send "I    77 B    PIC 9(18) COMP VALUE 1.\r\33\33"; continue
expect "\r\n*" send "I    77 C   PIC 9(18) COMP VALUE 1.\r\33\33"; continue
expect "\r\n*" send "I    77 X    PIC 9(9)V9(9) VALUE 0.\r\33\33"; continue
expect "\r\n*" send "I    77 Y    PIC 9(9)V9(9) VALUE 0.\r\33\33"; continue
expect "\r\n*" send "IPROCEDURE DIVISION.\rMAIN-PART.\r      PERFORM A10-LOOP\r\33\33"; continue
expect "\r\n*" send "I       VARYING A FROM 1 BY 1 UNTIL A > 100\r\33\33"; continue
expect "\r\n*" send "I          AFTER B FROM 1 BY 1 UNTIL B > 100\r\33\33"; continue
expect "\r\n*" send "I          AFTER C FROM 1 BY 1 UNTIL C > 100.\r\33\33"; continue
expect "\r\n*" send "I    DISPLAY 'Y = ', Y.\r         STOP RUN.\r\r\33\33"; continue
expect "\r\n*" send "IA10-LOOP.\r     COMPUTE X = 1 / (A + B + C).\r\33\33"; continue
expect "\r\n*" send "I      COMPUTE Y = Y + X.\r\33ex\33\33"; continue
expect "\r\n." send "comp ctest.cbl/cobol/comp\r"; continue
expect "\r\n." send "r link\r"; continue
expect "\r\n*" send "ctest/go\r"; continue
expect "\r\n." send "start\r"; continue
expect "\r\n." send "MAKE HELLO.MAC\r"; continue
expect "\r\n*" send "I	TITLE HELLO WORLD\r\33\33"; continue
expect "\r\n*" send "ISEARCH UUOSYM\r\33\33"; continue
expect "\r\n/" ; continue
expect "\r\n*" send "ILAB:	ASCIZ /Hello World!\r/\r\33\33"; continue
expect "\r\n*" send "ISTART:	RESET\r\33\33"; continue
expect "\r\n*" send "I  OUTSTR	LAB\r\33\33"; continue
expect "\r\n*" send "I   MONRT.\r\33\33"; continue
expect "\r\n*" send "I    END START\r\33ex\33\33"; continue
expect "\r\n." send "load hello.mac\r"; continue
expect "\r\n." send "save hello\r"; continue
expect "\r\n." send "run hello\r"; continue
expect "\r\n." send "MAKE FTEST.FOR\r"; continue
expect "\r\n*" send "IC   Prime number generator using the sieve of Eratosthenes\r\33\33"; continue
expect "\r\n*" send "I      INTEGER I,NUM,MULT,PRIME,SIZE\r\33\33"; continue
expect "\r\n*" send "I      DIMENSION IFLAGS(1000)\r\33\33"; continue
expect "\r\n*" send "I      SIZE=1000\r\33\33"; continue
expect "\r\n*" send "I      DO 10 I=1,SIZE\r\33\33"; continue
expect "\r\n*" send "I   10   IFLAGS(I)=1\r\33\33"; continue
expect "\r\n*" send "I      IFLAGS(1)=0\r\33\33"; continue
expect "\r\n*" send "I      DO 40 NUM=1,SIZE\r\33\33"; continue
expect "\r\n*" send "I        IF (IFLAGS(NUM).EQ.0) GOTO 40\r\33\33"; continue
expect "\r\n*" send "I        PRIME=NUM\r\33\33"; continue
expect "\r\n*" send "I        MULT=PRIME+PRIME\r\33\33"; continue
expect "\r\n*" send "I   20   IF (MULT.GT.SIZE) GOTO 40 \r\33\33"; continue
expect "\r\n*" send "I        DO 30 I=MULT,SIZE,PRIME\r\33\33"; continue
expect "\r\n*" send "I   30     IFLAGS(I)=0\r\33\33"; continue
expect "\r\n*" send "I   40 CONTINUE\r\33\33"; continue
expect "\r\n*" send "I      WRITE(5,900)\r\33\33"; continue
expect "\r\n*" send "I      DO 50 NUM=1,SIZE\r\33\33"; continue
expect "\r\n*" send "I        IF (IFLAGS(NUM).EQ.0) GOTO 50\r\33\33"; continue
expect "\r\n*" send "I        WRITE(5,901) NUM\r\33\33"; continue
expect "\r\n*" send "I   50 CONTINUE\r\33\33"; continue
expect "\r\n*" send "I      STOP\r\33\33"; continue
expect "\r\n*" send "I  900 FORMAT(22H1LIST OF PRIME NUMBERS)\r\33\33"; continue
expect "\r\n*" send "I  901 FORMAT(1X,I5)\r\33\33"; continue
expect "\r\n*" send "I      END\r\33ex\33\33"; continue
expect "\r\n." send "execute ftest.for\r"; continue
expect "\r\n." send "make atest.alg\r"; continue
expect "\r\n*" send "IBEGIN\rEND.\r\33ex\33\33"; continue
expect "\r\n." send "execute atest.alg\r"; continue
expect "\r\n." send "delete *.rel\r"; continue
expect "\r\n." send "k/f\r"; continue

