0 DIM A$(3):ADDR=$0600:GRAPHICS 31:DL=DPEEK(560)
5 OPEN #1,4,0,"D:*.MIC":BGET #1,DPEEK(88),380:GET #1,A,B,C,D:CLOSE #1
10 POKE 712,A:POKE 708,B:POKE 709,C:POKE 710,D
20 READ A$:IF A$="-" THEN 30
25 POKE ADDR,DEC(A$):ADDR=ADDR+1:GOTO 20
30 DPOKE $0200,ADDR:POKE $D40E,$C0
34 POKE DL+0,PEEK(DL+0)+$80
35 GET KEY:END
40 DATA $48
45 DATA $8A
50 DATA $48
55 DATA $A9
60 DATA $06
65 DATA $A2
70 DATA $A4
75 DATA $8D
80 DATA $0A
85 DATA $D4
90 DATA $8D
95 DATA $16
100 DATA $D0
105 DATA $8E
110 DATA $17
115 DATA $D0
120 DATA $68
125 DATA $AA
130 DATA $68
135 DATA $40
140 DATA -