alert("Hola")

		_mb_okcancel
		_mb_abortretryignore
		_mb_yesnocancel
		_mb_yesno
		_mb_retrycancel
		_mb_iconerror
		_mb_iconquestion
		_mb_iconexclamation
		_mb_iconinformation
		_mb_iconasterisk
		_mb_defbutton2
		_mb_defbutton3

	

		_mbret_yes
		_mbret_no
		_mbret_cancel
		_mbret_yesno
		_mbret_abort
		_mbret_retry
		_mbret_ignore

	

	var rs=alert_ex("Elegir una opción:","Ejemplo de alert_ex:",_mb_iconquestion+_mb_yesnocancel)
	
	var rsarr=array()
		rsarr[_mbret_cancel]="Cancelar"
		rsarr[_mbret_yes]="Si"
		rsarr[_mbret_no]="No"
	
	alert("Se eligió : " + rsarr[rs])

	alert(cmdline())

	deletefile("archivoejemplo.archivoejemplo")

	alert(err_description(err_number()))		//	Muestra el error "El sistema no puede hallar el archivo especificado."

	_direct{
		invoke SetLastError, 28	;	Establece el error de que no hay papel en la impresora.
	}		

	alert(err_description(err_number()))

	// (Nota: El archivo "win_errores.txt" en la carpeta "tools" junto con el Editor TEIMSI, contiene una lista de errores de sistemas Win2000/XP/7/....)

	(Ver ejemplo de la función "err_description".)

		(Constante)		(Modalidad de variable)

		_mod_stat		Estática.
		_mod_dina		Dinámica (para variables declaradas con "var").
		_mod_engi		Temporal (para variables no declaradas).

	

	var cantidad=3
	alert("La variable cantidad se declaró con var = "+ (imode(cantidad)==_mod_dina));
	alert("La variable estática se declaró con var = "+ (imode("texto")==_mod_dina));

	//	El siguiente programa permite ingresar un número y de devuelve el inverso del mismo.

	includec(engine\internal\simple_rsrc.asm)
	var sint="10.7"
	while(true){
		var sint=inputdlg("Ingresa un número cualquiera:", "<Cálculo del Inverso>", sint)
		if(sint===false){break}
		alert_ex("El inverso de " + sint + ", es : " + (1/parsefloat(sint)), "Information", _mb_iconinformation)
	}

	includec(engine\internal\simple_rsrc.asm)
	var clave=inputdlgx("<Dato>","Ingresa la clave:", "claveclaveclaveclave")
	alert("La clave ingresada es : " +clave)

	// El siguiente ejemplo muestra dos formas de acceder al manejador de una cadena o matriz.

	var cadena=ucase("hola!")+chr(0)		// Crea una variable tipo cadena.

	var manejador1=0			// Crea una variable tipo entero largo.
	_direct{
		mov eax, [cadena+reg.vo]		;	Carga el manejador.
		mov [manejador1+reg.vo], eax	;	Guarda el valor en el valor del entero "manejador1". 
	}
	var manejador2=iofix(cadena)	// "iofix" realiza la misma tarea pero por otro camino.

	alert("Los manejadores son iguales = " + (manejador1==manejador2))

	// Muestra la cadena mediante "MessageBox"

	_direct{
		mov eax, [manejador2+reg.vo]
		NWPOS_eax
		invoke MessageBox, 0, esi, (tsi_msgxtitile), 0
	}

			_sysbool        Booleano
			_syslong        Entero de 32 bits
			_sysdbl         Número de coma flotante de precisión doble (de 8 bytes)
			_sysstr         Cadena
			_sysarr         Matriz
			_sysundef       "Undefined"
			_sysnull        "Null"
	

	var numero=19.2
	alert("¿es \"numero\" es una variable de coma flotante ? : " + (itype(numero)==_sysdbl))

	alert("82.3 es número decimal? =" + (number_type("82.3")==2))

	var r = opfopen(".","","todo archivo *.*"+chr(0)+"*.*");
	alert("Se eligió: " + r)

	var r = opfsave(".","","todo archivo *.*\0*.*");
	alert("Se eligió: " + r)

		_tlyear          Año de la fecha.
		_tlmonth         Mes de la fecha.
		_tldayofweek     Día de la semana (0=domingo, 1=lunes, ...) de la fecha.
		_tlday           Día del mes de la fecha.
		_tlhour          Hora de la fecha.
		_tlminute        Minuto de la fecha.
		_tlsecond        Segundo de la fecha.
	

var arrdate=timelong2arr(timelong(false))

alert("La hora actual = "+arrdate[_tlhour])

	var arrdate=array(1997,4,0,17,23,15,0)
	
	alert("Segundos transcurridos desde 1 de enero de 1970 a las 00:00',0\", hasta el 17 de abril de 1997 a las 17:23',15\" = " + arr2timelong(arrdate))