Listing of file='609PCHAR' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 2433, program filename = '609PCHAR' 1750 REM 1760 $IF OFF /005,1765 : PRINT HEX(06);AT(5,5);STR(C6$(),,73) 1765 IF T5(5)=1THEN ON C4GOTO 1810,1820,1825,1795,1805,1815,1800 : IF T5(5)=2THEN ON C4GOTO 1820,1830,1835,1795,1810,1825,1805 1795 C3$=HEX(00000000) : D5=D5-1 : GOTO 1840 1800 C3$=HEX(02000100) : GOTO 1840 1805 C3$=HEX(04000100) : GOTO 1840 1810 C3$=HEX(08000185) : GOTO 1840 1815 C3$=HEX(0AAA0400) : D5=D5+1 : GOTO 1840 1820 C3$=HEX(10000400) : D5=D5+1 : GOTO 1840 1825 C3$=HEX(18000400) : D5=D5+2 : GOTO 1840 1830 D5=D5+3 : C3$=HEX(20000400) : GOTO 1840 1835 D5=D5+5 : C3$=HEX(30000400) : GOTO 1840 1840 $GIO#C7,(40E942304240,C3$) : IF D7+LEN(C6$())>159THEN 1460 : IF D7=0THEN 1855 : FOR J9=1TO D7 : $GIO#C7,(4020,C3$) : NEXT J9 1855 FOR J9=1TO LEN(C6$()) : C6$=BIN(J9) 1860 MAT SEARCHC5$(),=STR(C6$,,1)TO V0$()STEP 1 : IF V0$(1)=HEX(0000)THEN 1865 : GOSUB 1930 : GOTO 1860 1865 IF C6$(J9)<>HEX(8B)THEN 1866 : $GIO#C7,(40024007400F,C3$) : GOTO 1890 1866 IF C6$(J9)<HEX(80)THEN 1870 : AND (C6$(J9),7F) : $GIO#C7,(A200,C3$)C6$(J9) : $GIO#C7,(4008A200,C3$)B8$ : GOTO 1873 1870 $GIO#C7,(A200,C3$)C6$(J9) 1873 IF POS(C6$()<>HEX(20))>J9AND J2+J3+J4=0THEN 1890 : IF POS(C6$()<>HEX(20))=0THEN 1890 : IF J2=1THEN $GIO#C7,(40FA4008400AA200,C3$)C6$(J9) : IF J3=1THEN $GIO#C7,(400840E940014000400AA20040FA40E942304240,C3$)B8$ : IF J4=1THEN $GIO#C7,(40FA4008400A402F,C3$) 1890 NEXT J9 1895 MAT SEARCHC5$(),<>HEX(FF)TO V0$()STEP 1 : IF V0$(1)=HEX(0000)THEN 1900 : GOSUB 1930 : GOTO 1895 1900 IF J1=0THEN 1915 : IF J1>0THEN C6$=HEX(0A) : ELSE C6$=HEX(FA) : FOR J9=1TO ABS(J1) : $GIO#C7,(A200,C3$)C6$ : NEXT J9 1915 $GIO#C7,(40E942104220400D,C3$) : RETURN 1930 C5$(VAL(V0$(),2))=HEX(FF) : ON POS(D0$()=C4$(VAL(V0$(),2)))GOTO ,1935,1940,,1945,1950 : RETURN 1935 J1=J1+1 : $GIO#C7,(40FA) : RETURN 1940 J1=J1-1 : $GIO#C7,(400A) : RETURN 1945 IF J2=0THEN J2=1 : ELSE J2=0 : RETURN 1950 IF POS(STR(C4$(VAL(V0$(),2)),,2)<>D0$(6))=0THEN 1955 : IF J3=0THEN J3=1 : ELSE J3=0 : RETURN 1955 IF J4=0THEN J4=1 : ELSE J4=0 : RETURN