image of READY prompt

Wang2200.org

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"