0 REM SELECT (WAYNE HAPP, 1985)       :
1 :
2 REM 4 STATEMENTS, 0 FUNCTIONS
3 :
4 REM KEYWORD CHARACTERS: 28
5 :
6 REM KEYWORD      ROUTINE  LINE  SER #
7 REM S/SELECT     SEL     10388   145
8 REM S/WHEN       WHN     10412   146
9 REM S/OTHERWISE  OTH     10448   147
10 REM S/ENDSELECT WN3     10438   148
11 :
12 REM ================================
13 :
143 .ASC "SELEC[212]WHE[206]"
144 .ASC "OTHERWIS[197]ENDSELEC[212]"
1143 .WORD SEL-1,WHN-1
1144 .WORD OTH-1,WN3-1
10388 SEL BNE SEL1
10390 LDA #0
10392 SEL1 STA SFLG2
10394 BEQ SEL2
10396 JSR $AD8A
10398 LDX #<SELTST
10400 LDY #>SELTST
10402 JSR $BBD4
10404 SEL2 LDA #1
10406 STA SFLG1
10408 RTS
10410 ;
10412 WHN BEQ OTH1
10414 JSR $AD8A
10416 LDA SFLG1
10418 BEQ WN1
10420 LDA SFLG2
10422 BNE WN2
10424 LDA $61
10426 BNE WN3
10428 WN1 JMP $A93B
10430 WN2 LDA #<SELTST
10432 LDY #>SELTST
10434 JSR $BC5B
10436 BNE WN1
10438 WN3 LDA #0
10440 STA SFLG1
10442 JSR $79
10444 JMP $A940
10446 ;
10448 OTH BEQ OTH1
10450 LDA SFLG1
10452 BNE WN3
10454 BEQ WN1
10456 OTH1 JMP $AF08
10458 ;
10460 SFLG1  .BYTE 0
10462 ;
10464 SFLG2  .BYTE 0
10466 ;
10468 SELTST *=*+5
10470 ;