My code

//--------------------------------------------------------------------------------------------------

// Project: Roman by Damo

// Created: 2016-10-17

//--------------------------------------------------------------------------------------------------

// set window properties

SetWindowTitle( "Roman" )

SetWindowSize( 1024, 768, 0 )

// set display properties

SetVirtualResolution( 1024, 768 )

SetOrientationAllowed( 1, 1, 1, 1 )

SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery

// Min and Max = 1 to 4999

start=2000

startvalue=Start

do

repeat

print ("Calculating " + str(startvalue))

//Do a calculation

//Check for thousands

result=start/1000

if result>0

thousands=result

start=start-(result*1000)

for a=1 to result

romanvalue=romanvalue+"M"

next

endif

result=start/100

if result>0

hundreds = result

start=start-(result * 100)

if hundreds=1 then romanvalue=romanvalue+"C"

if hundreds=2 then romanvalue=romanvalue+"CC"

if hundreds=3 then romanvalue=romanvalue+"CCC"

if hundreds=4 then romanvalue=romanvalue+"CD"

if hundreds=5 then romanvalue=romanvalue+"D"

if hundreds=6 then romanvalue=romanvalue+"DC"

if hundreds=7 then romanvalue=romanvalue+"DCC"

if hundreds=8 then romanvalue=romanvalue+"DCCC"

if hundreds=9 then romanvalue=romanvalue+"CM"

endif

result=start/10

if result>0

tens=result

start=start-(result * 10)

if tens=1 then romanvalue=romanvalue+"X"

if tens=2 then romanvalue=romanvalue+"XX"

if tens=3 then romanvalue=romanvalue+"XXX"

if tens=4 then romanvalue=romanvalue+"XL"

if tens=5 then romanvalue=romanvalue+"L"

if tens=6 then romanvalue=romanvalue+"LX"

if tens=7 then romanvalue=romanvalue+"LXX"

if tens=8 then romanvalue=romanvalue+"LXXX"

if tens=9 then romanvalue=romanvalue+"XC"

endif

if start=1 then romanvalue=romanvalue+"I"

if start=2 then romanvalue=romanvalue+"II"

if start=3 then romanvalue=romanvalue+"III"

if start=4 then romanvalue=romanvalue+"IV"

if start=5 then romanvalue=romanvalue+"V"

if start=6 then romanvalue=romanvalue+"VI"

if start=7 then romanvalue=romanvalue+"VII"

if start=8 then romanvalue=romanvalue+"VIII"

if start=9 then romanvalue=romanvalue+"IX"

print ("Result = There are ")

print(str(thousands) + " Thousands")

print(str(hundreds) + " Hundreds")

print(str(tens) + " Tens")

print(str(start) + " Units in " + str(startvalue))

print(" Roman Value = " + romanvalue)

romanvalue=""

start=startvalue

print ("Press Space Mouse button for next random number")

sync()

until GetRawKeyPressed(32)=1

start=random(1,4999)

startvalue=Start

hundreds=0

thousands=0

tens=0

romanvalue=""

loop

//--------------------------------------------------------------------------------------------------

// End code

//--------------------------------------------------------------------------------------------------

Using Tier 1 AppGameKit V2

Started coding with AMOS