0 REM WITHIN (AUG 25/84)              :
1 :
2 REM 0 STATEMENTS,  1 FUNCTION
3 :
4 REM KEYWORD CHARACTERS:  7
5 :
6 REM KEYWORD     ROUTINE  LINE   SER #
7 REM F/WITHIN(   WITHIN   3698    028
8 :
9 REM U/PSHFP1 (3270/063)
10 REM U/PUL57 (3308/064)
11 :
12 REM ================================
13 :
607 .ASC "WITHIN[168]"
1607 .WORD WITHIN-1
3270 PSHFP1 LDA #3
3272 JSR $A3FB
3274 PLA
3276 STA $71
3278 PLA
3280 STA $72
3282 JSR $BBCA
3284 LDX #0
3286 PHF1 LDA $57,X
3288 PHA
3290 INX
3292 CPX #5
3294 BNE PHF1
3296 PHF2 LDA $72
3298 PHA
3300 LDA $71
3302 PHA
3304 RTS
3306 ;
3308 PUL57 PLA
3310 STA $71
3312 PLA
3314 STA $72
3316 LDX #4
3318 PL57 PLA
3320 STA $57,X
3322 DEX
3324 BPL PL57
3326 BMI PHF2
3328 ;
3698 WITHIN JSR $AD8A
3700 JSR COMTST
3702 PHP
3704 JSR COMTST
3706 BCC WTH1
3708 PLP
3710 PHA
3712 BCC WTH1
3714 LDA #$FF
3716 .BYTE $2C
3718 WTH1 LDA #0
3720 JSR $BC3C
3722 PLA
3724 JMP $AEF7
3726 ;
3728 COMTST JSR PSHFP1
3730 JSR $79
3732 PHA
3734 JSR $73
3736 JSR $AD8A
3738 PLA
3740 CMP #","
3742 BEQ CT1
3744 CMP #";"
3746 BNE CT4
3748 CLC
3750 .BYTE $24
3752 CT1 SEC
3754 ROR T3
3756 JSR PUL57
3758 LDA #$57
3760 LDY #0
3762 JSR $BC5B
3764 BMI CT3
3766 BIT T3
3768 BPL CT2
3770 TAX
3772 BEQ CT3
3774 CT2 SEC
3776 RTS
3778 CT3 CLC
3780 RTS
3782 CT4 JMP $AF08
3784 ;