...
0200 LET boton_nuevo=300
0210 LET boton_grabar=301
0220 LET boton_borrar=302
0230 LET boton_print=303
0240 LET boton_salir=304
0250 LET boton_busqueda=305
0260 LET id_cliente=200
0270 LET id_nombre=201
0280 LET id_direccion=202
0290 LET id_telefono=203
0300 LET id_fecha=204
0310 LET id_limite=205
0320 LET obtener_texto=1
0330 LET mnu_borrar=13
0340 PRINT (sysgui)'DISABLE'(boton_borrar,-mnu_borrar)
0350 GOSUB carga_lista_nombres
0360 PRINT (sysgui)'FOCUS'(id_cliente)
0370 REM -----------------------------
0380 REM
0390 leer_eventos:
0400 READ RECORD(sysgui,SIZ=LEN(e$))e$
0410 PRINT e.context," ",e.code$,e.id," ",HTA(BIN(e.flags,1)),e.x,e.y
0420 IF e.context=1 THEN GOTO analisa_eventos_segundo_contexto
0430 IF e.id=boton_busqueda THEN GOTO busca_cliente_por_nombre
0440 IF e.id=boton_salir OR e.code$="X" THEN GOTO salir
0450 SWITCH e.id
0460 CASE boton_nuevo; GOSUB nuevo_registro; BREAK
0470 CASE boton_grabar; GOSUB validar_datos; GOSUB grabar_registro; BREAK
0480 CASE boton_borrar; GOSUB borrar_registro; BREAK
0490 CASE boton_print; GOTO imprimir_reporte
0500 CASE id_cliente; IF e.code$="f" AND e.flags=0 THEN GOSUB desplegar_client
0500:e; BREAK
0510 CASE id_nombre; IF e.code$="e" AND e.flags=0 THEN GOSUB busca_cliente_en_
0510:lista; BREAK
0520 CASE id_fecha; IF e.code$="f" AND e.flags=0 THEN GOSUB validar_fecha; BRE
0520:AK
0530 SWEND
0540 GOTO leer_eventos
0550 REM
0560 REM -------------------------------------
0570 nuevo_registro:
0580 DIM clien$:FATTR(clien$)
0590 GOSUB limpiar_pantalla
0600 PRINT (sysgui)'ENABLE'(id_cliente),'DISABLE'(boton_borrar,-mnu_borrar),'F
0600:OCUS'(id_cliente)
0610 GOSUB carga_lista_nombres
0620 RETURN
0630 REM ---------------------------------
0640 validar_datos:
0650 LET clien.codigo$=CTRL(sysgui,id_cliente,obtener_texto)
0660 LET clien.nombre$=CTRL(sysgui,id_nombre,obtener_texto)
0670 LET clien.direccion$=CTRL(sysgui,id_direccion,obtener_texto)
0680 LET clien.telefono$=CTRL(sysgui,id_telefono,obtener_texto)
0690 GOSUB validar_fecha
...