MAP (SLIME)	BUFFER$=10%
	MAP (CRAP) Z$=4%
	MAP (CRAP) B$(4%)=1%
	MAP (CRAP) ecch%, NUMB%
	DIM WHERE%(10%)
	CALL	OPENU.("MUMBLE",22%,0%)
	FOR I% = 0% TO 9%
		CALL TEL.(22%,Z$)
		WHERE(I%) = NUMB%
		PRINT ASCII(B$(0%)),ASCII(B$(1%)),ASCII(B$(2%)),ASCII(B$(3%)),NUMB%
		CALL	PRINT.(22%,"="+STR$(I%)+"=")
	NEXT I%
	PRINT
	FOR	I% = 0% TO 9%
		NUMB% = WHERE(I%)
		ECCH% = 0%
		CALL SEK.(22%,Z$)
		CALL GET.N(22%,BUFFER$)
		PRINT I%,NUMB%,BUFFER$
	NEXT I%
	CALL CLOSE.(22%)