' *** FASTPRNT.LST *** 2nd GFA-Manual, page 9-9 > PROCEDURE fastprint_init ' ' *** Procedure Fastprint prints text much faster than: PRINT AT(c,l);txt$ ' *** No VT52-commands possible! ' *** Works in High resolution only! ' *** Assembly routine by Peter Schapermeier, improved by Kees Roos ' ' *** Standard: physbase% ' *** Global: fastprint% [address of INLINE-line] ' ' >>> Load FASTPRT2.INL (192 bytes) in INLINE-line fastprint% <<< ' {fastprint%+2}={L~A-22} ! put font-address in routine {fastprint%+6}=physbase% ! put address of physical screen in routine RETURN > PROCEDURE fastprint(column,line,txt$) ' ' *** Call Procedure Fastprint_init before using Fastprint! ' ~C:fastprint%(L:ARRPTR(txt$),W:column,line) RETURN ' ********* '