10 ! TEST OF LOADABLE ROUTINE
20 DIM A$[60]V,B$[60]V
30 LOAD "LOWCAS.ATK"
40 INPUT "STRING ";A$
50 CALL "LOWCAS"(A$,B$)
60 PRINT B$
70 GOTO 40
	.ERROR
	.ENDC
	.RAD50	/NAME/
	.IF	LE	$$$ULO-3
	.WORD	0
	.ENDC
	.WORD	NAME-STCODE
	.ENDM