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,