18.4.1. ICPUTCH Funkce: Podprogram ICPUTCH dovoluje zapsat znak na obrazovku. Způsob volání: CALL 'ICPUTCH' USING položka Význam: 1) Argument za USING musí být elementární položka s popisem PIC X USAGE DISPLAY. Smí být indexována. 2) Znak uložený v položce se zapíše na pozici kurzoru a kurzor se posune o jednu pozici vpravo. Byla-li platná pozice kurzoru na posledním znaku řádku, nastaví se kurzor na první znak řádku následujícího. Jestliže byl kurzor na poslední pozici posledního řádku, tak ze stínítka zmizí první řádek, ostatní se posunou směrem vzhůru, poslední řádek se vymezeruje a kurzor se nastaví na první pozici takto uvolněného posledního řádku. 3) Znak bude na stínítku zobrazen s právě nastaveným aktuálním atributem. 4) Pozici kurzoru na stínítku obrazovky lze nastavit pomocí podprogramu ICGOTOXY. Příklad: 77 znak pic x. ... MOVE 'W' TO znak. CALL 'ICGOTOXY' ... & nastavení kurzoru CALL 'ICPUTCH' USING znak.