mirror of
https://github.com/curioustorvald/Terrarum.git
synced 2026-03-07 20:31:51 +09:00
15 lines
309 B
QBasic
15 lines
309 B
QBasic
10 print("polling radar...")
|
|
20 s=cput(1,"POLL")
|
|
30 if s><0 then goto 900
|
|
40 l=cget(1,0)
|
|
41 REM print("length: "+l+", pixels: "+l/3)
|
|
50 for i=0 to l-1 step 3
|
|
60 m=peek(i)*160+peek(i+1)
|
|
62 p=peek(i+2)
|
|
63 poke(-1048576-m,p)
|
|
70 next
|
|
80 REM poke(-1070977,0)
|
|
90 goto 20
|
|
900 print("Polling failed: "+s)
|
|
910 goto 10
|