Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

;<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
@take PS:<UETP.LIB>sys.cmd
@def dsk: <uetp.basic>,PS:<uetp.lib>
		!***** message: START OF BASIC TEST
@RUN  PS:<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  PS:<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  PS:<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  PS:<UETP.LIB>sender
*TYPE ERROR
*BLABEL END:
*TEST BASIC
*SEND UNKNOWN ERROR IN BASIC TEST
*EXIT




%FIN::

		!***** message: END OF BASIC TEST
@RUN  PS:<UETP.LIB>sender
*TYPE END
*BLABEL END:
*TEST BASIC
*SEND END OF BASIC  TEST
*EXIT


@NOERROR
@reset
@DELETE FACTOR.BAS
@expunge <uetp.basic>