Верните мне мой, 1987

 На Planeta Sinclair выложили исходник одного спектрумиста. Перевел бинарь в текст:

;PROG LETRAS JUNTAS;10
;([) 1987 ALIEN SOFTWARE;20
;30
ORG 60000 ;ANY,IN FACT;35
START LD BC,(CHARS) ;**********;40
INC B;50
LD HL,0;60
LD L,A;70
ADD HL,HL  ;x2;80
ADD HL,HL  ;4;90
ADD HL,HL  ;8;100
ADD HL,BC  ;HL=REQUIRED ADD;110
XOR A;130
LD BC,(COORDS) ;*********;140
LD A,8;150
LD D,(HL);160
BIT 7,D;170
JR Z,NEXT;180
DEC A;190
BIT 6,D;200
JR Z,NEXT;210
DEC A;220
BIT 5,D;230
JR Z,NEXT;240
DEC A;250
BIT 4,D;260
JR Z,NEXT;270
DEC A;280
BIT 3,D;290
JR Z,NEXT;300
DEC A;310
BIT 2,D;320
JR Z,NEXT;330
DEC A;340
BIT 1,D;350
JR Z,NEXT;360
DEC A;370
BIT 0,D;380
JR Z,NEXT;390
RET;400
NEXT LD D,A;410
LD E,(23697);420
LD A,8;423
PUSH AF;425
PUSH DE;427
LOOP LD A,(HL);430
INC HL;440
DEC D;450
JR Z,LOOPE;460
BIT 0,A;470
CALL Z,RES;480
CALL NZ,SET;490
DEC D;500
JR Z,LOOPE;510
BIT 1,A;520
CALL Z,RES;530
CALL NZ,SET;540
DEC D;550
JR Z,LOOPE;560
BIT 2,A;570
CALL Z,RES;580
CALL NZ,SET;590
DEC D;600
JR Z,LOOPE;610
BIT 3,A;620
CALL Z,RES;630
CALL NZ,SET;640
DEC D;650
JR Z,LOOPE;660
BIT 4,A;670
CALL Z,RES;680
CALL NZ,SET ;NAS ROUTIN. POR INC C;690
DEC D;700
JR Z,LOOPE;710
BIT 5,A;720
CALL Z,RES;730
CALL NZ,SET;740
DEC D;750
JR Z,LOOPE;760
BIT 6,A;770
CALL Z,RES;780
CALL NZ,SET;790
DEC D;800
JR Z,LOOPE;810
BIT 7,A;820
CALL Z,RES;830
CALL NZ,SET;840
LOOPE POP DE;850
POP AF;860
DEC A;870
JR Z,END;880
LD BC,(COORDS);890
DEC B;900
LD (COORDS),BC;910
PUSH AF;920
PUSH DE;930
JR LOOP;940
END PUSH BC;950
LD BC,(COORDS);960
POP HL;970
ADD B,7;980
LD C,L;990
LD (COORDS),BC;1000
RET;1010
LD B,A;1015
LD A,1;1020
LO2 RLA;1030
DJNZ,LO2;1040
LD (HL),A ;??*??;1050
; ESTOU DESORIENTADO !!..........;1060
HELP ! HELP ! HELP ! HELP ! HELP !;1070
HELP ! HELP ! HELP ! HELP ! HELP !;1080
????????????????????????????????????;1090
**********;1100
;1110
LO2;1120