SIMSCRIPT II.5 Programming Language

SIMSCRIPT II.5 Programming Language
Program 1-1.
_______________________________________________________________________________
for COUNT = 1 to NUMBER.OF.SEATS
do
read PASSENGER.NO, FARE, and BAGGAGE.WEIGHT
let CHECK.SUM = ...
if CHECK.SUM CHECK.VALUE
go to 'CHECK.ERROR'
otherwise
if FARE = FIRST.CLASS.FARE
add 1 to CHAMPAGNE.COUNT
go to 'TOTALS'
otherwise
if FARE = EXECUTIVE.CLASS.FARE
.
.
go to 'TOTALS'
otherwise
if FARE = ECONOMY.CLASS.FARE
.
.
go to 'TOTALS'
otherwise
if FARE = STANDBY.FARE
.
.
go to 'TOTALS'
otherwise
'TOTALS'
add BAGGAGE.WEIGHT to TOTAL.WEIGHT
add 1 to MEALS.REQUIRED
loop
let LOAD.FACTOR = (COUNT-1)/NUMBER.OF.SEATS
.
.
'CHECK.ERROR'
print 1 line with PASSENGER.NO thus
ERROR IN TICKET NO. ******
_______________________________________________________________________________
The otherwise (or the synonym else) in this example could be replaced by always, endif
or regardless with exactly the same meaning. This structure has been retained to provide
compatibility with earlier versions of the SIMSCRIPT language. To clearly identify this anomaly
in control structure, it is suggested that the otherwise synonym for else be reserved for this
usage.
28