miércoles, 8 de octubre de 2008
programacion de ejercicio realizado en el seminario interfaces fisicas
para proyecto lego
mul VAR word
time VAR word
c:
HIGH 2
PAUSE 1
RCTIME 2,1,time
DEBUG ? time
IF time <40>10 THEN son2
IF time <100>41 THEN son3
mul = time *2000
FREQUOT 7, 20, mul
GOTO c
son2:
FREQUOT 10,300,500
RETURN
son3
FREQUOT 10,300,5500
RETURN
Etiquetas:
STAR WAR
Suscribirse a:
Entradas (Atom)