Directory of image this file is from
This file as a plain text file
()0]OBTC-PS/8 FOCAL, 1971?MB$BAC BTLSHP BY TOM KLOOS?MB:BBC OMSI SOFTWARE DEVELOPMENT GROUP?MCJBCC LAST CHANGE: 8/1/71?MC.BDC ***** TEKTRONIX T-4002 TERMINAL AND JOYSTICK REQUIRED *****?MC1BE?MDQBFC YOU HAVE 20 SHOTS TO SINK 3 SHIPS. UIDE THE CURSOR?MD8BGC TO THE SQUARE YOU CHOOSE AND HIT THE SPACE BAR. TO MAKE ROOM FOR THE?MELBHC PROGRAM, GROUP 1 WILL BE ERASED.?ME BKI ((/2)-FITR(/2)) 1.12,1.14,1.12?MFFBLT "YOU DO NOT HAVE ENOUGH FEATURES. RESTART FOCAL WITH FEATURE 1.";Q?MFPBNO I RASE;E 1?MFXDEO I TTY:,E?MF+DJS Z=FOUT(1)+FOUT(24);F Z=1,175;?MG[DTT !!!!!!" ?YW E L C O M E T O T H E G A M E O F B A T T L E S H I P S? "!!?MG"D^T !!!!!?MHOFUT !!!!!"PLEASE WAIT WHILE THE ENEMY SHIPS MOVE INTO POSITION USA";D 15;T !!?MHSFYE?MH F^F M=1,36;S M(M)=0?MH%FG 3.45?MH0F(S U=(S-1)*6+T;R?MH9F-F X=1,3;D 4?MH?F2S Q=0?MIIF7S J=0;S Q=Q+1?MI0F<S J=J+1;I ((M((Q-1)*6+J)+M((Q-1)*6+J+1)+M(Q*6+J)+M(Q*6+J+1))-4)3.7,3.25?MJIGFI (J-5)3.6,3.6;I (Q-5)3.55,3.55;S R=0;G 5.1?MJ!HJS A=FITR(6*FRAN()+1);S B= ITR(6*FRAN()+1)?MJ7HOS S=A;S T=B;D 3.4; I (M(U))4.1,4.2,4.1?MKRHTS C=FITR(3*FRAN()-1);I (6-(A+C))4.2;I (A+C-1)4.2?MK.HYS D=FITR(3*FRAN()-1);I (6-(B+D))4.25;I (B+D-1)4.25?MLAH^I (FABS(C)+FABS(D))4.35,4.2,4.35?MLXHS S=A+C;S T=B+D;D 3.4; I (M(U)-1)4.4,4.2?ML H(I (2-X)4.75?MMFH-I (6-(A+C+C))4.55;I (A+C+C-1)4.55;I (6-(B+D+D))4.55;I (B+D+D-1)4.55?MM^H2S S=A+C+C;S T=B+D+D;D 3.4;I (M(U))4.55,4.7?MM=H7I (6-(A-C))4.1;I (A-C-1)4.1;I (6-(B-D))4.1;I (B-D-1)4.1?MNTH<S S=A-C;S T=B-D;D 3.4;I (M(U)-1)4.65,4.1?MN IAS M(U)=1;G 4.75?MN3IFS S=A+C+C;S T=B+D+D;D 3.4;S M(U)=1?MOFIKS S=A+C;S T=B+D;D 3.4; S M(U)=1?MOQIPS M((A-1)*6+B)=1?MOUIUR?MO JJS R=0;S H=0;T %3.00;D 2.1;D 7?MO:JKS R=R+1;I (7-H)11.1;I (20-R)10.1?MPMJLS A1=FOUT(1);T !!!!;F A1=1,R;T !?MPVJMT "ROUND "R?MP JNS A1=FJOY()?MQJOI (XJ-300)5.14;I (900-XJ)5.14;I (YJ-100)5.14;I (700-YJ)5.14?MQEJTD 6?MQRJYI (M(V))5.3,5.26,5.3?MQ JZD 8;S M(V)=-2;G 5.11?MQ7J^I (M(V))5.11;S M(V)=-1;S H=H+1;D 9;G 5.11?MROLJS V=(FITR(YJ/100)-1)*6+FITR((XJ-200)/100)?MR-LTS Z=FITR((V-1)/6);S XC=(V-Z*6)*100+250;S YC=Z*100+150?MSINJF XG=300,100,900;S Z=FDIS(0,XG,100)+FDIS(1,XG,700)?MS%NOF YG=100,100,700;S Z=FDIS(0,300,YG)+FDIS(1,900,YG)?MTNPJS Z=FDIS(0,XJ-7,YJ-7)+FDIS(1,XJ+7,YJ+7)+FDIS(0,XJ-7,YJ+7)+FDIS(1,XJ+7,YJ-7)?MT]RTF X=0,.2,3.141592;D 9.4?MT!R^R?MUJR(S Z=FDIS(0,XC+50*FCOS(X),YC+50*FSIN(X))+FDIS(1,XC-50*FCOS(X),YC-50*FSIN(X))?MUPTJD 2.1?MU(TTT !!!!!!! !!"?YY O U A R E O U T? "!!?MU6TUT " ?YO F? "!!?MVHTVT "?YA M M U N I T I O N? "!!?MV[TWT "?YA N D L U C K .....? "!!?MV5T^T !!!!"HERE IS HOW THE"!" HARBOR LOOKS:";D 12?MWDT(S Z=FOUT(1);F Z=1,30;T !?MWZT-A "WOULD YOU LIKE TO "!"PLAY AGAIN "Z?MW(T2I (Z-0YES)10.51,,10.51?MW,T3Q?MW2VJD 2.1?MXQVTT !!!!!!!!!"?YY O U D I D I T................? "!!!?MX2V^T "?YY O U S A N K A L L T H E S H I P S ! ! !? "!!!?MX<V(T !!!;G 10.45?MYHXJD 7;F R=1,36;D 13?MYVZJI (M(R))13.3,13.2,13.5?MYZZTR?MZJZ^S V=R;D 6.2;I (M(R)+1)13.4;S XC=XC-30;S YC=YC-10;S Z=FDIS(0,XC,YC)+FOUT(159);T "?YH I T? "?MZNZR?MZ)Z(S XC=XC-23;S YC=YC-5;S Z=FDIS(0,XC,YC);T "MISS"?MZ-Z-R?M[WZ2S V=R;D 6.2;S XC=XC-42;S YC=YC-10;S Z=FDIS(0,XC,YC)+FOUT(159);T "?YS H I P? "?M[[Z<R?M[(^AS X=FDIS(1,575,200)?M\M^BS X=FDIS(1,625,150)+FDIS(1,800,150)+FDIS(1,850,200)+FDIS(1,575,200)?M\2^CS X=FDIS(1,775,200)+FDIS(1,775,500)+FDIS(1,625,225)+FDIS(1,775,225)?M^DS X=FDIS(1,775,515)+FDIS(1,745,505)+FDIS(1,775,505)?M)?L S BTLSHP?M?MTA2 TEMP;W?M?MC CATLOG?M?M RESTART FOCAL WITH FEATURE 1.";Q?ND HIT THE SPACE B05,5 Note: Lines longer than 256 characters were wrapped