Listing of file='IDS2PI07' on disk='vmedia/701-2717B.wvd.zip'
# Sector 480, program filename = 'IDS2PI07'
1000 REM "IDS2PI07" - START MODULE DOCUMENTATION MODULE
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: DIM F2$(256)1
: E9=2250
: GOSUB '32("IDS2sI01")
: PRINT AT(0,31);HEX(0E);"Documentation Module "
: GOSUB '36
: GOSUB '53("Touch EXECUTE to print documentation, FN'31 to cancel")
1060 GOSUB '34(250)
: IF Q=31THEN 1620
: IF Q<>32AND Q<>130THEN 1060
1090 $OPEN 1120,#1
: ERRORGOTO 1120
1100 GOTO 1140
1120 KEYIN E6$,1120,1130
: GOSUB '63("Printer not avai","lable. Wait or CANCEL"," ")
: GOTO 1090
1130 IF E6$=HEX(1F)THEN 1620
: GOTO 1120
1140 $OPEN #1
: E0$()=HEX(01)
: MAT REDIM E0$(249)1
: GOSUB '43(F0)
: MAT REDIM F$(1125)2
: MAT SEARCHE$()<731,1020>,>"M"TO F$()
: MAT REDIM F$(E9)1
: F9$=ALL(00)
: MAT SEARCHF$(),=F9$TO F9$STEP 2
: J3=INT(VAL(F9$,2)/2)
: J2=INT((J3+76)/50)
: SELECT PRINT 005
: PRINT HEX(0F)
: GOSUB 1630
1200 GOSUB '48(46,"Edit & document Execution access",0)
: GOSUB '49(0)
: GOSUB '63("Now printing doc","umentation."," ")
1210 E$="Revision number "&STR(E$(),10,3)&" Version "&STR(E$(),54,1
)&" User class "&STR(E$(),62,1)&" User class "&STR(E$(),74,
1)
: GOSUB '48(3,E$,0)
: GOSUB '49(0)
1220 E$="Last revised "&STR(E$(),16,2)&"/"&STR(E$(),18,2)&"/"&STR(E$(),20,2)&"
Application "&STR(E$(),55,3)&" User ID code "&STR(E$(),63,3)&" U
ser ID code "&STR(E$(),75,3)
: GOSUB '48(3,E$,0)
: GOSUB '49(0)
1230 E$="Last revised by "&STR(E$(),13,3)&" Function "&STR(E$(),58,4)&"
Password "&STR(E$(),66,8)&" Password "&STR(E$(),78,8)
: GOSUB '48(3,E$,0)
: GOSUB '49(0)
: GOSUB '49(0)
: FOR I=0TO 7
: E$=" "
: ON IGOTO 1270,1280,1290,1300,1310,1320,1330
: E$="Peripheral device address assignments:"
: GOTO 1350
1270 STR(E$,11)="Printer"
: GOTO 1340
1280 STR(E$,11)="IDEAS system utilities"
: GOTO 1340
1290 STR(E$,11)="Screen and report masks"
: GOTO 1340
1300 STR(E$,11)="Application programs"
: GOTO 1340
1310 STR(E$,11)="Data file crontrol files"
: GOTO 1340
1320 STR(E$,11)="Telecommunications board"
: GOTO 1340
1330 STR(E$,11)="Application data files"
1340 STR(E$,1,9)="#0"&BIN(I+48)&"/ "&STR(E$(),I*3+83,3)
1350 STR(E$,41)="#"&BIN((I+8)/10+48)&BIN(MOD(I+8,10)+48)&"/ "&STR(E$(),I*3+107
,3)&" Application data files or other"
: GOSUB '48(3,E$,0)
: GOSUB '49(0)
: NEXT I
: GOSUB '49(0)
: E$="Program module to be loaded in case of start module execution failure
"&HEX(22)&STR(E$(),139,8)&HEX(22)
: GOSUB '48(3,E$,0)
: GOSUB '49(0)
1380 E$="Program module to be loaded upon completion of start module execution
"&HEX(22)&STR(E$(),131,8)&HEX(22)
: GOSUB '48(3,E$,0)
: GOSUB '49(0)
: E$="Set @SYSBUF0= "&HEX(22)&STR(E$(),147,64)&HEX(22)
: GOSUB '48(3,E$,0)
: GOSUB '49(0)
: GOSUB '49(0)
1400 E$="Work buffer =..... Record buffer = .... Sort buffer =..... (size
s in bytes)"
: STR(E$,14,5)=STR(E$(),222)
: STR(E$,38,4)=STR(E$(),231)
: STR(E$,58,5)=STR(E$(),240)
: GOSUB '48(3,E$,0)
: GOSUB '49(0)
: GOSUB '49(0)
: IF J3=0THEN 1620
: FOR I=0TO 59
: IF E$(I*17+731)<"N"THEN 1610
: IF I=0THEN 1440
: IF MOD(I+26,50)>0THEN 1460
: GOSUB 1630
1440 E$="File Name Description Type Disk Len Sor
t How used"
: GOSUB '48(3,E$,0)
: GOSUB '49(0)
: E$="---- -------- -------------------------------- ------- --- ---- ----
- ---------"
: GOSUB '48(3,E$,0)
: GOSUB '49(0)
1460 F5$=STR(E$(),251+I*8)
: E7$=F5$OR ALL(20)
: GOSUB '39(E7$,5)
: MAT REDIM F$(6)83
: DATA LOAD DA T#P,(A)F$()
: MAT REDIM F$(E9)1
: STR(F$(),267,8)=STR(F$(),2,8)
: FOR J=0TO 16
: E7$=STR(F$(),267+J*8)
: F5$=E7$OR ALL(20)
: IF E7$=" "THEN 1600
: GOSUB '39(F5$,5)
: MAT REDIM E3$(6)83
: DATA LOAD DA T#P,(A)E3$()
: MAT REDIM E3$(249)8
1510 J1=J1+1
: E$=" "
: CONVERT J1TO E$,(####)
: IF VAL(E$)=48THEN STR(E$,1,POS(E$>30)-1)=" "
: STR(E$,6)=E7$
: IF POS(STR(E3$(),22,32)>00)>0THEN STR(E$,16)=STR(E3$(),22,32)
: IF STR(E3$(),10,1)>"4"THEN 1550
: STR(E$,49)="Primary"
: J4=J1
: IF E$(I*17+731)="N"THEN J4=-J4
: GOTO 1560
1550 STR(E$,49)="Alt"
: CONVERT ABS(J4)TO STR(E$,52),(####)
: IF VAL(STR(E$,52))=48THEN STR(E$,52,POS(STR(E$,52)>30)-1)=" "
1560 STR(E$,57)=STR(E3$(),105,3)
: STR(E$,61)=STR(E3$(),93,4)
: IF VAL(STR(E$,61))=48THEN STR(E$,61,POS(STR(E$,48)>30)-1)=" "
: CONVERT (VAL(STR(E3$(),416))+VAL(STR(E3$(),417))+4)*VAL(STR(E3$(),435),2)
TO STR(E$,66),(#####)
: IF STR(E$,66,1)="0"THEN STR(E$,66,POS(STR(E$,66)>30)-1)=" "
1580 IF E$(I*17+J+731)="S"THEN STR(E$,72)="Seq & Rnd"
: ELSE IF E$(I*17+J+731)="R"THEN STR(E$,72)="Rnd only"
: ELSE STR(E$,72)="Not open"
: IF J4<0AND ABS(J4)>J1THEN STR(E$,72)="Not open"
: GOSUB '48(3,E$,0)
: GOSUB '49(0)
1600 NEXT J
1610 NEXT I
1620 $CLOSE#1
: LOAD T#2,R3$(1)1000,
1630 GOSUB '48(0,HEX(0C),0)
: GOSUB '49(0)
: J5=J5+1
: E$="Start module "&HEX(22)&STR(E$(),2,8)&HEX(22)&" - "&STR(E$(),22,32)&"
"&STR(R2$,1,2)&"/"&STR(R2$,3,2)&"/"&STR(R2$,5)&" Page 1 of X"
1640 CONVERT J5TO STR(E$,74,1),(##)
: CONVERT J2TO STR(E$,79),(##)
: FOR Q=74TO 79STEP 5
: IF STR(E$,Q,1)="0"THEN STR(E$,Q,1)=" "
: NEXT Q
: GOSUB '48(3,E$,0)
: GOSUB '49(0)
: GOSUB '49(0)
: RETURN
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
: E$="IDS2PI07"
: IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
: STOP "ERROR"