eg_outm.for

来自「开放源码的编译器open watcom 1.6.0版的源代码」· FOR 代码 · 共 16 行

        include 'graphapi.fi'
        include 'graph.fi'

        integer i
        character*20 buf

        call _clearscreen( _GCLEARSCREEN )
        do i = 0, 255
            call _settextposition( 1 + mod( i, 16 ),
     +                             1 + 5 * ( i / 16 ) )
            buf( 1:1 ) = char( i )
            call _outmem( buf, 1 )
        enddo
        pause
        end