Listing of file='709PCHAR' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 2982, program filename = '709PCHAR' 1750 REM 709PCHAR 250 11/03/88 KKB 1760 $IF OFF /005,1765 : PRINT HEX(0D06);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 IF D7+LEN(C6$())>159THEN 1460 : IF D7=0THEN 1855 : FOR J9=1TO D7 : SELECT PRINT <@H9$> : PRINT " "; : SELECT PRINT <@H8$> : 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 : SELECT PRINT <@H9$> : PRINT HEX(02070F); : SELECT PRINT <@H8$> : GOTO 1890 1866 IF C6$(J9)<HEX(80)THEN 1870 : REM AND (C6$(J9),7F) : IF J2=1 AND J3=1THEN 1873 : SELECT PRINT <@H9$> : IF J2+J3+J4=0THEN PRINT C6$(J9); : SELECT PRINT <@H8$> : GOTO 1873 1870 IF J2=1THEN 1873 : SELECT PRINT <@H9$> : PRINT C6$(J9); : SELECT PRINT <@H8$> 1873 IF POS(C6$()<>HEX(20))>J9AND J2+J3+J4=0THEN 1890 : IF POS(C6$()<>HEX(20))=0THEN 1890 : SELECT PRINT <@H9$> : IF J2=1AND J3=0 THEN PRINT HEX(02040000020E);C6$(J9);HEX(02040000000E); : IF J3=1THEN PRINT HEX(08);B8$; : IF J4=1THEN PRINT HEX(082F); : SELECT PRINT <@H8$> 1890 SELECT PRINT <@H8$> : NEXT J9 : SELECT PRINT <@H9$> : PRINT HEX(02040000000E); : SELECT PRINT <@H8$> 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(0A) : FOR J9=1TO ABS(J1) : NEXT J9 1915 SELECT PRINT <@H9$> : PRINT HEX(0208010F0208020F0D); : SELECT PRINT <@H8$> : 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 : SELECT PRINT <@H9$> : IF J1=0THEN PRINT HEX(0208020F); : ELSE PRINT HEX(0208010E); : SELECT PRINT <@H8$> : RETURN 1940 J1=J1-1 : SELECT PRINT <@H9$> : IF J1=0THEN PRINT HEX(0208010F); : ELSE PRINT HEX(0208020E); : SELECT PRINT <@H8$> : 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