10 REM Restore/Save configurations 20 REM In anticipation of flat battery 30 REM (C)1996 SPROW 40 IFINKEY(-256)<>253 THENPRINT:PRINT"Bad machine type":END ELSEMODE7 50 PRINT"Master Series battery backup":PRINT:PRINT"1)Save Configuration":PRINT"2)Restore configuration" 60 A=GET-48:IF A>2 OR A<1 THENRUN 70 *DIR :0.$ 80 PRINT 90 IFA=2 THENGOTO190 100 REM Put bytes to disk 110 PRINT"Saving as $.CMOSBAK" 120 A%=161:F%=OPENOUT"$.CMOSBAK" 130 FORX%=0 TO 49 140 Y%=(USR(&FFF4)AND &FF0000)DIV&10000 150 BPUT#F%,Y% 160 NEXT 170 CLOSE#F%:PRINT:PRINT"Done." 180 END 190 REM Restore all 200 PRINT"Searching for $.CMOSBAK" 210 A%=162:F%=OPENIN"$.CMOSBAK" 220 FORX%=0 TO 49 230 Y%=BGET#F%:CALL &FFF4 240 NEXT 250 CLOSE#F%:PRINT:PRINT"Done." 260 END