1 REM ESQ VER 1.51
2 REM ESQ-1 SYSEX EDITOR
3 REM PAABEGYNT    10-5-87
4 REM VERSJON1.51: 25-9-87
10 CLS:WIDTH40
20 GOSUB116
80 FORT=1TO10:KEY(T)ON:NEXTT:KEYOFF
90 GOSUB301
99 REM MAIN LOOP
100 A$=INKEY$:IFA$=""THEN100
110 GOTO100
116 LOCATE9,4:PRINT"ENSONIQ ESQ-1 Editor"
117 LOCATE13,6:PRINT"Version 1.51"
118 LOCATE7,9:PRINT"Syntax Terror Association"
119 LOCATE16,11:PRINT"1987"
120 RETURN
299 REM MAIN MENU ----------------
300 CLS
301 LOCATE2,15:PRINT"F1. Load Program & Sgl Seq Editor"
302 LOCATE2,17:PRINT"F2. Load All Songs & Sequences Editor"
340 ONKEYGOSUB1000,3000
395 RETURN
1000 LOCATE2,19:PRINT"Load Program & Single Sequence Editor?":PRINT
1010 PRINT"'SELECT' or 'ESCAPE'"
1020 A$=INKEY$:IFA$=""THEN1020
1030 IFASC(A$)=27THENGOSUB300:RETURN
1040 IFASC(A$)=24THEN1100
1050 GOTO1020
1100 CLS:GOSUB116
1105 LOCATE2,19:PRINT"Program loading. Please wait....."
1110 LOAD"ESQ.BAS",R
3000 LOCATE2,19:PRINT"Load All Songs & Sequences Editor?":PRINT
3010 PRINT"'SELECT' or 'ESCAPE'"
3020 A$=INKEY$:IFA$=""THEN3020
3030 IFASC(A$)=27THENGOSUB300:RETURN
3040 IFASC(A$)=24THEN3100
3050 GOTO3020
3100 CLS:GOSUB116
3105 LOCATE2,19:PRINT"Program loading. Please wait....."
3110 LOAD"ALSEQ.BAS",R
4000 END:REM SLUTT ESQ