5CLEAR
10HOME:? "NUCLEAR FUN!!!!!!!!!!!!!!!!!!!!"
15INPUT "WHAT CITY DO YOU WANT TO DESTROY?"; ct$
40POKE 18607, 5:POKE 18633, 5*16+5:POKE 18711, 15*16+12
50GR
55FOR bdg=0 TO 39
60 ht=INT(RND(1)*10)
65 bc=INT(RND(1)*3)
67IF bc=1 THEN  bc=5
68IF bc=2 THEN  bc=0
69IF bc=3 THEN  bc=15
80COLOR =bc
81VLIN 39, 39-ht AT bdg
90NEXT bdg
95?:? "Beautiful "; ct$
97? "Press any key to launch bomb":GET bb$
100FOR x=0 TO 35
110COLOR =15
120PLOT 20, x
130GOSUB 1000
135COLOR =7
140PLOT 20, x
200NEXT x
300& xplosion sequence
310COLOR =8
320FOR y=39 TO 20 STEP -1
330HLIN 15, 25 AT y
335FOR wt=0 TO 30:NEXT wt
340NEXT y
350FOR xt=19 TO 14 STEP -1
360HLIN 10, 30 AT xt
370NEXT xt
380 hx=13
385 ls=11
387 rs=29
400HLIN ls, rs AT hx
410 hx=hx-1: rs=rs-1: ls=ls+1
420IF hx=7 THEN 500
430GOTO 400
500& estruction routine
510POKE 18607, 8:POKE 18633, 8*16+8:POKE 18711, 15*16+10
520GR
530? ct$; " is no more... R.I.P."
550? "Do you wish to have more nuclear fun?":GET yn$
560IF yn$="Y" OR yn$="y" THEN 5
570TEXT:END
1000 wt=1
1001 wt=wt+1
1002IF wt=51 THEN RETURN
1003GOTO 1001

