Techno Cop

POKE1,169:POKE320,404:READ A$:1=-ASC(LEFT$(A$,1)):L=55:IF L<5 THEN L=L+7:R=ASC(RIGHT$(A$,1)):R=R-55:IF R<5 THEN R=R+7:V=POKE1,V:NEXT:IF C<>7898 THEN PRINT * RINT:FOR A=0 TO 255:PRINT SYS 320 TO EA=R:S VER START.:DATA 20,56,F5,A9,50,FS,N FS,E G 08,A9,01:DATA 8D,F6,08,4C,10,08,A9,5D,8D,BB:DATA 12,A9,01,8D,BC,12,4C,00,10,A9:DATA 74,80,A3,02,A9,01,8D,A4,02,A9:DATA 12,A9,01,8D,BC,12,4C,00,10,A9:DATA 169,1,141,86,3

POKE1,169:POKE320,404:READ A$:1=ASC(LEFT$(A$,1)):IF1<5THENL=L+7:R=ASC(RIGHT$(A$,1)):R=R-55:IFR<5THENR=R+7:V=DATA 169,1,141,86,3:POKE1,V:NEXT:IFC<>7898THENPRINT*INT:RINT:FOR+A=R:S=VER:START.:A=USE.:10 DATA 20,56,F5,A9,50,FS,N FS,E G08,A9,01:DATA 8D,F6,08,4C,10,08,A9,5D,8D,BB:DATA 12,A9,01,8D,BC,12,4C,00,10,A9:DATA 74,80,A3,02,A9,01,8D,A4,02,A9:DATA 12,A9,01,8D,BC,12,4C,00,10,A9:DATA 208,96:SYS 320 TO EA=R:S=VER:START.:A=USE.