Click above to get retro games delivered to your door ever month!

Syntax

GEN_PIC( cField[, lIsget ] )

Purpose

An intelligent picture generator.

Arguments

     cField -- name of a field

     lIsget -- if passed and .T., a READ is in progress; defaults to a
                   call to READVAR().

Setup

None.

Example

     LOCAL i, temp, size := FCOUNT()
     USE ORDERS

     FOR i = 1 TO size
         temp = FIELD( i )
         @ i, 20 GET &temp PICTURE GEN_PIC( temp )
     NEXT

Returns

A picture string according to a set of defaults. See notes.

Side Effects

None.

Artful Calls

None.

Source File

AA_GNPIC.PRG