lines

[Dio]

i made another update with save (not working). i finally got around to updating. i can't get the save (which i completly ripped from pyrokid) to work (big surprise).

[syntax="qbasic"]IF press$ = "save" THEN
CLS
PRINT "bitmap file name:": INPUT ; filename$
CLS
OPEN "pic.bmp" FOR OUTPUT AS #1
FOR iiy = 0 TO bry
FOR iix = 0 TO brx
WRITE #1, col(brx, bry)
NEXT
NEXT
CLOSE #1
CLS
PUT (0, 0), ss1, PSET
PUT (160, 0), ss2, PSET
PUT (0, 100), ss3, PSET
PUT (160, 100), ss4, PSET
END IF
[/syntax]

[Dr_Davenstein]

i made another update with save (not working). i finally got around to updating. i can't get the save (which i completly ripped from pyrokid) to work (big surprise).

[syntax="qbasic"]IF press$ = "save" THEN
CLS
PRINT "bitmap file name:": INPUT ; filename$
CLS
OPEN "pic.bmp" FOR OUTPUT AS #1
FOR iiy = 0 TO bry
FOR iix = 0 TO brx
WRITE #1, col(brx, bry)
NEXT
NEXT
CLOSE #1
CLS
PUT (0, 0), ss1, PSET
PUT (160, 0), ss2, PSET
PUT (0, 100), ss3, PSET
PUT (160, 100), ss4, PSET
END IF
[/syntax]

Try changing...

Code:

Write #1, Col(brx,bry)

to this...

Code:

Write #1, Col(iix,iiy)

It's the only problem I see in that snippet.

[Dio]

@ Dr_Davenstein:
yeah, after i posted that code i relised those little errors, rushed to fix them (i was in a hurry) and made changes to the .bas
i guess i missed those
i'll see how it runs now