SAVE-PROFILE
     USER-PROFILE ,127,127
     EXECUTE :S | LOG DSK3:[110,1]
     EXECUTE :R | CALC
     EXECUTE :S | HOME
     EXECUTE :R |
     RESTORE-PROFILE

.