Move your program anywhere and just unzip to that folder. Also you can add your program into a copy of this zip for uploading to a site using WinZip or compatable program. You can even rename the zip copy to whatever you want.


http://www.4shared.com/file/199790008/57...ram64.html

'Program multiplication simple
'lrcvs
'(MU) Spain
'13 Jan 2010

'This program is based on: a * b = c >>> a = c / X

CLS

a$ = "9876543298789"
b$ = "2468013"

'a * b

la = LEN(a$) + LEN(b$)
c$ = STRING$(la, "0")

FOR r = 1 TO la
FOR s = 0 TO 9
MID$(c$, r) = LTRIM$(STR$(s))
v$ = LTRIM$(STR$(VAL(c$) / VAL(b$)))
IF v$ = a$ THEN PRINT "Program = "; VAL(c$): PRINT : PRINT "Computer = "; VAL(a$) * VAL(b$): END
IF VAL(a$) < VAL(v$) THEN MID$(c$, r) = LTRIM$(STR$(s - 1)): EXIT FOR
NEXT s
NEXT r
SLEEP
END

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

'Program arithmetic division with integers numbers
'lrcvs
'(MU) Spain
'09 Jan 2010

CLS
a$ = "9876598743014313"
b$ = "388798006"

'A/B

la = LEN(a$)
c$ = STRING$(la, "0")

FOR r = 1 TO la
    FOR s = 0 TO 9
    MID$(c$, r) = LTRIM$(STR$(s))
    v$ = LTRIM$(STR$(VAL(c$) * VAL(b$)))
    IF VAL(v$) = VAL(a$) THEN PRINT v$: EXIT FOR
    IF VAL(a$) < VAL(v$) THEN MID$(c$, r) = LTRIM$(STR$(s - 1)): EXIT FOR
    NEXT s
NEXT r

r$ = LTRIM$(STR$(VAL(a$) - (VAL(c$) * VAL(b$))))
d$ = LTRIM$(STR$(VAL(r$) / VAL(b$)))

PRINT "Program = "; LTRIM$(STR$(VAL(c$))) + " . " + RIGHT$(d$, LEN(d$) - 1)
PRINT
PRINT "Remanence = "; r$
PRINT
PRINT "Computer = "; VAL(a$) / VAL(b$)
SLEEP
END

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

'Program square root
'lrcvs
'(MU) Spain
'12 Jan 2010

CLS

'a$ = number to square root

a$ = "25521342100008787"

la = INT(LEN(a$) / 2) + 1
c$ = STRING$(la, "0")
FOR r = 1 TO la
    FOR s = 0 TO 9
    MID$(c$, r) = LTRIM$(STR$(s))
    v$ = LTRIM$(STR$(VAL(c$) * VAL(c$)))
    IF VAL(a$) < VAL(v$) THEN MID$(c$, r) = LTRIM$(STR$(s - 1)): EXIT FOR
    NEXT s
NEXT r

t$ = LTRIM$(STR$(VAL(a$) - (VAL(c$) * VAL(c$))))
d$ = LTRIM$(STR$(VAL(t$) / (VAL(c$)) / 2))

PRINT "Square root of = "; a$
PRINT
PRINT "Program = "; LTRIM$(STR$(VAL(c$))) + " . " + RIGHT$(d$, LEN(d$) - 1)
PRINT
PRINT "Remanence = "; t$
PRINT
PRINT "Computer = "; SQR(VAL(a$))
SLEEP
END

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

Anyone played Terry's recent game, VVVVVV http://thelettervsixtim.es/. Nice to see old community members and their current work. If you haven't played it, it's platform game , but with a few twists/challenges.

The only pity it wasn't coded in BASIC (Qb/Qb64 or freeBASIC) as it would be easily be possible but it was coded in portal/web friendly flash.

I'm making a 2D RPG game using FreeBASIC and SDL libraries and need some help on some things. Right now I have a map creator and a small NPC movement routine, but now I'm trying to create a text dialog box using SDL_ttf. The problem I'm running into is making the text wrap within a certain area. Anyone have any ideas or a nice little routine they've come up with? Also, I'm the only one so far who's working on this game, so if anyone would like to join, you can email or IM me at ccabose@aol.com, or PM me on here, whichever you prefer.

The goal is a full fledge RPG with an expandable world and maybe someday even multiplayer. I already have graphics, templates, animations, sounds, music, and who knows how many sprites to start off with. All I need now is programmers to help. Thanks

Can anyone post a tutorial or post a link to a tutorial that explains how to print text on a SDL surface at a designated location? Thanks

What's up everyone? My name is Adam. I'm from Seattle. I'm new to the forum and just wanted to say hi.. I hope I posted this in the right section.

Saying hello to all my old qb buddies, if they are still around that is  . Site brings back memories, I see you guys have a new IDE (qb64), last time I browsed here, there was FreeBasic. Anyone still working on win95 and using qb4.5? Anyway, saying my hellos. Hey Wildcard, is Relsoft still around??

'PROGRAM : MULTIPLICATION LIMITLESS VER #1

'LRCVS 01.01.2010

'THIS PROGRAM SIMPLY MAKES A MULTIPLICATION

'WITH ALL THE PARTIAL PRODUCTS.
'............................................................


DECLARE SUB A.INICIO (A$, B$)
DECLARE SUB B.STORE (CAD$, N$)
DECLARE SUB C.PIZARRA ()
DECLARE SUB D.ENCABEZADOS (A$, B$)
DECLARE SUB E.MULTIPLICACION (A$, B$)
DECLARE SUB G.SUMA ()
DECLARE FUNCTION F.INVCAD$ (CAD$)


CALL A.INICIO(A$, B$)
CALL B.STORE(A$, "A")
CALL B.STORE(B$, "B")
CALL C.PIZARRA
CALL D.ENCABEZADOS(A$, B$)
CALL E.MULTIPLICACION(A$, B$)
CALL G.SUMA

SUB A.INICIO (A$, B$)
CLS
INPUT "NUMERO DE MUPLICACIONES  "; S
CLS
A$ = ""
B$ = ""
FOR N = 1 TO S
RANDOMIZE TIMER
A$ = A$ + LTRIM$(STR$(INT(RND * 9)))
NEXT N
FOR N = 1 TO S
RANDOMIZE TIMER
B$ = B$ + LTRIM$(STR$(INT(RND * 9)))
NEXT N

END SUB

SUB B.STORE (CAD$, N$)
'AQUI GUARDAMOS LOS DATOS EN UN FICHERO
OPEN "O", #1, N$
FOR M = LEN(CAD$) TO 1 STEP -1
WRITE #1, MID$(CAD$, M, 1)
NEXT M
CLOSE (1)
END SUB

SUB C.PIZARRA
'INICIAMOS LA PIZZARA
OPEN "A", #3, "R"
WRITE #3, ""
CLOSE (3)
KILL "R"
END SUB

SUB D.ENCABEZADOS (A$, B$)
'AQUI ESCRIBIMOS LOS DATOS EN EL FICHERO FINAL
'VARIABLES
'LT :NUM,LONGITUD TOTAL DEL MULTIPLICANDO + MULTIPLICADOR
'L$ :TEX, CADENA PATRON
LT = LEN(A$) + LEN(B$) + 1
'ESCRIBIMOS EL MULTIPLICANDO
L$ = STRING$(LT, " ")
OPEN "A", #3, "R"
MID$(L$, LT - LEN(A$) + 1) = A$
WRITE #3, L$
CLOSE (3)
'ESCRIBIMOS EL MULTIPLICADOR
L$ = STRING$(LT, " ")
OPEN "A", #3, "R"
MID$(L$, LT - LEN(B$) - 1) = "X " + B$
WRITE #3, L$
CLOSE (3)
END SUB

SUB E.MULTIPLICACION (A$, B$)
'AQUI HACEMOS LA MULTIPLICACION
'VARIABLES
'LT : NUM, LONGITUD TOTAL DEL MULTIPLICANDO + MULTIPLICADOR
'RP : NUM, RESULTADO PARCIAL
'ACUM : NUM, ACUMULADOR DE LAS MULTIPLICACIONES
'LS : TEX, CADENA PATRON
'C$ : TEX, CADENA DE TEXTO DEL RESULTADO PARCIAL
'D$ : TEX, VALOR DE LAS UNIDADES
'E$ : TEX, VALOR DE LO QUE NOS LLEVAMOS
LT = LEN(A$) + LEN(B$) + 1
L$ = STRING$(LT, " ")
C$ = ""
D$ = ""
E$ = ""
CT1 = 1
ACUM = 0
OPEN "I", #2, "B"
WHILE EOF(2) <> -1
INPUT #2, B$
OPEN "I", #1, "A"
WHILE EOF(1) <> -1
INPUT #1, A$
RP = (VAL(A$) * VAL(B$)) + ACUM
C$ = LTRIM$(STR$(RP))
IF EOF(1) <> -1 THEN D$ = D$ + RIGHT$(C$, 1)
IF EOF(1) = -1 THEN D$ = D$ + F.INVCAD$(C$)
E$ = LEFT$(C$, LEN(C$) - 1)
ACUM = VAL(E$)
WEND
CLOSE (1)
MID$(L$, LT - CT1 - LEN(D$) + 2) = F.INVCAD$(D$)
OPEN "A", #3, "R"
WRITE #3, L$
CLOSE (3)
L$ = STRING$(LT, " ")
ACUM = 0
C$ = ""
D$ = ""
E$ = ""
CT1 = CT1 + 1
WEND
CLOSE (2)
END SUB

FUNCTION F.INVCAD$ (CAD$)
'AQUI INVERTIMOS UNA CADENA DE TEXTO
'VARIABLES
'LCAD : NUM, LONGITUD CADENA ENTRANTE
'CADTEM$ : TEX, ACUMULADOR CADENA TEMPORAL
LCAD = LEN(CAD$)
CADTEM$ = ""
FOR CAD = LCAD TO 1 STEP -1
CADTEM$ = CADTEM$ + MID$(CAD$, CAD, 1)
NEXT CAD
F.INVCAD$ = CADTEM$
END FUNCTION

SUB G.SUMA
'AQUI SUMAMOS LA MULTIPLICACION

'VARIABLES
'CF: NUM, CONTADOR DEL NUMERO DE FILAS
'AN: NUM, LONGITUD DEL REGISTRO
'ST: NUM, RESULTADO PARCIAL
'ACUS: NUM, ACUMULADOR DE LAS QUE NOS LLEVAMOS
'K: NUM, CONTADOR DE FILAS
'W$: TEX, RESULTADO FINAL
'R$: TEX, REGISTRO

'AQUI CALCULAMOS EL ANCHO DEL REGISTRO

CF = 0
OPEN "I", #3, "R"
WHILE EOF(3) <> -1
INPUT #3, R$
CF = CF + 1
AN = LEN(R$)
WEND
CF = CF - 2
CLOSE (3)

W$ = ""
ST = 0
ACUS = 0
FOR P = 1 TO AN
K = 0
OPEN "I", #3, "R"
WHILE EOF(3) <> -1
INPUT #3, R$
K = K + 1
IF K > 2 THEN ST = ST + VAL(MID$(R$, AN - P + 1, 1))
IF K > 2 THEN M$ = LTRIM$(STR$(ST + ACUS))
WEND
'COLOR 10: LOCATE CF + 3, AN - P + 1: PRINT RIGHT$(M$, 1); : COLOR 7
W$ = W$ + RIGHT$(M$, 1)
ACUS = VAL(LEFT$(M$, LEN(M$) - 1))
CLOSE (3)
ST = 0
NEXT P

'AQUI ESCRIBIMOS EL RESULTADO EN EL FICHERO
OPEN "A", #3, "R"
WRITE #3, " " + RIGHT$(F.INVCAD(W$), AN - 1)
CLOSE (3)
CLS
PRINT "LA SOLUCION A ESTA MULTIPLICACION SE ENCUENTRA EN UN FICHERO DE TEXTO LLAMADO: R"
END SUB


'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX


'PROGRAM: FAST MULTIPLICATION.

'LRCVS 01.01.2010

'THIS PROGRAM SIMPLY MAKES A FAST MULTIPLICATION.

'HERE IS ONLY THE SOLUTION.
'......................................................

CLS

'SOLUTION : 1676419739507419737831

A$ = "123456789123456789"
B$ = "13579"
C$ = STRING$(LEN(A$)+LEN(B$)," ")
A = 0
H = (LEN(A$)+LEN(B$))
F = H
FOR J = LEN(B$) TO 1 STEP -1
FOR K = LEN(A$) TO 1 STEP -1
R = (VAL(MID$(B$, J, 1)) * VAL(MID$(A$, K, 1))) + (A + VAL(MID$(C$, H, 1)))
R$ = LTRIM$(STR$®)
U$ = RIGHT$(R$, 1)
IF LEN(R$) >= 1 THEN A = VAL(LEFT$(R$, (LEN(R$)-1)))
IF K = 1 AND LEN(R$) > 1 THEN H = H - 1
IF K = 1 THEN MID$(C$, H) = R$
IF K > 1 THEN MID$(C$, H) = U$
IF K > 1 THEN H = H -1
NEXT K
A = 0
F = F - 1
H = F
NEXT J
PRINT C$
END

'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

'PROGRAM: MULTIPLICATION LIMITLESS VER # 2

'LRCVS 01/01/2010

'THIS PROGRAM SIMPLY MAKES A MULTIPLICATION
'WITHOUT THE PARTIAL PRODUCTS.

'HERE SEE ONLY THE SOLUTION.

'HERE THERE IS NO LIMIT ON DIGITS.

'IS VERY FASTER AND AVOIDS MAKING REPEATED MULTIPLICATION.
'...............................................................

CLS
PRINT "WAIT"
T1 = TIMER
NA = 1000 'NUMERO DE ELEMENTOS DEL MULTIPLICANDO, SIN LIMITE.
NB = 100 'NUMERO DE ELEMENTOS DEL MULTIPLICADOR, SIN LIMITE.

PRINT "MULTIPLICANDO = "; NA; " DIGITOS"
PRINT "MULTIPLICADOR = "; NB; " DIGITOS"
PRINT "NUMERO DE MULTIPLICACIONES = "; NA * NB
PRINT "NUMERO DE DIGITOS EXACTOS = "; NA + NB
PRINT "HORA INICIAL = "; TIME$
'......................................................
'AQUI ELIMINAMOS LOS POSIBLES CALCULOS ANTERIORES
OPEN "X" + ".MLT" FOR BINARY AS #1
CLOSE (1)
KILL "*.MLT"
'......................................................
'MULTIPLICANDO >>> A
'MULTIPLICADOR >>> B
FOR N = 1 TO 2
IF N = 1 THEN F$ = "A" + ".MLT": NN = NA
IF N = 2 THEN F$ = "B" + ".MLT": NN = NB
    OPEN F$ FOR BINARY AS #1
        FOR N2 = 1 TO NN
        RANDOMIZE TIMER
        X$ = LTRIM$(STR$(INT(RND * 10)))
        SEEK #1, N2: PUT #1, N2, X$
        NEXT N2
    SEEK #1, N2
    CLOSE (1)
NEXT N

'.....................................................
'AQUI HACEMOS LAS MULTIPLICACIONES PARCIALES
OPEN "A" + ".MLT" FOR BINARY AS #1
FOR K = 0 TO 9
NUM$ = "": Z$ = "": ACU = 0: GG = NA
C$ = LTRIM$(STR$(K))
    OPEN C$ + ".MLT" FOR BINARY AS #2
        'OPEN "A" + ".MLT" FOR BINARY AS #1
            FOR N = 1 TO NA
            SEEK #1, GG: GET #1, GG, X$
            NUM$ = X$
            Z$ = LTRIM$(STR$(ACU + (VAL(X$) * VAL(C$))))
            L = LEN(Z$)
            ACU = 0
            IF L = 1 THEN NUM$ = Z$: PUT #2, N, NUM$
            IF L > 1 THEN ACU = VAL(LEFT$(Z$, LEN(Z$) - 1)): NUM$ = RIGHT$(Z$, 1): PUT #2, N, NUM$
            SEEK #2, N: PUT #2, N, NUM$
            GG = GG - 1
            NEXT N
        IF L > 1 THEN ACU = VAL(LEFT$(Z$, LEN(Z$) - 1)): NUM$ = LTRIM$(STR$(ACU)): XX$ = XX$ + NUM$: PUT #2, N, NUM$
        'CLOSE (1)
    CLOSE (2)
NEXT K
CLOSE (1)

'......................................................
'AQUI CREAMOS EL RESULTADO FINAL DE LA MULTIPLICACION EN: "D"
ACU = 0
LT5 = 1
LT6 = LT5
'AQUI BUSCAMOS LOS ELEMENTOS DE B
OPEN "B" + ".MLT" FOR BINARY AS #1
    OPEN "D" + ".MLT" FOR BINARY AS #3
        FOR JB = NB TO 1 STEP -1
        SEEK #1, JB
        GET #1, JB, X$

            OPEN X$ + ".MLT" FOR BINARY AS #2: LF = LOF(2): CLOSE (2)

            OPEN X$ + ".MLT" FOR BINARY AS #2
                FOR KB = 1 TO LF
                SEEK #2, KB
                GET #2, , NUM$
                SEEK #3, LT5
                GET #3, LT5, PR$
                T$ = ""
                T$ = LTRIM$(STR$(ACU + VAL(NUM$) + VAL(PR$)))
                PR$ = RIGHT$(T$, 1)
                ACU = 0
                IF LEN(T$) > 1 THEN ACU = LEFT$(T$, LEN(T$) - 1)
                SEEK #3, LT5: PUT #3, LT5, PR$
                LT5 = LT5 + 1
                NEXT KB
                IF ACU <> 0 THEN PR$ = LTRIM$(STR$(ACU)): PUT #3, LT5, PR$
            CLOSE (2)
        LT6 = LT6 + 1
        LT5 = LT6
        ACU = 0
        NEXT JB
    CLOSE (3)
CLOSE (1)

OPEN "D" + ".MLT" FOR BINARY AS #3: LD = LOF(3): CLOSE (3)

'AQUI INVERTIMOS EL RESULTADO FINAL
ER = 1
OPEN "D" + ".MLT" FOR BINARY AS #3
    OPEN "R" + ".MLT" FOR BINARY AS #4
        FOR N = LD TO 1 STEP -1
        SEEK #3, N: GET #3, N, PR$
        SEEK #4, ER: PUT #4, ER, PR$
        ER = ER + 1
        NEXT N
    CLOSE (4)
CLOSE (3)

'AQUI ELIMINAMOS LOS PRODUCTOS PARCIALES
KILL "D.MLT"
FOR N = 0 TO 9
C$ = LTRIM$(STR$(N))
KILL C$ + ".MLT"
NEXT N

T2 = TIMER
PRINT "END"
PRINT "HORA FINAL = "; TIME$
PRINT "DIFERENCIA = "; T2 - T1; "SEGUNDOS"
PRINT "SOLUTION IN THE FILE: R.MLT "

'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

IN THIS DIRECTION WE CAN SEE THE PHOTOGRAPH OF THE FIRST MULTIPLICATION THAT DID.

HTTP://LH5.GGPHT.COM/_QM8LM2MCLBE/SF3X6C...CATION.JPG

'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Thancks all Friends !!!!

The compiler QB64 V0.85 was released a few hours ago.

QB64 is the Qbasic compiler project by Galleon and has an active forum of beta testers.  It is a growing community and the project is moving along well.  The project site now has wiki.

Check it out today!
Link to download: http://www.qb64.net/forum/index.php?topic=568.0

The information below taken from the projects official announcement:

V0.85 Specific
==============
Major stages in the exciting transition to IDE autoformatting and autolayout are complete.
Code will auto-indent.
The spacing of some statements will be done by autolayout.
The capitalization of some names will be maintained by autolayout.
This release has no option to disable the above yet.
Every effort has been made to make sure autolayout/autoformat do not damage your code.
If you encounter a problem related to autolayout/autoformatting please report it immediately.

* NOTE: The QB64 IDE now uses the Windows clipboard for copy/paste operations (this is very useful)
* CHAIN implemented (maintains COMMON data but doesn't maintain open files or the screen state yet)
* _CLIPBOARD$ string added to use/access the Windows clipboard
  PRINT _CLIPBOARD$ 'prints the contents of the clipboard
  _CLIPBOARD$="This is line 1"+CHR$(13)+CHR$(10)+"This is line 2" 'sets 2 lines of text in the clipboard
* _EXIT function implemented to let a program know if the user has used the close button or CTRL+BREAK
  After the first time this function is called, the programmer can no longer manually exit the program.
  _EXIT returns 0 - no exit request made
                1 - exit via X box
                2 - exit via CTRL+BREAK
                3 - both CTRL+BREAK and the X box have been used since last call
* Some sample programs (eg. samples\original\qb64\ripples.bas) stopped working (across several releases) and the various causes have been fixed
* Many reported (and unreported) bugs have been fixed

I must complete this project with qbasic...can anyone help me...im stumped.. ;D ;D ;D