IncInt

Procedure IncInt(ByRef int: Integer, val: Integer)

This procedure adds val to int. This saves you from typing out the variable name twice.

Example:

Program
  Uses
basilisk, pure2d

Var
   a : Integer   
Begin
  InitBasilisk(TRUE)
  OpenScreen(640,480,32,FALSE,COB_SHOWCLOSE+COB_SHOWBORDER)
  
  a = 1   
  IncInt(a, 5)
  
  Text(10,10,a)
  
  While Not ExitRequested
   Flip
   Pause
(2)
  Wend
     
End