0 PRINT"[147][158]";:FOR I=0 TO39:PRINT" ";:NEXT:V=49152:FOR J=1 TO 7:READ A$:FORI=1TO36
1 POKEV,10*(ASC(MID$(A$,I*2-1,1))-65)+VAL(MID$(A$,I*2,1)):V=V+1:NEXT:NEXT
2 V=832:FOR I=VTO960:POKEI,0:NEXT:FORI=0TO20:POKEV+I*3,255:NEXT:V=53248:POKE 2,0
4 POKE49263,2
6 POKE49335,18
8 POKEV+16,2:POKEV+4,0:POKEV+21,7:Q=(PEEK(2)AND3):P(Q)=P(Q)+1:PRINT""P(2);
9 PRINT SPC(25);P(1):SYS49152:GOTO8
50 DATA Q9O3O1A1U8O1A3U8Q9A0O1D3U8O1C3U8O1C9U8Q9H2O1A2U8Q9D2O1A0U8Q2B3O2Y9A7O2Y8
51 DATA A7X2O2Z0A7X2O2N1A3O2N4A3Q2A4O2E0U8X2O2D9U8X2O2M8A3O2N7A3X2O2D2U8Q9R3O1A2
52 DATA T2O1A5T2Q9F0O1S5T2R4A1U8R3A0W0D2W1T2O2A1U8R4A3U8R3A1W0D2W1T2O2A3U8U6Z5U7
53 DATA U8D4Q9A1O1Z5U7R4A5U8R3Z0T2U8B0U2W4F9R6B3X8Z0T2U8A8X2W4Y7O4A3U6Z0T2O2A5U8
54 DATA R3B6U8E1A4R2Y9T2U8B5X8A4U8U8C3H4U8G6Q9A6O1B6U8U8B3U6A4U8U8A8B0Y0F4Q9A2O1
55 DATA B6U8Q2B8Q0Z5N6U8Z3U2U8Y8R3D1U8U8A8R3D0U8Y0B6U6S5T2R3B6U8X8Y9T2E1A4U8A3O1
56 DATA Y9T2H6I1T2K6O4B1K6O4B5J6N3A2J6Q9A1U8Y9U2W4F8R6Y3X2J6X2W4X0O4X6U2J6A1A1Z5