[Coco] Re: Disk Basic and 512 byte block floppies.

[Torsten Dittel]

Err... what about that:

10 'UNCLICKER
20 'BY L. TODD KNUDSEN
30 '
40 CLEAR1000
50 CLS:WIDTH40:PALETTE8,63:PALETTE0,0
60 LOCATE5,0:ATTR0,2
70 PRINT"  T H E  U N C L I C K E R  ";
80 ATTR0,0
90 PRINT
100 PRINT
110 PRINT"           L. TODD KNUDSEN"
120 PRINT"            -  freeware  -"
130 PRINT
140 PRINT"This program will modify your MAX - 10"
150 PRINT"wordprocessor so it will not  need the"
160 PRINT"clicker to operate."
170 PRINT
180 PRINT"To modify yours place a backup copy of"
190 PRINT"MAX - 10 in drive 0 and press ENTER."
200 PRINT
210 PRINT
220 PRINT"NOTE:  Each backup of MAX - 10  should"
230 PRINT"       only be modified once."
240 LINEINPUT I$
250 DSKI$ 0,6,8,A$,B$
260 MID$(B$,128,1)=CHR$(ASC(RIGHT$(B$,1))-1)
270 DSKO$ 0,6,8,A$,B$
280 PRINT
290 PRINT"All done..."