Directory of image this file is from
This file as a plain text file
?>2CBXHS *H.RLDODDHE \*E$NOX/I</H<H<4/ *H$8 DSXAE DH.HUNH$A$SC$<FDRHTANDH. <FDT<P*$FLL<?H?(.D/<DHPEPOHPJHOHPM\SHPDLEHKPLDOHDPR8UP 5B"B"BBZK?< K>K=C<Z\HRPR9HNRZ"<X*WJ\9F8F8FZ\N"C<*YN"C;J\^".J\Z"HSPS*9HN"R"Z\N\<X*-8J8J8JC<"2XQHQ."K:<(K>=HK9K8.22C 7.:2C 6.>[E$Y(2B/B$U^K?>(SI; HSXS/I"C$CQIP!PC!CKJZ]$F+ /B A?!??C >.=3?X8BO(??ABSLDRSV0M?;CCLSVB\BJSDJHL+F4NCILAN;B>?-BOOTSV0M?;CREFSV0M?3SRCCOMSV0M?;FOTPSV0M?8RESORCSV0M?6PIP10SV0M?/MCPIPSV0M?3LOADERSV0M?4RXCOPYSV0M?:EDITSV0M?6TDFRMTSV0M?7DTCOPYSV0M?;CAMPSV0M?3EPICSV0M?2SABRSV0M?(TDCOPYK?< K>K=C<Z\HRPR9HNRZ"<X*WJ\9F8F8 Z\N"C<*YN"C;J\^".J\Z"HSPS*9HN"R"Z\N\<X*-8J8J8JC<"2XQHQ."K:<(K>=HK9K8.22C 7.:2C 6.>[E$Y(2B/B$U^K?>(SI; HSXS/IERHL0M??BITMAPHL0M??EDITHL0M?=CREFHL0M??TC08SYBN0M??TC08NSBN0M?>J\F+F/B A?!??C >.=3N[NONSN<(*L[OOOC? O*CXS$U^$\*8*3*MHS[PN[NKPXSONSN<(/>[OOO8F?HK=KO8A[DOO8H8JC<8 [Q[R> *WSQ*,HS[TOOC<8 [QSQ<H+U>(*7KTXS+UKRSR ;8![S$U^KS/RXS.$U^$\*6*//>OO8F?/>KO8A[$Z/>OOC?K: OOOC9K8 O/7BN0M?>RX01NSBN0M??FC ?PB"GFFO?O?"$+ ; O?"I; O?/>XRHRZ$; HSXS$U^$\*8+E$U^K=>(*^HQ$V^*UK<$V^J$XS.IXSN$R$$]$U^$\*7+GHQ$!*)K<$!.$[HN4R4[IN4R4[JOISISJ=+FKH> *<OJZ4:.4UFBN,M?<BUILDHL)%?>PAL8HL)%?=ODTHL)%?=SRCCOMHL)%?>TECOHL)%??FORTHL)%??U;D< +B>6J\BM=3DLEPNZE$Y()NR[";$[$K?ZVK>ZWHS[ HS[&$U^$\*S":?;RVRW*Q":D?9S$K=ZVK<ZW*QS$*.":J?=*1":D?9R*7:K% ;+*K% :.N:R:XRN:R:[)HQ8![ HQK9[(K&XS$U^K <(.:K(= *3K8=+ZK7= *3K6=H*3:S)+ ; [)+IHQ$V+IRL0M?=[DSV,M? UFIHY<&FIF$*<+B*:+NRZPNRZQK?ZRNP^QRPRQRR*I.XR >ZP"/*&2B =*&K<Z. ;> *$R.*^*W2A :2IK9$V^K9$!XS.SK8Z. ;<(+!K7<(+JK62B 5+GZJ$!J$V^HRK4?+QR.*2./R/ZP$],GK3$!./$]+:2B =*& ;Z.K2B.>(+SK1B.> +S*$RP+GJP8 ZPRP<H/K0$!+ TR:!TRB =?BBI8BN*C?=? BM,B:?8HE[[?:.ALK2C/?NDZDK>ZA2C.D2AO=2IK<XPLPXP2AO;2I> " 2AO:2I>(,P2C 9" ,P2AW82I$],E. "DP<"DJVN+R+[LHS[[ T?<KS>(*:K7$!TD?:K6XSJ+G:K5$!TJ?>KXS.+$UK4<(/JSJK3/JOTSTXSOTST["J/T$!SSS"+[/TS(*T<HRGRGK 748H<B.G2BDBDHO+C=B.JB:"L$%$+K!LKN&< *ENRXPLP9J8J8J"OLP"OPP*FC?<(. >$!.OK=2A <;& ;R:J: :;A 9K8 72INVZ($Y)MNVRVZ7K6XR2B 5K42A 72I.V$V2C.5K3= +BK2=R;:.;KT[RKTK1<(/DK0[TOD[QSD$Y/D"OUSU[KTK/=H+%K.[TKT["$YSU:/U8A%U\OHO]P: M!"]:&2YTI=GP+R$GRF ]\YH PB2?$W$X&,$^*I$Y(;(W*L$Z(W*E$],I$[(W$],NO??K>K=2A <2I$ $],RO;?H/:K9$! 8(K7$!$[(WK6$!/:$W$X&0$^*7$Y)A(W$],U$[(W*>$Z(W*/$],U$],9K6$!+IK5$!$],$[($],2K42A <2I$ $],R$],X$],4$[(W$],"O;?H+!K9$! 8($],^K3 2/:$W$X()$],>$ $]-IHT 2/:-4I\+NQ$;BIBMB<WZB*LK S $]?^ N$W$X&2$^*H ?(W*K$Z(W*E$],I$[(WK>$!O=8D?*Z$[ 1K<$!*\$]-UK;2A :2I$ $]-X$[(WO9?H*3K8$!O78D?H*1$Y( :$[ :K>$!$[(WO6?*<$]- K<$!K5 4 3(W/2$W 1+S$W$X()+S$W 0O/> +SK. /K- ,$].=$[(]K<$!$ $],RHT 4/2+7H:IX$(HWHHX> K?%WH\HM (^KDS(]YQ\LKOD+NX W 9B, S $]BM 0B<NV$X&7$]-!O?8D?*M$Y(C(]*P$Y)G(]$[(]O>?* O>8D?H*\$Y( :K=$!$[ :O<?*%$]-4$]-&O;8D?*/$[(M$]-(O:?H*: 9(W*:$[(W$]-+*2$^<H+\$U^[&$U^K8> +IK&$\* *!;$HSXS$Z(W*:$[(W$]-+*:$]-.$]-0;$HS 7+L$]-2 6.$W"K5 4 3N& ;LI9!HP> +7LI9!HQ> +7LILD+NXCN:FI=COU Z(L ^B, 9(BK?[WK>XO\OSW*E$W$U^$\*8**I; HS[Y$U^$ *KHQK=8![WKW8!9D8FKWK<[W$U^$\*&*)*KOWC;K: W*!OWC9K8 W*!HS[V$U^$ *>HQ[X$U^$\*7*,KVXSOWC7 WKW8A[G$Z+MOWC6K5 WKY 4*IOWC7KX W+I.OZSZ[ $[O K3> /ZS O K2> /Z$],</Z*NHZ =>X <; +,FI ?<H7?P/?)Y=P)X>: ? >*I ?$X()*I ?Q$],>$ $]-6$[(]*X$].$[($].G*Z$].I$]-0K=[OK<[PK;KP[POP?+HOPC:<(*0XQK9$!HQ$!*5KP8AZ4$[OP8D?*;K8$!OP8F?+A$]->K7$!KOK6$!$]-0SO* $]-2HT 5/4$X()$^<H+[$Z(]+[/Q$].M 3N&1011121314151617181920212223242526272829LDLK+NB:B/B<B=C?G)R?6TV$W$X&=$^*H ?(W*K$Z(W*E$],I$[(WK>$!O=8D?*Z$[ 1K<$!*\$]-UK;2A :2I$ $].WO9?H*5$]-0O88D?H*/$Y( : 7 :K>$!$[(W$].Z$[(WO9?H+CO6?+CK5$!$[ :K>$!$[(WK<$!K4 3 2(W/1[ 0NK/ . -HT 3$W$]/I 0N&2AO,2IK+XPLP$]K*$!/[B +W!N:OT"LDLKOD+NSCB, "WZ 9 S $]BM 0B<NV$X B$]. O??*J$]./O>?*O$].1O=?*T$].3$]-0O<8D?*^$[(M$]-(O;?*,O;8D?H*($Y( :$[ :$].5O:?H*7 9(W*7$[(W$]-0*/$^<H+A$Z(W$[(W$]-0*7$].8O88D?+VO7> +NK6 7K5 4$Y(C(]$[(]K3$!.$Y)S(] 2+Q$W"K1 0 /N&]"?<?A%.%N2I2B&K >O<B2B.JLD+NSFN:BM(DKDS(C(BOU Z 9(L - ) % J N S S 0 S 9 W(B 9(L Z ^ 0 S 9 " % ) -(B 9(L ZDBASICFFORTRANSNOLISTCRALFSNOAUTOKSSYMBJSABRKINPUTSOUTPUTPTWOHBSRCHCLISTHKIMAGEHTLIBRARYTTYLPTDECKBATPROGLDFILDSKPROG<4<1UTUVVOWU<2<==CV V,V1WPWPWPE[E)E)E)DSEK=C=T=Q= HYH H(H(H(=F=R=Q=T=3FZF^F1F1F1L P*RXGU [Q[NP[NL)L)L)L)//D// /W/Z/]/T?INVALID OPTION: /?INVALID FILE SPECIFICATION - ? BCL LINE TOO LONG ? $.R PIP *<BAT: $EOD .R PIP *PROG.BA<<PROG.BA FILE 3:"DATA.DA"\FILEV 4:"" PROG.BA,BAT:,/T.R PIP *DATA.DA<BAT: $EOD .R BCOMP *PROG.BA BAT: $EOD .R F4 */F.R LOAD *< */L */C */O *$ /S$EOD .R FRTS */C *DATA.DA/4 */5 */5=4?NO PROGRAM TO RUN $EOD .R FORT *.R LOADER *.R LOADER *GENIOX/I/O/H</M *$ .SAVE .RUN $BASIC$FORTRAN.R FOTP *FIL???.*/D $EOD$JOB$MSG$DECK$LOAD$RUN =4&: =43 =3= =3=8S8>>O:???R&0)1=T,*,;L,Y(AZA?C:H+X[%SYSTEM?;OL=LHN*P+F3B????P0P0P0P0P0P0P0P0,:SHBJBMDCH?CXCFE4O%EWCN9<D><C<B<ANH<EVBG?/?4?2[?1?0?.?=?%N5H?$IKC8HAF%MZSVF)N%<HG3NF N-F>I3? JKWC3G?I6>GB.D??:?&<??6?>=RB = \8P&<H*F2J ?H; X&2J$TEK>XH2IO=C<> (1LH<(;VX LH<((9X(LHX)LHX*LHX+K;Z6O: 92AJ6 8K7Z.H 2J$TATA(8J.X/H 2J$TC((72J$TIX&2IJ6 6H C5 4O32AC2<( 19F> K0K/X /.>(/FI3*H /F SX<H:OX< +U0!+],[XYHY8J8J8J*HY*/ A5<(/*D;"RTQ>>OO>PTAQU>>E(D>$=??K? >K= <K; :K9 82I 7 6K5 4O3C2>(* KK 7KL 6K1 42AK0 >K/ <K. :K- 82IO,C+>(K*K)2K (O C&>(*2K% $K "K!*7K $K "K^ ]O] \K[ Z Y2AX-; X.OX WKVXKKUX^;&X X/T+I*X$SETSK)0SQ5F>W?PZB6N:OT"+NTXGU RSJ+O][+MZB>%CB(/FP>$ U!5 & 6. H>\D.&XPQ$! W$S!8$U )$Z 9 ?/>LJXUHJXIK=XYX%XXLJXZK<Z9D8FHX9FXXK;Z<(*"$Q*"K:= *%K9=H*%K8\IP%PY*J/7$P* 2K 6. $R2K.+LJ2K./[2LK5[A2AN3R3[BKA BK.3C4RA>(*9Y<H+GR*/Y+Q:SX+GJ<H: 2A..D5??GNSW+!OV8J8J8J+%: [WOVSVC3ZBJBC)> : [XJB< SYC4/YH IP? 2CN5JB0I=GO?0?;P7HE>K?P".$SH7X"P.*7P,*3">K>XYK=XJ6:*<">C69<H*$6Y*U">6\\JPY*U69* 6<*(6<PY(3\JK=XJK>XYK<LJ> *3PY*-*7K=XJRE; X.; X,.EC*R[+K;[,.>0Y+K0\C:K9>(.AS+/CS,/C0XK8 7K6XY 50Y+!0\C:K9<(.A0XK4>(*7*M6:+UK>XYK=XJ*T0Y+(+W2I\LP!+.2C,=2I?)L]\;R?BG?=A??6O<[??X ?LJXVLJXWK?XHK>XYX!K=XZLHP!9D<X*ZPZ*LPY*I </;$P$R+ILH> *VPY*YH!K=? *&; X-2K/: <H H!XYLY<(*VXYHYK9<(*5K8> +HK7X[LJ< *=P[*7+FK:> +FHYK9> K6K5XYK4XJ :K3$R/;PP$S: XPHKX L $S: HK*ED\OWSW<(/WH\>(+!SW+XOWX , %1\KI3$SI0XOLO<(+T$S+*%A-/H4B \G 6?0? P GLNL$?4?<TLYC?> *HK>$R*MLY9J8J8J"QLY"QPY*HC=<(.K<<(K;=HK:K9$R.QK8XR"K7XR.]$SL7H%8 XYK6XIPY<H*2LI$R*,H%>(*7K5$R.$> +W: K.9DK/8D?X+FK.H>+VK.X!K/8!H.9X[.,;Z[/K.-8!H!=H,[.,T1*.%2FHK(A: 2I\?,+S(/%2HH??[(A/$V!AF+7K. >K0B \P+R?B A>.?!?BI?X$XYK?X[LJ<(*ZK><(*VK=$Q*QXZ"\HZ$RP[*DK<$R*&"\: X$*&PY*QHY8 XYPY<H.\K;$R* H"> P/:$SO$[&K9C&K8>(+$R*K&8F8FC99D[ K 8FK [ K&8F8DC7<(+J9DS <P+D> +K 9HK6[ O <X+T8J8J8JC5<(+YK;+$K&K4<(+!K3> +K=K2+$$P.*<D<?2?[2S3+%/!BIXO8? T?8?9GFB BMC?=? P * Z); HKZ*J)8F8FCDN*^*R*J)8J8J8HCDN*^*P^*$$/"X(6RZK?XKK>X^RW=R;&X .\K.[VKV"<H(5KVK<> .+K;*,X!X$X%2K/:P-+AK9XY :K8"+B<O78!JZ[VP&<H+O2J 6H; X&H 2J$TD(4KV8!8F8FC52IO4 42A/3.;LO<(+!X"HO[3P <H.;LO> +CLOH" 3;$R>O?0?B6Z\,LBJ=3B7>W?K?XHK>XYX]HX\K=XR"$K<XRK;XYH]>( :K9XY :/8;A2J$TB\((2JYZ;A 72J$TF$SR=LHXZX[H\HZ=H*1P[X\**:H[< *8H]>(*;P]K6$RPY* .$0&0!+AK5> .?K4+2A:H09DK3XHLHXYX0 :LHXY,YRKA0"XPCRK05RKB0"XQ CRK05RKA1"XR CRK05RKB1"XS C^=BJ=3B0?&BF\2L]\0P+R??< OBATCHSV $END NO CARDS IN ERROR LOAD MORE CARDS OR TYPE ^Z NO OUTPUT FILE SPECIFIED CAN T FETCH DEVICE HANDLER CAN T ENTER FILE OUTPUT ERROR FILE TOO BIG CAN T CLOSE FILE CARD IN READER BACKWARDS. TYPE SPACE TO CONTINUE. "BATCH.SV" NOT ON SYS: - CAN T CHAIN MSBAT - VERSION 2A ]IB]VB]$B]-B]4B];B^DI(^^>^1B0X>\?6??QRSTUVWXYP&),/258DL"%(+.147:^ZAF= N!$ *-0369\[CGE; ?<]KMJO>HIBDATACALLCLOSEDEFINECHAINDIMENSIONCHANGEENDCLOSE 4\ENDFILEGOSUBIFINPUTINPUT 3:LISTNEXTOLDPRINTPRINT 4:READRESTORERUNFORGOTOIF ENDLETLINPUTNEWONRANDOMOVERLAYREPLACEUNSAVEREMARKRETURNSAVESTOPCLOSE 4\STOPCOMMONASSIGNCOMPLEXBACKSPACECONTINUEBLOCK DA ADATACALLDEFINE FILEDOENDEQUIVALENCEFORMATGO TOINTEGERPAUSEREALREWINDSUBROUTINECDIMENSIONDOUBLE PRECISIONEND FILEEXTERNALFUNCTIONIFLOGICALREADRETURNSTOPWRITE E!L!P .!V!X!^!Z!*!A!E!5 L &!R 1 4 ^ 6 >!"!.!2!& ? U B!G I ! Q!I < $" ""*","/"6":">CGJNTU[$).35:=$A$D!?"C"G"L"R"W"]-F2AH%>(89Z ?2J >H/MAXACAFARAWABAG8HAHK5O(A$JD>EA^\ZYZS2\7\?BBB6B\B0B;CNKK <D= =D%D=DXL&??&L(QBF\BL8VJHA PB.?$JB2>D&$LJB1FJ0LB?F (LL0L IXJF2?(N,JC^\4O30LA3LGESRB B]DQEFY$L)PQAVV<QEF%)!QPQA!ZDQEF")!EPQA!Z DQEF %!9PQA!Z\DQEFXA!AA3?&A\CO*(!HLA\&A:XDJ" I LNA*Y OJ3!BB\BT2&A(IJ+!VJHABF)Q$AK< KLKE44 CO+ECNB Note: Lines longer than 256 characters were wrapped