10
20 :
30
40
50 :
60
70 DIM p%(3):p%()=^PROCzero, ^PROCone, ^PROCtwo, ^PROCthree
80 REPEATPROC(p%(GET AND 3)):UNTIL0
90 DEFPROCzero:PRINT"zero":ENDPROC
100 DEFPROCone:PRINT"one":ENDPROC
110 DEFPROCtwo:PRINT"two":ENDPROC
120 DEFPROCthree:PRINT"three":ENDPROC