10 ! FRMTSNGL
20 ! Single-sided format utility for HP-75 and HP9114A
30 ! This program requires either I/O Utilities or the I/O ROM
40 INPUT "Device Code of Drive? ";A$
50 SENDIO A$,"UNL,LAD#,SDC",""
60 SENDIO A$,"UNL,LAD#,CD:65,DS:31,DS:F3,EN:5F",""
70 SENDIO A$,"UNL,LAD#,CD:6E,EN:04",""
80 Q$=ENTIO$(A$,'TAD#,CD:70,SDA')
90 IF Q$=CHR$(0) THEN 120
100 DISP "Error in setting format"
110 GOTO 170
120 INPUT "Number of directory entries? ";N
130 INPUT "Press 'RTN' to start";N$
140 INITIALIZE A$,N
150 INPUT "Format another (Y/N)? ";C$
160 IF C$="Y" THEN 120
170 SENDIO A$,"UNL,LAD#,SDC",""
180 END