AGENDA TELEFONIC
FILE INFORMATION
FILENAME(S): AGENDA TELEFONIC
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-10-19 23:07:07
APPEARS ON: 1 disk(s)
FILE HASH
9dc88fbb63653c3caf072f29218900c9f06c970deca6b6e723c45fa64a42516d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AGENDA | AGENDA TELEFONIC | PRG | Bugjam - Argentina | 16 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 16 08 64 00 8F 20 4D 41 52 43 4F 20 56 45 |....d.. MARCO VE| 00000010: 52 4F 4C 49 4E 49 00 28 08 6E 00 9C 3A 99 22 93 |ROLINI.(.n..:.".| 00000020: 22 3A 50 4F B2 36 33 31 00 47 08 78 00 42 B2 37 |":PO.631.G.x.B.7| 00000030: 3A 50 31 B2 35 33 32 38 30 3A 97 50 31 2C 42 3A |:P1.53280:.P1,B:| 00000040: 97 50 31 AA 31 2C 42 00 77 08 82 00 99 22 12 2A |.P1.1,B.w....".*| 00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000070: 2A 2A 2A 2A 2A 94 22 00 AC 08 8C 00 99 22 12 2A |*****."......".*| 00000080: 94 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000A0: 20 20 20 20 20 20 20 20 12 2A 94 22 00 DE 08 96 | .*."....| 000000B0: 00 99 22 12 2A 94 20 41 47 45 4E 44 41 20 54 45 |..".*. AGENDA TE| 000000C0: 4C 45 46 4F 4E 49 43 41 20 50 45 52 20 43 4F 4D |LEFONICA PER COM| 000000D0: 4D 4F 44 4F 52 45 20 36 34 20 12 2A 94 22 00 02 |MODORE 64 .*."..| 000000E0: 09 22 01 99 A3 31 30 29 22 11 12 28 50 52 45 4D |."...10)"..(PREM| 000000F0: 49 20 49 4C 20 54 41 53 54 4F 29 92 22 3A 8D 37 |I IL TASTO).":.7| 00000100: 35 30 00 2E 09 2C 01 99 22 93 22 A3 35 29 22 12 |50...,..".".5)".| 00000110: 50 52 45 4D 49 20 49 4C 20 54 41 53 54 4F 20 50 |PREMI IL TASTO P| 00000120: 45 52 20 4C 53 20 53 43 45 4C 54 41 92 22 00 37 |ER LS SCELTA.".7| 00000130: 09 36 01 99 22 11 11 00 6C 09 40 01 99 22 11 5F |.6.."...l.@.."._| 00000140: 3D 50 45 52 20 4D 45 4D 4F 52 49 5A 5A 41 52 45 |=PER MEMORIZZARE| 00000150: 20 4E 55 4F 56 49 20 49 4E 44 49 52 49 5A 5A 49 | NUOVI INDIRIZZI| 00000160: 20 49 4E 20 4D 45 4D 4F 52 49 41 22 00 97 09 4A | IN MEMORIA"...J| 00000170: 01 99 22 11 5E 3D 50 45 52 20 52 49 43 45 52 43 |..".^=PER RICERC| 00000180: 41 20 49 4E 44 49 52 49 5A 5A 49 20 49 4E 20 4D |A INDIRIZZI IN M| 00000190: 45 4D 4F 52 49 41 22 00 B6 09 54 01 99 A3 32 31 |EMORIA"...T...21| 000001A0: 29 22 11 11 12 43 4F 53 41 20 53 43 45 47 4C 49 |)"...COSA SCEGLI| 000001B0: 20 20 20 3F 92 22 00 BF 09 5E 01 8D 37 35 30 00 | ?."...^..750.| 000001C0: DC 09 68 01 8B 51 B2 36 34 A7 99 22 93 4F 4B 20 |..h..Q.64..".OK | 000001D0: 2D 20 43 49 41 4F 21 21 21 22 3A 80 00 EA 09 72 |- CIAO!!!":....r| 000001E0: 01 8B 51 B2 39 34 A7 34 30 30 00 F8 09 7C 01 8B |..Q.94.400...|..| 000001F0: 51 B2 39 35 A7 35 34 30 00 01 0A 86 01 89 33 35 |Q.95.540......35| 00000200: 30 00 24 0A 90 01 8F 20 52 49 43 45 52 43 41 20 |0.$.... RICERCA | 00000210: 49 4E 44 49 52 49 5A 5A 49 20 49 4E 20 4D 45 4D |INDIRIZZI IN MEM| 00000220: 4F 52 49 41 00 56 0A 9A 01 57 24 B2 22 22 3A 99 |ORIA.V...W$."":.| 00000230: 22 93 22 A6 35 29 22 12 52 49 43 45 52 43 41 20 |".".5)".RICERCA | 00000240: 49 4E 44 49 52 49 5A 5A 49 20 49 4E 20 4D 45 4D |INDIRIZZI IN MEM| 00000250: 4F 52 49 41 92 22 00 6E 0A A4 01 99 3A 81 4B B2 |ORIA.".n....:.K.| 00000260: 31 A4 34 30 3A 99 22 B9 22 3B 3A 82 3A 99 00 7A |1.40:.".";:.:..z| 00000270: 0A AE 01 99 A3 31 30 29 22 11 00 84 0A B8 01 8C |.....10)".......| 00000280: 3A 87 4E 4E 00 AD 0A C2 01 99 22 11 11 1D 1D 1D |:.NN......".....| 00000290: 1D 28 50 55 4F 49 20 42 41 54 54 45 52 45 20 41 |.(PUOI BATTERE A| 000002A0: 4E 43 48 45 20 53 4F 4C 4F 20 4C 41 22 00 D5 0A |NCHE SOLO LA"...| 000002B0: CC 01 99 22 11 1D 1D 1D 1D 50 41 52 54 45 20 49 |...".....PARTE I| 000002C0: 4E 49 5A 49 41 4C 45 20 44 45 4C 20 43 4F 47 4E |NIZIALE DEL COGN| 000002D0: 4F 4D 45 29 22 00 11 0B D6 01 99 22 11 11 11 1D |OME)"......"....| 000002E0: 1D 12 51 55 41 4C 49 20 53 4F 4E 4F 20 49 4C 20 |..QUALI SONO IL | 000002F0: 43 4F 47 4E 4F 4D 45 20 45 20 49 4C 20 4E 4F 4D |COGNOME E IL NOM| 00000300: 45 20 3F 22 3A 85 22 11 1D 1D 1D 1D 1D 22 3B 4E |E ?":."......";N| 00000310: 24 00 21 0B E0 01 8B C6 28 4E 24 29 B2 36 34 A7 |$.!.....(N$).64.| 00000320: 8A 00 2A 0B EA 01 99 22 93 22 00 40 0B F4 01 87 |..*....".".@....| 00000330: 4E 3A 87 57 24 3A 8B 4E B2 4E 4E A7 46 46 B2 31 |N:.W$:.N.NN.FF.1| 00000340: 00 59 0B FE 01 8B 4E 24 B2 C8 28 57 24 2C C3 28 |.Y....N$..(W$,.(| 00000350: 4E 24 29 29 A7 8D 37 38 30 00 77 0B 08 02 8B 46 |N$))..780.w....F| 00000360: 46 B2 31 A7 99 22 93 22 3A 8D 38 33 30 3A 46 46 |F.1..".":.830:FF| 00000370: B2 30 3A 89 34 30 30 00 80 0B 12 02 89 35 30 30 |.0:.400......500| 00000380: 00 A5 0B 1C 02 8F 20 4D 45 4D 4F 52 49 5A 5A 41 |...... MEMORIZZA| 00000390: 5A 49 4F 4E 45 20 4E 55 4F 56 49 20 49 4E 44 49 |ZIONE NUOVI INDI| 000003A0: 52 49 5A 5A 49 00 DE 0B 26 02 52 52 24 B2 22 22 |RIZZI...&.RR$.""| 000003B0: 3A 56 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 |:V$." | 000003C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 2C | ".,| 000003E0: 0C 30 02 56 24 28 31 29 B2 22 12 43 4F 47 4E 4F |.0.V$(1).".COGNO| 000003F0: 4D 45 20 45 20 4E 4F 4D 45 3A 92 22 3A 56 24 28 |ME E NOME:.":V$(| 00000400: 32 29 B2 22 12 49 4E 44 49 52 49 5A 5A 4F 20 3A |2).".INDIRIZZO :| 00000410: 92 22 3A 56 24 28 33 29 B2 22 12 4E 55 4D 45 52 |.":V$(3).".NUMER| 00000420: 4F 20 54 45 4C 45 46 4F 4E 4F 92 22 00 44 0C 3A |O TELEFONO.".D.:| 00000430: 02 81 4B 4A B2 31 A4 33 3A 99 22 93 22 3A 55 B2 |..KJ.1.3:.".":U.| 00000440: B8 28 30 29 00 7C 0C 44 02 8B 55 B3 30 A7 99 22 |.(0).|.D..U.0.."| 00000450: 12 4D 45 4D 4F 52 49 41 20 4C 49 42 45 52 41 3D |.MEMORIA LIBERA=| 00000460: 22 36 35 35 33 36 AA 55 22 92 40 3D 50 45 52 20 |"65536.U".@=PER | 00000470: 46 49 4E 49 52 45 22 3A 89 36 30 30 00 A3 0C 4E |FINIRE":.600...N| 00000480: 02 99 22 12 4D 45 4D 4F 52 49 41 4C 49 42 45 52 |..".MEMORIALIBER| 00000490: 41 3D 22 55 22 92 40 3D 50 45 52 20 46 49 4E 49 |A="U".@=PER FINI| 000004A0: 52 45 22 00 B7 0C 58 02 81 4B B2 31 A4 34 30 3A |RE"...X..K.1.40:| 000004B0: 99 22 B9 22 3B 3A 82 00 CA 0C 62 02 99 22 13 11 |.".";:....b.."..| 000004C0: 11 11 11 22 56 24 28 4B 4A 29 00 DB 0C 6C 02 99 |..."V$(KJ)...l..| 000004D0: 22 13 11 11 11 11 11 11 11 A4 22 00 EE 0C 76 02 |"........."...v.| 000004E0: A1 41 24 3A 8B 41 24 B2 22 22 A7 36 33 30 00 FC |.A$:.A$."".630..| 000004F0: 0C 80 02 8B 41 24 B2 22 40 22 A7 8A 00 2D 0D 8A |....A$."@"...-..| 00000500: 02 8B 41 24 B2 C7 28 31 33 29 A7 52 52 24 B2 52 |..A$..(13).RR$.R| 00000510: 52 24 AA C8 28 52 24 AA 56 24 2C 32 30 29 3A 52 |R$..(R$.V$,20):R| 00000520: 24 B2 22 22 3A 82 4B 4A 3A 89 36 39 30 00 48 0D |$."":.KJ:.690.H.| 00000530: 94 02 52 24 B2 52 24 AA 41 24 3A 8B C3 28 52 24 |..R$.R$.A$:..(R$| 00000540: 29 B3 32 30 A7 36 38 30 00 5A 0D 9E 02 52 24 B2 |).20.680.Z...R$.| 00000550: C7 28 31 33 29 3A 89 36 35 30 00 74 0D A8 02 99 |.(13):.650.t....| 00000560: 22 13 11 11 11 11 11 11 11 22 52 24 22 A4 22 3A |"........"R$".":| 00000570: 89 36 33 30 00 84 0D B2 02 8C 3A 87 4E 3A 4E B2 |.630......:.N:N.| 00000580: 4E AA 31 30 00 A3 0D BC 02 99 22 93 22 3A 99 22 |N.10......".":."| 00000590: 13 11 11 11 22 4E 22 44 41 54 41 22 4E 22 2C 22 |...."N"DATA"N","| 000005A0: 52 52 24 00 B5 0D C6 02 99 22 31 30 30 30 20 44 |RR$......"1000 D| 000005B0: 41 54 41 22 4E 00 C5 0D D0 02 99 22 47 4F 54 4F |ATA"N......"GOTO| 000005C0: 35 34 30 13 22 00 E2 0D DA 02 97 31 39 38 2C 33 |540."......198,3| 000005D0: 3A 81 4B B2 30 A4 32 3A 97 50 4F AA 4B 2C 31 33 |:.K.0.2:.PO.K,13| 000005E0: 3A 82 00 E8 0D E4 02 80 00 FB 0D EE 02 8F 20 49 |:............. I| 000005F0: 4E 47 52 45 53 53 4F 20 47 45 54 00 0E 0E F8 02 |NGRESSO GET.....| 00000600: A1 51 24 3A 8B 51 24 B2 22 22 A7 37 36 30 00 1C |.Q$:.Q$."".760..| 00000610: 0E 02 03 51 B2 C6 28 51 24 29 3A 8E 00 34 0E 0C |...Q..(Q$):..4..| 00000620: 03 8F 20 52 4F 55 54 49 4E 45 20 44 49 20 53 54 |.. ROUTINE DI ST| 00000630: 41 4D 50 41 00 5A 0E 16 03 99 22 11 11 12 43 4F |AMPA.Z...."...CO| 00000640: 47 4E 4F 4D 45 20 45 4E 4F 4D 45 20 3D 20 92 22 |GNOME ENOME = ."| 00000650: CA 28 57 24 2C 31 2C 32 30 29 00 7D 0E 20 03 99 |.(W$,1,20).}. ..| 00000660: 22 11 11 12 49 4E 44 49 52 49 5A 5A 4F 20 3D 20 |"...INDIRIZZO = | 00000670: 92 22 CA 28 57 24 2C 32 31 2C 32 30 29 00 A3 0E |.".(W$,21,20)...| 00000680: 2A 03 99 22 11 11 12 4E 55 4D 45 52 4F 20 54 45 |*.."...NUMERO TE| 00000690: 4C 45 46 4F 4E 4F 20 3D 20 92 22 CA 28 57 24 2C |LEFONO = .".(W$,| 000006A0: 34 31 29 00 B7 0E 34 03 81 4B B2 31 A4 34 30 3A |41)...4..K.1.40:| 000006B0: 99 22 B9 22 3B 3A 82 00 E2 0E 3E 03 8B 46 46 B2 |.".";:....>..FF.| 000006C0: 31 A7 99 22 11 11 12 46 49 4E 45 20 44 45 49 20 |1.."...FINE DEI | 000006D0: 44 41 54 49 20 4D 45 4D 4F 52 49 5A 5A 41 54 49 |DATI MEMORIZZATI| 000006E0: 92 22 00 0F 0F 48 03 99 22 11 11 28 50 45 52 20 |."...H.."..(PER | 000006F0: 53 45 47 55 49 54 41 52 45 20 50 52 45 4D 49 20 |SEGUITARE PREMI | 00000700: 55 4E 20 54 41 53 54 4F 29 22 3A 8D 37 35 30 00 |UN TASTO)":.750.| 00000710: 15 0F 52 03 8E 00 20 0F E8 03 83 20 31 30 30 30 |..R... .... 1000| 00000720: 00 00 00 59 2E 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |...Y............| 00000730: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................| 00000740: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................| 00000750: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................| 00000760: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................| 00000770: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
....D.. MARCO VEROLINI.(.N..:.".":PO.631
.G.X.B.7:P1.53280:.P1,B:.P1.1,B.W....".*
*************************************.".
.....".*.
.*."......".*. AGENDA TELEFONICA
PER COMMODORE 64 .*."..."...10)"..(PREM
I IL TASTO).":.750...,..".".5)".PREMI IL
TASTO PER LS SCELTA.".7.6.."...L.@.."._
=PER MEMORIZZARE NUOVI INDIRIZZI IN MEMO
RIA"...J..".^=PER RICERCA INDIRIZZI IN M
EMORIA"...T...21)"...COSA SCEGLI ?."..
.^..750...H..Q.64..".OK - CIAO!!!":....R
..Q.94.400...|..Q.95.540......350.$....
RICERCA INDIRIZZI IN MEMORIA.V...W$."":.
".".5)".RICERCA INDIRIZZI IN MEMORIA.".N
....:.K.1.40:.".";:.:..Z.....10)".......
:.NN...B.."......(PUOI BATTERE ANCHE SOL
O LA".U.L..".....PARTE INIZIALE DEL COGN
OME)"...V.."......QUALI SONO IL COGNOME
E IL NOME ?":."......";N$.!....F(N$).64.
..*....".".@....N:.W$:.N.NN.FF.1.Y....N$
.H(W$,C(N$))..780.W....FF.1..".":.830:FF
.0:.400......500...... MEMORIZZAZIONE NU
OVI INDIRIZZI...&.RR$."":V$."
".,.0.V$(1)
.".COGNOME E NOME:.":V$(2).".INDIRIZZO :
.":V$(3).".NUMERO TELEFONO.".D.:..KJ.1.3
:.".":U..(0).|.D..U.0..".MEMORIA LIBERA=
"65536.U".@=PER FINIRE":.600...N..".MEMO
RIALIBERA="U".@=PER FINIRE"...X..K.1.40:
.".";:..J.B.."....."V$(KJ)...L..".......
.."...V..A$:.A$."".630......A$."@"...-..
..A$.G(13).RR$.RR$.H(R$.V$,20):R$."":.KJ
:.690.H...R$.R$.A$:.C(R$).20.680.Z...R$.
G(13):.650.T...."........"R$".":.630....
..:.N:N.N.10......".":."...."N"DATA"N","
RR$...F.."1000 DATA"N.E.P.."GOTO540."...
Z..198,3:.K.0.2:.PO.K,13:............. I
NGRESSO GET......Q$:.Q$."".760.....Q.F(Q
$):..4.... ROUTINE DI STAMPA.Z...."...CO
GNOME ENOME = ."J(W$,1,20).}. .."...INDI
RIZZO = ."J(W$,21,20)...*.."...NUMERO TE
LEFONO = ."J(W$,41)...4..K.1.40:.".";:..
..>..FF.1.."...FINE DEI DATI MEMORIZZATI
."...H.."..(PER SEGUITARE PREMI UN TASTO
)":.750...R... .... 1000...Y............
........................................
........................................
> CLICK IMAGE PREVIEW FOR FULL MODAL