10 P$="COM:98N1DNN":IFPEEK(1)=148THENP$="COM:9N81NN"
20 OPENP$FOROUTPUTAS1
30 PRINT#1,"boot ts-dos";CHR$(13);
40 LOADP$,R