Listing of file='IDS2MX01' on disk='vmedia/701-2717B.wvd.zip'
# Sector 15, program filename = 'IDS2MX01'
1000 REM "IDS2MX01" - PLEASE DON'T CHANGE LINES 1005 AND 1006
1005 MAT REDIM E3$(249)8
: GOTO 1006
1006 MAT REDIM E3$(249)8
: E9$(7)=" "
: IF F6$(53)="R"THEN F6$(53)="Y"
: COM E5$1
: F0$="Release 2.1"
: IF STR(F0$,9,1)="X"THEN E5$="Y"
: ELSE E5$="N"
: IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
: MAT REDIM E$(E8)1,F$(E9)1
: F1$()=" "
: E0$=" "
: IF STR(R3$(),,8)<>STR(E$(),,8)THEN 1025
: R3$()=STR(R3$(),10)
1025 STR(E$(),,1339)=AND ALL(7F)
: STR(F6$(),,16),STR(F6$(),18,35)=ALL(4E)
: STR(F6$(),11,6)="YYYY"&HEX(FF00)
: STR(F6$(),44,8)="0000000N"
: MAT REDIM E2$(250)9
: E2$(109)=HEX(080001A87970000000)
: F6$="P"
: E$=STR(E$(),21,78)
: PRINT HEX(0603);BOX(1,79);HEX(020402000E);AT(0,(80-LEN(E$))/2);E$;HEX(0F)
1070 DIM F4$(18)1
: F4$()=ALL(00)
: IF E9$(7)=" "THEN S=0
: N,W,E=0
: FOR I=111TO 1279STEP 73
: IF STR(E$(),I,8)=" "THEN 1090
: E=0
: IF I=1279AND STR(E$(),I,8)=STR(E$(),,8)AND N<>0THEN 1100
: IF I<1279THEN F3$=STR(E$(),I+62,3)
: ELSE F3$=" "
: IF F3$<>" "AND F3$<>R4$THEN 1100
: IF I<1279AND E$(I+61)>R8$THEN 1100
1090 E=1
: E$=STR(E$(),I+8,51)
: IF E$<>" "THEN N=N+E
: BIN(F4$(I*.014))=N*E
: IF E=1THEN W=MAX(W,LEN(E$))
1100 NEXT I
: X=(74-W)/2
: Y=(21-N)/2
: PRINT AT(Y,X+2);"FN Program Module"
: PRINT AT(Y+1,X+2);BOX(0,1);AT(Y+1,X+5);BOX(0,MAX(13,W-1))
: S=MOD(S,17)
: S=MAX(S,POS(F4$()>00)-1)
: IF S<>16AND POS(F4$()=F4$(S+1))-1<STHEN S=0
: FOR Z=0TO 16
: GOSUB 1400
: NEXT Z
1165 % ###### ##
1167 %Mem ##.##
1169 PRINT AT(20,69);BOX(2,10);
: PRINTUSING 1165,"Term #",#TERM
: PRINT AT(21,69);
: PRINTUSING 1165,"Sta. #",R0
: IF F6$(17)<"^"THEN PRINT AT(21,30);"Global Selected"
: IF F6$(17)=HEX(60)THEN PRINT AT(21,30);"Local Selected"
: IF POS(HEX(6040414243)=F6$(17))=0THEN PRINT AT(21,30);"Where are the Subr
outines?"
: CONVERT STR(R2$,,2)TO Q
1175 PRINT AT(20,0);BOX(2,10);" ";STR(@E4$(Q),,3);" ";STR(R2$,3,2);" ";STR(R2$
,5,2)
: PRINT AT(21,1);
: PRINTUSING 1167,SPACEK
1190 PRINT AT(23,0);BOX(1,79)
: GOSUB '63(" Touch any liste","d FN, SPACE/BACKSPACE to change default or
EXEC to load default"," ")
: IF S<17THEN 1210
: S,Z=0
: GOSUB 1400
: GOTO 1210
1205 PRINT HEX(07);
1210 E$=" "
: KEYIN E$,,1280
: GOSUB 1390
: IF E$=" "THEN 1240
: IF E$=HEX(08)THEN 1260
: IF E$=HEX(0D)OR E$=HEX(82)THEN 1290
: B=S
1232 MAT SEARCHE$()<B*73+192>,=E$TO F9$STEP 73
: IF F9$>HEX(0000)THEN 1238
: XOR (STR(E$,,1),20)
: MAT SEARCHE$()<B*73+192>,=E$TO F9$STEP 73
: IF F9$>HEX(0000)THEN 1238
: IF B=-1THEN 1205
: B=-1
: GOTO 1232
1238 Z=S
: S=B+1+INT(VAL(F9$,2)/73)
: IF F4$(S+1)=HEX(00)THEN 1250
: E$=STR(E$(),S*73+111,8)
: IF E$=" "THEN 1250
: GOSUB 1400
: Z=S
: GOSUB 1400
: GOTO 1210
1240 Z=S
1250 S=MOD(S+1,17)
: IF F4$(S+1)=HEX(00)THEN 1250
: E$=STR(E$(),S*73+111,8)
: IF E$=" "THEN 1250
: GOSUB 1400
: Z=S
: GOSUB 1400
: GOTO 1210
1260 Z=S
1270 S=MOD(S-1,17)
: IF F4$(S+1)=HEX(00)THEN 1270
: E$=STR(E$(),S*73+111,8)
: IF E$=" "THEN 1270
: GOSUB 1400
: Z=S
: GOSUB 1400
: GOTO 1210
1280 GOSUB 1390
: F6$(15)=E$
: IF E$=HEX(1F)OR E$=HEX(F0)THEN E$=HEX(10)
: IF E$>HEX(10)THEN 1205
: E6$=F4$(VAL(E$)+1)
: IF E6$=HEX(00)OR POS(F4$()=E6$)=0THEN 1205
: E6$=E$
: E$=STR(E$(),VAL(E$)*73+111,8)
: IF E$=" "AND E6$=HEX(10)THEN 1395
: IF E$=" "THEN 1205
: Z=S
: S=VAL(E6$)
: GOSUB 1400
: Z=S
: GOSUB 1400
1290 F6$(15)=BIN(S)
: E$=STR(E$(),S*73+176,8)
: IF E$=" "OR E6$=HEX(10)THEN 1330
: E7$=E$
: PRINT AT(21,11,56);BOX(1,57);" Please enter the menu selection password"
: STR(F6$(),11,3)="NNN"
: I=S
: GOSUB '34(109)
: S=I
: STR(F6$(),11,3)="YYY"
1320 IF E$=E7$THEN 1330
: PRINT AT(21,12,55);HEX(0F);"Password was invalid - Please make your selec
tion again."
: GOTO 1190
1330 IF S>15THEN 1332
: I=LEN(STR(R3$()))-9
: MAT COPY -R3$()<,I>TO -R3$()<10,I>
: STR(R3$(1),,9)=E$()
1332 E$=STR(E$(),S*73+111,8)
: GOSUB '39(E$,4)
: P1=P
: A1=A
: IF Q<>1THEN 1380
: $PSTAT=STR(E$,,8)
: Q=S
: E6$=BIN(S)
: IF S<16THEN E9$(7)=STR(E$(),S*73+111,8)
: ELSE IF STR(E$(),1,8)="IDS2M001"THEN E9$(7)=" "
: ELSE E9$(7)=E$()
: E$=STR(E$(),S*73+171,1)
: ON POS("WX"=E$)GOTO 1350,1360
1340 E$=STR(E$(),S*73+111,8)
: E8$,F0$=" "
: IF P1<>2OR VER(E$,"IDS2MX##")<8THEN LOAD DA T#P1,(A1)1000,
: E5$="M"
: LOAD DA T#P1,(A1)1000,1005BEG 1000
1350 GOSUB 1371
: COM CLEAR E()
: GOTO 1370
1360 COM CLEAR
1370 SELECT PRINT 005
: LOAD DA T#P1,(A1)
1371 IF F6$(53)="Y"THEN 1372
: MAT REDIM E$(9)83
: F2$="IDS2fs "
: A=(R0-#PART)/16+1
: CONVERT ATO STR(F2$,7,2),(##)
: DATA LOAD DC OPEN T#2,F2$
: DATA LOAD DC #2,E$()
: SELECT #0<STR(E$(),45*#PART-8,3)>
: R3$()="IDEAS2"
: RETURN
1372 MAT REDIM E$(256)1
: R3$()=STR(F4$,4,8)
: GOSUB '39(R3$(),4)
: DATA LOAD BA T#P,(A+2)E$()
: SELECT #0<STR(E$(),101,3)>
: RETURN
1380 PRINT AT(21,11,57);BOX(1,57);HEX(0E07);" Selected module not available on
system. Please Reselect"
: GOTO 1190
1390 PRINT AT(21,11,57);BOX(-1,-57)
: RETURN
1395 IF R3$(1)=" "OR R3$(1)=STR(E$(),,8)THEN 1205
: GOSUB '39(R3$(1),4)
: IF Q<>1THEN 1205
: $PSTAT=R3$(1)
: F0$=STR(R3$(),,8)
: R3$()=STR(R3$(),10)
: GOSUB '40(F0$)
: GOTO 1205
1400 Z=MOD(Z,17)
: IF F4$(Z+1)=HEX(00)THEN RETURN
: E$=STR(E$(),Z*73+111,59)
: IF STR(E$,9)=" "THEN RETURN
: PRINT AT(Y+VAL(F4$(Z+1)),X);HEX(0202020F);
: IF STR(E$,,8)=" "THEN 1420
: IF Z<16THEN CONVERT ZTO E4$(),(##)
: ELSE E4$()="31"
: IF S=ZTHEN PRINT HEX(0E8B20);E4$();
: ELSE PRINT HEX(0F9020);E4$();
1420 PRINT TAB(X+5);STR(E$,9,W);HEX(0202000F);
: RETURN
1430 DEFFN'68
: RETURN