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"