Listing of file='IDS2PIX9' on disk='vmedia/701-2717B.wvd.zip'
# Sector 669, program filename = 'IDS2PIX9' 2000 REM "IDS2PIX9" 2010 COM F1$(L)F : X=LEN(STR(R3$()))-9 : SELECT @PART"IDS2SUBM" : ERRORLOAD T#2,"IDS2PIX6"1000, 2040 MAT COPY -R3$()<1,X>TO -R3$()<10,X> : STR(R3$(),,9)="IDS2PIX5" : IF LEN(STR(E$))<>87THEN STOP "Length of E$ not Valid" : IF POS(HEX(6040414243)=F6$(17))<>0THEN 2230 : SELECT @PART"IDS2SUBM" : ERRORE$="Loading Subrtnes"&STR(R3$(),,8) : IF F6$(53)<>"N"THEN LOAD T#2,"IDS2P003" 2150 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>11.50THEN F6$(17)="@" : IF X>12.25THEN F6$(17)="B" : IF X>13THEN F6$(17)="C" 2230 F0$=STR(R3$(),,9) : R3$()=STR(R3$(),10) : GOSUB '40(STR(R3$(),,8)) : STOP "Minimum required space to operate IDEAS 2 is 28 K "