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"
|