Listing of file='FILERS' on disk='vmedia/701-2739G.wvd.zip'
# Sector 967, program filename = 'FILERS' 1707 PRINT HEX(0208090F); : J3=1 1708 KEYIN J8$ : IF J8$=HEX(0D)THEN 1709 : STR(J2$,J3,1)=J8$ : J3=J3+1 : GOTO 1708 1709 IF STR(J2$,6,2)<>"WW"THEN 1711 : R1$=HEX(00) : RETURN 1711 R1$=HEX(01) : RETURN 1807 PRINT HEX(0213);"F";HEX(0F); : SELECT PRINT 405(0) : GOTO 2407 1908 PRINT HEX(0213);"I";I1$;C0$;HEX(0F); : GOTO 2407 2007 J3=1 2009 GOSUB 2032 : IF R1$<>HEX(00)THEN 2017 2011 PRINT HEX(0213);"GA";HEX(0F); 2012 KEYIN J8$,,2013 2013 IF J8$=HEX(1C)THEN 2414 : ELSE IF J8$<>HEX(1A)THEN 2012 : I2=0 2015 GOSUB 2026 : GOSUB 2030 : IF I1$=J8$THEN 2023 : I2=I2+1 : IF I2=11THEN 2024 : PRINT HEX(0213);"R";HEX(0F); : GOSUB 2407 : IF R1$<>HEX(00)THEN RETURN : GOTO 2015 2017 PRINT HEX(0213);"GH";HEX(0F); 2018 KEYIN J8$,,2019 2019 IF J8$=HEX(1C)THEN 2414 : ELSE IF J8$<>HEX(1A)THEN 2018 : I2=0 2021 GOSUB 2028 : GOSUB 2030 : IF I1$=J8$THEN 2023 : I2=I2+1 : IF I2=11THEN 2024 : PRINT HEX(0213);"R";HEX(0F); : GOSUB 2407 : IF R1$<>HEX(00)THEN RETURN : GOTO 2021 2023 J3=J3+1 : IF J3<17THEN 2009 : R1$=HEX(00) : RETURN 2024 R1$=HEX(02) : RETURN 2026 I1$=HEX(00) : FOR I1=(J3-1)*16+1TO J3*16 : PRINT J2$(I1); : ADD(I1$,J2$(I1)) : NEXT I1 : RETURN 2028 I1$=HEX(00) : FOR I1=(J3-1)*16+1TO J3*16 : HEXUNPACKJ2$(I1)TO I3$ : PRINT STR(I3$,1,1); : ADD(I1$,STR(I3$,1,1)) : PRINT STR(I3$,2,1); : ADD(I1$,STR(I3$,2,1)) : NEXT I1 : RETURN 2030 KEYIN STR(I3$,1,1) : KEYIN STR(I3$,2,1) : HEXPACKJ8$FROMI3$ : RETURN 2032 I1=(J3-1)*16+1 2033 IF I1>J3*16THEN 2035 : IF J2$(I1)<HEX(20)OR J2$(I1)>HEX(7F)THEN 2034 : I1=I1+1 : GOTO 2033 2034 R1$=HEX(01) : RETURN 2035 R1$=HEX(00) : RETURN 2107 PRINT HEX(0213);"E";HEX(0F); : GOTO 2407 2210 J3=0 2211 KEYIN J8$,,2212 2212 IF J8$=HEX(17)THEN 2225 : ELSE IF J8$=HEX(18)THEN 2216 : ELSE IF J8$=HEX(19)THEN 2238 : ELSE IF J8$=HEX(1C)THEN 2414 : ELSE GOTO 2211 2214 PRINT HEX(0213);"A";HEX(0F); : GOTO 2217 2216 PRINT HEX(0213);"G";HEX(0F); : J3=J3+1 2217 I1=(J3-1)*16+1 : I1$=HEX(00) 2218 KEYIN J2$(I1) : ADD(I1$,J2$(I1)) : I1=I1+1 : IF I1<=J3*16THEN 2218 : HEXUNPACKI1$TO I3$ : PRINT I3$; 2220 KEYIN J8$,,2221 2221 IF J8$=HEX(16)THEN 2214 : ELSE IF J8$=HEX(17)THEN 2225 : ELSE IF J8$=HEX(18)THEN 2216 : ELSE IF J8$=HEX(1B)THEN 2411 : ELSE IF J8$=HEX(1C)THEN 2414 : GOTO 2220 2223 PRINT HEX(0213);"A";HEX(0F); : GOTO 2226 2225 PRINT HEX(0213);"G";HEX(0F); : J3=J3+1 2226 I1$=HEX(00) : I1=1 2227 KEYIN STR(J2$,I1,1) : ADD(I1$,STR(J2$,I1,1)) : KEYIN STR(J2$,I1+1,1) : ADD(I1$,STR(J2$,I1+1,1)) : I1=I1+2 : IF I1<=31THEN 2227 : HEXUNPACKI1$TO I3$ : PRINT I3$; 2229 KEYIN J8$ 2230 IF J8$=HEX(16)THEN 2223 : ELSE IF J8$=HEX(17)THEN 2231 : ELSE IF J8$=HEX(18)THEN 2232 : ELSE IF J8$=HEX(1B)THEN 2233 : ELSE IF J8$=HEX(1C)THEN 2414 : GOTO 2229 2231 GOSUB 2235 : GOTO 2225 2232 GOSUB 2235 : GOTO 2216 2233 GOSUB 2235 : GOTO 2411 2235 FOR I1=(J3-1)*16+1TO J3*16 : HEXPACKJ2$(I1)FROMSTR(J2$,(I1-(J3-1)*16)*2-1,2) : NEXT I1 : RETURN 2238 PRINT HEX(0213);"E";HEX(0F); : R1$=HEX(01) : RETURN 2307 PRINT HEX(020D0C030F); : SELECT PRINT /005(80) : GOTO 2407 2407 KEYIN J8$,,2408 2408 IF J8$=HEX(1B)THEN 2411 : IF J8$=HEX(1C)THEN 2414 : GOTO 2407 2411 R1$=HEX(00) : RETURN 2414 KEYIN STR(I3$,1,1) : KEYIN STR(I3$,2,1) : HEXPACKSTR(R1$,1,1)FROMI3$ : RETURN