Listing of file='IDS2GLBL' on disk='vmedia/701-2717B.wvd.zip'
# Sector 562, program filename = 'IDS2GLBL' 0001 REM "IDS2GLBL" - Release 2.1 0002 COM E$80 : E$="IDS2SUB1IDS2SUB2IDS2SUB3IDS2SUB4IDS2SUB5" : X=SPACEK : IF @F1$<>" "THEN STR(E$,2,2),STR(E$,18,2)=OR ALL(20) 0004 IF @F1$<>" "THEN 5 : IF X>=14THEN E$=E$&"IDS2SUB7IDS2SUB8" : IF X>13AND X<14THEN E$=E$&"IDS2SUB8" : IF X>12.25THEN 6 : PRINT AT(23,0,80);@E1$(2);"Insufficient space to run global subroutines"; : END 0005 IF X>10THEN E$=E$&"IDS2SUB7" : IF X>9.25THEN E$=E$&"IDS2SUB8" 0006 LOAD T<LEN(E$)/8>E$1,6BEG 7 0007 COM CLEAR E$ : $RELEASETERMINAL : LOAD T"IDS2SUB6"7,7BEG 8 0008 DEFFN@PART"IDS2SUBM" : END : DEFFND(F)=INT(VAL(STR(E2$(F),7))/64) : DEFFNK(F)=MOD(VAL(STR(E2$(F),5)),2) : DEFFNV(Q)=VAL(STR(E2$(F),Q)) : DEFFNQ(Q)=VAL(@E2$(),2)+10*#PART+Q-260 0009 DEFFN'68 : F(F)=A : RETURN