BW> -------------------------8<------------------------ Where might the rest of this source code be found Bill? I took a quick peak into some of the "Winer" source code and didn't immediately see it. I have a feeling it wouldn't hurt to run this on my source code from time to time to make sure that what I think I'm doing is what is happening. . pat.pridgen@svis.org . La Grande, Oregon *SignIt 2.x #001* ... "I think not," said Descartes, and promptly disappeared. ___ Blue Wave/DOS v2.30 --- Maximus 2.02 * Origin: THE LOFT in Auburn IN 219-925-5524 & 238-3222 HST/V34+ (1:236/7) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F4200057 Date: 03/27/98 From: DAVID ROTHSCHILD Time: 04:32pm \/To: ALL (Read 3 times) Subj: Multiple eofs Hello Everyone! How do I read/write files with multiple EOF's (like ZIPs or EXEs)? I'm writing an Encryption program, but it stops at the first EOF. I tried a FOR X = 1 to LOF..... but then I ran into an "Input past end of file", even when there was more file past the EOF. David --- DB 1.39/004485 * Origin: The Diamond Bar BBS, San Dimas CA, 909-599-2088 (1:218/1001) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F4200058 Date: 03/28/98 From: RICHARD CRIST Time: 08:40am \/To: ALL (Read 3 times) Subj: Euphoria Has any one heard of the program Euphoria. This program states that it is better then Qbasic in that you are not limited to 640K. It also states that it easier to use. I want to know if anyone has used this program and is it realy better. Thanks, Rich --- QScan/PCB v1.17b / 01-0406 * Origin: Knight Moves - Rochester,NY 716-865-2106 (1:2613/313) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F4200059 Date: 03/27/98 From: HANS LUNSING Time: 08:17am \/To: DAVID ROTHSCHILD (Read 3 times) Subj: Using poke Hello David On Sunday, 22 March 1998 21:26:00, you wrote to All: DR> How do I use POKE to draw pixels in screen 12? Or is there DR> something faster? Here is a demonstration of two methods: DEFINT A-Z CONST PIXELS = 10000 SCREEN 12 DEF SEG = &HA000 REDIM BitMask%(0 TO 7) FOR Bit% = 0 TO 7 BitMask%(7 - Bit%) = 2 ^ Bit% NEXT Bit% MaxX& = 640 RANDOMIZE TIMER CLS ' Method 1, with set-reset register ' The Graphics Address Port is &h3CE. ' Enable raster mode by setting the Enable_Set_Reset ' register (index 1) to &hF (all planes affected) OUT &H3CE, 1 OUT &H3CF, &HF FOR i = 1 TO PIXELS X = 640 * RND Y = 480 * RND Colour = 16 * RND ' Load color via Set-Reset register (index 0) OUT &H3CE, 0 OUT &H3CF, Colour ' Set Bit-Mask register (index 8) to desired pixel OUT &H3CE, 8 OUT &H3CF, BitMask%(X% AND 7) Offset& = (MaxX& * Y% + X%) \ 8 Byte% = PEEK(Offset&) 'Dummy read POKE Offset&, Byte% 'Store pixel in memory NEXT i 'Reset registers for normal operation 'First set Bit-Mask register (8) to &hFF (all bits affected) OUT &H3CE, 8 OUT &H3CF, &HFF 'Then set Enable_Set_Reset register (1) to 0 OUT &H3CE, 1 OUT &H3CF, 0 DO: LOOP UNTIL LEN(INKEY$) RANDOMIZE TIMER CLS ' Method 2, with write mode 2 ' Set write mode 2 (all planes affected) OUT &H3CE, 5 OUT &H3CF, 2 'Point to Bit_Mask register (8) OUT &H3CE, 8 FOR i = 1 TO PIXELS X = 640 * RND Y = 480 * RND Colour = 16 * RND Offset& = (MaxX& * Y% + X%) \ 8 ' Set Bit_Mask register to desired pixel OUT &H3CF, BitMask%(X% AND 7) POKE Offset&, Colour 'Store pixel in memory NEXT i 'Reset registers for normal operation: 'set write mode 0 (default) OUT &H3CE, 5 OUT &H3CF, 0 DO: LOOP UNTIL LEN(INKEY$) SCREEN 0 END It's not very fast. Method 2 is about as fast as PSET, and method 1 is a bit slower. To do it fast you have to resort to assembler. And it's no use to make an assembler procedure to draw just one pixel because calling the procedure for every pixel will make it just as fast as PSET. Friendly greeting you, Hans Lunsing, Fido : 2:500/104.6955 Internet : jlunsing@doge.nl --- Terminate 5.00/Pro * Origin: HCC DOSgg SW Boss West 1, ++31793317774 (2:500/104.6955) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F4200060 Date: 03/28/98 From: KURT KUZBA Time: 11:34pm \/To: DAVID ROTHSCHILD (Read 3 times) Subj: Using poke DR> How do I use POKE to draw pixels in screen 12? Or is DR> there something faster? You can use the PSET command. '_|_|_| 12HPSET.BAS PUBLIC DOMAIN Kurt Kuzba 3/28/1998 DECLARE SUB testpattern () SCREEN 12 testpattern WHILE INKEY$ = "": WEND SCREEN 0: WIDTH 80, 25 SUB testpattern DIM x(220 TO 420) AS LONG, y(140 TO 340) AS LONG FOR t% = 140 TO 340: y(t%) = t%: NEXT FOR t% = 220 TO 420: x(t%) = t%: NEXT FOR t% = 0 TO 3000 SWAP x((t% MOD 201) + 220), x(RND * 200 + 220) SWAP y((t% MOD 201) + 140), y(RND * 200 + 140) NEXT FOR v% = 140 TO 340 FOR h% = 220 TO 420 PSET (x(h%), y(v%)), ((x(h%) * y(v%) \ 3) AND 15) IF INKEY$ > "" THEN EXIT SUB NEXT NEXT END SUB > ] I'm not materialistic. I'm just Object Oriented............. --- * Origin: *YOPS ]I[* 8.4 GIG * RA/FD/FE * Milwaukee, WI (1:154/750) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F4200061 Date: 03/29/98 From: HARRY HICKEY Time: 12:30am \/To: RICHARD CRIST (Read 3 times) Subj: Euphoria RC> Has any one heard of the program Euphoria. A recent article in our local newsmag, the Monitor (Capital PC Users Group, Wash. DC area) gave Euphoria very high marks. I haven't tried it myself, but -- GOOD points: virtually unlimited memory. It builds structures (arrays, strings, &c) until your machine memory is all gone, then builds a workfile on the hard disk, which it's supposed to clean up when through. BAD points: strictly interpretive, and a memory-eater, since every structure-element (short integer, long integer, or even a character in a string) takes up 4 bytes. If you want to download, it's shareware: web address is -- http://members.aol.com/FilesEu/v20.htm RC>--- QScan/PCB v1.17b / 01-0406 RC> * Origin: Knight Moves - Rochester,NY 716-865-2106 (1:2613/313) -!- SLMR 2.1a Galactic Dept of Wts & Measures: TAKE US TO YOUR LITER! --- * Origin: * My Place BBS * 28.8 V.34 * Bowie, Md * (301)805-1602 * (1:109/570) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F4200062 Date: 03/29/98 From: NICK ANDRE Time: 12:21am \/To: DAVID ROTHSCHILD (Read 3 times) Subj: Re: Multiple eofs DR> DR> How do I read/write files with multiple EOF's (like ZIPs or EXEs)? DR> I'm writing an Encryption program, but it stops at the first EOF. I DR> tried a FOR X = 1 to LOF..... but then I ran into an "Input past end of DR> file", even when there was more file past the EOF. Are you opening/closing your files in binary mode? If you have a routine to compute the size of the file, you can open it in binary, read the file (I'd poke it into memory if its small enough, perfect for encryption writing). Nick. --- Renegade v5-11 Exp * Origin: The Best Lil' Mail Server in Collingwood! :) (1:252/0) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F4200063 Date: 03/28/98 From: MARTY BLANKENSHIP Time: 10:46am \/To: KURT KUZBA (Read 3 times) Subj: Re: QB.QLB+QBSER.QLB=BOTH.QLB KK> Get a copy of EasyDoor. The QB_EDR.LIB has all the serial, KK> ANSI, and low-level interrupt access routines you will need KK> for your project. I don't believe the author still supports KK> it, but you can send him a letter and find out. KK> If you have internet access, try http://www.filepile.com/ Thats the door library that I'm useing. I like it alot and was thinking about registering it but can't seem to get ahold of the author. He used to post in here a year or so ago. --- Renegade v5-11 Exp * Origin: Greetings from The GameMaster BBS! (1:11/303) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F4200064 Date: 03/28/98 From: RICKEY PARRISH Time: 07:15pm \/To: STEVE WRIGHT (Read 3 times) Subj: Screen Saver SW> Hi Nigel, really enjoyed your article on Boolean Logic, it was full SW> of intersting information :) SW> i also have a question for ya i have been in some bussiness's and SW> saw a screen saver where the name of the store was on the screen SW> and floated around not to fast it seemed like 3d i was wondering if you SW> have seen them and could this be wrote in quick basic? SW> thanks Steve If we're talking about the same thing, its a screensaver which comes with new pentium mmx based computers. I know I couldnt write anything like that, but Im sure it could be done by someone else in here. --- Maximus/2 2.02 * Origin: T-Shirts 'N Genes BBS Duncan Canada (250) 748-3408 (1:340/204) --------------- FIDO MESSAGE AREA==> TOPIC: 125 QUICK BASIC Ref: F4200065 Date: 03/28/98 From: PETER DALTON Time: 06:50pm \/To: CHRIS GUNN (Read 3 times) Subj: QB.QLB+QBSER.QLB=BOTH.QLB On (23 Mar 98) Chris Gunn wrote to Peter Dalton... Hi Chris, PD> erm, no. I have some sub-routines that I add in as required and then PD> call with a gosub...it works. What I do when the program gets too big CG> You can use GOSUB's inside an INCLUDE file if you want. It's just not thanks for that, all usefull info is welcomed. CG> Some of my programs have EXE's over 300Kb and have as many as five oaded CG> source code modules as well as my custom QLB's. My hotel program has three I've had a database spread over five .exe's...as you say, it's possible to put big stuff together. Success Peter --- PPoint 1.88 * Origin: Peter Points at last! (2:254/60.26)