It seems like the act of reading a const array either mangles the array or subsequent reads are reading the wrong thing. This is a regression from 1.2.

@OPTION SYSTEM vic20.orig
'   1
'   2631
'   84268421
const PIPS(5) as u8 = %
    .X......        
    ..X....X        
    .X..XX..        
    ..X.XX.X        
    .XX.XX.X        
    ..XXXXXX        
END%
print PIPS[2]; " "; PIPS[2] & 1   > 0
print PIPS[2]; " "; PIPS[2] & 2   > 0
print PIPS[2]; " "; PIPS[2] & 4   > 0
print PIPS[2]; " "; PIPS[2] & 8   > 0
print PIPS[2]; " "; PIPS[2] & 16  > 0
print PIPS[2]; " "; PIPS[2] & 32  > 0
print PIPS[2]; " "; PIPS[2] & 64  > 0
print PIPS[2]; " "; PIPS[2] & 128 > 0

Output (I would expect to see 76s all the way down the first column):

**** cbm basic v2 ****
3583 bytes free
ready.
load"pips",8,1
searching for pips
loading
ready.
run:
76 1
255 1
255 1
255 1
255 1
255 1
255 1
255 1
ready.

VIC-20: Should the compiled program be RUN'able more than once?

I'm not sure if this is a VICE emulator thing or a Crustybasic thing.

The first load/run was initiated by drag/dropping the .prg onto the emulator window. (It's just testing my array shuffle routine.)

The second run was me just typing 'run' and hitting enter (the program does not run a second time.)

**** cbm basic v2 ****
3583 bytes free
ready.
load"ninja",8,1
searching for ninja
loading
ready.
run:
1 1 1 1 2 2 2 3 3 4 4
1 3 1 2 2 1 3 4 1 4 2
ready.
run
ready.

RND() U8 Target specific pseudo-random byte.

Sadly, does not compile with 1.2:

unknown function or routine 'rnd'

(rand() works, though.)

proc shuffleArr(arr as addr of u8)
    arr[2] = 99 'just to see if I can do ANYTHING with the passed array
endproc

 'arr' is a scalar variable, not an array or STRING; remove the index

Almost certainly user error on my part, but not clear how to proceed.

@OPTION SYSTEM vic20.orig
CLS
while 1
    dim k as u8
    k = KEY()
    if k <> 0 then print k
endwhile