10 REM       ÄÏÓ  ÃÏÍíáîäåò          ›11 REM By Tom McComb [CIS 73147,3171],          (TCS 1023), Sysop @orner Pub                BBS 718-351-2399›12 REM FEB. 1986 VON/OFF, COLOR DOS BY            TOM MCCOMB, BASICON/OFF BY            BILL WILKINSON OF OSS.›14 REM  Ð Õ Â Ì É Ã  Ä Ï Í Á É Î ›15 GOSUB 20000:REM INIT ROUTINE›20 TRAP 20:CLOSE #1:GRAPHICS 1:POKE 710,48:POKE 712,48:POKE 709,84:POKE 708,6:POKE 711,68:POKE 752,1›28 ? #6;"    DOS.COMíáîäåò":? #6;""›30 ? #6;"":? #6;"        ðõóè"›31 ? #6;"":? #6;"":? #6;"Option for COLOR.COM"›33 ? #6;"":? #6;"":? #6;"Select for âáóéã®ãïí"›35 ? #6;"":? #6;"":? #6;"Start for VERIFY.COM"›37 ? "     DOS.COMmander by Tom McComb"›39 ? "       CIS 73147,3171 TCS 1023 "›40 ? "     @orner Pub BBS 718-351-2399"›41 ? "   ÐÒÅÓÓ §ÈÅÌЧ ÆÏÒ ÄÏÃÕÍÅÎÔÁÔÉÏΠ  "›50 X=PEEK(53279):IF X=3 THEN GOTO 70›60 IF X=5 THEN GOTO 6000›62 IF X=6 THEN GOTO 2000›63 IF PEEK(732)=17 THEN GOTO 10000›64 GOTO 50›69 REM ÃÏÌÏÒ ÄÏÓ ÃÏÍ ÆÉÌÅ ÍÁËÅÒ›70 GRAPHICS 0:POKE 752,1›80 ? "Use ÏÐÔÉÏÎ to choose color register"›90 ? "    Use ÓÅÌÅÃÔ to choose colors"›95 ? " Use ÓÔÁÒÔ to write .COM file to disk."›100 POSITION 15,2:? " ÂÁÃËÇÒÏÕÎÄ "›160 FILE$="               "›200 GOSUB CONSOLE›210 IF KEY=5 THEN GOSUB CHANGE›220 IF KEY=6 THEN GOSUB WRITE›490 FOR X=1 TO 30:NEXT X›499 GOTO 200›500 KEY=PEEK(53279):IF KEY=3 THEN REG=REG+1:IF REG>3 THEN REG=1›510 IF REG=1 THEN POSITION 15,2:? " ÂÁÃËÇÒÏÕÎÄ "›520 IF REG=2 THEN POSITION 15,2:? " ÌÅÔÔÅÒÉÎÇ  "›530 IF REG=3 THEN POSITION 15,2:? "  ÂÏÒÄÅÒÓ   "›540 RETURN ›600 LUME=LUME+2:IF LUME>14 THEN LUME=0:HUE=HUE+1:IF HUE>15 THEN HUE=0›620 VALUE=(HUE*16)+LUME›630 IF REG=3 THEN POKE 712,VALUE›640 IF REG=2 THEN POKE 709,VALUE›650 IF REG=1 THEN POKE 710,VALUE›699 RETURN ›700 ? "}":POSITION 2,5:? "SUGGESTED filename: RED or GREEN etc."›710 ? "INCLUDE FILESPEC....i.e D2:"›720 ? "DO NOT INCLUDE EXTENDER, .COM WILL"›730 ? "BE USED. INPUT filename: ";:INPUT FILE$›740 IF FILE$="" THEN GOTO 200›750 IF LEN(FILE$)>11 THEN GOTO 700›760 IF FILE$(1,1)<>"D" THEN GOTO 700›770 IF FILE$(2,2)<>":" AND FILE$(3,3)<>":" THEN GOTO 700›780 ? "  ÉÎÓÅÒÔ ÔÁÒÇÅÔ ÄÉÓË ÁÎÄ ÐÒÅÓÓ ÒÅÔÕÒΠ"›790 INPUT GO$›795 FILE$(LEN(FILE$)+1,LEN(FILE$)+4)=".COM"›799 TRAP MENU›800 OPEN #1,8,0,FILE$›810 PUT #1,255:PUT #1,255:PUT #1,0:PUT #1,6:PUT #1,18:PUT #1,6:PUT #1,169›820 PUT #1,PEEK(710):REM BACKGROUND›830 PUT #1,141:PUT #1,198:PUT #1,2:PUT #1,169›840 PUT #1,PEEK(709):REM LETTERS›850 PUT #1,141:PUT #1,197:PUT #1,2:PUT #1,169›860 PUT #1,PEEK(712):REM BORDERS›870 PUT #1,141:PUT #1,200:PUT #1,2:PUT #1,76:PUT #1,121:PUT #1,25›880 PUT #1,0:PUT #1,224:PUT #1,2:PUT #1,225:PUT #1,2:PUT #1,0:PUT #1,6›900 CLOSE #1›1000 ? "      ÃÏÍÐÌÅÔÅÄ      "›1010 FOR X=1 TO 200:NEXT X›1015 GOSUB DIRECTORY›1020 GOTO MENU›1999 REM ÖÅÒÉÆÙ ÏίÏÆÆ ÃÏÍ ÆÉÌÅ ÍÁËÅÒ›2000 GRAPHICS 0:POKE 710,80:? "INSERT DISK TO RECIEVE THE FILES:":? "       VON.COM AND VOFF.COM"›2001 TRAP MENU:POKE 752,1›2010 ? "      HIT RETURN WHEN READY";›2020 INPUT X$:POKE 712,64›2100 LINE=3000:GOSUB 5000›2200 LINE=4000:GOSUB 5000›2255 GOSUB DIRECTORY›2300 GOTO MENU›3000 DATA 255,255,0,6,08,6,169,87,141,121,07,76,121,25,0,224,2,225,2,0,6›4000 DATA 255,255,0,6,08,6,169,80,141,121,07,76,121,25,0,224,2,225,2,0,6›5000 RESTORE LINE:IF LINE=3000 THEN NAME$="D:VON.COM"›5100 IF LINE=4000 THEN NAME$="D:VOFF.COM"›5200 OPEN #1,8,0,NAME$›5300 FOR CNT=1 TO 21:READ BYTE›5400 PUT #1,BYTE:NEXT CNT›5500 CLOSE #1›5600 RETURN ›6000 REM ÂÁÓÉàϯÏÆÆ ÃÏÍ ÆÉÌÅ ÍÁËÅÒ›6001 TRAP MENU›6010 GRAPHICS 0:POKE 710,96:? "INSERT DISK TO RECIEVE THE BASICON.COM":? "AND BASICOFF.COM FILES IN DRIVE #1."›6020 ? "HIT RETURN WHEN READY....";:POKE 752,1›6030 INPUT X$:POKE 712,66›6100 LINE=8000:GOSUB 7000›6200 LINE=9000:GOSUB 7000›6255 GOSUB DIRECTORY›6300 GOTO MENU›7000 RESTORE LINE:IF LINE=8000 THEN NAME$="D:BASICOFF.COM"›7100 IF LINE=9000 THEN NAME$="D:BASICON.COM"›7200 OPEN #1,8,0,NAME$›7300 FOR CNT=1 TO 57:READ BYTE›7400 PUT #1,BYTE:NEXT CNT›7500 CLOSE #1›7600 RETURN ›8100 DATA 255,255,0,4,44,4,173,1,211,9,2,141,1›8300 DATA 211,169,1,141,248,3,169,12,32,24,4›8400 DATA 169,192,133,106,169,3,141,66,3,169,42›8600 DATA 141,68,3,169,4,141,69,3,162,0,76,86›8700 DATA 228,69,58,0,226,2,227,2,0,4›9100 DATA 255,255,0,4,44,4,173,1,211,41,253,141›9300 DATA 1,211,169,0,141,248,3,169,12,32,24,4›9400 DATA 169,160,133,106,169,3,141,66,3,169,42›9500 DATA 141,68,3,169,4,141,69,3,162,0,76,86›9700 DATA 228,69,58,0,226,2,227,2,0,4›10000 GRAPHICS 0:POKE 732,0:POKE 710,194›10010 ? "ýThis program will write several files for you. All of the files are binary"›10020 ? "load files. The COLOR section allows  you to create as many different customcolor DOS screens as you like"›10030 ? "The BASIC section will write two filesto drive one: BASICON.COMBASICOFF.COM"›10040 ? "When binary loaded from DOS on an XL  or XE machine, they will toggle the   Built In Basic."›10050 ? "The VERIFY section will write two     files to drive one also: VON.COMVOFF.COM"›10060 ? "When binary loaded from DOS 2.0 or 2.5they will toggle the WRITE VERIFY     function on and off."›10070 ? "EACH OF THESE .COM FILES ARE 1 SECTOR LONG. BASICON/OFF WAS ORGINALLY       WRITTEN BY BILL WILKINSON";›10080 ? " OF OSS."›10090 ? "         ÈÉÔ ÒÅÔÕÒΠÆÏÒ ÍÅÎÕ     ";›10100 INPUT X$›10150 TRAP MENU›10200 GOTO MENU›19999 REM INITIALIZATION›20000 WRITE=700:CONSOLE=500:CHANGE=600:COL1=PEEK(710):COL2=PEEK(709):COL3=PEEK(712):DIM FILE$(15):DIM GO$(3):REG=1›21000 DIM NAME$(20):DIM X$(5):MENU=20:DIRECTORY=30000›22000 RETURN ›30000 REM  ÄÉÒÅÃÔÏÒÙ ›30050 TRAP MENU›30100 CLOSE #1:OPEN #1,6,0,"D:*.*"›30200 INPUT #1,NAME$:TRAP 60›30300 ? "          ";NAME$›30400 IF NAME$(10,16)="SECTORS" THEN 30700›30500 GOTO 30200›30600 ? "          ";NAME$›30700 CLOSE #1:FOR X=1 TO 350:NEXT X›30800 RETURN ›qqqqqqqqqqqqqqq