1 MEMORY &8FFF:a$="211FA2CDD4BC30072221A2793223A22120A2CDD4BC30072224A2793226A2C984853CC0073FC0072121A218032124A22241A2626B01C1041600C5D5E53A00A75FDF3CC0E12424D1C10C10EEC9CD00A2110040D5CD27A2E111200006407EFEE52009E50E20770D2320FBE11910EF110040C32CA2C9"
4 FOR a=0 TO &73:POKE &A200+a,VAL("&"+MID$(a$,a*2+1,2)):NEXT:WHILE 1:MODE 2:CAT:PRINT"[1] LESSIVER DISK":PRINT"[2] QUITTER":v=0:WHILE v<1 OR v>2:v=VAL("0"+INKEY$):WEND:IF v=2 THEN END ELSE f$="*.BAK":|ERA,@f$:POKE &A701,229:CALL &A24C:POKE &A701,0:WEND