Atari 8-bit Source code

0 IF Q=%0:​M=$8000:​GRAPHICS 18:​? #6;" BROAD'S REVENGE    march ":​GOTO %1:​ELSE:​WHILE PEEK($D01F)<>6:​WEND:​L=%3:​M=$8000:​DPOKE D+23,​M:​H=%0:​F=-1:​P=%0:​POSITION %0,​%1:​? #6;" 000":​POSITION 9,​%1:​? #6;"03":​GOTO 7:​ENDIF
1 FOR I=%0 TO 1023:​IF PEEK($E000+I) DIV 16=I MOD 4:​DPOKE M+A,​$4443:​ELSE:​DPOKE M+A,​$4142:​ENDIF:​A=A+%2:​POKE 708,​I MOD 256:​NEXT I:​POKE $5000,​%0:​MOVE $5000,​$5001,​$1FFF:​MOVE $87FE,​$8800,​64:​MOVE $87FE,​M,​48:​FOR I=$7F00 TO $7F28:​POKE I,​64:​NEXT I:​X=$4241
2 GRAPHICS %1:​POKE 756,​$90:​DIM A$(10):​MOVE $E000,​$9000,​1024:​MOVE ADR("UUUUUUUUUUUQUU;?ZVU"),​$9200,​40:​MOVE ADR("<<||;"),​$5499,​46:​MOVE ADR(""),​$55A6,​27
3 MOVE ADR("@@  @"),​$5699,​45:​MOVE ADR("?/><xxt||||p``@"),​$5798,​42:​MOVE ADR("-//?;;??/--"),​$53A7,​31:​D=DPEEK(560):​MOVE ADR("TEE"),​D+19,​12
4 POKE $D208,​%0:​MOVE $5000,​$5800,​2048:​MOVE $5000,​$6800,​2048:​MOVE ADR(""),​$5C99,​6:​FOR I=%0 TO 4:​MOVE $5BB6+I*256,​$5BB5+I*256,​18:​MOVE $5398+I*256,​$638E+I*256,​30:​MOVE $53B5+I*256,​$63AC+I*256,​24:​NEXT I
5 POKE 623,​17:​MOVE ADR(""),​704,​9:​MOVE ADR("xxz|"),​$D000,​13:​MOVE ADR(""),​$648F,​8:​MOVE ADR(""),​$6696,​14:​POKE $679C,​$F7:​MOVE ADR(""),​$6C99,​7:​Y=$D404:​Z=$D407:​Q=$8800
6 MOVE ADR("xJ3JK20xH"),​$6E98,​12:​MOVE ADR(""),​$6F98,​12:​B=29:​POKE Z,​$50:​? #6;"   ":​POSITION 15,​%1:​? #6;"000":​POKE 559,​62:​POKE $D01D,​%3:​W=%0:​R=711:​N=$D004:​K=$D01E:​GOTO %0
7 IF H>=%0:​POKE Y,​H:​ELSE:​H=%3:​M=M+%1-$0800*(M=Q):​DPOKE D+23,​M:​POKE Y,​H:​ENDIF:​B=B-%1:​F=F-%1:​IF F<%0:​IF NOT (STRIG(%0)) AND S:​POKE Z,​$60:​SOUND %0,​10,​40,​8:​F=10:​S=%0:​ELSE:​G=RAND(%2):​POKE Z,​$50+G*8:​SOUND %0,​32,​%0,​ABS(%1-G)*6:​S=STRIG(%0) OR S:​ENDIF:​ELSE
8 PAUSE %0:​ENDIF:​IF B<%0 AND (PEEK(N)&6)>%0:​GOTO 9:​ENDIF:​POKE K,​%0:​H=H-%2:​IF B>%0:​POKE R,​ABS(PEEK(R)-20):​ENDIF:​IF (F=%0 AND PEEK(M+19)>X) OR (F=%0 AND DPEEK(M+20)>X):​P=P+%1:​A$=STR$(P):​POSITION 5-LEN(A$),​%1:​? #6;P:​ENDIF:​PAUSE %1:​SOUND %0,​%0,​%0,​%0:​GOTO 7
9 POKE Z,​$68:​B=29:​FOR T=%0 TO 50:​SOUND %0,​40+T,​12,​6:​PAUSE %0:​NEXT T:​L=L-%1:​SOUND %0,​%0,​%0,​%0:​PAUSE 20:​POSITION 10,​%1:​? #6;L:​IF L=%0:​IF P>W:​W=P:​A$=STR$(W):​POSITION 18-LEN(A$),​%1:​? #6;W:​ENDIF:​GOTO %0:​ELSE:​GOTO 7:​ENDIF