10 rem copy and paste this simple program into a text editor
12 rem visit http://www.nicholson.com/rhn/basic/ for information on running BASIC programs   
18 rem First Computer TS1000, ca. 1982, player2 is 12 years old
20 input "Would you like to hear about my first computer?(y/n) ", A$
30 IF (A$="y") THEN 200
40 IF (A$="n") THEN 8000
200 print
201 print "It was a Timex Sinclair 1000. It hooked up to the uhf" 
202 print "channel on a small, b&w television set and used cassette"
204 print "tapes as removable media. It had 2k of ram. My"
206 print "brother Mark and I wrote little BASIC programs on it."
210 print
220 input "should i go on?(y/n) ", B$
230 if (B$="y") then 300
240 if (B$="n") then 8000
300 print
308 print "Our dream was to write a game like 'Dig-Dug', it must" 
310 print "have been our favorite. We didn't get very far"
320 print "with it. We wrote a simple BASIC"
330 print "program where we could move a little black square"
340 print "around the screen with the keyboard."
350 print
360 input "Go on?(y/n) ", C$
370 if (C$="y") then 400
380 if (C$="n") then 8000
400 print 
410 print "One day, our mother's cousin came to visit."
420 print "He brought his daughters with him, they were our age"
430 print "and were from California. Being a fat, geeky, pre-teen"
440 print "who lived in Ohio, at the end of a cul-de-sac, next to"
445 print "railroad tracks, I was embarressed"
450 print "in front of the sunny california girls."
460 print
470 input "Go on?(y/n) ", D$
480 if (D$="y") then 500
490 if (D$="n") then 8000
500 print
510 print "We had our TS1000 in our basement rec room. It was our"
520 print "domain. Our mother didn't come down there very often so it"
530 print "was a mess and smelled like cat piss. We didn't mind much."
540 print "The carpet needed to be shampooed."
550 print "My brother and I would sneak cigarettes down there."
560 print
570 input "Go on?(y/n) ", E$
580 if (E$="y") then 600
590 if (E$="n") then 8000
600 print
610 print "But my mom suggested we show our 2nd cousins the computer."
620 print "They sat on the floor behind the couch near the"
630 print "sub-basement door, wouldn't come near the computer."
635 print "We showed off our extreme geekiness as they"
640 print "whispered to each other about the smell in the basement."
650 goto 8500
8000 print "OK, I guess this is boring after all. See ya later."
8010 goto 9000
8500 print 
8508 print "I was ashamed of my provincial Ohio status, my body,"
8510 print "my house, my family. But i still have fond memories"
8520 print "of my TS1000."
9000 end