image of READY prompt

Wang2200.org

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