SET COLOR TO 2
SET DELETE ON
SET SAFETY OFF
SET TALK OFF
SET INTEN OFF
SET BELL OFF
SET EXACT OFF
SET CONFIRM ON
RESTORE FROM C:\ACCT\CUST1
IF EX = 'N'
 SET EXCLUSIVE OFF
ELSE
 SET EXCLUSIVE ON
ENDIF
STORE 0 TO CL
STORE CHR(205) TO SEP
DO WHILE LEN(SEP) < 80
 STORE SEP+CHR(205) TO SEP
ENDDO
STORE 'N' TO MCAC
STORE ' ' TO DBBB
USE
SET CONSOLE ON
SET DEVICE TO SCREEN
SET PRINT OFF
STORE '  ' TO VSEL
SET DELIMITER TO "[]"
STORE 'COMPUTER AUDIO SERVICES' TO TOP
STORE 'MAIN MENU' TO TOP1
STORE 'CASSCOTT' TO MMX
STORE 'N' TO NOREAD
DO TOPNC
IF EX = 'N'
 @ 1,0 SAY 'NETWORK ACTIVE'
ENDIF
IF CL = 0
 @ 2,0 SAY 'CL = 0       '
ENDIF
IF CL = 1
 @ 2,0 SAY 'CL = 1       '
ENDIF
ON
ENDIF
STORE 0 TO CL
STORE CHR(205) TO SEP
DO WHILE LEN(SEP) < 80
 STORE SEP+CHR(205) TO SEP
ENDDO
STORE 'N' TO MCAC
STORE ' ' TO DBBB
USE
SET CONSOLE ON
SET DEVICE TO SCREEN
SET PRINT OFF
STORE '  ' TO VSEL
SET DELIMITER TO "[]"
STORE 'COMPUTER AUDIO SERVICES' TO TOP
STORE 'MAIN MENU' TO T