100 'this should be the first line of your program. 110 DEF SEG 'Set data segment register 120 DIM PARM2BAS%(4) 'Dimension an array to hold an assembler routine 130 PARM2BAS%(1) = &H5B59 'Fill the array: POP CX POP BX 140 PARM2BAS%(2) = &H5153 'PUSH BX PUSH CX 150 PARM2BAS%(3) = &HEB83 'SUB BX,10H 160 PARM2BAS%(4) = &HCB10 'RET 170 D% = 0 'Initialize a dummy parameter 180 DEF USR0 = VARPTR(PARM2BAS%(1)) 'set starting address of array. 190 PSP% = USR0(D%) 'Subroutine returns the PSP 200 DEF SEG = PSP% 'Set data seg register to the PSP 210 PARM$ = "" 'Initialize string item 220 FOR N% =&H82 TO &H82+PEEK(&H80)-2 'Get parameter 1 char at a time. 230 PARM$ = PARM$ + CHR$(PEEK(N%)) 240 NEXT 250 DEF SEG 'reset data segment register 260 PRINT "<<";PARM$;">>" 270 WHILE INKEY$ <> " " : WEND