Listing of file='IDS2PC08' on disk='vmedia/701-2725B.wvd.zip'
# Sector 659, program filename = 'IDS2PC08' 1000 REM 'IDS2PC08'- SCREEN CONVERSION- GET AND VALIDATE DEVICES AND FILE NAME S 1005 IF R4$<>"TJB"THEN 1010 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : COM D1$3,C2$3,C3$3,F1$8,J2$8,J3$8,D1,D2,D3 : DIM J4$8,J5$8 : GOSUB '32("IDS2sC08") : GOSUB '36 : GOSUB '53("Enter device numbers and file names for screens ") : F=0 : GOSUB '45(1,D9$(10)) : GOSUB '45(3,D9$(3)) : GOSUB '45(6,D9$(5)) 1040 F=F+1 : IF F>7THEN 1200 : E3$=HEX(1F) : IF F<5THEN GOSUB '34(F) : IF F>5AND J4$<>" "THEN GOSUB '34(F) : IF VAL(E6$)=31THEN 1230 : ON FGOTO 1050,1060,1070,1080 : IF J4$=" "THEN 1040 : ON F-5GOTO 1100,1110 : GOTO 1040 1050 D1$=E$ : GOSUB 1590 : D1=E1 : IF E1>0THEN 1040 : GOSUB '35("Invalid device address specification") : 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 1061 : F=F-2 : GOTO 1040 1061 LIMITS T#D1,F1$,A,B,B,B : IF B=0THEN 1065 : DATA LOAD BA T#D1,(A)STR(E4$(),,256) : IF STR(E4$(),1,4)<>HEX(8201BE03)THEN 1069 : DATA LOAD BA T#D1,(A+7)STR(E4$(),,256) : IF STR(E4$(),215,8)<>F1$THEN 1069 : J4$=STR(E4$(),231,8) : GOSUB '45(5,J4$) : GOTO 1040 1065 GOSUB '35("Invalid file name -- re-enter") : F=F-1 : GOTO 1040 1069 F0$="File "&F1$&" is not a valid screen file. Please re-enter." : GOSUB '35(F0$) : F=F-1 : GOTO 1040 1070 C2$=E$ : GOSUB 1590 : D2=E1 : IF E1>0THEN 1040 : GOSUB '35("Invalid device address specification") : F=F-1 : GOTO 1040 1080 J2$=E$ : LIMITS T#D2,J2$,A,B,B,B : IF B=0THEN 1090 : F0$="File "&J2$&" already exists. Please re-enter." : GOSUB '35(F0$) : GOSUB '45(F," ") : F=F-1 : GOTO 1040 1090 IF STR(J2$,,4)<>"IDS2"THEN 1040 : GOSUB '35("File name may not begin with IDS2-- Please re-enter.") : F=F-1 : GOTO 1040 1100 C3$=E$ : GOSUB 1590 : D3=E1 : IF E1>0THEN 1040 : GOSUB '35("Invalid device specification") : F=F-1 : GOTO 1040 1110 J3$=E$ : IF C3$=" "THEN GOTO 1040 : J5$=J3$OR ALL(20) : GOSUB '39(J5$,D3) : IF Q=2THEN 1120 : F0$="Control File for "&J3$&" does not exist. Please re-enter." : GOSUB '35(F0$) : F=F-1 : GOTO 1040 1120 E4$()=" " : DATA LOAD BA T#D3,(A)STR(E4$(),,256) : IF STR(E4$(),1,4)<>HEX(8201D3E3)THEN 1140 : GOTO 1040 1140 F0$="File "&J3$&" is not a valid data file. Please re-enter." : GOSUB '35(F0$) : F=F-1 : GOTO 1040 1200 GOSUB '53("Press 'EXEC' to accept screen, 'EDIT' to modify, FN '31 to can cel") : 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,"IDS2PC09"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$="IDS2PC08" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"