Google
 

Trailing-Edge - PDP-10 Archives - red405a2 - uetp/lib/basic.ver
There are 13 other files named basic.ver in the archive. Click here to see a list.
;<UETP.LIB>BASIC.VER.2,  9-May-79 10:51:01, EDIT BY EIBEN
!FILES NEEDED:
!		mortga.exe
!		mortga.cmp
@inf str user:
@if (error) @goto begin:

@run <uetp.lib>sender
*type START
*blabel user:
*test basic
*send basic =>USER:
*exit

@mount structure user:
@def dsk: user:<uetp.basic>,ps:<uetp.lib>
@def out: user:<uetp.basic>
@goto begin1:

begin::
@RUN  <uetp.lib>sender
*TYPE START
*BLABEL BEGIN:
*TEST basic
*SEND
*EXIT
@def dsk: <uetp.basic>,ps:<uetp.lib>
@def out: ps:<uetp.basic>

begin1::
@take sys.cmd
@goto begin2:

%ERR::
@RUN  <uetp.lib>sender
*TYPE error
*BLABEL BEGIN1:
*TEST basic
*SEND ERROR on TAKE SYS.CMD
*EXIT
@revive
@goto ENDERR:

begin2::
@NOERROR
@delete out:*.*
@expunge out:
@error

@I DIS OUT:
@I LOG ALL
@GOTO BASIC:

%ERR::
@run <uetp.lib>sender
*type error
*blabel begin2
*test basic
*send No directory uetp.basic on structure USER:?
*exit
@go to enderr:

basic::
@run <uetp.lib>mortga.exe
@GOTO basic1:

%ERR::
@SILENCE	! ***** MESSAGE: ERROR ON "RUN MORTGA.EXE"
@RUN ps:<uetp.lib>SENDER
*TYPE ERROR
*BLABEL basic:
*TEST basic
*SEND ERROR on "RUN MORTGA.EXE"
*EXIT
@REVIVE
@GOTO ENDERR:

BASIC1::
*MON
*10.5
*30,0
*49900
*N
*JAN,1979
*1979,1999
*MON

@GOTO BASIC2:

%ERR::
@silence		!***** message: ERROR RUNNING BASIC PROGRAM
@RUN  ps:<uetp.lib>sender
*TYPE ERROR
*BLABEL BASIC1:
*TEST BASIC
*SEND error RUNNING BASIC PROGRAM
*EXIT
@revive
@GOTO ENDERR:

BASIC2::
@ERROR %
!NOW COMPARE FILES
@FILCOM
*TTY:=MORTGA.CMP,MORTGA.DAT
@GOTO END:

%ERR::
@silence		!***** message: ERROR IN BASIC PROGRAM'S OUTPUT
@RUN  ps:<uetp.lib>sender
*TYPE ERROR
*BLABEL BASIC2:
*TEST BASIC
*SEND ERROR IN BASIC PROGRAM'S OUTPUT
*EXIT
@revive
@GOTO ENDERR:

%TERR::
@SILENCE	! ***** MESSAGE: TIME-OUT ERROR BASIC
@RUN ps:<uetp.lib>SENDER
*TYPE ERROR
*BLABEL %TERR:
*TEST BASIC
*SEND TIME-OUT ERROR BASIC
*EXIT
@REVIVE
@GOTO ENDERR:

%ERR::
@SILENCE	! ***** MESSAGE: UNKNOWN ERROR IN BASIC.SUP
@RUN ps:<uetp.lib>SENDER
*TYPE ERROR
*BLABEL %ERR:
*TEST BASIC
*SEND UNKNOWN ERROR IN BASIC.SUP
*EXIT
@REVIVE
@GOTO ENDERR:

ENDERR::
@INF DIS out:<UETP.BASIC>
@VDIR OUT:
@I LOG ALL
@SY ALL F-S
@INF FI
@INF MEM

END::
%FIN::
@silence		!***** message: END OF BASIC TEST
@RUN  ps:<uetp.lib>sender
*TYPE END
*BLABEL END:
*TEST BASIC
*SEND
*EXIT
@revive