Pete's QBASIC Site

Sorry for that question. Long time, no coding in Qb, so I couldn't resolve this simple problem. I found the solution and decided to delete the topic but, what about sharing? So this code does what I want; INPUT "File Name"; file$ k% = INSTR(1, file$, ".") IF NOT k% THEN file$ = f...

First, I started learning assembly like you. Then I wrote a qb code that you can use debug, use labels and save the hex code and string code that qb can use. Make a mini text editor, save the code lines, use the SHELL "DEBUG.EXE***************" After all that, I started to use TASM for mak...

Hi there. Can we make an exe file from a bas file just using the linker not the Qb4.5 itself ? For example like that; LINK.EXE "SCODE.BAS", "SCODE.EXE", "SCODE.LIB" The problem is to create the obj file from the bas file. If I could create the obj file from the bas file...

Hi! I was creating a library for QB4.5. But when I tried to add XMS commands to library, I detected that, writing single byte to that memory doesn't work with xms copy function. I found a way but, now I need to know if there is a direct way to write/read single byte to/from xms memory ? If you answe...

if you want to run your code in background using an interrupt; First you've to find an interrupt that you can replace your code. Then you should set the run time. For example we insert our code into INTERRUPT 9 and every keyboard action invokes our code. While finishing our program we restore the or...

if you check the INTERRUPTS you can see the 'PRINT SCREEN' interrupt. You can easily write a code and replace it with the original print screen interrupt and by the way you can get all dos? ss with Print screen key. Your new interrupt code should know the screen dimensions (ver, hor, depth) and you'...

also these are the virtual memory pages; ----------------------------------1: DIM MyScreen(199) as String * 320 MyPset; Sub Dot(X%,Y%,Z%) ax& = x% ay& = y% Def Seg = Varseg(MyScreen(0)) Offset& = VarPtr(MyScreen(0)) + ax& + ay& * 320& 'Be carefull With Overflow Error! Poke Of...

DECLARE FUNCTION Get.Red$ (Col%) DECLARE FUNCTION Get.GRe$ (Col%) DECLARE FUNCTION Get.Blu$ (Col%) 'Getting absolute 5 bit value of color component 'Declare Function Get.Red$(col%) 'Declare Function Get.Gre$(col%) 'Declare Function Get.Blu$(col%) SCREEN 13 FOR x = 0 TO 15 FOR y = 0 TO 15 LINE (80 +...

hi there. Can any one help me on setting the correct crt table for every individual resolution for every individual type of monitor ? I know every port and low memeory addresses needed to do that but I actually never set the correct crtc table :S. I assume you've already known how to install a svga ...

just divide your code into more modules. To do this, Open file menu, create file, and move your subs to there...

Hi, can we write/create the command 'Call Absolute' In asm ? What is the Logic ? The bare hex codes are stored in some where and then, the CS:IP is pointed there with the 'call absolute' command ? Call absolute [parameter list], [offset of hex code string] Proc MyAbsolute Put the Parameters Into Sta...