Listing of file='IDS2PU13' on disk='vmedia/701-2715B.wvd.zip'
# Sector 656, program filename = 'IDS2PU13'
1000 REM "IDS2PU13" - SETS UP E1$() - SEE PU05 FOR COMPLETE DOC
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: DIM D$(6)83,D1$2,D2$8
: GOSUB '32("IDS2sU05")
: IF F6$(20)="X"THEN PRINT HEX(0E);AT(0,15);"EXPAND IDEAS2 FILE - STEP 1: S
AVE DATA IN TC FILE";HEX(0F)
: D3=0
: F6$(11)="N"
1020 D1$=F6$(53)
: F6$(53)="Y"
: E3$=HEX(1F)
: GOSUB '34(1)
: F6$(53)=D1$
: IF E6$=HEX(1F)THEN 1070
: GOSUB 2000
: IF F=0THEN 1020
: F6$(11)="Y"
: IF D3=0OR F6$(53)="Y"THEN 1060
: F6$(21)="C"
: GOSUB 3000
: COM CLEAR Y
: IF F6$(17)=HEX(60)THEN 1040
: LOAD T#2,"IDS2P001"1000,1001BEG 1060
1040 LOAD T#2,"IDS2P001"0,1001BEG 1050
1050 F0$="IDS2SUB1IDS2SUB2IDS2SUB3IDS2SUB4IDS2SUB5IDS2SUB6IDS2LOCL"
: LOAD T#2,<7>F0$0,999BEG 1060
1060 F0$="IDS2PU05IDS2PUIa"
: LOAD T#2,<2>F0$482,8999BEG 1000
1070 P=4
: IF STR(R3$(),,4)="IDS2"THEN P=2
: LOAD T#P,R3$(1)1000,
2000 D2$=E$OR ALL(20)
: GOSUB '39(D2$,5)
: IF Q<2THEN 2020
: DATA LOAD DA T#P,(A)D$()
: ERRORGOTO 2020
2010 IF STR(D$(),,1)<>"\E3"THEN 2020
: IF STR(D$(),403,1)<HEX(05)THEN 2030
: E$="File must be a primary: type 1-4."
: GOTO 2080
2020 E$="File is not an IDEAS2 data file."
: GOTO 2080
2030 IF STR(D$(),75,3)<>" "THEN IF R4$<>STR(D$(),75,3)THEN 2040
: IF STR(D$(),74,1)<>" "THEN IF R8$<STR(D$(),74,1)THEN 2050
: GOTO 2060
2040 E$="Another user has exclusive rights to read this file."
: GOTO 2080
2050 E$="Your user class is to small to read this file."
: GOTO 2080
2060 MAT SEARCHE1$(),=E$TO D1$STEP 56
: IF D1$=HEX(0000)THEN 2070
: RETURN
2070 IF F6$(53)<>"Y"THEN 2090
: E$="File is not open. Add it to your 'START' program."
2080 GOSUB '35(E$)
: F=F-1
: RETURN
2090 D3=1
: RETURN
3000 MAT SEARCHSTR(D$(),275,128),=HEX(2020202020202020)TO D1$STEP 8
: D4=-1+(VAL(D1$,2)+7)/8
: IF D4=-1THEN D4=16
: CONVERT STR(D$(),217,1)TO H
: H=H+D4
: E=4+VAL(STR(D$(),416))+VAL(STR(D$(),417))
: G=(1+VAL(STR(D$(),435),2))*E
: E9=MAX(E9,1992)
: RETURN
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PU13"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"