0 REM DELAY (AUG 25/84)               :
1 :
2 REM  1 STATEMENT, 0 FUNCTIONS
3 :
4 REM KEYWORD CHARACTERS:  5
5 :
6 REM KEYWORD     ROUTINE  LINE   SER #
7 REM DELAY       DELA     3180    026
8 :
9 REM ================================
10 :
106 .ASC "DELA[217]"
1106 .WORD DELA-1
3180 DELA JSR $AD8A
3182 JSR $B7F7
3184 DE1 LDY #$0E
3186 DE2 LDX #$85
3188 DE3 DEX
3190 BNE DE3
3192 DEY
3194 BNE DE2
3196 JSR $A82C
3198 LDX $14
3200 BNE DE4
3202 LDY $15
3204 BEQ DE5
3206 DEC $15
3208 DE4 DEC $14
3210 JMP DE1
3212 DE5 RTS
3214 ;