Goto
1200 SOUND 0,0,0,0
1205 PRINT :PRINT
1210 E$="This program will produce endless funny little science fiction stories for your reading pleasure." 1 230 F$="You may enter characters and places of your choice in the stories in order to make them personal." 1 300 A=0
1310 IF A=LEN[E$) THEN 1400
1320 SOUND 0,A,10,10
1330 A=A+1
1360 GOTO 1310
1400 PRINT :PRINT
1430 SOUND 0,A,10,10
1460 FOR 1=1 TO 10:NEXT I
1470 GOTO 1420
1500 PRINT :PRINT
1510 PRINT"Please log in your name";
1520 POKE 702,0:REM SETS LOWER CASE
1525 INPUT NA$
1530 IF NA$="" THEN NA$="Nameless Blob":PRINT "OK, we will call you ";NA$
1535 FOR 1=1 TO 300:NEXT I
1540 PRINT "}":PRINT :PRINT
1550 PRINT "The stories can contain:"
1560 PRINT :PRINT
1570 PRINT "A. Your selected names."
1580 PRINT :PRINT "B. The programs list of names."
1590 PRINT :PRINT "C. Both lists of names."
1600 PRINT :PRINT "Press A,B or C:" 1610 INPUT G$
1620 IF G$="A" OR G$="a" OR G$="" THEN HG=2 1 630 IF GS="B" OR G$="b" THEN HG=1 :GOTO 220 1 640 IF G$="C" OR G$="c" THEN HG=0 1990 RETURN 2000 REM SETUP
2010 POKE 752,0:REM VISIBLE CURSOR 2020 PRINT"}"
2025 DIM AAS(20),AB$(20),AC$(20),AD$(20),AES[20) 2030 DIM BAS(20),BB$(20),BC$(20),BDS(20),BE$[20) 2040 DIM CAS[20),CB$(20),CC$(20),CD$(20),CES(20) 2045 DIM DA$(20),DB$(20),DC$(20],DDS(20),DE$(20]
2050 PR I NT "Enter five names of characters who will save the day. (20 letters max)." 2055 PRINT""
2070 PRINT "Enter five names of grizzly monsters who will attack." 2075 PRINT""
2080 INPUT BA$,BB$,BC$,BD$,BE$ 2082 PRINT"}"
2085 PRINT "Enter five names of places that will be attacked." 2090 PRINT""
2095 INPUT CAS,CBS,CCS,CDS,CE$
21 00 PRINT "Enter the names of five places from which monsters come." 21 10 PRINT""
2120 INPUT DA$,DB$,DC$,DD$,DE$ 2125 POKE 752,1 2130 RETURN
2199 REM HEROS
2200 AS="Tim Conway" 2202 RETURN
2205 AS="Big Bird"
2207 RETURN
2210 A$="The Fonz"
2212 RETURN
221 5 A$="Wonder Woman"
2217 RETURN
2220 A$="Kareem Abdul Jabar"
2222 RETURN
2225 A$="Tom Selleck"
2227 RETURN
2230 AS="Lucille Ball"
2232 RETURN
2235 A$=AA$ 2237 RETURN 2240 A$=AB$ 2242 RETURN 2245 A$=AC$ 2247 RETURN 2250 A$=AD$ 2252 RETURN 2255 A$=AE$ 2257 RETURN 2270 A$=AC$
2299 REM NAMES OF MONSTERS
2300 A$="Transylvanian vampires" 2302 RETURN
2305 A$="Brazilian killer bees" 2307 RETURN
231 0 A$="Giant green worms" 2312 RETURN 2315 A$="Mubbles" 2317 RETURN
2320 A$="bug eyed monsters"
2322 RETURN
2325 A$="rabid androids"
2327 RETURN
2330 A$="fetid zombies"
2332 RETURN
2337 RETURN
2342 RETURN
2347 RETURN
2352 RETURN
2357 RETURN
2399 REM PLACES THAT HEROS ARE FROM
2400 A$="Disneyland" 2402 RETURN
2405 A$="Cucumonga" 2407 RETURN
241 0 A$="The United States" 2412 RETURN
241 5 A$="Okeefenokee Swamp"
2417 RETURN
2420 A$="Tucumcari"
2422 RETURN
2427 RETURN
2430 A$="Timbuktu"
2432 RETURN
2437 RETURN
2442 RETURN
2447 RETURN
2452 RETURN
2457 RETURN
2499 REM PLACES THAT MONSTERS ARE FROM
2500 A$="Planet XX" 2502 RETURN 2505 A$="Persepeon" 2507 RETURN
251 0 A$="Bondegarra"
2512 RETURN
2515 A$="unden the bed"
2517 RETURN
2520 A$="the mausoleum"
2522 RETURN
2525 A$="downtown Burbank"
2527 RETURN
2532 RETURN
2537 RETURN
2542 RETURN
2547 RETURN
2550A$=DD$
2552 RETURN
2557 RETURN
3000 REM PLAY
3005 SETCOLOR 2,5,0
3020 PRINT"}"
3205 ON R GOTO 3210,3215,3220,3225,3230
3210 PRINT "######### News Bulletin!!!#########":GOTO 3250 3215 PRINT "######### Flash! Flash! Flash!########":GOTO 3250 3220 PRINT "######### Attention Earth!! #########":GOTO 3250 3225 PRINT "###### Calling All Earthlings!######":GOTO 3250 3230 PRINT" ###### Now Hear This!!######" 3250 PRINT :PRINT
3255 R=5*(INT(RND(0}*((1 2*(HG=0))+(7*(HG=])+(5*(HG=2))])+(7*(HG=2)))
3260 GOSUB [2400+R]
Post a comment