Category : Science and Education
Archive   : MECHAN93.ZIP
Filename : TEMP.BAS

 
Output of file : TEMP.BAS contained in archive : MECHAN93.ZIP
ÿo
 SUMMARY - November 1, 1988«‹ RET$ç"MECHDR" ï RET$ç"MECHDRT" ï RET$ç"MECHDRI" Í F»‘ Ö(N,"*")‘ "*";Î )"SUMMARY - Display data in the RESULTS or a .PLT file"ÎN)"*"Q(‘ "*"Î)"or read data file into memory for graphical display"ÎN)"*"a2‘ Ö(N,"*")i<‘:‘ŸF‹ IRET%è Í ‘"SUMMARY MUST BE CALLED FROM MECHAN"ÒP‹ IRET%è Í ‘"RETURNING TO MECHAN" : Š"MECHAN"ØZ»dXMINç ù¢ : YMINç ù¢ : XMAXç êù¢ : YMAXç êù¢Hn‘"LIST OF .PLT FILES ON THE "DRIVE$" DRIVE" : ‘^xþ DRIVE$é"*.PLT"f‚‘:‘˜Œ‘"Press to use the RESULTS data file"Å–…"or input the name of a .PLT file ";RF$ñ ‹ RF$ç"" Í RF$çDRIVE$é"RESULTS" : ‰ ú ª‹ ÿ‚(RF$,)ç".PLT" î ÿ(RF$,)èæ"C:" Í ÜO´‹ ÿ‚(RF$,)èæ".PLT" î ÿ(RF$,)ç"C:" Í æ¾‹ ÿ‚(RF$,)èæ".PLT" î ÿ(RF$,)èæ"C:" Í ð­ȋ ÿ‚(RF$,)ç".PLT" î ÿ(RF$,)ç"C:" Í úÒҋ RF$ç"" Í RF$ç DRIVE$é"RESULTS"íÜRF$çDRIVE$éRF$ : ‰ úæRF$çRF$é".PLT" : ‰ ú*ðRF$çDRIVE$éRF$é".PLT" : ‰ ú;úº "I",#,RF$e‘:‘"Reading data from data file ";RF$Œ‹ RET$ç"MECHDR" Í PAU$ç"N" : ‰ TÅ‹ RET$ç"MECHDRT" ï RET$ç"MECHDRI" Í PAU$ç"N" : ‰ T"À : ‘"PAUSE to inspect RESULTS ? [Default= N] Y or N ? ";&,PAU$çÞ : ‹ ÿ’(PAU$)ç Í ,@6‹ PAU$ç"n" Í PAU$ç"N"]@‹ PAU$ èæ "N" Í PAU$ç"Y"hJ‘ PAU$nT‘Š^…#,KORD$,A$,NP,NM,NPOS©h‹ A$ç"K" Í S$ç"kinematics"Ær‹ A$ç"D" Í S$ç"dynamics"ù|‘"The data file ";RF$;" contains ";S$;" data."†…#,HEAD00$,NFP%=‚ Iç  Ì NFP% : …#,FP%(I) : Jç ÿ†(FP%(I))\•…#,FP(,J),FP(,J) : ƒ Ivš‹ RET$ç"MECHDR" Í ê¢¤‹ RET$ç"MECHDRT" ï RET$ç"MECHDRI" Í ê¿®‘"FIXED POINT LOCATIONS"ݸ‘"----------------------"‘" POINT NUMBER X Y"ÌF$ç"#####.###"KÖ‚ Iç  Ì NFP% : F$ç"##########" : ‘ × F$;FP%(I);]ÛJç ÿ†(FP%(I))~à‘ × F$;FP(,J),FP(,J) : ƒ I‘ê…#,HEAD0$,NC%«ô‹ RET$ç"MECHDR" Í ×þ‹ RET$ç"MECHDRT" ï RET$ç"MECHDRI" Í ñ‘"COMPONENT SEQUENCE" ‘"------------------";6‚ Iç  Ì NC% : …#,CC%(I) : Kç CC%(I)s& ‹ RET$ç"MECHDR" ï RET$ç"MECHDRT" ï RET$ç"MECHDRI" Í :Œ0‘ : ‘"COMPONENT ";K;¾:• K ‰ D,X,l,€,”,²,Ð,î,,ÛD…#,G(I,),G(I,),G(I,)NN1(I)çG(I,) : N2(I)çG(I,) : N3(I)çG(I,) : ‰  /X…#,G(I,),G(I,),G(I,)fbN1(I)çG(I,) : N2(I)çG(I,) : N3(I)çG(I,) : ‰  Šl…#,G(I,),G(I,),G(I,),G(I,)ÐvN1(I)çG(I,) : N2(I)çG(I,) : N3(I)çG(I,) : N4(I)çG(I,) : ‰  퀅#,G(I,),G(I,),G(I,)$ŠN1(I)çG(I,) : N2(I)çG(I,) : N3(I)çG(I,) : ‰  R”…#,G(I,),G(I,),G(I,),G(I,
),G(I, ) ¡žN1(I)çG(I,) : N2(I)çG(I,) : N3(I)çG(I,) : N4(I)çG(I,
) : N5(I)çG(I, )«¨‰  ز…#,G(I,),G(I,),G(I,),G(I,),G(I, ) &¼N1(I)çG(I,) : N2(I)çG(I,) : N3(I)çG(I,) : N4(I)çG(I,) : N5(I)çG(I, )0Ɖ  ]Ð…#,G(I,),G(I,),G(I,),G(I,
),G(I,
)¬ÚN1(I)çG(I,) : N2(I)çG(I,) : N3(I)çG(I,) : N4(I)çG(I,
) : N5(I)çG(I,
)¶ä‰  òî…#,G(I,),G(I,),G(I,),G(I,),G(I,),G(I,
),G(I,)AøN1(I)çG(I,) : N2(I)çG(I,) : N3(I)çG(I,) : N4(I)çG(I,
) : N5(I)çG(I,)dN8(I)ç G(I,) : N9(I)ç G(I,)n ‰  ¢…#,G(I,),G(I,) : N1(I)çG(I,) : N2(I)çG(I,)Þ ‹ RET$ç"MECHDR" ï RET$ç"MECHDRT" ï RET$ç"MECHDRI" Í 4ò*‘ " N1=";N1(I);#+‹ N2(I) èæ  î N2(I) èæ ' Í ‘ "N2=";N2(I);T,‹ N3(I) èæ  î N3(I) èæ ' Í ‘ "N3=";N3(I);…-‹ N4(I) èæ  î N4(I) èæ ' Í ‘ "N4=";N4(I);¶.‹ N5(I) èæ  î N5(I) èæ ' Í ‘ "N5=";N5(I);ç/‹ N8(I) èæ  î N8(I) èæ ' Í ‘ "N8=";N8(I); 0‹ N9(I) èæ  î N9(I) èæ ' Í ‘ "N9=";N9(I);$ 4ƒ I : ‘Y >‹ ÿ£() î RETT$ç"MECHPL" Í þŒ "MECHPL",IRET%,ALL H‹ ÿ£() î RET$ç"MECHDR" Í þŒ "MECHDR",IRET%,ALLà R‹ ÿ£() î RET$ç"MECHDRT" Í þŒ "MECHDRT",IRET%,ALLù \‹ ÿ£() î RET$ç"MECHDRI" Í þŒ "MECHDRI",IRET%,ALL!f‹ ÿ£() Í Š "MECHAN"6!p… #,HEAD1$,NPOS,TIME,PP,VV,AA {!z‹ RET$èæ"MECHDR" î RET$èæ"MECHDRT" î RET$èæ"MECHDRI" Í ‘ HEAD1$;º!„‹ RET$èæ"MECHDR" î RET$èæ"MECHDRT" î RET$èæ"MECHDRI" Í ¢é!Ž‹ NPOSç Í ‘ : ‘ "POSITION ";NPOS; : ‰ Ôý!˜‘ NPOS; : ‰ Ô"¢Q$ç Þ : ‹ ÿ’(Q$)ç Í §$"¤ ˆX"§‘" ... POSITION NUMBER ";NPOS;" ... INPUT= ";PPh"¬‘ Ö(A,"-")‡"¶‘"TIME = ";TIME;" seconds"Ê"À‘"INPUT POSITION= ";PP;" VELOCITY= ";VV;" ACCELERATION= ";AAÐ"Ê‘á"Ô… #,HEAD2$ #Þ‹ RET$ç"MECHDR" ï RET$ç"MECHDRT" ï RET$ç"MECHDRI" Í F#è‘ Ö(," ");HEAD2$;" ... INPUT= ";PPL#ò‘’#ü‘" MEMBER THETA(deg) OMEGA(rad/sec) ALPHA(rad/sec/sec)"˜#‘¥#… #,MEM¶#‚ Iç  Ì MEMÈ#$… #,L,TH,W,A$.‹ RET$ç"MECHDR" ï RET$ç"MECHDRT" ï RET$ç"MECHDRI" Í LA$8F1$ç"#####" : F2$ç" #.####^^^^" : F3$ç" #.####^^^^"m$B‘ × F1$;L; : ‘ " "; : ‘ × F2$;TH,W,A«$LMP(,I,NPOS)ç TH : MP(,I,NPOS)ç W : MP(,I,NPOS)çA : ƒ Iô$V‹ RET$èæ"MECHDR" î RET$èæ"MECHDRT" î RET$èæ"MECHDRI" Í  j : ‰ °þ$`‰ °6%j *** SUBROUTINE FOR "Press prompt ***r%t‹ RET$ç"MECHDR" ï RET$ç"MECHDRT" ï RET$ç"MECHDRI" Í ¦‡%~‹ PAU$ç"N" Í ¦Ä%ˆ‘ : ‘ "Press to continue ... to quit";à%’Q$çÞ : ‹ ÿ’(Q$)ç Í ’ý%”‹ Q$ç ÿ–() Í Š"MECHAN"&œ‘ &¦Ž&°… #,HEAD3$U&º‹ RET$ç"MECHDR" ï RET$ç"MECHDRT" ï RET$ç"MECHDRI" Í Î‚&Ä‘:‘ Ö(," ");HEAD3$;" ... INPUT= ";PP:‘&Î… #,NPTSÌ&Ø‹ RET$ç"MECHDR" ï RET$ç"MECHDRT" ï RET$ç"MECHDRI" Í 
'â‘" POINT PX PY VX VY AX";('ì‘" AY".'ö‘@'
‚ Iç  Ì NPTS_'… #, NP,PX,PY,VX,VY,AX,AYw'‹ PXèXMIN Í XMINçPX'(‹ PYèYMIN Í YMINçPY§'2‹ PXæXMAX Í XMAXçPX¿'<‹ PYæYMAX Í YMAXçPYç'FPP(,NP,NPOS)çPX : PP(,NP,NPOS)çPY(PPP(,NP,NPOS)çVX : PP(,NP,NPOS)çVY7(ZPP(,NP,NPOS)çAX : PP(,NP,NPOS)çAYs(d‹ RET$ç"MECHDR" ï RET$ç"MECHDRT" ï RET$ç"MECHDRI" Í –’(n‘ × F1$;NP;:‘ × F3$;PX;PY;¾(x‹ VXç î VYçO î AXç î AYç Í ‘ : ‰ –ò(‚‹ VXç' î VYç' î AXç' î AYç' Í ‘ : ‰ –
)Œ‘ × F3$;VX,VY,AX,AY)–ƒ IN) ‹ RET$ç"MECHDR" ï RET$ç"MECHDRT" ï RET$ç"MECHDRI" Í ´X)ª j†)´… #,HEAD4$,NS : ‹ HEAD4$ç"NOSLID$" Í "Â)¾‹ RET$ç"MECHDR" ï RET$ç"MECHDRT" ï RET$ç"MECHDRI" Í ðí)È‘:‘ Ö(," ");HEAD4$;" ... INPUT= ";PPó)Ò‘**Ü‘ " POINT RS VS AS"0*æ‘@*ð‚ Iç  Ì NSV*ú… #,IP,RS,VS,AAS’*‹ RET$ç"MECHDR" ï RET$ç"MECHDRT" ï RET$ç"MECHDRI" Í ¶*‘ × F1$;IP; : ‘ × F2$;RS,VS,AASý*ƒ I : ‹ RET$èæ"MECHDR" ï RET$èæ"MECHDRT" ï RET$èæ"MECHDRI" Í  j9+"‹ RET$ç"MECHDR" ï RET$ç"MECHDRT" ï RET$ç"MECHDRI" Í 6v+,‹ HEAD4$ç"NOSLID$" Í ‘:‘ "NO SLIDERS IN THE MECHANISM":‘‰+6‹ A$ç"K" Í Hœ+@… #,HEAD5$,T0¯+J… #,HEAD6$,NFë+T‹ RET$ç"MECHDR" ï RET$ç"MECHDRT" ï RET$ç"MECHDRI" Í ,^‘ Ö(," ");HEAD6$;" ... INPUT= ";PP,h‘R,r‘ "FORCE FROM TO X-COMPONENT Y-COMPONENT";|,|‘ " MAGNITUDE DIRECTION (deg)"‚,†‘’,‚ Iç  Ì NF¨,š… #, II,JJ,FX,FYã,¤FMçÿ‡(FXíéFYí) : XXçFX : YYçFY :  N : FDçAAì9ú{-®‹ RET$ç"MECHDR" ï RET$ç"MECHDRT" ï RET$ç"MECHDRI" Í ÂV-¸‘ " "; : ‘ × F1$;II,JJ; : ‘ × F2$;FX,FY,FM,FD^-ƒ Iš-Ì‹ RET$ç"MECHDR" ï RET$ç"MECHDRT" ï RET$ç"MECHDRI" Í ê¤-֍ jØ-à‘:‘ Î);"";HEAD5$;"=";T0;" ... INPUT= ";PP : ‘è-ê… #,HEAD6$$.ô‹ RET$ç"MECHDR" ï RET$ç"MECHDRT" ï RET$ç"MECHDRI" Í ;.þ‘ Ö(," ");HEAD6$;M.… #, SFX,SFY‰.‹ RET$ç"MECHDR" ï RET$ç"MECHDRT" ï RET$ç"MECHDRI" Í HÁ.‘" ACTING ON FRAME X-COMPONENT Y-COMPONENT"ã.&‘ : ‘ Î/); : ‘ × F2$;SFX,SFYí.0 jÿ.:‘ : ‘ : ‰ HH/D ******************************************************************ˆ/N ATAN2(YY,XX) DEFINE XX,YY THEN GOSUB 1000 -- RETURNS AAÇ/X ********************************************************ï/bX9çXX : ‹ ÿ†(X9)è å<> Í X9ç å<> 0lPIç ÿŽ()ë : TTç YYìX9 : AAç ÿŽ(ÿ†(TT))B0v‹ XX è  î YY è  Í AAç AAéPIb0€‹ XX æ  î YY è  Í AAç êAA„0Š‹ XX è  î YY æ  Í AAç PIêAAŠ0”ŽÓ0ž ******************************************************************1¨ LAW OF COSINES DEFINE RR1, RR2, RR3 THEN GOSUB 1100 -- RETURNS AAf1² ******************************************************************µ1¼CCç(RR1ëRR1 é RR2ëRR2 ê RR3ëRR3)ì(ëRR1ëRR2) : SSç ÿ‡(êCCëCC) : TTç SSìCCÍ1ÆAAç ÿŽ(ÿ†(TT)) : Ž ÿÿ

  3 Responses to “Category : Science and Education
Archive   : MECHAN93.ZIP
Filename : TEMP.BAS

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/