Listing of file='IDS2PC14' on disk='vmedia/701-2725B.wvd.zip'
# Sector 708, program filename = 'IDS2PC14' 1000 REM 'IDS2PC14'- START CONVERSION - GET AND VALIDATE DEVICES AND FILE NAME S 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : COM D1$3,C2$3,C3$3,D4$3,F1$8,F2$8,D1,D2,D3,D4 : DIM D3$2 : GOSUB '32("IDS2sC09") : GOSUB '36 : GOSUB '53("Enter device numbers and file names for old & new START progra ms") : F=0 : GOSUB '45(1,D9$(11)) : GOSUB '45(3,D9$(12)) : GOSUB '45(4,D9$(4)) : GOSUB '45(6,D9$(5)) 1040 F=F+1 : IF F>6THEN 1200 : E3$=HEX(1F) : GOSUB '34(F) : IF VAL(E6$)=31THEN 1230 : ON FGOTO 1050,1060,1070,1075,1080,1095 : GOTO 1040 1050 D1$=E$ : GOSUB 1590 : D1=E1 : IF E1>0THEN 1040 1055 GOSUB '35("Invalid device address specification; please re-enter") : GOSUB '45(F," ") : F=F-1 : GOTO 1040 1060 F1$=E$ : MAT SEARCHD9$(),=D1$TO F9$STEP 3 : D1=(VAL(F9$,2)+2)/3 : IF D1>1AND D1<>6THEN 1062 : F=F-2 : GOTO 1040 1062 LIMITS T#D1,F1$,A,B,B,B : IF B=0THEN 1065 : DATA LOAD BA T#D1,(A)STR(E4$(),,256) : IF STR(E4$(),2,8)<>F1$THEN 1069 : E$=F1$OR ALL(20) : LIMITS T#D1,E$,A,B,B,B : IF B=0THEN 1067 : DATA LOAD BA T#D1,(A)STR(E4$(),,256) : IF STR(E4$(),1,8)<>F1$THEN 1069 : GOTO 1040 1065 GOSUB '35("Invalid file name -- re-enter") : F=F-1 : GOTO 1040 1067 GOSUB '35("START program control file does not exist -- re-enter") : F=F-1 : GOTO 1040 1069 F0$="File "&F1$&" is not a valid START program. Please re-enter." : GOSUB '35(F0$) : F=F-1 : GOTO 1040 1070 C3$=E$ : GOSUB 1590 : D3=E1 : IF E1>0THEN 1040 : GOTO 1055 1075 C2$=E$ : GOSUB 1590 : D2=E1 : IF E1>0THEN 1040 : GOTO 1055 1080 F2$=E$ : MAT SEARCHD9$(),=C2$TO F9$STEP 3 : D2=(VAL(F9$,2)+2)/3 : IF D2>1AND D2<>6THEN 1085 : F=F-2 : GOTO 1040 1085 LIMITS T#D2,F2$,A,B,B,B : IF B=0THEN 1090 : F0$="File "&F2$&" already exists. Please re-enter." : GOSUB '35(F0$) : F=F-1 : GOTO 1040 1090 IF STR(F2$,1,4)<>"IDS2"THEN 1040 : GOSUB '35("File name may not begin with IDS2-- Please re-enter.") : F=F-1 : GOTO 1040 1095 D4$=E$ : GOSUB 1590 : D4=E1 : IF E1>0THEN 1040 : GOTO 1055 1200 GOSUB '53("Press 'EXEC' to accept, 'EDIT' to modify, FN '31 to cancel") : GOSUB '34(250) : IF Q=240OR Q=33THEN 1220 : IF Q=32THEN 1250 : IF Q=31THEN 1230 : PRINT HEX(07); : GOTO 1200 1220 F=0 : GOTO 1040 1230 COM CLEAR D1$ : LOAD T#2,"IDS2PCMN"1000, 1250 LOAD DC T#2,"IDS2PC15"1000, 1590 MAT SEARCHD9$(),=E$TO F9$STEP 3 : IF F9$>HEX(0000)THEN I=(VAL(F9$,2)+2)/3 : ELSE I=0 : IF I>1AND I<>6THEN E1=I : ELSE E1=0 : RETURN 2090 ON ERRORD8$,E$GOTO 2140 2140 PRINT AT(23,0,80);"Unanticipated error # ";D8$;" at line # ";E$;". No re covery has been programmed.";HEX(0107); : STOP "ERROR !" : ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PC14" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"