CH = G@SETUP( 640 , 480 , 8 , 1 ) G@CHRCLEAR( CH ) D = REDIM( 10 ) FOR I = 0 TO 9 D[ I ] = I + 1 NEXT G@PRINT( CH , 0 , 0 , STR( D[ 4 ] + D[ 6 ] )) REDIMFREE( D ) LOOP ; G@FLIP( ) ; ENDLOOP