# CLONETEST - BASIC TEST ROUTINE FOR THE CLONE SYSTEM LITERAL TEXT This macro will test most of the features of the CLONE system. It will not however test the RUN and REPLY commands as tasks performing VAL input may not be available. When this macro runs correctly you should build VALTST in the VAL package and then execute the test macro VALTST.CL1. .NOTEXT CLONE PRINT PRINT 'TESTING BASIC ARITHMETIC' DO I=1,10 PRINT I:'*':I:'=':I*I PRINT PRINT 'TESTING TERMINAL INPUT' A=ASKN 'TYPE ANY NUMBER ? ' B=ASK 'TYPE AN TEXT ? ' PRINT 'YOUR NUMBER WAS:',A PRINT 'YOUR TEXT WAS:',B PRINT PRINT 'TESTING SUBSTITUTION' ENABLE SUBSTITUTION PRINT "'A' 'B'" PRINT PRINT 'TESTING MCR COMMAND' MCR 'PAR' PRINT PRINT 'TESTING FUNCTION CALLS' PRINT "THE LENGTH OF 'B' IS ";$LEN(B) PRINT "THE SECOND HALF OF 'B' IS";$SEG(B,$LEN(B)/2) PRINT PRINT 'TESTING ERROR PROCESSING' PRINT 'THIS WILL BE THE END OF THE MACRO' PRINT 'THIS NUMBER IS UNDEFINED';VAL