DIARY MANAGER
FILE INFORMATION
FILENAME(S): DIARY MANAGER
FILE TYPE(S): PRG
FILE SIZE: 5.5K
FIRST SEEN: 2025-12-02 00:01:59
APPEARS ON: 1 disk(s)
FILE HASH
40cd70d92ae5413cf93cc06d4d0dbd731a90c23e83b7deb7ae30db3e41cda752
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DE GROOT | DIARY MANAGER | PRG | earthshaker | 26 | 1 |
⚠ CORRUPT DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 3F 08 05 00 8F 20 2A 20 44 49 41 52 59 20 |..?.... * DIARY |
00000010: 4D 41 4E 41 47 45 52 20 2A 20 42 59 20 42 45 52 |MANAGER * BY BER|
00000020: 4E 41 52 44 20 48 41 42 45 54 20 28 43 29 20 31 |NARD HABET (C) 1|
00000030: 39 38 33 20 41 42 52 41 53 43 4F 20 4C 54 44 00 |983 ABRASCO LTD.|
00000040: 8F 08 46 00 99 22 93 22 3A 97 35 33 32 38 30 2C |..F..".":.53280,|
00000050: 36 3A 48 4F 24 B2 22 C8 41 4E 47 2D 4F 4E 20 57 |6:HO$.".ANG-ON W|
00000060: 48 49 4C 45 20 53 45 41 52 43 48 49 4E 47 22 3A |HILE SEARCHING":|
00000070: 48 56 24 B2 22 C8 41 56 45 20 46 4F 55 4E 44 20 |HV$.".AVE FOUND |
00000080: 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 3A 22 00 |THE FOLLOWING:".|
00000090: A3 08 50 00 97 35 33 32 37 32 2C 32 33 3A 99 C7 |..P..53272,23:..|
000000A0: 28 38 29 00 F4 08 5A 00 45 4E B2 30 3A 50 45 24 |(8)...Z.EN.0:PE$|
000000B0: B2 22 93 D0 4C 45 41 53 45 20 45 4E 54 45 52 20 |."..LEASE ENTER |
000000C0: 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 49 4E |THE FOLLOWING IN|
000000D0: 46 4F 52 4D 41 54 49 4F 4E 3A 22 3A 86 4D 4F 24 |FORMATION:":.MO$|
000000E0: 28 31 32 29 2C 54 54 24 28 34 29 2C 54 52 24 28 |(12),TT$(4),TR$(|
000000F0: 34 35 35 29 00 3C 09 69 00 81 4E B2 31 A4 34 3A |455).<.i..N.1.4:|
00000100: 87 54 54 24 28 4E 29 3A 82 3A 81 4E B2 31 A4 31 |.TT$(N):.:.N.1.1|
00000110: 32 3A 87 4D 4F 24 28 4E 29 3A 82 3A 53 50 24 B2 |2:.MO$(N):.:SP$.|
00000120: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00000130: 20 20 20 20 20 20 20 20 20 20 20 22 00 8E 09 6E | "...n|
00000140: 00 43 4F 24 B2 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.CO$."..........|
00000150: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000160: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3A 4C |.............":L|
00000170: 4E 24 B2 22 11 11 11 11 11 11 11 11 11 11 11 11 |N$."............|
00000180: 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 D3 |............."..|
00000190: 09 78 00 99 22 93 22 3B 3A 8D 33 35 35 30 30 3A |.x..".";:.35500:|
000001A0: 99 22 12 81 20 20 20 20 20 20 C4 A0 C9 A0 C1 A0 |.".. ......|
000001B0: D2 A0 D9 A0 A0 A0 CD A0 C1 A0 CE A0 C1 A0 C7 A0 |................|
000001C0: C5 A0 D2 A0 A0 A0 A0 A0 A0 92 9A 22 3A 8D 33 35 |...........":.35|
000001D0: 35 30 30 00 17 0A 82 00 99 A3 38 29 22 11 11 12 |500.......8)"...|
000001E0: 81 20 D0 52 45 53 53 20 92 9A 20 CF 50 54 49 4F |. .RESS .. .PTIO|
000001F0: 4E 20 CE 55 4D 42 45 52 3A 22 3A 99 A3 38 29 22 |N .UMBER:":..8)"|
00000200: 11 11 11 81 12 20 31 20 9A 92 20 CE 45 57 20 45 |..... 1 .. .EW E|
00000210: 4E 54 52 49 45 53 22 00 55 0A 8C 00 99 A3 38 29 |NTRIES".U.....8)|
00000220: 22 11 81 12 20 32 20 9A 92 20 C4 45 4C 45 54 49 |"... 2 .. .ELETI|
00000230: 4F 4E 53 22 3A 99 A3 38 2B FF 66 FF 27 FF FF FF |ONS":..8+.f.'...|
00000240: 3F FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |?...............|
00000250: D2 FF FF FF FF FF FF FF FF FF 33 FF FF FF FF 66 |..........3....f|
00000260: 26 FF FF FF FF 3F FF FF FF FF D2 FF ED FF FF FF |&....?..........|
00000270: FF FF D2 FF FF FF FF 33 FF FF FF FF 66 26 FF FF |.......3....f&..|
00000280: FF FF 3F FF FF AA D0 FF FF FF FF FF FF FF FF FF |..?.............|
00000290: FF FF FF FF FF FF FF FF FF 33 FF FF FF FF 66 26 |.........3....f&|
000002A0: FF FF FF FF 3F FF FF FF D2 D4 DD FF D0 FF DC FF |....?...........|
000002B0: FF FF FF FF FF 3B FF FF FF FF FF FF 26 FF FF FF |.....;......&...|
000002C0: FF FF 33 FF FF FF FF FF FF FF FF FF FF FF FF FF |..3.............|
000002D0: FF FF FF FF FF FF FF FF FF FF FF FF FF FF 33 FF |..............3.|
000002E0: FF FF FF FF FF 72 FF 3B FF FF FF FF FF 36 EF FF |.....r.;.....6..|
000002F0: FF FF F5 FF FF FF FF FF F7 7D 00 99 22 96 67 FF |.........}..".g.|
00000300: FF FF FF FF D0 D7 FF FF FF D0 FF FF FF D2 D4 FF |................|
00000310: D2 FF D5 FF D0 FF DC FF FF 35 FF FF FF FF FF FF |.........5......|
00000320: FF FF FF 32 B5 FF FF FF FF 35 FF FF FF FF FF FF |...2.....5......|
00000330: FF FF FF FF FF D4 F7 FF FF 36 FF FF FF FF FF FF |.........6......|
00000340: F4 3B FF FF FF FF FF FF FF F7 FF FF 36 FF DD FF |.;..........6...|
00000350: FF FF FF F5 FF FF FF FF 36 F7 FF FF 33 FF FF FF |........6...3...|
00000360: D0 FF FF FF FF FF FF D1 FF DA D0 FF FF FF FF D0 |................|
00000370: D0 DB FF D2 DD FF DA FF DA D0 FF FF FF FF 33 FF |..............3.|
00000380: 66 FF A2 D2 ED FF FF FF FF FF D6 FF FF FF FF FF |f...............|
00000390: 3B FF FF FF FF FF FF 33 FF FF FF FF BA F7 FF FF |;......3........|
000003A0: 33 FF FF 66 66 67 FF FF FF FF FF BD FF FF FF B5 |3..ffg..........|
000003B0: FF FF FF FF FF BD FF AD FF FF FF B3 FF FF FF FF |................|
000003C0: FF FF 33 FF FF FF FF FF FF FF FF FF FF FF FF FF |..3.............|
000003D0: FF FF FF FF FF FF FF FF FF FF FF FF FF FF 76 FF |..............v.|
000003E0: FF FF 33 FF FF FF FF 66 FF FF FF FF FF FF FF FF |..3....f........|
000003F0: FF FF FF FF FF D1 FF FF 45 4D 45 4D 42 45 52 22 |........EMEMBER"|
00000400: 3A 99 A3 39 29 22 11 12 20 32 20 92 20 C4 41 49 |:..9)".. 2 . .AI|
00000410: 4C 59 20 45 4E 54 52 49 45 53 22 00 5D 0C 54 01 |LY ENTRIES".].T.|
00000420: 99 A3 39 29 22 11 12 20 33 20 92 20 C2 41 43 4B |..9)".. 3 . .ACK|
00000430: 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 22 3A 99 | TO MAIN MENU":.|
00000440: A3 39 29 22 11 11 12 20 D0 52 45 53 53 20 4F 50 |.9)"... .RESS OP|
00000450: 54 49 4F 4E 20 4E 55 4D 42 45 52 20 22 00 80 0C |TION NUMBER "...|
00000460: 68 01 8D 31 34 36 30 30 3A 91 C5 28 41 24 29 89 |h..14600:..(A$).|
00000470: 35 35 30 2C 33 38 30 2C 31 32 30 3A 89 33 36 30 |550,380,120:.360|
00000480: 00 C6 0C 7C 01 99 50 45 24 3A 99 22 11 11 C4 41 |...|..PE$:."...A|
00000490: 54 45 20 12 C4 C4 CD CD 92 3A 20 20 22 3B 3A 50 |TE ......: ";:P|
000004A0: 33 B2 34 3A 8D 32 39 35 30 30 3A 99 22 11 11 C8 |3.4:.29500:."...|
000004B0: 4F 55 52 20 12 C8 C8 CD CD 92 3A 20 20 22 3B 3A |OUR ......: ";:|
000004C0: 8D 32 39 35 30 30 00 04 0D 86 01 99 22 11 11 CE |.29500......"...|
000004D0: 41 4D 45 20 20 20 20 20 3A 20 20 22 3B 3A 50 33 |AME : ";:P3|
000004E0: B2 32 35 3A 8D 32 39 FF FF FF FF 33 FF 66 66 AE |.25:.29....3.ff.|
000004F0: FF FF FF ED FF FF 20 20 3A 20 20 22 3B 3A 8D 32 |...... : ";:.2|
00000500: 39 35 30 30 00 3D 0D 90 01 4C 4E B2 34 3A 8D 32 |9500.=...LN.4:.2|
00000510: 39 38 30 30 3A 99 A3 31 31 29 3B 3A 50 33 B2 34 |9800:..11);:P3.4|
00000520: 3A 50 34 B2 34 3A 8D 33 30 30 30 30 3A 8D 32 35 |:P4.4:.30000:.25|
00000530: 30 30 30 3A 8B 50 36 B2 31 A7 34 30 30 00 55 0D |000:.P6.1.400.U.|
00000540: 9F 01 44 54 24 B2 C9 28 50 24 2C 32 29 AA C8 28 |..DT$..(P$,2)..(|
00000550: 50 24 2C 32 29 00 8F 0D A4 01 99 22 11 11 22 A3 |P$,2)......"..".|
00000560: 31 31 29 3B 3A 50 33 B2 34 3A 50 34 B2 30 3A 8D |11);:P3.4:P4.0:.|
00000570: 33 30 30 30 30 3A 8D 32 35 32 30 30 3A 8B 50 36 |30000:.25200:.P6|
00000580: B2 31 A7 99 22 91 91 91 91 22 3A 89 34 32 30 00 |.1.."....":.420.|
00000590: 9A 0D AE 01 48 52 24 B2 50 24 00 C6 0D B8 01 99 |....HR$.P$......|
000005A0: 22 11 11 22 A3 31 31 29 3B 3A 50 33 B2 32 35 3A |"..".11);:P3.25:|
000005B0: 50 34 B2 30 3A 8D 33 30 30 30 30 3A 8B 50 24 B2 |P4.0:.30000:.P$.|
000005C0: 22 22 A7 34 35 30 00 E4 0D BD 01 8D 32 34 30 30 |"".450......2400|
000005D0: 30 3A 8B 50 36 B2 31 A7 99 22 91 91 91 91 22 3A |0:.P6.1.."....":|
000005E0: 89 34 34 30 00 EF 0D C2 01 4E 41 24 B2 50 24 00 |.440.....NA$.P$.|
000005F0: 2A 0E CC 01 99 22 11 11 22 A3 31 31 29 3B 3A 50 |*...."..".11);:P|
00000600: 33 B2 32 35 3A 50 34 B2 31 3A 8D 33 30 30 30 30 |3.25:P4.1:.30000|
00000610: 3A 8D 32 34 30 30 30 3A 8B 50 36 B2 31 A7 99 22 |:.24000:.P6.1.."|
00000620: 91 91 91 91 22 3A 89 34 36 30 00 59 0E E0 01 45 |....":.460.Y...E|
00000630: 56 24 B2 50 24 3A 99 22 11 11 11 11 1D 1D 1D 1D |V$.P$:."........|
00000640: C1 43 43 45 50 54 22 3B 3A 8D 32 36 30 30 30 3A |.CCEPT";:.26000:|
00000650: 8B 50 36 B2 32 A7 33 38 30 00 A2 0E F4 01 99 22 |.P6.2.380......"|
00000660: 93 C8 41 4E 47 2D 4F 4E 20 57 48 49 4C 45 20 50 |..ANG-ON WHILE P|
00000670: 4F 53 54 49 4E 47 22 3A 4E B2 45 4E 3A 54 52 24 |OSTING":N.EN:TR$|
00000680: 28 4E 29 B2 44 54 24 AA 22 31 22 AA 48 52 24 AA |(N).DT$."1".HR$.|
00000690: 4E 41 24 AA 22 2A 22 AA 45 56 24 3A 8D 32 37 30 |NA$."*".EV$:.270|
000006A0: 30 30 00 D1 0E FE 01 99 22 11 11 CF 4B 2C 20 41 |00......"...K, A|
000006B0: 4E 59 20 4F 54 48 45 52 20 45 4E 54 52 59 22 3B |NY OTHER ENTRY";|
000006C0: 3A 8D 32 36 30 30 30 3A 8B 50 36 B2 31 A7 33 38 |:.26000:.P6.1.38|
000006D0: 30 00 DA 0E 08 02 89 33 31 30 00 24 0F 26 02 99 |0......310.$.&..|
000006E0: 50 45 24 3A 99 22 11 11 C4 41 54 45 20 12 C4 C4 |PE$:."...ATE ...|
000006F0: CD CD 92 3A 20 20 22 3B 3A 50 33 B2 34 3A 8D 32 |...: ";:P3.4:.2|
00000700: 39 35 30 30 3A 99 22 11 11 CE 41 4D 45 20 20 20 |9500:."...AME |
00000710: 20 20 3A 20 20 22 3B 3A 50 33 B2 32 35 3A 8D 32 | : ";:P3.25:.2|
00000720: 39 35 30 30 00 6E 0F 30 02 99 22 11 11 C5 56 45 |9500.n.0.."...VE|
00000730: 4E 54 20 20 20 20 3A 20 20 31 2E 20 22 54 54 24 |NT : 1. "TT$|
00000740: 28 31 29 22 20 20 20 32 2E 20 22 54 54 24 28 32 |(1)" 2. "TT$(2|
00000750: 29 3A 99 A3 31 32 29 22 33 2E 20 22 54 54 24 28 |):..12)"3. "TT$(|
00000760: 33 29 22 20 34 2E 20 22 54 54 24 28 34 29 00 A7 |3)" 4. "TT$(4)..|
00000770: 0F 62 02 4C 4E B2 34 3A 8D 32 39 38 30 30 3A 99 |.b.LN.4:.29800:.|
00000780: A3 31 31 29 3B 3A 50 33 B2 34 3A 50 34 B2 34 3A |.11);:P3.4:P4.4:|
00000790: 8D 33 30 30 30 30 3A 8D 32 35 30 30 30 3A 8B 50 |.30000:.25000:.P|
000007A0: 36 B2 31 A7 36 31 30 00 BF 0F 69 02 44 54 24 B2 |6.1.610...i.DT$.|
000007B0: C9 28 50 24 2C 32 29 AA C8 28 50 24 2C 32 29 00 |.(P$,2)..(P$,2).|
000007C0: FA 0F 6C 02 99 22 11 11 22 A3 31 31 29 3B 3A 50 |..l.."..".11);:P|
000007D0: 33 B2 32 35 3A 50 34 B2 31 3A 8D 33 30 30 30 30 |3.25:P4.1:.30000|
000007E0: 3A 8D 32 34 30 30 30 3A 8B 50 36 B2 31 A7 99 22 |:.24000:.P6.1.."|
000007F0: 91 91 91 22 3B 3A 89 36 32 30 00 11 10 74 02 4E |...";:.620...t.N|
00000800: 41 24 B2 50 24 3A 99 A3 31 31 29 22 11 11 3E 22 |A$.P$:..11)"..>"|
00000810: 3B 00 2C 10 76 02 A1 41 24 3A 8B 41 24 B3 22 31 |;.,.v..A$:.A$."1|
00000820: 22 B0 41 24 B1 22 34 22 A7 36 33 30 00 52 10 79 |".A$."4".630.R.y|
00000830: 02 99 53 50 24 3A 99 A3 31 31 29 53 50 24 3A 99 |..SP$:..11)SP$:.|
00000840: 22 91 91 22 3B 3A 8B 41 24 B3 B1 22 34 22 A7 36 |"..";:.A$.."4".6|
00000850: 34 30 00 87 10 7B 02 50 33 B2 32 35 3A 50 34 B2 |40...{.P3.25:P4.|
00000860: 31 3A 99 A3 31 31 29 3B 3A 8D 33 30 30 30 30 3A |1:..11);:.30000:|
00000870: 8D 32 34 30 30 30 3A 8B 50 36 B2 31 A7 99 22 91 |.24000:.P6.1..".|
00000880: 22 3B 3A 89 36 33 35 00 96 10 7D 02 41 24 B2 50 |";:.635...}.A$.P|
00000890: 24 3A 89 36 35 30 00 B4 10 80 02 99 A3 31 32 29 |$:.650.......12)|
000008A0: 54 54 24 28 C5 28 41 24 29 29 3A 99 A3 31 31 29 |TT$(.(A$)):..11)|
000008B0: 22 91 20 22 00 E2 10 8A 02 45 56 24 B2 41 24 3A |". ".....EV$.A$:|
000008C0: 99 22 11 11 11 1D 1D 1D 1D C1 43 43 45 50 54 22 |."........CCEPT"|
000008D0: 3B 3A 8D 32 36 30 30 30 3A 8B 50 36 B2 32 A7 35 |;:.26000:.P6.2.5|
000008E0: 35 30 00 27 11 DA 02 99 22 93 C8 41 4E 47 2D 4F |50.'...."..ANG-O|
000008F0: 4E 20 57 48 49 4C 45 20 50 4F 53 54 49 4E 47 22 |N WHILE POSTING"|
00000900: 3A 4E B2 45 4E 3A 54 52 24 28 4E 29 B2 44 54 24 |:N.EN:TR$(N).DT$|
00000910: AA 22 32 22 AA 4E 41 24 AA 22 2A 22 AA 45 56 24 |."2".NA$."*".EV$|
00000920: 3A 8D 32 34 30 35 30 00 56 11 E4 02 99 22 11 11 |:.24050.V...."..|
00000930: CF 4B 2C 20 41 4E 59 20 4F 54 48 45 52 20 45 4E |.K, ANY OTHER EN|
00000940: 54 52 59 22 3B 3A 8D 32 36 30 30 30 3A 8B 50 36 |TRY";:.26000:.P6|
00000950: B2 31 A7 35 35 30 00 5F 11 F8 02 89 33 31 30 00 |.1.550._....310.|
00000960: A8 11 84 03 8B 54 52 24 28 30 29 B2 22 22 A7 99 |.....TR$(0).""..|
00000970: 22 93 D4 48 45 52 45 20 41 52 45 20 4E 4F 20 45 |"..HERE ARE NO E|
00000980: 4E 54 52 49 45 53 20 59 45 54 22 3A 99 22 11 C8 |NTRIES YET":."..|
00000990: 49 54 20 41 4E 59 20 4B 45 59 22 3B 3A 8D 31 34 |IT ANY KEY";:.14|
000009A0: 36 30 30 3A 89 31 32 30 00 BC 11 87 03 8D 39 30 |600:.120......90|
000009B0: 30 30 3A 8B 50 36 B2 32 A7 31 32 30 00 CF 11 89 |00:.P6.2.120....|
000009C0: 03 8B 59 52 24 B2 22 22 A7 8D 32 36 31 30 30 00 |..YR$.""..26100.|
000009D0: 0B 12 8E 03 99 22 97 FF FF FF FF FF FF FF FF AD |....."..........|
000009E0: FF FF FF AB FF FF FF AD FF B3 FF B1 A0 CE A0 D3 |................|
000009F0: 20 2A 2A 22 3A 99 22 11 11 22 3B 3A 8D 31 34 37 | **":."..";:.147|
00000A00: 35 30 3A 99 22 11 11 22 48 4F 24 00 2E 12 A2 03 |50:.".."HO$.....|
00000A10: 5A 54 24 B2 44 54 24 3A 58 58 B2 34 3A 8D 32 37 |ZT$.DT$:XX.4:.27|
00000A20: 31 30 30 3A 8B 50 37 B2 32 A7 31 30 35 35 00 3F |100:.P7.2.1055.?|
00000A30: 12 AC 03 8B 5A 54 B3 5A 42 A7 5A 42 B2 5A 54 00 |....ZT.ZB.ZB.ZT.|
00000A40: 48 12 B6 03 4E B2 5A 42 00 7D 12 C0 03 99 22 93 |H...N.ZB.}....".|
00000A50: C5 4E 54 52 59 20 4E 4F 20 22 4E AA 31 3A 99 22 |.NTRY NO "N.1:."|
00000A60: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 3A 99 3A |............":.:|
00000A70: 8D 32 37 36 30 30 3A 8D 32 37 37 30 30 00 C5 12 |.27600:.27700...|
00000A80: CA 03 4C 4E B2 32 30 3A 43 4F B2 31 3A 8D 32 39 |..LN.20:CO.1:.29|
00000A90: 38 30 30 3A 99 22 12 D0 52 45 53 53 3A 92 20 12 |800:."..RESS:. .|
00000AA0: C4 92 20 D4 4F 20 44 45 4C 45 54 45 22 3A 99 A3 |.. .O DELETE":..|
00000AB0: 37 29 22 12 2B 92 20 D4 4F 20 47 4F 20 46 4F 52 |7)".+. .O GO FOR|
00000AC0: 57 41 52 44 22 00 E3 12 D4 03 99 A3 37 29 22 12 |WARD".......7)".|
00000AD0: CD 92 20 D4 4F 20 45 58 49 54 20 54 4F 20 4D 45 |.. .O EXIT TO ME|
00000AE0: 4E 55 22 00 FB 12 DE 03 8D 31 34 36 30 30 3A 8B |NU"......14600:.|
00000AF0: 41 24 B2 22 44 22 A7 31 30 31 30 00 1C 13 E8 03 |A$."D".1010.....|
00000B00: 8B 41 24 B2 22 2B 22 AF 4E AA 31 B3 B2 45 4E AB |.A$."+".N.1..EN.|
00000B10: 31 A7 4E B2 4E AA 31 3A 89 39 36 30 00 2C 13 ED |1.N.N.1:.960.,..|
00000B20: 03 8B 41 24 B2 22 4D 22 A7 31 32 30 00 35 13 EF |..A$."M".120.5..|
00000B30: 03 89 39 39 30 00 59 13 F2 03 99 22 93 C8 41 4E |..990.Y...."..AN|
00000B40: 47 2D 4F 4E 20 57 48 49 4C 45 20 44 45 4C 45 54 |G-ON WHILE DELET|
00000B50: 49 4E 47 22 3A 50 4F B2 4E 00 89 13 FC 03 81 4E |ING":PO.N......N|
00000B60: B2 50 4F A4 45 4E AB 31 3A 54 52 24 28 4E 29 B2 |.PO.EN.1:TR$(N).|
00000B70: 54 52 24 28 4E AA 31 29 3A 82 3A 45 4E B2 45 4E |TR$(N.1):.:EN.EN|
00000B80: AB 31 3A 99 22 11 CF 4B 22 00 B6 13 06 04 99 22 |.1:."..K"......"|
00000B90: 11 C1 4E 59 20 4F 54 48 45 52 20 44 45 4C 45 54 |..NY OTHER DELET|
00000BA0: 49 4F 4E 22 3B 3A 8D 32 36 30 30 30 3A 8B 50 36 |ION";:.26000:.P6|
00000BB0: B2 31 A7 39 31 30 00 BF 13 10 04 89 31 32 30 00 |.1.910......120.|
00000BC0: F3 13 1F 04 99 22 11 C8 41 56 45 20 4E 4F 54 20 |....."..AVE NOT |
00000BD0: 46 4F 55 4E 44 20 41 4E 59 20 45 4E 54 52 59 20 |FOUND ANY ENTRY |
00000BE0: 4F 4E 20 54 48 49 53 20 44 41 54 45 22 3A 89 31 |ON THIS DATE":.1|
00000BF0: 30 33 30 00 07 14 4C 04 8D 39 30 30 30 3A 8B 50 |030...L..9000:.P|
00000C00: 36 B2 32 A7 31 32 30 00 3A 14 51 04 99 22 93 11 |6.2.120.:.Q.."..|
00000C10: 11 11 11 11 11 11 11 11 11 C4 4F 20 59 4F 55 20 |..........O YOU |
00000C20: 57 49 53 48 20 54 4F 20 12 CC 92 4F 41 44 20 4F |WISH TO ...OAD O|
00000C30: 52 20 12 D3 92 41 56 45 3F 22 00 58 14 56 04 A1 |R ...AVE?".X.V..|
00000C40: 41 24 3A 8B 41 24 B3 B1 22 4C 22 AF 41 24 B3 B1 |A$:.A$.."L".A$..|
00000C50: 22 53 22 A7 31 31 31 30 00 69 14 60 04 8B 41 24 |"S".1110.i.`..A$|
00000C60: B2 22 4C 22 A7 31 33 35 30 00 AB 14 B0 04 99 22 |."L".1350......"|
00000C70: 93 C5 4E 54 45 52 20 4E 41 4D 45 20 4F 46 20 46 |..NTER NAME OF F|
00000C80: 49 4C 45 20 54 4F 20 42 45 20 53 41 56 45 44 22 |ILE TO BE SAVED"|
00000C90: 3A 99 22 11 CD 41 58 20 12 31 36 92 20 43 48 41 |:."..AX .16. CHA|
00000CA0: 52 41 43 54 45 52 53 3A 22 3B 3A 00 F3 14 C4 04 |RACTERS:";:.....|
00000CB0: 50 33 B2 31 36 3A 50 34 B2 31 3A 8D 33 30 30 30 |P3.16:P4.1:.3000|
00000CC0: 30 3A 46 24 B2 50 24 3A 99 3A 99 22 11 12 CC 4F |0:F$.P$:.:."...O|
00000CD0: 41 44 92 20 59 4F 55 52 20 54 41 50 45 20 54 48 |AD. YOUR TAPE TH|
00000CE0: 45 4E 20 12 C8 49 54 92 20 41 4E 59 20 4B 45 59 |EN ..IT. ANY KEY|
00000CF0: 22 3A 99 00 33 15 1A 05 8D 31 34 36 30 30 3A 9F |":..3....14600:.|
00000D00: 33 2C 31 2C 31 2C 46 24 3A 98 33 2C 59 52 24 3A |3,1,1,F$:.3,YR$:|
00000D10: 98 33 2C 45 4E 3A 81 4E B2 30 A4 45 4E AB 31 3A |.3,EN:.N.0.EN.1:|
00000D20: 98 33 2C 54 52 24 28 4E 29 3A 82 3A A0 33 3A 89 |.3,TR$(N):.:.3:.|
00000D30: 31 32 30 00 7B 15 46 05 99 22 93 C4 4F 20 59 4F |120.{.F.."..O YO|
00000D40: 55 20 57 49 53 48 20 54 4F 20 4C 4F 41 44 20 49 |U WISH TO LOAD I|
00000D50: 4D 50 4F 52 54 41 4E 54 20 44 41 54 45 53 22 3A |MPORTANT DATES":|
00000D60: 99 22 4F 4E 4C 59 20 22 3B 3A 8D 32 36 30 30 30 |."ONLY ";:.26000|
00000D70: 3A 8B 50 36 B2 32 A7 31 34 30 30 00 87 15 4B 05 |:.P6.2.1400...K.|
00000D80: 99 22 20 D9 45 53 22 00 D0 15 50 05 99 22 11 D0 |." .ES"...P.."..|
00000D90: 4C 45 41 53 45 20 45 4E 54 45 52 20 4E 41 4D 45 |LEASE ENTER NAME|
00000DA0: 20 4F 46 20 46 49 4C 45 20 54 4F 20 42 45 20 4C | OF FILE TO BE L|
00000DB0: 4F 41 44 45 44 22 3A 99 22 11 CD 41 58 20 12 31 |OADED":."..AX .1|
00000DC0: 36 92 20 43 48 41 52 41 43 54 45 52 53 20 22 3B |6. CHARACTERS ";|
00000DD0: 00 1D 16 5A 05 50 33 B2 31 36 3A 50 34 B2 31 3A |...Z.P3.16:P4.1:|
00000DE0: 8D 33 30 30 30 30 3A 99 22 11 D0 4C 45 41 53 45 |.30000:."..LEASE|
00000DF0: 20 12 CC 4F 41 44 92 20 59 4F 55 52 20 54 41 50 | ..OAD. YOUR TAP|
00000E00: 45 20 54 48 45 4E 20 12 C8 49 54 92 20 41 4E 59 |E THEN ..IT. ANY|
00000E10: 20 4B 45 59 11 22 3A 8D 31 34 36 30 30 00 4C 16 | KEY.":.14600.L.|
00000E20: 64 05 9F 33 2C 31 2C 30 2C 50 24 3A 84 33 2C 59 |d..3,1,0,P$:.3,Y|
00000E30: 52 24 3A 84 33 2C 45 4E 3A 4D B2 30 3A 81 4E B2 |R$:.3,EN:M.0:.N.|
00000E40: 30 A4 45 4E AB 31 3A 84 33 2C 41 24 00 6F 16 69 |0.EN.1:.3,A$.o.i|
00000E50: 05 8B CA 28 41 24 2C 35 2C 31 29 B2 22 32 22 A7 |...(A$,5,1)."2".|
00000E60: 54 52 24 28 4D 29 B2 41 24 3A 4D B2 4D AA 31 00 |TR$(M).A$:M.M.1.|
00000E70: 8A 16 6E 05 82 4E 3A A0 33 3A 45 4E B2 4D 3A 59 |..n..N:.3:EN.M:Y|
00000E80: 52 24 B2 22 22 3A 89 31 32 30 00 D3 16 78 05 99 |R$."":.120...x..|
00000E90: 22 93 D0 4C 45 41 53 45 20 45 4E 54 45 52 20 4E |"..LEASE ENTER N|
00000EA0: 41 4D 45 20 4F 46 20 46 49 4C 45 20 54 4F 20 42 |AME OF FILE TO B|
00000EB0: 45 20 4C 4F 41 44 45 44 22 3A 99 22 11 CD 41 58 |E LOADED":."..AX|
00000EC0: 20 12 31 36 92 20 43 48 41 52 41 43 54 45 52 53 | .16. CHARACTERS|
00000ED0: 20 22 3B 00 20 17 82 05 50 33 B2 31 36 3A 50 34 | ";. ...P3.16:P4|
00000EE0: B2 31 3A 8D 33 30 30 30 30 3A 99 22 11 D0 4C 45 |.1:.30000:."..LE|
00000EF0: 41 53 45 20 12 CC 4F 41 44 92 20 59 4F 55 52 20 |ASE ..OAD. YOUR |
00000F00: 54 41 50 45 20 54 48 45 4E 20 12 C8 49 54 92 20 |TAPE THEN ..IT. |
00000F10: 41 4E 59 20 4B 45 59 11 22 3A 8D 31 34 36 30 30 |ANY KEY.":.14600|
00000F20: 00 59 17 CD 05 9F 33 2C 31 2C 30 2C 50 24 3A 84 |.Y....3,1,0,P$:.|
00000F30: 33 2C 59 52 24 3A 84 33 2C 45 4E 3A 81 4E B2 30 |3,YR$:.3,EN:.N.0|
00000F40: A4 45 4E AB 31 3A 84 33 2C 54 52 24 28 4E 29 3A |.EN.1:.3,TR$(N):|
00000F50: 82 3A A0 33 3A 89 31 32 30 00 6C 17 A4 06 8B 59 |.:.3:.120.l....Y|
00000F60: 52 24 B2 22 22 A7 8D 32 36 31 30 30 00 A7 17 EA |R$.""..26100....|
00000F70: 06 99 22 93 11 11 22 A3 31 31 29 22 D3 C5 C1 D2 |.."...".11)"....|
00000F80: C3 C8 A0 26 A0 D2 C5 D4 D2 C9 C5 D6 C5 22 3A 99 |...&.........":.|
00000F90: A3 31 31 29 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |.11)"...........|
00000FA0: A3 A3 A3 A3 A3 A3 22 00 EE 17 F4 06 99 A3 37 29 |......".......7)|
00000FB0: 22 11 12 20 31 20 92 20 C4 41 54 45 53 20 54 4F |".. 1 . .ATES TO|
00000FC0: 20 52 45 4D 45 4D 42 45 52 22 3A 99 A3 37 29 22 | REMEMBER":..7)"|
00000FD0: 11 12 20 32 20 92 20 C2 52 4F 57 53 45 20 54 48 |.. 2 . .ROWSE TH|
00000FE0: 52 4F 55 47 48 20 45 4E 54 52 49 45 53 22 00 34 |ROUGH ENTRIES".4|
00000FF0: 18 08 07 99 A3 37 29 22 11 12 20 33 20 92 20 D3 |.....7)".. 3 . .|
00001000: 54 41 54 45 4D 45 4E 54 20 20 4F 46 20 20 45 4E |TATEMENT OF EN|
00001010: 54 52 49 45 53 22 3A 99 A3 37 29 22 11 12 20 34 |TRIES":..7)".. 4|
00001020: 20 92 20 D3 45 41 52 43 48 20 20 42 59 20 20 4E | . .EARCH BY N|
00001030: 41 4D 45 22 00 78 18 0D 07 99 A3 37 29 22 11 12 |AME".x.....7)"..|
00001040: 20 35 20 92 20 C2 41 43 4B 20 20 54 4F 20 20 4D | 5 . .ACK TO M|
00001050: 41 49 4E 20 20 4D 45 4E 55 22 3A 99 A3 31 31 29 |AIN MENU":..11)|
00001060: 22 11 11 12 D0 52 45 53 53 20 4F 50 54 49 4F 4E |"....RESS OPTION|
00001070: 20 4E 55 4D 42 45 52 22 00 A8 18 26 07 8D 31 34 | NUMBER"...&..14|
00001080: 36 30 30 3A 91 C5 28 41 24 29 89 31 38 35 30 2C |600:..(A$).1850,|
00001090: 32 31 32 30 2C 32 33 30 30 2C 32 37 30 30 2C 31 |2120,2300,2700,1|
000010A0: 32 30 3A 89 31 38 33 30 00 F2 18 3A 07 8B 54 52 |20:.1830...:..TR|
000010B0: 24 28 30 29 B2 22 22 A7 99 22 93 D4 48 45 52 45 |$(0)."".."..HERE|
000010C0: 20 41 52 45 20 4E 4F 20 45 4E 54 52 49 45 53 20 | ARE NO ENTRIES |
000010D0: 59 45 54 22 3A 99 22 11 C8 49 54 20 41 4E 59 20 |YET":."..IT ANY |
000010E0: 4B 45 59 22 3B 3A 8D 67 FF FF FF FF FF 33 FF FF |KEY";:.g.....3..|
000010F0: FF FF FF FF 72 FF F5 33 FF FF AE FF FF FF FF FF |....r..3........|
00001100: DA D0 FF FF FF FF FF FF E6 EE D2 FF FF FF FF FF |................|
00001110: FF FF FF EF FF FF FF FF EF FF FF FF FF 3B FF FF |.............;..|
00001120: FF FF FF FF FF 72 D2 F4 36 FF FF EF FF FF FF FF |.....r..6.......|
00001130: FF FF FF EF FF FF 67 FF FF F5 FF FF FF FF FF FF |......g.........|
00001140: 72 D6 F5 33 FF 67 FF FF D1 FF FF 36 FF FF EF FF |r..3.g.....6....|
00001150: FF FF FF F4 EF FF FF FF FF FF FF EF FF FF FF 72 |...............r|
00001160: FF F4 FF ED FF FF EF FF FF E2 E3 FF FF FF 3B FF |..............;.|
00001170: FF FF FF FF FF 36 EF FF FF FF F5 33 FF 67 FF FF |.....6.....3.g..|
00001180: FF FF FF FF FF FF FF FF FF D1 FF FF FF FF FF D2 |................|
00001190: FF FF FF FF FF D2 FF FF DA D0 FF FF FF FF FF 33 |...............3|
000011A0: FF FF FF FF FF FA 72 FF F4 DB FF FF FF FF FF 72 |......r........r|
000011B0: E2 F5 33 FF FF FF FF FF FF FF FF FF D1 FF FF FF |..3.............|
000011C0: DA FF DA FF FF FF FF D2 DD FF FF DA D1 FF FF FF |................|
000011D0: FF EF FF FF FF FF FF FF FF FF FF FF 24 3A 99 3A |............$:.:|
000011E0: 81 4E B2 4D A4 4D AA 39 3A 8B 4E B1 5A 54 A7 31 |.N.M.M.9:.N.ZT.1|
000011F0: 39 34 30 00 18 1A 76 07 8B CA 28 54 52 24 28 4E |940...v...(TR$(N|
00001200: 29 2C 35 2C 31 29 B2 22 32 22 A7 8D 32 37 36 30 |),5,1)."2"..2760|
00001210: 30 3A 8D 32 34 31 30 30 00 4E 1A 80 07 82 4E 3A |0:.24100.N....N:|
00001220: 99 22 11 12 C8 49 54 20 41 4E 59 20 4B 45 59 20 |."...IT ANY KEY |
00001230: 54 4F 20 43 4F 4E 54 49 4E 55 45 92 22 3A 8D 31 |TO CONTINUE.":.1|
00001240: 34 36 30 30 3A 4D B2 4E 3A 89 31 38 38 30 00 73 |4600:M.N:.1880.s|
00001250: 1A 94 07 99 22 11 C1 4E 59 20 4F 54 48 45 52 22 |...."..NY OTHER"|
00001260: 3B 3A 8D 32 36 30 30 30 3A 8B 50 36 B2 31 A7 31 |;:.26000:.P6.1.1|
00001270: 38 36 30 00 7D 1A 9E 07 89 31 37 37 30 00 C7 1A |860.}....1770...|
00001280: 48 08 8B 54 52 24 28 30 29 B2 22 22 A7 99 22 FF |H..TR$(0).""..".|
00001290: FF FF FF FF FF FF FF FF FF FF FF D1 FF FF FF FF |................|
000012A0: FF D2 FF FF FF FF FF ED FF FF 33 FF 66 A2 D2 ED |..........3.f...|
000012B0: FF FF FF FF FF D6 FF FF FF FF FF 3B FF FF FF FF |...........;....|
000012C0: FF FF 33 FF FF FF FF FF 10 FF DA FF 33 FF FF FF |..3.........3...|
000012D0: FF D0 FF FF D2 FF D5 FF FF ED 41 52 54 53 20 4F |..........ARTS O|
000012E0: 4E 2F 42 45 46 4F 52 45 20 44 41 54 45 20 45 4E |N/BEFORE DATE EN|
000012F0: 54 45 52 45 44 22 3A 99 3A 8D 31 34 37 35 30 00 |TERED":.:.14750.|
00001300: 22 1B 52 08 5A 54 24 B2 44 54 24 3A 58 58 B2 34 |".R.ZT$.DT$:XX.4|
00001310: 3A 8D 32 37 31 30 30 3A 8B 50 37 B2 32 A7 32 32 |:.27100:.P7.2.22|
00001320: 34 30 00 33 1B 57 08 8B 5A 42 B3 5A 54 A7 5A 54 |40.3.W..ZB.ZT.ZT|
00001330: B2 5A 42 00 42 1B 5C 08 4E B2 5A 54 3A 50 4F B2 |.ZB.B.\.N.ZT:PO.|
00001340: 5A 54 00 77 1B 66 08 99 22 93 C5 4E 54 52 59 20 |ZT.w.f.."..NTRY |
00001350: CE 4F 20 22 3B 4E AA 31 3A 99 22 A3 A3 A3 A3 A3 |.O ";N.1:.".....|
00001360: A3 A3 A3 A3 A3 A3 22 3A 99 3A 8D 32 37 36 30 30 |......":.:.27600|
00001370: 3A 8D 32 37 37 30 30 00 B2 1B 70 08 4C 4E B2 32 |:.27700...p.LN.2|
00001380: 30 3A 43 4F B2 31 3A 8D 32 39 38 30 30 3A 99 22 |0:CO.1:.29800:."|
00001390: 12 D0 52 45 53 53 3A FF FF FF FF FF FF FF D0 FF |..RESS:.........|
000013A0: FF FF FF D0 FF FF FF B9 AE 88 A9 AF E8 ED 9C E8 |................|
000013B0: 9A 08 81 FF 54 FF FF FF 04 4E FF 08 40 17 FF 23 |....T....N..@..#|
000013C0: C3 F1 FF 23 FF FF F1 DB FF 61 73 FF 23 FF 2B FF |...#.....as.#.+.|
000013D0: 6B DB 2B FF FF FF E6 44 A3 37 29 22 12 53 92 20 |k.+....D.7)".S. |
000013E0: D4 4F 20 53 54 4F 50 22 00 0E 1C 84 08 A1 41 24 |.O STOP"......A$|
000013F0: 3A 8B 41 24 B3 B1 22 2B 22 AF 41 24 B3 B1 22 2D |:.A$.."+".A$.."-|
00001400: 22 AF 41 24 B3 B1 22 53 22 A7 32 31 38 30 00 1F |".A$.."S".2180..|
00001410: 1C 8E 08 8B 41 24 B2 22 2B 22 A7 32 32 32 30 00 |....A$."+".2220.|
00001420: 30 1C 98 08 8B 41 24 B2 22 2D 22 A7 32 32 33 30 |0....A$."-".2230|
00001430: 00 3A 1C A2 08 89 31 37 37 30 00 55 1C AC 08 8B |.:....1770.U....|
00001440: 4E AA 31 B3 B2 45 4E AB 31 A7 4E B2 4E AA 31 3A |N.1..EN.1.N.N.1:|
00001450: 89 32 31 35 30 00 5F 1C B1 08 89 32 31 38 30 00 |.2150._....2180.|
00001460: 77 1C B6 08 8B 4E AB 31 B1 B2 30 A7 4E B2 4E AB |w....N.1..0.N.N.|
00001470: 31 3A 89 32 31 35 30 00 81 1C BB 08 89 32 31 38 |1:.2150......218|
00001480: 30 00 90 1C C0 08 4E B2 5A 4D 3A 89 32 31 35 30 |0.....N.ZM:.2150|
00001490: 00 D9 1C FC 08 8B 54 52 24 28 30 29 B2 22 22 A7 |......TR$(0)."".|
000014A0: 99 22 93 D4 48 45 52 45 20 41 52 45 20 4E 4F 20 |."..HERE ARE NO |
000014B0: 45 4E 54 52 49 45 53 20 59 45 54 22 3A 99 22 11 |ENTRIES YET":.".|
000014C0: C8 49 54 20 41 4E 59 20 4B 45 59 22 3A 8D 31 34 |.IT ANY KEY":.14|
000014D0: 36 30 30 3A 89 31 01 01 01 01 01 01 01 01 01 01 |600:.1..........|
000014E0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
000014F0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00001500: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00001510: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00001520: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00001530: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00001540: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00001550: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00001560: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00001570: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00001580: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00001590: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
000015A0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
000015B0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
000015C0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
000015D0: 01 01 01 01 |.... |
..?.... * DIARY MANAGER * BY BERNARD HAB
ET (C) 1983 ABRASCO LTD...F..".":.53280,
6:HO$."HANG-ON WHILE SEARCHING":HV$."HAV
E FOUND THE FOLLOWING:"...P..53272,23:.G
(8)...Z.EN.0:PE$.".PLEASE ENTER THE FOLL
OWING INFORMATION:":.MO$(12),TT$(4),TR$(
455).<.I..N.1.4:.TT$(N):.:.N.1.12:.MO$(N
):.:SP$." "...N
.CO$."..................................
.....":LN$.".........................".S
.X..".";:.35500:.".. D I A R Y M
A N A G E R ..":.35500.......8)"...
. PRESS .. OPTION NUMBER:":..8)"..... 1
.. NEW ENTRIES".U.....8)"... 2 .. DELETI
ONS":..8+.F.'...?...............R.......
..3....F&....?....R.......R....3....F&..
..?...P..................3....F&....?...
RT..P........;......&.....3.............
..............3......R.;.....6..........
.}..".G.....PW...P...RT.R.U.P....5......
...2.....5...........T...6.......;......
....6...........6...3...P......Q.ZP....P
P..R..Z.ZP....3.F..R......V.....;......3
........3..FFG..........................
..3...........................V...3....F
.............Q..EMEMBER":..9)".. 2 . DAI
LY ENTRIES".].T...9)".. 3 . BACK TO MAIN
MENU":..9)"... PRESS OPTION NUMBER "...
H..14600:.E(A$).550,380,120:.360.F.|..PE
$:."..DATE .DDMM.: ";:P3.4:.29500:."..H
OUR .HHMM.: ";:.29500......"..NAME
: ";:P3.25:.29....3.FF....... : ";:.2
9500.=...LN.4:.29800:..11);:P3.4:P4.4:.3
0000:.25000:.P6.1.400.U...DT$.I(P$,2).H(
P$,2)......"..".11);:P3.4:P4.0:.30000:.2
5200:.P6.1.."....":.420.....HR$.P$.F....
"..".11);:P3.25:P4.0:.30000:.P$."".450..
....24000:.P6.1.."....":.440...B.NA$.P$.
*.L.."..".11);:P3.25:P4.1:.30000:.24000:
.P6.1.."....":.460.Y...EV$.P$:."........
ACCEPT";:.26000:.P6.2.380......".HANG-ON
WHILE POSTING":N.EN:TR$(N).DT$."1".HR$.
NA$."*".EV$:.27000.Q...."..OK, ANY OTHER
ENTRY";:.26000:.P6.1.380.Z....310.$.&..
PE$:."..DATE .DDMM.: ";:P3.4:.29500:.".
.NAME : ";:P3.25:.29500.N.0.."..EVE
NT : 1. "TT$(1)" 2. "TT$(2):..12)"
3. "TT$(3)" 4. "TT$(4)...B.LN.4:.29800:.
.11);:P3.4:P4.4:.30000:.25000:.P6.1.610.
..I.DT$.I(P$,2).H(P$,2)...L.."..".11);:P
3.25:P4.1:.30000:.24000:.P6.1.."...";:.6
20...T.NA$.P$:..11)"..>";.,.V..A$:.A$."1
".A$."4".630.R.Y..SP$:..11)SP$:."..";:.A
$.."4".640...{.P3.25:P4.1:..11);:.30000:
.24000:.P6.1..".";:.635...}.A$.P$:.650..
.....12)TT$(E(A$)):..11)". ".....EV$.A$:
.".......ACCEPT";:.26000:.P6.2.550.'.Z..
".HANG-ON WHILE POSTING":N.EN:TR$(N).DT$
."2".NA$."*".EV$:.24050.V...."..OK, ANY
OTHER ENTRY";:.26000:.P6.1.550._....310.
.....TR$(0).""..".THERE ARE NO ENTRIES Y
ET":.".HIT ANY KEY";:.14600:.120......90
00:.P6.2.120.O....YR$.""..26100......"..
.................... N S **":."..";:.147
50:.".."HO$.....ZT$.DT$:XX.4:.27100:.P7.
2.1055.?....ZT.ZB.ZB.ZT.H...N.ZB.}....".
ENTRY NO "N.1:."............":.:.27600:.
27700.E.J.LN.20:CO.1:.29800:.".PRESS:. .
D. TO DELETE":..7)".+. TO GO FORWARD"...
T...7)".M. TO EXIT TO MENU"......14600:.
A$."D".1010......A$."+".N.1..EN.1.N.N.1:
.960.,....A$."M".120.5....990.Y....".HAN
G-ON WHILE DELETING":PO.N......N.PO.EN.1
:TR$(N).TR$(N.1):.:EN.EN.1:.".OK"......"
.ANY OTHER DELETION";:.26000:.P6.1.910..
....120......".HAVE NOT FOUND ANY ENTRY
ON THIS DATE":.1030...L..9000:.P6.2.120.
:.Q.."...........DO YOU WISH TO .L.OAD O
R .S.AVE?".X.V..A$:.A$.."L".A$.."S".1110
.I.`..A$."L".1350......".ENTER NAME OF F
ILE TO BE SAVED":.".MAX .16. CHARACTERS:
";:...D.P3.16:P4.1:.30000:F$.P$:.:."..LO
AD. YOUR TAPE THEN .HIT. ANY KEY":..3...
.14600:.3,1,1,F$:.3,YR$:.3,EN:.N.0.EN.1:
.3,TR$(N):.: 3:.120.{.F..".DO YOU WISH T
O LOAD IMPORTANT DATES":."ONLY ";:.26000
:.P6.2.1400...K.." YES".P.P..".PLEASE EN
TER NAME OF FILE TO BE LOADED":.".MAX .1
6. CHARACTERS ";...Z.P3.16:P4.1:.30000:.
".PLEASE .LOAD. YOUR TAPE THEN .HIT. ANY
KEY.":.14600.L.D..3,1,0,P$:.3,YR$:.3,EN
:M.0:.N.0.EN.1:.3,A$.O.I..J(A$,5,1)."2".
TR$(M).A$:M.M.1...N..N: 3:EN.M:YR$."":.1
20.S.X..".PLEASE ENTER NAME OF FILE TO B
E LOADED":.".MAX .16. CHARACTERS ";. ...
P3.16:P4.1:.30000:.".PLEASE .LOAD. YOUR
TAPE THEN .HIT. ANY KEY.":.14600.Y.M..3,
1,0,P$:.3,YR$:.3,EN:.N.0.EN.1:.3,TR$(N):
.: 3:.120.L....YR$.""..26100......"...".
11)"SEARCH & RETRIEVE":..11)"...........
......".......7)".. 1 . DATES TO REMEMBE
R":..7)".. 2 . BROWSE THROUGH ENTRIES".4
.....7)".. 3 . STATEMENT OF ENTRIES":.
.7)".. 4 . SEARCH BY NAME".X.....7)"..
5 . BACK TO MAIN MENU":..11)"...PRES
S OPTION NUMBER"...&..14600:.E(A$).1850,
2120,2300,2700,120:.1830...:..TR$(0)."".
.".THERE ARE NO ENTRIES YET":.".HIT ANY
KEY";:.G.....3......R..3........ZP......
..R..................;.......RR.6.......
......G.........RV.3.G..Q..6............
.......R..............;......6.....3.G..
.........Q.....R.....R..ZP.....3......R.
.......R..3.........Q...Z.Z....R...ZQ...
............$:.:.N.M.M.9:.N.ZT.1940...V.
.J(TR$(N),5,1)."2"..27600:.24100.N....N:
."..HIT ANY KEY TO CONTINUE.":.14600:M.N
:.1880.S....".ANY OTHER";:.26000:.P6.1.1
860.}....1770.G.H..TR$(0).""..".........
...Q.....R........3.F.R......V.....;....
..3.......Z.3....P..R.U...ARTS ON/BEFORE
DATE ENTERED":.:.14750.".R.ZT$.DT$:XX.4
:.27100:.P7.2.2240.3.W..ZB.ZT.ZT.ZB.B.\.
N.ZT:PO.ZT.W.F..".ENTRY NO ";N.1:.".....
......":.:.27600:.27700...P.LN.20:CO.1:.
29800:.".PRESS:.......P....P............
....T....N..@..#C..#.....AS.#.+.K.+....D
.7)".S. TO STOP"......A$:.A$.."+".A$.."-
".A$.."S".2180......A$."+".2220.0....A$.
"-".2230.:....1770.U....N.1..EN.1.N.N.1:
.2150._....2180.W....N.1..0.N.N.1:.2150.
.....2180.....N.ZM:.2150.Y....TR$(0)."".
.".THERE ARE NO ENTRIES YET":.".HIT ANY
KEY":.14600:.1..........................
........................................
........................................
........................................
........................................
........................................
............................
> CLICK IMAGE PREVIEW FOR FULL MODAL