[comp.sys.atari.8bit] Compiled Turbo BASIC example.

jhs@mitre-bedford.ARPA (01/15/87)

Howard Chu has also sent along an example of a compiled Turbo BASIC program
for us to experiment with.  It is called MAGIC, and is a drawing program
for the 8-bit Atari.  (These guys in Europe don't fool around, do they?!)
It is also uuencoded, so you will have to uudecode it and put it on a DOS 2.5
disk with RUNTIME as per the compiler instructions in order to run it.
Howard sent along another file named magic.runtime, but I think it is just
another copy of RUNTIME, so I won't post it unless it turns out to be
necessary.

Have fun!

-John S.

------f-o-r-w-a-r-d-e-d---m-e-s-s-a-g-e---f-r-o-m---Howard Chu----------------
Ok, here we go... This message contains the uuencoded files for MAGIC.TUR,
and MAGIC.OBJ. Look for the cut lines... There's no docs for the program,
but it's pretty intuitive. (And pretty fun to play with, too!) Enjoy.
  -- Howard

** Note from JHS - I am not sure what the correct file extensions are.
   The compiler manual says .CTB for Compiled Turbo BASIC.  Maybe it will
   be obvious when the files are uudecoded.

   Aha! I bet I know:  The first file really should be named .CTB and the
   second is probably a true .OBJ file of machine language subroutines!!!
   You will probably have to have DOS 2.5 (DOS.SYS and DUP.SYS), RUNTIME,
   MAGIC.CBT (output file from uudecoding the first MAGIC.TUR) and
   MAGIC.OBJ (output from uudecoding the second file below) all on the disk
   in order to make MAGIC run.  Name RUNTIME AUTORUN.SYS and MAGIC.CTB
   can be named AUTORUN.CTB if you want the disk to boot and run MAGIC
   autoMAGICally.  The last file should be named MAGIC.OBJ so MAGIC can
   find it.  I bet that will do it.  Howard please comment if I am wrong.

-JHS

####### cut here #######
begin 644 magic.tur
M_@$    !9@%G ;\"Y#WW/4^H4D%)3J1&24Q%I$)21:A!4E2H34RD1U)!I,%5
M3D_"1U)!LD]"5<Y#3\S70T^Q1,S)34'3V-E-25)23]+"VEK:6+'31D%2PL7*
M2K%*LLO/1U+!6,A9R-5:3T_-4[%3LLQ0S=!)L@!          ( !        
M@ (       !  P       $ $        @ 4       " !@         '    
M      @         "0         *          L         #          -
M          X         #P         0         !$         $@      
M   3         !0         %0         6         !<         &   
M       9         !H         &P         <         !T         
M'@         ?         "          (0         B         ",     
M    )          E         "8         )P         H         "D 
M        *@        4 )Q4?#D$!!@   !(.00%@    %"<?#D(%,D@  !(.
M        %@H 4E(4@#D.0 3^ 0     L$H$[#D Q     "P2@CL.0 @     
M+!*#.0Y  P     L$H0Y#D #     "P2A3L.0"@     +!*&.PY!.$     L
M%AX $Q-:#PM$.DU!1TE#+D]"2A8H  T-# Y" P,    6,@ @%2L.0 <     
M)0Y %@     4(#:'+3\ZB#R)+!9D  T-"@Y" 9     6( ,<' #"R<S$T\/(
MR=+-P=7&PL72Q<G4U<['FRH#+14K#D '     "4.0!8     %!\,#D$((   
M !0J-H<M/SJ*/(DL%"TD%C0#0@<#BQ0;"(PM#D$'"    !D.00<2    %"P?
MC!)&.HPE#D$00@   "P4, F,%$(?#D$'!    !(.0!4     %CX#)Q4?#D$%
M60   !(.0$8     %"<?#D$" P   !(.        %D@#2!4?#D$%$@   !(.
M0$@     %"<?#D$%$P   !(.0 8     %#D?#D(%0H8  !(.00&2    %$4'
MC2(.0 0     &T@D%E(#9QH?#D$5E    !* .(TL)0Y (@     4/#:.+48Z
M#D$%8    "PE1CH.005A    +"0.00)6    %%0(CRV.)0Y !@     9CB4.
M00$     %& ?CQ(.00%!    %&0)CQ1G)!;H PL+ -#/R?X!SM2;\@,-#0P.
M00@     %OP#(PXVART_.I \B2P4(PH.01 P    )48Z#D$" P   "P6!@1H
M& =4.@X        L(@X        ;)S:1+48Z#D$7D    "P4-C:2+48Z#D$7
MD0   "P4/"R1$I(4:!Z3%PY!$)     2#D$04    !(.01!@    $@Y!$'  
M   2#D$0@    !80! T-"@Y!$"     6&@0;$2P.00%9    )I$2DA0;"@Y!
M$)     6) 0;$2R1$@Y E0     FDA0;"@Y!$)     6+@0C&2P.00%9    
M)I$2#D"5     ":2%",*#D$0D    !8X!#41+)$2#D"5     ":2%!\L#D$!
M60   ":1$I(4-2P.00%9    )I$2#D"5     ":2%D($(" '5#H.        
M+"(.0 $     &PY!$"     63 0-#0H.01"0    %LX$'Q4?#D(%,D@  !(.
M        %!\*#D(!D    !;0!PH* ,32P=>;V@<-#0P.00@     %N0'(PXV
MART_.I \B2P4(PH.02 P    )48Z#D$" P   "P6[@=H& =4.@X        L
M(@X        ;)S:1+48Z#D$7D    "P4-C:2+48Z#D$7D0   "P4/"R1$I(4
M:!Z3%PY!_@$@D    !(.02!0    $@Y!(&     2#D$@<    !(.02"     
M%O@'#0T*#D$@(    !8""!L1+ Y! 5D    FD1*2%!L*#D$@D    !8,"!L1
M+)$2#D"5     ":2%!L*#D$@D    !86"",9+ Y! 5D    FD1(.0)4     
M)I(4(PH.02"0    %B (-1$LD1(.0)4     )I(4'RP.00%9    )I$2DA0U
M+ Y! 5D    FD1(.0)4     )I(6*@@-#0H.02 @    %K8('Q4?#D(%,D@ 
M !(.        %!\*#D(!D    !:X"PH* ,S)SL6;P@L-#0P.00@     %LP+
M-14?#D$" P   !(.        %" VART_.I \B2P4-0H.03 P    )48Z#D$"
M P   "P6U@M & =4.@X        L(@X        ;)S:1+48Z#D$7D    "P4
M-C:2+48Z#D$7D0   "P40 H.03!0    %N +#0T*#D$P(    !;J"R @!U0Z
M#@       "PB#@       !L.03!0    %O0+20XVART_.I \B2P4%"R1$I(4
M+"]&.@Y!%Y     L$D8Z#D$7D0   "P420=4.@X        L(@X        ;
M#D$P@    !;^"Q@.-H<M/SJ*/(DL%!C^ 0H.03!@    %@@,#0T,#D$Q$   
M !82#" @!U0Z#@       "PB#@       !L.03"0    %AP,#0T*#D$P(   
M !8F#$T2-H<M1CH.01>0    +!0A-I0M1CH.01>1    +!1-'I,7#D$Q8   
M !(.03$@    $@Y!,3     2#D$Q0    !(.03%0    %C ,*1$L#D$!60  
M ":1$I(4'R\.00%9    )H<2E!0I"@Y!,6     6.@PI$2R1$@Y E0     F
MDA0?+X<2#D"5     ":4%"D*#D$Q8    !9$##D9+ Y! 5D    FD1(.0)4 
M    )I(4+R\.00%9    )H<2#D"5     ":4%#D*#D$Q8    !9.#&<1+ Y!
M 5D    FD1*2%!\O#D$!60   ":'$I04+2R1$@Y E0     FDA0[+X<2#D"5
M     ":4%%$L#D$!60   ":1$@Y E0     FDA1G+PY! 5D    FAQ(.0)4 
M    )I066 P1#C:'+3\ZB#R)+!01)!:>#!\5'PY"!3)(   2#@       !0?
M"@Y" 9     6H \*"@#2P=G3FZH/#0T,#D$(     !:T#R,.-H<M/SJ0/(DL
M%",*#D% ,    "5&.@Y! @,    L%KX/0!@'5#H.        +"(. /X!    
M   ;)S:1+48Z#D$7D    "P4-C:2+48Z#D$7D0   "P40 H.04!0    %L@/
M#0T*#D% (    !;2#S45'PY! @,    2#@       !0@-H<M/SJ0/(DL%#4*
M#D% 8    "5&.@Y! @,    L%MP//@DLD1*2%"$O1CH.01>0    +!)&.@Y!
M%Y$    L%#X'5#H.        +"(.        &PY!0(     6Y@\8#C:'+3\Z
MBCR)+!08"@Y!0%     6\ \7#0P.03$0    %!<*#D% 4    !:&$ T-"@Y!
M0F     6I! ?%1\.0@4R2   $@X        4'PH.0@&0    %H@3"@H QLG,
MS)N2$WL)* \!?103(PY!4      4'S:5+0Y  P     4*S:6+0X        4
M>P%&:6QL($UE;G5E+$9I;&P@=VET:"!A8W1U86P@0V]L;W(L1FEL;"!W:71H
M(#(J,B!0871T97)N+$9I;&P@=VET:" X*C@@4&%T=&5R;IN<$T<-# Y" @  
M   4$S:7+9$4'P>1(@Y  0     ;,PB,+0Y" U(    9#D(#4F,  !0Y'XP2
MBQ0]"8P41PH.054     %J83-PDVF"V-%!4VC2T.0 0     %"<K#D #    
M "4.0!8     %#$,_@$.00@@    %#<VC2V8%K 3CQ<(C"T.        &0Y 
M P     4&P.,%#<LC"0.0 (     )0Y  0     2#@       !13+(PD#D "
M     "4.0 (     $@X        4;RR,) Y  @     E#D "     !(.0 $ 
M    %(LLC"0.0 (     )0Y  0     2#D !     !2/"8P6NA-M#0,.0 $ 
M    %!\L#@       !(.0 ,     %#$O#D )     !(.0 ,     %$,O#D )
M     !(.0!(     %%4O#@       !(.0!(     %&<O#@       !(.0 , 
M    %&TVF2V+%L03*10VART_.I \#D(#:6   "P4*0H.05!P    )48Z#D$"
M P   "P6SA,@( =4.@X        L(@Y  0     ;#D%08    !;3$SL=-I$M
M4#I&.@Y!%Y     L)PY !      L%#L'D2$.0 @     *9$@#D !     !L.
M05!@    %M@3>ATVD2U0.D8Z#D$7D    "PG#D $     "P4-S:2+5 Z1CH.
M01>1    +"<.0 0     +!1#!Y(@#D $     !M>-IDM4#HKD28.0 $     
M+"<.0 (     +!1P'PY"!3)Y   2#@       !3^ 7H*#D%08    !;B$Q<7
M!Y(A#D 1     !L.05!@    %NP3%P<#F10-+)$2DA07"@Y!4&     6EA2-
M%1\.0@4R2   $@X        4(0>7(@Y  P     ;-0B,+0Y !      9#D 1
M     !1)")HM#D !     !D.0 @     %%$QFA*,$IL4>Q\.0@-2    )9HF
M#D !     "4KC"8.0 0     +"0.0 @     $IL4?PF:%(,)C!2-"@Y!50  
M   6H!23%S$.0 $     $@Y !      2G!0K,0Y  @     2#D $     !*=
M%$<(C"T.        &0Y !@     :#D "     !1C")HM#@       !D.0 8 
M    &@Y  @     4>Q\.0@-2    )9HEC"0.0 @     $IP4DQ\.0@-2 0  
M)9HEC"0.0 @     $IT6JA0+!PF:% L)C!:T%),7,0Y  0     2#D %    
M !*<%"LQ#D "     !(.0 4     $IT41PB,+0Y  0     9#D '     !H.
M0 (     %&,(FBT.        &0Y !@     :#D "     !1['PY" U(    E
MFB6,) Y "      2G!23'PY" U(!   EFB6,) Y "      2G1:^% L'"9H4
M"_X!"8P6?!4?#0P.00@     %!\?#D$" P   !(.        %H85(PXVART_
M.I \B2P4(PH.054@    )48Z#D$" P   "P6D!4@( =4.@X        L(@Y 
M 0     ;#D%5$    !::%3\=,48Z#D$7D    "P21CH.01>1    +!*;%"D'
MFR(.0 $     &S4VFRT.0 (     %#\*#D%5-P   !:?%1L/!YLB#D "    
M !L;-ILM#D !     !:A%2@/'PY! @8    2FQ0H-H<M/SH.0@-45P  / Y"
M VE@   \B2P6I!4J#C:'+3\ZBCR)+!0@'PY! @,    2#@       !0J"@Y!
M51     66!8?%1\.0@4R2   $@X        4'PH.0@&0    %G 7# P P\G2
MP\S%FWH7#0T,#D$(     !:$%S45'PY! @,    2#@       !0@-H<M/SJ0
M/(DL%#4*#D%@)0   "5&.@Y! @,    L%HD70!@'5#H.        +"(.    
M    &R<VD2U&.@Y!%Y     L%#8VDBU&.@Y!%Y$    L%$ *#D%@-0   !:.
M%PT-"@Y!8"     6DQ<@( =4.@X        L(@X        ;#D%@-0   !:8
M%TD.-H<M/SJ0/(DL%!0LD1*2_@$4+"]&.@Y!%Y     L$D8Z#D$7D0   "P4
M20=4.@X        L(@X        ;#D%@8    !:B%Q@.-H<M/SJ*/(DL%!@*
M#D%@0    !:L%PX.-H<M/SJ*/(DL%K87/#PVFRU-.BLKD29&.@Y!%Y     L
M+",.0 (     +"4K*Y(F1CH.01>1    +"PC#D "     "PL%KL7"PMBD1*2
M$IL6.!@8#C:'+3\ZB#R)+!08"@Y!8"     641@?%1\.0@4R2   $@X     
M   4'PH.00$     %E@;# P T]'5P=+%FV(;#0T,#D$(     !9L&S45'PY!
M @,    2#@       !0@-H<M/SJ0/(DL%#4*#D%P)0   "5&.@Y! @,    L
M%G$;0!@'5#H.        +"(.        &R<VD2U&.@Y!%Y     L%#8VDBU&
M.@Y!%Y$    L%$ *#D%P-0   !9V&PT-"@Y!<"     6>QL@( =4.@X     
M   L(@X        ;#D%P-0   !: &U .-H<M/SJ0/(DL%!0LD1*2%",VARU&
M.@Y!%Y     L%#(VE"U&.@Y!%Y$    L%#@LD1*2%#XOAQ*2%$0OAQ*4%$HO
MD1*4%% OD1*2%H4;(" '5#H.        +"(.        &P[^ 4%P8    !:*
M&Q@.-H<M/SJ*/(DL%!@*#D%P0    !:4&TH.-H<M/SJ*/(DL%!TVARU&.@Y!
M%Y     L%"PVE"U&.@Y!%Y$    L%#(LD1*2%#@OAQ*2%#XOAQ*4%$0OD1*4
M%$HOD1*2%IX;(" '5#H.        +"(.        &PY!<'     6J!L8#C:'
M+3\ZB#R)+!08"@Y!<"     6.1P?%1\.0@4R2   $@X        4'PH.0@&0
M    %D ?# P S<G2TL_2FTH?8 DH#P%]%!,C#D&      !0?-I4M#D %    
M !0E-I8MDQ1@ 4UI<G)O<B!-96YU92Q.;R!-:7)R;W(L5F5R=&EK86P@36ER
M<F]R+$AO<FEZ;VYT86P@36ER<F]RFU0?(2$!1&EA9V]N86P@36ER<F]R+$%L
M;"!-:7)R;W)SFUX?'0T,#D("     !03-I,MD10="@Y" 9     6*",2$@##
MR,_/T\6@P\_,S]*;,B-E%1\.0@.9E0  $@Y! 3     4+Q\.0@-ADP  $D8Z
M#D$74    "6 .(LL+!1!'PY!!1(    2#D"5     !13'PY!!1,    2#D$!
M00   !1E'PY"!4*&   2#D$!D@   !8\(S<)* \!?103(PY!D      4'S:5
M+0Y !0   /X! !0M-I8MBR4.0 $     %#<,#D("     !9&(R</!Y$>#D %
M     !L=-HLMD28.0 $     %"<*#D&0$    !90(PT-"@Y" 9     66B- 
M0 %#:&]O<V4@0V]L;W(L0F%C:V=R;W5N9"Q#;VQO<B Q+$-O;&]R(#(L0V]L
M;W(@,RQ-86EN($UE;G5EFQ G$!  S=7,U,G#S\S/TIL:)Q45'PY"!4*&   2
M#@       !8D)PT-# Y" 0(P   6+B=O%PB,+0Y" YF%   9#D(#F98  !0C
M'XP2#D$!,    !0U'PY!%90    2#D D     !0Y"8P42Q\.0042    $@Y 
M2      471\.0043    $@Y !@     4;Q\.0@5"A@  $@Y! 9(    6."=T
M#2,.0@$ (   %!DVE2T.0 8     %"4VEBT.        %"\,#D("     !1T
M 4UU;'1I8V]L;W(@169F96-T+%-T87)T($5F9F5C="Q3970@0V]L;W(@,"Q3
M970@0V]L;W(@,2Q3970@0V]L;W(@,IM")QP< 5-E="!#;VQO<B S+$UA:6X@
M365N=66;3"<K#P>1(@Y !@     ;(1\.0@4R2   $@X        4*PH.0@&0
M    %E8G%Q<'D1X.0 $     &PY" 0&0_@$  !9@)S<)-IXMC105-HTM#D $
M     !0?# Y!"      4)3:-+9X4-Q\.0@4R2   $@X        6:B=>#2,.
M0@$ @   %!DVGRT.0@-BA@  %"T?GR8.0 $     $@Y! 00    400B,+0X 
M       9#D #     !10!X0XC"PB#D !     !M4"8P47@H.0@$!8   %G0G
M7 \?GQ(.00%S    %",?GR4.0 $     $@Y $0     4-Q^?)0Y  @     2
M#D$"$@   !1%-I\MGR4.0 ,     %%P'A#B,+"(.0 (     &PY" 0$P   6
M?B=*$@>$.(PL(@Y  P     ;'A^?$@Y! 0$    4,A^?)0Y  0     2#D @
M     !1 -I\MGR4.0 (     %$H*#D(! 3   !:()W,/'Y\2#D$"*0   !0C
M'Y\E#D !     !(.0"      %#$VGRV?)0Y  @     4/1^?$@Y! 4$    4
M41^?)0Y  0     2#D 0     !1E'Y\E#D "     !(.00(2    %',VGRV?
M)0Y  P     6DB<:&@>#.(PL(@X        ;#D(! 5   !:<)UH4"(\M#D !
M     !F#.(PL%" ?GQ(.00$)    %#0?GR4.0 $     $@Y $0    #^ 11(
M'Y\E#D "     !(.00(2    %%8VGRV?)0Y  P     46@F/%J8G3@\?GQ(.
M00%!    %",?GR4.0 (     $@Y! @@    4/!^?)0Y  0     2#D B    
M "6 .(PL%$HVGRV?)0Y  P     43@F,%K G5@TC#D(! 6   !0="(PMGQF?
M)0Y "      4(2*'%"<?C!*'%"L)C!16 3$W,RPQ,S(L,BPR-# L,RPW-BPQ
M.3 L,30Q+#DV+#$P.2PQ,2PR,3*;NB<D%1\.0@4R2   $@X        4)#:'
M+3\Z#D(#8H4  "P6Q"<-#0H.0@&0    %LXG70T,#D(! C   !0;-I@MD28.
M0 (     %"4C#D(! 9   !0V-I8M@SB8+"4.0 $     %$(VE2T.0 0     
M%$P,#D("     !1=-H,XF"PMD28.0 $     %M@G/PT,#D(! C   !07(PY"
M 0(@   4(#:6+80XF"P4+#:5+0Y !      4-@P.0@(     %#\VA#B8+"V1
M%N(G:PT*#D(! "   !1K 5-E;&5C="!B<F5A9'1H(&]F(%-T<FEP97,L5F5R
M>2!W:61E(%-T<FEP97,L5VED92!3=')I<&5S+$YA<G)O=R!3=')I<&5S+%9E
M<GD@;F%R<F]W(%-T<OX!:7!E<YOL)T=' 5-E;&5C="!K:6YD(&]F(%-T<FEP
M97,L3F\@4W1R:7!E<RQ3=')I<&5S+%-T<FEP97,@=7 L4W1R:7!E<R!D;W=N
MF_8G< DH#P%]%!T(C"T.        &0Y  P     4.2T.0 (     $@Y  @  
M   DC"4.0!0     %$TH#P9#;VQO<B 5C!4/ R Z(!445R,.0@$"(   %&@(
MFBT.        &80XC"P4;"*!%' )FA8 *#D'*($4(RT.0"4     $@Y  @  
M   DC"4.0!0     %#(H#P53:7IE(!6#.(PL%#8)C!0Y)!;X*@H* -K/S\V;
M BMB"2@/ 7T4$R,.0@$0    %!\VE2T.0 (     %"LVEBT.        %#4,
M#D("     !1B 5IO;VTL6F]O;2!T;R!'<F%P:&EC<R U+%IO;VT@=&\@1W)A
M<&AI8W,@,YL,*Q<7'I$7#D(!$#   !(.0@$5    %A8K%0DVF"V-%!4VC2T.
M0 0     %B KHP\VD2T.        %!LVDBT.        %"TK#D %     "4.
M0!8     %#<,#D$((    !1)'PY!%T0    2#D!(     !1;'PY!%T4    2
M#D 9     !1M'PY!%T8    2#D!      !1_'PY!_@$71P   !(.        
M%)$?#D$72    !(.0 ,     %*,?#D$720   !(.0"      %BHK'0DVC2V8
M%!T'C2(.0 0     &PY" 1!E   6-"N()3:.+48Z#D$%8    "PE1CH.005A
M    +"0.00)6    %#T(CRV.)0Y !@     9CB4.0%$     %$D?CQ(.00$X
M    %$T)CQ1?'PY!!1(    2#D!(     !1Q'PY!!1,    2#D &     !2(
M'PY!%90    2@#B-+"4.0"(     %CDK114?#D(%0H8  !(.00&2    %"$V
MH"T.0@.80   %"TVH2T.0"      %#DVHBT.0$@     %$4VHRT.0 (     
M%CXK.1PVART_.J0\B261)0Y 0      DDCR@+!0Y!T8Z#D(%,GD  "PB#D &
M     !L.0@$2,   %D@K(" '5#H.        +"(.        &PY" 1&    6
M4BLL$C:'+5(Z#@       "P4'@>'(@Y !P     ;+#:1+9$E#D !     !9<
M*QT/!X<B#D 1     !L=-I$MD28.0 $     %F8K'0\'AR(.0!0     &QTV
MDBV2)@Y !      6<"L=#P>'(@Y $P     ;'3:2+9(E#D $     !9Z*QL/
M!Y'^ 2 .        &QLVD2T.        %H0K#PD'D2&A&P\VD2VA%HXK&P\'
MDB .        &QLVDBT.        %I@K#PD'DB&B&P\VDBVB%J(K#0T*#D(!
M$'   !:L*T@5'PY!!5D    2#D!&     !0G'PY! @,    2#@       !0K
M XL42 =4.@X        L(@X        ;#D(!$8   !:V*RD4-H<M/SJ0/ Y"
M VE@   L%"D*1CH.00(#    +"4.0@$2    %L K-!@'1CH.0@4R>0  +"(.
M0 ,     &RH?#D(%,D@  !(.        %#0*#D(!$'   !;**R @!U0Z#@  
M     "PB#D !     !L.0@$1D   %M0K2PT-#D(!$9   !1!+"M&.@Y!%Y  
M   L)J,G#D "     "PGHQ(K1CH.01>1    +":C)PY  @     L)Z,42PH.
M0@$1D   %MXK'Q4?#D(%,D@  !(.        %!\*#D(!D    !:(+&\5'PY!
M%T<    2#D #     !0G'PY!%T@    2#@       !1 -H<M/SJD/* \B261
M)0Y 0      DDBP44A\.0@4R2   $@X        4;P=&.@Y"!3)Y   L(@Y 
M!@     ;#D(!%    !:2+#$5'_X!#D$71P   !(.        %"<?#D$72   
M !(.0 ,     %#$*#D(!$'   !;L+!4)-I@MC105-HTM#D $     !;V+*,/
M-I$M#@       !0;-I(M#@       !0M*PY  P     E#D 6     !0W# Y!
M""     421\.01=$    $@Y )      46Q\.01=%    $@Y "0     4;1\.
M01=&    $@Y 0      4?Q\.01='    $@X        4D1\.01=(    $@Y 
M P     4HQ\.01=)    $@Y $      6 "T="3:-+9@4'0>-(@Y !      ;
M#D(!%4   !8*+8@E-HXM1CH.005@    +"5&.@Y!!6$    L) Y! E8    4
M/0B,+8XE#D &     !F.)0Y )P     421^,$@Y! 38    430F,%%\?#D$%
M$@   !(.0$@     %'$?#D$%$P   !(.0 8     %(@?#D$5E    !* .(TL
M)0Y (@     6%"U/%1\.0@5"A@  $@Y! 9(    4(3:@+0Y"! 5@   4+3:A
M+0Y ,      4.3:B+0Y <@     413:C+0Y !      43PH.0@$0<   %N N
M%!0 Q,7,Q=3%H-#)P]35TL6;ZBYH"2@/ 7T4$R,.0@$@$   _@$4'S:5+0Y 
M$      4*S:6+0X        4-0P.0@(     %&@!1&5L971E(%!I8W1U<F4L
M(" @(" @(*#9Q=.AH"PL+"PL+"PL+" @(" @(" @($Y/F_0N%Q<'D2(.0 $ 
M    &PY 4      6_BX-#0H.0@&0    %L@R$!  Q,G3RZ#-Q<[5Q9O2,GP.
M$1P.0 $     %!0H#P%]%!XC#D(!,    !0J-I4M#D $     !0V-I8M#@  
M     !1 # Y" @     4? %$:7-K($UE;G5E+$QO860@4&EC='5R92Q3879E
M(%!I8W1U<F4L1&ER96-T;W)Y+$UA:6X@365N=66;W#(G)QZ1%PY" 3 P   2
M#D(!-0   !(.0@$W    $@Y" 3D    6YC)N#0T.0@$V    %!,H#P%]%"4M
M#D 2     !(.0 4     %#8H#PQ,;V%D(%!I8W1U<F442"T.0!(     $@Y 
M!P     46"@/"SX@(" @(" @(" \%&HM#D 3     !(.0 <     %&X"@A;K
M,D<=!X(W#D !     #P.0 (     +#0/ D,Z&ST7' Y  0     2#D $    
M !(.        $@\"0SH41PH.0@$P10  %O R5A\V@3<.0 ,     /$(Z@BPE
M#D "     "S^ 2Z"%#DV@3<.0 $     / Y  @     L+@\"1#H45A<<#D !
M     !(.0 0     $@X        2@1;U,BX7"(PM#D$74    !D.01=4    
M%"0I' Y  0     2AQ0J'XP2AQ0N"8P6^C)F$"D<#D !     !*-%!H,#D$(
M     !1&-H<M/SI#.H4L/ Y %@     \#D '     #P.0@-I8   / Y!.#D 
M   L%%$VART_.H@\B2P47!$<#D !     !1F"@Y! 0     6O#1N#0T.0@$V
M    %!,H#P%]%"4M#D 2     !(.0 4     %#8H#PQ3879E(%!I8W1U<F44
M2"T.0!(     $@Y !P     46"@/"SX@(" @(" @(" \%&HM#D 3     !(.
M0 <     %&X"@A;!-$<=!X(W#D !     #P.0 (     +#0/ D,Z&ST7' Y 
M 0     2#D (     !(.        $@\"0SH41PH.0@$U%0  %L8T5A\V@3<.
M0 ,     /$(Z@BPE#D "     "PN@A0Y-H$W#D !     #P.0 (     +"X/
M D0Z%%87' Y  0     2#D (     !(.        $H$6RS0Q%PB,+0Y!%U  
M   9#D$75    !0@-H<M1CJ,+!0M*AP.0/X! 0     2AQ0Q"8P6T#1;$"H<
M#D !     !*-%!H,#D$(     !1&-H<M/SI#.H4L/ Y %@     \#D 1    
M #P.0@-I8   / Y!.#D    L%%$1' Y  0     46PH.00$     %B U014M
M#D '     !(.0!(     %#0H#QI%<G)O<B A(2$@+2 @4')E<W,@5')I9V=E
M<A1!*#XZ#D$"4P   "P6*C4@( =4.@X        L(@Y  0     ;#D(!-A  
M !8T-0T-"@Y" 3 0   6A#4G"2@/ 7T4#"@4)R@/%B @(" @(" @(" @("!$
M:7)E8W1O<GD6CC4N)!<<#D !     !(.0 8     $@X        2#P-$.BH4
M+@T.0@$X    %I@U*Q "' Y  0     2@10A* \*(" @(" @(" @(!6!%"L*
M#D(!-R   !;H-2T8!U0Z#@       "PB#@       !LC$1P.0 $     %"T*
M#D(!,    !;R-0T-"@Y" 3@    63#8?%1\.0@4R2   $@X        4'PH.
M0@&0    %K V%!0 U,78U*"FH,?2P=#(R<.;NC8T"2@/ 7T4&RT.0!      
M$@Y  0     4-"@/%$UI>&5D(%1E>'0@)B!'<F%P:&EC%L0V,14M#D 0_@$ 
M    $@Y  @     4+B@/% T-#0T-#0T-#0T-#0T-#0T-#0T-%#$H%N(V-"8H
M#QY4>7!E(&EN('1E>'0@>6]U('=A;G0@=&\@<&QO=" 4*@*!%#0,#D$(    
M !;L-A45'PY! @,    2#@       !;V-B,.-H<M/SJ0/(DL%",*#D(!0(  
M "5&.@Y! @,    L%@ W(" '5#H.        +"(.0 $     &PY" 4!P   6
M"C=)%PB,+0X        9#D %     !1%,@X        2#D @     "0K#D %
M     ":,+!(.0!      $@Y "      420F,%A0W(1(VD2U&.@Y!%Y     L
M%"$VDBU&.@Y!%Y$    L%AXW"PM9D1*2$H$6,C<-#0H.0@% 8   %L@W'Q4?
M#D(%,D@  !(.        %!\*#D(!D    !:8.@\/ ,G.U,72TM70U)NB.F45
M'PY" YF5   2#D$!,    !0O'PY" V&3   21CH.01=0    )8 XC2PL%$$?
M#D$%$@   !(.0)4     %%,?#D$%$P   !(.00%!    %&4?#D(%0H8  !(.
M00&2    %JPZ-PDH#P%]%!,C#D(!4    !0?-I4M#D &     !0M-I8MC24.
M0 $     %#<,#D("  #^ 0  %K8Z)P\'D1X.0 8     &QTVC2V1)@Y  0  
M   4)PH.0@%0$   %L Z#0T*#D(!D    !;*.DY. 5-E="!);G1E<G)U<'0L
M0F%C:V=R;W5N9"Q#;VQO<B Q+$-O;&]R(#(L0V]L;W(@,RQ.;R!);G1E<G)U
M<'0L36%I;B!-96YU99N /A(2 ,/(P<['Q:##S\S/TIN*/G(-(PY" 6 0   4
M$R@/ 7T4'S:6+0X        4*S:5+0Y !0     4-0P.0@(     %'(!0VAA
M;F=E($-O;&]R+$)A8VMG<F]U;F0L0V]L;W(@,2Q#;VQO<B R+$-O;&]R(#,L
M36%I;B!-96YU99N4/BL/!Y$B#D %     !LA'PY"!3)(   2#@       !0K
M"@Y" 9     6GCXE$3:1+9$F#D !     !0E-I@M1CH.01=0    )8 XD2PL
M%J@^3!0VI2U0.I@G#D 6     "P4)#:F+9@FI20.0!8     %"HVF"V-%$ V
MFRVF) Y  5     E#D C     !1,-HTM#D $     !:R/GL5*PY !0     E
M#D 6     !0?# Y!""     4,1\.0059    $@X        4-S:-+9@400P.
M0@%A    %$L##D #     !1?"(\M#D $     !D.0/X!1@     4:RP.0"  
M    $H\4=R\.0&      $H\4>PF/%K<^%14?#D$%60   !(.0$8     %KP^
M8!0VART_.I \#D(#:6   "P4*0=&.@Y! @,    L'@X        ;.Q\.0@4R
M2   $@X        45A\.01=0    )8 XD2P2I20.0!8     ):848 H.00$ 
M    %L8^(" '5#H.        +"(.0 $     &PY" 6!@   6T#X@( =&.@Y!
M%Y$    L(0Y 10     ;#D(!8)   !;5/CLG-J4M4#HK1CH.01>1    +"8.
M0 50    +"<.0 )P    +!0Q# Y" 6$5   4.PH.0@%@8   %MH^0R\VIBU0
M.BM&.@Y!%Y$    L)@Y 0      L)PY  P     L)@Y  @     4.0P.0@%A
M,   %$,*#D(!8&   !;D/H,5'PY!!1(    2#D!V     !0G'PY!!1,    2
M#D$!00   !1)-HXM1CH.005@    +"5&.@Y!!6$    L) Y! E8    480B,
M+8XE#D &     !F.)0Y 4@     4;1^,$@Y! 3@    4<0F,%(,?#D(%0H8 
M !(.00&2    %O,^&P\'I2 .        &QLVI2T.        %O@^9P\VIRT.
M    _@$    4*PB,+0Y" V*%   9#D(#8S,  !H.0 ,     %#\(FBT.    
M    &0Y  @     441^,)9H2I20.0!8     ):<450F:%&,VIRVG)0Y  0  
M   49PF,%@(_'!D'IB .        *:8A#D 5     !L<)!8,/SL- PX     
M   4&2P.0&(     $IL4)2\.0&,     $IL4.S:;+:8D#D !4    "4.0", 
M    %A8_.A4?#D$'"    !(.0!4     %!\##D !     !0K+ Y 8@     2
MFQ0W+PY 8P     2FQ0Z)!8X2@L+ ,W%SM7%FT)*@PTC#D(!D    !07*PX 
M       4*1\.00<0    $@X        4.Q\.00<(    $@Y! 4     431\.
M00=2    $@Y  0     47Q\.00<$    $@Y! 8@    4<1\.0((     $@X 
M       4@Q\.00<)    $@Y %0     63$I3%1\.0@.9E0  $@Y! 3     4
M+Q\.0@-ADP  $D8Z#D$74    "6 .(LL+!1!. Y!!1(    2#D(#89$  !13
M'PY"!4*&   2#D$!D@   !962F45'PY" YEH   2#D!P     !0G. Y" YEI
M   2#4$5-@   !0Y. Y B     #^ 1(-014V    %$LM#@       !(.    
M    %&4H#Q4@(" @34%'24,M4$%)3E1%4B @(" 68$H8&#@.0(@     $E4Z
M#D(#F7(  "P6:DHE#S:5+0Y %@     4&S:6+0X        4)0P.0@(     
M%G1*8V,!36%I;B!-96YU92Q0;VEN="Q$<F%W+$QI;F4L4F%Y<RQ&:6QL+$-I
M<F-L92Q3<75A<F4L36ER<F]R+$-H;V]S92!#;VQO<BQ-=6QT:6-O;&]R+65F
M9F5C="Q:;V]MFWY*2TL!1&5L971E(%!I8W1U<F4L1&ES:R!-96YU92Q-:7AE
M9"!497AT("8@1W)A<&AI8RQ);G1E<G)U<'0L0VAA;F=E($-O;&]RFXA*#P\*
MD20.01      %B!.$A( T-+)SM32S]74R<[%FR5.:P<B@10B-I$M*PY 0   
M   F0CJ!+"PG#D "     !0N+9$2#D !     !0R*($41PB/+9$9D25".H$L
M)@Y  0     44RV/$@Y  @     462@/ 0T4:Q\.0@4R>0  $@X        6
M)TXK!PF/%!DM#D 4     !(.0",     %"LH#PQ!8W1U86P@0V]L;W(5%BA.
M:!$(CRT.0 $     &944)2T.0!      $H\E#D "     !0I(OX!@10M*($4
M,0F/%$4M#D 3     !(.0 0     )9445B@/#%EO=7(@0VAO:6-E/Q1H'PY!
M!5D    2#D!&     !8J3B<5'PY!%Y     2#D U     !0G'PY!%X@    2
M#D!Y     !8T3BD5'PY! @,    2#@       !0I!Y8B#@       !L.0@( 
M4   %CY.'Q<M#D %     !*6)0Y  @     4'R@/ RTM/A923B\&/!07-H<M
M/SJ0/ Y" VE@   L%"%-#D !     !0O/2A4.@X        L%E=.'1TVD2U0
M.D8Z#D$7D0   "PG#D $     "P67$X;&P>1( Y  0     ID2&5&PY" @!0
M   69DYT%RT.0 4     $I8E#D "     !0?* \#(" @%#,(C"T.        
M&0Y !      41RT.0 ,     $I$E#D "     !11* \%(" @(" 48Q\.0@4R
M>0  $@X        4=#:'+3\ZD#P.0@-I8   +!9P3CH7+0Y  P     2D24.
M0 (     %"$H#P4M+2TM/A0E"8P4-Q\.0@4R2   $@X        4.B067'9W
M#S:++0Y  0     4&S:3+0Y  0     4+1\.0((     $@X        40C: 
M. X        L_@$M#D $     !16"(\M#D !     !D.0 0     %&<V@#B/
M+"V/)@Y  0     4:PF/%'<VC2T.0 0     %F9V#0TC#D(# V   !9Z=DT7
M"(\M#D !     !D.0#$     %!LBAQ0I-H$WCSR/+"X^.H<L%"T)CQ1-%QP.
M0 (     $@Y !      2#@       !(/ DLZ%H1VBPTK#D '     !0?'PY!
M!P@    2#@       !0Q'PY!!PD    2#@       !1#'PY!!Q     2#@  
M     !15'PY!!Q$    2#@       !1I"(\M#@       !D.0 ,     %'@V
M@SB/+"T.        %(<VA#B/+"T.0 $     %(L)CQ:.=BT7"(\M#D !    
M !D.0"@     %!LBAQ0I-H4WCSR/+"X^.H<L%"T)CQ:8=FIJ 3$P-"PQ-S,L
M,3$L,C$R+#$P.2PQ,2PR,3(L,3 Y+#$Q+#(Q,BPQ,#DL,3$L,C$R+#$P,2PR
M,"PQ-#$L,C,L,C X+#(R.2PR,"PR,CDL,C L,30Q+#(R+#(P."PQ-S,L,3,R
M+#*;HG80$ $R,#@L,C(X+#DVFZQV9&0!,3 T+#$P-"PQ,#0L,3<P+#$P-"PQ
M,#0L,34W+#8V+#,L,3 T+#$U-RPV.2PS+#'^ 3 T+#$U-RPV."PS+#$P-"PQ
M-3<L-S,L,RPQ,#0L,34W+#<R+#,L-S8L.#8L,C(XF[9V/ PVB2U#.H8L%!@V
MB"T.0@-@&0  %"0VBBT.0@-@<@  %# VD"T.0@-80   %#PVI"T.0@-@E   
M%L!VF1<(CRT.        &0Y! 0     4-P-0.@Y  @     D2#H.        
M+"4.0 $     +!1)+ Y @      2#D P     !1Q+PY! 5D    D2#H.    
M    +!(.0&@     )$@Z#@       "P4E3(.        $@Y! 0     FCQ(.
M0 @     $@Y !      4F0F/%LIV-14?#D$'4@   !(.0 $     %#4H#QL@
M(" @(" @(" @(" @($UA9VEC(%!A:6YT97(6U'8F)B@/'B @(" @(" @(" @
M($-O<'ER:6=H=" Q.3@T(&)Y(!;>=E(M* \E(" @4F%L9B!&:7-C:&5R(&%N
M9"!(87)A;&0@36%N<V5I8VAE<A12* \?(" @(" @(" @4')E<W,@5')I9V=E
M<B!T;R!S=&%R=!46Z'9G%PB/+0X        9#D #     !0H-H,XCRPMCR8.
M0 $     %#DVA#B/+"V/)0Y  0     4/0F/%%(VA#@.        +"T.0/X!
M 0     49S:#. X        L+0X        6\G:3%2P.0(      $@Y <   
M   4)R\.0(      $@Y @      4.2P.0'<     $@Y <      42R\.0'< 
M    $@Y =0     472\.0',     $@Y @      4;RP.0(,     $@Y <   
M   4@2\.0(,     $@Y =0     4DR\.0(<     $@Y @      6_':')3(.
M        $@Y! E4    2#D 0     !(.0!0     %$<R#D !     !(.00)4
M    $@Y $      2#D 4     !1I,@Y  @     2#D$"4P   !(.0!      
M$@Y %      4>Q\.0@4W:   $@Y  0     4AS:'+3\Z0SJ!+"P6!G>1%PB/
M+0X        9#D #     !0S,H\2#@       !(.        $@X        4
M-PF/%$D?#D$7D0   !(.0 4     %%L?#D$74    !(.0%(     %&T?#D$7
M40   !(.00$X    %'\?#D$74@   !(.00&&    %)$?#D$75    !(.    
M    %A!WC!HVCRU&.@Y! 08    L)@Y )      4)A\.0@5">0  $H\4-#:H
M+8\D#D$"5@   !1,"(\M00&H)0Y!!1(    9J"4.009     %%@?CQ(.    
M    %%P)CQ1H-I(M#D 8     !1Z'PY!!P0    2#D 5     !2,'PY!!5D 
M   2#D!&     !8:=WH5'PY"!3)W   2#D #     !0G'PY"!3)(   2#@  
M     !0["(\M#@       !D.0 8     %#\BJ111'Z@E#D$%$@   "62)8\2
MJ115"8\49Q\.01>)    $@Y %P     4>@$X+#@L,C L.3DL,C L."PXFR1W
M8 \VIRT.0!      %"L(CRT.0@-B0   &0Y" V*$   :#D #     !0_"*HM
M#@       !D.0 (     %$<?CR6J$J<42PFJ%%DVIRVG)0Y %@     470F/
8%& D%@" $Q,9#PM$.DU!1TE#+D)!4Q9O
 
end
###### I guess you cut this out ####

Next, the subroutine object file....

###### cut here too #####
begin 644 magic.obj
M_@'__W"(>XF*2)A((-&(:LK0_&[" FINP@(JILLJRM#\2*TSB8V8B*TTB8V9
MB&B-8)!HJ&BJ8*D 8."@\/G@__#UP&#P\<#_\.V*2)A(J0"-P@(@T8AJRM#\
M+L(":B[" FBH:*JMP@)@J0"%T(JB!QA*D +*RAA*D 3*RLK*&&TSB8TSB:D 
M;32)C32)A,\8)L\FT!@FSR;0&";/)M 8K3.)9<^-,XFM-(EET(TTB1@FSR;0
M&";/)M 8K3.)9<^-,XFM-(EET(TTB:U@D(;+8*  H@ @FHL@HHC) = KBDB8
M2"D'"@H*C<("BBD'&&W" JJ]@(F-P@)HJ&BJI=*-,XFET8TTB2!PB.C@H-#&
MR,!@T+]@@8JDBVAHA<QHA<UHA=%HA=*@ *( I=&--(FETHTSB2"BB,7.\ 2I
M = "J0"-P@*ES8TSB:7,C32)('"(Z."@T-3(P&#0S:[^!JS_!J7-C3.)I<R-
M-(FI HW" HW! B!PB**?CGZ)()J+(**(R0'0 XU^B<D T!C(()J+(**(B,D!
M\'SH()J+(**(RLD!\'#*X/_0TJY^B>"?\ 6(P/_0P:W! LD \%7(J0"-P0*B
M (Y^B2":BR"BB,D!T .-?HG) - 8B"":BR"BB,C) ? VRB":BR"BB.C) ? J
MZ."@T-*N?HG@ / %R,!@T,&\ :W! LD \ FI (W! HA,WHI,.(D@B(M,#(L@
MB(M,6(NI HW" HW! HU^B2":BR!PB&"ES8TSB:7,C32)8 ",:8UHK?P&C0#0
MK1_0R0;P*LD#\"EH:*UX LD'\#O)"_!+R0[P5<D-\&S)"O 3R0;P%<D)\!?)
M!? 98$RTC$SIC"!JC$QXC"!6C$QXC"!JC$R3C"!6C$R3C*W^!LF?\ SN_@;N
M_ :M_ :- -!@K?X&\/K._@;._ 9,8XRM_P;P[,[_!J[]!J )O0"*G?^)Z(C0
M]L[]!F"M_P;)7_#X[O\&K?T&:0BJH F] (J= 8K*B-#V[OT&8&AHC=>,:(W6
MC*E@C=.,J9"-U(P@SHRIR(7+8*( H ^]8)"=8)#HT/?NUXSNU(R(T.Y@A<M@
M:&B-U(QHC=.,J6"-UHRID(W7C$S.C&AHC1>-:(T6C6B-&HUHC1F-K- &KM$&
MO:AAG:AARA#WKM,&&+T6C6W2!IT6C;T7C6D G1>-KM0&&+T6C6W5!IT6C;T7
MC6D G1>-B-#'8$B*2*X+U+V C8T*U(T8T&BJ:$!(J=Z-"M2-&-!H0# &/09(
-K0O4Y12-"M2-&M!H0*X+
 
end

hyc@UMIX.CC.UMICH.EDU (Howard Chu) (01/15/87)

Uh, assuming I didn't screw up the posting, that should be MAGIC.TUR and
MAGIC.OBJ, as I said in the first message. It's not a compiled file, just
a saved BASIC file. And yes, MAGIC.OBJ is a file of machine code subroutines,
and must be named MAGIC.OBJ. 
  -- Howard Chu
	hyc@umix.cc.umich.edu