GRAFICADOR (128)
FILE INFORMATION
FILENAME(S): GRAFICADOR (128)
FILE TYPE(S): PRG
FILE SIZE: 1.7K
FIRST SEEN: 2025-10-19 23:07:26
APPEARS ON: 1 disk(s)
FILE HASH
9196fe18d74cce3f4231d5f6ac307d56e3444001352097bb48c62e4c75cf3a66
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PROG Y ARCHIVOS | GRAFICADOR (128) | PRG | Bugjam - Argentina | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 1E 1C 0A 00 8F 20 47 52 41 46 49 43 41 44 |....... GRAFICAD| 00000010: 4F 52 20 45 53 54 41 44 49 53 54 49 43 4F 00 28 |OR ESTADISTICO.(| 00000020: 1C 50 00 DE 20 30 2C 31 00 4B 1C 5A 00 99 3A 99 |.P.. 0,1.K.Z..:.| 00000030: 22 31 2E 20 43 52 45 41 52 20 55 4E 20 4E 55 45 |"1. CREAR UN NUE| 00000040: 56 4F 20 47 52 41 46 49 43 4F 22 00 75 1C 64 00 |VO GRAFICO".u.d.| 00000050: 99 3A 99 22 32 2E 20 43 41 52 47 41 52 20 44 45 |.:."2. CARGAR DE| 00000060: 53 44 45 20 44 49 53 43 4F 20 55 4E 20 47 52 41 |SDE DISCO UN GRA| 00000070: 46 49 43 4F 22 00 96 1C 6E 00 99 3A 99 22 33 2E |FICO"...n..:."3.| 00000080: 20 54 45 52 4D 49 4E 41 52 20 45 4C 20 50 52 4F | TERMINAR EL PRO| 00000090: 47 52 41 4D 41 22 00 B2 1C 78 00 99 3A 85 22 51 |GRAMA"...x..:."Q| 000000A0: 55 45 20 4F 50 43 49 4F 4E 20 45 4C 49 47 45 22 |UE OPCION ELIGE"| 000000B0: 3B 4A 00 C7 1C 82 00 8B 20 4A B3 31 20 B0 20 4A |;J...... J.1 . J| 000000C0: B1 33 20 A7 31 32 30 00 DC 1C 8C 00 91 20 4A 20 |.3 .120...... J | 000000D0: 89 32 30 30 2C 37 32 30 2C 31 35 30 00 E2 1C 96 |.200,720,150....| 000000E0: 00 80 00 EC 1C C8 00 DE 20 30 2C 31 00 16 1D D2 |........ 0,1....| 000000F0: 00 85 22 11 43 55 41 4E 54 4F 53 20 45 4C 45 4D |..".CUANTOS ELEM| 00000100: 45 4E 54 4F 53 20 56 41 20 41 20 43 4F 4D 50 41 |ENTOS VA A COMPA| 00000110: 52 41 52 22 3B 4E 00 37 1D DC 00 86 20 45 24 28 |RAR";N.7.... E$(| 00000120: 4E 29 2C 56 28 4E 29 2C 50 28 4E 29 2C 4B 28 4E |N),V(N),P(N),K(N| 00000130: 29 2C 4E 24 28 4E 29 00 3D 1D E6 00 8F 00 48 1D |),N$(N).=.....H.| 00000140: F0 00 81 49 B2 31 A4 4E 00 67 1D FA 00 99 22 11 |...I.1.N.g....".| 00000150: 43 55 41 4C 20 45 53 20 45 4C 20 45 4C 45 4D 45 |CUAL ES EL ELEME| 00000160: 4E 54 4F 22 3B 49 3B 00 73 1D 04 01 85 20 45 24 |NTO";I;.s.... E$| 00000170: 28 49 29 00 97 1D 0E 01 99 22 11 43 55 41 4C 20 |(I)......".CUAL | 00000180: 45 53 20 45 4C 20 56 41 4C 4F 52 20 44 45 20 22 |ES EL VALOR DE "| 00000190: 3B 45 24 28 49 29 3B 00 A1 1D 18 01 85 56 28 49 |;E$(I);......V(I| 000001A0: 29 00 A8 1D 22 01 82 49 00 AE 1D 2C 01 8F 00 D3 |)..."..I...,....| 000001B0: 1D 36 01 E8 3A 20 81 20 49 B2 31 20 A4 20 4E 3A |.6..: . I.1 . N:| 000001C0: 20 99 20 49 3B 45 24 28 49 29 2C 56 28 49 29 3A | . I;E$(I),V(I):| 000001D0: 82 20 49 00 03 1E 40 01 99 3A 99 22 44 45 53 45 |. I...@..:."DESE| 000001E0: 41 20 48 41 43 45 52 20 41 4C 47 55 4E 41 20 4D |A HACER ALGUNA M| 000001F0: 4F 44 49 46 49 43 41 43 49 4F 4E 20 28 53 2F 4E |ODIFICACION (S/N| 00000200: 29 3F 22 00 1B 1E 4A 01 A1 F9 20 5A 24 3A 8B 20 |)?"...J... Z$:. | 00000210: 5A 24 B2 22 53 22 20 A7 33 35 30 00 36 1E 54 01 |Z$."S" .350.6.T.| 00000220: 8B 20 5A 24 B2 22 4E 22 20 A7 34 30 30 3A 20 D5 |. Z$."N" .400: .| 00000230: 20 89 20 33 33 30 00 58 1E 5E 01 99 3A 85 22 51 | . 330.X.^..:."Q| 00000240: 55 45 20 4E 55 4D 45 52 4F 20 44 45 20 45 4C 45 |UE NUMERO DE ELE| 00000250: 4D 45 4E 54 4F 22 3B 43 00 8F 1E 68 01 99 20 22 |MENTO";C...h.. "| 00000260: 45 4C 20 45 4C 45 4D 45 4E 54 4F 20 45 52 41 20 |EL ELEMENTO ERA | 00000270: 22 3B 20 45 24 28 43 29 20 3B 20 22 59 20 54 45 |"; E$(C) ; "Y TE| 00000280: 4E 49 41 20 56 41 4C 4F 52 22 3B 56 28 43 29 00 |NIA VALOR";V(C).| 00000290: AC 1E 72 01 85 20 22 4E 55 45 56 4F 20 45 4C 45 |..r.. "NUEVO ELE| 000002A0: 4D 45 4E 54 4F 22 3B 45 24 28 43 29 00 C5 1E 7C |MENTO";E$(C)...|| 000002B0: 01 85 20 22 4E 55 45 56 4F 20 56 41 4C 4F 52 22 |.. "NUEVO VALOR"| 000002C0: 3B 56 28 43 29 00 CE 1E 86 01 89 33 31 30 00 D4 |;V(C)......310..| 000002D0: 1E 90 01 8F 00 EF 1E 9A 01 81 20 49 B2 31 20 A4 |.......... I.1 .| 000002E0: 20 4E 3A 20 53 B2 53 AA 56 28 49 29 3A 20 82 00 | N: S.S.V(I): ..| 000002F0: 3E 1F A4 01 81 20 49 B2 31 20 A4 20 4E 3A 20 50 |>.... I.1 . N: P| 00000300: 28 49 29 B2 56 28 49 29 AC 31 30 30 AD 53 3A 4B |(I).V(I).100.S:K| 00000310: 28 49 29 B2 4B 28 49 AB 31 29 AA 50 28 49 29 3A |(I).K(I.1).P(I):| 00000320: 20 4E 24 28 49 29 B2 C4 28 B5 28 31 30 AC 50 28 | N$(I)..(.(10.P(| 00000330: 49 29 AA 2E 35 29 AD 31 30 29 3A 82 20 49 00 44 |I)..5).10):. I.D| 00000340: 1F AE 01 8F 00 4E 1F B8 01 DE 20 31 2C 31 00 60 |.....N.... 1,1.`| 00000350: 1F C2 01 E2 20 2C 31 36 30 2C 31 30 30 2C 38 30 |.... ,160,100,80| 00000360: 00 93 1F CC 01 81 20 49 B2 31 20 A4 20 4E 3A 20 |...... I.1 . N: | 00000370: E2 20 2C 31 36 30 2C 31 30 30 2C 38 30 2C 30 2C |. ,160,100,80,0,| 00000380: 30 2C 38 30 2C 4B 28 49 29 AC 33 2E 36 3A 20 20 |0,80,K(I).3.6: | 00000390: 82 20 49 00 CA 1F D6 01 81 20 49 B2 31 20 A4 20 |. I...... I.1 . | 000003A0: 4E 3A 20 E2 20 2C 31 36 30 2C 31 30 30 2C 38 30 |N: . ,160,100,80| 000003B0: 2C 30 2C 38 39 2C 39 30 2C 4B 28 49 29 AC 33 2E |,0,89,90,K(I).3.| 000003C0: 36 AB 50 28 49 29 AC 31 2E 38 00 E0 1F E0 01 58 |6.P(I).1.8.....X| 000003D0: B2 D0 28 4F 29 AD 38 3A 59 B2 D0 28 31 29 AD 38 |..(O).8:Y..(1).8| 000003E0: 00 FA 1F EA 01 8B 20 58 B3 31 36 20 A7 20 58 B2 |...... X.16 . X.| 000003F0: 58 AB C3 28 45 24 28 49 29 29 00 11 20 F4 01 E0 |X..(E$(I)).. ...| 00000400: 20 2C 58 2C 59 2C 45 24 28 49 29 AA 4E 24 28 49 | ,X,Y,E$(I).N$(I| 00000410: 29 00 19 20 FE 01 82 20 49 00 46 20 08 02 E0 20 |).. ... I.F ... | 00000420: 2C 35 2C 32 34 2C 22 50 55 4C 53 45 20 55 4E 41 |,5,24,"PULSE UNA| 00000430: 20 54 45 43 4C 41 20 50 41 52 41 20 43 4F 4E 54 | TECLA PARA CONT| 00000440: 49 4E 55 41 52 22 00 50 20 12 02 A1 F9 20 41 24 |INUAR".P .... A$| 00000450: 00 5A 20 1C 02 DE 20 30 2C 31 00 7C 20 26 02 99 |.Z ... 0,1.| &..| 00000460: 3A 99 22 31 2E 20 56 45 52 20 45 4C 20 55 4C 54 |:."1. VER EL ULT| 00000470: 49 4D 4F 20 47 52 41 46 49 43 4F 22 00 AA 20 30 |IMO GRAFICO".. 0| 00000480: 02 99 3A 99 22 32 2E 20 47 52 41 42 41 52 20 45 |..:."2. GRABAR E| 00000490: 4E 20 44 49 53 43 4F 20 45 4C 20 55 4C 54 49 4D |N DISCO EL ULTIM| 000004A0: 4F 20 47 52 41 46 49 43 4F 22 00 CF 20 3A 02 99 |O GRAFICO".. :..| 000004B0: 3A 99 22 33 2E 20 56 4F 4C 56 45 52 20 41 4C 20 |:."3. VOLVER AL | 000004C0: 4D 45 4E 55 20 50 52 49 4E 43 49 50 41 4C 22 00 |MENU PRINCIPAL".| 000004D0: F0 20 44 02 99 3A 99 22 34 2E 20 54 45 52 4D 49 |. D..:."4. TERMI| 000004E0: 4E 41 52 20 45 4C 20 50 52 4F 47 52 41 4D 41 22 |NAR EL PROGRAMA"| 000004F0: 00 0C 21 4E 02 99 3A 85 22 51 55 45 20 4F 50 43 |..!N..:."QUE OPC| 00000500: 49 4F 4E 20 45 4C 49 4A 45 22 3B 4A 00 22 21 58 |ION ELIJE";J."!X| 00000510: 02 8B 20 4A B3 31 20 B0 20 4A B1 34 20 A7 20 35 |.. J.1 . J.4 . 5| 00000520: 34 30 00 3C 21 62 02 91 20 4A 20 89 20 34 34 30 |40.<!b.. J . 440| 00000530: 2C 36 33 30 2C 36 32 30 2C 31 35 30 00 42 21 6C |,630,620,150.B!l| 00000540: 02 8A 00 48 21 76 02 8F 00 55 21 80 02 44 24 B2 |...H!v...U!..D$.| 00000550: C7 28 31 33 29 00 7A 21 8A 02 85 22 43 4F 4E 20 |.(13).z!..."CON | 00000560: 51 55 45 20 4E 4F 4D 42 52 45 20 56 41 20 41 20 |QUE NOMBRE VA A | 00000570: 47 52 41 56 41 52 22 3B 4C 24 00 89 21 94 02 52 |GRAVAR";L$..!..R| 00000580: 24 B2 C4 28 4E 29 AA 44 24 00 B3 21 9E 02 81 20 |$..(N).D$..!... | 00000590: 49 B2 31 20 A4 4E 3A 52 24 B2 52 24 AA 45 24 28 |I.1 .N:R$.R$.E$(| 000005A0: 49 29 AA 44 24 AA C4 28 56 28 49 29 29 AA 44 24 |I).D$..(V(I)).D$| 000005B0: 3A 82 49 00 C3 21 A8 02 FE 0D 23 31 2C 28 4C 24 |:.I..!....#1,(L$| 000005C0: 29 2C 57 00 D0 21 B2 02 98 31 2C 52 24 28 49 29 |),W..!...1,R$(I)| 000005D0: 00 01 22 BC 02 FE 0F 23 31 3A 99 4C 24 3B 22 20 |.."....#1:.L$;" | 000005E0: 48 41 20 53 49 44 4F 20 47 52 41 42 41 44 4F 22 |HA SIDO GRABADO"| 000005F0: 3A 81 20 49 B2 31 20 A4 20 31 30 30 3A 20 82 20 |:. I.1 . 100: . | 00000600: 49 00 07 22 C6 02 8A 00 0D 22 D0 02 8F 00 2F 22 |I.."....."..../"| 00000610: DA 02 85 22 51 55 45 20 47 52 41 46 49 43 4F 20 |..."QUE GRAFICO | 00000620: 56 41 20 41 20 43 41 52 43 41 52 22 3B 4C 24 00 |VA A CARCAR";L$.| 00000630: 3D 22 E4 02 FE 0D 23 31 2C 28 4C 24 29 00 4F 22 |="....#1,(L$).O"| 00000640: EE 02 84 31 2C 46 24 3A 4E B2 C5 28 46 24 29 00 |...1,F$:N..(F$).| 00000650: 70 22 F8 02 86 20 45 24 28 4E 29 2C 56 28 4E 29 |p"... E$(N),V(N)| 00000660: 2C 50 28 4E 29 2C 4B 28 4E 29 2C 4E 24 28 4E 29 |,P(N),K(N),N$(N)| 00000670: 00 91 22 02 03 81 20 49 B2 31 20 A4 20 4E 3A 84 |.."... I.1 . N:.| 00000680: 31 2C 45 24 28 49 29 2C 58 24 28 49 29 3A 82 20 |1,E$(I),X$(I):. | 00000690: 49 00 9A 22 0C 03 FE 0F 23 31 00 B9 22 16 03 81 |I.."....#1.."...| 000006A0: 20 49 B2 31 20 A4 20 4E 3A 56 28 49 29 B2 C5 28 | I.1 . N:V(I)..(| 000006B0: 58 24 28 49 29 29 3A 82 49 00 C2 22 20 03 89 34 |X$(I)):.I.." ..4| 000006C0: 30 30 00 00 00 |00... |
....... GRAFICADOR ESTADISTICO.(.P.. 0,1 .K.Z..:."1. CREAR UN NUEVO GRAFICO".U.D. .:."2. CARGAR DESDE DISCO UN GRAFICO"... N..:."3. TERMINAR EL PROGRAMA"...X..:."Q UE OPCION ELIGE";J.G.... J.1 . J.3 .120. ..... J .200,720,150.........H.. 0,1...R ..".CUANTOS ELEMENTOS VA A COMPARAR";N.7 .... E$(N),V(N),P(N),K(N),N$(N).=.....H. ...I.1.N.G....".CUAL ES EL ELEMENTO";I;. S.... E$(I)......".CUAL ES EL VALOR DE " ;E$(I);......V(I)..."..I...,...S.6..: . I.1 . N: . I;E$(I),V(I):. I...@..:."DESE A HACER ALGUNA MODIFICACION (S/N)?"...J. .. Z$:. Z$."S" .350.6.T.. Z$."N" .400: U . 330.X.^..:."QUE NUMERO DE ELEMENTO";C ...H.. "EL ELEMENTO ERA "; E$(C) ; "Y TE NIA VALOR";V(C)...R.. "NUEVO ELEMENTO";E $(C).E.|.. "NUEVO VALOR";V(C).N....310.T .......... I.1 . N: S.S.V(I): ..>.... I. 1 . N: P(I).V(I).100.S:K(I).K(I.1).P(I): N$(I).D(.(10.P(I)..5).10):. I.D.....N.. .. 1,1.`.B.. ,160,100,80...L.. I.1 . N: . ,160,100,80,0,0,80,K(I).3.6: . I.J.V. . I.1 . N: . ,160,100,80,0,89,90,K(I).3. 6.P(I).1.8.....X.P(O).8:Y.P(1).8...... X .16 . X.X.C(E$(I)).. ... ,X,Y,E$(I).N$(I ).. ... I.F ... ,5,24,"PULSE UNA TECLA P ARA CONTINUAR".P .... A$.Z ... 0,1.| &.. :."1. VER EL ULTIMO GRAFICO".. 0..:."2. GRABAR EN DISCO EL ULTIMO GRAFICO".O :.. :."3. VOLVER AL MENU PRINCIPAL".. D..:." 4. TERMINAR EL PROGRAMA"..!N..:."QUE OPC ION ELIJE";J."!X.. J.1 . J.4 . 540.<!B.. J . 440,630,620,150.B!L...H!V...U!..D$. G(13).Z!..."CON QUE NOMBRE VA A GRAVAR"; L$..!..R$.D(N).D$..!... I.1 .N:R$.R$.E$( I).D$.D(V(I)).D$:.I.C!....#1,(L$),W.P!.. .1,R$(I).."....#1:.L$;" HA SIDO GRABADO" :. I.1 . 100: . I.."F...."P.../"Z.."QUE GRAFICO VA A CARCAR";L$.="....#1,(L$).O" ...1,F$:N.E(F$).P"... E$(N),V(N),P(N),K( N),N$(N).."... I.1 . N:.1,E$(I),X$(I):. I.."....#1.."... I.1 . N:V(I).E(X$(I)):. I.B" ..400...
> CLICK IMAGE PREVIEW FOR FULL MODAL