Easyscrn.Bas

 BBS: Inland Empire Archive
Date: 04-16-93 (23:39)             Number: 368
From: EARL MONTGOMERY              Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: Easyscrn.Bas                   Conf: (2) Quik_Bas

'>>> Start of page 2.

IF flag$ = "PenDown" THEN POKE p1, pendown1: POKE p2, pendown2
RETURN
GoDown:
p1 = p1 + 160: p2 = p2 + 160
row = row + 1
IF row > 25 THEN row = 25: p1 = p1 - 160: p2 = p2 - 160
IF p1 > 4000 THEN BEEP: STOP
IF flag$ = "PenDown" THEN POKE p1 - 160, pendown1: POKE p2 -_
 160, pendown2
IF flag$ = "PenDown" THEN POKE p1, pendown1: POKE p2, pendown2
RETURN
GoUp:
p1 = p1 - 160: p2 = p2 - 160
row = row - 1
IF row < 1 THEN row = 1: p1 = p1 + 160: p2 = p2 + 160
IF flag$ = "PenDown" THEN POKE p1 + 160, pendown1: POKE p2 +_
 160, pendown2
IF flag$ = "PenDown" THEN POKE p1, pendown1: POKE p2, pendown2
RETURN
selectcharacter:
PCOPY 0, 1
SCREEN 0, 1, 0, 0: CLS
BLOAD "char.dat", 0
LOCATE 23, 1
LINE INPUT " Character value "; a$
LOCATE 23, 1: PRINT "                         ";
LOCATE 23, 1
LINE INPUT "Attribute "; b$
POKE p1, VAL(a$): POKE p2, VAL(b$)
pendown1 = PEEK(p1): pendown2 = PEEK(p2)
CLS : PCOPY 1, 0
RETURN
InsertText:
SCREEN 0, 1, 1, 1: CLS
LOCATE 10, 30: LINE INPUT "Background Color? "; bg$
bg = VAL(bg$): CLS
LOCATE 10, 30: LINE INPUT "Foreground Color? "; fg$: fg =_
 VAL(fg$)
SCREEN 0, 1, 0, 0
COLOR fg, bg
LOCATE row, column + 1: LINE INPUT ; a$
RETURN
SaveScreen:
SCREEN 0, 1, 1, 1: CLS
PRINT "Did you move your cursor as directed in the Help Menu?"
PRINT "If not press <ENTER> now."
LOCATE 11, 30: INPUT "File Name to Save ", f$
SCREEN 0, 1, 0, 0
POKE p1, PEEK(p1 + 2): POKE p2, PEEK(p2 + 2)
BSAVE f$ + ".dat", 0, 4000
RETURN
LoadScreen:
SCREEN 0, 1, 1, 1: CLS
LOCATE 10, 30: INPUT "File Name to Load "; f$
SCREEN 0, 1, 0, 0
c = -1
BLOAD f$ + ".dat", 0
c = 0
temp1 = PEEK(p1): temp2 = PEEK(p2)
RETURN
HelpScrn:

'>>> Continued on page 3

--- Maximus 2.01wb
 * Origin: Verbose Ink * Dallas * 214-437-0914 * V32b/HST (1:124/5125)