image of READY prompt

Wang2200.org

Listing of file='IDS2SUB6' on disk='vmedia/701-2715B.wvd.zip'

# Sector 826, program filename = 'IDS2SUB6'
0952 F5$=E1$(FN2(10))OR ALL(20)
   : IF F5$=E9$THEN 964
   : GOSUB '58(5,24)
   : IF Q=0THEN RETURN
0964 Q=504
   : HEXPACKE$FROMR8$
   : E$=OR HEX(0F)ADDALL(01)
   : Y=1
   : E=6
0967 GOSUB 667
   : N=FNJ(0)
   : IF N=0THEN RETURN
   : P=INT(VAL(STR(E3$(),N+Q-6),2)/16)
   : L=VAL(STR(E3$(),N+Q-4))
   : IF X=1THEN STR(E$(),ABS(J)-1+P,L)=STR(F$(),P)
   : ELSE STR(F$(),P,L)=" "
   : Q=Q+N+5
   : IF Q<1992THEN 967
   : RETURN
0968 DEFFN'58(P,W)
   : GOSUB 16
   : IF Q=0THEN RETURN
   : Q=A
0969 MAT REDIM E3$(W)83
   : DATA LOAD DA T#P,(A,A)E3$()
   : ERRORM=M-1
   : Q=1
0970 E9$=F5$
   : MAT REDIM E3$(249)8
   : RETURN