10 CLS:PRINT"BOOT AND SYSGO PATCH FOR OS-9  REV. 1.01.00 (C) BY ROBERT GAULT
20 PRINT
30 CLEAR500
40 C$=CHR$(&HEF)
50 POKE&HFF40,0
60 INPUT"WHICH DRIVE FOR YOUR OS-9 DISK?  DRIVE #=";DR
70 PRINT:PRINT"PLACE YOUR OS-9 DISK IN DRIVE";DR;"AND HIT <ENTER>":EXEC&HA1B1
80 PRINT
90 DSKI$DR,34,1,A$,B$
100 IFMID$(A$,1,2)<>"OS"THEN PRINT"NOT OS-9 SYSTEM DISK":END
110 MID$(A$,&H4A,1)=C$
120 MID$(A$,&H55,1)=C$
130 DSKO$DR,34,1,A$,B$
140 DSKI$DR,34,2,A$,B$
150 MID$(A$,&H1A,1)=C$
160 DSKO$DR,34,2,A$,B$
170 PRINT:PRINT"FINISHED AND BOOTING!!":PRINT
180 DOS