Listing of file='IDS2PUI5' on disk='vmedia/701-2724B.wvd.zip'
# Sector 936, program filename = 'IDS2PUI5'
1000 REM "IDS2PUI5" - INSTALL AN APPLICATION - MOD 4, BEGUN 02/08/82, TSCHETTE
R
1010 GOSUB 1070
: GOSUB 1330
: LIMITS T#15,"IDS2f000",A,B,B,B
: IF B=2THEN @E2$(2)=BIN(A,2)
1020 P6=0
: D6$="IDS2PUI6"
: LOAD T#2,D6$1000,
: ERRORJ4=ERR
: IF J4=82THEN 1030
: PRINT HEX(07);AT(19,0,);"Unexpected error ";J4
: END
1030 PRINT HEX(070E);AT(23,20);BOX(-1,-40);AT(23,0,);"Mount diskette containin
g ";HEX(22);D6$;HEX(22);" and press EXEC";
: KEYIN E6$
: PRINT HEX(0F);AT(23,0,);
: GOTO 1020
1040 P3=2
: P9=0
: D6$="IDS2PUIX"
1050 LOAD T#P9,D6$
: ERRORJ4=ERR
: IF J4<>82THEN 1060
: P9=P9+1
: IF P9=16THEN 1060
: GOTO 1050
1060 PRINT HEX(03020400000E);"Unexpected error";J4
: END
1070 DEFFN'71
: P=15
: SELECT #P<C9$(5)>
: IF P7>1OR P6=1THEN 1080
: PRINT HEX(070E);AT(23,20);BOX(-1,-40);AT(23,0,);"Mount destination disket
te meant for system files at ";C9$(5);"; press EXEC or CANCEL";
: KEYIN E6$
: IF E6$=HEX(1F)THEN 1040
: PRINT HEX(0F);AT(23,0,);
1080 LIMITS T#P,"IDS2f001",A,B,C,D
: ERRORSTOP " Invalid device specification"
: GOTO 1080
1090 IF D>0THEN 1120
: DATA SAVE DC OPEN T#P,(3)"IDS2f001"
: ERRORGOTO 1320
1100 MAT F0=ZER
: F0=1
: F0(1)=#ID
: R0=#PART
: DATA LOAD DC OPEN T#P,"IDS2f001"
: DATA SAVE DC #P,F0,F0()
: DATA SAVE DC #P,END
: GOSUB 1270
: GOTO 1210
1120 DATA LOAD DC OPEN T#P,"IDS2f001"
: DATA LOAD DC #P,F0,F0()
: GOSUB 1270
: FOR I=1TO F0
: IF F0(I)<>#IDTHEN 1150
: PRINT AT(20,0,80);"CPU is already in master file"
: R0=(I-1)*16+#PART
: GOTO 1210
1150 NEXT I
1160 IF F0=6THEN 1190
: ELSE PRINT AT(21,0,80);BOX(1,79);AT(21,5);" Your CPU is not in Master Fil
e; Select 'A' to add, 'C' to change";AT(21,71);
: E6$=" "
: LINPUT E6$
: IF E6$<>"A"AND E6$<>"C"THEN 1160
: IF E6$="C"THEN 1190
: F0=F0+1
: F0(F0)=#ID
: R0=(F0-1)*16+#PART
: DBACKSPACE #P,1S
: DATA SAVE DC #P,F0,F0()
: DATA SAVE DC #P,END
: GOTO 1210
1190 PRINT AT(21,0,80);BOX(1,79);AT(21,5);" Please enter number for CPU to cha
nge (1 to ";F0;")";AT(21,54);
: E6$=" "
: LINPUT E6$
: IF E6$<"1"OR E6$>"6"THEN PRINT HEX(07);
: IF E6$<"1"OR E6$>"6"THEN 1190
: CONVERT E6$TO F
: IF F>F0THEN PRINT HEX(07);
: IF F>F0THEN 1190
: F0(F)=#ID
: R0=(F-1)*16+#PART
: DBACKSPACE #P,1S
: DATA SAVE DC #P,F0,F0()
: DATA SAVE DC #P,END
: GOTO 1210
1210 DIM J$8
: J$="IDS2fs "
: IF R0>=#PARTTHEN CONVERT (R0-#PART)/16+1TO STR(J$,7,2),(##)
: LIMITS T#P,J$,A,B,C,D
: IF D>0AND B-A>=165THEN 1260
: IF D=0THEN 1240
: DIM J1$8
: J1=0
: J1$="JUNKxxxx"
1230 J1=J1+1
: CONVERT J1TO STR(J1$,5,4),(####)
: LIMITS T#P,J1$,A,B,C,D
: IF D<>0THEN 1230
: SCRATCH T#P,J$
: SAVE DC T#P,(J$)J1$1000,1000
: SCRATCH T#P,J1$
1240 DATA SAVE DC OPEN T#P,(166)J$
: ERRORGOTO 1320
1250 MAT REDIM E3$(9)83
: E3$()=" "
: DATA SAVE DC #P,E3$()
: DSKIP #P,161S
: DATA SAVE DC #P,END
: LIMITS T#P,J$,A,B,C,D
: FOR I=A+3TO A+163
: DATA SAVE BA T#P,(I)STR(E3$(),,256)
: NEXT I
: STR(E3$(),,8)=ALL(30)
: DATA SAVE BA T#P,(A+3)STR(E3$(),,256)
1260 RETURN
1270 SELECT PRINT 005
: PRINT HEX(03);AT(1,10,80);BOX(1,59);AT(1,20);HEX(020402000E);" CPU Master
File Maintenance Program";HEX(0F);AT(8,20);BOX(9,40);AT(9,26);" CPU NUMB
ER ";AT(9,45);" CPU ID ";AT(10,25);BOX(0,30);
: FOR I=1TO 6
: PRINT AT(9+I,29);I;AT(9+I,45);
: IF I<=F0THEN PRINT F0(I);
: ELSE PRINT "NOT USED";
: NEXT I
1290 PRINT AT(17,20);BOX(1,40);AT(17,27);"Current CPU ID # is ";#ID;
: PRINT HEX(06);AT(23,20);BOX(1,40);AT(23,24);"Creating system files, pleas
e wait";
: RETURN
1320 PRINT AT(20,0,80);"FATAL ERROR - No room on system platter for necessary
files";
: STOP
: END
1330 IF R0<#PARTTHEN 1340
: F5$="IDS2fs##"
: CONVERT 1+(R0-#PART)/16TO STR(F5$,7),(##)
: LIMITS T#15,F5$,A,B,C,D
: IF A=0THEN 1340
: RETURN
1340 PRINT AT(23,20);BOX(-1,-40);AT(19,0,);"Error in station # R0, or system f
ile ";F5$;" is missing.";
: END