[LEFT][SIZE=1][FONT=LucidaSansTypewriter][SIZE=1][FONT=LucidaSansTypewriter]DEFINE VARIABLE x AS INTEGER INITIAL 3.[/FONT][/SIZE]
[SIZE=1][FONT=LucidaSansTypewriter]PROMPT-FOR x. MESSAGE "Record buffer" x SKIP(0) "Screen buffer" INPUT x.[/FONT][/SIZE]
[SIZE=1][FONT=LucidaSansTypewriter]SET x. MESSAGE "Record buffer" x SKIP(0) "Screen buffer" INPUT x.[/FONT][/SIZE]
[SIZE=1][FONT=LucidaSansTypewriter]UPDATE x. MESSAGE "Record buffer" x SKIP(0) "Screen buffer" INPUT x.[/FONT][/SIZE][/LEFT]
[/FONT][/SIZE]