ANSI and qb4.5

 BBS: The MOONFLOWER
Date: 09-01-93 (15:51)             Number: 79
From: RICK & DOUG MACKENZIE #1     Refer#: NONE
  To: TOO TALL #1 @3542*1           Recvd: YES 
Subj: ANSI and qb4.5                 Conf: (125) The Progra

Re: ANSI and qb4.5 > I am wrighting a door in quick basic 4.5 i have most of it done, but i need > to add ansi colors to it. how can i can this be done? > i tried read = "[27m" but he esc key dows bot work in the editor. Maybe this'll help: CALL MiscInfo(4, ANSI$) ' Get the ANSI flag of user IF ANSI$ = "1" THEN ' If user has ANSI, assign color codes AnsiCall$ = CHR$(27) + "[" Reset$ = AnsiCall$ + "0m" ' Put all mode to off, reset Blink$ = AnsiCall$ + "5m" ' Put in blinking mode Invert$ = AnsiCall$ + "7m" ' Put in reverse video mode Bright$ = AnsiCall$ + "1m" ' Put in high intensity mode Black$ = AnsiCall$ + "30m" ' Red$ = AnsiCall$ + "31m" ' Green$ = AnsiCall$ + "32m" ' Yellow$ = AnsiCall$ + "33m" ' Foreground text color Blue$ = AnsiCall$ + "34m" ' Magenta$ = AnsiCall$ + "35m" ' Cyan$ = AnsiCall$ + "36m" ' White$ = AnsiCall$ + "37m" ' BlackBack$ = AnsiCall$ + "40m" ' RedBack$ = AnsiCall$ + "41m" ' GreenBack$ = AnsiCall$ + "42m" ' YellowBack$ = AnsiCall$ + "44m" ' Background text color BlueBack$ = AnsiCall$ + "44m" ' MagentaBack$ = AnsiCall$ + "45m" ' CyanBack$ = AnsiCall$ + "46m" ' WhiteBack$ = AnsiCall$ + "47m" ' END IF $$ Ŀ Ŀ Ŀ (416)782-9494 1000+Msgs./Day Ŀ TORONTO / @1416016 1000+ Files Lines of Pleasure 18+ Olne. Prgs 0 0Via: 1416016*1 1416000*1 1604000*1 1616001*1 2*1 6160*1 1509509*1
Outer Court
Echo Basic Postings

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET