Listing of file='IDS2GLOB' on disk='vmedia/701-2715B.wvd.zip'
# Sector 79, program filename = 'IDS2GLOB' 0010 REM "IDS2GLOB" - Release 2.1 - COMMON & SET UP MVP/LVP GLOBAL VARIABLES 0210 COM @E$100,@F$(10)2,@E1$(4)5,@E1$6,@E2$(3)2,@E4$(12)5,@E5$(56)2,@F1$8 : COM @F$76 0220 @E1$()=HEX(020400000E020402000E020404000E020404040E) : @E2$()=ALL(00) : @E$=HEX(22)&"!@#$%^&*()=][<>';:/?,0123456789.+-0123456789 ABCDEFGHIJKLMOP QRSTUVWXZYN01ynabcdefghijklmopqrstuvwxz" : @F$(1)=HEX(240B) : @F$(2)=HEX(220C) : @F$(3)=HEX(170B) : @F$(4)=HEX(170D) : @F$(5)=HEX(2E1B) 0290 @F$(6)=HEX(2425) : @F$(7)=HEX(0148) : @F$(8)=HEX(0164) : @F$(9)=HEX(4706) : @F$="0 1$2+3,4-5.60718293:4;5<6=7>8?9 0$1+2,3-4.5061728394:5;6<7=8>9?:A;B <C=D>E?F" 0335 @E5$()=HEX(0140020005200B1F0E591C4ED0080BFF0C0D0D820E0012121C3ED0141B4142 40D0181C3AE00E0E001C6ED017400D1000119E11AF710540064001400C1801A2004007120 04001400C4008408B40084005710187051C5CD0311C5DD0311C5BE01A1000737018001212 1B411EFAE00FE034) 0340 @E4$()="JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC" : X=0 : FOR I=1TO 12 : READ D : X=X+D : STR(@E4$(I),4)=BIN(X,2) : NEXT I : DATA 31,28,31,30,31,30,31,31,30,31,30,31 : IF LEN(STR(E$))>=24AND STR(E$,17,8)="IDS2PUI1"THEN 347 : P=0 : IF STR(E$,,16)="Loading Subrtnes"THEN P=2 0342 LIMITS T#P,"IDS2f001",A,B,C,D : IF A=0THEN 440 : DIM F0(6) : F0=0 : DATA LOAD DC OPEN T#P,"IDS2f001" : DATA LOAD DC #P,F0,F0() : R0=0 : FOR I=1TO F0 : IF F0(I)=#IDTHEN R0=I : NEXT I : IF R0=0THEN GOTO 440 : F0$="IDS2fs " : CONVERT R0TO STR(F0$,7,2),(##) : IF STR(E$,,16)="Loading Subrtnes"THEN R0=(R0-1)*16+#PART : ELSE R0=0 0344 LIMITS T#P,F0$,A,B,C,D : @E2$(1)=BIN(A+3,2) : IF A=0THEN 420 : LIMITS T#P,"IDS2fs01",A,B,C,D : @E2$(3)=BIN(A+3,2) : IF A=0THEN 420 0347 LIMITS T#P,"IDS2f000",A,B,C,D : @E2$(2)=BIN(A,2) : IF A=0THEN 420 : IF STR(E$,,16)="Loading Subrtnes"THEN 400 : LOAD DC T"IDS2GLBL" 0352 GOTO 220 0400 STR(E$,57,8)=STR(E$,17,8) : STR(E$,,56)="IDS2SUB1IDS2SUB2IDS2SUB3IDS2SUB4IDS2SUB5IDS2SUB6IDS2LOCL" : LOAD T#2,<8>E$ 0420 IF P=2THEN 430 : STOP "CANNOT FIND SYSTEM FILES -- SELECT DEVICE #0 TO IDEAS2 SYSTEM PACK" : END 0430 STOP "INVALID SPECIFICATION FOR IDEAS2 SYSTEM -- CANNOT FIND SYSTEM FILES " : END 0440 LIMITS T#P,"IDS2PUM1",A,B,C,D : IF A=0THEN 420 : LOAD T#P,"IDS2PUM1"10,10BEG 450 0450 GOSUB '71 : GOTO 342