Raylib for QB64 Phoenix Edition

QB64 Phoenix Edition C++ Compilation Error (and fix)

GIF file importing in BASIC ANYWHERE MACHINE (QBasic like language)

Basic Anywhere Machine BAM - QBasic style language in a web browser!

Raster Master Sprite Editor with Map Editor + Sprite Importer working s...

Lazarus Drag and Drop Files

rtbinsrc - convert binary file to array and data statements for C, Pascal, and Basic

rtbinsrc - convert binary file to array and data statements for C, Pascal, and Basic 

Open Watcom And Rtbinobj Example - Day 152

Raster Master v1.4 R79

Raster Master v1.4 R79 

PyDPainter - Deluxe Paint Clone in Python - Day 151

Lazarus TImage vs TPaintBox - Day 150

ugBasic Compiler Testing - Day 149 1

Pas2js Connect4 - Day 148

Turbo Pascal BINOBJ with Freepascal 8086 - Day 147

Raster Master Sprite & Map Editor R78 - Day 146

pas2js for simple games? or microStudio? or both? - Day 144

Raster Master on itch.io now

https://retronick2020.itch.io/raster-master-sprite-editor 

GW BASIC String Descriptor address using VARPTR

When using the VARPTR function in GWBASIC it returns the address of the variable or array. Except for Strings, it returns the address of a 3 byte string descriptor. To get the address of the string we need to do some work

N$="Nick"
SA=VARPTR(N$)
PRINT PEEK(SA) 'the length of the string
PRINT PEEK(SA+1) 'lower 8 bits of address
PRINT PEEK(SA+2) 'higher 8 bits of address

to compute string address we perform the following calculation

smem#=peek(SA+2)*256+peek(SA+1) 'should point to string memory - this does what SADD function does in QBASIC/QuickBASIC

if you use integer variable % you will get an overflow. you can still convert to an integer with the following code

mem$=chr$(peek(SA+1))+chr$(peek(SA+2)) ' this converts our peek info to a 2 character string

smem%=CVI(mem$) ' we can convert the 2 character string to an integer using the CVI function without causing a buffer overflow

oh wait there is even more

now that we have the address of the string we can

print the first letter of our string by

print chr$(peek(smem%)) 'increase the smem% variable to access the other letter like smem%+1 for second letter and so on

and we can even change the string contents with poke

poke smem%,ASC("K") 'this changes N$ from Nick to Kick