26 lines
242 B
Text
26 lines
242 B
Text
'Craft Basic may only calculate up to 9
|
|
|
|
let n = 9
|
|
let p = 1
|
|
|
|
do
|
|
let p = p + 2
|
|
|
|
if prime(p) then
|
|
|
|
let w = (2 ^ p + 1) / 3
|
|
|
|
if prime(w) then
|
|
|
|
let c = c + 1
|
|
print tab, c, tab, p, tab, w
|
|
|
|
endif
|
|
|
|
endif
|
|
|
|
title p
|
|
|
|
wait
|
|
|
|
loop c < n
|