Listing of file='IDS2M001' on disk='vmedia/701-2717B.wvd.zip'
# Sector 847, program filename = 'IDS2M001'
1000 STR(E$(),0001)="IDS2M001 37083082TJBIDEAS System Utilities - Primary Prog
ram Selection Menu Module Release 2.1F IDS2P008Security
F PASSWORDIDS2P006System date
"
1001 STR(E$(),0235)=" 0 IDS2P007Device addresses
0 IDS2P013Manage system peripherals
IF IDS2P005New user's ID
I0 "
1002 STR(E$(),0469)=" -- Other Functions --
IDS2MF01Data files
0 IDS2MS01Screens
0 IDS2MP01"
1003 STR(E$(),0703)="Programs (interactive) 0
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
1IDSMENU"
: IF R3$(1)="\C4\CF\CE\D4\CC\CF\C1\C4"THEN RETURN
: IF E5$<>"M"THEN LOAD T#2,"IDS2MX01"1000,