Listing of file='IDS2PC18' on disk='vmedia/701-2725B.wvd.zip'
# Sector 758, program filename = 'IDS2PC18' 1000 REM 'IDS2PC18'-- REPORT CONVERSION -- DEVICE ADDRESSES AND FILE NAMES : REM 06/30/81 BY TJB 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : COM E3,E4,E6,C5$1,Z,J4,D1$3,C2$3,C3$3,D4$3,F1$8,F2$8,D1,D2,D3,D4 : GOSUB '32("IDS2sC10") : F6$(11)="N" : GOSUB '36 : GOSUB '53("Enter device numbers and file names for old and new reports") : F=0 1035 GOSUB '45(1,D9$(10)) : GOSUB '45(3,D9$(12)) : GOSUB '45(4,D9$(3)) : GOSUB '45(6,D9$(5)) 1040 F=F+1 : IF F>6THEN 1200 : E3$=HEX(1F) : GOSUB '34(F) : IF VAL(E6$)=31THEN 1300 : 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-1 : GOTO 1055 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("File does not exist -- re-enter") : F=F-1 : GOTO 1040 1067 GOSUB '35("Report program control file does not exist -- re-enter") : F=F-1 : GOTO 1040 1069 F0$="File "&F1$&" is not a valid report 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-1 : GOTO 1055 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 '63("Press 'EXEC' to ","accept screen, 'EDIT' to modify, FN '31 to cancel "," ") : GOSUB '34(250) : IF Q=240OR Q=33THEN 1220 : IF Q=32THEN 1250 : IF Q=31THEN 1300 : GOTO 1200 1220 F=0 : GOTO 1040 1250 LOAD DC T#2,"IDS2PC19"1000, 1300 COM CLEAR E3 : LOAD T#2,"IDS2PCMN"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 !" : GOTO 2140 3699 ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PC18" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"