0 CO=7*4096:VA=5*4096+6*256:UB=VA+1627+12*4
7 DIMGE(5,5),UM(5,5),CL(5),MU(5),P$(5):GOSUB10000:PRINT"[155]":GOSUB50000
20 PRINTTAB(2);" ";P$(1):PRINTTAB(25);"[145] ";P$(2):PRINTTAB(2);" ";P$(3)
50 PRINTTAB(25);"[145] ";P$(4):PRINT"+"
70 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
80 PRINT"+[157][157][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":PRINT"-"
85 PRINT""TAB(39);"[213][157][205][157][211][157][193][157][212][157][218]"
87 PRINT""TAB(39);"[199][157][197][157][215][157][201][157][206]":SYSCO,6,3:SYSCO,3
100 PRINTCHR$(CL(1));" ";TAB(25);CHR$(CL(2));" "
110 PRINTCHR$(CL(3));" ";TAB(25);CHR$(CL(4));" ":SYSCO,3:FORC=1TO4:FORZ=1TO4
1010 IFGE(C,Z)=0THEN1060
1020 BA=INT(GE(C,Z)/GP*4):XP=(C-1)*9+(Z-1)*2+3:YP=18:GOSUB40000
1060 NEXTZ,C:FORC=1TO4:FORZ=1TO4:IFUM(C,Z)=0THEN1160
1120 BA=INT(UM(C,Z)/UP*8):XP=(C-1)*9+(Z-1)*2+3:YP=13:GOSUB40000
1160 NEXTZ,C
5000 GOSUB30000:IFDU=99THEN35000
9999 GOTO5000
10000 REM
10003 FORI=1TO4:READA:CL(I)=A:NEXT:FORI=0TO3:READA:MU(I)=A:NEXT:NB=PEEK(CO+5)+PEEK(CO+6)*256
10010 FORI=0TO9:A=PEEK(NB+0+I):GOSUB60000:P$(1)=P$(1)+CHR$(A)
10020 A=PEEK(NB+11+I):GOSUB60000:P$(2)=P$(2)+CHR$(A)
10030 A=PEEK(NB+22+I):GOSUB60000:P$(3)=P$(3)+CHR$(A)
10040 A=PEEK(NB+33+I):GOSUB60000:P$(4)=P$(4)+CHR$(A):NEXTI:FORI=1TO4:FORQ=1TO4
10075 DU=VA+7+(I-1)*67+(Q-1)*4+14:DA=DU+16:GE(I,Q)=PEEK(DU+0)*MU(0)
10085 GE(I,Q)=GE(I,Q)+PEEK(DU+1)*MU(1):GE(I,Q)=GE(I,Q)+PEEK(DU+2)*MU(2)
10095 GE(I,Q)=GE(I,Q)+(PEEK(DU+3)AND127)*MU(3):UM(I,Q)=PEEK(DA+0)*MU(0)
10105 UM(I,Q)=UM(I,Q)+PEEK(DA+1)*MU(1):UM(I,Q)=UM(I,Q)+PEEK(DA+2)*MU(2)
10111 UM(I,Q)=UM(I,Q)+(PEEK(DA+3)AND127)*MU(3):IFPEEK(DU+3)AND128>0THENGE(I,Q)=-GE(I,Q)
10120 NEXTQ,I:FORI=1TO4:FORQ=1TO4:IFGP<ABS(GE(I,Q))THENGP=ABS(GE(I,Q))
10155 IFUP<ABS(UM(I,Q))THENUP=ABS(UM(I,Q))
10160 NEXTQ,I:RETURN
30000 REM
30030 POKE2,0
30040 DU=PEEK(2):IFDU=0THEN30040
30050 RETURN
35000 REM
35035 SYSCO,25,1:ZZ=PEEK(VA+2):A$="L.CITY"+STR$(ZZ):SYSCO,1,A$,8
40000 REM
40030 PRINT"";:IFBA<0THENYP=YP+1
40040 U$=" [145][157]":D$=" [157]":FORI=1TOXP:PRINT"";:NEXTI:FORI=1TOYP:PRINT"";:NEXTI:PRINTCHR$(CL(C));
40090 FORI=1TOABS(BA):IFBA>0THENPRINTU$;
40110 IFBA<0THENPRINTD$;
40120 NEXTI:RETURN
50000 REM
50025 SYSCO,3:SYSCO,4,3,0,2:SYSCO,7,96,40,21:SYSCO,6,3:RETURN
60000 REM
60010 IFA>=0ANDA=<31THENA=A+64:RETURN
60020 IFA>=64ANDA<=95THENA=A+128:RETURN
60030 IFA=96THENA=160
60040 RETURN:DATA 31,30,152,28:DATA 1,256,65536,16777216