' *** CURSOR.LST *** 2nd GFA-Manual, page 8-10 > PROCEDURE cursor(cursor!,blink!,blinkrate) ' ' *** Switch TOS-cursor on/off and switch blinking on/off ' *** TOS-cursor must be switched off during (LINE) INPUT ' *** Blinkrate in units of 1/50, 1/60 or 1/71 second (= vertical frequency) ' *** Use blinkrate&=-1 if you don't want to change it ' IF cursor! ~XBIOS(21,1) ! cursor on IF blink! ~XBIOS(21,2) ! blinking on IF blinkrate>0 ~XBIOS(21,4,blinkrate) ! change blinkrate ENDIF ELSE ~XBIOS(21,3) ! blinking off ENDIF ELSE ~XBIOS(21,0) ! cursor off ENDIF RETURN ' ********* '