;--------------------------------------
;  demonstrates the use of PARAMS.INC
;  (c) 24-01-1994 by Jan Laitenberger
;--------------------------------------

JMP  @Start

INCLUDE WrNum.INC
INCLUDE Params.INC

@Start:
MOV  AX, 1401h		; 1st param 
MOV  DX, OFFSET @P1st	; maxlen = 20
CALL @GetPar		; get param
MOV  BYTEPTR [BX+?@P1st], 39 
			; end with "'"
XOR  AH, AH
MOV  AL, [80h]		; get length
MOV  BX, 10		; decimal
MOV  DI, OFFSET @Strg
CALL @Str
MOV  AX, 2002h
MOV  SI, OFFSET @ClLen+1; insert
XCHG SI, DI		; number in
CALL @Form		; output text
MOV  BYTEPTR[?@ClLen],32; clear length
CALL @CntPar		; count params
MOV  BX, 10		; decimal
MOV  DI, OFFSET @Strg
CALL @Str
MOV  AX, 2002h
MOV  SI, OFFSET @PNum+1	; insert
XCHG SI, DI		; number in
CALL @Form		; output text
MOV  BYTEPTR[?@PNum],32	; clear length
MOV  AH, 9		;   (byte 0)
MOV  DX, OFFSET @Info	; display
INT  21h		; the text
INT  20h		; terminate
			; program

@Strg:	DB "     "
@Info:	DB 13, 10, "The entered "
        DB "commandline is", 13, 10
@ClLen:	DB "    bytes long and "
	DB "consists of", 13, 10
@PNum:	DB "    parameters", 13, 10
	DB "1st parameter: '"
@P1st:	DB "                         "
	DB 13, 10
	DB "*** demo written by Jan"
	DB " Laitenberger", 13, 10, 36