10 '*** SARDINE FOR THE MODEL 100
20'***SHOULD WORK WITH OTHER TYPES WITH**
30'***A FEW EASY CHANGES****
40'**FOR TANDY 200 CHANGE 340 TO CLOSE 'OLD'BEFORE KILLING IT
110 CLS:MAXFILES=2:CLEAR1600:DEFSTRA-K:AB="GOTO":AC="THEN":AD="ELSE":AE="GOSU":AZ="RESU":D="OLD"
120 PRINT"1) Tape or 2) Text file?":INPUT"Type 1 or 2, press enter";Q:IFQ<1ORQ>2THENCLS:PRINTQ"illegal choice.":GOTO120ELSEIFQ=1THENEE="CAS:PACK"ELSEEE="PACK"
130 OPENEEFOROUTPUTAS2:CLS:PRINT"Sardine working. Patience.":PRINT:OPENDFORINPUTAS1
140 IFEOF(1)THEN210ELSELINEINPUT#1,E:PRINT"O";:FORZ=1TOLEN(E):AA=MID$(E,Z,4):IFAA=ABORAA=ACORAA=ADORAA=AZORAA=AETHENM=4:GOSUB160
150 NEXTZ:GOTO140
160 FORW=Z+M TOZ+M+7:IFLEN(K(S))>146THENS=S+1
170 H=MID$(E,W,1):IFH<>""THENR=ASC(H)
180 IFR>47ANDR<58THENG=G+H
190 IFH=","THENG=G+" ":Z=W:M=1:GOTO160
200 NEXTW:IFINSTR(K(S),G)>0THENG="":RETURNELSEK(S)=K(S)+" "+G:G="":RETURN
210 CLOSE1:PRINT:OPENDFORINPUTAS1
220 F="":IFEOF(1)THENPRINT#2,B:GOTO340
230 LINEINPUT#1,E:PRINT"X";:O=O+1:Y=INSTR(E,"REM"):YY=INSTR(E,"'"):IFO<2THEN240ELSEIFY>0THENE=LEFT$(E,Y+2)ELSEIFYY>0ANDYY<8THENE=LEFT$(E,YY)
240 IFINSTR(E,"DATA")>0ORY>0ORYY>0ANDYY<8THENPRINT#2,B:B="":PRINT #2,E:GOTO220
250 FORZ=1TOLEN(E):C=MID$(E,Z,1):IFC=CHR$(34)THENL=L+1ELSEIFL=2THENL=0
260 IFL=1THENF=F+C:GOTO290ELSEIFC<>CHR$(32)THEN280ELSEIFZ<4ORZ=LEN(E)THEN270ELSEP=ASC(MID$(E,Z-1,1)):V=ASC(MID$(E,Z+1,1)):IFP>47ANDP<58THEN280
270 IFMID$(E,Z+1,2)="TO"ORMID$(E,Z+1,4)="STEP"ORMID$(E,Z+1,4)=ADTHENF=F+C:GOTO290
280 IFC<>CHR$(32)THENF=F+C
290 NEXTZ:FORV=1TO6:P=ASC(MID$(F,V,1)):IFP<48ORP>57THEN300ELSENEXT
300 Q$=LEFT$(F,V-1):I=" "+Q$:FORT=0TOS:IFK(T)=""THEN310ELSEIFB<>""ANDINSTR(K(T),Q$)>0THENPRINT#2,B:B="":GOTO310ELSENEXTT
310 IFB=""THENB=F:GOTO330
320 J=RIGHT$(F,LEN(F)-(V-1)):IFLEN(B)+LEN(J)<252THENB=B+":"+JELSEPRINT#2,B:B=F:GOTO220
330 IFINSTR(B,"RETURN")>0ORINSTR(B,"END")>0ORINSTR(B,AB)>0ORINSTR(B,AC)>0THENPRINT#2,B:B="":GOTO220ELSE220
340 KILL"OLD.DO":CLOSE:PRINT:PRINT"See file PACK for program.":IFQ=1THENPRINT"It's on tape."ELSEPRINT"It's in the computer."
350 FORV=1TO10:BEEP:NEXTV:END