Atari 8-bit Source code

0DIMA$(8),A(9):GRAPHICS3:POKE752,1:A=(PEEK(106)-16)*256:B=DPEEK(88):C=DPEEK(741):POKEC+16,4:POKEC+17,5:POKEC+18,6
1DPOKEC+19,1799:DPOKEC+21,514:POKEC+23,0:POKEC+24,2:FORD=25TO31:POKEC+D,0:NEXTD:FORD=B+100TOB+280STEP40:POKED,1:POKED+3,1
2POKED+4,1:NEXTD:PRINT"!!!!!!!":PRINT"!!!!!!":MOVE57344,A,1024:MOVEADR(A$),A+8,8:POKE756,A/256:COLOR3:PLOT0,0:DRAWTO9,0:DRAWTO9,9
3DRAWTO0,9:DRAWTO0,0:E=1:F=1:DO:IFG<0:FORH=1TO8:FORD=1TO8:COLORSGN(A(H)&(2^((9-D)-1))):PLOTD,H:NEXTD:NEXTH:ENDIF:IFG:POKE87,0:PRINTCHR$(156);
4FORD=1TO8:A$(D,D)=CHR$(A(D)):PRINT"\";HEX$(A(D));:NEXTD:PRINT"";:FORD=1TO8:IFA(D)<>155:PRINTCHR$(27);CHR$(A(D));:ELSE:PRINT"";:ENDIF:NEXTD
5POKE87,3:MOVEADR(A$),A+8,8:ENDIF:G=0:COLORSGN(A(F)&(2^((9-E)-1))):PLOTE,F:I=STICK(0):F=F+((I=13)-(I=14)):E=E+(I=7)-(I=11)
6IFE<1:E=8:ENDIF:IFF<1:F=8:ENDIF:IFE>8:E=1:ENDIF:IFF>8:F=1:ENDIF:J=PEEK(764):IF(J=58):FORH=9TO1STEP-1:A(H)=A(H-1):NEXTH
7A(1)=A(9):G=-1:ENDIF:IF(J=40):FORH=1TO8:K=A(H)&1:A(H)=TRUNC(A(H)/2):A(H)=A(H)+128*K:NEXTH:G=-1:ENDIF:IF(J=57):FORH=1TO8:K=0
8FORD=1TO8:K=K+(SGN(A(H)&(2^(D-1)))*2^((9-D)-1)):NEXTD:A(H)=K:NEXTH:G=-1:ENDIF:IF(J=16):FORH=1TO4:K=A(H):A(H)=A(9-H):A(9-H)=K
9NEXTH:G=-1:ENDIF:POKE764,255:IF(STRIG(0)=0):A(F)=A(F)EXOR(2^((9-E)-1)):G=1:PAUSE4:ENDIF:COLOR2:PLOTE,F:PAUSE4:LOOP	

0 DIM A$(8),A(9):GRAPHICS 3:POKE 752,1:A=(PEEK(106)-16)*256:B=DPEEK(88):C=DPEEK(741):POKE C+16,4:POKE C+17,5:POKE C+18,6
1 DPOKE C+19,1799:DPOKE C+21,514:POKE C+23,0:POKE C+24,2:FOR D=25 TO 31:POKE C+D,0:NEXT D:FOR D=B+100 TO B+280 STEP 40:POKE D,1:POKE D+3,1
2 POKE D+4,1:NEXT D:PRINT "! ! !!  !!!":PRINT "  ! !!  !!!":MOVE 57344,A,1024:MOVE ADR(A$),A+8,8:POKE 756,A/256:COLOR 3:PLOT 0,0:DRAWTO 9,0:DRAWTO 9,9
3 DRAWTO 0,9:DRAWTO 0,0:E=1:F=1:DO:IF G<0:FOR H=1 TO 8:FOR D=1 TO 8:COLOR SGN(A(H)&(2^((9-D)-1))):PLOT D,H:NEXT D:NEXT H:ENDIF:IF G:POKE 87,0:PRINT CHR$(156);
4 FOR D=1 TO 8:A$(D,D)=CHR$(A(D)):PRINT "\";HEX$(A(D));:NEXT D:PRINT " ";:FOR D=1 TO 8:IF A(D)<>155:PRINT CHR$(27);CHR$(A(D));:ELSE:PRINT " ";:ENDIF:NEXT D
5 POKE 87,3:MOVE ADR(A$),A+8,8:ENDIF:G=0:COLOR SGN(A(F)&(2^((9-E)-1))):PLOT E,F:I=STICK(0):F=F+((I=13)-(I=14)):E=E+(I=7)-(I=11)
6 IF E<1:E=8:ENDIF:IF F<1:F=8:ENDIF:IF E>8:E=1:ENDIF:IF F>8:F=1:ENDIF:J=PEEK(764):IF (J=58):FOR H=9 TO 1 STEP -1:A(H)=A(H-1):NEXT H
7 A(1)=A(9):G=-1:ENDIF:IF (J=40):FOR H=1 TO 8:K=A(H)&1:A(H)=TRUNC(A(H)/2):A(H)=A(H)+128*K:NEXT H:G=-1:ENDIF:IF (J=57):FOR H=1 TO 8:K=0
8 FOR D=1 TO 8:K=K+(SGN(A(H)&(2^(D-1)))*2^((9-D)-1)):NEXT D:A(H)=K:NEXT H:G=-1:ENDIF:IF (J=16):FOR H=1 TO 4:K=A(H):A(H)=A(9-H):A(9-H)=K
9 NEXT H:G=-1:ENDIF:POKE 764,255:IF (STRIG(0)=0):A(F)=A(F) EXOR (2^((9-E)-1)):G=1:PAUSE 4:ENDIF:COLOR 2:PLOT E,F:PAUSE 4:LOOP 
	

• Download link 1
• Download link 2
• Download link 3