Pete's QBASIC Site

vongodric wrote:why waste such effort on 16system? wnd why are you trying devide with 0 anyway?

1) 16bit system? Because it's fun!
2) It's an error... not sumfin I wanna do... because 0 diveded by whatever = 0, it just wouldn't make sense...

anywayz

Good luck & cya around!

I did a little work. DECLARE FUNCTION BitShift(value1, cmd$, value2) COMMON SHARED BSHIFTVALUES() AS INTEGER DIM SHARED BSHIFTVALUES(0 TO 15 AS INTEGER) FOR A = 0 TO 14 '15 is kinda 2much BSHIFTVALUES(A) = 2 ^A NEXT x = 87 x = BitShift(x,">>", 3) FUNCTION BitShift (value1, cmd$, value2) va...

As in answer to your "porting"question:

It's just reading plain C-code and try if there is a similar thing for it in QB, if not, I try to code it...

Currently I don't have any threading... I'm currently working on the fact of starting up of the system... I'm just getting errors about dviding through zero, since I'm using C's BitShift (<< or >>). I've adapted this to QuickBasic with the help of ppl on the forum here. As soon as I'm able to fix th...

THx Moneo... that would have given some mayor crap output, hahaha.
Thx Ryan for you explanation. I'm trying to 'shift' this in.

grtz
Seb

QBinux is developed in QBASIC based on Z!res old fake-os project It was... Until recently I have decided just to use only the necessary things. Most of Qbinux is now based upon the real deal. Last week, I was able to implent some linux source code (ported to QB) and it worked, before it didn't. it'...

Would you be interested in helping with Qbinux?
If you would, check out the site at http://mcclouth.tk

Instead of making all diffrent kinds of Shells.. maybe we can all work on one... Just an idea...

grtz
Seb

thk u Z!re!!!

how can I use 0x0000 in QB?

probably sumfin with &H but I don't know for sure.

grtz

I have developed a tiny FUNCTION (which I gonna use in Qbinux). DECLARE FUNCTION BitShift(value1, cmd$, value2) x = 87 x = BitShift(x,">>", 3) FUNCTION BitShift (value1, cmd$, value2) IF cmd$ = "<<" THEN '"value1" has to be shifted "value2" bit(s) to the left....

thx this is really usefull!!!

grtz
Seb

I now how I can do the C in QB which is Now I need to know can I can do I haven't been able that out yet.

thx
Grtz

..... I need to know what this does: ((val)=((val)&15) + ((val)>>4)*10) grtz Seb Why couldn't we do a simple operation like the following instead using a complicated BitRight function?: value = (value AND 15) + (INT(value/16)*10) Dividing by 16 and throwing away the remainder is the same as shi...

mm.... nvm... it did work...

and then we had the following:

^. TYPE not defined
^. Formal parameter specification illegal

Could it because the DECLARE for the FUNCTION is after... erm... TYPE?

Thx Z!re... damn I could have thought of that myself...

Can I parse for example: DECLARE FUNCTION CheckType (ctype) TYPE sumfin x AS INTEGER y AS INTEGER c AS INTEGER t AS STRING END TYPE DIM SHARED wins AS sumfin wins.x = 0:wins.y = 10: wins.c = 2: t = "dull!" parsed = CheckType(wins) IF PARSED = 1 THEN PRINT "Okay" ELSE PRINT "...

2 ways:

legal and illegal...

the legal way: open source.. port openoffice to QB or FB and voil?!

the illegal way: **edited by Microsoft** This text was removed due law restrictions, etc. **edited by Microsoft**

Good luck!

Nathan1993 wrote:Nek just got served!

Anyway... uhh... heh... umm... Na_th_an is pretty cool. I am gonna vote for him... Plus there was Quest for Opa-Opa I think, his text adventure...

Opa-Opa sound like Dutch to me... so his game's called Grandpa-Grandpa... roflol...

2 bad I have another delay... sumfin isn't working like it should...

grtz
Seb