_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

ARABIC ROMAN 128

FILE INFORMATION

FILENAME(S): ARABIC ROMAN 128

FILE TYPE(S): PRG

FILE SIZE: 791b

FIRST SEEN: 2025-11-30 18:12:07

APPEARS ON: 1 disk(s)

FILE HASH

13a98586f2a04fee8f703bd145c1562431f3230598e8d67d076acac520128f81

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
LOADSTAR 55 S 2 ARABIC ROMAN 128 PRG Sailor, Ganheden 11 15 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 40 8E 40 01 00 54 B2  32 35 3A 99 22 93 05 12  |.@.@..T.25:."...|
00000010: 31 32 38 20 41 52 41 42  49 43 20 54 4F 20 52 4F  |128 ARABIC TO RO|
00000020: 4D 41 4E 20 43 4F 4E 56  45 52 53 49 4F 4E 20 2D  |MAN CONVERSION -|
00000030: 20 4F 27 4E 45 49 4C 4C  92 22 3A 86 41 24 28 54  | O'NEILL.":.A$(T|
00000040: 29 2C 41 28 54 29 3A 52  24 B2 22 91 A4 11 9D 22  |),A(T):R$."...."|
00000050: 3A 53 24 B2 22 91 A4 A4  11 9D 9D 22 3A 81 44 B2  |:S$."......":.D.|
00000060: 31 33 A4 54 3A 87 41 24  28 44 29 2C 41 28 44 29  |13.T:.A$(D),A(D)|
00000070: 3A 82 3A 81 44 B2 31 A4  31 32 3A 41 28 44 29 B2  |:.:.D.1.12:A(D).|
00000080: 41 28 44 AA 31 32 29 AC  31 30 30 30 3A 82 00 FC  |A(D.12).1000:...|
00000090: 40 02 00 81 44 B2 31 A4  31 31 A9 32 3A 4D 24 B2  |@...D.1.11.2:M$.|
000000A0: 4D 24 AA 22 11 11 11 11  22 3A 41 24 28 44 29 B2  |M$."....":A$(D).|
000000B0: 52 24 AA 41 24 28 44 AA  31 32 29 3A 41 24 28 44  |R$.A$(D.12):A$(D|
000000C0: AA 31 29 B2 53 24 AA 41  24 28 44 AA 31 33 29 3A  |.1).S$.A$(D.13):|
000000D0: 82 3A 43 24 B2 22 4D 22  AA 52 24 3A 4D 24 B2 C8  |.:C$."M".R$:M$..|
000000E0: 28 4D 24 2C 32 31 29 3A  50 24 B2 22 9D 20 22 3A  |(M$,21):P$.". ":|
000000F0: 41 24 28 31 30 29 B2 43  24 AA 22 58 00 48 41 03  |A$(10).C$."X.HA.|
00000100: 00 4E B2 33 39 39 39 39  39 39 3A 99 22 13 11 11  |.N.3999999:."...|
00000110: 49 4E 54 45 47 45 52 20  46 52 4F 4D 20 31 20 54  |INTEGER FROM 1 T|
00000120: 4F 22 4E 22 4F 52 20 30  20 54 4F 20 45 4E 44 3F  |O"N"OR 0 TO END?|
00000130: 22 3A 41 24 28 31 32 29  B2 43 24 AA 22 56 22 3A  |":A$(12).C$."V":|
00000140: 52 24 B2 C7 28 31 33 29  00 97 41 04 00 83 20 4D  |R$..(13)..A... M|
00000150: 2C 31 30 30 30 2C 43 4D  2C 39 30 30 2C 44 2C 35  |,1000,CM,900,D,5|
00000160: 30 30 2C 43 44 2C 34 30  30 2C 43 2C 31 30 30 2C  |00,CD,400,C,100,|
00000170: 58 43 2C 39 30 2C 4C 2C  35 30 2C 58 4C 2C 34 30  |XC,90,L,50,XL,40|
00000180: 2C 58 2C 31 30 2C 49 58  2C 39 2C 56 2C 35 2C 49  |,X,10,IX,9,V,5,I|
00000190: 56 2C 34 2C 49 2C 31 00  0D 42 05 00 4B 24 B2 22  |V,4,I,1..B..K$."|
000001A0: 22 3A 4A 24 B2 22 22 3A  FE 1A 30 2C 33 2C 33 38  |":J$."":..0,3,38|
000001B0: 2C 33 2C 31 3A EB 3A 4B  24 B2 4B 24 AA 4A 24 3A  |,3,1:.:K$.K$.J$:|
000001C0: 4C B2 C3 28 4B 24 29 3A  99 22 13 22 4B 24 22 A4  |L..(K$):."."K$".|
000001D0: 22 3B 3A A1 F9 4A 24 3A  8B 4C B1 30 AF 4A 24 B2  |";:..J$:.L.0.J$.|
000001E0: C7 28 32 30 29 A7 4B 24  B2 C8 28 4B 24 2C 4C AB  |.(20).K$..(K$,L.|
000001F0: 31 29 3A 99 22 9D 20 13  22 4B 24 22 A4 22 3B 3A  |1):.". ."K$".";:|
00000200: D5 8B 4C B1 30 AF 4A 24  B2 52 24 A7 ED 00 30 42  |..L.0.J$.R$...0B|
00000210: 06 00 51 24 B2 22 13 13  11 22 3A 8B C5 28 4A 24  |..Q$."...":..(J$|
00000220: 29 B2 30 AF 4A 24 B3 B1  22 30 22 A7 4A 24 B2 22  |).0.J$.."0".J$."|
00000230: 00 65 42 07 00 EC FD 4C  B3 54 3A 99 50 24 3A 4B  |.eB....L.T:.P$:K|
00000240: B2 C5 28 4B 24 29 3A 8B  4B B1 4E B0 4A 24 B3 B1  |..(K$):.K.N.J$..|
00000250: 52 24 A7 35 3A D5 8B 4B  B2 30 A7 99 51 24 22 11  |R$.5:..K.0..Q$".|
00000260: 22 3A 89 31 30 00 A1 42  08 00 4B 24 B2 C4 28 4B  |":.10..B..K$..(K|
00000270: 29 3A 81 44 B2 C3 28 4B  24 29 A4 38 3A 4B 24 B2  |):.D..(K$).8:K$.|
00000280: 22 20 22 AA 4B 24 3A 82  3A FE 1A 30 2C 35 2C 33  |" ".K$:.:..0,5,3|
00000290: 39 2C 32 34 3A 99 4D 24  3B 4B 24 22 20 3D 20 22  |9,24:.M$;K$" = "|
000002A0: 3B 00 D8 42 09 00 51 B2  30 3A EB 3A 51 B2 51 AA  |;..B..Q.0:.:Q.Q.|
000002B0: 31 3A EC FC 4B AB 41 28  51 29 B1 B2 30 3A 4B B2  |1:..K.A(Q)..0:K.|
000002C0: 4B AB 41 28 51 29 3A 99  41 24 28 51 29 3B 3A 8B  |K.A(Q):.A$(Q);:.|
000002D0: 4B B2 30 A7 35 3A D5 39  00 F5 42 0A 00 F5 22 31  |K.0.5:.9..B..."1|
000002E0: 32 38 20 4D 45 4E 55 22  20 A4 20 22 31 32 38 20  |28 MENU" . "128 |
000002F0: 4D 45 4E 55 22 00 04 43  0B 00 8B 44 53 B3 B1 36  |MENU"..C...DS..6|
00000300: 33 A7 20 80 00 14 43 0C  00 F0 22 31 32 38 20 4D  |3. ...C..."128 M|
00000310: 45 4E 55 22 00 00 00                              |ENU"...         |

.@.@..T.25:."...128 ARABIC TO ROMAN CONV
ERSION - O'NEILL.":.A$(T),A(T):R$."...."
:S$."......":.D.13.T:.A$(D),A(D):.:.D.1.
12:A(D).A(D.12).1000:...@...D.1.11.2:M$.
M$."....":A$(D).R$.A$(D.12):A$(D.1).S$.A
$(D.13):.:C$."M".R$:M$.H(M$,21):P$.". ":
A$(10).C$."X.HA..N.3999999:."...INTEGER 
FROM 1 TO"N"OR 0 TO END?":A$(12).C$."V":
R$.G(13)..A... M,1000,CM,900,D,500,CD,40
0,C,100,XC,90,L,50,XL,40,X,10,IX,9,V,5,I
V,4,I,1..B..K$."":J$."":..0,3,38,3,1:.:K
$.K$.J$:L.C(K$):."."K$".";:..J$:.L.0.J$.
G(20).K$.H(K$,L.1):.". ."K$".";:U.L.0.J$
.R$...0B..Q$."...":.E(J$).0.J$.."0".J$."
.EB....L.T:.P$:K.E(K$):.K.N.J$..R$.5:U.K
.0..Q$".":.10..B..K$.D(K):.D.C(K$).8:K$.
" ".K$:.:..0,5,39,24:.M$;K$" = ";.XB..Q.
0:.:Q.Q.1:..K.A(Q)..0:K.K.A(Q):.A$(Q);:.
K.0.5:U9..B..."128 MENU" . "128 MENU"..C
...DS..63. ...C..."128 MENU"...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL