Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!rutgers!mit-eddie!genrad!decvax!ucbvax!mitre-bedford.ARPA!jhs
From: jhs@mitre-bedford.ARPA
Newsgroups: comp.sys.atari.8bit
Subject: Compiled Turbo BASIC example.
Message-ID: <8701142129.AA01523@mitre-bedford.ARPA>
Date: Wed, 14-Jan-87 16:29:16 EST
Article-I.D.: mitre-be.8701142129.AA01523
Posted: Wed Jan 14 16:29:16 1987
Date-Received: Thu, 15-Jan-87 03:33:07 EST
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The MITRE Corp., Bedford, MA
Lines: 418

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;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@.-H0    +!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,.-H0    +!)&.@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     %"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-H1    +"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@-HQL@( =4.@X     
M   L(@X        ;#D%P-0   !: &U .-H#D %
M     !L=-HLMD28.0 $     %"<*#D&0$    !90(PT-"@Y" 9     66B- 
M0 %#:&]O1(@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*'%"2!W:61E(%-T'(@Y !P     ;+#:1+9$E#D !     !9<
M*QT/!X'(@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-H0  +"(.
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-(@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&5D(%1E>'0@)B!'7!E(&EN('1E>'0@>6]U('=A;G0@=&\@<&QO=" 4*@*!%#0,#D$(    
M !;L-A45'PY! @,    2#@       !;V-B,.-HPF/%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$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.'Q1( 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     %&=E(M* \E(" @4F%L9B!&:7-C:&5R(&%N
M9"!(87)A;&0@36%NQ\.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 (     %$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"?\ 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,:(W6
MC*E@C=.,J9"-U(P@SHRIR(7+8*( H ^]8)"=8)#HT/?NUXSNU(R(T.Y@A-:(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