5 REM MICRO ADVENTURE BOOK 2, PROGRAM 3

10 REM THE IDOL’S EYE - PAGE 61

15 DIM O$(6),B$(6),C$(6),S$(6),G$(6)

20 DIM P(5)

30 GRAPHICS 0

40 DATA 0,4,5,6,6,5

50 FOR I = 0 TO 5

60 READ P: P(I)=P 

70 NEXT I

80 O$ = "      "

90 B$ = “@@@@@@”

100 C$ = "******"

110 FOR I = 1 TO 3

120 FOR J = 1 TO 12

130 V = J

140 IF I <> 3 THEN 160

150 V = 13 - V

160 S$ = O$

170 G$ = C$

180 IF I <> 2 THEN 210

190 S$ = B$

200 G$ = B$80 

210 L = 20 - 2 * ABS(6 - V)

220 IF V > 6 THEN L = L + 2

230 H = 7 - V

240 IF V <= 6 THEN 260

250 H = V - 6

260 POSITION H,V

270 PRINT "**";

280 N = P(6- H)

290 G = L - 2*N — 4

300 IF N = 0 THEN 320

310 PRINT S$(1,N);

320 IF G <= 0 THEN 350

330 PRINT G$(1,G); 

340 IF N = 0 THEN 360

350 PRINT S$(1,N);

360 PRINT "**"

370 NEXT J

380 FOR W = 1 TO 1000: NEXT W

390 FOR W = 1 TO 500

400 NEXT W

410 NEXT I

420 POSITION 1,20

430 END