Listing of file='609ESCRN' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 1285, program filename = '609ESCRN' 1602 DIM I(2) 1604 DEFFN'91(C1,I,I(1),I(2)) : CONVERT C3-7TO C6$,(###) : PRINT HEX(06); : PRINT AT(0,0,80); : PRINTUSING 2455,A7$(1),C6$," "," " : J2(C1)=I : I(1)=SGN(I(1))*(J1(C1)+J5(C1+1)/1000) 1644 GOSUB '96(J2(C1),C1) : GOSUB '61 : IF D2$()=" "OR D2$()=HEX(8F)OR C1=22THEN 1690 : IF J2(C1)+J1(C1)-1<J9OR V0$(J9)=HEX(83)OR LEN(D1$())=D9THEN 1666 : IF POS(STR(D4$,,2)=V0$(J9))=0OR LEN(D1$())<POS(-A5$()=82)THEN 1690 1666 IF I(1)=0OR C1<I(2)THEN 1674 : IF I(1)=J1(C1)+J5(C1+1)/1000AND C1<C2-1AND C1>=I(2)THEN 1706 1674 I(1)=SGN(I(1))*(INT(I(1))-J1(C1)+J1(C1+1)+J5(C1+2)/1000) : J2(C1+1)=J2(C1)+J1(C1) : C1=C1+1 : GOTO 1644 1690 PRINT AT(C1+1,0,); : C2=C1 : FOR C=C1+1TO 24 : J1(C),J2(C),J3(C),J4(C),J5(C)=0 : NEXT C 1706 IF C4$="E"AND J2(C2)+MAX(J1(C2)-1,0)>=J9+J7THEN GOSUB 2025 : IF V0$(J2(C2))=HEX(8F)THEN GOSUB 2135 : IF C7$<>HEX(00)THEN GOSUB 2005 : RETURN 1856 DEFFN'93 : D2=MIN(D2+1,63) : J2(1),I=J2(20) : J6$(D2)=BIN(I,2) : J7$(D2)=BIN(J4(20),2) : J4(1),D3=J4(20) : D4$(D2-1)=BIN(J5(20)) : J5(1)=J5(20) : RETURN 1890 DEFFN'94(I) : D2=MAX(I,1) : IF D2>1THEN 1916 : J7$(1)=BIN(0,2) : J6$(1)=BIN(1,2) : D6$()=ALL(00) 1916 I,J2(1)=VAL(J6$(D2),2) : D3=VAL(J7$(D2),2) : J5(1)=0 : IF D2>1THEN J5(1)=VAL(D4$(D2-1)) : STR(J6$(),2*D2+1),STR(J7$(),2*D2+1)=ALL(FF) : GOSUB '33(I) : RETURN