Trailing-Edge
-
PDP-10 Archives
-
BB-4171G-BM
-
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.13, 2-Jun-78 10:06:47, Edit by ENGEL
;<UETP.RUN>BASIC.VER.31, 22-Mar-78 15:02:05, Edit by ENGEL
!THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
! OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
!
!COPYRIGHT (C) 1977 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
!BASIC TEST
!FILES NEEDED:
! FACTOR.BASIC
@def dsk: <uetp.basic>,DSK:<uetp.lib>
@take sys.cmd
!***** message: START OF BASIC TEST
@RUN <uetp.lib>sender
*TYPE START
*BLABEL BEGIN:
*TEST BASIC
*SEND START OF BASIC TEST
*EXIT
@delete *.*
@expunge <uetp.basic>
@NOERROR
@expunge <uetp.basic>
@error
@I DIS <uetp.basic>
@I LOG ALL
!TEST FOR EXISTENCE OF BASIC ON THIS SYSTEM.
@GET SYS:BASIC.EXE
@IF (NOERROR) @GOTO BASIC::
!***** message: BASIC NOT AVAILABLE
@RUN <uetp.lib>sender
*TYPE ERROR
*BLABEL BEGIN:
*TEST BASIC
*SEND BASIC NOT AVAILABLE
*EXIT
@GOTO END::
BASIC::
!
@COPY FACTOR.BASIC FACTOR.BAS
@GET SYS:BASIC
@INF VER
@START
*OLD FACTOR.BAS
*LIST
*RUN
*123
*25252
*26266
*222266
*226266
*88272
*123632
*1231
*31231
*123123
*1431
*142413
*411413
*12
*5
*7
*11
*13
*882
*989
*9797
*979
*1977
*1777
*1814
*2001
*4148
*5177
*71850
*11016
*0
*SYS
@IF (NOERROR) @GOTO END::
!***** message: ERRORS RUNNING BASIC PROGRAMS
@RUN <uetp.lib>sender
*TYPE ERROR
*BLABEL BASIC:
*TEST BASIC
*SEND ERRORS RUNNING BASIC PROGRAMS
*EXIT
@GOTO END::
END::
@CHKPNT END::
%ERR::
!***** message: UNKNOWN ERROR IN BASIC TEST
@RUN <uetp.lib>sender
*TYPE ERROR
*BLABEL END:
*TEST BASIC
*SEND UNKNOWN ERROR IN BASIC TEST
*EXIT
%FIN::
!***** message: END OF BASIC TEST
@RUN <uetp.lib>sender
*TYPE END
*BLABEL END:
*TEST BASIC
*SEND END OF BASIC TEST
*EXIT
@NOERROR
@reset
@DELETE FACTOR.BAS
@expunge <uetp.basic>