|
DECLARE SUB Launchs (r1%, c1%, r2%, c2%, ScnArea$, ForGround%, BkGround%)
DECLARE SUB Launch (r1, c1, r2,ScnArea$)
CLS
RESTORE pop1
Launch 2, 1, 8, ScnArea$
WHILE INKEY$ = "": WEND
RESTORE pop2
Launch 8, 49, 24, ScnArea$
WHILE INKEY$ = "": WEND
RESTORE pop3
Launch 2, 26, 15, ScnArea$
WHILE INKEY$ = "": WEND
RESTORE pop4
Launch 2, 49, 6, ScnArea$
WHILE INKEY$ = "": WEND
RESTORE pop5
Launch 17, 1, 24, ScnArea$
WHILE INKEY$ = "": WEND
RESTORE pop6
Launch 10, 1, 15, ScnArea$
WHILE INKEY$ = "": WEND
RESTORE pop7
Launch 17, 34, 24, ScnArea$
WHILE INKEY$ = "": WEND
CLS
PRINT " Do you want to change screen colors (y/n)"
DO: yn$ = INKEY$: LOOP UNTIL yn$ <> ""
IF yn$ = "Y" OR yn$ = "y" THEN
CLS
PRINT " Foreground and Background colors"
PRINT "Black=0, Blue=1, Green=2, Cyan= 3, Red=4, Magent=5, Brown=6, White=7"
PRINT
PRINT " Rest of Forground colors "
PRINT "Gray=8, Lt-Blue=9, Lt-Green=10, Lt-Cyan=11, Lt-Red=12, Lt-Magenta=13, "
PRINT "Yellow=14, Bright white = 15"
PRINT
INPUT "Enter new Foreground color number"; ForGround%
INPUT "Enter new BackGround color number"; BkGround%
END IF
CLS
RESTORE ColorScreen
Launchs 2, 2, 22, 62, ScnArea$, ForGround%, BkGround%
WHILE INKEY$ = "": WEND
pop1:
DATA "É^Í^Í^Í^Í^Í^Í^Í^Í^Í^Í^Í^Í^Í^Í^Í^Í^Í^Í^Í^Í^Í^»^"
DATA "º^ ^C^O^N^A^S^C^I^I^ ^w^i^l^l^ ^n^o^w^ ^ ^ ^º^"
DATA "º^ ^p^u^t^ ^p^r^e^m^a^d^e^ ^s^c^r^e^e^n^s^ ^º^"
DATA "º^ ^a^n^d^ ^b^o^x^e^s^ ^l^i^k^e^ ^t^h^i^s^ ^º^"
DATA "º^ ^i^n^ ^Q^B^ ^P^r^o^g^r^a^m^ ^D^A^T^A^.^ ^º^"
DATA "º^ ^H[i[t[ [a[n[y[ [k[e[y[ ^ ^ ^ ^ ^ ^ ^ ^ ^º^"
DATA "È^Í^Í^Í^Í^Í^Í^Í^Í^Í^Í^Í^Í^Í^Í^Í^Í^Í^Í^Í^Í^Í^¼^"
pop2:
DATA "ÚOÄOÄOÄOÄOÄOÄOÄOÄOÄOÄOÄOÄOÄOÄOÄOÄOÄOÄOÄOÄOÄOÄOÄOÄOÄOÄOÄO¿O"
DATA "³O OIO OdOoOnO'OtO OkOnOoOwO OhOoOwO OmOuOcOhO ODOAOTOAO³O"
DATA "³O OiOsO OaOlOlOoOwOeOdO OiOnO OQOBO,O ObOuOtO OiOfO O O³O"
DATA "³O OiOtO OiOsO OnOoOtO ObOeOiOnOgO OuOsOeOdO,O OiOtO O O³O"
DATA "³O OwOoOuOlOdO ObOeO OaO OgOoOoOdO OpOlOaOcOeO OtOoO O O³O"
DATA "³O OsOtOoOrOeO OaO OsOcOrOeOeOnO OoOrO OPOOOPO O O O O O³O"
DATA "³O ObOoOxOeOsO.O O O O O O O O O O O O O O O O O O O O O³O"
DATA "³O O O O O O O O O O O O O O O O O O O O O O O O O O O O³O"
DATA "³O O A A A A A A A A A A A A A A A A A A A A A A A O O O³O"
DATA "³O OCOOONOAOSOCOIOIO OhOaOsO O1O0O3O OKOBO OoOfO O O O O³O"
DATA "³O OSOcOrOeOeOnOsO OaOnOdO ObOoOxOeOsO OsOtOoOrOeOdO O O³O"
DATA "³O OiOnO ODOAOTOAO OiOnO OSOUOBOSO.O OPOBOCOCO O O O O O³O"
DATA "³O OaOlOlOoOwOsO O6O4O OKOBO OoOfO ODOAOTOAO OiOnO O O O³O"
DATA "³O OeOaOcOhO OSOUOBO,O OiOsO OwOhOyO OIO OcOaOnO O O O O³O"
DATA "³O OdOoO OtOhOaOtO.O O O O O O O O O O O O O O O O O O O³O"
DATA "³O O A A A A A A A A A A O O O O O O O O O O O O O O O O³O"
DATA "ÀOÄOÄOÄOÄOÄOÄOÄOÄOÄOÄOÄOÄOÄOÄOÄOÄOÄOÄOÄOÄOÄOÄOÄOÄOÄOÄOÄOÙO"
pop3:
DATA "²± ±²"
DATA "²± If you pattern ±²"
DATA "²± your source ±²"
DATA "²± after this one, ±²"
DATA "²± there shouldn't ±²"
DATA "²± be any mistakes ±²"
DATA "²± when displaying ±²"
DATA "²± them. ±²"
DATA "²± ±²"
DATA "²± Conascii is an ±²"
DATA "²± old screen edit-±²"
DATA "²± or upgraded for ±²"
DATA "²± screens in DATA ±²"
DATA "²± ±²"
pop4:
DATA "²0±0Ú:Ä:Ä:Ä:Ä:Ä:Ä:Ä:Ä:Ä:Ä:Ä:Ä:Ä:Ä:Ä:Ä:Ä:Ä:Ä:Ä:Ä:Ä:Ä:¿:±0²0"
DATA "²0±0³: ;C?o?n?a?s?c?i?i? ?w?i?l?l? ?a?l?s?o? ? ? ? 0³:±0²0"
DATA "²0±0³: 0m?a?k?e? ?S?c?r?e?e?n? ?f?o?r? ?B?S?A?V?E? ;³:±0²0"
DATA "²0±0³: 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0³:±0²0"
DATA "²0±0À:Ä:Ä:Ä:Ä:Ä:Ä:Ä:Ä:Ä:Ä:Ä:Ä:Ä:Ä:Ä:Ä:Ä:Ä:Ä:Ä:Ä:Ä:Ä:Ù:±0²0"
pop6:
DATA "ÉaÍaÍaÍaÍaÍaÍaÍaÍaÍaÍaÍaÍaÍaÍaÍaÍaÍaÍaÍaÍaÍa»a"
DATA "ºa aBjyj jtjhjej jWjajyj,j jdjijdj jIj j j jºa"
DATA "ºa amjejnjtjijojnj jajnjyjtjhjijnjgj j j j jºa"
DATA "ºa aajbjojujtj jijtj jbjejijnjgj jFjRjEjEj.jºa"
DATA "ºa a j j j j j j j j j j j j j j j j j j j jºa"
DATA "ÈaÍaÍaÍaÍaÍaÍaÍaÍaÍaÍaÍaÍaÍaÍaÍaÍaÍaÍaÍaÍaÍa¼a"
pop5:
DATA "ÖqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄq·q"
DATA "ºq qYqoquq qcqaqnq qdqoqwqnqlqoqaqdq qCqoqnqaqsqcqiqiq qaqtqºq"
DATA "ºq qtqhqiqsq qaqdqdqrqeqsqsq:q q q q q q q q q q q q q q q qºq"
DATA "ºq q q q q q q q q q q q q q q q q q q q q q q q q q q q q qºq"
DATA "ºq q q q q q q q q q q q q q q q q q q q q q q q q q q q q qºq"
DATA "ºq qhqtqtqpq:q/q/qfqiqeqlqdqeqnqsq.qtqrqiqpqoqdq.qcqoqmq/q qºq"
DATA "ºq q q q q q q q q q q q q q q q q q q q q q q q q q q q q qºq"
DATA "ÓqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄqÄq½q"
pop7:
DATA "ÛßßßßßßßßßßßÛ"
DATA "Û Thanks forÛ"
DATA "Û giving it Û"
DATA "Û a try. Û"
DATA "Û Û"
DATA "Û Û"
DATA "Û LATER Û"
DATA "ÛÜÜÜÜÜÜÜÜÜÜÜÛ"
ColorScreen:
DATA "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
DATA "º Conascii now generating ³ The color charts above º"
DATA "º User selectable color ³ are generated for only an º"
DATA "º screens and boxes. They ³ example, it can be deleted. º"
DATA "º are a little bit easier ³ I only included it in the º"
DATA "º to read in DATA then the ³ generation of the code to º"
DATA "º ones that every character ³ let peoply try it before º"
DATA "º has a color attribute. ³ they use it in their source º"
DATA "º ³ º"
DATA "º They will print much ³ As you can see, only two º"
DATA "º faster since they are ³ colors on these screens. º"
DATA "º printed 1 line at a time. ³ Any other Color controls º"
DATA "º ³ has to be created by the º"
DATA "º After you create your ³ programmer. º"
DATA "º screen or area, Copy it ³ º"
DATA "º with Copy tool and Click ³ This Code works in QBasic, º"
DATA "º on User Control PBdos & QB ³ QB4.5, QB4.0 and PBdos. º"
DATA "º to ClipBoard. Paste it ³ º"
DATA "º in NotePad or in your ³ º"
DATA "º Source. ³ º"
DATA "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
SUB Launch (r1, c1, r2, ScnArea$)
HI = r2 - r1 + 1
DEF SEG = &HB800
LO = r1 * 160
- 160 + (c1 * 2) - 3
FOR Y = 1 TO HI
READ S$
FOR X = 1 TO LEN(S$)
C$ = MID$(S$, X, 1)
POKE LO + X, ASC(C$)
NEXT X
LO = LO + 160
NEXT Y
END SUB
SUB Launchs (r1%, c1%, r2%, c2%, ScnArea$, ForGround%, BkGround%)
col% = c1%: row% = r1%
IF ForGround% = 0 AND BkGround% = 0 THEN ForGround% = 0: BkGround% = 7
FOR x% = 1 TO r2% - r1% + 1
READ ScnArea$
LOCATE row%, col%
COLOR ForGround%, BkGround%
PRINT ScnArea$;
ScnArea$ = ""
row% = row% + 1
NEXT x%
END SUB
|
