'*************************************** 
'*             Vector.AMOS             * 
'*      ©1992 by Volker Stepprath      * 
'*  Checks the vectors of its pointer  * 
'*************************************** 
'
'**** Get address of Exec.library **** 
'
EXECBASE=4
EXECBASE=Leek(EXECBASE)
'
'**** Check vectors **** 
'
For I=0 To 4
  Read VECTOR$,OFFSET
  N=EXECBASE+OFFSET
  N=Leek(N)
  Print VECTOR$;Hex$(N,8);
  If N Then Print " abnormal" Else Print " ok"
Next 
'  
End 
'
'**** Vectornames + Offsets **** 
'
Data "ColdCapture ",$2A
Data "CoolCapture ",$2E
Data "WarmCapture ",$32
Data "KickMemPtr  ",$222
Data "KickTagPtr  ",$226