32000 GRAPHICS 0:POKE 82,0:POKE 710,0:? ,"DEFINE VARIABLES:":? :DIM JF$(39),JP$(39),JD$(39)›32002 JP$=" ":JP$(39)=" ":JP$(2)=JP$:JF$="":CLOSE #1:OPEN #1,8,0,"D:VARIABLE.DAT"›32004 FOR JC=PEEK(131)*256+PEEK(130) TO PEEK(133)*256+PEEK(132)-1›32006 IF PEEK(JC)<128 THEN JR=JR+1:JF$(JR,JR)=CHR$(PEEK(JC)):GOTO 32020›32008 IF PEEK(JC)>=128 THEN JR=JR+1:JF$(JR,JR)=CHR$(PEEK(JC)-128)›32010 TRAP 32012:IF JF$="JR" OR JF$="JP$" OR JF$="JC" OR JF$="JF$" OR JF$="JD$" THEN 32018›32012 TRAP 40000:? JF$;:INPUT JD$:JR=JR+LEN(JD$):JF$(LEN(JF$)+1)=JD$:IF JR>=39 THEN 32016›32014 JF$(JR+1,39)=JP$(JR+1,39)›32016 ? #1;JF$›32018 JR=0:JF$="":JD$=""›32020 NEXT JC:CLOSE #1:RUN "D:VARISORT"›