Box the compass: Difference between revisions
Content deleted Content added
Added solution for Action! |
|||
Line 70:
INCLUDE "D2:REAL.ACT" ;from the Action! Tool Kit
DEFINE PTR="CARD"
PROC InitNames(CARD ARRAY names)▼
names(0)="N" names(1)="NbE"
names(2)="NNE" names(3)="NEbN"
Line 137 ⟶ 139:
PROC Main()
DEFINE COUNT="33"
INT i,m,ind,x,y
REAL ri,r11_25,r5_62,rh,r1
|