home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_05_1985_Transactor_Publishing.d64
/
file compare.c64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
60 lines
0 rem the transactor volume 5 issue 06 page 71
10 rem save"@0:filcomp c64.dat",8
100 rem ** rte/84 - data to create 'file compare c64' on diskette as prg
110 input"drive #, new program name ";dr$,fl$
120 open 15,8,15: open 5,8,5,(dr$)+":"+fl$+",p,w"
130 input#15,e,e$,b,c: if e then close 15: print e,e$,b,c: stop
140 for j= 2049 to 2433 : read x: print#5,chr$(x);: ch=ch+x: next: close5
150 if ch<> 38861 then print"checksum error": end
160 print"** program complete **": end
170 :
180 data 1, 8, 37, 8, 10, 0, 158, 32
190 data 50, 48, 56, 55, 32, 58, 32, 42
200 data 42, 32, 70, 73, 76, 69, 32, 67
210 data 79, 77, 80, 65, 82, 69, 32, 67
220 data 54, 52, 32, 42, 42, 0, 0, 0
230 data 160, 9, 169, 71, 32, 30, 171, 32
240 data 207, 255, 56, 233, 48, 133, 90, 201
250 data 3, 48, 244, 233, 5, 176, 240, 169
260 data 13, 32, 210, 255, 169, 0, 133, 183
270 data 169, 1, 133, 184, 165, 90, 133, 186
280 data 169, 255, 133, 185, 32, 74, 243, 169
290 data 0, 133, 87, 133, 88, 162, 5, 160
300 data 9, 169, 97, 32, 11, 9, 162, 6
310 data 160, 9, 169, 97, 32, 11, 9, 165
320 data 145, 201, 127, 208, 3, 76, 246, 8
330 data 162, 5, 32, 198, 255, 32, 207, 255
340 data 133, 89, 32, 204, 255, 162, 6, 32
350 data 198, 255, 32, 207, 255, 72, 165, 144
360 data 133, 91, 32, 204, 255, 104, 197, 89
370 data 240, 78, 72, 162, 1, 32, 201, 255
380 data 169, 36, 32, 210, 255, 165, 88, 32
390 data 49, 9, 165, 88, 32, 61, 9, 165
400 data 87, 32, 49, 9, 165, 87, 32, 61
410 data 9, 169, 32, 32, 210, 255, 169, 36
420 data 32, 210, 255, 165, 89, 32, 49, 9
430 data 165, 89, 32, 61, 9, 169, 32, 32
440 data 210, 255, 169, 36, 32, 210, 255, 104
450 data 72, 32, 49, 9, 104, 32, 61, 9
460 data 169, 13, 32, 210, 255, 32, 204, 255
470 data 230, 87, 165, 87, 208, 2, 230, 88
480 data 165, 91, 208, 3, 76, 110, 8, 169
490 data 1, 32, 145, 242, 169, 5, 32, 145
500 data 242, 169, 6, 32, 145, 242, 32, 204
510 data 255, 76, 116, 164, 134, 184, 134, 185
520 data 32, 30, 171, 32, 96, 165, 162, 0
530 data 189, 0, 2, 240, 3, 232, 208, 248
540 data 134, 183, 169, 0, 133, 187, 169, 2
550 data 133, 188, 169, 8, 133, 186, 32, 74
560 data 243, 96, 74, 74, 74, 74, 170, 189
570 data 112, 9, 32, 210, 255, 96, 41, 15
580 data 170, 189, 112, 9, 32, 210, 255, 96
590 data 51, 41, 32, 83, 67, 82, 69, 69
600 data 78, 32, 79, 82, 32, 52, 41, 32
610 data 80, 82, 73, 78, 84, 69, 82, 32
620 data 58, 0, 68, 82, 35, 58, 70, 73
630 data 76, 69, 78, 65, 77, 69, 32, 62
640 data 0, 48, 49, 50, 51, 52, 53, 54
650 data 55, 56, 57, 65, 66, 67, 68, 69
660 data 70