Code Comments and Indenting - Comments and most code indenting will be passed thru into the the commented LiveCode code unchanged in order to improve readability as well as documentation. Variable definitions are modified to remove size info, and BASIC variable name suffix characters are removed for assignment and definition statements.

' Data Reduction Program +++++ Module #1 +++++
' By David Simpson 12/8/85
' Copyright (c) 1985
LIBRARY "ToolLib"

Program.Name1$ = "Sentry D.R.(old) 618-000"

DIM D$(135) : REM variable which will contain one line of text
DIM C$(25) : REM bad sizes,bad id code to be sent to error message.
DIM File1$(256) :REM used for " FMT" -- input data file
DIM File2$(256) :REM used for ".SN" -- list of sn file
DIM File3$(256) :REM used for ".DEV" -- number of devices file
Page.Count% = 1 : REM count the number of pages of data
Line.Count% = 0
Page.Width2% = 8 : REM number of columns of data across page
Page.Width% = 81
Page.Length% = 64
Max.Sn% = 1000 : REM maximum devices which can be processed
Buffer.Size% = 3750 : REM number of sn of data read in by calc
Max.Parameters% = 75 : REM the maximum number of parameters
Max.Sizes% = 50 : REM the maximum number of measurements
DIM Update.Running.Status%(5500) : ' picture of window #3 for screen refreshing

-- Data Reduction Program +++++ Module #1 +++++
-- By David Simpson 12/8/85
-- Copyright (c) 1985
library stack "ToolLib"

put "Sentry D.R.(old) 618-000" into Program.Name1


local D -- REM variable which will contain one line of text
local C -- REM bad sizes,bad id code to be sent to error message.
local File1 -- REM used for " FMT" -- input data file
local File2 -- REM used for ".SN" -- list of sn file
local File3 -- REM used for ".DEV" -- number of devices file
put 1 into Page.Count -- REM count the number of pages of data
put 0 into Line.Count
put 8 into Page.Width2 -- REM number of columns of data across page
put 81 into Page.Width
put 64 into Page.Length
put 1000 into Max.Sn -- REM maximum devices which can be processed
put 3750 into Buffer.Size -- REM number of sn data read in by calc
put 75 into Max.Parameters -- REM the maximum number of parameters
put 50 into Max.Sizes -- REM the maximum number of measurements
local Update_Running_Status -- -- picture of window #3 for screen refreshing

SELECT/CASE Conversion - SELECT/CASE statements are converted into switch/case statements in LiveCode. The CASE ELSE keywords become the default CASE condition and a break keyword is added at the end of each CASE block. Once again, the ByVal keyword has been replaced with the @ symbol, which passes the variable by reference into the handler.

SUB SetFifoTrigger(BYVAL port AS INTEGER, BYVAL level AS INTEGER) PUBLIC
     SELECT CASE level
     CASE 1
          level = "&H1F" ' 1 byte
     CASE 4
          level = "&H4F" ' 4 bytes
     CASE 8
          level = "&H8F" ' 8 bytes
     CASE 14
          level = "&HCF" ' 14 bytes
     CASE ELSE
          level = "&H00" ' disable FIFOs
     END SELECT
END SUB

on SetFifoTrigger @port @level
     switch level
     CASE 1
          put "&H1F" into level -- 1 byte
     break
     CASE 4
          put "&H4F" into level -- 4 bytes
     break
     CASE 8
          put "&H8F" into level -- 8 bytes
     break
     CASE 14
          put "&HCF" into level -- 14 bytes
     break
     default
          put "&H00" into level -- disable FIFOs
     break
     end switch
end SetFifoTrigger

flag1% = 0 ' flag to enable WHILE statement
IF Num.To.Override% > 0 THEN flag1%=1
' do not remove devices which are overridden (control unit devices)
WHILE flag1%=1
     FOR b% = 1 TO Devices%
          FOR C% = 1 TO Num.To.Override%
               ' make sure that overridden devices are not removed
               IF Sn.List%(b%) = Override.List%(C%) THEN Fail.Flags2%(b%) = 2
          NEXT C%
     NEXT b%
     flag1% = 0 ' disable WHILE statement
WEND

put 0 into flag1 -- flag to enable WHILE statement
IF Num.To.Override > 0 THEN flag1=1
-- do not remove devices which are overridden (control unit devices)repeat while flag1=1
     repeat with b = 1 TO Devices
          repeat with C = 1 TO Num.To.Override
          -- make sure that overridden devices are not removed
          IF Sn.List(b) = Override.List(C) THEN Fail.Flags2(b) = 2
          end repeat
     end repeat
     put 0 into flag1 -- disable WHILE statement
end repeat