COMPARE
FILE INFORMATION
FILENAME(S): COMPARE
FILE TYPE(S): PRG
FILE SIZE: 1.5K
FIRST SEEN: 2025-11-30 21:07:11
APPEARS ON: 1 disk(s)
FILE HASH
38f74f724b583947c2f5100653e60964c67622d81e8ddb6ba27e05d1be1a157f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CURSOR 6 | COMPARE | PRG | DuncanTwain | 24 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 25 04 00 00 9C 3A 50 47 24 B2 22 43 4F 4D |..%....:PG$."COM|
00000010: 50 41 52 45 22 3A 4E 4D 24 B2 22 32 32 22 3A 89 |PARE":NM$."22":.|
00000020: 36 32 30 30 30 00 37 04 01 00 22 20 47 4C 45 4E |62000.7..." GLEN|
00000030: 20 46 49 53 48 45 52 00 3D 04 04 00 22 00 58 04 | FISHER.=...".X.|
00000040: 05 00 22 20 43 55 52 53 4F 52 20 23 32 32 2C 20 |.." CURSOR #22, |
00000050: 53 45 50 20 31 39 38 30 00 7E 04 06 00 22 20 43 |SEP 1980.~..." C|
00000060: 4F 50 59 52 49 47 48 54 28 43 29 31 39 38 30 20 |OPYRIGHT(C)1980 |
00000070: 54 48 45 20 43 4F 44 45 20 57 4F 52 4B 53 00 9F |THE CODE WORKS..|
00000080: 04 07 00 22 20 42 4F 58 20 35 35 30 2C 20 47 4F |..." BOX 550, GO|
00000090: 4C 45 54 41 2C 20 43 41 2E 20 39 33 30 31 37 00 |LETA, CA. 93017.|
000000A0: A5 04 08 00 22 00 BB 04 0A 00 22 20 41 53 20 4F |...."....." AS O|
000000B0: 46 20 4F 43 54 20 31 30 20 38 30 00 D0 04 64 00 |F OCT 10 80...d.|
000000C0: 86 45 4F 46 28 33 29 3A 4E 55 24 B2 C7 28 30 29 |.EOF(3):NU$..(0)|
000000D0: 00 F7 04 6E 00 56 24 B2 C7 28 31 29 AA C7 28 34 |...n.V$..(1)..(4|
000000E0: 29 3A 42 4C 24 B2 22 20 20 20 20 20 20 20 20 20 |):BL$." |
000000F0: 20 20 20 20 20 20 22 00 29 05 78 00 48 59 24 B2 | ".).x.HY$.|
00000100: 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |"---------------|
00000110: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000120: 2D 2D 2D 2D 2D 2D 2D 2D 22 00 33 05 82 00 4F 4C |--------".3...OL|
00000130: B2 AB 31 00 41 05 8C 00 86 54 4B 24 28 31 32 38 |..1.A....TK$(128|
00000140: 29 00 58 05 96 00 81 49 B2 30 A4 37 34 3A 87 54 |).X....I.0.74:.T|
00000150: 4B 24 28 49 29 3A 82 49 00 91 05 A0 00 99 22 44 |K$(I):.I......"D|
00000160: 4F 20 59 4F 55 20 48 41 56 45 20 41 20 50 52 49 |O YOU HAVE A PRI|
00000170: 4E 54 45 52 3F 20 22 3B 3A 8D 36 30 30 30 30 3A |NTER? ";:.60000:|
00000180: 50 52 B2 28 C8 28 49 4E 24 2C 31 29 B2 22 59 22 |PR.(.(IN$,1)."Y"|
00000190: 29 00 9E 05 AA 00 9F 31 35 2C 38 2C 31 35 00 C3 |)......15,8,15..|
000001A0: 05 B4 00 99 22 11 43 4F 4D 50 41 52 45 20 57 48 |....".COMPARE WH|
000001B0: 41 54 20 46 49 4C 45 2E 2E 2E 22 3B 3A 8D 36 30 |AT FILE...";:.60|
000001C0: 30 30 30 00 D3 05 BE 00 8B 49 4E 24 B2 22 22 A7 |000......IN$."".|
000001D0: 36 36 30 00 F4 05 C8 00 4F 46 24 B2 49 4E 24 3A |660.....OF$.IN$:|
000001E0: 9F 31 2C 38 2C 32 2C 22 30 3A 22 AA 4F 46 24 AA |.1,8,2,"0:".OF$.|
000001F0: 22 2C 50 22 00 0A 06 D2 00 8D 31 30 37 30 3A 8B |",P"......1070:.|
00000200: 45 52 A7 A0 31 3A 89 31 38 30 00 1E 06 DC 00 4E |ER..1:.180.....N|
00000210: B2 31 3A 8D 39 32 30 3A 54 24 B2 4E 4D 24 00 52 |.1:.920:T$.NM$.R|
00000220: 06 E6 00 8B 54 24 B3 B1 56 24 A7 99 22 11 22 3B |....T$..V$..".";|
00000230: 4F 46 24 3B 22 20 49 53 4E 27 54 20 41 20 42 41 |OF$;" ISN'T A BA|
00000240: 53 49 43 20 46 49 4C 45 2E 22 3A A0 31 3A 89 31 |SIC FILE.":.1:.1|
00000250: 38 30 00 73 06 F0 00 99 22 11 57 49 54 48 20 57 |80.s....".WITH W|
00000260: 48 41 54 20 46 49 4C 45 3F 20 22 3B 3A 8D 36 30 |HAT FILE? ";:.60|
00000270: 30 30 30 00 94 06 FA 00 4E 46 24 B2 49 4E 24 3A |000.....NF$.IN$:|
00000280: 9F 32 2C 38 2C 33 2C 22 30 3A 22 AA 4E 46 24 AA |.2,8,3,"0:".NF$.|
00000290: 22 2C 50 22 00 AA 06 04 01 8D 31 30 37 30 3A 8B |",P"......1070:.|
000002A0: 45 52 A7 A0 32 3A 89 32 34 30 00 BE 06 0E 01 4E |ER..2:.240.....N|
000002B0: B2 32 3A 8D 39 32 30 3A 55 24 B2 4E 4D 24 00 F2 |.2:.920:U$.NM$..|
000002C0: 06 18 01 8B 55 24 B3 B1 56 24 A7 99 22 11 22 3B |....U$..V$..".";|
000002D0: 4E 46 24 3B 22 20 49 53 4E 27 54 20 41 20 42 41 |NF$;" ISN'T A BA|
000002E0: 53 49 43 20 46 49 4C 45 2E 22 3A A0 32 3A 89 32 |SIC FILE.":.2:.2|
000002F0: 34 30 00 04 07 22 01 8B 50 52 A7 9F 34 2C 34 3A |40..."..PR..4,4:|
00000300: 89 33 31 30 00 0D 07 2C 01 9F 34 2C 33 00 28 07 |.310...,..4,3.(.|
00000310: 36 01 4E B2 31 3A 8D 38 36 30 3A 4C 31 B2 4C 4E |6.N.1:.860:L1.LN|
00000320: 3A 53 31 24 B2 49 4E 24 00 43 07 40 01 4E B2 32 |:S1$.IN$.C.@.N.2|
00000330: 3A 8D 38 36 30 3A 4C 32 B2 4C 4E 3A 53 32 24 B2 |:.860:L2.LN:S2$.|
00000340: 49 4E 24 00 60 07 4A 01 99 4C 31 3B 22 9D 20 3A |IN$.`.J..L1;". :|
00000350: 22 3B 4C 32 3B 22 91 22 3A 8B 50 52 A7 33 38 30 |";L2;".":.PR.380|
00000360: 00 73 07 54 01 A1 54 24 3A 8B 54 24 B2 22 22 A7 |.s.T..T$:.T$."".|
00000370: 33 38 30 00 91 07 5E 01 99 A3 C3 28 42 4C 24 29 |380...^....(BL$)|
00000380: 29 3B 22 12 50 52 45 53 53 20 41 20 4B 45 59 91 |);".PRESS A KEY.|
00000390: 22 00 A4 07 68 01 A1 54 24 3A 8B 54 24 B2 22 22 |"...h..T$:.T$.""|
000003A0: A7 33 36 30 00 B9 07 72 01 99 A3 C3 28 42 4C 24 |.360...r....(BL$|
000003B0: 29 29 3B 42 4C 24 3B 22 91 00 D5 07 7C 01 91 32 |));BL$;"....|..2|
000003C0: AA B4 28 4C 31 AB 4C 32 29 89 34 30 30 2C 34 35 |..(L1.L2).400,45|
000003D0: 30 2C 35 37 30 00 E1 07 90 01 54 54 24 B2 22 2D |0,570.....TT$."-|
000003E0: 22 00 F7 07 9A 01 4C 4E B2 4C 31 3A 53 24 B2 53 |".....LN.L1:S$.S|
000003F0: 31 24 3A 8D 37 34 30 00 0D 08 A4 01 4E B2 31 3A |1$:.740.....N.1:|
00000400: 8D 38 36 30 3A 8B 45 4F 46 A7 36 32 30 00 24 08 |.860:.EOF.620.$.|
00000410: AE 01 4C 31 B2 4C 4E 3A 53 31 24 B2 49 4E 24 3A |..L1.LN:S1$.IN$:|
00000420: 89 33 33 30 00 35 08 C2 01 8B 53 31 24 B2 53 32 |.330.5....S1$.S2|
00000430: 24 A7 35 30 30 00 41 08 CC 01 54 54 24 B2 22 2D |$.500.A...TT$."-|
00000440: 22 00 57 08 D6 01 4C 4E B2 4C 31 3A 53 24 B2 53 |".W...LN.L1:S$.S|
00000450: 31 24 3A 8D 37 34 30 00 63 08 E0 01 54 54 24 B2 |1$:.740.c...TT$.|
00000460: 22 2B 22 00 79 08 EA 01 4C 4E B2 4C 32 3A 53 24 |"+".y...LN.L2:S$|
00000470: B2 53 32 24 3A 8D 37 34 30 00 81 08 F4 01 44 B2 |.S2$:.740.....D.|
00000480: 30 00 99 08 FE 01 4E B2 31 3A 8D 38 36 30 3A 8B |0.....N.1:.860:.|
00000490: 45 4F 46 A7 44 B2 44 AA 31 00 AB 08 08 02 4C 31 |EOF.D.D.1.....L1|
000004A0: B2 4C 4E 3A 53 31 24 B2 49 4E 24 00 C3 08 12 02 |.LN:S1$.IN$.....|
000004B0: 4E B2 32 3A 8D 38 36 30 3A 8B 45 4F 46 A7 44 B2 |N.2:.860:.EOF.D.|
000004C0: 44 AA 32 00 D5 08 1C 02 4C 32 B2 4C 4E 3A 53 32 |D.2.....L2.LN:S2|
000004D0: 24 B2 49 4E 24 00 EE 08 26 02 91 44 AA 31 89 33 |$.IN$...&..D.1.3|
000004E0: 33 30 2C 36 32 30 2C 36 31 30 2C 36 36 30 00 FA |30,620,610,660..|
000004F0: 08 3A 02 54 54 24 B2 22 2B 22 00 10 09 44 02 4C |.:.TT$."+"...D.L|
00000500: 4E B2 4C 32 3A 53 24 B2 53 32 24 3A 8D 37 34 30 |N.L2:S$.S2$:.740|
00000510: 00 26 09 4E 02 4E B2 32 3A 8D 38 36 30 3A 8B 45 |.&.N.N.2:.860:.E|
00000520: 4F 46 A7 36 31 30 00 3D 09 58 02 4C 32 B2 4C 4E |OF.610.=.X.L2.LN|
00000530: 3A 53 32 24 B2 49 4E 24 3A 89 33 33 30 00 58 09 |:S2$.IN$:.330.X.|
00000540: 62 02 4E B2 31 3A 49 4E 24 B2 53 31 24 3A 4C 4E |b.N.1:IN$.S1$:LN|
00000550: B2 4C 31 3A 89 36 33 30 00 73 09 6C 02 4E B2 32 |.L1:.630.s.l.N.2|
00000560: 3A 49 4E 24 B2 53 32 24 3A 4C 4E B2 4C 32 3A 89 |:IN$.S2$:LN.L2:.|
00000570: 36 33 30 00 87 09 76 02 54 54 24 B2 CA 28 22 2D |630...v.TT$..("-|
00000580: 2B 22 2C 4E 2C 31 29 00 97 09 80 02 53 24 B2 49 |+",N,1).....S$.I|
00000590: 4E 24 3A 8D 37 34 30 00 AB 09 8A 02 8D 38 36 30 |N$:.740......860|
000005A0: 3A 8B 45 4F 46 B2 30 A7 36 34 30 00 B1 09 94 02 |:.EOF.0.640.....|
000005B0: 99 00 CF 09 9E 02 8B 4F 4C B3 30 A7 99 22 11 4E |.......OL.0..".N|
000005C0: 4F 20 44 49 46 46 45 52 45 4E 43 45 53 2E 22 00 |O DIFFERENCES.".|
000005D0: FA 09 A8 02 8B 4F 4C B1 B2 30 A7 98 34 2C 48 59 |.....OL..0..4,HY|
000005E0: 24 3A 98 34 2C 22 2D 20 22 3B 4F 46 24 3B 22 20 |$:.4,"- ";OF$;" |
000005F0: 20 20 20 2B | + |
..%....:PG$."COMPARE":NM$."22":.62000.7.
.." GLEN FISHER.=...".X..." CURSOR #22,
SEP 1980.~..." COPYRIGHT(C)1980 THE CODE
WORKS....." BOX 550, GOLETA, CA. 93017.
...."....." AS OF OCT 10 80.P.D..EOF(3):
NU$.G(0)...N.V$.G(1).G(4):BL$."
".).X.HY$."-----------------------
----------------".3...OL..1.A....TK$(128
).X....I.0.74:.TK$(I):.I... .."DO YOU HA
VE A PRINTER? ";:.60000:PR.(H(IN$,1)."Y"
)......15,8,15.C....".COMPARE WHAT FILE.
..";:.60000.S....IN$."".660...H.OF$.IN$:
.1,8,2,"0:".OF$.",P"...R..1070:.ER. 1:.1
80.....N.1:.920:T$.NM$.R....T$..V$..".";
OF$;" ISN'T A BASIC FILE.": 1:.180.S....
".WITH WHAT FILE? ";:.60000.....NF$.IN$:
.2,8,3,"0:".NF$.",P"......1070:.ER. 2:.2
40.....N.2:.920:U$.NM$......U$..V$..".";
NF$;" ISN'T A BASIC FILE.": 2:.240..."..
PR..4,4:.310...,..4,3.(.6.N.1:.860:L1.LN
:S1$.IN$.C.@.N.2:.860:L2.LN:S2$.IN$.`.J.
.L1;". :";L2;".":.PR.380.S.T..T$:.T$."".
380...^...C(BL$));".PRESS A KEY."...H..T
$:.T$."".360...R...C(BL$));BL$;"..U.|..2
..(L1.L2).400,450,570.....TT$."-".....LN
.L1:S$.S1$:.740.....N.1:.860:.EOF.620.$.
..L1.LN:S1$.IN$:.330.5.B..S1$.S2$.500.A.
L.TT$."-".W.V.LN.L1:S$.S1$:.740.C...TT$.
"+".Y...LN.L2:S$.S2$:.740.....D.0.....N.
1:.860:.EOF.D.D.1.....L1.LN:S1$.IN$.C...
N.2:.860:.EOF.D.D.2.U...L2.LN:S2$.IN$...
&..D.1.330,620,610,660...:.TT$."+"...D.L
N.L2:S$.S2$:.740.&.N.N.2:.860:.EOF.610.=
.X.L2.LN:S2$.IN$:.330.X.B.N.1:IN$.S1$:LN
.L1:.630.S.L.N.2:IN$.S2$:LN.L2:.630...V.
TT$.J("-+",N,1).....S$.IN$:.740......860
:.EOF.0.640.......O....OL.0..".NO DIFFER
ENCES."......OL..0..4,HY$:.4,"- ";OF$;"
+
> CLICK IMAGE PREVIEW FOR FULL MODAL