CREDIT CARD MGR.
FILE INFORMATION
FILENAME(S): CREDIT CARD MGR.
FILE TYPE(S): PRG
FILE SIZE: 11K
FIRST SEEN: 2025-11-30 21:11:33
APPEARS ON: 1 disk(s)
FILE HASH
144613a338c38c408e4a3a757b660b2ff0bf3e33fa51c77e3a1ff45b21914de6
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| P IME 1 7 | CREDIT CARD MGR. | PRG | DuncanTwain | 10 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1C 08 0A 00 8F 20 20 20 20 43 52 45 44 49 |....... CREDI|
00000010: 54 20 43 41 52 44 20 46 49 4C 45 52 00 33 08 19 |T CARD FILER.3..|
00000020: 00 8F 20 20 20 20 42 59 20 4D 49 4B 45 20 43 4F |.. BY MIKE CO|
00000030: 4F 4B 45 00 45 08 28 00 8F 20 20 20 20 28 43 29 |OKE.E.(.. (C)|
00000040: 20 31 39 38 37 00 5C 08 37 00 8F 20 20 20 20 50 | 1987.\.7.. P|
00000050: 55 42 4C 49 53 48 45 44 20 42 59 3A 00 7F 08 46 |UBLISHED BY:...F|
00000060: 00 8F 20 20 20 20 56 49 4B 49 4E 47 20 54 45 43 |.. VIKING TEC|
00000070: 48 4E 4F 4C 4F 47 49 45 53 2C 20 49 4E 43 2E 00 |HNOLOGIES, INC..|
00000080: 85 08 55 00 8F 00 B6 08 64 00 8B 4C B2 30 A7 4C |..U.....d..L.0.L|
00000090: B2 31 3A 9F 31 35 2C 38 2C 31 35 2C 22 49 30 22 |.1:.15,8,15,"I0"|
000000A0: 3A A0 31 35 3A 93 22 30 3A 4C 50 54 52 20 52 54 |:.15:."0:LPTR RT|
000000B0: 4E 22 2C 38 2C 31 00 CC 08 6E 00 9E 20 36 35 34 |N",8,1...n.. 654|
000000C0: 31 38 3A 97 20 38 30 38 2C 32 33 34 00 E8 08 73 |18:. 808,234...s|
000000D0: 00 9C 3A 99 C7 28 38 29 3B C7 28 31 34 29 3A 55 |..:..(8);.(14):U|
000000E0: 50 24 B2 C7 28 31 37 29 00 F6 08 78 00 97 20 35 |P$..(17)...x.. 5|
000000F0: 33 32 36 39 2C 30 00 09 09 82 00 4E 43 B2 30 3A |3269,0.....NC.0:|
00000100: 86 43 24 28 32 36 2C 34 29 00 1F 09 91 00 97 35 |.C$(26,4)......5|
00000110: 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 00 |3280,0:.53281,0.|
00000120: 28 09 96 00 99 22 93 22 00 3D 09 04 01 56 B2 35 |(....".".=...V.5|
00000130: 33 32 34 38 3A 47 54 B2 31 34 33 33 35 00 6C 09 |3248:GT.14335.l.|
00000140: 09 01 81 54 B2 31 A4 32 35 36 3A 87 41 3A 97 47 |...T.1.256:.A:.G|
00000150: 54 AA 54 2C 41 3A 82 54 3A 97 32 30 34 30 2C 32 |T.T,A:.T:.2040,2|
00000160: 32 34 3A 97 32 30 34 31 2C 32 32 35 00 A4 09 18 |24:.2041,225....|
00000170: 01 97 32 30 34 32 2C 32 32 36 3A 97 32 30 34 33 |..2042,226:.2043|
00000180: 2C 32 32 37 3A 97 56 AA 34 31 2C 36 3A 97 56 AA |,227:.V.41,6:.V.|
00000190: 34 32 2C 36 3A 97 56 AA 33 39 2C 38 3A 97 56 AA |42,6:.V.39,8:.V.|
000001A0: 34 30 2C 38 00 CA 09 27 01 97 56 AA 32 38 2C 31 |40,8...'..V.28,1|
000001B0: 35 3A 97 56 AA 33 37 2C 31 3A 97 56 AA 33 38 2C |5:.V.37,1:.V.38,|
000001C0: 37 3A 97 56 AA 31 36 2C 31 32 00 03 0A 36 01 97 |7:.V.16,12...6..|
000001D0: 56 2C 34 37 3A 97 56 AA 32 2C 37 31 3A 97 56 AA |V,47:.V.2,71:.V.|
000001E0: 34 2C 39 3A 97 56 AA 36 2C 33 33 3A 97 56 AA 31 |4,9:.V.6,33:.V.1|
000001F0: 2C 36 38 3A 97 56 AA 33 2C 36 38 3A 97 56 AA 35 |,68:.V.3,68:.V.5|
00000200: 2C 36 38 00 18 0A 45 01 97 56 AA 37 2C 36 38 3A |,68...E..V.7,68:|
00000210: 97 56 AA 32 31 2C 31 35 00 4A 0A 46 01 99 22 93 |.V.21,15.J.F..".|
00000220: 9B 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
00000230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000240: 20 20 20 20 20 20 20 20 20 22 00 7D 0A 47 01 99 | ".}.G..|
00000250: 22 12 20 92 20 20 20 20 20 20 20 20 20 20 20 20 |". . |
00000260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000270: 20 20 20 20 20 20 20 20 20 12 20 92 22 00 B0 0A | . ."...|
00000280: 48 01 99 22 12 20 92 20 20 20 20 20 20 20 20 20 |H..". . |
00000290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002A0: 20 20 20 20 20 20 20 20 20 20 20 20 12 20 92 22 | . ."|
000002B0: 00 E5 0A 49 01 99 22 12 20 92 20 20 20 20 20 20 |...I..". . |
000002C0: 20 20 20 20 9A C3 52 45 44 49 54 20 C3 41 52 44 | ..REDIT .ARD|
000002D0: 20 C6 49 4C 45 52 9B 20 20 20 20 20 20 20 20 20 | .ILER. |
000002E0: 20 12 20 92 22 00 18 0B 4A 01 99 22 12 20 92 20 | . ."...J..". . |
000002F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000310: 20 20 20 20 12 20 92 22 00 4B 0B 4B 01 99 22 12 | . .".K.K..".|
00000320: 20 92 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 | ...............|
00000330: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000340: A4 A4 A4 A4 A4 A4 A4 12 20 92 22 00 7D 0B 4C 01 |........ .".}.L.|
00000350: 99 22 12 20 20 20 20 20 20 D0 52 45 53 53 20 C6 |.". .RESS .|
00000360: 38 20 54 4F 20 D2 45 54 55 52 4E 20 54 4F 20 D5 |8 TO .ETURN TO .|
00000370: 50 D4 49 4D 45 20 20 20 20 20 22 3A 99 00 A6 0B |P.IME ":....|
00000380: 54 01 99 22 11 11 9F 20 20 20 20 20 20 20 20 20 |T.."... |
00000390: D7 52 49 54 54 45 4E 20 42 59 20 CD 49 4B 45 20 |.RITTEN BY .IKE |
000003A0: C3 4F 4F 4B 45 22 00 CB 0B 63 01 99 22 11 20 20 |.OOKE"...c..". |
000003B0: 20 20 20 20 20 20 20 20 28 43 29 20 C3 4F 50 59 | (C) .OPY|
000003C0: 52 49 47 48 54 20 31 39 38 37 22 00 FB 0B 72 01 |RIGHT 1987"...r.|
000003D0: 99 22 11 20 D0 55 42 4C 49 53 48 45 44 20 42 59 |.". .UBLISHED BY|
000003E0: 20 D6 49 4B 49 4E 47 20 D4 45 43 48 4E 4F 4C 4F | .IKING .ECHNOLO|
000003F0: 47 49 45 53 2C 20 C9 4E 43 2E 22 00 26 0C 81 01 |GIES, .NC.".&...|
00000400: 99 22 11 11 98 20 20 20 20 20 C4 4F 20 59 4F 55 |."... .O YOU|
00000410: 20 57 41 4E 54 20 49 4E 53 54 52 55 43 54 49 4F | WANT INSTRUCTIO|
00000420: 4E 53 3F 20 22 3B 00 32 0C 86 01 97 20 31 39 38 |NS? ";.2.... 198|
00000430: 2C 30 00 47 0C 90 01 A1 41 24 3A 8B 41 24 B2 22 |,0.G....A$:.A$."|
00000440: 8C 22 A7 34 33 36 30 00 60 0C 9F 01 8B 41 24 B2 |.".4360.`....A$.|
00000450: 22 59 22 A7 99 22 9B D9 45 53 22 3A 89 36 31 30 |"Y".."..ES":.610|
00000460: 00 79 0C AE 01 8B 41 24 B2 22 4E 22 A7 99 22 9B |.y....A$."N"..".|
00000470: CE 4F 22 3A 89 31 30 39 30 00 82 0C BD 01 89 34 |.O":.1090......4|
00000480: 30 30 00 9E 0C CC 01 8F 20 20 20 2A 2A 2A 20 43 |00...... *** C|
00000490: 4C 45 41 52 20 53 50 41 43 45 20 2A 2A 2A 00 AE |LEAR SPACE ***..|
000004A0: 0C DB 01 99 22 13 11 11 11 11 11 11 11 22 00 EC |...."........"..|
000004B0: 0C EA 01 5A B2 30 3A 81 5A B2 31 A4 31 36 3A 99 |...Z.0:.Z.1.16:.|
000004C0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
000004D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004E0: 20 20 20 20 20 20 20 20 22 3A 82 5A 00 FC 0C F9 | ":.Z....|
000004F0: 01 99 22 13 11 11 11 11 11 11 11 22 00 02 0D 08 |.."........"....|
00000500: 02 8E 00 21 0D 17 02 8F 20 20 20 2A 2A 2A 20 50 |...!.... *** P|
00000510: 52 45 53 53 20 53 50 41 43 45 42 41 52 20 2A 2A |RESS SPACEBAR **|
00000520: 2A 00 4C 0D 26 02 99 22 20 20 20 20 20 20 20 1C |*.L.&.." .|
00000530: D0 52 45 53 53 20 96 3C D3 D0 C1 C3 C5 3E 1C 20 |.RESS .<.....>. |
00000540: 54 4F 20 C3 4F 4E 54 49 4E 55 45 22 00 61 0D 35 |TO .ONTINUE".a.5|
00000550: 02 A1 41 24 3A 8B 41 24 B2 22 8C 22 A7 34 33 36 |..A$:.A$.".".436|
00000560: 30 00 74 0D 44 02 8B 41 24 B3 B1 C7 28 33 32 29 |0.t.D..A$...(32)|
00000570: A7 35 36 35 00 7A 0D 53 02 8E 00 97 0D 62 02 8F |.565.z.S.....b..|
00000580: 20 20 20 2A 2A 2A 20 49 4E 53 54 52 55 43 54 49 | *** INSTRUCTI|
00000590: 4F 4E 53 20 2A 2A 2A 00 CB 0D 71 02 8D 34 36 30 |ONS ***...q..460|
000005A0: 3A 99 22 98 20 20 20 20 D4 48 49 53 20 50 52 4F |:.". .HIS PRO|
000005B0: 47 52 41 4D 27 53 20 50 55 52 50 4F 53 45 20 49 |GRAM'S PURPOSE I|
000005C0: 53 20 54 4F 20 53 54 4F 52 45 22 00 F9 0D 80 02 |S TO STORE".....|
000005D0: 99 22 55 50 20 54 4F 20 32 35 20 44 49 46 46 45 |."UP TO 25 DIFFE|
000005E0: 52 45 4E 54 20 53 45 54 53 20 4F 46 20 43 52 45 |RENT SETS OF CRE|
000005F0: 44 49 54 20 43 41 52 44 22 00 28 0E 8F 02 99 22 |DIT CARD".(...."|
00000600: 49 4E 46 4F 52 4D 41 54 49 4F 4E 2E 20 C6 4F 52 |INFORMATION. .OR|
00000610: 20 45 41 43 48 20 43 41 52 44 2C 20 54 48 45 20 | EACH CARD, THE |
00000620: 50 52 4F 47 52 41 4D 22 00 56 0E 9E 02 99 22 57 |PROGRAM".V...."W|
00000630: 49 4C 4C 20 53 54 4F 52 45 20 49 54 53 20 4E 41 |ILL STORE ITS NA|
00000640: 4D 45 2C 20 4E 55 4D 42 45 52 2C 20 45 58 50 20 |ME, NUMBER, EXP |
00000650: 44 41 54 45 2C 22 00 84 0E AD 02 99 22 41 4E 44 |DATE,"......"AND|
00000660: 20 41 20 50 48 4F 4E 45 20 4E 55 4D 42 45 52 20 | A PHONE NUMBER |
00000670: 54 4F 20 43 41 4C 4C 20 49 46 20 59 4F 55 20 57 |TO CALL IF YOU W|
00000680: 45 52 45 22 00 B2 0E BC 02 99 22 54 4F 20 4C 4F |ERE"......"TO LO|
00000690: 53 45 20 54 48 45 20 43 41 52 44 2E 20 20 C9 46 |SE THE CARD. .F|
000006A0: 20 59 4F 55 20 57 45 52 45 20 54 4F 20 4C 4F 53 | YOU WERE TO LOS|
000006B0: 45 22 00 E0 0E CB 02 99 22 59 4F 55 52 20 43 41 |E"......"YOUR CA|
000006C0: 52 44 53 2C 20 59 4F 55 20 57 4F 55 4C 44 20 48 |RDS, YOU WOULD H|
000006D0: 41 56 45 20 45 41 53 59 20 41 43 43 45 53 53 22 |AVE EASY ACCESS"|
000006E0: 00 0C 0F DA 02 99 22 54 4F 20 54 48 45 20 49 4E |......"TO THE IN|
000006F0: 46 4F 52 4D 41 54 49 4F 4E 20 59 4F 55 20 57 4F |FORMATION YOU WO|
00000700: 55 4C 44 20 4E 45 45 44 20 54 4F 22 00 31 0F E9 |ULD NEED TO".1..|
00000710: 02 99 22 54 45 4C 4C 20 54 48 45 20 43 52 45 44 |.."TELL THE CRED|
00000720: 49 54 20 43 41 52 44 20 43 4F 4D 50 41 4E 59 2E |IT CARD COMPANY.|
00000730: 22 00 41 0F F8 02 99 3A 8D 35 33 35 3A 8D 34 36 |".A....:.535:.46|
00000740: 30 00 6F 0F 07 03 99 22 98 20 20 20 20 20 D4 4F |0.o....". .O|
00000750: 20 50 55 54 20 41 20 43 41 52 44 20 49 4E 54 4F | PUT A CARD INTO|
00000760: 20 54 48 45 20 46 49 4C 45 2C 20 59 4F 55 22 00 | THE FILE, YOU".|
00000770: 9D 0F 16 03 99 22 57 4F 55 4C 44 20 50 49 43 4B |....."WOULD PICK|
00000780: 20 54 48 45 20 46 49 52 53 54 20 4D 45 4E 55 20 | THE FIRST MENU |
00000790: 43 48 4F 4F 53 45 2D 41 44 44 20 41 22 00 C5 0F |CHOOSE-ADD A"...|
000007A0: 25 03 99 22 43 41 52 44 2E 20 20 C9 46 20 59 4F |%.."CARD. .F YO|
000007B0: 55 20 45 56 45 52 20 57 41 4E 54 20 54 4F 20 45 |U EVER WANT TO E|
000007C0: 52 41 53 45 22 00 F1 0F 34 03 99 22 54 48 45 20 |RASE"...4.."THE |
000007D0: 49 4E 46 4F 52 4D 41 54 49 4F 4E 20 4F 4E 20 41 |INFORMATION ON A|
000007E0: 20 43 41 52 44 2C 20 59 4F 55 20 57 4F 55 4C 44 | CARD, YOU WOULD|
000007F0: 22 00 20 10 43 03 99 22 43 48 4F 4F 53 45 20 54 |". .C.."CHOOSE T|
00000800: 48 45 20 54 48 45 20 41 50 50 52 4F 50 52 49 41 |HE THE APPROPRIA|
00000810: 54 45 20 4D 45 4E 55 20 43 48 4F 49 43 45 2E 22 |TE MENU CHOICE."|
00000820: 00 46 10 52 03 99 22 9B C1 4C 57 41 59 53 20 27 |.F.R.."..LWAYS '|
00000830: 53 41 56 45 27 20 54 48 45 20 46 49 4C 45 20 42 |SAVE' THE FILE B|
00000840: 45 46 4F 52 45 22 00 71 10 61 03 99 22 45 58 49 |EFORE".q.a.."EXI|
00000850: 54 49 4E 47 20 49 46 20 59 4F 55 20 48 41 56 45 |TING IF YOU HAVE|
00000860: 20 4D 41 44 45 20 43 48 41 4E 47 45 53 20 49 4E | MADE CHANGES IN|
00000870: 22 00 9E 10 70 03 99 22 54 48 45 20 46 49 4C 45 |"...p.."THE FILE|
00000880: 2E 20 20 98 C9 46 20 59 4F 55 20 44 4F 4E 27 54 |. ..F YOU DON'T|
00000890: 2C 20 54 48 45 20 43 48 41 4E 47 45 53 22 00 BB |, THE CHANGES"..|
000008A0: 10 7F 03 99 22 57 49 4C 4C 20 4E 4F 54 20 42 45 |...."WILL NOT BE|
000008B0: 20 52 45 43 4F 52 44 45 44 2E 22 00 CB 10 8E 03 | RECORDED.".....|
000008C0: 99 3A 8D 35 33 35 3A 8D 34 36 30 00 F9 10 9D 03 |.:.535:.460.....|
000008D0: 99 22 98 20 20 20 20 20 C9 4E 20 54 48 45 20 46 |.". .N THE F|
000008E0: 49 52 53 54 20 50 41 52 54 20 4F 46 20 54 48 45 |IRST PART OF THE|
000008F0: 20 50 52 4F 47 52 41 4D 22 00 26 11 AC 03 99 22 | PROGRAM".&...."|
00000900: 59 4F 55 20 57 49 4C 4C 20 42 45 20 41 53 4B 45 |YOU WILL BE ASKE|
00000910: 44 20 49 46 20 54 48 49 53 20 41 20 4E 45 57 20 |D IF THIS A NEW |
00000920: 4F 52 20 41 4E 22 00 55 11 BB 03 99 22 4F 4C 44 |OR AN".U...."OLD|
00000930: 20 46 49 4C 45 2E 20 20 CE 45 57 20 46 49 4C 45 | FILE. .EW FILE|
00000940: 53 20 41 52 45 20 4F 4E 45 53 20 54 48 41 54 20 |S ARE ONES THAT |
00000950: 48 41 56 45 22 00 80 11 CA 03 99 22 4E 4F 20 44 |HAVE"......"NO D|
00000960: 41 54 41 2E 20 20 D9 4F 55 20 57 4F 55 4C 44 20 |ATA. .OU WOULD |
00000970: 43 48 4F 4F 53 45 20 54 48 49 53 20 54 48 45 22 |CHOOSE THIS THE"|
00000980: 00 AC 11 D9 03 99 22 46 49 52 53 54 20 54 49 4D |......"FIRST TIM|
00000990: 45 20 59 4F 55 20 52 55 4E 20 54 48 45 20 50 52 |E YOU RUN THE PR|
000009A0: 4F 47 52 41 4D 2E 20 20 CF 4C 44 22 00 D9 11 E8 |OGRAM. .LD"....|
000009B0: 03 99 22 46 49 4C 45 53 20 41 52 45 20 54 48 4F |.."FILES ARE THO|
000009C0: 53 45 20 57 49 54 48 20 44 41 54 41 20 49 4E 20 |SE WITH DATA IN |
000009D0: 54 48 45 4D 20 59 4F 55 22 00 06 12 F7 03 99 22 |THEM YOU"......"|
000009E0: 57 41 4E 54 20 54 4F 20 43 48 41 4E 47 45 20 4F |WANT TO CHANGE O|
000009F0: 52 20 41 44 44 20 54 4F 2E 20 20 C9 46 20 59 4F |R ADD TO. .F YO|
00000A00: 55 20 53 41 59 22 00 35 12 06 04 99 22 54 48 41 |U SAY".5...."THA|
00000A10: 54 20 59 4F 55 20 57 41 4E 54 20 41 20 4E 45 57 |T YOU WANT A NEW|
00000A20: 20 46 49 4C 45 20 41 46 54 45 52 20 59 4F 55 20 | FILE AFTER YOU |
00000A30: 48 41 56 45 22 00 64 12 15 04 99 22 41 4C 52 45 |HAVE".d...."ALRE|
00000A40: 41 44 59 20 4D 41 44 45 20 41 20 46 49 4C 45 2C |ADY MADE A FILE,|
00000A50: 20 54 48 45 20 46 49 52 53 54 20 4F 4E 45 20 57 | THE FIRST ONE W|
00000A60: 49 4C 4C 22 00 97 12 24 04 99 22 42 45 20 45 52 |ILL"...$.."BE ER|
00000A70: 41 53 45 44 20 41 4E 44 20 41 20 4E 45 57 20 4F |ASED AND A NEW O|
00000A80: 4E 45 20 53 45 54 20 55 50 2E 22 3A 99 3A 8D 35 |NE SET UP.":.:.5|
00000A90: 33 35 3A 8D 34 36 30 00 C7 12 25 04 99 22 98 20 |35:.460...%..". |
00000AA0: 20 20 20 D4 48 45 20 46 49 4E 41 4C 20 4D 45 4E | .HE FINAL MEN|
00000AB0: 55 20 43 48 4F 49 43 45 2C 20 D0 52 49 4E 54 20 |U CHOICE, .RINT |
00000AC0: CC 45 54 54 45 52 22 00 F6 12 26 04 99 22 49 53 |.ETTER"...&.."IS|
00000AD0: 20 55 53 45 44 20 57 48 45 4E 20 59 4F 55 20 4C | USED WHEN YOU L|
00000AE0: 4F 53 45 20 41 20 43 52 45 44 49 54 20 43 41 52 |OSE A CREDIT CAR|
00000AF0: 44 20 41 4E 44 22 00 24 13 27 04 99 22 59 4F 55 |D AND".$.'.."YOU|
00000B00: 20 4E 45 45 44 20 54 4F 20 53 45 4E 44 20 41 20 | NEED TO SEND A |
00000B10: 57 52 49 54 54 45 4E 20 52 45 51 55 45 53 54 20 |WRITTEN REQUEST |
00000B20: 46 4F 52 22 00 4F 13 28 04 99 22 4E 45 57 20 43 |FOR".O.(.."NEW C|
00000B30: 52 45 44 49 54 53 20 43 41 52 44 53 2E 20 20 D9 |REDITS CARDS. .|
00000B40: 4F 55 20 41 52 45 20 41 53 4B 20 46 4F 52 22 00 |OU ARE ASK FOR".|
00000B50: 7B 13 29 04 99 22 41 44 44 49 54 49 4F 4E 41 4C |{.).."ADDITIONAL|
00000B60: 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 20 54 4F 20 | INFORMATION TO |
00000B70: 50 55 54 20 49 4E 20 54 48 45 22 00 A5 13 2A 04 |PUT IN THE"...*.|
00000B80: 99 22 4C 45 54 54 45 52 20 41 4E 44 20 59 4F 55 |."LETTER AND YOU|
00000B90: 20 53 48 4F 55 4C 44 20 52 45 50 4C 59 20 49 4E | SHOULD REPLY IN|
00000BA0: 20 54 48 45 22 00 C9 13 2B 04 99 22 46 4F 4C 4C | THE"...+.."FOLL|
00000BB0: 4F 57 49 4E 47 20 46 4F 52 4D 41 54 2E 11 22 3A |OWING FORMAT..":|
00000BC0: 8D 35 33 35 3A 8D 34 36 30 00 EF 13 2C 04 99 22 |.535:.460...,.."|
00000BD0: 98 20 20 CE C1 CD C5 3A 20 20 20 20 20 9B CD 49 |. ....: ..I|
00000BE0: 43 48 41 45 4C 20 D3 2E 20 C3 4F 4F 4B 45 22 00 |CHAEL .. .OOKE".|
00000BF0: 14 14 2D 04 99 22 20 98 20 C1 CC D4 20 CE C1 CD |..-.." . ... ...|
00000C00: C5 3A 20 9B D3 4F 4E 44 52 41 20 CC 2E 20 C3 4F |.: ..ONDRA .. .O|
00000C10: 4F 4B 45 22 00 43 14 2E 04 99 22 20 20 28 D5 53 |OKE".C...." (.S|
00000C20: 45 44 20 57 49 54 48 20 4D 4F 52 45 20 54 48 41 |ED WITH MORE THA|
00000C30: 4E 20 4F 4E 45 20 43 41 52 44 20 48 4F 4C 44 45 |N ONE CARD HOLDE|
00000C40: 52 29 22 00 63 14 2F 04 99 22 20 20 98 C1 C4 C4 |R)".c./.." ....|
00000C50: D2 C5 D3 D3 3A 9B 20 20 D0 CF 20 C2 4F 58 20 31 |....:. .. .OX 1|
00000C60: 30 30 22 00 80 14 30 04 99 22 20 20 20 20 20 20 |00"...0.." |
00000C70: 20 20 20 20 20 20 20 20 20 20 20 20 20 4F 52 22 | OR"|
00000C80: 00 A5 14 31 04 99 22 20 20 20 20 20 20 20 20 20 |...1.." |
00000C90: 20 20 20 38 30 31 20 CC 41 4B 45 53 48 4F 52 45 | 801 .AKESHORE|
00000CA0: 20 C4 52 2E 22 00 D8 14 32 04 99 22 11 20 20 98 | .R."...2..". .|
00000CB0: C3 C9 D4 D9 3A 20 9B D3 45 4C 4D 41 20 20 98 D3 |....: ..ELMA ..|
00000CC0: D4 C1 D4 C5 3A 20 9B CF D2 20 20 98 DA C9 D0 3A |....: ... ....:|
00000CD0: 20 9B 39 37 35 33 38 22 00 FE 14 33 04 99 22 11 | .97538"...3..".|
00000CE0: 20 20 98 C4 C1 D4 C5 3A 20 20 20 20 20 9B C1 55 | .....: ..U|
00000CF0: 47 55 53 54 20 31 33 2C 20 31 39 38 37 22 00 24 |GUST 13, 1987".$|
00000D00: 15 34 04 99 22 11 20 20 98 D0 C8 CF CE C5 20 23 |.4..". ...... #|
00000D10: 3A 20 20 9B 28 35 30 33 29 20 35 39 37 2D 31 32 |: .(503) 597-12|
00000D20: 31 32 11 22 00 37 15 41 04 8D 35 33 35 3A 8D 34 |12.".7.A..535:.4|
00000D30: 36 30 3A 89 33 34 30 00 54 15 42 04 8F 20 20 20 |60:.340.T.B.. |
00000D40: 2A 2A 2A 20 4F 4C 44 2F 4E 45 57 20 46 49 4C 45 |*** OLD/NEW FILE|
00000D50: 20 2A 2A 2A 00 89 15 51 04 99 22 11 98 20 20 20 | ***...Q..".. |
00000D60: 20 20 C9 53 20 54 48 49 53 20 41 20 9B CE 98 45 | .S THIS A ...E|
00000D70: 57 20 4F 52 20 9B CF 98 4C 44 20 46 49 4C 45 3F |W OR ...LD FILE?|
00000D80: 20 20 20 20 9D 9D 9D 22 3B 00 9E 15 60 04 A1 41 | ...";...`..A|
00000D90: 24 3A 8B 41 24 B2 22 8C 22 A7 34 33 36 30 00 B8 |$:.A$.".".4360..|
00000DA0: 15 6F 04 8B 41 24 B2 22 4E 22 A7 99 22 9B CE 45 |.o..A$."N".."..E|
00000DB0: 57 22 3A 89 31 31 38 30 00 D3 15 7E 04 8B 41 24 |W":.1180...~..A$|
00000DC0: B2 22 4F 22 A7 99 22 9B CF 4C 44 11 22 3A 89 31 |."O".."..LD.":.1|
00000DD0: 34 32 30 00 DD 15 8D 04 89 31 31 32 30 00 00 16 |420......1120...|
00000DE0: 9C 04 99 22 11 20 20 20 20 20 C1 52 45 20 59 4F |...". .RE YO|
00000DF0: 55 20 53 55 52 45 3F 20 20 20 20 9D 9D 9D 22 3B |U SURE? ...";|
00000E00: 00 15 16 AB 04 A1 41 24 3A 8B 41 24 B2 22 8C 22 |......A$:.A$."."|
00000E10: A7 34 33 36 30 00 2F 16 BA 04 8B 41 24 B2 22 59 |.4360./....A$."Y|
00000E20: 22 A7 99 22 D9 45 53 11 22 3A 89 31 32 35 35 00 |"..".ES.":.1255.|
00000E30: 4B 16 C9 04 8B 41 24 B2 22 4E 22 A7 99 22 CE 4F |K....A$."N"..".O|
00000E40: 91 91 91 91 22 3A 89 31 31 30 35 00 55 16 D8 04 |....":.1105.U...|
00000E50: 89 31 31 39 35 00 6E 16 E7 04 8F 20 20 20 2A 2A |.1195.n.... **|
00000E60: 2A 20 4E 45 57 20 46 49 4C 45 20 2A 2A 2A 00 AB |* NEW FILE ***..|
00000E70: 16 F6 04 9F 31 35 2C 38 2C 31 35 2C 22 49 30 22 |....15,8,15,"I0"|
00000E80: 3A 9F 31 2C 38 2C 32 2C 22 40 30 3A 2D 43 43 4D |:.1,8,2,"@0:-CCM|
00000E90: 20 44 41 54 41 2C 53 2C 57 22 3A 84 31 35 2C 41 | DATA,S,W":.15,A|
00000EA0: 3A 8B 41 B3 32 30 A7 31 33 36 30 00 E3 16 05 05 |:.A.20.1360.....|
00000EB0: 99 22 91 91 98 C4 C9 D3 CB 20 C5 D2 D2 CF D2 21 |."....... .....!|
00000EC0: 21 21 20 20 D0 4C 45 41 53 45 20 43 48 45 43 4B |!! .LEASE CHECK|
00000ED0: 20 59 4F 55 52 20 44 52 49 56 45 22 3A A0 31 3A | YOUR DRIVE":.1:|
00000EE0: A0 31 35 00 FB 16 14 05 99 22 41 4E 44 20 50 52 |.15......"AND PR|
00000EF0: 45 53 53 20 53 50 41 43 45 2E 22 00 0F 17 23 05 |ESS SPACE."...#.|
00000F00: A1 41 24 3A 8B 41 24 B2 22 22 A7 31 33 31 35 00 |.A$:.A$."".1315.|
00000F10: 21 17 32 05 99 22 91 91 91 22 3A 81 54 B2 31 A4 |!.2.."...":.T.1.|
00000F20: 32 00 5E 17 41 05 99 22 20 20 20 20 20 20 20 20 |2.^.A.." |
00000F30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000F40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00000F50: 3A 82 54 3A 99 22 91 22 3A 89 31 32 37 30 00 7C |:.T:.".":.1270.||
00000F60: 17 50 05 99 22 98 20 20 20 20 20 C3 52 45 41 54 |.P..". .REAT|
00000F70: 49 4E 47 20 46 49 4C 45 2E 2E 2E 22 00 98 17 5F |ING FILE..."..._|
00000F80: 05 98 31 2C 30 3A A0 31 3A A0 31 35 3A 81 54 B2 |..1,0:.1:.15:.T.|
00000F90: 31 A4 35 30 30 3A 82 54 00 A2 17 6E 05 89 31 35 |1.500:.T...n..15|
00000FA0: 35 35 00 BB 17 7D 05 8F 20 20 20 2A 2A 2A 20 4F |55...}.. *** O|
00000FB0: 4C 44 20 46 49 4C 45 20 2A 2A 2A 00 FB 17 8C 05 |LD FILE ***.....|
00000FC0: 9F 31 35 2C 38 2C 31 35 2C 22 49 30 22 3A 9F 31 |.15,8,15,"I0":.1|
00000FD0: 2C 38 2C 32 2C 22 30 3A 2D 43 43 4D 20 44 41 54 |,8,2,"0:-CCM DAT|
00000FE0: 41 2C 53 2C 52 22 3A 84 31 35 2C 41 24 3A 8B 41 |A,S,R":.15,A$:.A|
00000FF0: 24 B3 22 32 30 22 A7 31 35 31 30 00 31 18 9B 05 |$."20".1510.1...|
00001000: 99 22 98 C4 C9 D3 CB 20 C5 D2 D2 CF D2 21 21 21 |."..... .....!!!|
00001010: 20 20 D0 4C 45 41 53 45 20 43 48 45 43 4B 20 59 | .LEASE CHECK Y|
00001020: 4F 55 52 20 44 52 49 56 45 22 3A A0 31 3A A0 31 |OUR DRIVE":.1:.1|
00001030: 35 00 49 18 AA 05 99 22 41 4E 44 20 50 52 45 53 |5.I...."AND PRES|
00001040: 53 20 53 50 41 43 45 2E 22 00 5D 18 B9 05 A1 41 |S SPACE.".]....A|
00001050: 24 3A 8B 41 24 B2 22 22 A7 31 34 36 35 00 6F 18 |$:.A$."".1465.o.|
00001060: C8 05 99 22 91 91 91 22 3A 81 54 B2 31 A4 32 00 |..."...":.T.1.2.|
00001070: B1 18 D7 05 99 22 20 20 20 20 20 20 20 20 20 20 |....." |
00001080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001090: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 82 | ":.|
000010A0: 54 3A 99 22 91 91 91 91 91 91 22 3A 89 31 31 30 |T:."......":.110|
000010B0: 35 00 EE 18 E6 05 99 22 20 20 20 20 20 CC 4F 41 |5......" .OA|
000010C0: 44 49 4E 47 20 44 41 54 41 2E 2E 2E 22 3A 84 31 |DING DATA...":.1|
000010D0: 2C 4E 43 24 3A 4E 43 B2 C5 28 4E 43 24 29 3A 8B |,NC$:NC..(NC$):.|
000010E0: 20 4E 43 B1 32 36 20 A7 20 4E 43 B2 32 36 00 11 | NC.26 . NC.26..|
000010F0: 19 F5 05 81 54 B2 31 A4 4E 43 3A 81 59 B2 31 A4 |....T.1.NC:.Y.1.|
00001100: 34 3A 84 31 2C 43 24 28 54 2C 59 29 3A 82 59 2C |4:.1,C$(T,Y):.Y,|
00001110: 54 00 1C 19 04 06 A0 31 3A A0 31 35 00 34 19 13 |T......1:.15.4..|
00001120: 06 8F 20 2A 2A 2A 20 4D 41 49 4E 20 4D 45 4E 55 |.. *** MAIN MENU|
00001130: 20 2A 2A 2A 00 60 19 22 06 8D 34 36 30 3A 99 22 | ***.`."..460:."|
00001140: 9B 20 20 20 20 20 20 20 20 20 20 20 C3 48 4F 4F |. .HOO|
00001150: 53 45 20 42 59 20 CE 55 4D 42 45 52 3A 22 3A 99 |SE BY .UMBER:":.|
00001160: 00 84 19 31 06 99 22 20 20 20 20 20 20 20 20 20 |...1.." |
00001170: 20 20 20 20 9B 31 29 98 20 C1 44 44 20 43 41 52 | .1). .DD CAR|
00001180: 44 22 3A 99 00 AA 19 40 06 99 22 20 20 20 20 20 |D":....@.." |
00001190: 20 20 20 20 20 20 20 20 9B 32 29 98 20 C5 52 41 | .2). .RA|
000011A0: 53 45 20 43 41 52 44 22 3A 99 00 CF 19 4F 06 99 |SE CARD":....O..|
000011B0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 9B 33 |" .3|
000011C0: 29 98 20 D3 41 56 45 20 46 49 4C 45 22 3A 99 00 |). .AVE FILE":..|
000011D0: 0E 1A 5E 06 99 22 20 20 20 20 20 20 20 20 20 20 |..^.." |
000011E0: 20 20 20 9B 34 29 98 20 D6 49 45 57 20 43 41 52 | .4). .IEW CAR|
000011F0: 44 53 22 3A 99 3A 99 A3 31 33 29 22 9B 35 29 98 |DS":.:..13)".5).|
00001200: 20 D0 52 49 4E 54 20 CC 45 54 54 45 52 22 00 3A | .RINT .ETTER".:|
00001210: 1A 6D 06 99 3A 99 22 20 20 20 20 20 20 20 20 20 |.m..:." |
00001220: 20 20 20 9B C6 38 29 98 20 C5 58 49 54 20 54 4F | ..8). .XIT TO|
00001230: 20 D5 50 D4 49 4D 45 22 3A 99 00 56 1A 7C 06 99 | .P.IME":..V.|..|
00001240: 22 9B 20 20 20 20 20 20 20 20 20 20 20 C3 48 4F |". .HO|
00001250: 49 43 45 3A 22 3B 00 6B 1A 8B 06 A1 41 24 3A 8B |ICE:";.k....A$:.|
00001260: 41 24 B2 22 8C 22 A7 34 33 36 30 00 85 1A 9A 06 |A$.".".4360.....|
00001270: 41 B2 C5 28 41 24 29 3A 8B 41 B3 31 B0 41 B1 35 |A..(A$):.A.1.A.5|
00001280: A7 31 36 37 35 00 99 1A A9 06 99 41 3B 22 20 20 |.1675......A;" |
00001290: 28 D9 2F CE 29 3F 20 22 3B 00 AD 1A B8 06 A1 41 |(./.)? ";......A|
000012A0: 24 3A 8B 41 24 B2 22 22 A7 31 37 32 30 00 C6 1A |$:.A$."".1720...|
000012B0: C7 06 8B 41 24 B2 22 59 22 A7 99 22 D9 45 53 22 |...A$."Y"..".ES"|
000012C0: 3A 89 31 37 38 30 00 D8 1A D6 06 8B 41 24 B3 B1 |:.1780......A$..|
000012D0: 22 4E 22 A7 31 37 32 30 00 15 1B E5 06 99 22 CE |"N".1720......".|
000012E0: 4F 22 3A 99 22 91 20 20 20 20 20 20 20 20 20 20 |O":.". |
000012F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001300: 20 20 20 20 20 20 20 20 20 20 20 20 20 91 22 3A | .":|
00001310: 89 31 36 36 30 00 35 1B F4 06 91 41 8D 31 38 31 |.1660.5....A.181|
00001320: 30 2C 32 30 36 35 2C 32 34 35 35 2C 32 37 32 35 |0,2065,2455,2725|
00001330: 2C 33 34 37 35 00 3F 1B 03 07 89 31 35 35 35 00 |,3475.?....1555.|
00001340: 58 1B 12 07 8F 20 20 20 2A 2A 2A 20 41 44 44 20 |X.... *** ADD |
00001350: 43 41 52 44 20 2A 2A 2A 00 75 1B 21 07 8D 34 36 |CARD ***.u.!..46|
00001360: 30 3A 99 A3 31 33 29 22 20 9F C1 44 44 20 41 20 |0:..13)" ..DD A |
00001370: C3 41 52 44 22 00 B0 1B 30 07 8B 4E 43 B2 31 35 |.ARD"...0..NC.15|
00001380: A7 99 3A 99 22 9B 20 20 20 20 20 20 CE 4F 20 4D |..:.". .O M|
00001390: 4F 52 45 20 43 41 52 44 53 20 4D 41 59 20 42 45 |ORE CARDS MAY BE|
000013A0: 20 41 44 44 45 44 2E 11 22 3A 8D 35 33 35 3A 8E | ADDED..":.535:.|
000013B0: 00 C0 1B 3F 07 99 3A 99 3A 4E 43 B2 4E 43 AA 31 |...?..:.:NC.NC.1|
000013C0: 00 DE 1B 4E 07 99 3A 99 22 20 20 20 20 20 20 98 |...N..:." .|
000013D0: C3 41 52 44 20 4E 41 4D 45 3A 9B 20 22 3B 00 F4 |.ARD NAME:. ";..|
000013E0: 1B 5D 07 8D 33 33 35 35 3A 43 24 28 4E 43 2C 31 |.]..3355:C$(NC,1|
000013F0: 29 B2 41 24 00 0F 1C 5F 07 8B 20 41 24 B2 22 22 |).A$..._.. A$.""|
00001400: 20 A7 20 43 24 28 4E 43 2C 31 29 B2 22 2A 22 00 | . C$(NC,1)."*".|
00001410: 2A 1C 6C 07 99 3A 99 22 20 20 20 20 20 20 98 CE |*.l..:." ..|
00001420: 55 4D 42 45 52 3A 9B 20 22 3B 00 40 1C 7B 07 8D |UMBER:. ";.@.{..|
00001430: 33 33 35 35 3A 43 24 28 4E 43 2C 32 29 B2 41 24 |3355:C$(NC,2).A$|
00001440: 00 5B 1C 80 07 8B 20 41 24 B2 22 22 20 A7 20 43 |.[.... A$."" . C|
00001450: 24 28 4E 43 2C 32 29 B2 22 2A 22 00 78 1C 8A 07 |$(NC,2)."*".x...|
00001460: 99 3A 99 22 20 20 20 20 20 20 98 C5 58 50 20 44 |.:." ..XP D|
00001470: 41 54 45 3A 20 9B 22 3B 00 8E 1C 99 07 8D 33 33 |ATE: .";......33|
00001480: 35 35 3A 43 24 28 4E 43 2C 33 29 B2 41 24 00 A9 |55:C$(NC,3).A$..|
00001490: 1C 9E 07 8B 20 41 24 B2 22 22 20 A7 20 43 24 28 |.... A$."" . C$(|
000014A0: 4E 43 2C 33 29 B2 22 2A 22 00 C9 1C A8 07 99 3A |NC,3)."*"......:|
000014B0: 99 22 20 20 20 20 20 20 98 D4 45 4C 45 50 48 4F |." ..ELEPHO|
000014C0: 4E 45 20 23 3A 20 9B 22 3B 00 DF 1C B7 07 8D 33 |NE #: .";......3|
000014D0: 33 35 35 3A 43 24 28 4E 43 2C 34 29 B2 41 24 00 |355:C$(NC,4).A$.|
000014E0: FA 1C BC 07 8B 20 41 24 B2 22 22 20 A7 20 43 24 |..... A$."" . C$|
000014F0: 28 4E 43 2C 34 29 B2 22 2A 22 00 17 1D C6 07 99 |(NC,4)."*"......|
00001500: 3A 99 A3 31 33 29 22 11 20 9F C1 44 44 20 41 4E |:..13)". ..DD AN|
00001510: 4F 54 48 45 52 3F 22 00 2B 1D D5 07 A1 41 24 3A |OTHER?".+....A$:|
00001520: 8B 41 24 B2 22 22 A7 32 30 30 35 00 3C 1D E4 07 |.A$."".2005.<...|
00001530: 8B 41 24 B2 22 59 22 A7 31 38 31 30 00 4A 1D F3 |.A$."Y".1810.J..|
00001540: 07 8B 41 24 B2 22 4E 22 A7 8E 00 54 1D 02 08 89 |..A$."N"...T....|
00001550: 32 30 30 35 00 6F 1D 11 08 8F 20 20 20 2A 2A 2A |2005.o.... ***|
00001560: 20 45 52 41 53 45 20 43 41 52 44 20 2A 2A 2A 00 | ERASE CARD ***.|
00001570: 8D 1D 20 08 8D 34 36 30 3A 99 A3 31 33 29 22 9F |.. ..460:..13)".|
00001580: C5 52 41 53 45 20 41 20 C3 41 52 44 22 00 C8 1D |.RASE A .ARD"...|
00001590: 2F 08 8B 4E 43 B2 30 A7 99 3A 99 22 98 20 20 20 |/..NC.0..:.". |
000015A0: 20 20 20 D4 48 45 52 45 20 41 52 45 20 4E 4F 20 | .HERE ARE NO |
000015B0: 43 41 52 44 53 20 54 4F 20 45 52 41 53 45 2E 11 |CARDS TO ERASE..|
000015C0: 22 3A 8D 35 33 35 3A 8E 00 F7 1D 3E 08 99 3A 99 |":.535:....>..:.|
000015D0: 22 98 D5 53 45 20 54 48 45 20 55 50 2F 44 4F 57 |"..SE THE UP/DOW|
000015E0: 4E 20 43 55 52 53 4F 52 20 4B 45 59 20 54 4F 20 |N CURSOR KEY TO |
000015F0: 53 43 52 4F 4C 4C 22 00 25 1E 4D 08 99 22 54 48 |SCROLL".%.M.."TH|
00001600: 45 20 43 41 52 44 53 2E 20 20 D0 52 45 53 53 20 |E CARDS. .RESS |
00001610: 27 C5 27 20 54 4F 20 45 52 41 53 45 20 41 20 43 |'.' TO ERASE A C|
00001620: 41 52 44 2E 22 00 4D 1E 5C 08 99 22 50 52 45 53 |ARD.".M.\.."PRES|
00001630: 53 20 27 D2 27 20 54 4F 20 52 45 54 55 52 4E 20 |S '.' TO RETURN |
00001640: 54 4F 20 54 48 45 20 4D 45 4E 55 2E 22 00 55 1E |TO THE MENU.".U.|
00001650: 6B 08 99 3A 99 00 5D 1E 7A 08 43 B2 31 00 7F 1E |k..:..].z.C.1...|
00001660: 89 08 99 22 9B 22 3B 43 24 28 43 2C 31 29 3B 22 |...".";C$(C,1);"|
00001670: 98 20 2D 20 22 3B 43 24 28 43 2C 32 29 3A 99 00 |. - ";C$(C,2):..|
00001680: AB 1E 98 08 99 A3 C3 28 43 24 28 43 2C 31 29 29 |.......(C$(C,1))|
00001690: 29 3B 22 20 20 20 22 3B 43 24 28 43 2C 33 29 3B |);" ";C$(C,3);|
000016A0: 22 20 22 3B 43 24 28 43 2C 34 29 00 BD 1E A7 08 |" ";C$(C,4).....|
000016B0: 99 22 11 11 C3 4F 4D 4D 41 4E 44 3A 22 00 D1 1E |."...OMMAND:"...|
000016C0: B6 08 A1 41 24 3A 8B 41 24 B2 22 22 A7 32 32 33 |...A$:.A$."".223|
000016D0: 30 00 DF 1E C5 08 8B 41 24 B2 22 52 22 A7 8E 00 |0......A$."R"...|
000016E0: FC 1E D4 08 8B 41 24 B2 22 91 22 AF 43 B3 4E 43 |.....A$.".".C.NC|
000016F0: A7 43 B2 43 AA 31 3A 89 32 34 32 35 00 18 1F E3 |.C.C.1:.2425....|
00001700: 08 8B 41 24 B2 22 11 22 AF 43 B1 31 A7 43 B2 43 |..A$.".".C.1.C.C|
00001710: AB 31 3A 89 32 34 32 35 00 2A 1F F2 08 8B 41 24 |.1:.2425.*....A$|
00001720: B3 B1 22 45 22 A7 32 32 33 30 00 43 1F 01 09 99 |.."E".2230.C....|
00001730: 22 9B C5 52 41 53 45 20 46 4F 52 20 53 55 52 45 |"..RASE FOR SURE|
00001740: 3F 20 22 00 57 1F 10 09 A1 41 24 3A 8B 41 24 B2 |? ".W....A$:.A$.|
00001750: 22 22 A7 32 33 32 30 00 7F 1F 1F 09 8B 41 24 B2 |"".2320......A$.|
00001760: 22 59 22 A7 99 22 91 20 20 20 20 20 20 20 20 20 |"Y"..". |
00001770: 20 20 20 20 20 20 20 91 22 3A 89 32 33 38 30 00 | .":.2380.|
00001780: 91 1F 2E 09 8B 41 24 B3 B1 22 4E 22 A7 32 33 32 |.....A$.."N".232|
00001790: 30 00 B1 1F 3D 09 99 22 91 20 20 20 20 20 20 20 |0...=..". |
000017A0: 20 20 20 20 20 20 20 20 20 91 22 3A 89 32 32 33 | .":.223|
000017B0: 30 00 F3 1F 4C 09 81 54 B2 43 A4 4E 43 3A 43 24 |0...L..T.C.NC:C$|
000017C0: 28 54 2C 31 29 B2 43 24 28 54 AA 31 2C 31 29 3A |(T,1).C$(T.1,1):|
000017D0: 43 24 28 54 2C 32 29 B2 43 24 28 54 AA 31 2C 32 |C$(T,2).C$(T.1,2|
000017E0: 29 3A 43 24 28 54 2C 33 29 B2 43 24 28 54 AA 31 |):C$(T,3).C$(T.1|
000017F0: 2C 33 29 00 1C 20 5B 09 43 24 28 54 2C 34 29 B2 |,3).. [.C$(T,4).|
00001800: 43 24 28 54 AA 31 2C 34 29 3A 82 54 3A 4E 43 B2 |C$(T.1,4):.T:NC.|
00001810: 4E 43 AB 31 3A 8B 4E 43 B2 30 A7 8E 00 24 20 6A |NC.1:.NC.0...$ j|
00001820: 09 43 B2 31 00 3A 20 79 09 99 22 91 91 91 91 91 |.C.1.: y..".....|
00001830: 91 91 22 3A 81 54 B2 31 A4 33 00 7A 20 88 09 99 |..":.T.1.3.z ...|
00001840: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00001850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001860: 20 20 20 20 20 20 20 20 22 3A 82 54 3A 99 22 91 | ":.T:.".|
00001870: 91 91 91 22 3A 89 32 31 38 35 00 94 20 97 09 8F |...":.2185.. ...|
00001880: 20 20 20 2A 2A 2A 20 53 41 56 45 20 46 49 4C 45 | *** SAVE FILE|
00001890: 20 2A 2A 2A 00 AF 20 A6 09 8D 34 36 30 3A 99 A3 | ***.. ...460:..|
000018A0: 31 33 29 22 9A D3 41 56 45 20 C6 49 4C 45 22 00 |13)"..AVE .ILE".|
000018B0: DF 20 B5 09 99 3A 99 22 98 D0 52 45 53 53 20 9B |. ...:."..RESS .|
000018C0: D3 98 20 54 4F 20 53 41 56 45 20 4F 52 20 9B D2 |.. TO SAVE OR ..|
000018D0: 98 20 54 4F 20 52 45 54 55 52 4E 20 54 4F 22 00 |. TO RETURN TO".|
000018E0: FD 20 C4 09 99 22 54 48 45 20 4D 45 4E 55 2E 22 |. ..."THE MENU."|
000018F0: 3A 99 22 28 D3 2F D2 29 3A 9B 20 22 3B 00 11 21 |:."(./.):. ";..!|
00001900: D3 09 A1 41 24 3A 8B 41 24 B2 22 22 A7 32 35 31 |...A$:.A$."".251|
00001910: 35 00 30 21 E2 09 8B 41 24 B2 22 53 22 A7 99 22 |5.0!...A$."S".."|
00001920: D3 41 56 49 4E 47 2E 2E 2E 22 3A 89 32 35 37 35 |.AVING...":.2575|
00001930: 00 54 21 F1 09 8B 41 24 B2 22 52 22 A7 99 22 D2 |.T!...A$."R"..".|
00001940: 45 54 55 52 4E 22 3A 81 54 B2 31 A4 32 35 30 3A |ETURN":.T.1.250:|
00001950: 82 54 3A 8E 00 5E 21 00 0A 89 32 35 31 35 00 85 |.T:..^!...2515..|
00001960: 21 0F 0A 9F 31 35 2C 38 2C 31 35 3A 9F 31 2C 38 |!...15,8,15:.1,8|
00001970: 2C 31 2C 22 40 30 3A 2D 43 43 4D 20 44 41 54 41 |,1,"@0:-CCM DATA|
00001980: 2C 53 2C 57 22 00 9A 21 1E 0A 84 31 35 2C 41 3A |,S,W"..!...15,A:|
00001990: 8B 41 B3 32 30 A7 32 36 38 30 00 C8 21 2D 0A 99 |.A.20.2680..!-..|
000019A0: 22 C4 C9 D3 CB 20 C5 D2 D2 CF D2 21 21 21 20 20 |".... .....!!! |
000019B0: D0 4C 45 41 53 45 20 43 48 45 43 4B 20 59 4F 55 |.LEASE CHECK YOU|
000019C0: 52 20 44 52 49 56 45 22 00 ED 21 3C 0A 99 22 41 |R DRIVE"..!<.."A|
000019D0: 4E 44 20 54 48 45 4E 20 50 52 45 53 53 20 54 48 |ND THEN PRESS TH|
000019E0: 45 20 53 50 41 43 45 20 42 41 52 2E 22 00 01 22 |E SPACE BAR.".."|
000019F0: 4B 0A A1 41 24 3A 8B 41 24 B2 22 22 A7 32 36 33 |K..A$:.A$."".263|
00001A00: 35 00 15 22 5A 0A 8B 41 24 B3 B1 C7 28 33 32 29 |5.."Z..A$...(32)|
00001A10: A7 32 36 33 35 00 26 22 69 0A A0 31 35 3A A0 31 |.2635.&"i..15:.1|
00001A20: 3A 89 32 34 35 35 00 30 22 78 0A 98 31 2C 4E 43 |:.2455.0"x..1,NC|
00001A30: 00 54 22 87 0A 81 54 B2 31 A4 4E 43 3A 81 59 B2 |.T"...T.1.NC:.Y.|
00001A40: 31 A4 34 3A 98 31 2C 43 24 28 54 2C 59 29 3A 82 |1.4:.1,C$(T,Y):.|
00001A50: 59 3A 82 54 00 61 22 96 0A A0 31 35 3A A0 31 3A |Y:.T.a"...15:.1:|
00001A60: 8E 00 7C 22 A5 0A 8F 20 20 20 2A 2A 2A 20 56 49 |..|"... *** VI|
00001A70: 45 57 20 43 41 52 44 53 20 2A 2A 2A 00 98 22 B4 |EW CARDS ***..".|
00001A80: 0A 8D 34 36 30 3A 99 A3 31 33 29 22 9F D6 49 45 |..460:..13)"..IE|
00001A90: 57 20 C3 41 52 44 53 22 00 CA 22 C3 0A 99 3A 99 |W .ARDS".."...:.|
00001AA0: 22 98 C4 4F 20 59 4F 55 20 57 41 4E 54 20 54 48 |"..O YOU WANT TH|
00001AB0: 45 4D 20 4F 4E 20 54 48 45 20 9B D3 98 43 52 45 |EM ON THE ...CRE|
00001AC0: 45 4E 20 4F 52 20 54 48 45 22 00 E8 22 D2 0A 99 |EN OR THE".."...|
00001AD0: 22 9B D0 98 52 49 4E 54 45 52 3F 20 28 D3 2F D0 |"...RINTER? (./.|
00001AE0: 2F D2 29 3A 20 9B 22 3B 00 FC 22 E1 0A A1 41 24 |/.): .";.."...A$|
00001AF0: 3A 8B 41 24 B2 22 22 A7 32 37 38 35 00 18 23 F0 |:.A$."".2785..#.|
00001B00: 0A 8B 41 24 B2 22 53 22 A7 99 22 D3 43 52 45 45 |..A$."S"..".CREE|
00001B10: 4E 22 3A 89 33 31 34 35 00 3C 23 FF 0A 8B 41 24 |N":.3145.<#...A$|
00001B20: B2 22 52 22 A7 99 22 D2 45 54 55 52 4E 22 3A 81 |."R"..".ETURN":.|
00001B30: 54 B2 31 A4 32 35 30 3A 82 54 3A 8E 00 4E 23 0E |T.1.250:.T:..N#.|
00001B40: 0B 8B 41 24 B3 B1 22 50 22 A7 32 37 38 35 00 70 |..A$.."P".2785.p|
00001B50: 23 1D 0B 8F 20 20 20 2A 2A 2A 20 4F 55 54 50 55 |#... *** OUTPU|
00001B60: 54 20 54 4F 20 50 52 49 4E 54 45 52 20 2A 2A 2A |T TO PRINTER ***|
00001B70: 00 7F 23 2C 0B 99 22 50 52 49 4E 54 45 52 22 00 |..#,.."PRINTER".|
00001B80: 96 23 3B 0B 97 37 38 30 2C 32 3A 97 37 38 32 2C |.#;..780,2:.782,|
00001B90: 30 3A 9E 38 32 38 00 AD 23 4A 0B 8B C2 28 37 38 |0:.828..#J...(78|
00001BA0: 33 29 AF 31 A7 A0 32 3A 89 32 39 32 30 00 B7 23 |3).1..2:.2920..#|
00001BB0: 59 0B 89 32 39 36 35 00 E3 23 68 0B 99 22 11 9B |Y..2965..#h.."..|
00001BC0: D0 D2 C9 CE D4 C5 D2 20 C5 D2 D2 CF D2 21 21 21 |....... .....!!!|
00001BD0: 20 D0 4C 45 41 53 45 20 43 48 45 43 4B 20 59 4F | .LEASE CHECK YO|
00001BE0: 55 52 22 00 0F 24 77 0B 99 22 50 41 50 45 52 20 |UR"..$w.."PAPER |
00001BF0: 53 55 50 50 4C 59 20 41 4E 44 20 50 52 49 4E 54 |SUPPLY AND PRINT|
00001C00: 45 52 20 43 4F 4E 44 49 54 49 4F 4E 2E 11 22 00 |ER CONDITION..".|
00001C10: 1E 24 86 0B 8D 35 33 35 3A 89 32 37 32 35 00 31 |.$...535:.2725.1|
00001C20: 24 95 0B 8F 20 50 52 49 4E 54 45 52 20 4F 4B 41 |$... PRINTER OKA|
00001C30: 59 00 5A 24 A4 0B 98 32 2C C7 28 31 37 29 3B 22 |Y.Z$...2,.(17);"|
00001C40: 2A 2A 2A 20 C3 52 45 44 49 54 20 C3 41 52 44 20 |*** .REDIT .ARD |
00001C50: C6 49 4C 45 52 20 2A 2A 2A 22 00 92 24 B3 0B 98 |.ILER ***"..$...|
00001C60: 32 3A 98 32 2C 55 50 24 3B 22 CE 41 4D 45 22 3B |2:.2,UP$;".AME";|
00001C70: A6 31 38 29 3B 22 CE 55 4D 42 45 52 22 3B A6 31 |.18);".UMBER";.1|
00001C80: 31 29 3B 22 C5 58 50 20 44 41 54 45 22 3B A6 33 |1);".XP DATE";.3|
00001C90: 29 3B 00 A9 24 C2 0B 98 32 2C 55 50 24 3B 22 D4 |);..$...2,UP$;".|
00001CA0: 45 4C 45 50 48 4F 4E 45 22 00 C3 24 D1 0B 81 54 |ELEPHONE"..$...T|
00001CB0: B2 31 A4 36 30 3A 98 32 2C 22 2D 22 3B 3A 82 54 |.1.60:.2,"-";:.T|
00001CC0: 3A 98 32 00 CF 24 E0 0B 81 54 B2 31 A4 4E 43 00 |:.2..$...T.1.NC.|
00001CD0: FE 24 EF 0B 98 32 2C 55 50 24 3B 43 24 28 54 2C |.$...2,UP$;C$(T,|
00001CE0: 31 29 3B A6 B6 28 32 30 AB C3 28 43 24 28 54 2C |1);..(20..(C$(T,|
00001CF0: 31 29 29 29 29 3B 43 24 28 54 2C 32 29 3B 00 37 |1))));C$(T,2);.7|
00001D00: 25 FE 0B 98 32 2C 55 50 24 3B A6 B6 28 32 30 AB |%...2,UP$;..(20.|
00001D10: C3 28 43 24 28 54 2C 32 29 29 29 29 43 24 28 54 |.(C$(T,2))))C$(T|
00001D20: 2C 33 29 3B A6 B6 28 31 30 AB C3 28 43 24 28 54 |,3);..(10..(C$(T|
00001D30: 2C 33 29 29 29 29 3B 00 4A 25 0D 0C 98 32 2C 55 |,3))));.J%...2,U|
00001D40: 50 24 3B 43 24 28 54 2C 34 29 00 51 25 1C 0C 82 |P$;C$(T,4).Q%...|
00001D50: 54 00 6C 25 2B 0C 81 54 B2 31 A4 35 3A 98 32 3A |T.l%+..T.1.5:.2:|
00001D60: 82 54 3A 98 32 2C C7 28 31 34 35 29 00 75 25 3A |.T:.2,.(145).u%:|
00001D70: 0C A0 32 3A 8E 00 89 25 49 0C 8F 20 53 43 52 45 |..2:...%I.. SCRE|
00001D80: 45 4E 20 4F 55 54 50 55 54 00 BD 25 58 0C 8D 34 |EN OUTPUT..%X..4|
00001D90: 36 30 3A 99 22 11 11 98 D5 53 45 20 54 48 45 20 |60:."....SE THE |
00001DA0: 55 50 2F 44 4F 57 4E 20 43 55 52 53 4F 52 20 4B |UP/DOWN CURSOR K|
00001DB0: 45 59 20 54 4F 20 53 43 52 4F 4C 4C 22 00 F4 25 |EY TO SCROLL"..%|
00001DC0: 67 0C 99 22 54 48 45 20 43 41 52 44 53 2E 20 20 |g.."THE CARDS. |
00001DD0: D0 52 45 53 53 20 27 D2 27 20 54 4F 20 52 45 54 |.RESS '.' TO RET|
00001DE0: 55 52 4E 20 54 4F 20 54 48 45 22 3A 99 22 4D 45 |URN TO THE":."ME|
00001DF0: 4E 55 2E 22 00 FC 25 76 0C 99 3A 99 00 04 26 85 |NU."..%v..:...&.|
00001E00: 0C 43 B2 31 00 26 26 94 0C 99 22 9B 22 3B 43 24 |.C.1.&&...".";C$|
00001E10: 28 43 2C 31 29 3B 22 20 2D 20 98 22 3B 43 24 28 |(C,1);" - .";C$(|
00001E20: 43 2C 32 29 3A 99 00 50 26 A3 0C 99 A3 C3 28 43 |C,2):..P&.....(C|
00001E30: 24 28 43 2C 31 29 29 AA 33 29 3B 43 24 28 43 2C |$(C,1)).3);C$(C,|
00001E40: 33 29 3B 22 20 20 20 22 3B 43 24 28 43 2C 34 29 |3);" ";C$(C,4)|
00001E50: 00 62 26 B2 0C 99 22 11 11 C3 4F 4D 4D 41 4E 44 |.b&..."...OMMAND|
00001E60: 3A 22 00 76 26 C1 0C A1 41 24 3A 8B 41 24 B2 22 |:".v&...A$:.A$."|
00001E70: 22 A7 33 32 36 35 00 84 26 D0 0C 8B 41 24 B2 22 |".3265..&...A$."|
00001E80: 52 22 A7 8E 00 9B 26 DF 0C 8B 41 24 B2 22 91 22 |R"....&...A$."."|
00001E90: AF 43 B3 4E 43 A7 43 B2 43 AA 31 00 B1 26 EE 0C |.C.NC.C.C.1..&..|
00001EA0: 8B 41 24 B2 22 11 22 AF 43 B1 31 A7 43 B2 43 AB |.A$.".".C.1.C.C.|
00001EB0: 31 00 C7 26 FD 0C 99 22 91 91 91 91 91 91 91 22 |1..&..."......."|
00001EC0: 3A 81 54 B2 31 A4 33 00 07 27 0C 0D 99 22 20 20 |:.T.1.3..'..." |
00001ED0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001EE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001EF0: 20 20 20 20 20 22 3A 82 54 3A 99 22 91 91 91 91 | ":.T:."....|
00001F00: 22 3A 89 33 32 32 30 00 17 27 1B 0D 8F 20 47 45 |":.3220..'... GE|
00001F10: 54 20 49 4E 50 55 54 00 22 27 2A 0D 97 32 30 34 |T INPUT."'*..204|
00001F20: 2C 30 00 36 27 39 0D 43 B2 30 3A 41 24 B2 22 22 |,0.6'9.C.0:A$.""|
00001F30: 3A 4C 24 B2 22 22 00 4A 27 48 0D A1 4C 24 3A 8B |:L$."".J'H..L$:.|
00001F40: 4C 24 B2 22 22 A7 33 34 30 30 00 78 27 57 0D 8B |L$."".3400.x'W..|
00001F50: 4C 24 B2 C7 28 32 30 29 AF 43 B1 30 A7 43 B2 43 |L$..(20).C.0.C.C|
00001F60: AB 31 3A 41 24 B2 C8 28 41 24 2C 43 29 3A 99 4C |.1:A$..(A$,C):.L|
00001F70: 24 3B 3A 89 33 34 30 30 00 94 27 66 0D 8B 4C 24 |$;:.3400..'f..L$|
00001F80: B2 C7 28 31 33 29 A7 99 22 20 22 3A 97 32 30 34 |..(13).." ":.204|
00001F90: 2C 31 3A 8E 00 AC 27 75 0D 8B 4C 24 B3 22 20 22 |,1:...'u..L$." "|
00001FA0: B0 4C 24 B1 22 DA 22 A7 33 34 30 30 00 C9 27 7A |.L$.".".3400..'z|
00001FB0: 0D 8B 20 4C 24 B1 22 5F 22 20 AF 20 4C 24 B3 22 |.. L$."_" . L$."|
00001FC0: C1 22 20 A7 20 33 34 30 30 00 DB 27 7F 0D 8B 20 |." . 3400..'... |
00001FD0: 43 B2 32 34 20 A7 20 33 34 30 30 00 FF 27 84 0D |C.24 . 3400..'..|
00001FE0: 41 24 B2 41 24 AA 4C 24 3A 99 4C 24 3B 3A 43 B2 |A$.A$.L$:.L$;:C.|
00001FF0: 43 AA 31 3A 4C 24 B2 22 22 3A 89 33 34 30 30 00 |C.1:L$."":.3400.|
00002000: 12 28 93 0D 8F 20 50 52 49 4E 54 20 4C 45 54 54 |.(... PRINT LETT|
00002010: 45 52 00 30 28 A2 0D 8D 34 36 30 3A 99 A3 31 33 |ER.0(...460:..13|
00002020: 29 22 9F D0 52 49 4E 54 20 CC 45 54 54 45 52 22 |)"..RINT .ETTER"|
00002030: 00 59 28 B1 0D 99 3A 99 3A 99 22 20 9B D7 48 49 |.Y(...:.:." ..HI|
00002040: 43 48 20 43 41 52 44 20 44 49 44 20 59 4F 55 20 |CH CARD DID YOU |
00002050: 4C 4F 53 45 3F 98 22 3A 99 00 8C 28 C0 0D 81 54 |LOSE?.":...(...T|
00002060: B2 31 A4 4E 43 3A 8B 54 AD 32 B2 B5 28 54 AD 32 |.1.NC:.T.2..(T.2|
00002070: 29 A7 99 A3 32 32 29 3B 54 22 9D 3E 20 22 3B 43 |)...22);T".> ";C|
00002080: 24 28 54 2C 31 29 3A 89 33 35 35 30 00 A6 28 CF |$(T,1):.3550..(.|
00002090: 0D 99 22 20 20 22 3B 54 22 9D 3E 20 22 3B 43 24 |.." ";T".> ";C$|
000020A0: 28 54 2C 31 29 3B 00 C0 28 DE 0D 82 54 3A 99 3A |(T,1);..(...T:.:|
000020B0: 99 3A 99 22 20 9B CE 55 4D 42 45 52 2D 20 22 3B |.:." ..UMBER- ";|
000020C0: 00 D4 28 ED 0D A1 41 24 3A 8B 41 24 B2 22 22 A7 |..(...A$:.A$."".|
000020D0: 33 35 36 35 00 F2 28 FC 0D 43 54 B2 C5 28 41 24 |3565..(..CT..(A$|
000020E0: 29 3A 8B 43 54 B3 31 B0 43 54 B1 4E 43 A7 33 35 |):.CT.1.CT.NC.35|
000020F0: 36 35 00 FD 28 0B 0E 99 22 98 22 43 54 00 35 29 |65..(..."."CT.5)|
00002100: 1A 0E 99 3A 99 22 20 98 D7 41 53 20 54 48 49 53 |...:." ..AS THIS|
00002110: 20 43 41 52 44 20 9B CC 98 4F 53 54 20 4F 52 20 | CARD ...OST OR |
00002120: 9B D3 98 54 4F 4C 45 4E 3F 22 3A 99 22 20 28 4C |...TOLEN?":." (L|
00002130: 2F 53 29 3F 22 00 4B 29 29 0E A1 53 4C 24 3A 8B |/S)?".K))..SL$:.|
00002140: 53 4C 24 B2 22 22 A7 33 36 32 35 00 67 29 38 0E |SL$."".3625.g)8.|
00002150: 8B 53 4C 24 B3 B1 22 4C 22 AF 53 4C 24 B3 B1 22 |.SL$.."L".SL$.."|
00002160: 53 22 A7 33 36 32 35 00 87 29 47 0E 8D 34 36 30 |S".3625..)G..460|
00002170: 3A 99 A3 31 33 29 22 9F D0 52 49 4E 54 20 CC 45 |:..13)"..RINT .E|
00002180: 54 54 45 52 22 3A 99 00 BF 29 56 0E 99 22 20 98 |TTER":...)V.." .|
00002190: D7 48 41 54 20 49 53 20 59 4F 55 52 20 46 55 4C |.HAT IS YOUR FUL|
000021A0: 4C 20 4E 41 4D 45 3F 22 3A 99 22 20 3E 9B 22 3B |L NAME?":." >.";|
000021B0: 3A 8D 33 33 35 35 3A 4E 31 24 B2 41 24 3A 99 00 |:.3355:N1$.A$:..|
000021C0: EF 29 65 0E 99 22 20 98 C1 4C 54 45 52 4E 41 54 |.)e.." ..LTERNAT|
000021D0: 45 20 4E 41 4D 45 3F 22 3A 99 22 20 3E 9B 22 3B |E NAME?":." >.";|
000021E0: 3A 8D 33 33 35 35 3A 4E 32 24 B2 41 24 3A 99 00 |:.3355:N2$.A$:..|
000021F0: 29 2A 74 0E 99 22 20 98 D3 54 52 45 45 54 20 4F |)*t.." ..TREET O|
00002200: 52 20 D0 CF 20 C2 4F 58 20 41 44 44 52 45 53 53 |R .. .OX ADDRESS|
00002210: 3F 22 3A 99 22 20 3E 9B 22 3B 3A 8D 33 33 35 35 |?":." >.";:.3355|
00002220: 3A 41 44 24 B2 41 24 3A 99 00 4D 2A 83 0E 99 22 |:AD$.A$:..M*..."|
00002230: 20 98 C3 49 54 59 3F 22 3A 99 22 20 3E 9B 22 3B | ..ITY?":." >.";|
00002240: 3A 8D 33 33 35 35 3A 43 49 24 B2 41 24 00 7C 2A |:.3355:CI$.A$.|*|
00002250: 92 0E 99 22 91 91 22 A3 31 32 29 22 98 D3 54 41 |..."..".12)"..TA|
00002260: 54 45 3F 22 3A 99 A3 31 32 29 22 3E 9B 22 3B 3A |TE?":..12)">.";:|
00002270: 8D 33 33 35 35 3A 53 54 24 B2 41 24 00 AA 2A A1 |.3355:ST$.A$..*.|
00002280: 0E 99 22 91 91 22 A3 32 33 29 22 98 DA 49 50 3F |.."..".23)"..IP?|
00002290: 22 3A 99 A3 32 33 29 22 3E 9B 22 3B 3A 8D 33 33 |":..23)">.";:.33|
000022A0: 35 35 3A 5A 24 B2 41 24 3A 99 00 CD 2A B0 0E 99 |55:Z$.A$:...*...|
000022B0: 22 20 98 C4 41 54 45 3F 22 3A 99 22 20 3E 9B 22 |" ..ATE?":." >."|
000022C0: 3B 3A 8D 33 33 35 35 3A 44 24 B2 41 24 00 07 2B |;:.3355:D$.A$..+|
000022D0: BF 0E 99 22 91 91 22 A3 32 33 29 22 98 D0 48 4F |..."..".23)"..HO|
000022E0: 4E 45 20 23 3F 22 3A 99 A3 32 33 29 22 3E 9B 22 |NE #?":..23)">."|
000022F0: 3B 3A 8D 33 33 35 35 3A 50 4E 24 B2 41 24 3A 81 |;:.3355:PN$.A$:.|
00002300: 54 B2 31 A4 35 30 30 00 0E 2B CE 0E 82 54 00 30 |T.1.500..+...T.0|
00002310: 2B DD 0E 8D 34 36 30 3A 99 A3 31 33 29 22 9F D0 |+...460:..13)"..|
00002320: 52 49 4E 54 20 CC 45 54 54 45 52 22 3A 99 3A 99 |RINT .ETTER":.:.|
00002330: 00 74 2B EC 0E 99 22 9B 20 D4 59 50 45 20 27 D2 |.t+...". .YPE '.|
00002340: 27 20 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 4D |' TO RETURN TO M|
00002350: 45 4E 55 20 4F 52 20 27 D0 27 20 54 4F 22 3A 99 |ENU OR '.' TO":.|
00002360: 22 20 50 52 49 4E 54 2E 22 3A 99 22 20 28 D2 2F |" PRINT.":." (./|
00002370: D0 29 3F 22 00 88 2B FB 0E A1 41 24 3A 8B 41 24 |.)?"..+...A$:.A$|
00002380: B2 22 22 A7 33 38 33 35 00 9A 2B 0A 0F 8B 41 24 |."".3835..+...A$|
00002390: B2 22 52 22 A7 89 31 35 35 35 00 AC 2B 19 0F 8B |."R"..1555..+...|
000023A0: 41 24 B3 B1 22 50 22 A7 33 38 33 35 00 C8 2B 28 |A$.."P".3835..+(|
000023B0: 0F 8F 20 20 50 52 49 4E 54 20 4C 45 54 54 45 52 |.. PRINT LETTER|
000023C0: 20 52 4F 55 54 49 4E 45 00 DF 2B 37 0F 97 37 38 | ROUTINE..+7..78|
000023D0: 30 2C 32 3A 97 37 38 32 2C 30 3A 9E 38 32 38 00 |0,2:.782,0:.828.|
000023E0: F6 2B 46 0F 8B C2 28 37 38 33 29 AF 31 A7 A0 32 |.+F...(783).1..2|
000023F0: 3A 89 33 39 34 30 00 00 2C 55 0F 89 33 39 38 35 |:.3940..,U..3985|
00002400: 00 2C 2C 64 0F 99 22 11 9B D0 D2 C9 CE D4 C5 D2 |.,,d..".........|
00002410: 20 C5 D2 D2 CF D2 21 21 21 20 D0 4C 45 41 53 45 | .....!!! .LEASE|
00002420: 20 43 48 45 43 4B 20 59 4F 55 52 22 00 58 2C 73 | CHECK YOUR".X,s|
00002430: 0F 99 22 50 41 50 45 52 20 53 55 50 50 4C 59 20 |.."PAPER SUPPLY |
00002440: 41 4E 44 20 50 52 49 4E 54 45 52 20 43 4F 4E 44 |AND PRINTER COND|
00002450: 49 54 49 4F 4E 2E 11 22 00 67 2C 82 0F 8D 35 33 |ITION..".g,...53|
00002460: 35 3A 89 33 38 30 35 00 7A 2C 91 0F 8F 20 50 52 |5:.3805.z,... PR|
00002470: 49 4E 54 45 52 20 4F 4B 41 59 00 8C 2C A0 0F 81 |INTER OKAY..,...|
00002480: 54 B2 31 A4 31 32 3A 98 32 3A 82 54 00 B9 2C AF |T.1.12:.2:.T..,.|
00002490: 0F 98 32 2C 55 50 24 3B A6 31 30 29 3B 4E 31 24 |..2,UP$;.10);N1$|
000024A0: 3A 8B 4E 32 24 B3 B1 22 22 A7 98 32 2C 55 50 24 |:.N2$..""..2,UP$|
000024B0: 3B A6 31 30 29 3B 4E 32 24 00 E6 2C BE 0F 98 32 |;.10);N2$..,...2|
000024C0: 2C 55 50 24 3B A6 31 30 29 3B 41 44 24 3A 98 32 |,UP$;.10);AD$:.2|
000024D0: 2C 55 50 24 3B A6 31 30 29 3B 43 49 24 3B 22 2C |,UP$;.10);CI$;",|
000024E0: 20 22 3B 53 54 24 00 00 2D CD 0F 98 32 2C 55 50 | ";ST$..-...2,UP|
000024F0: 24 3B A6 31 32 AA C3 28 43 49 24 29 29 3B 5A 24 |$;.12..(CI$));Z$|
00002500: 00 17 2D DC 0F 98 32 2C 55 50 24 3B A6 31 30 29 |..-...2,UP$;.10)|
00002510: 3B 50 4E 24 3A 98 32 00 2A 2D EB 0F 98 32 2C 55 |;PN$:.2.*-...2,U|
00002520: 50 24 3B A6 31 30 29 3B 44 24 00 4C 2D FA 0F 81 |P$;.10);D$.L-...|
00002530: 54 B2 31 A4 35 3A 98 32 3A 82 54 3A 54 42 24 B2 |T.1.5:.2:.T:TB$.|
00002540: 22 20 20 20 20 20 20 20 20 20 20 22 00 73 2D 09 |" ".s-.|
00002550: 10 98 32 2C 55 50 24 3B 54 42 24 3B 22 C4 45 41 |..2,UP$;TB$;".EA|
00002560: 52 20 D3 49 52 20 4F 52 20 CD 41 44 41 4D 3A 22 |R .IR OR .ADAM:"|
00002570: 3A 98 32 00 B1 2D 18 10 98 32 2C 55 50 24 3B 54 |:.2..-...2,UP$;T|
00002580: 42 24 3B 22 20 20 20 20 20 D2 45 43 45 4E 54 4C |B$;" .ECENTL|
00002590: 59 20 C9 20 43 41 4C 4C 45 44 20 54 4F 20 49 4E |Y . CALLED TO IN|
000025A0: 46 4F 52 4D 20 59 4F 55 20 54 48 41 54 20 4D 59 |FORM YOU THAT MY|
000025B0: 22 00 DC 2D 27 10 98 32 2C 55 50 24 3B 54 42 24 |"..-'..2,UP$;TB$|
000025C0: 3B 43 24 28 43 54 2C 31 29 3B 22 20 43 41 52 44 |;C$(CT,1);" CARD|
000025D0: 20 48 41 44 20 42 45 45 4E 20 22 3B 00 FD 2D 36 | HAD BEEN ";..-6|
000025E0: 10 8B 53 4C 24 B2 22 53 22 A7 98 32 2C 55 50 24 |..SL$."S"..2,UP$|
000025F0: 3B 22 53 54 4F 4C 45 4E 2E 20 20 22 3B 00 1C 2E |;"STOLEN. ";...|
00002600: 45 10 8B 53 4C 24 B2 22 4C 22 A7 98 32 2C 55 50 |E..SL$."L"..2,UP|
00002610: 24 3B 22 4C 4F 53 54 2E 20 20 22 3B 00 34 2E 54 |$;"LOST. ";.4.T|
00002620: 10 98 32 2C 55 50 24 3B 22 D4 48 45 20 4E 55 4D |..2,UP$;".HE NUM|
00002630: 42 45 52 22 00 68 2E 63 10 98 32 2C 55 50 24 3B |BER".h.c..2,UP$;|
00002640: 54 42 24 3B 22 49 53 20 22 3B 43 24 28 43 54 2C |TB$;"IS ";C$(CT,|
00002650: 32 29 3B 22 20 57 49 54 48 20 41 4E 20 45 58 50 |2);" WITH AN EXP|
00002660: 49 52 41 54 49 4F 4E 22 00 A8 2E 72 10 98 32 2C |IRATION"...r..2,|
00002670: 55 50 24 3B 54 42 24 3B 22 44 41 54 45 20 4F 46 |UP$;TB$;"DATE OF|
00002680: 20 22 3B 43 24 28 43 54 2C 33 29 3B 22 2E 20 20 | ";C$(CT,3);". |
00002690: D0 4C 45 41 53 45 20 53 45 4E 44 20 52 45 50 4C |.LEASE SEND REPL|
000026A0: 41 43 45 4D 45 4E 54 22 00 E9 2E 81 10 98 32 2C |ACEMENT"......2,|
000026B0: 55 50 24 3B 54 42 24 3B 22 43 41 52 44 53 20 46 |UP$;TB$;"CARDS F|
000026C0: 4F 52 20 54 48 45 20 4E 41 4D 45 22 3B 3A 8B 4E |OR THE NAME";:.N|
000026D0: 32 24 B3 B1 22 22 A7 98 32 2C 55 50 24 3B 22 53 |2$..""..2,UP$;"S|
000026E0: 20 22 3B 3A 89 34 32 35 35 00 F5 2E 90 10 98 32 | ";:.4255......2|
000026F0: 2C 22 20 22 3B 00 17 2F 9F 10 98 32 2C 55 50 24 |," ";../...2,UP$|
00002700: 3B 22 4C 49 53 54 45 44 20 41 42 4F 56 45 20 41 |;"LISTED ABOVE A|
00002710: 54 20 59 4F 55 52 22 00 41 2F AE 10 98 32 2C 55 |T YOUR".A/...2,U|
00002720: 50 24 3B 54 42 24 3B 22 45 41 52 4C 49 45 53 54 |P$;TB$;"EARLIEST|
00002730: 20 43 4F 4E 56 45 4E 49 45 4E 43 45 2E 22 3A 98 | CONVENIENCE.":.|
00002740: 32 00 76 2F BD 10 98 32 2C 55 50 24 3B 54 42 24 |2.v/...2,UP$;TB$|
00002750: 3B 22 D4 48 41 4E 4B 20 59 4F 55 20 46 4F 52 20 |;".HANK YOU FOR |
00002760: 59 4F 55 52 20 48 45 4C 50 46 55 4C 20 53 45 52 |YOUR HELPFUL SER|
00002770: 56 49 43 45 2E 22 00 87 2F CC 10 81 54 B2 31 A4 |VICE."../...T.1.|
00002780: 35 3A 98 32 3A 82 54 00 B4 2F DB 10 98 32 2C 55 |5:.2:.T../...2,U|
00002790: 50 24 3B A6 31 30 29 3B 22 D2 45 53 50 45 43 54 |P$;.10);".ESPECT|
000027A0: 46 55 4C 4C 59 2C 22 3A 81 54 B2 31 A4 34 3A 98 |FULLY,":.T.1.4:.|
000027B0: 32 3A 82 54 00 D1 2F EA 10 98 32 2C 55 50 24 3B |2:.T../...2,UP$;|
000027C0: A6 31 30 29 3B 4E 31 24 3A A0 32 3A 89 31 35 35 |.10);N1$:.2:.155|
000027D0: 35 00 D7 2F F9 10 80 00 F8 2F 08 11 8F 20 20 20 |5../...../... |
000027E0: 2A 2A 2A 20 52 45 54 55 52 4E 20 54 4F 20 55 50 |*** RETURN TO UP|
000027F0: 54 49 4D 45 20 2A 2A 2A 00 07 30 17 11 9E 20 28 |TIME ***..0... (|
00002800: 38 AC 34 30 39 36 29 00 50 30 26 11 83 20 38 35 |8.4096).P0&.. 85|
00002810: 2C 38 35 2C 38 35 2C 38 35 2C 38 35 2C 38 35 2C |,85,85,85,85,85,|
00002820: 38 35 2C 38 35 2C 38 35 2C 38 35 2C 31 32 37 2C |85,85,85,85,127,|
00002830: 32 34 35 2C 38 35 2C 32 35 35 2C 32 35 33 2C 38 |245,85,255,253,8|
00002840: 37 2C 32 35 35 2C 32 35 35 2C 38 37 2C 32 35 35 |7,255,255,87,255|
00002850: 00 9B 30 35 11 83 20 32 35 35 2C 39 33 2C 32 32 |..05.. 255,93,22|
00002860: 31 2C 32 31 33 2C 39 33 2C 38 37 2C 39 34 2C 39 |1,213,93,87,94,9|
00002870: 33 2C 32 31 33 2C 38 35 2C 39 33 2C 32 31 35 2C |3,213,85,93,215,|
00002880: 31 32 35 2C 39 33 2C 32 31 35 2C 38 35 2C 39 35 |125,93,215,85,95|
00002890: 2C 32 35 35 2C 32 35 34 2C 39 35 00 E6 30 44 11 |,255,254,95..0D.|
000028A0: 83 32 35 35 2C 32 35 34 2C 38 37 2C 32 35 35 2C |.255,254,87,255,|
000028B0: 32 35 35 2C 38 37 2C 32 35 35 2C 32 35 35 2C 38 |255,87,255,255,8|
000028C0: 35 2C 32 35 35 2C 32 35 33 2C 38 35 2C 31 32 37 |5,255,253,85,127|
000028D0: 2C 32 34 35 2C 38 35 2C 38 35 2C 38 35 2C 38 35 |,245,85,85,85,85|
000028E0: 2C 38 35 2C 38 35 00 F8 30 53 11 83 38 35 2C 38 |,85,85..0S..85,8|
000028F0: 35 2C 38 35 2C 31 30 34 00 41 31 62 11 83 38 35 |5,85,104.A1b..85|
00002900: 2C 38 35 2C 38 35 2C 38 35 2C 38 35 2C 38 35 2C |,85,85,85,85,85,|
00002910: 38 35 2C 38 35 2C 38 35 2C 39 30 2C 31 36 39 2C |85,85,85,90,169,|
00002920: 38 35 2C 31 30 36 2C 31 37 30 2C 38 35 2C 31 37 |85,106,170,85,17|
00002930: 30 2C 31 37 30 2C 31 34 39 2C 31 37 30 2C 31 37 |0,170,149,170,17|
00002940: 30 00 8B 31 71 11 83 31 34 39 2C 38 35 2C 38 35 |0..1q..149,85,85|
00002950: 2C 31 30 31 2C 31 35 33 2C 31 36 36 2C 31 30 31 |,101,153,166,101|
00002960: 2C 31 35 33 2C 31 30 31 2C 31 30 31 2C 31 35 33 |,153,101,101,153|
00002970: 2C 31 36 35 2C 31 36 35 2C 31 35 33 2C 38 36 2C |,165,165,153,86,|
00002980: 31 30 31 2C 31 37 30 2C 31 37 30 00 D2 31 80 11 |101,170,170..1..|
00002990: 83 31 36 35 2C 31 37 30 2C 31 37 30 2C 31 36 35 |.165,170,170,165|
000029A0: 2C 31 37 30 2C 31 37 30 2C 31 36 35 2C 31 37 30 |,170,170,165,170|
000029B0: 2C 31 37 30 2C 31 34 39 2C 31 37 30 2C 31 37 30 |,170,149,170,170|
000029C0: 2C 31 34 39 2C 31 30 36 2C 31 37 30 2C 38 35 2C |,149,106,170,85,|
000029D0: 39 30 00 F2 31 8F 11 83 31 36 39 2C 38 35 2C 38 |90..1...169,85,8|
000029E0: 35 2C 38 35 2C 38 35 2C 38 35 2C 38 35 2C 38 35 |5,85,85,85,85,85|
000029F0: 2C 31 00 3F 32 9E 11 83 31 37 30 2C 31 37 30 2C |,1.?2...170,170,|
00002A00: 31 37 30 2C 31 37 30 2C 31 37 30 2C 31 37 30 2C |170,170,170,170,|
00002A10: 31 37 30 2C 31 37 30 2C 31 37 30 2C 31 37 30 2C |170,170,170,170,|
00002A20: 31 37 30 2C 31 37 30 2C 31 37 30 2C 31 37 30 2C |170,170,170,170,|
00002A30: 31 37 30 2C 31 37 30 2C 31 37 30 2C 31 37 30 00 |170,170,170,170.|
00002A40: 89 32 AD 11 83 38 35 2C 38 35 2C 38 35 2C 31 30 |.2...85,85,85,10|
00002A50: 31 2C 31 30 32 2C 31 37 30 2C 31 30 31 2C 31 30 |1,102,170,101,10|
00002A60: 31 2C 31 30 31 2C 31 30 31 2C 31 30 31 2C 31 30 |1,101,101,101,10|
00002A70: 31 2C 31 30 31 2C 31 30 31 2C 31 30 31 2C 31 30 |1,101,101,101,10|
00002A80: 35 2C 31 36 35 2C 31 30 31 00 D4 32 BC 11 83 39 |5,165,101..2...9|
00002A90: 30 2C 31 34 39 2C 31 30 31 2C 38 36 2C 38 36 2C |0,149,101,86,86,|
00002AA0: 31 37 30 2C 38 35 2C 38 35 2C 38 35 2C 32 35 35 |170,85,85,85,255|
00002AB0: 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35 |,255,255,255,255|
00002AC0: 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35 |,255,255,255,255|
00002AD0: 2C 32 35 35 00 FD 32 CB 11 83 32 35 35 2C 32 35 |,255..2...255,25|
00002AE0: 35 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 |5,255,255,255,25|
00002AF0: 35 2C 32 35 35 2C 32 35 35 2C 31 30 34 00 4A 33 |5,255,255,104.J3|
00002B00: DA 11 83 31 37 30 2C 31 37 30 2C 31 37 30 2C 31 |...170,170,170,1|
00002B10: 37 30 2C 31 37 30 2C 31 37 30 2C 31 37 30 2C 31 |70,170,170,170,1|
00002B20: 37 30 2C 31 37 30 2C 31 37 30 2C 31 37 30 2C 31 |70,170,170,170,1|
00002B30: 37 30 2C 31 37 30 2C 31 37 30 2C 31 37 30 2C 31 |70,170,170,170,1|
00002B40: 37 30 2C 31 37 30 2C 31 37 30 00 94 33 E9 11 83 |70,170,170..3...|
00002B50: 38 35 2C 38 35 2C 38 35 2C 39 30 2C 31 35 30 2C |85,85,85,90,150,|
00002B60: 31 36 35 2C 31 30 31 2C 38 36 2C 31 30 31 2C 31 |165,101,86,101,1|
00002B70: 30 31 2C 39 30 2C 31 30 35 2C 39 30 2C 39 30 2C |01,90,105,90,90,|
00002B80: 31 36 39 2C 38 35 2C 31 35 33 2C 38 39 2C 38 35 |169,85,153,89,85|
00002B90: 2C 31 35 33 00 DF 33 F8 11 83 38 39 2C 31 30 36 |,153..3...89,106|
00002BA0: 2C 38 39 2C 38 39 2C 38 35 2C 38 35 2C 38 35 2C |,89,89,85,85,85,|
00002BB0: 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C |255,255,255,255,|
00002BC0: 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C |255,255,255,255,|
00002BD0: 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35 00 |255,255,255,255.|
00002BE0: 00 34 07 12 83 32 35 35 2C 32 35 35 2C 32 35 35 |.4...255,255,255|
00002BF0: 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C 31 30 34 |,255,255,255,104|
00002C00: 00 00 00 |... |
....... CREDIT CARD FILER.3.... BY
MIKE COOKE.E.(.. (C) 1987.\.7.. P
UBLISHED BY:..F.. VIKING TECHNOLOGIE
S, INC....U.....D..L.0.L.1:.15,8,15,"I0"
: 15:."0:LPTR RTN",8,1.L.N.. 65418:. 808
,234...S..:.G(8);G(14):UP$.G(17)...X.. 5
3269,0.....NC.0:.C$(26,4)......53280,0:.
53281,0.(....".".=...V.53248:GT.14335.L.
...T.1.256:.A:.GT.T,A:.T:.2040,224:.2041
,225......2042,226:.2043,227:.V.41,6:.V.
42,6:.V.39,8:.V.40,8.J.'..V.28,15:.V.37,
1:.V.38,7:.V.16,12...6..V,47:.V.2,71:.V.
4,9:.V.6,33:.V.1,68:.V.3,68:.V.5,68...E.
.V.7,68:.V.21,15.J.F.."...
".}.G..". .
. ."...
H..". .
. ."...I..". . .CREDIT CARD
FILER. . ."...J..". .
. .".K.K..".
.......................................
.".}.L..". PRESS F8 TO RETURN TO U
PTIME ":....T.."... WRITTEN
BY MIKE COOKE".K.C..". (C) COPY
RIGHT 1987"...R..". PUBLISHED BY VIKING
TECHNOLOGIES, INC.".&...."... DO YOU
WANT INSTRUCTIONS? ";.2.... 198,0.G....
A$:.A$.".".4360.`....A$."Y"..".YES":.610
.Y....A$."N"..".NO":.1090......400...L..
*** CLEAR SPACE ***......"........"..
...Z.0:.Z.1.16:."
":.Z......"........"....
...!.... *** PRESS SPACEBAR ***.L.&.."
.PRESS .<SPACE>. TO CONTINUE".A.5
..A$:.A$.".".4360.T.D..A$..G(32).565.Z.S
.....B.. *** INSTRUCTIONS ***.K.Q..460
:.". THIS PROGRAM'S PURPOSE IS TO STO
RE"......"UP TO 25 DIFFERENT SETS OF CRE
DIT CARD".(...."INFORMATION. FOR EACH CA
RD, THE PROGRAM".V...."WILL STORE ITS NA
ME, NUMBER, EXP DATE,"......"AND A PHONE
NUMBER TO CALL IF YOU WERE"......"TO LO
SE THE CARD. IF YOU WERE TO LOSE"...K..
"YOUR CARDS, YOU WOULD HAVE EASY ACCESS"
...Z.."TO THE INFORMATION YOU WOULD NEED
TO".1...."TELL THE CREDIT CARD COMPANY.
".A....:.535:.460.O....". TO PUT A C
ARD INTO THE FILE, YOU"......"WOULD PICK
THE FIRST MENU CHOOSE-ADD A".E.%.."CARD
. IF YOU EVER WANT TO ERASE"...4.."THE
INFORMATION ON A CARD, YOU WOULD". .C.."
CHOOSE THE THE APPROPRIATE MENU CHOICE."
.F.R..".ALWAYS 'SAVE' THE FILE BEFORE".Q
.A.."EXITING IF YOU HAVE MADE CHANGES IN
"...P.."THE FILE. .IF YOU DON'T, THE CH
ANGES"....."WILL NOT BE RECORDED.".K...
.:.535:.460......". IN THE FIRST PAR
T OF THE PROGRAM".&...."YOU WILL BE ASKE
D IF THIS A NEW OR AN".U...."OLD FILE.
NEW FILES ARE ONES THAT HAVE"...J.."NO D
ATA. YOU WOULD CHOOSE THIS THE"...Y.."F
IRST TIME YOU RUN THE PROGRAM. OLD".Y..
.."FILES ARE THOSE WITH DATA IN THEM YOU
"......"WANT TO CHANGE OR ADD TO. IF YO
U SAY".5...."THAT YOU WANT A NEW FILE AF
TER YOU HAVE".D...."ALREADY MADE A FILE,
THE FIRST ONE WILL"...$.."BE ERASED AND
A NEW ONE SET UP.":.:.535:.460.G.%..".
THE FINAL MENU CHOICE, PRINT LETTER".
..&.."IS USED WHEN YOU LOSE A CREDIT CAR
D AND".$.'.."YOU NEED TO SEND A WRITTEN
REQUEST FOR".O.(.."NEW CREDITS CARDS. Y
OU ARE ASK FOR".{.).."ADDITIONAL INFORMA
TION TO PUT IN THE"...*.."LETTER AND YOU
SHOULD REPLY IN THE".I.+.."FOLLOWING FO
RMAT..":.535:.460...,..". NAME: .MI
CHAEL S. COOKE"...-.." . ALT NAME: .SOND
RA L. COOKE".C...." (USED WITH MORE THA
N ONE CARD HOLDER)".C./.." .ADDRESS:.
PO BOX 100"...0.." OR"
...1.." 801 LAKESHORE DR.".X.
2..". .CITY: .SELMA .STATE: .OR .ZIP:
.97538"...3..". .DATE: .AUGUST 13,
1987".$.4..". .PHONE #: .(503) 597-12
12.".7.A..535:.460:.340.T.B.. *** OLD/
NEW FILE ***...Q..".. IS THIS A .N.E
W OR .O.LD FILE? ...";...`..A$:.A$.".
".4360...O..A$."N"..".NEW":.1180.S.~..A$
."O"..".OLD.":.1420......1120......".
ARE YOU SURE? ...";......A$:.A$."."
.4360./....A$."Y".."YES.":.1255.K.I..A$.
"N".."NO....":.1105.U.X..1195.N.... **
* NEW FILE ***......15,8,15,"I0":.1,8,2,
"@0:-CCM DATA,S,W":.15,A:.A.20.1360.....
."...DISK ERROR!!! PLEASE CHECK YOUR DR
IVE": 1: 15......"AND PRESS SPACE."...#.
.A$:.A$."".1315.!.2.."...":.T.1.2.^.A.."
"
:.T:.".":.1270.|.P..". CREATING FILE
..."..._..1,0: 1: 15:.T.1.500:.T...N..15
55...}.. *** OLD FILE ***......15,8,15
,"I0":.1,8,2,"0:-CCM DATA,S,R":.15,A$:.A
$."20".1510.1....".DISK ERROR!!! PLEASE
CHECK YOUR DRIVE": 1: 15.I...."AND PRES
S SPACE.".]....A$:.A$."".1465.O.H.."..."
:.T.1.2...W.."
":.T:."......":.1105......"
LOADING DATA...":.1,NC$:NC.E(NC$):.
NC.26 . NC.26......T.1.NC:.Y.1.4:.1,C$(
T,Y):.Y,T..... 1: 15.4.... *** MAIN MENU
***.`."..460:.". CHOOSE BY NU
MBER:":....1.." .1). ADD CAR
D":....@.." .2). ERASE CARD"
:..O.O.." .3). SAVE FILE":..
..^.." .4). VIEW CARDS":.:..
13)".5). PRINT LETTER".:.M..:."
.F8). EXIT TO UPTIME":..V.|..".
CHOICE:";.K....A$:.A$.".".4360.....
A.E(A$):.A.1.A.5.1675......A;" (Y/N)? "
;......A$:.A$."".1720.F.G..A$."Y".."YES"
:.1780.X.V..A$.."N".1720......"NO":.".
.":
.1660.5....A.1810,2065,2455,2725,3475.?.
...1555.X.... *** ADD CARD ***.U.!..46
0:..13)" .ADD A CARD"...0..NC.15..:.".
NO MORE CARDS MAY BE ADDED..":.535:.
...?..:.:NC.NC.1...N..:." .CARD NAM
E:. ";...]..3355:C$(NC,1).A$..._.. A$.""
. C$(NC,1)."*".*.L..:." .NUMBER:.
";.@.{..3355:C$(NC,2).A$.[.... A$."" . C
$(NC,2)."*".X....:." .EXP DATE: .";
......3355:C$(NC,3).A$...... A$."" . C$(
NC,3)."*".I....:." .TELEPHONE #: ."
;......3355:C$(NC,4).A$...... A$."" . C$
(NC,4)."*"...F..:..13)". .ADD ANOTHER?".
+.U..A$:.A$."".2005.<....A$."Y".1810.J..
..A$."N"...T....2005.O.... *** ERASE C
ARD ***... ..460:..13)".ERASE A CARD".H.
/..NC.0..:.". THERE ARE NO CARDS TO
ERASE..":.535:....>..:.".USE THE UP/DOW
N CURSOR KEY TO SCROLL".%.M.."THE CARDS.
PRESS 'E' TO ERASE A CARD.".M.\.."PRES
S 'R' TO RETURN TO THE MENU.".U.K..:..].
Z.C.1.....".";C$(C,1);". - ";C$(C,2):..
......C(C$(C,1)));" ";C$(C,3);" ";C$(C
,4)......"..COMMAND:".Q....A$:.A$."".223
0...E..A$."R".....T..A$.".".C.NC.C.C.1:.
2425......A$.".".C.1.C.C.1:.2425.*....A$
.."E".2230.C....".ERASE FOR SURE? ".W...
.A$:.A$."".2320.....A$."Y"..".
.":.2380......A$.."N".2320...=.."
. .":.2230...L..T.C.NC:C$
(T,1).C$(T.1,1):C$(T,2).C$(T.1,2):C$(T,3
).C$(T.1,3).. [.C$(T,4).C$(T.1,4):.T:NC.
NC.1:.NC.0...$ J.C.1.: Y..".......":.T.1
.3.Z ..."
":.T:."....":.2185.. ... *** S
AVE FILE ***.. ...460:..13)".SAVE FILE".
. ...:.".PRESS .S. TO SAVE OR .R. TO RET
URN TO".. D.."THE MENU.":."(S/R):. ";..!
S..A$:.A$."".2515.0!...A$."S".."SAVING..
.":.2575.T!...A$."R".."RETURN":.T.1.250:
.T:..^!...2515..!...15,8,15:.1,8,1,"@0:-
CCM DATA,S,W"..!...15,A:.A.20.2680.H!-..
"DISK ERROR!!! PLEASE CHECK YOUR DRIVE"
..!<.."AND THEN PRESS THE SPACE BAR.".."
K..A$:.A$."".2635.."Z..A$..G(32).2635.&"
I. 15: 1:.2455.0"X..1,NC.T"...T.1.NC:.Y.
1.4:.1,C$(T,Y):.Y:.T.A".. 15: 1:..|"...
*** VIEW CARDS ***.."...460:..13)".VIE
W CARDS".J"C..:.".DO YOU WANT THEM ON TH
E .S.CREEN OR THE".."R..".P.RINTER? (S/P
/R): .";.."...A$:.A$."".2785..#...A$."S"
.."SCREEN":.3145.<#...A$."R".."RETURN":.
T.1.250:.T:..N#...A$.."P".2785.P#... *
** OUTPUT TO PRINTER ***.#,.."PRINTER".
.#;..780,2:.782,0:.828..#J..B(783).1. 2:
.2920..#Y..2965..#H.."..PRINTER ERROR!!!
PLEASE CHECK YOUR"..$W.."PAPER SUPPLY A
ND PRINTER CONDITION.."..$...535:.2725.1
$... PRINTER OKAY.Z$...2,G(17);"*** CRED
IT CARD FILER ***"..$...2:.2,UP$;"NAME";
.18);"NUMBER";.11);"EXP DATE";.3);..$B..
2,UP$;"TELEPHONE".C$Q..T.1.60:.2,"-";:.T
:.2.O$...T.1.NC..$...2,UP$;C$(T,1);..(20
.C(C$(T,1))));C$(T,2);.7%...2,UP$;..(20.
C(C$(T,2))))C$(T,3);..(10.C(C$(T,3))));.
J%...2,UP$;C$(T,4).Q%...T.L%+..T.1.5:.2:
.T:.2,G(145).U%:. 2:...%I.. SCREEN OUTPU
T..%X..460:."...USE THE UP/DOWN CURSOR K
EY TO SCROLL"..%G.."THE CARDS. PRESS 'R
' TO RETURN TO THE":."MENU."..%V..:...&.
.C.1.&&...".";C$(C,1);" - .";C$(C,2):..P
&....C(C$(C,1)).3);C$(C,3);" ";C$(C,4)
.B&..."..COMMAND:".V&A..A$:.A$."".3265..
&P..A$."R"....&...A$.".".C.NC.C.C.1..&..
.A$.".".C.1.C.C.1.G&...".......":.T.1.3.
.'..."
":.T:."....":.3220..'... GET INPUT.
"'*..204,0.6'9.C.0:A$."":L$."".J'H..L$:.
L$."".3400.X'W..L$.G(20).C.0.C.C.1:A$.H(
A$,C):.L$;:.3400..'F..L$.G(13).." ":.204
,1:...'U..L$." ".L$."Z".3400.I'Z.. L$."_
" . L$."A" . 3400..'.. C.24 . 3400..'..
A$.A$.L$:.L$;:C.C.1:L$."":.3400..(... PR
INT LETTER.0(...460:..13)".PRINT LETTER"
.Y(...:.:." .WHICH CARD DID YOU LOSE?.":
...(...T.1.NC:.T.2..(T.2)...22);T".> ";C
$(T,1):.3550..(O.." ";T".> ";C$(T,1);..
(...T:.:.:." .NUMBER- ";.T(...A$:.A$."".
3565..(..CT.E(A$):.CT.1.CT.NC.3565..(...
"."CT.5)...:." .WAS THIS CARD .L.OST OR
.S.TOLEN?":." (L/S)?".K))..SL$:.SL$."".3
625.G)8..SL$.."L".SL$.."S".3625..)G..460
:..13)".PRINT LETTER":...)V.." .WHAT IS
YOUR FULL NAME?":." >.";:.3355:N1$.A$:..
.)E.." .ALTERNATE NAME?":." >.";:.3355:N
2$.A$:..)*T.." .STREET OR PO BOX ADDRESS
?":." >.";:.3355:AD$.A$:..M*..." .CITY?"
:." >.";:.3355:CI$.A$.|*..."..".12)".STA
TE?":..12)">.";:.3355:ST$.A$..*..."..".2
3)".ZIP?":..23)">.";:.3355:Z$.A$:..M*...
" .DATE?":." >.";:.3355:D$.A$..+..."..".
23)".PHONE #?":..23)">.";:.3355:PN$.A$:.
T.1.500..+N..T.0+...460:..13)".PRINT LET
TER":.:..T+...". TYPE 'R' TO RETURN TO M
ENU OR 'P' TO":." PRINT.":." (R/P)?"..+.
..A$:.A$."".3835..+...A$."R"..1555..+...
A$.."P".3835.H+(.. PRINT LETTER ROUTINE
..+7..780,2:.782,0:.828..+F..B(783).1. 2
:.3940..,U..3985.,,D.."..PRINTER ERROR!!
! PLEASE CHECK YOUR".X,S.."PAPER SUPPLY
AND PRINTER CONDITION..".G,...535:.3805.
Z,... PRINTER OKAY.., ..T.1.12:.2:.T..,.
..2,UP$;.10);N1$:.N2$..""..2,UP$;.10);N2
$..,...2,UP$;.10);AD$:.2,UP$;.10);CI$;",
";ST$..-M..2,UP$;.12.C(CI$));Z$..-...2,
UP$;.10);PN$:.2.*-...2,UP$;.10);D$.L-...
T.1.5:.2:.T:TB$." ".S-...2,UP$;
TB$;"DEAR SIR OR MADAM:":.2..-...2,UP$;T
B$;" RECENTLY I CALLED TO INFORM YOU
THAT MY"..-'..2,UP$;TB$;C$(CT,1);" CARD
HAD BEEN ";..-6..SL$."S"..2,UP$;"STOLEN
. ";...E..SL$."L"..2,UP$;"LOST. ";.4.T
..2,UP$;"THE NUMBER".H.C..2,UP$;TB$;"IS
";C$(CT,2);" WITH AN EXPIRATION"...R..2,
UP$;TB$;"DATE OF ";C$(CT,3);". PLEASE S
END REPLACEMENT"......2,UP$;TB$;"CARDS F
OR THE NAME";:.N2$..""..2,UP$;"S ";:.425
5......2," ";../...2,UP$;"LISTED ABOVE A
T YOUR".A/...2,UP$;TB$;"EARLIEST CONVENI
ENCE.":.2.V/...2,UP$;TB$;"THANK YOU FOR
YOUR HELPFUL SERVICE."../L..T.1.5:.2:.T.
./...2,UP$;.10);"RESPECTFULLY,":.T.1.4:.
2:.T.Q/...2,UP$;.10);N1$: 2:.1555.W/....
./... *** RETURN TO UPTIME ***..0... (
8.4096).P0&.. 85,85,85,85,85,85,85,85,85
,85,127,245,85,255,253,87,255,255,87,255
..05.. 255,93,221,213,93,87,94,93,213,85
,93,215,125,93,215,85,95,255,254,95..0D.
.255,254,87,255,255,87,255,255,85,255,25
3,85,127,245,85,85,85,85,85,85..0S..85,8
5,85,104.A1B..85,85,85,85,85,85,85,85,85
,90,169,85,106,170,85,170,170,149,170,17
0..1Q..149,85,85,101,153,166,101,153,101
,101,153,165,165,153,86,101,170,170.R1..
.165,170,170,165,170,170,165,170,170,149
,170,170,149,106,170,85,90..1...169,85,8
5,85,85,85,85,85,1.?2...170,170,170,170,
170,170,170,170,170,170,170,170,170,170,
170,170,170,170..2...85,85,85,101,102,17
0,101,101,101,101,101,101,101,101,101,10
5,165,101.T2...90,149,101,86,86,170,85,8
5,85,255,255,255,255,255,255,255,255,255
,255..2K..255,255,255,255,255,255,255,25
5,104.J3Z..170,170,170,170,170,170,170,1
70,170,170,170,170,170,170,170,170,170,1
70..3...85,85,85,90,150,165,101,86,101,1
01,90,105,90,90,169,85,153,89,85,153..3.
..89,106,89,89,85,85,85,255,255,255,255,
255,255,255,255,255,255,255,255..4...255
,255,255,255,255,255,104...
> CLICK IMAGE PREVIEW FOR FULL MODAL