image of READY prompt

Wang2200.org

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