Listing of file='IDS2PUSD' on disk='vmedia/701-2725B.wvd.zip'
# Sector 428, program filename = 'IDS2PUSD' 1000 REM "IDS2PUSD" 1010 COM D8 : D8=D8+1 : IF D8>1THEN 1020 : X=LEN(STR(R3$()))-9 : MAT COPY -R3$()<,X>TO -R3$()<10,X> : STR(R3$(1),,9)="IDS2PUSD" : E3$()="IDS2f005" : E$="Y" : LOAD T#2,"IDS2PF14"1000, 1020 PRINT AT(23,0,80);"Security file has been re-created. You may LOAD RUN ID EAS2." : END