image of READY prompt

Wang2200.org

Listing of file='FILERS' on disk='vmedia/731-0067F-disk2.wvd.zip'

# Sector 1609, 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