Atari 8-bit Source code

0GRAPHICS0:POKE709,10:POKE710,144:POKE712,144:POKE752,1
1TRAP20
2POSITION8,2:?"HITHERE,WELCOMETOTHEWORLDOFTRIVIA":T=500:GOSUB50
3POSITION2,5:?"HEREISSOMEADVICEFORYOU:":T=500:GOSUB50:GOSUB14
4POSITION4,8:?"1.Don'tworry,nooneisperfect.":T=500:GOSUB50
5POSITION4,10:?"2.Usealltheluckyouwant.":T=500:GOSUB50
6POSITION4,12:?"3.Makeaccuratedecisions.":T=500:GOSUB50
7POSITION4,14:?"4.Bestscoreishighestpercent.":T=500:GOSUB50
8POSITION1,16:?""
9POSITION1,18:?"THEFIRSTLETTERSOFTHEFOURLINES":POSITION1,19:?"ABOVETELLHOWYOU'LLFEELAFTERQUIZ"
10POSITION1,20:?""
11POSITION4,22:?"NOWPRESS":POKE752,1
12OPEN#1,4,0,"K:":GET#1,K:CLOSE#1:IFK<>155THEN12
13GOTO19
14POSITION1,6:?"":RETURN
19TRAP4000
20DIMQ(1000):COUNT=0
30DIMANS$(100):DIMNAME$(9):DIMRET$(1)
40DIMR$(1):DIMWORD$(100):DIMSENT$(100):GOTO60
50FORDELAY=1TOT:NEXTDELAY:RETURN
60GRAPHICS1:POKE752,1:SETCOLOR0,4,6:CONSOLE=53279
70POSITION2,3:?#6;"TRIVIAQUIZ"
80POSITION5,5:?#6;"FOR":POSITION1,9:?#6;"a.c.a.o.c."
90TRAP40000:POSITION8,13:?#6;"BY":POSITION2,15:?#6;""
100POSITION1,7:?#6;""
110POSITION1,11:?#6;""
120POSITION1,17:?#6;""
130POSITION1,0:?#6;""
140TRAP160
150READWORD$,SENT$:AQ=AQ+1:GOTO150
160TRAP40000:COLOR42
170FORX=0TO19:SOUND0,121-(X*5),10,6:SOUND1,120-(X*5),10,6:SOUND2,60,10,6:PLOTX,0:NEXTX
180FORY=0TO19:SOUND0,121-(X*5),10,6:SOUND1,60+Y*3,10,6:SOUND2,59+Y*3,10,6:PLOT19,Y:NEXTY
190FORX=19TO0STEP-1:SOUND0,121-(X*5),10,6:SOUND1,120-(X*5),10,6:SOUND2,60,10,6:PLOTX,19:NEXTX
200FORY=19TO0STEP-1:SOUND0,121-(X*5),10,6:SOUND1,60+Y*3,10,6:SOUND2,59+Y*3,10,6:PLOT0,Y:NEXTY
210SOUND0,0,0,0:SOUND1,0,0,0:SOUND2,0,0,0
220POKE752,0:?"HOWMANYQUESTIONSWOULDYOULIKE";:TRAP220:INPUTNQ
230IFNQ>AQTHENPOKE752,1:?"AIN'TGOTTHANMANYINMYBOOK!":T=1000:GOSUB50:GOTO220
240TRAP40000:POKE752,1:?:?"NOW..PRESSTOBEGINQUIZ...."
248POSITION5,5:?#6;"JUSTFOR"
249POSITION6,8:?#6;"":POSITION2,9:?#6;"fun":POSITION3,10:?#6;""
250REMPOS.2,14:?#6""
270IFPEEK(CONSOLE)<>6THEN250
275?"HANGON,GANG!I'MGETTINGLOADED!"
280IFNQ>40THEN?"DON'TGO'WAY!I'MGEARINGUP...":T=500:GOSUB50
290FORFIX=1TONQ:Q(FIX)=0:NEXTFIX
300GOSUB50
310X=0:Y=0
320GRAPHICS0:SETCOLOR2,5,8:SETCOLOR1,0,0:POKE752,1
330POSITION1,2:?">>>>>><<<<<<<<<<"
340POSITION1,0:?"______________________________________":POSITION1,3:?"______________________________________"
350POSITION8,2:?"THISTRIVIAQUIZWAS":POSITION2,5:T=500:GOSUB50
351POSITION2,5:?"DESIGNEDTO......":T=400:GOSUB50:POSITION18,5:?"MAKEYOUGOCRAZY!!!"
360T=500:GOSUB50:POSITION1,8:?"______________________________________"
380POSITION2,10:?"TYPEFIRSTNAME(9LETTERSMAX.)":POSITION2,12:?"ANDPRESSRETURN."
391POSITION5,14:?""
392POSITION5,15:?""
393POSITION5,16:?""
400POKE752,1:POSITION7,15:INPUTNAME$:POKE752,1:GOSUB50
410POSITION7,19:?"THANKYOU...."
420GOSUB50:POSITION19,19:?NAME$
430GOSUB50:POSITION1,21:?"GOODLUCK!!!"
440GOSUB50
450?CHR$(125)
458POSITION1,0:?""
459POSITION1,2:?""
460POSITION2,1:?"OK,..":T=300:GOSUB50
461POSITION7,1:?NAME$:T=750:GOSUB50:POSITION17,1:?"YOU":T=35:GOSUB50:POSITION21,1:?"CHOSE"
462T=300:GOSUB50:POSITION27,1:?NQ:GOSUB50
463POSITION30,1:?"QUESTIONS":T=500:GOSUB50
481POSITION2,3:?""
482POSITION2,4:?"SCORE"
483POSITION2,5:?"BOARD"
484POSITION2,6:?"":T=500:GOSUB50
490POSITION12,3:?"QUESTIONSASKED......";X:GOSUB50
500POSITION12,5:?"NUMBERCORRECT.......";Y:GOSUB50
510POSITION12,7:?"PERCENTCORRECT......":GOSUB50
520POSITION2,9:?""
521POSITION34,10:?""
522POSITION2,10:?""
523POSITION2,11:?""
530DIMBL$(40)
540BL$="":BL$(40)=BL$:BL$(2)=BL$
560IFCOUNT=NQTHEN940
570WHICH=INT(AQ*RND(1))+1
580IFQ(WHICH)=1THEN560
590Q(WHICH)=1:COUNT=COUNT+1
600GOSUB50:POSITION3,10:?"HERES.........":POSITION18,10:GOSUB50:?"QUESTION#";COUNT
620PRINT
630RESTORE1080+(10*WHICH):REM
640READSENT$,WORD$
650POSITION2,13:?SENT$
651POSITION1,15:?""
660?:?"TYPEYOURANSWER...SPELLINGCOUNTS.IFANUMBERISNEEDED,TYPENUMBER."
661POSITION1,19:?""
670POKE752,1:?:INPUTANS$:POKE752,1
680IFANS$=WORD$THEN780
690FORLORIE=150TO190STEP40:SOUND0,LORIE,10,15:T=50:GOSUB50:NEXTLORIE
700SOUND0,0,0,0:POKE752,1
710POSITION12,22:?"WRONG.....";NAME$
720T=250:GOSUB50
730GOSUB1040
731POSITION2,16:?""
732POSITION2,18:?""
733POSITION2,17:?"":POSITION37,17:?""
740POSITION2,14:?"THEANSWERIS..":T=500:GOSUB50
760?:POSITION7,17:?WORD$
770GOTO820
780FORLORIE=35TO20STEP-5:SOUND0,LORIE,10,15:T=75:GOSUB50:NEXTLORIE
790SOUND0,0,0,0
800POSITION15,22:?"CORRECT.....";NAME$
810Y=Y+1:POSITION35,5:?Y
820X=X+1
830POSITION35,3:?X
840S=INT((Y/X)*100)
850POSITION35,7:?"";S
870POSITION2,22:POKE752,1
911FORZ=1TO300:NEXTZ
920GOSUB1040
930GOTO560
940POSITION2,15
950IFS=100THEN?"FANTASTIC,YOU'RETHEBEST..";NAME$
960IFS<100ANDS>79THEN?"THAT'SAGOODSCORE!.....";NAME$
970IFS<80ANDS>49THEN?"PRETTYGOOD.....";NAME$
980IFS<50ANDS>29THEN?"THAT'SAFAIRSCORE.....";NAME$
990IFS<30THEN?"BOYAREYOUADUMMY!......";NAME$
1020T=1000:GOSUB50
1031GRAPHICS1:POKE752,1:SETCOLOR0,4,6:CONSOLE=53279
1032POSITION2,1:?#6;"THAT'SALL....":POSITION6,3:?#6;NAME$:GOSUB50
1033POSITION0,5:?#6;"":POSITION7,7:?#6;""
1034POSITION0,11:?#6;"":POSITION5,9:?#6;"":GOSUB50
1035POSITION8,14:?#6;S
1036POSITION6,16:?#6;"PERCENT":GOSUB50
1037POSITION0,19:?#6;"********************":GOSUB50
1038POKE752,1:?"PRESSRETURNTOPLAYANOTHERQUIZ....":TRAP1038:INPUTRET$
1039CLR:GOTO20
1040FORZ=12TO23
1050POSITION0,Z
1060?BL$(1,39);
1070NEXTZ
1080RETURN
1090DATAWHATISLUKEMcCOY'SWIFE'SNAME?(FROM"THEREALMcCOYS"),KATE
1100DATAWHATISROBPETRIEWIFE'SNAME?(FROM"THEDICKVANDYKESHOW"),LAURA
1110DATASPELLTHISWORDCORRECTLY:(UH-KAHM'-UH-DATE),ACCOMMODATE
1120DATAWHATISCHESTERRILEY'SWIFE'SNAME?(FROM"THELIFEOFRILEY"),PEG
1130DATAWHATISAGENT86'SWIFE'SNAME?(FROM"GETSMART"),99
1140DATAWHATISWARDCLEAVER'SWIFE'SNAME?(FROM"LEAVEITTOBEAVER"),JUNE
1150DATAWHATISHENRYMITCHELL'SWIFE'SNAME?(FROM"DENNISTHEMENACE"),ALICE
1160DATAWHATISJIMANDERSON'SWIFE'SNAME?(FROM"FATHERKNOWSBEST"),MARGARET
1170DATAWHATISGEORGEKIRBY'SWIFE'SNAME?(FROM"TOPPER"),MARIAN
1180DATAWHATISJOHNROBINSON'SWIFE'SNAME?(FROM"LOSTINSPACE"),MAUREEN
1190DATAFIRSTNAMEOFBANACEK?(FROM"BANACEK"),THOMAS
1200DATAFIRSTNAMEOFMISSBROOKS?(FROM"OURMISSBROOKS"),CONSTANCE
1210DATAFIRSTNAMEOFCANNON?("CANNON"),FRANK
1220DATAFIRSTNAMEOFHOGAN?("HOGAN'SHEROES"),ROBERT
1230DATAFIRSTNAMEOFSCHULTZ?("HOGAN'SHEROES"),HANS
1240DATAFIRSTNAMEOFSMART?("GETSMART"),MAXWELL
1250DATAFIRSTNAMEOFIRONSIDE?("IRONSIDE"),ROBERT
1260DATAFIRSTNAMEOFKOJAK?("KOJAK"),THEO
1270DATAFIRSTNAMEOFGRANPAMCCOY?("THEREALMCCOYS"),AMOS
1280DATAFIRSTNAMEOFMCHALE?("MCHALE'SNAVY"),QUINTON
1290DATAWHATWASJOEFRIDAY'SBADGENUMBER?("DRAGNET"),714
1300DATAHOWMANYPEOPLEWERESTRANDEDONGILLIGAN'SISLAND?,7
1310DATAWITHWHATNUMBERDOYOUASSOCIATETHENAME"KOOKIE"?,77
1320DATANAMETHESHIPWRECKEDBOATONGILLIGAN'SISLANDTHES.S.______?,MINNOW
1330DATATHENAMEOFTHEFORTON"F-TROOP"WASFORT____?,COURAGE
1340DATA"LOVEINBLOOM"WASWHOSETHEMESONG?,JACKBENNY
1350DATAWHATYEARWASTHEFIRSTWORLDSERIESOFBASEBALLTELECAST?1947-1948-1949,1947
1360DATAHISREALNAMEIS"LEONARDSLYE".WHATISHISSTAGENAME?,ROYROGERS
1370DATAMOELARRY&CURLY"THETHREESTOOGES"WHICHWASNOTABROTHER?,LARRY
1380DATAWHATMAKEOFAUTODIDJACKBENNYDRIVEONHISSHOW?,MAXWELL
1390DATAHOWMANYSTICHESONAREGULATIONBASEBALL?106-108-110,108
1400DATAWHATDOESTHE'O'INO.J.SIMPSON'SNAMESTANDFOR?,ORENTHAL
1410DATAWHOLIVEDATJELLYSTONEPARK?,YOGIBEAR
1420DATAWHATDIDFREDFLINTSTONECALLHISMONSTROUSHOUSEPET?,DINO
1430DATAWHATSPORTDOMINATEDEARLYT.V.?,WRESTLING
1440DATACHUCKCONNORSLEFTWHATSPORTTOBECOMEANACTOR?,BASEBALL
1450DATAHOWCANYOUHAVEATOTALSCOREOF(1)INFOOTBALL?,FORFEIT
1460DATANAMEDONALDDUCK'SGIRLFRIEND?,DAISY
1470DATAWHATWASTONTO'SHORSE'SNAME?,SCOUT
1480DATAWHATWASSAMANTHAANDDARRIN'SDAUGHTER'SNAME?("BEWITCHED"),TABATHA
1490DATASPELLTHISWORDCORRECTLY:(MAY'-UH-NAZE),MAYONNAISE
1500DATAWHOWASTHEEDITOROF"THEDAILYPLANET"?,PERRYWHITE
1510DATANAMEPORKYPIG'SGIRLFRIEND?,PETUNIA
1520DATAWHATDOYOUCALLACOLLECTOROFPOSTAGESTAMPS?,PHILATELIST
1530DATANAMETHERANCHOFTHECARTWRIGHTFAMILY?("BONANZA"),PONDEROSA
1540DATAWHICHISFARTHERWEST?RENOORLOSANGELES,RENO
1550DATAWHOPLAYEDTHEPARTOFDICKGRAYSON?(ROBINONTHE"BATMANSHOW"),BURTWARD
1560DATAWHATCOLORARERONALDMCDONALD'SSHOELACES?,YELLOW
1570DATAREALNAME-JOSEPHYULEJR.WHAT'SHISSTAGENAME?,MICKEYROONEY
1580DATAWHATISTHEPENNSYLVANIAAVE.ADDRESSOFTHEWHITEHOUSE?,1600
1590DATAWHOWASTHEFIRSTAMERICANPRESIDENTTOSPEAKOVERTHERADIO?(LASTNAME),HARDING
1600DATAWHATBIRDCANOUTRUNAHORSEANDROARLIKEALION(YETCANNOTFLY)?,OSTRICH
1610DATAWHATDOTHELETTERSS.O.S.STANDFOR?,NOTHING
1620DATASPELLTHISWORDCORRECTLY:(ASS'-UH-9),ASININE
1630DATAREARRANGETHELETTERSINTHEWORD'CHESTY'INTOANOTHERENGLISHWORD,SCYTHE
1640DATAWHOWASBRUCEWAYNE'SBUTLER?,ALFRED
1650DATATHE"KATZENJAMMERKIDS"WEREHANSAND_____.,FRITZ
1660DATADOCDOPEYGRUMPYHAPPYSLEEPYSNEEZY_____.WHO'SMISSING?,BASHFUL
1670DATAWHATISTHESHORTESTVERSEINTHEBIBLE?JOHN11:35,JESUSWEPT
1680DATAWHOWASPINOCCHIO'SCREATORAND"FATHER"?,GEPETTO
1690DATAWHATWASTHENAMEOFDAGWOODANDBLONDIE'SDOG?,DAISY
1700DATAWHATWASTHENAMEOFPAULBUNYAN'SBLUEOX?,BABE
1710DATAWHATWASHOWDYDOODY'SSISTER'SNAME?,HEIDI
1720DATAWHATDOTHELETTERSM*A*S*HSTANDFOR?,MOBILEARMYSURGICALHOSPITAL
1730DATAWHATWASGROUCHOMARX'SREALFIRSTNAME?,JULIUS
1740DATAGENEAUTRY'SRANCHISCALLED:"______RANCH".,MELODY
1750DATAHOWMANYSQUARESONACHESSBOARD?,64
1760DATAWHATISALIMESTONEDEPOSITHANGINGFROMTHEROOFOFACAVECALLED?,STALACTITE
1770DATAWHATISALIMESTONEDEPOSITRISINGFROMTHEFLOOROFACAVECALLED?,STALAGMITE
1780DATAHOWMANYBONESAREINTHEHUMANBODY?202204206,206
4000READWORD$	

• Download link 1

• Download link 1
• Download link 2
• Download link 3