FILE INFORMATION
FILENAME(S): MAIL
FILE TYPE(S): PRG
FILE SIZE: 9.2K
FIRST SEEN: 2025-11-30 21:07:11
APPEARS ON: 1 disk(s)
FILE HASH
dbdcda3681a2b45337593a7a6d561809c92adb0d9a1e3b215996828dfcb1f701
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CURSOR 6 | PRG | DuncanTwain | 5 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 22 04 00 00 9C 3A 50 47 24 B2 22 4D 41 49 |.."....:PG$."MAI|
00000010: 4C 22 3A 4E 4D 24 B2 22 32 35 22 3A 89 36 32 30 |L":NM$."25":.620|
00000020: 30 30 00 43 04 01 00 22 20 52 4F 42 59 20 48 59 |00.C..." ROBY HY|
00000030: 44 45 20 26 20 48 55 4E 54 45 52 20 48 41 4E 43 |DE & HUNTER HANC|
00000040: 4F 43 4B 00 5F 04 02 00 22 20 33 33 31 31 20 42 |OCK._..." 3311 B|
00000050: 52 4F 4F 4B 48 49 4C 4C 20 43 49 52 43 4C 45 00 |ROOKHILL CIRCLE.|
00000060: 73 04 03 00 22 20 4C 45 58 49 4E 47 54 4F 4E 2C |s..." LEXINGTON,|
00000070: 20 4B 59 00 79 04 04 00 22 00 95 04 05 00 22 20 | KY.y..."....." |
00000080: 43 55 52 53 4F 52 20 23 32 35 2C 41 50 52 49 4C |CURSOR #25,APRIL|
00000090: 2C 31 39 38 31 00 BB 04 06 00 22 20 43 4F 50 59 |,1981....." COPY|
000000A0: 52 49 47 48 54 28 43 29 31 39 38 31 20 54 48 45 |RIGHT(C)1981 THE|
000000B0: 20 43 4F 44 45 20 57 4F 52 4B 53 00 DC 04 07 00 | CODE WORKS.....|
000000C0: 22 20 42 4F 58 20 35 35 30 2C 20 47 4F 4C 45 54 |" BOX 550, GOLET|
000000D0: 41 2C 20 43 41 2E 20 39 33 31 31 36 00 E2 04 08 |A, CA. 93116....|
000000E0: 00 22 00 F5 04 0A 00 22 20 41 53 20 4F 46 20 33 |."....." AS OF 3|
000000F0: 4D 41 59 38 31 00 05 05 0B 00 22 20 2D 2D 2D 2D |MAY81....." ----|
00000100: 2D 2D 2D 2D 2D 00 3F 05 0C 00 22 20 4C 49 4E 45 |-----.?..." LINE|
00000110: 53 20 39 30 30 2D 32 38 30 30 20 55 53 45 44 20 |S 900-2800 USED |
00000120: 42 59 20 50 45 52 4D 49 53 53 49 4F 4E 20 43 4F |BY PERMISSION CO|
00000130: 4D 50 55 54 45 21 20 4D 41 47 41 5A 49 4E 45 00 |MPUTE! MAGAZINE.|
00000140: 74 05 0D 00 22 20 28 43 29 20 43 4F 50 59 52 49 |t..." (C) COPYRI|
00000150: 47 48 54 20 31 39 38 30 20 53 4D 41 4C 4C 20 53 |GHT 1980 SMALL S|
00000160: 59 53 54 45 4D 53 20 53 45 52 56 49 43 45 53 2C |YSTEMS SERVICES,|
00000170: 20 49 4E 43 00 98 05 0E 00 22 20 42 4F 58 20 35 | INC....." BOX 5|
00000180: 34 30 36 20 47 52 45 45 4E 53 42 4F 52 4F 2C 20 |406 GREENSBORO, |
00000190: 4E 43 20 32 37 34 30 33 00 A8 05 0F 00 22 20 2D |NC 27403....." -|
000001A0: 2D 2D 2D 2D 2D 2D 2D 2D 00 C8 05 64 00 46 44 B2 |--------...d.FD.|
000001B0: 31 3A 44 52 24 B2 22 30 3A 22 3A 8F 20 46 49 4C |1:DR$."0:":. FIL|
000001C0: 45 20 44 45 56 49 43 45 00 F1 05 78 00 51 54 24 |E DEVICE...x.QT$|
000001D0: B2 C7 28 33 34 29 3A 4D 4D B2 31 30 30 30 3A 8F |..(34):MM.1000:.|
000001E0: 20 4D 49 4E 20 4D 45 4D 4F 52 59 52 45 4D 41 49 | MIN MEMORYREMAI|
000001F0: 4E 00 23 06 C8 00 42 4C 24 B2 22 20 20 20 20 20 |N.#...BL$." |
00000200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000220: 20 20 22 00 3C 06 2C 01 4D 41 58 B2 35 30 3A 8F | ".<.,.MAX.50:.|
00000230: 20 4D 41 58 20 45 4E 54 52 49 45 53 00 61 06 90 | MAX ENTRIES.a..|
00000240: 01 46 31 24 B2 22 2A 22 3A 46 32 24 B2 22 DA 22 |.F1$."*":F2$."."|
00000250: 3A 8F 20 52 45 53 45 52 56 45 44 20 43 48 41 52 |:. RESERVED CHAR|
00000260: 53 00 81 06 F4 01 54 44 24 B2 22 44 49 53 4B 22 |S.....TD$."DISK"|
00000270: 3A 8B 46 44 B3 38 A7 54 44 24 B2 22 54 41 50 45 |:.FD.8.TD$."TAPE|
00000280: 22 00 A5 06 58 02 86 20 41 44 24 28 4D 41 58 29 |"...X.. AD$(MAX)|
00000290: 2C 41 24 28 36 29 2C 4C 42 24 28 36 29 2C 4F 50 |,A$(6),LB$(6),OP|
000002A0: 24 28 31 30 29 00 C1 06 62 02 8C 3A 81 20 49 B2 |$(10)...b..:. I.|
000002B0: 31 20 A4 20 36 3A 87 4C 42 24 28 49 29 3A 82 20 |1 . 6:.LB$(I):. |
000002C0: 49 00 E2 06 6C 02 83 20 22 4E 41 4D 45 20 20 22 |I...l.. "NAME "|
000002D0: 2C 22 41 44 44 52 20 31 22 2C 22 41 44 44 52 20 |,"ADDR 1","ADDR |
000002E0: 32 22 00 03 07 76 02 83 20 22 41 44 44 52 20 33 |2"...v.. "ADDR 3|
000002F0: 22 2C 22 41 44 44 52 20 34 22 2C 22 5A 49 50 20 |","ADDR 4","ZIP |
00000300: 20 20 22 00 19 07 8A 02 4F 50 24 B2 22 22 3A 81 | ".....OP$."":.|
00000310: 20 49 B2 31 20 A4 20 31 30 00 3A 07 94 02 87 20 | I.1 . 10.:.... |
00000320: 4F 50 24 28 49 29 3A 4F 50 24 B2 4F 50 24 AA C8 |OP$(I):OP$.OP$..|
00000330: 28 4F 50 24 28 49 29 2C 31 29 00 5B 07 9E 02 8B |(OP$(I),1).[....|
00000340: 4F 50 24 28 49 29 B2 22 46 41 53 54 22 A7 4F 50 |OP$(I)."FAST".OP|
00000350: 24 28 49 29 B2 22 4C 49 53 54 22 00 62 07 A8 02 |$(I)."LIST".b...|
00000360: 82 49 00 9F 07 B2 02 83 20 52 45 41 44 2C 53 4F |.I...... READ,SO|
00000370: 52 54 2C 50 52 49 4E 54 2C 57 52 49 54 45 2C 51 |RT,PRINT,WRITE,Q|
00000380: 55 49 54 2C 44 45 4C 45 54 45 2C 41 44 44 2C 4D |UIT,DELETE,ADD,M|
00000390: 4F 44 49 46 59 2C 4C 49 53 54 2C 46 41 53 54 00 |ODIFY,LIST,FAST.|
000003A0: AA 07 BC 02 89 20 35 32 30 30 00 BE 07 20 03 99 |..... 5200... ..|
000003B0: 22 11 53 4F 52 54 49 4E 47 2E 2E 2E 2E 22 00 E2 |".SORTING...."..|
000003C0: 07 84 03 4E B2 43 4F 3A 54 50 B2 31 3A 4C 4F 57 |...N.CO:TP.1:LOW|
000003D0: 45 52 28 31 29 B2 31 3A 55 50 50 45 52 28 31 29 |ER(1).1:UPPER(1)|
000003E0: B2 4E 00 F1 07 E8 03 8B 43 4F B2 30 A7 34 38 30 |.N......CO.0.480|
000003F0: 30 00 FE 07 4C 04 8B 54 50 B3 B2 30 A7 8E 00 24 |0...L..TP..0...$|
00000400: 08 B0 04 4C 42 B2 4C 4F 57 45 52 28 54 50 29 3A |...LB.LOWER(TP):|
00000410: 55 42 B2 55 50 50 45 52 28 54 50 29 3A 54 50 B2 |UB.UPPER(TP):TP.|
00000420: 54 50 AB 31 00 35 08 14 05 8B 55 42 B3 B2 4C 42 |TP.1.5....UB..LB|
00000430: A7 31 31 30 30 00 50 08 78 05 49 B2 4C 42 3A 4A |.1100.P.x.I.LB:J|
00000440: B2 55 42 3A 54 45 4D 50 24 B2 41 44 24 28 49 29 |.UB:TEMP$.AD$(I)|
00000450: 00 5E 08 DC 05 8B 4A B3 31 A7 31 38 30 30 00 8F |.^....J.1.1800..|
00000460: 08 40 06 8B CA 28 54 45 4D 50 24 2C C6 28 54 45 |.@...(TEMP$,.(TE|
00000470: 4D 50 24 29 29 B1 B2 CA 28 41 44 24 28 4A 29 2C |MP$))...(AD$(J),|
00000480: C6 28 41 44 24 28 4A 29 29 29 A7 31 38 30 30 00 |.(AD$(J))).1800.|
00000490: 9F 08 A4 06 4A B2 4A AB 31 3A 89 31 35 30 30 00 |....J.J.1:.1500.|
000004A0: BC 08 08 07 8B 4A B3 B2 49 A7 41 44 24 28 49 29 |.....J..I.AD$(I)|
000004B0: B2 54 45 4D 50 24 3A 89 32 35 30 30 00 D4 08 6C |.TEMP$:.2500...l|
000004C0: 07 41 44 24 28 49 29 B2 41 44 24 28 4A 29 3A 49 |.AD$(I).AD$(J):I|
000004D0: B2 49 AA 31 00 E2 08 D0 07 8B 49 B1 4E A7 32 33 |.I.1......I.N.23|
000004E0: 30 30 00 13 09 34 08 8B CA 28 41 44 24 28 49 29 |00...4...(AD$(I)|
000004F0: 2C C6 28 41 44 24 28 49 29 29 29 B1 B2 CA 28 54 |,.(AD$(I)))...(T|
00000500: 45 4D 50 24 2C C6 28 54 45 4D 50 24 29 29 A7 32 |EMP$,.(TEMP$)).2|
00000510: 33 30 30 00 23 09 98 08 49 B2 49 AA 31 3A 89 32 |300.#...I.I.1:.2|
00000520: 30 30 30 00 46 09 FC 08 8B 4A B1 49 A7 41 44 24 |000.F....J.I.AD$|
00000530: 28 4A 29 B2 41 44 24 28 49 29 3A 4A B2 4A AB 31 |(J).AD$(I):J.J.1|
00000540: 3A 89 31 36 30 30 00 5B 09 60 09 41 44 24 28 4A |:.1600.[.`.AD$(J|
00000550: 29 B2 54 45 4D 50 24 3A 49 B2 4A 00 67 09 C4 09 |).TEMP$:I.J.g...|
00000560: 54 50 B2 54 50 AA 31 00 9E 09 28 0A 8B 49 AB 4C |TP.TP.1...(..I.L|
00000570: 42 B3 55 42 AB 49 A7 4C 4F 57 45 52 28 54 50 29 |B.UB.I.LOWER(TP)|
00000580: B2 49 AA 31 3A 55 50 50 45 52 28 54 50 29 B2 55 |.I.1:UPPER(TP).U|
00000590: 42 3A 55 42 B2 49 AB 31 3A 89 31 33 30 30 00 C4 |B:UB.I.1:.1300..|
000005A0: 09 8C 0A 4C 4F 57 45 52 28 54 50 29 B2 4C 42 3A |...LOWER(TP).LB:|
000005B0: 55 50 50 45 52 28 54 50 29 B2 49 AB 31 3A 4C 42 |UPPER(TP).I.1:LB|
000005C0: B2 49 AA 31 00 CE 09 F0 0A 89 31 33 30 30 00 F1 |.I.1......1300..|
000005D0: 09 C0 12 99 22 93 11 11 4E 4F 54 48 49 4E 47 20 |...."...NOTHING |
000005E0: 54 4F 20 22 3B 4F 50 24 28 4F 50 29 3B 22 2E 11 |TO ";OP$(OP);"..|
000005F0: 22 00 0F 0A 24 13 99 22 48 49 54 20 12 52 45 54 |"...$.."HIT .RET|
00000600: 55 52 4E 92 20 46 4F 52 20 4D 45 4E 55 22 3B 00 |URN. FOR MENU";.|
00000610: 23 0A 88 13 A1 41 24 3A 8B 41 24 B2 22 22 A7 35 |#....A$:.A$."".5|
00000620: 30 30 30 00 2E 0A 50 14 8F 20 4D 45 4E 55 00 51 |000...P.. MENU.Q|
00000630: 0A 18 15 99 22 93 22 3B 43 4F 3B 22 45 4E 54 52 |....".";CO;"ENTR|
00000640: 22 3B 3A 8B 20 43 4F B2 31 20 A7 20 99 22 59 22 |";:. CO.1 . ."Y"|
00000650: 3B 00 64 0A 7C 15 8B 43 4F B3 B1 31 A7 99 22 49 |;.d.|..CO..1.."I|
00000660: 45 53 22 3B 00 91 0A E0 15 8B B8 28 30 29 B3 4D |ES";.......(0).M|
00000670: 4D A7 99 A3 31 38 29 3B 22 4F 4E 4C 59 22 3B B8 |M...18);"ONLY";.|
00000680: 28 30 29 3B 22 42 59 54 45 53 20 4C 45 46 54 22 |(0);"BYTES LEFT"|
00000690: 3B 00 97 0A 44 16 99 00 B0 0A A8 16 81 49 B2 31 |;...D........I.1|
000006A0: A4 31 33 3A 99 22 D2 D2 D2 22 3B 3A 82 49 3A 99 |.13:."...";:.I:.|
000006B0: 00 C9 0A 0C 17 99 22 11 12 41 92 9D 91 A4 11 44 |......"..A.....D|
000006C0: 44 20 45 4E 54 52 49 45 53 00 E6 0A 70 17 99 22 |D ENTRIES...p.."|
000006D0: 11 12 4D 92 9D 91 A4 11 4F 44 49 46 59 20 41 4E |..M.....ODIFY AN|
000006E0: 20 45 4E 54 52 59 00 03 0B D4 17 99 22 11 12 44 | ENTRY......"..D|
000006F0: 92 9D 91 A4 11 45 4C 45 54 45 20 41 4E 20 45 4E |.....ELETE AN EN|
00000700: 54 52 59 00 40 0B 38 18 99 22 11 12 4C 92 9D 91 |TRY.@.8.."..L...|
00000710: A4 11 49 53 54 20 45 4E 54 52 49 45 53 20 28 4F |..IST ENTRIES (O|
00000720: 4E 20 12 53 92 9D 91 A4 11 43 52 45 45 4E 20 4F |N .S.....CREEN O|
00000730: 52 20 12 50 92 9D 91 A4 11 52 49 4E 54 45 52 29 |R .P.....RINTER)|
00000740: 00 61 0B 6A 18 99 22 11 12 46 92 9D 91 A4 11 41 |.a.j.."..F.....A|
00000750: 53 54 20 4C 49 53 54 20 4F 46 20 4E 41 4D 45 53 |ST LIST OF NAMES|
00000760: 22 00 9F 0B 9C 18 99 22 11 12 53 92 9D 91 A4 11 |"......"..S.....|
00000770: 4F 52 54 20 4C 49 53 54 20 28 42 59 20 12 4C 92 |ORT LIST (BY .L.|
00000780: 9D 91 A4 11 41 53 54 20 4E 41 4D 45 20 4F 52 20 |....AST NAME OR |
00000790: 12 5A 92 9D 91 A4 11 49 50 20 43 4F 44 45 29 00 |.Z.....IP CODE).|
000007A0: B9 0B 00 19 99 22 11 12 50 92 9D 91 A4 11 52 49 |....."..P.....RI|
000007B0: 4E 54 20 4C 41 42 45 4C 53 00 DB 0B 64 19 99 22 |NT LABELS...d.."|
000007C0: 11 12 52 92 9D 91 A4 11 45 41 44 20 46 49 4C 45 |..R.....EAD FILE|
000007D0: 20 46 52 4F 4D 20 22 3B 54 44 24 00 FB 0B C8 19 | FROM ";TD$.....|
000007E0: 99 22 11 12 57 92 9D 91 A4 11 52 49 54 45 20 46 |."..W.....RITE F|
000007F0: 49 4C 45 20 54 4F 20 22 54 44 24 00 0D 0C 2C 1A |ILE TO "TD$...,.|
00000800: 99 22 11 12 51 92 9D 91 A4 11 55 49 54 00 26 0C |."..Q.....UIT.&.|
00000810: 90 1A 99 22 11 57 48 41 54 20 53 48 41 4C 4C 20 |...".WHAT SHALL |
00000820: 49 20 44 4F 22 3B 00 31 0C F4 1A 8D 33 30 32 30 |I DO";.1....3020|
00000830: 30 00 46 0C 58 1B 4F 50 B2 30 3A 81 49 B2 31 A4 |0.F.X.OP.0:.I.1.|
00000840: C3 28 4F 50 24 29 00 64 0C BC 1B 8B CA 28 4F 50 |.(OP$).d.....(OP|
00000850: 24 2C 49 2C 31 29 B2 49 4E 24 A7 4F 50 B2 49 3A |$,I,1).IN$.OP.I:|
00000860: 49 B2 39 39 00 7E 0C 20 1C 82 3A 8B 4F 50 B2 30 |I.99.~. ..:.OP.0|
00000870: A7 99 22 9D 9D 9D 22 3B 3A 89 36 39 30 30 00 C6 |.."...";:.6900..|
00000880: 0C 7A 1C 8F 20 20 20 20 20 20 20 20 20 20 20 20 |.z.. |
00000890: 52 20 20 20 20 20 53 20 20 20 20 20 50 20 20 20 |R S P |
000008A0: 20 20 57 20 20 20 20 20 51 20 20 20 20 20 44 20 | W Q D |
000008B0: 20 20 20 41 20 20 20 20 20 4D 20 20 20 20 20 4C | A M L|
000008C0: 20 20 20 20 20 46 00 0E 0D 84 1C 46 43 B2 36 3A | F.....FC.6:|
000008D0: 91 4F 50 89 31 34 35 30 30 2C 31 36 36 30 30 2C |.OP.14500,16600,|
000008E0: 31 39 33 30 30 2C 31 33 30 30 30 2C 32 38 37 30 |19300,13000,2870|
000008F0: 30 2C 31 35 36 30 30 2C 37 35 30 30 2C 32 37 39 |0,15600,7500,279|
00000900: 30 30 2C 32 39 34 30 30 2C 33 30 38 30 30 00 1C |00,29400,30800..|
00000910: 0D E8 1C 43 4F 55 4E 54 45 52 B2 30 00 28 0D 4C |...COUNTER.0.(.L|
00000920: 1D 45 4E B2 43 4F AA 31 00 66 0D 56 1D 8B 45 4E |.EN.CO.1.f.V..EN|
00000930: B1 4D 41 58 A7 99 22 93 11 11 11 43 41 4E 27 54 |.MAX.."....CAN'T|
00000940: 20 48 4F 4C 44 20 4D 4F 52 45 20 54 48 41 4E 22 | HOLD MORE THAN"|
00000950: 3B 4D 41 58 3B 22 45 4E 54 52 49 45 53 2E 11 22 |;MAX;"ENTRIES.."|
00000960: 3A 89 34 39 30 30 00 81 0D 60 1D 99 22 93 20 45 |:.4900...`..". E|
00000970: 4E 54 45 52 20 41 44 44 52 45 53 53 20 23 22 45 |NTER ADDRESS #"E|
00000980: 4E 00 9F 0D B0 1D 81 4E B2 31 A4 36 3A 47 43 28 |N......N.1.6:GC(|
00000990: 4E 29 B2 30 3A 41 24 28 4E 29 B2 22 22 3A 82 00 |N).0:A$(N)."":..|
000009A0: AB 0D 14 1E 8D 20 32 36 38 30 30 00 BF 0D 40 1F |..... 26800...@.|
000009B0: 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 00 |."..............|
000009C0: EA 0D 4A 1F 99 22 50 52 45 53 53 20 12 53 48 49 |..J.."PRESS .SHI|
000009D0: 46 54 20 52 45 54 55 52 4E 92 20 54 4F 20 41 43 |FT RETURN. TO AC|
000009E0: 43 45 50 54 20 45 4E 54 52 59 00 16 0E 54 1F 99 |CEPT ENTRY...T..|
000009F0: 22 11 20 20 20 20 20 20 12 4F 46 46 92 20 28 12 |". .OFF. (.|
00000A00: 53 48 49 46 54 20 52 56 53 92 29 20 54 4F 20 41 |SHIFT RVS.) TO A|
00000A10: 42 41 4E 44 4F 4E 00 2F 0E 6C 20 52 57 B2 36 3A |BANDON./.l RW.6:|
00000A20: 43 4C B2 37 3A 43 48 B2 30 3A 5A 54 B2 54 49 00 |CL.7:CH.0:ZT.TI.|
00000A30: 42 0E D0 20 50 B2 43 52 54 AA 57 44 AC 52 57 AA |B.. P.CRT.WD.RW.|
00000A40: 43 4C 00 5D 0E 34 21 99 3A 97 20 51 4C 2C 52 57 |CL.].4!.:. QL,RW|
00000A50: AA 31 3A 99 22 91 22 3B A3 43 4C 29 3B 00 83 0E |.1:.".";.CL);...|
00000A60: 98 21 8B 54 49 B1 5A 54 A7 97 50 2C 28 C2 28 50 |.!.TI.ZT..P,(.(P|
00000A70: 29 AA 31 32 38 29 AF 32 35 35 3A 5A 54 B2 5A 54 |).128).255:ZT.ZT|
00000A80: AA 32 30 00 99 0E FC 21 A1 49 4E 24 3A 8B 49 4E |.20....!.IN$:.IN|
00000A90: 24 B2 22 22 A7 38 36 30 30 00 A9 0E 60 22 97 50 |$."".8600...`".P|
00000AA0: 2C C2 28 50 29 AF 31 32 37 00 B7 0E C4 22 43 48 |,.(P).127...."CH|
00000AB0: B2 C6 28 49 4E 24 29 00 C9 0E 28 23 8B 43 48 B2 |..(IN$)...(#.CH.|
00000AC0: 31 34 31 A7 31 30 36 30 30 00 DB 0E 8C 23 8B 49 |141.10600....#.I|
00000AD0: 4E 24 B2 22 92 22 A7 35 32 30 30 00 FC 0E 54 24 |N$.".".5200...T$|
00000AE0: 8B 28 43 48 B1 33 32 AF 43 48 B3 39 35 29 B0 43 |.(CH.32.CH.95).C|
00000AF0: 48 B1 B2 31 36 30 A7 31 30 33 30 30 00 21 0F B8 |H..160.10300.!..|
00000B00: 24 8B 43 48 B2 31 33 A7 43 4C B2 37 3A 8B 52 57 |$.CH.13.CL.7:.RW|
00000B10: B3 31 31 A7 52 57 B2 52 57 AA 31 3A 89 38 34 30 |.11.RW.RW.1:.840|
00000B20: 30 00 47 0F 1C 25 8B 43 48 B2 32 39 B0 43 48 B2 |0.G..%.CH.29.CH.|
00000B30: 33 32 A7 8B 43 4C B3 33 39 A7 43 4C B2 43 4C AA |32..CL.39.CL.CL.|
00000B40: 31 3A 89 38 34 30 30 00 66 0F 80 25 8B 43 48 B2 |1:.8400.f..%.CH.|
00000B50: 31 35 37 AF 43 4C B1 37 A7 43 4C B2 43 4C AB 31 |157.CL.7.CL.CL.1|
00000B60: 3A 89 38 34 30 30 00 85 0F E4 25 8B 43 48 B2 31 |:.8400....%.CH.1|
00000B70: 34 35 AF 52 57 B1 36 A7 52 57 B2 52 57 AB 31 3A |45.RW.6.RW.RW.1:|
00000B80: 89 38 34 30 30 00 A4 0F 48 26 8B 43 48 B2 31 37 |.8400...H&.CH.17|
00000B90: AF 52 57 B3 31 31 A7 52 57 B2 52 57 AA 31 3A 89 |.RW.11.RW.RW.1:.|
00000BA0: 38 34 30 30 00 E5 0F AC 26 8B 43 48 B2 32 30 AF |8400....&.CH.20.|
00000BB0: 43 4C B1 37 A7 99 20 49 4E 24 3B 3A 43 4C B2 43 |CL.7.. IN$;:CL.C|
00000BC0: 4C AB 31 3A 8B 20 43 4C B3 47 43 28 52 57 AB 35 |L.1:. CL.GC(RW.5|
00000BD0: 29 A7 47 43 28 52 57 AB 35 29 B2 47 43 28 52 57 |).GC(RW.5).GC(RW|
00000BE0: AB 35 29 AB 31 00 07 10 10 27 8B 43 48 B3 B1 31 |.5).1....'.CH..1|
00000BF0: 34 38 B0 47 43 28 52 57 AB 35 29 AA 31 B1 B2 57 |48.GC(RW.5).1..W|
00000C00: 44 A7 31 30 32 30 30 00 2A 10 74 27 47 43 28 52 |D.10200.*.t'GC(R|
00000C10: 57 AB 35 29 B2 47 43 28 52 57 AB 35 29 AA 31 3A |W.5).GC(RW.5).1:|
00000C20: 99 49 4E 24 3B 22 20 9D 22 3B 00 34 10 D8 27 89 |.IN$;" .";.4..'.|
00000C30: 38 34 30 30 00 54 10 3C 28 43 4C B2 43 4C AA 31 |8400.T.<(CL.CL.1|
00000C40: 3A 8B 43 4C B1 33 39 A7 43 4C B2 33 39 3A 49 4E |:.CL.39.CL.39:IN|
00000C50: 24 B2 22 22 00 71 10 A0 28 8B 43 4C B1 47 43 28 |$."".q..(.CL.GC(|
00000C60: 52 57 AB 35 29 A7 47 43 28 52 57 AB 35 29 B2 43 |RW.5).GC(RW.5).C|
00000C70: 4C 00 81 10 04 29 99 49 4E 24 3B 3A 89 38 34 30 |L....).IN$;:.840|
00000C80: 30 00 A8 10 68 29 99 22 13 11 11 11 11 11 11 11 |0...h)."........|
00000C90: 11 11 11 11 11 11 22 3B 42 4C 24 3A 99 3A 99 42 |......";BL$:.:.B|
00000CA0: 4C 24 3B 22 91 91 91 22 00 BC 10 CC 29 46 B2 30 |L$;"..."....)F.0|
00000CB0: 3A 81 20 4E 31 B2 31 20 A4 20 46 43 00 D9 10 D6 |:. N1.1 . FC....|
00000CC0: 29 41 24 B2 22 22 3A 8B 20 47 43 28 4E 31 29 B3 |)A$."":. GC(N1).|
00000CD0: 37 20 A7 20 31 30 37 38 30 00 F3 10 E0 29 42 24 |7 . 10780....)B$|
00000CE0: B2 22 22 3A 81 20 4E 32 B2 37 20 A4 20 47 43 28 |."":. N2.7 . GC(|
00000CF0: 4E 31 29 00 1D 11 EA 29 4E B2 43 52 54 AA 28 4E |N1)....)N.CRT.(N|
00000D00: 31 AA 35 29 AC 57 44 AA 4E 32 3A 50 4B B2 C2 28 |1.5).WD.N2:PK..(|
00000D10: 4E 29 3A 97 20 4E 2C 31 32 38 AA 50 4B 00 34 11 |N):. N,128.PK.4.|
00000D20: F4 29 8B 20 50 4B B3 33 32 20 A7 20 50 4B B2 50 |.). PK.32 . PK.P|
00000D30: 4B AA 36 34 00 4B 11 F9 29 8B 50 4B B2 33 34 B0 |K.64.K..).PK.34.|
00000D40: 50 4B B2 39 38 A7 50 4B B2 33 32 00 6B 11 FE 29 |PK.98.PK.32.k..)|
00000D50: 8B 20 50 4B B2 33 32 20 A7 20 42 24 B2 42 24 AA |. PK.32 . B$.B$.|
00000D60: 22 20 22 3A 89 20 31 30 37 37 30 00 88 11 08 2A |" ":. 10770....*|
00000D70: 41 24 B2 41 24 AA 42 24 AA C7 28 50 4B 29 3A 42 |A$.A$.B$..(PK):B|
00000D80: 24 B2 22 22 3A 46 B2 31 00 91 11 12 2A 82 20 4E |$."":F.1....*. N|
00000D90: 32 00 9F 11 1C 2A 41 24 28 4E 31 29 B2 41 24 00 |2....*A$(N1).A$.|
00000DA0: A8 11 26 2A 82 20 4E 31 00 C3 11 30 2A 8B 20 46 |..&*. N1...0*. F|
00000DB0: B2 30 20 AF 20 45 4E B3 B2 43 4F 20 A7 20 31 35 |.0 . EN..CO . 15|
00000DC0: 39 30 30 00 D4 11 3A 2A 8B 20 46 B2 30 20 A7 20 |900...:*. F.0 . |
00000DD0: 35 32 30 30 00 F1 11 44 2A 41 24 B2 41 24 28 31 |5200...D*A$.A$(1|
00000DE0: 29 3A 8D 31 31 30 30 30 3A 41 24 28 31 29 B2 41 |):.11000:A$(1).A|
00000DF0: 24 00 07 12 4E 2A 41 44 24 B2 22 22 3A 81 20 49 |$...N*AD$."":. I|
00000E00: B2 31 20 A4 20 46 43 00 21 12 58 2A 41 44 24 B2 |.1 . FC.!.X*AD$.|
00000E10: 41 44 24 AA 41 24 28 49 29 AA 46 31 24 3A 82 20 |AD$.A$(I).F1$:. |
00000E20: 49 00 36 12 62 2A 41 44 24 28 45 4E 29 B2 41 44 |I.6.b*AD$(EN).AD|
00000E30: 24 3A 41 4C B2 31 00 4A 12 6C 2A 8B 20 45 4E B3 |$:AL.1.J.l*. EN.|
00000E40: B2 43 4F 20 A7 20 35 32 30 30 00 54 12 76 2A 43 |.CO . 5200.T.v*C|
00000E50: 4F B2 45 4E 00 7C 12 80 2A 8B B8 28 30 29 B3 4D |O.EN.|..*..(0).M|
00000E60: 4D A7 99 22 4F 4E 4C 59 22 3B B8 28 30 29 3B 22 |M.."ONLY";.(0);"|
00000E70: 42 59 54 45 53 20 4C 45 46 54 11 22 00 AE 12 8A |BYTES LEFT."....|
00000E80: 2A 99 22 41 4E 59 20 4D 4F 52 45 20 41 44 44 52 |*."ANY MORE ADDR|
00000E90: 45 53 53 45 53 22 3B 3A 8D 33 30 32 30 30 3A 99 |ESSES";:.30200:.|
00000EA0: 3A 8B 49 4E 24 B2 22 4E 22 A7 35 32 30 30 00 B8 |:.IN$."N".5200..|
00000EB0: 12 94 2A 89 37 35 30 30 00 C9 12 F8 2A 8B 41 24 |..*.7500....*.A$|
00000EC0: B2 22 22 A7 31 31 33 30 30 00 E0 12 2A 2B 81 20 |."".11300...*+. |
00000ED0: 4A B2 C3 28 41 24 29 20 A4 20 31 20 A9 20 AB 31 |J..(A$) . 1 . .1|
00000EE0: 00 11 13 5C 2B 8B 20 CA 28 41 24 2C 4A 2C 31 29 |...\+. .(A$,J,1)|
00000EF0: B2 22 20 22 20 A7 20 41 24 B2 CA 28 41 24 2C 4A |." " . A$..(A$,J|
00000F00: AA 31 29 AA 46 32 24 AA C8 28 41 24 2C 4A 29 3A |.1).F2$..(A$,J):|
00000F10: 8E 00 19 13 C0 2B 82 20 4A 00 27 13 24 2C 41 24 |.....+. J.'.$,A$|
00000F20: B2 41 24 AA 46 32 24 00 2D 13 88 2C 8E 00 3C 13 |.A$.F2$.-..,..<.|
00000F30: C8 32 8B 43 4F B2 30 A7 34 38 30 30 00 66 13 D2 |.2.CO.0.4800.f..|
00000F40: 32 99 22 93 11 11 11 57 52 49 54 45 20 49 4E 54 |2."....WRITE INT|
00000F50: 4F 20 57 48 41 54 20 46 49 4C 45 3F 20 22 3B 3A |O WHAT FILE? ";:|
00000F60: 8D 36 30 30 30 30 00 77 13 DC 32 8B 49 4E 24 B2 |.60000.w..2.IN$.|
00000F70: 22 22 A7 35 32 30 30 00 8A 13 E1 32 8B 20 46 44 |"".5200....2. FD|
00000F80: B3 38 20 A7 20 31 33 30 37 30 00 A2 13 E6 32 54 |.8 . 13070....2T|
00000F90: 24 B2 C8 28 49 4E 24 2C 31 32 29 AA 22 2E 4F 4C |$..(IN$,12).".OL|
00000FA0: 44 22 00 BE 13 F0 32 9F 31 35 2C 38 2C 31 35 3A |D"....2.15,8,15:|
00000FB0: 98 31 35 2C 22 53 22 3B 44 52 24 3B 54 24 00 D9 |.15,"S";DR$;T$..|
00000FC0: 13 FA 32 98 31 35 2C 22 52 22 3B 44 52 24 3B 54 |..2.15,"R";DR$;T|
00000FD0: 24 3B 22 3D 22 3B 49 4E 24 00 E1 13 04 33 A0 31 |$;"=";IN$....3.1|
00000FE0: 35 00 02 14 0E 33 44 52 B2 31 3A 46 49 24 B2 49 |5....3DR.1:FI$.I|
00000FF0: 4E 24 3A 8D 35 30 31 30 30 3A 8B 45 52 A7 34 39 |N$:.50100:.ER.49|
00001000: 30 30 00 17 14 2C 33 98 31 2C 22 2A 4D 41 49 4C |00...,3.1,"*MAIL|
00001010: 2A 22 3B 43 52 24 3B 00 2D 14 84 35 98 31 2C 43 |*";CR$;.-..5.1,C|
00001020: 4F 3B 43 52 24 3B 3A 8D 35 30 30 30 30 00 3A 14 |O;CR$;:.50000.:.|
00001030: E8 35 81 45 4E B2 31 A4 43 4F 00 44 14 F2 35 99 |.5.EN.1.CO.D..5.|
00001040: 22 2E 22 3B 00 4F 14 4C 36 8D 32 35 35 30 30 00 |".";.O.L6.25500.|
00001050: 5D 14 B0 36 81 20 49 B2 31 20 A4 20 36 00 7E 14 |]..6. I.1 . 6.~.|
00001060: BA 36 98 31 2C 51 54 24 3B 41 24 28 49 29 3B 51 |.6.1,QT$;A$(I);Q|
00001070: 54 24 3B 43 52 24 3B 3A 8D 35 30 30 30 30 00 85 |T$;CR$;:.50000..|
00001080: 14 C4 36 82 49 00 8D 14 14 37 82 45 4E 00 98 14 |..6.I....7.EN...|
00001090: 78 37 8D 35 30 33 30 30 00 A7 14 DC 37 41 4C B2 |x7.50300....7AL.|
000010A0: 30 3A 89 35 32 30 30 00 C9 14 A4 38 46 42 24 B2 |0:.5200....8FB$.|
000010B0: 22 52 45 41 44 22 20 3A 8D 32 38 39 30 30 3A 8B |"READ" :.28900:.|
000010C0: 46 36 B2 30 A7 35 32 30 30 00 D2 14 08 39 99 22 |F6.0.5200....9."|
000010D0: 93 22 00 04 15 6C 39 99 20 22 93 11 11 11 52 45 |."...l9. "....RE|
000010E0: 41 44 20 46 52 4F 4D 20 57 48 41 54 20 46 49 4C |AD FROM WHAT FIL|
000010F0: 45 3F 20 22 3B 3A 8D 36 30 30 30 30 3A 46 49 24 |E? ";:.60000:FI$|
00001100: B2 49 4E 24 00 15 15 D0 39 8B 49 4E 24 B2 22 22 |.IN$....9.IN$.""|
00001110: A7 35 32 30 30 00 2E 15 34 3A 44 52 B2 30 3A 8D |.5200...4:DR.0:.|
00001120: 35 30 31 30 30 3A 8B 45 52 A7 34 39 30 30 00 43 |50100:.ER.4900.C|
00001130: 15 98 3A 99 22 11 11 52 45 41 44 49 4E 47 20 22 |..:."..READING "|
00001140: 46 49 24 00 61 15 A2 3A 84 31 2C 54 24 3A 8B 54 |FI$.a..:.1,T$:.T|
00001150: 24 B3 B1 22 2A 4D 41 49 4C 2A 22 A7 31 35 35 31 |$.."*MAIL*".1551|
00001160: 30 00 6A 15 FC 3A 84 31 2C 54 00 86 15 06 3B 8B |0.j..:.1,T....;.|
00001170: 20 54 B3 B2 4D 41 58 20 A7 20 43 4F B2 54 3A 89 | T..MAX . CO.T:.|
00001180: 20 31 35 32 30 30 00 AE 15 10 3B 99 22 11 22 46 | 15200....;."."F|
00001190: 49 24 3B 22 20 48 41 53 22 3B 54 3B 22 45 4E 54 |I$;" HAS";T;"ENT|
000011A0: 52 49 45 53 2E 20 49 20 43 41 4E 27 54 22 00 D4 |RIES. I CAN'T"..|
000011B0: 15 1A 3B 99 22 11 48 4F 4C 44 20 4D 4F 52 45 20 |..;.".HOLD MORE |
000011C0: 54 48 41 4E 22 3B 4D 41 58 3B 22 45 4E 54 52 49 |THAN";MAX;"ENTRI|
000011D0: 45 53 2E 11 00 E0 15 24 3B 89 20 31 35 35 32 30 |ES.....$;. 15520|
000011E0: 00 ED 15 60 3B 81 45 4E B2 31 A4 43 4F 00 F8 15 |...`;.EN.1.CO...|
000011F0: 6A 3B 41 44 24 B2 22 22 00 03 16 74 3B 81 49 B2 |j;AD$.""...t;.I.|
00001200: 31 A4 36 00 0D 16 7E 3B 84 31 2C 41 24 00 1D 16 |1.6...~;.1,A$...|
00001210: 83 3B 8B 49 B2 31 A7 8D 31 31 30 30 30 00 30 16 |.;.I.1..11000.0.|
00001220: 88 3B 41 44 24 B2 41 44 24 AA 41 24 AA 46 31 24 |.;AD$.AD$.A$.F1$|
00001230: 00 38 16 92 3B 82 20 49 00 42 16 9C 3B 99 22 2E |.8..;. I.B..;.".|
00001240: 22 3B 00 52 16 A6 3B 41 44 24 28 45 4E 29 B2 41 |";.R..;AD$(EN).A|
00001250: 44 24 00 5B 16 C4 3B 82 20 45 4E 00 6C 16 8C 3C |D$.[..;. EN.l..<|
00001260: 8D 35 30 33 30 30 3A 89 35 32 30 30 00 8F 16 96 |.50300:.5200....|
00001270: 3C 99 22 11 49 20 44 49 44 4E 27 54 20 57 52 49 |<.".I DIDN'T WRI|
00001280: 54 45 20 54 48 41 54 20 46 49 4C 45 2E 11 22 00 |TE THAT FILE..".|
00001290: A0 16 A0 3C 8D 35 30 33 30 30 3A 89 34 39 30 30 |...<.50300:.4900|
000012A0: 00 AF 16 F0 3C 8B 43 4F B2 30 A7 34 38 30 30 00 |....<.CO.0.4800.|
000012B0: D7 16 54 3D 99 20 22 93 11 11 44 45 4C 45 54 45 |..T=. "...DELETE|
000012C0: 20 57 48 49 43 48 20 45 4E 54 52 59 3F 20 22 3B | WHICH ENTRY? ";|
000012D0: 3A 8D 36 30 30 30 30 00 ED 16 B8 3D 8D 31 36 32 |:.60000....=.162|
000012E0: 30 30 3A 8B 45 4E B3 30 A7 34 39 30 30 00 F8 16 |00:.EN.0.4900...|
000012F0: 1C 3E 8D 32 35 35 30 30 00 03 17 26 3E 8D 32 36 |.>.25500...&>.26|
00001300: 38 30 30 00 24 17 30 3E 99 22 11 4F 4B 41 59 20 |800.$.0>.".OKAY |
00001310: 54 4F 20 44 45 4C 45 54 45 22 3B 3A 8D 33 30 32 |TO DELETE";:.302|
00001320: 30 30 3A 99 00 56 17 3A 3E 8B 49 4E 24 B3 B1 22 |00:..V.:>.IN$.."|
00001330: 59 22 A7 99 22 11 45 4E 54 52 59 22 3B 45 4E 3B |Y"..".ENTRY";EN;|
00001340: 22 4E 4F 54 20 44 45 4C 45 54 45 44 2E 11 22 3A |"NOT DELETED..":|
00001350: 89 20 34 39 30 30 00 83 17 80 3E 8B 43 4F B1 45 |. 4900....>.CO.E|
00001360: 4E A7 81 4E 31 B2 45 4E A4 43 4F AB 31 3A 41 44 |N..N1.EN.CO.1:AD|
00001370: 24 28 4E 31 29 B2 41 44 24 28 4E 31 AA 31 29 3A |$(N1).AD$(N1.1):|
00001380: 82 4E 31 00 A0 17 B2 3E 99 22 11 45 4E 54 52 59 |.N1....>.".ENTRY|
00001390: 22 3B 45 4E 3B 22 44 45 4C 45 54 45 44 2E 11 22 |";EN;"DELETED.."|
000013A0: 00 C2 17 E4 3E 41 44 24 28 43 4F 29 B2 22 22 3A |....>AD$(CO)."":|
000013B0: 43 4F B2 43 4F AB 31 3A 41 4C B2 31 3A 89 34 39 |CO.CO.1:AL.1:.49|
000013C0: 30 30 00 D9 17 48 3F 45 4E B2 AB 31 3A 8B 20 49 |00...H?EN..1:. I|
000013D0: 4E 24 B2 22 22 20 A7 20 8E 00 13 18 AC 3F 45 4E |N$."" . .....?EN|
000013E0: B2 C5 28 49 4E 24 29 3A 8B 20 45 4E B3 31 20 B0 |..(IN$):. EN.1 .|
000013F0: 20 45 4E B1 43 4F 20 A7 20 99 20 22 11 4E 4F 20 | EN.CO . . ".NO |
00001400: 53 55 43 48 20 45 4E 54 52 59 2E 11 22 3A 45 4E |SUCH ENTRY..":EN|
00001410: B2 AB 31 00 19 18 10 40 8E 00 28 18 D8 40 8B 43 |..1....@..(..@.C|
00001420: 4F B2 30 A7 34 38 30 30 00 42 18 3C 41 99 22 93 |O.0.4800.B.<A.".|
00001430: 11 11 11 59 4F 55 20 43 41 4E 20 53 4F 52 54 20 |...YOU CAN SORT |
00001440: 42 59 00 54 18 A0 41 99 22 11 12 5A 92 49 50 20 |BY.T..A."..Z.IP |
00001450: 43 4F 44 45 00 67 18 04 42 99 22 11 12 4C 92 41 |CODE.g..B."..L.A|
00001460: 53 54 20 4E 41 4D 45 00 85 18 CC 42 99 22 11 57 |ST NAME....B.".W|
00001470: 48 49 43 48 20 57 4F 55 4C 44 20 59 4F 55 20 4C |HICH WOULD YOU L|
00001480: 49 4B 45 22 3B 00 90 18 30 43 8D 33 30 32 30 30 |IKE";...0C.30200|
00001490: 00 A3 18 F8 43 8B 49 4E 24 B2 22 4C 22 A7 31 37 |....C.IN$."L".17|
000014A0: 39 30 30 00 B5 18 C0 44 8B 49 4E 24 B2 43 52 24 |900....D.IN$.CR$|
000014B0: A7 35 32 30 30 00 C8 18 24 45 8B 49 4E 24 B2 22 |.5200...$E.IN$."|
000014C0: 5A 22 A7 31 38 30 30 30 00 DB 18 88 45 99 22 9D |Z".18000....E.".|
000014D0: 9D 9D 22 3B 3A 89 31 37 32 30 30 00 00 19 EC 45 |..";:.17200....E|
000014E0: 81 20 49 B2 31 20 A4 20 43 4F 3A 41 44 24 28 49 |. I.1 . CO:AD$(I|
000014F0: 29 B2 C7 28 32 29 AA 41 44 24 28 49 29 3A 82 49 |)..(2).AD$(I):.I|
00001500: 00 0B 19 F6 45 89 31 38 30 36 30 00 25 19 50 46 |....E.18060.%.PF|
00001510: 81 20 49 B2 31 20 A4 20 43 4F 3A 41 44 24 B2 41 |. I.1 . CO:AD$.A|
00001520: 44 24 28 49 29 00 3F 19 5A 46 81 20 4E B2 C3 28 |D$(I).?.ZF. N..(|
00001530: 41 44 24 29 AB 31 20 A4 20 31 20 A9 20 AB 31 00 |AD$).1 . 1 . .1.|
00001540: 5C 19 64 46 8B 20 CA 28 41 44 24 2C 4E 2C 31 29 |\.dF. .(AD$,N,1)|
00001550: B2 46 31 24 20 A7 20 31 38 30 34 30 00 68 19 6E |.F1$ . 18040.h.n|
00001560: 46 82 20 4E 3A 4E B2 30 00 7E 19 78 46 41 44 24 |F. N:N.0.~.xFAD$|
00001570: 28 49 29 B2 C7 28 4E AA 32 29 AA 41 44 24 00 86 |(I)..(N.2).AD$..|
00001580: 19 82 46 82 20 49 00 92 19 8C 46 99 3A 8D 20 38 |..F. I....F.:. 8|
00001590: 30 30 00 A1 19 96 46 81 20 49 B2 31 20 A4 20 43 |00....F. I.1 . C|
000015A0: 4F 00 B8 19 A0 46 41 44 24 28 49 29 B2 CA 28 41 |O....FAD$(I)..(A|
000015B0: 44 24 28 49 29 2C 32 29 00 C0 19 AA 46 82 20 49 |D$(I),2)....F. I|
000015C0: 00 CA 19 B4 46 89 35 32 30 30 00 E0 19 7C 47 81 |....F.5200...|G.|
000015D0: 4E B2 C3 28 41 44 24 28 49 29 29 A4 31 A9 AB 31 |N..(AD$(I)).1..1|
000015E0: 00 0B 1A E0 47 51 B2 C6 28 CA 28 41 44 24 28 49 |....GQ..(.(AD$(I|
000015F0: 29 2C 4E 2C 31 29 29 3A 8B 51 B3 34 38 B0 51 B1 |),N,1)):.Q.48.Q.|
00001600: 35 37 A7 82 3A 89 31 38 36 30 30 00 39 1A 44 48 |57..:.18600.9.DH|
00001610: 8B 4E B1 35 A7 41 44 24 28 49 29 B2 CA 28 41 44 |.N.5.AD$(I)..(AD|
00001620: 24 28 49 29 2C 4E AB 35 2C 35 29 AA 41 44 24 28 |$(I),N.5,5).AD$(|
00001630: 49 29 3A 89 31 38 37 30 30 00 5A 1A A8 48 41 44 |I):.18700.Z..HAD|
00001640: 24 28 49 29 B2 22 30 30 30 30 30 22 AA 41 44 24 |$(I)."00000".AD$|
00001650: 28 49 29 3A 89 31 38 37 30 30 00 61 1A 0C 49 82 |(I):.18700.a..I.|
00001660: 49 00 6A 1A 70 49 8D 38 30 30 00 76 1A D4 49 81 |I.j.pI.800.v..I.|
00001670: 49 B2 31 A4 43 4F 00 8D 1A 38 4A 41 44 24 28 49 |I.1.CO...8JAD$(I|
00001680: 29 B2 CA 28 41 44 24 28 49 29 2C 36 29 00 94 1A |)..(AD$(I),6)...|
00001690: 9C 4A 82 49 00 9E 1A 00 4B 89 35 32 30 30 00 AD |.J.I....K.5200..|
000016A0: 1A 64 4B 8B 43 4F B2 30 A7 34 38 30 30 00 B6 1A |.dK.CO.0.4800...|
000016B0: 6E 4B 99 22 93 22 00 BF 1A C8 4B 9F 34 2C 34 00 |nK."."....K.4,4.|
000016C0: CD 1A D2 4B 81 20 49 B2 31 20 A4 20 35 00 F7 1A |...K. I.1 . 5...|
000016D0: DC 4B 98 34 2C 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.K.4,"**********|
000016E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000016F0: 2A 2A 2A 2A 2A 2A 22 00 FF 1A E6 4B 82 20 49 00 |******"....K. I.|
00001700: 06 1B F0 4B 98 34 00 30 1B FA 4B 99 22 11 57 41 |...K.4.0..K.".WA|
00001710: 4E 54 20 41 4E 4F 54 48 45 52 20 54 45 53 54 20 |NT ANOTHER TEST |
00001720: 4C 41 42 45 4C 22 3B 3A 8D 33 30 32 30 30 3A 99 |LABEL";:.30200:.|
00001730: 00 43 1B 04 4C 8B 49 4E 24 B2 22 59 22 A7 31 39 |.C..L.IN$."Y".19|
00001740: 34 31 30 00 69 1B 0E 4C 99 22 11 11 50 52 45 53 |410.i..L."..PRES|
00001750: 53 20 41 20 4B 45 59 20 54 4F 20 41 42 4F 52 54 |S A KEY TO ABORT|
00001760: 20 50 52 49 4E 54 49 4E 47 00 76 1B 2C 4C 81 45 | PRINTING.v.,L.E|
00001770: 4E B2 31 A4 43 4F 00 81 1B 90 4C 8D 32 35 35 30 |N.1.CO....L.2550|
00001780: 30 00 8F 1B 9A 4C 81 20 4E B2 31 20 A4 20 34 00 |0....L. N.1 . 4.|
00001790: 9C 1B A4 4C 98 34 2C 41 24 28 4E 29 00 A4 1B AE |...L.4,A$(N)....|
000017A0: 4C 82 20 4E 00 C2 1B B8 4C 41 24 B2 C8 28 41 24 |L. N....LA$..(A$|
000017B0: 28 35 29 2C 33 32 AB C3 28 41 24 28 36 29 29 AB |(5),32..(A$(6)).|
000017C0: 31 29 00 EB 1B C2 4C 98 34 2C 41 24 3B C8 28 42 |1)....L.4,A$;.(B|
000017D0: 4C 24 2C 33 32 AB C3 28 41 24 29 AB C3 28 41 24 |L$,32..(A$)..(A$|
000017E0: 28 36 29 29 29 3B 41 24 28 36 29 00 F2 1B CC 4C |(6)));A$(6)....L|
000017F0: 98 34 00 08 1C F4 4C A1 54 24 3A 8B 54 24 B3 B1 |.4....L.T$:.T$..|
00001800: 22 22 A7 31 39 39 30 30 00 10 1C 58 4D 82 45 4E |"".19900...XM.EN|
00001810: 00 17 1C BC 4D A0 34 00 21 1C 20 4E 89 35 32 30 |....M.4.!. N.520|
00001820: 30 00 2E 1C E4 57 8B 5A 54 B1 54 49 A7 8E 00 3B |0....W.ZT.TI...;|
00001830: 1C 48 58 5A 54 B2 54 49 AA 32 30 00 5A 1C AC 58 |.HXZT.TI.20.Z..X|
00001840: 50 4B B2 C2 28 50 29 3A 97 20 50 2C 28 50 4B AA |PK..(P):. P,(PK.|
00001850: 31 32 38 29 AF 32 35 35 3A 8E 00 85 1C 9C 63 4E |128).255:.....cN|
00001860: 32 B2 30 3A 41 44 24 B2 41 44 24 28 45 4E 29 3A |2.0:AD$.AD$(EN):|
00001870: 4C 45 B2 C3 28 41 44 24 29 3A 47 43 28 30 29 B2 |LE..(AD$):GC(0).|
00001880: 34 3A 51 B2 31 00 97 1C 00 64 4E 30 B2 31 3A 81 |4:Q.1....dN0.1:.|
00001890: 4E 31 B2 31 A4 4C 45 00 AA 1C 64 64 41 24 B2 CA |N1.1.LE...ddA$..|
000018A0: 28 41 44 24 2C 4E 31 2C 31 29 00 BE 1C C8 64 8B |(AD$,N1,1)....d.|
000018B0: 41 24 B2 46 32 24 A7 4E 32 B2 4E 31 AA 31 00 D0 |A$.F2$.N2.N1.1..|
000018C0: 1C 2C 65 8B 41 24 B2 46 31 24 A7 32 36 31 30 30 |.,e.A$.F1$.26100|
000018D0: 00 DF 1C 90 65 82 4E 31 3A 89 32 36 37 30 30 00 |....e.N1:.26700.|
000018E0: 0D 1D F4 65 8B 51 B2 31 A7 58 41 24 B2 C8 28 41 |...e.Q.1.XA$..(A|
000018F0: 44 24 2C 4E 32 AB 32 29 AA 22 2C 20 22 AA CA 28 |D$,N2.2).", "..(|
00001900: 41 44 24 2C 4E 32 2C 4E 31 AB 4E 32 29 00 45 1D |AD$,N2,N1.N2).E.|
00001910: 58 66 8B 4E 32 B1 30 A7 41 24 28 51 29 B2 CA 28 |Xf.N2.0.A$(Q)..(|
00001920: 41 44 24 2C 4E 32 2C 4E 31 AB 4E 32 29 AA C8 28 |AD$,N2,N1.N2)..(|
00001930: 41 44 24 2C 4E 32 AB 32 29 3A 4E 32 B2 30 3A 89 |AD$,N2.2):N2.0:.|
00001940: 32 36 34 30 30 00 5F 1D BC 66 41 24 28 51 29 B2 |26400._..fA$(Q).|
00001950: CA 28 41 44 24 2C 4E 30 2C 4E 31 AB 4E 30 29 00 |.(AD$,N0,N1.N0).|
00001960: 7C 1D 20 67 47 43 28 51 29 B2 36 AA C3 28 41 24 ||. gGC(Q).6..(A$|
00001970: 28 51 29 29 3A 4E 30 B2 4E 31 AA 31 00 A1 1D 84 |(Q)):N0.N1.1....|
00001980: 67 8B C3 28 41 24 28 51 29 29 B1 33 32 A7 41 24 |g..(A$(Q)).32.A$|
00001990: 28 51 29 B2 CA 28 41 24 28 51 29 2C 32 2C 33 32 |(Q)..(A$(Q),2,32|
000019A0: 29 00 B8 1D E8 67 51 B2 51 AA 31 3A 8B 51 B3 B2 |)....gQ.Q.1:.Q..|
000019B0: 46 43 A7 32 36 30 30 30 00 BE 1D 4C 68 8E 00 CC |FC.26000...Lh...|
000019C0: 1D B0 68 99 22 13 11 11 11 11 11 22 00 DA 1D BA |..h."......"....|
000019D0: 68 81 20 49 B2 31 20 A4 20 36 00 F1 1D C4 68 99 |h. I.1 . 6....h.|
000019E0: 20 4C 42 24 28 49 29 3B 22 3A 22 3B 41 24 28 49 | LB$(I);":";A$(I|
000019F0: 29 00 F9 1D CE 68 82 20 49 00 FF 1D D8 68 8E 00 |)....h. I....h..|
00001A00: 0E 1E FC 6C 8B 43 4F B2 30 A7 34 38 30 30 00 24 |...l.CO.0.4800.$|
00001A10: 1E C4 6D 81 4E B2 31 A4 36 3A 41 24 28 4E 29 B2 |..m.N.1.6:A$(N).|
00001A20: 22 22 3A 82 00 49 1E 28 6E 99 22 93 4D 4F 44 49 |"":..I.(n.".MODI|
00001A30: 46 59 20 57 48 49 43 48 20 45 4E 54 52 59 3F 20 |FY WHICH ENTRY? |
00001A40: 22 3B 3A 8D 36 30 30 30 30 00 5F 1E 8C 6E 8D 31 |";:.60000._..n.1|
00001A50: 36 32 30 30 3A 8B 45 4E B3 30 A7 34 39 30 30 00 |6200:.EN.0.4900.|
00001A60: 71 1E F0 6E 8D 32 35 35 30 30 3A 8D 32 36 38 30 |q..n.25500:.2680|
00001A70: 30 00 7B 1E 54 6F 89 38 30 30 30 00 9E 1E 1C 70 |0.{.To.8000....p|
00001A80: 46 42 24 B2 22 51 55 49 54 22 3A 8D 32 38 39 30 |FB$."QUIT":.2890|
00001A90: 30 3A 8B 46 36 B2 31 A7 99 22 93 22 3A 80 00 A8 |0:.F6.1..".":...|
00001AA0: 1E 80 70 89 35 32 30 30 00 BE 1E E4 70 46 36 B2 |..p.5200....pF6.|
00001AB0: 30 3A 8B 41 4C B2 30 A7 46 36 B2 31 3A 8E 00 E9 |0:.AL.0.F6.1:...|
00001AC0: 1E 48 71 99 22 93 11 11 59 4F 55 20 48 41 56 45 |.Hq."...YOU HAVE|
00001AD0: 20 4E 4F 54 20 53 41 56 45 44 20 59 4F 55 52 20 | NOT SAVED YOUR |
00001AE0: 43 48 41 4E 47 45 53 2E 22 00 19 1F AC 71 99 22 |CHANGES."....q."|
00001AF0: 11 44 4F 20 59 4F 55 20 12 52 45 41 4C 4C 59 92 |.DO YOU .REALLY.|
00001B00: 20 57 41 4E 54 20 54 4F 20 22 4F 50 24 28 4F 50 | WANT TO "OP$(OP|
00001B10: 29 3B 3A 8D 33 30 32 30 30 00 30 1F 10 72 8B 49 |);:.30200.0..r.I|
00001B20: 4E 24 B2 22 59 22 A7 46 36 B2 31 3A 41 4C B2 30 |N$."Y".F6.1:AL.0|
00001B30: 00 36 1F 74 72 8E 00 4B 1F D8 72 99 22 93 22 3B |.6.tr..K..r.".";|
00001B40: 3A 8B 43 4F B2 30 A7 34 38 30 30 00 5D 1F 3C 73 |:.CO.0.4800.].<s|
00001B50: 99 22 11 11 4C 49 53 54 20 54 4F 3A 22 00 6F 1F |."..LIST TO:".o.|
00001B60: A0 73 99 22 12 11 50 92 52 49 4E 54 45 52 22 00 |.s."..P.RINTER".|
00001B70: 80 1F 04 74 99 22 12 11 53 92 43 52 45 45 4E 22 |...t."..S.CREEN"|
00001B80: 00 99 1F 68 74 99 22 11 57 48 45 52 45 20 54 4F |...ht.".WHERE TO|
00001B90: 22 3B 3A 8D 33 30 32 30 30 00 AD 1F CC 74 8B 20 |";:.30200....t. |
00001BA0: 49 4E 24 B2 22 50 22 A7 33 31 33 30 30 00 C0 1F |IN$."P".31300...|
00001BB0: 30 75 8B 20 49 4E 24 B2 43 52 24 A7 35 32 30 30 |0u. IN$.CR$.5200|
00001BC0: 00 D6 1F 3A 75 8B 20 49 4E 24 B2 22 53 22 20 A7 |...:u. IN$."S" .|
00001BD0: 20 33 31 30 30 30 00 E9 1F 94 75 99 22 9D 9D 9D | 31000....u."...|
00001BE0: 22 3B 3A 89 32 39 38 30 30 00 FF 1F F8 75 5A 43 |";:.29800....uZC|
00001BF0: B2 31 3A 5A 54 B2 54 49 3A 99 22 3F 20 22 3B 00 |.1:ZT.TI:."? ";.|
00001C00: 19 20 5C 76 A1 20 49 4E 24 3A 8B 20 49 4E 24 B3 |. \v. IN$:. IN$.|
00001C10: B1 22 22 A7 33 30 36 30 30 00 4C 20 C0 76 8B 20 |."".30600.L .v. |
00001C20: 54 49 B1 5A 54 20 A7 20 99 20 CA 28 22 3F 20 22 |TI.ZT . . .("? "|
00001C30: 2C 5A 43 2C 31 29 3B 22 9D 22 3B 3A 5A 43 B2 33 |,ZC,1);".";:ZC.3|
00001C40: AB 5A 43 3A 5A 54 B2 54 49 AA 31 35 00 58 20 24 |.ZC:ZT.TI.15.X $|
00001C50: 77 89 20 33 30 33 30 30 00 7D 20 88 77 99 22 20 |w. 30300.} .w." |
00001C60: 22 3B 3A 8B 28 C6 28 49 4E 24 29 AF 31 32 37 29 |";:.(.(IN$).127)|
00001C70: B1 33 31 A7 99 22 9D 22 3B 49 4E 24 3B 00 83 20 |.31..".";IN$;.. |
00001C80: EC 77 8E 00 95 20 50 78 8B 20 43 4F B2 30 20 A7 |.w... Px. CO.0 .|
00001C90: 20 34 38 30 30 00 9E 20 B4 78 46 43 B2 31 00 B9 | 4800.. .xFC.1..|
00001CA0: 20 18 79 50 53 B2 46 43 3A 8B 20 46 43 B1 31 20 | .yPS.FC:. FC.1 |
00001CB0: A7 20 50 53 B2 50 53 AA 31 00 C9 20 22 79 50 53 |. PS.PS.1.. "yPS|
00001CC0: B2 B5 28 32 33 AD 50 53 29 00 D2 20 68 79 45 4E |..(23.PS).. hyEN|
00001CD0: B2 31 00 E0 20 72 79 99 22 93 22 3B 3A 4E B2 31 |.1.. ry.".";:N.1|
00001CE0: 00 EC 20 7C 79 8D 20 32 35 35 30 30 00 1A 21 86 |.. |y. 25500..!.|
00001CF0: 79 41 24 B2 22 12 23 22 AA CA 28 C4 28 45 4E 29 |yA$.".#"..(.(EN)|
00001D00: 2C 32 29 3A 4C 42 24 28 31 29 B2 C8 28 41 24 AA |,2):LB$(1)..(A$.|
00001D10: 22 92 20 20 20 20 22 2C 38 29 00 28 21 90 79 81 |". ",8).(!.y.|
00001D20: 20 49 B2 31 A4 20 46 43 00 3F 21 9A 79 99 20 4C | I.1. FC.?!.y. L|
00001D30: 42 24 28 49 29 3B 22 3A 22 3B 41 24 28 49 29 00 |B$(I);":";A$(I).|
00001D40: 54 21 A4 79 82 20 49 3A 20 8B 20 46 43 B3 B1 31 |T!.y. I: . FC..1|
00001D50: 20 A7 20 99 00 70 21 AE 79 45 4E B2 45 4E AA 31 | . ..p!.yEN.EN.1|
00001D60: 3A 8B 20 45 4E B1 43 4F 20 A7 20 33 31 32 30 30 |:. EN.CO . 31200|
00001D70: 00 89 21 B8 79 4E B2 4E AA 31 3A 8B 4E B3 B2 50 |..!.yN.N.1:.N..P|
00001D80: 53 20 A7 20 33 31 31 30 30 00 95 21 BD 79 8B 46 |S . 31100..!.y.F|
00001D90: 43 B2 31 A7 99 00 B5 21 C2 79 99 22 50 52 45 53 |C.1....!.y."PRES|
00001DA0: 53 20 12 52 45 54 55 52 4E 92 20 46 4F 52 20 4D |S .RETURN. FOR M|
00001DB0: 4F 52 45 22 3B 00 CA 21 CC 79 A1 54 24 3A 8B 54 |ORE";..!.y.T$:.T|
00001DC0: 24 B2 22 22 A7 33 31 31 38 30 00 EE 21 D1 79 8B |$."".31180..!.y.|
00001DD0: 54 24 B2 22 20 22 B0 54 24 B2 22 92 22 A7 8C 3A |T$." ".T$."."..:|
00001DE0: 87 4C 42 24 28 31 29 3A 89 20 35 32 30 30 00 FA |.LB$(1):. 5200..|
00001DF0: 21 D6 79 89 20 33 31 30 39 30 00 09 22 E0 79 8B |!.y. 31090..".y.|
00001E00: 20 46 43 B2 31 20 A7 20 99 00 1E 22 EA 79 8C 3A | FC.1 . ...".y.:|
00001E10: 87 20 4C 42 24 28 31 29 3A 89 34 39 30 30 00 27 |. LB$(1):.4900.'|
00001E20: 22 44 7A 9F 34 2C 34 00 30 22 4E 7A 45 4E B2 31 |"Dz.4,4.0"NzEN.1|
00001E30: 00 38 22 A8 7A 4E B2 31 00 47 22 DA 7A 8D 32 35 |.8".zN.1.G".z.25|
00001E40: 35 30 30 3A 43 B2 30 00 7C 22 E4 7A 41 24 B2 CA |500:C.0.|".zA$..|
00001E50: 28 C4 28 45 4E 29 2C 32 29 3A 41 24 B2 C9 28 22 |(.(EN),2):A$..("|
00001E60: 20 20 22 AA 41 24 2C 33 29 AA 22 20 22 3A 98 34 | ".A$,3)." ":.4|
00001E70: 2C 41 24 3B 3A 43 B2 C3 28 41 24 29 00 97 22 EE |,A$;:C..(A$)..".|
00001E80: 7A 98 34 2C 41 24 28 31 29 3B 3A 43 B2 43 AA C3 |z.4,A$(1);:C.C..|
00001E90: 28 41 24 28 31 29 29 00 A2 22 F8 7A 81 49 B2 32 |(A$(1))..".z.I.2|
00001EA0: A4 36 00 D9 22 02 7B 8B 20 41 24 28 49 29 B3 B1 |.6..".{. A$(I)..|
00001EB0: 22 22 20 A7 20 98 34 2C C8 28 42 4C 24 2C 33 32 |"" . .4,.(BL$,32|
00001EC0: AA 34 AB 43 29 3B 3A 43 B2 30 3A 98 34 2C 41 24 |.4.C);:C.0:.4,A$|
00001ED0: 28 49 29 3A 4E B2 4E AA 31 00 E0 22 0C 7B 82 49 |(I):N.N.1..".{.I|
00001EE0: 00 F2 22 20 7B 8B 43 B1 31 A7 98 34 3A 4E B2 4E |.." {.C.1..4:N.N|
00001EF0: AA 31 00 0E 23 2A 7B 45 4E B2 45 4E AA 31 3A 8B |.1..#*{EN.EN.1:.|
00001F00: 20 45 4E B1 43 4F 20 A7 20 33 31 36 30 30 00 24 | EN.CO . 31600.$|
00001F10: 23 34 7B 4E B2 4E AA 31 3A 8B 4E B3 35 36 A7 33 |#4{N.N.1:.N.56.3|
00001F20: 31 34 35 30 00 2F 23 3E 7B 89 33 31 34 30 30 00 |1450./#>{.31400.|
00001F30: 3C 23 70 7B A0 34 3A 89 35 32 30 30 00 55 23 50 |<#p{.4:.5200.U#P|
00001F40: C3 8B 54 49 AB 5A 39 B3 32 30 B0 46 44 B1 32 A7 |..TI.Z9.20.FD.2.|
00001F50: 35 30 30 39 30 00 7D 23 5A C3 8B 46 44 B2 31 A7 |50090.}#Z..FD.1.|
00001F60: 97 35 39 34 31 31 2C 35 33 3A 81 5A B2 31 A4 36 |.59411,53:.Z.1.6|
00001F70: 30 3A 82 3A 97 35 39 34 31 31 2C 36 31 00 B5 23 |0:.:.59411,61..#|
00001F80: 64 C3 8B 46 44 B2 32 A7 5A 5A B2 C2 28 35 39 34 |d..FD.2.ZZ..(594|
00001F90: 35 36 29 3A 97 35 39 34 35 36 2C 5A 5A AF 32 33 |56):.59456,ZZ.23|
00001FA0: 39 3A 81 5A B2 31 A4 36 30 3A 82 3A 97 35 39 34 |9:.Z.1.60:.:.594|
00001FB0: 35 36 2C 5A 5A 00 C1 23 AA C3 5A 39 B2 54 49 3A |56,ZZ..#..Z9.TI:|
00001FC0: 8E 00 D1 23 B4 C3 8B 46 44 B1 32 A7 35 30 32 30 |...#...FD.2.5020|
00001FD0: 30 00 0B 24 BE C3 99 22 11 50 4C 45 41 53 45 20 |0..$...".PLEASE |
00001FE0: 52 45 57 49 4E 44 20 54 41 50 45 22 46 44 22 9D |REWIND TAPE"FD".|
00001FF0: 2C 22 3A 99 22 41 4E 44 20 54 48 45 4E 20 50 52 |,":."AND THEN PR|
00002000: 45 53 53 20 12 52 45 54 55 52 4E 00 3B 24 D2 C3 |ESS .RETURN.;$..|
00002010: 8D 35 32 30 30 30 3A 97 51 42 2C 31 32 32 3A 97 |.52000:.QB,122:.|
00002020: 51 42 AA 31 2C 32 3A 8B 46 44 B2 32 A7 97 51 42 |QB.1,2:.FD.2..QB|
00002030: 2C 35 38 3A 97 51 42 AA 31 2C 33 00 54 24 E6 C3 |,58:.QB.1,3.T$..|
00002040: 9F 31 2C 46 44 2C 44 52 2C 46 49 24 3A 5A 50 B2 |.1,FD,DR,FI$:ZP.|
00002050: 54 49 3A 8E 00 7E 24 18 C4 46 4C 24 B2 44 52 24 |TI:..~$..FL$.DR$|
00002060: AA 46 49 24 3A 9F 31 35 2C 38 2C 31 35 3A 8B 44 |.FI$:.15,8,15:.D|
00002070: 52 B2 31 A7 98 31 35 2C 22 53 22 46 4C 24 00 AB |R.1..15,"S"FL$..|
00002080: 24 22 C4 46 4C 24 B2 46 4C 24 AA 22 2C 53 2C 22 |$".FL$.FL$.",S,"|
00002090: AA CA 28 22 52 52 57 22 2C 44 52 AA 32 2C 31 29 |..("RRW",DR.2,1)|
000020A0: 3A 9F 31 2C 38 2C 32 2C 46 4C 24 00 DC 24 36 C4 |:.1,8,2,FL$..$6.|
000020B0: 84 31 35 2C 45 52 2C 45 52 24 2C 54 4B 2C 53 43 |.15,ER,ER$,TK,SC|
000020C0: 3A 8B 45 52 B2 30 B0 28 44 52 B3 30 AF 45 52 B2 |:.ER.0.(DR.0.ER.|
000020D0: 36 32 29 A7 45 52 24 B2 22 22 3A 8E 00 ED 24 40 |62).ER$."":...$@|
000020E0: C4 8B 45 52 B2 36 32 A7 35 30 32 38 30 00 27 25 |..ER.62.50280.'%|
000020F0: 4A C4 A0 31 3A 99 22 11 22 45 52 3B 45 52 24 54 |J..1:."."ER;ER$T|
00002100: 4B 3B 53 43 3A 99 22 11 46 49 58 20 50 52 4F 42 |K;SC:.".FIX PROB|
00002110: 4C 45 4D 20 41 4E 44 20 54 59 50 45 20 27 43 4F |LEM AND TYPE 'CO|
00002120: 4E 54 27 2E 22 3A 80 00 32 25 5E C4 89 35 30 32 |NT'.":..2%^..502|
00002130: 31 30 00 61 25 68 C4 99 22 11 43 41 4E 27 54 20 |10.a%h..".CAN'T |
00002140: 4F 50 45 4E 20 22 46 49 24 22 20 4F 4E 20 44 52 |OPEN "FI$" ON DR|
00002150: 49 56 45 20 22 C8 28 46 4C 24 2C 31 29 3B 22 11 |IVE ".(FL$,1);".|
00002160: 22 00 6E 25 7C C4 A0 31 3A A0 31 35 3A 8E 00 86 |".n%|..1:.15:...|
00002170: 25 20 CB A1 20 54 24 3A 8B 20 54 24 B2 22 22 A7 |% .. T$:. T$."".|
00002180: 20 35 32 30 30 30 00 8C 25 2A CB 8E 00 AD 25 60 | 52000..%*....%`|
00002190: EA 49 4E 24 B2 22 20 22 3A 5A 54 B2 54 49 3A 5A |.IN$." ":ZT.TI:Z|
000021A0: 43 B2 32 3A 5A 44 24 B2 C7 28 32 30 29 00 C3 25 |C.2:ZD$..(20)..%|
000021B0: 6A EA A1 5A 24 3A 8B 5A 24 B3 B1 22 22 A7 36 30 |j..Z$:.Z$.."".60|
000021C0: 30 37 30 00 F3 25 74 EA 8B 5A 54 B3 B2 54 49 A7 |070..%t..ZT..TI.|
000021D0: 99 CA 28 22 20 A6 22 2C 5A 43 2C 31 29 3B 22 9D |..(" .",ZC,1);".|
000021E0: 22 3B 3A 5A 43 B2 33 AB 5A 43 3A 5A 54 B2 54 49 |";:ZC.3.ZC:ZT.TI|
000021F0: AA 31 35 00 FE 25 7E EA 89 36 30 30 31 30 00 2E |.15..%~..60010..|
00002200: 26 A6 EA 5A B2 C6 28 5A 24 29 3A 5A 52 B2 C3 28 |&..Z..(Z$):ZR..(|
00002210: 49 4E 24 29 3A 8B 28 5A AF 31 32 37 29 B3 33 32 |IN$):.(Z.127).32|
00002220: A7 99 22 20 9D 22 3B 3A 89 36 30 31 31 30 00 5E |.." .";:.60110.^|
00002230: 26 B0 EA 8B 46 4C AF 28 5A AF 31 32 37 29 B1 36 |&...FL.(Z.127).6|
00002240: 34 AF 28 5A AF 31 32 37 29 B3 39 31 A7 5A 24 B2 |4.(Z.127).91.Z$.|
00002250: C7 28 28 5A AA 31 32 38 29 AF 32 35 35 29 00 70 |.((Z.128).255).p|
00002260: 26 BA EA 8B 5A 52 B1 32 35 34 A7 36 30 30 31 30 |&...ZR.254.60010|
00002270: 00 8B 26 C4 EA 49 4E 24 B2 49 4E 24 AA 5A 24 3A |..&..IN$.IN$.Z$:|
00002280: 99 5A 24 3B 5A 44 24 3B 5A 24 3B 00 AA 26 CE EA |.Z$;ZD$;Z$;..&..|
00002290: 8B 5A B2 31 33 A7 49 4E 24 B2 CA 28 49 4E 24 2C |.Z.13.IN$..(IN$,|
000022A0: 32 29 3A 99 43 52 24 3B 3A 8E 00 D6 26 D8 EA 8B |2):.CR$;:...&...|
000022B0: 5A B2 32 30 AF 5A 52 B1 31 A7 49 4E 24 B2 C8 28 |Z.20.ZR.1.IN$..(|
000022C0: 49 4E 24 2C 5A 52 AB 31 29 3A 99 22 9D 22 3B 3A |IN$,ZR.1):.".";:|
000022D0: 89 36 30 30 31 30 00 09 27 E2 EA 8B 5A B2 31 34 |.60010..'...Z.14|
000022E0: 31 A7 5A 24 B2 C7 28 AB 32 30 AC 28 5A 52 B1 31 |1.Z$..(.20.(ZR.1|
000022F0: 29 29 3A 81 5A B2 32 A4 5A 52 3A 99 5A 24 3B 3A |)):.Z.2.ZR:.Z$;:|
00002300: 82 5A 3A 89 36 30 30 30 30 00 14 27 EC EA 89 36 |.Z:.60000..'...6|
00002310: 30 30 31 30 00 2B 27 8C EB 99 22 93 22 3A 9C 3A |0010.+'...".":.:|
00002320: 8D 36 30 34 30 30 3A 89 31 30 30 00 43 27 F0 EB |.60400:.100.C'..|
00002330: 43 52 54 B2 33 32 37 36 38 3A 43 52 24 B2 C7 28 |CRT.32768:CR$..(|
00002340: 31 33 29 00 75 27 FA EB 57 44 B2 34 30 3A 97 43 |13).u'..WD.40:.C|
00002350: 52 54 2C 39 36 3A 8B C2 28 43 52 54 AA 31 30 32 |RT,96:..(CRT.102|
00002360: 34 29 B3 B1 39 36 A7 57 44 B2 38 30 3A 99 C7 28 |4)..96.WD.80:..(|
00002370: 31 34 32 29 3B 00 93 27 04 EC 51 4C B2 32 31 36 |142);..'..QL.216|
00002380: 3A 8B C2 28 35 30 30 30 30 29 B2 30 A7 51 4C B2 |:..(50000).0.QL.|
00002390: 32 34 35 00 99 27 0E EC 8E 00 B9 27 54 EC 81 49 |245..'.....'T..I|
000023A0: B2 31 A4 31 33 3A 99 22 C0 C0 C0 22 3B 3A 82 49 |.1.13:."...";:.I|
000023B0: 3A 99 22 9D 94 C0 22 3A 8E 00 C7 27 30 F2 97 35 |:."...":...'0..5|
000023C0: 39 34 36 38 2C 31 32 00 F6 27 35 F2 99 22 93 11 |9468,12..'5.."..|
000023D0: 11 22 3B A3 31 35 AB C3 28 50 47 24 29 29 3B 50 |.";.15..(PG$));P|
000023E0: 47 24 3B 22 20 20 42 59 20 52 4F 42 59 20 48 59 |G$;" BY ROBY HY|
000023F0: 44 45 20 41 4E 44 00 0F 28 36 F2 99 A3 32 30 29 |DE AND..(6...20)|
00002400: 22 48 55 4E 54 45 52 20 48 41 4E 43 4F 43 4B 00 |"HUNTER HANCOCK.|
00002410: 40 28 3A F2 99 22 11 20 20 20 20 20 43 55 52 53 |@(:..". CURS|
00002420: 4F 52 20 23 22 3B 4E 4D 24 3B 22 20 20 43 4F 50 |OR #";NM$;" COP|
00002430: 59 52 49 47 48 54 20 28 43 29 20 31 39 38 31 11 |YRIGHT (C) 1981.|
00002440: 00 4B 28 44 F2 8D 36 30 35 30 30 00 6B 28 4E F2 |.K(D..60500.k(N.|
00002450: 99 22 11 4D 41 49 4E 54 41 49 4E 53 20 41 20 4D |.".MAINTAINS A M|
00002460: 41 49 4C 49 4E 47 20 4C 49 53 54 00 8D 28 80 F2 |AILING LIST..(..|
00002470: 99 22 11 11 11 50 52 45 53 53 20 12 52 45 54 55 |."...PRESS .RETU|
00002480: 52 4E 92 20 54 4F 20 42 45 47 49 4E 22 00 A4 28 |RN. TO BEGIN"..(|
00002490: 8A F2 A1 49 4E 24 3A 8B 49 4E 24 B2 22 22 A7 36 |...IN$:.IN$."".6|
000024A0: 32 30 39 30 00 B0 28 94 F2 89 20 36 30 33 30 30 |2090..(... 60300|
000024B0: 00 00 00 24 |...$ |
.."....:PG$."MAIL":NM$."25":.62000.C..."
ROBY HYDE & HUNTER HANCOCK._..." 3311 B
ROOKHILL CIRCLE.S..." LEXINGTON, KY.Y...
"....." CURSOR #25,APRIL,1981....." COPY
RIGHT(C)1981 THE CODE WORKS....." BOX 55
0, GOLETA, CA. 93116....."....." AS OF 3
MAY81....." ---------.?..." LINES 900-28
00 USED BY PERMISSION COMPUTE! MAGAZINE.
T..." (C) COPYRIGHT 1980 SMALL SYSTEMS S
ERVICES, INC....." BOX 5406 GREENSBORO,
NC 27403....." ---------.H.D.FD.1:DR$."0
:":. FILE DEVICE...X.QT$.G(34):MM.1000:.
MIN MEMORYREMAIN.#.H.BL$."
".<.,.MAX.50:.
MAX ENTRIES.A...F1$."*":F2$."Z":. RESER
VED CHARS.....TD$."DISK":.FD.8.TD$."TAPE
"...X.. AD$(MAX),A$(6),LB$(6),OP$(10).A.
B..:. I.1 . 6:.LB$(I):. I...L.. "NAME "
,"ADDR 1","ADDR 2"...V.. "ADDR 3","ADDR
4","ZIP ".....OP$."":. I.1 . 10.:....
OP$(I):OP$.OP$.H(OP$(I),1).[....OP$(I)."
FAST".OP$(I)."LIST".B....I...... READ,SO
RT,PRINT,WRITE,QUIT,DELETE,ADD,MODIFY,LI
ST,FAST...... 5200... ..".SORTING...."..
...N.CO:TP.1:LOWER(1).1:UPPER(1).N......
CO.0.4800...L..TP..0...$...LB.LOWER(TP):
UB.UPPER(TP):TP.TP.1.5....UB..LB.1100.P.
X.I.LB:J.UB:TEMP$.AD$(I).^....J.1.1800..
.@..J(TEMP$,F(TEMP$))..J(AD$(J),F(AD$(J)
)).1800.....J.J.1:.1500......J..I.AD$(I)
.TEMP$:.2500.T.L.AD$(I).AD$(J):I.I.1...P
..I.N.2300...4..J(AD$(I),F(AD$(I)))..J(T
EMP$,F(TEMP$)).2300.#...I.I.1:.2000.F...
.J.I.AD$(J).AD$(I):J.J.1:.1600.[.`.AD$(J
).TEMP$:I.J.G.D.TP.TP.1...(..I.LB.UB.I.L
OWER(TP).I.1:UPPER(TP).UB:UB.I.1:.1300.D
...LOWER(TP).LB:UPPER(TP).I.1:LB.I.1.N..
..1300......"...NOTHING TO ";OP$(OP);"..
"...$.."HIT .RETURN. FOR MENU";.#....A$:
.A$."".5000...P.. MENU.Q....".";CO;"ENTR
";:. CO.1 . ."Y";.D.|..CO..1.."IES";....
...(0).MM...18);"ONLY";.(0);"BYTES LEFT"
;...D........I.1.13:."RRR";:.I:..I....".
.A.....DD ENTRIES...P.."..M.....ODIFY AN
ENTRY...T.."..D.....ELETE AN ENTRY.@.8.
."..L.....IST ENTRIES (ON .S.....CREEN O
R .P.....RINTER).A.J.."..F.....AST LIST
OF NAMES"......"..S.....ORT LIST (BY .L.
....AST NAME OR .Z.....IP CODE)......"..
P.....RINT LABELS...D.."..R.....EAD FILE
FROM ";TD$...H.."..W.....RITE FILE TO "
TD$...,.."..Q.....UIT.&....".WHAT SHALL
I DO";.1....30200.F.X.OP.0:.I.1.C(OP$).D
....J(OP$,I,1).IN$.OP.I:I.99.~. ..:.OP.0
.."...";:.6900.F.Z.. R S
P W Q D A M L
F.....FC.6:.OP.14500,16600,19300,13
000,28700,15600,7500,27900,29400,30800..
...COUNTER.0.(.L.EN.CO.1.F.V..EN.MAX..".
...CAN'T HOLD MORE THAN";MAX;"ENTRIES.."
:.4900...`..". ENTER ADDRESS #"EN......N
.1.6:GC(N).0:A$(N)."":....... 26800...@.
."................J.."PRESS .SHIFT RETUR
N. TO ACCEPT ENTRY...T..". .OFF. (.
SHIFT RVS.) TO ABANDON./.L RW.6:CL.7:CH.
0:ZT.TI.B.P P.CRT.WD.RW.CL.].4!.:. QL,RW
.1:.".";.CL);....!.TI.ZT..P,(B(P).128).2
55:ZT.ZT.20....!.IN$:.IN$."".8600...`".P
,B(P).127...D"CH.F(IN$).I.(#.CH.141.1060
0....#.IN$.".".5200...T$.(CH.32.CH.95).C
H..160.10300.!..$.CH.13.CL.7:.RW.11.RW.R
W.1:.8400.G..%.CH.29.CH.32..CL.39.CL.CL.
1:.8400.F..%.CH.157.CL.7.CL.CL.1:.8400..
..%.CH.145.RW.6.RW.RW.1:.8400...H&.CH.17
.RW.11.RW.RW.1:.8400....&.CH.20.CL.7.. I
N$;:CL.CL.1:. CL.GC(RW.5).GC(RW.5).GC(RW
.5).1....'.CH..148.GC(RW.5).1..WD.10200.
*.T'GC(RW.5).GC(RW.5).1:.IN$;" .";.4.X'.
8400.T.<(CL.CL.1:.CL.39.CL.39:IN$."".Q.
(.CL.GC(RW.5).GC(RW.5).CL....).IN$;:.840
0...H)."..............";BL$:.:.BL$;"..."
...L)F.0:. N1.1 . FC.Y.V)A$."":. GC(N1).
7 . 10780....)B$."":. N2.7 . GC(N1)....)
N.CRT.(N1.5).WD.N2:PK.B(N):. N,128.PK.4.
.). PK.32 . PK.PK.64.K..).PK.34.PK.98.PK
.32.K..). PK.32 . B$.B$." ":. 10770....*
A$.A$.B$.G(PK):B$."":F.1....*. N2....*A$
(N1).A$...&*. N1.C.0*. F.0 . EN..CO . 15
900.T.:*. F.0 . 5200...D*A$.A$(1):.11000
:A$(1).A$...N*AD$."":. I.1 . FC.!.X*AD$.
AD$.A$(I).F1$:. I.6.B*AD$(EN).AD$:AL.1.J
.L*. EN..CO . 5200.T.V*CO.EN.|..*..(0).M
M.."ONLY";.(0);"BYTES LEFT."....*."ANY M
ORE ADDRESSES";:.30200:.:.IN$."N".5200..
..*.7500.I..*.A$."".11300...*+. J.C(A$)
. 1 . .1...\+. J(A$,J,1)." " . A$.J(A$,J
.1).F2$.H(A$,J):.....+. J.'.$,A$.A$.F2$.
-..,..<.H2.CO.0.4800.F.R2."....WRITE INT
O WHAT FILE? ";:.60000.W..2.IN$."".5200.
...2. FD.8 . 13070....2T$.H(IN$,12).".OL
D"....2.15,8,15:.15,"S";DR$;T$.Y..2.15,"
R";DR$;T$;"=";IN$....3 15....3DR.1:FI$.I
N$:.50100:.ER.4900...,3.1,"*MAIL*";CR$;.
-..5.1,CO;CR$;:.50000.:..5.EN.1.CO.D..5.
".";.O.L6.25500.]..6. I.1 . 6.~..6.1,QT$
;A$(I);QT$;CR$;:.50000...D6.I....7.EN...
X7.50300....7AL.0:.5200.I..8FB$."READ" :
.28900:.F6.0.5200.R..9."."...L9. "....RE
AD FROM WHAT FILE? ";:.60000:FI$.IN$...P
9.IN$."".5200...4:DR.0:.50100:.ER.4900.C
..:."..READING "FI$.A..:.1,T$:.T$.."*MAI
L*".15510.J..:.1,T....;. T..MAX . CO.T:.
15200....;."."FI$;" HAS";T;"ENTRIES. I
CAN'T".T..;.".HOLD MORE THAN";MAX;"ENTRI
ES.....$;. 15520...`;.EN.1.CO...J;AD$.""
...T;.I.1.6...~;.1,A$....;.I.1..11000.0.
.;AD$.AD$.A$.F1$.8..;. I.B..;.".";.R..;A
D$(EN).AD$.[.D;. EN.L..<.50300:.5200....
<.".I DIDN'T WRITE THAT FILE..". . <.503
00:.4900....<.CO.0.4800.W.T=. "...DELETE
WHICH ENTRY? ";:.60000....=.16200:.EN.0
.4900....>.25500...&>.26800.$.0>.".OKAY
TO DELETE";:.30200:..V.:>.IN$.."Y"..".EN
TRY";EN;"NOT DELETED..":. 4900....>.CO.E
N..N1.EN.CO.1:AD$(N1).AD$(N1.1):.N1. ..>
.".ENTRY";EN;"DELETED..".B..>AD$(CO)."":
CO.CO.1:AL.1:.4900.Y.H?EN..1:. IN$."" .
.....?EN.E(IN$):. EN.1 . EN.CO . . ".NO
SUCH ENTRY..":EN..1....@..(.X@.CO.0.4800
.B.<A."....YOU CAN SORT BY.T. A."..Z.IP
CODE.G..B."..L.AST NAME...LB.".WHICH WOU
LD YOU LIKE";...0C.30200....C.IN$."L".17
900....D.IN$.CR$.5200.H.$E.IN$."Z".18000
....E."...";:.17200....E. I.1 . CO:AD$(I
).G(2).AD$(I):.I....E.18060.%.PF. I.1 .
CO:AD$.AD$(I).?.ZF. N.C(AD$).1 . 1 . .1.
\.DF. J(AD$,N,1).F1$ . 18040.H.NF. N:N.0
.~.XFAD$(I).G(N.2).AD$....F. I....F.:. 8
00....F. I.1 . CO... FAD$(I).J(AD$(I),2)
....F. I.J..F.5200...|G.N.C(AD$(I)).1..1
....GQ.F(J(AD$(I),N,1)):.Q.48.Q.57..:.18
600.9.DH.N.5.AD$(I).J(AD$(I),N.5,5).AD$(
I):.18700.Z..HAD$(I)."00000".AD$(I):.187
00.A..I.I.J.PI.800.V.TI.I.1.CO...8JAD$(I
).J(AD$(I),6)....J.I....K.5200...DK.CO.0
.4800...NK."."...HK.4,4.M.RK. I.1 . 5...
.K.4,"********************************".
...K. I....K.4.0..K.".WANT ANOTHER TEST
LABEL";:.30200:..C..L.IN$."Y".19410.I..L
."..PRESS A KEY TO ABORT PRINTING.V.,L.E
N.1.CO....L.25500....L. N.1 . 4....L.4,A
$(N)....L. N.B..LA$.H(A$(5),32.C(A$(6)).
1)...BL.4,A$;H(BL$,32.C(A$).C(A$(6)));A$
(6)...LL.4....L.T$:.T$.."".19900...XM.EN
....M 4.!. N.5200....W.ZT.TI...;.HXZT.TI
.20.Z..XPK.B(P):. P,(PK.128).255:.....CN
2.0:AD$.AD$(EN):LE.C(AD$):GC(0).4:Q.1...
.DN0.1:.N1.1.LE...DDA$.J(AD$,N1,1)...HD.
A$.F2$.N2.N1.1.P.,E.A$.F1$.26100....E.N1
:.26700....E.Q.1.XA$.H(AD$,N2.2).", ".J(
AD$,N2,N1.N2).E.XF.N2.0.A$(Q).J(AD$,N2,N
1.N2).H(AD$,N2.2):N2.0:.26400._..FA$(Q).
J(AD$,N0,N1.N0).|. GGC(Q).6.C(A$(Q)):N0.
N1.1....G.C(A$(Q)).32.A$(Q).J(A$(Q),2,32
)....GQ.Q.1:.Q..FC.26000...LH..L..H."...
...".Z..H. I.1 . 6...DH. LB$(I);":";A$(I
)...NH. I...XH.....L.CO.0.4800.$.DM.N.1.
6:A$(N)."":..I.(N.".MODIFY WHICH ENTRY?
";:.60000._..N.16200:.EN.0.4900.Q..N.255
00:.26800.{.TO.8000....PFB$."QUIT":.2890
0:.F6.1..".":.....P.5200....PF6.0:.AL.0.
F6.1:....HQ."...YOU HAVE NOT SAVED YOUR
CHANGES."....Q.".DO YOU .REALLY. WANT TO
"OP$(OP);:.30200.0..R.IN$."Y".F6.1:AL.0
.6.TR..K.XR.".";:.CO.0.4800.].<S."..LIST
TO:".O. S."..P.RINTER"....T."..S.CREEN"
...HT.".WHERE TO";:.30200...LT. IN$."P".
31300...0U. IN$.CR$.5200.V.:U. IN$."S" .
31000....U."...";:.29800....UZC.1:ZT.TI
:."? ";.. \V. IN$:. IN$.."".30600.L .V.
TI.ZT . . J("? ",ZC,1);".";:ZC.3.ZC:ZT.T
I.15.X $W. 30300.} .W." ";:.(F(IN$).127)
.31..".";IN$;.. .W... PX. CO.0 . 4800..
.XFC.1.. .YPS.FC:. FC.1 . PS.PS.1.I "YPS
..(23.PS).R HYEN.1.. RY.".";:N.1.. |Y. 2
5500..!.YA$.".#".J(D(EN),2):LB$(1).H(A$.
". ",8).(!.Y. I.1. FC.?!.Y. LB$(I);":
";A$(I).T!.Y. I: . FC..1 . ..P!.YEN.EN.1
:. EN.CO . 31200..!.YN.N.1:.N..PS . 3110
0..!.Y.FC.1....!BY."PRESS .RETURN. FOR M
ORE";.J!LY.T$:.T$."".31180..!QY.T$." ".T
$."."..:.LB$(1):. 5200..!VY. 31090..".Y.
FC.1 . ...".Y.:. LB$(1):.4900.'"DZ.4,4.
0"NZEN.1.8".ZN.1.G"ZZ.25500:C.0.|".ZA$.J
(D(EN),2):A$.I(" ".A$,3)." ":.4,A$;:C.C
(A$)..".Z.4,A$(1);:C.C.C(A$(1))..".Z.I.2
.6.Y".{. A$(I).."" . .4,H(BL$,32.4.C);:C
.0:.4,A$(I):N.N.1..".{.I.." {.C.1..4:N.N
.1..#*{EN.EN.1:. EN.CO . 31600.$#4{N.N.1
:.N.56.31450./#>{.31400.<#P{ 4:.5200.U#P
C.TI.Z9.20.FD.2.50090.}#ZC.FD.1..59411,5
3:.Z.1.60:.:.59411,61..#DC.FD.2.ZZ.B(594
56):.59456,ZZ.239:.Z.1.60:.:.59456,ZZ.A#
.CZ9.TI:..Q#.C.FD.2.50200..$.C.".PLEASE
REWIND TAPE"FD".,":."AND THEN PRESS .RET
URN.;$RC.52000:.QB,122:.QB.1,2:.FD.2..QB
,58:.QB.1,3.T$.C.1,FD,DR,FI$:ZP.TI:..~$.
DFL$.DR$.FI$:.15,8,15:.DR.1..15,"S"FL$..
$"DFL$.FL$.",S,".J("RRW",DR.2,1):.1,8,2,
FL$..$6D.15,ER,ER$,TK,SC:.ER.0.(DR.0.ER.
62).ER$."":...$@D.ER.62.50280.'%JD 1:.".
"ER;ER$TK;SC:.".FIX PROBLEM AND TYPE 'CO
NT'.":..2%^D.50210.A%HD.".CAN'T OPEN "FI
$" ON DRIVE "H(FL$,1);".".N%|D 1: 15:...
% K. T$:. T$."". 52000..%*K...%`.IN$." "
:ZT.TI:ZC.2:ZD$.G(20).C%J..Z$:.Z$.."".60
070..%T..ZT..TI..J(" .",ZC,1);".";:ZC.3.
ZC:ZT.TI.15..%~..60010..&..Z.F(Z$):ZR.C(
IN$):.(Z.127).32.." .";:.60110.^&...FL.(
Z.127).64.(Z.127).91.Z$.G((Z.128).255).P
&...ZR.254.60010..&D.IN$.IN$.Z$:.Z$;ZD$;
Z$;..&N..Z.13.IN$.J(IN$,2):.CR$;:..V&X..
Z.20.ZR.1.IN$.H(IN$,ZR.1):.".";:.60010..
'...Z.141.Z$.G(.20.(ZR.1)):.Z.2.ZR:.Z$;:
.Z:.60000..'...60010.+'...".":.:.60400:.
100.C'..CRT.32768:CR$.G(13).U'..WD.40:.C
RT,96:.B(CRT.1024)..96.WD.80:.G(142);..'
..QL.216:.B(50000).0.QL.245..'.....'T..I
.1.13:."...";:.I:."...":..G'0..59468,12.
.'5.."...";.15.C(PG$));PG$;" BY ROBY HY
DE AND..(6...20)"HUNTER HANCOCK.@(:..".
CURSOR #";NM$;" COPYRIGHT (C) 1981.
.K(D..60500.K(N..".MAINTAINS A MAILING L
IST..(..."...PRESS .RETURN. TO BEGIN"..(
...IN$:.IN$."".62090..(... 60300...$
> CLICK IMAGE PREVIEW FOR FULL MODAL