DECLARE SUB UmWandeln (DEZZ%)
' Name     : ROMPP.BAS (ROM++)
' Sprache  : QBASIC , PowerBASIC
' Funktion : R”mische Zahlen in Arabische umwandeln
' Autor    : Robert Seidel

DEFINT A-Z
'fr PowerBASIC SHARED nach der Variable !!!
DIM ROM(13) AS SHARED STRING
DIM ROMZ AS SHARED STRING
DIM DEZ(13) AS SHARED INTEGER

'Initialisierung der Zahlentabelle nach den
'Bildungsregeln
FOR I = 1 TO 13
  READ ROM(I), DEZ(I)
NEXT
DATA M , 1000 , CM , 900 , D , 500 , CD , 400
DATA C , 100 , XC , 90 , L , 50 , XL , 40
DATA X , 10 , IX , 9 , V , 5 , IV , 4 , I , 1

SCREEN 11
DO
  CLS
  PRINT "Umwandlung von Arabischen in R”mische Zahlen"
  PRINT "von Robert Seidel fr Spass am System"
  PRINT "ENDE mit 0 !"
  PRINT
  INPUT "Dezimalzahl   : ", DEZZ
  IF DEZZ = 0 THEN END

  'fr gr”įere Zahlen wird ein Strich
  'ber das Vielfache von 1000 gezogen
  IF DEZZ > 3999 THEN
    V1000 = INT(DEZZ / 1000)
    DEZZ = DEZZ - V1000 * 1000
    UmWandeln V1000
    LINE (127, 95)-(127 + LEN(ROMZ) * 8, 95)
  END IF

  UmWandeln DEZZ

  PRINT
  PRINT "R”mische Zahl : "; ROMZ
  PRINT
  ROMZ = ""

  WHILE INKEY$ = ""
  WEND
LOOP
END

DEFINT A-Z
SUB UmWandeln (DEZZ)
  FOR I = 1 TO 13
    FOR Z = 1 TO 3
      IF DEZZ < DEZ(I) THEN EXIT FOR
      ROMZ = ROMZ + ROM(I)
      DEZZ = DEZZ - DEZ(I)
    NEXT
  NEXT
END SUB