RANDOMIZE TIMER GAMEPAD 1 PAUSE OFF REM WAS8BIT DIM GLOBAL B$(8,8) GOSUB BOARDS S1=1 S2=1 S3=1 RELOAD: REM CHOOSE BOARDS #1-8 REM CHOOSE TOKENS #1-4 REM CHOOSE COLORS #1-4 CLS PAL 4 TEXT 1,1," === CONNECT ===" TEXT 1,3," BOARDS" TEXT 0,5,"(U) 1 2 3 4 5 6 7 8" TEXT 1,7," TOKENS" TEXT 1,9,"(R) 1 2 3 4" TEXT 1,11," COLORS" TEXT 1,13,"(D) 1 2 3 4" TEXT 1,15,"(A) OK" SPRITE 1,16*S1+16,40,57 SPRITE 2,16*S2+32,40+32,57 SPRITE 3,16*S3+32,40+63,57 DO IF UP(0) THEN PLAY 0,30,1 WAIT 15 ADD S1,1,1 TO 8 SPRITE 1,16*S1+16,40,57 END IF IF RIGHT(0) THEN PLAY 0,30,1 WAIT 15 ADD S2,1,1 TO 4 SPRITE 2,16*S2+32,40+32,57 END IF IF DOWN(0) THEN PLAY 0,30,1 WAIT 15 ADD S3,1,1 TO 4 SPRITE 3,16*S3+32,40+63,57 END IF IF BUTTON(0,0) THEN GOTO GOPLAY LOOP GOPLAY: SPRITE OFF PAL S3-1 CALL LOADMAP(S1) IF S2=1 THEN COPY ROM(4),$400 TO $8000 ELSE IF S2=2 THEN COPY ROM(4)+$400,$400 TO $8000 ELSE IF S2=3 THEN COPY ROM(4)+$800,$400 TO $8000 ELSE IF S2=4 THEN COPY ROM(4)+$C00,$400 TO $8000 END IF DO IF PAUSE THEN GOTO RELOAD WAIT VBL LOOP END SUB LOADMAP(IMAP) CLS FOR Y=0 TO 8 BB$=B$(IMAP,Y) FOR X=1 TO 10 M$=MID$(BB$,X,1) V=VAL(M$) IF V>0 THEN CELL X-1,Y,53 CELL 20-X,Y,53 CELL X-1,15-Y,53 CELL 20-X,15-Y,53 END IF NEXT X NEXT Y REM FOR I=1 TO 4 FOR II=1 TO 52 LOOK=1 WHILE LOOK=1 X=RND(19) Y=RND(15) C=CELL.C(X,Y) IF C=53 THEN CELL X,Y,II LOOK=0 END IF WEND NEXT II NEXT I END SUB BOARDS: B$(01,00)="0000000000" B$(01,01)="0001111111" B$(01,02)="0001111111" B$(01,03)="0001111111" B$(01,04)="0001111111" B$(01,05)="0011111111" B$(01,06)="0011111111" B$(01,07)="0011111111" B$(02,00)="0000000000" B$(02,01)="0000001111" B$(02,02)="0000111111" B$(02,03)="0001111111" B$(02,04)="0011111111" B$(02,05)="0111111111" B$(02,06)="0111111111" B$(02,07)="0111111111" B$(03,00)="0000000000" B$(03,01)="0000000000" B$(03,02)="0111111100" B$(03,03)="0111111111" B$(03,04)="0111111111" B$(03,05)="0111111111" B$(03,06)="0111111111" B$(03,07)="0111111111" B$(04,00)="0000000000" B$(04,01)="0011110000" B$(04,02)="0111111000" B$(04,03)="0111111100" B$(04,04)="0111111110" B$(04,05)="0111111111" B$(04,06)="0111111111" B$(04,07)="0111111111" B$(05,00)="0000000000" B$(05,01)="0111111111" B$(05,02)="0111111111" B$(05,03)="0011111111" B$(05,04)="0001111111" B$(05,05)="0001111111" B$(05,06)="0000111111" B$(05,07)="0000111111" B$(06,00)="0000000000" B$(06,01)="0111111110" B$(06,02)="0111111110" B$(06,03)="0111111110" B$(06,04)="0111111110" B$(06,05)="0111111110" B$(06,06)="0111111111" B$(06,07)="0000000111" B$(07,00)="0000000000" B$(07,01)="0111111111" B$(07,02)="0111111111" B$(07,03)="0111111110" B$(07,04)="0111111110" B$(07,05)="0111111110" B$(07,06)="0111111110" B$(07,07)="0110000000" B$(08,00)="0000000000" B$(08,01)="0111111111" B$(08,02)="0111111111" B$(08,03)="0111111111" B$(08,04)="0111111110" B$(08,05)="0111111100" B$(08,06)="0111111000" B$(08,07)="0111100000" RETURN #1:MAIN PALETTES 2A3F3000003F2434003F0C07003F3723 003F3F15003F2A15003F2A15003F2A15 #2:CHARACTERS 01 00000010000000000000000000000000 00001000101000000038283828280000 00003000180000000038083820380000 00003000300000000038083808380000 FED6D6C6F6F6FE000028283808080000 FEC6DEC6F6C6FE000038203808380000 FEC6DEC6D6C6FE000038203828380000 FEC6F6F6F6F6FE000038080808080000 FEC6D6C6D6C6FE000038283828380000 FEC6D6C6F6C6FE000038283808380000 FEC6EEEEEEEEFE000038101010100000 FEE6F6F6D6C6FE000018080828380000 FEC6D6D6D6C2FE0000382828283C0000 FED6D6CED6D6FE000028283028280000 00382838282800000000100010100000 00380838203800000000300018000000 00380838083800000000300030000000 0028283808080000FED6D6C6F6F6FE00 0038203808380000FEC6DEC6F6C6FE00 0038203828380000FEC6DEC6D6C6FE00 0038080808080000FEC6F6F6F6F6FE00 0038283828380000FEC6D6C6D6C6FE00 0038283808380000FEC6D6C6F6C6FE00 0038101010100000FEC6EEEEEEEEFE00 0018080828380000FEE6F6F6D6C6FE00 00382828283C0000FEC6D6D6D6C2FE00 0028283028280000FED6D6CED6D6FE00 00383838383800000038283828280000 00383838383800000038083820380000 00383838383800000038083808380000 FEFEFEFEFEFEFE000028283808080000 FEFEFEFEFEFEFE000038203808380000 FEFEFEFEFEFEFE000038203828380000 FEFEFEFEFEFEFE000038080808080000 FEFEFEFEFEFEFE000038283828380000 FEFEFEFEFEFEFE000038283808380000 FEFEFEFEFEFEFE000038101010100000 FEFEFEFEFEFEFE000018080828380000 FEFEFEFEFEFEFE0000382828283C0000 FEFEFEFEFEFEFE000028283028280000 00383838383800000000100010100000 00383838383800000000300018000000 00383838383800000000300030000000 FEFEFEFEFEFEFE00FED6D6C6F6F6FE00 FEFEFEFEFEFEFE00FEC6DEC6F6C6FE00 FEFEFEFEFEFEFE00FEC6DEC6D6C6FE00 FEFEFEFEFEFEFE00FEC6F6F6F6F6FE00 FEFEFEFEFEFEFE00FEC6D6C6D6C6FE00 FEFEFEFEFEFEFE00FEC6D6C6F6C6FE00 FEFEFEFEFEFEFE00FEC6EEEEEEEEFE00 FEFEFEFEFEFEFE00FEE6F6F6D6C6FE00 FEFEFEFEFEFEFE00FEC6D6D6D6C2FE00 FEFEFEFEFEFEFE00FED6D6CED6D6FE00 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 C3810000000081C3C3810000000081C3 #4:CHARACTERS 02 00000010000000000000000000000000 FEC6D6C6D6D6FE000038283828280000 FEC6F6C6DEC6FE000038083820380000 FEC6F6C6F6C6FE000038083808380000 FED6D6C6F6F6FE000028283808080000 FEC6DEC6F6C6FE000038203808380000 FEC6DEC6D6C6FE000038203828380000 FEC6F6F6F6F6FE000038080808080000 FEC6D6C6D6C6FE000038283828380000 FEC6D6C6F6C6FE000038283808380000 FEC6EEEEEEEEFE000038101010100000 FEE6F6F6D6C6FE000018080828380000 FEC6D6D6D6C2FE0000382828283C0000 FED6D6CED6D6FE000028283028280000 0038283828280000FEC6D6C6D6D6FE00 0038083820380000FEC6F6C6DEC6FE00 0038083808380000FEC6F6C6F6C6FE00 0028283808080000FED6D6C6F6F6FE00 0038203808380000FEC6DEC6F6C6FE00 0038203828380000FEC6DEC6D6C6FE00 0038080808080000FEC6F6F6F6F6FE00 0038283828380000FEC6D6C6D6C6FE00 0038283808380000FEC6D6C6F6C6FE00 0038101010100000FEC6EEEEEEEEFE00 0018080828380000FEE6F6F6D6C6FE00 00382828283C0000FEC6D6D6D6C2FE00 0028283028280000FED6D6CED6D6FE00 FEFEFEFEFEFEFE000038283828280000 FEFEFEFEFEFEFE000038083820380000 FEFEFEFEFEFEFE000038083808380000 FEFEFEFEFEFEFE000028283808080000 FEFEFEFEFEFEFE000038203808380000 FEFEFEFEFEFEFE000038203828380000 FEFEFEFEFEFEFE000038080808080000 FEFEFEFEFEFEFE000038283828380000 FEFEFEFEFEFEFE000038283808380000 FEFEFEFEFEFEFE000038101010100000 FEFEFEFEFEFEFE000018080828380000 FEFEFEFEFEFEFE0000382828283C0000 FEFEFEFEFEFEFE000028283028280000 FEFEFEFEFEFEFE00FEC6D6C6D6D6FE00 FEFEFEFEFEFEFE00FEC6F6C6DEC6FE00 FEFEFEFEFEFEFE00FEC6F6C6F6C6FE00 FEFEFEFEFEFEFE00FED6D6C6F6F6FE00 FEFEFEFEFEFEFE00FEC6DEC6F6C6FE00 FEFEFEFEFEFEFE00FEC6DEC6D6C6FE00 FEFEFEFEFEFEFE00FEC6F6F6F6F6FE00 FEFEFEFEFEFEFE00FEC6D6C6D6C6FE00 FEFEFEFEFEFEFE00FEC6D6C6F6C6FE00 FEFEFEFEFEFEFE00FEC6EEEEEEEEFE00 FEFEFEFEFEFEFE00FEE6F6F6D6C6FE00 FEFEFEFEFEFEFE00FEC6D6D6D6C2FE00 FEFEFEFEFEFEFE00FED6D6CED6D6FE00 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 C3810000000081C3C3810000000081C3 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000010000000000000000000000000 FEFEFEEEFEFEFE000000001000000000 FEFAFEFEFEBEFE000004000000400000 FEFAFEEEFEBEFE000004001000400000 FEBAFEFEFEBAFE000044000000440000 FEBAFEEEFEBAFE000044001000440000 FEBAFEBAFEBAFE000044004400440000 FEBAFEAAFEBAFE000044005400440000 FEAAFEBAFEAAFE000054004400540000 FEAAFEAAFEAAFE000054005400540000 FE82FEFEFE82FE00007C0000007C0000 FE82FEEEFE82FE00007C0010007C0000 FE82FEBAFE82FE00007C0044007C0000 FE82FEAAFE82FE00007C0054007C0000 0000001000000000FEFEFEEEFEFEFE00 0004000000400000FEFAFEFEFEBEFE00 0004001000400000FEFAFEEEFEBEFE00 0044000000440000FEBAFEFEFEBAFE00 0044001000440000FEBAFEEEFEBAFE00 0044004400440000FEBAFEBAFEBAFE00 0044005400440000FEBAFEAAFEBAFE00 0054004400540000FEAAFEBAFEAAFE00 0054005400540000FEAAFEAAFEAAFE00 007C0000007C0000FE82FEFEFE82FE00 007C0010007C0000FE82FEEEFE82FE00 007C0044007C0000FE82FEBAFE82FE00 007C0054007C0000FE82FEAAFE82FE00 FEFEFEFEFEFEFE000000001000000000 FEFEFEFEFEFEFE000004000000400000 FEFEFEFEFEFEFE000004001000400000 FEFEFEFEFEFEFE000044000000440000 FEFEFEFEFEFEFE000044001000440000 FEFEFEFEFEFEFE000044004400440000 FEFEFEFEFEFEFE000044005400440000 FEFEFEFEFEFEFE000054004400540000 FEFEFEFEFEFEFE000054005400540000 FEFEFEFEFEFEFE00007C0000007C0000 FEFEFEFEFEFEFE00007C0044007C0000 FEFEFEFEFEFEFE00007C0054007C0000 FEFEFEFEFEFEFE00007C0054007C0000 FEFEFEFEFEFEFE00FEFEFEEEFEFEFE00 FEFEFEFEFEFEFE00FEFAFEFEFEBEFE00 FEFEFEFEFEFEFE00FEFAFEEEFEBEFE00 FEFEFEFEFEFEFE00FEBAFEFEFEBAFE00 FEFEFEFEFEFEFE00FEBAFEEEFEBAFE00 FEFEFEFEFEFEFE00FEBAFEBAFEBAFE00 FEFEFEFEFEFEFE00FEBAFEAAFEBAFE00 FEFEFEFEFEFEFE00FEAAFEBAFEAAFE00 FEFEFEFEFEFEFE00FEAAFEAAFEAAFE00 FEFEFEFEFEFEFE00FE82FEFEFE82FE00 FEFEFEFEFEFEFE00FE82FEEEFE82FE00 FEFEFEFEFEFEFE00FE82FEBAFE82FE00 FEFEFEFEFEFEFE00FE82FEAAFE82FE00 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 C3810000000081C3C3810000000081C3 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000010000000000000000000000000 FEFED6FED6FEFE000000280028000000 FEF6D2FED6FEFE0000082C0028000000 FEF6D2FED2F6FE0000082C002C080000 FEF6D2FE92D6FE0000082C006C280000 FED692FE92D6FE0000286C006C280000 FED292FE92D6FE00002C6C006C280000 FED292FE92D2FE00002C6C006C2C0000 FED292FE9292FE00002C6C006C6C0000 FE9292FE9292FE00006C6C006C6C0000 FE92923E9292FE00006C6CC06C6C0000 EE82923E9292FE00107C6CC06C6C0000 EE8292389292FE00107C6CC66C6C0000 EE8292389282EE00107C6CC66C7C1000 0000280028000000FEFED6FED6FEFE00 00082C0028000000FEF6D2FED6FEFE00 00082C002C080000FEF6D2FED2F6FE00 00082C006C280000FEF6D2FE92D6FE00 00286C006C280000FED692FE92D6FE00 002C6C006C280000FED292FE92D6FE00 002C6C006C2C0000FED292FE92D2FE00 002C6C006C6C0000FED292FE9292FE00 006C6C006C6C0000FE9292FE9292FE00 006C6CC06C6C0000FE92923E9292FE00 107C6CC06C6C0000EE82923E9292FE00 107C6CC66C6C0000EE8292389292FE00 107C6CC66C7C1000EE8292389282EE00 FEFEFEFEFEFEFE000000280028000000 FEFEFEFEFEFEFE0000082C0028000000 FEFEFEFEFEFEFE0000082C002C080000 FEFEFEFEFEFEFE0000082C006C280000 FEFEFEFEFEFEFE0000286C006C280000 FEFEFEFEFEFEFE00002C6C006C280000 FEFEFEFEFEFEFE00002C6C006C2C0000 FEFEFEFEFEFEFE00002C6C006C6C0000 FEFEFEFEFEFEFE00006C6C006C6C0000 FEFEFEFEFEFEFE00006C6CC06C6C0000 FEFEFEFEFEFEFE00107C6CC06C6C0000 FEFEFEFEFEFEFE00107C6CC66C6C0000 FEFEFEFEFEFEFE00107C6CC66C7C1000 FEFEFEFEFEFEFE00FEFED6FED6FEFE00 FEFEFEFEFEFEFE00FEF6D2FED6FEFE00 FEFEFEFEFEFEFE00FEF6D2FED2F6FE00 FEFEFEFEFEFEFE00FEF6D2FE92D6FE00 FEFEFEFEFEFEFE00FED692FE92D6FE00 FEFEFEFEFEFEFE00FED292FE92D6FE00 FEFEFEFEFEFEFE00FED292FE92D2FE00 FEFEFEFEFEFEFE00FED292FE9292FE00 FEFEFEFEFEFEFE00FE9292FE9292FE00 FEFEFEFEFEFEFE00FE92923E9292FE00 FEFEFEFEFEFEFE00EE82923E9292FE00 FEFEFEFEFEFEFE00EE8292389292FE00 FEFEFEFEFEFEFE00EE8292389282EE00 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 C3810000000081C3C3810000000081C3 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000010000000000000000000000000 FEEED6C6D6D6FE000010283828280000 FECED6CED6CEFE000030283028300000 FEE6DEDEDEE6FE000018202020180000 FECED6D6D6CEFE000030282828300000 FEC6DEC6DEC6FE000038203820380000 FEC6DEC6DEDEFE000038203820200000 FEE6DEC6D6C6FE000018203828380000 FED6D6C6D6D6FE000028283828280000 FEC6EEEEEEC6FE000038101010380000 FEE6F6F6D6EEFE000018080828100000 FED6D6CED6D6FE000028283028280000 FEDEDEDEDEC6FE000020202020380000 FE96AAAABABAFE000068545444440000 0010283828280000FEEED6C6D6D6FE00 0030283028300000FECED6CED6CEFE00 0018202020180000FEE6DEDEDEE6FE00 0030282828300000FECED6D6D6CEFE00 0038203820380000FEC6DEC6DEC6FE00 0038203820200000FEC6DEC6DEDEFE00 0018203828380000FEE6DEC6D6C6FE00 0028283828280000FED6D6C6D6D6FE00 0038101010380000FEC6EEEEEEC6FE00 0018080828100000FEE6F6F6D6EEFE00 0028283028280000FED6D6CED6D6FE00 0020202020380000FEDEDEDEDEC6FE00 0068545444440000FE96AAAABABAFE00 FEFEFEFEFEFEFE000010283828280000 FEFEFEFEFEFEFE000030283028300000 FEFEFEFEFEFEFE000018202020180000 FEFEFEFEFEFEFE000030282828300000 FEFEFEFEFEFEFE000038203820380000 FEFEFEFEFEFEFE000038203820200000 FEFEFEFEFEFEFE000018203828380000 FEFEFEFEFEFEFE000028283828280000 FEFEFEFEFEFEFE000038101010380000 FEFEFEFEFEFEFE000018080828100000 FEFEFEFEFEFEFE000028283028280000 FEFEFEFEFEFEFE000020202020380000 FEFEFEFEFEFEFE000068545444440000 FEFEFEFEFEFEFE00FEEED6C6D6D6FE00 FEFEFEFEFEFEFE00FECED6CED6CEFE00 FEFEFEFEFEFEFE00FEE6DEDEDEE6FE00 FEFEFEFEFEFEFE00FECED6D6D6CEFE00 FEFEFEFEFEFEFE00FEC6DEC6DEC6FE00 FEFEFEFEFEFEFE00FEC6DEC6DEDEFE00 FEFEFEFEFEFEFE00FEE6DEC6D6C6FE00 FEFEFEFEFEFEFE00FED6D6C6D6D6FE00 FEFEFEFEFEFEFE00FEC6EEEEEEC6FE00 FEFEFEFEFEFEFE00FEE6F6F6D6EEFE00 FEFEFEFEFEFEFE00FED6D6CED6D6FE00 FEFEFEFEFEFEFE00FEDEDEDEDEC6FE00 FEFEFEFEFEFEFE00FE96AAAABABAFE00 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 C3810000000081C3C3810000000081C3