[Coco] Coco3 System problem

[Stephen H. Fischer]

Hi,

Here is "*.bas" from the second disk for OS-9 Level-I.

The name best to use is "DSPEED.BAS".

---------------------------------------

10 GOSUB 220
20 IF Q THEN LOADM CHR$(130)+CHR$(129):EXEC
30 FOR I=0 TO 70
40 READ A$
50 POKE &H5000+I,VAL("&H"+A$)
60 NEXT I
70 CLS:PRINT" INSERT OS9 DISKETTE"
80 PRINT" INTO DRIVE 0 AND PRESS A KEY"
90 A$=INKEY$:IF A$="" THEN 90
100 EXEC &H5000
110 DATA 86,22,8E,26,00,8D,0D
120 DATA FC,26,00,10,83,4F,53
130 DATA 26,03,7E,26,02,39,34
140 DATA 20,10,BE,C0,06,A7,22
150 DATA 86,02,A7,A4,6F,21,6F
160 DATA 23,6C,23,AF,24,10,BE
170 DATA C0,06,A6,23,81,13,27
180 DATA 12,AD,9F,C0,04,4D,27
190 DATA 06,6C,23,6C,24,20,E9
200 DATA 7F,FF,40,35,A0,4F,20
210 DATA F8
220 CLS:PRINT
230 PRINT" OS9 UTILITY DISK VER 01.00.00":PRINT
240 PRINT"--------------------------------":PRINT
250 PRINT"       b  BOOT OS9":PRINT
260 PRINT"       t  TEST DISK DRIVE":PRINT:PRINT
270 PRINT"--------------------------------
280 PRINT"   COPYRIGHT 1983 TANDY CORP.
290 PRINT"     ALL RIGHTS RESERVED
300 A$=""
310 A$=INKEY$
320 IF A$="B" THEN CLS: RETURN
330 IF A$="T" THEN Q=1:RETURN
340 GOTO 300

---------------------------------------

SHF

(This is the right file I hope, it appears to also do the same as "DOS" if 
that command is not in the ROM)