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"