1000 REM PROGRAM: MOTOR-DATA 1005 REM "[194]URTON [204]. [195]RADDOCK" 1010 PRINT CHR$(147)CHR$(14):REM CLEAR SCREEN AND PRINT UPPER AND LOWER CASE 1014 PRINT"[208]ROGRAM: [205][207][212][207][210]-[196][193][212][193]" 1016 PRINT"[195]REATE DATA FILE [212][200][210][213][211][212].[196][193][212] FOR PROGRAM [210][207][195][203][197][212].[193][204][212][201][212][213][196][197]" 1020 OPEN 15,8,15:REM OPEN ERROR CHANNEL 1030 GOSUB6000:REM DISK ERROR CHECK 1040 IF EN=0 THEN 1100 1050 CLOSE15 1060 END 1100 OPEN 1,8,7,"THRUST.DAT,S,W" 1130 GOSUB6000:REM DISK ERROR CHECK 1140 IF EN=63 THEN PRINT"[212][200][210][213][211][212].[196][193][212] EXIST. REPLACE FILE (Y/N)?";: 1141 IF EN=0 THEN 1500 1142 CLOSE 1:IF EN=63 THEN GET A$ 1143 IF EN=63 AND A$<>"Y" AND A$<>"[217]" AND A$<>"N" AND A$<>"[206]" THEN 1142 1144 PRINT A$:IF A$="[217]" THEN A$="Y" 1145 IF EN=63 AND (A$="Y" OR A$="[217]") THEN OPEN 1,8,7,"@:THRUST.DAT,S,W" 1146 GOSUB6000:IF EN=0 AND A$="Y" THEN 1500 1148 CLOSE1: CLOSE15 1150 END 1500 REM WRITE DATA TO THRUST.DAT 1504 C$=CHR$(44): Q$=CHR$(34):REM C$=COMMA AND Q$=DOUBLE QUOTE MARK 1510 READ M$ 1520 IF M$<>"END" THEN READ T$:PRINT#1,M$;C$;Q$;T$;Q$:GOTO1510 1530 IF M$="END" THEN PRINT#1,M$ 1540 CLOSE1: CLOSE15 1550 END 2000 DATA"1/2[193]6","0.16,0.00156,9" 2010 DATA"[193]8","0.24,0.00312,12,4" 2020 DATA"[194]4","1.2,0.00833,6,13,5,4,4,4,4,4,4,4,4,0" 2040 DATA"[194]6","0.83,0.00624,4,13,8,6,6,6,6,6" 2050 DATA"[194]14","0.35,0.00624,6,26,14" 2060 DATA"[195]6","1.7,0.01248,4,13,8,6,6,6,6,6,6,6,6,6,6,6,6,6,0" 2070 REM C5-3S MOTOR DATA NEED TWO BASIC LINES 2072 : DATA"[195]5-3[211]" 2074 : DATA"2.1,0.013,2,2,7.5,22.2,7.5,5,4.5,4,4,4,4,4,4,4,4,4,4,4,4,4,4,0" 2080 DATA"[196]12","1.7,0.02493,6,26,31,20,11,10,10,10,10,10,10,10,10,10,10,10,0" 2090 DATA"END" 6000 REM READ ERROR CHANNEL 6010 INPUT#15,EN,EM$,ET,ES 6015 PRINT"[196]ISK ERROR CHECK" 6020 PRINT EN;EM$;ET;ES 6030 RETURN