image of READY prompt

Wang2200.org

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

# Sector 25, 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