ş a‹R ş w Vş m
Z<     ş hı	 oU   ş nSystem-wide$COMPACT NOLIST NOTYPE

FormsInit: DO;

$INCLUDE (`w`Incs`PlmLits.Inc~Text~)

DCL dontCare LIT '0';
DCL fillIn   LIT '0';

DCL choiceChar LIT '?';
DCL stringChar LIT '$';
DCL numberChar LIT '#';
DCL fontChar LIT   '&';

DCL sizeOfRowDescriptor LIT '14';

/* these are the Row Descriptor Times Tables */

/* 1 = 14   */
/* 2 = 28   */
/* 3 = 42   */
/* 4 = 56   */
/* 5 = 70   */
/* 6 = 84   */
/* 7 = 98   */
/* 8 = 112  */
/* 9 = 126  */
/* 10 = 140 */

$EJ

/* Volume Name form */

DCL volNameFormItemCount LIT '1';
DCL volNameFormRowSize   LIT '14'; 

DCL volNameFormLabelsAndChoices (*) BYTE DATA
    ('$Volume name~|');

DCL theVolumeNameForm STRUCTURE
    (form PTR,
    numItems INTEGER,
    labelsAndChoices PTR,
    choiceLines INTEGER,
    rows (volNameFormRowSize) BYTE)
    
    PUBLIC DATA

    (nullPtr,                                /* form         */
    volNameFormItemCount,                    /* numItems     */
    @volNameFormLabelsAndChoices,            /* items        */
    0);                                      /* choiceLines  */

DCL bigDeviceMenuTemplate (*) BYTE PUBLIC INITIAL 
    ('              *** WARNING ***~',
     ' ~',
     '       This is a dangerous operation!~',
     ' ~',
     'It is unusual to initialize a non-removable~',
     '  or large storage device. All files on the~',
     '  device will be destroyed.~',
     ' ~',
     '     If you are not sure then press ESC.~',
     ' ~|');
DCL theBigDeviceMenu PTR PUBLIC INITIAL (@bigDeviceMenuTemplate);

END;