10 REM ******************************
20 REM ***    ZEROMAKR.BAS     ******
30 REM ****************************** 
40 REM A METHOD FOR CREATING A ZERO FILE ON THE EXECUTIVE
50 REM BY USING THE OPEN STATEMENT FOR A RANDOM FILE IN MBASIC
60 REM THIS IS IN LIEU OF THE `SAVE 0' FUNCTION USED BY THE OSBORNE 1
70 REM Created by David Whorf  03/12/84 FOG#251
75 SI$=CHR$(27)+CHR$(106):EI$=CHR$(27)+CHR$(107)
80 PRINT CHR$(26)
90 PRINT "                       Osborne EXECUTIVE Zero Program"
100 PRINT "                                    V1.5"
102 PRINT "                                  CP/M 3.0"
105 PRINT:PRINT
110 PRINT "        This program is designed to create a zero length file for use"
120 PRINT "        in the FOG Program `CATALOG'. This program automatically inserts"
130 PRINT "        the  dash (-) in the first position of the file.  You may enter"
140 PRINT "        any combination of seven letters or numbers for a file name."
150 GOTO 170
160 PRINT CHR$(26)
170 PRINT
180 PRINT TAB(18)SI$" INSERT the disk to be named in the B Drive ";EI$
190 PRINT
200 PRINT:PRINT "        This program will then confirm the listing by calling up the"
210 PRINT "                        Directory of the B: drive."
220 PRINT
230 PRINT "            Enter the name of the new ZERO file: ";:INPUT;"",Z$
250 Z$="B:-"+Z$
260 OPEN "R",1,Z$,12
270 CLOSE
280 PRINT:PRINT
290 PRINT "             ZERO FILE CREATED ON DRIVE B - NAME: ";Z$
300 FOR I=1 TO 2000:NEXT I:PRINT CHR$(7)
310 PRINT CHR$(26)
320 PRINT:PRINT
330 FILES "B:*.*"
340 PRINT
350 PRINT:PRINT "          Do you wish to name another disk (Y/N) ";:INPUT;"",Y$
360 IF Y$<>"Y" AND Y$<>"y" THEN END ELSE GOTO 160
370 END
 "          Do you wish to name another disk (Y/N) ";:INPUT;"",Y$
360 IF Y$<>"Y