COPS BASE TAPE
FILE INFORMATION
FILENAME(S): COPS BASE TAPE
FILE TYPE(S): PRG
FILE SIZE: 4.6K
FIRST SEEN: 2025-12-01 01:48:20
APPEARS ON: 2 disk(s)
FILE HASH
9e1f1ef3cd1d2065a5f68e4869800a2c6556361b8580d8c56675f7868765abb6
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CCS64 1 2 | COPS BASE TAPE | PRG | hedning, Mattias H00r | 21 | 6 | DOWNLOAD FILE |
| CCS 64 1 | COPS BASE TAPE | PRG | hedning, Mattias H00r | 14 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1C 08 64 00 8F 20 50 4C 41 54 4F 4F 4E 20 |....d.. PLATOON |
00000010: 46 49 4C 45 20 50 52 4F 47 52 41 4D 00 22 08 69 |FILE PROGRAM.".i|
00000020: 00 3A 00 3E 08 6E 00 86 20 4E 24 28 32 30 30 2C |.:.>.n.. N$(200,|
00000030: 32 37 29 3A 4E 46 B2 32 37 3A 46 46 B2 30 00 44 |27):NF.27:FF.0.D|
00000040: 08 73 00 3A 00 75 08 78 00 8F 20 4E 46 2D 4E 55 |.s.:.u.x.. NF-NU|
00000050: 4D 42 45 52 20 4F 46 20 46 49 45 4C 44 53 2E 2E |MBER OF FIELDS..|
00000060: 2E 4E 24 20 43 4F 4E 54 41 49 4E 53 20 54 48 45 |.N$ CONTAINS THE|
00000070: 20 46 49 4C 45 00 7B 08 7D 00 3A 00 9E 08 7F 00 | FILE.{.}.:.....|
00000080: 99 22 93 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
00000090: 1D 1D 1D 1D 1D 1D 1D 12 4D 45 4E 55 92 22 00 BD |........MENU."..|
000000A0: 08 82 00 99 22 11 31 20 20 20 20 20 12 43 52 45 |....".1 .CRE|
000000B0: 41 54 45 20 54 48 45 20 46 49 4C 45 22 00 DD 08 |ATE THE FILE"...|
000000C0: 87 00 99 22 11 32 20 20 20 20 20 12 55 50 44 41 |...".2 .UPDA|
000000D0: 54 45 20 54 48 45 20 46 49 4C 45 92 22 00 FD 08 |TE THE FILE."...|
000000E0: 8C 00 99 22 11 33 20 20 20 20 20 12 52 45 56 49 |...".3 .REVI|
000000F0: 45 57 20 54 48 45 20 46 49 4C 45 92 22 00 12 09 |EW THE FILE."...|
00000100: 91 00 99 22 11 34 20 20 20 20 20 12 53 4F 52 54 |...".4 .SORT|
00000110: 92 22 00 27 09 96 00 99 22 11 35 20 20 20 20 20 |.".'....".5 |
00000120: 12 53 41 56 45 92 22 00 3C 09 9B 00 99 22 11 36 |.SAVE.".<....".6|
00000130: 20 20 20 20 20 12 51 55 49 54 92 22 00 42 09 A0 | .QUIT.".B..|
00000140: 00 3A 00 68 09 A5 00 85 22 11 11 1D 1D 1D 1D 1D |.:.h....".......|
00000150: 59 4F 55 52 20 20 43 48 4F 49 43 45 20 20 50 4C |YOUR CHOICE PL|
00000160: 45 41 53 45 22 3B 59 59 00 85 09 AA 00 8B 59 59 |EASE";YY......YY|
00000170: B3 B1 20 31 AF 46 46 B2 30 20 20 20 20 A7 20 8D |.. 1.FF.0 . .|
00000180: 20 35 30 30 30 00 AD 09 B4 00 91 59 59 20 8D 20 | 5000......YY . |
00000190: 31 30 30 30 2C 32 30 30 30 2C 33 30 30 30 2C 34 |1000,2000,3000,4|
000001A0: 30 30 30 2C 36 30 30 30 2C 37 30 30 30 00 B6 09 |000,6000,7000...|
000001B0: B9 00 46 46 B2 31 00 BF 09 BE 00 89 31 32 30 00 |..FF.1......120.|
000001C0: C5 09 C3 00 80 00 CB 09 C8 00 3A 00 E1 09 E8 03 |..........:.....|
000001D0: 8F 20 43 52 45 41 54 45 20 54 48 45 20 46 49 4C |. CREATE THE FIL|
000001E0: 45 00 E7 09 ED 03 3A 00 02 0A F2 03 85 22 11 11 |E.....:......"..|
000001F0: 11 48 4F 57 20 4D 41 4E 59 20 46 49 4C 45 53 22 |.HOW MANY FILES"|
00000200: 3B 4E 00 08 0A F3 03 3A 00 15 0A F7 03 81 20 58 |;N.....:...... X|
00000210: B2 31 A4 20 4E 00 1E 0A F8 03 99 22 93 22 00 2D |.1. N......".".-|
00000220: 0A FC 03 81 20 59 B2 31 20 A4 20 4E 46 00 36 0A |.... Y.1 . NF.6.|
00000230: 01 04 87 20 41 24 00 3F 0A 0B 04 99 41 24 3B 00 |... A$.?....A$;.|
00000240: 4D 0A 10 04 85 20 4E 24 28 58 2C 59 29 00 54 0A |M.... N$(X,Y).T.|
00000250: 15 04 82 59 00 5A 0A 1A 04 8C 00 62 0A 1F 04 82 |...Y.Z.....b....|
00000260: 20 58 00 68 0A 24 04 3A 00 8C 0A 29 04 99 22 93 | X.h.$.:...)..".|
00000270: 12 20 50 52 45 53 53 20 50 4C 41 59 2F 52 45 43 |. PRESS PLAY/REC|
00000280: 4F 52 44 20 4F 4E 20 54 41 50 45 22 00 B1 0A 33 |ORD ON TAPE"...3|
00000290: 04 99 22 11 11 11 11 11 1D 1D 1D 1D 1D 48 49 54 |.."..........HIT|
000002A0: 20 27 43 27 20 54 4F 20 43 4F 4E 54 49 4E 55 45 | 'C' TO CONTINUE|
000002B0: 22 00 C8 0A 38 04 A1 20 41 24 3A 8B 20 41 24 B2 |"...8.. A$:. A$.|
000002C0: 22 22 A7 20 31 30 38 30 00 ED 0A 3D 04 99 22 93 |"". 1080...=..".|
000002D0: 11 11 11 11 11 1D 1D 1D 1D 1D 12 51 55 49 45 54 |...........QUIET|
000002E0: 92 20 49 27 4D 20 53 41 56 49 4E 47 22 00 F3 0A |. I'M SAVING"...|
000002F0: 42 04 3A 00 08 0B 47 04 8F 20 53 41 56 49 4E 47 |B.:...G.. SAVING|
00000300: 20 4F 4E 20 54 41 50 45 00 1F 0B 4C 04 9F 31 2C | ON TAPE...L..1,|
00000310: 31 2C 31 2C 22 44 41 54 41 20 46 49 4C 45 22 00 |1,1,"DATA FILE".|
00000320: 28 0B 51 04 98 31 2C 4E 00 36 0B 56 04 81 20 58 |(.Q..1,N.6.V.. X|
00000330: B2 31 20 A4 20 4E 00 44 0B 5B 04 81 20 59 B2 31 |.1 . N.D.[.. Y.1|
00000340: A4 20 4E 46 00 53 0B 60 04 98 31 2C 4E 24 28 58 |. NF.S.`..1,N$(X|
00000350: 2C 59 29 00 5B 0B 65 04 82 20 59 00 63 0B 6A 04 |,Y).[.e.. Y.c.j.|
00000360: 82 20 58 00 6A 0B 6F 04 A0 31 00 70 0B 70 04 8E |. X.j.o..1.p.p..|
00000370: 00 76 0B 74 04 3A 00 8B 0B D0 07 8F 20 55 50 44 |.v.t.:...... UPD|
00000380: 41 54 45 20 52 4F 55 54 49 4E 45 00 91 0B D5 07 |ATE ROUTINE.....|
00000390: 3A 00 B7 0B DA 07 99 22 93 11 11 1D 1D 1D 1D 1D |:......"........|
000003A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 55 50 44 41 54 |...........UPDAT|
000003B0: 45 20 4D 45 4E 55 22 00 CC 0B DF 07 99 22 11 11 |E MENU"......"..|
000003C0: 31 20 20 20 20 20 12 41 44 44 92 22 00 E4 0B E4 |1 .ADD."....|
000003D0: 07 99 22 11 11 32 20 20 20 20 20 12 44 45 4C 45 |.."..2 .DELE|
000003E0: 54 45 92 22 00 FC 0B E9 07 99 22 11 11 33 20 20 |TE."......"..3 |
000003F0: 20 20 20 12 43 48 41 4E 47 45 92 22 00 02 0C EE | .CHANGE."....|
00000400: 07 3A 00 25 0C F3 07 85 22 11 11 1D 1D 1D 1D 1D |.:.%....".......|
00000410: 59 4F 55 52 20 43 48 4F 49 43 45 20 50 4C 45 41 |YOUR CHOICE PLEA|
00000420: 53 45 22 3B 43 00 3E 0C F8 07 91 20 43 20 8D 20 |SE";C.>.... C . |
00000430: 32 35 30 30 2C 32 37 30 30 2C 32 33 30 30 00 60 |2500,2700,2300.`|
00000440: 0C FD 07 85 22 93 41 4E 59 20 4D 4F 52 45 20 55 |....".ANY MORE U|
00000450: 50 44 41 54 45 53 20 28 59 2F 4E 29 22 3B 44 24 |PDATES (Y/N)";D$|
00000460: 00 74 0C 02 08 8B 20 44 24 B2 22 59 22 20 A7 20 |.t.... D$."Y" . |
00000470: 32 30 30 30 00 7A 0C 07 08 8E 00 8F 0C FC 08 8F |2000.z..........|
00000480: 20 43 48 41 4E 47 45 20 52 4F 55 54 49 4E 45 00 | CHANGE ROUTINE.|
00000490: 95 0C FD 08 3A 00 B6 0C 01 09 85 22 93 11 11 11 |....:......"....|
000004A0: 1D 1D 1D 42 41 44 47 45 20 23 20 50 4C 45 41 53 |...BADGE # PLEAS|
000004B0: 45 22 3B 42 4E 24 00 C2 0C 06 09 81 20 58 B2 31 |E";BN$...... X.1|
000004C0: A4 4E 00 DC 0C 0B 09 8B 20 42 4E 24 B2 4E 24 28 |.N...... BN$.N$(|
000004D0: 58 2C 33 29 A7 20 8D 20 32 34 30 30 00 E4 0C 10 |X,3). . 2400....|
000004E0: 09 82 20 58 00 EA 0C 15 09 3A 00 F0 0C 1A 09 8E |.. X.....:......|
000004F0: 00 05 0D 60 09 8F 20 44 49 53 50 4C 41 59 20 52 |...`.. DISPLAY R|
00000500: 45 43 4F 52 44 00 0B 0D 65 09 3A 00 30 0D 66 09 |ECORD...e.:.0.f.|
00000510: 99 22 93 1D 1D 48 49 54 20 12 52 45 54 55 52 4E |."...HIT .RETURN|
00000520: 92 20 46 4F 52 20 4E 4F 20 43 48 41 4E 47 45 22 |. FOR NO CHANGE"|
00000530: 00 3F 0D 6A 09 81 20 59 B2 31 20 A4 20 4E 46 00 |.?.j.. Y.1 . NF.|
00000540: 48 0D 6F 09 87 20 41 24 00 70 0D 74 09 99 22 12 |H.o.. A$.p.t..".|
00000550: 22 3B 41 24 3B 22 92 22 3B A3 32 30 29 3B 4E 24 |";A$;".";.20);N$|
00000560: 28 58 2C 59 29 3B 22 20 20 20 22 3B 22 2F 22 3B |(X,Y);" ";"/";|
00000570: 00 7E 0D 79 09 85 22 9D 9D 9D 22 3B 42 24 00 99 |.~.y.."...";B$..|
00000580: 0D 7E 09 8B 20 42 24 B3 B1 22 2F 22 20 A7 20 4E |.~.. B$.."/" . N|
00000590: 24 28 58 2C 59 29 B2 42 24 00 A1 0D 83 09 82 20 |$(X,Y).B$...... |
000005A0: 59 00 A7 0D 88 09 8C 00 AD 0D 8D 09 8E 00 B3 0D |Y...............|
000005B0: 92 09 3A 00 C8 0D C4 09 8F 20 41 44 44 20 53 55 |..:...... ADD SU|
000005C0: 42 52 4F 55 54 49 4E 45 00 CE 0D C9 09 3A 00 F1 |BROUTINE.....:..|
000005D0: 0D CE 09 85 22 93 11 11 11 48 4F 57 20 4D 41 4E |...."....HOW MAN|
000005E0: 59 20 4E 45 57 20 52 45 43 4F 52 44 53 22 3B 4E |Y NEW RECORDS";N|
000005F0: 52 00 FA 0D D0 09 99 22 93 22 00 0B 0E D3 09 81 |R......"."......|
00000600: 20 58 B2 4E AA 31 A4 4E AA 4E 52 00 18 0E D8 09 | X.N.1.N.NR.....|
00000610: 81 20 59 B2 31 A4 4E 46 00 20 0E DD 09 87 41 24 |. Y.1.NF. ....A$|
00000620: 00 2D 0E E2 09 99 41 24 3B 22 20 22 3B 00 3B 0E |.-....A$;" ";.;.|
00000630: E7 09 85 20 4E 24 28 58 2C 59 29 00 42 0E EC 09 |... N$(X,Y).B...|
00000640: 82 59 00 4B 0E ED 09 99 22 93 22 00 51 0E F1 09 |.Y.K....".".Q...|
00000650: 8C 00 58 0E F6 09 82 58 00 63 0E F9 09 4E B2 4E |..X....X.c...N.N|
00000660: AA 4E 52 00 69 0E FB 09 8E 00 6F 0E 00 0A 3A 00 |.NR.i.....o...:.|
00000670: 87 0E 8C 0A 8F 20 44 45 4C 45 54 49 4F 4E 53 20 |..... DELETIONS |
00000680: 52 4F 55 54 49 4E 45 00 8D 0E 91 0A 3A 00 A6 0E |ROUTINE.....:...|
00000690: 96 0A 85 22 93 42 41 44 47 45 20 4E 55 4D 42 45 |...".BADGE NUMBE|
000006A0: 52 22 3B 42 4E 24 00 AE 0E 9B 0A 58 B2 31 00 BB |R";BN$.....X.1..|
000006B0: 0E A0 0A 81 20 49 B2 31 A4 20 4E 00 C9 0E A5 0A |.... I.1. N.....|
000006C0: 81 20 4A B2 31 A4 20 4E 46 00 E3 0E AA 0A 8B 20 |. J.1. NF...... |
000006D0: 42 4E 24 B2 4E 24 28 49 2C 33 29 20 A7 20 49 B2 |BN$.N$(I,3) . I.|
000006E0: 49 AA 31 00 F7 0E AF 0A 4E 24 28 58 2C 4A 29 B2 |I.1.....N$(X,J).|
000006F0: 4E 24 28 49 2C 4A 29 00 FF 0E B4 0A 82 20 4A 00 |N$(I,J)...... J.|
00000700: 09 0F B9 0A 58 B2 58 AA 31 00 10 0F BE 0A 82 49 |....X.X.1......I|
00000710: 00 1A 0F BF 0A 4E B2 4E AB 31 00 20 0F C3 0A 8E |.....N.N.1. ....|
00000720: 00 26 0F C8 0A 3A 00 3B 0F B8 0B 8F 20 52 45 56 |.&...:.;.... REV|
00000730: 49 45 57 20 52 4F 55 54 49 4E 45 00 41 0F BD 0B |IEW ROUTINE.A...|
00000740: 3A 00 63 0F C2 0B 99 22 93 11 11 11 1D 1D 1D 1D |:.c...."........|
00000750: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 4D 45 |..............ME|
00000760: 4E 55 22 00 85 0F C7 0B 99 22 11 11 31 20 20 20 |NU"......"..1 |
00000770: 20 20 52 45 56 49 45 57 20 45 4E 54 49 52 45 20 | REVIEW ENTIRE |
00000780: 46 49 4C 45 22 00 A9 0F CC 0B 99 22 11 11 32 20 |FILE"......"..2 |
00000790: 20 20 20 20 52 45 56 49 45 57 20 53 49 4E 47 4C | REVIEW SINGL|
000007A0: 45 20 52 45 43 4F 52 44 22 00 CA 0F D1 0B 99 22 |E RECORD"......"|
000007B0: 11 11 33 20 20 20 20 20 52 45 56 49 45 57 20 42 |..3 REVIEW B|
000007C0: 59 20 50 4C 41 54 4F 4F 4E 22 00 F4 0F D6 0B 85 |Y PLATOON"......|
000007D0: 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 59 4F |".............YO|
000007E0: 55 52 20 43 48 4F 49 43 45 20 50 4C 45 41 53 45 |UR CHOICE PLEASE|
000007F0: 92 22 3B 52 00 0D 10 DB 0B 91 20 52 20 8D 20 33 |.";R...... R . 3|
00000800: 32 30 30 2C 33 35 30 30 2C 33 37 30 30 00 31 10 |200,3500,3700.1.|
00000810: E0 0B 85 22 93 11 11 11 1D 1D 1D 1D 1D 41 4E 59 |...".........ANY|
00000820: 20 4D 4F 52 45 20 52 45 56 49 45 57 53 22 3B 42 | MORE REVIEWS";B|
00000830: 24 00 45 10 E5 0B 8B 20 42 24 B2 22 59 22 20 A7 |$.E.... B$."Y" .|
00000840: 20 33 30 30 30 00 4B 10 EA 0B 8E 00 51 10 EF 0B | 3000.K.....Q...|
00000850: 3A 00 6A 10 80 0C 8F 20 45 4E 54 49 52 45 20 46 |:.j.... ENTIRE F|
00000860: 49 4C 45 20 52 45 56 49 45 57 00 70 10 85 0C 3A |ILE REVIEW.p...:|
00000870: 00 7C 10 87 0C 58 58 24 B2 22 A0 22 00 A7 10 88 |.|...XX$."."....|
00000880: 0C 85 22 93 11 11 11 20 44 4F 20 59 4F 55 20 57 |..".... DO YOU W|
00000890: 49 53 48 20 41 20 50 52 49 4E 54 45 52 20 43 4F |ISH A PRINTER CO|
000008A0: 50 59 22 3B 58 58 24 00 C5 10 89 0C 8B 58 58 24 |PY";XX$......XX$|
000008B0: B2 22 59 22 20 A7 20 9F 34 2C 34 3A 98 34 2C 22 |."Y" . .4,4:.4,"|
000008C0: 20 22 3A A0 34 00 D2 10 8A 0C 81 20 58 B2 31 A4 | ":.4...... X.1.|
000008D0: 20 4E 00 DB 10 8F 0C 99 22 93 22 00 E9 10 94 0C | N......".".....|
000008E0: 81 20 59 B2 31 A4 20 4E 46 00 F2 10 99 0C 87 20 |. Y.1. NF...... |
000008F0: 41 24 00 08 11 9B 0C 8B 58 58 24 B2 22 59 22 20 |A$......XX$."Y" |
00000900: A7 20 8D 20 38 30 30 30 00 1E 11 9E 0C 99 22 12 |. . 8000......".|
00000910: 22 3B 41 24 3B 22 92 22 3B A3 32 30 29 3B 00 2B |";A$;".";.20);.+|
00000920: 11 A3 0C 99 4E 24 28 58 2C 59 29 00 3E 11 A4 0C |....N$(X,Y).>...|
00000930: 8B 20 59 B2 31 33 20 A7 20 8D 33 39 35 30 00 45 |. Y.13 . .3950.E|
00000940: 11 A8 0C 82 59 00 4B 11 AD 0C 8C 00 6C 11 B2 0C |....Y.K.....l...|
00000950: 99 22 12 11 11 11 1D 1D 1D 48 49 54 20 43 20 54 |.".......HIT C T|
00000960: 4F 20 43 4F 4E 54 49 4E 55 45 92 22 00 83 11 B7 |O CONTINUE."....|
00000970: 0C A1 42 24 3A 8B 20 42 24 B2 22 22 20 A7 20 33 |..B$:. B$."" . 3|
00000980: 32 35 35 00 8B 11 BC 0C 82 20 58 00 91 11 BD 0C |255...... X.....|
00000990: 8E 00 97 11 C1 0C 3A 00 B4 11 AC 0D 8F 20 52 45 |......:...... RE|
000009A0: 56 49 45 57 20 42 59 20 42 41 44 47 45 20 4E 55 |VIEW BY BADGE NU|
000009B0: 4D 42 45 52 00 BA 11 B1 0D 3A 00 C5 11 B3 0D 58 |MBER.....:.....X|
000009C0: 58 24 B2 22 22 00 F0 11 B4 0D 85 22 93 11 11 11 |X$.""......"....|
000009D0: 20 44 4F 20 59 4F 55 20 57 49 53 48 20 41 20 50 | DO YOU WISH A P|
000009E0: 52 49 4E 54 45 52 20 43 4F 50 59 22 3B 58 58 24 |RINTER COPY";XX$|
000009F0: 00 0E 12 B5 0D 8B 58 58 24 B2 22 59 22 20 A7 20 |......XX$."Y" . |
00000A00: 9F 34 2C 34 3A 98 34 2C 22 20 22 3A A0 34 00 33 |.4,4:.4," ":.4.3|
00000A10: 12 B6 0D 85 22 93 11 11 1D 1D 1D 42 41 44 47 45 |...."......BADGE|
00000A20: 20 4E 55 4D 42 45 52 20 50 4C 45 41 53 45 22 3B | NUMBER PLEASE";|
00000A30: 42 4E 24 00 3F 12 B8 0D 81 20 58 B2 31 A4 4E 00 |BN$.?.... X.1.N.|
00000A40: 48 12 B9 0D 99 22 93 22 00 62 12 BB 0D 8B 20 42 |H....".".b.... B|
00000A50: 4E 24 B3 B1 4E 24 28 58 2C 33 29 20 A7 20 33 35 |N$..N$(X,3) . 35|
00000A60: 38 30 00 6F 12 C0 0D 81 20 59 B2 31 A4 4E 46 00 |80.o.... Y.1.NF.|
00000A70: 77 12 C5 0D 87 41 24 00 8E 12 C7 0D 8B 20 58 58 |w....A$...... XX|
00000A80: 24 B2 22 59 22 20 A7 20 8D 20 38 30 30 30 00 A4 |$."Y" . . 8000..|
00000A90: 12 CA 0D 99 22 12 22 3B 41 24 3B 22 92 22 3B A3 |....".";A$;".";.|
00000AA0: 32 30 29 3B 00 B1 12 CF 0D 99 4E 24 28 58 2C 59 |20);......N$(X,Y|
00000AB0: 29 00 C4 12 D0 0D 8B 20 59 B2 31 33 20 A7 20 8D |)...... Y.13 . .|
00000AC0: 33 39 35 30 00 CB 12 D4 0D 82 59 00 D5 12 D9 0D |3950......Y.....|
00000AD0: 58 B2 4E 3A 8C 00 DD 12 FC 0D 82 20 58 00 FD 12 |X.N:....... X...|
00000AE0: FD 0D 99 22 11 11 11 11 1D 1D 1D 48 49 54 20 43 |...".......HIT C|
00000AF0: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 13 13 | TO CONTINUE"...|
00000B00: FE 0D A1 20 47 24 3A 8B 20 47 24 B2 22 22 A7 33 |... G$:. G$."".3|
00000B10: 35 38 32 00 19 13 FF 0D 8E 00 1F 13 01 0E 3A 00 |582...........:.|
00000B20: 33 13 34 0E 8B 20 59 B2 31 33 20 A7 20 8D 20 33 |3.4.. Y.13 . . 3|
00000B30: 39 35 30 00 48 13 74 0E 8F 20 50 4C 41 54 4F 4F |950.H.t.. PLATOO|
00000B40: 4E 20 52 45 56 49 45 57 00 4E 13 79 0E 3A 00 5A |N REVIEW.N.y.:.Z|
00000B50: 13 7B 0E 58 58 24 B2 22 20 22 00 85 13 7C 0E 85 |.{.XX$." "...|..|
00000B60: 22 93 11 11 11 20 44 4F 20 59 4F 55 20 57 49 53 |".... DO YOU WIS|
00000B70: 48 20 41 20 50 52 49 4E 54 45 52 20 43 4F 50 59 |H A PRINTER COPY|
00000B80: 22 3B 58 58 24 00 A3 13 7D 0E 8B 58 58 24 B2 22 |";XX$...}..XX$."|
00000B90: 59 22 20 A7 20 9F 34 2C 34 3A 98 34 2C 22 20 22 |Y" . .4,4:.4," "|
00000BA0: 3A A0 34 00 D0 13 7E 0E 85 22 93 11 11 11 1D 1D |:.4...~.."......|
00000BB0: 45 4E 54 45 52 20 50 4C 41 54 4F 4F 4E 20 4E 55 |ENTER PLATOON NU|
00000BC0: 4D 42 45 52 20 50 4C 45 41 53 45 22 3B 50 4E 24 |MBER PLEASE";PN$|
00000BD0: 00 DC 13 83 0E 81 20 58 B2 31 A4 4E 00 E5 13 84 |...... X.1.N....|
00000BE0: 0E 99 22 93 22 00 FF 13 88 0E 8B 20 50 4E 24 B3 |.."."...... PN$.|
00000BF0: B1 4E 24 28 58 2C 34 29 20 A7 20 33 37 38 30 00 |.N$(X,4) . 3780.|
00000C00: 0C 14 8D 0E 81 20 59 B2 31 A4 4E 46 00 22 14 8F |..... Y.1.NF."..|
00000C10: 0E 8B 58 58 24 B2 22 59 22 20 A7 20 8D 20 38 30 |..XX$."Y" . . 80|
00000C20: 30 30 00 2B 14 92 0E 87 20 41 24 00 41 14 97 0E |00.+.... A$.A...|
00000C30: 99 22 12 22 3B 41 24 3B 22 92 22 3B A3 32 30 29 |.".";A$;".";.20)|
00000C40: 3B 00 4E 14 9C 0E 99 4E 24 28 58 2C 59 29 00 62 |;.N....N$(X,Y).b|
00000C50: 14 9D 0E 8B 20 59 B2 31 33 20 A7 20 8D 20 33 39 |.... Y.13 . . 39|
00000C60: 35 30 00 69 14 A1 0E 82 59 00 6F 14 A6 0E 8C 00 |50.i....Y.o.....|
00000C70: 7A 14 A7 0E 8D 20 33 39 35 30 00 81 14 C4 0E 82 |z.... 3950......|
00000C80: 58 00 A1 14 C5 0E 99 22 11 11 11 1D 1D 1D 1D 48 |X......".......H|
00000C90: 49 54 20 43 20 54 4F 20 43 4F 4E 54 49 4E 55 45 |IT C TO CONTINUE|
00000CA0: 22 00 B8 14 C6 0E A1 47 24 3A 8B 20 47 24 B2 22 |"......G$:. G$."|
00000CB0: 22 20 A7 20 33 37 38 32 00 BE 14 C9 0E 8E 00 C4 |" . 3782........|
00000CC0: 14 CE 0E 3A 00 E5 14 6E 0F 99 22 11 11 11 11 1D |...:...n..".....|
00000CD0: 1D 1D 1D 48 49 54 20 43 20 54 4F 20 43 4F 4E 54 |...HIT C TO CONT|
00000CE0: 49 4E 55 45 22 00 ED 14 73 0F A1 47 24 00 01 15 |INUE"...s..G$...|
00000CF0: 78 0F 8B 20 47 24 B2 22 43 22 20 A7 20 99 22 93 |x.. G$."C" . .".|
00000D00: 22 00 13 15 7D 0F 8B 20 47 24 B2 22 22 A7 20 33 |"...}.. G$."". 3|
00000D10: 39 35 35 00 19 15 82 0F 8E 00 2C 15 A0 0F 8F 20 |955.......,.... |
00000D20: 53 4F 52 54 20 52 4F 55 54 49 4E 45 00 32 15 A5 |SORT ROUTINE.2..|
00000D30: 0F 3A 00 56 15 AA 0F 99 22 93 1D 1D 1D 1D 1D 1D |.:.V....".......|
00000D40: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 53 4F 52 54 20 |...........SORT |
00000D50: 4D 45 4E 55 92 22 00 A5 15 AB 0F 99 22 11 52 45 |MENU."......".RE|
00000D60: 56 49 45 57 20 54 48 45 20 4D 45 4E 55 20 41 4E |VIEW THE MENU AN|
00000D70: 44 20 50 49 43 4B 20 54 48 45 20 4E 55 4D 42 45 |D PICK THE NUMBE|
00000D80: 52 20 4F 46 20 54 48 45 20 46 49 45 4C 44 20 59 |R OF THE FIELD Y|
00000D90: 4F 55 20 57 49 53 48 20 54 4F 20 42 45 20 53 4F |OU WISH TO BE SO|
00000DA0: 52 54 45 44 22 00 B2 15 AF 0F 81 20 59 B2 31 A4 |RTED"...... Y.1.|
00000DB0: 4E 46 00 BA 15 B4 0F 87 41 24 00 C4 15 B9 0F 99 |NF......A$......|
00000DC0: 59 2C 41 24 00 D7 15 BA 0F 8B 20 59 B2 31 33 20 |Y,A$...... Y.13 |
00000DD0: A7 20 8D 33 39 35 30 00 DF 15 BE 0F 82 20 59 00 |. .3950...... Y.|
00000DE0: E5 15 C3 0F 8C 00 00 16 C8 0F 85 22 11 12 50 49 |..........."..PI|
00000DF0: 43 4B 20 41 20 4E 55 4D 42 45 52 92 22 3B 53 46 |CK A NUMBER.";SF|
00000E00: 00 14 16 CD 0F 99 22 93 11 11 1D 1D 53 4F 52 54 |......".....SORT|
00000E10: 49 4E 47 22 00 22 16 D2 0F 81 20 55 B2 31 A4 4E |ING".".... U.1.N|
00000E20: AB 31 00 2D 16 D7 0F 46 4C 41 47 B2 30 00 3B 16 |.1.-...FLAG.0.;.|
00000E30: DC 0F 81 20 56 B2 31 A4 4E AB 55 00 5D 16 E1 0F |... V.1.N.U.]...|
00000E40: 8B 20 4E 24 28 56 2C 53 46 29 B1 4E 24 28 56 AA |. N$(V,SF).N$(V.|
00000E50: 31 2C 53 46 29 A7 20 8D 20 34 35 30 30 00 64 16 |1,SF). . 4500.d.|
00000E60: E6 0F 82 56 00 7A 16 EB 0F 8B 20 46 4C 41 47 20 |...V.z.... FLAG |
00000E70: B2 30 20 A7 20 55 B2 4E AB 31 00 81 16 F0 0F 82 |.0 . U.N.1......|
00000E80: 55 00 87 16 F5 0F 8E 00 8D 16 FA 0F 3A 00 A2 16 |U...........:...|
00000E90: 94 11 8F 20 53 57 49 54 43 48 20 52 4F 55 54 49 |... SWITCH ROUTI|
00000EA0: 4E 45 00 A8 16 99 11 3A 00 B6 16 9E 11 81 20 54 |NE.....:...... T|
00000EB0: B2 31 A4 20 4E 46 00 C5 16 A3 11 54 24 B2 4E 24 |.1. NF.....T$.N$|
00000EC0: 28 56 2C 54 29 00 DB 16 A8 11 4E 24 28 56 2C 54 |(V,T).....N$(V,T|
00000ED0: 29 B2 4E 24 28 56 AA 31 2C 54 29 00 EC 16 AD 11 |).N$(V.1,T).....|
00000EE0: 4E 24 28 56 AA 31 2C 54 29 B2 54 24 00 F4 16 B2 |N$(V.1,T).T$....|
00000EF0: 11 82 20 54 00 00 17 B7 11 46 4C 41 47 20 B2 31 |.. T.....FLAG .1|
00000F00: 00 06 17 BC 11 8E 00 0C 17 C1 11 3A 00 22 17 88 |...........:."..|
00000F10: 13 8F 20 4C 4F 41 44 49 4E 47 20 52 4F 55 54 49 |.. LOADING ROUTI|
00000F20: 4E 45 00 28 17 8D 13 3A 00 4B 17 92 13 99 22 93 |NE.(...:.K....".|
00000F30: 11 11 11 11 1D 1D 1D 1D 50 52 45 53 53 20 50 4C |........PRESS PL|
00000F40: 41 59 20 4F 4E 20 54 41 50 45 22 00 6A 17 97 13 |AY ON TAPE".j...|
00000F50: 99 22 11 11 11 11 48 49 54 20 27 43 27 20 54 4F |."....HIT 'C' TO|
00000F60: 20 43 4F 4E 54 49 4E 55 45 22 00 84 17 9C 13 A1 | CONTINUE"......|
00000F70: 41 24 3A 20 20 20 8B 20 41 24 B2 22 22 20 A7 20 |A$: . A$."" . |
00000F80: 35 30 32 30 00 9B 17 A1 13 9F 31 2C 31 2C 30 2C |5020......1,1,0,|
00000F90: 22 44 41 54 41 20 46 49 4C 45 22 00 A4 17 A6 13 |"DATA FILE".....|
00000FA0: 84 31 2C 4E 00 B1 17 AB 13 81 20 58 B2 31 A4 20 |.1,N...... X.1. |
00000FB0: 4E 00 BF 17 B0 13 81 20 59 B2 31 A4 20 4E 46 00 |N...... Y.1. NF.|
00000FC0: CE 17 B5 13 84 31 2C 4E 24 28 58 2C 59 29 00 D5 |.....1,N$(X,Y)..|
00000FD0: 17 BA 13 82 59 00 DC 17 BF 13 82 58 00 E3 17 C4 |....Y......X....|
00000FE0: 13 A0 31 00 E9 17 C5 13 8E 00 EF 17 C9 13 3A 00 |..1...........:.|
00000FF0: 07 18 70 17 8F 20 20 20 20 53 41 56 49 4E 47 20 |..p.. SAVING |
00001000: 52 4F 55 54 49 4E 45 00 0D 18 75 17 3A 00 3C 18 |ROUTINE...u.:.<.|
00001010: 7A 17 99 22 93 11 11 11 1D 1D 52 45 57 49 4E 44 |z.."......REWIND|
00001020: 20 54 41 50 45 20 41 4E 44 20 50 52 45 53 53 20 | TAPE AND PRESS |
00001030: 50 4C 41 59 2F 52 45 43 4F 52 44 22 00 53 18 7F |PLAY/RECORD".S..|
00001040: 17 9F 31 2C 31 2C 31 2C 22 44 41 54 41 20 46 49 |..1,1,1,"DATA FI|
00001050: 4C 45 22 00 5C 18 84 17 98 31 2C 4E 00 68 18 89 |LE".\....1,N.h..|
00001060: 17 81 20 58 B2 31 A4 4E 00 76 18 8E 17 81 20 59 |.. X.1.N.v.... Y|
00001070: B2 31 A4 20 4E 46 00 85 18 93 17 98 31 2C 4E 24 |.1. NF......1,N$|
00001080: 28 58 2C 59 29 00 8C 18 98 17 82 59 00 93 18 9D |(X,Y)......Y....|
00001090: 17 82 58 00 9A 18 A2 17 A0 31 00 A0 18 A7 17 8E |..X......1......|
000010A0: 00 A6 18 AC 17 3A 00 B8 18 58 1B 8F 20 45 4E 44 |.....:...X.. END|
000010B0: 20 52 4F 55 54 49 4E 45 00 BE 18 5D 1B 3A 00 E1 | ROUTINE...].:..|
000010C0: 18 62 1B 99 22 93 91 91 91 9D 9D 9D 42 59 45 20 |.b..".......BYE |
000010D0: 46 4F 52 20 4E 4F 57 20 12 4D 55 46 46 49 4E 92 |FOR NOW .MUFFIN.|
000010E0: 22 00 E7 18 67 1B 80 00 ED 18 6C 1B 8E 00 F6 18 |"...g.....l.....|
000010F0: 40 1F 9F 34 2C 34 00 13 19 45 1F 98 34 2C 41 24 |@..4,4...E..4,A$|
00001100: 3B C7 28 31 36 29 3B 22 34 30 22 3B 4E 24 28 58 |;.(16);"40";N$(X|
00001110: 2C 59 29 00 1A 19 4A 1F A0 34 00 20 19 4F 1F 8E |,Y)...J..4. .O..|
00001120: 00 63 19 10 27 83 20 4E 41 4D 45 2C 52 41 4E 4B |.c..'. NAME,RANK|
00001130: 2C 42 41 44 47 45 20 4E 55 4D 42 45 52 2C 50 4C |,BADGE NUMBER,PL|
00001140: 41 54 4F 4F 4E 2C 41 44 44 52 45 53 53 20 31 2C |ATOON,ADDRESS 1,|
00001150: 41 44 44 52 45 53 53 20 32 2C 52 45 53 20 50 48 |ADDRESS 2,RES PH|
00001160: 4F 4E 45 00 9A 19 15 27 83 20 42 55 53 20 50 48 |ONE....'. BUS PH|
00001170: 4F 4E 45 2C 44 41 54 45 20 4A 4F 49 4E 45 44 2C |ONE,DATE JOINED,|
00001180: 44 41 54 45 20 50 52 4F 4D 4F 54 45 44 2C 42 20 |DATE PROMOTED,B |
00001190: 43 41 52 44 20 28 59 2F 4E 29 00 D1 19 1A 27 83 |CARD (Y/N)....'.|
000011A0: 20 44 41 54 45 20 4F 52 20 49 53 53 55 45 2C 44 | DATE OR ISSUE,D|
000011B0: 4F 43 20 41 20 50 4F 53 2C 44 4F 43 20 42 20 4E |OC A POS,DOC B N|
000011C0: 45 47 2C 50 52 4F 42 41 54 49 4F 4E 53 2C 4C 4F |EG,PROBATIONS,LO|
000011D0: 41 00 1A 1A 1F 27 83 20 50 45 52 46 4F 52 4D 41 |A....'. PERFORMA|
000011E0: 4E 43 45 20 52 45 56 49 45 57 2C 4D 45 45 54 49 |NCE REVIEW,MEETI|
000011F0: 4E 47 53 20 23 50 2C 4D 45 45 54 49 4E 47 53 20 |NGS #P,MEETINGS |
00001200: 23 45 2C 4D 45 45 54 49 4E 47 53 20 23 41 2C 54 |#E,MEETINGS #A,T|
00001210: 4F 54 41 4C 20 48 4F 55 52 53 00 63 1A 24 27 83 |OTAL HOURS.c.$'.|
00001220: 20 43 41 52 2F 42 45 41 54 20 59 2F 54 2F 44 20 | CAR/BEAT Y/T/D |
00001230: 48 52 53 2C 53 50 45 43 49 41 4C 53 20 23 50 2C |HRS,SPECIALS #P,|
00001240: 53 50 45 43 49 41 4C 53 20 23 45 2C 53 50 45 43 |SPECIALS #E,SPEC|
00001250: 49 41 4C 53 20 23 41 2C 54 4F 54 41 4C 20 48 4F |IALS #A,TOTAL HO|
00001260: 55 52 53 00 7B 1A 29 27 83 20 47 52 41 4E 44 20 |URS.{.)'. GRAND |
00001270: 54 4F 54 41 4C 20 59 2F 54 2F 44 00 00 00 |TOTAL Y/T/D... |
....D.. PLATOON FILE PROGRAM.".I.:.>.N..
N$(200,27):NF.27:FF.0.D.S.:.U.X.. NF-NU
MBER OF FIELDS...N$ CONTAINS THE FILE.{.
}.:....."......................MENU."..
....".1 .CREATE THE FILE"......".2
.UPDATE THE FILE."......".3 .REVI
EW THE FILE."......".4 .SORT.".'....
".5 .SAVE.".<....".6 .QUIT.".B.
.:.H....".......YOUR CHOICE PLEASE";YY
......YY.. 1.FF.0 . . 5000......YY .
1000,2000,3000,4000,6000,7000.....FF.1..
....120.E.C...K.H.:...... CREATE THE FIL
E.....:......"...HOW MANY FILES";N.....:
...... X.1. N......".".-.... Y.1 . NF.6.
... A$.?....A$;.M.... N$(X,Y).T....Y.Z..
...B.... X.H.$.:...)..".. PRESS PLAY/REC
ORD ON TAPE"...3.."..........HIT 'C' TO
CONTINUE".H.8.. A$:. A$."". 1080...=..".
...........QUIET. I'M SAVING"...B.:...G.
. SAVING ON TAPE...L..1,1,1,"DATA FILE".
(.Q..1,N.6.V.. X.1 . N.D.[.. Y.1. NF.S.`
..1,N$(X,Y).[.E.. Y.C.J.. X.J.O. 1.P.P..
.V.T.:...P.. UPDATE ROUTINE...U.:...Z.."
...................UPDATE MENU".L...."..
1 .ADD."......"..2 .DELETE."....
.."..3 .CHANGE.".....:.%....".......
YOUR CHOICE PLEASE";C.>.... C . 2500,270
0,2300.`....".ANY MORE UPDATES (Y/N)";D$
.T.... D$."Y" . 2000.Z.......... CHANGE
ROUTINE.....:......".......BADGE # PLEAS
E";BN$.B.... X.1.N...... BN$.N$(X,3). .
2400...... X.....:.........`.. DISPLAY R
ECORD...E.:.0.F.."...HIT .RETURN. FOR NO
CHANGE".?.J.. Y.1 . NF.H.O.. A$.P.T..".
";A$;".";.20);N$(X,Y);" ";"/";.~.Y..".
..";B$...~.. B$.."/" . N$(X,Y).B$......
Y.................:.H.D.. ADD SUBROUTINE
.N.I.:...N.."....HOW MANY NEW RECORDS";N
R...P.."."...S.. X.N.1.N.NR...X.. Y.1.NF
. ....A$.-....A$;" ";.;.... N$(X,Y).B...
.Y.K....".".Q.....X....X.C...N.N.NR.I...
..O...:...... DELETIONS ROUTINE.....:...
...".BADGE NUMBER";BN$.....X.1... .. I.1
. N.I.... J.1. NF...... BN$.N$(I,3) . I.
I.1.....N$(X,J).N$(I,J)...... J.....X.X.
1......I.....N.N.1. .C...&.H.:.;.... REV
IEW ROUTINE.A...:.C.B.."................
......MENU"...G.."..1 REVIEW ENTIRE
FILE"...L.."..2 REVIEW SINGLE RECORD
".J.Q.."..3 REVIEW BY PLATOON"...V..
".............YOUR CHOICE PLEASE.";R....
.. R . 3200,3500,3700.1....".........ANY
MORE REVIEWS";B$.E.... B$."Y" . 3000.K.
....Q...:.J.... ENTIRE FILE REVIEW.P...:
.|...XX$." "......".... DO YOU WISH A PR
INTER COPY";XX$.E....XX$."Y" . .4,4:.4,"
": 4.R.... X.1. N......"."...... Y.1. N
F...... A$......XX$."Y" . . 8000......".
";A$;".";.20);.+....N$(X,Y).>.... Y.13 .
.3950.E....Y.K.....L....".......HIT C T
O CONTINUE."......B$:. B$."" . 3255.....
. X.........A.:...... REVIEW BY BADGE NU
MBER.....:.E...XX$.""......".... DO YOU
WISH A PRINTER COPY";XX$......XX$."Y" .
.4,4:.4," ": 4.3...."......BADGE NUMBER
PLEASE";BN$.?.... X.1.N.H....".".B.... B
N$..N$(X,3) . 3580.O.... Y.1.NF.W.E..A$.
..G.. XX$."Y" . . 8000...J..".";A$;".";.
20);...O..N$(X,Y).D.P.. Y.13 . .3950.K.T
..Y.U.Y.X.N:....... X......".......HIT C
TO CONTINUE"...... G$:. G$."".3582.....
......:.3.4.. Y.13 . . 3950.H.T.. PLATOO
N REVIEW.N.Y.:.Z.{.XX$." "...|..".... DO
YOU WISH A PRINTER COPY";XX$...}..XX$."
Y" . .4,4:.4," ": 4.P.~.."......ENTER PL
ATOON NUMBER PLEASE";PN$...... X.1.N....
.."."...... PN$..N$(X,4) . 3780...... Y.
1.NF."....XX$."Y" . . 8000.+.... A$.A...
.".";A$;".";.20);.N....N$(X,Y).B.... Y.1
3 . . 3950.I....Y.O.....Z.... 3950...D..
X...E..".......HIT C TO CONTINUE"...F..G
$:. G$."" . 3782...I...D.N.:...N..".....
...HIT C TO CONTINUE"...S..G$...X.. G$."
C" . ."."...}.. G$."". 3955.......,. ..
SORT ROUTINE.2...:.V...."...............
...SORT MENU."......".REVIEW THE MENU AN
D PICK THE NUMBER OF THE FIELD YOU WISH
TO BE SORTED"...... Y.1.NF......A$.D....
Y,A$.W.... Y.13 . .3950...... Y...C.....
H.."..PICK A NUMBER.";SF...M..".....SORT
ING".".R.. U.1.N.1.-.W.FLAG.0.;.... V.1.
N.U.].... N$(V,SF).N$(V.1,SF). . 4500.D.
...V.Z.... FLAG .0 . U.N.1......U.......
....:...... SWITCH ROUTINE.....:...... T
.1. NF.E...T$.N$(V,T).....N$(V,T).N$(V.1
,T).....N$(V.1,T).T$...... T.....FLAG .1
.........A.:.".... LOADING ROUTINE.(...:
.K....".........PRESS PLAY ON TAPE".J...
."....HIT 'C' TO CONTINUE"......A$: .
A$."" . 5020......1,1,0,"DATA FILE".....
.1,N...... X.1. N...... Y.1. NF.N....1,N
$(X,Y).U....Y......X...D. 1...E.....I.:.
..P.. SAVING ROUTINE...U.:.<.Z.."....
..REWIND TAPE AND PRESS PLAY/RECORD".S.
..1,1,1,"DATA FILE".\....1,N.H.... X.1.N
.V.... Y.1. NF......1,N$(X,Y)......Y....
..X..... 1. .........:...X.. END ROUTINE
...].:...B..".......BYE FOR NOW .MUFFIN.
"...G.....L.....@..4,4...E..4,A$;G(16);"
40";N$(X,Y)...J. 4. .O...C..'. NAME,RANK
,BADGE NUMBER,PLATOON,ADDRESS 1,ADDRESS
2,RES PHONE....'. BUS PHONE,DATE JOINED,
DATE PROMOTED,B CARD (Y/N).Q..'. DATE OR
ISSUE,DOC A POS,DOC B NEG,PROBATIONS,LO
A....'. PERFORMANCE REVIEW,MEETINGS #P,M
EETINGS #E,MEETINGS #A,TOTAL HOURS.C.$'.
CAR/BEAT Y/T/D HRS,SPECIALS #P,SPECIALS
#E,SPECIALS #A,TOTAL HOURS.{.)'. GRAND
TOTAL Y/T/D...
> CLICK IMAGE PREVIEW FOR FULL MODAL