8000     STX MBL
8010     LDY #6
8020     JSR MOVPLYR
8030     LDX MBL
8040     JSR EXPLO
8050     LDX XREG
8060 PLPLCK LDA P0PL,X ;check for
8070     BEQ MPFCK   ;player/
8080     CMP #4      ;player
8090     BNE PL8CK   ;collisions
8100     JMP PBLPL
8110 PL8CK CMP #8    ;hit hot
8120     BNE DOTWO   ;tail?
8130     LDA PCOLR3
8140     CMP #148
8150     BEQ YOTHER
8160     JMP PBLPL   ;yes kill
8170 YOTHER LDY OTHER,X ;no tail
8180     LDA XP0,Y   ;cool game
8190     STA HITCLR  ;over
8200     BNE IJUMP
8210     JMP ENDIT
8220 IJUMP JMP INCM
8230 DOTWO JMP BLBOTH ;kill both
8240 MPFCK LDA HPOSP0,X ;check for
8250     BEQ MPLCK   ;missile/
8260     JSR MISEXP  ;playfield
8270     JSR EXSOUND ;collisions
8280     JSR TOM     ;missile off
8290 MPLCK LDA M0PL,X ;check for
8300     BEQ PLPFCK  ;missile/
8310     CMP #4      ;player
8320     BNE M8CK    ;collisions
8330     JSR TOM
8340     JMP PLPFCK
8350 M8CK CMP #8     ;hit tail?
8360     BNE PLEX    ;no go on
8370     JSR TOM     ;yes stop
8380     LDA #16     ;rocket
8390     STA SCRL2
8400     LDA #0
8410     STA $1024
8420     STA AUDF2
8430     STA AUDC2
8440     JMP PLPFCK
8450 PLEX LDY MISDIR,X ;hit saucer
8460     TAX 
8470     DEX 
8480     LDA EXCNTR,X ;dead yet?
8490     BEQ MSCOR   ;no score it
8500     JMP INCM    ;yes
8510 MSCOR JSR MOVPLYR ;move plyr
8520     TXA 
8530     LSR A
8540     TAX 
8550     JSR EXPLO   ;add score
8560     LDX XREG
8570     JSR MISEXP
8580     JSR TOM     ;missile off
8590 PLPFCK LDA HPOSM0,X ;check for
8600     BEQ STRCK   ;player/
8610     STA HITCLR  ;playfield
8620     JSR EXSOUND ;collisions
8630     LDA SCFLAG  ;scoring?
8640     BNE REBOUND ;no go on
8650     JSR EXPLO   ;yes score
8660 REBOUND INC BOCNTR,X ;bounce
8670     LDA BOCNTR,X ;plyr off
8680     CMP #4      ;rocks?
8690     BNE RUBBER  ;yes
8700     LDA #0      ;no end
8710     STA BOCNTR,X ;bounce
8720 RUBBER LDA STDIR,X ;bounce plyr
8730     TAY 
8740     LDA BOUNCE,Y
8750     CMP #6
8760     BNE DOTAY
8770     CLC 
8780     LDA PBL0,X
8790     CMP #117
8800     LDA #4
8810     BCS DOTAY
8820     LDA #5
8830 DOTAY TAY 
8840     JSR MOVPLYR
8850     JMP INCM
8860 STRCK LDA STRIG0,X ;check
8870     BNE STIK    ;triggers
8880     STA ATRACT  ;no attract
8890     LDA XM0,X   ;missile
8900     BNE STIK    ;already in
8910     JMP MISL    ;use?
8920 STIK LDA STICK0,X ;check
8930     CMP #15     ;joysticks
8940     BNE GSTIK   ;no move
8950     JSR ROTOR
8960     JMP INCM
8970 GSTIK SEC       ;yes
8980     SBC #5      ;get
8990     TAY         ;movement
9000     STA STDIR,X ;index
9010     JSR MOVPLYR
9020     JMP INCM
9030 MOVPLYR LDA XP0,X
9040     CLC 
9050     ADC PXDIR,Y ;check limits
9060     CMP #193
9070     BEQ RAISE
9080     CMP #47
9090     BEQ RAISE
9100 STORX STA HPOSP0,X ;player
9110     STA XP0,X   ;horiz. move
9120 RAISE LDA PBH0,X
9130     STA PMVH
9140     LDA PBL0,X
9150     CLC 
9160     ADC PYDIR,Y
9170     CMP #197
9180     BEQ ROTOR
9190     CMP #34
9200     BEQ ROTOR
9210     STA PMVL
9220     STA PBL0,X
9230     LDY #7
9240 PLOOP LDA PLSHP,Y ;player
9250     STA (PMVL),Y ;vert. move
9260     DEY 
9270     BPL PLOOP
9280     INC ROCNTR,X
9290     LDA ROCNTR,X
9300     AND #7
9310     STA ROCNTR,X
9320     TAY 
9330     LDA ROTATE,Y
9340     LDY #4
9350     STA (PMVL),Y ;rotate
9360     LDA SSCNTR,X ;saucer
9370     BEQ DOROT   ;center
9380     RTS 
9390 DOROT LDA ROCNTR,X
9400     AND #1
9410     TAY 
9420     LDA SNDX,X
9430     TAX 
9440     LDA MSAUSND,Y ;moving
9450     STA AUDF3,X ;saucer
9460     LDA #165    ;sound
9470     STA AUDC3,X
9480     RTS 
9490 ROTOR LDA PBL0,X ;slower
9500     STA PMVL    ;stationary
9510     LDA PBH0,X  ;rotate
9520     STA PMVH
9530     INC ROCNTR,X
9540     LDA ROCNTR,X
9550     AND #15
9560     STA ROCNTR,X
9570     LSR A
9580     TAY 
9590     LDA ROTATE,Y
9600     LDY #4
9610     STA (PMVL),Y
9620     LDA SSCNTR,X
9630     BEQ DOROT2
9640     RTS 
9650 DOROT2 LDA ROCNTR,X
9660     AND #3
9670     LSR A
9680     TAY 
9690     LDA SNDX,X
9700     TAX 
9710     LDA SSAUSND,Y
9720     STA AUDF3,X ;stationary
9730     LDA #165    ;sound
9740     STA AUDC3,X
9750     RTS 
9760 INCM LDA XM0    ;check
9770     BEQ CKM1    ;missile 0
9780     LDX #0      ;movement
9790     JSR GDIR
9800 CKM1 LDA XM1    ;check
9810     BEQ CKM3    ;missile 1
9820     LDX #1      ;movement
9830     JSR GDIR
9840 CKM3 LDA XM3    ;check
9850     BEQ NEXIT   ;missile 2
9860     DEC XM3     ;movement
9870     LDA XM3
9880     STA HPOSM3
9890 NEXIT LDA CDTMV4 ;check sound
9900     BNE BUTCK   ;timer
9910     STA AUDF1
9920     STA AUDC1
9930 BUTCK LDA CONSOL ;check
9940     CMP #7      ;console
9950     BEQ SHOTSND
9960     JMP ENDIT
9970 SHOTSND LDA SSCNTR ;check shot
9980     BEQ SHOTSND2 ;sound
9990     LDX #0      ;counter
010000   JSR INCSHOT
010010 SHOTSND2 LDA SSCNTR+1
010020   BEQ TOMEX
010030   LDX #1
010040   JSR INCSHOT
010050 TOMEX LDA MBL2 ;check for
010060   BEQ EXIT    ;end of
010070   INC MXCNTR  ;missile
010080   LDA MXCNTR  ;explosion
010090   AND #3
010100   STA MXCNTR
010110   BNE EXIT
010120   LDA MBL2
010130   STA MBL
010140   LDA #0
010150   STA HPOSM2
010160   STA MBL2
010170   LDY #4
010180 TOMLOOP LDA (MBL),Y
010190   EOR MXSHP,Y
010200   STA (MBL),Y
010210   DEY 
010220   BPL TOMLOOP
010230 EXIT LDA CDTMV3 ;check
010240   BNE EXIT    ;move timer
010250   JMP MLOOP   ;start over
010260 INCSHOT INC SSCNTR,X ;change shot
010270   INC SSCNTR,X ;sound
010280   LDA SSCNTR,X
010290   CMP #48
010300   BEQ ENDSHOT
010310   LDY SNDX,X
010320   STA AUDF3,Y
010330   RTS 
010340 ENDSHOT LDA #0 ;turn off
010350   STA SSCNTR,X ;shot sound
010360   RTS 
010370 MISEXP LDA MBL2 ;check miss.
010380   BEQ DOEXP   ;explosion
010390   RTS         ;in use
010400 DOEXP LDA XM0,X ;load
010410   STA HPOSM2  ;missile
010420   LDA MBL0,X  ;explosion
010430   SEC         ;data
010440   SBC #2
010450   STA MBL2
010460   STA MBL
010470   LDY #4
010480 MIXLOOP LDA (MBL),Y
010490   ORA MXSHP,Y
010500   STA (MBL),Y
010510   DEY 
010520   BPL MIXLOOP
010530   RTS 
010540 MISL CLC      ;determine
010550   LDA XP0     ;missile
010560   CMP XP1     ;direction
010570   LDA MDIR1,X
010580   BCC GETDIR
010590   LDA MDIR2,X
010600 GETDIR STA MISDIR,X
010610   LDY SNDX,X
010620   LDA #8
010630   STA AUDF3,Y
010640   STA SSCNTR,X
010650   LDA #139
010660   STA AUDC3,Y
010670   LDY MISDIR,X
010680   LDA XP0,X   ;initial
010690   CLC         ;missile
010700   ADC MSPOS,Y ;position
010710   STA XM0,X
010720   LDA PBL0,X
010730   CLC 
010740   ADC #5
010750   STA MBL0,X
010760   STA MBL
010770   LDY #0
010780   LDA (MBL),Y ;load
010790   ORA MSSHP,X ;missile
010800   STA (MBL),Y ;data
010810   JMP STIK
010820 EXPLO JSR EXSOUND
010830   LDY SCORE,X
010840   LDA $0664,Y ;get score
010850   CLC 
010860   ADC #1      ;add one
010870   CMP #26     ;10 yet?
010880   BEQ NEXP    ;yes kill
010890   STA $0664,Y ;no store
010900   RTS 
010910 NEXP LDA #16
010920   STA $0664,Y
010930   LDA #17
010940   STA $0663,Y
010950   PLA         ;pull return
010960   PLA         ;address
010970 PBLPL JSR EXSOUND
010980   LDY SNDX,X
010990   LDA #200    ;start
011000   STA AUDF3,Y ;explosion
011010   LDA #143    ;sound
011020   STA AUDC3,Y
011030   STA ESCNTR,X
011040   LDA #144    ;change
011050   STA PCOLR0,X ;color
011060 BLPL LDA PBL0,X
011070   STA PMVL
011080   LDA PBH0,X
011090   STA PMVH
011100   STX MBL
011110   LDA EXCNTR,X
011120   TAX 
011130   LDY #7
011140 BLO1 LDA EXSHP,X ;load
011150   STA (PMVL),Y ;explosion
011160   INX         ;shape
011170   DEY 
011180   BPL BLO1
011190   CPX #64     ;finished?
011200   BEQ EXOFF
011210   TXA 
011220   LDX MBL
011230   STA EXCNTR,X ;store data
011240   JMP INCM    ;number
011250 EXOFF LDA #0  ;turn off
011260   LDX XREG    ;explosion
011270   STA EXCNTR,X
011280   STA HPOSP0,X ;player off
011290   STA XP0,X   ;screen
011300   STA PBL0,X
011310   STA HITCLR
011320   LDY SNDX,X
011330   STA AUDF3,Y
011340   STA AUDC3,Y
011350   INC DECNTR
011360   LDA DECNTR
011370   CMP #2      ;both dead?
011380   BNE GOBACK  ;no go back
011390   JMP ENDIT   ;game over
011400 GOBACK JMP INCM
011410 EXSOUND LDA #200 ;collision
011420   STA AUDF1   ;sound
011430   LDA #142
011440   STA AUDC1
011450 TIMER LDA #5  ;set sound
011460   STA CDTMV4  ;timer
011470   RTS 
011480 BLBOTH JSR EXSOUND ;saucers
011490   LDX #0      ;collided
011500   LDY #0      ;kill both
011510   LDA #158
011520   STA PCOLR0
011530   STA PCOLR1
011540   LDA PBL1
011550   STA PMVL
011560   LDA PBH1
011570   STA PMVH
011580   LDA PBH0
011590   STA PBL1
011600 BLO3 LDA EXSHP,X
011610   STA (PMVL),Y
011620   STA (PBL0),Y
011630   INX 
011640   INY 
011650   CPY #8
011660   BNE BLO3
011670   LDA #2
011680   STA CDTMV4
011690   LDY #0
011700 TIMCKB LDA CDTMV4
011710   BNE TIMCKB
011720   CPX #64
011730   BNE BLO3
011740   JMP ENDIT   ;game over
011750 GDIR LDY MISDIR,X ;get
011760   LDA XM0,X   ;direction
011770   CLC 
011780   ADC PXDIR,Y
011790   CMP #220    ;check
011800   BEQ TOM     ;limits
011810 MXLCK CMP #40
011820   BEQ TOM
011830   STA XM0,X   ;move missile
011840   STA HPOSM0,X
011850   RTS 
011860 TOM LDA #0    ;turn off
011870   STA HPOSM0,X ;missile
011880   STA XM0,X
011890   STA HITCLR
011900   TAY 
011910   LDA MBL0,X
011920   STA MBL
011930   LDA (MBL),Y
011940   EOR MSSHP,X
011950   STA (MBL),Y
011960   RTS 
011970 ENDIT LDA #30
011980   STA CDTMV3
011990 ENTCK LDA CDTMV3
012000   BNE ENTCK
012010   LDY #7
012020 ENDLP STA HPOSP0,Y ;all plyrs
012030   STA AUDF1,Y ;off screen
012040   DEY         ;sound off
012050   BPL ENDLP
012060   LDA #16     ;stop
012070   STA SCRL2   ;scrolls
012080   LDA #9
012090   STA SCRL0
012100   JMP MENU
012110 ;
012120 ;ASTEROID CHARACTER DATA
012130 ;
012140 CHTAB
012150   .BYTE 0,24,56,127,126,24,60,32
012160   .BYTE 0,28,126,127,60,24,0
012170   .BYTE 0,0,16,60,120,8,0,0
012180   .BYTE 0,0,24,126,62,124,100,0
012190   .BYTE 24,62,124,60,24,126,60,120
012200   .BYTE 0,96,124,56,60,126,6,0
012210   .BYTE 28,60,30,60,126,126,56,0
012220   .BYTE 0,0,16,56,28,0,0,0
012230   .BYTE 0,0,24,32,0,0,0,0
012240   .BYTE 0,0,56,126,24,48,0,0
012250   .BYTE 0,0,0,24,60,126,120,0
012260   .BYTE 0,60,62,30,124,56,32,0
012270   .BYTE 0,0,0,0,63,110,52,0
012280   .BYTE 0,24,120,60,62,28,0,0
012290   .BYTE 0,124,62,60,28,62,120,0
012300 ;
012310 ;SAUCER SHAPE
012320 ;
012330 PLSHP
012340   .BYTE 0,16,56,254,254,254,56,0
012350 ;
012360 ;EXPLOSION SHAPES
012370 ;
012380 EXSHP
012390   .BYTE 0,8,64,24,254,170,254,48
012400   .BYTE 4,128,36,128,126,170,253,16
012410   .BYTE 0,36,0,82,44,41,60,64
012420   .BYTE 36,0,145,8,66,42,74,16
012430   .BYTE 34,145,0,16,129,82,0,146
012440   .BYTE 137,32,128,1,64,2,128,81
012450   .BYTE 64,1,0,128,0,0,65,128
012460   .BYTE 0,0,0,0,0,0,0,0
012470 PLINE .BYTE 0,0,$30,$2C,$39,$32
012480   .BYTE 0,$11,0,0,0,0,$30,$2C,$39
012490   .BYTE $32,0,$12,0,0
012500 ;
012510 ;MOVEMENT INDEXES
012520 ;
012530 PXDIR .BYTE 1,1,1,0,255,255,255,0,0,0
012540 PYDIR .BYTE 1,255,0,0,1,255,0,0,1,255
012550 ;
012560 ;BOUNCE MOVEMENT INDEXES
012570 ;
012580 BOUNCE .BYTE 1,0,6,0,5,4,2,0,9,8
012590 MSPOS .BYTE 0,0,9,0,0,0,254
012600 COLOR .BYTE 0,64,128,192
012610 ;
012620 ;ROCKET CHARACTER DATA
012630 ;
012640 C2TAB .BYTE 255,63,31,0,0,0,0,0
012650   .BYTE 255,255,255,0,0,0,0,0
012660   .BYTE 255,255,255,31,15,7,3,7
012670   .BYTE 254,254,222,2,0,0,0,0
012680   .BYTE 252,248,240,224,0,0,0,0
012690   .BYTE 254,252,248,240,0,0,0,0
012700   .BYTE 248,240,224,192,0,0,0,0
012710 ;
012720 ;MISSILE MOVEMENT INDEXES
012730 ;
012740 MDIR1 .BYTE 2,6
012750 MDIR2 .BYTE 6,2
012760 ROTAB .BYTE 154,27,28,221
012770 FLTAB .BYTE 159,158,160,0,0,0,0,0
012780 ;
012790 ;LIGHTNING SHAPE DATA
012800 ;
012810 LIGHT .BYTE 16,8,16,24,8,16,8,16,8
012820   .BYTE 8,16,8,16,16,16,24,8
012830   .BYTE 16,8,8,4,8,16,8,16
012840   .BYTE 8,16,16,8,16,8,16,16,24
012850   .BYTE 8,16,8,16,8,8,16,8
012860   .BYTE 16,8,8,24,16,16,8,8
012870   .BYTE 4,16,8,8,16,8,16,8,4
012880   .BYTE 8,16,32,32,24,8,16,12
012890   .BYTE 4,8,16,8,16,16,8,8
012900 SCORE .BYTE 0,10
012910 OTHER .BYTE 1,0
012920 ;
012930 ;ROTATING SAUCER CENTER DATA
012940 ;
012950 ROTATE .BYTE 126,190,222,238,246,250,252,254
012960 SNDX .BYTE 0,2
012970 MSAUSND .BYTE 160,170
012980 SSAUSND .BYTE 180,190
012990 MSSHP .BYTE 3,12
013000 MXSHP .BYTE 32,16,48,48,32,16
013010 PCOL .BYTE 202,70,158,158
013020 MSEL .BYTE 10,4,0,0
013030 PFCOL .BYTE 40,37,68,121
013040 ;
013050 ;DISPLAY LIST INTERRUPT ALLOWS
013060 ;RINGS TO SCROLL INDIVIDUALLY
013070 ;
013080 ;GAME DISPLAY LIST
013090 ;
013100 GDLIST .BYTE 112,112,112,32,86,0,7
013110   .BYTE 86,0,8,86,0,9,86,0,10
013120   .BYTE 86,0,11,128,86,0,12,86,0,13
013130   .BYTE 86,0,14,86,0,15,176
013140   .BYTE 214,0,16,86,0,16,176
013150   .BYTE 86,128,15,86,128,14
013160   .BYTE 86,128,13,86,128,12,128
013170   .BYTE 86,128,11,86,128,10
013180   .BYTE 86,128,9,86,128,8
013190   .BYTE 86,128,7,70
013200   .WORD PLINE
013210   .BYTE 70,96,6,32,65,0,6
013220 ;
013230 ;MENU DISPLAY LIST
013240 ;
013250 MDLIST .BYTE 112,112,112,112,71
013260   .WORD TITL
013270   .BYTE 7,112,70
013280   .WORD AUTH
013290   .BYTE 112,112,71
013300   .WORD COLLISY
013310   .BYTE 71
013320   .WORD SCORY
013330   .BYTE 112,71
013340   .WORD RINGD
013350   .BYTE 71
013360   .WORD LOW
013370   .BYTE 112,71
013380   .WORD RINGS
013390   .BYTE 71
013400   .WORD SLOW
013410   .BYTE 112,65
013420   .WORD MDLIST
013430 TITL .BYTE 0,0,0,0,0,$62,$61,$74
013440   .BYTE $74,$6C,$65,0,$69,$6E,0,0
013450   .BYTE 0,0,0,0,0,0,0,0,0,$74,$68
013460   .BYTE $65,0,$62,0,$72,$69,$6E
013470   .BYTE $67,0,0
013480 AUTH .BYTE 0,0,0,34,57,0,44,37,55,0
013490   .BYTE 52,40,47,45,41,52,51
013500 ;
013510 ;MENU SELECTIONS
013520 ;
013530 RINGD .BYTE 0,0,0,0,$F2,$E9,$EE,$E7
013540   .BYTE 0,$E4,$E5,$EE,$F3,$E9,$F4,$F9
013550 RINGS .BYTE 0,0,0,0,0,$F2,$E9,$EE,$E7
013560   .BYTE 0,$F3,$F0,$E5,$E5,$E4
013570 LOW .BYTE 0,0,0,0,0,0,0,0,$AC,$AF,$B7
013580   .BYTE 0,0
013590 MEDIUM .BYTE 0,0,0,0,0,0,0,$AD,$A5,$A4
013600   .BYTE $A9,$B5,$AD
013610 HIGH .BYTE 0,0,0,0,0,0,0,0,$A8,$A9,$A7
013620   .BYTE $A8,0
013630 SLOW .BYTE 0,0,0,0,0,0,0,0,$B3,$AC,$AF,$B7
013640 FAST .BYTE 0,0,0,0,0,0,0,0,$A6,$A1,$B3
013650   .BYTE $B4,0,0,0,0
013660 RINGDY .BYTE 0,0,0,0,$32,$29,$2E,$27
013670   .BYTE 0,$24,$25,$2E,$33,$29,$34,$39
013680 RINGSY .BYTE 0,0,0,0,0,$32,$29,$2E,$27
013690   .BYTE 0,$33,$30,$25,$25,$24
013700 COLLIS .BYTE 0,0,0,0,0,$E3,$EF,$EC,$EC
013710   .BYTE $E9,$F3,$E9,$EF,$EE,$F3
013720 COLLISY .BYTE 0,0,0,0,0,$23,$2F,$2C
013730   .BYTE $2C,$29,$33,$29,$2F,$2E,$33
013740 SCORY .BYTE 0,0,0,0,0,0,0,$B3,$A3,$AF
013750   .BYTE $B2,$A9,$AE,$A7,0
013760 SCORN .BYTE 0,0,0,0,0,$AE,$AF,$AE,$B3
013770   .BYTE $A3,$AF,$B2,$A9,$AE,$A7,0,0,0,0,0
013780 MENU LDA #0
013790   STA SDMCTL
013800   LDY YMENU
013810   LDA #224
013820   STA CHBAS
013830   LDA #2
013840   STA CHINV
013850   LDA #MDLIST&$FF
013860   LDX #MDLIST/256
013870   STA SDLSTL
013880   STX SDLSTH
013890   LDA #62
013900   STA SDMCTL
013910 CONCK LDA CONSOL
013920   CMP #6
013930   BNE OPTCK
013940   STY YMENU
013950   LDA #20
013960   JSR BELL
013970   JMP PROG
013980 OPTCK CMP #3
013990   BNE SELCK
014000   CPY #1
014010   BEQ OPT1
014020   CPY #2
014030   BEQ OPT2
014040   LDA #COLLIS&$FF
014050   LDX #COLLIS/256
014060   STA MDLIST+15
014070   STX MDLIST+16
014080   LDA #RINGDY&$FF
014090   LDX #RINGDY/256
014100   STA MDLIST+22
014110   STX MDLIST+23
014120   JMP OPOUT
014130 OPT1 LDA #RINGD&$FF
014140   LDX #RINGD/256
014150   STA MDLIST+22
014160   STX MDLIST+23
014170   LDA #RINGSY&$FF
014180   LDX #RINGSY/256
014190   STA MDLIST+29
014200   STX MDLIST+30
014210   JMP OPOUT
014220 OPT2 LDA #RINGS&$FF
014230   LDX #RINGS/256
014240   STA MDLIST+29
014250   STX MDLIST+30
014260   LDA #COLLISY&$FF
014270   LDX #COLLISY/256
014280   STA MDLIST+15
014290   STX MDLIST+16
014300 OPOUT INY 
014310   CPY #3
014320   BNE JBELL
014330   LDY #0
014340 JBELL LDA #40
014350   JSR BELL
014360   JMP CONCK
014370 SELCK CMP #5
014380   BNE CONCK
014390   CPY #1
014400   BEQ SEL1
014410   CPY #2
014420   BEQ SEL2
014430   LDA SCFLAG
014440   BEQ NOSCOR
014450   LDA #0
014460   STA SCFLAG
014470   LDA #SCORY&$FF
014480   LDX #SCORY/256
014490   STA MDLIST+18
014500   STX MDLIST+19
014510   JMP SELOUT
014520 NOSCOR LDA #1
014530   STA SCFLAG
014540   LDA #SCORN&$FF
014550   LDX #SCORN/256
014560   STA MDLIST+18
014570   STX MDLIST+19
014580   JMP SELOUT
014590 SEL1 LDA ADENS
014600   CMP #10
014610   BEQ MEDSEL
014620   CMP #12
014630   BEQ HISEL
014640   LDA #10
014650   STA ADENS
014660   LDA #LOW&$FF
014670   LDX #LOW/256
014680   STA MDLIST+25
014690   STX MDLIST+26
014700   JMP SELOUT
014710 MEDSEL LDA #12
014720   STA ADENS
014730   LDA #MEDIUM&$FF
014740   LDX #MEDIUM/256
014750   STA MDLIST+25
014760   STX MDLIST+26
014770   JMP SELOUT
014780 HISEL LDA #14
014790   STA ADENS
014800   LDA #HIGH&$FF
014810   LDX #HIGH/256
014820   STA MDLIST+25
014830   STX MDLIST+26
014840   JMP SELOUT
014850 SEL2 LDA ASPEED
014860   CMP #4
014870   BEQ FASTSEL
014880   LDA #4
014890   STA ASPEED
014900   LDA #SLOW&$FF
014910   LDX #SLOW/256
014920   STA MDLIST+32
014930   STX MDLIST+33
014940   JMP SELOUT
014950 FASTSEL LDA #3
014960   STA ASPEED
014970   LDA #FAST&$FF
014980   LDX #FAST/256
014990   STA MDLIST+32
015000   STX MDLIST+33
015010 SELOUT LDA #30
015020   JSR BELL
015030   JMP CONCK
015040 BELL STA AUDF1
015050   LDA #175
015060   STA AUDC1
015070   LDA #15
015080   STA CDTMV3
015090 BTIME LDA CDTMV3
015100   ORA #160
015110   STA AUDC1
015120   EOR #160
015130   BNE BTIME
015140   STA AUDF1
015150   STA AUDC1
015160   RTS