10 POKE53281,0:POKE53280,11:Q$=CHR$(34):ON A GOTO30,40,50,60,70
20 A=1:LOAD"SANITATION",8,1
30 SYS51744:A=2:LOAD"MLSWAP.OBJ",8,1
40 A=3:LOAD"SCREEN.OBJ-2",8,1
50 A=4:LOAD"ML BASE.OBJ",8,1
60 A=5:LOAD"OBJ LIST PAGER",8,1
70 PRINT"[147][159]POKE56,PEEK(56)-1:NEW"
80 PRINT"LOAD";CHR$(34);"TOTAL SORT";CHR$(34);",8"
130 PRINT"RUN"
150 PRINT"":FOR I=0TO3
160 POKE631+I,13:NEXT I:POKE198,4