Listing of file='IDS2PUI3' on disk='vmedia/701-2724B.wvd.zip'
# Sector 884, program filename = 'IDS2PUI3'
1000 REM "IDS2PUI3" - INSTALL AN APPLICATION - MOD 2, BEGUN 01/18/82, TSCHETTE
R
1010 COM C6$8,C7$3,C8$3,C9$8,C7$(2)8,C8$(3)4,C9$(8)3,C7,C8,C9,P6,P7,H9
: DIM D1$2,D4$3,D5$4,D6$8,D6$(14)8,D7$(14)8,D8$(14)1,D9$(9)83
: IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: PRINT HEX(030E);AT(0,16);"INSTALLATION OF AN IDEAS RELEASE TWO APPLICATIO
N";HEX(0F)
: P3=0
1020 IF F6$(17)>="^"OR SPACEK>=20THEN 1030
: PRINT AT(2,0);"A foreground partition of at least 20K is needed for this
utility."
: END
1030 GOSUB '32("IDS2sMV1")
1040 F=0
1050 F=F+1
: GOSUB '34(F)
: ON FGOTO 1060,1080,1090,1100,1110,1120,1130,1140,1150,1160,1170,1180,1210
: STOP "ERROR IN F"
: END
1060 C6$=E$
: IF C6$=" "THEN 1070
: GOTO 1050
1070 F=2
: GOSUB '45(2," ")
: GOTO 1050
1080 C7$=E$
: IF C6$=" "THEN 1050
: F2=1
: GOSUB 1530
: IF F1=1THEN GOSUB 1480
: F1=0
: GOTO 1050
1090 C7$(1)=E$
: IF C7$(1)=" "THEN C7$(1)=ALL(00)
: E$=ALL(FF)
: GOSUB '45(4,E$)
: GOTO 1050
1100 C7$(2)=E$
: IF C7$(2)>=C7$(1)THEN 1050
: E$="End of range must be > beginning"
: F=F-1
: GOTO 1200
1110 C8$(1)=E$
: GOTO 1050
1120 C8$(2)=E$
: GOTO 1050
1130 C8$(3)=E$
: GOTO 1050
1140 C8=Q
: IF C8>0AND C8<4THEN 1050
: E$="Choice must be 1,2, or 3"
: GOTO 1200
1150 P7=Q
: IF P7>0AND P7<4THEN 1050
: E$="Choice must be 1, 2, or 3"
: GOTO 1200
1160 C7=POS("CV"=E$)
: IF C7>0THEN 1050
: E$="Please enter only C or V"
: GOTO 1200
1170 IF POS("Yy1"=E$)>0THEN C9=1
: ELSE C9=2
: GOTO 1050
1180 IF POS("Yy1"=E$)>0THEN H9=1
: ELSE H9=2
: GOSUB 1190
: GOTO 1050
1190 GOSUB '63("Press EDIT to mo","dify and EXECUTE to accept"," ")
: RETURN
1200 GOSUB '35(E$)
: F=F-1
: GOTO 1050
1210 IF Q=33THEN 1040
: LIMITS T#2,"IDS2sMV2",A,B,B,B
: IF B=0THEN 1520
: GOSUB '32("IDS2sMV2")
1220 GOSUB '45(1,C5$)
: C9$()=C5$
: F=1
1230 F=F+1
: GOSUB '34(F)
: IF F>8THEN 1250
: F2=2
: GOSUB 1530
: IF F1=2THEN 1240
: C9$(F)=E$
: IF F=8THEN GOSUB 1190
: GOTO 1230
1240 F1=0
: GOTO 1230
1250 IF Q=33THEN 1220
: IF Q<>32THEN 1260
: E$="IDS2PUI4IDS2PUIa"
: LOAD T#2,<2>E$482,8999BEG 1000
1260 F=F-1
: GOTO 1230
1480 LIMITS T#6,C6$,A,B,B,B
: IF B=2THEN 1490
: E$="Either invalid ISS reference file, or mount another diskette."
: GOTO 1510
1490 DATA LOAD DA T#6,(A)D6$(),D7$(),D8$()
: ERRORE$="Cannot read ISS reference file"
: GOTO 1510
1500 F=7
: RETURN
1510 GOSUB '63(STR(E$,,16),STR(E$,17),"!")
: F=F-2
: RETURN
1520 E$="Mount system diskette again, and press EXEC."
: GOSUB 1510
: KEYIN E6$
: GOTO 1210
1530 F1=1
: MAT SEARCH"310320330B10B20B30350360370B50B60B70D10D11D12D13D14D15D50D51D5
2D53D54D55D20D21D22D23D24D25D60D61D62D63D64D65D30D31D32D33D34D35D70D71D72
D73D74D75",=E$TO D1$STEP 3
: PRINT AT(23,0,80);HEX(0F06);
1540 IF D1$<>HEX(0000)THEN 1550
: PRINT AT(23,0);HEX(07);E$;" is not a valid disk address supported by IDEA
S. Enter new device address.";
: GOTO 1630
1550 SELECT #6<E$>
: $OPEN 1560,#6
: LIMITS T#6,"X",Q,Q,Q,Q
: GOTO 1570
1560 $CLOSE#6
: PRINT AT(23,0,80);HEX(07);"Device ";E$;" is not currently available. Ple
ase check status and/or address.";
: GOTO 1630
1570 $CLOSE#6
: RETURN
1580 ON ERRORD4$,D5$GOTO 1590
1590 IF F1<>1THEN F1=3
: IF D4$<>"P48"THEN 1600
: PRINT AT(23,0,80);HEX(07);E$;" is not currently in the master device tabl
e of your CPU. Please try again.";
: GOTO 1620
1600 IF STR(D4$,2,2)<"90"OR STR(D4$,2,2)>"98"THEN 1610
: PRINT AT(23,0,80);"Disk error ";D4$;" on device ";E$;". Make sure that de
vice is ready.";HEX(0107);
: F=F-1
: ON F2GOTO 1050,1230
1610 PRINT AT(23,0,80);"Unanticipated error # ";D4$;" at line # ";D5$;". No r
ecovery has been programmed.";HEX(0107);
: STOP "ERROR !"
: END
1620 IF F1=2THEN 1630
: GOTO 1610
1630 F=F-1
: F1=2
: RETURN