10HOME
20VTAB 10
30? TAB(2):INPUT "What is your name? "; a$
40FOR x=0 TO 1000:NEXT
50HOME:VTAB 10:? TAB(7); "Well, Hi "; a$
60FOR x=0 TO 1000:NEXT
70?:? TAB(5); "My name is Adam."
80FOR x=0 TO 5000:NEXT
90HOME:VTAB 10:? TAB(5); "Do you want to play?"
95?
100? TAB(6):INPUT "Type 'Yes' or 'No'"; b$
110IF b$="Yes" THEN GOTO 200
120IF b$="No" THEN GOTO 150
130GOTO 90
150HOME:VTAB 10:? TAB(1); "Too Bad, I'm going to turn off"
160FOR x=0 TO 5000:NEXT
170HOME:END
200HOME:VTAB 10:? TAB(12); "Oh Goodie!!!"
210FOR x=0 TO 2000:NEXT
220?:? TAB(1); "How about 'GLOBAL THERMONUCLEAR WAR?'"
230FOR x=0 TO 3000:NEXT
240?:? TAB(5):INPUT "Type 'OK' or 'NO' "; c$
250IF c$="OK" THEN GOTO 300
260IF c$="NO" THEN GOTO 400
270HOME:VTAB 8:GOTO 220
300HOME:VTAB 10:? TAB(10); "YOU LOSE!!!!"
310FOR x=0 TO 3000:NEXT
320GOTO 500
400HOME:VTAB 10:? TAB(10); "YOU WIN!!!!":END
500HGR:HCOLOR =5
510FOR y=190 TO 75 STEP -3
520HPLOT 100, y TO 150, y
525NEXT y
530 r=50
540FOR i=1.57 TO 7.85 STEP .05
550 x=r*SIN(i): y=r*COS(i)
560HPLOT 85, 65 TO 85+x, 65+y
570HPLOT 165, 65 TO 165+x, 65+y
580NEXT i
590HOME:? TAB(8); "MUSHROOM CLOUD"
