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

 
Output of file : INIT.BAS contained in archive : MECHAN93.ZIP
10 PRINT" INITIALIZE PROGRAM PARAMETERS FOR MECHAN"
20 OPEN "O",#1,"INIT"
30 PRINT
40 PRINT" Specify the DRIVE LETTER where data will be stored."
50 PRINT
60 PRINT" Example c:"
70 PRINT
80 PRINT" Enter drive letter (with colon) ";
90 INPUT DRIVE$
100 PRINT" Specify the type of CRT DISPLAY you are using."
110 PRINT
120 PRINT" 0 - CGA or MONO "
130 PRINT" 1 - EGA or VGA "
140 PRINT
150 PRINT" Enter 0 or 1 ";
160 INPUT DISPLAY$
170 PRINT
180 PRINT" Specify maximum number of positions allowed."
190 PRINT
200 PRINT" 15- Either KINEMATIC or DYNAMIC analysis"
210 PRINT" 20 - KINEMATIC analysis only"
220 PRINT
222 PRINT" If you get an OUT OF MEMORY message at run time"
223 PRINT" rerun INIT and specify a smaller number of positions."
224 PRINT
230 PRINT" Enter 15 or 20 ";
240 INPUT NUMPOS
250 PRINT
260 PRINT" Specify initial information display flag."
270 PRINT
280 PRINT" 1 - Print description of program updates at start"
290 PRINT" 0 - Suppress printing of update info"
300 PRINT
310 PRINT" Enter 1 or 0 ";
320 INPUT PRNTFLAG
330 PRINT DRIVE$,DISPLAY$,NUMPOS,PRNTFLAG
340 WRITE #1,DRIVE$,DISPLAY$,NUMPOS,PRNTFLAG
350 CLOSE #1
360 END


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