ORDENA DISK
FILE INFORMATION
FILENAME(S): ORDENA DISK
FILE TYPE(S): PRG
FILE SIZE: 4.7K
FIRST SEEN: 2025-10-19 23:07:13
APPEARS ON: 1 disk(s)
FILE HASH
84be32ecd50e53f0449434ee536a97f6c8096302bb067534065536444bd35e96
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COPY CARA 05 B | ORDENA DISK | PRG | Bugjam - Argentina | 23 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 16 08 0A 00 86 4E 24 28 39 30 30 29 2C 58 |.......N$(900),X|
00000010: 24 28 39 30 30 29 00 48 08 14 00 97 35 33 32 38 |$(900).H....5328|
00000020: 30 2C 30 3A 97 35 33 32 38 31 2C 30 3A 97 35 33 |0,0:.53281,0:.53|
00000030: 32 37 32 2C 32 31 3A 99 22 93 05 22 3B 3A 8D 31 |272,21:."..";:.1|
00000040: 39 33 30 3A 99 22 93 22 00 79 08 1E 00 99 22 1E |930:.".".y....".|
00000050: 53 55 20 4E 4F 4D 42 52 45 20 50 4F 52 20 46 41 |SU NOMBRE POR FA|
00000060: 56 4F 52 20 28 31 38 20 43 41 52 41 43 54 45 52 |VOR (18 CARACTER|
00000070: 45 53 20 4D 41 58 2E 29 22 00 A0 08 28 00 85 20 |ES MAX.)"...(.. |
00000080: 4E 41 24 3A 42 53 24 B2 C7 28 38 29 3A 53 4F 24 |NA$:BS$..(8):SO$|
00000090: B2 C7 28 31 34 29 3A 53 49 24 B2 C7 28 31 35 29 |..(14):SI$..(15)|
000000A0: 00 B8 08 32 00 4E 4C 24 B2 C7 28 31 30 29 3A 43 |...2.NL$..(10):C|
000000B0: 52 24 B2 C7 28 31 33 29 00 C2 08 3C 00 8D 31 31 |R$..(13)...<..11|
000000C0: 33 30 00 E6 08 46 00 50 4F 24 B2 C7 28 31 36 29 |30...F.PO$..(16)|
000000D0: 3A 45 53 43 24 B2 C7 28 32 37 29 3A 53 55 42 24 |:ESC$..(27):SUB$|
000000E0: B2 C7 28 32 36 29 00 FF 08 50 00 43 44 24 B2 C7 |..(26)...P.CD$..|
000000F0: 28 31 37 29 3A 43 55 24 B2 C7 28 31 34 35 29 00 |(17):CU$..(145).|
00000100: 1A 09 5A 00 52 56 53 24 B2 C7 28 31 38 29 3A 4F |..Z.RVS$..(18):O|
00000110: 46 46 24 B2 C7 28 31 34 36 29 00 2B 09 64 00 9F |FF$..(146).+.d..|
00000120: 31 35 2C 38 2C 31 35 2C 22 49 22 00 40 09 6E 00 |15,8,15,"I".@.n.|
00000130: 9F 31 2C 38 2C 32 2C 22 24 22 3A 8D 31 34 31 30 |.1,8,2,"$":.1410|
00000140: 00 6C 09 78 00 8B 20 45 4E B2 32 31 AF 45 4D 24 |.l.x.. EN.21.EM$|
00000150: B2 22 52 45 41 44 20 45 52 52 4F 52 22 AF 45 54 |."READ ERROR".ET|
00000160: B2 31 38 AF 45 53 B2 30 A7 32 30 30 00 A4 09 82 |.18.ES.0.200....|
00000170: 00 99 3A 99 22 54 4F 44 4F 53 20 4C 4F 53 20 50 |..:."TODOS LOS P|
00000180: 52 4F 47 52 41 4D 41 53 20 44 45 4C 20 44 49 53 |ROGRAMAS DEL DIS|
00000190: 43 4F 20 4F 20 41 4C 47 55 4E 4F 53 3F 20 28 54 |CO O ALGUNOS? (T|
000001A0: 2F 41 29 22 00 B7 09 8C 00 A1 51 24 3A 8B 51 24 |/A)"......Q$:.Q$|
000001B0: B2 22 22 A7 31 34 30 00 CF 09 96 00 8B 20 51 24 |."".140...... Q$|
000001C0: B2 22 54 22 A7 20 4C 4D B2 31 3A 89 32 30 30 00 |."T". LM.1:.200.|
000001D0: E7 09 A0 00 8B 20 51 24 B2 22 41 22 A7 20 4C 4D |..... Q$."A". LM|
000001E0: B2 30 3A 89 32 30 30 00 07 0A C8 00 99 3A 99 22 |.0:.200......:."|
000001F0: 55 4E 20 4D 4F 4D 45 4E 54 4F 20 50 4F 52 20 46 |UN MOMENTO POR F|
00000200: 41 56 4F 52 22 3A 99 00 23 0A D2 00 57 B2 57 AA |AVOR":..#...W.W.|
00000210: 31 3A 81 58 B2 31 A4 31 34 31 3A A1 23 31 2C 41 |1:.X.1.141:.#1,A|
00000220: 24 3A 82 00 31 0A DC 00 4A B2 31 37 3A 8D 35 36 |$:..1...J.17:.56|
00000230: 30 00 3B 0A E6 00 58 24 B2 42 24 00 43 0A F0 00 |0.;...X$.B$.C...|
00000240: 4A B2 32 00 4C 0A FA 00 8D 35 36 30 00 56 0A 04 |J.2.L....560.V..|
00000250: 01 49 24 B2 42 24 00 61 0A 0E 01 A1 23 31 2C 41 |.I$.B$.a....#1,A|
00000260: 24 00 69 0A 18 01 4A B2 32 00 72 0A 22 01 8D 35 |$.i...J.2.r."..5|
00000270: 36 30 00 7C 0A 2C 01 4F 24 B2 42 24 00 88 0A 36 |60.|.,.O$.B$...6|
00000280: 01 81 4C B2 31 A4 38 38 00 93 0A 40 01 A1 23 31 |..L.1.88...@..#1|
00000290: 2C 41 24 00 99 0A 4A 01 82 00 A4 0A 54 01 81 50 |,A$...J.....T..P|
000002A0: B2 31 A4 38 00 B5 0A 5E 01 A1 23 31 2C 54 24 2C |.1.8...^..#1,T$,|
000002B0: 41 24 2C 41 24 00 CA 0A 68 01 8B 54 24 B2 22 22 |A$,A$...h..T$.""|
000002C0: A7 54 24 B2 C7 28 31 32 38 29 00 D3 0A 72 01 4A |.T$..(128)...r.J|
000002D0: B2 31 35 00 DC 0A 7C 01 8D 35 36 30 00 E6 0A 86 |.15...|..560....|
000002E0: 01 4E 24 B2 42 24 00 0F 0B 90 01 A1 23 31 2C 41 |.N$.B$......#1,A|
000002F0: 24 2C 41 24 2C 41 24 2C 41 24 2C 41 24 2C 41 24 |$,A$,A$,A$,A$,A$|
00000300: 2C 41 24 2C 41 24 2C 41 24 2C 4C 24 2C 48 24 00 |,A$,A$,A$,L$,H$.|
00000310: 38 0B 9A 01 4C B2 C6 28 4C 24 AA C7 28 30 29 29 |8...L..(L$..(0))|
00000320: AA 32 35 36 AC C6 28 48 24 AA C7 28 30 29 29 3A |.256..(H$..(0)):|
00000330: 8B 4C B2 30 A7 35 35 30 00 48 0B A4 01 8B 53 54 |.L.0.550.H....ST|
00000340: A7 A0 31 3A 89 36 33 30 00 5D 0B AE 01 8B 20 C6 |..1:.630.].... .|
00000350: 28 54 24 29 B2 31 32 38 20 A7 35 34 30 00 72 0B |(T$).128 .540.r.|
00000360: B8 01 8B 20 C6 28 54 24 29 B2 31 32 39 20 A7 35 |... .(T$).129 .5|
00000370: 34 30 00 87 0B C2 01 8B 20 C6 28 54 24 29 B2 31 |40...... .(T$).1|
00000380: 33 31 20 A7 35 34 30 00 9C 0B CC 01 8B 20 C6 28 |31 .540...... .(|
00000390: 54 24 29 B2 31 33 32 20 A7 35 34 30 00 B8 0B D6 |T$).132 .540....|
000003A0: 01 59 B2 59 AA 31 3A 4E 24 28 59 29 B2 4E 24 3A |.Y.Y.1:N$(Y).N$:|
000003B0: 58 24 28 59 29 B2 58 24 00 D3 0B E0 01 99 22 9E |X$(Y).X$......".|
000003C0: 22 59 A3 35 29 4E 24 28 59 29 A3 32 34 29 58 24 |"Y.5)N$(Y).24)X$|
000003D0: 28 59 29 00 E3 0B EA 01 8B 20 4C 4D B2 31 20 A7 |(Y)...... LM.1 .|
000003E0: 35 34 30 00 EF 0B F4 01 99 22 20 53 2F 4E 22 00 |540......" S/N".|
000003F0: 02 0C FE 01 A1 55 24 3A 8B 55 24 B2 22 22 A7 35 |.....U$:.U$."".5|
00000400: 31 30 00 14 0C 08 02 8B 55 24 B2 22 4E 22 A7 59 |10......U$."N".Y|
00000410: B2 59 AB 31 00 34 0C 12 02 99 3A 99 22 55 4E 20 |.Y.1.4....:."UN |
00000420: 4D 4F 4D 45 4E 54 4F 20 50 4F 52 20 46 41 56 4F |MOMENTO POR FAVO|
00000430: 52 22 3A 99 00 47 0C 1C 02 8B 50 B3 38 A7 A1 23 |R":..G....P.8..#|
00000440: 31 2C 41 24 2C 41 24 00 53 0C 26 02 82 50 3A 89 |1,A$,A$.S.&..P:.|
00000450: 33 34 30 00 5D 0C 30 02 42 24 B2 22 22 00 68 0C |340.].0.B$."".h.|
00000460: 3A 02 81 4C B2 30 A4 4A 00 73 0C 44 02 A1 23 31 |:..L.0.J.s.D..#1|
00000470: 2C 41 24 00 97 0C 4E 02 8B 41 24 B3 B1 C7 28 39 |,A$...N..A$...(9|
00000480: 36 29 A7 8B 41 24 B3 B1 C7 28 31 36 30 29 A7 42 |6)..A$...(160).B|
00000490: 24 B2 42 24 AA 41 24 00 9D 0C 58 02 82 00 A3 0C |$.B$.A$...X.....|
000004A0: 62 02 8E 00 A9 0C 6C 02 8F 00 CD 0C 76 02 99 22 |b.....l.....v.."|
000004B0: 11 49 4E 47 52 45 53 45 20 45 4C 20 53 49 47 55 |.INGRESE EL SIGU|
000004C0: 49 45 4E 54 45 20 44 49 53 43 4F 2C 22 00 F2 0C |IENTE DISCO,"...|
000004D0: 80 02 99 22 11 28 53 49 20 46 55 45 20 45 4C 20 |...".(SI FUE EL |
000004E0: 55 4C 54 49 4D 4F 20 49 4E 47 52 45 53 45 20 31 |ULTIMO INGRESE 1|
000004F0: 29 22 00 05 0D 8A 02 85 20 4B 20 3A 8B 20 4B B2 |)"...... K :. K.|
00000500: 31 A7 36 37 30 00 12 0D 94 02 A0 31 35 3A 89 31 |1.670......15:.1|
00000510: 30 30 00 3B 0D 9E 02 99 22 44 45 53 45 41 20 41 |00.;...."DESEA A|
00000520: 47 52 41 47 41 52 20 4E 4F 4D 42 52 45 53 20 45 |GRAGAR NOMBRES E|
00000530: 58 54 52 41 3F 28 53 2F 4E 29 22 00 4F 0D A8 02 |XTRA?(S/N)".O...|
00000540: A1 20 52 24 3A 8B 52 24 B2 22 22 A7 36 38 30 00 |. R$:.R$."".680.|
00000550: 60 0D B2 02 8B 20 52 24 B2 22 53 22 A7 37 32 30 |`.... R$."S".720|
00000560: 00 71 0D BC 02 8B 20 52 24 B2 22 4E 22 A7 38 30 |.q.... R$."N".80|
00000570: 30 00 7A 0D C6 02 89 36 37 30 00 B2 0D D0 02 85 |0.z....670......|
00000580: 20 22 4E 4F 4D 42 52 45 20 44 45 4C 20 50 52 4F | "NOMBRE DEL PRO|
00000590: 47 52 41 4D 41 3A 22 3B 4E 24 3A 85 20 22 4E 4F |GRAMA:";N$:. "NO|
000005A0: 4D 42 52 45 20 44 45 4C 20 44 49 53 43 4F 22 3B |MBRE DEL DISCO";|
000005B0: 58 24 00 CE 0D DA 02 59 B2 59 AA 31 3A 4E 24 28 |X$.....Y.Y.1:N$(|
000005C0: 59 29 B2 4E 24 3A 58 24 28 59 29 B2 58 24 00 E9 |Y).N$:X$(Y).X$..|
000005D0: 0D E4 02 99 22 9E 22 59 A3 35 29 4E 24 28 59 29 |...."."Y.5)N$(Y)|
000005E0: A3 32 34 29 58 24 28 59 29 00 02 0E EE 02 99 22 |.24)X$(Y)......"|
000005F0: 4F 54 52 4F 20 4E 4F 4D 42 52 45 3F 28 53 2F 4E |OTRO NOMBRE?(S/N|
00000600: 29 22 00 16 0E F8 02 A1 20 52 24 3A 8B 52 24 B2 |)"...... R$:.R$.|
00000610: 22 22 A7 37 36 30 00 27 0E 02 03 8B 20 52 24 B2 |"".760.'.... R$.|
00000620: 22 53 22 A7 37 32 30 00 38 0E 0C 03 8B 20 52 24 |"S".720.8.... R$|
00000630: B2 22 4E 22 A7 38 30 30 00 41 0E 16 03 89 37 35 |."N".800.A....75|
00000640: 30 00 64 0E 20 03 50 46 B2 28 31 2E 30 33 39 AB |0.d. .PF.(1.039.|
00000650: 2E 30 31 33 AC 59 AA 2E 30 30 35 33 AC 59 AE 32 |.013.Y..0053.Y.2|
00000660: 29 AD 36 30 00 87 0E 2A 03 50 46 B2 B5 28 50 46 |).60...*.PF..(PF|
00000670: 29 AA B5 28 28 50 46 AB B5 28 50 46 29 29 AC 31 |)..((PF..(PF)).1|
00000680: 30 30 29 AD 31 30 30 00 B1 0E 34 03 99 22 05 93 |00).100...4.."..|
00000690: 20 50 4F 52 20 46 41 56 4F 52 20 41 47 55 41 52 | POR FAVOR AGUAR|
000006A0: 44 45 20 22 3B 50 46 3B 22 4D 49 4E 55 54 4F 53 |DE ";PF;"MINUTOS|
000006B0: 22 00 BB 0E 3E 03 4D B2 59 AB 31 00 C6 0E 48 03 |"...>.M.Y.1...H.|
000006C0: 81 49 B2 31 A4 4D 00 DE 0E 52 03 8B 4E 24 28 49 |.I.1.M...R..N$(I|
000006D0: 29 B1 4E 24 28 49 AA 31 29 A7 31 30 39 30 00 E5 |).N$(I.1).1090..|
000006E0: 0E 5C 03 82 49 00 EF 0E 66 03 4D B2 4D AB 31 00 |.\..I...f.M.M.1.|
000006F0: FD 0E 70 03 8B 4D B1 B2 32 A7 38 34 30 00 07 0F |..p..M..2.840...|
00000700: 7A 03 89 31 35 32 30 00 3E 0F 84 03 9F 20 32 2C |z..1520.>.... 2,|
00000710: 34 3A 98 32 2C 53 4F 24 3B 22 4C 49 53 54 41 20 |4:.2,SO$;"LISTA |
00000720: 44 45 20 50 52 4F 47 52 41 4D 41 53 20 44 45 20 |DE PROGRAMAS DE |
00000730: 22 3B 4E 41 24 3A 98 32 2C C7 28 31 35 29 00 4A |";NA$:.2,.(15).J|
00000740: 0F 8E 03 98 32 2C 22 20 20 22 00 52 0F 98 03 4E |....2," ".R...N|
00000750: B2 59 00 61 0F A2 03 81 49 B2 31 A4 4E 20 A9 20 |.Y.a....I.1.N . |
00000760: 32 00 76 0F AC 03 4D 49 24 B2 CA 28 58 24 28 49 |2.v...MI$..(X$(I|
00000770: 29 2C 31 2C 37 29 00 97 0F B6 03 58 24 28 49 29 |),1,7).....X$(I)|
00000780: B2 22 44 49 53 43 4F 20 22 AA CA 28 58 24 28 49 |."DISCO "..(X$(I|
00000790: 29 2C 38 2C 31 30 29 00 CA 0F C0 03 98 32 2C 49 |),8,10)......2,I|
000007A0: 3B 22 29 22 3B A6 31 29 3B 4E 24 28 49 29 3B A6 |;")";.1);N$(I);.|
000007B0: 32 31 AB C3 28 C4 28 49 29 29 AB C3 28 4E 24 28 |21..(.(I))..(N$(|
000007C0: 49 29 29 29 58 24 28 49 29 3B 00 E1 0F CA 03 4D |I)))X$(I);.....M|
000007D0: 49 24 B2 CA 28 58 24 28 49 AA 31 29 2C 31 2C 37 |I$..(X$(I.1),1,7|
000007E0: 29 00 06 10 D4 03 58 24 28 49 AA 31 29 B2 22 44 |).....X$(I.1)."D|
000007F0: 49 53 43 4F 20 22 AA CA 28 58 24 28 49 AA 31 29 |ISCO "..(X$(I.1)|
00000800: 2C 38 2C 31 30 29 00 24 10 DE 03 98 32 2C A6 32 |,8,10).$....2,.2|
00000810: 30 AB C3 28 C4 28 49 29 29 AB C3 28 58 24 28 49 |0..(.(I))..(X$(I|
00000820: 29 29 29 3B 00 60 10 E8 03 98 32 2C 49 AA 31 3B |)));.`....2,I.1;|
00000830: 22 29 22 3B A6 31 29 3B 4E 24 28 49 AA 31 29 3B |")";.1);N$(I.1);|
00000840: A6 32 31 AB C3 28 C4 28 49 AA 31 29 29 AB C3 28 |.21..(.(I.1))..(|
00000850: 4E 24 28 49 AA 31 29 29 29 58 24 28 49 AA 31 29 |N$(I.1)))X$(I.1)|
00000860: 00 6A 10 F2 03 56 B2 56 AA 31 00 7B 10 FC 03 8B |.j...V.V.1.{....|
00000870: 20 56 B3 36 30 20 A7 31 30 34 30 00 98 10 06 04 | V.60 .1040.....|
00000880: A1 20 57 45 24 3A 8B 57 45 24 B2 22 22 A7 20 56 |. WE$:.WE$."". V|
00000890: B2 30 3A 89 31 30 33 30 00 9F 10 10 04 82 49 00 |.0:.1030......I.|
000008A0: A5 10 1A 04 99 00 AD 10 24 04 A0 20 32 00 B8 10 |........$.. 2...|
000008B0: 2E 04 89 20 31 35 32 30 00 C8 10 38 04 99 22 93 |... 1520...8..".|
000008C0: 41 44 49 4F 53 22 3A 80 00 DE 10 42 04 54 24 B2 |ADIOS":....B.T$.|
000008D0: 4E 24 28 49 29 3A 55 24 B2 58 24 28 49 29 00 FE |N$(I):U$.X$(I)..|
000008E0: 10 4C 04 4E 24 28 49 29 B2 4E 24 28 49 AA 31 29 |.L.N$(I).N$(I.1)|
000008F0: 3A 58 24 28 49 29 B2 58 24 28 49 AA 31 29 00 18 |:X$(I).X$(I.1)..|
00000900: 11 56 04 4E 24 28 49 AA 31 29 B2 54 24 3A 58 24 |.V.N$(I.1).T$:X$|
00000910: 28 49 AA 31 29 B2 55 24 00 21 11 60 04 89 38 36 |(I.1).U$.!.`..86|
00000920: 30 00 2B 11 6A 04 99 22 93 9E 22 00 47 11 74 04 |0.+.j.."..".G.t.|
00000930: 99 22 45 58 49 53 54 45 20 41 52 43 48 49 56 4F |."EXISTE ARCHIVO|
00000940: 3F 28 53 2F 4E 29 22 00 5B 11 7E 04 A1 41 24 3A |?(S/N)".[.~..A$:|
00000950: 8B 41 24 B2 22 22 A7 31 31 35 30 00 70 11 88 04 |.A$."".1150.p...|
00000960: 8B 20 41 24 B2 22 4E 22 A7 20 99 22 93 22 3A 8E |. A$."N". .".":.|
00000970: 00 82 11 92 04 8B 20 41 24 B2 22 53 22 A7 31 31 |...... A$."S".11|
00000980: 39 30 00 8C 11 9C 04 89 31 31 35 30 00 95 11 A6 |90......1150....|
00000990: 04 99 22 93 22 00 A7 11 B0 04 9F 31 35 2C 38 2C |.."."......15,8,|
000009A0: 31 35 2C 22 49 30 22 00 C4 11 BA 04 85 20 22 4E |15,"I0"...... "N|
000009B0: 4F 4D 42 52 45 20 44 45 20 41 52 43 48 49 56 4F |OMBRE DE ARCHIVO|
000009C0: 22 3B 46 24 00 CD 11 C4 04 99 22 1E 22 00 E8 11 |";F$......"."...|
000009D0: CE 04 9F 20 32 2C 38 2C 32 2C 22 30 3A 22 AA 46 |... 2,8,2,"0:".F|
000009E0: 24 AA 22 2C 53 2C 52 22 00 F2 11 D8 04 8D 31 34 |$.",S,R"......14|
000009F0: 31 30 00 1E 12 E2 04 8B 20 45 4E B2 32 31 AF 45 |10...... EN.21.E|
00000A00: 4D 24 B2 22 52 45 41 44 20 45 52 52 4F 52 22 AF |M$."READ ERROR".|
00000A10: 45 54 B2 31 38 AF 45 53 B2 30 A7 38 39 30 00 27 |ET.18.ES.0.890.'|
00000A20: 12 EC 04 84 32 2C 59 00 30 12 F6 04 99 22 93 22 |....2,Y.0...."."|
00000A30: 00 5E 12 00 05 99 22 4C 45 59 45 4E 44 4F 20 44 |.^...."LEYENDO D|
00000A40: 45 4C 20 44 49 53 43 4F 20 55 4E 20 4D 4F 4D 45 |EL DISCO UN MOME|
00000A50: 4E 54 4F 20 50 4F 52 20 46 41 56 4F 52 22 00 6C |NTO POR FAVOR".l|
00000A60: 12 0A 05 81 20 49 B2 31 20 A4 20 59 00 7F 12 14 |.... I.1 . Y....|
00000A70: 05 84 32 2C 4E 24 28 49 29 2C 58 24 28 49 29 00 |..2,N$(I),X$(I).|
00000A80: 89 12 1E 05 8D 31 34 31 30 00 91 12 28 05 82 20 |.....1410...(.. |
00000A90: 49 00 9D 12 32 05 A0 20 32 3A A0 31 35 00 BA 12 |I...2.. 2:.15...|
00000AA0: 3C 05 99 22 93 53 4F 4E 20 22 3B 59 3B 22 50 52 |<..".SON ";Y;"PR|
00000AB0: 4F 47 52 41 4D 41 53 22 3A 99 00 DC 12 46 05 99 |OGRAMAS":....F..|
00000AC0: 22 41 47 52 45 47 41 20 4D 41 53 20 50 52 4F 47 |"AGREGA MAS PROG|
00000AD0: 52 41 4D 41 53 3F 28 53 2F 4E 29 22 00 E4 12 50 |RAMAS?(S/N)"...P|
00000AE0: 05 A1 41 24 00 F3 12 5A 05 8B 20 41 24 B2 22 53 |..A$...Z.. A$."S|
00000AF0: 22 A7 8E 00 14 13 64 05 8B 20 41 24 B2 22 4E 22 |".....d.. A$."N"|
00000B00: A7 20 9F 31 35 2C 38 2C 31 35 2C 22 49 30 22 3A |. .15,8,15,"I0":|
00000B10: 89 38 39 30 00 1E 13 6E 05 89 31 33 36 30 00 24 |.890...n..1360.$|
00000B20: 13 78 05 8E 00 39 13 82 05 84 31 35 2C 45 4E 2C |.x...9....15,EN,|
00000B30: 45 4D 24 2C 45 54 2C 45 53 00 46 13 8C 05 8B 45 |EM$,ET,ES.F....E|
00000B40: 4E B2 30 A7 20 8E 00 63 13 96 05 99 22 45 52 52 |N.0. ..c...."ERR|
00000B50: 4F 52 20 45 4E 20 44 49 53 43 4F 20 43 4F 44 49 |OR EN DISCO CODI|
00000B60: 47 4F 22 00 75 13 A0 05 99 45 4E 3B 45 4D 24 3B |GO".u....EN;EM$;|
00000B70: 45 54 3B 45 53 00 7C 13 AA 05 A0 32 00 A9 13 B4 |ET;ES.|....2....|
00000B80: 05 8B 20 45 4E B2 32 31 AF 45 4D 24 B2 22 52 45 |.. EN.21.EM$."RE|
00000B90: 41 44 20 45 52 52 4F 52 22 AF 45 54 B2 31 38 AF |AD ERROR".ET.18.|
00000BA0: 45 53 B2 30 A7 31 35 31 30 00 C7 13 BE 05 99 22 |ES.0.1510......"|
00000BB0: 4F 50 52 49 4D 41 20 43 55 41 4C 51 55 49 45 52 |OPRIMA CUALQUIER|
00000BC0: 20 54 45 43 4C 41 22 00 DB 13 C8 05 A1 41 24 3A | TECLA"......A$:|
00000BD0: 8B 41 24 B2 22 22 A7 31 34 38 30 00 E8 13 D2 05 |.A$."".1480.....|
00000BE0: 8B 45 4E B3 B1 30 A7 8A 00 EE 13 DC 05 8E 00 06 |.EN..0..........|
00000BF0: 14 E6 05 99 22 44 49 53 43 4F 20 49 4E 56 41 4C |...."DISCO INVAL|
00000C00: 49 44 4F 22 3A 8E 00 21 14 F0 05 99 22 93 31 29 |IDO":..!....".1)|
00000C10: 47 52 41 42 4F 20 45 4E 20 44 49 53 43 4F 22 3A |GRABO EN DISCO":|
00000C20: 99 00 48 14 FA 05 99 22 32 29 49 4D 50 52 49 4D |..H...."2)IMPRIM|
00000C30: 4F 20 28 43 4F 4E 45 43 54 45 20 49 4D 50 52 45 |O (CONECTE IMPRE|
00000C40: 53 4F 52 41 29 22 3A 99 00 68 14 04 06 99 22 33 |SORA)":..h...."3|
00000C50: 29 4D 55 45 53 54 52 4F 20 50 4F 52 20 50 41 4E |)MUESTRO POR PAN|
00000C60: 54 41 4C 4C 41 22 3A 99 00 84 14 0E 06 99 22 34 |TALLA":......."4|
00000C70: 29 4C 45 4F 20 4F 54 52 4F 20 41 52 43 48 49 56 |)LEO OTRO ARCHIV|
00000C80: 4F 22 3A 99 00 A3 14 18 06 99 22 35 29 43 4F 4D |O":......."5)COM|
00000C90: 49 45 4E 5A 4F 20 4E 55 45 56 41 4D 45 4E 54 45 |IENZO NUEVAMENTE|
00000CA0: 22 3A 99 00 BE 14 22 06 99 22 36 29 51 55 49 54 |":....".."6)QUIT|
00000CB0: 4F 20 55 4E 20 4E 4F 4D 42 52 45 22 3A 99 00 D9 |O UN NOMBRE":...|
00000CC0: 14 2C 06 99 22 37 29 52 45 4E 4F 4D 42 52 41 52 |.,.."7)RENOMBRAR|
00000CD0: 20 46 49 4C 41 53 22 3A 99 00 F5 14 36 06 99 22 | FILAS":....6.."|
00000CE0: 38 29 41 47 52 45 47 4F 20 55 4E 20 4E 4F 4D 42 |8)AGREGO UN NOMB|
00000CF0: 52 45 22 3A 99 00 0B 15 40 06 99 22 39 29 44 49 |RE":....@.."9)DI|
00000D00: 52 45 43 54 4F 52 49 4F 22 3A 99 00 1E 15 4A 06 |RECTORIO":....J.|
00000D10: 99 22 30 29 50 41 4E 45 4C 20 32 22 3A 99 00 32 |."0)PANEL 2":..2|
00000D20: 15 54 06 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 36 |.T..A$:.A$."".16|
00000D30: 32 30 00 44 15 5E 06 8B 20 41 24 B2 22 31 22 A7 |20.D.^.. A$."1".|
00000D40: 31 37 39 30 00 55 15 68 06 8B 20 41 24 B2 22 32 |1790.U.h.. A$."2|
00000D50: 22 A7 39 30 30 00 67 15 72 06 8B 20 41 24 B2 22 |".900.g.r.. A$."|
00000D60: 33 22 A7 31 37 33 30 00 7F 15 7C 06 8B 20 41 24 |3".1730...|.. A$|
00000D70: B2 22 34 22 A7 20 A0 31 35 3A 89 31 31 39 30 00 |."4". .15:.1190.|
00000D80: 93 15 86 06 8B 20 41 24 B2 22 35 22 A7 20 A0 31 |..... A$."5". .1|
00000D90: 35 3A 8A 00 A8 15 90 06 8B 20 41 24 B2 22 36 22 |5:....... A$."6"|
00000DA0: A7 20 8D 20 32 30 39 30 00 BB 15 9A 06 8B 20 41 |. . 2090...... A|
00000DB0: 24 B2 22 37 22 A7 20 32 31 37 30 00 CD 15 AE 06 |$."7". 2170.....|
00000DC0: 8B 20 41 24 B2 22 38 22 A7 32 31 36 30 00 D7 15 |. A$."8".2160...|
00000DD0: B8 06 89 31 35 32 30 00 E4 15 C2 06 81 49 B2 31 |...1520......I.1|
00000DE0: 20 A4 20 59 00 02 16 CC 06 99 22 9E 22 49 A3 35 | . Y......"."I.5|
00000DF0: 29 4E 24 28 49 29 A3 32 34 29 22 9E 22 58 24 28 |)N$(I).24)"."X$(|
00000E00: 49 29 00 0A 16 D6 06 82 20 49 00 23 16 E0 06 99 |I)...... I.#....|
00000E10: 22 4F 50 52 49 4D 41 20 55 4E 41 20 54 45 43 4C |"OPRIMA UNA TECL|
00000E20: 41 22 3A 00 37 16 EA 06 A1 41 24 3A 8B 41 24 B2 |A":.7....A$:.A$.|
00000E30: 22 22 A7 31 37 37 30 00 41 16 F4 06 89 31 35 32 |"".1770.A....152|
00000E40: 30 00 54 16 FE 06 8F 20 31 35 2C 38 2C 31 35 2C |0.T.... 15,8,15,|
00000E50: 22 49 30 22 00 5E 16 08 07 8D 31 34 31 30 00 6C |"I0".^....1410.l|
00000E60: 16 12 07 43 52 24 B2 C7 28 31 33 29 00 89 16 1C |...CR$..(13)....|
00000E70: 07 85 22 4E 4F 4D 42 52 45 20 44 45 4C 20 41 52 |.."NOMBRE DEL AR|
00000E80: 43 48 49 56 4F 22 3B 46 24 00 A4 16 26 07 9F 20 |CHIVO";F$...&.. |
00000E90: 32 2C 38 2C 32 2C 22 40 30 3A 22 AA 46 24 AA 22 |2,8,2,"@0:".F$."|
00000EA0: 2C 53 2C 57 00 AE 16 30 07 8D 31 34 31 30 00 B7 |,S,W...0..1410..|
00000EB0: 16 3A 07 98 32 2C 59 00 C4 16 44 07 81 49 B2 31 |.:..2,Y...D..I.1|
00000EC0: 20 A4 20 59 00 D1 16 4E 07 98 32 2C 4E 24 28 49 | . Y...N..2,N$(I|
00000ED0: 29 00 E1 16 58 07 98 32 2C 58 24 28 49 29 43 52 |)...X..2,X$(I)CR|
00000EE0: 24 00 EB 16 62 07 8D 31 34 31 30 00 F3 16 6C 07 |$...b..1410...l.|
00000EF0: 82 20 49 00 FA 16 76 07 A0 32 00 04 17 80 07 89 |. I...v..2......|
00000F00: 31 35 32 30 00 0D 17 8A 07 99 22 93 22 00 2D 17 |1520......".".-.|
00000F10: 94 07 99 22 20 20 20 20 20 20 20 20 20 20 20 20 |..." |
00000F20: 20 20 1E 20 CF B7 B7 B7 B7 B7 B7 B7 D0 00 39 17 | . ..........9.|
00000F30: 9E 07 20 20 20 20 20 20 20 00 58 17 A8 07 99 22 |.. .X...."|
00000F40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 B4 | .|
00000F50: 20 43 2E 41 2E 4D 2E AA 00 64 17 B2 07 20 20 20 | C.A.M...d... |
00000F60: 20 20 20 20 00 8A 17 BC 07 99 22 20 20 20 20 20 | ......" |
00000F70: 20 20 20 20 20 20 20 20 20 20 CC AF AF AF AF AF | ......|
00000F80: AF AF BA 22 3A 99 3A 99 3A 99 00 A0 17 C6 07 99 |...":.:.:.......|
00000F90: 22 96 50 52 45 53 45 4E 54 41 3A 22 3A 99 3A 99 |".PRESENTA:":.:.|
00000FA0: 00 CB 17 D0 07 99 22 20 20 20 20 20 20 20 20 9F |......" .|
00000FB0: 45 53 54 45 20 50 52 4F 47 52 41 4D 41 20 4C 45 |ESTE PROGRAMA LE|
00000FC0: 20 50 45 52 4D 49 54 45 22 3A 99 00 F9 17 DA 07 | PERMITE":......|
00000FD0: 99 22 20 20 20 47 52 41 42 41 52 20 43 4F 4D 4F |." GRABAR COMO|
00000FE0: 20 41 52 43 48 49 56 4F 53 20 45 4E 20 44 49 53 | ARCHIVOS EN DIS|
00000FF0: 43 4F 20 4C 4F 53 22 3A 99 00 28 18 E4 07 99 22 |CO LOS":..(...."|
00001000: 20 20 54 49 54 55 4C 4F 53 20 44 45 20 54 4F 44 | TITULOS DE TOD|
00001010: 4F 53 20 53 55 53 20 50 52 4F 47 52 41 4D 41 53 |OS SUS PROGRAMAS|
00001020: 20 59 20 53 55 22 3A 99 00 58 18 EE 07 99 22 20 | Y SU":..X...." |
00001030: 55 42 49 43 41 43 49 4F 4E 2C 4F 52 44 45 4E 41 |UBICACION,ORDENA|
00001040: 4E 44 4F 4C 4F 53 20 41 4C 46 41 42 45 54 49 43 |NDOLOS ALFABETIC|
00001050: 41 4D 45 4E 54 45 2E 22 00 89 18 F8 07 99 22 20 |AMENTE."......" |
00001060: 20 4C 55 45 47 4F 20 50 55 45 44 45 20 49 4D 50 | LUEGO PUEDE IMP|
00001070: 52 49 4D 49 52 20 54 4F 44 4F 20 45 4C 20 4C 49 |RIMIR TODO EL LI|
00001080: 53 54 41 44 4F 2E 22 3A 99 00 B5 18 02 08 99 22 |STADO.":......."|
00001090: 9E 20 20 20 20 20 53 4F 4C 4F 20 53 49 47 41 20 |. SOLO SIGA |
000010A0: 4C 41 53 20 49 4E 53 54 52 55 43 43 49 4F 4E 45 |LAS INSTRUCCIONE|
000010B0: 53 2E 22 3A 99 00 D8 18 0C 08 99 22 1C 20 20 20 |S.":.......". |
000010C0: 20 20 20 20 20 20 20 4F 50 52 49 4D 41 20 55 4E | OPRIMA UN|
000010D0: 41 20 54 45 43 4C 41 22 00 EC 18 16 08 A1 41 24 |A TECLA"......A$|
000010E0: 3A 8B 41 24 B2 22 22 A7 32 30 37 30 00 F2 18 20 |:.A$."".2070... |
000010F0: 08 8E 00 20 19 2A 08 99 22 49 4E 47 52 45 53 45 |... .*.."INGRESE|
00001100: 20 45 4C 20 4E 55 4D 45 52 4F 20 44 45 20 50 52 | EL NUMERO DE PR|
00001110: 4F 47 52 41 4D 41 20 41 20 51 55 49 54 41 52 22 |OGRAMA A QUITAR"|
00001120: 00 29 19 34 08 85 20 4E 55 00 3A 19 3E 08 81 20 |.).4.. NU.:.>.. |
00001130: 49 B2 4E 55 20 A4 20 59 AB 31 00 5A 19 48 08 4E |I.NU . Y.1.Z.H.N|
00001140: 24 28 49 29 B2 4E 24 28 49 AA 31 29 3A 58 24 28 |$(I).N$(I.1):X$(|
00001150: 49 29 B2 58 24 28 49 AA 31 29 00 62 19 52 08 82 |I).X$(I.1).b.R..|
00001160: 20 49 00 6C 19 5C 08 59 B2 59 AB 31 00 72 19 66 | I.l.\.Y.Y.1.r.f|
00001170: 08 8E 00 80 19 70 08 99 22 93 22 3A 89 37 32 30 |.....p..".":.720|
00001180: 00 89 19 7A 08 99 22 93 22 00 9E 19 84 08 99 22 |...z.."."......"|
00001190: 52 45 4E 41 4D 45 20 46 49 4C 45 22 3A 99 00 AE |RENAME FILE":...|
000011A0: 19 8E 08 99 22 40 3A 51 55 49 54 22 3A 99 00 C6 |...."@:QUIT":...|
000011B0: 19 98 08 85 22 4F 4C 44 20 4E 41 4D 45 20 3A 22 |...."OLD NAME :"|
000011C0: 3B 53 53 24 3A 99 00 DE 19 A2 08 85 22 4E 45 57 |;SS$:......."NEW|
000011D0: 20 4E 41 4D 45 20 3A 22 3B 46 46 24 3A 99 00 F0 | NAME :";FF$:...|
000011E0: 19 AC 08 8B 53 53 24 B2 22 40 22 A7 31 35 32 30 |....SS$."@".1520|
000011F0: 00 02 1A B6 08 8B 46 46 24 B2 22 40 22 A7 31 35 |......FF$."@".15|
00001200: 32 30 00 27 1A C0 08 99 22 11 11 11 20 49 4E 53 |20.'...."... INS|
00001210: 45 52 54 20 44 49 53 4B 20 54 4F 20 42 45 20 52 |ERT DISK TO BE R|
00001220: 45 4E 41 4D 45 44 22 00 41 1A CA 08 A1 4A 4A 4A |ENAMED".A....JJJ|
00001230: 4A 24 3A 8B 4A 4A 4A 4A 24 B2 22 22 A7 32 32 35 |J$:.JJJJ$."".225|
00001240: 30 00 5E 1A D4 08 99 22 52 45 4E 41 4D 49 4E 47 |0.^...."RENAMING|
00001250: 20 22 53 53 24 22 20 54 4F 20 22 46 46 24 00 85 | "SS$" TO "FF$..|
00001260: 1A DE 08 A0 31 35 3A 9F 31 35 2C 38 2C 31 35 2C |....15:.15,8,15,|
00001270: 22 52 30 3A 22 AA 46 46 24 AA 22 3D 22 AA 53 53 |"R0:".FF$."=".SS|
00001280: 24 3A A0 31 35 00 92 1A E8 08 9F 31 35 2C 38 2C |$:.15......15,8,|
00001290: 31 35 00 9C 1A F2 08 8D 31 34 31 30 00 A6 1A FC |15......1410....|
000012A0: 08 89 31 35 32 30 00 BC 1A 10 09 A1 41 59 24 3A |..1520......AY$:|
000012B0: 8B 41 59 24 B2 22 22 A7 32 33 32 30 00 C7 1A 1A |.AY$."".2320....|
000012C0: 09 89 20 31 35 32 30 00 00 00 |.. 1520... |
.......N$(900),X$(900).H....53280,0:.532
81,0:.53272,21:."..";:.1930:.".".Y....".
SU NOMBRE POR FAVOR (18 CARACTERES MAX.)
". .(.. NA$:BS$.G(8):SO$.G(14):SI$.G(15)
...2.NL$.G(10):CR$.G(13).B.<..1130...F.P
O$.G(16):ESC$.G(27):SUB$.G(26)...P.CD$.G
(17):CU$.G(145)...Z.RVS$.G(18):OFF$.G(14
6).+.D..15,8,15,"I".@.N..1,8,2,"$":.1410
.L.X.. EN.21.EM$."READ ERROR".ET.18.ES.0
.200......:."TODOS LOS PROGRAMAS DEL DIS
CO O ALGUNOS? (T/A)"......Q$:.Q$."".140.
O.... Q$."T". LM.1:.200... .. Q$."A". LM
.0:.200...H..:."UN MOMENTO POR FAVOR":..
#.R.W.W.1:.X.1.141:.#1,A$:..1...J.17:.56
0.;...X$.B$.C...J.2.L....560.V...I$.B$.A
....#1,A$.I...J.2.R."..560.|.,.O$.B$...6
..L.1.88...@..#1,A$...J.....T..P.1.8...^
..#1,T$,A$,A$.J.H..T$."".T$.G(128).S.R.J
.15...|..560.....N$.B$......#1,A$,A$,A$,
A$,A$,A$,A$,A$,A$,L$,H$.8...L.F(L$.G(0))
.256.F(H$.G(0)):.L.0.550.H....ST. 1:.630
.].... F(T$).128 .540.R.... F(T$).129 .5
40...B.. F(T$).131 .540...L.. F(T$).132
.540...V.Y.Y.1:N$(Y).N$:X$(Y).X$.S....".
"Y.5)N$(Y).24)X$(Y)...... LM.1 .540.....
." S/N"......U$:.U$."".510......U$."N".Y
.Y.1.4....:."UN MOMENTO POR FAVOR":..G..
..P.8..#1,A$,A$.S.&..P:.340.].0.B$."".H.
:..L.0.J.S.D..#1,A$...N..A$..G(96)..A$..
G(160).B$.B$.A$...X.....B.....L...M.V.."
.INGRESE EL SIGUIENTE DISCO,"......".(SI
FUE EL ULTIMO INGRESE 1)"...... K :. K.
1.670..... 15:.100.;...."DESEA AGRAGAR N
OMBRES EXTRA?(S/N)".O.... R$:.R$."".680.
`.... R$."S".720.Q.... R$."N".800.Z.F..6
70...P.. "NOMBRE DEL PROGRAMA:";N$:. "NO
MBRE DEL DISCO";X$.N.Z.Y.Y.1:N$(Y).N$:X$
(Y).X$......"."Y.5)N$(Y).24)X$(Y)......"
OTRO NOMBRE?(S/N)"...... R$:.R$."".760.'
.... R$."S".720.8.... R$."N".800.A....75
0.D. .PF.(1.039..013.Y..0053.Y.2).60...*
.PF..(PF)..((PF..(PF)).100).100...4.."..
POR FAVOR AGUARDE ";PF;"MINUTOS"...>.M.
Y.1.F.H..I.1.M...R..N$(I).N$(I.1).1090..
.\..I...F.M.M.1...P..M..2.840...Z..1520.
>.... 2,4:.2,SO$;"LISTA DE PROGRAMAS DE
";NA$:.2,G(15).J....2," ".R...N.Y.A....
I.1.N . 2.V...MI$.J(X$(I),1,7).....X$(I)
."DISCO ".J(X$(I),8,10).J....2,I;")";.1)
;N$(I);.21.C(D(I)).C(N$(I)))X$(I);...J.M
I$.J(X$(I.1),1,7)...T.X$(I.1)."DISCO ".J
(X$(I.1),8,10).$....2,.20.C(D(I)).C(X$(I
)));.`....2,I.1;")";.1);N$(I.1);.21.C(D(
I.1)).C(N$(I.1)))X$(I.1).J...V.V.1.{....
V.60 .1040...... WE$:.WE$."". V.0:.1030
......I.........$. 2...... 1520.H.8..".
ADIOS":....B.T$.N$(I):U$.X$(I)...L.N$(I)
.N$(I.1):X$(I).X$(I.1)...V.N$(I.1).T$:X$
(I.1).U$.!.`..860.+.J.."..".G.T.."EXISTE
ARCHIVO?(S/N)".[.~..A$:.A$."".1150.P...
. A$."N". .".":....... A$."S".1190......
1150......"."......15,8,15,"I0".D.... "N
OMBRE DE ARCHIVO";F$.M.D.."."...N.. 2,8,
2,"0:".F$.",S,R"...X..1410...... EN.21.E
M$."READ ERROR".ET.18.ES.0.890.'....2,Y.
0....".".^...."LEYENDO DEL DISCO UN MOME
NTO POR FAVOR".L.... I.1 . Y.....2,N$(I
),X$(I)......1410...(.. I...2. 2: 15...
<..".SON ";Y;"PROGRAMAS":....F.."AGREGA
MAS PROGRAMAS?(S/N)"...P..A$...Z.. A$."S
".....D.. A$."N". .15,8,15,"I0":.890...N
..1360.$.X...9....15,EN,EM$,ET,ES.F....E
N.0. ..C...."ERROR EN DISCO CODIGO".U. .
.EN;EM$;ET;ES.|... 2...... EN.21.EM$."RE
AD ERROR".ET.18.ES.0.1510.G...."OPRIMA C
UALQUIER TECLA"...H..A$:.A$."".1480...R.
.EN..0.............."DISCO INVALIDO":..!
....".1)GRABO EN DISCO":..H...."2)IMPRIM
O (CONECTE IMPRESORA)":..H...."3)MUESTRO
POR PANTALLA":......."4)LEO OTRO ARCHIV
O":......."5)COMIENZO NUEVAMENTE":....".
."6)QUITO UN NOMBRE":..Y.,.."7)RENOMBRAR
FILAS":....6.."8)AGREGO UN NOMBRE":....
@.."9)DIRECTORIO":....J.."0)PANEL 2":..2
.T..A$:.A$."".1620.D.^.. A$."1".1790.U.H
.. A$."2".900.G.R.. A$."3".1730..|.. A$
."4". 15:.1190...... A$."5". 15:......
. A$."6". . 2090...... A$."7". 2170.M...
. A$."8".2160.W....1520...B..I.1 . Y...L
.."."I.5)N$(I).24)"."X$(I)...V.. I.#....
"OPRIMA UNA TECLA":.7....A$:.A$."".1770.
A....1520.T.... 15,8,15,"I0".^....1410.L
...CR$.G(13)......"NOMBRE DEL ARCHIVO";F
$...&.. 2,8,2,"@0:".F$.",S,W...0..1410..
.:..2,Y.D.D..I.1 . Y.Q.N..2,N$(I)...X..2
,X$(I)CR$...B..1410...L.. I...V. 2......
1520......".".-...." . O...
....P.9... .X...." .
C.A.M...D... ......"
L........":.:.:.. .F..".PRESENTA:":.:.
.K.P.." .ESTE PROGRAMA LE PERMITE
":....Z.." GRABAR COMO ARCHIVOS EN DIS
CO LOS":..(...." TITULOS DE TODOS SUS P
ROGRAMAS Y SU":..X...." UBICACION,ORDENA
NDOLOS ALFABETICAMENTE."......" LUEGO P
UEDE IMPRIMIR TODO EL LISTADO.":......."
. SOLO SIGA LAS INSTRUCCIONES.":..X.
...". OPRIMA UNA TECLA"......A$
:.A$."".2070... ... .*.."INGRESE EL NUME
RO DE PROGRAMA A QUITAR".).4.. NU.:.>..
I.NU . Y.1.Z.H.N$(I).N$(I.1):X$(I).X$(I.
1).B.R.. I.L.\.Y.Y.1.R.F.....P..".":.720
...Z.."."......"RENAME FILE":......."@:Q
UIT":..F...."OLD NAME :";SS$:......."NEW
NAME :";FF$:.......SS$."@".1520......FF
$."@".1520.'...."... INSERT DISK TO BE R
ENAMED".A.J..JJJJ$:.JJJJ$."".2250.^.T.."
RENAMING "SS$" TO "FF$..... 15:.15,8,15,
"R0:".FF$."=".SS$: 15......15,8,15......
1410......1520......AY$:.AY$."".2320.G..
.. 1520...
> CLICK IMAGE PREVIEW FOR FULL MODAL