Listing of file='IDS2PIX3' on disk='vmedia/701-2717B.wvd.zip'
# Sector 924, program filename = 'IDS2PIX3'
1000 REM "IDS2PIX3" - START MODULE EXECUTION MODULE TO SET MOST VARIABLES
1035 DIM F0(6)
: FOR A=1TO 15
: IF STR(E$(),A*3+83,3)=" "THEN 1090
: SELECT #A<STR(E$(),A*3+83,3)>
: ERRORX=ERR
: GOTO 1310
1090 NEXT A
: HEXPACKE8$(7)FROMSTR(E$(),87,2)
: ERRORX=ERR
: GOTO 1310
1094 %SELECT #0<STR(E$(),95,3)>: ERROR X=ERR: GOTO 1310:REM SOON TO BE REMOVED
BY ART
1096 F4$=STR(E$(),86,3)&STR(E$(),2,8)&STR(E$(),101,3)
: CONVERT STR(E$(),231,4)TO E9
: CONVERT STR(E$(),240,5)TO J
: IF STR(E$(),247,4)<>" "THEN CONVERT STR(E$(),247,4)TO H
: H=H+1
: IF STR(F4$,4,7)="IDS2PCS"THEN H=24
: F6$()=ALL(4E)
: STR(F6$(),11,4)="YYYY"
: F6$(15)=HEX(FF)
: F6$(53)="Y"
: R7$(1)=STR(E$(),147,64)
: DATA LOAD DC OPEN T#2,"IDS2f001"
: ERRORGOTO 1152
1151 GOTO 1160
1152 DATA SAVE DC OPEN T#2,(3)"IDS2f001"
: ERRORPRINT HEX(0307)
: PRINT "Fatal error in IDEAS-2 Release 2.1 system program IDS2PIX3"
: PRINT "Start module unable to open necessary system file IDS2f001"
: END
1155 F0=1
: F0(1)=#ID
: R0=#PART
: $OPEN #2
: DATA SAVE DC #2,F0,F0()
: DATA SAVE DC #2,END
: GOTO 1200
1160 $OPEN #2
: DATA LOAD DC #2,F0,F0()
: R0=0
: FOR I=1TO F0
: IF F0(I)=#IDTHEN R0=(I-1)*16+#PART
: NEXT I
: IF R0>0THEN 1200
: IF F0<6THEN 1175
: $CLOSE#2
: PRINT HEX(0307)
: PRINT "Fatal error in IDEAS-2 Release 2.1 system program IDS2PIX3"
: PRINT "System CPU file IDS2f001 is full - Unable to add new CPU #"
: END
1175 F0=F0+1
: F0(F0)=#ID
: R0=(F0-1)*16+#PART
: DBACKSPACE #2,1S
: DATA SAVE DC #2,F0,F0()
1200 E$="IDS2fsxx"
: IF R0>=#PARTTHEN CONVERT (R0-#PART)/16+1TO STR(E$,7,2),(##)
: LIMITS T#2,E$,A,B,C,D
: IF D=2AND B-A>=165THEN 1300
: IF D=0THEN 1230
: DIM J1$8
: J1=0
: J1$="JUNKxxxx"
1220 J1=J1+1
: CONVERT J1TO STR(J1$,5,4),(####)
: LIMITS T#2,J1$,A,B,C,D
: IF D<>0THEN 1220
: SCRATCH T#2,E$
: SAVE DC T#2,(E$)J1$1000,1000
: SCRATCH T#2,J1$
1230 DATA SAVE DC OPEN T#2,(166)E$
: ERRORPRINT HEX(0307)
: PRINT "Fatal error in IDEAS-2 Release 2.1 system program IDS2PIX3"
: PRINT "Start module unable to open necessary system file ";E$
: END
1240 DATA LOAD DC OPEN T#2,E$
: MAT REDIM E3$(9)83
: E3$()=" "
: DATA SAVE DC #2,E3$()
: DSKIP #2,161S
: DATA SAVE DC #2,END
: LIMITS T#2,E$,A,B,C,D
: FOR I=A+3TO A+163
: DATA SAVE BA T#2,(I)STR(E3$(),,256)
: NEXT I
: STR(E3$(),,8)=ALL(30)
: DATA SAVE BA T#2,(A+3)STR(E3$(),,256)
1300 $CLOSE#2
: LOAD T#2,"IDS2PIX4"1000,
1310 PRINT HEX(0607020402000E);AT(23,0);"Error message: Fatal device selecti
on error attempting to open #";A;"/ ";STR(E$(),A*3+83,3);" !";HEX(010F05)
: IF STR(E$(),139,8)=" "THEN STOP
: ELSE LOAD T#4,STR(E$(),139,8)1000,
: STOP "CANNOT FIND SYSTEM FILES -- SELECT DEVICE # 0 TO THE IDEAS SYSTEM P
ACK"