Pete's QBASIC Site

dbish: IMHO 160000 records is a size too big to simply load in memory, work and save at the end...If the file grows too big Windows can run out of memory and start paging and the speed fall near 0. The appropiate file mode for this type of file is RANDOM, where you use fixed length fields and you do...

Well, you did not posted the complete source so let me guess.. If what you wanted is to have an array n x n of chars you should do DIM a$(n,n) as string*1 In that case the array contains the actual characters and your code should work. If you do DIM A$(n,n) you get an array of variable length string...

Better a gambler's gun hidden in the sock...

A poker duel is preparing.....

Pete: Prepare a "Mississippi boat" skin for the forum!

I did'nt identify the Rafael Moneo in your post.. until now.

Incidentally he's the author of the building in front of my office.

How can I be so absent-minded?

Hey, it was me. Darn cookies.... Moneo: I have found what's wrong with your date validation and FB. Here: ZTEMP$="1"+Z$+"1" IF LEN(Z$)<>8 OR MID$(STR$(VAL(ZTEMP$)),2)<>ZTEMP$ THEN :RETURN you rely in QB's STR$ adding a space at the front of the value returned. You know, v1ctor re...

sid6.7 wrote:if its a qbasic bbs it can be done

QB bbs were a popular project in the early nineties. You can find that FidoNet echo archive useful.
http://www.outer-court.com/basic/echo/index.htm
A lot on using modems in QB..

A possibility mennonite does'nt mention... Are you sure you run the programs from their own folder? Clicking on them from the File Explorer will run them from a random folder, so they will not be able to find what they need. Right-click on them, go to properties and put just a dot in the Start Folde...

Rafael: First of all my excuses for not including a big DEFINT A-Z at the top of the code. I tested it in FB where variables are integer by default. In QB it will not work unless the DEFINT is there... I'm afraid I will have a hard time explaining the algorithm as I just found it in the ABC packets,...

I have found a simpler routine... FUNCTION DayName$ (Y, M, D) IF M > 2 THEN P = M - 3 Q = Y ELSE P = M + 9 Q = Y - 1 END IF Z = (D + Q + Q \ 4 - Q \ 100 + Q \ 400 + CINT(2.6 * P)) MOD 7 DayName$ = MID$("Tue Wed Thu Fri Sat Sun Mon" , 4 * Z + 1, 3) END FUNCTION

I have cookies enabled and they work for QBN, BasicNetwork or Freebasic.net.

I always find me unlogged when trying to edit a post I just made....

Can't edit my previous post, as I was unlogged...

I meant if you take that calculation out of the drawing loop.