| Home | Ruff-In | MTutor | GradientFill | FB code | FBLoan | TW-Form | JaxGUI | Other DownLoads | PBCC Code | GW Code | Fix 2000/ XP | Text Screen Shots | QB code
Quick Basic Example code

ConASCII

 
This code is stripped of  some  unsusported characters by
 this site, you can look at it but to copy it would be useless.
This code is Generated for QB Screens placed in DATA
by Conascii.  
 
If you were to use QB compiled programs in Windows, you can use
16 Background colors thats not supported in DOS. 

 
 
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