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