EASY CALC
FILE INFORMATION
FILENAME(S): EASY CALC
FILE TYPE(S): PRG
FILE SIZE: 4.5K
FIRST SEEN: 2025-10-19 23:07:07
APPEARS ON: 1 disk(s)
FILE HASH
162db99c9972e5cc1c033374613ba36a095604c5092df7920f51a0816db9ad82
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AGENDA | EASY CALC | PRG | Bugjam - Argentina | 5 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 26 08 01 00 8F 20 2A 2A 2A 2A 2A 45 41 53 |..&.... *****EAS|
00000010: 59 20 43 41 4C 43 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |Y CALC *********|
00000020: 2A 2A 2A 2A 2A 2A 00 54 08 05 00 86 20 46 24 28 |******.T.... F$(|
00000030: 32 36 2C 35 34 29 3A 58 B2 31 3A 59 B2 31 3A 50 |26,54):X.1:Y.1:P|
00000040: B2 30 3A 97 35 33 32 38 30 2C 36 3A 97 35 33 32 |.0:.53280,6:.532|
00000050: 38 31 2C 36 00 7C 08 0A 00 99 22 93 9E 20 20 20 |81,6.|....".. |
00000060: 20 20 2A 2A 2A 2A 2A 2A 20 20 45 41 53 59 20 43 | ****** EASY C|
00000070: 41 4C 43 20 20 2A 2A 2A 2A 2A 2A 22 00 97 08 14 |ALC ******"....|
00000080: 00 99 22 11 4C 49 53 54 41 20 44 45 20 43 4F 4D |..".LISTA DE COM|
00000090: 41 4E 44 4F 53 3A 22 00 BD 08 1E 00 99 22 11 12 |ANDOS:"......"..|
000000A0: 54 2E 20 43 55 52 53 4F 52 3A 92 20 4D 55 45 56 |T. CURSOR:. MUEV|
000000B0: 45 4E 20 45 4C 20 43 55 52 53 4F 52 22 00 FD 08 |EN EL CURSOR"...|
000000C0: 28 00 99 22 12 46 31 92 28 41 52 52 29 2C 12 46 |(..".F1.(ARR),.F|
000000D0: 33 92 28 41 42 4A 29 2C 12 46 35 92 28 49 5A 51 |3.(ABJ),.F5.(IZQ|
000000E0: 29 2C 12 46 37 92 28 44 52 43 29 3A 20 4D 55 45 |),.F7.(DRC): MUE|
000000F0: 56 45 4E 20 50 41 4E 54 41 4C 4C 41 22 00 18 09 |VEN PANTALLA"...|
00000100: 32 00 99 22 11 12 56 3A 92 20 56 41 4C 4F 52 20 |2.."..V:. VALOR |
00000110: 4F 20 54 45 58 54 4F 22 00 3F 09 3C 00 99 22 12 |O TEXTO".?.<..".|
00000120: 46 3A 92 20 46 4F 52 4D 55 4C 41 20 28 45 4A 45 |F:. FORMULA (EJE|
00000130: 4D 50 4C 4F 3A 20 42 34 3D 42 33 2B 42 32 29 00 |MPLO: B4=B3+B2).|
00000140: 60 09 46 00 99 22 12 43 3A 92 20 43 41 4C 43 55 |`.F..".C:. CALCU|
00000150: 4C 41 20 54 4F 44 41 20 4C 41 20 48 4F 4A 41 22 |LA TODA LA HOJA"|
00000160: 00 8A 09 50 00 99 22 12 4D 3A 92 20 4D 55 45 53 |...P..".M:. MUES|
00000170: 54 52 41 20 46 4F 52 4D 55 4C 41 20 44 45 20 4C |TRA FORMULA DE L|
00000180: 41 20 43 41 53 49 4C 4C 41 22 00 A4 09 5A 00 99 |A CASILLA"...Z..|
00000190: 22 12 42 3A 92 20 42 4F 52 52 41 20 46 4F 52 4D |".B:. BORRA FORM|
000001A0: 55 4C 41 22 00 B5 09 64 00 99 22 12 47 3A 92 20 |ULA"...d..".G:. |
000001B0: 47 4F 54 4F 22 00 CB 09 6E 00 8F 20 50 52 49 4E |GOTO"...n.. PRIN|
000001C0: 54 22 12 4C 3A 92 4C 4F 41 44 22 00 E1 09 78 00 |T".L:.LOAD"...x.|
000001D0: 8F 20 50 52 49 4E 54 22 12 53 3A 92 53 41 56 45 |. PRINT".S:.SAVE|
000001E0: 22 00 04 0A 82 00 99 22 11 11 20 20 20 20 20 20 |"......".. |
000001F0: 20 20 20 20 50 55 4C 53 45 20 55 4E 41 20 54 45 | PULSE UNA TE|
00000200: 43 4C 41 22 00 17 0A 87 00 A1 41 24 3A 8B 41 24 |CLA"......A$:.A$|
00000210: B2 22 22 A7 31 33 35 00 31 0A F0 00 86 53 24 28 |."".135.1....S$(|
00000220: 35 30 29 2C 4D 24 28 35 30 29 3A 4C 41 53 54 B2 |50),M$(50):LAST.|
00000230: 31 00 6C 0A FA 00 4B 56 24 B2 22 20 20 20 20 20 |1.l...KV$." |
00000240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000260: 20 20 22 3A 8F 20 33 39 20 53 50 43 00 8E 0A 04 | ":. 39 SPC....|
00000270: 01 4B 5A 24 B2 22 13 11 11 11 11 11 11 11 11 11 |.KZ$."..........|
00000280: 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 97 |............."..|
00000290: 0A 0E 01 8D 33 31 30 00 A0 0A 18 01 8D 34 31 30 |....310......410|
000002A0: 00 A9 0A 22 01 89 35 31 30 00 CB 0A 2C 01 8F 20 |..."..510...,.. |
000002B0: 2A 2A 2A 2A 20 53 55 42 52 4F 55 54 49 4E 45 20 |**** SUBROUTINE |
000002C0: 53 54 41 4D 50 41 20 2A 2A 2A 2A 00 F3 0A 36 01 |STAMPA ****...6.|
000002D0: 99 22 93 9E 22 3B A3 31 32 29 3B 22 2A 2A 2A 20 |."..";.12);"*** |
000002E0: 45 41 53 59 43 41 4C 43 20 2A 2A 2A 11 22 3A 99 |EASYCALC ***.":.|
000002F0: A6 33 29 00 FF 0A 40 01 81 20 49 B2 31 A4 33 00 |.3)...@.. I.1.3.|
00000300: 18 0B 4A 01 99 A6 34 29 3B C7 28 49 AA 36 34 AA |..J...4);.(I.64.|
00000310: 4C 31 29 3B A6 34 29 3B 00 30 0B 54 01 82 3A 99 |L1);.4);.0.T..:.|
00000320: A6 34 29 3B C7 28 49 AA 36 34 AA 4C 31 29 3A 99 |.4);.(I.64.L1):.|
00000330: 00 3B 0B 5E 01 99 22 91 22 20 3B 00 47 0B 68 01 |.;.^.."." ;.G.h.|
00000340: 81 49 B2 31 A4 31 38 00 6D 0B 72 01 99 22 2A 9D |.I.1.18.m.r.."*.|
00000350: 22 3B 49 AA 4C 32 3B 22 9D 22 3B A6 33 AB C3 28 |";I.L2;".";.3..(|
00000360: C4 28 49 AA 4C 32 29 29 29 3B 22 C7 22 00 74 0B |.(I.L2)));".".t.|
00000370: 7C 01 99 3B 00 7A 0B 86 01 82 00 80 0B 90 01 8E ||..;.z..........|
00000380: 00 9C 0B 9A 01 8F 20 2A 2A 2A 2A 2A 2A 2A 20 43 |...... ******* C|
00000390: 55 52 53 4F 52 20 2A 2A 2A 2A 2A 2A 00 B6 0B A4 |URSOR ******....|
000003A0: 01 53 24 B2 46 24 28 58 AA 4C 31 2C 59 AA 4C 32 |.S$.F$(X.L1,Y.L2|
000003B0: 29 3A 99 22 13 22 00 C0 0B AE 01 43 24 B2 22 22 |):.".".....C$.""|
000003C0: 00 DD 0B B8 01 81 49 B2 C3 28 53 24 29 AA 31 A4 |......I..(S$).1.|
000003D0: 38 3A 43 24 B2 43 24 AA 22 20 22 3A 82 00 EF 0B |8:C$.C$." ":....|
000003E0: C2 01 43 24 B2 C8 28 53 24 AA 43 24 2C 38 29 00 |..C$..(S$.C$,8).|
000003F0: 04 0C CC 01 81 20 49 B2 31 20 A4 20 59 3A 99 3A |..... I.1 . Y:.:|
00000400: 82 49 3A 99 00 17 0C D6 01 99 20 A3 39 AC 28 58 |.I:....... .9.(X|
00000410: AB 31 29 AA 34 29 3B 00 27 0C E0 01 8B 20 50 B2 |.1).4);.'.... P.|
00000420: 31 A7 20 99 43 24 3B 00 3F 0C EA 01 8B 20 50 B2 |1. .C$;.?.... P.|
00000430: 30 A7 20 99 22 12 22 3B 43 24 3B 22 92 22 3B 00 |0. .".";C$;".";.|
00000440: 45 0C F4 01 8E 00 65 0C FE 01 8F 20 2A 2A 2A 2A |E.....e.... ****|
00000450: 2A 20 49 4E 50 55 54 20 43 4F 4D 41 4E 44 49 20 |* INPUT COMANDI |
00000460: 2A 2A 2A 2A 2A 00 6F 0C 08 02 99 22 9E 22 3B 00 |*****.o....".";.|
00000470: 79 0C 12 02 99 4B 5A 24 3B 00 81 0C 1C 02 47 B2 |y....KZ$;.....G.|
00000480: 31 00 8B 0C 26 02 8D 31 36 36 30 00 A0 0C 30 02 |1...&..1660...0.|
00000490: A1 20 41 24 3A 8B 20 41 24 B2 22 22 A7 35 36 30 |. A$:. A$."".560|
000004A0: 00 C0 0C 3A 02 8F 20 49 46 41 24 3D 22 4C 22 54 |...:.. IFA$="L"T|
000004B0: 48 45 4E 32 30 30 30 3A 52 45 4D 20 4C 4F 41 44 |HEN2000:REM LOAD|
000004C0: 00 E5 0C 44 02 8F 20 49 46 41 24 3D 22 57 22 54 |...D.. IFA$="W"T|
000004D0: 48 45 4E 47 4F 53 55 42 33 30 30 30 3A 52 45 4D |HENGOSUB3000:REM|
000004E0: 20 53 41 56 45 00 01 0D 4E 02 8B 41 24 B2 22 4D | SAVE...N..A$."M|
000004F0: 22 A7 8D 31 36 30 30 3A 8F 20 53 48 4F 57 20 46 |"..1600:. SHOW F|
00000500: 2E 00 1D 0D 58 02 8B 41 24 B2 22 91 22 A7 37 33 |....X..A$.".".73|
00000510: 30 3A 8F 20 43 55 52 53 4F 52 20 55 50 00 3B 0D |0:. CURSOR UP.;.|
00000520: 62 02 8B 41 24 B2 22 11 22 A7 37 37 30 3A 8F 20 |b..A$.".".770:. |
00000530: 43 55 52 53 4F 52 20 44 4F 57 4E 00 59 0D 6C 02 |CURSOR DOWN.Y.l.|
00000540: 8B 41 24 B2 22 9D 22 A7 38 31 30 3A 8F 20 43 55 |.A$.".".810:. CU|
00000550: 52 53 4F 52 20 4C 45 46 54 00 78 0D 76 02 8B 41 |RSOR LEFT.x.v..A|
00000560: 24 B2 22 1D 22 A7 38 35 30 3A 8F 20 43 55 52 53 |$.".".850:. CURS|
00000570: 4F 52 20 52 49 47 48 54 00 94 0D 80 02 8B 41 24 |OR RIGHT......A$|
00000580: B2 22 86 22 A7 39 30 30 3A 8F 20 53 43 52 45 45 |.".".900:. SCREE|
00000590: 4E 20 55 50 00 B2 0D 8A 02 8B 41 24 B2 22 85 22 |N UP......A$."."|
000005A0: A7 39 32 30 3A 8F 20 53 43 52 45 45 4E 20 44 4F |.920:. SCREEN DO|
000005B0: 57 4E 00 D0 0D 94 02 8B 41 24 B2 22 87 22 A7 39 |WN......A$.".".9|
000005C0: 35 30 3A 8F 20 53 43 52 45 45 4E 20 4C 45 46 54 |50:. SCREEN LEFT|
000005D0: 00 EF 0D 9E 02 8B 41 24 B2 22 88 22 A7 39 38 30 |......A$.".".980|
000005E0: 3A 8F 20 53 43 52 45 45 4E 20 52 49 47 48 54 00 |:. SCREEN RIGHT.|
000005F0: 0E 0E A8 02 8B 41 24 B2 22 56 22 A7 31 30 31 30 |.....A$."V".1010|
00000600: 3A 8F 20 49 4E 53 54 2E 20 56 41 4C 55 45 00 2F |:. INST. VALUE./|
00000610: 0E B2 02 8B 41 24 B2 22 46 22 A7 31 30 38 30 3A |....A$."F".1080:|
00000620: 8F 20 49 4E 53 54 2E 20 46 4F 52 4D 55 4C 41 00 |. INST. FORMULA.|
00000630: 4A 0E BC 02 8B 41 24 B2 22 43 22 A7 31 34 31 30 |J....A$."C".1410|
00000640: 3A 8F 20 43 41 4C 43 4F 4C 41 00 6B 0E C6 02 8B |:. CALCOLA.k....|
00000650: 41 24 B2 22 42 22 A7 31 37 31 30 3A 8F 20 45 52 |A$."B".1710:. ER|
00000660: 41 53 45 20 46 4F 52 4D 55 4C 41 00 83 0E CB 02 |ASE FORMULA.....|
00000670: 8B 41 24 B2 22 47 22 A7 31 38 30 30 3A 8F 20 47 |.A$."G".1800:. G|
00000680: 4F 54 4F 00 8C 0E D0 02 89 35 33 30 00 A6 0E DA |OTO......530....|
00000690: 02 8F 20 2A 2A 2A 2A 20 43 55 52 53 4F 52 20 55 |.. **** CURSOR U|
000006A0: 50 20 2A 2A 2A 2A 00 B3 0E E4 02 50 B2 31 3A 8D |P ****.....P.1:.|
000006B0: 34 31 30 00 CA 0E EE 02 59 B2 59 AB 31 3A 50 B2 |410.....Y.Y.1:P.|
000006C0: 30 3A 8B 59 B3 31 A7 39 32 30 00 D8 0E F8 02 8D |0:.Y.1.920......|
000006D0: 34 31 30 3A 89 35 31 30 00 F6 0E 02 03 8F 20 2A |410:.510...... *|
000006E0: 2A 2A 2A 2A 20 43 55 52 53 4F 52 20 44 4F 57 4E |**** CURSOR DOWN|
000006F0: 20 2A 2A 2A 2A 2A 00 03 0F 0C 03 50 B2 31 3A 8D | *****.....P.1:.|
00000700: 34 31 30 00 1B 0F 16 03 59 B2 59 AA 31 3A 50 B2 |410.....Y.Y.1:P.|
00000710: 30 3A 8B 59 B1 31 38 A7 39 30 30 00 29 0F 20 03 |0:.Y.18.900.). .|
00000720: 8D 34 31 30 3A 89 35 31 30 00 45 0F 2A 03 8F 20 |.410:.510.E.*.. |
00000730: 2A 2A 2A 2A 20 43 55 52 53 4F 52 20 4C 45 46 54 |**** CURSOR LEFT|
00000740: 20 2A 2A 2A 2A 00 52 0F 34 03 50 B2 31 3A 8D 34 | ****.R.4.P.1:.4|
00000750: 31 30 00 69 0F 3E 03 58 B2 58 AB 31 3A 50 B2 30 |10.i.>.X.X.1:P.0|
00000760: 3A 8B 58 B3 31 A7 39 35 30 00 77 0F 48 03 8D 34 |:.X.1.950.w.H..4|
00000770: 31 30 3A 89 35 31 30 00 96 0F 52 03 8F 20 2A 2A |10:.510...R.. **|
00000780: 2A 2A 2A 20 43 55 52 53 4F 52 20 52 49 47 48 54 |*** CURSOR RIGHT|
00000790: 20 2A 2A 2A 2A 2A 00 A3 0F 5C 03 50 B2 31 3A 8D | *****...\.P.1:.|
000007A0: 34 31 30 00 BA 0F 66 03 58 B2 58 AA 31 3A 50 B2 |410...f.X.X.1:P.|
000007B0: 30 3A 8B 58 B1 34 A7 39 38 30 00 C8 0F 70 03 8D |0:.X.4.980...p..|
000007C0: 34 31 30 3A 89 35 31 30 00 E5 0F 7A 03 8F 20 2A |410:.510...z.. *|
000007D0: 2A 2A 2A 2A 20 53 43 52 45 45 4E 20 55 50 20 2A |**** SCREEN UP *|
000007E0: 2A 2A 2A 2A 2A 00 00 10 84 03 4C 32 B2 4C 32 AA |*****.....L2.L2.|
000007F0: 39 3A 8B 4C 32 B1 33 36 A7 4C 32 B2 4C 32 AB 39 |9:.L2.36.L2.L2.9|
00000800: 00 1E 10 8E 03 8D 33 31 30 3A 59 B2 31 30 3A 8D |......310:Y.10:.|
00000810: 31 33 33 30 3A 8D 34 31 30 3A 89 35 31 30 00 3C |1330:.410:.510.<|
00000820: 10 98 03 8F 20 2A 2A 2A 2A 2A 20 53 43 52 45 45 |.... ***** SCREE|
00000830: 4E 20 44 4F 57 4E 20 2A 2A 2A 2A 2A 00 56 10 A2 |N DOWN *****.V..|
00000840: 03 4C 32 B2 4C 32 AB 39 3A 8B 4C 32 B3 30 A7 4C |.L2.L2.9:.L2.0.L|
00000850: 32 B2 4C 32 AA 39 00 74 10 AC 03 8D 33 31 30 3A |2.L2.9.t....310:|
00000860: 59 B2 31 38 3A 8D 31 33 33 30 3A 8D 34 31 30 3A |Y.18:.1330:.410:|
00000870: 89 35 31 30 00 93 10 B6 03 8F 20 2A 2A 2A 2A 2A |.510...... *****|
00000880: 2A 20 53 43 52 45 45 4E 20 4C 45 46 54 20 2A 2A |* SCREEN LEFT **|
00000890: 2A 2A 2A 00 AD 10 C0 03 4C 31 B2 4C 31 AB 32 3A |***.....L1.L1.2:|
000008A0: 8B 4C 31 B3 30 A7 4C 31 B2 4C 31 AA 32 00 CB 10 |.L1.0.L1.L1.2...|
000008B0: CA 03 8D 33 31 30 3A 58 B2 31 3A 8D 31 33 33 30 |...310:X.1:.1330|
000008C0: 3A 8D 34 31 30 3A 20 89 35 31 30 00 EA 10 D4 03 |:.410: .510.....|
000008D0: 8F 20 2A 2A 2A 2A 2A 20 53 43 52 45 45 4E 20 52 |. ***** SCREEN R|
000008E0: 49 47 48 54 20 2A 2A 2A 2A 2A 00 05 11 DE 03 4C |IGHT *****.....L|
000008F0: 31 B2 4C 31 AA 32 3A 8B 4C 31 B1 32 32 A7 4C 31 |1.L1.2:.L1.22.L1|
00000900: B2 4C 31 AB 32 00 22 11 E8 03 8D 33 31 30 3A 58 |.L1.2."....310:X|
00000910: B2 34 3A 8D 31 33 33 30 3A 8D 34 31 30 3A 89 35 |.4:.1330:.410:.5|
00000920: 31 30 00 3F 11 F2 03 8F 20 2A 2A 2A 2A 20 49 4E |10.?.... **** IN|
00000930: 53 45 52 54 20 56 41 4C 55 45 20 2A 2A 2A 2A 00 |SERT VALUE ****.|
00000940: 68 11 FC 03 99 4B 5A 24 3B 22 56 41 4C 55 45 20 |h....KZ$;"VALUE |
00000950: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A | ":|
00000960: 8F 20 31 35 20 53 50 43 00 75 11 06 04 99 4B 56 |. 15 SPC.u....KV|
00000970: 24 3B 22 91 22 00 86 11 10 04 85 42 24 3A 99 22 |$;"."......B$:."|
00000980: 91 22 3B 4B 56 24 00 B7 11 1A 04 99 22 91 91 20 |.";KV$......".. |
00000990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000009A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 8F | ":.|
000009B0: 20 33 30 20 53 50 43 00 D1 11 24 04 46 24 28 58 | 30 SPC...$.F$(X|
000009C0: AA 4C 31 2C 59 AA 4C 32 29 B2 C8 28 42 24 2C 38 |.L1,Y.L2)..(B$,8|
000009D0: 29 00 DF 11 2E 04 8D 34 31 30 3A 89 35 31 30 00 |)......410:.510.|
000009E0: FE 11 38 04 8F 20 2A 2A 2A 2A 20 49 4E 53 45 52 |..8.. **** INSER|
000009F0: 54 20 46 4F 52 4D 55 4C 41 20 2A 2A 2A 2A 00 1E |T FORMULA ****..|
00000A00: 12 42 04 99 4B 5A 24 3B 22 46 4F 52 4D 55 4C 41 |.B..KZ$;"FORMULA|
00000A10: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 2B | ".+|
00000A20: 12 4C 04 99 4B 56 24 3B 22 91 22 00 3C 12 56 04 |.L..KV$;".".<.V.|
00000A30: 85 46 24 3A 99 22 91 22 3B 4B 56 24 00 4C 12 60 |.F$:.".";KV$.L.`|
00000A40: 04 53 24 28 4C 41 53 54 29 B2 46 24 00 58 12 6A |.S$(LAST).F$.X.j|
00000A50: 04 47 B2 C3 28 46 24 29 00 60 12 74 04 46 B2 31 |.G..(F$).`.t.F.1|
00000A60: 00 86 12 7E 04 8B CA 28 46 24 2C 46 2C 31 29 B3 |...~...(F$,F,1).|
00000A70: 22 41 22 B0 CA 28 46 24 2C 46 2C 31 29 B1 22 5A |"A"..(F$,F,1)."Z|
00000A80: 22 A7 31 32 33 30 00 99 12 88 04 4A 24 B2 CA 28 |".1230.....J$..(|
00000A90: 46 24 2C 46 AA 31 2C 31 29 00 B4 12 92 04 8B 4A |F$,F.1,1)......J|
00000AA0: 24 B1 B2 22 41 22 AF 4A 24 B3 B2 22 5A 22 A7 46 |$.."A".J$.."Z".F|
00000AB0: B2 46 AA 34 00 C7 12 9C 04 5A 24 B2 CA 28 46 24 |.F.4.....Z$..(F$|
00000AC0: 2C 46 AA 32 2C 31 29 00 E1 12 A6 04 8B 5A 24 B1 |,F.2,1)......Z$.|
00000AD0: B2 22 30 22 AF 5A 24 B3 B2 22 39 22 A7 31 37 37 |."0".Z$.."9".177|
00000AE0: 30 00 05 13 B0 04 47 24 B2 CA 28 46 24 2C 46 AA |0.....G$..(F$,F.|
00000AF0: 31 2C 31 29 AA 22 29 29 22 AA CA 28 46 24 2C 46 |1,1)."))"..(F$,F|
00000B00: AA 32 2C 47 29 00 3A 13 BA 04 46 24 B2 C8 28 46 |.2,G).:...F$..(F|
00000B10: 24 2C 46 AB 31 29 AA 22 56 41 4C 28 46 24 28 22 |$,F.1)."VAL(F$("|
00000B20: AA C4 28 C6 28 CA 28 46 24 2C 46 2C 31 29 29 AB |..(.(.(F$,F,1)).|
00000B30: 36 34 29 AA 22 2C 22 AA 47 24 00 44 13 C4 04 46 |64).",".G$.D...F|
00000B40: B2 46 AA 35 00 60 13 CE 04 47 B2 C3 28 46 24 29 |.F.5.`...G..(F$)|
00000B50: 3A 46 B2 46 AA 31 3A 8B 46 B3 47 A7 31 31 35 30 |:F.F.1:.F.G.1150|
00000B60: 00 75 13 D8 04 46 24 B2 C9 28 46 24 2C C3 28 46 |.u...F$..(F$,.(F|
00000B70: 24 29 AB 34 29 00 84 13 E2 04 81 46 B2 31 A4 C3 |$).4)......F.1..|
00000B80: 28 46 24 29 00 9D 13 EC 04 8B CA 28 46 24 2C 46 |(F$).......(F$,F|
00000B90: 2C 31 29 B3 B1 22 3D 22 A7 31 32 39 30 00 C8 13 |,1).."=".1290...|
00000BA0: F6 04 46 24 B2 C8 28 46 24 2C 46 29 AA 22 53 54 |..F$..(F$,F)."ST|
00000BB0: 52 24 28 22 AA CA 28 46 24 2C 46 AA 31 2C C3 28 |R$("..(F$,F.1,.(|
00000BC0: 46 24 29 29 AA 22 29 22 00 E7 13 00 05 46 24 B2 |F$)).")".....F$.|
00000BD0: C8 28 46 24 2C 46 AB 32 29 AA CA 28 46 24 2C 46 |.(F$,F.2)..(F$,F|
00000BE0: 2C C3 28 46 24 29 29 00 ED 13 0A 05 82 00 05 14 |,.(F$)).........|
00000BF0: 14 05 8B C3 28 46 24 29 B1 37 39 A7 45 B2 31 3A |....(F$).79.E.1:|
00000C00: 89 20 35 31 30 00 21 14 1E 05 4D 24 28 4C 41 53 |. 510.!...M$(LAS|
00000C10: 54 29 B2 46 24 3A 4C 41 53 54 B2 4C 41 53 54 AA |T).F$:LAST.LAST.|
00000C20: 31 00 2B 14 28 05 89 31 34 31 30 00 46 14 32 05 |1.+.(..1410.F.2.|
00000C30: 8F 20 2A 2A 2A 2A 2A 20 41 47 47 49 4F 52 4E 41 |. ***** AGGIORNA|
00000C40: 20 2A 2A 2A 2A 2A 00 5B 14 3C 05 81 59 31 B2 31 | *****.[.<..Y1.1|
00000C50: A4 31 38 3A 81 58 31 B2 31 A4 34 00 72 14 46 05 |.18:.X1.1.4.r.F.|
00000C60: 53 24 B2 46 24 28 58 31 AA 4C 31 2C 59 31 AA 4C |S$.F$(X1.L1,Y1.L|
00000C70: 32 29 00 82 14 50 05 8B 53 24 B2 22 22 A7 31 34 |2)...P..S$."".14|
00000C80: 30 30 00 8B 14 5A 05 99 22 13 22 00 9D 14 64 05 |00...Z.."."...d.|
00000C90: 81 49 B2 31 A4 59 31 3A 99 3A 82 3A 99 00 B7 14 |.I.1.Y1:.:.:....|
00000CA0: 6E 05 99 A3 39 AC 28 58 31 AB 31 29 AA 34 29 3B |n...9.(X1.1).4);|
00000CB0: C8 28 53 24 2C 38 29 00 C5 14 78 05 82 58 31 3A |.(S$,8)...x..X1:|
00000CC0: 82 59 31 3A 8E 00 DF 14 82 05 8F 20 2A 2A 2A 2A |.Y1:....... ****|
00000CD0: 2A 20 43 41 4C 43 4F 4C 41 20 2A 2A 2A 2A 2A 00 |* CALCOLA *****.|
00000CE0: EF 14 8C 05 81 46 B2 31 A4 4C 41 53 54 AB 31 00 |.....F.1.LAST.1.|
00000CF0: 02 15 96 05 8B 4D 24 28 46 29 B2 22 22 A7 31 35 |.....M$(F)."".15|
00000D00: 36 30 00 0C 15 A0 05 99 22 93 11 22 00 1C 15 AA |60......".."....|
00000D10: 05 99 22 1F 22 3B 4D 24 28 46 29 3B 00 38 15 B4 |..".";M$(F);.8..|
00000D20: 05 8B C5 28 CA 28 4D 24 28 46 29 2C 35 2C 32 29 |...(.(M$(F),5,2)|
00000D30: 29 B1 39 A7 52 52 B2 31 00 77 15 BE 05 52 31 B2 |).9.RR.1.w...R1.|
00000D40: C5 28 CA 28 4D 24 28 46 29 2C 35 2C 32 29 29 3A |.(.(M$(F),5,2)):|
00000D50: 52 32 B2 C5 28 CA 28 4D 24 28 46 29 2C 37 AA 52 |R2..(.(M$(F),7.R|
00000D60: 52 2C 32 29 29 3A 52 52 B2 30 3A 46 24 28 52 31 |R,2)):RR.0:F$(R1|
00000D70: 2C 52 32 29 B2 22 22 00 83 15 C8 05 97 36 33 31 |,R2).""......631|
00000D80: 2C 31 33 00 B8 15 D2 05 97 36 33 32 2C 37 31 3A |,13......632,71:|
00000D90: 97 36 33 33 2C 31 31 31 3A 97 36 33 34 2C 34 39 |.633,111:.634,49|
00000DA0: 3A 97 36 33 35 2C 35 33 3A 97 36 33 36 2C 35 31 |:.635,53:.636,51|
00000DB0: 3A 97 36 33 37 2C 34 38 00 C4 15 DC 05 97 36 33 |:.637,48......63|
00000DC0: 38 2C 31 33 00 D0 15 E6 05 97 31 39 38 2C 31 30 |8,13......198,10|
00000DD0: 00 DE 15 F0 05 99 22 91 91 91 22 3B 3A 80 00 F5 |......"...";:...|
00000DE0: 15 FA 05 8B 46 24 28 52 31 2C 52 32 29 B2 22 22 |....F$(R1,R2).""|
00000DF0: A7 31 35 37 30 00 14 16 04 06 8B CA 28 46 24 28 |.1570.......(F$(|
00000E00: 52 31 2C 52 32 29 2C 31 2C 31 29 B2 22 2D 22 A7 |R1,R2),1,1)."-".|
00000E10: 31 35 36 30 00 3E 16 0E 06 46 24 28 52 31 2C 52 |1560.>...F$(R1,R|
00000E20: 32 29 B2 C9 28 46 24 28 52 31 2C 52 32 29 2C C3 |2)..(F$(R1,R2),.|
00000E30: 28 46 24 28 52 31 2C 52 32 29 29 AB 31 29 00 45 |(F$(R1,R2)).1).E|
00000E40: 16 18 06 82 46 00 5E 16 22 06 99 22 9E 22 3A 8D |....F.^."..".":.|
00000E50: 33 31 30 3A 8D 31 33 33 30 3A 8D 34 31 30 00 67 |310:.1330:.410.g|
00000E60: 16 2C 06 89 35 31 30 00 84 16 36 06 8F 20 2A 2A |.,..510...6.. **|
00000E70: 2A 2A 20 53 48 4F 57 20 46 4F 52 4D 55 4C 41 20 |** SHOW FORMULA |
00000E80: 2A 2A 2A 2A 00 94 16 40 06 81 57 B2 31 A4 4C 41 |****...@..W.1.LA|
00000E90: 53 54 AB 31 00 AC 16 4A 06 8B C5 28 CA 28 46 24 |ST.1...J...(.(F$|
00000EA0: 2C 35 2C 32 29 29 B3 39 A7 5A B2 31 00 DF 16 54 |,5,2)).9.Z.1...T|
00000EB0: 06 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.." |
00000EC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000ED0: 20 20 20 20 20 20 20 20 22 3A 99 22 91 22 3B 00 | ":.".";.|
00000EE0: 15 17 5E 06 8B C5 28 CA 28 4D 24 28 57 29 2C 35 |..^...(.(M$(W),5|
00000EF0: 2C 32 29 29 B2 58 AA 4C 31 AF C5 28 CA 28 4D 24 |,2)).X.L1..(.(M$|
00000F00: 28 57 29 2C 38 AB 5A 2C 32 29 29 B2 59 AA 4C 32 |(W),8.Z,2)).Y.L2|
00000F10: A7 31 37 38 30 00 1D 17 68 06 48 B2 30 00 23 17 |.1780...h.H.0.#.|
00000F20: 72 06 82 00 49 17 7C 06 8B 45 B2 31 A7 99 22 46 |r...I.|..E.1.."F|
00000F30: 4F 52 4D 55 4C 41 20 54 4F 4F 20 43 4F 4D 50 4C |ORMULA TOO COMPL|
00000F40: 45 58 22 3A 89 31 36 38 30 00 7F 17 86 06 8B 47 |EX":.1680......G|
00000F50: B2 30 20 A7 20 99 22 20 20 20 20 20 20 20 20 20 |.0 . ." |
00000F60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000F70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00000F80: 8B 17 90 06 47 B2 30 3A 45 B2 30 00 91 17 9A 06 |....G.0:E.0.....|
00000F90: 8E 00 AF 17 A4 06 8F 20 2A 2A 2A 2A 20 45 52 41 |....... **** ERA|
00000FA0: 53 45 20 46 4F 52 4D 55 4C 41 20 2A 2A 2A 2A 00 |SE FORMULA ****.|
00000FB0: BF 17 AE 06 81 57 B2 31 A4 4C 41 53 54 AB 31 00 |.....W.1.LAST.1.|
00000FC0: D7 17 B8 06 8B C5 28 CA 28 46 24 2C 35 2C 32 29 |......(.(F$,5,2)|
00000FD0: 29 B3 39 A7 5A B2 31 00 0E 18 C2 06 8B C5 28 CA |).9.Z.1.......(.|
00000FE0: 28 4D 24 28 57 29 2C 35 2C 32 29 29 B2 58 AA 4C |(M$(W),5,2)).X.L|
00000FF0: 31 AF 20 C5 28 CA 28 4D 24 28 57 29 2C 38 AB 5A |1. .(.(M$(W),8.Z|
00001000: 2C 32 29 29 B2 59 AA 4C 32 A7 31 37 35 30 00 19 |,2)).Y.L2.1750..|
00001010: 18 CC 06 82 3A 89 35 31 30 00 65 18 D6 06 48 48 |....:.510.e...HH|
00001020: B2 30 3A 53 24 28 57 29 B2 22 22 3A 4D 24 28 57 |.0:S$(W)."":M$(W|
00001030: 29 B2 22 22 3A 99 4B 24 3B 22 20 20 20 20 20 20 |)."":.K$;" |
00001040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001060: 20 20 20 20 22 00 6E 18 E0 06 89 35 31 30 00 98 | ".n....510..|
00001070: 18 EA 06 47 24 B2 CA 28 46 24 2C 46 AA 31 2C 32 |...G$..(F$,F.1,2|
00001080: 29 AA 22 29 29 22 AA CA 28 46 24 2C 46 AA 33 2C |)."))"..(F$,F.3,|
00001090: 47 29 3A 89 31 32 31 30 00 A7 18 F4 06 99 53 24 |G):.1210......S$|
000010A0: 28 57 29 3A 47 B2 31 00 B1 18 FE 06 89 31 36 34 |(W):G.1......164|
000010B0: 30 00 D6 18 03 07 8F 2A 2A 2A 28 43 29 20 47 4F |0......***(C) GO|
000010C0: 54 4F 2D 4A 2E 4C 2E 20 44 45 20 50 52 41 54 2A |TO-J.L. DE PRAT*|
000010D0: 2A 2A 2A 2A 2A 2A 00 FA 18 08 07 8F 20 2A 2A 2A |******...... ***|
000010E0: 2A 2A 2A 2A 47 4F 54 4F 2A 2A 2A 2A 2A 2A 2A 2A |****GOTO********|
000010F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 1F 19 12 07 99 |**********......|
00001100: 4B 5A 24 20 20 20 20 20 3B 22 47 4F 54 4F 20 20 |KZ$ ;"GOTO |
00001110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00001120: 2C 19 1C 07 99 4B 56 24 3B 22 91 22 00 3F 19 26 |,....KV$;".".?.&|
00001130: 07 85 20 47 54 24 3A 99 22 91 22 3B 4B 56 24 00 |.. GT$:.".";KV$.|
00001140: 67 19 30 07 99 22 91 91 20 20 20 20 20 20 20 20 |g.0..".. |
00001150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001160: 20 20 20 20 20 20 22 00 83 19 3A 07 41 B2 C3 28 | "...:.A..(|
00001170: 47 54 24 29 3A 8B 20 41 B1 33 B0 41 B3 32 A7 31 |GT$):. A.3.A.2.1|
00001180: 38 30 30 00 9D 19 44 07 58 B2 C6 28 C8 28 47 54 |800...D.X..(.(GT|
00001190: 24 2C 31 29 29 AB 36 34 3A 4C 31 B2 30 00 BB 19 |$,1)).64:L1.0...|
000011A0: 49 07 8B 58 B1 34 20 A7 4C 31 B2 4C 31 AA 34 3A |I..X.4 .L1.L1.4:|
000011B0: 58 B2 58 AB 34 3A 89 31 38 36 35 00 D4 19 4E 07 |X.X.4:.1865...N.|
000011C0: 59 B2 C5 28 C9 28 47 54 24 2C 41 AB 31 29 29 3A |Y..(.(GT$,A.1)):|
000011D0: 4C 32 B2 30 00 F5 19 53 07 8B 20 59 B1 31 38 A7 |L2.0...S.. Y.18.|
000011E0: 4C 32 B2 4C 32 AA 31 38 3A 59 B2 59 AB 31 38 3A |L2.L2.18:Y.Y.18:|
000011F0: 89 31 38 37 35 00 0F 1A 58 07 8D 33 31 30 3A 8D |.1875...X..310:.|
00001200: 31 33 33 30 3A 8D 34 31 30 3A 20 89 35 31 30 00 |1330:.410: .510.|
00001210: 00 00 FF |... |
..&.... *****EASY CALC ***************.T
.... F$(26,54):X.1:Y.1:P.0:.53280,6:.532
81,6.|....".. ****** EASY CALC ***
***"......".LISTA DE COMANDOS:"......"..
T. CURSOR:. MUEVEN EL CURSOR"...(..".F1.
(ARR),.F3.(ABJ),.F5.(IZQ),.F7.(DRC): MUE
VEN PANTALLA"...2.."..V:. VALOR O TEXTO"
.?.<..".F:. FORMULA (EJEMPLO: B4=B3+B2).
`.F..".C:. CALCULA TODA LA HOJA"...P..".
M:. MUESTRA FORMULA DE LA CASILLA"...Z..
".B:. BORRA FORMULA"...D..".G:. GOTO".K.
N.. PRINT".L:.LOAD"...X.. PRINT".S:.SAVE
"......".. PULSE UNA TECLA"....
..A$:.A$."".135.1....S$(50),M$(50):LAST.
1.L...KV$."
":. 39 SPC.....KZ$."..........
............."......310. ....410..."..51
0.K.,.. **** SUBROUTINE STAMPA ****...6.
."..";.12);"*** EASYCALC ***.":..3)...@.
. I.1.3...J...4);G(I.64.L1);.4);.0.T..:.
.4);G(I.64.L1):..;.^.."." ;.G.H..I.1.18.
M.R.."*.";I.L2;".";.3.C(D(I.L2)));"G".T.
|..;.Z................ ******* CURSOR **
****.....S$.F$(X.L1,Y.L2):.".".....C$.""
......I.C(S$).1.8:C$.C$." ":....B.C$.H(S
$.C$,8)...L.. I.1 . Y:.:.I:....V.. .9.(X
.1).4);.'.... P.1. .C$;.?.... P.0. .".";
C$;".";.E.....E.... ***** INPUT COMANDI
*****.O....".";.Y....KZ$;.....G.1...&..1
660. .0.. A$:. A$."".560...:.. IFA$="L"T
HEN2000:REM LOAD...D.. IFA$="W"THENGOSUB
3000:REM SAVE...N..A$."M"..1600:. SHOW F
....X..A$.".".730:. CURSOR UP.;.B..A$.".
".770:. CURSOR DOWN.Y.L..A$.".".810:. CU
RSOR LEFT.X.V..A$.".".850:. CURSOR RIGHT
......A$.".".900:. SCREEN UP......A$."."
.920:. SCREEN DOWN.P....A$.".".950:. SCR
EEN LEFT......A$.".".980:. SCREEN RIGHT.
.....A$."V".1010:. INST. VALUE./....A$."
F".1080:. INST. FORMULA.J....A$."C".1410
:. CALCOLA.K.F..A$."B".1710:. ERASE FORM
ULA...K..A$."G".1800:. GOTO...P..530...Z
.. **** CURSOR UP ****.....P.1:.410.J...
Y.Y.1:P.0:.Y.1.920.X....410:.510...... *
**** CURSOR DOWN *****.....P.1:.410.....
Y.Y.1:P.0:.Y.18.900.). ..410:.510.E.*..
**** CURSOR LEFT ****.R.4.P.1:.410.I.>.X
.X.1:P.0:.X.1.950.W.H..410:.510...R.. **
*** CURSOR RIGHT *****...\.P.1:.410...F.
X.X.1:P.0:.X.4.980.H.P..410:.510...Z.. *
**** SCREEN UP ******.....L2.L2.9:.L2.36
.L2.L2.9......310:Y.10:.1330:.410:.510.<
.... ***** SCREEN DOWN *****.V...L2.L2.9
:.L2.0.L2.L2.9.T....310:Y.18:.1330:.410:
.510...... ****** SCREEN LEFT *****.....
L1.L1.2:.L1.0.L1.L1.2.K.J..310:X.1:.1330
:.410: .510...T.. ***** SCREEN RIGHT ***
**.....L1.L1.2:.L1.22.L1.L1.2."....310:X
.4:.1330:.410:.510.?.... **** INSERT VAL
UE ****.H....KZ$;"VALUE ":
. 15 SPC.U....KV$;"."......B$:.".";KV$..
....".. ":.
30 SPC.Q.$.F$(X.L1,Y.L2).H(B$,8)......4
10:.510...8.. **** INSERT FORMULA ****..
.B..KZ$;"FORMULA ".+.L..KV$;
".".<.V..F$:.".";KV$.L.`.S$(LAST).F$.X.J
.G.C(F$).`.T.F.1...~..J(F$,F,1)."A".J(F$
,F,1)."Z".1230.....J$.J(F$,F.1,1)......J
$.."A".J$.."Z".F.F.4.G...Z$.J(F$,F.2,1).
.....Z$.."0".Z$.."9".1770.....G$.J(F$,F.
1,1)."))".J(F$,F.2,G).:...F$.H(F$,F.1)."
VAL(F$(".D(F(J(F$,F,1)).64).",".G$.D.D.F
.F.5.`.N.G.C(F$):F.F.1:.F.G.1150.U.X.F$.
I(F$,C(F$).4)......F.1.C(F$)......J(F$,F
,1).."=".1290.H...F$.H(F$,F)."STR$(".J(F
$,F.1,C(F$)).")".....F$.H(F$,F.2).J(F$,F
,C(F$))............C(F$).79.E.1:. 510.!.
..M$(LAST).F$:LAST.LAST.1.+.(..1410.F.2.
. ***** AGGIORNA *****.[.<..Y1.1.18:.X1.
1.4.R.F.S$.F$(X1.L1,Y1.L2)...P..S$."".14
00...Z.."."...D..I.1.Y1:.:.:....N...9.(X
1.1).4);H(S$,8).E.X..X1:.Y1:....... ****
* CALCOLA *****......F.1.LAST.1......M$(
F)."".1560... ..".."......".";M$(F);.8..
..E(J(M$(F),5,2)).9.RR.1.W...R1.E(J(M$(F
),5,2)):R2.E(J(M$(F),7.RR,2)):RR.0:F$(R1
,R2).""...H..631,13...R..632,71:.633,111
:.634,49:.635,53:.636,51:.637,48.D....63
8,13.P....198,10......"...";:.......F$(R
1,R2)."".1570......J(F$(R1,R2),1,1)."-".
1560.>...F$(R1,R2).I(F$(R1,R2),C(F$(R1,R
2)).1).E....F.^."..".":.310:.1330:.410.G
.,..510...6.. **** SHOW FORMULA ****...@
..W.1.LAST.1...J..E(J(F$,5,2)).9.Z.1...T
.."
":.".";...^..E(J(M$(W),5,2)).X.L1.E(J(M$
(W),8.Z,2)).Y.L2.1780...H.H.0.#.R...I.|.
.E.1.."FORMULA TOO COMPLEX":.1680.....G
.0 . ."
".....G.0:E.0............ **** ERA
SE FORMULA ****......W.1.LAST.1.W....E(J
(F$,5,2)).9.Z.1...B..E(J(M$(W),5,2)).X.L
1. E(J(M$(W),8.Z,2)).Y.L2.1750...L..:.51
0.E.V.HH.0:S$(W)."":M$(W)."":.K$;"
".N.
...510.....G$.J(F$,F.1,2)."))".J(F$,F.3,
G):.1210......S$(W):G.1......1640.V....*
**(C) GOTO-J.L. DE PRAT*******...... ***
****GOTO******************......KZ$
;"GOTO ".,....KV$;".".?.&
.. GT$:.".";KV$.G.0.."..
"...:.A.C(GT$):. A.3.A.2.1
800...D.X.F(H(GT$,1)).64:L1.0...I..X.4 .
L1.L1.4:X.X.4:.1865.T.N.Y.E(I(GT$,A.1)):
L2.0...S.. Y.18.L2.L2.18:Y.Y.18:.1875...
X..310:.1330:.410: .510....
> CLICK IMAGE PREVIEW FOR FULL MODAL