Listing of file='IDS2PS51' on disk='vmedia/701-2715B.wvd.zip'
# Sector 199, program filename = 'IDS2PS51' 1000 REM "IDS2PS51" - Release 2.1 - SCREEN/REPORT FILING UTILITY 1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM" : COM D1,C5$1,J1$3,J2$4 : D1=0 : C5$=STR(R3$(1),6,1) : IF POS("SRB"=C5$)=0THEN 1215 : J2=0 : IF C5$="S"AND E0$="IDS2sS50"THEN J2=1 : IF C5$="R"OR C5$="B"AND E0$="IDS2sR14"THEN J2=1 : IF J2=0THEN E$()=" " : IF J2=0THEN 1020 1017 GOSUB 1140 : GOSUB '63("Process complete","d - 'EDIT' for another filing operation or FN'31 to cancel"," ") : GOSUB '34(250) : IF Q=31THEN 1215 : IF Q=33THEN 1020 : GOTO 1017 1020 IF J2>0THEN 1025 : IF C5$<>"S"THEN 1022 : GOSUB '32("IDS2sS50") : GOTO 1025 1022 GOSUB '32("IDS2sR14") : IF C5$="R"THEN E$="Report" : ELSE E$="Batch" : GOSUB '45(11,E$) : GOSUB '45(12,E$) 1025 F6$(11)="N" : FOR I=19TO 21 : PRINT AT(I,0,80) : NEXT I : IF STR(E$(),13,3)<>" "THEN GOTO 1035 : IF C5$="S"THEN GOSUB '45(5,E9$(2)) : ELSE GOSUB '45(5,E9$(6)) 1035 GOSUB 1140 : F6$(11),F6$(12)="N" 1040 F=0 1050 F=F+1 : IF F>F0THEN 1200 : IF F<>1THEN 1060 : GOSUB '43(F) : IF E$=" "THEN GOSUB '45(1,"2") 1060 F6$(53)="Y" : F6$(52)="N" : E3$=HEX(1F) : GOSUB '34(F) : F6$(53)="N" : IF E6$=HEX(1F)THEN 1215 : IF F6$(52)="Y"THEN 1050 : ON FGOTO 1080,1100,,,,,,,,1180 : GOTO 1050 1080 IF Q>0AND Q<6THEN 1090 : GOSUB '35("Option must be 1 - 5") : GOSUB '45(1," ") : GOTO 1060 1090 J1=Q : IF J1<4THEN 1050 : F=5 : GOTO 1060 1100 IF VER(E$,"D##")=3OR VER(E$,"3##")=3OR VER(E$,"B##")=3THEN 1110 1105 GOSUB '35("Invalid disk address") : GOTO 1060 1110 MAT REDIM F$(9)83 : DIM J$8 : J$="IDS2fs " : A=(R0-#PART)/16+1 : IF A>0THEN CONVERT ATO STR(J$,7,2),(##) : LIMITS T#2,J$,A,B,C,D : IF A>0THEN DATA LOAD DA T#2,(A)F$() : ELSE F$()=" " : MAT REDIM F$(E9)1 : IF E$=STR(F$(),45*#PART-11,3)THEN 1135 1120 MAT SEARCHF$()<45*#PART-17,45>,=STR(E$,1,3)TO F9$STEP 3 : IF F9$>HEX(0000)THEN 1130 : GOSUB '35("Disk address is not in your IDEAS device table") : GOTO 1060 1130 D1=(VAL(F9$,2)+2)/3 : LIMITS T#D1,"JUNK",A,B,C,D : ERRORGOSUB '35("Disk error on specified device, key EXEC to continue") : GOSUB '34(250) : IF Q=31THEN 1215 : F=2 : GOTO 1060 1132 GOTO 1050 1135 GOSUB '35("Archive address must be different from screen/report address") : E$=" " : GOTO 1060 1140 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 : GOSUB '55(3,Y*100/X) : GOSUB '55(4,X-Y) : RETURN 1180 IF E$=" "OR E$=R4$THEN 1200 : GOSUB '35("You cannot select another user ID's screens/reports") : GOTO 1060 1200 GOSUB '53("Touch EXECUTE to accept, EDIT to modify, or FN'31 to cancel") : GOSUB '34(250) : IF Q=33THEN 1040 : IF Q<>31THEN 1220 1215 COM CLEAR D1 : LOAD T#2,R3$(1)1000, 1220 IF Q<>32THEN 1200 : IF STR(E$(),21,8)<STR(E$(),13,8)THEN STR(E$(),21,8)=STR(E$(),13,8) : J1$=STR(E$(),30,3) : J2$=STR(E$(),33,4) : GOSUB '43(1) : IF Q>3AND Q<6THEN 1230 : IF Q>0AND Q<6THEN 1228 : F=1 : GOTO 1080 1228 GOSUB '43(2) : IF D1=0THEN 1229 : IF VER(E$,"D##")=3OR VER(E$,"3##")=3OR VER(E$,"B##")=3THEN 1230 1229 F=2 : GOTO 1105 1230 ON J1GOTO ,,1250,1260,1260,1260 1240 IF POS("RB"=C5$)>0THEN LOAD T#2,"IDS2PR52"1000, : ELSE LOAD T#2,"IDS2PS52"1000, 1250 IF POS("RB"=C5$)>0THEN LOAD T#2,"IDS2PR53"1000, : ELSE LOAD T#2,"IDS2PS53"1000, 1260 GOSUB '63("Caution ! If yo","u are sure you want to delete, touch EXEC. If not, touch EDIT","!") : GOSUB '34(250) : IF Q=32THEN 1240 : IF Q=33THEN 1040 : GOTO 1260 2000 STOP # : ON ERRORE1$,E2$GOTO 3700 3700 DEFFN'31 : E$="IDS2PS51" : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000, : STOP "ERROR"