1 SUB SMG_BEGIN_DISPLAY_BATCHING(BYTE Vir_disp_num) !---------------------------------------------------------------& ! & ! SMG_BEGIN_DISPLAY_BATCHING & ! & ! Creation Date: 3-July-1985 & ! Author: Ken Messer & ! Purpose: Turn on display batching. & ! & ! Modification history & ! & ! Date Description of change(s) & ! & !---------------------------------------------------------------& ! & ! Copyright (c) 1985 - Ken Messer, Allied Electronics, Inc., & ! 401 E. 8th St., Ft. Worth, TX 76102 & ! & ! This software may be copied and distributed freely to anyone & ! for non-commerical use provided that this copyright notice is & ! included. & !---------------------------------------------------------------& OPTION TYPE = INTEGER, SIZE = INTEGER LONG %include "SMG$LIBRARY:SMG.DFN" EXTERNAL SUB SMG$Begin_display_update(LONG) !---------------------------------------------------------------& ! & ! M a i n P r o g r a m L o g i c & ! & !---------------------------------------------------------------& CALL SMG$Begin_display_update(Display_id(Vir_disp_num)) 32767 SUBEXIT END SUB