EASYSCRN.BAS

 BBS: Inland Empire Archive
Date: 04-16-93 (23:42)             Number: 370
From: EARL MONTGOMERY              Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: EASYSCRN.BAS                   Conf: (2) Quik_Bas
'>>> Start of page 4.

INPUT "Character ", c
CLS
INPUT "attribute ", a
CLS
FOR x = 0 TO 3998 STEP 2
POKE x, c: POKE x + 1, a
NEXT
c = 0: a = 0
RETURN
'End of EasyScrn.BAS


--- Maximus 2.01wb
 * Origin: Verbose Ink * Dallas * 214-437-0914 * V32b/HST (1:124/5125)
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