Classic Computer Magazine Archive PROGRAM LISTING: 84-06/VARIFILE.LST


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"

Back to previous page