EASYSCRN.BAS

 BBS: Inland Empire Archive
Date: 04-16-93 (23:40)             Number: 369
From: EARL MONTGOMERY              Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: EASYSCRN.BAS                   Conf: (2) Quik_Bas

>>> Start of page 3.

SCREEN 0, 1, 1, 1: CLS
COLOR 14
LOCATE 3, 1: PRINT "F1=See Character Choices."
LOCATE 4, 1: PRINT "F2=Insert Text."
LOCATE 5, 1: PRINT "F3=Save Screen."
LOCATE 6, 1: PRINT "F4=Load Screen."
LOCATE 7, 1: PRINT "F5=Help Screen."
LOCATE 8, 1: PRINT "F10=Exit To Dos."
LOCATE 10, 1: PRINT "Press <C> To Clear Screen."
LOCATE 11, 1: PRINT "Press <F> To Capture Character."
LOCATE 12, 1: PRINT "Press <A> To View Attribute Chart."
LOCATE 13, 1: PRINT "Press <V> to View Intro Screen."
LOCATE 14, 1: PRINT "Press <X> to Fill Screen with Specific"+_
" Character"
LOCATE 15, 1: PRINT "Press <D> for PenDown mode."
LOCATE 16, 1: PRINT "Press <U> for PenUp mode."
LOCATE 18, 1: PRINT "Cursor placement before saving the screen:"
PRINT "Press <U> for PenUp."
PRINT "Move the cursor to a character that has the exact same"
PRINT "character one character to the right."
LOCATE 23, 20: PRINT "Press Any Key To Return To Main Screen."
loop2:
i$ = INKEY$
IF i$ = "" THEN GOTO loop2
SCREEN 0, 1, 0, 0
RETURN
errorroutine:
SOUND 200, 2
POKE p1, temp1: POKE p2, temp2
SCREEN 0, 1, 0, 0
RESUME NEXT
ExitToDos:
SCREEN 0, 0, 0, 0: CLS : SYSTEM
find:
pendown1 = PEEK(p1): pendown2 = PEEK(p2)
RETURN
attrib:
PCOPY 0, 1: CLS
BLOAD "attrib.dat"
loop6:
i$ = INKEY$
IF i$ = "" THEN GOTO loop6
CLS : PCOPY 1, 0
RETURN
introscreen:
PCOPY 0, 1
CLS
BLOAD "menu.dat", 0
WHILE INKEY$ = "": WEND
CLS
COLOR 14
PRINT "                         Press Any Key to continue."
PRINT
PRINT "             Once The Screen Clears Press <F5> For Help"+_
" Menu"
WHILE INKEY$ = "": WEND
CLS
PCOPY 1, 0
RETURN
fillscrn:
CLS

'>>> Continued on page 4

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