Make your own free website on Tripod.com
| 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 "贠腛腛腛腛腛腛腛腛腛腛腛腛腛腛腛腛腛腛腛腛腛腛腛腛腛腛腛縊"
DATA "砄 OIO OdOoOnO'OtO OkOnOoOwO OhOoOwO OmOuOcOhO ODOAOTOAO砄"
DATA "砄 OiOsO OaOlOlOoOwOeOdO OiOnO OQOBO,O ObOuOtO OiOfO O O砄"
DATA "砄 OiOtO OiOsO OnOoOtO ObOeOiOnOgO OuOsOeOdO,O OiOtO O O砄"
DATA "砄 OwOoOuOlOdO ObOeO OaO OgOoOoOdO OpOlOaOcOeO OtOoO O O砄"
DATA "砄 OsOtOoOrOeO OaO OsOcOrOeOeOnO OoOrO OPOOOPO O O O O O砄"
DATA "砄 ObOoOxOeOsO.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砄"
DATA "砄 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砄"
DATA "砄 OCOOONOAOSOCOIOIO OhOaOsO O1O0O3O OKOBO OoOfO O O O O砄"
DATA "砄 OSOcOrOeOeOnOsO OaOnOdO ObOoOxOeOsO OsOtOoOrOeOdO O O砄"
DATA "砄 OiOnO ODOAOTOAO OiOnO OSOUOBOSO.O OPOBOCOCO O O O O O砄"
DATA "砄 OaOlOlOoOwOsO O6O4O OKOBO OoOfO ODOAOTOAO OiOnO O O O砄"
DATA "砄 OeOaOcOhO OSOUOBO,O OiOsO OwOhOyO OIO OcOaOnO O O O O砄"
DATA "砄 OdOoO OtOhOaOtO.O O O O O O O O O O O O O O O O O O O砄"
DATA "砄 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砄"
DATA "繭腛腛腛腛腛腛腛腛腛腛腛腛腛腛腛腛腛腛腛腛腛腛腛腛腛腛腛貽"
 
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 "񸭐:::::::::::::::::::::::::񵨢"
DATA "񸭐: ;C?o?n?a?s?c?i?i? ?w?i?l?l? ?a?l?s?o? ? ? ? 0:񵨢"
DATA "񸭐: 0m?a?k?e? ?S?c?r?e?e?n? ?f?o?r? ?B?S?A?V?E? ;:񵨢"
DATA "񸭐: 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0:񵨢"
DATA "񸭐:::::::::::::::::::::::::񵨢"
 

pop6:
DATA "蒩蚢蚢蚢蚢蚢蚢蚢蚢蚢蚢蚢蚢蚢蚢蚢蚢蚢蚢蚢蚢蚢籥"
DATA "篴 aBjyj jtjhjej jWjajyj,j jdjijdj jIj j j j篴"
DATA "篴 amjejnjtjijojnj jajnjyjtjhjijnjgj j j j j篴"
DATA "篴 aajbjojujtj jijtj jbjejijnjgj jFjRjEjEj.j篴"
DATA "篴 a j j j j j j j j j j j j j j j j j j j j篴"
DATA "萢蚢蚢蚢蚢蚢蚢蚢蚢蚢蚢蚢蚢蚢蚢蚢蚢蚢蚢蚢蚢蚢糰"
 

 
pop5:
DATA "謖膓膓膓膓膓膓膓膓膓膓膓膓膓膓膓膓膓膓膓膓膓膓膓膓膓膓膓膓膓穛"
DATA "簈 qYqoquq qcqaqnq qdqoqwqnqlqoqaqdq qCqoqnqaqsqcqiqiq qaqtq簈"
DATA "簈 qtqhqiqsq qaqdqdqrqeqsqsq: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簈"
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簈"
DATA "簈 qhqtqtqpq:q/q/qfqiqeqlqdqeqnqsq.qtqrqiqpqoqdq.qcqoqmq/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簈"
DATA "觪膓膓膓膓膓膓膓膓膓膓膓膓膓膓膓膓膓膓膓膓膓膓膓膓膓膓膓膓膓絨"
 

 
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