Atari 8-bit Source code

1REMSOFTSIDEMAR82
5OPEN#1,4,0,"K:"
10DIMNA$(8),P$(5),B$(9),T$(6),A$(6),C$(5),S$(5),R$(25),STAR$(40),DA$(103),X$(6),CL$(1)
20STAR$="":CL$=CHR$(125)
25DIMMST$(17)
30MST$=""
100GRAPHICS2:POKE752,1
102POKE82,0
104?""
108POKE82,2
110FORZ=1TO400:POSITION2,4:?#6;"***IBC***":NEXTZ
120?CL$;""
130GOSUB30010
150?"PLEASEENTERYOURNAME";:INPUTNA$:C=40000000:P$="LIGHT":PC=75000:PS=3000:PM=5000:B$="LIGHT-MED":BC=210000
160GOSUB30010
170?:GOSUB2000:GOSUB30010
250GRAPHICS0:POKE752,1:?CL$
251SETCOLOR1,0,4:SETCOLOR2,0,12
257BS=100:BM=150:T$="MEDIUM":TC=300000:TS=1000:TM=2000:A$="MEDIUM"
260AC=345000:AS=1200:AM=2200:C$="HEAVY":CC=525000:CS=2500:CM=3500:S$="HEAVY":SC=998000:SS=3000:SM=6000
261R$="OFFICEMANAGER"
270TI=TI+1
280GOSUB300:GOSUB400:GOSUB500:GOSUB3000:GOSUB4000:GOSUB5000:GOSUB5500:GOSUB6000
290GOTO270
300POKE82,1:?CL$;"NAME:";NA$:?"POSITION:";R$:?STAR$:?"COMPANYSTATUSDISPLAYTURN:";TI:?STAR$
305?"BRIDGESTATUS"
310POSITION4,6:?#6;"TYPE:";:POSITION12,6:?#6;"COMPLETE";:POSITION4,8:?#6;"PONTOON";:POSITION4,9
311?#6;"SGLBEAM"
315POSITION4,10:?#6;"TRUSS";:POSITION4,11:?#6;"ARCH";:POSITION4,12:?#6;"CANTILVR";:POSITION4,13
317?#6;"SUSPEN"
320POSITION14,8:?#6;B1;:POSITION14,9:?#6;B2:POSITION14,10:?#6;B3:POSITION14,11:?#6;B4;
325POSITION14,12:?#6;B5:POSITION14,13:?#6;B6;
330POSITION21,5:?#6;"COMPANYASSETS:":POSITION20,6:?#6;MST$:POSITION21,7:?#6;"WORKCREWS=";CR:POSITION21,8
333?#6;"R&D=$";RD:POSITION21,9:?#6;"STEEL=$";M
335POSITION21,10:?#6;:POSITION21,11:?#6;"CASH=$";C
340POSITION10,18:?#6;"<PRESSRETURN>";
341GET#1,XV
350GOSUB30010:RETURN
400GOSUB30020:?CL$;"NAME:";NA$:?"POSITION:";R$:?STAR$:?"COMPANYPURCHASESDISPLAYTURN:";TI:?STAR$:?
403?"1.HIRE5WORKCREWS-$1000000"
405?"2.PURCHASESTEEL----$2000000"
410?"3.R&DINVESTMENT----$5000000":?:?STAR$:?"CASH=$";C:?STAR$:?"ENTERCHOICE('0'TOCONTINUE)";
415TRAP400:INPUTCH:IFCH<0ORCH>3THEN400
416IFCH=0THENGOSUB30010:TRAP40000:RETURN
420ONCHGOSUB430,440,450
425GOSUB30020:GOTO400
430CR=CR+5:C=C-1000000:RETURN
440M=M+2000000:C=C-2000000:RETURN
450RD=RD+5000000:C=C-5000000:RETURN
500TRAP500:RESTORE:?CL$;"YOURSECRETARYREPORTS:":X=INT(38*RND(1))+1:?STAR$
501IFX<11THEN?"NOTHINGIMPORTANTISINTHENEWS.":?STAR$:?:GOSUB2000:RETURN
502X=X-10:FORRK=1TOX:READDA$,MP:NEXTRK:?DA$:IFX<15THENC=C-MP:GOTO504
503C=C+MP
504?STAR$:?"PRESENTCASH=$";C:?STAR$:?:GOSUB2000:TRAP40000:RETURN
511DATA"NEWTARIFFCOSTSCOMPANY$1000000.",1000000
512DATA"ACCOUNTINGERRORCOSTSCOMPANY$10000.",10000
513DATA"YOURBOSSJUSTORDEREDYOUTOSPEND$5000FORAWILDLIFEPRESERVE.",5000
514DATA"FORMEREMPLOYEECOLLECTS$100000INSURANCECLAIMAGAINSTTHECOMPANY.",100000
515DATA"WORKERSLOWDOWNCOSTSTHECOMPANY$3000.",3000
516DATA"CONDEMNEDOFFICECOSTSCOMPANY$300000TOREBUILD.",300000
517DATA"NEWTRADELAWSCOSTCOMPANY$2000.",2000
518DATA"VANDALIZEDOFFICECOSTSCOMPANY$500INDAMAGES.",500
519DATA"WORKERCARELESSNESSCOSTSCOMPANY$1000.",1000
520DATA"LABOURSTRIKECOSTSCOMPANY$50000.",50000
521DATA"STOLENCRANECOSTS$1000000TOREPLACE.",1000000
522DATA"COMMUNICATIONPROBLEMSCOSTCOMPANY$7000.",7000
667DATA"THECHAIRMANOFTHEBOARDHASDIEDITCOSTTHECOMPANY$30000TOREPLACEHIM.",$30000
524DATA"OFFICEFIRECOSTSCOMPANY$300000.",30000
525DATA"GOVT.COMPETITIONSHOULDN'TAFFECTBUSINESS.",0
526DATA"FORMERCLIENTGIVESCOMPANY$20000.",20000
527DATA"NEWCONTRACTSAVESCOMPANY$50000.",50000
528DATA"CAPTUREDSPYGETSCOMPANY$50000INREWARDS.",50000
529DATA"COMPANYSAVES$2000000ONFOREIGNEQUIPMENTPURCHASE.",2000000
530DATA"NEWINVENTIONGETSCOMPANY$1000000.",1000000
531DATA"ACCOUNTINGERRORGAINSCOMPANY$3000.",3000
532DATA"NEWLAWSAVESCOMPANY$10000.",10000
533DATA"COMPANYOWNEDSTOCKSEARN$800000INDIVIDENDS.",800000
534DATA"NEWACCOUNTINGSYSTEMSAVESCOMPANY$4000.",4000
535DATA"COMPANYGAINS$50000INREVENUES.",50000
536DATA"NEWATARICOMPUTERSYSTEMSAVESCOMPANY$50000.",50000
537DATA"PROTESTOFCOMPANY'SPRESENCEINTHEEVERGLADESDOESN'TAFFECTBUSINESS.",0
538DATA"GOVERNMENTINVESTIGATIONINTOALLEGEDUNDERGROUNDACTIVITIESBYCOMPANYDOESN'TAFFECTBUSINESS.",0
2000?"<PRESSRETURN>";:GET#1,XV
2001GOSUB30010:RETURN
3000?CL$;"NAME:";NA$:?"POSITION;";R$:?STAR$:?"RESEARCH&DEVELOPMENTSTATUSTURN:";TI:?STAR$
3001?:?
3010X=INT(RND(0)*30)+1:X=X*1000000:IFRD>XTHEN3020
3015POSITION7,7:?#6;"NOR&DPROGRESSTHISTURN.":?:GOSUB2000:RETURN
3020GH=RD/5000000:SB=INT(RND(0)*GH)+1
3021X=INT(RND(0)*6)+1:?"R&DREPORTSACOSTBREAKTHROUGH:":?:?"COSTOFA";
3022ONXGOSUB3023,3024,3025,3026,3027,3028:GOSUB25000:GOSUB2000:RD=RD-SB*5000000:RETURN
3023?"PONTOONBRIDGEHASGONEFROM":?PC;"TO";PC*0.75;"PER100/FT.":PC=PC*0.75:RETURN
3024?"SINGLEBEAMBRIDGEHASGONEFROM":?BC;"TO";BC*0.75;"PER100/FT.":BC=BC*0.75:RETURN
3025?"TRUSSBRIDGEHASGONEFROM":?TC;"TO";TC*0.75;"PER100/FT.":TC=TC*0.75:RETURN
3026?"ARCHBRIDGEHASGONEFROM":?AC;"TO";AC*0.75;"PER100/FT.":AC=AC*0.75:RETURN
3027?"CANTILEVERBRIDGEHASGONEFROM";CC;"TO";CC*0.75;"PER100/FT.":CC=CC*0.75:RETURN
3028?"SUSPENSIONBRIDGEHASGONEFROM";SC;"TO";SC*0.75;"PER100/FT.":SC=SC*0.75:RETURN
4000?CL$;"NAME:";NA$:?"POSITION:";R$:?STAR$:?"PRESENTBRIDGESPECSDISPLAYTURN:";TI:?STAR$
4002?"TYPE:";"TRAFFIC:";"PER100/FT.";"SAFE--MAX.":?STAR$
4010?"PNTOON";P$;"";PC;"";PS;"";PM
4011?"SGLBM";B$;"";BC;"";BS;"";BM
4012?"TRUSS";T$;"";TC;"";TS;"";TM
4013?"ARCH";A$;"";AC;"";AS;"";AM
4014?"CNTLVR";C$;"";CC;"";CS;"";CM
4015?"SUSPEN";S$;"";SC;"";SS;"";SM
4016?STAR$:?"CASH=$";C;"STEEL=$";M:?STAR$
4020GOSUB2000:RETURN
5000?CL$;"NAME:";NA$:?"POSITION:";R$:?STAR$:?"CONTRACTBIDDINGPHASETURN:";TI:?STAR$
5001?"CLIENT'SBRIDGEHASTHESESPECS.":?STAR$
5002JJ=INT(RND(0)*6)+1:ONJJGOTO5003,5004,5005,5006,5007,5008
5003X$="PNTOON":GOTO5009
5004X$="SGLBM":GOTO5009
5005X$="TRUSS":GOTO5009
5006X$="ARCH":GOTO5009
5007X$="CNTLVR":GOTO5009
5008X$="SUSPEN":GOTO5009
5009IFJJ=1THENY=INT(RND(0)*PM)+1:Q=1:X=75000:K=5:F=PC
5010IFJJ=2THENY=INT(RND(0)*BM)+1:Q=2:X=210000:K=8:F=BC
5011IFJJ=3THENY=INT(RND(0)*TM)+1:Q=3:X=300000:K=15:F=TC
5012IFJJ=4THENY=INT(RND(0)*AM)+1:Q=4:X=345000:K=25:F=AC
5013IFJJ=5THENY=INT(RND(0)*CM)+1:Q=5:X=525000:K=34:F=CC
5014IFJJ=6THENY=INT(RND(0)*SM)+1:Q=6:X=998000:K=50:F=SC
5016?"TYPE=";X$;"LENGTH=";Y;"FT.":?STAR$:?"YOURCOSTFORTHISBRIDGEIS$";Y*F/100:?STAR$
5018IFCR<(Y/100)*QTHEN?"YOUDON'THAVEENOUGHCREWSFORTHISBRIDGE.":?:GOSUB20000:RETURN
5020IFM<(Y/100)*(K*10000)THEN?"YOUDON'THAVEENOUGHSTEELFORTHISJOB.":?:GOSUB20000:RETURN
5025TRAP5025:?"HOWMUCHDOYOUWANTTOBID";:INPUTBD:?STAR$
5026TRAP0
5027Q=INT(RND(0)*11)+1:IFBD>(Q+1)*((X*Y/100)*0.9)THEN?"BIDTOHIGH,YOULOSECONTRACT":?:GOSUB20000:RETURN
5030GOSUB28000:?"ANDMAKE$";BD-(F*Y/100):C=C+BD-(F*Y/100):M=M-(Y/100)*(K*10000)
5033IFM<0THENM=0
5035GOSUB25000
5040IFJJ=1THENB1=B1+1
5041IFJJ=2THENB2=B2+1
5042IFJJ=3THENB3=B3+1
5043IFJJ=4THENB4=B4+1
5044IFJJ=5THENB5=B5+1
5045IFJJ=6THENB6=B6+1
5050GOSUB2000:GRAPHICS0:POKE752,1:SETCOLOR2,0,14:SETCOLOR1,9,9:RETURN
5500X=INT(RND(0)*300)+1:IFC>0THENRETURN
5505C=C*1.5:IFC<X*1000000*-1THENGOSUB9000
6000IFC>50000000ANDCB<5THENR$="DISTRICTMANAGER":CB=5
6010IFC>100000000ANDCB<10ANDCB>4THENR$="REGIONALSUPERVISOR":CB=10
6020IFC>150000000ANDCB<15ANDCB>9THENR$="CORPORATEADVISOR":CB=15
6030IFC>200000000ANDCB<20ANDCB>14THENR$="COMPANYREPRESENTATIVE":CB=20
6040IFC>300000000ANDCB<30ANDCB>19THENR$="V.P.ORPRODUCTION":CB=30
6050IFC>400000000ANDCB<40ANDCB>20THENR$="COMPANYPRESIDENT":CB=40
6060IFCB=50THEN7000
6070IFC>500000000ANDCB=40THENCB=50:RETURN
6080RETURN
7000?CL$;"";NA$;"HASBEENDECLARED"
7010?"(GAMEOVER)":GOSUB27000:RUN
9000?CL$,""
9001?,"================="
9002?"";NA$;"HASGONEBANKRUPT"
9010?"(GAMEOVER)":?:?:GOSUB26000:GOSUB2000:RUN
20000FORX=150TO255:SOUND0,X,10,15:NEXTX:FORX=1TO100:SOUND0,255,10,15:NEXTX
20010GOSUB2000:RETURN
25000FORX=150TO45STEP-1:SOUND0,X,10,15:NEXTX:FORX=1TO100:SOUND0,45,10,15:NEXTX:RETURN
26000FORX=0TO230:FORZA=0TO3:SOUNDZA,X,10,15:NEXTZA:NEXTX:SOUND0,255,10,15
26010FORS=1TO200:NEXTS:FORZ=0TO3:SOUNDZ,0,0,0:NEXTZ:RETURN
27000FORX=230TO25STEP-1:FORZA=0TO3:SOUNDZA,X,10,15:NEXTZA:NEXTX:SOUND0,255,10,15
27010FORS=1TO200:NEXTS:FORZ=0TO3:SOUNDZ,0,0,0:NEXTZ:RETURN
28000GRAPHICS5:POKE752,1:COLOR3:FORTR=19TO26:PLOTTR,15:DRAWTOTR,26:NEXTTR
28010FORTR=53TO60:PLOTTR,15:DRAWTOTR,26:NEXTTR
28020FORTR=0TO32:PLOTTR,13:DRAWTOTR,14:NEXTTR
28025FORTR=47TO79:PLOTTR,13:DRAWTOTR,14:NEXTTR
28030PLOT19,20:DRAWTO13,14:PLOT26,20:DRAWTO32,14:PLOT53,20:DRAWTO47,14:PLOT60,20:DRAWTO66,14
28060COLOR1:PLOT52,6:PLOT52,7:PLOT50,12:PLOT51,12:PLOT48,10:DRAWTO40,2:PLOT48,11:PLOT49,8:DRAWTO40,2
28070FORTR=49TO53:PLOTTR,8:DRAWTOTR,11:NEXTTR
28080A=3:B=1:X=9:GOSUB29000:FORTR=1TO50:NEXTTR:A=0:B=0:X=9:GOSUB29000:A=3:B=1:X=10:GOSUB29000:A=0:B=0:X=10
28090GOSUB29000:A=3:B=1:X=11:GOSUB29000:COLOR1:PLOT48,10:DRAWTO40,2:A=0:B=0:X=11:GOSUB29000
28100A=3:B=1:X=12:GOSUB29000:A=0:B=0:X=12:GOSUB29000:A=3:B=1:X=13:GOSUB29000:A=0:B=0:X=13:GOSUB29000
28110A=3:B=1:X=14:GOSUB29000
28120B=0:X=14:GOSUB29010:B=1:X=13:GOSUB29010:B=0:X=13:GOSUB29010:B=1:X=12:GOSUB29010:B=0:X=12:GOSUB29010
28130B=1:X=11:GOSUB29010:B=0:X=11:GOSUB29010:B=1:X=10:GOSUB29010:B=0:X=10:GOSUB29010:B=1:A=0:X=9:GOSUB29010
28140RETURN
29000COLORA:PLOT33,X-1:DRAWTO46,X-1:PLOT33,X:DRAWTO46,X
29010COLORB:PLOT37,X-2:DRAWTO40,X-4:PLOT42,X-2:DRAWTO40,X-4:PLOT40,X-3:DRAWTO40,3
29015SOUND0,255,6,15:FORTR=1TO4:NEXTTR:SOUND0,0,0,0
29020RETURN
30010FORU=1TO4:SOUND0,20,10,8:GOSUB30220:SOUND0,0,0,0:NEXTU:RETURN
30020U=INT(RND(0)*100)+50:SOUND0,U,10,8:GOSUB30220:SOUND0,0,0,0:RETURN
30220FORTT=1TO5:NEXTTT:RETURN	

• Download link 1

• Download link 1