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