63982 DEFFNF(X)=PEEK(X)+256*PEEK(X+1):X=769 63983 A=A+1:R=FNF(X):N=FNF(X+2):X=R:PRINTA,N:IFN<63982GOTO63983 63984 A=A-1:INPUT" START";S:INPUT" STEP";T:IF4*A+85>FRE(0)THENPRINT1/0 63985 DIMN(A):X=769:FORI=1TOA:R=FNF(X):N(I)=FNF(X+2):X=R:NEXTI:X=769 63986 FORI=1TOA:R=FNF(X):F=0:Z=S+T*(I-1):PRINTFNF(X+2)">"Z; 63987 POKEX+3,INT(Z/256):POKEX+2,Z-256*INT(Z/256):FORJ=X+4TOR-1 63988 P=PEEK(J):IFP=136ORP=140ORP=160THENF=1:GOTO63998 63989 IFF=0GOTO63999 63990 IFP>47ANDP<58THEND=10*D+P-48:H=H+1:GOTO63999 63991 IFP=32THENH=H+1:GOTO63999 63992 IFP<>44THENF=0 63993 IFH=0GOTO63998 63994 FORE=1TOA:IFD=N(E)GOTO63996 63995 NEXTE:PRINT"?";:GOTO63999 63996 E$=" "+STR$(S+T*(E-1)):IFLEN(E$)-4>HTHENPRINTE$"!";:GOTO63998 63997 E$=RIGHT$(E$,H):FORG=1TOH:POKEK+G,ASC(MID$(E$,G,1)):NEXTG 63998 D=0:H=0:K=J 63999 NEXTJ:X=R:PRINT" <":NEXTI OK