expect "\n\n." send after=100k "login 10,6\r";  continue
expect -ri "Password:" send after=100k "dist\r"; continue
expect "\r\n." send "r credir\r"; continue
expect -ri "directory:" send "[10,6,GAMES]\r"; continue
expect -ri "directory:" at %TAPE% -r tapes/games.tap ; send "\3" ; continue
expect "\r\n." send "ASSIGN MTA0 BACKUP\r"; continue
expect "\r\n." send "SET DENS MTA0 800\r"; continue
expect "\r\n." send "R BACKUP\r"; continue
expect "\r\n/" send -t after=50000 "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,GAMES]*.*=*.*\r"; continue
expect "\r\n/" send "EXIT\r"; continue
expect "\r\n." send "R SETSRC\r"; continue
expect "\r\n*" send "CP [10,6,GAMES]\r"; continue
expect "\r\n*" send "\3"; continue
expect "\r\n." send "EXEC ADVENT.FOR\r"; continue
expect "\r\n*" send "X\r"; continue
expect "\r\n." send "SSAVE ADVENT\r"; continue
expect "\r\n." send "LOAD MONOP\r"; continue
expect "\r\n." send "SSAVE MONOP\r"; continue
expect "\r\n." send "K/F\r"; continue
