þþó èX;SAVE #D2:DUPDOS.M65òAWRITE DOS FILESAü%X; **** WRITE DOS & DUP ****X;X;,…WBOOT †DOSDRV;;ADDRESS OF DRIVE # PROMPT$X;.,X; RETRIEVE DRIVE NUMBER FROM USER.8X;B †GETLIN;;GET INPUTL* …GETDN;;GET DRIVE AS NUMBER, VERIFY ITV „PERX;;EXIT IF ERROR`P„UNNO;;SAVE IT FOR TSTVER2jL> 0;;TURN BACK TO ASCII REPt&P‚DS;;STORE IN DOS.SYS FILE SPEC~P„QWMG;;& IN PROMPTˆX;’5 ‡TSTVER2;;TST IF VERS. 2 DISK - IF ISNT WONT RTRNœX;¦>X; ASK USER IF CAN WRITE DOS & DUP TO SPECIFIED DRIVE°X;ºQ>4„QWMG;;PRINT PROMPTÄ $>5„QWMGÎ †DSPLINØ †CHRGETâR> YìHƒWBX;;EXIT UNLESS YöX;GX;TELL USER WRITING DOS FILES AND WRITE DOS.SYS FIRST- JUST OPEN IT. X; Q>4„WBMG $>5„WBMG( †DSPLIN2X;< Q>„OPENF $>;;OPEN DOS.SYS ON IOCB #1P2P…ICCOM9;;WILL CAUSE FMS TO REWRITE BOOT SECTORZQ>4‚DS;;& A COPY OF DOS.SYSd P…ICBAL9n Q>5‚DSx P…ICBAH9‚Q>Œ P…ICAX19–' …CIOCL;;DO OPEN, IF ERROR GOTO MENU X;ª$>´ Q>…CLOSE¾ P…ICCOM9È …CIOCL;;DONE CLOSE IT.ÒX;Ü*X; WRITE DUP.SYS - SWAP AREA FILEæX;ð$> ;;MOVE 11 CHARSú†MDUPBLQ†DUPSYS9.PƒPAR9;;MOVE FILE NAME TO PARAMETER LIST0 H†MDUPBL"Q‚DS;;GET DRIVE NUMBER,(PƒPAR;;PUT IT IN DUP.SYS FILE SPEC6X;@&ƒPTRJ$>T) …PIOCB;;PUT FILE NAME POINTER IN IOCB^ Q>4ƒDTHh P„LDSTr Q>5ƒDTH| P„LDST† Q>4…NMDUP P„LDNDš Q>4ƒLEN¤ P„WDRL® Q>5ƒLEN¸ P„WDRH Q>5…NMDUPÌ P„LDNDÖ 5;;NO /Aà Q>4…DOSOSê P…RUNADô Q>5…DOSOSþ&P…RUNAD;;SET DUP.SYS RUN ADDRESS"„RUNQ;;SET RUN FLAG!†NRUNAD;;WRITE DUP.SYSƒWBX!†MENUSL&.†DOSDRV AœDRIVE TO WRITE DOS FILES TO?A=‚CR0%„WBMG A•WRITING NEW DOS FILESA=‚CRXX;bl=„QWMG A…TYPE A="=AYA="=A™ TO WRITE DOS TO DRIVE .A=‚CR”X;ž‚DS AŠD1:DOS.SYSA=‚CRÆX;Ð,ƒWVD AERROR - NOT VERSION 2 FORMAT.A=‚CRøX; 7X; **** TEST FOR VERSION 2 FORMAT - SUBROUTINE ****X; X;*X;4 X; SUBROUTINE - TSTVER2>X;HIX; READS THE DISK'S VTOC AND CHECKS IF VERSION BYTE IS SET AS 2.RX;\2X; ENTRY - DRIVE # STORED IN UNNOf?X; EXIT - RETURNS ONLY IF IS A VERSION 2 DISKp@X; ELSE DOES AN ERROR EXIT BACK TO MENUz-X; CALLS - DRVSTAT AND RVTOC„6X; CALLED BY - DELFIL, RENFIL, WBOOT.ŽX;˜X;¢IX; GET DRIVE TYPE SO KNOW CORRECT SECTOR SIZE - NEEDED FOR RVTOC¬X;¶ ‡TSTVER2  X; .X; READ THE VTOC & CHECK IF VERSION 2 X;$ &…OKTYP …RVTOC;;READ IN VTOC TO DBUF. Q„DBUF;;1ST BYTE IS VERSION #8 R>;;IS IT VERSION 2?B &F…SMVRS;;YES, SAME VERSION - RETURNL X;V 8X; NOT A VERSION 2 DISK - PRINT MSG & GOTO MENU` X;j "Q>4ƒWVD;;ELSE, NOT SAME VERSIONt "$>5ƒWVD;;PRINT INCOMPATIBLE MSG~ †DSPLINˆ !†MENUSL;;GOTO MENU’ X;œ )X; DISK IS VERSION TWO SO RETURN¦ X;° …SMVRS:;;RETURN