编写烘干机自编程序需要考虑以下关键功能和硬件配置：
硬件配置
CPU：1214C
数字量输入：启动按钮（Start_Button）、停止按钮（Stop_Button）
数字量输出：加热器（Heater）、报警指示灯（Alarm_Light）
模拟量输入：温度传感器（PT100）
变量定义
`Start_Button`：%I0.0（启动按钮）
`Stop_Button`：%I0.1（停止按钮）
`Temp_Input`：%IW64（温度传感器输入）
`Heater`：%Q0.0（加热器控制）
`Alarm_Light`：%Q0.1（报警指示灯）
`Set_Temp`：Int（设定温度）
`Set_Time`：Time（设定时间）
`Timer_1`：TON（计时器）
`Temp_Real`：Real（实际温度值）
主程序设计
启动和停止控制：
```pascal
IF "Start_Button" AND NOT "Stop_Button" THEN
"System_Run" := TRUE；
ELSIF "Stop_Button" THEN
"System_Run" := FALSE；
END_IF；
```
温度和时间设定
需要编写程序来设定温度和时间，并在达到设定温度后开始计时。
烘干完成和报警提示
烘干完成后自动停机并报警提示。
```pascal
// 变量定义
I_Start: BOOL； // 启动按钮
I_Stop: BOOL； // 停止按钮
I_TempSensor: REAL； // 温度传感器输入
IW_SetTemp: INT； // 设定温度
IW_SetTime: INT； // 设定时间
// 主程序设计
IF I_Start THEN
IF I_Stop THEN
"System_Run" := FALSE；
ELSE
"System_Run" := TRUE；
// 启动加热器
"Heater" := TRUE；
// 设定温度和时间
"Set_Temp" := IW_SetTemp；
"Set_Time" := IW_SetTime；
// 开始计时
"Timer_1" := TON（IW_SetTime）；
END_IF；
ELSE
// 停止加热器
"Heater" := FALSE；
// 报警提示
"Alarm_Light" := TRUE；
END_IF；
// 温度检测循环
WHILE "System_Run" DO
// 读取实际温度
I_TempSensor := Read_Temp_Sensor（）；
// 检查是否达到设定温度
IF I_TempSensor >= IW_SetTemp THEN
// 达到设定温度，停止计时
"Timer_1" := 0；
// 烘干完成
"System_Run" := FALSE；
// 报警提示
"Alarm_Light" := FALSE；
END_IF；
// 延时
延时（100）；
END_WHILE；
```
请注意，这只是一个简单的示例程序，实际应用中可能需要根据具体需求进行更复杂的逻辑设计和调试。