Path: utzoo!attcan!uunet!lll-winken!sun-barr!newstop!grapevine!panarthea.ebay.sun.com From: koreth@panarthea.ebay.sun.com (Steven Grimm) Newsgroups: comp.sources.atari.st Subject: v03i097: stturing -- Two-dimensional Turing machine Keywords: zoo, uue, C Message-ID: <313@grapevine.EBay.Sun.COM> Date: 17 Sep 90 20:30:12 GMT Sender: news@grapevine.EBay.Sun.COM Reply-To: mark@ccvr1.cc.ncsu.edu (Mark Boyd) Lines: 127 Approved: koreth@panarthea.ebay.sun.com Submitted-by: mark@ccvr1.cc.ncsu.edu (Mark Boyd) Posting-number: Volume 3, Issue 97 Archive-name: stturing Here is the source and documentation for a simple 2 dimensional turing machine that uses the ST's screen as its memory. I ported it from a PC program because I enjoyed playing with it. It runs in all resolutions. Mark Boyd table !"#$%&'()*+,-./0123456789:;<=>? @ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_ begin 644 sttursrc.zoo M6D]/(#(N,# @07)C:&EV92X: #q M=^SMI)MUV)E5H4:4R4'6&'1 *"$(6'76X8?AE86C;N(XQA@J-708p M76T@"()K&E$(5W09SF235V$,=5@=?-WQ&QKEC7C?&I%U=1](9%BIP@L*"-39o M6Q[R5M==34(9UXL4C9$87V'$%08()] 1!AQEG$#B;AQY!!)I))G$AHY)LN02n M3! :!4(2(P56!XUI '@HE(Z151Y?@4;J D-FG* FFP(=!$5NA8& PFY3_531m M11G)!2MV&[WA9!""+@04%;(>=<40O/IT5!ARK &"$&_DD69G3_"%)[#,IC&Ll M>G'.-2=><]0!QW]RT!%7##9$QT9N<34V@PPP8 $O#+*N>T<*G=&@+KNC@F #k M#?'.*^ME(-711G:.;0>"#/M2U>^_\0),+W@9R@K3&6BDL*H""HS T!A+552D%TH@S4A'IR/U^MT;6J[9,= Q#2W%$50,+=Y34!%$%FV+WCC<"0@1Q!!+%#UTf M#:(K )@e M&=-#3SSSN1W?QT9P'&^[IC0F8/U.OB,/_1Q?G/$&'=GKSCX<80@?O_E?1.W^d M_>S/L3_'YB.?_ 2%/A7,CRQV<-[M+]+0!KE(,?X'>2.9-&#^(*7%2Z&z M<0P@X,'"KA/'!,Q%>&9 @0BJ,( &$:3 y M>0E SF]0 (-/ J\/P%,0&;Y !W%E9 Y^%.,68M"%3X*@542B X,$M:3*[,8Wx MN=): H9 &3?< 98BX (,9C"#(BB3F6;PY YN:1 D5$8CJ,E+1IB5ISVY2"%\w MP4I6D$25 PDSCR#H 0B.4(; E$$/*+#E'>^(RW9VLPP\Z<\;EC*UDA2$33:,v M21A@$,]ISO.@]#0(0WZS&?GH02,O*\.? %,',V1%F' @#!S2@ ?%H( .<'#!u M]O;IHI 2[V4E%>GR]ID;>;;J#CG1B/7*M1*Y<%0Q_P0>&7Q5R)VR,E(HR*,It MAP9(=0[A+G?0C!L*>DK:P"17* !D"-1Y@C@8R@0FR L(I@JH*)S EJV*0QU^s MXU2>_*FJAHJ3B# #&V$2LR3'5.0S9Y"%'(!@KF60)D);U82C#P48T"Z00%*U*E$.C Qn M/M,<<'Q:X(,/2I .^!H:'^O%X ^&,)WJ!*E*0QAA"8M!06L 96YE%0(V=#@!m M'Y9HB-T+8%G%19ULJ/ 7"CQ-TE*$M7-@,/L>?.(11Q6^&*:(CMOWOA.C&,0Bl M[F,(YG#B%.<'E!D%Z4WMJ^&1ZA=\*D6ID'TPO_J5QK\^SC&7\Q<:]P4Y]K0Z6B1?G.YO;j MFO$;9W7>5Z5QC@C#!$DO/,,Y-'*V,R0OK1M) YH-@NZCF-E7Z""[#G9%6S2Di M,>UH3C\$!/JB])WWW.9,ZVO3C,9T1&@ 9E$3NLR^XFKI3M=>"?O8U8=^"A2,h MS.:7L?;1_.5+1&(0R#SCF5ZXSG)CINW?4():(\?.=7S5F;:U,1N_SFXUNALSg M9VKSMKNTQ3.\OZOG9K/[+-T.-+C[B&Q$*]J]0V,S\YXM\'V^FMJROG:]\3MPf M;H/2VZ%^L[C/#+9SJW3@ZKZXP=M=Y]2N%L\>!U.VK9SI[3YZ 9PJ<^W8TAc MA/=SG_3:G@#WT8%Y]Z.?_>CN/K@#T,ODVPG5($)b M3"BV(25)AT2*8 A[B0QPWE!X0)5@#H9JL2I7X@).BL L6 >E*.F @A:8_)3 a M,\,<5)/(M2.^!(;!/0ATSWLRF-XL)B@Z 7T4_'6[ ?@%OW+Q7!@]E?204'TC$7@]W@#J$0/>G0E(D82#X8*P% P_G8R%08#=Dw M9"Z(1/VW@GTD0_D'&$9F@P:&1#*&@C#V@5$D@S\8@3)68"GX@3*F@T=(A/]Gv M='GA=T/38@8FT@1SF7TBW0W;0?T6(?RMD/D/F@[V59"0&@@5Vu M8FHHACB&A@*6A#/$AG((&&4X1&_H7B"HA$<'2DAG=ZRE?OODAT/6?N E%UXVt MAD@72D<7/F! @Xq M44B'3ADW(,3D 3'%HYV/(*BX -%DS! V"> =$FS)B!;F3>&7A701VO!6_*G#/F*NFYIP\07*&*&D+014&FX%>M9M;!6T$&5I8AJ:7+GZf M2-.7"4Q!11!4% $"$TDX8>P03S!111-.@$!$$E(4,00523P1+;-,/"&% GN5e M\12PPA)K; LMD,28'+>9F1]-92B0P+')GIMN2=&U.Q>J\8+@[[\@/+[G0_;=QED-Y1c M*!E_04RJFV"3\6LK2*3U.9-T[WK4I1OY;:JQDLSY^^)(\;VQAJ%IK.&GJ>0.b M6VS 'DL! A1!) O@P]9BJRT(1SQ!Q1/@XC2NO.4^7? 5: ":\])=V0A>!)UT1:_!ZWHV/4G&D]V1F #55H.<+MJ JCS9X7Y_z M9R0=3\(Q:'T-_XMUQ%OK#2C&9?R<&^5WR$2WO%Q[_83C($!>TYV*Y86'?8SIy MG#H(=!?.7Q([W18KZ:;S?',9P J75AC&[S[>&;?2S2OFN&(.AVYFX$J886Y$x M)1D(54 A;XC+-R_3\]&?9R;UI"G46:+9D[9]&1]Y/YD41U A[W'E:W1^&= #w MB?36ASC%B.$-':D1]K17&/IU3S>3(<(3KN $>1FH?Y5#GP#5-Q?V*08[9H ?v M [EGOV,907\*^)S6G#"%PM'E#2A]( !-3<:#*[L@)%:24UP,&&F\r M(U2K"$Z0Y,4(XJ@PY(%#5TG"*LG@AH. (&UD%(OD7AB\E26 ?#4TGB.K4 15q M?D\L3S&#N#YBQ+JXH0YNB0IML#++6M9D#:"Y@[QF0,J"5(L(JB2-)Z'YEE Np MD#1V<$L=6I0"_I2M"(KT5Q:P=+$RJ"E5@O'*59 0FO>(BR[,VU$:S*#,(GU&o M8>-)T)6RA$NW489U:O()WV"RL 4^LPT)M5609'(6@B[32!=-Z +75I"%WC(,n M)W$!ZXSPO1I&:3=/"<-9&&(E>E[2,\-IB@LG@J7KK6UG/:M#\117N#.4 691m M$<-V*+.C)VGRI&2D'B=Y6@?'="AQW\F#2OOSGP"):T @X^63GA*'.J1A-B_$l M6>ZZTJN=]8@\O*K+74(UAQ ,DGY=54 9\+"41X& 20H( DCVVE<]98]Y.X/#k M4FWF'<1(ZD%S\)1P9CA9&PCGL@JXK%2D@MG)@D XOOELG+QCLSFXTG^#K-A,j M< >OST:%7YR%05025M$"R79GKQK>64NW,05X)WQ1J2)NA5?.OGG'D9"\RHONi MFAP?(FV(1PT+2( $-Z&:;#T*^.EM]X*>XI@6/Z3"2O9VYQ69(/>/4=F=YA92h M$U,6 951Z9T.>2Cg MOGCWM%]*PG@'+!/WPK=RZS72>9<0WR=!48I4=*Y]<>A"[6XU""'\YU?$-3W%f M6.8T;1C-?ZLN[1D8&BMR!5V' 2!Y8X)?ZK*E+LYM9H7XJ7!RYe MX:F4"VAW&!++FOS898(!27[D$USG8@0H"B"<2:DWD)H$% 1*&PD=?IR>+G?Hd MRF_),HON"Y(Q/TF"4]BJA$%@TA_KE'I;OEZ/@\RK6Y'F1V0@ W86B,PZ/% -c M?ZE)F7LXDKM$QY/B4JE O /GAX1!-;@:](^I++0G-;==ZXS*I$ES CDX),TEb MI-Y>@:)J,)_9P/],\TK\DQO2",NK/E'2+8%BD#@XA'IEI36E7W;@-+MP-@J3a M21_T3#-3K3)CF)/#D"F#,S1@B0T=XN1-#,/L?_8)4B H A:"T 0HZ# &45$Wz MN]U=!!FPQKG%DD(3DE L_Y9A)-$93&'3M":V_JD\B.7DID#RXYM(J4P-<:%Ey MR"#4>-'&35SIR$CR JC3P($O!3D+$=EP6N460=_\+D)\>7(80[%E+A_!THINx MDY;PC-7149EXQ3<:$O+H9CN*%2%IQDV_X&HTDPA$3QBNHYZ(6$0P"M#@3LRTw MF_8Y>M>Z84I49!F?_*3DY/LN5E*7"K>-UQ!S,K K8)5"1B,X.@1P!X%_9)D>v M=FU.1[-4NP(" MRGQ/T" u 5 /R#t s end