! *conv.tbd/prepass.sys
!
! System supplied prepass for Conversion utilities
! User values should be placed in prepass.usr
!
! Format of the conversion lines is:
!
! oldval->newval
! oldvar=>newvar
!
! Where oldval/var is the text that will be scanned for and newval/var is the value that
! will be inserted instead
!
! If the seperator is -> the replacement is a simple pure text replacement, that is
! all occurences of oldval will become newval.
!
! If the seperator is => the replacement will only replace a variable whose name is
! oldvar with newvar.  The convertor assures the value is a variable by testing the
! characters before and after the value to make sure it is one of the following:
!
! " ;:,+/-*^()[]="
!
! To allow for function name recognition, if the last character is one of the
! above then the value will be considered a variable.
!
! In addition when replacing variables the number of quotes preceding the value MUST
! be even thus assuring that the text does not appear in a string.
! 
! The Variable assignment (=>) can also be used for logical statments or other
! such replacements where the contents is not part of a longer text thus in many cases
! it is preferable over -> (although slower)
!
! (c) Copyright 2006 Pvx Plus Technologies
!
'CN'=>'C1'
'CO'=>'C0'
!
! Escape On/Off
ESCON=>SETESC ENABLE
ESCOFF=>SETESC DISABLE
!
! INF Functions
!
INF(3,2)=>WHO
INF(4,=>ENV(
!
! Tbred functions/Variables provided in Function.def
!
CPP(=>FN%CPP$(
FST(=>FN%FST$(
NEA(=>FN%NEA(
DTN(=>FN%DTN(
NTD(=>FN%NTD$(
NMV(=>FN%NMV(
XFD(=>FN%XFD$(
!
STL(=>LEN(
!
CDS=>FN%CDS$
CDN=>FN%CDN
!
! WIN Functions
!
!WIN(GET SCREEN)=>FN%WIN$("GET SCREEN")
!WIN(GET TEXT)=>FN%WIN$("GET TEXT")
WIN(GET CURSOR)=>$00$+MID(FIB(0),85,1)+$00$+MID(FIB(0),86,1)
WIN(GET LIST)=>%WDW_LST$
!
! Date string loaded in Function.def
!
DATESTRINGS=>%DATE_STRING$
!
DROP ALL=>CALL "*conv.tbd/util;drop_all"
!
DELETE 00001,65534->DELETE 00001,65000
!
OCH=>MID(CHN,3)
!
! Border positions -- convert to non compiling statements so convertor will correct them
!
@(TOPBORDER->@BORDERTOP
@(LEFTBORDER->@BORDERLEFT
@(BOTTOMBORDER->@BORDERBOTTOM
@(RIGHTBORDER->@BORDERRIGHT
