Directory of image this file is from
This file as a plain text file
()0]1YQC-PS/8 FOCAL, 1971?MB\DEO I TTY:,E?MTDJS Z=FOUT(1)+FOUT(24);F Z=1,175;?MXWD^T !!!!!?MB:FYE?MCFF^F M=1,36;S M(M)=0?MCLFG 3.45?MCWF(S U=(S-1)*6+T;R?MC F-F X=1,3;D 4?MC&F2S Q=0?MU8F7S J=0;S Q=Q+1?MDIGFI (J-5)3.6,3.6;I (Q-5)3.55,3.55;S R=0;G 5.1?MD!HJS A=FITR(6*FRAN()+1);S B=FITR(6*FRAN()+1)?MD7HOS S=A;S T=B;D 3.4; I (M(U))4.1,4.2,4.1?MERHTS C=FITR(3*FRAN()-1);I (6-(A+C))4.2;I (A+C-1)4.2?ME.HYS D=FITR(3*FRAN()-1);I (6-(B+D))4.25;I (B+D-1)4.25?MFAH^I (FABS(C)+FABS(D))4.35,4.2,4.35?MFXHS S=A+C;S T=B+D;D 3 4; I (M(U)-1)4.4,4.2?MF!H(I (2-X)4.75?MGFH-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?MG^H2S S=A+C+C;S T=B+D+D;D 3.4;I (M(U))4.55,4.7?MG=H7I (6-(A-C))4.1;I (A-C-1)4.1;I (6-(B-D))4.1;I (B-D-1)4.1?MHTH<S S=A-C;S T=B-D;D 3.4;I (M(U)- )4.65,4.1?MH IAS M(U)=1;G 4.75?MH3IFS S=A+C+C;S T=B+D+D;D 3.4;S M(U)=1?MIFIKS S=A+C;S T=B+D;D 3.4; S M(U)=1?MIQIPS M((A-1)*6+B)=1?MIUIUR?MI JJS R=0;S H=0;T %3.00;D 2.1;D 7?MI:JKS R=R+1;I (7-H)11.1;I (20-R)10.1?MJMJLS A1=FOUT(1);T !!!!;F A1=1,R;T !?MJVJMT "ROUND "R?MJ JNS A1=FJOY()?MKJOI (XJ-300)5.14;I (900-XJ)5.14;I (YJ-100)5.14;I (700-YJ)5.14?MKEJTD 6?MKRJYI (M(V))5.3,5.26,5.3?MK JZD 8;S M(V)=-2;G 5.11?MK7J^I (M(V))5.11;S M(V)=-1;S H=H+1;D 9;G 5.11?MLOLJS V=(FITR(YJ/100)-1)*6+FITR((XJ-200)/100)?ML-LTS Z=FITR((V-1)/6);S XC=(V-Z*6)*100+250;S YC=Z*100+150?MMINJF XG=300,100,900;S Z=FDIS(0,XG,100)+FDIS(1,XG,700)?MU?NOF YG=100,100,700;S Z=FDIS(0,300,YG)+FDIS(1,900,YG)?MM4RTF X=0,.2,3.141592;D 9.4?MV R^R?MM>TJD 2.1?MNVTTT !!!!!!!!!!"?YY O U A R E O U T? "!!?MN$TUT " ?YO F? "!!?MN6TVT "?YA M M U N I T I O N? "!!?MOITWT "?YA N D L U C K .....? "!!?MOT^T !!!!"HERE IS HOW THE"!" HARBOR LOOKS:";D 12?MO2T(S Z=FOUT(1);F Z=1,30;T !?MPHT-A "WOULD YOU LIKE TO "!"PLAY AGAIN "Z?MPVT2I (Z-0YES)10.51,,10.51?MPZT3Q?MP VJD 2.1?MP?VTT !!!!!!!!!"?YY O U D I D I T................? "!!!?MQ V^T "?YY O U S A N K A L L T H E S H I P S ! ! !? "!!!?MQ*V(T !!!;G 10.45?MQ6XJD 7;F R=1,36;D 13?MRDZJI (M(R))13.3,13.2,13.5?MWPZTR?MRLZR?MR Z(S XC=XC-23;S YC=YC-5;S Z=FDIS(0,XC,YC);T "MISS"?MXCZ-R?MR/Z<R?MR<^AS X=FDIS(1,575,200)?MS!^BS X=FDIS(1,625,150)+FDIS(1,800,150)+FDIS(1,850,200)+FDIS(1,575,200)?MT ^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]QDTT !!!!!!" ?YW E L C O M E T O T H E G A M E O F"?MB6FVT " USA";D 15;T !!?MC0F>I ((M((Q-1)*6+J)+M((Q-1)* +J+1)+M(Q*6+J)+M(Q*6+J+1))-4)3.7,3.25?MUUF<S J=J+1?M]PJS Z=FDIS(0,XJ-7,YJ-7)+FDIS(1,XJ+7,YJ+7)+FDIS(0,XJ-7,YJ+7)?MX:R(S Z=FDIS(0,XC+50*FCOS(X),YC+50*FSIN(X));G 9.5?MRHZ S Z=FDIS(0,XC,YC)+FOUT(159);T "?YH I T"?MV9Z^S V=R;D 6.2;I (M(R)+1)13.4;S XC=XC-30;S Y =YC-10?MR+Z4S Z=FDIS(0,XC,YC)+FOUT(159);T "?YS H I P"?MW+Z2S V=R;D 6.2;S XC=XC-42;S YC=YC-10?MUEFUT !!!!!!!"PLEASE WAIT WHILE THE ENEMY SHIPS MOVE INTO POSITION"?MM8R2S Z=FDIS(1,XC-50*FCOS(X),YC-50*FSIN(X))?MY!BAC BTLSHP BY TOM KLOOS?MY7BBC OMSI S FTWARE DEVELOPMENT GROUP?MZGBCC LAST CHANGE: 8/1/71?MZ+BDC ***** TEKTRONIX T-4002 TERMINAL AND JOYSTICK REQUIRED *****?MZ.BE?M[NBFC YOU HAVE 20 SHOTS TO SINK 3 SHIPS. GUIDE THE CURSOR?M[1BGC TO THE SQUARE YOU CHOOSE AND HIT THE SPACE BAR. TO MAKE ROOM?M\IBHC FOR THE PROGRAM, GROUP 1 WILL BE ERASED.?M\]BKI ((/2)-FITR(/2)) 1.12,1.14,1.12?M\2BLT "YOU DO NOT HAVE ENOUGH FEATURES."?M]GBMT "RESTART FOCAL WITH FEATURE 1.";Q?MBTBNO I ERASE;E 1?MB/DYT "?Y B A T T L E S H I P S"?MM%PTS Z=FDIS(1,XJ+7, J-7)?MM?L S BTLSHP?M?MA T Note: Lines longer than 256 characters were wrapped