= -  DCREATE by Dan Dugan -- public domain  U () "To create a new file, you must first 'done' this file and then enter'"DCREATE from the DIMS main menu.% A-Z  return to DEDIT7 ()"E"()"H"; clear screen (TERM DEP)"DCREATE  A-Z  ,,,,,,,,T,SKIPPARS,F,SEARC, ,,N,P,P,P,P,P,,,T,T,(),(),(), SEARCHWOR(),SEARCHFIEL(),SKIPWOR(),LOOKFIEL(),D(),,F:$ "Please define the record size for your new file.J."You can choose size 1 or size 2. Size 2 uses up twice as much diskI8"space as size 1. Your usable storage per record equals the record'B"size minus the number of fields.L1V" 1 128 characters per record (bytes)1`" 2 255 characters per record (bytes)#j " "; F file typet F F"~ F F" " " F F"2"  F F   $C "Here is a directory of the files currently on the disk...% F D()"*.D?" "Remember, if you create a file name which is the same as one " "that already exists, you will destroy the old file on the disc."" "Now create a new file...";   open up files# DEFINE FILE STRUCTURE ' number of records in file  change flag  cs  9 "Define file structure; enter field name and type:!"(to finish, enter 'stop')"  F(/2 "Name (4 char) of field "; "##";; < F "" 2P "stop" (Z "Field type (a or n) ";Td T"" T"a"n T"a"  x  T"n"    "Type must be 'a' or 'n'  Z " ", x(,)  chop down to 4 char ","T" ()()  N4()"stop0"  end cue for many routines  cs5&"Structure definition complete.", "Name: "; (); "Type: "F"Fields are:""  N', x((),)"stop" ^6 "##"; ;6@ ". "; x((),); " "; |((),) J T FINISH ^%h"Do you approve? (y/n) ", r "" "y"| "y"  $ D()"DEDIT", UCV ""  () " " ((,, ))= ` { (,,)( ) # (,,)(,,)  & CLEAR SCREEN (TERM DEP)  ()"E"()"H";- OPEN UP FILES SUB GET NAME ""   clear change flag<& ( ); "Name of the file you want to open"; 0 "" &:D   UCverterN  make UC$X OPEN UP FILES FOR REAL %b "R",,D()".D"Fl #, &v "R",,D()".DD"F #,  % ERROR HANDLING ROUTINES  5  3 @ b "*** Bad file name!" ' = (b v)    5  3 @ b "*** Bad f