10 RANDOMIZE
30 LET N=0
40 PRINT "WELCOME TO THE SCIENCE FICTION HORROR MOVIE POCKET COMPUTER"
50 PRINT  
60 LET N=N+1
70 PRINT "STORY # ";N 
80 PRINT  
90 PRINT "EARTH ";
100 ON INT(RND(0)*8+1) GOTO 350,450,110,220,450,350,450,350 
110 ON INT(3*RND(0)+1) GOTO 120,140,160 
120 PRINT "BURNS UP "
130 GOTO 170
140 PRINT "FREEZES ";
150 GOTO 170 
160 PRINT "FALLS INTO THE SUN "; 
170 ON INT(2*RND(0)+1) GOTO 180,200 
180 PRINT "AND EVERYBODY DIES "
190 GOTO  1810
200 PRINT "AND ALMOST EVERYBODY DIES"
210 GOTO 1810
220 PRINT "IS STRUCK BY A GIANT COMET AND "; 
230 ON INT(3*RND(0)+1) GOTO 240,260,280 
240 PRINT "DESTROYED"
250 GOTO 1810
260 PRINT "SAVED " 
270 GOTO 1810
280 PRINT "NOT DESTROYED"
290 PRINT "BUT ";
300 ON INT(2*RND(0)+1) GOTO 310,330 
310 PRINT "EVERYONE DIES"
320 GOTO 1810
330 PRINT "ALMOST EVERYONE DIES" 
340 GOTO 1810
350 PRINT "SCIENTISTS "; 
360 ON INT(2*RND(0)+1) GOTO 370,390 
370 PRINT "INVENT "; 
380 GOTO 400 
390 PRINT "DISCOVER "; 
400 ON INT(2*RND(0)+1) GOTO 410,430 
410 PRINT "TINY "; 
420 GOTO 580 
430 PRINT "GIANT ";
440 GOTO 580 
450 PRINT "IS ATTACKED BY "; 
460 ON INT(2*RND(0)+1) GOTO 470,490 
470 PRINT "TINY "; 
480 GOTO 500 
490 PRINT "GIANT ";
500 ON INT(4*RND(0)+1) GOTO 510,530,550,570 
510 PRINT "MARTIAN ";
520 GOTO 580 
530 PRINT "MOON "; 
540 GOTO 580 
550 PRINT "BETELUGUSIAN  "; 
560 GOTO 580 
570 PRINT "EXTRAGALACTIC ";
580 ON INT(5*RND(0)+1) GOTO 590,610,630,650,670 
590 PRINT "POTATO BUGS ";
600 GOTO 680 
610 PRINT "REPTILE(S) "; 
620 GOTO 680 
630 PRINT "UNOILED MECHANICAL DEVICES "; 
640 GOTO 680 
650 PRINT "SUPER PERSON(S) ";
660 GOTO 680 
670 PRINT "ICKY THINGS OOZING GUCK ";
680 PRINT "WHICH(WHO)" 
690 ON INT(11*RND(0)+1) GOTO 700,740,700,760,780,760,780,800,820,800,820
700 PRINT "WANT OUR WOMEN "; 
710 ON INT(3*RND(0)+1) GOTO 860,720,860 
720 PRINT "TAKE A FEW AND LEAVE "; 
730 GOTO 1810
740 PRINT "ARE FRIENDLY" 
750 GOTO 1810
760 PRINT "ARE FRIENDLY BUT MISUNDERSTOOD "; 
770 GOTO 860 
780 PRINT "MISUNDERSTAND US "; 
790 GOTO 860 
800 PRINT "UNDERSTAND US ALL TOO WELL "; 
810 GOTO 860 
820  PRINT "LOOK UPON US AS A SOURCE OF NOURISHMENT ";
830 ON INT(3*RND(0)+1) GOTO 840,860,840 
840 PRINT "AND EAT US" 
850 GOTO 1810
860 PRINT "AND ARE ";
870 ON INT(2*RND(0)+1) GOTO 880,900 
880 PRINT "RADIOACTIVE ";
890 GOTO 910 
900 PRINT "NOT AT ALL RADIOACTIVE "; 
910 PRINT "AND........"
920 ON INT(3*RND(0)+1) GOTO 1100,930,1100 
930 PRINT "CAN BE KILLED BY "; 
940 ON INT(3*RND(0)+1) GOTO 950,970,1080
950 PRINT "A CROWD OF PEASANTS WITH TORCHES" 
960 GOTO 1810
970 ON INT(5*RND(0)+1) GOTO 980,1000,1020,1040,1060 
980 PRINT "THE ARMY "; 
990 GOTO 1810
1000 PRINT "THE NAVY "; 
1010 GOTO 1810
1020 PRINT "THE AIR FORCE ";
1030 GOTO 1810
1040 PRINT "THE MARINE CORPS "; 
1050 GOTO 1810
1060 PRINT "THE COAST GUARD ";
1070 GOTO 1810
1080 PRINT "THE ATOMIC BOMB ";;
1090 GOTO 1810
1100 PRINT "CANNOT BE KILLED BY ";
1110 ON INT(3*RND(0)+1) GOTO 1120,1140,1250
1120 PRINT "THE ATOMIC BOMB ";
1130 GOTO 1260
1140 ON INT(6*RND(0)+1) GOTO 1150,1170,1190,1210,1230,1250
1150 PRINT "THE ARMY "; 
1160 GOTO 1260
1170 PRINT "THE NAVY "; 
1180 GOTO 1260
1190 PRINT "THE AIR FORCE ";
1200 GOTO 1260
1210 PRINT "THE MARINES ";
1220 GOTO 1260
1230 PRINT "THE COAST GUARD ";
1240 GOTO 1260
1250 PRINT "A PLEASANT CROWD OF PEASANTS WITH TEARGAS AND TORCHES ";
1260 ON INT(6*RND(0)+1) GOTO 1270,1330,1610,1710,1330,1610 
1270 PRINT "BUT THEY DIE FROM ";
1280 ON INT(4*RND(0)+1) GOTO 1290,1310,1450,1450 
1290 PRINT "CATCHING A TERRIBLE PLAGUE "; 
1300 GOTO 1810
1310 PRINT "WATCHING OLD NIXON COMMERCIALS" 
1320 GOTO 1810
1330 PRINT "BUT,,,,,,"
1340 ON INT(3*RND(0)+1) GOTO 1350,1370,1540
1350 PRINT "A CUTE LITTLE KID CONVINCES THEM PEOPLE ARE O.K. "; 
1360 GOTO 1380
1370 PRINT "A PRIEST TALKS TO THEM OF GOD ";
1380 PRINT "AND THEY......" 
1390 ON INT(3*RND(0)+1) GOTO 1400,1420,1440
1400 PRINT "DIE"
1410 GOTO 1810
1420 PRINT "LEAVE"
1430 GOTO 1810
1440 PRINT "TURN INTO ";
1450 ON INT(4*RND(0)+1) GOTO 1460,1480,1500,1520 
1460 PRINT "DISGUSTING LUMPS OF PLASTIC"
1470 GOTO 1810
1480 PRINT "CUTE LITTLE KIDS WITH GREEN TEETH"
1490 GOTO 1810
1500 PRINT "VOLUPTUOUS GIRLS" 
1510 GOTO 1810
1520 PRINT "PRIESTS"
1530 GOTO 1810
1540 PRINT "THEY FALL IN LOVE WITH "; 
1550 ON INT(3*RND(0)+1) GOTO 1560,1450,1560
1560 PRINT "THIS BEAUTIFUL GIRL "; 
1570 ON INT(4*RND(0)+1) GOTO 1380,1580,1380,1380 
1580 PRINT "AND....." 
1590 PRINT "THEY GET MARRIED AND LIVE HAPPILY EVER AFTER" 
1600 GOTO 1810
1610 PRINT "SO...." 
1620 PRINT "SCIENTISTS INVENT A WEAPON "; 
1630 ON INT(5*RND(0)+1) GOTO 1640,1680,1640,1660,1680
1640 PRINT "WHICH FAILS ";
1650 ON INT(2*RND(0)+1) GOTO 1270,1710 
1660 PRINT "WHICH KILLS THEM" 
1670 GOTO 1810
1680 PRINT "WHICH TURNS THEM INTO ";
1690 GOTO 1450
1700 GOTO 1810
1710 ON INT(4*RND(0)+1) GOTO 1720,1740,1770,1800 
1720 PRINT "SO THEY KILL US ";
1730 GOTO 1810
1740 PRINT "                     (SUSPENSE)        "; 
1750 PRINT "SO THEY PUT US UNDER A BENIGN DICTATORSHIP "; 
1760 GOTO 1810
1770 PRINT "SO....";
1780 PRINT "THEY TURN US INTO ";
1790 GOTO 1450
1800 PRINT "SO THEY EAT US ALL UP, YUMMY "; 
1810 PRINT
1815 PRINT "T H E  E N D  " 
1820 PRINT  
1830 GOTO 50
1840 END