image of READY prompt

Wang2200.org

Listing of file='609Escrn' on disk='vmedia/701-2737G.wvd.zip'

# Sector sector 103, program filename = '609Escrn'
0010 REM 609Escrn - Print full screen load of text ---------------------------
     -
1604 DEFFN'91(C1,I)
   : IF C3>7THEN 1626
   : CONVERT C3TO C6$,(###)
   : $TRAN(C6$,B8$())R
   : STR(C6$,,2)=" "
   : GOTO 1630
1626 CONVERT C3-7TO C6$,(###)
1630 PRINT HEX(06);AT(0,0,80);
   : PRINTUSING 2455,A7$(1),C6$," "," "
   : J2(C1)=I
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 1678
   : IF POS(STR(D4$,,2)=V0$(J9))=0OR LEN(D1$())<POS(-A5$()=82)THEN 1690
1678 J2(C1+1)=J2(C1)+J1(C1)
   : IF V0$(J2(C1+1))=HEX(86)AND POS(-V0$()=83)<J2(C1+1)THEN 1690
   : 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
   : 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