Atari 8-bit Source code

10REM
20REM
100DIMS$(2),L$(37),PERSAP$(19),R$(1),I$(38),A$(57),C$(57),RG$(16),PLAYER$(10)
105DIMST(50),CD(6),MD(6),MA(6),PA(6),I(3)
110DIMMS(6):L$="*************************************":DIMRN(6)
111N0=0:N1=1:N2=2:N4=4:N6=6:N500=500:N520=520:N550=550:N600=600:N2000=2000:N7000=7000
112N300=300:N10165=10165:N3=3:N10=10:N9300=9300
113N5=5:N3100=3100:N100=100:N7100=7100
114N7=7:N8=8
121PERSAP$="PERSONALAPPEARANCE"
131FORX=N1TON6:CD(X)=N0:MD(X)=N0:MA(X)=N0:PA(X)=N0
135MS(X)=N0:NEXTX
137TC=36:DD=17
140WM=N1:GOTO10000
150RESTORE475:GOTON300
151RESTORE476:GOSUBN300:POKE752,N1:RETURN
152RESTORE477:GOTON300
153SOUNDN0,N100,N10,N10:FORX=N1TO20:NEXTX:SOUNDN0,N0,N0,N0:RETURN
300DATA5,243,5,243,5,217,5,193,5,243,5,193,8,217,2,0,5,243,5,243,5,217,5,193,10,243,10,255
301DATA5,243,5,243,5,217,5,193,5,182,5,193,5,217,5,243,5,255,5,162,5,182,5,217,10,243,10,243,255
302READD:IFD=255THENRESTOREN300:RETURN
304READY:SOUNDN0,Y,N10,N10:FORP=N0TOD*DD:NEXTP:SOUNDN0,N0,N0,N0:GOTON300
411DATA4,243,4,243,4,217,4,193,4,243,4,193,6,217,2,0,255
412DATA12,193,6,204,6,193,2,184,2,0,6,184,4,193,12,184,255
413DATA4,121,4,121,4,121,4,162,4,144,4,144,8,162,4,96,4,96,4,108,4,108,8,121,255
414DATA6,243,6,217,8,193,8,193,8,243,6,217,6,193,6,182,6,193,6,182,6,144,8,162,255
415DATA4,121,4,144,6,182,6,182,3,182,3,162,3,144,3,136,6,121,6,121,6,121,8,144,255
416DATA6,243,4,193,12,162,12,162,6,182,6,193,16,217,255
450DATA6,121,2,121,6,108,2,108,4,96,2,81,2,96,4,121,2,0,2,81,6,121,2,121,6,108,2,108,8,96,8,121
451DATA2,0,6,121,2,121,6,108,2,108,4,96,2,81,2,96,4,121,24,0,255
452DATA2,72,8,0,4,108,2,91,8,96,8,121,255
475DATA8,121,8,121,4,136,4,144,8,144,4,153,4,144,12,144,255
476DATA4,204,4,204,4,204,12,243,255
477DATA4,121,4,162,4,193,4,243,255
478DATA4,243,4,193,4,162,4,121,255
500FORWAIT=N1TON600:NEXTWAIT:RETURN
520?#N6;":$";CF:RETURN
550FORX=N1TOB
553READS$,DELG,WEEK
555IFWEEK=WMTHENRN(C)=N1
557NEXTX
558RETURN
560TW=INT(RND(N0)*N100+N1):RETURN
600POKE752,1:POSITIONN2,20:?L$:?"-NO.ATLAN.-MAS/DIX-RESOURCES"
605?"-INDUSBLT-SUNBELT-WEEKREPORT"
610?"-FARMBELT-CASCADES-ENDORDERS";
625TRAPN600:POKE764,255:OPEN#1,4,0,"K:"
626IFPEEK(764)=255THEN626
627GET#1,IRR:R=IRR-48:CLOSE#N1:IFR<N7THENGOSUB700+R
628IFR=N7THENRESTORE478:GOSUBN300
630ONRGOTO1010,1020,1030,1040,1050,1060,N7000,8000,9000
701RG$="1-":RETURN
702RG$="2-":RETURN
703RG$="3-":RETURN
704RG$="4-":RETURN
705RG$="5-":RETURN
706RG$="6-":RETURN
1010B=N6:C=N0:SC=N0:SC1=15:GOTON2000
1020B=N4:C=N7:SC=N0:SC1=N2:GOTON2000
1030B=N8:C=12:SC=14:SC1=N2:GOTON2000
1040B=N8:C=21:SC=N2:SC1=N2:GOTON2000
1050B=9:C=30:SC=N2:SC1=15:GOTON2000
1060B=N10:C=40:SC=N8:SC1=N2:GOTON2000
2000GRAPHICSN1:SETCOLORN4,SC,SC1:SETCOLORN2,SC,SC1:POSITIONN3,N0:?#N6;RG$
2001RESTORE410+R:GOSUBN300
2002?#N6;"WEEKNUMBER:";WM
2005RESTORE3000+(R*N100)
2007V=N4
2008?#N6;"*******************"
2009?#N6;""
2010FORX=N0TOB:READS$,DELG,WEEK
2013POSITIONN1,V:?#N6;S$:POSITIONN7,V:?#N6;DELG:POSITION13,V:?#N6;WEEK
2014IFST(X+C)=N1THENPOSITION16,V:?#N6;"WON"
2015IFST(X+C)=N2THENPOSITION16,V:?#N6;"LOST"
2017V=V+N1
2018NEXTX
2023?#N6;""
2025?#N6;":";CD(R):?#N6;":$";MD(R)
2032?#N6;":$";MA(R)
2035IFPA(R)=N1THEN?#N6;PERSAP$
2045GOTON600
2900REM
2901GRAPHICSN0:POKE752,N1:SETCOLORN2,N0,N0:P=N0:?"VOTINGHASCOMMENCED"
2910X=INT(20*RND(N1)+N5):Y=INT(12*RND(N1)+N5)
2920POSITIONX,Y:?"":POSITIONX,Y+N1:?"BALLOT":POSITIONX,Y+N2:?""
2930POSITIONX,Y+N3:?"":POSITIONX,Y+N4:?"REAGAN"
2935POSITIONX,Y+N5:?"":POSITIONX+1,Y+N5:?PLAYER$
2940POSITIONX,Y+N6:?"":P=P+N1:IFP=20THENRETURN
2944IFX<N10ORX>20THENPOSITIONX+11,Y+N4:?"X":GOTO2910
2946POSITIONX+11,Y+N5:?"X":GOTO2910
3100DATANH,13,1,RI,12,2,ME,12,5,VT,11,6,MA,42,8,NY,129,8,CT,24,9
3200DATAIN,39,2,PA,87,5,NJ,51,8,OH,78,9,MI,63,9
3300DATAND,12,2,MO,36,2,WI,36,2,SD,12,5,IO,27,6,IL,78,7,KS,21,7,MN,30,8,NB,15,9
3400DATANC,39,4,KY,27,4,DE,10,5,VA,36,6,WV,21,6,DC,11,6
3401DATATN,33,7,MD,30,7,SC,24,9
3500DATAFL,42,2,AZ,15,3,GA,36,4,LA,30,4,MS,21,4,TX,75,5,OK,24,5,AL,30,6,AR,18,8,NM,12,8
3600DATACA,120,3,WA,27,3,OR,18,3,HW,12,4,WY,10,5,MT,12,6,UT,12,8
3601DATANV,11,8,CO,18,9,ID,12,9,AK,10,9
5000TN=N0:TL=N0:RESTOREN3100:FORX=N0TO50:READS$,DELG,WEEK
5002IFST(X)=N1THENTN=TN+DELG
5004IFST(X)=N2THENTL=TL+DELG
5006NEXTX
5009IFTN>812THEN8800
5010IFTL>812ORYD<N5ORCF<N1THEN8900
5040GOTO8003
7000GRAPHICSN1:SETCOLORN4,14,N2:SETCOLORN2,14,N2:?#N6;"resourceoptions"
7002GOSUB152
7005?#N6;"WEEKNUMBER:";WM:?#N6;""
7025GOSUBN520
7028?#N6;""
7030?#N6;"a"
7031?#N6;"b":?#N6;""
7032?#N6;"c"
7033?#N6;"d":?#N6;""
7035?#N6;"e"
7036?#N6;"f":?#N6;""
7037?#N6;"g"
7040?:?:?"YOURCHOICE?";
7042TRAPN7000:POKE764,255:OPEN#N1,N4,N0,"K:"
7044IFPEEK(764)=255THEN7044
7046GET#N1,IRR:R=IRR-64:CLOSE#N1:IFR<N1ORR>N7THEN7042
7047IFR=N7THENGOSUB150:GOTO7050
7048GRAPHICS17:RESTORE478:GOSUBN300
7050ONRGOTO7200,N7100,7600,7300,7800,7500,8000
7100GRAPHICSN1:SETCOLORN4,N6,N0:SETCOLORN2,N6,N0:?#N6;"currentmediastatus"
7105GOSUBN520:?#N6;"":?#N6;":$100000"
7106?#N6;"BUDGET"
7107FORX=N1TON6
7108IFMD(X)>N0THENGOSUB700+X:?#N6;RG$:?#N6;"$";MD(X)
7109NEXTX
7110?:?"ENTERREGIONNUMBER(-)";
7113INPUTX
7114IFX<N1ORX>N6THENGOTON7000
7115?"MEDIABUDGETFORREGION";:INPUTR
7117IFR>9000000THEN?"OVER$9MILLION":GOSUBN500:GOTON7100
7118IFR<100000ANDR>N0THENGOTON7100
7120MD(X)=MD(X)+R:CF=CF-R:FD=FD+R
7125GOTON7100
7200GRAPHICSN1:SETCOLORN4,N8,N2:SETCOLORN2,N8,N2:?#N6;"coordinatorstatus"
7201GOSUBN520:?#N6;"":?#N6;"ACOORDCOSTS$7500"
7205?#N6;"COORDS"
7210FORX=N1TON6:GOSUB700+X:POSITIONN0,N5+X:?#N6;RG$
7212IFCD(X)<N10THENPOSITION16,N5+X:?#N6;""
7214POSITION17,N5+X:?#N6;CD(X):NEXTX
7215POSITION17,13:?#N6;""
7216POSITIONN0,13:?#N6;"TOTCOORDSAVAIL:";TC
7217POSITIONN10,17:?#N6;""
7218POSITIONN0,16:?#N6;"CURRENTCOORDCOST";:?#N6;"$";CC:?#N6;""
7225?:?"ENTERREGIONTOBECHANGED(-)";:INPUTX
7227?"HOWMANYCOORDSINREGION";:INPUTR:?CHR$(125)
7230CD(X)=R:TP=N0:FORX=N1TON6:TP=TP+CD(X):NEXTX
7231TC=36-TP:IFTC<N0THENFORX=N1TON6:CD(X)=N0:NEXTX:TC=36:CC=N0:GOTO7210
7232CC=TP*7500
7235GOTO7210
7300GRAPHICSN1:SETCOLORN4,N4,N2:SETCOLORN2,N4,N2:?#N6;"debatestatus"
7303?#N6;"":GOSUBN520
7305IFDB>N0THENPOSITIONN1,N8:?#N6;"debatescheduled":GOSUBN500:GOTON7000
7310POSITIONN3,N6:?#N6;"SEEKINGDEBATE":POSITIONN3,N7:?#N6;"COSTS$100000"
7315POSITIONN3,9:?#N6;"GETTINGDEBATE":POSITIONN3,N10:?#N6;"COSTS$350000"
7320?:?"ENTERESTOSEEKDEBATE";
7325INPUTR$
7330IFR$<>"Y"THENGOTON7000
7335GOSUB560:IFYD-N10>TWTHENDB=N1:CF=CF-100000:GOTON7000
7340CF=CF-100000:FB=FB+100000:GOTON7000
7500GRAPHICSN1:SETCOLORN4,12,N2:SETCOLORN2,12,N2:?#N6;"fundraisingstatus":?#N6;""
7505GOSUBN520:?#N6;""
7510IFQ=N1THENGOTO7550
7515POSITIONN1,N8:?#N6;"AFUNDRAISERWILL":POSITIONN3,9:?#N6;"COST:$50000"
7516?:?"ENTERESTORAISEFUNDS";
7520INPUTR$:IFR$<>"Y"THENGOTON7000
7525IFR$="Y"THENQ=N1:CF=CF-50000:GOTON7000
7550POSITIONN2,N8:?#N6;"alreadyscheduled"
7560GOSUBN500:GOTON7000
7600GRAPHICSN1:SETCOLORN4,N2,N2:SETCOLORN2,N2,N2:?#N6;"canvassing/massmail"
7605GOSUBN520:P=N0:?#N6;""
7606?#N6;"CANVAS/MAILCOSTS$200000PERREGION"
7610FORX=N1TON6:P=P+MS(X):NEXTX:IFP=N6THEN7690
7615?#N6;"AMOUNT"
7619?#N6;"":FORX=N1TON6
7620IFMA(X)>N0THENGOSUB700+X:?#N6;RG$:?#N6;"$";MA(X)
7621NEXTX
7636?"ENTERREGIONNUMBER(-)";:INPUTX
7646IFX<N1ORX>N6THENGOTON7000
7650MA(X)=200000:MS(X)=N1
7665CF=CF-MA(X):FM=FM+MA(X):GOTO7600
7690?#N6;"allregionscovered":GOSUBN500:GOTON7000
7800GRAPHICSN1:SETCOLORN4,N6,N2:SETCOLORN2,N6,N2:?#N6;"personalappearance":?#N6;""
7805GOSUBN520:P=N0:?#N6;""
7810FORX=N1TON6:P=P+PA(X):NEXTX:IFP>=N1THEN7855
7815POSITIONN0,N8:?#N6;"";PERSAP$;"WILLCOST$200000"
7817?"ENTERREGIONNUMBER(-)";:INPUTX
7826IFX<N1ORX>N6THENGOTON7000
7830PA(X)=N1:CF=CF-200000:FP=FP+200000:GOTON7000
7855POSITIONN0,N8:?#N6;PERSAP$;"ALREADYSCHEDULED":GOSUBN500:GOTON7000
8000GRAPHICSN1:SETCOLORN2,N0,N0:GOTO5000
8003?#N6;"weeklyreport#";WM
8004?#N6;"":GOSUBN520
8005?#N6;"":RESTOREN3100:?#N6;""
8006FORX=N0TO50:READS$,DELG,WEEK
8007IFWEEK=WMTHEN?#N6;S$;"";
8008NEXTX
8010POSITIONN5,N8:?#N6;":";TN:?#N6;":";TL
8012?#N6;":813"
8025?#N6;":"
8030?#N6;"";PLAYER$:POSITION15,13:?#N6;PS;"%"
8035POSITION0,14:?#N6;"REAGAN";SM;"%"
8040?#N6;"UNDECIDED";UNDC;"%":?#N6;""
8050IFDB=N1THEN?#N6;"debatethisweek"
8060GOTON600
8100GRAPHICS18:?#N6;"finalspending"
8103?#N6;"";CF
8105?#N6;"";FF
8110POSITIONN0,N6:?#N6;"";FC
8120?#N6;"";FD
8130?#N6;"";FM
8140?#N6;"";FP
8145?#N6;"";FB
8150?#N6;"";TN
8162C=-9000:GOTO11550
8800A$(20,57)="hurrah!!youhaveafirstballotwin!":GOTO8100
8900A$(20,57)="PRES.REAGANhasenoughvotestowin!":GOTO8100
9000GRAPHICSN2:SETCOLORN2,N4,N2:SETCOLORN4,N4,N2:?#N6;"!!"
9015POSITIONN6,N4:?#N6;"areyou":?#N6;"readyforprimary"
9020?"ENTERESTOGOTOTHEPRIMARIESTHISWEEK";:GOSUB151
9025INPUTR$
9030TRAP40000
9035IFR$<>"Y"THEN8000
9040IFQ=N0THENADDFUND=50000
9045IFQ=N1THENADDFUND=INT(YD*RND(N1)+N1)*10000
9046GOSUB11000:CF=CF+ADDFUND-50000:FF=FF+ADDFUND-50000:ADDFUND=N0
9100FORX=N1TON6
9105IFMD(X)<N1THENYD=YD-N2:GOTO9115
9107IFMD(X)<200000THEN9115
9110P=(MD(X)/500000):YD=YD+INT(P/N2)+N1
9115NEXTX
9140IFDB=N2THENCF=CF-200000:FB=FB+200000:YD=YD+N5:DB=N3
9300REM
9305P=N0:FORX=N1TON6:P=P+PA(X):NEXTX
9310IFP=N1THENYD=YD+N2
9550RESTOREN3100:B=N7:C=N1:GOSUBN550
9555RESTOREN3100+N100:B=N4:C=N2:GOSUBN550
9560RESTORE3300:B=9:C=N3:GOSUBN550
9565RESTOREN3100+N300:B=N10:C=N4:GOSUBN550
9570RESTORE3500:B=N10:C=N5:GOSUBN550
9575RESTOREN3100+N500:B=11:C=N6:GOSUBN550
9580CF=CF-CC:FC=FC+CC
9600FORX=N1TON6
9605IFRN(X)=N1ANDCD(X)>=N6THENYD=YD+N1
9607IFRN(X)=N1ANDCD(X)>9THENYD=YD+N2
9610IFRN(X)=N1ANDCD(X)<N1THENYD=YD-N1
9615IFRN(X)=N1ANDMS(X)=N1THENYD=YD+N1
9620IFRN(X)=N0ANDMS(X)=N1THENYD=YD+N1
9625IFRN(X)=N1ANDMS(X)=N0THENYD=YD-N2
9630IFRN(X)=N0ANDMS(X)=N0THENYD=YD-N1
9665NEXTX
9775RESTOREN3100:FORX=N0TO50
9780GOSUB560
9785READS$,DELG,WEEK
9788IFYD>75THENYD=75
9790IFWEEK=WMANDYD>=TWTHENST(X)=N1:GOTO9800
9795IFWEEK=WMTHENST(X)=N2
9800NEXTX
9810IFST(N0)=N1ANDWM=N1THENYD=YD+N5
9820WM=WM+N1
9825FORX=N1TON6
9830MD(X)=N0:MA(X)=N0:PA(X)=N0:MS(X)=N0
9835NEXTX
9850SM=INT(N5*RND(N1)-N2)+40:PS=INT(YD/N2)+N10:UNDC=N100-PS-SM
9855GOTO8000
10000GRAPHICS18:SETCOLORN4,N0,N10
10020FORY=N0TON10STEPN1:FORX=N0TO19STEPN2:POSITIONX,Y:?#N6;"";:NEXTX:FORX=19TON0STEP-N2
10025POSITIONX,Y:?#N6;"":NEXTX:NEXTY
10030POSITIONN0,N3:?#N6;""
10040POSITIONN2,5:?#N6;"APRESIDENTIAL":POSITIONN2,6:?#N6;"PRIMARYCAMPAIGN"
10050POSITIONN4,7:?#N6;"":GOSUBN300
10060GOSUB20000:GOTO12000
10185YD=INT(N6*RND(N1)+14)
10187PS=YD
10200FC=N0:FD=N0:FM=N0:FP=N0:FF=N0:FB=N0
10700SM=40
10702UNDC=N100-YD-SM
10705GOSUB150:GOTO8000
11000GRAPHICS18:SETCOLORN2,N0,N2:GOSUB2900:RESTOREN300:GOSUBN300
11027Q=N0
11029A$(N1,19)=""
11030GRAPHICS18
11031?#N6;"":GOSUB560:IFYD<TWTHEN11400
11032CHA=CHA+N1:IFCHA>N5THEN11400
11035RESTORE11200+CHA
11040C=N0:YD=YD+N2
11048A$(20,33)="ENDORSEMENT:"
11050READI$
11055A$(34,57)=I$
11060POSITIONN1,N4:?#N6;A$(N1,19):C$=A$(N2):C$(LEN(C$)+N1)=A$:A$=C$
11061GOSUB153
11062C=C+N1
11070IFC=57THENA$="":GOTO11400
11075GOTO11060
11201DATASAVETHELAKESSOCIETY,N0
11202DATAMOTELOWNERSASSOC.,N0
11203DATAPRISONERSRIGHTSCOMM.,N0
11204DATAGARMENTWORKERSUNION,N0
11205DATAVIGILANTEBROTHERHOOD,N0
11400RESTORE11600
11500FORX=N0TOEVENT:READI$:NEXTX
11510EVENT=EVENT+N1
11520A$(20,57)=I$
11530C=N0
11550POSITIONN1,N4:?#N6;A$(N1,19):C$=A$(N2):C$(LEN(C$)+N1)=A$:A$=C$
11558GOSUB153
11560C=C+N1
11565IFC=57THEN11580
11568IFC=-N1THENEND
11570GOTO11550
11580IFDB<>N1THEN11590
11585DB=N2:A$(20,57)="primarydebatewasheldlastweek":GOTO11530
11590POSITIONN1,N0:?#N6;"TREASURER'$REPORT":POSITIONN1,N1:?#N6;""
11591POSITIONN1,7:?#N6;""
11592POSITIONN1,N3:?#N6;"":RESTORE450:GOSUBN300:POSITIONN6,N6:?#N6;"";ADDFUND-50000
11595RESTORE452:GOSUBN300:A$="":RETURN
11600DATASOVIETSDENYSATELITESARENUKEARMED,CAMPAIGNAIDEISCITEDINBRIBESCAM
11601DATASTRIKES&RIOTSROCKGREATBRITAIN
11602DATATITANSPACEPROBEFINDSLIFEFORMS!,80INJUREDINN.Y.C.UNEMPLOYEDRIOT
11603DATASINO-FRENCHFOODTREATYSIGNEDTODAY,JURYGIVESYOUTHDEATHINN.H.TRIAL
11604DATAJAPANADMITSTONUCLEARMISSILEBASE
11605DATANUKEWEAPONSBANNEDFROMNATOBASES
12000GRAPHICS18:SETCOLORN4,N0,N0
12005FORX=N0TO50:ST(X)=N0:NEXTX
12010POSITIONN2,N0:?#N6;"COPYRIGHT1983BY"
12015POSITIONN3,N1:?#N6;"AND":POSITIONN3,N2:?#N6;""
12025POSITIONN0,N10:?#N6;"PRESSTOBEGIN"
12030POSITIONN2,N5:?#N6;"PRESSFOR":POSITIONN5,N6:?#N6;"SKILLLEVEL"
12035POSITIONN5,N7:?#N6;"beginner":OP=N1:CF=20000000
12037FORWAIT=N1TO50:NEXTWAIT
12040SEL=PEEK(53279):IFSEL=N7THEN12040
12042IFSEL=N6THENGRAPHICS18:GOTO10185
12045IFSEL<N5THENGOTO12037
12047IFSEL=N5ANDOP=N0THENPOSITIONN5,N7:?#N6;"beginner":OP=N1:CF=20000000:GOTO12037
12050IFSEL=N5ANDOP=N1THENPOSITIONN5,N7:?#N6;"intermediate":OP=N2:CF=17000000:GOTO12037
12055IFSEL=N5ANDOP=N2THENPOSITIONN5,N7:?#N6;"expert":OP=N0:CF=14000000:GOTO12037
20000REM
20010GRAPHICSN1:SETCOLOR2,0,0
20020POSITION0,6:?#6;"PLEASEENTERYOUR":?#6:?#6;"LASTNAMEBELOW...":?#6:?#6:?#6;"ANDPRESS<RETURN>"
20030TRAP20030
20040?:?"PRESIDENTIALCANDIDATE>>>";
20050INPUTPLAYER$
20060RETURN	

• Download link 1

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