image of READY prompt

Wang2200.org

Listing of file='IDS2PR04' on disk='vmedia/701-2716B.wvd.zip'

# Sector 83, program filename = 'IDS2PR04'
1000 REM "IDS2PR04" - Release 2.1 - REPORT GENERATOR DATA FILE READ SPECIFICAT
     IONS
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : GOSUB '32("IDS2sR03")
   : R3$(1)="IDS2PR05"
   : IF E$(1)="\F2"THEN E$="Report"
   : ELSE E$="Batch"
   : GOSUB '45(102,E$)
   : GOSUB '45(103,E$)
   : FOR I=1TO 4
   : GOSUB '37(I)
   : NEXT I
   : FOR I=2TO 7
   : GOSUB '37(I*3-1)
   : F5$=E$
   : GOSUB '37(I*3)
1050 E$="Associated data file   is not used"
   : CONVERT ITO STR(E$,22,1),(#)
   : IF F5$=" "THEN GOSUB '45(I*3+1,E$)
   : ELSE GOSUB '45(I*3+1,"Random key must be specified below")
   : NEXT I
   : GOSUB '37(104)
   : GOSUB '37(23)
   : IF E$=" "THEN GOSUB '45(23,"I")
   : FOR I=2TO 7
   : GOSUB '37(I+22)
1080 F5$=E$
   : IF F5$<>" "THEN 1090
   : GOSUB '45(I+28," ")
   : FOR J=0TO 10
   : GOSUB '45(I*11+14+J," ")
   : NEXT J
   : GOTO 1200
1090 IF E$(I+864)=" "THEN E$(864+I)="I"
   : GOSUB '37(I*11+14)
   : GOSUB '37(I+28)
   : FOR J=0TO 9
   : GOSUB '37(I*11+15+J)
   : NEXT J
1200 NEXT I
1210 GOSUB '63("EXECUTE = accept",",  FN'0 = field names,  FN'1-'7= file specs
     ,  FN'31 = cancel"," ")
   : F6$(14)="N"
   : GOSUB '34(250)
   : IF Q=31THEN LOAD T#2,"IDS2PR05"1000,
   : IF Q=0THEN 1300
   : IF Q=32THEN 1310
   : IF Q>1AND Q<8THEN 1320
   : IF Q=1THEN 1280
1270 PRINT HEX(07);
   : GOTO 1210
1280 GOSUB '43(23)
   : IF E$="I"THEN E$="U"
   : ELSE E$="I"
   : GOSUB '45(23,E$)
   : GOTO 1210
1300 R3$(1)="IDS2PR04"
   : LOAD T#2,"IDS2PS17"1000,
1310 MAT REDIM E$(24)83
   : DATA SAVE DA T#3,(E4)E$()
   : MAT REDIM E$(E8)1
   : LOAD T#2,"IDS2PR05"1000,
1320 J1=Q
   : GOSUB '43(J1+22)
   : IF E$=" "THEN 1270
   : F=J1*11+13
1340 F=F+1
1350 GOSUB '34(F)
   : X=MOD(F-3,11)+1
   : ON XGOTO 1370,1380,1390,1380,1390,1380,1390,1380,1390,1380,1390
1370 IF E$="I"OR E$="U"THEN 1340
   : GOSUB '35("Must be 'I' for inquiry, 'U' for update")
   : GOTO 1350
1380 IF E$<>" "THEN 1340
   : FOR I=FTO INT((F+2)/11)*11+13
   : GOSUB '45(I," ")
   : NEXT I
   : GOTO 1210
1390 IF Q>0AND Q<J1THEN 1400
   : GOSUB '35("Must be at least '1' and less than current file number")
   : GOTO 1350
1400 IF STR(E$(),70+Q*8,8)<>" "THEN 1410
   : GOSUB '35("File number not used")
   : GOTO 1350
1410 F5$=STR(E$(),Q*8+70,8)OR ALL(20)
1420 GOSUB '39(F5$,5)
   : MAT REDIM E3$(3)83
   : DATA LOAD DA T#P,(A)E3$()
   : IF STR(E3$(),10,1)<"5"THEN 1440
   : F5$=STR(E3$(),82,8)OR ALL(20)
   : GOTO 1420
1440 MAT REDIM E3$(24)83
   : DATA LOAD DA T#P,(A+8)E3$()
   : MAT REDIM E3$(249)8
   : GOSUB '43(F-1)
   : MAT SEARCHE3$(),=STR(E$,1,8)TO F9$STEP 8
   : IF F9$>HEX(0000)THEN 1470
   : GOSUB '35("Field not in specified file")
   : F=F-1
   : GOTO 1350
1470 IF MOD(F-2,11)=0THEN 1210
   : GOTO 1340
1799 STOP #
   : ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PR04"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"