r = 1: GOSUB Effect1: r = ne: GOSUB Effect2: r%(nr, 11) = 1: r2 = nr: GOTO Move2
a%(1, 4) = ro: a%(naf, 4) = ro: m%(1, 5) = ro: m%(nm, 5) = ro: GOSUB EnemyCheck: GOTO Main

CLS : FOR a = 1 TO nr: PRINT a; ":"; r%(a, 0), : NEXT
CLS : FOR a = 1 TO naf: PRINT a; ":"; a%(a, 0), : NEXT
CLS : FOR a = 1 TO nm: PRINT a; ":"; m%(a, 0), : NEXT

