Listing of file='IDS2PUI7' on disk='vmedia/701-2724B.wvd.zip'
# Sector 961, program filename = 'IDS2PUI7'
1000 REM "IDS2PUI7" - INSTALL AN APPLICATION - MOD 6, BEGUN 02/23/82, TSCHETTE
R
1010 COM E7$(16)8,P4,P5,P6,P8,P9,R7$45
: P3=4
: IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: GOSUB '32("IDS2sMV3")
1020 F=0
1030 F=F+1
: GOSUB '34(F)
: ON FGOTO 1040,1060
: STOP "ERROR IN F"
: END
1040 P8=Q
: IF Q>0AND Q<6THEN 1050
: GOSUB '35("Option must be 1 - 5")
: F=F-1
: GOTO 1030
1050 GOSUB '63("Press EDIT to mo","dify and EXECUTE to accept, or CANCEL"," ")
: GOTO 1030
1060 IF Q=33THEN 1020
: IF Q=32THEN 1070
: PRINT HEX(07)
: F=F-1
: GOTO 1050
1070 STR(R7$,4)=STR(C9$(),13)&" "
: D6$="IDS2PUI8"
: LOAD T#2,D6$1000,
: ERRORJ4=ERR
: IF J4=82THEN 1080
: PRINT HEX(07);AT(19,0,);"Unexpected error ";J4
: END
1080 PRINT HEX(070E);AT(23,0,);"Mount diskette containing ";HEX(22);D6$;HEX(22
);" and then press EXEC.";
: KEYIN E6$
: PRINT HEX(0F);AT(23,0,);
: GOTO 1070