megabyte@chinet.UUCP (Dr. Megabyte) (11/07/86)
Here is a program for your CoCo 3 that will let you change
your track to track seek time from the acient history time
of 35 milleseconds that Shack is using, to more modern faster
values. It also puts the CoCo 3 in the "high Speed" mode, and works
for disk i/o. It will also will give you use of your double sided
drives as 2 single sided drives.
In addition to the above, it will add two command to BASIC to
save and load high-res graphic screens to disk. Enjoy!
The program was written by Steve Bjork, one of the finest CoCo
programmer around. He has put it in the public domain as a service
to all CoCo 3 owners
--------------------------CUT HERE---------------------------------
1 CLEAR 500,&H6FFF:M=&H7000
2 WIDTH 40:CLS5:P=M:LN=500
3 PRINT TAB(18);"DFIX"
4 PRINT TAB(13);"by Steve Bjork":PRINT
5 PRINT " Copyright 1986 by SRB Software":PRINT
6 PRINT " Placed in Public Domain on 11/03/86":PRINT
7 PRINT "This program will configer a DFIX file for your Color Computer 3 system.":PRINT
8 PRINT "DFIX will let the three run at double speed at all times, even with disk I/O.":PRINT
9 PRINT "Two new commands LOADS 'filenmame' and SAVES 'filename' are also added to load and save the new Hi-Res screens.":PRINT
10 PRINT "DFIX will also change the step rate of the disk drives and make them double sided too."
11 READ L$,C:S=0
12 LOCATE 0,22:PRINT"Working on line";LN
13 FOR X=0 TO 15
14 V=VAL("&H"+MID$(L$,X*2+1,2))
15 POKE P,V:S=S+V:P=P+1
16 NEXT X
17 IF C<>S THEN PRINT "Data Error in Line";LN:END
18 LN=LN+10:IF P<M+&H2E4 THEN 11
19 LOCATE 0,22:PRINT "Press enter to continue"
20 IF INKEY$<>CHR$(13) THEN 20
21 CLS:PRINT "1 - Fast 6 ms step rate"
22 PRINT "2 - 6 ms step rate"
23 PRINT "3 - 12 ms step rate"
24 PRINT "4 - 20 ms step rate"
25 PRINT "5 - 30/40 ms step rate"
26 PRINT
27 INPUT "Enter 1-5 for drive rate";R
28 IF R<1 OR R>5 THEN 21
29 POKE M,R:PRINT
30 INPUT "Are you using Double Sided drivers (Y/N)";Y$
31 IF Y$<>"Y" AND Y$<>"N" THEN 30
32 IF Y$="Y" THEN POKE M+1,255 ELSE POKE M+1,0
33 LINE INPUT "Enter the filename to save the file under - ";F$
34 IF F$="" THEN 33
35 SAVEM F$,&H7000,&H72EF,&H7219
36 CLS:PRINT"To use DFIX, just type in....":PRINT
37 PRINT "LOADM ";CHR$(34);F$;CHR$(34);":EXEC <enter key>"
38 PRINT
39 PRINT "You need to do this after turning on"
40 PRINT "the Computer or after pressing the"
41 PRINT "RESET button."
42 DATA "00FF8153271A7EC9E004201C00001020",1195
43 DATA "20201802201C00000420202018485253",511
44 DATA "9D9F96E62756308CF48D548D5596E68D",2225
45 DATA "54B6E6788D4F96E64AC6053D338CCA33",1998
46 DATA "C5E6C08EE678A6808D3B5A26F9863034",2216
47 DATA "428E2000A6C45F1F02F6FFA1A6E41A50",1892
48 DATA "B7FFA1A680F7FFA11CEF8D19313F26E9",2372
49 DATA "35424CE6C0C12027D67EA42D7EB44A7E",1936
50 DATA "C9387ECA0A7ECC247ECA077EC5C47EC3",2136
51 DATA "52815327037ECA489D9F308C808DE08D",1874
52 DATA "E78DE81F894FBDE6968DE0B7FF9A96E6",2757
53 DATA "338DFF554AC6053D33C5E6C08EFFB010",2129
54 DATA "8EE6788DC6A780A7A05A26F786303442",2128
55 DATA "8E2000A6C45F1F028DB1D67026B0F6FF",2023
56 DATA "A13404E6611A50F7FFA1A7803504F7FF",2167
57 DATA "A11CEF313F26E135424CE6C0C12027CE",1890
58 DATA "7EA42DB60134810D27239EA63410BDB1",1544
59 DATA "568E01A99F0B35100D062B0FBDB3ED10",1335
60 DATA "8300032203D7EB397EA61F9FA68E0954",1561
61 DATA "16FF4C8D0F8E0000301F2707B6FF4885",1418
62 DATA "0126F5393405C60F5A26FD3585C4013A",1433
63 DATA "E68439D6EBC4016F8539C1FBC205D3CC",2424
64 DATA "D7D1C938CA04CC24CA07C5C4C352D78C",2361
65 DATA "D7F1D7C0D816D77DD60ED617D7C4D81A",2559
66 DATA "D7E4D851D804D7BBD89FC1E5C1EFD2DF",3024
67 DATA "D6ECC88AC956CB52C959C597C334D699",2612
68 DATA "D6FED6CDD723D521D68AD52AD6D1D727",2667
69 DATA "D6F1D75ED711D6C8D7AC068E8000BDA7",2429
70 DATA "D3021117010001140100010000068E00",425
71 DATA "00BDA7D302222E010001140100010000",673
72 DATA "06BDA7D1BDA7D102222E010101150100",1243
73 DATA "01000006BDA7D1BDA7D102445C010201",1303
74 DATA "16010001000006BDA7D1BDA7D102445C",1322
75 DATA "01030117010001000034011A50CE715A",598
76 DATA "FCC0041083D75F270BCE718A1083D66C",1881
77 DATA "27023581AEC1EC841083D98F27F4EC84",2116
78 DATA "FD7096CCD98FED84AEC1EC84FD7007CC",2759
79 DATA "D900ED84CCDA01EDD1AEC1867EA780CC",2581
80 DATA "DA31ED84C6068E708010AEC110AF8130",1973
81 DATA "015A26F5108E71BAB670008104230286",1429
82 DATA "04C6133D31ABE6A0270BAEC1A6A0A780",1930
83 DATA "5A26F920F1C60510AEC18E12BDAFA18E",2063
84 DATA "DA42AFA45A26F0B67001271CAEC186BD",2043
85 DATA "A780CCDA4BED84AEC1CC12BDED81CCDA",2727
86 DATA "51ED84CC4142EDD1CE70028ED900108E",2068
87 DATA "0158A6C0A780313F26F8CC1212FDE6C6",2061
88 DATA "B7FFD935810000000000000000000000",837
-------------------------AND CUT HERE------------------------
--
UUCP: (1) seismo!why_not!scsnet!sunder Mark E. Sunderlin
(2) ihnp4!chinet!megabyte aka Dr. Megabyte
CIS: 74026,3235 (202) 634-2529
Mail: IRS PM:PFR:D:NO 1111 Constitution Ave. NW Washington,DC 20224