Hallo Thomas,
Op 11 Apr 96, om 00:00, schreef Thomas Gohel aan Sander Smeenk:
 TG> 'LANSI_31.BAS' (28kByte) at '2:2410/301' or '2:2410/399' (10:00-23:30)
 TG> or in any BasNet-Box in Germany. 
Thanx. I already received one from Dave.
Or is this some special kind of ANSI viewer??
Mzzl,
sander@taf.idn.nl
... The moving cat sheds, and having shed, moves on...
--- GoldED/386 2.50 UNREG
---------------
** A related thread FOLLOWS this message.

FIDO MESSAGE AREA==> TOPIC: 214 POWER BASIC   Ref: D4PJ1420 Date: 04/20/96
From: KURT KUZBA                                            Time: 03:23pm
\/To: SANDER SMEENK                                       (Read 3 times)
Subj: R: Ansi Read

SS>   sourcecode to read (and display!) ANSI or AVATAR screens?
ss>............................................................
   How about this? And all in one message too! :)
'_|_|_|   ANSISUB.BAS
'_|_|_|   This program interprets ANSI ESC codes without ANSI.SYS.
'_|_|_|   No warrantee or guarantee is given or implied.
'_|_|_|   Released to   PUBLIC DOMAIN   by Kurt Kuzba.  (4/20/96)
ON ERROR GOTO Done:: COLOR 2, 0: CLS : F$ = COMMAND$: PRINT F$
IF F$ = "" THEN
   LOCATE 5, 10: PRINT "File to display ";: COLOR 1, 7
   PRINT SPACE$(34): LOCATE 5, 27: INPUT "", F$
END IF: IF F$ = "" THEN GOTO Done
COLOR 2, 0: OPEN F$ FOR BINARY AS #1
WHILE EOF(1) = 0: GET$ #1, 256, F$: l% = LEN(F$)
   FOR t% = 1 TO l%: ansi MID$(F$, t%, 1): NEXT
   '_|_|_|   IF ANSIDetect$  "" THEN SendToModem (ANSIDetect$)
   '_|_|_|   ANSIDetect$ = ""
WEND: ansi ""   '_|_|_|   POSITION CURSOR
Done:: CLOSE 1: COLOR 2, 0: SOUND 2222, 5: WHILE INKEY$ = "": WEND: END
SUB ansi (A$)
   DEF SEG = &Hb800
   STATIC W%, E%, l%, C%, O%, M%, F%, B%, V%, E$: SHARED ANSIDetect$
   IF W% < 99 THEN
      W% = 100: C% = 0: F% = 7: B% = 0: A = 0: M% = F% + 16 * B%
   END IF
   IF A$ = "" THEN LOCATE C% \ 80 + 1, C% MOD 80 + 1: EXIT SUB
   IF E%  27 THEN
      IF ASC(A$)  27 THEN GOSUB CHRout: ELSE E% = 27: E$ = A$
      EXIT SUB
   END IF: IF O%  27 AND ASC(A$) = 34 THEN O% = E%: EXIT SUB
   IF O% = 27 THEN
      IF ASC(A$) = 34 THEN O% = 0
      EXIT SUB
   END IF: E$ = E$ + A$
   IF LEN(E$) = 2 AND A$  "[" THEN E% = 0: E$ = "": EXIT SUB
   S = INSTR("HfABCDsuJKmhlpn", A$)
   SELECT CASE S
      CASE 0: EXIT SUB
      CASE 1: GOSUB CursorA
      CASE 2: GOSUB CursorA
      CASE 3: l% = -1: GOSUB CursorL
      CASE 4: l% = 1: GOSUB CursorL
      CASE 5: l% = 1: GOSUB CursorC
      CASE 6: l% = -1: GOSUB CursorC
      CASE 7: V% = C%
      CASE 8: C% = V%
      CASE 9: CLS : C% = 0
      CASE 10: l% = C%
         WHILE l% MOD 80  0: POKE l% * 2, 32: l% = l% + 1: WEND
      CASE 11: GOSUB Colorz
      CASE 15: A$ = CHR$(27) + "[" + MID$(STR$(C% \ 80 + 1), 2) + ";"
   ANSIDetect$ = A$ + MID$(STR$((C% MOD 80) + 1), 2) + "R"
   END SELECT: E% = 0: E$ = "": EXIT SUB
CursorA:: l% = VAL(MID$(E$, INSTR(E$, "[") + 1))
   C% = VAL(MID$(E$, INSTR(E$, ";") + 1))
   IF C% > 0 THEN C% = (C% - 1): IF C% > 79 THEN C% = 79
   IF l% > 0 THEN l% = (l% - 1): IF l% > 24 THEN l% = 24
   C% = l% * 80 + C%: RETURN
CursorL:: P = VAL(MID$(E$, INSTR(E$, "[") + 1))
   P = P - (P < 1): l% = INT(C% \ 80) + P * l%
   IF l%  24 THEN l% = 24
   C% = (C% MOD 80) + l% * 80: RETURN
CursorC:: P = VAL(MID$(E$, INSTR(E$, "[") + 1)): P = P - (P < 1)
   l% = (C% MOD 80) + P * l%: C% = INT(C% \ 80) * 80
   IF l%  79 THEN l% = 79
   C% = C% + l%: RETURN
Colorz:: E$ = MID$(E$, INSTR(E$, "[") + 1)
   DO: E% = VAL(E$)
      SELECT CASE E%
         CASE 0: F% = 7: B% = 0
         CASE 1: F% = (F% AND 7) OR 8
         CASE 5: B% = (B% AND 7) OR 8
         CASE 8: F% = B%
         CASE 30 TO 37: P = E% - 29
            E% = ASC(MID$("@DBFAECG", P)) AND 7: F% = (F% AND 248) OR E%
         CASE 40 TO 47: P = E% - 39
            E% = ASC(MID$("@DBFAECG", P)) AND 7: B% = (B% AND 248) OR E%
      END SELECT: P = INSTR(E$, ";"): E$ = MID$(E$, P + 1)
   LOOP WHILE P > 0: M% = F% + 16 * B%: RETURN
CHRout:: P = ASC(A$): IF P = 7 THEN BEEP: RETURN
   IF P = 13 THEN C% = C% - C% MOD 80: RETURN
   IF P = 10 THEN C% = C% + 80
   IF P  10 THEN POKE C% * 2, P: POKE C% * 2 + 1, M%: C% = C% + 1
   IF C% >= 2000 THEN
      C% = C% - 80: LOCATE 25, 80: PRINT: FOR l% = 3680 TO 3840
         POKE l%, PEEK(l% + 160): POKE l% + 160, B%: NEXT
   END IF: RETURN
END SUB
'_|_|_|   end   ANSISUB.BAS

---
> ] Being in the moment is all that there is....................

---------------
>>>>>>>>>>>>>>>>>>>>>> LAST Message In Thread <<<<<<<<<<<<<<<<<<<<<<

FIDO MESSAGE AREA==> TOPIC: 214 POWER BASIC   Ref: D4N00007 Date: 04/18/96
From: KERRY VINSON                                          Time: 11:33am
\/To: JOE NEGRON                                          (Read 3 times)
Subj: PowerBasic for OS/2

Joe Negron to James Goldbloom:
JN> Nobody is doubting that the Windows market is larger than the OS/2
JN> market.  I, however, *am* doubting that, for PB Inc., at least, that the
JN> Windows market is more *profitable* than the OS/2 market - being a small
JN> fish in an ocean compared to being a big fish in a small pond and all of
JN> that, you know.
You are truly of a unique perspective, Mr.Negron. And that is not to say that 
I do not concur with OS/2 being the obvious market for the PowerBasic family 
of software. Oh, but I do.
Microsoft/Digital Equipment/MCI announced just a few weeks ago that they have 
negotiated an alliance to provide a total internet/intranet solution package. 
This most certainly aims at a commerical need, and provides an undeniable 
business driver.
DEC makes the baddest servers in the world. Their software and operating 
systems to include mail has always sucked incredibly! Some of that had 
Microsoft origins all over it in the form of Pathworks. Fire breathing 
monsters of file servers is their main money maker. They are perfect for you, 
combined with the seemingly endless use of Windows NT Server. Use group and 
user level security to keep your intranet secure. Also provides an excellent 
built in firewall where the internet interfaces with the system. Log on from 
anywhere in the world to any trusted domain and your mail will be 
synchronized as fast as the transport will allow. Microsoft produces all of 
the software you need.
MCI owns the lines, as does Sprint, AT&T, and several other communication 
companies. MCI will provide your business with a mail network (hot transfers, 
connect and push/pull mail, disconnect) or they will provide you with a wide 
area data network (real time network connections to globally accessible 
servers). We have the hardware and the software, now the communication part 
comes into play. Communication, much like the personal computer itself, is 
beginning to make itself available much cheaper than ever before! This makes 
up one consortium.
We have treaded down an unknown but well predicted path. Just kind of neat to 
be there.
IBM/Lotus/Novell/Netscape/AT&T is the other consortium. IBM provides the 
damned good server hardware. Lotus provides the mail capability on top of the 
Novell wide area network transported over AT&T. Netscape provides all of the 
internet tools and capabilities to include web server. Lotus Notes is perfect 
for a business intranet mail system! That's one full book of facts with a 
definite business driver!
PowerBasic would not do too bad to side with either one of them, but would 
certainly play it down the middle. Make available a 32-bit Windows version of 
their compiler that produces 32-bit Windows versions? Then make that same 
compiler available on the OS/2 platform, which produces true OS/2 
applications?
The PowerBasic environment would maintain a strikingly similar and consistent 
look on both platforms. Although it would be tuned to take advantage of each 
particular platform, it would have a common PowerBasic feel on both ends. 
PowerBasic can do it all in one flavor or another.
Update one compiler, update the other. They are synchronized. We have seen 
this same method in several other packages, mainly C compilers and mail 
systems.
You will always have more demand on one side than the other, but PowerBasic 
would become a name that would pop into the mind of someone thinking of a 
compiler they'll need to use for a particular platform.
If committed to that approach, PowerBasic could become one of the highest 
demand compilers in these later nineties.
=Kerry
  * WCE 2.1G1/2457 * vinsonkm@partyline.net * 
http://www.partyline.net/rudmweb 
--- InterEcho 1.18
---------------