Tabla de contenido
1040
a$(6)="111100111101111"
1050
a$(7)="111001001010010"
1060
a$(8)="111101111101111"
1070
a$(9)="111101111001001"
1080
FOR
n=0
TO
9
1090
tiempo=LEN(a$(n))
1100
FOR
n2=1
TO tiempo
1110
IF MID$(a$(n),n2,1)="1"THEN
(n),n2,1)=CHR$(32)
1120
NEXT n2,n
1130
'
1140
'
1150
b$="ESGRIMA ELECTRICO"
1160
c$=CHR$(32)+CHR$(164)+" Alexander Martin"
1170
ENV 1,=9,2000:ENT
1180
ENV
2,127,0,0,127,0,0,127,0,0,127,0,0,127,0,0
1190
ENV
3,=9,9000
1200
'
1210
'
1220
BORDER
0
1230
INK 0,12:PEN #4,1:PEN #6,2:PEN #1,1:PEN #2,2:PAPER #1,3:PAPER #2,3:PEN
1240
RETURN
'de preparar constantes
1250
'
1260
'
1270
INK 0,12:INK 1,2:INK 2,6:INK 3,13:INK 4,20:INK 5,17:INK
1280
WINDOW #3,3,3,6,25:WINDOW
1290
WINDOW #1,3,5,1,5:WINDOW #2,16,18,1,5:WINDOW
1300
CLS:CLS#7:PRINT#1,a$(0);:PRINT#2,a$(0);:p1sc=0:p2sc=0:p1wp=5:p2wp=24:p1dir=1:p2dir=1
1310
GOSUB 570:GOSUB
1320
SOUND 1,1000,0,12,2:SOUND
1330 p1sa=0:p2sa=0:termina=0
1340
RETURN
1350
'
1360
'
1370
CLS
1380
PEN
7
1390
FOR
n=1
TO
LEN(b$)
1400
LOCATE
1+n,10
1410
FOR
n2=LEN(b$)
1420
PRINT
MID$(b$,n2,1)
1430
LOCATE
1+n,10
1440
SOUND
135,20*n2,5,12,2,1
1450
NEXT n2,n
1460
SOUND
135,100,0,13,3,1,20
1470
PEN 6:PRINT:PRINT:PRINT:PRINT
1480
n=1
TO 5000:NEXT
FOR
1490
RETURN
1500
'
1510
'
1520
IF j THEN RETURN
1530
CLS
1540
LOCATE
6,5
1550
PRINT"CONTROLES"
1560
PRINT
MID$(a$(n),n2,1)=CHR$(143)
-1,6,3,1
#5,18,18,6,25
620
2,900,0,12,2
TO n
STEP-1
c$
Manual de Amstrad CPC 6128 (revisión 2008) - Página 409
ELSE
MID$(a$
6,20
#7,1,20
,1,5:PAPER
#0,6
#7,3
Tabla de contenido
