-ACPMUG 4BMAZE OM MAZE OMMAZE OR!ML UBMLCOPY UBNUMBER AC RND OR> /o/g K(~@wq+p* }| " "*; ";͚DMq ̀ %!q͔`>/ 0(~W+++~ +g%2nd COMMON Larger * "";͓ %Vz"ɯ ~@~@w+:6~_q+ÿ:7=¼>͍ 6+p+q+6+r+s(!͔`0(%Mult. Def. GloV!~w:~w*: **yȷ* J~@*P"I*** ~ †::}G@ex xn?Command Erro~ #Ô~# ʞ ʞ`ڳ +!~G#~ ;x+#~0>*  :> :;!<o> " ";{_zW{_#"A"C>2628" 8P,A,! ~#foBK:6ʑ#:8=ʔ*;|q{v}{";*A|…}2 p#p#*C|ʢҬ§}Ҭ"C*=|ʺ҈¿}҈*ADM È:6:7=>͍ w+p+q#BW++ss#WDIR OM WDIR 80!"#XDIR OM$XDIR 80%&'(Z-LCTOUC )*[x-Ko% n[-Ks% nH[-Ku%ݐ nl[8*|!.u͑!͔0[BEGIN EXECUTION:ʸ! ~#¡͌*2>[ ">2͠*"͠}|<>] 0FORLIB REL  g6 > _! o?File Not Foun> > P/E LIB/S >2!w#—!1w!<>2 :_<2!~͞C?@2ԋx ( ;͞/> L6 #=Dy.̋xdq͞eʆ!~ †6R#6E#6Ly͞[ҩ0کAҥ:ҩÎO:6|(~_q#Vp»(͂ :8=>͍ :7=> G>/ +^+V+~ L/ ~@j>*2 ͠~+^+V͠0~<</O |}: )0 ) ´0 ±|}Gx0: go"92"9*?"=*"balů ~++5 #N+F@K :6] PYOG" |}(|(:6] #q+p(:6ʶ͂ ͭ (͂ >͍ :7=p >w+r+s+6+r+s(:7= 25 |ʦ ͏ ^#Vͫ Қ :7=25 ͏ ~s#_~rWͫ һ :8=*A DM*="E! ~#4 ʹ6+wYW|*|;-!"]ͩ*"]̀P|Ͳ[* W:;>#ʗ|U:;:;HXDPD(EFAʔIʔGLʔ*W~K-ʼ',D/D)ʳg=TD#ʊPŠDK>.ʹ[K—>U>2Ͳ:<>'><2oD>w?*"*Wq~X~X+++:G~X~X+V+^* X##*YW":2!"*"*YW""ͼk: :=ʭ2:ڜ= =**""=:҆*;*"*;:====*=7*͗>"?"**!"*++F+N+"E* 25͏ ~s#_~rWͫ  V+^++F+N+"E՟25͏ T ͏ r+s^#Vͫ L Fr#Nsp+qF+N++V+^+* DM~_q+Vp~_q#à :5 DM*A * {OzG*?*Eø ##|¿ } #y¶ #x· #~¸ :5 ~@w"E25}7>25*;DM*Aͳ `2G~*### |2oɷ222Ggo"wʤ=¶:ʶ:ʪ* W:WͲu>i!:H"*#"@A ">2=2?C *"*W=ͻK*"=?m::; ]v %2G C C2GC:¹[V>͐K*"w*#s#r#">͐K*"###":W2:=w**YW*### ~k2F*">ͽ*"2F:=:*"ͽ::2*###*YW" ʕҕ*###~@wڕ Ҭ!~#>2Û*^ځ""`i"** xG ɯ27  7 & y  ? h  y h  ! wU 4#6 _g w#Y !t " O<27 X P̜ O! N#F :6ʨ ( (ff ff  :6 ͓ *"(> f+^+V" (:728=(?*,*]"]:.2àP*++++F+N*ps#r`i"p̀P***]"0*p"2** :.=k>2.*";!",*]*0YW"]|*,*0YW"0ͽ[*]*2+~+DM~+ngʮ `ir+s*2*p"2"p>2àP"p"2y~#d<2DM*ͅ>"*+"|**YW**^ *"|*"!"*|!:R2|Ͳ[!"G!!"*:ʪ#:ʠ!ʠ}<ͮ "**"*]**YW",*|* *,|:;,x`O:ʹ l*":a2.:a=*C͚"A z { `i"C*;*A͚l*C*;DM*Aͳ ͚{OzG*; "C` DM*Aq `i"A*C*=͚l|{ } q *A͚2 /O*= "=*C͚گ *A DM :8=yoxg"9:8= *9!"9 *A{OzGDM7MMM$D<2*|!`go"w*+"|P:V=2`O`:`O!R*|!Rf:;(ʆ,):Ҙ'L2>2!4:;(!G454:=C!":C Cx*"#"2GCa  *p;* ʁ~0+V+^^/|<*6|/~w>+++|<# /* /*`i /)*YWڦ~7+V+^;:*s:aʡ*]ͽ[+DM*p:a=ȯgoɯ!;:ʶ7:aʡ*]:No&Ñ*":q* X: ;= :=!+~:6(*A (*G*I|G}_ ~OL  L A+++K +: ~S y/O   Ow+w+w+w+ o  w+w+"I7 - l :6ȯ26*A*;" ͚ʲ 2 *?*=| }~ _ +! ^#V+++ö V+^+* N#F r+sV+^@P>?>%P!Ͳ:'*[,-!Ͳ> P!b(?d!$:P!U#~ V~ jP#]@P2ڢ*#"**w"*" -L:; ZÔ*P#"P!>~#Pɯ>͐K*#|+* ;G:G:F*w*+r+s+"YW~xw# x "!"*y;:=*{;>2T>͘@>͞>*y;:<>>:=ʀ>͘@>G͞>*y;>2qD>͞>>x͞>:=[*y;-E>͞>*{;>2=͘@>*]|ʻ:>2ÀP> ͐K**w"YWDM! "*"+w+x#"wTBF7`N&> RELs$%&'()*+,-./012rMooMMio;=ª>>͞>:>>͞>>>͞>:>>͞>>͞>qD>͞>>{͞>>͞>>z͞>>͞>>*"]>2a=2!8E*w*YWDM!"w*":=x'><DDGgo|>OGT])))0_'y#*"*W|>ï$#!"ͥG:!:*"""ê$ͫF2ù :>\@͆$ͼͥG>͞>>2:;,:ʪ$ù ͥG2go9"2|>(ʹ[:!:Z*$ʇ:;,'?!"$*$)"%*$*%s#r*$#"$*$"$!"$ø(*$*${ozg}‡(*$*${ozg}w(!"$!"$Î(!"$*$#"$Î(*$#"$*$)"%*$!28*%~#fo}6(*$+}S,*$)"%*$!28*%~#fo}S,*$+}`O:;,"|" ?"|2" 2"*&#|/"tͥGDNͅ ù s>2ok‰">(ʹ[**YWxn"~w+++ \"*&"**YW"&> ͽD"ʖ"=ʸ"s:;=G#̓#:;,D"*&#|W#"":;(<#:a6#}<:G:6#O!.#*:* " #>2* #y# 6> :*#>2>2:2a2*"*"*"*""̀P;>2̀P;>*ͼ|!5:ʀ<2ÂZ5ͥGP:!*"ͭ[:!*"ͭ[:!*"ê$:=¾ͬK 'y:=ͬK'y |ѯ{|+to44(1X,26A3)44(3X,26A3)?%C%!4j9?e%k%!4g9i%!4>!9?o%s%!4j9?}%%!4g9$!4>!9?*$"$*$+}§&*$+}§&%%!4j9?F&%%!4j9?!"%!"%*%)"%*%!28*%"%"%!*%s#r*%'"%!*%s#rw|:!~ /2:E !5 !1 !~ʗ m 5 = !>w1 4 = =>%! = 1 !"." Ҵ >2!4*":-?:o:g"%!""%!~w+ **"**}o`O:ͭ[y$qD:# 2GCͅ :80?:Pͯ+!Ͳ>*2+V+^+;:80k:Pͯ+!Ͳq,YE=gH*2:¹ 2<<ï$~ D DB2OA2!:T"!? ~4Ag:=Ao">2>2?2>2aÀP!N#Fͅ !| w+|:80 :P2!: $:$͌$$@s#r#:<29$:;,$`O; |c$0C$!w+|g$S$n2>2>2?͌$:=ͣ$|$k=ʘ$==Ÿ$:==͌$ʟ$>2<2ZXIllegal Statement NumbeStatement Unrecognizable or MisspelleIllegal Stat"6 #"6y*#"*"2(Ü#!(6ä"ͽ[á"'L!(6Þ"*&#|T#t *"DM*&*YW+Vp+^q"&>ͽ`O!(6ä":(#:2(*"##2(>ͽ;>ý!Š#*# ʬ#Ê#:(*!6$+6I+0w>2>2?ͼ>2(;*2>(ʹ[:a0_:<!!~wA77>'ʹ[|ͣ$:=m>!V6 #=Qɯ2<<ï$kiw?:ɯ222og"" 2|vOG:¬2<2>2y.8: y'2=2>2:j:y+d-dxYyZX"|'*%#>5>&*%#>>&!"$!"$*$#"$!i%zM*$B7!S6!%E!%Ϳ4"$!"%*%*${ozg}ˆ'*%))$"%!/%E*%Eà'*%))$"%!3%E*%E*%#*${zQ'*$))$"%!3%E*%E%%!4j9!"%*%))$"%*%!4>'9*%#*${z|g"!~w# !=!! !!~w+-! '!@$:aU!:ao͌$;E*R"("&"!:;,‘!#!@$ͩÎ!a˜$*;E:;,!>&!{!!;"@$"&Ö!@$"(Ö!*(8E*&8E*DMyE! ͅ 2!|2("#"&ͯ+> P!+~>PYê$! |w+.:; Ͳ[*"8*a"]##>2àP:;,Q"`O26:o:; ʆaڝ{ҝ 2;Aڧ[ڸ0ڱ:ڵ<7=:;G!o~6x̬K!^4!~ 2;:>/kOC!6 ement CompletioIllegal DO NestinIllegal Data !-- ! I 44(///,' RANDOM NUMBER (5 DIGITS) ')44st(I5)44(' SIZE ')44(I2)44('GIVE ME SOMETHING I CAN WORK WITH!!')44(//)anInvalid State44('1',2X,26A3)Variable NamIllegal Logical Form Opera2*}*|":-*̗>":Y\2o->\|v >2:±<2o:;N2>&!kʕ!p>22>2=2<2|Y|.ʂxyH±2>2=2*}*|":-\m\!4|!~w:;0*|*"2<2<2\2o!6yI3O35>2!y`w+|>$>>2=:u2Ì:2;2oY!6!4:!!"":;02 Ґ >2Ðx :;E>2:`Wh|-+2o:|Q|.> 22>**$)"%*$!28*%~#fo}†**$*${ozg}š)*$)"%*$!28*%~#fo}š)!i%zM!B7!S6!%E!%Ϳ4"$G8/00*$*${ozg})*$+}G*!"$)*$)"%*$!28*%~#fo}G*!i%zM!FFy/!pM~8#~+~+~+LUX)!"qMܴ8Ï8 9'88|c8c8^8)+~#foo)#^8zʋ8zB8|G||8F8DajSX@8JS\E!qM8/))8 =8go"nM"pM!pM~7w?8*%'"%!*%s#r*$#"$*$*$8#"%*$*%{ozg}2ø(!"$*$)"%*$!28*%'~#fo}©2*$)"%*$!28*%'"%!*%s#r!"$2*$)"%*$!28*%'"%!*%s#r!"$!"$!"$Î(6(!"%!7%E!$E!"%~#fo}P,!i%zM!B7!S6!%E!%Ϳ4"$+}/*$++}o1Ý/*$+}Z.*$)"%*$!28*%~#fo}Z.*$*${ozg}¼-*$)"%*$!28*%~#fo}¼-*$*${ozg}-*$+}}-!"$ÿ{(qnz 9EN7.6N7 9~#E=xK7E_69698\6EF:qMEo6/<8F8gF!nM6~_#~W#~OқE#4ʊE. GÛEG~_#~W#~Oܴ8Ï898þ6EF>O_67> 2L!PA"L!US"L!E "L> 2L>2lM!L"L͌DfB:LTʁLozg}2!"$ø(*$)"%*$!28*%"%*$*%s#r*$#"$*$)"%*$!28*%"%!*%s#r*$+"$*$*$8#"%*$*%{ozg}2!"$ø(*$)"%*$!28*%"%"%*$*%s#r*$#"$*%'~#fo}1*$)"%*$!28*B7!S6!%E!%Ϳ4"$+}/*$++}0*$+++}o1!i%zM!B7!S6!%E!%Ϳ4"$+}/*$++}0*$*${ozg}µ+*$)"%*$!28*%~#fo}µ+*$*${ozg}**$+}v+!"$%+*$)""4*%))$"%!3%E*%E:4*%))$"%!/%E*%E*%#*${z3*$))$"%!3%E*%E&&!4j9!"%*%))$"%*%!4>'9*%#*${zq4?*%#*${z27 !nME>44DF5E!rM69g>F|Ժ8>4ak*%)"%*%!28*%'~#fo++}F3*%))$"%!;%E*%E^3*%))$"%!7%E*%E*%#*${z2&&!4j9!"%*%))$"%*%!4>'9*%#*${z}3?!"%*%)"%*%!28*%'~#fo}"4*%)"%*%!28*%'~#fo++},-*$)"%*$!28*%~#fo}}-!i%zM!B7!S6!%E!%Ϳ4"$+}0*$++}¥0*$+++}o1!i%zM!B7!S6!%E!%Ϳ4"$+}0*$++}¥0*$*${ozg}-*$+}W.!"$.*$)"%*$!28L~#77> 2L!ST"L!OP"L! "L> 2L>2lM!L"L͌DÁL98K7EEF͠7y+F+F+Fw`h|ʘ7gy|7:nMO|g}oxG-|p7}k7Ï8ElaOj7!qM~Gx7ƀ8w8w+ɷE8Ex{E!rM69wg7z7 >F|ԭE{>2qM͏8/1*$)"%*$!28*%'"%!*%s#r*$#"$*$*$8#"%*$*%{ozg}2S,*$+}I2*$)"%*$!28*%"%"%*$*%s#r*$#"$*%'~#fo}1*$)"%*$!28*%'"%!*%s#r2*$)"%*$!2ͼ%*$!28*%~#fo}v+!i%zM!B7!S6!%E!%Ϳ4"$+}/*$++}¥0*$+++}o1!i%zM!B7!S6!%E!%Ϳ4"$+}/*$++}¥0*$*${ozg}+*$+}P,!"$,*$)"%*$!28*%ET57T5FEb5Fj5 92577|E>5!T5O5 95N7q5>O!qM~+>wFQYE8F:qMҨ5hڠ5 97Ɓʨ586!5.6JR7QYEF8ÊE|Yt&wz^Pc|u~r1E5D>2qM!5.6 9og'8_6 }}B7!S6!%E!%Ϳ4"$+}¥0*$++}o1å0*$*${ozg}m/*$+}š/!"$×/*$)"%*$!28*%~#fo}š/o12*$)"%*$!28*%"%"%*$*%s#r*$#"$*%%"%!*%s#r*$+"$*$*$8#"&*$*&{*%~#fo}W.!i%zM!B7!S6!%E!%Ϳ4"$+}0*$++}o10*$*${ozg};/*$)"%*$!28*%~#fo};/*$*${ozg}.*$+}8/!"$@0*$)"%*$!28*%~#fo}8/!i%zM!##wy7O*nM*pM"pM"nM>09>09>2RM+G?G~#fo"7M?G"L*7M"L:kM[9:A9BA9D>2WM~#fo"lM~#+€9!"DM!FM>G*FM~#š9!"FM*HM~#©9!"HM2XM2iM2kM2eM2MMgo"JM"L*DM|!L"L9jB*JM"YM(AD2L2L<2kM:WM>î?D*SM*UM:lM_!G6!wJ"LG! w#HJ<9Hw*!G:lMO s#r!Gr+s6#Gw#iH:lMG 1wx ڂH0#w> #w#Gw#ŽH">wT] 6GG6H.JGJG@īHGGG aJ6*L*L&Hw#HB*L+"L|B:iM¬A*cM|B+"cM:L2L2fM2L2Lgo"SM"UM:9M!LMw:WMNB4*aM:RMG*LSM~#XB"LJBî?2Lgo"SM*JM*DM~# {B-’BL {B"JM2jMG0B ҴB*SMT])))_pB*SM|¿B#x:LBo>g"SM|x*SM*UMxLCZUFajSXjB"cMC,B/ʬA)yA:L!eM2L<+<-/<2L@:L_! F{0G@}0G@:RM>C:LG!L:eMwZ<;2L:L2L:Ls<2L!Lw~@:L/<*PM"NM!"PMY@!L4<*NM"PMY@Ý<:RM>C:L;!L/<;w!9M~w2LM!eM~w<2MMF<2eM2MM>2LM @<*JM*DMDM*cM;=#V#N#F#xyF:qM:pM7*SM*UM"nMOGgo"pM"UM>2mM͟FsF:mM=2mMWF͟FsF͟F͟F8F*pM)oyg"SMnF*UM#"UM!L4*nM*pM}o|g"pM>G>O*UM>o>g"UM)*pM}o|g"pMxGyO*UM}o|g"UM|/G}/O!>F F7>{_zW}o|g=F|g}oGCZQ>î?*SM*UM|;@"@+@4@ejSX;@;@ch|P@{_zW}o|g<@"UM"SMx!L5j@:NM*@!PM50@*LF#"L@!9M~!fM!L2NMʜ@@2L/@:fM-@!L5@.@Y@å@D @!NM5½@Ü@:L!L@^4*Lp!LM5@D:MM:cMBA!XM~;=: :> ZUlg9:L/<+:+:ZUl& =":2L:RM<:=<:Z"UM"SMCD:La:a: @=U:2L:SMG@*SM*UMZUl& "UM"SMb::WMʥ::LO:L2mM*L *L:y2L"L:LO>2mM*L*L :y2Lá::RMG:mM=;:WM::mM2L>ͮ?*L:>ͮ?:L2mM*LD=D+>2fM>w,D++~wD/W+~/_s#r>2fM7F@!L~w-DHDbE0DhD*SM*UMbE0D"SM"UM!L4/GB"UM"SM+,D2Lgo"SM"UM!L4>î?*cML|¥DڥDBD :LB @*cM+"cM|±DB:RMG:9M2L~#O*L:lM:L!=M+"L>2lM>2L!&E ^'APC:SM2eMB|#CD!"cM2CM!Cx2LMjBrCD}29M2Ly ڒC:jM.œCjB*SM}2L*JM+"JMADXH(AILEFGD<@9h>T?h>h>h>D=@F:>z?;;<<:RMG*LSMw#C"L*cM|BA!VM~|Dx2Lw:RM=+|<"cM"JMB*JM*DMF@*JM#"JM*cM+"cM|#=B!LM:LO5^=:Lc=*L ~ 2jM!Lq>U=> U=:CMIž=:L{=D*UM|ʇ=D:fMC*SM|/g}/o#"SMC>2L:L/*SM*UM{z_}W|o:L=x2L !Lp#=AfB2LB!iM~Bw:w# :*L+"L|:< #;>G>02L!L#bE!L4:VM0w*SM))))"SM*UM))))o"UM,;"PM~:z; w+j;w!L|;};!L4#"L|/W}/_*PM"PM:RM>C:LG:eM;xx2L;:eM;2L~@:eM;0@!L5;<;:L;;Y@;E@#V"?M͌D2L2lM"L::M<2:MҁLÁLIDF0MPIRFWITPRDOMLDZLGSQIBTLOBDEISBEINOVCNGLGSSNA2IODTBIRCEF!L>w!L5BB"SM{ozg"UMEDJ!qMqx!qMEF#~怩OE 4ÎE bKJbKbKbKGGGGGEs#r#q#pFEEF"nM`i"pM*nM*pMDM^/<2LG!L~wh=I>*UMO|?GT])))*SMDM)) ) "SM&o"UM!L:Lw?;= K?:9M2LMK?>Fm?T>>2SM;=q?C!SM~ʅ?>T>Fw> #w#w#wF:}2lM> î?}2lM> î?}2lM>î?O!E:lMa9a9=_^#V ^#V??*HM|?D*FM|?D:kM!LwʱA:WM=!= >bEF:RM=>=*>D:SMog"SM2UM>2VMC:L;:L2L2L~@;= S>>00d>:d>02jM>ɯ2LK?-|>>2fMÁ>+„>K?C!L5!LM4?:jM.¦>>2L?:jMh=E¶>K?+>->>2LK?y2;M!L5!LM4I>>Ox >D> G>:Lx?G7GG6*LG>2LGG aJ62G:L*L> J~+pI1dI> JpI0> J> J#=~I~ JpI:G7GG62L2GII ʖII*L&*Lw"L I}ږID:G!G:lM_~I5!G/Ɓ_#>WJGFIX(RND(IX)*2+1) IF (X .EQ. 1) GO TO 790 IF (X .EQ. 2) GO TO 860 470 IF (S .NE. B) GO TO 490 IF (Z .EQ. 1) GO TO 520 Q = 1 GOTO 500 490 IF (W(R,S+1) .NE. 0) GO TO 520 500 X=IFIX(RND(IX)*2+1) IF (X .EQ. 1) GO TO 790 IF (X .EQ. 2) GO TO 910 ,101) H 101 FORMAT(I2) B = H IF (H .NE. 1) GO TO 150 IF( B .NE. 1 ) GO TO 150 WRITE(1,102) 102 FORMAT('GIVE ME SOMETHING I CAN WORK WITH!!') GO TO 120 150 WRITE(1,103) 103 FORMAT(//) DO 10 I=1, 25 DO 10 J=1, 53 W(I,J)=0 V(I,J)= L#~"}L )L!*L^#6 #> KwP 28>2!""+"*R!H s#r! s#r!g s#r͌$:=‡L:§L*!+LL!L*L> K> K+ʡL-µL2o@*+!g s#ry!8Lͭ[EL`O:;}<-N*N"4!"6*4!g N#Fͅ>*6"6=1 GOTO 350 340 IF (W(R,S+1) .NE. 0) GO TO 370 350 X=IFIX(RND(IX)*3+1) IF (X .EQ. 1) GO TO 790 IF (X .EQ. 2) GO TO 820 IF (X .EQ. 3) GO TO 910 370 X=IFIX(RND(IX)*2+1) IF (X .EQ. 1) GO TO 790 IF (X .EQ. 2) GO TO 820 390 IF (R .EQ. H) GO TO 42G>w7!G:lM_~LJ4!G_#>Wɇ> J> J> J!G:lM_~JG2GwGJG6G!G~{2lMH{ zJ~ G2lMG@HG w ʹJ#w­J:lM_!EGp+q:lM_!G^#VK KKKKKJ:JK> PKa3) C = 1 W(X, 1) = C C = C + 1 R = X S = 1 GO TO 260 210 IF (R .NE. H) GO TO 240 IF (S .NE. B) GO TO 230 R=1 S=1 GO TO 250 230 R=1 S=S+1 GOTO 250 240 R=R+1 250 IF (W(R,S) .EQ. 0 ) GO TO 210 260 IF (R-1 .EQ. 0 ) GO TO 530 IF0 10 CONTINUE Q = 0 Z = 0 H1 = H + 1 X = IFIX (RND(IX) * H + 1) DO 180 I=1, H IF (I .EQ. X) GO TO 173 LINE(I) = EDD GO TO 180 173 LINE(I) = EBB 180 CONTINUE LINE(H1) = EBB WRITE (1,104) (LINE(I), I = 1, H1) 104 FORMAT('1',2X,26A! N#Fͅ>s#r!H ^#V*R XM"*!H ^#V **2**O#|XM+">2Oy!8xM!  N#F*4ͅ>"4L"xM*xM~#fo!8*xMs#r}ʰM*xM~#fo*xMs#r*xMM!MM!tME!tME~#fo'898MEʋ8FȯG͠7"[My2]MFoͿ88!D70 IF (W(R+1,S) .NE. 0) GO TO 470 IF (S .NE. B) GO TO 420 IF (Z .EQ. 1) GO TO 450 Q = 1 GOTO 430 420 IF (W(R,S+1) .NE. 0) GO TO 450 430 X = IFIX(RND(IX)*3+1) IF (X .EQ. 1) GO TO 790 IF (X .EQ. 2) GO TO 860 IF (X .EQ. 3) GO TO 910 450 X=I INTEGER W(25,53),V(25,53),H,B,S,R,X,Z,Q,H1,C REAL LINE(26) DATA EDD, EBB, BBI, BBB /'!--', '! ', ' I', ' ' / WRITE(1,99) 99 FORMAT(///,' RANDOM NUMBER (5 DIGITS) ') READ(1,98) IX 98 FORMAT(I5) 120 WRITE(1,100) 100 FORMAT(' SIZE ') READ(1K2Ja9:J\K:L*L=> PK~+BK12K> PKBK> PK~0BK> PK#~#PK=DK_>2JuKKrKrKpKpKpKa92LK yK*L&*Lw"L }yKD:L*L=> K~+K1K> KK> K~ K0K> K#~#K=K_*}L~ (W(R-1,S) .NE. 0) GO TO 530 IF (S-1 .EQ. 0) GO TO 390 IF (W(R,S-1) .NE. 0) GO TO 390 IF (R .EQ. H) GO TO 330 IF (W(R+1,S) .NE. 0) GO TO 330 X=IFIX(RND(IX)*3+1) GO TO (790, 820, 860), X 330 IF (S .NE. B) GO TO 340 IF (Z .EQ. 1) GO TO 370 Q*nM:pMONqM4ʊE2NBNg.*[M:]MOzNBNg.*nM:pM(Nx<=YN{_zWxG)yOHGÛE">2O**J"*">2O#|ʙN+">2O*i">2O* ">2O**H"*">2O">2O;*N">2O*gͅ> 520 GOTO 790 530 IF (S-1 .EQ. 0) GO TO 670 IF (W(R,S-1) .NE. 0) GO TO 670 IF (R .EQ. H) GO TO 610 IF (W(R+1,S) .NE. 0) GO TO 610 IF (S .NE. B) GO TO 560 IF (Z .EQ. 1) GO TO 590 Q=1 GOTO 570 560 IF (W(R,S+1) .NE. 0) GO TO 590 570 X=IFIX(RN) .NE. 0) GO TO 730 X=IFIX(RND(IX)*2+1) IF (X .EQ. 1) GO TO 860 IF (X .EQ. 2) GO TO 910 730 GOTO 860 740 IF (S .NE. B) GO TO 760 IF (Z .EQ. 1) GO TO 780 Q=1 GOTO 770 760 IF (W(R,S+1) .NE. 0) GO TO 780 770 GOTO 910 780 GOTO 1000 790 W(R-1,1040 CONTINUE WRITE(1, 106) (LINE(I), I=1, H1) 106 FORMAT (1X,26A3) DO 1070 I=1, H IF (V(I,J) .EQ. 0) GO TO 1060 IF (V(I,J) .EQ. 2) GO TO 1060 LINE(I) = EBB GOTO 1070 1060 LINE(I) = EDD 1070 CONTINUE LINE(H1) = EBB WRITED(IX)*3+1) IF (X .EQ. 1) GO TO 820 IF (X .EQ. 2) GO TO 860 IF (X .EQ. 3) GO TO 910 590 X=IFIX(RND(IX)*2+1) IF (X .EQ. 1) GO TO 820 IF (X .EQ. 2) GO TO 860 610 IF (S .NE. B) GO TO 630 IF (Z .EQ. 1) GO TO 660 Q=1 GOTO 640 630 IF (W(R,S+1) S)=C C=C+1 V(R-1,S)=2 R=R-1 IF (C .EQ. H*B+1) GO TO 1010 Q=0 GOTO 260 820 W(R,S-1)=C 830 C=C+1 V(R,S-1)=1 S=S-1 IF (C .EQ. H*B+1) GO TO 1010 Q=0 GOTO 260 860 W(R+1,S)=C C=C+1 IF (V(R,S) .EQ. 0) GO TO 880 V(R,S)=3 GOTO 890 (1,107) (LINE(I), I = 1, H1) 107 FORMAT (3X, 26A3) 1073 CONTINUE STOP END  IF (V(I,J) .EQ. 2) GO TO 1060 LINE(I) = EBB GOTO 1070 1060 LINE(I) = EDD 1070 CONTINUE LINE(H1) = EBB WRITE.NE. 0) GO TO 660 640 X=IFIX(RND(IX)*2+1) IF (X .EQ. 1) GO TO 820 IF (X .EQ. 2) GO TO 910 660 GOTO 820 670 IF (R .EQ. H) GO TO 740 IF (W(R+1,S) .NE. 0) GO TO 740 IF (S .NE. B) GO TO 700 IF (Z .EQ. 1) GO TO 730 Q=1 GOTO 830 700 IF (W(R,S+1M81 $1 L81 $1 ERA $1.L80 L82 $1 L83 $1.X ERA $1.80? ML SUB) .EQ. 0) GO TO 980 V(R,S)=3 Q=0 GOTO 1000 980 V(R,S)=1 Q=0 R=1 S=1 GOTO 250 1000 GOTO 210 1010 DO 1073 J=1, B LINE(1) = BBI DO 1040 I=1, H IF (V(I,J) .LT. 2) GO TO 1030 LINE(I+1) = BBB GOTO 1040 1030 LINE(I+1) = BBI 880 V(R,S)=2 890 R=R+1 IF (C .EQ. H*B+1) GO TO 1010 GOTO 530 910 IF (Q .EQ. 1) GO TO 960 W(R,S+1)=C C=C+1 IF (V(R,S) .EQ. 0) GO TO 940 V(R,S)=3 GOTO 950 940 V(R,S)=1 950 S=S+1 IF (C .EQ. H*B+1) GO TO 1010 GOTO 260 960 Z=1 IF (V(R,Spip $1:M81.COM=$2:M81.COM pip $1:L81.COM=$2:L81.COM pip $1:L82.COM=$2:L82.COM pip $1:L83.COM=$2:L83.COM pip $1:ML.SUB=$2:ML.SUB pip $1:mlcopy.sub=$2:mlcopy.sub  DB " ****" DB " *" DB " *" DB " *** " END " *** " DB "* *" DB "* *" DB " *** " DB "* *" DB "* *" DB " *** " DB " *** " DB "* *" DB "* *" DB " * " DB " ** " DB " * * " DB "* * " DB "*****" DB " * " DB " * " DB "*****" DB "* " DB "**** " DB " *" DB " *" DB "* *" DB " *** " DB " *** " DB "* *" DB "* " DB "**** " DB "* *" ENTRY NUMBER NUMBER: SHLD STRING LDAX D LXI H,TABLE LXI D,TSIZ ORA A JZ N2 N0: DAD D DCR A JNZ N0 N2: SHLD TEMP MOV H,B MOV L,C MOV A,M LXI D,TSIZ2 LHLD TEMP ORA A JZ N3 N1: DAD D DCR A JNZ N1 N3: XCHG LHLD STRING DB "* *" DB " *** " DB "*****" DB " *" DB " * " DB " * " DB " * " DB "* " DB "* " DB " *** " DB "* *" DB "* *" DB " *** " DB "* *" DB "* *" DB " *** " DB " *** " DB "* *" DB "* *" FUNCTION RND(IY) IY = IY*899 IF (IY .LT. 0) IY = IY + 32767 + 1 RND=FLOAT(IY)/32767. RETURN END ML SUBMLCOPY SUBNUMBER MAC RND FOR** " DB " * " DB " * " DB " * " DB " * " DB " *** " DB " *** " DB "* *" DB " * " DB " * " DB " * " DB "* " DB "*****" DB " *** " DB "* *" DB " *" DB " **" DB " *" DB "* *" DB " *** "MVI B,TSIZ2 M1: LDAX D MOV M,A INX H INX D DCR B JNZ M1 RET STRING: DW 0000 TEMP: DW 0000 TSIZ EQU 35 TSIZ2 EQU 5 TABLE: DB " *** " DB "* *" DB "* *" DB "* *" DB "* *" DB "* *" DB " *** " DB " * " DB "   ( 2""?^#5Ë\R* § 6?# >?2hB+B+ø CP/M (0-3) */ A = A & 3; /* INTO ADDRESS (BUFF+1,33,65,OR 97) */ A = >>A; A = >>A; A = >>A; A = A + 1; C = A; HL = [BUFF] + BC; B = 8; /* PRINT FILENAME */ CALL DOSTR; CALL SPACE1; B = 3; /* PRINT FILETYPE */ CALL DOSTR; A=M(HL)+E */ DLOOP: C = [SNEXT]; /* 'FIND NEXT' FDOS CALL */ CALL DONAME; IF (BC = STACK; B=B-1; STACK = BC) !ZERO THEN CALL SPACE2 /* MORE ON THIS LINE */ ELSE DO; BC = STACK; /* GO TO NEXT LINE */ STACK = (BC = 400H); CALL CRLF; END; END SPACE1; /* PRINT 2 SPACES */ SPACE2: PROCEDURE; CALL SPACE1; CALL SPACE1; END SPACE2; /* PRINT B CHARS STARTING AT HL */ DOSTR: PROCEDURE; REPEAT; E=M(HL); CALL PCHAR; HL=HL+1; UNTIL (B=B-1) ZERO; END DOSTR; /* FIN20) BYTE; OSTACK = (HL = 0 + SP); /* SAVE CP/M'S SP FOR RETURN */ SP = .NSTACK(20); /* SET UP OUR OWN STACK */ /* WAS A FILE SPEC GIVEN? */ IF (HL=[HEX FCB+1]; A=[SPACE]; A::M(HL)) ZERO THEN DO; B = 11; /* NO, SO FORCE IT TO ????????.??? */ [ZERO]; /* PRINT EXTENT # IF NON-ZERO */ IF (A::[COLON]) !CY THEN A=A+7; IF (A::[ZERO]) ZERO THEN CALL SPACE2 ELSE DO; E='+'; CALL PCHAR; E=A; CALL PCHAR; END; END DONAME; /* MAINLINE STARTS HERE */ MAIN: DECLARE NSTACK(/* WDIR - WIDE DIRECTORY LISTING */ /* B.RATOFF - 9/11/77 */ [INT FCB] [FCB := 5CH] [MACRO BUFF '80H'] [MACRO MONLOC '5'] [MACRO CR '0DH'] [MACRO LF '0AH'] [MACRO PCFUN '2'] [MACRO ZERO '30H'] [MACRO COLON '3AH'] [MACRO SPACE '20H'] [MACRO GOTO DLOOP; /* EITHER WAY, GO GET ANOTHER NAME */ EOF CE2 /* MORE ON THIS LINE */ ELSE DO; BC = STACK; /* GO TO NEXT LINE */ STACK = (BC = 400H); CALL CRLF; END; D A FILENAME AND PRINT IT */ DONAME: PROCEDURE; DE=[HEX FCB]; CALL [MONLOC]; IF (A::255) ZERO THEN /* END OF DIRECTORY? */ DO; SP = (HL = OSTACK); RETURN; /* RESTORE CP/M'S SP & QUIT */ END; B = 0; /* CONVERT OFFSET RETURNED BY REPEAT; M(HL) = '?'; HL = HL + 1; UNTIL (B = B - 1) ZERO; END; M([HEX FCB+12])=(A='?'); /* MATCH ALL EXTENTS */ C = [SFIRST]; /* GIVE INITIAL SEARCH CALL */ CALL DONAME; CALL SPACE2; STACK = (BC = 300H); /* 3 MORE NAMES ON THIS LIN [PSHALL] C = [PCFUN]; CALL [MONLOC]; [POPALL] END PCHAR; /* PRINT A CR-LF SEQUENCE */ CRLF: PROCEDURE; E = [CR]; CALL PCHAR; E = [LF]; CALL PCHAR; END CRLF; /* PRINT A SPACE */ SPACE1: PROCEDURE; E = [SPACE]; CALL PCHAR; SFIRST '11H'] [MACRO SNEXT '12H'] [MACRO PSHALL 'STACK = HL; STACK = DE; STACK = BC; STACK = PSW;'] [MACRO POPALL 'PSW = STACK; BC = STACK; DE = STACK; HL = STACK;'] DECLARE OSTACK(2) BYTE; /* PRINT CHARACTER IN REGISTER E */ PCHAR: PROCEDURE; *v$ 2  ; E55Q| >^^ #T|.7?yOxGxwGyO-e2y>d2x2z:yO:xWax2yy¨:zʷy0_ >2zú5:xO ay2x:x‹:y0_ -\>A; A = >>A; A = >>A; A = A + 1; C = A; HL = [BUFF] + BC; B = 8; /* PRINT FILENAME */ CALL DOSTR; CALL SPACE[POPALL] END PCHAR; /* PRINT A CR-LF SEQUENCE */ CRLF: PROCEDURE; E = [CR]; CALL PCHAR; E = [LF]; CALL PCHAR; END CRLF; /* PRINT A SPACE */ SPACE1: PROCEDURE; E = [SPACE]; CALL PCHAR; END SPACE1; /* PRINT 2 SPACES */ SPACE2: P~0: 0>+ _ 5###~5!9"v1!]> I 6?#B>?2hHkHs'Zy>d2x2z:yO:xWax2yy¨:zʷy0_ >2zú5:xO ay2x:x‹:y0_ -\