20 DIM F1
(50):
DIM F2
(50):
DIM F0
(50)
30 DIM G1
(50):
DIM G2
(50):
DIM G0
(50)
190 PMODE 3,1
200 SCREEN 1,0
210 PCLS 1
220 GOSUB 710
230 GET(10,0)-(26,15),F1,G
240 GET(10,20)-(26,35),G1,G
250 GET(30,0)-(46,15),F2,G
260 GET(30,20)-(46,35),G2,G
710 REM DIBUJA LOS MOVIMIENTOS DE LOS JUGADORES
720 FOR N=1 TO 40
730 READ X,Y:PSET(X+10,Y): PSET(X+10,Y+20,3)
740 NEXT N
750 FOR N=1 TO 48
760 READ X,Y:PSET(X+30,Y): PSET(X+30,Y+20,3)
770 NEXT N
780 RETURN
925 REM MOVIMIENTO CON PIERNAS JUNTAS
930 DATA 6,0,8,0,10,0
940 DATA 6,1,8,1,10,1
950 DATA 6,2,8,2,10,2
960 DATA 8,3
970 DATA 6,4,8,4,10,4
980 DATA 6,5,8,5,10,5
990 DATA 6,6,8,6,10,6,16,6
1000 DATA 6,7,8,7,10,7,7,12,7,14,7,16,7
1010 DATA 6,8,10,8
1020 DATA 6,9,10,9
1030 DATA 6,10,10,10
1040 DATA 6,11,8,11,10,11
1050 DATA 8,12
1060 DATA 8,13
1070 DATA 8,14
1080 DATA 8,15,10,15
1085 REM MOVIMIENTO CON PIERNAS SEPARADAS
1090 DATA 6,0,8,0,10,0
1100 DATA 6,1,8,1,10,1,16,1
1110 DATA 6,2,8,2,10,2,16,2
1120 DATA 8,3,14,3
1130 DATA 4,4,6,4,8,4,10,4,12,4
1140 DATA 2,5,6,5,10,5
1150 DATA 0,6,6,6,10,6
1160 DATA 2,7,6,7,10,7
1170 DATA 6,8,10,8
1180 DATA 6,9,8,9,10,9
1190 DATA 6,10,8,10,10,10
1200 DATA 6,11,8,11,10,11
1210 DATA 6,12,10,12
1220 DATA 4,13,12,13
1230 DATA 2,14,14,14
1240 DATA 2,15,4,15,14,15,16,15