Atari 8-bit Source code

0DIMS$(9),G$(9),G(99):FORF=6TO99:G(F)=(F>9)*(RND(0)*4+2):NEXTF:M=200:V=1:G$="`":?
1T=T+1:L=V:FORI=1TO4:?"..";:V=G(6+L*4):G(I)=INT(INT(RND(0)*(V+I)+V)*5^I+0.1):NEXTI:?
2?:?"Day";T:?:RESTORE:FORI=1TO5:READS$:?I;"=";S$;G$(2-(I=L)):NEXTI:?:FORI=6TO9:READS$
3?I;"=";S$,"$";G(I-5),G(I):NEXTI:?:?"$";M:DATAHongkong,Shanghai,Nagasaki,Singapore
4TRAP4:INPUTV:ONV<1ORV>9ORV=LGOTO4:ONV<6GOTO9:B=INT(M/G(V-5)):S=-G(V):IFB>FTHENB=F
5?"S:";S,"B:";B:TRAP5:INPUTQ:ONQ<SORQ>BGOTO5:G(V)=G(V)+Q:F=F-Q:M=M-G(V-5)*Q:GOTO2
6?:?"Piratesx";Q:?D;"%DMGRET=1=Flee":TRAP7:INPUTR:ONRND(0)<0.4GOTO1:?"Fail";:GOTO8
7H=INT(RND(0)*Q/2)+1:Q=Q-H:?:?"WeSINK";H;:IFQ=0THENM=M+T*10:?"&LOOT$";T*10
8ONQ=0GOTO1:H=INT(RND(0)*9):D=D+H:?",receiveDMG";H:OND<100GOTO6:?"DIED.":RUN
9D=INT(D*0.9):Q=INT(RND(0)*T/2)+3:GOTO1+5*(RND(0)<0.4):DATAManila,Rice,Arms,Silk,Opium	

• Download link 1

• Download link 1
• Download link 2