10 DIM A[3]
20 RET=0
30 INPUT "De cuanto quieres que sea el retardo? ",RET
40 SENT=0
50 INPUT "Cual sera el sentido? (0/1) ",SENT
60 DATA 10,9,5,6
70 IF SENT=1 GOTO 100
80 READ A[0],A[1],A[2],A[3]
90 GOTO 110
100 READ A[3],A[2],A[1],A[0]
110 OUT 888,A[0]
120 GOSUB 200
130 OUT 888,A[1]
140 GOSUB 200
150 OUT 888,A[2]
160 GOSUB 200
170 OUT 888,A[3]
180 GOSUB 200
190 GOTO 110
200 FOR X=1 TO RET
210 NEXT X
220 RETURN


    Source: geocities.com/v.iniestra/apuntes/ele_dig

               ( geocities.com/v.iniestra/apuntes)                   ( geocities.com/v.iniestra)