Logikoma
8a02674af5
All checks were successful
akbasic CI Build / cmake_build (push) Successful in 3m34s
akbasic CI Build / coverage (push) Successful in 4m4s
akbasic CI Build / sanitizers (push) Successful in 6m59s
akbasic CI Build / akgl_build (push) Successful in 7m57s
akbasic CI Build / mutation_test (push) Successful in 23m28s
Move every program and expectation out of tests/reference and register the unified tests/language corpus as local cases. Remove the old immutable-corpus protections from build, maintenance, and documentation paths. Co-authored-by: andrew <andrew@aklabs.net>
9 lines
211 B
QBasic
9 lines
211 B
QBasic
10 A# = 255
|
|
20 B# = POINTER(A#)
|
|
30 IF PEEK(B#) == 255 THEN GOTO 50
|
|
40 PRINT "FAILURE: PEEK != 255"
|
|
50 POKE B#, 127
|
|
60 IF PEEK(B#) == 127 THEN GOTO 80
|
|
70 PRINT "FAILURE : POKE DID NOT SET 127"
|
|
80 PRINT "SUCCESS"
|