Listing of file='IDS2PS94' on disk='vmedia/701-2715B.wvd.zip'
# Sector 401, program filename = 'IDS2PS94' 1000 REM "IDS2PS94" - Release 2.1 - SCREEN/REPORT COPY SCREEN EDIT RETRIEVAL 1005 E6$=F6$(17)AND HEX(02) : IF E6$=HEX(00)THEN LOAD T#2,"IDS2SUB8"3701,3899BEG 1010 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : IF C5$="S"THEN J3=2 : ELSE IF C5$="R"THEN J3=6 : ELSE J3=8 : GOSUB '60(E1$(2),E9$(J3)) : F6$(14)="N" : GOSUB '62(E1$(2),1,0) : F6$(14)="Y" : IF STR(F$(),7,8)<>STR(E9$(J3),,8)THEN 1070 : F0$="Edits exist for "&E9$(J3)&" therefore no edits will be copied" 1060 GOSUB '53(F0$) : GOSUB '34(250) : PRINT AT(23,0,80); : GOTO 1245 1070 GOSUB '60(E1$(2),C9$) : F8,E3,E1=0 : PRINT HEX(060F);AT(20,15); : PRINT "Counting edit records for"; : IF J3=6THEN PRINT " report: "; : ELSE IF J3=2THEN PRINT " screen: " : ELSE PRINT " program: " 1072 PRINT HEX(0F);AT(20,49); : PRINTUSING 1073,E1 1073 %#### edit records 1075 F6$(14)="N" : GOSUB '62(E1$(2),1,0) : IF Q=0OR STR(F$(),7,8)<>STR(C9$,,8)THEN 1120 : E1=E1+1 : GOTO 1072 1120 PRINT AT(20,15,64); 1130 GOSUB '61(E1$(2),C9$,0) : IF Q=0OR STR(F$(),7,8)<>STR(C9$,,8)THEN 1245 : E3=E3+1 : PRINT HEX(0F);AT(20,15); : IF J3=2THEN PRINTUSING 1180,E3,STR(F$(),15) : ELSE PRINTUSING 1185,E3,STR(F$(),15) : C9$=STR(C9$,,8)&STR(F$(),15,8)&STR(F$(),3,1)&STR(F$(),,2) : STR(C9$,19,1)=ADDCHEX(01) 1150 MAT SEARCHF$(),=STR(C9$,,8)TO F9$ : IF F9$=HEX(0000)THEN 1160 : STR(F$(),VAL(F9$,2),8)=STR(E9$(J3)) : GOTO 1150 1160 GOSUB '42(E1$(2),0) : IF Q=0THEN 1230 1170 GOTO 1130 1180 % Copying edit number #### - Field name: "########" 1185 %Copying edit no. #### - Operation name: "########" 1230 GOSUB 1280 : GOSUB '35(F0$) : IF Y<X-1THEN 1170 : GOSUB '34(250) : GOTO 1245 1245 F$(14)="Y" : COM CLEAR J3 : LOAD T#2,R3$(1)1000, 1250 STOP # 1280 X=VAL(STR(E1$(2),48),2)*VAL(STR(E1$(2),43),2) : Y=0 : FOR I=0TO VAL(STR(E1$(2),43),2)-1 : DATA LOAD BA T#2,(VAL(STR(E1$(2),55),2)+I*VAL(STR(E1$(2),46),2))E4$() : Y=Y+VAL(STR(E4$(),9),2) : NEXT I : IF Y<X-1THEN F0$="Illegal duplicate key" : ELSE F0$="Edit file is full -- select FN '31 to cancel" : RETURN 3699 ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PS94" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"