Listing of file='IDS2P003' on disk='vmedia/701-2715B.wvd.zip'
# Sector 105, program filename = 'IDS2P003' 1000 REM "IDS2P003" - LOADS SUBROUTINES GLOBALLY OR LOCALLY 1010 IF LEN(STR(E$))<>87THEN STOP "Length of E$ not Valid" : IF POS(HEX(6040414243)=F6$(17))<>0THEN 3000 : SELECT @PART"IDS2SUBM" : ERRORGOTO 3040 2005 E$=$PSTAT(#PART) : UNPACK(##)STR(E$,27,1)TO X : E$=$PSTAT(X) : UNPACK(##.##)STR(E$,12,2)TO X : F6$(17)=HEX(60) : IF X>12.25THEN F6$(17)="@" : IF X>13THEN F6$(17)="B" : IF X>=14THEN F6$(17)="C" 3000 F0$=STR(R3$(),,9) : R3$()=STR(R3$(),10) : LOAD DC T#2,STR(F0$,,8)1000, 3020 STOP "Minimum required space to operate IDEAS 2 is 28 K " : END 3040 E$="Loading Subrtnes"&STR(R3$(),,8) : IF F6$(53)<>"N"THEN R3$()=STR(R3$(),10) : F6$(17)=HEX(60) : IF F6$(53)<>"N"THEN LOAD DC T#2,"IDS2GLOB" : IF SPACEK<28THEN 3020 : G=LEN(STR(E6$(),1)) : H=2 : E=21 : E8=2075 : E9=2250 : COM CLEAR Y : STR(E$,17,8)="IDS2P004" : F0$="IDS2GLOBIDS2P012" : LOAD DC T#2,<2>F0$