INCLUDE "D1:>ACTION>RUN_TIME>SYSLIB.ACT"›INCLUDE "D1:>ACTION>RUN_TIME>SYSIO.ACT"››PROC Stop()››   [$A2$FF$9A$6C$0A$00]››PROC MIO()››   BYTE A16=$D1E2,                ; Address bits A19-A16›        A8=$D1E0,                 ; Address bits A15-A8›        TA16,                     ; Temporary area to save original A16›        TA8,                      ; Temporary area to save A8›        i››   BYTE POINTER ConfigTable=$D610 ; Beginning address of configuration table›   BYTE ARRAY buff(112)           ; Temporary storage area for the configuration table›   ›   TA16 = A16                     ; Save old value of address lines›   TA8 = A8››   A8 = 0                         ; Enable page zero of MIO›   A16 = $20››   ; Have to copy the configuration table before using MIO›   ; Using the file will switch the MIO page in the›   ; middle of the program.››   FOR i=0 TO 111 DO›      buff(i) = ConfigTable(i)›   OD››   A16 = TA16 & $DF               ; Restore original MIO page›   A8 = TA8                       ; and disable it.››   Open(1, "D1:MIO.CNG", 8, 0)››   FOR i=0 TO 111 DO              ; Save configuration data to disk›      PutD(1, buff(i))›   OD››   Close(1)                       ; And that's it!››   PrintE("All done!")›   Stop()››RETURN›