10 OUT 888,10
15 GOSUB 100
20 OUT 888,9
25 GOSUB 100
30 OUT 888,5
35 GOSUB 100
40 OUT 888,6
45 GOSUB 100
50 GOTO 10
100 FOR X=1 TO 1000
110 NEXT X
120 RETURN


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

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