Pete's QBASIC Site

Works in QB4.5 but Not in Qbasic

2011-08-09T06:59:04-05:00

No problem. We have all done silly things at one time or another.

Statistics: Posted by burger2227 — Tue Aug 09, 2011 6:59 am

Thank s

2011-08-08T18:37:15-05:00

Both , Clippy and TmEE, Thanks for the replys,..
the errors I got were illegal functions, but I need to get the line numbers,..
I am worried, ...Ok Clippy ,says it ran fine,.. I have other qb4.5 and qbasic
programs, that used to run fine, for me,..and just recently ,lately, many are not running,..On my computer,... These are on a Dos partition, seperate from windows,..Mostly just now, I wanted to acknowledge the replys,...
The one you downloaded Clippy, is has been on drop box, for some time, I just now down loaded it too, what I had been working with is the original, that had been in my computer, for some time,..I am worried, maybe, for some reason, the files in my Dos partition are getting "corrupted".
I wonder , if by any chance Clippy, if you have time, you could show me, some "neater" or a better way to code the same program ? (for qb4.5 or qbasic) It was pretty much my own invention, B Bob had helped try to explain to me on opening the .axb 's ... It is not that important, but if you have a chance,..that would be nice,
thanks from Garry
Edit: Boy do I ever feel like the " idiot ", it turned out it was because I had the file in a different directory, not the same as where I have qbasic and qb4.5, I moved everything to the same dir, and it works fine !,...Sorry!

Statistics: Posted by GarryRicketson — Mon Aug 08, 2011 6:37 pm

Works in QB4.5 but Not in Qbasic

2011-08-03T12:03:04-05:00

The array is about 26K and it runs fine in Qbasic. The code above is a MESS but the one I downloaded worked.

Statistics: Posted by burger2227 — Wed Aug 03, 2011 12:03 pm

Works in QB4.5 but Not in Qbasic

2011-08-03T07:58:04-05:00

what kind of errors do you get ?

Only things I can think of right now are arrays being too big for QBASIC

Statistics: Posted by TmEE — Wed Aug 03, 2011 7:58 am

Works in QB4.5 but Not in Qbasic

2011-08-02T20:48:54-05:00

This code worked ok in qb4.5, but if I just try to run it useing qbasic,..I get a lot of errors,..

Code:

SCREEN 12OPEN "Asmile.AXB" FOR BINARY AS #1ArraySIZE& = (LOF(1) - 7) / 2DIM AsmileARRAY(1 TO ArraySIZE&) AS INTEGERCLOSE #1DEF SEG = VARSEG(AsmileARRAY(1))BLOAD "Asmile.AXB", VARPTR(AsmileARRAY(1))DEF SEG'Set paletteOUT &H3C4, 0FOR n = 9 TO 56    OUT &H3C9, AsmileARRAY(n)NEXT n'Display the frames in sequencePRINT "HAVE A GOOD DAY!"DO    FOR i = 0 TO AsmileARRAY(57) - 1        PUT (100, 100), AsmileARRAY(58 + i * 1635), PSET        'PLAY "Mbg15a10a"        ' a$ = INPUT$(0) 'pause between frames        Interval! = .2        t! = TIMER        DO            IF TIMER  t! + Interval!    NEXT i    'LOOP UNTIL a$ = INPUT$(1)LOOP WHILE INKEY$ = ""IF INKEY$ = "N" THEN GOTO 2PRINT "Now lets see whats next"'PLAY "Mbgaeg"PRINT "This is next"'-------2SCREEN 12OPEN "A6men.AXB" FOR BINARY AS #1ArraySIZE& = (LOF(1) - 7) / 2DIM A6menARRAY(1 TO ArraySIZE&) AS INTEGERCLOSE #1DEF SEG = VARSEG(A6menARRAY(1))BLOAD "A6men.AXB", VARPTR(A6menARRAY(1))DEF SEG'Set paletteOUT &H3C4, 0FOR n = 9 TO 56    OUT &H3C9, A6menARRAY(n)NEXT n'------'Display the frames in sequencePRINT "HAVE A GOOD DAY!"DO FOR i = 0 TO A6menARRAY(57) - 1        PUT (100, 100), A6menARRAY(58 + i * 1635), PSET        'PLAY "Mbg15a10a" ' a$ = INPUT$(0) 'pause between frames        Interval! = .2        t! = TIMER        DO            IF TIMER  t! + Interval!    NEXT i    'LOOP UNTIL a$ = INPUT$(1)LOOP WHILE INKEY$ = ""

I remarked out the PLAY lines, because it had started to "annoy" me, In the source, at drop box, Play is not remarked out.
I get a lot of illegal functions,..Could this code be modified to run in qbasic ? If anyone wants the entire, source and the images, you can get them at:
http://dl.dropbox.com/u/15387474/SMILEYFACE.zip
Ok I guess thats about it,... Also this is a new web site,..experiment:

http://creativeminds.webege.com/RETRO-0 ... pplet.html
I have a demo of qb4.5 that can be run,..online.
From Garry
Note, I got my first qbasic program, (a math multiplication tales excersise,) that runs, fine on the "retro applet",,...So I was trying to come up with some other simple qbasic prgrams that could run,..Any ideas ?
Thanks from Garry

Statistics: Posted by GarryRicketson — Tue Aug 02, 2011 8:48 pm