ADDRESSBOOK 128
FILE INFORMATION
FILENAME(S): ADDRESSBOOK 128
FILE TYPE(S): PRG
FILE SIZE: 1.7K
FIRST SEEN: 2025-11-02 16:39:56
APPEARS ON: 1 disk(s)
FILE HASH
6a8447bbb7c8e4197bc9a9cb06b633d33f5c2e58bf3e926cc8de9f2bb827c0d5
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 11 | ADDRESSBOOK 128 | PRG | Treasure Chest - Plattfuss | 28 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 3A 1C 64 00 8F 2A 2A 2A 20 50 52 49 4E 54 |..:.d..*** PRINT| 00000010: 20 53 54 41 54 45 4D 45 4E 54 53 20 4D 55 53 54 | STATEMENTS MUST| 00000020: 20 42 45 20 43 48 41 4E 47 45 44 20 46 4F 52 20 | BE CHANGED FOR | 00000030: 38 30 20 43 4F 4C 55 4D 4E 53 00 54 1C 6E 00 86 |80 COLUMNS.T.n..| 00000040: 4E 41 24 28 31 30 30 2C 37 29 3A D7 37 30 30 3A |NA$(100,7):.700:| 00000050: 47 58 B2 30 00 7E 1C 78 00 99 C7 28 31 34 29 3A |GX.0.~.x...(14):| 00000060: 8F 20 46 41 53 54 3A 43 4C 52 20 48 45 52 45 20 |. FAST:CLR HERE | 00000070: 46 4F 52 20 38 30 20 43 4F 4C 55 4D 4E 53 00 B0 |FOR 80 COLUMNS..| 00000080: 1C 82 00 99 22 93 11 2A 2A 2A 2A 2A 2A 2A 2A 2A |...."..*********| 00000090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 |***************"| 000000B0: 00 E0 1C 8C 00 99 22 2A 2A 2A 2A 2A 2A 2A 2A 2A |......"*********| 000000C0: 2A 2A 20 C1 44 44 52 45 53 53 20 C2 4F 4F 4B 20 |** .DDRESS .OOK | 000000D0: 31 32 38 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 |128 ***********"| 000000E0: 00 10 1D 96 00 99 22 2A 2A 2A 2A 2A 2A 2A 2A 2A |......"*********| 000000F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 |***************"| 00000110: 00 69 1D A0 00 99 22 11 11 31 29 20 20 C3 52 45 |.i...."..1) .RE| 00000120: 41 54 45 20 C1 20 CE 45 57 20 C6 49 4C 45 22 3A |ATE . .EW .ILE":| 00000130: 99 22 11 11 32 29 20 20 CC 4F 41 44 20 C1 20 C6 |."..2) .OAD . .| 00000140: 49 4C 45 22 3A 99 22 11 11 33 29 20 20 C1 50 50 |ILE":."..3) .PP| 00000150: 45 4E 44 20 41 20 C6 49 4C 45 22 3A 99 22 11 11 |END A .ILE":."..| 00000160: 34 29 20 20 D1 55 49 54 22 00 9F 1D AA 00 41 50 |4) .UIT".....AP| 00000170: B2 30 3A 85 22 13 11 11 11 11 11 11 11 11 11 11 |.0:."...........| 00000180: 11 11 11 11 11 11 11 11 11 11 11 C5 4E 54 45 52 |............NTER| 00000190: 20 C1 4E 20 CF 50 54 49 4F 4E 22 3B 4F 50 24 00 | .N .PTION";OP$.| 000001A0: B5 1D B4 00 8B 4F 50 24 B2 22 31 22 A7 43 B2 31 |.....OP$."1".C.1| 000001B0: 3A 89 32 34 30 00 C6 1D BE 00 8B 4F 50 24 B2 22 |:.240......OP$."| 000001C0: 32 22 A7 35 30 30 00 DD 1D C8 00 8B 4F 50 24 B2 |2".500......OP$.| 000001D0: 22 33 22 A7 41 50 B2 31 3A 89 35 30 30 00 F0 1D |"3".AP.1:.500...| 000001E0: D2 00 8B 4F 50 24 B3 B1 22 34 22 A7 89 31 37 30 |...OP$.."4"..170| 000001F0: 00 F6 1D DC 00 80 00 05 1E E6 00 8B 47 58 B3 B1 |............GX..| 00000200: 31 A7 43 B2 31 00 3E 1E F0 00 99 22 13 11 11 11 |1.C.1.>...."....| 00000210: 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 AA C7 28 32 |..........."..(2| 00000220: 37 29 AA 22 40 22 AA 22 D7 4F 52 4B 49 4E 47 20 |7)."@".".ORKING | 00000230: 4F 4E 20 49 54 45 4D 20 23 22 3B 43 3A 99 00 59 |ON ITEM #";C:..Y| 00000240: 1E FA 00 85 22 C5 4E 54 45 52 20 CE 41 4D 45 22 |....".NTER .AME"| 00000250: 3B 4E 41 24 28 43 2C 31 29 00 7E 1E 04 01 85 22 |;NA$(C,1).~...."| 00000260: C5 4E 54 45 52 20 D3 54 52 45 45 54 20 C1 44 44 |.NTER .TREET .DD| 00000270: 52 45 53 53 22 3B 4E 41 24 28 43 2C 32 29 00 99 |RESS";NA$(C,2)..| 00000280: 1E 0E 01 85 22 C5 4E 54 45 52 20 C3 49 54 59 22 |....".NTER .ITY"| 00000290: 3B 4E 41 24 28 43 2C 33 29 00 B5 1E 18 01 85 22 |;NA$(C,3)......"| 000002A0: C5 4E 54 45 52 20 D3 54 41 54 45 22 3B 4E 41 24 |.NTER .TATE";NA$| 000002B0: 28 43 2C 34 29 00 D4 1E 22 01 85 22 C5 4E 54 45 |(C,4)..."..".NTE| 000002C0: 52 20 DA 49 50 20 C3 4F 44 45 22 3B 4E 41 24 28 |R .IP .ODE";NA$(| 000002D0: 43 2C 35 29 00 F2 1E 2C 01 85 22 C5 4E 54 45 52 |C,5)...,..".NTER| 000002E0: 20 D0 48 4F 4E 45 20 23 22 3B 4E 41 24 28 43 2C | .HONE #";NA$(C,| 000002F0: 36 29 00 06 1F 36 01 99 3A 85 22 C3 4F 52 52 45 |6)...6..:.".ORRE| 00000300: 43 54 22 3B 58 24 00 1A 1F 40 01 85 22 C6 49 4E |CT";X$...@..".IN| 00000310: 49 53 48 45 44 3F 22 3B 53 24 00 2A 1F 4A 01 8B |ISHED?";S$.*.J..| 00000320: 53 24 B2 22 59 22 A7 33 38 30 00 3A 1F 54 01 8B |S$."Y".380.:.T..| 00000330: 58 24 B2 22 4E 22 A7 32 34 30 00 4B 1F 5E 01 8B |X$."N".240.K.^..| 00000340: 58 24 B3 B1 22 59 22 A7 33 31 30 00 85 1F 68 01 |X$.."Y".310...h.| 00000350: 43 B2 43 AA 31 3A 8B 43 B1 39 39 A7 99 22 C6 49 |C.C.1:.C.99..".I| 00000360: 4C 45 20 D3 49 5A 45 20 4C 49 4D 49 54 20 52 45 |LE .IZE LIMIT RE| 00000370: 41 43 48 45 44 2D 57 49 4C 4C 20 D3 41 56 45 22 |ACHED-WILL .AVE"| 00000380: 3A 89 33 38 30 00 8F 1F 72 01 99 89 32 34 30 00 |:.380...r...240.| 00000390: E6 1F 7C 01 99 22 93 22 3B 3A 99 22 C1 42 4F 55 |..|..".";:.".BOU| 000003A0: 54 20 D4 4F 20 D7 52 49 54 45 20 C6 49 4C 45 2E |T .O .RITE .ILE.| 000003B0: 20 20 D0 52 45 53 53 20 3C D2 45 54 55 52 4E 3E | .RESS <.ETURN>| 000003C0: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2E 20 D0 52 | TO CONTINUE. .R| 000003D0: 45 53 53 20 D2 55 4E 2F 53 54 4F 50 20 54 4F 20 |ESS .UN/STOP TO | 000003E0: 41 42 4F 52 54 22 00 F9 1F 86 01 A1 58 24 3A 8B |ABORT"......X$:.| 000003F0: 58 24 B2 22 22 A7 33 39 30 00 2D 20 90 01 85 22 |X$."".390.- ..."| 00000400: 46 49 4C 45 4E 41 4D 45 3A 20 22 3B 42 24 3A 9F |FILENAME: ";B$:.| 00000410: 20 31 2C 38 2C 31 2C 42 24 AA 22 2C 57 22 3A 8B | 1,8,1,B$.",W":.| 00000420: 44 53 B3 B1 30 A7 A0 31 3A 89 34 30 30 00 38 20 |DS..0..1:.400.8 | 00000430: 9A 01 81 58 B2 31 A4 43 00 48 20 A4 01 98 31 2C |...X.1.C.H ...1,| 00000440: 4E 41 24 28 58 2C 31 29 00 58 20 AE 01 98 31 2C |NA$(X,1).X ...1,| 00000450: 4E 41 24 28 58 2C 32 29 00 68 20 B8 01 98 31 2C |NA$(X,2).h ...1,| 00000460: 4E 41 24 28 58 2C 33 29 00 78 20 C2 01 98 31 2C |NA$(X,3).x ...1,| 00000470: 4E 41 24 28 58 2C 34 29 00 88 20 CC 01 98 31 2C |NA$(X,4).. ...1,| 00000480: 4E 41 24 28 58 2C 35 29 00 98 20 D6 01 98 31 2C |NA$(X,5).. ...1,| 00000490: 4E 41 24 28 58 2C 36 29 00 9E 20 E0 01 82 00 AA |NA$(X,6).. .....| 000004A0: 20 EA 01 A0 31 3A 89 31 32 30 00 C5 20 F4 01 99 | ...1:.120.. ...| 000004B0: 22 93 D2 45 41 44 59 20 54 4F 20 CC 4F 41 44 20 |"..EADY TO .OAD | 000004C0: C6 49 4C 45 22 00 DF 20 FE 01 85 22 11 C6 49 4C |.ILE".. ..."..IL| 000004D0: 45 4E 41 4D 45 3A 20 22 3B 42 24 3A 43 B2 31 00 |ENAME: ";B$:C.1.| 000004E0: 01 21 08 02 9F 32 2C 38 2C 32 2C 42 24 3A 8B 44 |.!...2,8,2,B$:.D| 000004F0: 53 B3 B1 30 A7 99 44 53 24 3A A0 32 3A 89 35 31 |S..0..DS$:.2:.51| 00000500: 30 00 3E 21 12 02 84 32 2C 4E 41 24 28 43 2C 31 |0.>!...2,NA$(C,1| 00000510: 29 2C 4E 41 24 28 43 2C 32 29 2C 4E 41 24 28 43 |),NA$(C,2),NA$(C| 00000520: 2C 33 29 2C 4E 41 24 28 43 2C 34 29 2C 4E 41 24 |,3),NA$(C,4),NA$| 00000530: 28 43 2C 35 29 2C 4E 41 24 28 43 2C 36 29 00 54 |(C,5),NA$(C,6).T| 00000540: 21 1C 02 8B 4E 41 24 28 43 2C 31 29 B2 22 22 A7 |!...NA$(C,1)."".| 00000550: 89 35 36 30 00 63 21 26 02 43 B2 43 AA 31 3A 89 |.560.c!&.C.C.1:.| 00000560: 35 33 30 00 83 21 30 02 A0 32 3A 99 22 93 C6 49 |530..!0..2:."..I| 00000570: 4C 45 20 48 41 53 20 42 45 45 4E 20 4C 4F 41 44 |LE HAS BEEN LOAD| 00000580: 45 44 22 00 91 21 3A 02 8B 41 50 B2 31 A7 32 34 |ED"..!:..AP.1.24| 00000590: 30 00 AA 21 44 02 85 22 11 D7 41 4E 54 20 54 4F |0..!D.."..ANT TO| 000005A0: 20 D6 49 45 57 3F 22 3B 41 24 00 BF 21 4E 02 8B | .IEW?";A$..!N..| 000005B0: 41 24 B2 22 59 22 A7 43 B2 31 3A 89 36 33 30 00 |A$."Y".C.1:.630.| 000005C0: E3 21 58 02 8B 41 24 B3 B1 22 59 22 A7 85 22 11 |.!X..A$.."Y"..".| 000005D0: D7 41 4E 54 20 54 4F 20 C1 50 50 45 4E 44 3F 22 |.ANT TO .PPEND?"| 000005E0: 3B 41 24 00 F9 21 62 02 8B 41 24 B2 22 59 22 A7 |;A$..!b..A$."Y".| 000005F0: 47 58 B2 31 3A 89 31 33 30 00 02 22 6C 02 89 31 |GX.1:.130.."l..1| 00000600: 33 30 00 26 22 76 02 85 22 11 C5 4E 54 52 59 23 |30.&"v.."..NTRY#| 00000610: 22 3B 43 3A 81 49 B2 31 A4 36 3A 99 4E 41 24 28 |";C:.I.1.6:.NA$(| 00000620: 43 2C 49 29 3A 82 00 40 22 80 02 85 22 11 C1 4E |C,I):..@"..."..N| 00000630: 4F 54 48 45 52 20 C5 4E 54 52 59 3F 22 3B 41 24 |OTHER .NTRY?";A$| 00000640: 00 51 22 8A 02 8B 41 24 B3 B1 22 59 22 A7 31 33 |.Q"...A$.."Y".13| 00000650: 30 00 88 22 94 02 43 B2 43 AA 31 3A 8B 4E 41 24 |0.."..C.C.1:.NA$| 00000660: 28 43 2C 31 29 B2 22 22 A7 99 22 11 CC 41 53 54 |(C,1)."".."..AST| 00000670: 20 C5 4E 54 52 59 2D D6 49 45 57 20 C1 47 41 49 | .NTRY-.IEW .GAI| 00000680: 4E 3F 22 3A 89 36 38 30 00 91 22 9E 02 89 36 33 |N?":.680.."...63| 00000690: 30 00 AC 22 A8 02 85 41 24 3A 8B 41 24 B3 B1 22 |0.."...A$:.A$.."| 000006A0: 59 22 A7 47 58 B2 31 3A 89 31 33 30 00 BD 22 B2 |Y".GX.1:.130..".| 000006B0: 02 43 B2 31 3A 49 B2 31 3A 89 36 33 30 00 DF 22 |.C.1:I.1:.630.."| 000006C0: BC 02 99 22 C5 52 52 4F 52 20 2D 20 22 3B D3 28 |...".RROR - ";.(| 000006D0: 45 52 29 3B 22 20 CC 49 4E 45 23 22 3B 45 4C 00 |ER);" .INE#";EL.| 000006E0: F4 22 C6 02 81 49 B2 31 A4 32 30 30 30 3A 82 3A |."...I.1.2000:.:| 000006F0: D6 32 35 30 00 00 00 |.250... |
..:.D..*** PRINT STATEMENTS MUST BE CHAN GED FOR 80 COLUMNS.T.N..NA$(100,7):W700: GX.0.~.X..G(14):. FAST:CLR HERE FOR 80 C OLUMNS......"..************************* ***************"......"*********** ADDRE SS BOOK 128 ***********"......"********* *******************************".I. ..". .1) CREATE A NEW FILE":."..2) LOAD A F ILE":."..3) APPEND A FILE":."..4) QUIT ".....AP.0:."......................ENTER AN OPTION";OP$......OP$."1".C.1:.240.F. ...OP$."2".500...H..OP$."3".AP.1:.500... R..OP$.."4"..170............GX..1.C.1.>. ..."...............".G(27)."@"."WORKING ON ITEM #";C:..Y...."ENTER NAME";NA$(C,1 ).~...."ENTER STREET ADDRESS";NA$(C,2).. ...."ENTER CITY";NA$(C,3)......"ENTER ST ATE";NA$(C,4).T.".."ENTER ZIP CODE";NA$( C,5)...,.."ENTER PHONE #";NA$(C,6)...6.. :."CORRECT";X$...@.."FINISHED?";S$.*.J.. S$."Y".380.:.T..X$."N".240.K.^..X$.."Y". 310...H.C.C.1:.C.99.."FILE SIZE LIMIT RE ACHED-WILL SAVE":.380...R...240...|.."." ;:."ABOUT TO WRITE FILE. PRESS <RETURN> TO CONTINUE. PRESS RUN/STOP TO ABORT".. ....X$:.X$."".390.- ..."FILENAME: ";B$:. 1,8,1,B$.",W":.DS..0. 1:.400.8 ...X.1.C .H ...1,NA$(X,1).X ...1,NA$(X,2).H ...1, NA$(X,3).X B..1,NA$(X,4).. L..1,NA$(X,5) .. V..1,NA$(X,6).. ..... .. 1:.120.E ... ".READY TO LOAD FILE".. ...".FILENAME: " ;B$:C.1..!...2,8,2,B$:.DS..0..DS$: 2:.51 0.>!...2,NA$(C,1),NA$(C,2),NA$(C,3),NA$( C,4),NA$(C,5),NA$(C,6).T!...NA$(C,1)."". .560.C!&.C.C.1:.530..!0. 2:.".FILE HAS B EEN LOADED"..!:..AP.1.240..!D..".WANT TO VIEW?";A$..!N..A$."Y".C.1:.630..!X..A$. ."Y"..".WANT TO APPEND?";A$..!B..A$."Y". GX.1:.130.."L..130.&"V..".ENTRY#";C:.I.1 .6:.NA$(C,I):..@"...".ANOTHER ENTRY?";A$ .Q"...A$.."Y".130.."..C.C.1:.NA$(C,1)."" ..".LAST ENTRY-VIEW AGAIN?":.680.."...63 0.."...A$:.A$.."Y".GX.1:.130.."..C.1:I.1 :.630.."..."ERROR - ";S(ER);" LINE#";EL. ."F..I.1.2000:.:V250...
> CLICK IMAGE PREVIEW FOR FULL MODAL