Atari 8-bit Source code

1REM***TITAN***
2REM***(c)Wm.Morris&J.Cope***
9REM***Initialization***
10DIMC(12),K(4,16),Z$(1),A$(40),EQ$(70),WC$(70),EX$(40),DB$(72):J0=20000:J1=20010:J2=20020:J3=20030:J4=20040
11J5=20050:J6=20060:J7=20070
19REM***Title***
20GRAPHICS2:SETCOLOR0,0,8:SETCOLOR1,0,8:SETCOLOR2,8,0:SETCOLOR4,8,0
30POSITION7,4:FORZ=0TO3:READZ$,Y,X:?#6;Z$;:SOUNDZ,Y,10,4:FORY=1TOX:NEXTY:NEXTZ:?#6;"N"
40SOUND3,68,10,4:SOUND0,136,10,4:POKE752,1:?"(c)Wm.Morris&J.Cope1981":FORZ=1TO999:NEXTZ
50SOUND3,0,0,0:FORZ=0TO3:SOUND0,162,10,8:SETCOLOR2,3,15:SETCOLOR4,3,15:FORY=0TO200:NEXTY
60SOUND0,217,10,8:SETCOLOR2,3,0:SETCOLOR4,3,0:FORY=0TO200:NEXTY:NEXTZ
70FORZ=0TO999:NEXTZ:FORZ=0TO3:SOUNDZ,0,0,0:NEXTZ:GOSUB9000
99REM***PlayingParameters***
100GRAPHICS17:SETCOLOR2,4,15:SETCOLOR4,12,0:POSITION2,1:?#6;"WELCOMETOTITAN!":POSITION1,7:GOSUBJ0
110?#6;"USETHETO":?#6;"SELECTTHENUMBEROF":POSITION6,11:?#6;"PLAYERS.":GOSUB200
120PL=X:GRAPHICS17:SETCOLOR2,4,15:SETCOLOR4,2,0:POSITION0,7:?#6;"OFDIFFICULTY?":GOSUB200
130LV=X+4:GRAPHICS17:SETCOLOR4,15,0
140FORZ=1TOPL:POSITION1,4*Z-3:?#6;"";Z;"";A$(Z*10-9,Z*10):GOSUBJ1:NEXTZ
150POSITION2,19:?#6;"TRIGGER":POSITION8,21:?#6;"":GOSUBJ0
160IFSTRIG(0)THEN160
170FORZ=1TOPL:K(Z,6)=1:K(Z,13)=500:K(Z,14)=100:K(Z,15)=5:NEXTZ:GOTO300
199REM***JoystickSelection***
200POSITION6,17:Y=210
210?#6;"234":GOTO250
220?#6;"134":GOTO250
230?#6;"124":GOTO250
240?#6;"123"
250GOSUBJ1
260POSITION6,17:FORZ=0TO14STEP2:SETCOLOR2,4,Z:NEXTZ:IFSTRIG(0)=0THENX=(Y-200)/10:GOSUBJ0:RETURN
270IFSTICK(0)=15THEN260
275IFSTICK(0)=11THENY=Y-20:IFY<200THENY=200
280Y=Y+10:IFY>240THENY=210
290GOTOY
299REM***GameSequence***
300GOSUB7000:GOSUB8000:FORP=1TOPL:POKE77,0:GOSUB1000:NEXTP:GOSUB6000:GOTO300
999REM***Display***
1000GRAPHICS1:SETCOLOR2,8,4:SETCOLOR4,P+4,2:CH=1:AC=0:C2=0
1010POSITION3,0:?#6;"BASE:";A$(P*10-9,P*10):POSITION1,2:?#6;DA;"/1/";YE;"STATUS";K(P,0):GOSUBJ2
1020POSITION0,4:?#6;"":POSITION0,6:FORZ=1TO6:?#6;EQ$(Z*10-9,Z*10):NEXTZ
1030FORZ=1TO6:POSITION12,5+Z:?#6;K(P,Z);"":POSITION16,5+Z:?#6;C(Z):NEXTZ
1040POSITION7,15:?#6;"":POSITION8,17:?#6;K(P,13);"":GOSUB1100:IFCH=7THENCH=1:AC=0:GOTO1300
1050GOTO1020
1099REM***Buy&Sell***
1100POKE752,1:POKE77,0:?"";:IFCH>7THENCH=CH-7
1110IFAC=0THEN?,"":UN=60:GOSUBJ4
1120IFACTHEN?,"":UN=243:GOSUBJ4
1125IFC2=0THEN?:?,"";EQ$(CH*10-9,CH*10):GOTO1135
1130?:?,"";WC$(CH*10-9,CH*10)
1135IFCH=7THEN?:UN=121:GOSUBJ4
1140IFSTICK(0)=15ANDSTRIG(0)<>0THEN1140
1150IFSTRIG(0)=0THEN1200
1160IFSTICK(0)=11THENAC=0
1170IFSTICK(0)=7THENAC=1
1180IFSTICK(0)=13THENCH=CH+1
1190IFSTICK(0)=14THENCH=CH-1:IFCH<1THENCH=7
1195GOTO1100
1200IFCH=7THENRETURN
1205IFC2THENCH=CH+6
1210IF(AC=1ANDCH=6ANDK(P,6)=1)OR(AC=0ANDCH=8ANDK(P,8)>17)OR(AC=1ANDK(P,CH)<1)THEN1280
1220IFAC=0ANDCH=9ANDK(P,9)=0THEN1250
1230IFAC=0ANDK(P,13)<C(CH)THEN1280
1240IFACTHENK(P,CH)=K(P,CH)-1:K(P,13)=K(P,13)+C(CH):IFCH=7THENK(P,14)=K(P,14)-1
1250IFAC=0THENK(P,CH)=K(P,CH)+1:K(P,13)=K(P,13)-C(CH):IFCH=7THENK(P,14)=K(P,14)+1
1260SETCOLOR2,11,0:IFC2THENCH=CH+1:IFCH=8THENSETCOLOR2,8,4:RETURN
1270GOSUBJ3:SETCOLOR2,8,4:RETURN
1280SETCOLOR2,3,0:GOSUBJ5:SETCOLOR2,8,4:IFC2THENCH=CH+1
1290RETURN
1299REM***LaborRelations***
1300GRAPHICS1:SETCOLOR2,8,4:SETCOLOR4,P+3,2:C2=1
1310POSITION3,0:?#6;"BASE:";A$(P*10-9,P*10):POSITION4,2:?#6;"";K(P,14):POSITION0,4:GOSUBJ2
1320K(P,7)=K(P,14)-(K(P,1)*LV)-(K(P,2)*LV*2)-(K(P,3)*LV*3)-(K(P,4)*LV*4)-(K(P,5)*LV*5)-(K(P,6)*LV*10)
1330C(9)=K(P,14):C(10)=K(P,14)*2:C(11)=K(P,14)*3:C(12)=K(P,14)*4:EN=K(P,6)*500*(11-LV)
1340GOSUB5000:?#6;"";K(P,15);"%"
1350POSITION0,6:?#6;"conditionssetcost":POSITION0,8:FORZ=1TO6:?#6;WC$(Z*10-9,Z*10):NEXTZ
1360FORZ=1TO6:POSITION12,7+Z:?#6;K(P,Z+6);"":POSITION16,7+Z:?#6;C(Z+6):NEXTZ
1370POSITION7,15:?#6;"":POSITION8,17:?#6;K(P,13);"":GOSUB1100:IFCH=7THEN2000
1380GOSUB5000:POSITION16,4:?#6;EF;"%";:GOTO1360
1999REM***MiningPhase***
2000IFK(P,1)<1THEN3000
2010GRAPHICS7:SETCOLOR0,1,6:SETCOLOR2,0,0:SETCOLOR4,0,0:COLOR3:PLOT0,19:DRAWTO159,19
2020COLOR1:FORZ=20TO79:SOUND0,200-Z*2,10,2:PLOT0,Z:DRAWTO159,Z:NEXTZ:SETCOLOR2,11,2:GOSUBJ0
2030COLOR1:FORZ=1TO10:FORY=1TO2:R=INT(RND(0)*159):PLOTR,Z:NEXTY:NEXTZ
2040V1=INT(RND(0)*129+15):V2=INT(RND(0)*59+20):RA=10-LV:RB=INT(RND(0)*3)
2100POKE559,62:Z=PEEK(106)-8:POKE54279,Z:POKE53277,3:X=Z*256+1280:RESTORE:FORZ=1TO12:READZ$:NEXTZ:HO=0
2110FORZ=57TO69:READY:POKEX+Z,Y:NEXTZ:X=X+256:FORZ=62TO69:READY:POKEX+Z,Y:NEXTZ
2120SETCOLOR2,11,2:POKE623,1:POKE752,1:IFK(P,1)=0AND(HO=0ORK(P,2)=0)THEN3000
2130?"":?,,"DRILLRIG(S)";:X=1:W=200:GOTO2150
2140?"":?"ROBOMINER(S)";:X=2:W=50
2150?K(P,X):POKE53248+X,W:Z=704+X:POKEZ,78:GOSUBJ0+X*10
2160FORY=78TO64STEP-1:POKEZ,Y:IFSTRIG(0)=0THENY=64:NEXTY:POKEZ,78:GOTO2200
2165IFSTICK(0)=7THENY=64:NEXTY:POKE53250,0:GOTO2130
2170IFSTICK(0)=11THENY=64:NEXTY:POKE53249,0:GOTO2140
2175IFSTICK(0)=14THENY=64:NEXTY:GOTO2185
2180NEXTY:GOTO2160
2185?"":?,"CONTINUE";:POKE53249,0:POKE53250,0:GOSUBJ3:IFSTRIG(0)=0THEN3000
2190FORY=78TO64STEP-1:IFSTICK(0)=15THEN2185
2195GOTO2165
2200IFK(P,X)<1OR(X=2ANDHO=0)THENSETCOLOR2,3,2:GOSUBJ5:SETCOLOR2,11,2:GOTO2160
2210K(P,X)=K(P,X)-1:FORZ=20TO0STEP-1:SOUND0,Z,10,2:NEXTZ
2220SOUND0,W,10,2:IFSTRIG(0)=0THEN2300
2230IFSTICK(0)=11THENW=W-1:IFW<50ANDX=1THENW=50
2235IFW<40THENW=40
2240IFSTICK(0)=7THENW=W+1:IFW>200THENW=200
2250POKE53248+X,W:GOTO2220
2300IFX=1AND(W=50ORW=200)THEN2220
2310IFX=2THEN2400
2320W=W-44:Y=19
2330COLOR2:FORZ=10TO14:SETCOLOR1,0,Z:PLOTW,19:VE=1
2333IFSTICK(0)=13THENY=Y+1:SOUND0,200,2,8:VE=2:IFY>78THENY=78
2335GOSUB2500:?,"ENERGY";EN:IFEN<1ORVE=1THENZ=14:NEXTZ:GOTO2600
2340SOUND0,150,12,2:DRAWTOW,Y:NEXTZ:IFSTRIG(0)<>0THEN2330
2350COLOR1:FORZ=16TO18:PLOTW-4,Z:DRAWTOW+4,Z:NEXTZ:COLOR0:PLOTW,Y:DRAWTOW,17:POKE53249,0:GOSUBJ1
2360HO=HO+1:GOTO2120
2400LOCATEW-41,19,Z:IFZ<>0THEN2220
2410W=W-41:Y=17
2420COLOR2:FORZ=10TO14:SETCOLOR1,0,Z:PLOTW,17:IFSTICK(0)=13THENY=Y+1:LOCATEW,Y,X:IFX<>0THENY=Y-1
2430IFSTICK(0)=14THENCOLOR0:PLOTW,Y:Y=Y-1:IFY<20THENY=20
2435VE=1:GOSUB2500:SOUND0,150,12,2:DRAWTOW,Y:?,"ENERGY";EN:IFEN<1THENZ=14:NEXTZ:GOTO2600
2440NEXTZ:IF(STICK(0)<>7ANDSTICK(0)<>11)ORY<20THEN2420
2445COLOR0:PLOTW,17:DRAWTOW,Y
2450VE=1:COLOR0:SETCOLOR1,0,15:PLOTW,Y:IFSTICK(0)=7THENW=W+1:SOUND0,200,2,8:VE=2:IFW>150THENW=W-1
2460IFSTICK(0)=11THENW=W-1:SOUND0,200,2,8:VE=2:IFW<10THENW=W+1
2465GOSUB2500:?,"ENERGY";EN:IFEN<1ORVE=1THEN2600
2470SOUND0,150,12,2:COLOR2:PLOTW,Y:IFSTRIG(0)<>0THEN2450
2480POKE53250,0:GOSUBJ1:GOTO2120
2500POKE77,0:EN=INT(EN-(100/K(P,15))*VE)
2510VE=0:?"":IFY<20THENSETCOLOR2,11,2:?"SURFACE";:RETURN
2520IF(W<V1-RA*3ORW>V1+RA*4)OR(Y<V2-RB*3ORY>V2+K(P,4)+RB*4)THENSETCOLOR2,1,2:?"ICEANDROCK";:RETURN
2530IF(W<V1-RA*2ORW>V1+RA*3)OR(Y<V2-RB*2ORY>V2+K(P,4)+RB*3)THENSETCOLOR2,7,2:?"THIRIDIUM";:RETURN
2540IF(W<V1-RAORW>V1+RA*2)OR(Y<V2-RBORY>V2+K(P,4)+RB*2)THENSETCOLOR2,5,2:?"SECONIUM";:RETURN
2550IF(W<V1ORW>V1+RA)OR(Y<V2ORY>V2+K(P,4)+RB)THENSETCOLOR2,3,2:?"FIRIDIUM";:RETURN
2560VE=1:RETURN
2600IFEN<1THEN2800
2605COLOR3:PLOTW,Y:?"":?"EUREKA!YouhavefoundDILITHIUM!!!":FORY=1TO10:FORZ=15TO0STEP-1
2610SETCOLOR2,3,Z:SOUND0,160-(Z*10),10,Y:NEXTZ:NEXTY:SOUND0,0,0,0:GOSUBJ0:SETCOLOR2,11,2
2620?"":?,,,"STATUS":GOSUBJ1:X=0:Y=1:GOTO2640
2630?"":?"500CREDITS":GOSUBJ2:X=13:Y=500
2640IFSTRIG(0)=0THENK(P,X)=K(P,X)+Y:K(P,16)=K(P,16)+1:GOTO2700
2650IFSTICK(0)=7THEN2620
2660IFSTICK(0)=11THEN2630
2670GOTO2640
2700IFEN<1THEN2800
2710POKE53250,0:POKE53249,0:IFK(P,1)>0THEN2000
2720?"":?"YOUDONOTHAVEENOUGHEQUIPMENTLEFT":?"TOCONTINUEDRILLING.":GOSUBJ6:GOTO3000
2800POKE53250,0:POKE53249,0
2810?"":?"YOUDONOTHAVEENOUGHENERGYLEFTTO":?"CONTINUEDRILLING.":GOSUBJ6:GOTO3000
2999REM***Accidents***
3000R=RND(0)*10-K(P,11):IFR<7ORK(P,16)<1THEN3500
3010GRAPHICS18:SETCOLOR4,3,0:POSITION5,0:?#6;"REDALERT!":Z=0
3020FORY=30TO0STEP-1:SOUND0,150-Y,10,6:SETCOLOR0,14,Y:NEXTY
3025Z=Z+1:IFZ<5THEN3020
3030SETCOLOR0,14,10:SOUND0,0,0,0:POSITION1,3:?#6;"CAVEIN:":R=INT(RND(0)*11)
3040POSITION3,5:?#6;R;"WORKERSLOST!":K(P,14)=K(P,14)-R
3050IFR>6THENPOSITION3,6:?#6;"SHAFTNOWCLOSED!":K(P,16)=K(P,16)-1
3060IFSTRIG(0)THEN3060
3070GOTO4000
3499REM***MeteorStorms***
3500R=RND(0)*10-K(P,3):IFR<8THEN4000
3510GRAPHICS18:SETCOLOR4,3,0:POSITION5,0:?#6;"REDALERT!":Z=0
3520FORY=30TO0STEP-1:SOUND0,150-Y,10,6:SETCOLOR0,14,Y:NEXTY:Z=Z+1:IFZ<5THEN3520
3530SETCOLOR0,14,10:SOUND0,0,0,0:POSITION1,3:?#6;"METEORSTORM!:":R=INT(RND(0)*10+1)
3540POSITION3,5:?#6;R;"WORKERSLOST!":K(P,14)=K(P,14)-R:IFR<7THEN3590
3550POSITION0,6:R=INT(RND(0)*5+1):IFK(P,R)<1THEN3590
3560K(P,R)=K(P,R)-1:?#6;EQ$(10*R-9,10*R);"DESTROYED!"
3590IFSTRIG(0)THEN3590
3999REM***Report***
4000Z=K(P,5):IFK(P,16)<ZTHENZ=K(P,16)
4010K(P,13)=INT(K(P,13)+K(P,13)*0.1+500+(50*K(P,0))+(Z*25*K(P,8)))
4020GRAPHICS0:SETCOLOR2,11,0:SETCOLOR4,11,0:POKE752,1:GOTO4100
4030FORZ=1TO36:?Z$;:NEXTZ:RETURN
4100?"";:Z$="":GOSUB4030:?"";
4105?"";:POSITION19,1:?"":POSITION39,1:?"";:POSITION39,2:?"";
4110?"";:?"MONTHLYREPORT":POSITION29,3:?DA;"/1/";YE:POSITION39,3:?"";:POSITION39,4:?"";
4120?"";:Z$="":GOSUB4030:?"";:GOSUBJ7
4130?"ITEMACTABELLCHIMDAED";
4140?"";:Z$="":GOSUB4030:?"";
4145?"";
4150Y=8:FORZ=0TO6:Y=Y+1:POSITION1,Y:W=Z*10:IFW=0THEN?"STATUS":GOTO4170
4160?"";EQ$(W-9,W)
4170FORX=1TO4:POSITION6*X+9,Y:?"";K(X,Z):POSITION39,Y:?"";:NEXTX:NEXTZ
4180FORZ=1TO4:Y=Y+1:POSITION1,Y:?"";EX$(Z*10-9,Z*10)
4190FORX=1TO4:POSITION6*X+9,Y:?"";K(X,Z+12):POSITION39,Y:?"";:NEXTX:NEXTZ
4195?"";
4200?"";:FORZ=1TO36:?"";:NEXTZ
4210POSITION8,23:?"Presstocontinue.";:GOSUBJ6
4220IFSTRIG(0)=0THENGOSUBJ5:RETURN
4230GOTO4220
4999REM***Efficiency***
5000FF=0:FORZ=1TO5:FF=FF+K(P,Z)*Z:NEXTZ:IFFF<1THENFF=1
5010EF=K(P,6)*10/FF:IFEF>1THENEF=FF/(K(P,6)*10)
5020EF=EF*100:FF=K(P,7)*2.5:IFFF<0THENFF=FF*-2
5030EF=EF-FF:FF=(K(P,8)-6)*3:IFFF<0THENFF=FF*-2
5040EF=EF-FF+(K(P,9)*5)+(K(P,10)*5)+(K(P,11)*7.5)+(K(P,12)*10):EF=INT(EF):IFEF<5THENEF=5
5050IFEF>100THENEF=100
5060IFK(P,9)=0THENEF=1
5070K(P,15)=EF:RETURN
5999REM***NewCosts***
6000FORZ=1TO8:X=0:FORY=1TO4:X=X+K(Y,Z):NEXTY:X=X/PL
6010IFZ>5THENC(Z)=INT(C(Z)+(C(Z)*X/(55-LV))):GOTO6050
6020C(Z)=INT(C(Z)+(C(Z)*X/(25-LV))-(C(Z)*1/(25-LV)))
6030IFC(Z)<100*ZTHENC(Z)=100*Z
6040IFC(Z)>200*ZTHENC(Z)=200*Z
6050IFZ>6ANDC(Z)<1THENC(Z)=1
6060IFZ>6ANDC(Z)>50THENC(Z)=50
6070IFZ=6ANDC(6)>4000THENC(Z)=4000
6080NEXTZ:FORZ=1TO4:FORY=8TO12:K(Z,Y)=0:NEXTY:NEXTZ:RETURN
6999REM***NewDate***
7000DA=DA+1:IFDA=13THENDA=1:YE=YE+1
7010RETURN
7999REM***EndofGame***
8000IFYE=2051ANDDA>3THEN8500
8010R=INT(RND(0)*2):IFR=0ORYE=2050THENRETURN
8500POSITION6,23:?"Thehavearrived!":FORY=1TO10:FORZ=15TO0STEP-1
8510SETCOLOR2,11,Z:SOUND0,160-(Z*10),10,Y:NEXTZ:NEXTY:SOUND0,0,0,0:GOSUBJ0
8520POSITION3,23:?"Yourperformanceisbeingassessed.";:FORZ=1TO200:NEXTZ:IFPL=1THEN8600
8530Z=-1:Y=0:FORX=1TOPL:IFK(X,0)>=ZTHENZ=K(X,0):Y=Z
8540NEXTX:IFY=1THEN8590
8550FORX=1TOY-1:IFK(X,0)=ZTHEN8570
8560NEXTX:GOTO8590
8570FORX=1TOY:IFK(X,0)<0THENK(X,0)=0:NEXTX:GOTO8530
8580K(X,0)=K(X,16)*100+K(X,15)+K(X,14)+K(X,13)+RND(1):NEXTX:GOTO8530
8590GRAPHICS0:SETCOLOR4,5,0:SETCOLOR2,5,0:POSITION4,22:?"Thesupervisorof";A$(Y*10,Y*10+10);"haswon":GOTO8640
8600GRAPHICS0:IFK(1,0)>19THEN8630
8610SETCOLOR4,3,0:SETCOLOR2,3,0:POSITION2,22:?"Iamsorrytoreportthatyoudidnot";
8620POSITION0,23:?"achieveenoughstatustogainallTITAN":GOSUB20060:GOTO8700
8630SETCOLOR4,8,0:SETCOLOR2,8,0:POSITION4,22:?"Becauseofyourstatusyouhavewon"
8640?"therighttomineallofTITAN!!":GOSUBJ7
8700?"toplayagain-toend";
8710IFSTICK(0)<>15THENCLR:RUN
8720IFSTRIG(0)=0THENTRAP40000:CLR:POKE764,255:GRAPHICS0:END
8730GOTO8710
8999REM***InitialValues***
9000DA=0:YE=2050:FORZ=1TO4:FORY=0TO16:K(Z,Y)=0:NEXTY:NEXTZ
9010C(1)=100:C(2)=200:C(3)=300:C(4)=400:C(5)=500:C(6)=2000:C(7)=5:C(8)=10:C(9)=100:C(10)=200:C(11)=300:C(12)=400
9020EQ$="DRILLRIGROBOMINERDEFLECTORR&DUNITREFINERYENERGIZERCONTINUE"
9030A$="ACTAEONBELLONACHIMERADAEDALUS"
9040WC$="LABORPOOLSHIFTTIMEWAGESCALERECREATIONSAFETYBONUSESCONTINUE"
9050EX$="CREDITMANPOWEREFFICIENCY*VEINS*"
9060RETURN
9999REM***Data***
10000DATAT,162,400,I,108,400,T,81,600,A,64,100
10010DATA8,8,8,8,8,20,28,20,28,20,62,54,99
10020DATA240,208,240,97,255,241,144,216
19999REM***SoundRoutines***
20000FORUZ=15TO0STEP-0.5:FORUY=3TO0STEP-1:SOUND0,15-UY,10,UZ:NEXTUY:NEXTUZ:RETURN
20010FORUZ=16TO0STEP-2:FORUY=0TO5:SOUND0,15-UY,10,UZ:NEXTUY:NEXTUZ:RETURN
20020FORUZ=10TO0STEP-2:FORUY=5TO10:SOUND0,15-UY,10,UZ:NEXTUY:NEXTUZ:RETURN
20030FORUZ=2TO0STEP-2:FORUY=50TO100STEP10:SOUND0,150-UY,10,UZ:NEXTUY:NEXTUZ:RETURN
20040SOUND0,UN,10,2:FORUZ=1TO2:NEXTUZ:SOUND0,0,0,0:RETURN
20050SOUND0,255,10,4:FORUZ=1TO9:NEXTUZ:SOUND0,0,0,0:RETURN
20060FORUZ=16TO0STEP-1:FORUY=150TO200STEP10:SOUND0,UY,10,UZ:NEXTUY:NEXTUZ:RETURN
20070FORUZ=8TO0STEP-1:FORUY=55TO105STEP10:SOUND0,UY,10,UZ:SOUND1,UY-50,90,UZ:NEXTUY:NEXTUZ:RETURN	

• Download link 1

• Download link 1
• Download link 2