0 REM FACT (WAYNE HAPP)               :
1 :
2 REM 0 STATEMENTS, 1 FUNCTION
3 :
4 REM KEYWORD CHARS: 5
5 :
6 REM KEYWORD    ROUTINE   LINE  SER #
7 REM F/FACT     FACT      15236  202
8 :
9 REM ===============================
10 :
626 .ASC "FACT": .BYTE $A8
1626 .WORD FACT-1
15236 FACT JSR $AEF4
15238 JSR $B7A1
15240 TXA
15242 BNE FAC1
15244 LDA #1
15246 FAC1 STA T2
15248 JSR $BC3C
15250 FAC2 JSR $BBCA
15252 DEC T2
15254 LDA T2
15256 CMP #2
15258 BCC FAC3
15260 JSR $BC3C
15262 LDA #$57
15264 LDY #$00
15266 JSR $BA28
15268 JMP FAC2
15270 FAC3 RTS
15272 ;