...
2230 REM
2240 REM ---------------------------------------------------------------------
2250 REM Seccion de Mensajes
2260 REM ---------------------------------------------------------------------
2270 fecha_incorrecta:
2280 LET m=MSGBOX("La fecha es incorrecta, debe utilizar el formato DD/MM/AAAA
2280: para "+$0A$+"el registro de fechas en el programa",16,"Fecha_Incorrecta"
2280:)
2290 PRINT (sysgui)'FOCUS'(id_fecha)
2300 EXITTO leer_eventos
2310 REM
2320 falta_codigo:
2330 LET m=MSGBOX("No ha digitado el codigo de cliente",16,"Codigo")
2340 PRINT (sysgui)'FOCUS'(id_cliente)
2350 EXITTO leer_eventos
2360 REM
2370 falta_nombre:
2380 LET m=MSGBOX("No ha digitado el nombre del cliente",16,"Nombre")
2390 PRINT (sysgui)'FOCUS'(id_nombre)
2400 EXITTO leer_eventos
2410 REM --------------
2420 impresora_ocupada:
2430 LET m=MSGBOX("La impresora no esta lista",16,"Error en Impresora")
2440 GOTO leer_eventos
2450 REM -------------
2460 salir:
2470 END

>save "Ejercicio1.pgm",1