32300 DEFPROC_VLIST
32301 @%=0
32302 E%=&900
32303 FOR T%=&482 TO &4F4 STEP2
32304 IF FNDD(T%)<>0 THENPROCfollow(FNDD(T%),(T%-&400)/2,0)
32305 NEXTT%
32306 IF FNDD(&4F6)<>0 THENPROCfollow(FNDD(&4F6),0,1)
32307 IF FNDD(&4F8)<>0 THENPROCfollow(FNDD(&4F8),0,2)
32308 ENDPROC
32309 DEFPROCfollow(T%,S%,F%)
32310 $E%=CHR$S%
32311 IF F%=1 PRINT"PROC";
32312 IF F%=2 PRINT"FN";
32313 R%=T%+1
32314 IF F%=0 VDUS%
32315 REPEAT
32316 R%=R%+1
32317 IF ?R%>47 VDU?R%:$E%=$E%+CHR$?R%
32318 UNTIL?R%<48:IF F%<>0 PRINT
32319 IF ?R%=&25 AND F%=0 PROCinteger
32320 IF ?R%=&24 AND F%=0 PROCstring
32321 IF ?R%=0 AND F%=0 PROCreal
32322 IF ?R%=&28 AND F%=0 PRINT"(";:PROCarray
32323 IF FNDD(T%)>255 PROCfollow(FNDD(T%),S%,F%)
32324 ENDPROC
32325 DEFPROCinteger
32326 IF R%?1=0 PRINT"%=";EVAL($E%+"%"):ENDPROC
32327 PRINT"%(";:PROCarray
32328 DEFPROCstring
32329 IF R%?1=0 PROCnormal_string ELSE PRINT"$(";:PROCarray
32330 ENDPROC
32331 DEFPROCnormal_string
32332 PRINT"$=";
32333 VDU34
32334 IF R%?5=0 PRINTCHR$34:ENDPROC
32335 FOR L%=1 TO R%?5
32336 VDU?(L%-1+FNDD(R%+2))
32337 NEXTL%
32338 PRINTCHR$34
32339 ENDPROC
32340 DEFPROCarray
32341 FOR D%=1 TO ((R%?3)-1)/2
32342 IF D%<>1 PRINT",";
32343 PRINT;FNDD(D%*2+R%+2)-1;
32344 NEXTD%
32345 PRINT")"
32346 ENDPROC
32347 DEFPROCreal
32348 PRINT"=";EVAL($E%)
32349 ENDPROC
32350 DEFFNDD(A%)=!A% AND &FFFF