'**** HEADER ************************************************************
'EXDISP06.PF3 (release .02)
'Copyright (c) 1990-1991 Applied Resource Technologies, Inc.
'P.O. Box 64381, Dallas, Texas 75206 U.S.A. (214) 855-0449
'Description: Demonstrates spinmark()
'**** FUNCTION DECLARATIONS *********************************************
'library
external progress() spinmark()
'core
'**** VARIABLE DECLARATIONS *********************************************
'library
public ptstr psa
'core
global setup() readrecs() main_exit()
global s_row s_col
'**** CODE **************************************************************

MAIN
  setup()
  readrecs()
  main_exit()
END MAIN

function setup()
load "\smartii\poptools\lib\displib.psl" in-memory
repaint off
screen clear 0 0
progress(fginvpleasing, bginvpleasing,"Setting up for EXDISP06... standby",0)
file load standard-view "\smartii\poptools\data\scratch.vws"
screen shortrestore psa
s_row = value(group(ptstr,1))+1
' blank line below progress() message
s_col = int(value(group(ptstr,3))/2) \
   +value(group(ptstr,2))
' center coordinates of the line
end function 'setup()


function readrecs()
progress(fginvpleasing, bginvpleasing,"Writing export data",1)
while record <= records
  spinmark(s_row,s_col,fginvpleasing,bginvpleasing)
  data goto record next
  wait .05
end while
end function 'readrecs()


function main_exit()
file unload view "scratch.vws"
unload "displib.psl"
end function 'main_exit()