Listing of file='IDS2MP01' on disk='vmedia/701-2717B.wvd.zip'
# Sector 583, program filename = 'IDS2MP01'
1000 STR(E$(),0001)="IDS2MP01 4083082TJBIDEAS System Utilities - Interactive
Program Generation Menu Release 2.1F IDS2PP00Create
0 IDS2PP00Revise
"
1001 STR(E$(),0235)=" 0 IDS2PP00Protect
0
"
1002 STR(E$(),0469)=" -- Other Functions --
IDS2MF01Data files
0 IDS2MS01Screens
0 "
1003 STR(E$(),0703)="
IDS2MB01Programs (batch) 0
IDS2MR01Reports "
1004 STR(E$(),0937)=" 0 IDS2MM0
1Menus 0 IDS2MI0
1START programs 0 IDS2MU0
1Other utilities "
1005 STR(E$(),1171)=" 0 IDS2AX01Applications
0 IDS2M001Main menu
1IDSPR-I"
: IF R3$(1)="\C4\CF\CE\D4\CC\CF\C1\C4"THEN RETURN
: IF E5$<>"M"THEN LOAD T#2,"IDS2MX01"1000,