Erst einmal vielen Dank Wilfried für Deinen konstruktiven Vorschlag zur Verbesserung des Programms. Wilfried schlug vor, den Stream für die Configdatei nach dem Einlesen mit dem Kommando
Code: Alles auswählen
RC = STREAM("irxradio.cfg",'C','CLOSE')
Als ich das Programm vor sieben Jahren geschrieben hatte, bekam ich auch einige Rückmeldungen. Ein Nutzer machte mich darauf aufmerksam, dass sich das Magische Auge in die verkehrte Richtung öffnet. Da ging ich in mich und musste ihm beipflichten. Diesen geänderten Code habe ich in die Version 1.5 eingearbeitet, die aber (noch) nicht auf Hobbes steht. Müsste ich mal nachholen. Aber vielleicht kommen hier noch weitere Verbesserungen
![Zwinkern ;)](./images/smilies/icon_e_wink.gif)
Hier der geänderte Code (Version 1.5) innerhalb der Funktion DispEye:
Code: Alles auswählen
if disp='L' then
do
call SysCurPos 11, 11; call charout ,'▄'
call SysCurPos 11, 23; call charout ,'▄'
call SysCurPos 12, 11; call charout ,'▀'
call SysCurPos 12, 23; call charout ,'▀'
end
if disp='R' then
do
call SysCurPos 11, 11; call charout ,'▄▄▄▄▄▄'
call SysCurPos 11, 18; call charout ,'▄▄▄▄▄▄'
call SysCurPos 12, 11; call charout ,'▀▀▀▀▀▀'
call SysCurPos 12, 18; call charout ,'▀▀▀▀▀▀'
end
Für weitere Hinweise zur Programmverbesserung bin ich stets dankbar.
Wolfgang