expect "\r\n." send "DELETE *.LPT,*.TMP\r"; continue
; Restore Fortran APL, ALGOL COBOL, BASIC, DBMSV5 IQL and MCS
expect "\r\n." send "TECO COMPIL.MAC\r"; continue
expect "\r\n*" send "SVUPDATE\33LIVLOCAL==1\r\33SVEDIT==\33IVLOCAL*1000+\33S	\33D\33SVCUSTOM==\33DI2\33\33"; continue
expect "\r\n*" send "SSNOBOL\33\060LIIFNDEF BCPL,<BCPL==1>		;ACCEPT BCPL COMPILER\r\33\33"; continue
expect "\r\n*" send "PNSNOBOL\33\060LIIFN BCPL,<X BCPL,BCP,BCPL,,,,=>\r\33\33"; continue
expect "\r\n*" send "NLOOK\33\060LIIFE BCPL,<BCPSW==0>	;MAKES TESTS EASIER AND NEATER\r\33\33"; continue
expect "\r\n*" send "NCBLSW!BLISW\33I!BCPSW\33SBLISS\33I OR BCPL\33\33"; continue
expect "\r\n*" send "NOEXT\33\060LIIFN BCPL,<\r	CAMN	T1,BCL		;TEST AGAINST ALTERNATIVE EXT\r	JRST	DOCOMP		;YES, SO RECOMPILE\r	>\r\33\33"; continue
expect "\r\n*" send "NF4	\33\060LIIFN BCPL,<\r	CAMN	T2,BCL	;ALTERNATIVE BCPL EXTENSION\r	JRST	[HRROI	T3,^L<BCPSW>-21	;FAKE BCPL SEEN\r		JRST	NFIL3]\r	>\r\33\33"; continue
expect "\r\n*" send "N.+4\33-3DINFIL3\33SISPTAB\33\060LIIFN BCPL,<NFIL3:>\r\33\33"; continue
expect "\r\n*" send "PSNOTYT1\33\060LIIFN BCPL,<\r	CAIN	T3,CHNBCP+2	;BCPL USES .BCL OR .BCP\r	MOVE	T2,BCL		;TRY OTHER\r>\r\33\33";continue
expect "\r\n*" send "NF4:\33\60LIIFN BCPL,<\rBCL:	SIXBIT	/BCL/		;ALTERNATIVE BCPL EXT>\r\33\33"; continue
expect "\r\n*" send "EX\33\33"; continue
expect "\r\n." send "LOAD/COMP COMPIL\r"; at %TAPE% -r tapes/extras.tap; continue
expect "\r\n." send "SSAVE COMPIL\r"; continue
expect "\r\n." send "\r"; continue
expect "\r\n." send "R BACKUP\r"; continue
expect "\r\n/" send "TAPE MTA0\r"; continue
expect "\r\n/" send "DEN 800\r"; continue
expect "\r\n/" send "FILES\r"; continue
expect "\r\n/" send "INTER\r"; continue
expect "\r\n/" send "RESTORE DSKB:[10,6]*.*=*.*\r"; continue
expect "\r\n/" send "EXIT\r"; continue
expect "\r\n." send "LOAD CDRSTK,TRYUFD,HELPER,QUEUER\r"; continue
expect "\r\n." send "SSAVE CDRSTK\r"; continue
expect "\r\n." send "k/f\r"; continue
expect "\n\n." send "login 1,2\r"; continue
expect -ri "Password:" send "FAILSA\r"; continue
expect "\r\n." send "COPY SYS:<155>=COMPIL.EXE[10,6]\r"; continue
expect "\r\n." send "COPY SYS:<155>=CDRSTK.EXE[10,6]\r"; continue
expect "\r\n." send "K/F\r"; continue
