Empire

10'DATA-32,46,a5,3a,32,a5:20'1<C>-Hike-Wong:30-1:40•HEH0RY•J3DFF:H0DE•1:50•WINDOW*1,15,27,10,10:60-WINDOWS,15,27,13,13:70-LOAD!enpirell:80-P0KE-43E68,&C3:90-POKE•i3E69,0:100P0KE-43E6fi,«BE:110 • FOR • n=SBE(30 • TO • ABE3B:120-READ'al:a=VAL<J| f a t ) : 130 - P 0 K E ' n , a : c = c * a : 140 -NEXT:IF•c< >5585•THEN•260:150'CALL-43E00:END:16Q'DATA-32,46,a5,3a,32,a5:170-DATA-fe,2e,28,02,14,e9:180-DAIA•e5,21 J 3 a # 0 1 , 3 6 , c 3 : 190-DATA-23,36/26,23,36,bE:200'DATA-21,68,3e,36,32,23:210-DATA-36,46,23,36,a5,e1:220'DATA•14,e3,21,32,bE,22:230D A I A a 3 , 0 1 , 3 a , 3 7 , b d , c 3 : 240 D A I A - 3 d , 0 1 , a f , 3 2 , e 9 , 4 9 : 250 D A I A * 3 2 , f f , 4 9 , c 3 , 0 0 , 8 0 : 260 PRINII E r r o r . . .1 :END:20 FOR j = 0 TO 95:READ a:30 x = U A L ( J | • a ) : y = y + x