1 REM ALSEQ.BAS 1.0 1-8-87
10 CLS:CLEAR40,&H87FF:WIDTH40:CP=&H8B00:RG=&H8800:DEFUSR9=RG:DEFUSR0=RG+3:DEFUSR1=RG+6:BLOAD"ALSEQ.BIN":FORT=1TO10:KEY(T)ON:NEXTT:KEYOFF:GOSUB500
100 A$=INKEY$:IFA$=""THEN100
110 GOTO100
200 FORT=1TO10:KEY(T)OFF:NEXTT:FORT=1TO4000:NEXTT
210 A$=INKEY$:IFA$=""THEN210
220 IFASC(A$)<>27THEN210
230 FORT=1TO10:KEY(T)ON:NEXTT:RETURN
300 PRINT:PRINT"'SELECT' or 'ESCAPE'"
310 A$=INKEY$:IFA$=""THEN310
320 IFASC(A$)=27THENGOSUB500:RETURN
330 IFASC(A$)=24THENRETURN
350 GOTO310
500 CLS:LOCATE2,2:PRINT"2. All sequences  Disk -> CX5 -> ESQ":LOCATE2,3:PRINT"3. All sequences  ESQ -> CX5 -> Disk":LOCATE1,10:PRINT"10. Load Program & Sgl Seq Editor":ONKEYGOSUB,2100,2200,,,,,,,1000
595 RETURN
950 IFERR=53THENPRINT"File not on this disk!":RESUMENEXT:ONERRORGOTO0
955 ONERRORGOTO0:GOSUB200:RETURN
1000 CLS:PRINT"Load Program & Single Sequence Editor?":GOSUB 300
1020 IFASC(A$)=24THEN3000
1050 RETURN
2100 CLS:ONERRORGOTO950:PRINT"* Load all sequences from disk to ESQ *":PRINT"Files:":FILES"*.ALS":PRINT:INPUT"File name";F$:FI$=F$+".ALS":PRINTFI$;":":BLOADFI$:A=USR1(0):GOSUB300:IFASC(A$)=24THEN2180
2150 RETURN
2180 A=USR9(0):GOSUB200:GOSUB500:RETURN
2200 CLS:ONERRORGOTO950:PRINT"** Save all sequences ESQ-1 to disk **":PRINT"Files:":FILES"*.ALS":PRINT:INPUT"File name";F$:FI$=F$+".ALS":PRINTFI$:GOSUB300:IFASC(A$)=24THEN2255
2250 RETURN
2255 A=USR0(0):IFA>&HE000THEN2295
2260 BSAVEFI$,CP,A:PRINTHEX$(CP);"-";HEX$(A);"   Length:";A-CP
2295 GOSUB200:GOSUB500:RETURN
3000 CLS:PRINT"Loading....":CLEAR40,&H9EFF:LOAD"ESQ.BAS",R
4000 END:REM ALSEQ