Atari 8-bit Source code

5DIMMSC(15),TV(15),MV(15),LTR(15),SPRT(15),GNRL(15),TMP(15),Q$(300)
6MSC=0:TV=0:MV=0:LTR=0:SPRT=0:GNRL=0
10GRAPHICS0:POKE82,2:SETCOLOR2,0,0:POKE752,1:POKE559,0:?:?:?:?
11SETCOLOR1,0,15
20?""
21?""
22?""
23?""
24?""
25?"":?
27?""
28?""
29?""
30?""
31?""
32?"":JKL=0
33COLORASC(""):PLOT9,2:DRAWTO28,2:DRAWTO28,18:DRAWTO9,18:DRAWTO9,2
35FORP=1TO5:POKE559,0:FORPP=1TO20:NEXTPP:POKE559,226:FORPP=1TO20:NEXTPP:NEXTP
40FORP=15TO0STEP-0.5
45SOUND0,100,12,P:SOUND1,100,10,P:SOUND2,120,10,P:SOUND3,120,12,P
46SOUND0,110,12,P:SOUND1,110,10,P:SOUND2,130,10,P:SOUND3,130,12,P
47SOUND0,120,12,P:SOUND1,120,10,P:SOUND2,100,10,P:SOUND3,100,12,P
48SETCOLOR1,0,P
49NEXTP
50?"":SETCOLOR1,0,13:POKE559,0
100?"Anotheroneby":?:?
120?""
130?""
140?""
150?""
160?""
170?""
180?""
190?""
200?""
210?""
220?""
230?"":?:?
240?"IncooperationwithBalmyDonSoftware"
250?"1985"
260POKE559,226
300FORP=1TO600:NEXTP
301POKE82,5:?"":POKE559,0
302?:?"ThanksAgainTo"
303?""
304?""
305?""
306?""
307?""
308?""
309?""
310?""
311?"Granville,Ohio"
312?""
313?""
314?""
315?""
316?""
317?""
318?"":?"1-(614)-587-3774":POKE559,226:FORLP=1TO500:NEXTLP:POKE82,2
319FORTIMER=1TO5:?"":POKE559,0
320?""
330?""
340?"hooseacategory"
350?""
360?:?
370?""
380?"usiciterature"
390?""
400?""
410?""
420?"elevisionports"
430?""
440?""
450?""
460?"ovieseneral"
470?""
480?""
481SETCOLOR1,0,0:POKE559,226
482FORP=0TO13STEP2:SETCOLOR1,0,0:FORLL=1TO10:NEXTLL:SETCOLOR1,0,P:FORLL=1TO10:NEXTLL:NEXTP
490CLOSE#1:OPEN#1,4,0,"K:"
500GET#1,A:A=A-48:IFA>6ORA<1THENSOUND0,230,12,15:FORLL=1TO40:NEXTLL:SOUND0,0,0,0:GOTO490
501GOSUB32300
510ONAGOSUB30000,30100,30200,30300,30400,30500
511NEXTTIMER:GOTO800
520POSITION19-(LEN(STR$(SCOR))/2),5:?SCOR;"":POSITION17,19:?"":POSITION17,20:?"||":POSITION17,21:?""
521Q=INT(RND(0)*29):IFQ/2<>INT(Q/2)THEN521
525IFTMP=0THEN530
526FORKK=1TOTMP:IFTMP(KK)=QTHEN521
527NEXTKK
530TMP=TMP+1:TMP(TMP)=Q:RESTORERST+Q+1:RESTORERST+Q
540READQ$:PS=5:RW=7
550FORP=1TOLEN(Q$)
560IFQ$(P,P)<>""THEN580
570CT=0:FORPP=P+1TOLEN(Q$):IFQ$(PP,PP)<>""THENCT=CT+1:NEXTPP:IFPS+CT<36THEN580
571IFPS+CT<36THENPOP:GOTO580
572RW=RW+1:PS=4
580SOUND0,0,0,15:POSITIONPS,RW:?Q$(P,P):PS=PS+1:SOUND0,0,0,0
590NEXTP:RESTORERST+Q+1
601FORGK=1TO200:NEXTGK:JK=0:FORL=1TO4:READQ$:IFLEN(Q$)>JKTHENJK=LEN(Q$)
602NEXTL:RESTORERST+Q+1
603JK=19-(JK/2)
604LT=64:FORK=1TO4:RW=RW+2:READQ$
610POSITIONJK,RW:?CHR$(LT+K);")":FORP=1TOLEN(Q$)
620SOUND0,0,0,15:POSITIONP+2+JK,RW:?Q$(P,P):SOUND0,0,0,0:NEXTP:NEXTK
630POKE764,255:FORF=999TO99STEP-2:CN=INT(F/10)
640IFPEEK(764)=255THENPOSITION18,20:?"0";INT(F/100):NEXTF:GOTO690
650CLOSE#1:OPEN#1,4,0,"K:":GET#1,GS:IFGS<65ORGS>68THENPOKE764,255:GOTO640
655READQ$:IFQ$<>CHR$(GS)THEN700
660MS=INT(RND(0)*10)+1
665ONMSGOSUB670,671,672,673,674,675,676,677,678,679:POSITION19-LEN(Q$)/2,22:?Q$:GOTO680
670Q$="AbsolutelyCorrect!":RETURN
671Q$="Terrific!":RETURN
672Q$="Wow,I'mAmazed!":RETURN
673Q$="Fantastic!":RETURN
674Q$="Correct!":RETURN
675Q$="That'sPerfect!":RETURN
676Q$="Amazing!":RETURN
677Q$="Hey,You'reRight!":RETURN
678Q$="Gee,IDidn'tEvenKnowThatOne!":RETURN
679Q$="VeryGood!":RETURN
680IFBET=1THENSCOR=SCOR+250
681IFBET=2THENSCOR=SCOR+500
682IFBET=3THENSCOR=SCOR+1000
683AS=INT(RND(0)*200)+50:FORP=16TO0STEP-2:SOUND0,AS-1,10,P:SOUND1,AS,10,P:SOUND2,AS+1,10,P:NEXTP
684POSITION19-(LEN(STR$(SCOR))/2),5:?SCOR:FORP=16TO0STEP-2:SOUND0,150,10,P:NEXTP:FORP=INT(F/100)TO0STEP-1
685POSITION19,20:?P:FORPL=16TO0STEP-2:SOUND0,P*10+PL+50,10,PL:NEXTPL:SCOR=SCOR+10
686POSITION19-(LEN(STR$(SCOR))/2),5:?SCOR:NEXTP:RETURN
690POSITION0,22:?"Sorry,ButYou'reOutOfTime."
691FORP=70TO120:SOUND0,P-1,10,12:SOUND1,P,10,12:SOUND2,P+1,10,12:NEXTP
695READQ$:GOTO710
700POSITION0,22:?"Sorry,ButThat'sNotCorrect.":FORP=70TO100:SOUND0,P-1,10,12:SOUND1,P+1,10,12:NEXTP
701FORP=150TO200:SOUND0,P-1,10,12:SOUND1,P+1,10,12:NEXTP
702SOUND0,0,0,0:SOUND1,0,0,0
710IFSCOR=0THEN723
720IFBET=1THENSCOR=SCOR-INT(SCOR/4)
721IFBET=2THENSCOR=SCOR-INT(SCOR/2)
722IFBET=3THENSCOR=0
723POSITION0,22:?"Thecorrectanswerwas";Q$;"."
724SOUND0,0,0,0:SOUND1,0,0,0:SOUND2,0,0,0
725FORP=1TO600:NEXTP
730RETURN
800POKE559,0:?"":?:?:?:IFKLJ=999THEN860
801?"":KLJ=999
802?""
803?""
804?""
805?"":POKE559,226
806FORK=1TO10
807FORP=16TO1STEP-3:SOUND0,0,200,P:NEXTP
809FORP=16TO1STEP-3:SOUND1,0,200,P:NEXTP
810NEXTK:SOUND0,0,0,0:SOUND1,0,0,0
820POSITION19-LEN(STR$(SCOR))/2-2,15:?"-=";SCOR;"=-"
830IFSCOR>=5000THENFORP=1TO10:FORPP=16TO0STEP-2:SOUND0,40,10,PP:NEXTPP:NEXTP:GOTO850
840POSITION0,20:?"Sorry,butthanksforplayingand,tryagainsometime!"
841FORP=1TO700:NEXTP:RUN
850POSITION0,22:?"Youhavebeenawarded5extrabonusquestions.":FORPP=1TO400:NEXTPP:GOTO301
860?"THANKSFORPLAYING,eh?"
870GOTO841
10000DATAMercedesEllingtondancedonBroadwayinatributetoDukeEllington'smusic.How'ssherelatedtohim?
10001DATANiece,Grandaughter,Sister,Daughter,B
10002DATAWhatrockgrouptookit'snamefromacharacterinthemovie'Barbarella'?
10003DATAToto,DeBarge,DuranDuran,TheEurythmics,C
10004DATAWhat'PeggySue'songsterwasbroughttolifeonfilmbyGaryBuseyin1978?
10005DATABuddyHolly,LennyBruce,Elvis,GlenFry,A
10006DATAAccordingtosingerMacDaviswhatflowersshouldyou'StopandSmell'?
10007DATAViolets,Pansies,Lillies,Roses,D
10008DATAThesongs'WhatIDidforLove'and'HelloTwelve'alongwith'HelloLove'arefromwhatBroadwaymusical?
10009DATAAChorusLine,Oklahoma!,TheMusicMan,MyFairLady,A
10010DATAWhatpopsingeradvisedlistenersthattheybetter'SaveItForARainyDay'?
10011DATAPaulMcCartney,BuddyHolly,StephenBishop,SimonLaBon,C
10012DATAWhatcolordoesEurythmics'leadsingerAnnieLennoxdyeherhair?
10013DATAWhite,Blue,Orange,Red,C
10014DATAWhowroteandsangtheparodyofbigotryentitled'ShortPeople'?
10015DATAPaulAnka,RandyNewman,TomLerher,NeilSedaka,B
10016DATATheiragesarefrom11to16whentheirfirstsingle'PasstheDutchie'becameahit.Namethem.
10017DATATheGenerationGap,TheJackson's,TheOsmond's,TheMusicalYouth,D
10018DATAHerselfapopularsoloistshe'swrittenseveralhitsongs(i.e.WheneverICallYouFriend)forothers.Nameher.
10019DATAMelissaManchester,CarlySimon,MarieOsmond,BarbaraMandrell,A
10020DATAWhatrockgroupcheckedintothe'HotelCalifornia'?
10021DATAVanHalen,TheWho,LedZepplin,TheEagles,D
10022DATAWhowrotethemusicfor'JesusChristSuperstar'and'Evita'?
10023DATAElaineZayak,AndrewWebber,BrianFrena,PatrickMcDuffy,B
10024DATAShestarredonBroadwayin'TheMusicMan'andhasplayedinNewYorknightclubssince.Whoisshe?
10025DATABarbaraCook,ShirleyJones,NelCarter,CicelyTyson,A
10026DATAHeisthefirstsoloartisttohavefourTop10hitsoffoneLP.Namehim.
10027DATAElvis,BruceSpringsteen,MichaelJackson,BobDylan,C
10028DATAWhois'Mr.CandidCamera'?
10029DATAAlanFunt,EdGrimly,GeorgeBurns,TimPlansy,A
11000DATAIntheTVmovie'TheFortune'whostarredalongwithWarrenBeatty?
11001DATARobertDuvall,RichardSanders,JackNicholson,RobertDeNiro,C
11002DATAWhat'stherealnameofHallaranandEhrlich'shospitalnicknamed'St.Elsewhere'?
11003DATAEligius,General,Memorial,Riverside,A
11004DATANametheTVshowaboutaspiringyoungperformersinNewYork'sSchoolforthePerformingArts.
11005DATADoubleTrouble,DifferentStrokes,It'sALiving,Fame,D
11006DATAWhatactressplayedtheTVwifeofBobNewhartonhisfirstTVseries?
11007DATASuzannePleshette,LillianGish,HelenHayes,MerialHemmingway,A
11008DATANamethecarrot-hairedTVcommercialchildstarwhogainedfamebymispronouncing'borgasmord'.
11009DATAEmmanuelLewis,MasonReese,LarryPhelps,GaryColeman,B
11010DATAJackPalancehostsaseriesbasedonwhatsuccessfulcomicstrip?
11011DATAThat'sIncredible,ThoseAmazingAnimals,YouAskedForIt,Ripley'sBelieveItorNot,D
11012DATAEarlyinhercareerblondebombshellMorganFairchildwasFayeDunaeay'sstand-ininwharfilm?
11013DATABonnieandClyde,BlondesHaveMoreFun,OneFromTheHeart,Supergirl,C
11014DATASuccesshasbeengreatforwhatactor/comedianwhostarredinSCTVandco-starredin'Stripes'?
11015DATABillMurry,JohnCandy,RickMorrantis,DaveThomas,B
11016DATAThiscomedianappearedin'GhostBusters'andisBoboftheMcKenziebrothers.Namehim,eh?
11017DATADaveThomas,DanAckroy,JohnBelushi,RickMorrantis,D
11018DATAShemadeherreputationon'Three'sCompany'asJanet.Nameher.
11019DATASusanneSommers,JoyceDeWitt,VarerieBertinelli,SallyStruthers,B
11020DATATVnewswomanDianeSawyerwasoncetheassistanttothepresssecretaryRonZieqlertowhatpresident?
11021DATARichardNixon,JimmyCarter,RonaldRegan,RobertKennedy,A
11022DATAWheredoes'MagnumP.I.'starTomSelleckmakehishome?
11023DATADallas,Ft.Wayne,Honolulu,Toledo,C
11024DATANametheactorwhoplayedAdamin'Bonanza'andTrapperJohnin'TrapperJohnMD'.
11025DATAPernellRoberts,MorleySafer,DirkBenedict,JohnRitter,A
11026DATAWhatcomedianhasearnednationalattentionforhis'SaturdayNightLive'sendupsofBillCosbyandBuckwheat?
11027DATADanAckroy,EddieMurphy,BillieCrystal,Brian-DoyleMurray,B
11028DATAAsof1980itwasthemostwidelywatchedshowintheworld.Nameit.
11029DATAM*A*S*H,ThePriceIsRight,TheMuppetShow,60Minutes,C
11030DATAWhatcomedianwasthebasisforJosephBologna'scharacterin'MyFavoriteYear'?
11031DATAMelBrooks,LennyBruce,JackyGleason,SidCaesar,D
12000DATAWhowonanOscarfordirectingthemovie'OrdinaryPeople'?
12001DATAFrancisCoppola,MikeNichols,StevenSpielberg,RobertRedford,D
12002DATANametheactorwhosevoiceemanatedfromDarthVader'smaskin'StarWars'.
12003DATAJamesJones,MichaelCaine,AlecGuinness,MichaelO'Keefe,A
12004DATAIn1938baseballstarLouGehrigwasofferedtheopportunitytoplaywhatmovierolebutturneditdown?
12005DATASuperman,Tarzan,Santa,TheThing,B
12006DATAThemovie'RabbitTest'abouttheworld'sfirstpregnantmanwascreatedbywhatcomic?
12007DATAJoanRivers,LillianTomlin,SteveMartin,DonAdams,A
12008DATAInwhatMelBrooksfilmdoyoufindthecharacterTheWacoKidplayedbyGeneWilder?
12009DATAHistoryOfTheWorld,BlazingSaddles,TheWorld'sGreatestLover,SilentMovie,B
12010DATABoth'BlowOut'and'Carrie'featuredNancyAllenwhoisrelatedtodirectorBrianDePalmainwhatway?
12011DATASister,Mother,Wife,Daughter,C
12012DATAThroughwhatmodern-dayCitydidH.G.WellsfollowJacktheRipperin'TimeAfterTime'?
12013DATANewYork,Detroit,Chicago,SanFrancisco,D
12014DATANametheactresswhostarredwithKrisKristoffersonin'Convoy'.
12015DATAAliMacGraw,BarberaStrisand,GenevieveBujold,JoanHackett,A
12016DATANametheAcademyAwardwinnerforBestActorin1982.
12017DATAPernellRoberts,AndyWarhol,BenKingsley,GeneHackman,C
12018DATAIn'FirstBlood'RichardCrennahelpedtrackdownamanhetrainedduringwhatwar?
12019DATAKorean,W.W.I,W.W.II,Vietnam,D
12020DATA'TheLastPictureShow'wasdirectedbywhom?
12021DATAStevenSpielberg,PeterBogdanovich,FrancisCoppola,RichardDonner,B
12022DATAWhatactressplayedayoungwomaninvolvedwithamarriedmanin'LoveLetters'?
12023DATAJamieCurtis,AmyIrving,MarshaMason,PiaZadora,A
12024DATAThisisthemostexpensivemoviemusicalevermade.Nameit.
12025DATAOklahoma!,TheKingAndI,Annie,AChorusLine,C
12026DATAKnownforhisfilmrolein'ThisSportingLife'healsoplayedamercenaryin'TheWildGeese'.Namehim.
12027DATAGeorgeC.Scott,JohnBarrymore,RichardHarris,JamesBrolin,C
12028DATA'FirstMondayInOctober'broughtJillClayburghtoscreenasthefirstwomanwhat?
12029DATASupremeCourtJustice,Boxer,RaceCarDriver,FootballPlayer,A
13000DATAWho'sbiographybyMauriceZolotowistitled'ShootingStar'?
13001DATAJohnWayne,JohnBelushi,HenryFonda,Elvis,A
13002DATAWhocreatedthestruggletokeepcivilizationaliveon'Foundation'sEdge'?
13003DATADouglasAdams,IsaacAsimov,WilliamHamilton,GlendaJackson,B
13004DATAGarsonKanin's'Moviola'tookplaceinwhatglittercity?
13005DATASanFrancisco,Detroit,Hollywood,BatonRouge,C
13006DATAInwhatplacedoesWilliamMartin's'BackBay'takeplace?
13007DATACulverCity,Dallas,Hollywood,Boston,D
13008DATASisterLanahaswrittenacontroversialmemoiraboutthisHollywoodactress.Whoisshe?
13009DATANatalieWood,JoanCrawford,BettyFord,EileenBrenan,A
13010DATAWhatcitydoes'IndecentExposer'byDavidMcClintockoccurin?
13011DATAHollywood,SantaClara,SantaBarbara,LosAngeles,D
13012DATAHewrotethefourbooktrillogy'TheHitchhiker'sGuideToTheGalaxy'.Namehim.
13013DATADouglasAdams,EdgarBurroughs,AndyRooney,WoodyAllen,A
13014DATAInwhatyeardoesPaulE.Erdman's'TheLastDaysofAmerica'takeplace?
13015DATA1965,1975,1985,1995,C
13016DATABrantParkerandJohnnyHartdrawandwritewhatsyndicatedcomicstrip?
13017DATAHagarTheHorrible,Garfield,FamilyCircus,WizardOfID,D
13018DATANamethecomicstripschoolteacherwhoheadstheclassatthe"KellySchool."
13019DATAMissPeach,MissRose,MissAppletree,Mr.Dawson,A
13020DATAHewrotethesci-fiadventure'2001:ASpaceOdyssey'and'2010:OdysseyTwo'.Namehim.
13021DATADouglasAdams,WilliamInge,JohnUpdike,ArthurClarke,D
13022DATAWhat'BandWagon'lyricistentitledhisautobiography,'DancingIntheDark'?
13023DATAHowardDietz,JohnGardner,JacquesPepin,JamesCain,A
13024DATAWhatdecadedidwriterTomWolfedub"TheMeDecade?"
13025DATAThe1950's,The1960's,The1970's,The1980's,D
13026DATANamethebookbyJerzyKosinskithatbecameafilmstarringPeterSellersinhislastappearance.
13027DATATheShire,BeingThere,SpringMoon,FifthOfJuly,B
13028DATANamethefriendlyelephantfromFrancewhosebest-sellingchildren'sbookshavebeensoldin12languages.
13029DATADumbo,Kippy,Babar,Snozzle,C
14000DATANancyLiebermanisastarinwhatsport?
14001DATABasketball,Archery,Hockey,Tennis,A
14002DATALuannRyonwonthe1976-77NationChampionshipsinthewomen'sdivisionofwhatsport?
14003DATABasketball,Archery,Tennis,StockCarRacing,B
14004DATAWhatnationalityisBjornBorg?
14005DATARussian,American,Swedish,French,C
14006DATAAl,Bobby,andAlUnserJr.haveformedsomethingofafamilydynastyinwhatsport?
14007DATAArchery,Tennis,Football,CarRacing,D
14008DATAWhatformerfootballplayerturnedactorplaysanadoptiveparentontheTVseries'Webster'?
14009DATAAlexKarras,MichaelLandon,BillWalton,ArneBorg,A
14010DATAIn1980,MaryDeckersettwoworldindoorrecordsandoneoutdoorrecordinwhatsport?
14011DATARunning,Tennis,Swimming,Archery,A
14012DATAOaklandA'sRickyHendersonbrokeLouBrock'Srecordforwhatin1982?
14013DATAHomeRuns,StolenBases,Errors,Walks,B
14014DATAChuckNorrisisasix-timeworldmiddleweightchampatwhatskill?
14015DATAJudo,Jujitsu,Kung-fu,Karate,D
14016DATAWhatsportawardstheArtRossTrophyforbeingtopscorerinoneseason?
14017DATATennis,Baseball,Hockey,Football,C
14018DATAForwhatcollegedidNBAstarDaveCowensplay?
14019DATAOhioState,BallState,OklahomaState,FloridaState,D
14020DATANametheonlyprobasketballplayertoscoreover100pointsinonegameasof1983.
14021DATALarryBird,Dr.J,WiltChamberland,BryantCannon,C
14022DATAJean-PierceBlanchardtraveledfromPhiladelphiatoNewJersyviawhatformoftransportation?
14023DATAHelicopter,Hot-AirBalloon,Hand-Glider,Water-Skiis,B
14024DATAThe1976WinterOlympicswereheldinInnsbruch,Austria,wherewhichcountryclaimedthemostmedals?
14025DATATheUnitedStates,TheSovietUnion,France,Germany,B
14026DATAWiththehelpofCoachDanGable,theUniversityofIowatookwhatNCAAChampionshiptitlein1978?
14027DATAWrestling,WeightLifting,ShotPut,Discus,A
14028DATAIn1981,LazBarrerawasthebiggestmoney-winningtrainerinwhatsport?
14029DATAWrestling,Horseracing,Boxing,WeightLifting,B
15000DATAWhatstatedoesJohnGlenrepresentinthesenate?
15001DATAFlorida,Kentucky,Nebraska,Ohio,D
15002DATAWhat'sBrookeShield'smother'sfirstname?
15003DATAJanet,Melissa,Teri,Beth,C
15004DATASince1960,scientistJaneGoodallhasobservedthebehaviorofman'sclosestlivingrelative,thewhat?
15005DATATheApe,TheChimpanzee,TheMonkey,TheDolphin,B
15006DATAWhatwittytalkshowhoststartedwithalatenightseries,movedtoPBS,andnowhostsacableshow?
15007DATADavidLetterman,DickCavett,JohnnyCarson,JimHartman,B
15008DATAWhat'sPrincessDiana'smaidenname?
15009DATASpencer,Thomas,Miller,Jone,A
15010DATANamethewriter-directorwhoisthecountry'sforemostself-describedneurotic.
15011DATAPee-WeeHerman,JohnCandy,SteveMartin,WoodyAllen,D
15012DATAClockedatupto500tapsperminute,whowastherunawayrageofBroadwayin'SugarBabies'?
15013DATAMarshaMason,MiaFarrow,LindaFratianne,AnnMiller,D
15014DATAWhenthe'Jackson5'switchedfromMotowntoCBSRecordsin1975,onebrotherquit.Whowashe?
15015DATATeto,Michael,Germaine,Bobby,C
15016DATAThename'Lalique'issynnoymouswithobjectsofartinwhatmedium?
15017DATAClay,Glass,Metal,Plastic,B
15018DATAWhatledgendarytrumpeterismakingbeautifulmusicwithactress/wifeCicelyTyson?
15019DATAMilesDavis,DocSeverinsen,ChuckMangony,FatsBlackert,A
15020DATAWhowasthefirstPresidentoftheUnitedStatestobeborninthe20thcenturyandtobeintheNavy?
15021DATAJohnKennedy,RutherfordB.Hayes,JimmyCarter,RichardNixon,A
15022DATAJimmyCarterwaspresidentwhentheU.S.Skylabdebrisfellandlandedinwhatcountry?
15023DATAU.S.S.R.,U.S.A.,Australia,Canada,C
15024DATAOnthecomedyseries'SCTV'fictionalCanadianbrothersBobandDougMcKenziehostwhatimaginaryTVshow?
15025DATAStrangeBrew,TakeOff,TheGreatWhiteNorth,TheAdventuresOfBobAndDoug,C
15026DATAWhat'sCher'sdaughter'sfirstname?
15027DATABeth,Rose,Robyn,Chastity,D
15028DATANamethe'RaggedyMan'actorwhowrote'TrueWest'and'FoolForLove'.
15029DATAMasonReese,SamShepard,MichaelCaine,LeonardCohen,B
30000TMP=MSC:FORP=1TO15:TMP(P)=MSC(P):IFMSC>15THENGOSUB32000:RETURN
30001?""
30002?""
30003?""
30004?""
30005?"":RST=10000
30006?:?:GOSUB520:MSC=TMP:FORP=1TO15:MSC(P)=TMP(P):NEXTP:RETURN
30100TMP=TV:FORP=1TO15:TMP(P)=TV(P):IFTV>15THENGOSUB32000:RETURN
30101?""
30102?""
30103?""
30104?""
30105?"":RST=11000
30106?:?:GOSUB520:TV=TMP:FORP=1TO15:TV(P)=TMP(P):NEXTP:RETURN
30200TMP=MV:FORP=1TO15:TMP(P)=MV(P):IFMV>15THENGOSUB32000:RETURN
30201?""
30202?""
30203?"";CHR$(27)
30204?""
30205?"":RST=12000
30206?:?:GOSUB520:MV=TMP:FORP=1TO15:MV(P)=TMP(P):NEXTP:RETURN
30300TMP=LTR:FORP=1TO15:TMP(P)=LTR(P):IFLTR>15THENGOSUB32000:RETURN
30301?""
30302?""
30303?"";CHR$(27)
30304?""
30305?"":RST=13000
30306?:?:GOSUB520:LTR=TMP:FORP=1TO15:LTR(P)=TMP(P):NEXTP:RETURN
30400TMP=SPRT:FORP=1TO15:TMP(P)=SPRT(P):IFSPRT>15THENGOSUB32000:RETURN
30401?""
30402?""
30403?"";CHR$(27)
30404?""
30405?"":RST=14000
30406?:?:GOSUB520:SPRT=TMP:FORP=1TO15:SPRT(P)=TMP(P):NEXTP:RETURN
30500TMP=GNRL:FORP=1TO15:TMP(P)=GNRL(P):IFGNRL>15THENGOSUB32000:RETURN
30501?""
30502?""
30503?""
30504?""
30505?"":RST=15000
30506?:?:GOSUB520:GNRL=TMP:FORP=1TO15:GNRL(P)=TMP(P):NEXTP:RETURN
32000POSITION0,22:?"Thatcategoryisexhausted,tryagain.":RETURN
32300POKE559,0:?"":?"":?:?
32301?""
32302?""
32303?""
32304?"laceYourBet..."
32305?""
32306?""
32307?:?
32308?"1)2)3)"
32309?""
32310?""
32311?""
32312?""
32313?""
32314?""
32315?""
32320POKE559,226:CLOSE#1:OPEN#1,4,0,"K:":GET#1,BET
32325BET=BET-48:IFBET<1ORBET>3THEN32320
32330RETURN	

• Download link 1

• Download link 1
• Download link 2