?>2CBXHSDH.HUNH$A$SC$"K*"KG8"+*$2GN$:C<%\MH%;A>&IC<&IIL&IMH&MQD&1J &1L^ QA> QC< WCR AT L^ !C< 9L^HFBGC<9K=C=HK9K8.22C 7.:2C 6.>[E$Y(2B/B$U^K?>(SI; HSXS/I79H(JH74H,I87/H,I8U*7*H.I7B(7%H/L%7 H1N+B>7[H1OB7VH1OBU*7DH1OBF+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(*7KTXS+UKRSR ;8![S$U^KS/RXS.$U^$\*6*//>OO8F?/>KO8A[$Z/>OOC?K: OOOC9K8 O/7A&3 JFL0A>3"JFL1P 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> *ZWHS[%HS[&$U^$\*S":?;RVRW*Q":D?9S$K=ZVKZP"/*&2B =*&K *$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 ZPRPZA2C.D2AO=2IK " 2AO:2I>(,P2C 9" ,P2AW82I$],E. "DP<"DJVN+R+[LHS[[ST?< S>(*:K7$!TD?:K6XSJ+G:K5$!TJ?>KXS.+$UK4<(/JSJK3/JOTSTXSOTST["J/T$!SSS"+[/TMKEP7MMMH2U*7JMMH2VT6!MMH2V>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:/U3:NELCNF35N!LA"]:&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$^*3$Y)A(W*6$Z(W*/$],U$[(WK6$!+EK5$!$],$[($],2K42A <2I$ $],RO;?H+UK9$! 8($],^K3 2/:$W$X()$],6$ $]-AHT 2/:K6<(+WIX$&;X+WHIX$&/S?:-4I\+NQX;BIBMB$!O=8D?*Z$[ 1K<$!*\$]-MK;2A :2I$ $]-P$[(WO9?H*3K8$!O78D?H*1$Y( :$[ :K>$!$[(WO6?*<$]-WK<$!K5 4 3(W/2$W 1+S$W$X()+S$W 0O/> +SK. /K- ,$].5$[(]K<$!$ $],RHT 4/2?H+5H9IX$ HWIHX> K?%WH[I(^KDS(]YQ\LKOD+NX W 9B, S $]BM 0B?* O>8D?H*\$Y( :K=$!$[ :O +IK&$\* *!;$HSXS$Z(W*:$[(W$]-*:$]-&$]-(;$HS 7+L$]-* 6.$W"K5 4 3N&PUZ 32LD+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$],4/ZMBX]/ >& +,FI ?: ? >*I ?$X()*I ?Q$],6$ $]-.$[(]*X$]-8$[($]-?*Z$].A$]-(K=[OK<[PK;KP[POP?+HOPC:<(*0XQK9$!HQ$!*5KP8AZ4$[OP8D?*;K8$!OP8F?+A$]-6K7$!KOK6$!$]-(SO* $]-*HT 5/4$X()$^$!O=8D?*Z$[ 1K<$!*\$]-MK;2A :2I$ $].OO9?H*5$]-(O88D?H*/$Y( : 7 :K>$!$[(W$].R$[(WO9?H+CO6?+CK5$!$[ :K>$!$[(WK<$!K4 3 2(W/1[ 0NK/ . -HT 3$W$]/A 0N&2AO,2IK+XPLP$]K*$!/[K8XUK7B B +W!N:OT"LDLKOD+NSCB, "WZ 9 S $]BM 0B?*O$].)O=?*T$].+$]-(O<8D?*^$[(M$]- O;?*,O;8D?H*($Y( :$[ :$].-O:?H*7 9(W*7$[(W$]-(*/$^ +NK6 7K5 4$Y(C(]$[(]K3$!.$Y)S(] 2+Q$W"K1 0 /N&*5M [:I^XO[6LO>(+0;&M^8!HOLD+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=3HYH H(H(H(=F=R=Q=T=3FZF^F1F1F1L P*RXGU [Q[NP[NL)L)L)L).8.>O(:PHN*P+F3B????P0P0P0P0P0P0P0P0,:SHB88B.B F>!I>C\6AB$BJBM>E?AC^B">&G8???0/G <%E DHGD,= =DI?P&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 /.-3*NHUX[P -3HV*V0!+V0"2KH*]0H+]/H,. J0[6XRZA B>OO>PTAQU>>E(D>$=??K? >K= (* KK 7KL 6K1 42AK0 >K/ (K*K)2K (O C&>(*2K% $K "K!*7K $K "K^ ]O] \K[ Z Y2AX-; X.OX WKVXKKUX^;&X X/T+E*XHZXQH W?PZB6N:OT"+NTXGU RSJ+O][+MZB>%CB(/FP>$ U!5 & 6.XH>\D.^XPP<$! W$S!8$U )$Z 9 ?/>LJXUHJXIK=XYX%XXLJXZK(-3I HOXZ;VX^K7%Q9F8FA5LZ\Z2AH IP<(%)2CN5JB0I=GO?0?;P7HE>K?P".$SH7X"P.*7P,*3">K>XYK=XJ6:*<">C696\\JPY*U69* 6<*(6XYK *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+(+WIXPT+2IB$6XTHU?)L]\;R?BG?=A??6O<[??XB?LJXVLJXWK?XHK>XYX!K=XZLHP!9D *VPY*YH!K=? *&; X-2K/: +HK7X[LJ< *=P[*7+FK:> +FHYK9> K6K5XYK4XJ :K3$R/ OLUOLSLA%> +M,???XPHP8J8J8J HP /UA%<(/ H>A%H>7/ HUUHVUHWUHX>(/(H=B \G 6?0? P GLNL$?4? *HK>$R*MLY9J8J8J"QLY"QPY*HC=<(.K<<(K;=HK:K9$R.QK8XR"K7XR.]$SL7H%8 XYK6XIPY(*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 P/:$SO$[&K9C&K8>(+$R*K&8F8FC99D[ K 8FK [ K&8F8DC7<(+J9DS +K 9HK6[ O +K=K2+$$P.*GS2+$/ BIXO8? T?8?9GFB BMC?=? P * Z); HKZ*J)8F8FCDN*^*R*J)8J8J8HCDN*^*P^*$$/"X(6RZK?XKK>X^RW=R;&X .\K.[VKV" .+K;*,X!X$X%2K/:P-+AK9XY :K8"+B(++L]86+> =?B>E?)R>O?0?B6Z\,LBJ=3B7>W?K?XHK>XYX]HX\K=XR"$K( :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,Y.G;XSD>H*6;&JGZG =?B>E?)^=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 1 ]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"]K?9H>X"H;$S/6M&J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2J2 Note: Lines longer than 256 characters were wrapped