33 lines
616 B
Plaintext
33 lines
616 B
Plaintext
_runtimePath_ "../runtime"
|
|
_runtimeStart_ &hFFFF
|
|
_codeRomType_ ROMv1
|
|
|
|
const START=&h8000
|
|
const SIZE=10
|
|
|
|
cls
|
|
|
|
def word(START + SIZE*0, 0, SIZE, SIZE) = rand(360) - 180
|
|
def word(START + SIZE*2, 0, SIZE, SIZE) = rand(360) - 180
|
|
def word(START + SIZE*4, 0, SIZE, SIZE) = 0
|
|
|
|
init time
|
|
|
|
result=0
|
|
for i=0 to SIZE-1
|
|
gosub math
|
|
next i
|
|
timer = get("TIMER")
|
|
|
|
for i=0 to SIZE-1
|
|
print deek(START + SIZE*4 + (i LSL 1));" ";
|
|
next i
|
|
|
|
print : print timer/60;" ";timer % 60;"/60"
|
|
end
|
|
|
|
math:
|
|
a = deek(START + SIZE*0 + (i LSL 1))
|
|
b = deek(START + SIZE*2 + (i LSL 1))
|
|
doke START + SIZE*4 + (i LSL 1), a * b
|
|
return |