[phpBB Debug] PHP Warning: in file [ROOT]/phpbb/db/driver/mysqli.php on line 264: mysqli_fetch_assoc(): Couldn't fetch mysqli_result
[phpBB Debug] PHP Warning: in file [ROOT]/phpbb/db/driver/mysqli.php on line 326: mysqli_free_result(): Couldn't fetch mysqli_result
Pete's QBASIC Site Discuss QBasic, Freebasic, QB64 and more 2009-11-19T22:48:35-05:00 http://petesqbsite.com/phpBB3/app.php/feed/topic/3165 2009-11-19T22:48:35-05:00 2009-11-19T22:48:35-05:00 http://petesqbsite.com/phpBB3/viewtopic.php?p=20113#p20113 <![CDATA[Redefining characters for TUI]]>

Statistics: Posted by bongomeno — Thu Nov 19, 2009 10:48 pm

]]> 2009-11-19T13:36:19-05:00 2009-11-19T13:36:19-05:00 http://petesqbsite.com/phpBB3/viewtopic.php?p=20108#p20108 <![CDATA[Redefining characters for TUI]]>

Code: 

SUB Intx10CALL interruptx(&H10, inregsx, outregsx) END SUB
You don't need the first RegType at all. Interrupt could use the X one. It just does not use DS or ES. Don't ask me why both are in QB.BI which could also be $INCLUDE:'d instead of any TYPE declarations.

Statistics: Posted by burger2227 — Thu Nov 19, 2009 1:36 pm

]]> 2009-11-19T13:16:02-05:00 2009-11-19T13:16:02-05:00 http://petesqbsite.com/phpBB3/viewtopic.php?p=20107#p20107 <![CDATA[Redefining characters for TUI]]>
I tried to do something similar in QBasic, but I abandoned it: anyway, the font is nearly complete, and I hope that some of you would be interested (it required QB PDS 7.1)

Code: 

DECLARE SUB CharBin ()DECLARE FUNCTION bin2long& (a$)TYPE RegType ax    AS INTEGER bx    AS INTEGER cx    AS INTEGER dx    AS INTEGER bp    AS INTEGER si    AS INTEGER di    AS INTEGER flags AS INTEGEREND TYPE SHELL "mode co80"'OPEN "SCRN:" FOR OUTPUT AS #1          'Per scrivere sempre sullo schermo'Def seg=&HB800 Per usare peek e poke su pagina video' Define the type needed for INTERUPTX'TYPE RegTypeX ax    AS INTEGER bx    AS INTEGER cx    AS INTEGER dx    AS INTEGER bp    AS INTEGER si    AS INTEGER di    AS INTEGER flags AS INTEGER ds    AS INTEGER es    AS INTEGEREND TYPEDIM SHARED inregsx AS RegTypeXDIM SHARED outregsx AS RegTypeXinregsx.ax = &H1003inregsx.bx = 0CALL interruptx(&H10, inregsx, outregsx)COLOR 17, 7: PRINT "prova"'ENDCharBinCOLOR 15, 1: FOR i = 191 TO 224: PRINT CHR$(i); : COLOR 15, 0: PRINT " "; : COLOR 15, 1: NEXT'END'Non usare da 201 a 209DIM chardata AS STRINGchardata = CHR$(0) + CHR$(127) + CHR$(127) + CHR$(127) + CHR$(127) + CHR$(127) + CHR$(96) + CHR$(111) + CHR$(96) + CHR$(127) + CHR$(127) + CHR$(127) + CHR$(127) + CHR$(127) + CHR$(127) + CHR$(0)inregsx.ax = &H1100inregsx.bx = &H1000inregsx.cx = &H1inregsx.dx = 192inregsx.es = SSEG(chardata)inregsx.bp = SADD(chardata)CALL interruptx(&H10, inregsx, outregsx)chardata = CHR$(0) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(3) + CHR$(251) + CHR$(3) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(0)inregsx.dx = 190CALL interruptx(&H10, inregsx, outregsx)chardata = CHR$(255) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0)inregsx.dx = 194CALL interruptx(&H10, inregsx, outregsx)chardata = CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(255)inregsx.dx = 195CALL interruptx(&H10, inregsx, outregsx)chardata = CHR$(128) + CHR$(128) + CHR$(128) + CHR$(128) + CHR$(128) + CHR$(128) + CHR$(128) + CHR$(128) + CHR$(128) + CHR$(128) + CHR$(128) + CHR$(128) + CHR$(128) + CHR$(128) + CHR$(128) + CHR$(128)inregsx.dx = 191CALL interruptx(&H10, inregsx, outregsx)chardata = CHR$(255) + CHR$(128) + CHR$(128) + CHR$(128) + CHR$(128) + CHR$(128) + CHR$(128) + CHR$(128) + CHR$(128) + CHR$(128) + CHR$(128) + CHR$(128) + CHR$(128) + CHR$(128) + CHR$(128) + CHR$(128)inregsx.dx = 197CALL interruptx(&H10, inregsx, outregsx)chardata = CHR$(128) + CHR$(128) + CHR$(128) + CHR$(128) + CHR$(128) + CHR$(128) + CHR$(128) + CHR$(128) + CHR$(128) + CHR$(128) + CHR$(128) + CHR$(128) + CHR$(128) + CHR$(128) + CHR$(128) + CHR$(255)inregsx.dx = 198CALL interruptx(&H10, inregsx, outregsx)chardata = CHR$(0) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(254) + CHR$(252) + CHR$(248) + CHR$(240) + CHR$(224) + CHR$(192) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(0)inregsx.dx = 199CALL interruptx(&H10, inregsx, outregsx)chardata = CHR$(0) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(192) + CHR$(224) + CHR$(240) + CHR$(248) + CHR$(252) + CHR$(254) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(0)inregsx.dx = 200CALL interruptx(&H10, inregsx, outregsx)chardata = CHR$(1) + CHR$(1) + CHR$(1) + CHR$(1) + CHR$(1) + CHR$(1) + CHR$(1) + CHR$(1) + CHR$(1) + CHR$(1) + CHR$(1) + CHR$(1) + CHR$(1) + CHR$(1) + CHR$(1) + CHR$(1)inregsx.dx = 193CALL interruptx(&H10, inregsx, outregsx)chardata = CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(7) + CHR$(8) + CHR$(8) + CHR$(8) + CHR$(8) + CHR$(8) + CHR$(8) + CHR$(8) + CHR$(8)inregsx.dx = 193CALL interruptx(&H10, inregsx, outregsx)chardata = CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(240) + CHR$(8) + CHR$(24) + CHR$(24) + CHR$(56) + CHR$(120) + CHR$(120) + CHR$(248) + CHR$(248)inregsx.dx = 128CALL interruptx(&H10, inregsx, outregsx)chardata = CHR$(8) + CHR$(8) + CHR$(9) + CHR$(9) + CHR$(11) + CHR$(11) + CHR$(15) + CHR$(7) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0)inregsx.dx = 210CALL interruptx(&H10, inregsx, outregsx)chardata = CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(240) + CHR$(8) + CHR$(24) + CHR$(24) + CHR$(56) + CHR$(120) + CHR$(120) + CHR$(248) + CHR$(248)inregsx.dx = 187CALL interruptx(&H10, inregsx, outregsx)chardata = CHR$(248) + CHR$(248) + CHR$(248) + CHR$(248) + CHR$(248) + CHR$(248) + CHR$(248) + CHR$(248) + CHR$(248) + CHR$(248) + CHR$(248) + CHR$(248) + CHR$(248) + CHR$(248) + CHR$(248) + CHR$(248)inregsx.dx = 185CALL interruptx(&H10, inregsx, outregsx)chardata = CHR$(8) + CHR$(8) + CHR$(8) + CHR$(8) + CHR$(8) + CHR$(8) + CHR$(8) + CHR$(8) + CHR$(8) + CHR$(8) + CHR$(8) + CHR$(8) + CHR$(8) + CHR$(8) + CHR$(8) + CHR$(8)inregsx.dx = 186CALL interruptx(&H10, inregsx, outregsx)chardata = CHR$(248) + CHR$(248) + CHR$(248) + CHR$(248) + CHR$(248) + CHR$(248) + CHR$(248) + CHR$(240) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0)inregsx.dx = 188CALL interruptx(&H10, inregsx, outregsx)chardata = CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0) + CHR$(0)inregsx.dx = 211CALL interruptx(&H10, inregsx, outregsx)chardata = CHR$(0) + CHR$(0) + CHR$(3) + CHR$(12) + CHR$(16) + CHR$(32) + CHR$(64) + CHR$(64) + CHR$(64) + CHR$(32) + CHR$(16) + CHR$(12) + CHR$(3) + CHR$(0) + CHR$(0) + CHR$(0)inregsx.dx = 212CALL interruptx(&H10, inregsx, outregsx)chardata = CHR$(0) + CHR$(0) + CHR$(3) + CHR$(12) + CHR$(17) + CHR$(39) + CHR$(79) + CHR$(79) + CHR$(79) + CHR$(39) + CHR$(17) + CHR$(12) + CHR$(3) + CHR$(0) + CHR$(0) + CHR$(0)inregsx.dx = 213CALL interruptx(&H10, inregsx, outregsx)CALL interruptx(&H10, inregsx, outregsx)chardata = CHR$(0) + CHR$(0) + CHR$(192) + CHR$(48) + CHR$(8) + CHR$(4) + CHR$(2) + CHR$(2) + CHR$(2) + CHR$(4) + CHR$(8) + CHR$(48) + CHR$(192) + CHR$(0) + CHR$(0) + CHR$(0)inregsx.dx = 224CALL interruptx(&H10, inregsx, outregsx)chardata = CHR$(0) + CHR$(0) + CHR$(192) + CHR$(48) + CHR$(136) + CHR$(228) + CHR$(242) + CHR$(242) + CHR$(242) + CHR$(228) + CHR$(136) + CHR$(48) + CHR$(192) + CHR$(0) + CHR$(0) + CHR$(0)inregsx.dx = 225CALL interruptx(&H10, inregsx, outregsx)chardata = CHR$(0) + CHR$(0) + CHR$(63) + CHR$(32) + CHR$(32) + CHR$(32) + CHR$(32) + CHR$(32) + CHR$(32) + CHR$(32) + CHR$(32) + CHR$(32) + CHR$(63) + CHR$(31) + CHR$(0) + CHR$(0)inregsx.dx = 214CALL interruptx(&H10, inregsx, outregsx)chardata = CHR$(0) + CHR$(0) + CHR$(63) + CHR$(32) + CHR$(32) + CHR$(32) + CHR$(32) + CHR$(36) + CHR$(35) + CHR$(33) + CHR$(32) + CHR$(32) + CHR$(63) + CHR$(31) + CHR$(0) + CHR$(0)inregsx.dx = 215CALL interruptx(&H10, inregsx, outregsx)CALL interruptx(&H10, inregsx, outregsx)chardata = CHR$(0) + CHR$(0) + CHR$(248) + CHR$(8) + CHR$(12) + CHR$(12) + CHR$(12) + CHR$(12) + CHR$(12) + CHR$(12) + CHR$(12) + CHR$(12) + CHR$(252) + CHR$(252) + CHR$(0) + CHR$(0)inregsx.dx = 226CALL interruptx(&H10, inregsx, outregsx)chardata = CHR$(0) + CHR$(0) + CHR$(248) + CHR$(8) + CHR$(44) + CHR$(76) + CHR$(204) + CHR$(140) + CHR$(140) + CHR$(12) + CHR$(12) + CHR$(12) + CHR$(252) + CHR$(252) + CHR$(0) + CHR$(0)inregsx.dx = 227CALL interruptx(&H10, inregsx, outregsx)chardata = CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255)inregsx.dx = 178CALL interruptx(&H10, inregsx, outregsx)chardata = CHR$(0) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255)inregsx.dx = 145CALL interruptx(&H10, inregsx, outregsx)chardata = CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(0)inregsx.dx = 146CALL interruptx(&H10, inregsx, outregsx)chardata = CHR$(0) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(127) + CHR$(63) + CHR$(31) + CHR$(15) + CHR$(7) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(0)inregsx.dx = 230CALL interruptx(&H10, inregsx, outregsx)chardata = CHR$(0) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(7) + CHR$(15) + CHR$(31) + CHR$(63) + CHR$(127) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(0)inregsx.dx = 231CALL interruptx(&H10, inregsx, outregsx)chardata = CHR$(0) + CHR$(127) + CHR$(127) + CHR$(127) + CHR$(127) + CHR$(126) + CHR$(120) + CHR$(96) + CHR$(120) + CHR$(126) + CHR$(127) + CHR$(127) + CHR$(127) + CHR$(127) + CHR$(127) + CHR$(0)inregsx.dx = 216CALL interruptx(&H10, inregsx, outregsx)chardata = CHR$(0) + CHR$(127) + CHR$(127) + CHR$(113) + CHR$(112) + CHR$(112) + CHR$(112) + CHR$(112) + CHR$(112) + CHR$(112) + CHR$(112) + CHR$(113) + CHR$(127) + CHR$(127) + CHR$(127) + CHR$(0)inregsx.dx = 217CALL interruptx(&H10, inregsx, outregsx)chardata = CHR$(0) + CHR$(255) + CHR$(255) + CHR$(199) + CHR$(7) + CHR$(7) + CHR$(7) + CHR$(7) + CHR$(7) + CHR$(7) + CHR$(7) + CHR$(199) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(0)inregsx.dx = 232CALL interruptx(&H10, inregsx, outregsx)chardata = CHR$(0) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(63) + CHR$(15) + CHR$(3) + CHR$(15) + CHR$(63) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(255) + CHR$(0)inregsx.dx = 233CALL interruptx(&H10, inregsx, outregsx)DEFINT A-ZFUNCTION bin2long& (a$)    c& = 1    FOR a = LEN(a$) TO 1 STEP -1IF MID$(a$, a, 1) <> "0" THEN    a& = a& + c&END IFc& = c& * 2    NEXT    bin2long& = a&END FUNCTIONDEFSNG A-ZSUB CharBinCLSa$ = "00000000": PRINT bin2long(a$)a$ = "11111110": PRINT bin2long(a$)a$ = "11111110": PRINT bin2long(a$)a$ = "11111110": PRINT bin2long(a$)a$ = "01111110": PRINT bin2long(a$)a$ = "01111110": PRINT bin2long(a$)a$ = "00111110": PRINT bin2long(a$)a$ = "00011110": PRINT bin2long(a$)a$ = "00001110": PRINT bin2long(a$)a$ = "00000110": PRINT bin2long(a$)a$ = "00000110": PRINT bin2long(a$)a$ = "11111110": PRINT bin2long(a$)a$ = "11111110": PRINT bin2long(a$)a$ = "11111110": PRINT bin2long(a$)a$ = "11111110": PRINT bin2long(a$)a$ = "00000000": PRINT bin2long(a$)END SUB
The SUB CharBin helps you to design new characters.

Statistics: Posted by angros47 — Thu Nov 19, 2009 1:16 pm

]]>