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

 
Output of file : MECHAN.BAS contained in archive : MECHAN93.ZIP
ÿ}
 MECHAN : Version 93-1 : January 21, 1993¹ data files for earlier versions may not be compatibleû *********************************************************** (È ,, : À2º "I",#,"INIT"F<… #, DRIVE$,SCR$,NPOS,DISP : » #[F‹ DISP ç  Í ppP‹ SCR$ç"1" Í È …U‹ SCR$ç"2" Í È ‹ZÄd‘" PROGRAM MECHAN : DEFAULT INIT PARAMETERS"øn‘" VERSION 93-1 ... January 21, 1993"þx‘=‚‘"Default disk drive for data files ..... DRIVE$= ";DRIVE$zŒ‘"Default display '1'=VGA/EGA '2'=CGA ..... SCR$= ";SCR$¶–‘"Default max number of posiitions ........ NPOS=";NPOSò ‘"Default initial display 0=NO 1=YES ... DISP=";DISPøª‘+´‘"The file INIT has the format: 'C:','1',20,1"1¾‘lÑ"To suppress these INITIAL DISPLAYS change DISP to 0"…đ"in the INIT file."‹őÕȑ"IF the default disk drive DRIVE$ is incorrect MECHAN will not run."ґ"Check the value of DRIVE$ in INIT and change if necessary."ܑYæ‘"To change the INIT file enter init at the DOS prompt"_ð‘ˆú‘"Press to continue ... ";¥Q$ç Þ : ‹ ÿ’(Q$)ç Í «ÀÜ‘" CHANGES beginning with version 93-1":‘$‘" The HELP file was modified to explain the use of INTERPRETER"b‘" mode and the method of getting HARDCOPY ouput." : ‘Q$ç Þ : ‹ ÿ’(Q$)ç Í …À¼‘" NEW FEATURE beginning with VERSION 91-3" : ‘ø"‘" The display of the INPUT CYLINDER was corrected."þ,‘86‘" NEW FEATURE beginning with VERSION 1991-1 " : ‘x@‘" The former SETUP file has been renamed INIT to avoid"±J‘" conflicts with WINDOWS use of the name SETUP."ÎTQ$ç Þ : ‹ ÿ’(Q$)ç Í TÔ^Àh‘" NEW FEATURES beginning with VERSION 1990-3" : ‘Mr‘" Calculation without scrolling the display is now an"Ž|‘" option. This will complete the calculations in about"͆‘" 50% of the time it takes when tables of results are"‘" displayed. Later you can look at tabulated values using"Sš‘" program SUMMARY. Handy when your main interest is the"Š¤‘" graphical displays from MECHDR or MECHPL.":‘¶®‘" Press to continue ...";Ó¸Q$ç Þ : ‹ ÿ’(Q$)ç Í ¸ÙÂÀÌ‘" NEW FEATURES beginning with VERSION 1990-2" : ‘VÖ‘" The EGA mode now will display the mechanism in COLOR.":‘•à‘" The original point of contact for spur gears is now"Óê‘" followed on both gears when a mechanism with gears"îô‘" is displayed.":‘þ‘" Press to continue ...";7Q$ç Þ : ‹ ÿ’(Q$)ç Í =Àw‘" NEW FEATURES beginning with VERSION 1990-1" : ‘¹&‘" The format of the *.XLD file has been changed to allow"û0‘"the definition of individual external loads on any member.":‘FD‘" The data file now includes the point number for the point"N‘"of application of the force components Fx and Fy in the format:"“X‘Ãb‘" Pos, Mem, Point, Fx, Fy, Torque"Él‘v‘"The Point-of-application of the force must be defined as either">€‘"a joint or as a point on a rigid body."DŠ‘‹”‘" The DxF moment of Fx and Fy about the cg of Mem is computed"Íž‘"and DxF need only be specified when 1988 format data files"¨‘"are used with Point set = 0 as described in the HELP file."²‘>¼‘"Press to continue ... ";[ÆQ$ç Þ : ‹ ÿ’(Q$)ç Í ÆaÐÀ›Ú‘" NEW FEATURES beginning with VERSION 1988-4" : ‘ßä‘" The non-zero external load components for each position "% î‘"of each member are now stored in files with an .XLD extension."+ ø‘q ‘" Read the HELP file from the main menu to see a description"­ ‘"of the data format in a *.XLD (External Loads) file."³ ‘ù ‘" The SPUR GEARS component will now allow either or both the",!*‘"input gear or arm to be on a moving member."2!4‘x!>‘" To SUPPRESS THIS DISPLAY after your system has been setup"¯!H‘"change the value of DISP to 0 in the INIT file."Ü!R‘ : ‘"Press to continue ... ";ù!\Q$ç Þ : ‹ ÿ’(Q$)ç Í \ÿ!fÀ,"pNMç 
:  NM= max number of membersX"zNPç  :  NP= max number of points’"„ NPOS is now set by the last entry in the setup fileÇ"Ž Max value of NPOS = 25 for kinematics problemsú"˜ = 20 for dynamics problemsE#¢ Reduce NM,NP, and NPOS if you get OUT OF MEMORY message at execution~#¬ Make space for N8 and N9 in SPUR GEARS in PP array#¶NGç NP é Ó#À† FP%(NP),PP%(NP),SS%(NP),CC%(NM),MM%(NM),JF%(NP),FF%(NP),TT%(NP)"$ʆ I$(NP),F$(NP),P$(NPOS),C$(NP),M$(NP),G$(NP),G(NP,),MN(NM),PN(NP),B(NP)o$Ô† MM$(NM),II$(NM),F(,NP,NPOS),FP(,NP),P(,NP),Q(,NP,NPOS),Z(NP),T(NM)º$Þ† W(NM),A(NM),S(NP),RS(NP),VS(NP),AS(NP),N(NP),M(NP),I(NM),L(NM),K(NM) %è† HEAD$(),PP(,NG,NPOS),MP(,NP,NPOS),N1(NM),N2(NM),N3(NM),N4(NM),N5(NM)+%ò† N6(NM),N7(NM),N8(NM),N9(NM)k%ü† TH10(NPOS),TH50(NPOS),PHI00(NPOS),PHI40(NPOS),PHI50(NPOS)}%» : ONCE$ç"F"%È ,, : À%‘ Ö(I,"*")¯%$‘"*";ÎI);"*"÷%.‘"*";Î
);"MECHAN : Dynamic Analysis of Planar Mechanisms";ÎI);"*" &8‘"*";ÎI);"*"L&B‘"*";Î);"Version 93-1 January 21, 1993";ÎI);"*"&L‘"*";Î);"Copyright (c) C. W. Radcliffe 1993";ÎI);"*"Ÿ&V‘ Ö(I,"*")¥&`‘ð&j‘" Distributed as user-supported shareware. This program is copy-"$'t‘" writed and is NOT in the public domain. "*'~‘r'ˆ‘" A voluntary contribution of $25 from individuals or $50 from"»'’‘" corporations or educational institutions will register you as"(œ‘" as a user. Students need not register until after graduation."F(¦‘" Continuing users are expected to make a contribution."L(°‘„(º‘" Mail contribution to: Prof. C. W. Radcliffe"º(Ä‘" 571 Silverado Drive"ñ(Α" Lafayette, CA 94549"÷(Ø‘@)â‘" You may make copies freely and give to other potential users."‹)ì‘" DO NOT make changes or distribute a modified version of MECHAN."¸)ö‘ : ‘"Press to continue ... ";Õ)Q$ç Þ : ‹ ÿ’(Q$)ç Í ý)
À : ‘ : IRET%ç  : RET$ç"MECHAN"5*‘ : ‘ Î);"***** SELECT PROGRAM TO RUN *****" : ‘n*‘" 1 - MECHAN - Kinematic or Dynamic Analysis"¶*(‘" 2 - MECHDR - Graphical display and animation of mechanism"ð*2‘" 3 - MECHPL - X:Y plots of numerical results"(+<‘" 4 - SUMMARY- Tabulated numerical results "S+F‘" 5 - Display HELP information"|+P‘" 6 - Quit and return to DOS"‚+Z‘Æ+d‘ Î );"Press option number key (ENTER key not required) ... ";ã+nQ$ç Þ : ‹ ÿ’(Q$)ç Í n,x‹ ÿ”(Q$)ç Í ‘ Q$ : ‰ d,‚IOPTç ÿ”(Q$) : À7,Œ‹ IOPT è ï IOPTæ Í IOPTçJ,–‹ IOPTç Í Òj, ‹ IOPTç Í þŒ "MECHDR",,ALL„,ª‹ IOPTç Í Š "MECHPL"¥,´‹ IOPTç Í þŒ "SUMMARY",,ALLÃ,¾‹ IOPTç Í þŒ "HELP",,ALLÕ,È‹ IOPTç Í þƒî,ÒÀ : ‹ DISP ç  Í 0-Ü‘"1 - Data files are on drive "DRIVE$". Defined in INIT file"6-æ‘„-ð‘"2 - User should have a complete sketch of the mechanism available with"Á-ú‘" all geometric parameters defined on the sketch.":‘.‘"3 - There will be many situations in running the programs"H.‘" where the user may press or to accept"Ž.‘" a MOST TYPICAL default option. Try an experiment later."”."‘Þ.,‘"4 - Maximum number of points= "NP" Maximum number of members= "NM/6‘ " Maximum number of positions= "NPOS/@‘Y/J‘" If you get message OUT OF MEMORY reduce value of NPOS"v/T‘" in the INIT file."|/^‘Ã/h‘:‘"5 - DATA for sample problems are included on the distribution" 0r‘" diskette. To run a sample problem press RETURN for the first"U0|‘" data entry then select a data file name from the *.DAT files."0†‘" Press RETURN to accept default data entries."Ô0„"INPUT CRANK L N1 N2 R(L) N3 S(N3) B(N3)"ÿ0š„"INPUT SLIDER N1 N2 B(N2)"F1¤„"INPUT CYLINDER N1 N2 N3 M L1 L2 R(L)"1®„"POINT ON BODY L N1 N2 R(L) N3 S(N3) B(N3)"Ý1¸„"TWO-LINK DYAD N1 N2 N3 M L1 L2 R(L1) R(L2)"$2„"OSCILLATING SLDR N1 N2 N3 M L1 L2 E(L1)"t2Ì„"ROTATING GUIDE N1 N2 N3 M L1 L2 R(L2) B(N3)"Ä2Ö„"SPUR GEARS N1 N2 N3 M L1 L2 RHO1 RHO2"3à„"SPRING (LINEAR) N1 N2 K1 K2 KS L0"=3ê„"DAMPER (VISCOUS) N1 N2 K1 K2 KD"`3ô‚ Iç  Ì 
: ‡ HEAD$(I) : ƒ Iœ3þ‚ Iç  Ì 
: ‚ Jç  Ì 
: F(,I,J)ç' : F(,I,J)ç'ª3ƒ J : ƒ I°3Œº3‰ &Ê3&T7ç : T8çë30‘ : ‘ : ONCE$ç"F" : ONE$ç"F"4:‘"NEW DATA FILE ? [Default= NO] Y/N ? ";84DDF$çÞ : ‹ ÿ’(DF$)ç Í DP4N‹ DF$ç"y" Í DF$ç"Y"i4X‹ DF$ç"n" Í DF$ç"N" ‚4b‹ DF$èæ"Y" Í DF$ç"N"¡4l‘ DF$ : ‹ DF$ èæ "Y" Í €µ4v‹ DF$ç"Y" Í  ó4€À : ‘"DATA FILES ON DRIVE "DRIVE$ : ‘ : þ DRIVE$é"*.XLD" 5Šþ DRIVE$é"*.DAT"L5”‘"***** NULL entry will read the LAST DATA FILE CREATED *****"Œ5ž‘:…;"Enter DATA FILE name [without .DAT extension] :",PROB$º5¨YN$ç"N" : ‹ ÿ’(PROB$)ç Í YN$ç"Y" : ‰ Æç5²PROB$çDRIVE$éPROB$é".DAT" : PROBS$çPROB$%6¼º "I",#,PROB$ : … #,D$,NP,NFP,NC,NM,NPOS : » # : ‰ îW6Æ» # : º "I",#,"DATF" : … #,PROB$,A$ : » #6к "I",#,PROB$ : … #,D$,NP,NFP,NC,NM,NPOS : » #“6ڏ 6ä‘ PROB$;ã6î‹ D$ç"K" Í ‘" with kinematic analysis data" : A$ç"K" : ‰ Þ7ø‹ D$ç"D" Í ‘" with dynamic analysis data"'7‹ D$ç"D" Í F1ç17 A$çD$;7‰ ˜r7 ‘ : …"Enter the name of the NEW DATA FILE: ",PROB$”7*PROB$çDRIVE$éPROB$é".DAT" : »Õ74‘ : S$çAS$ : ‘"(K)inematic or (D)ynamic analysis ? K/D ? ";ñ7>D$çÞ : ‹ ÿ’(D$)ç Í >8H‹ D$ç"d" Í D$ç"D"8R‹ D$èæ"D" Í D$ç"K"'8\F1ç88f‘ D$ : A$çD$u8p‘"Writing new data filename ";PROB$;" to data file DATF"‰8zº "O",#,"DATF"›8„· #,PROB$,D$¬8Ž» # : ‰ j í8˜‘ : S$çAS$ : ‘"(K)inematic or (D)ynamic analysis ? K/D ? "; 9¢A$çÞ : ‹ ÿ’(A$)ç Í ¢9¬‹ A$ç"" Í A$ç D$49¶‹ A$ç"k" Í A$ç"K"R9À‹ A$èæ"K" Í A$ç"D" : F1ç[9Ê‘ A$¥9Ô‹ A$ç"D" î D$èæ"D" Í ‘"No mass/inertia data in the data file.":A$ç"K"Ô9Þ‹ A$ç"K" Í ‘:‘:‘"Begin kinematic analysis":è‹ A$ç"D" Í ‘:‘:‘"Begin dynamic analysis":ò‹ A$ç"D" Í j Z:ü‘"(P)osition, (V)elocity or (A)cceleration analysis ? P/V/A ? ";w: Q$ç Þ : ‹ ÿ’(Q$)ç Í  : ‹ Q$ç"p" Í Q$ç"P"£: ‹ Q$ç"v" Í Q$ç"V"¹:$ ‹ Q$ç"a" Í Q$ç"A"ä:. ‹ Q$èæ"P" î Q$èæ"V" î Q$èæ"A" Í Q$ç"P"ø:8 ‹ Q$ç"P" Í F1ç ;B ‹ Q$ç"V" Í F1ç ;L ‹ Q$ç"A" Í F1ç-;V ‘ Q$ : ‘B;` ‹ DF$ç "Y" Í j ƒ;j ‚ Iç  Ì 
: MN(I)ç : T(I)ç' : W(I) ç  : A(I) ç  : ƒ IÁ;t ‚ Iç  Ì  : PN(I)ç : RS(I)ç : VS(I)ç : AS(I)ç : ƒ Iø;~ ‚ Iç  Ì  : ‚ Jç  Ì  : P(I,J)ç ' : ƒ J : ƒ I<ˆ ‚ Iç  Ì 
: K(I)ç : ƒ IN<’ ‚ Iç  Ì 
: ‚ Jç  Ì  : G(I,J)ç' : ƒ J : ƒ Iˆ<œ ‹ DF$ç"N" Í RET$ç"DYNAN" : IRET%ç
: þŒ "RGEOM",,ALL­<¦ T1ç : T2ç : T5ç : H1ç : T8çê<° ‘:‘"POINT NUMBER AND X-Y CORRDINATES FOR FIXED POINTS":‘=º T1çT1é : T2çT2é : ‹ T3ç Í T1ç T1ê+=Ä ‹ T3ç Í T2ç T2ê 4=Î T3çO=Ø ‘:…"Point number ? ",If=⠋ Iæ î Iè Í ö ›=ì ‘"POINT NUMBER MUST BE BETWEEN 1 AND 20" : ‰ Ø ¶=ö …;"X-coordinate ? ",X1Ô=
…" Y-coordinate ? ",Y1Ú=

‘>
‘"You may define a fixed point as a precision point"U>
‘"to be used in checking the results of a synthesis problem."[>(
‘–>2
‘"Is this a PRECISION POINT ? [Default= N] Y/N ? ";¶><
YN$ç Þ : ‹ ÿ’(YN$)ç  Í <
Ú>F
‹ YN$ç "" ï YN$ç " " Í YN$ç "N"ò>P
‹ YN$ç"y" Í YN$ç"Y"ü>Z
‘ YN$+?d
PN(I)ç I : ‹ YN$ç"y" ï YN$ç"Y" Í PN(I)ç êIH?n
P(,I)ç X1 : P(,I)ç Y1 |?x
P(,I)ç  : P(,I)ç  : P(,I)ç  : P(,I)ç ?‚
‹ T2ç Í È
ž?Œ
‹ T8ç Í È
¯?–
‹ T3ç Í ´
Û? 
‚ Kç Ì T2 : LçK : ‹ N(K)çI Í ´
: ƒ Kå?ª
‰ È
@´
‘ : ‘"Point number ",I," has been relocated"9@¾
N(L)ç ÿ†(I): T3ç : ‘ : ‰ Ò
M@È
N(T2)çÿ†(I) : ‘@Ò
‘"Another fixed point ? [Default= Y] Y/N ? ";›@Ü
P$çÞ : ‹ ÿ’(P$)ç Í Ü
±@æ
‹ P$ç"n" Í P$ç"N"È@ð
‹ P$èæ"N" Í P$ç"Y"Ñ@ú
‘ P$ä@ ‹ P$ç"Y" Í º ù@ ‹ T3ç Í T1çT1êA ‹ T3ç Í T2çT2ê*A" T8ç : ‘ :  „
: T3çeA, ‘ : ‘"Fixed point locations OK ? [Default= Y] Y/N ? ";A6 P$çÞ : ‹ ÿ’(P$)ç Í 6 ˜A@ ‹ P$ç"n" Í P$ç"N" ¯AJ ‹ P$èæ"N" Í P$ç"Y"¸AT ‘ P$ÕA^ ‹ P$ç "N" Í T3ç : ‰ Ø èAh T1ç T2 : ‰ | Br T1ç T1é : T2ç T2é : ‰ Ø 0B| ‹ DF$ç"Y" Í   : ‹ DF$ç"Y" Í D FB† ‘ :   : ‰ `QB P1ç T1Bš ‘ : ‘"Select a sequence for calling of mechanism elements"ÚB¤ ‘"Begin with the input element and proceed in sequence to the output"äB® ‘ : ‘C¸ ‘" Component # 1 - input crank"-C ‘" 2 - input slider"TCÌ ‘" 3 - input cylinder"‚CÖ ‘" 4 - point on a rigid body"¨Cà ‘" 5 - two-link dyad"ÓCê ‘" 6 - oscillating slider"Dô ‘" 7 - rotating (or fixed) straight line guide"6Dþ ‘" 8 - spur gears"^D ‘" 9 - spring (linear)"‡D ‘" 10 - damper (viscous)"ÅD ‘" 99 - correct, insert, or delete an element"çD& ‘" 0 - continue "íD0 ‘óD: ŽED …;"Component type # ? ",T4$&EN ‹ T4$ç"" Í V:EX ‹ T4$ç" " Í VJEb T4ç ÿ”(T4$)\El ‹ T4ç  Í V…Ev ‹ T4 æ  î T4 è c Í T5ç T5é :¡ Š “E€ K(T5)ç T4ØEŠ ‹ T4 è  ï T4 æ 
Í ‘" Component type number is out of bounds"õE” ‹ T4 è  ï T4 æ 
Í VFž ‹ T5ç  î T4 æ 
Í V.F¨ ‹ T4 è c Í  H
:¡ ¼ 8F² ‰ D LF¼ ‹ T4çc Í  z
_FÆ ‹ T4ç Í  z
pFÐ ‹ T4ç Í V­FÚ ‹ T4ç Í ‘"Return to (M)enu or (C)ontinue is ? M/C ? ";ÉFä T$çÞ : ‹ ÿ’(T$)ç Í ä ßFî ‹ T$ç"m" Í T$ç"M"öFø ‹ T$èæ"M" Í T$ç"C"ÿF
‘ T$G
‹ T$ç"M" Í ® &G
‹ T$èæ"M" Í Ü0G
‰ ÜBG*
 H
: ‰ D sG4
‘"No mechanism components have been defined"}G>
‰ ® ¡GH
‘ " - "; ÿƒ(HEAD$(T4),,) : ŽËGR
 ***********************************ôG\
 COMPONENT CALLING SEQUENCE CHANGESHf
 ***********************************0Hp
 z
: ‰ Ê
ZHz
‘ : ‘"Current list of components" : ‘{H„
‘" FIXED POINT COORDINATES"šHŽ
‘" NUMBER X Y"´H˜
NFP%çT2 : ‚ Iç  Ì T2èH¢
‘ Î);:‘ ×"##";N(I);:‘ ×"#####.####";P(,N(I));I¬
‘ ×"#####.####";P(,N(I))?I¶
FP%(I)çPN(N(I)):JçN(I):FP(,J)çP(,J):FP(,J)çP(,J)KIÀ
ƒ I : ‘~IÊ
‘ "Another fixed point ? [Default= N] Y/N ? ";šIÔ
P$çÞ : ‹ ÿ’(P$)ç Í Ô
°IÞ
‹ P$ç"y" Í P$ç"Y"ÇIè
‹ P$èæ"Y" Í P$ç"N"ÐIò
‘ P$ãIü
‹ P$ç"Y" Í º öI‹ P$ç"N" Í , )J‘ : ‘"CURRENT LIST OF COMPONENTS IN SEQUENCE "]J‹ T5ç Í ‘"No components have been defined" : Ž‘J$‘ : ‘" SEQ# TYPE# COMPONENT DESCRIPTION":‘ÄJ.NC%çT5:‚ Iç Ì T5:‘ Î);:‘ ×"#####";I;:‘" - ";õJ8‘ ×"##";K(I);:‘ " ";ÿƒ(HEAD$(K(I)),,)KBCC%(I)çK(I)KLƒ I : ‘ : Ž#KV  : ‘jK`‘"(C)hange, (I)nsert, (D)elete component or display the (M)enu ?";Kj‘"[Default=CONTINUE] C/I/D/M ? ";¬KtC$çÞ : ‹ ÿ’(C$)ç Í tÂK~‹ C$ç"c" Í C$ç"C"ØKˆ‹ C$ç"i" Í C$ç"I"îK’‹ C$ç"d" Í C$ç"D"Lœ‹ C$ç"m" Í C$ç"M"
L¦‘ C$!L°‹ C$ç "I" Í F5Lº‹ C$ç "D" Í ´ILÄ‹ C$ç "C" Í ì_L΋ C$ èæ "M" Í }LØ‹ C$ç "M" Í  ¸ : ‰ `‡L≠Lì‘ÒLö…;"Component sequence number ? ",I:…;" New type number ? ",K(I)M  : ‘ : ‘ "More corrections ? [Default= N] Y/N ? ";*M
C$çÞ : ‹ ÿ’(C$)ç Í 
@M‹ C$ç"y" Í C$ç"Y"WM‹ C$èæ"Y" Í C$ç"N"`M(‘ C$uM2‹ C$ç "Y" Í öM<‰ `¼MF  : …;"Insert after component sequence number ? ",T6ÙMPT6çT6é :T8çT6 : T5çT5éNZ‘ : …;"Component type number ? ",C78Nd‚ Iç T5 Ì T8 Ï ê : K(I)ç K(Iê) : ƒ I : K(T6)ç C7vNn  : ‘ "Another new component ? [Default= N] Y/N ? ";’NxM$çÞ : ‹ ÿ’(M$)ç Í x¨N‚‹ M$ç"y" Í M$ç"Y"¿NŒ‹ M$èæ"Y" Í M$ç"N"ÈN–‘ M$ÜN ‹ M$ç "Y" Í FîNª  : ‰ `+O´…;"Sequence number of the component to be deleted ? ",T6eO¾T8çT6é : ‚ Iç T8 Ì T5 : K(Iê)çK(I) : ƒ I : T5ç T5êœOÈ   : ‘ "More deletions ? [Default= N] Y/N ? ";¸OÒQ$çÞ : ‹ ÿ’(Q$)ç Í ÒÎOÜ‹ Q$ç"y" Í Q$ç"Y"åOæ‹ Q$èæ"Y" Í Q$ç"N"îOð‘ Q$Pú‹ Q$ç "Y" Í ´P  : ‰ `PŒ1P‹ DF$ èæ "Y" Í ,kP" ***************************************************¤P, DEFINE THE GEOMETRIC PARAMETERS FOR EACH COMPONENTÞP6 ***************************************************Q@‘:‘"ENTER THE GEOMETRIC PARAMETERS FOR EACH COMPONENT"@QJNFP%çT2 : NP%çT1 : NC%çT5 : NM%çT7VQTþŒ "GEOMPAR",,ALLÿÿ

  3 Responses to “Category : Science and Education
Archive   : MECHAN93.ZIP
Filename : MECHAN.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/